У Annemieke есть довольно длинный документ с большим количеством гиперссылок. Она хотела бы скопировать все эти гиперссылки (и только гиперссылки) в новый документ, чтобы у нее был их список в одном месте. Она задается вопросом, есть ли простой способ сделать это.

Единственный способ сделать это — использовать макрос. (Предложения, которые включают использование функции «Найти и заменить» или поиск текста с определенными стилями, будут копировать только текст ссылки, а не фактическую гиперссылку.) Ключ в макросе — работать с коллекцией гиперссылок, уделяя особое внимание свойствам TextToDisplay и Address. каждый член коллекции.

Sub PullHyperlinks()

Dim Src As Document     Dim Link As Hyperlink     Dim iDoDisplay As Integer

Set Src = ActiveDocument     If Src.Hyperlinks.Count > 0 Then         iDoDisplay = MsgBox("Include display text for links?", vbYesNo)



Documents.Add DocumentType:=wdNewBlankDocument         For Each Link In Src.Hyperlinks             If iDoDisplay = vbYes Then                 Selection.TypeText Link.TextToDisplay                 Selection.TypeText vbTab             End If             Selection.TypeText Link.Address             Selection.TypeParagraph         Next Link     Else         MsgBox "There are no hyperlinks in this document."

End If End Sub

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

Предполагая, что в документе есть гиперссылки, пользователя спрашивают, должен ли новый документ содержать отображаемый текст для ссылок. Затем макрос создает новый документ и проходит через каждого члена коллекции гиперссылок. Значение свойства TextToDisplay добавляется в новый документ (при необходимости), за которым следует значение свойства Address.

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

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

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

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

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