Challenge writing a macro for setting Mergefields properties

Hot Topic

I have a fairly simple macro writing question (in Word).
Compatibility Issue Excel 2000 and Excel 2003
Microsoft....Is this a joke? (email received from customer service at microsoft)
Using Tabs in MSComctlLib.TreeCtrl.2 control
excel formula
Sum of hours using select statement & VBA
Replacement for VBA
User form issue
CRM 3.0 Outlook Client
startup properties in Access

Microsoft ISV

Getting Data of HTML page
Solution for Getting from Cell to Cell
Macro to Delete Rows
personalized command bar disappears when minimizing excel
when I use the fusion technology and make the aciveX control
Excel VBA using ADO
How do I disable the Windows Toolbar?
Text file search, return data from line other than search string line
Coding MS Project 2003 VBA for multiple Languages?
last row

Challenge writing a macro for setting Mergefields properties

Hi,

I have about 400 Word documents which all use the same set of MergeFields in different layouts.

I need to figure out a way to write a macro which will loop through all the MergeFields in a doc and set the "Preserve formatting during updates" checkbox.

When I manually did this for a field and recorded a macro, the code that got generated was:

WordBasic.FormatField Field:="MERGEFIELD ReqDate "

...which didn't really help since it created a new field when I ran it.

Is there any way I can do this

Thanks,

JGP

Answer this question

Challenge writing a macro for setting Mergefields properties

  • Kamii47

     

    OK, so this hack seems to work for me in Word 2003, but I can't claim any "best-practice-ness" about it.  So take it with a caveat that further testing may be required...

    Const cMergeFormat = " \* MERGEFORMAT "
    Dim fld As Word.Field

    For Each fld In ActiveDocument.Fields
       
        If Right(fld.Code.Text, Len(cMergeFormat)) <> cMergeFormat Then
            fld.Code.Text = fld.Code.Text & cMergeFormat
        End If

    Next fld

    If you are using mail merge in your 400 word documents the collection in the for loop may have to be ActiveDocument.MailMerge.Fields instead of ActiveDocument.Fields

    Happy coding!

    rusty
  • Challenge writing a macro for setting Mergefields properties
Answer this question