vba判断word文字颜色是否为蓝色
①第一种代码
On Error GoTo ErrHandle
Set myRange = ActiveDocument.Range(Selection.Start, ActiveDocument.Content.End)
For Each iChar In myRange.Characters
Selection.MoveRight Unit:=wdCharacter, Count:=1
If Sele......
On Error GoTo ErrHandle
Set myRange = ActiveDocument.Range(Selection.Start, ActiveDocument.Content.End)
For Each iChar In myRange.Characters
Selection.MoveRight Unit:=wdCharacter, Count:=1
If Sele......