|
|
|
новичок
участник
Last Login: 20.06.2007 11:09
Сообщ.: 2,
Visits: 11
|
|
отрезок кода, который ищет определенной слов в тексте, и если находит, выделяет.
проблема в том, что если в одном из файлов искомого слова нет, 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
|
|
|
|
|
новичок
участник
Last Login: 26.02.2008 16:06
Сообщ.: 8,
Visits: 21
|
|
Вместо
If Selection.Find.Found = True Then
MsgBox Selection.Find.text & " присутствует"
Selection.Find.Execute
End If
Попробуйте
If Selection.Find.Execute = True Then
MsgBox Selection.Find.text & " присутствует"
End If
|
|
|
|
|
новичок
участник
Last Login: 20.06.2007 11:09
Сообщ.: 2,
Visits: 11
|
|
| Спасибо :) решил проблему.
|
|
|
|