![]() |
|
|
Thread Tools | Display Modes |
#8
|
|||
|
|||
![]()
I'd like to ask a related follow-on question. Is this macro appropriate to be modified, or can someone suggest how I might, 1) using a Word document like this:
1.0 Heading 1 1.1 Heading 2 2.0 Heading 3 2) When selecting a heading cross-reference, output the following cross reference hyperlinks Section 1.0, Heading 1 OR 3) What I am really trying to do is have the macro ask for a heading number (e.g., 1.0) and have the VBA put, in the current document location, the heading hyperlinks (e.g., "Section 1.0, Heading 1") Sub InsertXrefWithPage2() 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 If .Fields.Count = 0 Then Exit Sub StrNm = "PAGE" & LTrim(.Fields(1).Code.text) .Collapse wdCollapseEnd .InsertAfter ", " .Style = CurrentStyle .Collapse wdCollapseEnd Dim addedField As Field End With End Sub |
|
![]() |
||||
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 |