请问如何在WORD中批量替换多个字符呢

1.请问如何在WORD中批量替换多个字符呢

用查找替换就可以了

录了个宏，做了一些修改，看是不是你需要的，数组里内容可以添加

Sub 查找替换（）

Dim arr()

arr = Array（"台灯"， "电视"， "冰箱"，"洗衣机"，"电脑"，"微波炉"）

For i = 0 To 5

With Selection.Find

.Text = arr(i)

.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 Replace:=wdReplaceAll

Next i

End Sub