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

Question

如题所述

Answer 1

用查找替换就可以了
录了个宏，做了一些修改，看是不是你需要的，数组里内容可以添加
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

Answer 2

用快捷键复制ctrl+c，替换成空白就批量删除了