Sut i swp-drosi dogfennau Word lluosog yn ffeiliau pdf?

Mae'n hawdd i chi drosi dogfen Word yn ffeil PDF gyda'r swyddogaeth Cadw fel yn Word. Ond beth os oes angen trosi holl ddogfennau Word mewn ffolder yn ffeiliau PDF ar wahân ar unwaith? Bydd y canllaw hwn yn eich tywys trwy sut i swp-drosi sawl dogfen Word yn ffeiliau PDF yn Word.

Swp trosi dogfennau Word lluosog yn ffeiliau pdf gyda VBA
Swp trosi dogfennau Word lluosog i ffeiliau pdf gyda Kutools ar gyfer Word

Swp trosi dogfennau Word lluosog yn ffeiliau pdf gyda VBA

Mae'r cod VBA canlynol yn caniatáu ichi drosi'r holl ddogfennau Word mewn ffolder yn gyflym i ffeiliau PDF ar unwaith. Dilynwch y camau hyn:

1. Yn Word, pwyswch Alt + F11 i agor y Microsoft Visual Basic ar gyfer Ceisiadau ffenestr.
2. Yn y Microsoft Visual Basic ar gyfer Ceisiadau ffenestr, cliciwch Mewnosod > Modiwlau, yna copïwch a gludwch y cod VBA canlynol i mewn i'r Modiwlau ffenestr.

   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. Pwyswch F5 i redeg y cod.
4. A Pori bydd deialog pop i fyny. Dewiswch y ffolder sy'n cynnwys y dogfennau Word rydych chi am eu trosi'n PDFs, a chliciwch OK.

Bydd yr holl ddogfennau Word yn y ffolder a ddewiswyd yn cael eu trosi i ffeiliau PDF ar wahân. Gweler y sgrinlun:

Swp trosi dogfennau Word lluosog i ffeiliau pdf gyda Kutools ar gyfer Word

Os yw'n anodd trin cod VBA, gallwch roi cynnig ar y Trosi dogfennau cyfleustodau Kutools am Word. Mae'r offeryn hwn yn symleiddio'r broses, gan ei gwneud yn fwy hygyrch ac effeithlon o'i gymharu â dulliau llaw yn Word.

1. Cliciwch Kutools Byd Gwaith > Doc / Docx.

   

2. Yn y Troswr Fformat Dogfen ffenestr, dilynwch y camau hyn:
   1. dewiswch Trosi docx i pdf oddi wrth y Trosi Fformat ddewislen i lawr.
   2. Cliciwch i ychwanegu dogfennau:

      

      • Dewiswch Ffeiliau ychwanegu dogfennau unigol.
      • Dewiswch Ffolder i ychwanegu'r holl ddogfennau o ffolder penodol.
   3. Yn ddiofyn, bydd ffeiliau PDF yn cael eu cadw i'r un lleoliad â'r ffeiliau ffynhonnell. I newid y lleoliad, cliciwch ar y Pori botwm a dewis cyrchfan newydd.
   4. Yn ddewisol, gwiriwch y Dileu ffeiliau ffynhonnell ar ôl eu trosi blwch i gael gwared ar y ffeiliau gwreiddiol ar ôl i'r PDFs gael eu creu.
   5. Yn ddewisol, gwiriwch y Cadwch y dyddiad wedi'i addasu ar gyfer ffeiliau gwreiddiol blwch i gadw'r metadata ffeil gwreiddiol.
   6. Unwaith y bydd yr holl leoliadau wedi'u cwblhau, cliciwch Ok.

   

Nawr, mae'r holl ddogfennau fformat .docx wedi'u trosi'n llwyddiannus i ffeiliau PDF.

Offer Cynhyrchiant Swyddfa Gorau

Kutools am Word - Dyrchafu Eich Profiad Word gyda Dros 100 Nodweddion Rhyfeddol!

🤖 Nodweddion Kutools AI: Cynhyrchu Cynnwys / Ailysgrifennu Testun / Dogfen Holi ac Ateb / Cael Atebion Cyflym / Cyfieithu dogfennau / Dogfen Bwyleg (Fformat Cadw)...

📘 Meistrolaeth Dogfen: Tudalennau Hollti / Uno Dogfennau / Dewis Allforio mewn Fformatau Amrywiol (PDF/TXT/DOC/HTML...) / Trosi swp i PDF...

✏ Golygu Cynnwys: Darganfod Swp ac Amnewid ar draws Ffeiliau Lluosog / Newid Maint Pob Llun / Trawsosod Rhesi Bwrdd a Cholofnau / Trosi Tabl i Testun...

🧹 Ymdrech Glân: swap i ffwrdd Mannau Ychwanegol / Toriadau Adran / Blychau Testun / hypergysylltiadau / Am fwy o offer tynnu, ewch i'r Dileu grŵp...

➕ Mewnosodiadau Creadigol: mewnosod Mil o Wahanwyr / Blychau Gwirio / Botymau Radio / Cod QR / Cod Bar / Lluniau Lluosog / Darganfod mwy yn y Mewnosod grŵp...

🔍 Detholiadau Manwl: pinbwynt Tudalennau Penodol / Tablau / Siapiau / Pennawd Paragraffau / Gwella llywio gyda mwy dewiswch Nodweddion...

⭐ Gwelliannau Seren: Llywiwch i Unrhyw Leoliad / Awto-Mewnosod Testun Ailadroddus / Toglo Rhwng Windows Document / 11 Trosi offer...

???? Eisiau rhoi cynnig ar y nodweddion hyn? Dadlwythwch Kutools ar gyfer Word nawr! 🚀

Lawrlwythiad Am Ddim     Prynu Nawr     Dysgwch fwy am Kutools ar gyfer Word

 

Offer Cynhyrchiant Swyddfa Gorau

Kutools am Word - 100+ Offer ar gyfer Word

• 🤖 Nodweddion Kutools AI: cynhyrchu, Ailysgrifennu, Crynhowch, cyfieithu Dogfennau / Cael Atebion Cyflym / Dogfen Bwyleg (Fformat Cadw)
• 📘 Meistrolaeth Dogfen: Tudalennau Hollti / Uno Dogfennau / Trosi swp i PDF
• ✏ Golygu Cynnwys: Swp Dod o Hyd i ac Amnewid / Newid Maint Pob Llun
• 🧹 Ymdrech Glân: Tynnwch Fannau Ychwanegol / Dileu Toriadau Adran
• ➕ Mewnosodiadau Creadigol: Mewnosod Mil o Wahanwyr / Mewnosod Blychau Gwirio / Creu Codau QR

Lawrlwythiad Am Ddim Prynu Nawr Dysgwch fwy am Kutools