Word VBA应用技术：列出文档中的所有书签

Sub CreateBookMarkMenu()
Dim bkBookmark As Bookmark
Dim cbrBar As CommandBar
Dim cbrPopup As CommandBarPopup
Dim cbrButton As CommandBarButton 
Dim ShowHiddenStatus As Boolean

'查看隐藏书签是否设置为“可见”，
'将此设置存储在一个变量中，以便在结尾返回。
'然后使隐藏的书签不可见
'（不希望交叉引用等出现在菜单中） 
ShowHiddenStatus = ActiveDocument.Bookmarks.ShowHiddenActiveDocument.Bookmarks.ShowHidden = False
Set cbrBar = CommandBars.ActiveMenuBar

'如果已经存在,则首先删除书签菜单
Set cbrPopup = CommandBars.FindControl(Tag:="重新创建")
If Not cbrPopup Is Nothing Then
cbrPopup.Delete
End If 
If ActiveDocument.Bookmarks.Count > 0 Then
Set cbrPopup = cbrBar.Controls.Add(Type:=msoControlPopup,Before:=cbrBar.Controls.Count + 1)
With cbrPopup.Caption = "书签"
.Tag = "重新创建"
End With 
For Each bkBookmark In ActiveDocument.Bookmarks   
Set cbrButton = cbrPopup.Controls.Add(Type:=msoControlButton)
With cbrButton
.Caption = bkBookmark.Name
.Style = msoButtonCaption
.OnAction = "SelectBookMark"
End With
Next bkBookmark

'在底部添加刷新按钮 
Set cbrButton = cbrPopup.Controls.Add(Type:=msoControlButton)
With cbrButton.Caption = "刷新列表"
.Style = msoButtonCaption  
.OnAction = "CreateBookMarkMenu"
.BeginGroup = True
End With
End If 

ActiveDocument.Bookmarks.ShowHidden = ShowHiddenStatus

Set cbrButton = Nothing
Set cbrPopup = Nothing
Set cbrBar = Nothing
Set bkBookmark = Nothing
End Sub

Private Sub SelectBookMark() 
If ActiveDocument.Bookmarks.Exists(CommandBars.ActionControl.Caption) Then
ActiveDocument.Bookmarks(CommandBars.ActionControl.Caption).Range.Select
End If
End Sub