使用 Excel VBA 在 Word 书签处插入超链接

Question

我正在使用 VBA 开发 Excel 宏，以在 Word 模板中创建添加超链接。 我在模板中添加了一个书签，其中超链接应为 go，称为“WebAdd”。 我尝试使用下面的代码并收到类型不匹配错误。 任何建议将不胜感激...

“MyWebAdd”是超链接的 web 地址

WrdApp.ActiveDocument.Hyperlinks.Add Anchor:=MyWebAdd, Address:="", SubAddress:="WebAdd", ScreenTip:="", TextToDisplay:=MyWebAdd

我还使用了以下代码。 它将 web 地址放在书签中，但它不是用户可以单击的超链接。 书签名称具有正确的书签并且 MyWebAdd 变量具有正确的 web 地址

WrdApp.ActiveDocument.Bookmarks(BookMarkName).Select
WrdApp.Selection.GoTo What:=wdGoToBookmark, Name:=BookMarkName
WrdApp.Selection.TypeText MyWebAdd

感谢您对这个问题的帮助......

Answer 1

在线帮助中的第一个示例向您展示了锚点必须是Range而不是字符串。

With WrdApp.ActiveDocument
  .Hyperlinks.Add Anchor:=.Bookmarks(BookmarkName).Range, _
  Address:=MyWebAdd, _
  TextToDisplay:=MyWebAdd
End With