Re: PostScript Font Names and VB

Article View: adobe.scripting.indesign

Article #20536

Back to adobe.scripting.indesign Previous Next

#20536

From: Olav Kvern
Date: Wed, 10 Jul 2002 18:26

17 lines
1125 bytes

Mike-- 

Here's a snippet: 

Dim myInDesign As InDesign.Application 
Set myInDesign = CreateObject("InDesign.Application.2.0") 
Set myFonts = myInDesign.Fonts 
For myCounter = 1 To myInDesign.Fonts.Count 
����myString = myString & myInDesign.Fonts.Item(myCounter).PostScriptName & vbCrLf 
Next 
Rem Given a TextBox "Text1" 
Text1.Text = myString 
 

Thanks, 

Ole

Technical Details

Message-ID: <ef99312.0@WebX.aaQKaf7vad4>

Path:

arc1-ca.pugleaf.net!archiver1.google.com!news1.google.com!sn-xit-02!sn-xit-06!sn-xit-08!supernews.com!newsswitch.lcs.mit.edu!news-spur1.maxwell.syr.edu!news.maxwell.syr.edu!eusc.inter.net!newsfeed01.sul.t-online.de!t-online.de!WebX

References: <ef99312.-1@WebX.aaQKaf7vad4>

Show Full Headers

Complete Article Headers

X-Google-Language: ENGLISH,ASCII
X-Google-Thread: f939a,fddf624ce3cef5e2
X-Google-Attributes: gidf939a,public
X-Google-ArrivalTime: 2002-07-10 13:00:13 PST
From: "Olav Kvern" <okvern@adobe.com>
Path: arc1-ca.pugleaf.net!archiver1.google.com!news1.google.com!sn-xit-02!sn-xit-06!sn-xit-08!supernews.com!newsswitch.lcs.mit.edu!news-spur1.maxwell.syr.edu!news.maxwell.syr.edu!eusc.inter.net!newsfeed01.sul.t-online.de!t-online.de!WebX
Newsgroups: adobe.scripting.indesign
Subject: Re: PostScript Font Names and VB
Message-ID: <ef99312.0@WebX.aaQKaf7vad4>
Date: Wed, 10 Jul 2002 11:26:07 -0700
References: <ef99312.-1@WebX.aaQKaf7vad4>
Lines: 18
MIME-Version: 1.0
Content-Type: text/plain; charset="ISO-8859-1"
Content-Transfer-Encoding: 8bit

Reply to Parent Message