🚀 go-pugleaf

Robin--

This actually looks like a bug. When you set the font using the user interface, the scripting system does not pick up the font, but, instead, returns the Nothing enum (as if the font were undefined). If you set the font explicitly using scripting, as in:



Dim myInDesign As InDesign.Application 
Set myInDesign = CreateObject("InDesign.Application.2.0") 
Set myFont = myInDesign.Fonts.Item("Arial Black") 
myInDesign.FindPreferences.AppliedFont = myFont 
If TypeName(myInDesign.FindPreferences.AppliedFont) <> "String" Then 
    MsgBox "No font has been set. Please set a font and try again." 
Else 
    MsgBox "Font name is: " & myInDesign.FindPreferences.AppliedFont 
End If 




It works correctly. The ChangePreferences.AppliedFont does not show the same error.

For now, you might have to display a dialog box for the user to choose the font they want to search for. You can get a list of the available fonts from the InDesign Application object and add their names to a list in a VB form.



Rem Given a form with a List1 control: 
Dim myInDesign As InDesign.Application 
Set myInDesign = CreateObject("InDesign.Application.2.0") 
For myCounter = 1 To myInDesign.Fonts.Count 
    List1.AddItem myInDesign.Fonts.Item(myCounter).Name 
Next 




Note the font naming convention: <font_family><tab><font_style>. Do not use a For Each...Next loop for this, as it will give you only the first 255 fonts (and you almost certainly have more than that<g>).

Thanks,

Ole