通过

Selection.SelectCurrentColor 方法 (Word)

  • 项目

向前扩展选定内容，直至遇到另一种颜色的文字为止。

语法

expression. SelectCurrentColor

expression：必需。 表示 Selection 对象的变量。

示例

本示例从文档的开头将所选内容向前扩展，直至遇到另一种颜色的第一个字符，然后显示选定部分中的字符数。

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

另请参阅

Selection 对象

支持和反馈

有关于 Office VBA 或本文档的疑问或反馈？ 请参阅 Office VBA 支持和反馈，获取有关如何接收支持和提供反馈的指南。