[求助] 帮帮我了！！等待中

chenyun1234

[求助] 帮帮我了！！等待中[em06][em06]

c81

Ctrl+Alt+“－”（非小键盘上的那个）

守柔

QUOTE:

以下是引用c81在2006-9-9 13:33:02的发言：

Ctrl+Alt+“－”（非小键盘上的那个）

TO C81，你的这个方法，只删除文件菜单下的打开文件列表，其实它的本意是删除某个命令，并不能解决楼主的打开文件对话框中的文件列表。

TO 楼主，你是想所有历史文件均不出现（相当于清空历史文档记录），还是只是想对Word打开文件对话框中的文件名不出现？

我记得除了以上方法外，我做过一个小程序，我得找一下。

守柔

相关链接：

http://club.excelhome.net/viewthread.php?tid=84291&replyID=440778&skin=0

以下代码修改后可作于于当前或者Normal.dot（视代码保存位置）

Option Explicit
Sub FileOpen()
'如果需要,应该将些代码粘贴于全局模板(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

ytliucp

唉，你太执着了