在ＶＢ中向Word中添加一按钮，这个按钮可不可以执行我想要的操作

Question

我在VＢ中调用Word时，通过下面的语句向word的工具栏中添加了１个按钮，名为＂保存＂
＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝
　　　　Set oBars = wdWord.CommandBars
        Set oNewBar = oBars.Add("保存", , , Temporary:=True)
        oNewBar.Visible = True
        Set oNewButton1 = oNewBar.Controls.Add(msoControlButton)
        oNewButton1.Style = msoButtonIconAndCaption
        oNewButton1.Caption = "保存"
＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝
请问可不可以对这个新添加的＂保存＂按钮写上代码让他执行我想要的操作．例如执行
把当前操作的这个文档存到数据库中．如果可以的话，应该在哪儿写呢．

Answer 1

可以参考李洪根的代码:http://dev.csdn.net/develop/article/20/20406.shtm