How to add a bookmark to text within a header

DougMVP · #4 07-14-2016, 02:28 PM

Use:

Code:

Dim bkmarkname As String
Selection.HomeKey wdStory
Selection.Find.ClearFormatting
Selection.Find.Style = ActiveDocument.Styles("Heading 5")
With Selection.Find
    Do While .Execute(FindText:="", MatchWildcards:=False, Forward:=True, Wrap:=wdFindStop) = True
        With Selection
            If Instr(.Range.Text, "|") > 0 then
                 bkmarkname = Mid(.Range.Text, InStr(.Range.Text, "|") + 2, InStrRev(.Range.Text, "|") - InStr(.Range.Text, "|") - 2)
                 ActiveDocument.Bookmarks.Add Trim(bkmarkname), .Range
            End If
            .Collapse wdCollapseEnd
        End With
    Loop
End With

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
Find Bookmark, move to bookmark, execute code, repeat	raymm3852	Word VBA	10	04-15-2016 06:21 PM
Add a bookmark to the Header using Word VBA	ChrisDevrell	Word VBA	2	02-06-2015 04:15 PM
Adding field in word in header in a bookmark in table with Excel vba Late Binding	Hdr	Excel Programming	6	02-11-2013 02:58 AM
Open header to insert text into bookmark	Amapola188	Word VBA	3	07-12-2012 05:16 PM
Word 2003 - IncludeText Does Not Include Bookmark Text if in a Form Text Control	skarden	Word	1	12-12-2011 10:39 PM