Loop thru bookmarks

[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.

 

[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