Skip to main content

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

Author: Siluvia Last Modified: 2025-08-06

En Microsoft Word, puede guardar manualmente cada página como un PDF separado utilizando la función incorporada "Guardar como" y especificando el número de página en el cuadro de diálogo Opciones. Sin embargo, si está trabajando con un documento extenso que tiene cientos de páginas, hacer esto manualmente puede ser muy laborioso. Este artículo presenta un método para guardar rápidamente todas las páginas como archivos PDF individuales.

Guardar cada página como archivos PDF separados en masa con código VBA

Guardar cada página como archivos PDF separados en masa con código VBA

Puede usar el siguiente código VBA para guardar automáticamente cada página de un documento de Word como un archivo PDF individual. Aquí le mostramos cómo hacerlo:

  1. Abra el documento de Word que desea procesar. Presione 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 luego 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
    VBA window with Insert > Module selected and VBA code copied into the Module window
  3. Presione 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".
    Browse window
  5. En el primer cuadro de diálogo de "Kutools for Word", ingrese el número de página inicial y haga clic en "Aceptar".
    Kutools for Word dialog box with a text box for entering the start page number
  6. En el segundo cuadro de diálogo de "Kutools for Word", ingrese el número de página final y haga clic en "Aceptar".
    Second Kutools for Word dialog box with a text box for entering the last page number

    Nota: Por ejemplo, para guardar algunas páginas consecutivas —páginas 4, 5 y 6— simplemente ingrese "4" y "6" en los dos cuadros de diálogo.

Después de que el script se ejecute, vaya a la carpeta que seleccionó en el paso 4. Verá que cada página especificada se ha guardado como un archivo PDF separado.

Pages are split and saved as individual PDF files
Dividir fácilmente un documento de Word en varios documentos
Divida fácilmente un documento de Word en varios documentos con la utilidad Dividir Documento. En lugar de copiar y pegar manualmente, esta herramienta le permite dividir su documento según la página, Encabezado 1, saltos de página o saltos de sección, mejorando drásticamente la eficiencia.
A screenshot of the Split Document utility splitting a Word document by page
Kutools for Word: Mejore su experiencia en Word con cientos de herramientas prácticas. ¡Descárguelo ahora y vea la diferencia!

Las mejores herramientas de productividad para Office

Kutools para Word: ¡Mejora tu experiencia en Word con más de 100 funciones excepcionales!

🤖 Funciones de IA de Kutools: Asistente de IA / Asistente en Tiempo Real / Super Pulir (Conservar Formato) / Super Traducir (Conservar Formato) / Redacción AI / Revisión con IA...

📘 Dominio del Documento: Dividir páginas / Combinar documentos / Exportar selección en varios formatos (PDF/TXT/DOC/HTML...) / Convertir en lote a PDF...

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

🧹 Limpieza sin esfuerzo: Elimina espacios extras / saltos de sección / cuadros de texto / hipervínculos / Para más herramientas de eliminación, ve al grupo Eliminar...

➕ Inserciones creativas: Insertar separadores de miles / casillas de verificación / botones de opción / Código QR / Código de Barras / múltiples imágenes / Descubre más en el grupo Insertar...

🔍 Selecciones precisas: Localiza páginas específicas / tablas / formas / Párrafos de Encabezado / Mejora la navegación con más funciones de Seleccionar...

⭐ Mejoras destacadas: Navega a cualquier ubicación / inserta automáticamente texto repetitivo / alterna entre ventanas de documento /11 herramientas de conversión...

🌍 Compatible con más de40 idiomas: Utiliza Kutools en tu idioma preferido: admite Inglés, Español, Alemán, Francés, Chino y más de40 idiomas.

Kutools and Kutools Plus tabs on the Word Ribbon
👉 ¿Quieres probar estas funciones? ¡Descarga Kutools para Word ahora! 🚀
 

Las mejores herramientas de productividad para Office

Kutools para Word: más de 100 herramientas para Word

Descarga gratuita Comprar ahora Más información sobre Kutools