Изменить название файла, если найден определенный текст в файле

Пользователь

Сообщений: 59 Регистрация: 06.11.2019

25.09.2020 10:55:02

Всем доброго времени суток! Помогите пожалуйста с одной проблемой. Нужен макрос для Excel с помощью которого можно открыть Word файл и поменять его название, если в этом файле есть определенный текст. Код для открытия ворда не нужен. Вот такой алгоритм должен быть:

Код

Если в файле word найден "Определенный текст", То
Сохранить его под названием: "Название1",
Если не найден, то закрыть ворд (не изменять файл)

Я попытался написать код, но он почему-то не работает. Вот:

Код

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"
        End If
'Закрыть ворд



Заранее огромное спасибо!

Изменено: Anton_Kozlov - 25.09.2020 10:55:38

Дмитрий(The_Prist) Щербаков

Пользователь

Сообщений: 14895 Регистрация: 15.09.2012

Профессиональная разработка приложений для MS Office

25.09.2020 11:12:32

Код

Dim rWDrr As Object, v
    Set rWDrr = objWrdDoc.Range
    v = rWDrr.Find.Execute("Яблоко", , , , , , True, 0)
    If v Then
        objWrdDoc.SaveAs2 Filename:= _
            "C:\Users\KLC Team\Desktop\6_TESTs\Название1.docx"
    End If

Даже самый простой вопрос можно превратить в огромную проблему. Достаточно не уметь формулировать вопросы...

Anton_Kozlov Пользователь Сообщений: 59 Регистрация: 06.11.2019	#3 25.09.2020 18:04:33 Дмитрий(The_Prist) Щербаков, Спасибо Вам огромное! Выручили!