Список закладок в документе

Имея множество закладок по тексту, можно ли создать из них меню (панель содержания, перечень), дабы не лазить постоянно Вставка - Закладка?

Я обратился за помощью на отличный англоязычный форум по VBA и получил решение в виде макроса, код которого я привожу ниже.

Sub Test66
Один из читателей сайта WordExpert.ru задал вопрос: Имея множество закладок по тексту, могу ли я создать из них меню (панель содержания, перечень), дабы не лазить постоянно Вставка - Закладка? 
Я обратился за помощью на отличный англоязычный форум по VBA и получил решение в виде макроса, код которого я привожу ниже.
Sub Test6666a()
Dim oBkm As Bookmark
' make sure that there is an empty paragraph
' at the doc's end
ActiveDocument.Range.InsertAfter vbCrLf
For Each oBkm In ActiveDocument.Bookmarks
   ActiveDocument.Hyperlinks.Add _
   Anchor:=ActiveDocument.Paragraphs.Last.Range, _
   SubAddress:=oBkm.Name, _
   ScreenTip:="", _
   TextToDisplay:=oBkm.Name
   ActiveDocument.Range.InsertAfter vbCrLf
 Next
End Sub
Этот макрос позволяет создать список имеющихся в тексте закладок, причем закладки являются гиперссылками и позволяют перемещаться по документу, не обращаясь к командам меню.
66a()
Dim oBkm As Bookmark
' make sure that there is an empty paragraph
' at the doc's end
ActiveDocument.Range.InsertAfter vbCrLf
For Each oBkm In ActiveDocument.Bookmarks
   ActiveDocument.Hyperlinks.Add _
   Anchor:=ActiveDocument.Paragraphs.Last.Range, _
   SubAddress:=oBkm.Name, _
   ScreenTip:="", _
   TextToDisplay:=oBkm.Name
   ActiveDocument.Range.InsertAfter vbCrLf
 Next
End Sub

Этот макрос позволяет создать список имеющихся в тексте закладок, причем закладки являются гиперссылками и позволяют перемещаться по документу, не обращаясь к командам меню.

• Подписаться на рассылку " Windows и Office: новости и советы "
• Обратиться в "Интерфейс" за дополнительной информацией/по вопросу приобретения продуктов