Replacing Merge Fields

Thread view:

Enable EMail Alerts

Start New Thread

Thread rating:

Dominic Godin - 23 Apr 2004 10:17 GMT

Hi,

I am writing some software that updates clients' data to the new version of
our product. Part of this data contains many thousand Word templates with
MailMergeDataFields. These fields need to be replaced with the new
corresponding fields.

I can use the:

WordDoc.MailMerge.DataSource.DataFields.Item(index).Name

to get all the merge fields held within a document but this field is read-
only so I can't update it.

I have tried using the Find.Execute to search and replace these fields but
this doesn't work either. Any body no how this can be done?

Thanks

Dominic Godin

Reply to this Message

Dominic Godin - 23 Apr 2004 15:12 GMT

Dominic Godin <nospam@plz> wrote in
Don't worry worked it out :).

news:Xns94D468B07D7Dnospamplz@207.46.248.16:

> Hi,
>
[quoted text clipped - 16 lines]
>
> Dominic Godin

Reply to this Message

Doug Robbins - Word MVP - 24 Apr 2004 04:43 GMT

Use the following to change the mergefield names in the mailmerge main
documents:

Dim amf As Field, fcode As Range, i As Integer, j As Integer
For Each amf In ActiveDocument.Fields
Set fcode = amf.Code
i = InStr(fcode, Chr(34))
j = InStr(Mid(fcode, i + 1), Chr(34))
fcode.Start = fcode.Start + i
fcode.End = fcode.Start + j - 1
Select Case fcode
Case "Fname"
fcode.Text = "FirstName"
Case "Lname"
fcode.Text = "LastName"
End Select
Next amf
ActiveDocument.Fields.Update

Signature

Please post any further questions or followup to the newsgroups for the
benefit of others who may be interested. Unsolicited questions forwarded
directly to me will only be answered on a paid consulting basis.

Hope this helps
Doug Robbins - Word MVP

> Hi,
>
[quoted text clipped - 16 lines]
>
> Dominic Godin

Reply to this Message