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

Tasmd3vil · 01-07-2022, 08:02 AM

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