Релиб / Программирование / VBA / значение Selection.Find.Found не обнуляется / Latest Posts

RE: значение Selection.Find.Found не обнуляется

alexander_83 — Wed, 20 Jun 2007 11:10:36 GMT

Спасибо :) решил проблему.

RE: значение Selection.Find.Found не обнуляется

Дэн Шорин — Wed, 20 Jun 2007 10:48:13 GMT

Вместо
[quote]
If Selection.Find.Found = True Then
MsgBox Selection.Find.text & " присутствует"
Selection.Find.Execute
End If
[/quote]

Попробуйте

[quote]
If Selection.Find.Execute = True Then
MsgBox Selection.Find.text & " присутствует"
End If
[/quote]

значение Selection.Find.Found не обнуляется

alexander_83 — Tue, 19 Jun 2007 17:30:22 GMT

отрезок кода, который ищет определенной слов в тексте, и если находит, выделяет.

проблема в том, что если в одном из файлов искомого слова нет, Selection.Find.Found принимает значение false при всех последующих запусках программы.

подскжите, пожалуйста, в чем может быть проблема

With Selection.Find
.ClearFormatting
.text = "транспорт"
.Replacement.text = ""
.Forward = True
.Wrap = wdFindContinue
.Format = True
.MatchCase = False
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With

If Selection.Find.Found = True Then
MsgBox Selection.Find.text & " присутствует"
Selection.Find.Execute
End If