求：如何在微软的 WORD 程序里面添加一个按钮或菜单？

[ab]

要求一：从添加到彻底去除，都必须能用程序实现；
要求二：选择该按钮或菜单后，可以执行一段程序，这段程序需要调用 API 函数，需要取得并修改当前正编辑的 WORD 文档中的选定部分；

我到微软的站点搜索了一下，找到一大堆不相关的。如果哪位大侠能提供例子或提供具体文章地址，有分相赠，不够可以再加。可以使用 COM 或 VBA，可以使用 VC 或 VB。

[心念不空过]

用VBA可以做。

[ab]

能具体说一说吗？有什么资料、例子吗？万分感谢！！！有分相谢。

[ab]

还有，用 VBA 的话，如果做成商业软件，给用户安装以后，用户能看到我的源程序吗？

[RedFire]

可以用VBA就可以使用COM.

[RedFire]

呵呵！我给你指一个方向！如果你有MSDN的话，你可以在
Microsoft Office Development
Office 97 Documentation
Office
Microsoft Office 97/Visual Basic Programmer's Guide
chapt 8:...
找到你想要的内容。但是只是对于菜单的，没有讲按钮如何实现。而且使用的例子是用VB的！
Good Luck!

[jinxi_gao]

关注

[ab]

待我看来...

[ab]

我大致看了一下，MSDN 里面说的那种好像不是我想要的，我想要的是：
在用户机器上安装时，不必启动 WORD；
安装后再启动 WORD 时，会自动出现加入的菜单或按钮；
用户看不到我的源程序；
我的程序卸载时，可以彻底删除该按钮及其所在的工具条；
不论卸载还是安装，用户都只需要运行 setup/unsetup，而不需要在 WORD 里面进行什么操作；
所以好像写成 Add-In 比较合适，可是我只找到支持 Word2000 的例子，没找到支持 97 的。哪位大侠能指点一下？问题解决后我会给一个令你满意的分数的。

[ab]

?

[随风bj]

关注

[spdia]

关注

[Jamebo]

做个hook怎么样？找到word的Window Handle ,你就可以用API操作Menu

[Davidleo]

观众

[Davidleo]

观众

[Edward]

嘻嘻，花了我半个钟头噢！

Option Explicit

Private Sub cmdAddSampleMenu_Click()
Dim bar As CommandBar
Dim pop As CommandBarPopup
Dim btn As CommandBarButton

Set bar = CommandBars("Menu Bar")
'Set bar = CommandBars("MySampleCommandBar")
'If bar Is Nothing Then
' Set bar = CommandBars.Add("MySampleCommandBar")
'End If
If Not bar Is Nothing Then
bar.Visible = True
End If

'On Error Resume Next
Set pop = bar.Controls.Add(msoControlPopup)
On Error GoTo 0

If Err = 0 Then
pop.Caption = "Sample Menu"
pop.Tag = "SampleMenu"
pop.Visible = True

Set btn = pop.Controls.Add(msoControlButton)
btn.Caption = "About Sample Menu"
btn.OnAction = "AboutSampleMenu"
btn.Visible = True
End If
End Sub

Private Function AboutSampleMenu()
Dim para As Paragraph

Set para = Paragraphs.Add
para.Range.InsertAfter "Sample Menu Inserted Text"
frmAbout.Show
End Function

Private Sub cmdDeleteSampleMenu_Click()
Dim bar As CommandBar
Dim pop As CommandBarPopup

Set bar = CommandBars("Menu Bar")
On Error Resume Next
Set pop = bar.FindControl(msoControlPopup, , "SampleMenu")
If Not pop Is Nothing Then
pop.Delete
End If
End Sub

[ab]

edyang 真是敬业！小弟对大哥的敬仰之情...
还有：
一、我不想让用户看到我的源代码，该怎么设置？
二、这些代码我想应该放到某个.dot里面，可是我就是没找到保存到模板的命令在哪儿，安装程序应该做些什么呢？

[ab]

谢谢 edyang，搞好了。