Note: The other languages of the website are Google-translated. Back to English
Belépek  \/ 
x
or
x
Regisztráció  \/ 
x

or

Hogyan lehet kötegelt módon konvertálni több Word dokumentumot pdf fájlokká?

A Word Mentés másként funkciójával könnyen konvertálhat Word-dokumentumot PDF-fájlba. De ha egy mappában található összes Word-dokumentumot egyszerre akar külön PDF fájlokká konvertálni, hogyan érheti el? Ez a cikk egy VBA-kódot mutat be, amellyel több Word-dokumentumot konvertálhat PDF-fájlokká a Word-ben.

Kötegelt módon konvertálhat több Word dokumentumot pdf fájlokká a VBA segítségével
A Kutools for Word programmal több Word-dokumentumot konvertálhat pdf fájlokká


Kötegelt módon konvertálhat több Word dokumentumot pdf fájlokká a VBA segítségével

A következő VBA-kód segít a mappában található összes Word-dokumentum gyors konvertálásában egyszerre pdf-fájlokká. Kérjük, tegye a következőket.

1. A Word alkalmazásban nyomja meg a gombot más + F11 billentyűk megnyitásához Microsoft Visual Basic for Applications ablak.

2. Ban,-ben Microsoft Visual Basic for Applications ablakban kattintson betétlap > Modulok, majd másolja a VBA kód alatt a Modul ablakba.

VBA-kód: Több Word-dokumentum kötegelt konvertálása pdf-fájlokká Word-ben

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. megnyomni a F5 gombot a kód futtatásához.

4. Megjelenik egy Tallózás párbeszédpanel. Kérjük, válassza ki azt a mappát, amely Word dokumentumokat tartalmaz, amelyeket PDF fájlokká konvertál, majd kattintson a OK gombot.

Ezután a kiválasztott mappában található összes Word-dokumentumot egyszerre külön PDF fájlokká konvertálja. Lásd a képernyőképet:


A Kutools for Word programmal több Word-dokumentumot konvertálhat pdf fájlokká

Ha a VBA kódot nehéz kezelni, akkor próbálja ki a Dokumentumok konvertálása hasznossága Kutools for Word hogy megoldja a problémát.

Kutools for Word : Több mint 100 praktikus Word-bővítménnyel, szabadon kipróbálható korlátozás nélkül 60 nap alatt.

1. kettyenés Kutools Plus > Doc / Docx. Lásd a képernyőképet:

2. Ban,-ben Dokumentum formátum átalakító ablakban a következőket kell tennie:

2.1) Válassza ki a mappát, amely tartalmazza azokat a dokumentumokat, amelyeket pdf-be konvertál a Forrás fájl mappa szakasz;
2.2 Válassza a lehetőséget Konvertálja a docx-et pdf-be tól Formátum konvertálása legördülő lista;
2.3) Alapértelmezés szerint a A célút megegyezik a forrással négyzet be van jelölve. Ha az összes konvertált pdf fájlt ugyanabba a mappába kívánja helyezni, tartsa bejelölve ezt az opciót;
Ha el akarja különíteni a pdf fájlokat és a forrás dokumentumokat, törölnie kell a A célút megegyezik a forrással mezőbe, és válasszon egy új mappát a pdf fájlok mentéséhez a Mentés ide doboz;
2.4) Kattintson a gombra Rajt gomb. Lásd a képernyőképet:

3. Ezután megjelenik egy párbeszédpanel, amely megmondja, hogy hány dokumentum konvertálása sikerült, kattintson a gombra OK gombot, és zárja be a Dokumentum formátum átalakító ablak.

Most az összes .docx formátumú dokumentumot konvertálja pdf fájlokká.

Ha szeretné ingyenesen kipróbálni ezt a segédprogramot, kérjük, látogasson el ide: ingyenesen letölthető a szoftver először, majd lépjen a művelet végrehajtására a fenti lépések szerint.


Ajánlott Word-termelékenységi eszközök

 

