| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 943 人关注过本帖
标题:word 人工关闭时不要提示保存
只看楼主 加入收藏
liunis
Rank: 1
等 级:新手上路
帖 子:139
专家分:7
注 册:2021-9-25
收藏
得分:0 
是这样子的:有于需要从WORD模版复制文档后进行表格内容填写完打印,这个内容就不需要了,再者VFP测试WORD语句时经常出错,打开的WORD就会挂在那里,然后手动关闭会有提示。
OLE.Documents(1).Saved = .T.  由于改动了,依然会有提示。
2023-04-25 09:56
csyx
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
来 自:火星
等 级:版主
威 望:37
帖 子:647
专家分:2502
注 册:2018-3-13
收藏
得分:0 
自然是改动后才需要赋值 .T.
因为修改和关闭这些动作都是你无法预知和控制的,所以我才说顶多只能用一个定时器定时执行这个赋值动作

这家伙很懒,啥也没留下
2023-04-25 10:26
吹水佬
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
等 级:版主
威 望:451
帖 子:10560
专家分:42996
注 册:2014-5-20
收藏
得分:0 
交给用户掌控后就不好管了
不想保存,她要保存也有多种方式,你管得几多。否则,保存不保存不重要,点多一下也无妨。  
或者可以试试:
1、用固定模板的,可先定义关闭事件过程。
2、任意文档的,可以试试用VBA的工程对象(VBProject)动态添加代码(关闭事件过程),然后才交给用户操作,等用户关闭时就会执行你定义的事件过程。
2023-04-25 10:29
csyx
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
来 自:火星
等 级:版主
威 望:37
帖 子:647
专家分:2502
注 册:2018-3-13
收藏
得分:0 
以下是引用吹水佬在2023-4-25 10:29:42的发言:
或者可以试试:
1、用固定模板的,可先定义关闭事件过程。
2、任意文档的,可以试试用VBA的工程对象(VBProject)动态添加代码(关闭事件过程),然后才交给用户操作,等用户关闭时就会执行你定义的事件过程。


这方法可靠,但这是否会牵扯到要打开信任中心?

这家伙很懒,啥也没留下
2023-04-25 10:58
吹水佬
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
等 级:版主
威 望:451
帖 子:10560
专家分:42996
注 册:2014-5-20
收藏
得分:0 
以下是引用csyx在2023-4-25 10:58:24的发言:

这方法可靠,但这是否会牵扯到要打开信任中心?

要开启“信任对VBA工程对象模型的访问”
regKey = "HKEY_CURRENT_USER\Software\Microsoft\Office\" + word.Version + "\Word\Security\AccessVBOM"
shell = CREATEOBJECT("WScript.Shell")
shell.RegWrite(regKey, 1, "REG_DWORD")
2023-04-25 14:05
csyx
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
来 自:火星
等 级:版主
威 望:37
帖 子:647
专家分:2502
注 册:2018-3-13
收藏
得分:0 
开启方法不是关键,Office 的选项菜单中就有开启的 checkbox,关键是很多单位明令禁止开启,遇到这种情况就有些麻烦了

这家伙很懒,啥也没留下
2023-04-25 14:26
吹水佬
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
等 级:版主
威 望:451
帖 子:10560
专家分:42996
注 册:2014-5-20
收藏
得分:0 
以下是引用csyx在2023-4-25 14:26:12的发言:

开启方法不是关键,Office 的选项菜单中就有开启的 checkbox,关键是很多单位明令禁止开启,遇到这种情况就有些麻烦了

这个不能由人工去做,是在程序里开启,任务完成后关闭。
2023-04-25 15:08
快速回复:word 人工关闭时不要提示保存
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.019684 second(s), 7 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved