Sub Test() ActiveLayer.CreateArtisticText 0, 0, "Text1" ActiveLayer.CreateArtisticText 0, 3, "Some Sentence." ActiveLayer.CreateArtisticText 0, 5, "Word" ActivePage.TextReplace "Some", "Short", True, FalseEnd Sub