Microsoft Office Forums - View Single Post - [Solved] Define custom Cross-reference output format to include "static" text and pg numbers

macropod · 02-08-2016, 05:31 PM

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.