expression.SizeBi
expression Required. An expression that returns one of the objects in the Applies To list.
Example
This example tests the text in the second story. If it is in a right-to-left language, larger than 12 point, and italicized, the text is set to bold.
Sub SizeBiIfBig()
Dim fntSize As Font
Set fntSize = Application.ActiveDocument.Stories(2).TextRange.Font
With fntSize
If .SizeBi > 12 And .ItalicBi = msoTrue Then
.BoldBi = msoTrue
Else
MsgBox "The font size is 12 points or less " & _
", not bold, or this is not in a right-to-left language."
End If
End With
End Sub