![]() |
|
|
Thread Tools | Display Modes |
#5
|
|||
|
|||
![]()
^^ 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). |
|
![]() |
||||
Thread | Thread Starter | Forum | Replies | Last Post |
![]() |
tfa91 | Word | 7 | 10-09-2019 07:15 AM |
![]() |
dgalb | Word | 17 | 11-09-2014 06:25 AM |
![]() |
wmac | Word | 1 | 05-14-2013 08:54 PM |
Cross Reference Heading Number with the word "Section" included | bblouin | Word | 5 | 12-20-2012 05:27 PM |
![]() |
Jamal NUMAN | Word | 1 | 04-10-2011 03:31 PM |