Свойство TextRange.Hyperlinks (издатель)

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

Синтаксис

выражение. Гиперссылки

выражение Переменная, представляющая объект TextRange .

Возвращаемое значение

Гиперссылки

Пример

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

Dim hypAll As Hyperlinks 
Dim shpLoop As Shape 
 
For Each shpLoop In ActiveDocument.Pages(1).Shapes 
 If shpLoop.HasTextFrame = msoTrue Then 
 Set hypAll = shpLoop.TextFrame.TextRange.Hyperlinks 
 Debug.Print "Shape " & shpLoop.Name _ 
 & " has " & hypAll.Count & " hyperlinks." 
 End If 
Next shpLoop

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

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