Word VBA教程:SelectCurrentColor方法

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

expression.SelectCurrentColor

expression   必需。该表达式返回一个 Selection对象。

VBA示例

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


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

Word VBA教程

Word VBA参考教程:目录1 Word VBA参考教程:目录2
Word VBA参考教程:目录3 Word VBA参考教程:目录4
Word VBA参考教程:目录5 Word VBA参考教程:目录6
Word VBA参考教程:目录7 Word VBA参考教程:目录8
Word VBA参考教程:目录9 Word VBA参考教程:目录10
版权所有 © 中山市飞娥软件工作室 证书:粤ICP备09170368号