MailMerge

[Anne Richmond]

I have a Word(2000) mailmerge routine (code below) which works OK but always
names the merged document "Forml Letters1". How do I change this to
something else?

Also how do I automatically save the merged document to a specific
destination?

Dim wrdApp As Word.Applicatio n

Dim wrdDoc As Word._Document

Private Sub Button1_Click(B yVal sender As System.Object, _

ByVal e As System.EventArg s) Handles Button1.Click

Dim wrdSelection As Word.Selection

Dim wrdMailMerge As Word.MailMerge

Dim wrdMergeFields As Word.MailMergeF ields

' Create an instance of Word

wrdApp = CreateObject("W ord.Application ")

' Open template document.

wrdDoc = wrdApp.Document s.Open("c:\anni e\letrbase.doc" )

wrdDoc.Select()

wrdSelection = wrdApp.Selectio n()

wrdMailMerge = wrdDoc.MailMerg e()

' Open MailMerge Data file.

wrdDoc.MailMerg e.OpenDataSourc e("C:\annie\let rdata.txt")

' Perform mail merge.

wrdMailMerge.De stination = _

Word.WdMailMerg eDestination.wd SendToNewDocume nt

wrdMailMerge.Ex ecute(False)

' Make merged Doc visible.

wrdApp.Visible = True

' Close the original form document.

wrdDoc.Saved = True

wrdDoc.Close(Fa lse)

' Release References.

wrdSelection = Nothing

wrdMailMerge = Nothing

'wrdMergeFields = Nothing

wrdDoc = Nothing

wrdApp = Nothing

End Sub