Multiple Document Merge.

Hi Guys..

hope u all are well...

Sometime we have thousands of Ms Word documents having lot of pages, all are in one Folder / Directory and we need to merge them all in one single document, wonder how...........is that Magic let's start this little trick.

Open Ms Word and press Alt + F11 to invoke VBA editor, double click on this document, and paste the below code.

Sub MergeDocs()
Dim rng As Range
Dim MainDoc As Document
Dim strFile As String
Const strFolder = "C:\My Word Documents\" 'change to the folder path
Set MainDoc = Documents.Add
strFile = Dir$(strFolder & "*.doc") ' can change to .docx
Do Until strFile = ""
Set rng = MainDoc.Range
rng.Collapse wdCollapseEnd
rng.InsertFile strFolder & strFile
strFile = Dir$()
Loop
End Sub


close the VBA editor save the file as Magic or whatever you wana name it.

now place this file inside the folder / directory where your all documents are located.

open magic file and press Alt + F8 to run the macro select MergeDocs and click on Run button.

now it will merge all the documents into one.........wow......
if you like this then write few lines ...........or atleast say thanks..

ohhho very niceeeeeeeee This is visual basic block

its a very nice sharing.

its a wonderful sharing.

ڈئیر عظیم اگر آپ اردو میں شیئرنگ کرتے تو اچھا تھا

nice janab...

Originally Posted by azeeem_786

Hi Guys..

hope u all are well...

Sometime we have thousands of Ms Word documents having lot of pages, all are in one Folder / Directory and we need to merge them all in one single document, wonder how...........is that Magic let's start this little trick.

Open Ms Word and press Alt + F11 to invoke VBA editor, double click on this document, and paste the below code.

Sub MergeDocs()
Dim rng As Range
Dim MainDoc As Document
Dim strFile As String
Const strFolder = "C:\My Word Documents\" 'change to the folder path
Set MainDoc = Documents.Add
strFile = Dir$(strFolder & "*.doc") ' can change to .docx
Do Until strFile = ""
Set rng = MainDoc.Range
rng.Collapse wdCollapseEnd
rng.InsertFile strFolder & strFile
strFile = Dir$()
Loop
End Sub


close the VBA editor save the file as Magic or whatever you wana name it.

now place this file inside the folder / directory where your all documents are located.

open magic file and press Alt + F8 to run the macro select MergeDocs and click on Run button.

now it will merge all the documents into one.........wow......
if you like this then write few lines ...........or atleast say thanks..

Thanks

but let me know that i am trying to work on te above mentioned code in MS OFFICE 2000 with XP Windows but it does not work help >>>>>>>>>>>>>>>>>

nice sharing
keep sharing please
i like this

What exactly u r facing? can u explain little more..
if possible paste ur code or the way u r doin..

Originally Posted by naeem01

nice sharing
keep sharing please
i like this

dear i m facing some problems regarding these codes of vb


would u like to help me

Sure y not...
but plz explain what exactly you r facing.

Thanks 4 this information.please this post can u translate into urdu?

Sure but hereafter.....Don't know much about urdu...if i am going to type it, there is a lot of chance of errors and it takes too much time as i am not use too..............Sorry for that wish somebody can do that for u.

very useful

thanks

Originally Posted by azeeem_786

Hi Guys..

hope u all are well...

Sometime we have thousands of Ms Word documents having lot of pages, all are in one Folder / Directory and we need to merge them all in one single document, wonder how...........is that Magic let's start this little trick.

Open Ms Word and press Alt + F11 to invoke VBA editor, double click on this document, and paste the below code.

Sub MergeDocs()
Dim rng As Range
Dim MainDoc As Document
Dim strFile As String
Const strFolder = "C:\My Word Documents\" 'change to the folder path
Set MainDoc = Documents.Add
strFile = Dir$(strFolder & "*.doc") ' can change to .docx
Do Until strFile = ""
Set rng = MainDoc.Range
rng.Collapse wdCollapseEnd
rng.InsertFile strFolder & strFile
strFile = Dir$()
Loop
End Sub


close the VBA editor save the file as Magic or whatever you wana name it.

now place this file inside the folder / directory where your all documents are located.

open magic file and press Alt + F8 to run the macro select MergeDocs and click on Run button.

now it will merge all the documents into one.........wow......
if you like this then write few lines ...........or atleast say thanks..

I CAN'T UNDERSTAND YOUR SHARING PLZZZ TELL ME IN DETAILS PLZZZZZZ
ON MY INDIVIDUALLY
AT
mazhar-iqbal@live.com

for all who are facing problem

to use VBA u must have installed it first...

nice sharing

nice sharing

good Sharing dear

good, plz tell in detail