各位可以看看我的程序

find.zip 下载积分: 积分 -1 分

13.15 KB, 下载次数: 37, 下载积分: 积分 -1 分

本帖最后由 happyarrow 于 2016-2-20 16:59 编辑

见附件，你用错了函数。

WORD-Find and Replace Demo.vi 下载积分: 积分 -1 分

9.2 KB, 下载次数: 50, 下载积分: 积分 -1 分

happyarrow 发表于 2016-2-20 16:54
见附件，你用错了函数。

非常感谢分享 ，追问两个问题：1.这个demo是自己写的还是  LABVIEW  help  哪里的。  2.如果要设置替代文字的颜 {MOD}  比如设为红 {MOD}  该怎样设计

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截图。

下载来学习下，长点经验