TextRange.Outline

Property Outline As Outline

The Outline property returns an Outline object.

The Outline property returns a read-only value.

The following code example changes the width of the last word of the paragraph to 2 inches:

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.Outline.Width = 2 
End Sub