Объект "Гиперссылки" (издатель)

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

Примечания

Используйте свойство TextRange.Hyperlinks для возврата коллекции "Гиперссылки ".

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

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

Свойство 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

Методы

• Add

Свойства

• Application
• Count
• Item
• Parent

См. также

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

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

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