Publisher) (TextRange.Hyperlinks 屬性
會傳回代表指定文字範圍中所有超連結的 Hyperlinks 集合。
語法
運算式。連結
表達 代表 TextRange 物件的 變數。
傳回值
Hyperlinks
範例
下列範例尋找使用中出版物的頁面一上擁有文字框架的所有圖案,並報告每個圖案擁有的超連結數量。
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 支援與意見反應。
意見反應
https://aka.ms/ContentUserFeedback。
即將登場:在 2024 年,我們將逐步淘汰 GitHub 問題作為內容的意見反應機制,並將它取代為新的意見反應系統。 如需詳細資訊,請參閱:提交並檢視相關的意見反應