For something a little easier to use, put this macro in a global
template, and put a menu item for it on the various right-click menus.
Then you can right-click anywhere in the document, choose the item,
and get a message box showing the name if any.
Sub WhatBookmark()
Dim bk As Bookmark
For Each bk In ActiveDocument.Bookmarks
If Selection.InRange(bk.Range) Then
MsgBox bk.Name, vbOKOnly, "What Bookmark"
Exit Sub
End If
Next bk
MsgBox "Not in a bookmark", vbOKOnly, "What Bookmark"
End Sub
See
http://www.gmayor.com/installing_macro.htm and
http://www.word.mvps.org/FAQs/Customization/AsgnCmdOrMacroToToolbar.htm
for the necessary procedures.