我很想知道金山公司是怎么做的！

xjliu · 发表于 2002-7-2 15:07

当装好金山词霸之后WORD的工具栏会多一个按钮，而且COM加载项里会增加一项：Powerword 2002 Office Addin。当取消此加载项时金山词霸按钮就不可能处于按下状态！我想知道他是怎样让这个按钮和那个COM加载项联系到一起的。

守柔 · 发表于 2004-11-17 05:34

将附件中的模板置于C:\Documents and Settings\UserName\Application Data\Microsoft\Word\STARTUP文件夹中.加载与卸载该"COMExample"加载项,观察一下常用工具栏的第一个命令按钮的情况.

mD8S8nyi.rar (5.63 KB, 下载次数: 23)

原理与代码如下:(两个自动宏)

Sub MySub() MsgBox "It's Only a Test!" End Sub Sub AutoExec() Dim MyBar As CommandBarControl If Application.CommandBars("Standard").Controls(1).Caption <> "COMTest" Then With MyBar Set MyBar = Application.CommandBars("Standard").Controls.Add(Type:=msoControlButton, Before:=1) .Caption = "COMTest" .OnAction = "MySub" .Visible = True .FaceId = 475 End With End If Application.CommandBars("Standard").Controls(1).Enabled = True End Sub Sub AutoExit() Application.CommandBars("Standard").Controls(1).Enabled = False End Sub

cofe2000 · 发表于 2004-11-18 13:38

我很想知道金山公司是怎么做的！

守柔 · 发表于 2004-11-18 14:05

以下是引用cofe2000在2004-11-18 13:38:00的发言：

sorry!有些问题：请下载这个：

pBH4m8Ct.zip (7.31 KB, 下载次数: 22)

代码如下：

Sub MySub() MsgBox "It's Only a Test!" End Sub Sub AutoExec() Dim MyBar As CommandBarControl On Error Resume Next If Application.CommandBars("Standard").Controls(1).Caption = "COMTest" Then Application.CommandBars("Standard").Controls(1).Enabled = True Exit Sub Else Set MyBar = Application.CommandBars("Standard").Controls.Add(Type:=msoControlButton, Before:=1) With MyBar .Caption = "COMTest" .OnAction = "MySub" .Visible = True .FaceId = 475 End With End If End Sub Sub AutoExit() On Error Resume Next Application.CommandBars("Standard").Controls("COMTest").Enabled = False End Sub

cofe2000 · 发表于 2004-11-18 19:54

谢谢版主，可以用了

再请问一下，这个文件放在STARTUP文件夹中时宏是自动运行的，但是直接打开的话却不运行，是何道理？

AutoExec和AutoExit是否和excel中的Auto_open差不多

守柔 · 发表于 2004-11-18 20:04

COFE兄你好！

WORD中的自动宏有以下几个：

AutoExec 启动 Word 或加载全局模板时

AutoNew 每次新建文档时

AutoOpen 每次打开已有文档时

AutoClose 每次关闭文档时

AutoExit 退出 Word 或卸载全局模板时

其中的AutoOpen\AutoClose可以理解为excel中的Auto_open、auto_close差不多,但AutoExec 、AutoExec 是与EXCEL中的有区别的，是针对模板的事件。

在EXCEL中，有着分工更为明确的事件，而WORD中则通常只有这五个自动宏和三个文档事件（NEW、OPEN、CLOSE）

cofe2000 · 发表于 2004-11-19 09:26

多谢版主，真是涨见识啊

		自动登录	找回密码
密码			免费注册

我很想知道金山公司是怎么做的！

测试没有通过啊！我win2000+off2000