- ·上一篇:如何取消word只读模式
- ·下一篇:word复制时复制不上格式,是为什么
请问如何在WORD中批量替换多个字符呢
2024-04-12 11:50:37
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