Sub MergePetition()
 
Documents.Add Template:= _
"C:\Bergemann\Forfeiture\WordMailMerge\Petition.dot" _
, NewTemplate:=False, DocumentType:=0
With ActiveDocument.MailMerge
.Destination = wdSendToNewDocument
.SuppressBlankLines = True
With .DataSource
.FirstRecord = wdDefaultFirstRecord
.LastRecord = wdDefaultLastRecord
End With
.Execute Pause:=False
End With
With ActiveDocument
.AttachedTemplate = "C:\YourPathToTheNormalTemplate\Normal.dot"
End With
End Sub