Adobe 26001360 Scripting Guide - Page 456

456 TextFonts A collection of TextFont objects. Visual Basic Reference Table 5.163 TextFonts - Properties Property R/O Value type Application R/O Application Count R/O Long Parent R/O Object What it is Application to which the collection belongs Number of elements in the collection The object's container Table 5.164 TextFonts - Methods Method Returns Index(ItemPtr As TextFont) Long Item(ItemKey) TextFont What it does Returns the index position of the object within the collection Returns an object reference to the object identified by itemKey; by name or index Example 86.1 Dim appRef As New Illustrator.Application Dim fontToTest As Illustrator.TextFont Dim foundTextFace As Boolean Dim fontName As String fontName = "Symbol" foundTextFace = False For Each fontToTest In appRef.Fonts If (fontToTest.Name = fontName) Then foundTextFace = True Exit For End If Next If (foundTextFace) Then MsgBox fontName & " is installed on this machine" Else MsgBox fontName & " is not installed on this machine" 12 Aug 03