VBA将超链接添加到MS Word模板中的书签

Question

我需要在MS Word模板中添加一个指向书签的超链接。超链接(根据用户输入而更改(指向网络上数据库中的一个条目。我很容易将超链接构建为字符串变量，但我不知道如何将其放在书签中，因此用户最终会得到一个Word文档，其中包含一个可以单击以转到数据库条目的链接。我的代码(下面(只是删除了书签。我错过了什么？

Dim databaseURL As String
' get databaseURL from an existing variable--this part works OK
databaseURL = ActiveDocument.Variables("databaseLink") 
' put the hyperlink in a bookmark named "linkToDatabase"
Dim BMRange As Range
Set BMRange = ActiveDocument.Bookmarks("linkToDatabase").Range
BMRange.Text = "Database link"
ActiveDocument.Hyperlinks.Add Anchor:=BMRange, _
Address:=databaseURL, _
SubAddress:="", ScreenTip:="", TextToDisplay:=BMRange.Text

Answer 1

要简化操作，可以在书签范围中设置一个书签"默认"超链接字段，然后只需更改超链接字段的代码。例如：

ActiveDocument.Bookmarks("linkToDatabase").Range.Fields(1).Code.Text = "HYPERLINK " & databaseURL