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

Question

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

“MyWebAdd”是超链接的网址

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

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

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

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

Using Excel VBA to insert a hyperlink at a Word bookmark

excel

vba

ms-word

hyperlink