создание содержания гиперссылками

[fym]

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

[Казанский]

Идея такая: создать оглавление, при этом создаются невидимые закладки вида _Toc429953577. Удалить оглавление, закладки останутся. Сделать видимыми все закладки

ActiveDocument.Bookmarks.ShowHidden = True

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

[Борис_Р]

fym, посмотрите приложенный документ.
Автособираемое оглавление создано при помощи поля TOC:
{ TOC \o "1-3" \n \p " " \h \z }
ключ \h отвечает за оформление элементов оглавления в виде гиперссылок
Кроме того стили "Оглавление 1" -"Оглавление 3" изменены таким образом, чтобы созданное оглавление по внешнему виду походило на ваши гиперссылки.

Сохранил документ в формате HTML. После открытия в браузере предложенное автособираемое оглавление и оглавление созданное топикстартером в виде гиперссылок выглядят и работают абсолютно одинаково.

[fym]

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

[fym]

Казанский, буду благодарна за подробную инструкцию не разобралась с закладками...

[Казанский]

Пробуйте, макрос в документе

Sub fym()
Dim bm As Bookmark
  Selection.HomeKey wdStory
  Selection.InsertAfter "Содержание" & String$(4, vbCr)
  Selection.Style = ActiveDocument.Styles("+Обычный")
  Selection.GoTo What:=wdGoToLine, Which:=wdGoToFirst, Count:=3, Name:=""
  ActiveDocument.Bookmarks.ShowHidden = True
  For Each bm In ActiveDocument.Bookmarks
    bm.Delete
  Next
  ActiveDocument.TablesOfContents.Add(Range:=Selection.Range, RightAlignPageNumbers:= _
    True, UseHeadingStyles:=True, UpperHeadingLevel:=1, _
    LowerHeadingLevel:=3, IncludePageNumbers:=False, AddedStyles:="", _
    UseHyperlinks:=True, HidePageNumbersInWeb:=True, UseOutlineLevels:= _
    False).Delete
  For Each bm In ActiveDocument.Bookmarks
    ActiveDocument.Hyperlinks.Add Anchor:=Selection.Range, Address:="", _
      SubAddress:=bm.Name, ScreenTip:="", TextToDisplay:=bm.Range.Text
    Selection.TypeParagraph
  Next
ActiveDocument.Paragraphs(1).Range.Font.Bold = True
ActiveDocument.Bookmarks.ShowHidden = False
End Sub

[fym]

Макрос просто супер, спасибо огромное, все работает, как надо!))

[Sasha_Smirnov]

Сообщение от fym

заказчик очень требовательный

Мне б такого!

[fym]

в чем прелесть требовательных заказчиков?))

[Sasha_Smirnov]

Внушают уважение; платят! А с Казанским — разницы никакой.