VBA入门小实例（二）

李啸林

第一步：在工程Project下面新建立一模块，在模块中添加一个过程

Sub HelloAbc()

  MsgBox ("大家好")

End Sub

第二步：在Word对象ThisDocment的open事件中添加以下代码

Dim MyBar As CommandBar

Dim myButton As CommandBarControl



  Set MyBar = CommandBars.Add("MyBar")

  Set myButton = MyBar.Controls.Add(Type:=msoControlButton)

  

  

  myButton.Caption = "Click Me"

  myButton.Style = msoButtonIconAndCaption

  myButton.OnAction = "HelloAbc"

  

  

  MyBar.Visible = True

第三步：关闭重新打开。

第四步：手工删除自动建立工具栏



练习：修改为自动删除新建立的工具栏





实例下载：

xinbao

不错不错，基础工程，支持支持

xinbao

提一下，感觉放到Word编程栏目更好些

李啸林

以下是引用xinbao在2004-10-12 11:04:38的发言：

提一下，感觉放到Word编程栏目更好些

感谢支持。

放在这里原因有二：

1、这儿实在是太冷清了。想提升点人气。否则我这版主有失业危险 。

2、我想写的是VBA。不会局限于word的。

zyz218

不错不错,,,,好东东

nnlm

好好学习天天向上，谢谢！！

nplgacce

[em17][em17][em17]

crazyiori

不错不错。

120HYH

可以

marine12

好的,正在学习中