如何对工作表文本框中的特定文字进行突出显示

cg372101 · 发表于 2011-2-26 13:42

请高手指点指点！！

honggexjq · 发表于 2011-2-27 23:22

可试试如下代码：

Sub test()
Dim ss As Shape, s As Shape
For Each ss In Sheet1.Shapes
If ss.Type = msoGroup Then
For Each s In ss.GroupItems
If s.Type = msoTextBox Then colorshape s
Next
ElseIf ss.Type = msoTextBox Then
colorshape ss
End If
Next
End Sub
Sub colorshape(myshp As Shape)
Dim regex As Object, mm As Object, temp$
Set regex = CreateObject("Vbscript.RegExp")
temp = myshp.TextFrame2.TextRange.Text
With regex
.Global = True
.ignorecase = True
.Pattern = "[A-Za-z][^a-zA-Z\s][^\s]*[ ]+"
For Each mm In .Execute(temp)
myshp.TextFrame.Characters(mm.firstindex + 2, Len(mm) - 1).Font.Color = vbRed
Next
End With
End Sub

复制代码

cg372101 · 发表于 2011-2-28 06:11

原帖由 honggexjq 于 2011-2-27 23:22 发表
可试试如下代码：Sub test()
Dim ss As Shape, s As Shape
For Each ss In Sheet1.Shapes
If ss.Type = msoGroup Then
For Each s In ss.GroupItems
If s.Type = msoTextBox Then colo ...

效果不错，再次谢谢honggexjq的多次帮助！

roc.jame · 发表于 2011-3-15 13:31

学习了

		自动登录	找回密码
密码			免费注册

[求助] 如何对工作表文本框中的特定文字进行突出显示