expression.AutomaticPairKerningThreshold
expression Required. An expression that returns one of the objects in the Applies To list.
Remarks
Valid range is 0.0 points to 999.5 points. Returns –2 if the value for characters in the text range is indeterminate. Setting this property to 0.0 disables automatic pair kerning on the range.
Example
This example sets the point size threshold to 12 points. All text in the second story above the threshold will implement auto kerning.
Sub Threshold()
Application.ActiveDocument.Stories(2).TextRange _
.Font.AutomaticPairKerningThreshold = 12
End Sub