Объект Hyperlinks (издатель)

Статья
04/07/2023

Представляет коллекцию объектов гиперссылки в текстовом диапазоне.

Замечания

Используйте свойство TextRange.Hyperlinks , чтобы вернуть коллекцию Hyperlinks .

Используйте метод Add , чтобы создать гиперссылку и добавить ее в коллекцию Hyperlinks .

Используйте гиперссылки (индекс), где индекс — это номер индекса, чтобы вернуть один объект Hyperlink в публикации, диапазоне или выделенном фрагменте.

Свойство Count для этой коллекции возвращает количество гиперссылок только в указанной фигуре или выделенном фрагменте.

Пример

В следующем примере удаляются все текстовые гиперссылки в активной публикации, содержащие слово Tailspin в адресе.

Sub DeleteMSHyperlinks() 
 Dim pgsPage As Page 
 Dim shpShape As Shape 
 Dim hprLink As Hyperlink 
 For Each pgsPage In ActiveDocument.Pages 
 For Each shpShape In pgsPage.Shapes 
 If shpShape.HasTextFrame = msoTrue Then 
 If shpShape.TextFrame.HasText = msoTrue Then 
 For Each hprLink In shpShape.TextFrame.TextRange.Hyperlinks 
 If InStr(hprLink.Address, "tailspin") <> 0 Then 
 hprLink.Delete 
 Exit For 
 End If 
 Next 
 Else 
 shpShape.Hyperlink.Delete 
 End If 
 End If 
 Next 
 Next 
End Sub

В следующем примере создается новая гиперссылка на указанный веб-сайт.

Sub AddHyperlink() 
 Selection.TextRange.Hyperlinks.Add Text:=Selection.TextRange, _ 
 Address:="https://www.tailspintoys.com/" 
End Sub

В этом примере отображается адрес первой гиперссылки, если указанный фрагмент содержит гиперссылки.

Sub DisplayHyperlinkAddress() 
 With Selection.TextRange.Hyperlinks 
 If .Count > 0 Then _ 
 MsgBox .Item(1).Address 
 End With 
End Sub

Методы

Свойства

См. также

Справочник по объектной модели издателя

Поддержка и обратная связь

Есть вопросы или отзывы, касающиеся Office VBA или этой статьи? Руководство по другим способам получения поддержки и отправки отзывов см. в статье Поддержка Office VBA и обратная связь.

Поделиться через