Macro for inserting equation - Problem with Crossreference (only Label and Number)

Question

Hello,

I have created a macro for adding an equation in according to a predefined format which works perfect (see code below).

The only problem is that if I would like to set a cross reference to the related SEQ field (related Caption is defined), it takes the entire equation including the equation number instead of only Label and number. How is the label defined?

Thanks for comments

---

Sub InserEquation()

With Selection

        .Style = ActiveDocument.Styles("Equation")

        .TypeText Text:=vbTab

        .InlineShapes.AddOLEObject ClassType:="Equation.3", _

                                   LinkToFile:=False, _

                                   DisplayAsIcon:=False

        .TypeText Text:=vbTab & "Eq. ("

        .Fields.Add Range:=Selection.Range, _

                    Type:=wdFieldEmpty, _

                    Text:="SEQ Equation \*MERGEFORMAT", _

                    PreserveFormatting:=False

        .Fields.Update

        .TypeText Text:=")"

        .TypeParagraph

    End With

End Sub

---

Answer 1

Word adds a hidden bookmark around the caption when you insert the cross reference.

It's a bit of a mess to fix it, as the Add Bookmark dialog does not let you work with those.

But you can use my Bookmark Manager to set it the way you want. Read the help file for instructions.

See http://insight.trueinsight.za.com/word/word-utilities/

b.t.w. the uTIlities contain a tool that adds a new oMath equation to your document. Description of the process here:

http://insight.trueinsight.za.com/numbered-equations-in-word/