This example adjusts the kerning of all text with font size 12 points or larger in the active document.
ActiveDocument.Content.Font.Kerning = 12
This example determines the minimum font size for which Word will automatically adjust kerning in the selected text.
If Selection.Type = wdSelectionNormal Then
MsgBox Selection.Font.Kerning
Else
MsgBox "You need to select some text."
End If