Consejo: Otros idiomas son traducidos por Google. Puedes visitar el English versión de este enlace.
Iniciar sesión
x
or
x
x
Suscríbete
x

or

¿Cómo dividir el documento en varios documentos en Word?

Si tiene un documento de Word masivo que necesita dividir en varios documentos, tómese unos minutos para leer este tutorial. Este tutorial le mostrará dos métodos para dividir un documento en múltiples documentos.

Dividir documento de Word por delimitador especificado con VBA

Dividir Word documento por página con VBA

Dividir documento de Word por encabezado / página / salto de sección / salto de página con el uso de Kutools para Word

¡Divida fácilmente un documento de Word en varios por página, sección / salto de página o encabezado a la vez!

Comparando y dividiendo un documento de Word copiando y pegando, Kutools for Word facilitará su trabajo y mejorará la eficiencia de su trabajo de forma espectacular mediante su función Split, que puede dividir rápidamente el documento de Word de apertura actual en varios por página, por salto de sección, por página romper, o por rumbo 1 como sea necesario. ¡Haz clic para la versión de prueba gratuita de 60 días!
anuncios divididos por página

Kutools for Word: Agregar 100 Nuevas funciones avanzadas a la palabra 2003 / 2007 / 2010 / 2013 / 2016 / 2019.
Office Tab: Habilitar Edición con pestañas y navegación en Office, Al igual que Chrome, Firefox, IE 8 / 9 / 10.
Classic Menu for Office: Devuelve el aspecto antiguo de Office 2003 Volver a Office 2007, 2010, 2013, 2016 y 2019.

flecha azul burbuja derecha Dividir documento de Word por delimitador especificado con VBA

En lugar de dividir el documento en varios documentos manualmente, este método introducirá un VBA para dividir un documento de Word por el delimitador especificado en Word. Por favor haz lo siguiente:

1. prensa Alt + F11 teclas juntas para abrir la ventana Microsoft Visual Basic para Aplicación;

2. Hacer clic recuadro > Móduloy pegue debajo del código VBA en la nueva ventana del Módulo de apertura.

VBA: divide el documento de Word en varios documentos por Delimiter

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. Luego haga clic corrida o presione la tecla F5 para aplicar el VBA.

4. En el documento emergente de Microsoft Word, haga clic en el botón Sí para continuar.

Nota:
(1) Asegúrese de agregar su delimitador como el mismo "///" en la prueba secundaria del documento entre cada sección de texto que desea separar. Además, puedes cambiar "///" a cualquier delimitador para satisfacer su necesidad.
(2) Puede cambiar los documentos "Notas" en la prueba secundaria para satisfacer sus necesidades.
(3) Y los documentos de división se guardarán en el mismo lugar con el archivo original.
(4) No necesita agregar delimitador al final del archivo original, si lo hace, habrá un documento en blanco después de la división.


flecha azul burbuja derecha Dividir Word documento por página con VBA

Aquí hay otro VBA para ayudarlo a dividir rápidamente un documento de Word en múltiples páginas en Word. Por favor haz lo siguiente:

1. prensa Alt + F11 teclas juntas para abrir la ventana Microsoft Visual Basic para Aplicación;

2. Hacer clic recuadro > Móduloy pegue debajo del código VBA en la nueva ventana del Módulo de apertura.

VBA: divide el documento en varios documentos por página en 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. Luego haga clic corrida botón o prensa F5 clave para aplicar el VBA.

Nota: Los documentos de división se guardarán en el mismo lugar con el archivo original.


flecha azul burbuja derecha Dividir documento de Word por encabezado / página / salto de sección / salto de página con el uso de Kutools para Word

Si tiene Kutools for Word instalado, puede aplicar su Mini Split función para dividir fácilmente un documento en varios por página, título, salto de sección o salto de página según lo necesite en Word.

Kutools for Word es un complemento útil para facilitar su trabajo y mejorar su capacidad para procesar documentos de Word. ¡Prueba gratis para los días 45! ¡Consiguelo ahora!

1. Hacer clic Kutools Más > Mini Split para habilitar la función de división.
doc dividir documentos en 001

2. En el diálogo de apertura de división en la pantalla, por favor 1 especifique la carpeta de destino donde guardará los documentos divididos, 2 verifique los criterios por los que se dividirá Dividir por lista desplegable y (3) haga clic en OK botón. Ver captura de pantalla:

Y ahora el documento actual de Word está dividido por los criterios especificados (Título 1 en mi caso), y la carpeta de destino se abre automáticamente con los documentos divididos. Ver captura de pantalla:
doc dividir documentos en 002

Nota: Esta fantástica función Split también admite dividir un documento de Word por página, por salto de página y por salto de sección fácilmente en Word. Vea las capturas de pantalla a continuación:

Divida un documento de Word en varios por página:

Dividir un documento de Word en varios por salto de página:

Dividir un documento de Word en varios por salto de sección:

Tabbed navegación y edición de múltiples documentos de Word como Firefox, Chrome, Internet Explore 10!

Es posible que esté familiarizado con la vista de múltiples páginas web en Firefox / Chrome / IE, y cambie entre ellas haciendo clic en las pestañas correspondientes fácilmente. Aquí, Office Tab admite un procesamiento similar, que le permite navegar por múltiples documentos de Word en una ventana de Word, y cambiar fácilmente entre ellos haciendo clic en sus pestañas. Haga clic para obtener todas las funciones de prueba gratuita!
Buscar documentos de varias palabras en una ventana como Firefox


flecha azul burbuja derechaArtículos relativos:

Combinar documentos múltiples y mantener el formato en word




Kutools for Word

Más que 100 Funciones avanzadas para Word 2003, 2007, 2010, 2013, 2016 y 2019

shot-kutools-700-225-kte

Más características | Descargar libre | Solo $ 39.00 para cientos de funciones

Say something here...
symbols left.
You are guest ( Sign Up? )
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.
  • To post as a guest, your comment is unpublished.
    raid3n06 · 1 years ago
    like individual merge add ons
    • To post as a guest, your comment is unpublished.
      kelly001 · 1 years ago
      The Split (Document) feature of Kutools for Word can help users to split a Word document by heading 1, page break, section break, or page.
      In addition, Kutools for Word also includes Merge feature to merge multiple Word documents into one.
  • To post as a guest, your comment is unpublished.
    Jason · 1 years ago
    I used the code from the "Split Word Document By Page With VBA" section. How should I amend the code in order to maintain the original header in all of the new files?
  • To post as a guest, your comment is unpublished.
    Erica · 1 years ago
    I used the code from the "Split Word Document By Page With VBA" section. It worked to split the documents out but messed up the formatting - causing what should have been on 2 pages to be on 5 instead. I played around with the code and ended up finding a solution.


    I replaced this line: docSingle.Range.Paste 'paste the clipboard contents to the new document

    with this line: docSingle.Range.PasteAndFormat (wdFormatOriginalFormatting)

    Hope this helps some of you who've had formatting issues.
  • To post as a guest, your comment is unpublished.
    Michal · 1 years ago
    Thanks !

    One question do You have any idea to save all the split documents into PDF ?
  • To post as a guest, your comment is unpublished.
    Tjebbe · 1 years ago
    You just saved me a Sh*t load of time, thanks!