Здравствуйте! В общем нужно чтобы макрос искал определенное слово и если он его находил, то сохранял файл с названием "Название1" и если же не находил этого слова в файле, то сохранял его с названием другим "Название2" Я попытался доработать код сегодня, но он почему-то не работает. Он сохраняет файл, но всегда с названием "Название2" вне зависимости нашел он текст или нет.
Код
With objWrdDoc.Content.Find
.Text = "Яблоко"
End With
If objWrdDoc.Content.Find.Execute Then
objWrdDoc.SaveAs2 Filename:= _
"C:\Users\KLC Team\Desktop\6_TESTs\Название1.docx"
Else
objWrdDoc.SaveAs2 Filename:= _
"C:\Users\KLC Team\Desktop\6_TESTs\Название2.docx"
End If
Ігор Гончаренко, Mershik, извините ребят, я вчера торопился сильно и поэтому по дурацки написал. Мои искренние извинения) В общем нужно чтобы макрос искал определенное слово и если он его находил, то сохранял файл с названием "Название1" и если же не находил этого слова в файле, то сохранял его с названием другим "Название2" Я попытался доработать код сегодня, но он почему-то не работает. Он сохраняет файл, но всегда с названием "Название2" вне зависимости нашел он текст или нет.
Код
With objWrdDoc.Content.Find
.Text = "Яблоко"
End With
If objWrdDoc.Content.Find.Execute Then
objWrdDoc.SaveAs2 Filename:= _
"C:\Users\KLC Team\Desktop\6_TESTs\Название1.docx"
Else
objWrdDoc.SaveAs2 Filename:= _
"C:\Users\KLC Team\Desktop\6_TESTs\Название2.docx"
End If