Excel 抑制Word保存有关跟踪的更改的提示

在论坛用户的帮助下，我能够完美地执行以下代码。 但是，当我想保存并关闭word程序时，它会提示以下行：

正在保存的文档包含跟踪的更改。是否继续保存？

使用VBA保存word文档时，是否有方法抑制所有提示和警告

我的工作代码：

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

---

您是否在前后使用

=True

值尝试了

Application.DisplayAlerts=False

？搜索错误消息会显示，例如，[如何使用C#禁用“正在保存的文档包含跟踪的更改”Word对话框]（document-Beving-saved-contains-tracked-changes-Word-Dialog-u）即使它被标记为C#VBA的方法仍然是一样的：

wdDoc.Options.WarnBeforeSavingPrintingSendingMarkup=false

@Cindymister谢谢你，你的方法奏效了。但是，它不是wdDoc.Option***，它必须是wdApp.Option****。我猜它是在word应用程序级别上。你说得对，我只是从“副本”中复制，然后用你的

文档

对象替换该贡献中的对象。我还更正了副本中的答案。不幸的是，我不能再编辑评论了…你是说酒店名称？好吧，它总是在足够有意义的描述性和简洁性之间保持平衡：-）我想说，没有人会误解这个选项的含义。。。