Kuinka erässä muuntaa useita Word-asiakirjoja pdf-tiedostoiksi?

Word-asiakirjan muuntaminen PDF-tiedostoksi on helppoa Wordin Tallenna nimellä -toiminnolla. Mutta entä jos sinun on muutettava kaikki kansiossa olevat Word-asiakirjat erillisiksi PDF-tiedostoiksi kerralla? Tämä opas opastaa sinua, kuinka voit muuntaa useita Word-asiakirjoja PDF-tiedostoiksi Wordissa.

Erämuuntaa useita Word-asiakirjoja pdf-tiedostoiksi VBA:lla
Erämuunna useita Word-asiakirjoja pdf-tiedostoiksi Kutools for Wordin avulla

Erämuuntaa useita Word-asiakirjoja pdf-tiedostoiksi VBA:lla

Seuraavan VBA-koodin avulla voit muuntaa nopeasti kaikki kansiossa olevat Word-asiakirjat PDF-tiedostoiksi kerralla. Toimi seuraavasti:

1. Wordissa paina Alt + F11 avaa Microsoft Visual Basic for Applications ikkunassa.
2. In Microsoft Visual Basic for Applications -ikkunassa liite > Moduulit, kopioi ja liitä seuraava VBA-koodi tiedostoon Moduulit ikkunassa.

   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. lehdistö F5 suorittaaksesi koodin.
4. A selailla valintaikkuna avautuu. Valitse kansio, joka sisältää Word-asiakirjat, jotka haluat muuntaa PDF-tiedostoiksi, ja napsauta OK.

Kaikki valitun kansion Word-asiakirjat muunnetaan erillisiksi PDF-tiedostoiksi. Katso kuvakaappaus:

Erämuunna useita Word-asiakirjoja pdf-tiedostoiksi Kutools for Wordin avulla

Jos VBA-koodia on vaikea käsitellä, voit kokeilla Muunna asiakirjat hyödyllisyys Kutools for Word. Tämä työkalu yksinkertaistaa prosessia tehden siitä helpomman ja tehokkaamman kuin Wordin manuaaliset menetelmät.

1. Napauta Kutools Plus > Doc/Docx.

   

2. In Asiakirjamuodon muunnin ikkunassa, toimi seuraavasti:
   1. valita Muunna docx pdf-muotoon mistä Muoto Muunna pudotusvalikosta.
   2. Napauta asiakirjojen lisääminen:

      Valita Asiakirjat yksittäisten asiakirjojen lisäämiseen. Valita Kansio lisätäksesi kaikki asiakirjat tietystä kansiosta.

   3. Oletusarvoisesti PDF-tiedostot tallennetaan samaan paikkaan kuin lähdetiedostot. Muuta sijaintia napsauttamalla selailla nappia ja valitse uusi kohde.
   4. Vaihtoehtoisesti tarkista Poista lähdetiedostot muuntamisen jälkeen -laatikko poistaaksesi alkuperäiset tiedostot PDF-tiedostojen luomisen jälkeen.
   5. Vaihtoehtoisesti tarkista Säilytä alkuperäisten tiedostojen muokkauspäivämäärä laatikko säilyttää alkuperäisen tiedoston metatiedot.
   6. Kun kaikki asetukset on tehty, napsauta Ok.

   

Nyt kaikki .docx-muotoiset asiakirjat on muutettu onnistuneesti PDF-tiedostoiksi.

Parhaat toimiston tuottavuustyökalut

Kutools for Word - Paranna sanakokemustasi Overilla 100 Merkittäviä ominaisuuksia!

🤖 Kutools AI -ominaisuudet: AI-avustaja / Reaaliaikainen avustaja / Super Polish (säilytettävä muoto) / Super Translate (säilytä muoto) / AI editointi / AI Proofread...

📘 Asiakirjan hallinta: Jaa sivut / Yhdistä asiakirjat / Vie valikoima eri muodoissa (PDF/TXT/DOC/HTML...) / Erämuunnos PDF-muotoon...

✏ Sisältö Editointi: Eräetsi ja korvaa useita tiedostoja / Muuta kaikkien kuvien kokoa / Transponoi taulukon rivit ja sarakkeet / Muunna taulukko tekstiksi...

🧹 Vaivaton puhdistus: Pyyhkäise pois Ylimääräiset tilat / Leikkaukset / Tekstilaatikot / Hyperlinkit / Jos haluat lisää irrotustyökaluja, siirry kohtaan poista ryhmä...

➕ Luovat lisäosat: Aseta Tuhat erottimet / Valintaruudut / Radiopainikkeet / QR koodi / Viivakoodi / Useita kuvia / Tutustu lisää osoitteessa liite ryhmä...

🔍 Tarkkuusvalinnat: Tarkka kohta Tietyt sivut / taulukot / Muodot / Otsikko Kappaleet / Paranna navigointia lisää valita piirteet...

⭐ Tähtien parannukset: Siirry mihin tahansa sijaintiin / Lisää toistuvaa tekstiä automaattisesti / Vaihda asiakirjaikkunoiden välillä / 11 Muuntaminen Työkalut...

???? Haluatko kokeilla näitä ominaisuuksia? Lataa Kutools for Word nyt! 🚀

Ilmainen lataus     Osta nyt     Lue lisää Kutools for Wordista

 

Parhaat toimiston tuottavuustyökalut

Kutools for Word - Yli 100 Wordin työkalua

• 🤖 Kutools AI -ominaisuudet: AI-avustaja / Reaaliaikainen avustaja / Super puolalainen / Super käännös / AI editointi / AI Proofread
• 📘 Asiakirjan hallinta: Jaa sivut / Yhdistä asiakirjat / Erämuunnos PDF-muotoon
• ✏ Sisältö Editointi: Erä Etsi ja korvaa / Muuta kaikkien kuvien kokoa
• 🧹 Vaivaton puhdistus: Poista ylimääräiset välilyönnit / Poista osion katkokset
• ➕ Luovat lisäosat: Aseta Tuhat erottimet / Lisää valintaruudut / Luo QR-koodeja

Ilmainen lataus Osta nyt Lue lisää Kutoolsista