![]() |
#4
|
|||
|
|||
![]()
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 |
|
![]() |
||||
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 |
![]() |
Amapola188 | Word VBA | 3 | 07-12-2012 05:16 PM |
![]() |
skarden | Word | 1 | 12-12-2011 10:39 PM |