[求助]如何消除另存为中的信息？

mana323025

小弟偶然发现当我点“文件”下的“另存为”以后，点文件名旁的下拉框时候，以前存过的一些文件名也在其中，请教如何清除这些文件名？Office2000-xp，，谢谢

守柔

请运行注册表，找到：

HKEY_CURRENT_USER\Software\Microsoft\Office\10.0\Common\Open Find\Microsoft Word\Settings\另存为\File Name MRU 下的VALUE字串值删除即可。

如果你觉得常用，我可以编一个小程序，在WORD中自动执行。

如果是2000，则为9.0;如果是XP,则为10.0,2003版则为11.0

如意

[em06]守柔呀，我听到注册表就好晕哦，你还是编个程序方便大家吧。

mana323025

版主方便的化就做个把，写出注册表信息也瞒好的，多让我们了解些内容，就是注册表操作比较慢，，哈哈

mana323025

请版主做好了发上来把，，期待中

忙碌h

以下是引用mana323025在2005-3-2 15:56:00的发言： 请版主做好了发上来把，，期待中

没看到上面通知，守柔版主家中急事。

守柔

'* ＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋ '* Created By 守柔(ShouRou)@ExcelHome 2005-3-5 5:03:10 '仅测试于System: Windows NT Word: 10.0 Language: 2052 '^The Code CopyIn [ThisDocument-ThisDocument]^' '* －－－－－－－－－－－－－－－－－－－－－－－－－－－－－

Sub FileSaveAs() '如果需要,应该将些代码粘贴于全局模板(Normal.dot-ThisDocument)中 Dim Ver As String, MySec As String, MyKey As String On Error Resume Next '忽略错误 Ver = Application.Version '获得当前OFFICE版本号(WORD) '注册表中项名称所在完整路径 MySec = "HKEY_CURRENT_USER\Software\Microsoft\Office\" & Ver _ & "\Common\Open Find\Microsoft Word\Settings\另存为\File Name MRU" MyKey = "Value" '项名称 '设置该项值为"" System.PrivateProfileString("", MySec, MyKey) = "" '打开另存为对话框 Application.FileDialog(msoFileDialogSaveAs).Show End Sub '----------------------

请将其粘贴于Normal.dot 的ThisDocument模块下，可以达到所有WORD活动文档在运行另存为时，执行上述代码过程。上述代码过程，又称修改WORD命令。

注意，如果你的注册表是保护的，可能会因此出错！ oBAzqrsZ.rar (6.54 KB, 下载次数: 13)

2005-3-5 05:09 上传

点击文件名下载附件
[求助]如何消除另存为中的信息？

[此贴子已经被作者于2005-3-5 5:10:30编辑过]

mana323025

谢谢，但不知道（Normal.dot-ThisDocument）在哪？，，还有在EXCEL中需要改动哪些参数去实现同样的效果呢？

cxffxc

以下是引用mana323025在2005-3-7 13:43:00的发言： 谢谢，但不知道（Normal.dot-ThisDocument）在哪？，，还有在EXCEL中需要改动哪些参数去实现同样的效果呢？

按下Alt+F11组合键就能找到了