求教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 初学者问题,end属性后面只能出现注释 帮忙看下这函数,vb导出excel的问题,为什么不能重复调用?急! 会mscomm1的请进来看看 新手问题:在TextBox按Enter键如何让它不发出“冬”的一声? 如何得到字符数? 如何在vb中使用其他编程语言? 如何做到像sql server服务管理器一样,当系统启动时运行程序,并直接放到系统托盘里? 关于DataReporter问题! VB控制Excel... 如何使系统键:WIN,ALT+TAB,CTRL+ESC无效 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