基本要求:需安装WORD FunctionWordReplace(FileNameAsString,SearchStringAsString,ReplaceStringAsString,OptionalSaveFileAsString="",OptionalMatchCaseAsBoolean=False)AsInteger OnErrorGoToErrorMsg'函数运行时发生遇外或错误,转向错误提示信息 DimwordAppAsNewWord.Application DimwordDocAsNewWord.Document DimwordArangeAsWord.Range DimwordSelectionAsWor...
[ 查看全文 ]