VB查找并替換WORD文檔中的字符串

本文格式為Word版，下載可任意編輯——VB查找并替換WORD文檔中的字符串基本要求：需安裝WORD

FunctionWordReplace(FileNameAsString,SearchStringAsString,ReplaceStringAsString,OptionalSaveFileAsString=\OptionalMatchCaseAsBoolean=False)AsInteger

OnErrorGoToErrorMsg'函數(shù)運(yùn)行時(shí)發(fā)生遇外或錯(cuò)誤,轉(zhuǎn)向錯(cuò)誤提醒信息

DimwordAppAsNewWord.ApplicationDimwordDocAsNewWord.DocumentDimwordArangeAsWord.RangeDimwordSelectionAsWord.SelectionDimReplaceSignAsBooleanDimIAsInteger

'判斷將要替換的文件是否存在

IfDir(FileName)=\'替換文件不存在

MsgBox\未找到\文件\提醒替換文件不存在信息WordReplace=-2'返回替換文件不存在的值ExitFunction'退出函數(shù)

EndIf

SetwordApp=CreateObject(\建立WORD實(shí)例wordApp.Visible=False'屏蔽WORD實(shí)例窗體

SetwordDoc=wordApp.Documents.Open(FileName)'開啟文件并賦予文件實(shí)例SetwordSelection=wordApp.Selection'定位文件實(shí)例

SetwordArange=wordApp.ActiveDocument.Range(0,1)'指定文件編輯位置wordArange.Select'激活編輯位置

I=0'初始化替換次數(shù)值

ReplaceSign=True'初始化是否替換成功標(biāo)志

DoWhileReplaceSign

ReplaceSign=wordArange.Find.Execute(SearchString,MatchCase,,,,wdFindContinue,,ReplaceString,True)'查找并替換'判斷查找并替換是否成功,假使成功替換次數(shù)值遞增1IfReplaceSign=TrueThenI=I+1EndIfLoop

MsgBox\已完成對(duì)文檔的探尋并完成\替換。\提醒總替換次數(shù)

'假使替換成功，則提醒是否保存

,,IfI>0Then

'判斷是否需要另存

IfTrim(SaveFile)\'需要另存

IfDir(SaveFile)=\

wordDoc.SaveAsSaveFile'文件另存為??Else

'咨詢是否替換文件,如果不替換則放棄本次操作,否則存在本次操作

IfMsgBox(\是否替換\文件？\替換\vbYesThen

wordDoc.SaveAsSaveFile'文件另存為??EndIfEndIfElse

IfMsgBox(\是否保存對(duì)\更改？\保存\=vbYesThen

wordDoc.Save'保存在原文件中EndIfEndIfEndIf

WordReplace=I'返回替換次數(shù)

wordDoc.Close'關(guān)閉文檔實(shí)例wordApp.Quit'關(guān)閉WORD實(shí)例

SetwordDoc=Nothing'清除文件實(shí)例SetwordApp=Nothing'清除WORD實(shí)例

ExitFunction

ErrorMsg:

MsgBoxErr.Number\提示錯(cuò)誤信息WordReplace=-1'返回錯(cuò)誤信息值wordDoc.Close'關(guān)閉文檔實(shí)例wordApp.Quit'關(guān)閉WORD實(shí)例

SetwordDoc=Nothing'清除文件實(shí)例SetwordApp=Nothing'清除WORD實(shí)例

EndFunction

注意事項(xiàng)：?jiǎn)螕粼诓藛巍肮こ獭敝械摹耙谩辈藛?/p>