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:

1. Pressione Alt + F11 para abrir a janela do Microsoft Visual Basic for Applications.
2. 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

3. Clique no botão Executar ou pressione F5 para executar o VBA.
4. Na janela pop-up do Microsoft Word, confirme clicando em Sim.

   

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.

1. Clique em Kutools Plus > Dividir para ativar o recurso Dividir.

   

2. 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.

O documento será dividido conforme o método especificado, e os novos arquivos serão salvos na pasta designada.

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:

1. Pressione Alt + F11 para abrir a janela do Microsoft Visual Basic for Applications.
2. 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

3. Clique no botão Executar ou pressione F5 para executar o VBA.

Artigos relacionados:

Melhores Ferramentas de Produtividade para Escritório

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 (Preservar Formato) / Super Traduzir (Preservar Formato) / Redação por IA / Revisão por IA...

📘 Domínio do Documento: 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 Múltiplos Arquivos / Redimensionar Todas as Imagens / Transpor Linhas e Colunas da Tabela / Converter Tabela para Texto...

🧹 Limpeza Sem Esforço: Livre-se de 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 de Precisão: Selecione Páginas Específicas / Tabelas / Formas / Parágrafos de Título / Melhore a navegação com mais recursos do Selecionar ...

⭐ Aprimoramentos Estrela: Navegue para Qualquer Localização / Insira Texto Repetitivo Automaticamente / Alterne Entre Janelas de Documento /11 Ferramentas de Conversão...

🌍 Suporte a mais de40 idiomas: Use o Kutools no seu idioma preferido – compatível com Inglês, Espanhol, Alemão, Francês, Chinês e muitos outros!

👉 Quer experimentar esses recursos? Baixe o Kutools para Word agora! 🚀

Download Gratuito     Comprar Agora     Saiba Mais sobre o Kutools para Word

 

Melhores Ferramentas de Produtividade para Escritório

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 do Documento: 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
• 🌍 Suporte a mais de40 idiomas: Kutools fala o seu idioma – mais de40 idiomas compatíveis!

Download Gratuito Comprar Agora Saiba Mais sobre o Kutools