كيفية طباعة دُفعية لـ الصفحة الأخيرة من عدة مستندات Word

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

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

طباعة دُفعية لـ الصفحة الأخيرة كل مستند باستخدام Kutools

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

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

   

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

      

      نصائح:

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

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

طباعة دُفعية لـ الصفحة الأخيرة كل مستند باستخدام VBA

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

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

   

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

   Sub BatchPrintLastPage()
       Dim folderPath As String
       Dim fileName As String
       Dim doc As Document
       Dim lastPage As Long
   
       ' 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.Repaginate
           lastPage = doc.ComputeStatistics(wdStatisticPages)
   
           doc.PrintOut Range:=wdPrintRangeOfPages, Pages:=CStr(lastPage), Background:=False
   
           doc.Close SaveChanges:=wdDoNotSaveChanges
           fileName = Dir()
       Loop
   
       Application.ScreenUpdating = True
   End Sub
   

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

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

الخاتمة

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

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