Question

我在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将解决此问题。

Dim text1 As Variant

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

1 个答案: