TextRange.ChangeCase

Sub ChangeCase(Case As cdrTextChangeCase)

The ChangeCase method changes the case of the text.


Parameters	Description
Case	Specifies the case

The following code example converts the text to uppercase:

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.ChangeCase cdrTextUpperCase 
End Sub