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

¿Cómo dividir un documento de Word y guardarlo como un archivo PDF separado?

En Word, puede guardar todo el documento en un archivo PDF, pero ¿alguna vez ha intentado dividir el documento y luego guardar las páginas como un archivo PDF separado? En este artículo, presentaré los métodos para resolver este trabajo rápidamente.

Divida un documento de Word y guárdelo como un archivo PDF separado con VBA

Dividir un documento de Word para separar archivos por páginas/título1/descanso y luego guardar como PDF


Divida un documento de Word y guárdelo como un archivo PDF separado con VBA

Aquí, el código VBA puede ayudarlo a dividir directamente un documento de Word por páginas y luego guardarlo como archivos PDF separados.

1. Prensa Alt + F11 claves para habilitar Microsoft Visual Basic para aplicaciones ventana.

2. Hacer clic en recuadro > Módulo, copie y pegue el siguiente código en el Módulo ventana.

VBA: guarde Word como PDF separado

Sub SaveAsSeparatePDFs()
'UpdatebyExtendoffice20181120
    Dim I As Long
    Dim xDlg As FileDialog
    Dim xFolder As Variant
    Dim xStart, xEnd As Integer
    On Error GoTo lbl
    Set xDlg = Application.FileDialog(msoFileDialogFolderPicker)
    If xDlg.Show <> -1 Then Exit Sub
    xFolder = xDlg.SelectedItems(1)
    xStart = CInt(InputBox("Start Page", "KuTools for Word"))
    xEnd = CInt(InputBox("End Page:", "KuTools for Word"))
    If xStart <= xEnd Then
        For I = xStart To xEnd
            ActiveDocument.ExportAsFixedFormat OutputFileName:= _
                xFolder & "\Page_" & I & ".pdf", ExportFormat:=wdExportFormatPDF, _
                OpenAfterExport:=False, OptimizeFor:=wdExportOptimizeForPrint, Range:= _
                wdExportFromTo, From:=I, To:=I, Item:=wdExportDocumentContent, _
                IncludeDocProps:=False, KeepIRM:=False, CreateBookmarks:= _
                wdExportCreateHeadingBookmarks, DocStructureTags:=True, _
                BitmapMissingFonts:=False, UseISO19005_1:=False
        Next
    End If
    Exit Sub
lbl:
    MsgBox "Enter right page number", vbInformation, "KuTools for Word"
End Sub

3. Prensa F5 , en el cuadro de diálogo Examinar, seleccione una carpeta para colocar los archivos PDF.
doc split guardar pdf 1

4. Hacer clic en OK, luego ingrese los números de página que desea dividir al principio y al final.

doc split guardar pdf 2 doc split guardar pdf 3

5. Hacer clic en OK. Ahora las páginas se han guardado como archivos PDF separados.
doc split guardar pdf 4


Dividir un documento de Word para separar archivos por páginas/título1/descanso y luego guardar como PDF

Si no está familiarizado con el código VBA, puede intentar usar una herramienta complementaria: Kutools for Word, su Mini Split La función puede ayudarlo a dividir un documento de Word en páginas según los saltos de página, los números de página, el encabezado 1, los saltos de sección, cada página enésima y el número de página personalizado que especifique, luego aplique el Convertidor de formato de documento para convertir por lotes los documentos de Word divididos a PDF.

Kutools for Word, con más de
100
 funciones prácticas, facilita su trabajo. 

Después de instalar Kutools para Word, haga lo siguiente:(¡Descarga gratis Kutools para Word ahora!)

1. Habilite el documento de Word que desea convertir para dividir, haga clic en Kutools Más > Mini Split.
doc guardar como pdf 2

2. En el Documento dividido cuadro de diálogo, elija la regla de división que necesite en la sección Dividir por. A continuación, especifique la ubicación de guardado y el prefijo del archivo del documento dividido. Hacer clic Ok.

En primera Dividido por sección, proporciona 6 tipos de división para usted. Para obtener más detalles sobre cada tipo de división, visite el introducción de características.

Ahora los documentos divididos se han guardado en la ubicación especificada.

3. Después de dividir el documento, haga clic en Kutools Más > Doc / Docx.

