KutoolsforOffice — Uma solução, cinco ferramentas poderosas.Fazer mais com menos esforço.

Como dividir um documento do Word em ficheiros separados a cada 5 ou n páginas?

AutorXiaoyang Data de Modificação

Ao trabalhar com documentos extensos do Word, poderá precisar de os dividir em ficheiros mais pequenos e separados para facilitar a manipulação, partilha ou edição. Dividir o documento a cada 5, 10 ou um número específico de páginas é uma solução prática para gerir conteúdos longos de forma mais eficiente.

Copiar e colar páginas manualmente, uma a uma, é moroso e ineficaz. Neste tutorial, apresentamos métodos rápidos e simples para dividir um documento do Word em ficheiros separados — a cada *n* páginas.

Divida um documento do Word em ficheiros separados A cada n páginas com código VBA

Divida um documento do Word em ficheiros separados A cada n páginas com uma funcionalidade extraordinária

Divida um documento do Word em ficheiros separados A cada n páginas com código VBA

Para dividir um documento extenso em ficheiros separados com base em “a cada n páginas”, o seguinte código VBA pode ajudá-lo. Siga estes passos:

  1. Mantenha premidas as teclas ALT + F11 para abrir a janela do Microsoft Visual Basic for Applications.
  2. Clique em Inserir>Móduloe copie e cole o seguinte código no módulo em branco:
    3. 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
  3. Após colar o código, ainda na janela do Microsoft Visual Basic for Applications, clique em Ferramentas > Referências. Na caixa de diálogo Referências - Projeto, assinale a opção Microsoft VBScript Regular Expressions 5,5 na lista de Referências Disponíveis. Veja as capturas de ecrã:
    Janela do VBA com Ferramentas > Referências selecionadasSetaMicrosoft VBScript Regular Expressions 5.5 marcado na caixa de diálogo Referências – Projeto
  4. Clique em OK e, de seguida, prima F5 para executar o código.
  5. Aparecerá uma caixa de diálogo Procurar Pasta. Selecione a pasta onde pretende guardar os ficheiros divididos e clique em OK.

    6. Caixa de diálogo Procurar Pasta

  6. Aparecerá outra caixa de diálogo a solicitar o número de páginas por que pretende dividir. Introduza o número pretendido e clique em OK.

    7. Caixa de diálogo para introduzir o número da página em que se baseia a divisão

  7. O documento será dividido em ficheiros separados a cada N páginas. Navegue até à pasta especificada para consultar os resultados.

    8. O documento é dividido em ficheiros separados a cada N páginas

Divida um documento do Word em ficheiros separados A cada n páginas com uma funcionalidade extraordinária

Kutools para Word disponibiliza uma poderosa funcionalidade Dividir que lhe permite dividir rapidamente um documento grande do Word em múltiplos ficheiros separados com base em Títulos 1, quebras de página, quebras de secção ou páginas. Esta funcionalidade simplifica um processo que, de outro modo, seria tedioso e manual.

Kutools para Word

O Kutools para Word ajuda-o a realizar tarefas diárias com documentos de forma mais rápida, graças a ferramentas práticas integradas diretamente no Microsoft Word — sem necessidade de programação nem configuração complexa.

  • Redação, aperfeiçoamento, tradução e resumo com IA
  • Localizar e Substituir em Lote em todos os documentos
  • Combine e divida documentos do Word facilmente
  • Conversão em lote entre Word ↔ PDF
TransferirSaber mais
  1. Clique em KUTOOLS PLUS>Dividir.

    Botão Dividir no separador Kutools na fita

  2. Na caixa de diálogo que aparece, configure as seguintes opções conforme necessário:
    1. Selecione a opção A cada n páginas no menu Dividir por.
    2. Especifique o valor n na caixa de entrada.
    3. Escolha uma área de salvamento.
    4. Especifique um prefixo para os documentos divididos.

      Caixa de diálogo Dividir Documento

  3. Após concluir as definições, clique em OK. O documento será dividido em vários ficheiros com base na opção selecionada (por exemplo, a cada 7 páginas).O documento é dividido em ficheiros separados a cada N páginas

Utilizar a funcionalidade Dividir no Kutools para Word torna a divisão de documentos extensos em ficheiros mais pequenos e geríveis simultaneamente simples e eficiente.

Procura uma forma mais rápida de lidar com tarefas semelhantes no Word? Experimente o Kutools para Word e simplifique o seu trabalho diário.

TransferirSaber mais

As Melhores Ferramentas de Produtividade para o Office

Kutools para Word – Potencie a sua experiência no Word com mais de 100 funcionalidades extraordinárias!

🤖Funcionalidades do KUTOOLS AI: 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 de Documentos: Dividir Páginas / Mesclar Documentos / Exportar Seleção em Vários Formatos (PDF, TXT, DOC, HTML...) / Conversão em Lote para PDF...

✏Edição de Conteúdos: Localizar e Substituir em Lote em Múltiplos Ficheiros / Redimensionar Todas as Imagens / Transpor Linhas e Colunas da Tabela / Converter Tabela em Texto...

🧹Limpeza sem Esforço: remova facilmente Espaços Extra, Quebras de Secção, Caixas de Texto e Hiperligações. Para mais ferramentas de remoção, aceda ao grupo Remover...

➕Inserções Criativas: Insira Separadores de Milhares, Caixa de Seleção, Botão de Rádio, Código QR, Código de Barras ou Múltiplas Imagens — descubra mais no grupo Inserir...

🔍Seleções Precisas: Selecione com precisão Páginas Específicas, Tabelas, Formas e Parágrafo de Título. Melhore a navegação com mais funcionalidades de seleçãofeatures ......

⭐Melhorias Estrela: Navegar para Qualquer Localização / Inserir Automaticamente Texto Repetitivo / Alternar entre Documentos do Windows / 11 Conversão Ferramentas de...

🌍Suporta mais de 40 idiomas: Utilize o Kutools na sua língua preferida – disponível em inglês, espanhol, alemão, francês, chinês e mais de 40 idiomas!

Kutools for Word separadores na fita
 
 

Office Tab– Traz a interface com separadores para o Office, tornando o seu trabalho muito mais fácil

  • Ative a edição e leitura com separadores no Word, Excel, PowerPoint, Publisher, Access, Visio e Project.
  • Abra e crie múltiplos documentos em novos separadores da mesma janela, em vez de em novas janelas.
  • Aumente a sua produtividade em 50 % e elimine centenas de cliques do rato por dia!

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

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

📦 Obtenha todas as 5 ferramentas num único conjunto | 🔗 Integração perfeita com o Microsoft Office | ⚡ Economizar Tempo e potencie imediatamente a produtividade

As Melhores Ferramentas de Produtividade para o Office

Kutools para Word– Ferramentas 100+ para o Word

Transferência GratuitaComprar AgoraSaber Mais sobre o Kutools