Question

I have huge number of Word files I need to merge (join) into one file, and will be time consuming to use the Word merger (one by one). Have you experienced any tool that can handle this job?

Answer 1

Sub MergeAllDocuments(AllDocumentsPath as String, MasterDocumentPath as String)   Dim MasterDocument As Document    Set MasterDocument = Documents.Open(FileName:=MasterDocumentPath)    TheDocumentPath = Dir(AllDocumentsPath , vbNormal)   While TheDocumentPath <> ''     ' Append the next doc to the end of the master doc. (The      ' special '\EndOfDoc' bookmark is always available!)     MasterDocument.Bookmarks('\EndOfDoc').Range.InsertFile TheDocumentPath     TheDocumentPath = Dir   Wend    MasterDocument.Save End Sub  MergeAllDocuments 'C:\MySeparateDocuments\*.doc', 'C:\MasterDocument.doc' 

I have one question – why do you want do do such a thing (with a ‘huge number’ of documents, at least)?