求教VBA有关问题，怎么让word在另存关闭时不提示跟踪更改
求教VBA问题，如何让word在另存关闭时不提示跟踪更改。
我的问题是：用VBA写了一个保存批量word文件的程序，现在问题来了：
每关闭一个文件的时候，弹出提示框："The document contains tracked changes and ink annotations. Continue with save?"
必须手动点OK才能继续。
一百多个文件啊，非得累shi。
哪位知道如何设置SaveAs的参数才能不提示这个对话框？
多谢了。
------解决思路----------------------
试试Saved属性，看看是否可以解决问题。
在保存后关闭前使用。
------解决思路----------------------
全部显示
Save 方法
请参阅 应用于 示例 特性
应用于 Versions 对象的 Save 方法。
保存指定文档的一个版本及其说明。
expression.Save(Comment)
expression 必需。该表达式返回以上一个对象。
Comment Variant 类型，可选。
应用于 Documents 对象的 Save 方法。
保存 Documents 集合中的所有文档。如果用户没有保存过此文档或模板，可在“另存为”对话框中键入文件名。
expression.Save(NoPrompt, OriginalFormat)
expression 必需。该表达式返回以上一个对象。
NoPrompt Variant 类型，可选。如果为 True，Word 将自动保存所有文档。如果为 False，Word 将提示用户在修改文档后保存每一个文档。
OriginalFormat Variant 类型，可选。指定文档的保存方式。WdOriginalFormat
可以是下列 WdOriginalFormat 常量之一：
wdOriginalDocumentFormat
wdPromptUserX
wdWordDocument
应用于 Document 和 Template 对象的 Save 方法。
将指定的文档或模板保存。如果用户没有保存过此文档或模板，可在“另存为”对话框中键入文件名。
expression.Save
expression 必需。该表达式返回以上一个对象。
示例
当应用于 Document 对象时。
如果活动文档在上次保存后进行了修改，本示例将保存活动文档。
If ActiveDocument.Saved = False Then ActiveDocument.Save
本示例保存 Documents 集合中的每一文档，但在保存文档前不提示用户。
Documents.Save NoPrompt:=True, _
OriginalFormat:=wdOriginalDocumentFormat
当应用于 Version 对象时。
如果打开了 Sales.doc，本示例将 Sales.doc 的一个版本及其说明一起保存。
For Each doc in Documents
If Instr(1, doc.Name, "Sales.doc", 1) > 0 Then
doc.Versions.Save Comment:="Minor changes to intro"
End If
Next doc
Saved 属性
请参阅 应用于 示例 特性
如果该属性值为 True，则指定文档或模板从上一次保存后一直没有更改。如果为 False，则关闭文档时，Microsoft Word 将提示保存对文档所作的更改。Boolean 类型，可读写。
示例
如果活动文档含有以前未保存的更改，本示例将保存该文档。
If ActiveDocument.Saved = False Then ActiveDocument.Save
本示例将 Normal 模板的状态设置为未更改。如果更改了 Normal 模板，退出 Word 时将不保存更改。
NormalTemplate.Saved = True
Application.Quit
本帖最后由 bcrun 于 2015-03-12 10:05:09 编辑
各位大侠好，我的问题是：用VBA写了一个保存批量word文件的程序，现在问题来了：
每关闭一个文件的时候，弹出提示框："The document contains tracked changes and ink annotations. Continue with save?"
必须手动点OK才能继续。
一百多个文件啊，非得累shi。
哪位知道如何设置SaveAs的参数才能不提示这个对话框？
多谢了。
------解决思路----------------------
试试Saved属性，看看是否可以解决问题。
在保存后关闭前使用。
------解决思路----------------------
全部显示
Save 方法
请参阅 应用于 示例 特性
应用于 Versions 对象的 Save 方法。
保存指定文档的一个版本及其说明。
expression.Save(Comment)
expression 必需。该表达式返回以上一个对象。
Comment Variant 类型，可选。
应用于 Documents 对象的 Save 方法。
保存 Documents 集合中的所有文档。如果用户没有保存过此文档或模板，可在“另存为”对话框中键入文件名。
expression.Save(NoPrompt, OriginalFormat)
expression 必需。该表达式返回以上一个对象。
NoPrompt Variant 类型，可选。如果为 True，Word 将自动保存所有文档。如果为 False，Word 将提示用户在修改文档后保存每一个文档。
OriginalFormat Variant 类型，可选。指定文档的保存方式。WdOriginalFormat
可以是下列 WdOriginalFormat 常量之一：
wdOriginalDocumentFormat
wdPromptUserX
wdWordDocument
应用于 Document 和 Template 对象的 Save 方法。
将指定的文档或模板保存。如果用户没有保存过此文档或模板，可在“另存为”对话框中键入文件名。
expression.Save
expression 必需。该表达式返回以上一个对象。
示例
当应用于 Document 对象时。
如果活动文档在上次保存后进行了修改，本示例将保存活动文档。
If ActiveDocument.Saved = False Then ActiveDocument.Save
本示例保存 Documents 集合中的每一文档，但在保存文档前不提示用户。
Documents.Save NoPrompt:=True, _
OriginalFormat:=wdOriginalDocumentFormat
当应用于 Version 对象时。
如果打开了 Sales.doc，本示例将 Sales.doc 的一个版本及其说明一起保存。
For Each doc in Documents
If Instr(1, doc.Name, "Sales.doc", 1) > 0 Then
doc.Versions.Save Comment:="Minor changes to intro"
End If
Next doc
Saved 属性
请参阅 应用于 示例 特性
如果该属性值为 True，则指定文档或模板从上一次保存后一直没有更改。如果为 False，则关闭文档时，Microsoft Word 将提示保存对文档所作的更改。Boolean 类型，可读写。
示例
如果活动文档含有以前未保存的更改，本示例将保存该文档。
If ActiveDocument.Saved = False Then ActiveDocument.Save
本示例将 Normal 模板的状态设置为未更改。如果更改了 Normal 模板，退出 Word 时将不保存更改。
NormalTemplate.Saved = True
Application.Quit