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 Office

Kutools for Word – Aprimore sua experiência no Word com mais de 100 recursos incríveis!

🤖 Funcionalidades de IA do Kutools: AI Assistant / Assistente em Tempo Real / Super Polir (Preservar Formato) / Super Traduzir (Preservar Formato) / Redação por IA / Revisão por IA...

📘 Domínio de Documentos: Dividir Páginas / Mesclar Documentos / Exportar Seleção em vários formatos (PDF/TXT/DOC/HTML...) / Converter em Lote para PDF...

✏ Edição de Corpo: Localizar e Substituir em Lote em múltiplos arquivos / Redimensionar todas as Imagens / Transpor Linhas e Colunas de Tabela / Converter Tabela para Texto...

🧹 Limpeza Fácil: Elimine Espaços Extras / Quebras de Seção / Caixas de Texto / Hiperlinks / Para mais ferramentas de Remover, acesse o grupo Remover...

➕ Inserções Criativas: Inserir Delimitadores de Milhares / Caixas de Seleção / Botões de Rádio / Código QR / Código de Barras / Múltiplas Imagens / Descubra mais no grupo Inserir...

🔍 Seleções Precisas: Localize Páginas Específicas / Tabelas / Formas / Parágrafos de Título / Melhore a navegação com mais recursos de Selecionar...

⭐ Melhorias Destacadas: Navegue para qualquer Intervalo / Insira Texto Repetitivo automaticamente / Alternar entre Janelas de Documento /11 ferramentas de Conversão...

🌍 Compatível com40+ Idiomas: Use Kutools no seu idioma preferido — compatível com Inglês, Espanhol, Alemão, Francês, Chinês e mais de40 outros!

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

Download Gratuito     Comprar Agora     Saiba Mais sobre o Kutools for Word

 

✨ Kutools for Office – Uma Instalação, Cinco Ferramentas Poderosas!

Inclui Office Tab Pro · Kutools para Excel · Kutools para Outlook · Kutools for Word · Kutools for PowerPoint

📦 Tenha todas as5 ferramentas em uma única suíte | 🔗 Integração perfeita com o Microsoft Office | ⚡ Economize Tempo e aumente a produtividade imediatamente

⬇️ Baixar Agora 🎁 Comprar a Suíte Completa 📖 Saiba Mais

Melhores Ferramentas de Produtividade para Office

Kutools for Word – 100+ ferramentas para Word

• 🤖 Funcionalidades de IA do Kutools: AI Assistant / 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 Corpo: Localizar e Substituir em Lote / Redimensionar todas as Imagens
• 🧹 Limpeza Fácil: Remover Espaços Extras / Remover Quebras de Seção
• ➕ Inserções Criativas: Inserir Delimitadores de Milhares / Inserir Caixas de Seleção / Criar Códigos QR
• 🌍 Compatível com40+ Idiomas: Kutools fala o seu idioma – compatível com mais de40 idiomas!

Download Gratuito Comprar Agora Saiba Mais sobre o Kutools