KernedPairs Property Example

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