Mail merge to individual documents not copying over formatting

[Sky5r]

I'm try to save a mail merge document on word into individual files. I have been using the VBA code below, it works to save the individual files., But it changes the font and doesn't copy over the format of the document correctly i.e tables header and footers etc - could some please help with what I need to add to the code to keep the formatting form the original document.

Thank you

Code:

Sub AllSectionsToSubDoc()

Dim x As Long
Dim Sections As Long
Dim Doc As Document

Application.ScreenUpdating = False
Application.DisplayAlerts = False

Set Doc = ActiveDocument
Sections = Doc.Sections.Count
For x = Sections - 1 To 1 Step -1
Doc.Sections(x).Range.Copy
Documents.Add
ActiveDocument.Range.Paste
ActiveDocument.SaveAs (Doc.Path & "" & x & ".doc")
ActiveDocument.Close False
Next x

Application.ScreenUpdating = True
Application.DisplayAlerts = True

End Sub