源代码
测试方法,需先打开word文件,在运行本脚本,功能是替换字符x为hello。
find := "x"
word := ComObjActive("Word.Application")
word.Selection.Find.ClearFormatting
word.Selection.Find.Replacement.ClearFormatting
word.Selection.Find.Execute(find, 1, ComObjMissing(), ComObjMissing(), ComObjMissing(), ComObjMissing(), ComObjMissing(), 1, ComObjMissing(), "hello", 2)