Sub Test() If ActiveShape Is Nothing Then Exit Sub If ActiveShape.Type = cdrTextShape Then If ActiveShape.Text.Type = cdrParagraphText Then With ActiveShape.Text.AlignPropertiesInRange(2, 1, cdrParagraphIndexing) .FirstLineIndent = 1 .LeftIndent = 0.5 .RightIndent = 0.5 End With End If End If End Sub