كيفية طباعة معلومات المستندات دفعةً واحدة في Word

أحيانًا لا تحتاج إلى طباعة محتوى المستند نفسه، بل معلوماته مثل اسم الملف، المؤلف، عدد الصفحات، تاريخ آخر حفظ، أو إجمالي الكلمات. يتيح لك برنامج Word عرض وطباعة هذه المعلومات لملف واحد، لكنه لا يوفّر طريقة بسيطة لطباعتها لعدة مستندات دفعةً واحدة—وإذا كنت تعمل مع العديد من الملفات، يصبح هذا الأمر سريعًا مملًّا.

في هذا الدليل التعليمي، ستتعلم كيفية طباعة معلومات المستندات دفعةً واحدة من عدة مستندات Word باستخدام طريقتين.

• الطريقة 1: اطبع معلومات المستندات دفعةً واحدة باستخدام Kutools for Word
• الطريقة 2: اطبع معلومات المستندات دفعةً واحدة باستخدام ماكرو VBA

اطبع معلومات المستندات دفعةً واحدة باستخدام Kutools for Word

يوفر Kutools for Word ميزةالطباعة الجماعيةالتي تتيح لك طباعة معلومات المستندات دفعةً واحدة لعدة ملفات في آنٍ واحد عبر واجهة مرئية.

1. افتح برنامج Word وانتقل إلىKUTOOLS PLUSعلامة التبويب، ثم انقر فوقطباعة جماعية.

   

2. في نافذةطباعة صفحات محددة، قم بما يلي:
   1. أضف المستندات التي تريد طباعتها:
      • انقرإضافة ملفاتلاختيار مستندات Word محددة.
      • أو انقرإضافة مجلدلتضمين جميع المستندات في المجلد وجميع مجلداته الفرعية.
   2. انتقل إلى علامة التبويبمعلومات المستند، وحددمعلومات المستندضمن قسممعلومات الطباعة.
   3. انقرطباعة.

      

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

بعد انتهاء الدُفعة، يعرض Kutools for Word نافذة ملخّص توضح عدد المستندات التي تم طباعتها بنجاح.

اطبع معلومات المستندات دفعةً واحدة باستخدام VBA

تعتمد هذه الطريقة على ماكرو VBA بسيط يعالج كل مستند، ويُخرِج معلوماته طباعةً، ثم ينتقل تلقائيًا إلى السجل التالي.

1. في مستند Word جديد أو منفصل لا تنوي طباعته، اضغط علىAlt + F11 لفتح محرر VBA.
2. انقر فوقإدراج>وحدة نمطية (Module).

   

3. الصق الماكرو أدناه في نافذة الوحدة النمطية، ثم استبدلC:\YourFolder\بالمسار الخاص بمجلدك.

   Sub BatchPrintDocumentInformation()
       Dim folderPath As String
       Dim fileName As String
       Dim doc As Document
   
       ' Set your folder path here (must end with a backslash)
       folderPath = "C:\YourFolder\"
       If Right(folderPath, 1) <> "\" Then folderPath = folderPath & "\"
   
       fileName = Dir(folderPath & "*.doc*")
   
       Application.ScreenUpdating = False
   
       Do While fileName <> ""
           Set doc = Documents.Open( _
               FileName:=folderPath & fileName, _
               ReadOnly:=True, _
               AddToRecentFiles:=False _
           )
   
           doc.PrintOut _
               Item:=wdPrintProperties, _
               Background:=False
   
           doc.Close SaveChanges:=wdDoNotSaveChanges
   
           fileName = Dir()
       Loop
   
       Application.ScreenUpdating = True
   End Sub

4. اضغط علىF5 لتشغيل الماكرو.

يطبع الماكرو معلومات (خصائص) كل مستند Word موجود في المجلد المحدد، باستثناء المستندات المخزَّنة في المجلدات الفرعية.

الخاتمة

إذا كنت تبحث عن طريقة سريعة ومرئية لطباعة معلومات المستندات دفعةً واحدة، فإن Kutools for Word هو الخيار الأمثل للبدء. فهو يُدير ملفات متعددة عبر واجهة واحدة ويُلغي الحاجة إلى التكرار اليدوي. أما إذا كنت تفضّل حلاً مدمجًا ولا تمانع بذل القليل من الجهد في الإعداد، فيُقدّم ماكرو VBA بديلاً تقنيًّا أكثر مرونة.

آمل أن يكون هذا الدليل التعليمي قد نال إعجابك! إذا رغبت في استكشاف المزيد من نصائح Word والحلول العملية،فاضغط هنا من فضلكلتصفح مجموعة دروسنا الكاملة حول Word.