نصيحة: اللغات الأخرى مترجمة من قبل Google. يمكنك زيارة English نسخة من هذا الرابط.
تسجيل الدخول
x
or
x
x
التسجيل
x

or

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

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

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

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


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

الـ تنسيق تنسيق الوثيقة فائدة كوتولس ل إكسيل يمكن أن يساعدك على تحويل جميع مستندات تنسيق .docx بسرعة في مجلد محدد إلى ملفات pdf. انظر لقطة للشاشة:

كوتولس للكلمة: مع أكثر من 100 مفيد الوظائف الإضافية في Word ، مجانا لمحاولة مع عدم وجود قيود في أيام 30. تحميل وتجريبية مجانية الآن!


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

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

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

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

رمز VBA: تحويل الدفعة مستندات Word المتعددة إلى ملفات pdf في Word

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 ل Word

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

كوتولس للكلمة : مع أكثر من 100 الوظائف الإضافية في Word مفيد ، مجانا في محاولة مع عدم وجود قيود في أيام شنومكس.

1. انقر كوتولس بلاس > وثيقة / دوكإكس. انظر لقطة الشاشة:

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

2.1) حدد المجلد الذي يحتوي على المستندات التي ستقوم بتحويلها إلى pdf في مجلد ملف المصدر قسم.

2.2 حدد تحويل docx إلى pdf من تنسيق تحويل قائمة منسدلة؛

2.3) افتراضيًا ، مسار الوجهة نفسه كمصدر المربع محدد. إذا كنت ترغب في وضع جميع ملفات pdf المحولة في نفس المجلد ، فقط حدد هذا الخيار ؛

إذا كنت تريد فصل ملفات PDF والمستندات المصدر ، فأنت بحاجة إلى إلغاء تحديد مسار الوجهة نفسه كمصدر ، وﺣﺪد ﻣﺠﻠﺪًا ﺟﺪﻳﺪًا ﻟﺤﻔ the ﻣﻠﻔﺎت pdf ﻓﻲ حفظ في صندوق؛

شنومكس) انقر فوق بداية زر. انظر لقطة الشاشة:

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

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

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



أوصت كلمة أدوات الإنتاجية

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

  • يمكن إجراء العمليات المعقدة والمتكررة لمرة واحدة خلال ثوانٍ.
  • إدراج صور متعددة عبر المجلدات في مستند Word مرة واحدة.
  • دمج ودمج ملفات Word متعددة عبر مجلدات في واحد بالترتيب المطلوب.
  • قسّم المستند الحالي إلى مستندات منفصلة وفقًا للعنوان أو فاصل المقاطع أو معايير أخرى.
  • تحويل الملفات بين Doc و Docx و Docx و PDF ، ومجموعة من الأدوات للتحويلات والتحديدات الشائعة ، وما إلى ذلك ...
Say something here...
symbols left.
You are guest ( Sign Up? )
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.
    Stefan · 1 months 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 months 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 · 3 months 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 · 4 months 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