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 guardar cada página como archivos PDF separados en un documento de Word?

Al usar el documento de Microsoft Word, puede guardar cada página como archivos PDF separados uno por uno con su función incorporada de Guardar como. Sin embargo, si hay cientos de páginas que se deben dividir y guardar como archivos pdf individuales, ¿cómo se puede hacer? Este artículo proporciona un método para que resuelva rápidamente este problema.

Guarde cada página como archivos PDF separados a granel con código VBA


Divida y guarde cada página de un documento como documentos nuevos separados:

El Documento dividido utilidad de Kutools for Excel puede ayudarlo a dividir y guardar fácilmente cada página del documento actual como un nuevo documento separado a granel.

  • Seleccione una ubicación para guardar los documentos divididos;
  • Seleccionar Página del Mini Split por lista desplegable;
  • Haz click OK para comenzar. Ver captura de pantalla:

Kutools for Word: con más de 100 complementos de Word prácticos, de prueba sin límite en días 30. Descargar y prueba gratis ahora!


Guarde cada página como archivos PDF separados a granel con código VBA

El siguiente código de VBA le ayuda a guardar rápidamente cada página de un documento como archivos pdf individuales al mismo tiempo. Por favor haz lo siguiente.

1. Abra el documento, guardará cada página o páginas específicas como archivos pdf, luego presione otro + F11 teclas para abrir el Microsoft Visual Basic para aplicaciones ventana.

2. En el Microsoft Visual Basic para aplicaciones ventana, haga clic recuadro > Módulo, copie debajo del código de VBA en la ventana del Módulo.

Código de VBA: guarde cada página como archivos PDF separados al mismo tiempo en un documento de Word

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

3. presione el F5 clave para ejecutar el código.

4. En el Buscar ventana, seleccione una carpeta para guardar los archivos pdf y haga clic en OK botón. Ver captura de pantalla:

5. En el primero Kutools for Word cuadro de diálogo, ingrese el número de página de inicio de su documento en el cuadro de texto y haga clic OK.

6. En el segundo Kutools for Word cuadro de diálogo, ingrese el último número de página de su documento, luego haga clic DE ACUERDO. Ver captura de pantalla:

Nota: Si solo desea guardar varias páginas continuamente en el documento como archivos PDF separados, como las páginas 4, 5 y 6, ingrese 4 y 6 por separado en los dos cuadros de diálogo anteriores.

Después de ejecutar el código, vaya a la carpeta especificada que seleccionó en el paso 4, puede ver que todas las páginas están divididas y guardadas como archivos pdf individuales, como se muestra a continuación.



Herramientas recomendadas de productividad de palabras

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

  • Las operaciones complicadas y repetidas se pueden realizar una sola vez en segundos.
  • Inserte varias imágenes a través de carpetas en el documento de Word a la vez.
  • Combine y combine varios archivos de Word en carpetas en uno con su orden deseado.
  • Divida el documento actual en documentos separados según el encabezado 1, 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, y así...
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.
    Bharadwaj · 1 months ago
    down loaded the kutools for trial - installed and when trying to something the word is closing and the tool never worked.

    • To post as a guest, your comment is unpublished.
      crystal · 1 months ago
      Good day,
      Thanks to let me know the bug, and sorry for the inconvenience. Would you provide your Word version? We need to figure out the problem with more information.