Hi,

I used the macro above to insert a cross reference to heading text with the page number. Thank you for providing this code. Although it inserted the page number after the heading text, it is the current page instead of the cross reference's page number.

I also needed the macro to make the heading text ONLY be a certain character style, and I wanted the Insert As Hyperlink option selected when the dialog opened. My macro needs help. So far, it does this:

1. Opens the Insert Cross Reference dialog with the Insert as Hyperlink check box selected.
2. Lets me choose and insert the heading text I want to display.
3. When I press Close, it changes the whole thing to a character style called Character Hyperlink for Cross References, and it adds a page number in parenthesis.

My problem is with #3. I need only the heading text (not the page number) to be Character Hyperlink for Cross References. I need the rest of the text "(page X)" to be the current paragraph's style (not Character Hyperlink for Cross References). Lastly, I need the page number to go to the correct page (not the current page).

Example: Running with Bears (page 67)

Can you help rewrite this macro? I'm afraid I've reached the limit of my first-time macro user capabilities. I only got this far with help from a developer.

Thank you! Here is my macro so far:

Sub InsertXrefWithPage()
Dim StrNm As String
Dim Dlg As Dialog
Set Dlg = Dialogs(wdDialogInsertCrossReference)
Dlg.InsertAsHyperLink = 1
Dlg.Display
With Selection
Dim CurrentStyle As Style
Set CurrentStyle = .Style
.Start = .Start - 1
.Style = "Character Hyperlink for Cross References"
If .Fields.Count = 0 Then Exit Sub
StrNm = "PAGE" & .Fields(1).Code.Text
.InsertAfter " (page "
.Collapse wdCollapseEnd
Dim addedField As Field
Set addedField = .Fields.Add(Range:=.Range, Type:=wdFieldEmpty, Text:=StrNm, PreserveFormatting:=False)
.InsertAfter ")"
addedField.Select
.Style = CurrentStyle


End With
End Sub