返回或设置指定边框或字体的颜色。WdColorIndex，可读写。
| WdColorIndex 可以是下列 WdColorIndex 常量之一： |
| wdAuto |
| wdBlack |
| wdBlue |
| wdBrightGreen |
| wdByAuthor |
| wdDarkBlue |
| wdDarkRed |
| wdDarkYellow |
| wdGray25 |
| wdGray50 |
| wdGreen |
| wdNoHighlight |
| wdPink |
| wdRed |
| wdTeal |
| wdTurquoise |
| wdViolet |
| wdWhite |
| wdYellow |
expression.ColorIndex
expression 必需。该表达式返回“应用于”列表中的一个对象。
wdByAuthor 常量对边框和字体对象无效。
本示例更改活动文档首段的文字颜色。
ActiveDocument.Paragraphs(1).Range.Font.ColorIndex = wdGreen本示例将所选文本的格式设置为红色。
Selection.Font.ColorIndex = wdRed本示例为第一个表格的每个单元格添加红虚线边框。
Dim borderLoop As Border
If ActiveDocument.Tables.Count >= 1 Then
For Each borderLoop In ActiveDocument.Tables(1).Borders
With borderLoop
.ColorIndex = wdRed
.LineStyle = wdLineStyleDashDot
.LineWidth = wdLineWidth075pt
End With
Next borderLoop
End If