Adobe Illustrator CS Scripting Guide
Dim textArtGroup As Illustrator.TextFrames
'First check the selection of the application
'It has to be a text art item in order for this script to run
selection = appRef.selection
If (IsEmpty(selection)) Then
MsgBox "Select a text item before running this script"
Exit Sub
End If
If (TypeName(selection(0)) <> "TextFrame") Then
MsgBox "Select a text item before running this script"
Exit Sub
End If
Set frontDocument = appRef.ActiveDocument
Set sourceTextArt = selection(0)
'Get the parent of the text art so new text art items can be inserted
'in the same group or layer as the selected text art is in
Set textArtGroup = sourceTextArt.Parent.TextFrames
'Create 5 new versions of the text art each rotated a bit
Dim i As Integer
For i = 1 To 5
Set newTextArt = textArtGroup.Add
newTextArt.Position = sourceTextArt.Position
newTextArt.Contents = sourceTextArt.Contents
newTextArt.Rotate 180 * i / 6
TextFrames
A collection of text frames.
Table 5.167 TextFrames — Properties
Property
Application
Count
Parent
R/O
Value type
R/O
Application
R/O
Long
R/O
Object
12 Aug 03
What it is
Application that the collection belongs to
Number of elements in the collection
The object's container
461