⑴ 在word里用vba编写一个按钮程序，目的是全文查找指定文字然后将该文档内的指定文字更改为红色。
word里面插入一个按钮,然后指定下面的宏.
Sub 替换()
a = InputBox("输入查找字符")
b = InputBox("输入替换次数,不输入替换1000次")
If b = "" Then c = 1000
c = b
For i = 1 To c
Selection.Find.ClearFormatting
With Selection.Find
.Text = a
.Replacement.Text = ""
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchByte = True
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute
Selection.Font.Color = wdColorRed
Next i
End Sub
⑵ 如何在word 2010中添加按钮控件来运行VBA工程
既然你可以写VBA，那么开发工具这个标签应该已经启用了。
在开发工具里面的控件部分，插入一个按钮，双击按钮后会弹出脚本编辑器，把你的代码放在这里面就行了。
⑶ 如何用VBA代码为Word添加菜单（即命令栏）
Dim
myMenuBar
Dim
newMenu
Dim
ctrl1
Dim
s
Dim
flag
As
String
'初始化菜单
Set
myMenuBar
=
CommandBars.ActiveMenuBar
Set
newMenu
=
myMenuBar.Controls.Add(Type:=msoControlPopup,
_
Temporary:=True)
newMenu.Caption
=
"电子印章"
Set
ctrl1
=
newMenu.Controls.Add(Type:=msoControlButton,
ID:=1)
ctrl1.Caption
=
"添加电子印章"
ctrl1.Style
=
msoButtonCaption
ctrl1.OnAction
=
"AddSeal"
Set
ctrl1
=
newMenu.Controls.Add(Type:=msoControlButton,
ID:=1)
ctrl1.Caption
=
"验证电子印章"
ctrl1.Style
=
msoButtonCaption
ctrl1.OnAction
=
"CheckSeal"
ctrl1.Style
=
msoButtonCaption
Set
ctrl1
=
newMenu.Controls.Add(Type:=msoControlButton,
ID:=1)
ctrl1.Caption
=
"关于"
ctrl1.OnAction
=
"About"
ctrl1.Style
=
msoButtonCaption