vba - 添加动态超链接时vba宏中的奇怪行为

Question

我在 word 2007 中录制了一个宏，如下所示：

Sub Makro1()
ActiveDocument.Hyperlinks.Add Anchor:=Selection.Range, Address:= _
    "http://www.example.com", SubAddress:="", ScreenTip:="", TextToDisplay:= _
    "text"
End Sub

在我的宏中，我想动态设置地址和 textToDisplay，我试图通过做这个简单的测试来做到这一点：

Sub Makro1()
Dim text1 As String
text1 = "joe"
    ActiveDocument.Hyperlinks.Add Anchor:=Selection.Range, Address:= _
        "http://www.example.com", SubAddress:="", ScreenTip:="", TextToDisplay:= _
        text1
End Sub

当我运行这个宏时，整个 Word 崩溃了，不得不恢复文档，显然我做错了什么。任何帮助表示感谢

Answer 1

我遇到了同样的问题，在Office Development Center上找到了答案

简而言之，问题出在 TextToDisplay 参数上。将变量类型从 String 更改为 Variant 将解决该问题。

暗淡 text1 作为变体