¿Cómo convertir por lotes varios documentos de Word a archivos pdf?
Es fácil para usted convertir un documento de Word en un archivo PDF con la función Guardar como en Word. Pero si desea convertir todos los documentos de Word en una carpeta en archivos PDF separados a la vez, ¿cómo puede lograrlo? Este artículo le mostrará un código VBA para convertir por lotes varios documentos de Word a archivos PDF en Word.
Convierta por lotes varios documentos de Word a archivos pdf con VBA
Convierta por lotes varios documentos de Word a archivos pdf con Kutools para Word
Convierta por lotes varios documentos de Word a archivos pdf con VBA
El siguiente código VBA lo ayuda a convertir rápidamente todos los documentos de Word en una carpeta a archivos PDF a la vez. Haz lo siguiente.
1. En Word, 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, luego copie el código de VBA a continuación en la ventana del Módulo.
Código VBA: convierta por lotes varios documentos de Word a archivos pdf en Word
Sub ConvertWordsToPdfs()
'Updated by Extendoffice 20181123
Dim xIndex As String
Dim xDlg As FileDialog
Dim xFolder As Variant
Dim xNewName As String
Dim xFileName As String
Set xDlg = Application.FileDialog(msoFileDialogFolderPicker)
If xDlg.Show <> -1 Then Exit Sub
xFolder = xDlg.SelectedItems(1) + "\"
xFileName = Dir(xFolder & "*.*", vbNormal)
While xFileName <> ""
If ((Right(xFileName, 4)) <> ".doc" Or Right(xFileName, 4) <> ".docx") Then
xIndex = InStr(xFileName, ".") + 1
xNewName = Replace(xFileName, Mid(xFileName, xIndex), "pdf")
Documents.Open FileName:=xFolder & xFileName, _
ConfirmConversions:=False, ReadOnly:=False, AddToRecentFiles:=False, _
PasswordDocument:="", PasswordTemplate:="", Revert:=False, _
WritePasswordDocument:="", WritePasswordTemplate:="", Format:= _
wdOpenFormatAuto, XMLTransform:=""
ActiveDocument.ExportAsFixedFormat OutputFileName:=xFolder & xNewName, _
ExportFormat:=wdExportFormatPDF, OpenAfterExport:=False, OptimizeFor:= _
wdExportOptimizeForPrint, Range:=wdExportAllDocument, From:=1, To:=1, _
Item:=wdExportDocumentContent, IncludeDocProps:=True, KeepIRM:=True, _
CreateBookmarks:=wdExportCreateNoBookmarks, DocStructureTags:=True, _
BitmapMissingFonts:=True, UseISO19005_1:=False
ActiveDocument.Close
End If
xFileName = Dir()
Wend
End Sub
3. presione el F5 clave para ejecutar el código.
4. Aparecerá un cuadro de diálogo Examinar, seleccione la carpeta que contiene los documentos de Word que convertirá a archivos pdf y haga clic en OK
Luego, todos los documentos de Word en la carpeta seleccionada se convierten en archivos PDF separados a la vez. Ver captura de pantalla:
Convierta por lotes varios documentos de Word a archivos pdf con Kutools para Word
Si el código VBA es difícil de manejar, puede probar el Convertir documentos utilidad de Kutools for Word para resolver el problema.
Kutools for Word : Con más de 100 útiles complementos de Word, libre de probar sin limitación en 60 días.
1. Hacer clic en Kutools Más > Doc / Docx. Ver captura de pantalla:
2. En el Convertidor de formato de documento ventana, debe hacer lo siguiente:
3. Luego aparece un cuadro de diálogo para indicarle cuántos documentos se han convertido correctamente, haga clic en el OK botón y cierre el Convertidor de formato de documento ventana.
Ahora todos los documentos en formato .docx se convierten a archivos pdf.
Si desea tener una prueba gratuita de esta utilidad, vaya a descarga gratis el software primero, y luego vaya a aplicar la operación según los pasos anteriores.
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.
