Sub Test() ActiveShape.Text.AlignPropertiesInRange(2, 2, cdrWordIndexing).HorizontalCharacterShift = 10End Sub