Como dividir um documento do Word em arquivos separados a cada 5 ou n páginas?
Ao trabalhar com documentos grandes no Word, pode ser necessário dividir o documento em arquivos menores e separados para facilitar o manuseio, compartilhamento ou edição. Dividir o documento a cada 5, 10 ou um número específico de páginas pode ser uma solução prática para gerenciar conteúdo extenso de forma mais eficiente.
Copiar e colar manualmente as páginas uma por uma é demorado e ineficiente. Neste tutorial, apresentaremos métodos rápidos e fáceis para dividir um documento do Word em arquivos separados a cada N páginas:
Divida um documento do Word em arquivos separados a cada N páginas com código VBA
Divida um documento do Word em arquivos separados a cada N páginas com um recurso incrível
Divida um documento do Word em arquivos separados a cada N páginas com código VBA
Para dividir um documento grande em arquivos separados com base a cada N páginas, o seguinte código VBA pode ajudá-lo. Siga estas etapas:
- Pressione ALT + F11 para abrir a janela Microsoft Visual Basic for Applications.
- Clique em Inserir > Módulo, e copie e cole o seguinte código no módulo em branco:
- Depois de colar o código, ainda na janela Microsoft Visual Basic for Applications clique em Ferramentas > Referências. Na Referências - Projeto caixa de diálogo, marque a opção Microsoft VBScript Regular Expressions 5.5 da lista de Referências Disponíveis Veja as capturas de tela:
- Clique em OK, depois pressione F5 para executar o código.
- Uma caixa de diálogo Procurar Pasta aparecerá. Selecione a pasta onde deseja salvar os arquivos divididos e clique em OK.
- Outro prompt aparecerá perguntando o número de páginas que você deseja usar para dividir. Insira o número desejado de páginas e clique em OK.
- O documento será dividido em arquivos separados a cada N páginas. Navegue até a pasta especificada para visualizar os resultados.
Sub DocumentSplitter()
Dim xDoc As Document, xNewDoc As Document
Dim xSplit As String, xCount As Long, xLast As Long
Dim xRngSplit As Range, xDocName As String, xFileExt As String
Dim xRegEx As RegExp
Dim xPageCount As Integer
Dim xShell As Object, xFolder As Object, xFolderItem As Object
Dim xFilePath As String
On Error Resume Next
Set xDoc = Application.ActiveDocument
Set xShell = CreateObject("Shell.Application")
Set xFolder = xShell.BrowseforFolder(0, "Select a Folder:", 0, 0)
If TypeName(xFolder) = "Nothing" Then Exit Sub
Set xFolderItem = xFolder.Self
xFilePath = xFolderItem.Path & "\"
Application.ScreenUpdating = False
Set xNewDoc = Documents.Add(Visible:=False)
xDoc.Content.WholeStory
xDoc.Content.Copy
xNewDoc.Content.PasteAndFormat wdFormatOriginalFormatting
With xNewDoc
xPageCount = .ActiveWindow.Panes(1).Pages.Count
L1: xSplit = InputBox("The document contains " & xPageCount & " pages." & _
vbCrLf & vbCrLf & "Please enter the number of pages per split:", "Kutools for Word", xSplit)
If Len(Trim(xSplit)) = 0 Then Exit Sub
Set xRegEx = New RegExp
With xRegEx
.MultiLine = False
.Global = True
.IgnoreCase = True
.Pattern = "[^0-9]"
End With
If xRegEx.Test(xSplit) = True Then
MsgBox "Please enter a valid page number:", vbInformation, "Kutools for Word"
Exit Sub
End If
If VBA.Int(xSplit) >= xPageCount Then
MsgBox "The entered number exceeds the total page count of the document." & vbCrLf & "Please enter a valid number.", vbInformation, "Kutools for Word"
GoTo L1
End If
xDocName = xDoc. Name
xFileExt = VBA.Right(xDocName, Len(xDocName) - InStrRev(xDocName, ".") + 1)
xDocName = Left(xDocName, InStrRev(xDocName, ".") - 1) & "_"
xFilePath = xFilePath & xDocName
For xCount = 0 To Int(xPageCount / xSplit)
xPageCount = .ActiveWindow.Panes(1).Pages.Count
If xPageCount > xSplit Then
xLast = xSplit
Else
xLast = xPageCount
End If
Set xRngSplit = .GoTo(What:=wdGoToPage, Name:=xLast)
Set xRngSplit = xRngSplit.GoTo(What:=wdGoToBookmark, Name:="\page")
xRngSplit.Start = .Range.Start
xRngSplit.Cut
Documents.Add
Selection.Paste
ActiveDocument.SaveAs FileName:=xFilePath & xCount + 1 & xFileExt, AddToRecentFiles:=False
ActiveWindow.Close
Next xCount
Set xRngSplit = Nothing
xNewDoc.Close wdDoNotSaveChanges
Set xNewDoc = Nothing
End With
Application.ScreenUpdating = True
End Sub
Divida um documento do Word em arquivos separados a cada N páginas com um recurso incrível
Kutools for Word oferece uma poderosa função Dividir que permite dividir rapidamente um grande documento do Word em vários arquivos separados com base em Título 1, quebras de página, quebras de seção ou páginas. Esse recurso simplifica o que seria um processo manual tedioso.
- Clique em Kutools Plus > Dividir.
- Na caixa de diálogo que aparece, configure as seguintes opções conforme necessário:
- Selecione a opção A cada n páginas no menu Dividir por.
- Especifique o valor de n na caixa de entrada.
- Escolha um local para salvar.
- Especifique um prefixo para os documentos divididos.
- Após concluir as configurações, clique em OK. O documento será dividido em vários arquivos com base na opção selecionada (por exemplo, a cada 7 páginas).
Usar o recurso Dividir no Kutools for Word torna a divisão de documentos grandes em arquivos menores e gerenciáveis algo simples e eficiente.
Melhores Ferramentas de Produtividade para Office
Kutools para Word – Eleve sua experiência no Word com mais de 100 recursos incríveis!
🤖 Recursos de IA do Kutools: Assistente de IA / Assistente em Tempo Real / Super Polir (Preserva Formato) / Super Traduzir (Preserva Formato) / Redação por IA / Revisão por IA...
📘 Domínio de Documentos: Dividir Páginas / Mesclar Documentos / Exportar Seleção em Diversos Formatos (PDF/TXT/DOC/HTML...) / Converter em Lote para PDF...
✏ Edição de Conteúdo: Localizar e Substituir em Lote em Vários Arquivos / Redimensionar Todas as Imagens / Transpor Linhas e Colunas da Tabela / Converter Tabela para Texto...
🧹 Limpeza Sem Esforço: Elimine Espaços Extras / Quebras de Seção / Caixas de Texto / Hiperlinks / Para mais ferramentas de remoção, acesse o grupo Remover...
➕ Inserções Criativas: Inserir Separadores de Milhar / Caixas de Seleção / Botões de Rádio / QR Code / Código de Barras / Múltiplas Imagens / Descubra mais no grupo Inserir...
🔍 Seleções Precisas: Identifique Páginas Específicas / Tabelas / Formas / Parágrafos de Título / Melhore a navegação com mais recursos de Selecionar...
⭐ Melhorias Estrela: Navegue para Qualquer Localização / Insira Texto Repetitivo Automaticamente / Alterne Entre Janelas de Documentos /11 Ferramentas de Conversão...
Melhores Ferramentas de Produtividade para Office
Kutools para Word – 100+ Ferramentas para Word
- 🤖 Recursos de IA do Kutools: Assistente de IA / Assistente em Tempo Real / Super Polir / Super Traduzir / Redação por IA / Revisão por IA
- 📘 Domínio de Documentos: Dividir Páginas / Mesclar Documentos / Converter em Lote para PDF
- ✏ Edição de Conteúdo: Localizar e Substituir em Lote / Redimensionar Todas as Imagens
- 🧹 Limpeza Sem Esforço: Remover Espaços Extras / Remover Quebras de Seção
- ➕ Inserções Criativas: Inserir Separadores de Milhar / Inserir Caixas de Seleção / Criar QR Codes