¿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 Explorar 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:
Note: 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:
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, como se muestra en la siguiente captura de pantalla. ¡Descárgalo y pruébalo ahora! (60-día de ruta libre)
Las mejores herramientas de productividad de oficina
Kutools for Word - Mejore su experiencia con Word con Over 100 ¡Características notables!
🤖 Asistente de IA de Kutools: Transforma tu escritura con IA - Generar contenido / Reescribir texto / Resumir documentos / Solicite información basado en el documento, todo dentro de Word
📘 Dominio del documento: Dividir páginas / Combinar documentos / Exportar selección en varios formatos (PDF/TXT/DOC/HTML...) / Convertir por lotes a PDF / Exportar páginas como imágenes / Imprima varios archivos a la vez...
✏ Edición de contenidos: Buscar y reemplazar por lotes en varios archivos / Cambiar el tamaño de todas las imágenes / Transponer filas y columnas de tabla / Convertir tabla en texto...
🧹 Limpieza sin esfuerzo: barrer Espacios extra / Saltos de sección / Todos los encabezados / Cuadros de texto / Los hipervínculos / Para obtener más herramientas de extracción, diríjase a Quitar grupo...
➕ Inserciones creativas: Insertar Mil Separadores / Casillas de verificación / Botones de radio / Código QR / Barcode / Tabla de líneas diagonales / Título de la ecuación / Captura de imagen / Pie de tabla / Varias imágenes / Descubre más en el Insertar grupo...
🔍 Selecciones de precisión: Localizar Páginas Específicas / Mesas / Formas / Párrafos de encabezado / Mejorar la navegación con más, Seleccionar características...
⭐ Mejoras de estrellas: Navegar a cualquier ubicación / Insertar automáticamente texto repetitivo / Alternar entre ventanas de documentos / 11 herramientas de conversión...