Подавить запрос сохранения Word о отслеженных изменениях - PullRequest
0 голосов
/ 27 января 2020

С помощью пользователя форума я смог без проблем выполнить следующий код. Однако, когда я хотел сохранить и закрыть программу 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
Добро пожаловать на сайт PullRequest, где вы можете задавать вопросы и получать ответы от других членов сообщества.
...