在word里用vba编写一个按钮程序，目的是全文查找指定文字然后将该文档内的指定文字更改为红色。

发布网友发布时间：2022-04-23 05:39

共2个回答

热心网友时间：2023-10-16 21:44

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

热心网友时间：2023-10-16 21:44

给你个简单的方法，在word里面记录宏，记录下你所说的这些操作，然后进vba编辑器，看宏代码，那些就是了~