基本要求:需安装WORD
FunctionWordReplace(FileNameAsString,SearchStringAsString,ReplaceStringAsString,OptionalSaveFileAsString="",OptionalMatchCaseAsBoolean=False)AsInteger
OnErrorGoToErrorMsg'函数运行时发生遇外或错误,转向错误提示信息
DimwordAppAsNewWord.Application
DimwordDocAsNewWord.Document
DimwordArangeAsWord.Range
DimwordSelectionAsWord.Selection
DimReplaceSignAsBoolean
DimIAsInteger
'判断将要替换的文件是否存在
IfDir(FileName)=""Then
'替换文件不存在
MsgBox"未找到"&FileName&"文件"'提示替换文件不存在信息