Sub Test() Dim s As Shape, n As Long Set s = ActiveLayer.CreateParagraphText(0, 0, 2, 1, "Lorem Dolor Sit") n = s.Text.Find("Dolor", False) If n <> 0 Then s.Text.Characters(n, 0) = "Ipsum " End Sub