Skip to main content

Como dividir um Documento do Word em vários Documentos?

Author: Amanda Li Last Modified: 2025-06-04

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

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.

    Confirmation dialog

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.

Kutools para Word,equipado com IA 🤖, oferece mais de 100 recursos práticos para simplificar suas tarefas.
  1. Clique em Kutools Plus > Dividir para ativar o recurso Dividir.

    Split option on the Kutools Plus tab on the ribbon

  2. Na caixa de diálogo Dividir Documento, configure as seguintes opções:
    Kutools Split Document dialog box
    1. 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.

      Split by options

    2. Clique no Procurar botão Path selection button para selecionar uma pasta de destino para os documentos divididos.
    3. Digite uma palavra-chave como prefixo para os novos nomes dos documentos no Prefixo do Documento campo. Dica: Ao clicar no Atualizar botão Refresh button é possível pré-visualizar os nomes dos documentos divididos na Pré-visualização caixa.
    4. Clique em Ok.

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.

    Split by Every n pages

  • Para intervalos de páginas personalizados, insira-os separados por vírgulas (ex.:1,3-5,12).

    Custom Page Ranges

Kutools para Word é o complemento definitivo para o Word que simplifica seu trabalho e aprimora suas habilidades de processamento de documentos. Adquira agora!

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!

Browse multiple word documents in one window just like in Chrome


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.

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

Kutools and Kutools Plus tabs on the Word Ribbon
👉 Quer experimentar esses recursos? Baixe o Kutools para Word agora! 🚀
 

Melhores Ferramentas de Produtividade para Office

Kutools para Word – 100+ Ferramentas para Word