求教VBA问题,如何让word在另存关闭时不提示跟踪更改。 本帖最后由 bcrun 于 2015-03-12 10:05:09 编辑 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 试试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.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 IfNext docSaved 属性请参阅 应用于 示例 特性 如果该属性值为 True,则指定文档或模板从上一次保存后一直没有更改。如果为 False,则关闭文档时,Microsoft Word 将提示保存对文档所作的更改。Boolean 类型,可读写。示例如果活动文档含有以前未保存的更改,本示例将保存该文档。If ActiveDocument.Saved = False Then ActiveDocument.Save本示例将 Normal 模板的状态设置为未更改。如果更改了 Normal 模板,退出 Word 时将不保存更改。NormalTemplate.Saved = TrueApplication.Quit Vb中怎么实现这个功能?? 【无条件散分】夜来犬吠声,花落知多少。 请帮我看一段代码,谢谢了! 如何通过SCROLLBAR控制图片的滚动 高分求教:一个输出序列号的问题 在VB里使用WINSOCK控件做一些网络程序,它的稳定性怎么样,在连接时间上和时间延迟上效果怎么样? api 的参数如何配: 同步+连续? VB高手和图形学高手请进!! 第一!散分!(还有牢骚,呵呵) 在VB5中如何实现向DOS那样的滚屏效果? VB6.0,菜鸟求解,这块的查询按钮的代码不知道该怎么写 如何获取打印页参数
在保存后关闭前使用。
请参阅 应用于 示例 特性
应用于 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