源代码
测试方法，需先打开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)