求个word批量替换文字的宏

lhw721

因为我的报告经常要检查修改某些特定的专业术语，比较说混泥土要改为混凝土之类的。我希望选定txt文件后（最好是文件位置让我自己选定），可以根据txt文件的关键词，可以自行替换word文件里的文字。


案例.zip (27.03 KB, 下载次数: 9)

2018-11-12 11:51 上传

点击文件名下载附件

下面有个类似的宏，该宏命令用来根据本地指定txt(如word.txt)中的多个词语，检索word中所有出现的词语，宏命令需要对这些词加粗/颜色/背景色或者替换成其它内容，突出高亮显示该词。可以参考一下。


《VBA宏命令：批量检索替换/修改word中指定多个关键词的格式内容等》

原文地址：http://sunweiwei.com/1985/



Sub 宏1()
'
' 宏1 宏
'
'
Dim fso As Object
Set fso = CreateObject("Scripting.FileSystemObject")
Set f = fso.opentextfile(ActiveDocument.Path + "\word.txt") '打开文件流
nr = f.readall
arr = Split(nr, vbCrLf) '分割数组

Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
With Selection.Find.Replacement.Font
.Bold = True
.Color = wdColorRed
End With

Dim i As Long
For i = 0 To UBound(arr)
With Selection.Find
.Text = arr(i)
.Replacement.Text = ""
.Forward = True
.Wrap = wdFindContinue
.Format = True
.MatchCase = False
.MatchWholeWord = False
.MatchByte = True
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With

Selection.Find.Execute Replace:=wdReplaceAll
Next

Set fso = Nothing
Set f = Nothing

End Sub

lhw721

论坛里居然就有http://club.excelhome.net/thread-1396277-1-1.html

古漠之鹰

好像没有效果是怎么回事？