Adobe 26001360 - Illustrator CS - PC Manual page 375

Adobe Illustrator CS Scripting Guide
Select Case TypeName(artItem)
Case Is = "PlacedItem"
fileReferences(index) = artItem.File
index = index + 1
Case Is = "RasterItem"
If (Not artItem.Embedded) Then
End If
End Select
If index = 10 Then
Exit For
End If
Next
'Write the file references to a new document
Dim reportDocument As Illustrator.Document
Dim fileNameText As Illustrator.TextFrame
Set reportDocument = appRef.Documents.Add
Set fileNameText = reportDocument.TextFrames.Add
fileNameText.Position = Array(50, 520)
fileNameText.Contents = "File references in " & sourceDocument.Name & ":"
Dim counter As Integer
For counter = 0 To (index - 1)
Set fileNameText = reportDocument.TextFrames.Add
fileNameText.Position = Array(65, 500 - 20 * counter)
fileNameText.Contents = fileReferences(counter)
Example 42.1
Dim appRef As New Illustrator.Application
Dim artItem As Object
For Each artItem In appRef.ActiveDocument.PageItems
If (TypeName(artItem) = "PlacedItem" Or _
TypeName(artItem) = "RasterItem") Then
artItem.Hidden = True
End If
fileReferences(index) = artItem.File
index = index + 1
12 Aug 03
375