TextRange.Start

Property Start As Long

The Start property returns the position of the starting character of the range in the text stream.

The following code example displays the starting position of the last word:

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.Start 
End Sub