⑴ 在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