TextRange.Case

Property Case As cdrFontCase

Member of TextRange

The Case property returns or sets the case of the text in the range.

The following code example capitalizes all of the characters 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.Case = cdrAllCapsFontCase 
End Sub 

Copyright 2007 Corel Corporation. All rights reserved.