通过

Selection.SelectCurrentColor Method

  • 项目
Word Developer Reference

Extends the selection forward until text with a different color is encountered.

Syntax

expression.SelectCurrentColor

expression   Required. A variable that represents a Selection object.

Example

This example extends the selection from the beginning of the document to the first character formatted with a different color and then displays the number of characters in the resulting selection.

Visual Basic for Applications 
  Selection.HomeKey Unit:=wdStory, Extend:=wdMove
Selection.SelectCurrentColor
n = Len(Selection.Text)
MsgBox "Contiguous characters with the same color: " & n

See Also