4. En el Convertidor de formato de documento diálogo, elegir Convertir Docx a PDF formulario Convertidor de formato lista desplegable, haga clic en el signo más para agregar archivos o carpetas que contengan los documentos que desea convertir a PDF, luego especifique otras configuraciones según sea necesario (de forma predeterminada, guarda los archivos PDF en la carpeta de origen, puede cambiarla ). Hacer clic Ok.

Ahora los documentos de Word se han convertido a archivos PDF.


Navegación con pestañas y edición de varios documentos de Word / libros de trabajo de Excel como Firefox, Chrome, Internet Explore 10.

Es posible que esté familiarizado con ver varias páginas web en Firefox / Chrome / IE y cambiar entre ellas haciendo clic fácilmente en las pestañas correspondientes. Aquí, Office Tab admite un procesamiento similar, que le permite examinar varios documentos de Word o libros de trabajo de Excel en una ventana de Word o de Excel, y cambiar fácilmente entre ellos haciendo clic en sus pestañas.
¡Haga clic para obtener una prueba gratuita de Office Tab!

Explore varios documentos de Word en una ventana como Firefox

Herramientas de productividad de palabras recomendadas

 

Kutools para Word: más de 100 funciones avanzadas para Word, ahorre su 50% de tiempo

  • Las operaciones complicadas y repetidas se pueden realizar un solo procesamiento en segundos.
  • Inserte varias imágenes en carpetas en un documento de Word a la vez.
  • Fusiona y combina varios archivos de Word en carpetas en uno con el orden que desees.
  • Divida el documento actual en documentos separados según el encabezado, el salto de sección u otros criterios.
  • Convierta archivos entre Doc y Docx, Docx y PDF, colección de herramientas para conversiones y selección comunes, etc.

 

Comentarios (23)
Aún no hay calificaciones. ¡Sé el primero en calificar!
Este comentario fue minimizado por el moderador en el sitio
El código VBA no funciona. Sigue diciendo "ingrese el número de página correcto. El documento de Word tiene 3 páginas. Agregué 1 y 3 en los cuadros de mensajes y obtuve el error.
Este comentario fue minimizado por el moderador en el sitio
Hola Nico, volví a probar el código, funciona en mi versión windows 10 64 2016, que versión usas?
Este comentario fue minimizado por el moderador en el sitio
nicou debe ingresar las páginas que desea convertir... es decir, 1 (en la primera pantalla de aviso) y luego en la segunda pantalla de aviso. eso es lo que hice y el código funcionaba maravillosamente. Gracias Sunny por este compartir
Este comentario fue minimizado por el moderador en el sitio
¿Hay alguna forma de nombrar los archivos a partir del texto del documento en lugar de la página 1, la página 2, etc.?
Este comentario fue minimizado por el moderador en el sitio
Lo siento, no tengo idea.
Este comentario fue minimizado por el moderador en el sitio
Si alguien puede ayudar con esto... Creo que necesito hacer lo mismo... CASO DE USO: Tengo un documento de Word con 100 páginas. Cada página es el resultado de una combinación de correspondencia, por lo que todas las páginas son idénticas excepto por unas pocas palabras. La parte superior de cada página dice: "Estimado " dónde se reemplaza con un nombre diferente en cada página. ej:- Dear Becky- Dear Nico- Dear Sunny- Dear jgall7804
Actualmente, este código genera archivos como:
- Página_1.pdf- Página_2.pdf- Página_3.pdf
Sé que puedo cambiar la línea 16 donde dice "\Page_" para decir "\Foo_"... así que la salida sería
- Foo_1.pdf- Foo_2.pdf
Pero estoy preguntando (y jgall7804, e Ines, y otros)... si alguien con mejores/más inteligentes habilidades de VBA puede escribir el código que generará como:- becky.pdf- nico.pdf- sunnny.pdf- jgall7804. pdf
es decir, busque la segunda palabra (o la primera palabra o la décima palabra) en cada página y use esa palabra como nombre del archivo.
Alguien tiene alguna idea?
Este comentario fue minimizado por el moderador en el sitio
Podrías hacer esto usando la función REN si abres el CMD en la carpeta con los documentos guardados
Este comentario fue minimizado por el moderador en el sitio
Dios mío, me salvaste la vida. Siempre necesito combinar letras en Word y luego guardar cada una individualmente en PDF. ¡Mis últimas 40 letras fueron tan rápidas! :)
Este comentario fue minimizado por el moderador en el sitio
En lugar de guardar cada página como un documento separado, ¿cómo obtengo el código para guardar cada 2 o 3 páginas como un documento separado?
Este comentario fue minimizado por el moderador en el sitio
No puedo encontrar el código para manejar su trabajo ahora. Pruebe Kutools for Word, es gratis para usar en días 60
Este comentario fue minimizado por el moderador en el sitio
Explique amablemente: (Cambiar el nombre del documento) Puede hacer esto usando la función REN si abre el CMD en la carpeta con los documentos guardados, y también 2 páginas de documentos en un pdf
Este comentario fue minimizado por el moderador en el sitio
Pude dividir el documento, necesito orientación si quiero guardar el documento con un nombre individual
Este comentario fue minimizado por el moderador en el sitio
¿Existe también la posibilidad de guardar los archivos? no como página 1 o página 2, pero con un nombre basado en el contenido de la página?
Este comentario fue minimizado por el moderador en el sitio
Hola, cuando hago clic en Aceptar, la pantalla desaparece pero no se guarda nada. ¿Hay alguna otra configuración que deba habilitar en alguna parte?
Además, el guardado va a mi carpeta local de One Drive, si eso puede ser un problema. Gracias.
Este comentario fue minimizado por el moderador en el sitio
Consejo muy útil y fácil de usar. Me ahorro mucho tiempo. Muchas gracias.
Este comentario fue minimizado por el moderador en el sitio
Hola,
¿Es posible cambiar el módulo para fraccionar el archivo de Word en PDF con 24 páginas?

