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

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

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

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

DimwordAppAsNewWord.ApplicationDimwordDocAsNewWord.DocumentDimwordArangeAsWord.RangeDimwordSelectionAsWord.SelectionDimReplaceSignAsBooleanDimIAsInteger

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

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

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

EndIf

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

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

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

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

ReplaceSign=True'初始化是否替換成功標志

DoWhileReplaceSign

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

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

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

,,IfI>0Then

'判斷是否需要另存

IfTrim(SaveFile)\'需要另存

IfDir(SaveFile)=\

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

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

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

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

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

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

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

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

SetwordDoc=Nothing'清除文件實例SetwordApp=Nothing'清除WORD實例

ExitFunction

ErrorMsg:

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

SetwordDoc=Nothing'清除文件實例SetwordApp=Nothing'清除WORD實例

EndFunction

注意事項：單擊在菜單“工程”中的“引用”菜單