Статьи из блога

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

Один из читателей сайта задал вопрос:

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

Я обратился за помощью на отличный англоязычный форум по 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

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

twitter.com facebook.com vkontakte.ru odnoklassniki.ru mail.ru ya.ru rutvit.ru myspace.com technorati.com digg.com friendfeed.com pikabu.ru blogger.com liveinternet.ru livejournal.ru memori.ru google.com bobrdobr.ru mister-wong.ru yahoo.com yandex.ru del.icio.us

Еще записи по вопросам использования Microsoft Word:

Комментариев: 6

  1. 31.01.2008 в 16:04 | #1

    Тот программист, который предложил вариант макроса, всегда именует свои творения цифровым именем. Видимо, он ведет реестр созданных им макросов smile А я не стал ничего менять в коде, даже комментарий.

  2. Параноик
    31.01.2008 в 19:56 | #2

    Да, макрос не вызывает никаких сомнений, спасибо за код. Также спасибо за ссылку на форум!

  3. Герман
    01.02.2008 в 00:12 | #3

    Спасибо за код пригодится позже должен.

  4. Павел П.
    05.02.2008 в 18:44 | #4

    За код спасибо

    Положу его в капилку (глядишь пригодится)

  5. Валерий Фетисов
    16.02.2008 в 07:54 | #5

    Отличная идея. Спасибо за оч-чень полезную вещь.

    Вместе с тем, идея-то отличная, а вот реализация - не совсем удобна. Каждый раз лазить в конец документа...

    Может быть, как уже здесь я не раз наблюдал, кто-то из наших умов предложит иной вариант реализации меню закладок, например, путем создания дополнительной панельки, кнопки, списка и т.п., вобщем - более удобного и быстрого пути обращения к закладкам.

    Валерий Фетисов.

  6. 20.12.2009 в 13:35 | #6

    Валерий, вы можете скачать шаблон для работы с закладками на странице Полезности Word: http://wordexpert.ru/page/wordtoys

Оставьте комментарий!

(обязательно)

^ Наверх