完善资料让更多小伙伴认识你，还能领取20积分哦， 立即完善>
3天内不再提示
5413
|
各位可以看看我的程序
|
|
|
|
|
|
本帖最后由 happyarrow 于 2016-2-20 16:59 编辑 见附件，你用错了函数。 
|
|
|
|
|
|
非常感谢分享 ，追问两个问题：1.这个demo是自己写的还是 LABVIEW help 哪里的。 2.如果要设置替代文字的颜色 比如设为红色 该怎样设计 |
|
|
|
|
saccyb 发表于 2016-2-22 08:27 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 将替代完的字符设置为红色 Selection.Find.Replacement.Font.Color = 192 这里用的是Selection.find，查询资料Rang.find与这个无差别 尝试设置Find.Replacement.Font.Color输入设置为192 无效，请看我的vi截图。
|
|
|
|
|
|
下载来学习下，长点经验
|
|
|
2017-5-12 19:05:16
评论
|
|
|
谢谢楼主分享
|
|
|
|
|
|
谢谢楼主分享
|
|
|
|
|
|
学无止境，多谢分享
|
|
|
|
|
你正在撰写答案
如果你是对答案或其他答案精选点评或询问，请使用“评论”功能。
211 浏览 0 评论
请教大神，在labview里面对实时扫描资源中的C系列模块NI9234进行配置发生非预期错误
1709 浏览 0 评论
1585 浏览 0 评论
LABVIEW 2023 Q1调用python后一直报错1671
1960 浏览 2 评论
5207 浏览 3 评论
/9 
关注我们的微信
下载发烧友APP
电子发烧友观察
版权所有 © 湖南华秋数字科技有限公司
电子发烧友 （电路图） 湘公网安备 43011202000918 号 电信与信息服务业务经营许可证：合字B2-20210191
工商网监
湘ICP备2023018690号
淘帖
2690
