🚀 go-pugleaf

Fredrik-- 

Here's an example. This enters Zapf Dingbats characters from Unicode E020 through E0F3 (that's pretty much the range of characters in the font--there's a gap from E08E through E0A0). 

Rem Zapf Dingbats example Dim myInDesign As InDesign.Application Rem Generate a list of Unicode strings covering the range of characters in Zapf Dingbats. myHexStrings = Array("0", "1", "2", "3", "4", "5", "6", "7", "8", "9", "A", "B", "C", "D", "E", "F") For myCounter1 = 2 To 15     myString = "E0" & myHexStrings(myCounter1)     For myCounter2 = 0 To 15         myStringList = myStringList & "<" & myString & myHexStrings(myCounter2) & ">" & vbCr     Next myCounter2 Next myCounter1 Set myInDesign = CreateObject("InDesign.Application.2.0") Set myDocument = myInDesign.Documents.Add Set myPage = myDocument.Pages.Item(1) Set myTextFrame = myPage.TextFrames.Add myY1 = myPage.MarginPreferences.MarginTop myX1 = myPage.MarginPreferences.MarginLeft myY2 = myDocument.DocumentPreferences.PageHeight - myPage.MarginPreferences.MarginBottom myX2 = myDocument.DocumentPreferences.PageWidth - myPage.MarginPreferences.MarginRight myArray = Array(myY1, myX1, myY2, myX2) myTextFrame.GeometricBounds = myArray myTextFrame.TextFramePreferences.TextColumnCount = 6 Rem Note that the font name is "ITC Zapf DingbatsMedium" Set myFont = myInDesign.Fonts.Item("ITC Zapf Dingbats") myTextFrame.Texts.Item(1).AppliedFont = myFont myTextFrame.TextContents = myStringList  

Thanks, 

Ole