constant indicating whether the specified text is formatted as small caps. Read/write.
MsoTriState can be one of these MsoTriState constants. |
msoCTrue Not used with this property. |
msoFalse None of the characters in the range are formatted as small caps. |
msoTriStateMixed Return value indicating a combination of msoTrue and msoFalse for the specified text range. |
msoTriStateToggle Set value which toggles between msoTrue to msoFalse. |
msoTrue All of the characters in the range are formatted as small caps. |
expression.SmallCaps
expression Required. An expression that returns one of the objects in the Applies To list.
Remarks
Setting SmallCaps to msoTrue will remove all caps formatting from the text range.
Example
This example tests the text in the second story and if it has mixed small caps formatting, it formats all the text as small caps.
Sub SmallCap()
Dim fntSC As Font
Set fntSC = Application.ActiveDocument.Stories(2).TextRange.Font
With fntSC
If .SmallCaps = msoTriStateMixed Then
.SmallCaps = msoTrue
Else
MsgBox "Mixed small caps are not in this story."
End If
End With
End Sub