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

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

Mientras usa un documento de Microsoft Word, puede guardar cada página como archivos PDF separados uno por uno con su función Guardar como incorporada. Sin embargo, si hay cientos de páginas que deben dividirse y guardarse como archivos PDF individuales, ¿cómo puede hacerlo? Este artículo proporciona un método para que pueda resolver rápidamente este problema.

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


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

El siguiente código VBA le ayuda a guardar rápidamente cada página en un documento como archivos PDF individuales al mismo tiempo. Haz lo siguiente.

1. Abra el documento, guardará cada página o páginas específicas como archivos pdf, luego presione el 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 VBA en la ventana del módulo.

Código 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 Búsqueda de ventana, seleccione una carpeta para guardar los archivos pdf y haga clic en el 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 en OK.

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

Nota:: Si solo desea guardar varias páginas continuas 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.


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

Programas de 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, como se muestra en la siguiente captura de pantalla. ¡Descárgalo y pruébalo ahora! (60-día de ruta libre)


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 (18)
5 clasificado de 5 · 3 calificaciones
Este comentario fue minimizado por el moderador en el sitio
descargó los kutools para la prueba: instalados y al intentar algo, la palabra se está cerrando y la herramienta nunca funcionó.
Este comentario fue minimizado por el moderador en el sitio
Buenos días,
Gracias por avisarme del error y disculpe las molestias. ¿Podría proporcionar su versión de Word? Necesitamos resolver el problema con más información.
Este comentario fue minimizado por el moderador en el sitio
Salve, ho utilizzato i vostri preziosi suggerimenti e sono riuscito facilmente a generare i file singoli in pdf partendo da un file word di stampa unione. Vorrei chiedere se è possibile nominare i singoli file pdf, al posto del numero di pagina, con un nome specifico di un campo contenuto nel file di excel che ho utilizzato per stampa unione. Sarebbe il massimo. Muchas Gracias
Este comentario fue minimizado por el moderador en el sitio
¿Qué puedo hacer para guardar cada página con una referencia en el documento y no por nombre de página?
Este comentario fue minimizado por el moderador en el sitio
¡Hermoso! Gracias, sus instrucciones son fáciles de seguir y detectar. Nos has ahorrado mucho tiempo.
Este comentario fue minimizado por el moderador en el sitio
¿Qué puedo hacer para guardar cada página con una referencia en el documento y no por nombre de página?
Este comentario fue minimizado por el moderador en el sitio
¡Gracias! Funcionó para mí. ¿Qué puedo hacer para guardarlo en PDF a doble cara?
Este comentario fue minimizado por el moderador en el sitio
Que legal... aqui deu super certo!

¡Gracias
Este comentario fue minimizado por el moderador en el sitio
Leer estas instrucciones me ha ayudado a completar un proyecto que hubiera tomado 2 horas o más, en 20 minutos. ¡Muchas gracias!
5 clasificado de 5
Este comentario fue minimizado por el moderador en el sitio
Hola Kyle Baldwin,
Será un placer ayudar a resolver su problema.
Este comentario fue minimizado por el moderador en el sitio
¡Gracias por el script, también me ha ahorrado mucho trabajo al exportar páginas como pdf!
5 clasificado de 5
Este comentario fue minimizado por el moderador en el sitio
Buen día!
Есть ли возienenжность сранить из ворд файла (исползisp.
При этом учитываем, что PDF должен сохраняться так: в 1 файле должно быть несколько листов (1 квартира), по данному модулю страницы сохраняются в пдф, но раздельно
Este comentario fue minimizado por el moderador en el sitio
Hola,
Lo siento, no entiendo lo que quieres decir. Es posible que deba adjuntar una captura de pantalla o un archivo de muestra para describir el problema que encontró con mayor claridad.
Este comentario fue minimizado por el moderador en el sitio
Gracias por esto, esto es genial. Me preguntaba si tiene una forma de nombrar mis archivos pdf de manera diferente para cada extracto, no solo para Page_1.pdf.

Muchas Gracias
Este comentario fue minimizado por el moderador en el sitio
hola samir,
¿Cómo le gustaría nombrar estos archivos pdf? Por favor, dame un ejemplo.
Este comentario fue minimizado por el moderador en el sitio
Como guardar cada documento con un nombre diferente, no solo Página_1.pdf y así sucesivamente.
Este comentario fue minimizado por el moderador en el sitio
Hola camila
El siguiente código de VBA puede ayudarlo a resolver el problema.
Nota:: Debe especificar un nombre diferente en esta línea: xNombreArchivo = "AA; BB; CC; DD". Aquí AA, BB y CC son los nombres de los archivos PDF.
Por favor, cámbielos para satisfacer sus necesidades. Puede agregar más nombres y separarlos por punto y coma. Mencionar que la cantidad de nombres especificados debe coincidir con la cantidad de páginas que exportaste. Y los archivos PDF se nombrarán en el orden de los nombres especificados en el código.
Sub SaveAsSeparatePDFs()
'Updated by Extendoffice 20221223
    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
    Dim xFileName As String
    Dim xNameArr() As String

    xFileName = "AA; BB; CC; DD"  'Specify a name for each page. The number of names specified must match the number of pages you exported.The PDF files will be named in order of the the specified names
    xNameArr = VBA.Split(xFileName, ";")
    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 & "\" & VBA.Trim(xNameArr(I - 1)) & ".pdf", _
        wdExportFormatPDF, False, wdExportOptimizeForPrint, wdExportFromTo, I, I, wdExportDocumentWithMarkup, _
        False, False, wdExportCreateHeadingBookmarks, True, False, False
    Next
    Erase xNameArr
End Sub
Este comentario fue minimizado por el moderador en el sitio
10x :) ¡esto fue realmente útil!
5 clasificado de 5
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