Word VBA教程:Follow方法

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

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

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

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

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

AddHistory  Variant   类型,可选。该参数为以后使用而保留。

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

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

枚举类型可以是如下枚举类型常量之一:
msoMethodGet ExtraInfo 是一个附加至地址的字符串。
msoMethodPost ExtraInfo 以字符串或字符数组的形式发布。

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

VBA示例

本示例显示 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

Word VBA教程

Word VBA参考教程:目录1 Word VBA参考教程:目录2
Word VBA参考教程:目录3 Word VBA参考教程:目录4
Word VBA参考教程:目录5 Word VBA参考教程:目录6
Word VBA参考教程:目录7 Word VBA参考教程:目录8
Word VBA参考教程:目录9 Word VBA参考教程:目录10
版权所有 © 中山市飞娥软件工作室 证书:粤ICP备09170368号