Quote:
Originally Posted by macropod
You could use a macro like:
Code:
Sub InsertXrefWithPage()
Dim StrNm As String
Dialogs(wdDialogInsertCrossReference).Display
With Selection
.Start = .Start - 1
If .Fields.Count = 0 Then Exit Sub
StrNm = "PAGE" & Trim(.Fields(1).Code.Text)
.InsertAfter " on page "
.Collapse wdCollapseEnd
.Fields.Add Range:=.Range, Type:=wdFieldEmpty, Text:=StrNm, PreserveFormatting:=False
End With
End Sub
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.
|
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