Como dividir um Documento do Word em vários Documentos?
Se você possui um Documento do Word grande que precisa ser dividido em vários documentos menores, este tutorial irá guiá-lo por três métodos eficazes. Seja utilizando VBA para dividir por um delimitador específico ou por páginas, ou optando pela funcionalidade simplificada do Kutools para Word, você encontrará uma solução adequada às suas necessidades.
- Dividir Documento do Word por delimitador especificado com VBA
- Dividir Documento do Word por título/quebra de página/quebra de seção/quebra de página usando o Kutools para Word
- Dividir Documento do Word por página com VBA
Dividir Documento do Word por delimitador especificado com VBA
Em vez de dividir manualmente um documento, você pode usar VBA para dividir um Documento do Word por um delimitador específico. Siga estes passos:
- Pressione Alt + F11 para abrir a janela do Microsoft Visual Basic for Applications.
- Clique em Inserir > Módulo, e cole o código VBA abaixo na janela do módulo.
Sub SplitNotes(delim As String, strFilename As String) Dim doc As Document Dim arrNotes Dim I As Long Dim X As Long Dim Response As Integer arrNotes = Split(ActiveDocument.Range, delim) Response = MsgBox("This will split the document into " & UBound(arrNotes) + 1 & " sections. Do you wish to proceed?", 4) If Response = 7 Then Exit Sub For I = LBound(arrNotes) To UBound(arrNotes) If Trim(arrNotes(I)) <> "" Then X = X + 1 Set doc = Documents.Add doc.Range = arrNotes(I) doc.SaveAs ThisDocument.Path & "\" & strFilename & Format(X, "000") doc.Close True End If Next I End Sub Sub test() 'delimiter & filename SplitNotes "///", "Notes " End Sub
- Clique no botão Executar ou pressione F5 para executar o VBA.
- Na janela pop-up do Microsoft Word, confirme clicando em Sim.
Observações:
- O script irá procurar por "///" (na linha22 do código) dentro do documento para identificar os pontos onde deve dividir o texto em arquivos separados. Se o delimitador no seu documento for diferente de "///", você deve atualizar o código VBA para refletir o delimitador correto ou modificar seu documento para incluir "///" nos pontos desejados de divisão.
- Você pode substituir "Notes" na linha22 do código por qualquer texto para criar um prefixo de nome de arquivo mais significativo para seus documentos divididos.
- Os documentos divididos serão salvos no mesmo local do arquivo original.
- Não é necessário inserir um delimitador ao final do documento; caso contrário, será criado um arquivo em branco.
Dividir Documento do Word por título/quebra de página/quebra de seção/quebra de página usando o Kutools para Word
O Kutools para Word oferece uma maneira mais conveniente e flexível de dividir um documento em comparação com métodos manuais ou VBA. Ele disponibiliza várias opções para dividir um documento por títulos, páginas, quebras de seção, quebras de página, a cada n páginas ou intervalos de páginas personalizados, permitindo que você adapte o processo de divisão conforme suas necessidades.
- Clique em Kutools Plus > Dividir para ativar o recurso Dividir.
- Na caixa de diálogo Dividir Documento, configure as seguintes opções:
- Escolha um método de divisão na lista suspensa Dividir por. As opções disponíveis incluem título1, quebras de página, quebras de seção, páginas, a cada n páginas ou intervalos de páginas personalizados.
- Clique no Procurar botão
para selecionar uma pasta de destino para os documentos divididos.
- Digite uma palavra-chave como prefixo para os novos nomes dos documentos no Prefixo do Documento campo. Dica: Ao clicar no Atualizar botão
é possível pré-visualizar os nomes dos documentos divididos na Pré-visualização caixa.
- Clique em Ok.
- Escolha um método de divisão na lista suspensa Dividir por. As opções disponíveis incluem título1, quebras de página, quebras de seção, páginas, a cada n páginas ou intervalos de páginas personalizados.
O documento será dividido conforme o método especificado, e os novos arquivos serão salvos na pasta designada.
Observações:
- Se for dividir a cada n páginas, especifique o número na caixa correspondente.
- Para intervalos de páginas personalizados, insira-os separados por vírgulas (ex.:1,3-5,12).
Navegação e Edição com Abas para Múltiplos Documentos do Word, Assim Como no Chrome e Edge!
Assim como navegar por várias páginas da web no Chrome, Safari e Edge, o Office Tab permite que você abra e gerencie vários documentos do Word em uma única janela. Alternar entre documentos agora é simples com um clique em suas abas!
Experimente o Office Tab gratuitamente agora!
Dividir Documento do Word por página com VBA
Se você precisa dividir rapidamente um Documento do Word em vários documentos, cada um contendo uma página, pode usar uma macro VBA para automatizar essa tarefa. Siga os passos abaixo:
- Pressione Alt + F11 para abrir a janela do Microsoft Visual Basic for Applications.
- Clique em Inserir > Módulo, então cole o seguinte código VBA na nova janela do módulo:
Sub SplitIntoPages() Dim docMultiple As Document Dim docSingle As Document Dim rngPage As Range Dim iCurrentPage As Integer Dim iPageCount As Integer Dim strNewFileName As String Application.ScreenUpdating = False 'Makes the code run faster and reduces screen flicker a bit. Set docMultiple = ActiveDocument 'Work on the active document Set rngPage = docMultiple.Range 'Instantiate the range object iCurrentPage = 1 'Get the document's page count iPageCount = docMultiple.Content.ComputeStatistics(wdStatisticPages) Do Until iCurrentPage > iPageCount If iCurrentPage = iPageCount Then rngPage.End = ActiveDocument.Range.End 'Last page (no next page) Else 'Find the beginning of the next page 'Must use the Selection object. The Range.Goto method will not work on a page Selection.GoTo wdGoToPage, wdGoToAbsolute, iCurrentPage + 1 'Set the end of the range to the point between the pages rngPage.End = Selection.Start End If rngPage.Copy 'Copy the page into the Windows clipboard Set docSingle = Documents.Add 'Create a new document docSingle.Range.Paste 'Paste the clipboard contents to the new document 'Remove any manual page break to prevent a second blank docSingle.Range.Find.Execute Findtext:="^m", ReplaceWith:="" 'Build a new sequentially numbered file name based on the original multi-paged file name and path strNewFileName = Replace(docMultiple.FullName, ".doc", "_" & Right$("000" & iCurrentPage, 4) & ".doc") docSingle.SaveAs strNewFileName 'Save the new single-paged document iCurrentPage = iCurrentPage + 1 'Move to the next page docSingle.Close 'Close the new document rngPage.Collapse wdCollapseEnd 'Go to the next page Loop 'Go to the top of the do loop Application.ScreenUpdating = True 'Restore the screen updating 'Destroy the objects. Set docMultiple = Nothing Set docSingle = Nothing Set rngPage = Nothing End Sub
- Clique no botão Executar ou pressione F5 para executar o VBA.
Observação: Os documentos divididos serão salvos no mesmo local do arquivo original.
Artigos relacionados:
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