Text.Story

Property Story As TextRange

Member of Text

The Story property returns all of the text from all of the text frames.

The Story property returns a read-only value.

The following code example creates artistic text and displays all of the text:

Sub Test() 
 Dim d As Document 
 Dim s As Shape 
 Dim t As Text 
 Set d = CreateDocument 
 Set s = d.ActiveLayer.CreateArtisticText(3, 3, "This is a test.") 
 Set t = s.Text 
 MsgBox "The entire text is:" & vbCr & t.Story 
End Sub 

Copyright 2007 Corel Corporation. All rights reserved.