Поиск слова в тексте и сравнить его if

@kosja34 · Регистрация: 25.05.2015

Author24 — интернет-сервис помощи студентам

Привет всем!
Кто нибудь подскажите как сформулировать правельно код условия if
Sub Module1()

Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
With Selection.Find

.Text = "Привет" ‘Поиск слова

End With
Selection.Find.Execute
Selection.MoveLeft Unit:=wdCharacter, Count:=1
Selection.MoveDown Unit:=wdLine, Count:=2

If Selection.Type .Text = "Привет" = True Then ‘ если слово есть
‘Вот здесь что то не правельно

Call Maski_Start.Maske_DRNummer_Tabelle ‘то выполняет операцию

Else

Selection.HomeKey Unit:=wdStory ‘возвращаеться на верх

End If
End Sub

@aequit · 07.04.2017, 13:35

Сообщение от kosja34

правельно

Для Вас русский язык не родной? Прогоняйте тогда через Word текст задачи.
У Вас практически всё неправильно. if нужно применять по другому, если необходимо в зависимости от результатов поиска запустить процедуру. Например, можно сделать так:

Visual Basic

Sub Test2()
 
Dim r As Range
Set r = ActiveDocument.Range
With r.Find
    .ClearFormatting
    .text = "Привет"
    .Forward = True
    .Wrap = wdFindContinue
    .Format = False
    .MatchCase = False
    .MatchWholeWord = False
            If .Execute Then
            Call Test 'то, что выполняет не операцию, а запуск процедуры Test
        Else
           MsgBox "Текст не найден!", vbExclamation
        End If
End With
Selection.HomeKey Unit:=wdStory
 
End Sub

@kosja34 · 11.04.2017, 00:35 **[ТС]**

Спосибо работает.
для меня ключевая фраза для условия была
If .Execute Then

@kosja34 2 / 2 / 0 Регистрация: 25.05.2015 Сообщений: 38
		1
	Поиск слова в тексте и сравнить его if 07.04.2017, 13:01. Показов 831. Ответов 2 Метки нет (Все метки) Привет всем! Кто нибудь подскажите как сформулировать правельно код условия if Sub Module1() Selection.Find.ClearFormatting Selection.Find.Replacement.ClearFormatting With Selection.Find .Text = "Привет" ‘Поиск слова End With Selection.Find.Execute Selection.MoveLeft Unit:=wdCharacter, Count:=1 Selection.MoveDown Unit:=wdLine, Count:=2 If Selection.Type .Text = "Привет" = True Then ‘ если слово есть ‘Вот здесь что то не правельно Call Maski_Start.Maske_DRNummer_Tabelle ‘то выполняет операцию Else Selection.HomeKey Unit:=wdStory ‘возвращаеться на верх End If End Sub 0

@kosja34 2 / 2 / 0 Регистрация: 25.05.2015 Сообщений: 38
	11.04.2017, 00:35 [ТС]	3
	Спосибо работает. для меня ключевая фраза для условия была If .Execute Then 0