超連結物件 (出版商)

代表 超連結 集合 文字範圍內的物件。

註解

使用 TextRange.Hyperlinks 屬性來返回 Hyperlinks 集合。

使用 [ 新增 建立超連結並將其新增到 Hyperlinks 集合的方法。

使用 超連結 (索引) ，其中 index 是索引號，以返回出版物、範圍或選取中的單一 超連結 物件。

此集合的 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
• 數目
• 項目
• Parent

另請參閱

• 出版商物件模型參考

支援和意見反應

有關於 Office VBA 或這份文件的問題或意見反應嗎？ 如需取得支援服務並提供意見反應的相關指導，請參閱 Office VBA 支援與意見反應。