文字批量替换

命令说明

对 Word 文档中的特定字符串进行替换

命令原型

bRet = Word.Replace(objWord,sFind,sReplace,optionArgs)

命令参数

参数	必选	类型	默认值	说明
objWord	True	expression	objWord	Word 文档对象
sFind	True	string	""	要匹配的字符串
sReplace	True	string	""	要替换的字符串
matchCase	False	boolean	False	是否区分大小写，默认不区分大小写
matchWholeWord	False	boolean	False	是否全字匹配，默认不全字匹配
matchWildcards	False	boolean	False	是否支持通配符，默认不支持
forward	False	boolean	True	是否向下/向后查找，默认向下/向后查找
wrap	False	enum	0	匹配完毕后，循环匹配的方式
replaceType	False	enum	1	替换内容的方式

返回结果

bRet，将命令运行后的结果赋值给此变量。

运行实例

/*********************************文字批量替换***************************************
命令原型：
    Word.Replace(objWord,sFind,sReplace,optionArgs)
入参：
    objWord--Word 文档对象
    sFind--要匹配的字符串
    sReplace--要替换的字符串
    matchCase--是否区分大小写
    matchWholeWord--是否区分大小写
    matchWildcards--是否支持通配符
    forward--是否向下/向后查找
    wrap--匹配完毕后，循环匹配的方式
    replaceType--替换内容的方式
出参:
    bRet -- 命令运行完返回的结果    
注意事项:
    需要打开word后才能使用
*********************************************************************************/
Dim objWord , bRet
//打开word文档
objWord = Word.Open('''C:\Users\Administrator\Desktop\标准化执行注意事项.docx''',"","",true)
//用字符串"biao"替换字符串"表"
bRet = Word.Replace(objWord,"表","biao",{"matchCase":false,"matchWholeWord":false,"matchWildcards":false,"forward":true,"wrap":2,"replaceType":"1"})
//输出返回值到调试栏
TracePrint($PrevResult)

可视化样例