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

Маючи безліч закладок по тексту, чи можна створити з них меню (панель вмісту, перелік), щоб не лазити постійно Вставка – Закладка?


Я звернувся за допомогою на відмінний англомовний форум з 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

Цей макрос дозволяє створити список наявних у тексті закладок, причому закладки є гіперпосиланнями і дозволяють переміщатися по документу, не звертаючись до команд меню.

Схожі статті:


Сподобалася стаття? Ви можете залишити відгук або підписатися на RSS , щоб автоматично отримувати інформацію про нові статтях.

Коментарів поки що немає.

Ваш отзыв

Поділ на параграфи відбувається автоматично, адреса електронної пошти ніколи не буде опублікований, допустимий HTML: <a href="" title=""> <abbr title=""> <acronym title=""> <b> <blockquote cite=""> <cite> <code> <del datetime=""> <em> <i> <q cite=""> <s> <strike> <strong>

*

*