使用 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