KutoolsforOffice — Una solución, cinco potentes herramientas.Lograr más con menos esfuerzo.Venta de marzo: 20 % de descuento

¿Cómo guardar cada página de un documento de Word como archivos PDF independientes?

AutorSiluvia Fecha de modificación

En Microsoft Word, puede guardar manualmente cada página como un PDF independiente mediante la función integrada «Guardar como», especificando el número de página en el cuadro de diálogo Opciones. Sin embargo, si trabaja con un documento extenso de cientos de páginas, este proceso manual puede volverse extremadamente tedioso. Este artículo le muestra un método rápido para guardar todas las páginas como archivos PDF individuales.

Guarde cada página como Archivos PDF independiente masivamente con código VBA

Guarde cada página como Archivos PDF independiente masivamente con código VBA

Puede utilizar el siguiente código VBA para guardar automáticamente cada página de un documento de Word como un archivo PDF individual. Así es como se hace:

  1. Abra el documento de Word que desea procesar. Pulse Alt + F11 para abrir la ventana de Microsoft Visual Basic para Aplicaciones.
  2. En la ventana de Visual Basic, haga clic en «Insertar» > «Módulo» y, a continuación, pegue el siguiente código VBA en la ventana del módulo:
    Sub SaveAsSeparatePDFs()
'Updated by Extendoffice 20180906
    Dim I As Long
    Dim xStr As String
    Dim xPathStr As Variant
    Dim xDictoryStr As String
    Dim xFileDlg As FileDialog
    Dim xStartPage, xEndPage As Long
    Dim xStartPageStr, xEndPageStr As String
    Set xFileDlg = Application.FileDialog(msoFileDialogFolderPicker)
    If xFileDlg.Show <> -1 Then
        MsgBox "Please chose a valid directory", vbInformation, "Kutools for Word"
        Exit Sub
    End If
    xPathStr = xFileDlg.SelectedItems(1)
    xStartPageStr = InputBox("Begin saving PDFs starting with page __? " & vbNewLine & "(ex: 1)", "Kutools for Word")
    xEndPageStr = InputBox("Save PDFs until page __?" & vbNewLine & "(ex: 7)", "Kutools for Word")
    If Not (IsNumeric(xStartPageStr) And IsNumeric(xEndPageStr)) Then
        MsgBox "The enterng start page and end page should be number format", vbInformation, "Kutools for Word"
        Exit Sub
    End If
    xStartPage = CInt(xStartPageStr)
    xEndPage = CInt(xEndPageStr)
    If xStartPage > xEndPage Then
        MsgBox "The start page number can't be larger than end page", vbInformation, "Kutools for Word"
        Exit Sub
    End If
    If xEndPage > ActiveDocument.BuiltInDocumentProperties(wdPropertyPages) Then
        xEndPage = ActiveDocument.BuiltInDocumentProperties(wdPropertyPages)
    End If
    For I = xStartPage To xEndPage
        ActiveDocument.ExportAsFixedFormat xPathStr & "\Page_" & I & ".pdf", _
        wdExportFormatPDF, False, wdExportOptimizeForPrint, wdExportFromTo, I, I, wdExportDocumentWithMarkup, _
        False, False, wdExportCreateHeadingBookmarks, True, False, False
    Next
End Sub
    Ventana de VBA con Insertar > Módulo seleccionado y código VBA copiado en la ventana del módulo
  3. Pulse F5 para ejecutar el código.
  4. En la ventana Examinar que aparece, seleccione una carpeta para guardar los archivos PDF y haga clic en «Aceptar».
    Ventana de exploración
  5. En el primer cuadro de diálogo de «Kutools para Word», introduzca el número de página inicial y haga clic en «Aceptar».
    Cuadro de diálogo Kutools for Word con un cuadro de texto para introducir el número de página inicial
  6. En el segundo cuadro de diálogo «Kutools para Word», introduzca el número de página final y haga clic en «Aceptar».
    Segundo cuadro de diálogo Kutools for Word con un cuadro de texto para introducir el número de página final

    Nota: Por ejemplo, para guardar varias páginas consecutivas —páginas 4, 5 y 6— basta con introducir «4» y «6» en los dos cuadros de diálogo.

Una vez que el script se haya ejecutado, vaya a la carpeta que seleccionó en el paso 4 y verá que cada página especificada se ha guardado como un archivo PDF independiente:

Las páginas se dividen y guardan como archivos PDF individuales
Divida fácilmente un documento de Word en varios documentos
Divida fácilmente un documento de Word en varios documentos con la Dividir documentoutilidad. En lugar de copiar y pegar manualmente, esta herramienta le permite dividir su documento según página,Encabezado 1,Salto de páginao Salto de sección—mejorando drásticamente la eficiencia.
Captura de pantalla de la utilidad Dividir documento dividiendo un documento de Word por página
Kutools para Word: potencie su experiencia en Word con cientos de herramientas prácticas. ¡Descárguelo ahora y descubra la diferencia!

Las mejores herramientas de productividad para Office

Kutools para Word- Potencie su experiencia en Word con más de 100funciones extraordinarias

🤖Funcionalidades de KUTOOLS AI: Asistente de IA / Asistente en Tiempo Real / Super Pulir (conservar formato) / Super Traducir (conservar formato) / Redacción con IA / Revisión con IA…

📘Dominio del documento: Dividir páginas, combinar documentos, exportar selecciones en varios formatos (PDF, TXT, DOC, HTML…) y convertir varios documentos a PDF…

✏Edición de contenidos: Buscar y reemplazar en lote en varios archivos / Redimensionar todas las imágenes / Transponer filas y columnas de la tabla / Convertir tabla a texto...

🧹Limpieza sin esfuerzo: Elimine rápidamente espacios adicionales, saltos de sección, cuadros de texto e hipervínculos. Para más herramientas de eliminación, vaya al grupo Eliminar…

➕Inserciones creativas: Inserte separadores de miles, casillas de verificación, botones de opción, códigos QR, códigos de barras o varias imágenes. ¡Descubra más en el grupo Insertar…

🔍Selecciones precisas: Localice exactamente páginas específicas, tablas, formas o párrafos de encabezado. Mejore la navegación con más funciones de selecciónfeatures ......

⭐Mejoras destacadas: Navega a cualquier ubicación / Inserta automáticamente texto repetitivo / Alterna entre documentos de Windows / 11 …herramientas de conversión…

🌍Compatible con 40+ idiomas: Use Kutools en su idioma preferido – compatible con inglés, español, alemán, francés, chino y 40+ más idiomas

Pestañas Kutools for Word en la cinta de opciones
 
 

Office Tab- Aporta una interfaz con pestañas a Office y hace que su trabajo sea mucho más fácil

  • Habilite la edición y lectura con pestañas en Word, Excel, PowerPoint, Publisher, Access, Visio y Project.
  • Abra y cree varios documentos en nuevas pestañas de la misma ventana, en lugar de en ventanas nuevas.
  • ¡Aumente su productividad en un 50 % y ahorre cientos de clics de ratón cada día!

✨ Kutools for Office – ¡Una instalación, cinco herramientas potentes!

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

📦 Obtenga las 5 herramientas en un único conjunto | 🔗 Integración perfecta con Microsoft Office | ⚡ Ahorrar tiempo y aumente su productividad al instante

Las mejores herramientas de productividad para Office

Kutools para Word- Herramientas 100+ para Word

Descarga gratuitaComprar ahoraMás información sobre Kutools