happyarrow 发表于 2016-2-22 11:39
1，自己写的。自己参考excel的VBA程序转化，需要自己对excel自动化编程了解。
2，同1，也是参考VBA。

非常感谢耐心解答。
以下为我录制的查找替代的一段宏，
Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    Selection.Find.Replacement.Font.Color = 192
    With Selection.Find
        .Text = "不合格"
        .Replacement.Text = "PASS"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = True
        .MatchCase = False
        .MatchWholeWord = False
        .MatchByte = True
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
End Sub
还有几个功能未成功
1全部替代 需要将Replace设置为wdReplaceAll  发现可以将replace设置为常数，可以分别是替代N次，但是全部替代    如何设置
2 将替代完的字符设置为红 {MOD}  Selection.Find.Replacement.Font.Color = 192  这里用的是Selection.find，查询资料Rang.find与这个无差别  尝试设置Find.Replacement.Font.Color输入设置为192 无效，请看我的vi截图。