بلا شك Word 2010 هو أفضل محرر للكلماتحولها ، بصرف النظر عن توفير أدوات التحرير الأساسية وأنماط التخطيط ، فإنها توفر أيضًا خيارًا لتخصيص المستند بأي طريقة تريدها. يوفر Word 2010 مخفيًا افتراضيًا ، خيارًا لإضافة وظائف مختلفة ، على سبيل المثال ، عن طريق إدراج سطور قليلة من التعليمات البرمجية يمكنك دمج مستندات Word دون الحاجة إلى استخدام أي تطبيق مخصص من جهات خارجية. سنقوم في هذا المنشور بإدراج سطور قليلة من التعليمات البرمجية لدمج جميع محتويات المستندات الموجودة في نفس المجلد وعرضها في واحدة جديدة.
لتبدأ ، أولا تحتاج إلى وضعها في نفسهالمجلد ، تأكد من أنهم جميعا ينتمون إلى نفس إصدار Word إما Doc أو Docx. كما ترى في لقطة الشاشة أدناه ، فتحنا وثيقتين سيتم دمجهما معًا.
افتح الآن أي مستند Word واحفظه كمستند "تمكين ماكرو" ، لهذا ، انتقل إلى قائمة "ملف" وانقر فوق " حفظ باسم.
سوف يظهر مربع حوار ، من حفظ كنوع، انقر كلمة قالب تمكين الماكرو وانقر فوق حفظ.
سوف نستخدم محرر VB ، لذلك نحتاج أولاً إلى عمل مطور علامة التبويب واضح على نافذة كلمة. في حال لم تجد مطور علامة التبويب ، انتقل إلى ملف القائمة ، انقر فوق خيارات ، و في الجزء الأيسر انقر فوق تخصيص الشريط، من الجزء الأيمن تمكين مطور تحقق مربع. انقر لا بأس ب لترى مطور علامة التبويب على الشريط.
انتقل الآن إلى مطور علامة التبويب وانقر فوق البصرية الأساسية.
سوف تصل إلى مربع حوار محرر VB ، من الشريط الجانبي الأيسر انقر نقرًا مزدوجًا هذا المستند إلى افتح نافذة تعديل VB. سترى نافذة الكود على الجانب الأيمن. الآن وضعت هذه السطور من التعليمات البرمجية في ذلك.
ملحوظة: لا تنسَ تغيير مسار المجلدحيث توجد المستندات وإصدار مستندات Word في أسطر التعليمات البرمجية هذه. لتسهيل الأمر ، أضفنا هذا الاحتياط أمام الأكواد أيضًا.
Sub MergeDocs ()
خافت rng كما المدى
قاتمة MainDoc كوثيقة
خافت strFile كسلسلة
Const strFolder = "C: UsersUsman JavaidDesktopWord documents" ||| (قم بتغيير المسار الذي توجد به مستنداتك)
تعيين MainDoc = Documents.Add
strFile = Dir $ (strFolder & "* .docx") ||| (قم بتغيير امتداد الملف إلى .doc إذا كنت تتعامل مع إصدار Word 97-03)
افعل حتى strFile = ""
تعيين rng = MainDoc.Range
rng.Clapse wdCollapseEnd
rng.InsertFile strFolder & strFile
strFile = Dir $ ()
عقدة
نهاية الفرعية
الآن اضغط السيطرة + S لحفظ الماكرو المضافة حديثًا وإغلاق محرر VB. انتقل إلى مطور علامة التبويب وانقر فوق وحدات الماكرو.
من وحدات الماكرو الحوار ، حدد MergeDocs ماكرو وانقر فوق يركض.
إذا قمت بتحديد المسار والإصدار بشكل صحيح ، فستدمج جميع المستندات وتفتح في مستند جديد.
يمكنك أيضًا الاطلاع على أدلةنا التي تمت مراجعتها مسبقًا حول "الرجوع إلى السطر الأخير" التي تم تحريرها في Word 2010 واستخدام دمج المراسلات في Word 2010.
تعليقات