TextRange.Overscore

Property Overscore As cdrFontLine

Member of TextRange

The Overscore property returns or specifies whether an overline is applied to a range.

The following code example applies an overline to all of the text in the paragraph:

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.Overscore = cdrDoubleThinFontLine 
End Sub 

Copyright 2007 Corel Corporation. All rights reserved.