Note: The other languages of the website are Google-translated. Back to English

Como dividir o documento em vários documentos no Word?

Se você tiver um grande documento do Word que precisa ser dividido em vários documentos, reserve alguns minutos para ler este tutorial. Este tutorial mostrará dois métodos para dividir um documento em vários documentos.


Divida o documento do Word por delimitador especificado com VBA

Em vez de dividir o documento em vários documentos manualmente, este método apresentará um VBA para dividir um documento do Word pelo delimitador especificado no Word. Faça o seguinte:

1. pressione Alt + F11 teclas juntas para abrir a janela do Microsoft Visual Basic for Application;

2. Clique inserção > Móduloe, a seguir, cole o código VBA na nova janela de abertura do Módulo.

VBA: Dividir Documento do Word em Vários Documentos por Delimitador

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. Então clique Opere ou pressione a tecla F5 para aplicar o VBA.

4. No documento do Microsoft Word aberto, clique no botão Sim para prosseguir.

NOTA
(1) Certifique-se de adicionar seu delimitador da mesma forma que "///" no subteste ao documento entre cada seção do texto que você deseja separar. Além disso, você pode mudar "///" a quaisquer delimitadores para atender às suas necessidades.
(2) Você pode alterar os documentos "Notas" no sub Teste para atender às suas necessidades.
(3) E os documentos de divisão serão salvos no mesmo local com o arquivo original.
(4) Você não precisa adicionar um delimitador ao final do arquivo original; se o fizer, haverá um documento em branco após a divisão.

Divida o documento do Word por página com o VBA

Aqui está outro VBA para ajudá-lo a dividir rapidamente um documento do Word em vários por página no Word. Faça o seguinte:

1. pressione Alt + F11 teclas juntas para abrir a janela do Microsoft Visual Basic for Application;

2. Clique inserção > Móduloe, a seguir, cole o código VBA na nova janela de abertura do Módulo.

