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

1. قم بإنشاء مستند Word جديد ستضع المستندات المدمجة ، ثم انقر فوق "موافق" إدراج > هدف > نص من ملف. انظر لقطة الشاشة:

2. في مربع حوار فتح ملف ، من فضلك 1 افتح المجلد الذي يحتوي على المستندات التي ستقوم بدمجها ؛ 2 حدد المستندات التي ستقوم بدمجها ؛ وثم 3 انقر على إدراج زر. انظر لقطة الشاشة:

معلومه- سرية: تحتجز CTRL المفتاح ، يمكنك تحديد مستندات متعددة بالنقر فوقها واحدة تلو الأخرى ؛ تحتجز تغير المفتاح ، يمكنك تحديد عدة مستندات متجاورة بالنقر فوق الأول والأخير.

3. إذا تم حفظ المستندات التي تحتاج إلى دمجها في مجلدات مختلفة ، فيرجى تكرار الخطوة 1-2 أعلاه حسب حاجتك.

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

دمج مستندات Word المتعددة بسرعة من العديد من المجلدات بشكل مجمّع ، بترتيب محدد

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

بدلاً من ذلك ، يمكنك استخدام VBA لدمج مستندات متعددة في مستند واحد في Word.

1. انقل جميع مستندات Word التي ستقوم بدمجها في نفس المجلد.

2. أعد تسمية مستندات Word بسلسلة من أسماء التسلسل. 1 انقر بزر الماوس الأيمن فوق مستند وحدد إعادة تسمية من قائمة السياق ، ثم اكتب اسمًا جديدًا ، مثل Part1; 2 كرر لإعادة تسمية المستندات الأخرى. انظر لقطة الشاشة:

3. انقر نقرًا مزدوجًا لفتح المستند الذي ستضعه في بداية الملف المدمج.

4. صحافة ALT + F11 مفاتيح معًا لفتح نافذة Microsoft Visual Basic for Application.

5. انقر إدراج > وحدة، ثم قم بلصق رمز VBA أدناه في نافذة الوحدة النمطية الجديدة ؛

فبا: دمج مستندات متعددة في Word

Sub MergeDocuments()
Application.ScreenUpdating = False
MyPath = ActiveDocument.Path
MyName = Dir(MyPath & "\" & "*.docx")
i = 0
Do While MyName <> ""
If MyName <> ActiveDocument.Name Then
Set wb = Documents.Open(MyPath & "\" & MyName)
Selection.WholeStory
Selection.Copy
Windows(1).Activate
Selection.EndKey Unit:=wdLine
Selection.TypeParagraph
Selection.Paste
i = i + 1
wb.Close False
End If
MyName = Dir
Loop
Application.ScreenUpdating = True
End Sub

ملاحظة: يمكن لـ VBA هذا فقط دمج مستندات Word التي تكون امتدادات ملفاتها docx. إذا كنت بحاجة إلى دمج مستندات (.doc) ، فيرجى استبدال DOCX في الكود MyName = Dir (MyPath & "\" & "* .docx") إلى الوثيقة.

6.انقر يجري زر أو اضغط F5 مفتاح لتطبيق VBA.

ملحوظة: يجب عليك إعادة تسمية المستندات بسلسلة من الأسماء المتسلسلة ، وإلا فقد تكون المستندات مضبوطة أو مفقودة في الملف المدمج.

بعد التثبيت Kutools for Word، لا تحتاج إلى إنشاء مستند جديد فارغ ، ولا وضع المستند في نفس المجلد. مع دمج من Kutools ، يمكنك دمج مستندات متعددة بسرعة في واحدة في كلمة. الرجاء القيام بما يلي:

1. انقر كوتولس بلس > دمج. انظر لقطة الشاشة:

2. في مربع الحوار "دمج المستندات" ، يرجى إضافة المستندات التي ستقوم بدمجها: 1 انقر إضافة ملفات زر؛ 2 في مربع الحوار "استعراض" ، افتح المجلد الذي يحتوي على المستندات التي ستقوم بدمجها ؛ 3 عقد CTRL or تغير مفتاح لتحديد هذه الوثائق ؛ وثم 4 انقر على OK زر. انظر لقطة الشاشة:

معلومه- سرية:
(1) إذا كنت بحاجة إلى دمج المستندات المحفوظة في مجلد مختلف ، فيرجى تكرار هذه الخطوة لإضافتها واحدة تلو الأخرى ؛
(2) يمكنك أيضًا إضافة جميع المستندات المحفوظة في مجلد واحد بشكل مجمّع بواسطة ملف إضافة مجلد .

3. الآن عدت إلى مربع حوار دمج المستندات ، من فضلك 1 اطلب هذه المستندات عن طريق تحريك لأعلى و تحريك لأسفل وصفت؛ 2 تحديد فاصل بين المستندات من استراحة بين المستندات قائمة منسدلة؛ وثم 3 انقر على دمج زر. انظر لقطة الشاشة:

الآن يتم دمج جميع مستندات Word المحددة في مستند جديد كما هو موضح أدناه لقطة الشاشة:

ملحوظة: لمعلوماتك ، يتم حجز التنسيق الأصلي لجميع المستندات التي قمت بدمجها في النتيجة المدمجة.