دمج مستندات Word 2010 المتعددة

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

للبدء ، تحتاج أولاً إلى وضعها في نفس المجلد ، تأكد من أنها جميعًا تنتمي إلى نفس إصدار Word إما Doc أو Docx. كما ترى في لقطة الشاشة أدناه ، قمنا بفتح وثيقتين سيتم دمجهما معًا.

الآن افتح أي مستند Word وحفظه كمستند ماكرو ، لهذا ، انتقل إلى القائمة ملف وانقر حفظ باسم.

سيظهر مربع حوار من حفظ كنوع، انقر قالب Word تمكين ماكرو وانقر فوق حفظ.

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

في النقر على الجزء الأيسر تخصيص الشريط، من الجزء الأيمن تمكين مطور خانة الاختيار. انقر لا بأس ب لترى مطور علامة تبويب على الشريط.

انتقل الآن إلى مطور التبويب وانقر البصرية الأساسية.

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

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

MergeDocs الفرعي ()

Dim rng As Range

تعتيم MainDoc كمستند

Dim strFile As String

Const strFolder = “C: \ Users \ Usman Javaid \ Desktop \ Word documents \” ||| (قم بتغيير المسار حيث توجد مستنداتك)

تعيين MainDoc = المستندات. أضف

strFile = Dir $ (strFolder & “* .docx”) ||| (قم بتغيير امتداد الملف إلى .doc إذا كنت تتعامل مع إصدار Word 97-03)

افعل حتى strFile = “”

تعيين rng = MainDoc. نطاق

رنج. طي wdCollapseEnd

رنج. InsertFile strFolder & strFile

strFile = Dir $ ()

عقدة

نهاية فرعية

الآن اضغط Ctrl + S لحفظ الماكرو المضافة حديثًا وإغلاق محرر VB. انتقل إلى مطور التبويب وانقر وحدات الماكرو.

من وحدات الماكرو الحوار ، حدد MergeDocs الماكرو وانقر يركض.

إذا كنت قد حددت المسار والإصدار بشكل صحيح ، فسيتم دمج جميع المستندات وفتحها في مستند جديد.

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