Sub Test() Dim s As Shape ActiveLayer.CreateArtisticText 0, 0, "Text1" ActiveLayer.CreateArtisticText 0, 3, "Some Sentence." ActiveLayer.CreateArtisticText 0, 5, "Word" Set s = ActivePage.TextFind("Sentence", True) If Not s Is Nothing Then s.Fill.UniformColor.RGBAssign 255, 0, 0 End IfEnd Sub