5 replies to this topic

[Josh Bond]

This Microsoft Word macro will combine all files in a folder. Doesn't matter if you have 5 files or 500. It works on HTML files, RTF, DOC, DOCX, plain text files, and even wordperfect and open office files. I'm using this to combine dozens of RTF files together at once without manually opening each one and copying it.

Sub MergeDocs()

Dim rng As Range

Dim MainDoc As Document

Dim strFile As String

'EDIT THIS TO INCLUDE YOUR PATH AND FOLDER NAME
Const strFolder = "F:\lange\OT\gen\footnote\"

Set MainDoc = Documents.Add

'EDIT THE FILE EXTENSION IF NECESSARY.
'If you are combining HTML files, change rtf extension to .htm or .html
strFile = Dir$(strFolder & "*.rtf")

Do Until strFile = ""

Set rng = MainDoc.Range

rng.Collapse wdCollapseEnd

rng.InsertFile strFolder & strFile

strFile = Dir$()

Loop

End Sub

[BaptizedBeliever]

What about pdf files? Another question is this: will it place the files in a specific order? Or just however it wants?

Brad

[Josh Bond]

It combines alphanumerically/alphabetically. It won't combine PDF's.

[BaptizedBeliever]

ok. so, it'll combine all the html files together...as an html file? Or as a rtf/docx file?

Brad

[Josh Bond]

It combines all the files into a live Word document that's not anything until you save it. You save it as...a PDF, a docx, txt, rtf, html, all the save as options.

[BaptizedBeliever]

Thanks for posting this. I just used it and it helped save at least 15-20 minutes of copy/paste and formatting with each file.

Brad