объект Слово VBA Range.Find работает неправильно

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 демонстрирует то же поведение.

Любопытно, что это не только при поиске в VBA: если вы выберете какой-либо текст в документе и нажмите «Найти», диалог поиска по умолчанию отобразит выбранный текст как цель.
При нажатии «Найти далее>» Word выводит сообщение об ошибке «Слово дошло до конца документа ... и т. Д.».

Это не произойдет, если вы измените текст на поиск, удалив последний символ. 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 

Не разрешено ... но оказалось совместимым с графическим интерфейсом.

HTH!