Tek-Tips is the largest IT community on the Internet today!

Members share and learn making Tek-Tips Forums the best source of peer-reviewed technical information on the Internet!

Register Log in
  • Congratulations Mike Lewis on being selected by the Tek-Tips community for having the most helpful posts in the forums last week. Way to Go!

How to MAIL MERGE and SAVE EACH DOCUMENT SEPARATELY

Word Mail Merge

How to MAIL MERGE and SAVE EACH DOCUMENT SEPARATELY

by  SkipVought  Posted    (Edited  )
Normal MailMerge makes a single composite document that can then be saved or printed.

If you want to PRINT-as-you-go or SAVE-as-you-go, you'll need a procedure like this
[tt]
Sub SaveEachDocument()
Application.DisplayAlerts = False
' assign x as the SaveAs Base value
x = "C:\Documents and Settings\CompanyMerge"
With ActiveDocument.MailMerge.DataSource
.ActiveRecord = 1
Do Until .ActiveRecord = .RecordCount
.ActiveRecord = wdNextRecord
ActiveDocument.SaveAs x & .ActiveRecord & ".doc"
ActiveDocument.PrintOut
Loop
End With
ActiveDocument.Close
Application.DisplayAlerts = True
End Sub
[/tt]
Register to add this FAQ to your archive
Register to rate this FAQ  : BAD 1 2 3 4 5 6 7 8 9 10 GOOD
Please Note: 1 is Bad, 10 is Good :-)

Part and Inventory Search

Back
Top