MsoTriState，可读写。
| MsoTriState 可以是下列 MsoTriState 常量之一： |
| msoCTrue |
| msoFalse |
| msoTriStateMixed |
| msoTriStateToggle |
| msoTrue 指定“艺术字”的字体是粗体。 |
如果该图形是艺术字，本示例将活动文档的第三个图形的字体设置为粗体。
Dim docActive As Document
Set docActive = ActiveDocument
With docActive.Shapes(3)
If .Type = msoTextEffect Then
.TextEffect.FontBold = msoTrue
End If
End With