使用英语阅读

通过


Hyperlinks.Add 方法 (Publisher)

将新的 Hyperlink 对象添加到指定的 Hyperlinks 集合,并返回新的 Hyperlink 对象。

语法

表达式添加 (文本地址RelativePagePageIDTextToDisplay)

expression:一个表示 Hyperlinks 对象的变量。

Parameters

名称 必需/可选 数据类型 说明
Text 必需 TextRange TextRange 对象。 要转换为超链接的文本范围。
Address 可选 String 新超链接的地址。 如果 RelativePagepbHlinkTargetTypeURL (默认) 或 pbHlinkTargetTypeEmail,则必须指定 地址 ,否则会发生错误。
RelativePage 可选 PbHlinkTargetType 要添加的超链接的类型。 可以是 PbHlinkTargetType 常量之一;默认值为 pbHlinkTargetTypeURL
PageID 可选 Long 新超链接的目标页的页面 ID。 如果 RelativePagepbHlinkTargetTypePageID,则必须指定 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 支持和反馈,获取有关如何接收支持和提供反馈的指南。