Loop thru bookmarks

W

Wylie C

I want to loop through all the bookmarks in a Word table who's name starts
with "Pic" and set the font color to white. Help please?

Thank you.
 
J

Jezebel

Dim pBookMark as word.bookmark

For each pBookMark in Table.Range.Bookmarks
If left$(pBookmark.Name,3) = "Pic" then
pBookmark.Range.Font.Color = wdColorWhite
End if
Next
 
Top