Hyperlinks.Add 方法 (Publisher)
将新的 Hyperlink 对象添加到指定的 Hyperlinks 集合,并返回新的 Hyperlink 对象。
表达式。添加 (文本、 地址、 RelativePage、 PageID、 TextToDisplay)
expression:一个表示 Hyperlinks 对象的变量。
名称 | 必需/可选 | 数据类型 | 说明 |
---|---|---|---|
Text | 必需 | TextRange | TextRange 对象。 要转换为超链接的文本范围。 |
Address | 可选 | String | 新超链接的地址。 如果 RelativePage 为 pbHlinkTargetTypeURL (默认) 或 pbHlinkTargetTypeEmail,则必须指定 地址 ,否则会发生错误。 |
RelativePage | 可选 | PbHlinkTargetType | 要添加的超链接的类型。 可以是 PbHlinkTargetType 常量之一;默认值为 pbHlinkTargetTypeURL。 |
PageID | 可选 | Long | 新超链接的目标页的页面 ID。 如果 RelativePage 为 pbHlinkTargetTypePageID,则必须指定 PageID ,否则会发生错误。 页面 ID 对应于目标页面的 PageID 属性。 |
TextToDisplay | 可选 | String | 新超链接的显示文本。 如果指定,则 TextToDisplay 将替换由 Text 参数指定的文本范围。 |
Hyperlink
本示例将超链接添加到活动出版物的第一页上的第一个形状和第二个形状中。 第一个超链接指向外部网站,第二个链接指向出版物中的第四页。 第一个形状和形状二必须是文本框,并且出版物中必须至少有四个页面才能使此示例正常工作。
Dim hypNew As Hyperlink
Dim lngPageID As Long
Dim strPage As String
With ActiveDocument.Pages(1).Shapes(1).TextFrame
Set hypNew = .TextRange.Hyperlinks.Add(Text:=.TextRange, _
Address:="https://www.tailspintoys.com/", _
TextToDisplay:="Tailspin")
End With
lngPageID = ActiveDocument.Pages(4).PageID
strPage = "Go to page " _
& Str(ActiveDocument.Pages(4).PageNumber)
With ActiveDocument.Pages(1).Shapes(2).TextFrame
Set hypNew = .TextRange.Hyperlinks.Add(Text:=.TextRange, _
RelativePage:=pbHlinkTargetTypePageID, _
PageID:=lngPageID, _
TextToDisplay:=strPage)
End With
有关于 Office VBA 或本文档的疑问或反馈? 请参阅 Office VBA 支持和反馈,获取有关如何接收支持和提供反馈的指南。