Question

我发现了一件有趣的事情：

在word 2010中，选择一些文本，然后运行以下VBA代码：

public Sub Test()
    With Selection.Range.Find
        MsgBox .Execute(Selection.Range.text) 
        MsgBox .Found
    End With
End Sub

两个消息框都显示“False”，但都应为“True”。为什么？

Answer 1

非常有趣

Word 2007也表现出同样的行为。

The curious thing is that this not only when you are searching from VBA: If you select some text in the doc and press "find", the find dialog displays as default the selected text as objective.
By pressing "Find Next >" Word displays an error message "Word has reached the end of the document ... etc".

如果修改文本以搜索删除最后一个字符，则不会发生这种情况。VBA与之一致：以下代码有效！

Sub tt()
    With Selection.Range.Find    
       MsgBox .Execute(Mid(Selection.Range.Text,1,Len(Selection.Range.Text)-1))  
       MsgBox .Found  
    End With  
End Sub

未解决。。。但是被证明与GUI一致。

啊！

友情链接