Note: The other languages of the website are Google-translated. Back to English
Oturum aç  \/ 
x
or
x
Kaydol  \/ 
x

or

Birden çok Word belgesini pdf dosyalarına toplu olarak nasıl dönüştürebilirim?

Word'deki Farklı Kaydet işleviyle bir Word belgesini PDF dosyasına dönüştürmek sizin için kolaydır. Ancak bir klasördeki tüm Word belgelerini aynı anda ayrı PDF dosyalarına dönüştürmek istiyorsanız, bunu nasıl başarabilirsiniz? Bu makale size birden fazla Word belgesini Word'deki pdf dosyalarına toplu olarak dönüştürmek için bir VBA kodu gösterecektir.

VBA ile çoklu Word belgelerini pdf dosyalarına toplu dönüştürün
Kutools for Word ile birden fazla Word belgesini pdf dosyalarına dönüştürün


VBA ile çoklu Word belgelerini pdf dosyalarına toplu dönüştürün

Aşağıdaki VBA kodu, bir klasördeki tüm Word belgelerini aynı anda hızlı bir şekilde pdf dosyalarına dönüştürmenize yardımcı olur. Lütfen aşağıdaki işlemleri yapın.

1. Word'de, Ara Toplam + F11 tuşlarını açmak için Uygulamalar için Microsoft Visual Basic pencere.

2. içinde Uygulamalar için Microsoft Visual Basic Pencere, tıklayın Ekle > modül, ardından VBA kodunu Modül penceresine kopyalayın.

VBA kodu: Birden çok Word belgesini Word'deki pdf dosyalarına toplu olarak dönüştürün

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. Tuşuna basın. F5 kodu çalıştırmak için anahtar.

4. Bir Gözat iletişim kutusu açılır, lütfen pdf dosyalarına dönüştüreceğiniz Word belgelerini içeren klasörü seçin ve OK düğmesine basın.

Ardından, seçilen klasördeki tüm Word belgeleri bir defada ayrı pdf dosyalarına dönüştürülür. Ekran görüntüsüne bakın:


Kutools for Word ile birden fazla Word belgesini pdf dosyalarına dönüştürün

VBA kodunun işlenmesi zorsa, deneyebilirsiniz Belgeleri dönüştür yarar Kutools for Word sorunu çözmek için.

Kutools for Word : 100'den fazla kullanışlı Word eklentisiyle, 60 gün içinde hiçbir sınırlama olmaksızın ücretsiz denemek.

1. tık Kutools Artı > Doc / Docx. Ekran görüntüsüne bakın:

2. içinde Belge Biçimi Dönüştürücü penceresi, aşağıdakileri yapmanız gerekir:

2.1) içinde pdf'ye dönüştüreceğiniz belgeleri içeren klasörü seçin. Kaynak dosya klasörü Bölüm;
2.2 Seçin Docx'i pdf'ye dönüştürün itibaren Biçim Dönüştürme açılır liste;
2.3) Varsayılan olarak, Hedef yol, kaynakla aynı kutusu işaretlenmiştir. Dönüştürülen tüm pdf dosyalarını aynı klasöre yerleştirmek istiyorsanız, bu seçeneği seçili bırakın;
Pdf dosyalarını ve kaynak belgeleri ayırmak isterseniz, işaretini kaldırmanız gerekir. Hedef yol, kaynakla aynı kutusuna, pdf dosyalarını kaydetmek için yeni bir klasör seçin. Şuraya kaydet Kutu;
2.4) Başlama buton. Ekran görüntüsüne bakın:

3. Ardından, size kaç belgenin başarıyla dönüştürüldüğünü söyleyen bir iletişim kutusu açılır, OK düğmesine basın ve kapatın Belge Biçimi Dönüştürücü pencere.

Artık tüm .docx biçimli belgeler pdf dosyalarına dönüştürülüyor.

Bu yardımcı programı ücretsiz olarak denemek istiyorsanız, lütfen şu adrese gidin: yazılımı ücretsiz indirin önce ve sonra yukarıdaki adımlara göre işlemi uygulamaya gidin.


Önerilen Word Üretkenlik Araçları

 

Kutools For Word - Word İçin 100'den Fazla Gelişmiş Özellik,% 50 Zaman Kazanın

  • Karmaşık ve tekrarlanan işlemler saniyeler içinde tek seferlik işlem yapılabilir.
  • Klasörler arasında birden çok görüntüyü aynı anda Word belgesine ekleyin.
  • Birden çok Word dosyasını klasörler arasında istediğiniz sırada birleştirin ve birleştirin.
  • Geçerli belgeyi başlık, bölüm sonu veya diğer kriterlere göre ayrı belgelere bölün.
  • Dosyaları Doc ve Docx, Docx ve PDF, ortak dönüştürme ve seçim için araçlar koleksiyonu vb. Arasında dönüştürün ...
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