TextRange.Words

Property Words As TextWords

The Words property returns a collection of all of the words in the range.

The Words property returns a read-only value.

The following code example underlines the last word of the paragraph and applies bold formatting to the first word:

Sub Test() 
 Dim d As Document 
 Dim s As Shape 
 Dim t As Text 
 Set d = CreateDocument 
 Set s = d.ActiveLayer.CreateParagraphText(2, 2, 4, 4, "This is an 
example.") 
 Set t = s.Text 
 t.Story.Words.Last.Underline = cdrDoubleThinFontLine 
 t.Story.Words.First.Bold = True 
End Sub