انسخ جميع مستندات Word المفتوحة دفعة واحدة

عندما يكون لديك عدة مستندات Word مفتوحة، قد ترغب في نسخها دفعة واحدة إلى مجلد آخر—سواء للنسخ الاحتياطي، أو المشاركة، أو رفعها إلى التخزين السحابي، أو نقلها إلى جهاز كمبيوتر آخر، أو إرفاقها برسائل البريد الإلكتروني. وعلى الرغم من أن Word لا يوفّر أمرًا مباشرًا لنسخ جميع المستندات المفتوحة في آنٍ واحد، إلا أن هناك طرقًا موثوقة تُحقّق لك ذلك بسهولة.

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

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

استخدم «حفظ باسم» لحفظ كل مستند مفتوح في مجلد واحد

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

Office Tab

التنقل بين علامات التبويب في Word وExcel وPowerPoint وأكثر—تمامًا كما تفعل في متصفح الويب، مع تبديل سلس داخل نافذة واحدة.

تنزيل مجانيمعرفة المزيد

1. في Word، انتقل إلى أول مستند مفتوح.
2. انقرملف>حفظ باسم، ثم اختراستعراض.

   

3. في نافذة «حفظ باسم»، انتقل إلى المجلد الوجهة وتأكد من ظهور اسمه في شريط العنوان، ثم انقرحفظ.

   

4. كرّر نفس الخطوات لكل مستند مفتوح، مع الحرص على اختيار المجلد نفسه دائمًا.
5. عند الانتهاء، افتح ذلك المجلد في مستكشف الملفات، واضغطCtrl + Aلتحديد جميع الملفات، ثم انقر بزر الماوس الأيمن واخترنسخ.

   

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

انسخ جميع المستندات المفتوحة بنقرة واحدة باستخدام Kutools for Word

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

1. افتح Word وتأكد من أن جميع المستندات التي ترغب في نسخها مفتوحة بالفعل ومحفوظة.
2. على علامة التبويبKUTOOLS PLUSفي الشريط، انقرالمزيد>نسخ جميع الملفات المفتوحة.

   

3. ستظهر نافذة تأكيد تفيد بأنه تم نسخ الملفات بنجاح. انقرموافق.

   

بعد النقر علىنسخ جميع الملفات المفتوحة، تُنسخ المستندات المحددة إلى الحافظة. يمكنك بعد ذلك فتح أي مجلد وجهة والضغط علىCtrl + V لصقها هناك، أو لصقها مباشرةً في نافذة بريد إلكتروني كمرفقات.

ملاحظة:

تأكد من حفظ جميع المستندات المفتوحة قبل استخدام هذه الميزة. ففي حال احتوى أي مستند على تغييرات غير محفوظة، فلن يُنسخ بنجاح. وسيقوم Kutools بإدراج الملفات الفاشلة لتمكينك من حفظها وإعادة المحاولة بسهولة.

انسخ جميع المستندات المفتوحة تلقائيًا باستخدام VBA

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

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

   

3. الصق الكود التالي في الوحدة النمطية.

   Option Explicit
   
   Sub CopyAllOpenDocuments()
   
       Dim doc As Document
       Dim destFolder As String
       Dim src As String, dst As String
       Dim fso As Object
       Dim count As Long
   
       With Application.FileDialog(msoFileDialogFolderPicker)
           If .Show <> -1 Then Exit Sub
           destFolder = .SelectedItems(1)
       End With
   
       If Right(destFolder, 1) <> "\" Then destFolder = destFolder & "\"
   
       Set fso = CreateObject("Scripting.FileSystemObject")
   
       For Each doc In Application.Documents
           If doc.Path <> "" Then
               src = doc.FullName
               dst = destFolder & doc.Name
   
               If LCase$(src) <> LCase$(dst) Then
                   fso.CopyFile src, dst, True
                   count = count + 1
               End If
           End If
       Next doc
   
       MsgBox count & " document(s) copied successfully.", vbInformation, "Kutools for Word"
   
   End Sub

4. اضغطF5 لتشغيل الماكرو.
5. ستظهر نافذة اختيار المجلد. اختر المجلد الوجهة الذي تريد نسخ المستندات المفتوحة إليه، ثم انقرموافق.

   

6. ستظهر نافذة تأكيد تعرض عدد المستندات التي تم نسخها بنجاح.

   

تم نسخ جميع المستندات المؤهلة المفتوحة الآن إلى المجلد المحدد. يمكنك فتح هذا المجلد لعرض الملفات المنقولة، أو نقلها، أو رفعها، أو إرفاقها حسب احتياجاتك.

أي طريقة يُفضَّل استخدامها؟

الخاتمة

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

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