Name of Current Bookmark then create ref field of same name

Guest

I have a large number of word docs with quite a few bookmarks in each,
which are used in a document automation system.

I need to print these documents out with a visible marker of where
each bookmark is and what it's called.

Google · Sponsor

Guest

After posting I found a bit of code which I've modified, which then
works it's way through all bookmarks and creates the ref field. Here
is the code, in case anyone needs the same thing:

Dim r As Range
Dim b As Bookmark
Selection.Collapse Direction:=wdCollapseEnd
Set r = ActiveDocument.Range(Start:=Selection.Start, _
End:=ActiveDocument.Content.End)
Dim count As Integer
count = 0

With r
If .Bookmarks.count > 0 Then
count = .Bookmarks.count
For x = 1 To count
Set b = .Bookmarks(x)
'Now do what you want with the bookmark.
'For example, select it:
b.Select
Selection.Fields.Add Range:=Selection.Range,
Type:=wdFieldEmpty, Text:= _
"REF " + b.Name, PreserveFormatting:=False
Next
Else
MsgBox "There are no more bookmarks " & _
"in the document"
End If
End With
End Sub