دمج عدة ملفات وورد مع بعضها : كود رائع

[seberbay4all]

السلام عليكم ورحمة الله وبركاته

كنت أبحث عن أداه لدمج ملفات الورد فأعجبني هذا الكود (ماكرو) فأحببت أن لأن لا أبخل به عليكم

Sub MergeDocs()

Dim rng As Range

Dim MainDoc As Document

Dim strFile As String

Const strFolder = "C:\Book\Chapters\" 'change to suit

Set MainDoc = Documents.Add

strFile = Dir$(strFolder & "*.docx") ' can change to .docx

Do Until strFile = ""

Set rng = MainDoc.Range

rng.Collapse wdCollapseEnd

rng.InsertFile strFolder & strFile

strFile = Dir$()

Loop

End Sub

ملاحظات:

1 - يمكنك تغيير الامتداد docx إلى doc إذا كانت الملفات لها هذا الامتداد.

2 - قم بتغيير مسار الملفات في الكود C:\Book\Chapters\ إلى ماكن الملفات على جهازك

3 - قد يتغير اتجاه الكتابة في الملف من اليمين إلى اليسار أو العكس .. الحل بسيط قم بتحديد الملف بالكامل عن طريق crtl+A ثم اضغط الزرين shift+crtl اليمين أو اليسار.

أتمنى أن يفيدكم الكود كما أفادني

[ابوخليل]

شكرا لك .. جعله الله في موازين عملك

[تومي محمد]

بارك الله فيك على المجهود

[أبو ردينة]

و عليكم السلام و رحمة الله و بركاته

شكرا جزاك الله خيرا