You could use a macro like:


and assign it to a shortcut key and/or add it to the QAT. The macro will add ' on page ' plus the page # when you exit the Insert_Cross_Reference dialog.

__________________
Cheers,
Paul Edstein
[Fmr MS MVP - Word]

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

^^ see my post above ^^
With dev help, I now have a working macro! Here ya go:

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 = "insertnameofyourstylehere"
If .Fields.Count = 0 Then Exit Sub
StrNm = "PAGE" & LTrim(.Fields(1).Code.Text)
.Collapse wdCollapseEnd
.InsertAfter " (page "
.Style = CurrentStyle
.Collapse wdCollapseEnd
Dim addedField As Field
Set addedField = .Fields.Add(Range:=.Range, Type:=wdFieldEmpty, Text:=StrNm, PreserveFormatting:=False)
.InsertAfter ") "
End With
End Sub

The result is Running with Bears (page 67).

Hi,

I'm highly interested in the code given by macropod. My only problem is, I would like to combine the header text together with it's header number instead of the page, like in this macro given. Does somebody have an idea?

Thanks in advance ,
Kay