Объект Hyperlinks (Publisher)

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

Примечания

Чтобы вернуть коллекцию Гиперссылки, используйте свойство TextRange.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

Методы

• Add

Свойства

• Приложение
• Count
• Item
• Parent

См. также

• Publisher ссылки на объектную модель

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

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