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.All.IsSame(t.Frames(1).Range) Then MsgBox "All of the words are in the first range." End IfEnd Sub