Merci de votre aide
Este comentario fue minimizado por el moderador en el sitio
Hola, TEILLET, puede aplicar Kutools para la función Documento dividido de Word y elegir cada n páginas en la sección Dividir por, luego escriba 24 en el cuadro de texto Cada n páginas, especifique otras configuraciones, luego haga clic en Aceptar, cada 24 páginas se separarán como una solo documento. Luego aplique Debe probar la función Doc / Docx de Kutools para Excel, y elegir Convertir Docx a PDF en la sección Convertir formato, y elegir una ubicación para guardar, haga clic en Aceptar, ahora cada 24 páginas se han guardado como PDF.
Hemos actualizado las funciones en Kutools for Word, pero este artículo no se ha actualizado, por lo que las capturas de pantalla son antiguas. Actualizaremos los contenidos pronto, puedes seguir los pasos para lograrlo.


Kutools for Word es gratis en 60 días, puede encontrar una herramienta más útil. Descargar gratis
Este comentario fue minimizado por el moderador en el sitio
Hola,

Este código divide la combinación de correspondencia en PDF individuales. Pero necesito dividir las primeras 2 páginas como un documento. Significa que si hay 12 páginas, necesito 6 documentos PDF. Un conjunto de 2 en un archivo PDF. En este momento, este código lo divide en 12 archivos individuales. Por favor, indique qué debo cambiar en el código.
Este comentario fue minimizado por el moderador en el sitio
Hola, SAROJ, sugiero que use herramientas en Kutools for Word, los pasos son los mismos que mi respuesta para TEILLET
Este comentario fue minimizado por el moderador en el sitio
Kérnék részlete leírást arról, hogy hogyan tudom elnevezni a létrehozott dokumentumokat egy lépésben, akár VBA-val.
Köszönöm.
Este comentario fue minimizado por el moderador en el sitio
Hola, prueba este vba
Sub SaveAsSeparatePDFs()
'UpdatebyExtendoffice20221122
    Dim I As Long
    Dim xDlg As FileDialog
    Dim xFolder As Variant
    Dim xStart, xEnd As Integer
    Dim xName As String
    On Error GoTo lbl
    Set xDlg = Application.FileDialog(msoFileDialogFolderPicker)
    If xDlg.Show <> -1 Then Exit Sub
    xFolder = xDlg.SelectedItems(1)
    xStart = CInt(InputBox("Start Page", "KuTools for Word"))
    xEnd = CInt(InputBox("End Page:", "KuTools for Word"))
    If xStart <= xEnd Then
        For I = xStart To xEnd
            xName = InputBox("Page: " & I, "Enter the name for this page")
            ActiveDocument.ExportAsFixedFormat OutputFileName:= _
                xFolder & "\" & xName & ".pdf", ExportFormat:=wdExportFormatPDF, _
                OpenAfterExport:=False, OptimizeFor:=wdExportOptimizeForPrint, Range:= _
                wdExportFromTo, From:=I, To:=I, Item:=wdExportDocumentContent, _
                IncludeDocProps:=False, KeepIRM:=False, CreateBookmarks:= _
                wdExportCreateHeadingBookmarks, DocStructureTags:=True, _
                BitmapMissingFonts:=False, UseISO19005_1:=False
        Next
    End If
    Exit Sub
