С помощью пользователя форума я смог без проблем выполнить следующий код. Однако, когда я хотел сохранить и закрыть программу word, он предлагает следующую строку:
Сохраняемый документ содержит отслеженные изменения. Продолжить сохранение?
Существует ли способ подавления всех запросов и предупреждений при сохранении слова do c с использованием VBA?
Мой рабочий код:
Sub DocSearchandReplace()
Dim wdApp As Object, wdDoc As Object
Set wdApp = CreateObject("word.application")
wdApp.Visible = True
Set wdDoc = wdApp.Documents.Open("P:\test.doc")
With wdDoc.Content.Find
.ClearFormatting
.Text = "[0-9]{2}.[0-9]{2}.[0-9]{4}"
.MatchWildcards = True
.Replacement.ClearFormatting
.Replacement.Text = ThisWorkbook.Worksheets("sheet1").Range("A1").Text
.Execute Replace:=2, Forward:=True, Wrap:=1
End With
wdDoc.Save 'it prompts and asks me whether continue to save
wdApp.ActiveDocument.PrintOut 'here again the same prompt when executing this line.
wdApp.Quit
Set wdApp = Nothing: Set wdDoc = Nothing
End Sub