Como dividir um documento do Word em arquivos separados a cada 5 ou n páginas?
Ao trabalhar com documentos grandes no Word, pode ser necessário dividir o documento em arquivos menores e separados para facilitar o manuseio, compartilhamento ou edição. Dividir o documento a cada 5, 10 ou um número específico de páginas pode ser uma solução prática para gerenciar conteúdo extenso de forma mais eficiente.
Copiar e colar manualmente as páginas uma por uma é demorado e ineficiente. Neste tutorial, apresentaremos métodos rápidos e fáceis para dividir um documento do Word em arquivos separados a cada N páginas:
Divida um documento do Word em arquivos separados a cada N páginas com código VBA
Divida um documento do Word em arquivos separados a cada N páginas com um recurso incrível
Divida um documento do Word em arquivos separados a cada N páginas com código VBA
Para dividir um documento grande em arquivos separados com base a cada N páginas, o seguinte código VBA pode ajudá-lo. Siga estas etapas:
- Pressione ALT + F11 para abrir a janela Microsoft Visual Basic for Applications.
- Clique em Inserir > Módulo, e copie e cole o seguinte código no módulo em branco:
- Depois de colar o código, ainda na janela Microsoft Visual Basic for Applications clique em Ferramentas > Referências. Na Referências - Projeto caixa de diálogo, marque a opção Microsoft VBScript Regular Expressions 5.5 da lista de Referências Disponíveis Veja as capturas de tela:
- Clique em OK, depois pressione F5 para executar o código.
- Uma caixa de diálogo Procurar Pasta aparecerá. Selecione a pasta onde deseja salvar os arquivos divididos e clique em OK.
- Outro prompt aparecerá perguntando o número de páginas que você deseja usar para dividir. Insira o número desejado de páginas e clique em OK.
- O documento será dividido em arquivos separados a cada N páginas. Navegue até a pasta especificada para visualizar os resultados.
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
Divida um documento do Word em arquivos separados a cada N páginas com um recurso incrível
Kutools for Word oferece uma poderosa função Dividir que permite dividir rapidamente um grande documento do Word em vários arquivos separados com base em Título 1, quebras de página, quebras de seção ou páginas. Esse recurso simplifica o que seria um processo manual tedioso.
- Clique em Kutools Plus > Dividir.
- Na caixa de diálogo que aparece, configure as seguintes opções conforme necessário:
- Selecione a opção A cada n páginas no menu Dividir por.
- Especifique o valor de n na caixa de entrada.
- Escolha um local para salvar.
- Especifique um prefixo para os documentos divididos.
- Após concluir as configurações, clique em OK. O documento será dividido em vários arquivos com base na opção selecionada (por exemplo, a cada 7 páginas).
Usar o recurso Dividir no Kutools for Word torna a divisão de documentos grandes em arquivos menores e gerenciáveis algo simples e eficiente.
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!
✨ 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
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!