Kutools for Word - Több mint 100 speciális szolgáltatás a Word számára, takarítson meg 50% időt

  • A bonyolult és ismételt műveletek másodpercek alatt egyszeri feldolgozást végezhetnek.
  • Egyszerre több képet illesszen be a mappákba a Word dokumentumba.
  • Egyesítsen és egyesítsen több Word-fájlt a mappák között a kívánt sorrenddel.
  • Bontja az aktuális dokumentumot külön dokumentumokká címsor, szakasz törés vagy egyéb szempontok szerint.
  • Fájlok konvertálása a Doc és a Docx, a Docx és a PDF között, a közös konverzióhoz és kiválasztáshoz szükséges eszközök gyűjteménye stb.
Say something here...
symbols left.
You are guest
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.
    Chengchi · 3 months ago
    VBA 很棒!!感謝您的分享。
  • To post as a guest, your comment is unpublished.
    K DEG · 4 months ago
    This saved my day, thanks so much!

    I would just like to point out for people using this, if the Word seems to freeze, just wait - it is generating the .pdf files. My Word froze but I opened the folder of the files, and could see that it was indeed generating the .pdf for all files.
  • To post as a guest, your comment is unpublished.
    Garrie · 4 months ago
    If you change
    xFileName = Dir(xFolder & "*.*", vbNormal)
     to 
    xFileName = Dir(xFolder & "*.doc*", vbNormal)
    the macro will not crash when there are non-Word files in the same folder.

  • To post as a guest, your comment is unpublished.
    Garrie · 4 months ago
    If you change
    xIndex = InStr(xFileName, ".") + 1
     to 
    xIndex = InStrRev(xFileName, ".") + 1
    it will search from the end of the string to find the first period. This will avoid problems where the filename contains periods.
  • To post as a guest, your comment is unpublished.
    Jirka · 5 months ago
    Change
     xIndex = InStr(xFileName, ".") + 1


  • To post as a guest, your comment is unpublished.
    San · 1 years ago
    The VBA code is great. Cheers ,ate
  • To post as a guest, your comment is unpublished.
    Doris · 1 years ago
    thanks for vba code , it helps a lot.
  • To post as a guest, your comment is unpublished.
    Eric Smith · 1 years ago
    Hello, Thank you so much for this code. It is working well, however, I get a dialog box after each conversion to save the word doc and I have to save. Can you include code in the macro to make that save and close the file instead of having to close each one?
    • To post as a guest, your comment is unpublished.
      Rebecca · 1 years ago
      if you add "ActiveDocument.Save" right above "ActiveDocument.Close" it will save the document before closing itself so you don't have to always hit the save prompt.
  • To post as a guest, your comment is unpublished.
    9aks92 · 1 years ago
    Hi,

    I get runtime error '424':
    Object required

    image attached.


    Please help.

    Thanks.
  • To post as a guest, your comment is unpublished.
    Akshay · 1 years ago
    Hi,

    I get runtime error '424':
    Object required

    at the below code

    Documents.Open Filename:=xFolder & xFileName, _
    ConfirmConversions:=False, ReadOnly:=False, AddToRecentFiles:=False, _
    PasswordDocument:="", PasswordTemplate:="", Revert:=False, _
    WritePasswordDocument:="", WritePasswordTemplate:="", Format:= _
    wdOpenFormatAuto, XMLTransform:=""


    wdOpenFormatAuto = 0 it says.

    Please help.

    Thanks.
  • To post as a guest, your comment is unpublished.
    Stefan · 2 years ago
    Hi there,


    is there an easy way to adjust the VBA Code so that the Documents are convertet to .txt-Files?
  • To post as a guest, your comment is unpublished.
    Sammy · 2 years ago
    Is there any way to have the file name taken from the text of the document?
  • To post as a guest, your comment is unpublished.
    Marzio · 2 years ago
    VBA if i try to convert file that contains macros the macro swith to open file and ends without close file.
  • To post as a guest, your comment is unpublished.
    michaelwaung · 2 years ago
    So nice blog, Thanks for sharing this blog. It Has so useful information for users. I liked this information so much.
    Hope you keep sharing such kind of information convert word doc to html