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

يُعد طباعة الصفحة الأولى فقط من عدة مستندات Word حاجة شائعة لإنشاء أغلفة، فواتير، ملخصات، أو أوراق عناوين. ومع ذلك، لا يوفّر Microsoft Word خيارًا أصليًّا لطباعة دُفعات بـ«الصفحة الأولى فقط». واعتمادًا على إعداداتك، هناك طريقتان عمليتان لتحقيق ذلك.

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

دُفعات طباعة الصفحة الأولى لكل مستند باستخدام Kutools

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

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

   

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

      

      نصائح:

      • تتيح لك الخيارات الأخرى فينطاق الطباعةطباعة الصفحة الأخيرة، أو الصفحات الفردية أو الزوجية، أو جميع الصفحات، أو نطاق صفحات مخصص عبر جميع المستندات.
      • فعّلالطباعة بترتيب عكسيلتغيير ترتيب إخراج الصفحات، مما يضمن بقاء ترتيب الصفحات المطبوعة صحيحًا.

عند اكتمال الطباعة الدُفعية، تظهر نافذة النتائج لعرض عدد المستندات التي تمت معالجتها بنجاح.

دُفعات طباعة الصفحة الأولى لكل مستند باستخدام VBA

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

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

   

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

   Sub BatchPrintFirstPage()
       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 Range:=wdPrintRangeOfPages, Pages:="1", Background:=False
           doc.Close SaveChanges:=wdDoNotSaveChanges
   
           fileName = Dir()
       Loop
   
       Application.ScreenUpdating = True
   End Sub

4. اضغطF5 لتشغيل وحدة الماكرو.

يطبع الماكرو الصفحة الأولى من كل مستند Word موجود في المجلد المحدد، ولا يشمل المستندات المخزَّنة في المجلدات الفرعية.

الخاتمة

إذا كنت تبحث عن طريقة سريعة وسهلة لطباعة الصفحة الأولى فقط من مستندات متعددة، فإن ميزة «الطباعة الجماعية» من Kutools هي الخيار الأسهل. أما إذا كنت تفضّل حلاً مدمجًا ولا تمانع إجراء بعض الإعدادات، فيقدّم ماكرو VBA بديلاً مرِنًا وقابلًا لإعادة الاستخدام.

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