經(jīng)常會(huì)遇上要在大量文件里查找和替換某個(gè)單詞的情況麻蹋，有沒有什么簡(jiǎn)單的辦法呢跛溉？
如果說是純文本文件，即直接可以用記事本打開可以看到文件內(nèi)容的都算文本文件哥蔚。如果打開有亂七八槽的文字倒谷，就是某種專有格式了。對(duì)于純文本文件糙箍，Windows早在DOS時(shí)代就提供了find命令渤愁。
Win+R鍵輸入cmd就可以打開Dos窗口，輸入find /N /I "a" *.txt|more, 這就代表查找當(dāng)前目錄下所有txt文件里包含"a" , 并忽略大小寫深夯。more的意思是分頁(yè)抖格，在結(jié)果中按空格鍵就可以翻頁(yè)诺苹，不然查找結(jié)果太多的話就看不完全部結(jié)果
如果要替換的話，安裝一個(gè)NotePad++, ctrl+f鍵打開搜索替換對(duì)話框
按箭頭所示輸入你需要的信息
查找結(jié)果如下
確實(shí)無誤后雹拄，重新Ctrl+f鍵收奔，在替換為那里輸入你要替換的部分，點(diǎn)“在文件中替換”即可滓玖。注意做好備份
那如果是Word文件怎么辦呢坪哄？我們用Word自帶的宏解決，新建一個(gè)宏
然后輸入以下程序
Sub Search()
Dim objDoc As Document
Dim strFile As String
Dim strFolder As String
Dim strFindText As String
Dim strReplaceText As String
strFolder = InputBox("請(qǐng)輸入目錄路徑:")
strFile = Dir(strFolder & "" & "*.docx", vbNormal)
strFindText = InputBox("請(qǐng)輸入要查找的單詞:")
strReplaceText = InputBox("請(qǐng)輸入要替換的單詞:")
While strFile <> ""
Set objDoc = Documents.Open(FileName:=strFolder & "" & strFile)
With objDoc
With Selection
.HomeKey Unit:=wdStory
With Selection.Find
.Text = strFindText
.Replacement.Text = strReplaceText
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute Replace:=wdReplaceAll
End With
objDoc.Save
objDoc.Close
strFile = Dir()
End With
Wend
End Sub
然后點(diǎn)擊運(yùn)行后势篡，輸入目錄地址翩肌，要查找的字符串，要替換的字符串即可禁悠。注意做好備份
?
?
