Sub CombineFolderOfFiles()
'
'   CombineFolderOfFiles Macro

'   Close all open documents before beginning
    Documents.Close SaveChanges:=wdPromptToSaveChanges

    strFolder = "H:\Data Files\"
    
'   Create a new, blank file to copy all of the contents into
    Documents.Add Template:="Normal", NewTemplate:=False, DocumentType:=0
    
'   Add a short header describing which folder the file summary is for
    Selection.Text = "Combination of files from folder: " & strFolder & vbCrLf
    Selection.EndKey Unit:=wdStory

'   Get the first filename
    myFile = Dir(strFolder & "*.doc*")
    
    While myFile <> ""

'       Open document
        Set myDoc = Documents.Open(strFolder & myFile)
    
'        Selection.HomeKey Unit:=wdStory

'       Copy the entire file's contents...
        Selection.WholeStory
        Selection.Copy
        
'       Close the file
        myDoc.Close SaveChanges:=wdSaveChanges

'       Paste the file contents into the new file
        Selection.Paste

'       Get the next filename
        myFile = Dir()

    Wend
        
End Sub