本帖最后由 bcrun 于 2015-03-12 10:05:09 编辑

解决方案 »

  1.   

    试试Saved属性,看看是否可以解决问题。 
    在保存后关闭前使用。
      

  2.   

    全部显示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.Saveexpression   必需。该表达式返回以上一个对象。 示例
    当应用于 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 docSaved 属性
    请参阅 应用于 示例 特性 
    如果该属性值为 True,则指定文档或模板从上一次保存后一直没有更改。如果为 False,则关闭文档时,Microsoft Word 将提示保存对文档所作的更改。Boolean 类型,可读写。示例
    如果活动文档含有以前未保存的更改,本示例将保存该文档。If ActiveDocument.Saved = False Then ActiveDocument.Save
    本示例将 Normal 模板的状态设置为未更改。如果更改了 Normal 模板,退出 Word 时将不保存更改。NormalTemplate.Saved = True
    Application.Quit