如果活动文档的第一个域是超连接域,本示例可实现单击此域。
If ActiveDocument.Fields(1).Type = wpsFieldHyperlink Then
ActiveDocument.Fields(1).DoClick
End If