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

Подход Питера, хотя и благонамеренный, совершенно не нужен.

Word действительно предоставляет способ щелкнуть заголовок в оглавлении (о котором Питер знает), а затем вернуться к этому заголовку в оглавлении (который, по-видимому, Питер не знает). Конкретный ярлык для выполнения этой задачи — Alt + стрелка влево. Ярлык возвращает вас туда, где вы были до нажатия на гиперссылку в оглавлении, что делает его отличным для длинных оглавлений — вы возвращаетесь именно туда, где вы были, а не к началу оглавления.

Сочетание клавиш — лучшее решение для читателей; он работает по умолчанию при стандартной установке Word. Однако при желании вы можете добавить кнопку «Назад» к своей ссылке: / wordribbon-Adding_Tools_to_the_Quick_Access_Toolbar [Панель быстрого доступа] `, которую можно щелкнуть, чтобы вернуться к исходной точке оглавления. Выполните следующие действия:

  1. Откройте диалоговое окно «Параметры Word». (В Word 2007 нажмите кнопку «Office», а затем выберите «Параметры Word». В Word 2010 или более поздней версии откройте вкладку «Файл» на ленте и нажмите «Параметры».)

  2. В левой части диалогового окна нажмите «Настроить» (Word 2007) или «Панель быстрого доступа» (более поздние версии Word). (См. Рис. 1.)

  3. В раскрывающемся списке «Выбрать команды из» выберите «Все команды».

  4. В списке команд найдите и выберите команду Назад.

  5. Щелкните кнопку Добавить. Команда «Назад» теперь отображается в правой части диалогового окна в списке команд панели быстрого доступа.

  6. Используйте кнопки со стрелками вверх и вниз, чтобы разместить команду «Назад» внутри команд панели быстрого доступа.

  7. Щелкните ОК.

Команда «Назад», которая теперь отображается на панели быстрого доступа, выполняет ту же функцию, что и сочетание клавиш Alt + стрелка влево.

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

Sub HyperlinkHeadings()

Dim hyp As Hyperlink     Dim toc As TableOfContents     Dim k As Long     Dim bkmk As String     Dim sCode As String     Dim fld As Field     Dim aRange As Range

If ActiveDocument.TablesOfContents.Count = 0 Then         MsgBox "There are no Tables of Contents in document"

Exit Sub     End If

Set toc = ActiveDocument.TablesOfContents(1)



For Each fld In toc.Range.Fields         sCode = fld.Code.Text         If InStr(sCode, "HYPERLINK") > 0 Then             bkmk = Mid(sCode, InStr(sCode, "_"))

bkmk = Left(bkmk, Len(bkmk) - 2)

fld.Select             ActiveDocument.Bookmarks.Add Range:=Selection.Range, _               Name:=bkmk & "R"



Set aRange = ActiveDocument.Bookmarks(bkmk).Range             aRange.Select             With ActiveDocument.Hyperlinks.Add(Anchor:=Selection.Range, _                 Address:="", SubAddress:=bkmk & "R", _                   TextToDisplay:=Selection.Text)

.Range.Select                 Selection.ClearCharacterAllFormatting             End With         End If     Next fld

Options.CtrlClickHyperlinkToOpen = False End Sub

_Примечание: _

Если вы хотите знать, как использовать макросы, описанные на этой странице (или на любой другой странице на сайтах WordTips), я подготовил специальную страницу, содержащую полезную информацию.

link: / wordribbon-WordTipsMacros [Щелкните здесь, чтобы открыть эту специальную страницу в новой вкладке браузера].

WordTips — ваш источник экономичного обучения работе с Microsoft Word.

(Microsoft Word — самая популярная программа для обработки текстов в мире.) Этот совет (13059) относится к Microsoft Word 2007, 2010, 2013, 2016, 2019 и Word в Office 365.