Adobe 26001360 Scripting Guide - Page 375
Example 42.1, For Each artItem In appRef.ActiveDocument. Items
UPC - 718659321840
View all Adobe 26001360 manuals
Add to My Manuals
Save this manual to your list of manuals |
Page 375 highlights
Adobe Illustrator CS Scripting Guide 375 Select Case TypeName(artItem) Case Is = "PlacedItem" fileReferences(index) = artItem.File index = index + 1 Case Is = "RasterItem" If (Not artItem.Embedded) Then fileReferences(index) = artItem.File index = index + 1 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 12 Aug 03