[求助]版主看看这段代码哪里错了？

allex81

仿照守柔版主出的代码集内容（十七、修改Word命令），作了简单修改，想实现的功能是点击标准工具栏上的“保存”图标，弹出“另存为”对话框。代码如下：

Sub ExaSaveAs() Dim i As CommandBarControl For Each i In ActiveDocument.CommandBars.FindControls If i.ID = 3 Then i.OnAction = "MySub" End If Next i End Sub

Sub MySub() Application.Dialogs(wdDialogFileSaveAs).Show End Sub

Sub ResetSub() Dim j As CommandBarControl For Each j In ActiveDocument.CommandBars.FindControls If j.ID = 3 Then j.OnAction = "" '恢复原有ID功能 End If Next j End Sub

Private Sub Document_Close() ResetSub '关闭文档后恢复 End Sub

Private Sub Document_Open() ExaSaveAs '修改 End Sub

但打开Word文档后，便提示出错：运行时错误，424，要求对象。

另外，有没有更简便的方法实现，望版主指点。

守柔

你这个是修改WORD命令吗?学了一知半解啊!

'* ＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋ '* Created By I Love You_Word!@ExcelHome 2005-9-24 5:46:34 '仅测试于System: Windows NT Word: 10.0 Language: 2052 '№ 00039^The Code CopyIn [ThisDocument-ThisDocument]^' '* －－－－－－－－－－－－－－－－－－－－－－－－－－－－－

Sub FileSave() Word.Dialogs(wdDialogFileSaveAs).Show End Sub '----------------------

你试着点保存,或者按下CTRL+S看一下,是否出现了另存为对话框.

allex81

我试过了，点“Ctrl+S”可以，点“文件”下的“保存”也行，/但点工具栏上的“保存”按钮不行，提示说无法找到宏或宏被禁用，但我已经把宏安全设置设为-“中”了，我装的是Office2003。

[此贴子已经被作者于2005-9-24 8:33:07编辑过]

守柔

你想其它两个都行，就这个不行？说明你的命令可能被一楼的代码破坏了，重新运行

Sub ResetSub() Dim j As CommandBarControl For Each j In ActiveDocument.CommandBars.FindControls If j.ID = 3 Then j.OnAction = "" '恢复原有ID功能 End If Next j End Sub

或者删除NORMAL.DOT(移除或者重命名)均可,看实际情况.