TextRange.Underline

Property Underline As cdrFontLine

Member of TextRange

The Underline property returns or specifies whether an underline is applied to the range.

The following code example underlines all of the text in the paragraph with a thin double line:

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

Copyright 2007 Corel Corporation. All rights reserved.