Create bookmarks, links, or references throught doc

macropod · #2 04-24-2019, 04:44 PM

You could, of course use an INDEX, in which case, you'd simply add XE fields at each of the found locations. For example:

Code:

Sub IndexParentheses()
Dim StrIdx As String
With ActiveDocument
  With .Range
    With .Find
      .Text = "\(*\)"
      .MatchWildcards = True
      .Execute
    End With
    Do While .Find.Found = True
      StrIdx = Replace(Replace(.Text, ")", Chr(34)), "(", Chr(34))
      .Collapse wdCollapseEnd
      .Fields.Add .Duplicate, wdFieldEmpty, "XE " & StrIdx, False
      .Find.Execute
    Loop
  End With
    .Indexes.Add Range:=.Range.Characters.Last, HeadingSeparator:=wdHeadingSeparatorNone, _
      Type:=wdIndexIndent, RightAlignPageNumbers:=True, NumberOfColumns:=1
End With
End Sub

No bookmarks or cross-references, per se, needed. The Index entries get sorted alphabetically and, if the same entry appears multiple times, grouped.

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
Is there a way to summarise all bookmarks and cross references used in a Word document?	Training	Word VBA	1	11-09-2017 12:06 AM
Where to put Subroutine to make sure bookmarks aren't deleted so cross-references work	mrsjetset	Word VBA	5	06-29-2016 05:06 PM
Bookmarks & cross-references	Suchoklates	Word	1	09-19-2013 02:32 AM
Links between files to bookmarks in PDF	spud098	Word	0	07-14-2010 01:11 AM
Bookmarks with different figure references	Dan_68	Word	0	02-15-2010 08:29 PM