I did fing this in Google



[VBA]

Sub MergeMania()


' Do some macro commands....
'
'


With ActiveDocument.MailMerge
.DataSource.FirstRecord = 1
.DataSource.LastRecord = .DataSource.LastRecord
.Destination = wdSendToNewDocument
.Execute
End With


'Do some more macro commands...
'
'
End Sub
[/VBA]



Mail merge is not my cup of tea so I am just guessing here. I suppose the do some more macro commands would be where you put the earlier code. Your document is now going to be made up of lots of sections. A section for every separate letter. So you will have to come up with something like:



For j = 1 to ActiveDocument.Sections.Count

Set myRng = ActiveDocument.Sections(j).Paragraphs(1).Range

blah, blah

Next J

Again, this is just stab. Sorry.