VB查找并替换WORD文档中的字符串

本文格式为Word版，下载可任意编辑——VB查找并替换WORD文档中的字符串基本要求：需安装WORD

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

OnErrorGoToErrorMsg'函数运行时发生遇外或错误,转向错误提醒信息

DimwordAppAsNewWord.ApplicationDimwordDocAsNewWord.DocumentDimwordArangeAsWord.RangeDimwordSelectionAsWord.SelectionDimReplaceSignAsBooleanDimIAsInteger

'判断将要替换的文件是否存在

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

MsgBox\未找到\文件\提醒替换文件不存在信息WordReplace=-2'返回替换文件不存在的值ExitFunction'退出函数

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'初始化替换次数值

ReplaceSign=True'初始化是否替换成功标志

DoWhileReplaceSign

ReplaceSign=wordArange.Find.Execute(SearchString,MatchCase,,,,wdFindContinue,,ReplaceString,True)'查找并替换'判断查找并替换是否成功,假使成功替换次数值递增1IfReplaceSign=TrueThenI=I+1EndIfLoop

MsgBox\已完成对文档的探寻并完成\替换。\提醒总替换次数

'假使替换成功，则提醒是否保存

,,IfI>0Then

'判断是否需要另存

IfTrim(SaveFile)\'需要另存

IfDir(SaveFile)=\

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

'咨询是否替换文件,如果不替换则放弃本次操作,否则存在本次操作

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

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

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

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

WordReplace=I'返回替换次数

wordDoc.Close'关闭文档实例wordApp.Quit'关闭WORD实例

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

ExitFunction

ErrorMsg:

MsgBoxErr.Number\提示错误信息WordReplace=-1'返回错误信息值wordDoc.Close'关闭文档实例wordApp.Quit'关闭WORD实例

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

EndFunction

注意事项：单击在菜单“工程”中的“引用”菜单