Question

如果已经下载了与指定的 Hyperlink 对象相关的缓存文档，则显示该文档。否则，此方法将解析该超链接，下载目标文档，并在相应的应用程序中显示此文档。

注意 如果超链接使用文件协议，那么此方法不是下载而是打开文档。

expression.Follow(NewWindow,AddHistory,ExtraInfo,Method,HeaderInfo)

expression 必需。该表达式返回一个 Hyperlink 对象。

NewWindow 可选，Variant 类型。如果为 True，则在新窗口显示目标文档。默认值为 False。

AddHistoryVariant 类型，可选。该参数为以后使用而保留。

ExtraInfo Variant 类型，可选。指定用于解析超链接的 HTTP 附加信息的字符串或字节数组。例如，您可以使用ExtraInfo 来指定图像映射的坐标、窗体的内容和 FAT 文件的文件名。根据Method 的值，来决定是传递还是附加这个字符串。使用 ExtraInfoRequired 属性确定是否需要其他信息。

Method Variant 类型，可选。指定获取 HTTP 附加信息的处理方式。可以是下列 MsoExtraInfoMethod 常量之一：

枚举类型可以是如下枚举类型常量之一：

msoMethodGetExtraInfo 是一个附加至地址的字符串。

msoMethodPostExtraInfo 以字符串或字符数组的形式发布。

HeaderInfo Variant 类型，可选。根据 HTTP 的要求用以指定页眉信息的字符串。默认值为一个空的字符串。使用语法："string1" & vbCr &"string2"，即可将几行页眉组合为一个字符串。指定的字符串自动转换为 ANSI 字符。请注意，HeaderInfo 参数有可能覆盖默认的 HTTP 页眉域。

示例

本示例显示 Home.doc 中的第一个超链接。

Documents("Home.doc").HyperLinks(1).Follow

本示例首先插入指向 www.msn.com 的超链接，然后显示此超链接。

Dim hypTemp As Hyperlink

With Selection
 .Collapse Direction:=wdCollapseEnd
 .InsertAfter "MSN "
 .Previous
End With

Set hypTemp = ActiveDocument.Hyperlinks.Add( _
 Address:="http://www.msn.com", _
 Anchor:=Selection.Range)
hypTemp.Follow NewWindow:=False, AddHistory:=True