VBA: Divida o Documento em Vários Documentos por Página no Word

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 _
(the one currently containing the Selection)
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 (there won't be a 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. Então clique Opere ou pressione F5 chave para aplicar o VBA.

NOTA Os documentos de divisão serão salvos no mesmo local com o arquivo original.


Divida o documento do Word por título / página / quebra de seção / quebra de página usando o Kutools para Word

Se você tiver o Kutools for Word instalado, você pode aplicar seu Split função para dividir facilmente um documento em vários por página, título, quebra de seção ou quebra de página, conforme necessário no Word.

Kutools for Word é um complemento útil para facilitar seu trabalho e aprimorar sua capacidade de processamento de documentos do Word. Teste Gratuito para 60 dias! Obtê-lo agora!

1.Clique Kutools Plus > Split para habilitar o Split recurso.

2. Na caixa de diálogo de abertura Dividir na tela, você pode fazer o seguinte:

(1) Escolha a forma de divisão do Dividido por lista suspensa.
Este recurso oferece suporte a 6 formas de divisão: título 1, quebras de página, quebras de seção, páginas, a cada n páginas e intervalos de páginas personalizados, conforme a captura de tela abaixo:

(2) Clique no Procurar botão  especificar a pasta de destino na qual você salvará os documentos divididos;

(3) Digite uma palavra-chave como prefixo de novos nomes de documentos no Prefixo do Documento caixa.

Dicas:
(1) Se você especificar a divisão do documento atual por A cada n páginas, você precisa especificar o número no A cada n páginas caixa;

(2) Se você especificar a divisão do documento atual por intervalos de páginas personalizados, será necessário inserir esses intervalos de páginas personalizados separados por vírgulas no Página caixa, por exemplo, digite 1, 3-5, 12 na caixa.

3. Clique no Ok botão para iniciar a divisão.

Em seguida, o documento atual é dividido pela forma de divisão especificada e novos documentos serão salvos na pasta de destino em massa.

Navegação com guias e edição de vários documentos do Word como Firefox, Chrome, Internet Explore 10!

Você pode estar familiarizado com a visualização de várias páginas da web no Firefox / Chrome / IE e alternar entre elas clicando nas guias correspondentes facilmente. Aqui, o Office Tab oferece suporte a processamento semelhante, o que permite que você navegue por vários documentos do Word em uma janela do Word e alterne facilmente entre eles clicando em suas guias. Clique para testar todos os recursos gratuitamente!
Navegue por documentos com várias palavras em uma janela como o Firefox


Artigos relativos:



Ferramentas de produtividade de palavras recomendadas

 

Kutools para Word - Mais de 100 recursos avançados para Word, economize 50% do tempo

  • Operações complicadas e repetidas podem ser executadas com processamento único em segundos.
  • Insira várias imagens em pastas em um documento do Word de uma vez.
  • Mescle e combine vários arquivos do Word em pastas em um na ordem desejada.
  • Divida o documento atual em documentos separados de acordo com o título, quebra de seção ou outros critérios.
  • Converta arquivos entre Doc e Docx, Docx e PDF, coleção de ferramentas para conversões e seleção comuns, e assim por diante ...
Comentários (45)
Ainda não há classificações. Seja o primeiro a avaliar!
Este comentário foi feito pelo moderador no site
Quando tento dividir o documento do Word usando o código VB acima, é dividido removendo todas as imagens e objetos inseridos.
Este comentário foi feito pelo moderador no site
Estou com um problema parecido com o do Dhamo. Comecei com um arquivo grande com muitos controles de conteúdo incorporados. Quando eu divido meu arquivo do Word usando o código VB, os controles de conteúdo foram todos convertidos em texto normal. Existe alguma maneira de dividir um arquivo sem perder a formatação do original?
Este comentário foi feito pelo moderador no site
Olá. Como posso dividir .doc não uma página por documento usando esses scripts? Por exemplo, 10 ou 5 páginas por documento
Este comentário foi feito pelo moderador no site
Prezada equipe, o VBA para dividir o documento em vários documentos de página única está funcionando bem, mas o problema é que os documentos divididos não têm os formatos de tabela. (os formatos de tabela no documento mestre não são formatados como tabela em documentos divididos). Obrigado antecipadamente se eu puder obter as macros, para que os formatos tabulares no documento mestre não sejam perturbados em documentos divididos
Este comentário foi feito pelo moderador no site
Muito útil obrigado! Meu documento original tinha o conjunto 'somente leitura'. Isso não está sendo transferido para os novos documentos. Isso é possível adicionar?
Este comentário foi feito pelo moderador no site
Kutools for Word não funciona para documentos somente leitura.
Este comentário foi feito pelo moderador no site
Infelizmente, não consigo dividir páginas com Kutools. O que eu posso fazer? Recebo esta mensagem de erro: Informationen über das Aufrufen von JIT-Debuggen anstelle dieses Dialogfelds finden Sie am Ende dieser Meldung. ************** Ausnahmetext ************** System.NotSupportedException: Das angegebene Pfadformat wird nicht unterstützt. seja System.Security.Util.StringExpressionSet.CanonicalizePath(String path, Boolean needFullPath) seja System.Security.Util.StringExpressionSet.CreateListFromExpressions(String[] str, Boolean needFullPath) seja System.Security.Permissions.FileIOPermission.AddPathList(FileIOPermissionAccess access, AccessControlActions control, String[] pathListOrig, Boolean checkForDuplicates, Boolean needFullPath, Boolean copyPathList) em System.Security.Permissions.FileIOPermission..ctor(FileIOPermissionAccess access, String[] pathList, Boolean checkForDuplicates, Boolean needFullPath) em System.IO.Directory. InternalCreateDirectoryHelper(String path, Boolean checkHost) seja System.IO.Directory.CreateDirectory(String path) seja Kutools.FormDocumentSplit.€ () seja Kutools.FormDocumentSplit.› (Object “ , EventArgs ” ) seja System.Windows.Forms.Control. OnClick(EventArgs e) em System.Windows.Forms.Button.OnClick(EventArgs e) em System.Windows.Forms.Button.OnMouseUp(MouseEventArgs mevent) em System.Windows.F orms.Control.WmMouseUp(Message& m, botão MouseButtons, cliques Int32) como System.Windows.Forms.Control.WndProc(Message& m) como System.Windows.Forms.ButtonBase.WndProc(Message& m) como System.Windows.Forms. Button.WndProc(Message& m) em System.Windows.Forms.Control.ControlNativeWindow.OnMessage(Message& m) em System.Windows.Forms.Control.ControlNativeWindow.WndProc(Message& m) em System.Windows.Forms.NativeWindow.Callback( IntPtr hWnd, Int32 msg, IntPtr wparam, IntPtr lparam)
Este comentário foi feito pelo moderador no site
Demasiado difícil para um pensionista compreender o que aconteceu com a velha maneira que as janelas sete que o programa era tão fácil para nós, os mais velhos, seguir.
Este comentário foi feito pelo moderador no site
Sua macro funciona REALMENTE bem, no entanto, exijo que os documentos divididos mantenham suas margens estreitas e o layout de duas colunas. Mais por sorte do que por julgamento(!), consegui fazer isso manualmente e o resultado final foi exatamente o que eu precisava. Em seguida, usei o gravador de macro, mas não tenho conhecimento do Word VBA para alterar o código gravado para conseguir isso. Você pode ajudar? Desde já, obrigado!
Este comentário foi feito pelo moderador no site
Eu tentei o primeiro código de documento dividido e não funcionou. Ele disse que estava dividindo-o em três seções, mas não o fez.
Este comentário foi feito pelo moderador no site
O primeiro VBA dividirá o documento atual pelo delimitador "///". Você adicionou o delimitador de divisão "///" em seu documento?
Este comentário foi feito pelo moderador no site
Esquece, tentei várias vezes com os números das letras, que não funcionou, depois vi que apagou meus comentários. Só para notar que o primeiro código não funcionou para mim, ele disse que estava quebrando o documento em três seções, mas não funcionou.
Este comentário foi feito pelo moderador no site
Alguém sabe como mudar o nome dos arquivos depois de dividir o principal eu quero mudar os nomes de acordo com o Header do arquivo
Este comentário foi feito pelo moderador no site
Eu fiz o código VBA: divida o documento em vários documentos de acordo com o delimitador, ele divide o documento mas infelizmente os gráficos são deletados, também a formatação. Existe uma solução para isso?
Este comentário foi feito pelo moderador no site
Obrigado pelo código macro
Este comentário foi feito pelo moderador no site
Obrigado, isso foi muito útil!
Este comentário foi feito pelo moderador no site
Você acabou de me poupar um monte de tempo, obrigado!
Este comentário foi feito pelo moderador no site
Obrigado !

Uma pergunta Você tem alguma idéia de salvar todos os documentos divididos em PDF?
Este comentário foi feito pelo moderador no site
Eu usei o código da seção "Dividir documento do Word por página com VBA". Funcionou para dividir os documentos, mas estragou a formatação - fazendo com que o que deveria estar em 2 páginas estivesse em 5. Eu brinquei com o código e acabei encontrando uma solução.


Substituí esta linha: docSingle.Range.Paste 'cola o conteúdo da área de transferência no novo documento

com esta linha: docSingle.Range.PasteAndFormat (wdFormatOriginalFormatting)

Espero que isso ajude alguns de vocês que tiveram problemas de formatação.
Este comentário foi feito pelo moderador no site
Eu usei o código da seção "Dividir documento do Word por página com VBA". Como devo alterar o código para manter o cabeçalho original em todos os novos arquivos?
Este comentário foi feito pelo moderador no site
como complementos de mesclagem individuais
Este comentário foi feito pelo moderador no site
O recurso Dividir (Documento) do Kutools for Word pode ajudar os usuários a dividir um documento do Word pelo título 1, quebra de página, quebra de seção ou página.
Além disso, Kutools for Word também inclui recurso de mesclagem para mesclar vários documentos do Word em um.
Este comentário foi feito pelo moderador no site
eu preciso dividir o documento usando o intervalo de páginas. por exemplo, eu queria dividir 1 a 10 páginas em outro documento. como posso fazer isso
Este comentário foi feito pelo moderador no site
Oi - eu tenho esta mesma pergunta, alguma maneira de fazer isso?
Este comentário foi feito pelo moderador no site
Você pode dividir o documento com base nos estilos do Título 1 como seu "delimitador".
Este comentário foi feito pelo moderador no site
Oi Andrew,
O script VBA pode dividir todo o documento por página. Se você precisar dividir pelo título 1, sugerimos experimentar o recurso Dividir (Documento) do Kutools for Word.
Este comentário foi feito pelo moderador no site
O fodler baixado não abre de jeito nenhum. Esperando por um longo tempo.
Não há comentários postados aqui ainda
carregar mais
Deixe o seu comentário
Postando como convidado
×
Avalie esta postagem:
0   Personagens
Locais sugeridos

Siga-nos

Copyright © 2009 - www.extendoffice.com. | Todos os direitos reservados. Distribuído por ExtendOffice. | | | Mapa do site
Microsoft e o logotipo do Office são marcas comerciais ou marcas registradas da Microsoft Corporation nos Estados Unidos e / ou em outros países.
Protegido por Sectigo SSL