I've run a mail merge and have 8,000 single page documents seperated by a "Section Break" When I use the code below to save them as individual files I get the "Section Break" on all 8000 documents which adds a second page to the document.
I need to know how to make it so I have 8000 single page documents and not 8000 2 page docs.
Dim x As Long
Dim Sections As Long
Dim Doc As Document
Dim FileName As String
Application.ScreenUpdating = False
Application.DisplayAlerts = False
Set Doc = ActiveDocument
Sections = Doc.Sections.Count
For x = Sections - 1 To 1 Step -1
FileName = Right$("00000000" + x, 8)
ActiveDocument.SaveAs ("D:\WorkInProgress\BOW\WordMod_2\Output\" & FileName & ".doc")
Application.ScreenUpdating = True
Application.DisplayAlerts = True