Returns or sets a Variant value that represents the point size above which Microsoft Publisher will automatically adjust kerning for characters in the specified text range. Read/write.
expression.AutomaticPairKerningThreshold
expression Required. An expression that returns one of the objects in the Applies To list.
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.
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