lbl:
    MsgBox "Enter right page number", vbInformation, "KuTools for Word"
End Sub

Cambiará el nombre del archivo pdf uno por uno en el cuadro de diálogo emergente mientras aplica el vba.
Este comentario fue minimizado por el moderador en el sitio
Hola Sunny,

¿Hay alguna posibilidad de que conozca el código para que el nombre del archivo se tome de la tercera línea del archivo? o una ubicación específica?

gracias!
Este comentario fue minimizado por el moderador en el sitio
Hola, prueba este vba
Sub SaveAsSeparatePDFs()

'UpdatebyExtendoffice20221221
    Dim I As Long
    Dim xDlg As FileDialog
    Dim xFolder As Variant
    Dim xStart, xEnd As Integer
    Dim xStrName As String
    Dim xPath As String
'    On Error Resume Next

    Set xDlg = Application.FileDialog(msoFileDialogFolderPicker)
    If xDlg.Show <> -1 Then Exit Sub
    xFolder = xDlg.SelectedItems(1)
    xStart = CInt(InputBox("Start Page", "KuTools for Word"))
    xEnd = CInt(InputBox("End Page:", "KuTools for Word"))
    If xStart <= xEnd Then
        For I = xStart To xEnd
                Selection.GoTo What:=wdGoToPage, Which:=wdGoToNext, Name:=I
                Selection.GoTo What:=wdGoToLine, Which:=wdGoToNext, Name:=3 - 1
                Selection.Extend
                Selection.EndKey Unit:=wdLine
                Selection.EscapeKey
   
                xStrName = Selection.Range
                xStrName = Replace(xStrName, " ", "")
                xStrName = Replace(xStrName, vbLf, "")
                xStrName = Replace(xStrName, Chr(10), "")
                xStrName = Replace(xStrName, Chr(13), "")
                xStrName = Replace(xStrName, "\", "")
                xStrName = Replace(xStrName, "/", "")
                xStrName = Replace(xStrName, ":", "")
                xStrName = Replace(xStrName, "*", "")
                xStrName = Replace(xStrName, "?", "")
                xStrName = Replace(xStrName, "<", "")
                xStrName = Replace(xStrName, ">", "")
                xStrName = Replace(xStrName, "|", "")
                xStrName = Replace(xStrName, """", "")
                If xStrName = "" Then
                    xStrName = I
                End If
                xPath = xFolder & "\" & xStrName & ".pdf"
                ActiveDocument.ExportAsFixedFormat OutputFileName:=xPath, ExportFormat:=wdExportFormatPDF, OpenAfterExport:=False, OptimizeFor:=wdExportOptimizeForPrint, Range:=wdExportFromTo, From:=I, To:=I, Item:=wdExportDocumentContent, IncludeDocProps:=False, KeepIRM:=False, CreateBookmarks:=wdExportCreateHeadingBookmarks, DocStructureTags:=True, BitmapMissingFonts:=False, UseISO19005_1:=False
        Next
    End If
End Sub

Si hay vacío en la tercera línea, el archivo pdf se nombrará con un número.
No hay comentarios publicados aquí todavía
Deje sus comentarios
Publicar como invitado
×
Califica esta publicación:
0   Personajes
Ubicaciones sugeridas

Seguinos

Copyright © 2009 - www.extendoffice.com. | Reservados todos los derechos. Energizado por ExtendOffice, | Mapa del Sitio
Microsoft y el logotipo de Office son marcas comerciales o marcas comerciales registradas de Microsoft Corporation en los Estados Unidos y / o en otros países.
Protegido por Sectigo SSL