Les galetes ens ajuden a lliurar els nostres serveis. En utilitzar els nostres serveis, accepteu el nostre ús de cookies.
Consell: altres idiomes es tradueixen en Google. Pots visitar el English versió d'aquest enllaç.
Iniciar Sessió
x
or
x
x
Registre
x

or

Com convertir lots de documents múltiples de Word en fitxers PDF?

És fàcil que convertiu un document de Word a un fitxer PDF amb la funció Desa com a paraula. Però si voleu convertir tots els documents de Word en una carpeta per separar fitxers PDF alhora, com podeu aconseguir-ho? Aquest article us mostrarà un codi VBA per convertir múltiples documents de Word a fitxers PDF en Word.

Permet convertir múltiples documents de Word a fitxers pdf amb VBA

Permet convertir múltiples documents de Word a fitxers pdf amb Kutools per a Word


Baixar fàcilment diversos documents de Word a fitxers PDF en Word:

El Convertidor de format de documents utilitat de Kutools for Excel us pot ajudar a convertir ràpidament tots els documents de format .docx en una carpeta especificada a fitxers pdf. Mostra la captura de pantalla:

Kutools per a la paraula: amb més complements Word complementosos de 100, gratuïts per provar sense limitacions en 30 dies. Baixada i prova gratuïta Ara!


Permet convertir múltiples documents de Word a fitxers pdf amb VBA

El següent codi VBA us ajuda a convertir ràpidament tots els documents de Word en una carpeta als fitxers PDF alhora. Feu el següent.

1. A Word, premeu la tecla Alt + F11 claus per obrir el Microsoft Visual Basic per a aplicacions finestra.

2. A la Microsoft Visual Basic per a aplicacions finestra, feu clic a Insereix > Mòduls, copieu el codi VBA per sota de la finestra del mòdul.

Codi VBA: converteix múltiples documents de Word a 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. Premeu el botó F5 clau per executar el codi.

4. Apareix un diàleg d'exploració, seleccioneu la carpeta que conté els documents de Word que convertireu a fitxers pdf i feu clic a la icona OK botó.

A continuació, tots els documents de Word de la carpeta seleccionada es converteixen en fitxers PDF separats alhora. Mostra la captura de pantalla:


Permet convertir múltiples documents de Word a fitxers pdf amb Kutools per a Word

Si el codi VBA és difícil de manejar, podeu provar el Converteix documents utilitat de Kutools per a la paraula per resoldre el problema.

Kutools per a la paraula : Amb més complements Word complementosos de 100, lliure de provar sense límit en 30 dies.

1. clic Kutools més > Doc / Docx. Mostra la captura de pantalla:

2. A la Convertidor de format de documents finestra, heu de fer el següent:

2.1) Seleccioneu la carpeta que conté els documents que convertireu a pdf al fitxer Carpeta d'arxius de codi font secció;

Selecciona 2.2 Convertir docx a pdf des Format de conversió llista desplegable;

2.3) De manera predeterminada, el Camí de destinació igual que font la caixa està marcada. Si voleu col·locar tots els fitxers pdf convertits en la mateixa carpeta, només cal que seleccioneu aquesta opció;

Si voleu separar els fitxers PDF i els documents originals, heu de desmarcar la Camí de destinació igual que font i seleccioneu una nova carpeta per desar els fitxers pdf a la finestra Desa per Caixa;

2.4) Feu clic al botó Començar botó Mostra la captura de pantalla:

3. A continuació, apareix un quadre de diàleg per indicar quants documents s'han convertit correctament, feu clic a la icona OK botó i tanqueu el Convertidor de format de documents finestra.

Ara tots els documents de format .docx es converteixen en fitxers pdf.

Si voleu fer una prova gratuïta d'aquesta utilitat, visiteu descàrrega gratuïta del programari primer, i després aneu a aplicar l'operació segons els passos anteriors.



Kutools per a la paraula

Més de 100 Advanced Functions per Word 2003, 2007, 2010, 2013, 2016 i 2019

shot-kutools-700-225-kte

Més funcions | Descàrrega gratuita | Només $ 39.00 per centenars de funcions

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.

Be the first to comment.