Sub MergeDocs()

Dim MainDoc As Document

Dim strFile As String

Const strFolder = "Q:\DTV14\Mass Changes\"

Set MainDoc = Documents.Add

strFile = Dir$(strFolder & "*.doc")

Do Until strFile = ""

    Selection.WholeStory
    Selection.Copy
    Documents.Open FileName:=strFolder & strFile, ConfirmConversions:=False, _
        ReadOnly:=False, AddToRecentFiles:=False, PasswordDocument:="", _
        PasswordTemplate:="", Revert:=False, WritePasswordDocument:="", _
        WritePasswordTemplate:="", Format:=wdOpenFormatAuto, XMLTransform:=""

    MainDoc.Activate
    Selection.PasteAndFormat (wdFormatOriginalFormatting)

strFile = Dir$()

Loop