Sub Test() Dim s As Shape Dim d As Document Dim t As Text Set d = CreateDocument Set s = d.ActiveLayer.CreateParagraphText(3, 3, 5, 5, "This is an example.") Set t = s.Text MsgBox "The last word starts at the following position: " & _ t.Story.Words.Last.StartEnd Sub