🚀 go-pugleaf

Phil-- 

Here you go! 

Dim myInDesign As InDesign.Application Rem Enter the name of the paragraph style you want to apply bullets to: myParaStyleName = "list" Rem Enter the name of the character style you want to apply to your bullet character in the following line: myBulletStyleName = "myBullet" Rem Enter the bullet character as a Unicode string in the following line (this one is a "u" in Zapf Dingbats): myBulletCharacter = "<E075>" Rem Enter the separator character(s) you want to insert between the bullet character and the first character in the paragraph: mySeparator = vbTab Set myInDesign = CreateObject("InDesign.Application.2.0") Rem Clear Find/Change preferences myInDesign.FindPreferences = idNothing myInDesign.ChangePreferences = idNothing Set myDocument = myInDesign.ActiveDocument myInDesign.FindPreferences.ParagraphStyle = myDocument.ParaStyles.Item(myParaStyleName) Set myFoundItems = myDocument.Search For myCounter = myFoundItems.Count To 1 Step -1     Set myItem = myFoundItems.Item(myCounter)     Rem myItem might contain more than one paragraph, so we'll iterate.     For myParagraphCounter = myItem.Paragraphs.Count To 1 Step -1         Set myParagraph = myItem.Paragraphs.Item(myParagraphCounter)         myParagraph.InsertionPoints.Item(1).CharacterStyle = myDocument.CharStyles.Item(myBulletStyleName)         myParagraph.InsertionPoints.Item(1).TextContents = myBulletCharacter & mySeparator     Next Next  

Thanks, 

Ole