摘要： Set myRange = ActiveDocument.Content myRange.Find.Execute FindText:="2", ReplaceWith:="1", Replace:=wdReplaceAllSet myRange = ActiveDocument.Content myRange.Find.Execute FindText:="2", ReplaceWith:="1", Replace:=wdReplaceAllExecute 方法（Find 对象） 运行指定的查找操作。如果查找成功 阅读全文