WORD VBA Ninjas,
I need a little help tweaking this code, that is to copy all Word (.docx) files into a single Word Document.
Here is my code that currently works, in so far as, copying and pasting the files... it is not copying the Headers nor Footers and I need a Page Break after each file.
Sub CombineWordFiles()
Dim FinalDoc As Document, SourceDoc As Document
Dim sFile As String
Const sFolder = "C:\Users\collinp4\Desktop\WordFile\"
Application.ScreenUpdating = False
Set FinalDoc = Documents.Add
sFile = Dir(sFolder & "*.docx")
Do While sFile <> ""
Set SourceDoc = Application.Documents.Open(sFolder & sFile)
With Application
.Selection.WholeStory
.Selection.Copy
.ActiveWindow.Close savechanges:=wdDoNotSaveChanges
.Selection.PasteAndFormat (wdFormatOriginalFormatting)
End With
' FinalDoc.InsertBreak (Type:=wdPageBreak) <=== This does not work?
sFile = Dir
Loop
Application.ScreenUpdating = True
MsgBox ("Files are merged")
End Sub
Thank You for your time and help,