This example turns on character pair kerning for shape three on myDocument
if the shape is WordArt.
Set myDocument = ActiveDocument
With myDocument.Shapes(3)
If .Type = msoTextEffect Then
.TextEffect.KernedPairs =True
End If
End With