Note: The other languages of the website are Google-translated. Back to English
تسجيل الدخول  \/ 
x
or
x
سجلوا معنا  \/ 
x

or

كيفية تحويل عدة مستندات Word إلى ملفات PDF دفعة واحدة؟

من السهل عليك تحويل مستند Word إلى ملف PDF باستخدام وظيفة حفظ باسم في Word. ولكن إذا كنت تريد تحويل جميع مستندات Word الموجودة في مجلد إلى ملفات PDF منفصلة مرة واحدة ، فكيف يمكنك تحقيق ذلك؟ ستوضح لك هذه المقالة رمز VBA لتحويل مستندات Word المتعددة إلى ملفات pdf في Word دفعة واحدة.

قم بتحويل مستندات Word متعددة إلى ملفات pdf باستخدام VBA
قم بتحويل مستندات Word متعددة إلى ملفات pdf باستخدام Kutools for Word


قم بتحويل مستندات Word متعددة إلى ملفات pdf باستخدام VBA

يساعدك رمز VBA التالي على تحويل جميع مستندات Word الموجودة في مجلد بسرعة إلى ملفات pdf في وقت واحد. الرجاء القيام بما يلي.

1. في Word ، اضغط على قديم + F11 مفاتيح لفتح ميكروسوفت فيسوال باسيك للتطبيقات نافذة.

2. في ال ميكروسوفت فيسوال باسيك للتطبيقات الإطار، انقر فوق إدراج > وحدة، ثم انسخ رمز VBA أدناه في نافذة الوحدة النمطية.

كود فبا: دفعة تحويل مستندات وورد متعددة إلى ملفات pdf في وورد

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. اضغط على F5 مفتاح لتشغيل الكود.

4. ينبثق مربع حوار "تصفح" ، يرجى تحديد المجلد الذي يحتوي على مستندات Word التي ستحولها إلى ملفات pdf ، ثم انقر فوق OK .

ثم يتم تحويل جميع مستندات Word الموجودة في المجلد المحدد إلى ملفات pdf منفصلة مرة واحدة. انظر لقطة الشاشة:


قم بتحويل مستندات Word متعددة إلى ملفات pdf باستخدام Kutools for Word

إذا كان من الصعب التعامل مع التعليمات البرمجية لـ VBA ، فيمكنك تجربة تحويل المستندات فائدة كوتولس للكلمة لحل المشكلة.

كوتولس للكلمة : مع أكثر من 100 وظيفة إضافية مفيدة لـ Word ، تجربة مجانية بدون قيود خلال 60 يومًا.

1. انقر كوتولس بلس > Doc / Docx. انظر لقطة الشاشة:

2. في ال محول تنسيق المستند نافذة ، ما عليك القيام به على النحو التالي:

2.1) حدد المجلد الذي يحتوي على المستندات التي ستقوم بتحويلها إلى pdf في مجلد الملف المصدر قسم.
2.2 اختر تحويل docx إلى pdf من تنسيق تحويل قائمة منسدلة؛
2.3) بشكل افتراضي ، فإن ملف مسار الوجهة هو نفس المصدر المربع محددًا. إذا كنت تريد وضع جميع ملفات pdf المحولة في نفس المجلد ، فقط احتفظ بهذا الخيار محددًا ؛
إذا كنت تريد فصل ملفات pdf والمستندات المصدر ، فستحتاج إلى إلغاء تحديد ملف مسار الوجهة هو نفس المصدر ، وحدد مجلدًا جديدًا لحفظ ملفات pdf في ملف حفظ في صندوق؛
شنومكس) انقر فوق بداية زر. انظر لقطة الشاشة:

3. ثم ينبثق مربع حوار لإخبارك بعدد المستندات التي تم تحويلها بنجاح ، انقر فوق OK زر وأغلق ملف محول تنسيق المستند نافذة.

يتم الآن تحويل جميع المستندات بتنسيق docx. إلى ملفات pdf.

إذا كنت تريد الحصول على نسخة تجريبية مجانية من هذه الأداة المساعدة ، فيرجى الانتقال إلى تنزيل البرنامج مجانًا اولا ثم انتقل لتطبيق العملية حسب الخطوات اعلاه.



أدوات إنتاجية Word الموصى بها

 

Kutools For Word - أكثر من 100 ميزة متقدمة لـ Word ، وفر وقتك بنسبة 50 ٪

  • يمكن إجراء العمليات المعقدة والمتكررة لمرة واحدة في ثوانٍ.
  • أدخل صورًا متعددة عبر المجلدات في مستند Word مرة واحدة.
  • دمج ودمج ملفات Word المتعددة عبر المجلدات في ملف واحد بالترتيب الذي تريده.
  • قسّم المستند الحالي إلى مستندات منفصلة وفقًا للعنوان أو فاصل المقطع أو معايير أخرى.
  • قم بتحويل الملفات بين Doc و Docx و Docx و PDF ، ومجموعة من الأدوات للتحويلات والاختيارات الشائعة ، وما إلى ذلك ...

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 · 1 months ago
    VBA 很棒!!感謝您的分享。
  • To post as a guest, your comment is unpublished.
    K DEG · 2 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 · 2 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 · 2 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 · 3 months ago
    Change
     xIndex = InStr(xFileName, ".") + 1


  • To post as a guest, your comment is unpublished.
    San · 10 months 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 · 10 months 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 · 1 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