Function BoldWord(strContent,word)
dim objRegExp
Set objRegExp=new RegExp
objRegExp.IgnoreCase =true
objRegExp.Global=True
dim objRegExp
Set objRegExp=new RegExp
objRegExp.IgnoreCase =true
objRegExp.Global=True
objRegExp.Pattern="(" & word & ")"
strContent=objRegExp.Replace(strContent,"$1" )
Set objRegExp=Nothing
BoldWord=strContent
End Function
来自 “ ITPUB博客 ” ,链接:http://blog.itpub.net/10294527/viewspace-124693/,如需转载,请注明出处,否则将追究法律责任。
转载于:http://blog.itpub.net/10294527/viewspace-124693/
本文介绍了一种在VBA中使用正则表达式高亮显示特定单词的方法,通过创建一个函数FunctionBoldWord,可以全局搜索并加粗指定的单词。
959

被折叠的 条评论
为什么被折叠?



