I now have the macros in VBA.  Thank you again!  But now I am trying to Print
to PDF.  It is pulling the correct name for the save as but I can't figure
out how to have the save button to be scripted.  I would like this to be
fully automated.  Here is my code.  

Sub Test1()
' splitter Macro modified to save individual letters with
' information from data source. The filename data must be added to
' the top of the merge letter - see web article.

Selection.EndKey Unit:=wdStory
Letters = Selection.Information(wdActiveEndSectionNumber)
Selection.HomeKey Unit:=wdStory
Counter = 1
While Counter < Letters
Application.ScreenUpdating = False
With Selection

  .HomeKey Unit:=wdStory
  .EndKey Unit:=wdLine, Extend:=wdExtend
  .MoveLeft Unit:=wdCharacter, Count:=1, Extend:=wdExtend

End With
sName = Selection
Docname = "F:\ia\Monthly\Merge\" & sName & ".doc"
ActiveDocument.Sections.First.Range.Cut
Documents.Add
With Selection
  .Paste
  .HomeKey Unit:=wdStory
  .MoveDown Unit:=wdLine, Count:=1, Extend:=wdExtend
  .Delete
End With
ActiveDocument.SaveAs FileName:=Docname, _
FileFormat:=wdFormatDocument
ActiveWindow.Close
Counter = Counter + 1
Application.ScreenUpdating = True
ActivePrinter = "Acrobat PDFWriter"
   Application.PrintOut FileName:=Docname, Range:=wdPrintAllDocument,
Item:= _
       wdPrintDocumentContent, Copies:=1, Pages:="",
PageType:=wdPrintAllPages, _
       ManualDuplexPrint:=False, Collate:=True, Background:=True,
PrintToFile:= _
       False, PrintZoomColumn:=0, PrintZoomRow:=0, PrintZoomPaperWidth:=0, _
       PrintZoomPaperHeight:=0
Wend

End Sub