如何用vba给word文档中的文字添加背景填充色高亮显示？ |
您所在的位置：网站首页 › word文档选中文字颜色填充 › 如何用vba给word文档中的文字添加背景填充色高亮显示？ |
如何用vba给word文档中的文字添加背景填充色高亮显示？
|
如何用vba给word文档中的文字添加背景填充色高亮显示？
2019年6月1日
作者：水星Excel
10,461 次浏览
暂无评论
在word中可以通过“开始”选项卡下的“字体”工作组中的“文本突出显示颜色”命令给文档中的文本添加高亮显示的背景填充色，如下图所示：
在word vba中，可以使用Range对象的HighlightColorIndex属性获取或者设置高亮的背景填充色。 以下vba代码举例演示了如何为word文档中的所有特定文本字符（“测试”）添加高亮背景填充色： Sub QQ1722187970() Const wdYellow = 7 Const wdGreen = 11 Const wdBlue = 2 Const wdAuto = 0 Const wdNoHighlight = 0 Dim oRegExp As Object Set oRegExp = CreateObject("vbscript.regexp") Dim oDoc As Document Dim oRng As Range Set oDoc = Word.ActiveDocument Set oRng = oDoc.Content '先取消所有的文本的高亮 oRng.HighlightColorIndex = wdNoHighlight sText = oRng.Text '要查找的文本字符串 sFindText = "测试" '文本字符串的长度 iLen = Len(sFindText) If InStr(1, sText, sFindText) > 0 Then With oRegExp sPattern = sFindText '设置是否匹配所有的符合项，True表示匹配所有, False表示仅匹配第一个符合项 .Global = True '设置是否区分大小写，True表示不区分大小写, False表示区分大小写 .IgnoreCase = True '设置要查找的正则规则 .Pattern = sPattern '判断是否可以找到匹配的字符，若可以则返回True Set oMatches = .Execute(sText) For Each oMatch In oMatches '返回匹配到的字符串的位置 iStart = oMatch.FirstIndex Set oRng = oDoc.Range(iStart, iStart + iLen) '将找到的字符串高亮 oRng.HighlightColorIndex = wdYellow Next End With End If End Sub 其它相关文章推荐：如何用vba判断word文档中是否有高亮（颜色）的文字？如何用vba批量删除Word文档中的空白页？如何在word中查找替换某个字符但是保留指定的词语？如何用vba选中所有word文档中的某个格式的文本？如何用vba把word文档的每页单独保存为一个word文档？如何用vba在word文档的末尾或者开头插入内容？ 分类 : VBA , WORD VBA 标签 : HighlightColorIndex , 填充色 , 字符串 , 文字 , 背景色 , 词组 , 高亮声明: 本站文章均属原创，未经作者同意必须保留此段声明，且在文章页面明显位置给出原文链接，否则视为侵权。如果想要每天都收到本站的技术文章推送，可以微信搜索公众号：水星Excel或者Excel_Office关注。其它事宜请加QQ：1722187970 或微信号：xycgenius 联系。 |
【本文地址】