Sub Test() Dim t As Text Dim s As Shape Dim d As Document Set d = CreateDocument Set s = d.ActiveLayer.CreateParagraphText(2, 2, 4, 4, _ "This is an example") Set t = s.Text If t.Story.Words(2).InRange(t.Frames(1).Range) Then MsgBox "The second word is in the first frame." Else MsgBox "The second word is not in the first frame." End IfEnd Sub