🚀 go-pugleaf

Stephen,

This script that was previously posted on the forum should do it. Sorry, I don't recall who the original poster was.

Phil Redman

If List1.Selected(8) = True Then
On Error Resume Next
Text2.Visible = True
Text2.Text = "Working..."
Rem Enter the name of the paragraph style you want to apply bullets to:
myParaStyleName = "List Bullet"
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 "bullet" in Times-Roman):
myBulletCharacter = "<2022>"
Rem Enter the separator character(s) you want to insert between the bullet character and the first character in the paragraph:
mySeparator = vbTab
Rem Clear Find/Change preferences
myInDesign.FindPreferences = idNothing
myInDesign.ChangePreferences = idNothing
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