🚀 go-pugleaf

Hi Holt,

try this after created a character style "bold" in InD

Rem sample 'This is bold<D> and this is also prueba bold.

Set myInDesign = CreateObject("InDesign.Application.2.0")
    Set myDocument = myInDesign.ActiveDocument
    Set myFrame = myDocument.TextFrames.Item(1)

Set myStory = myFrame.ParentStory

Set myStart = myStory.Search("")
    Set myEnd = myStory.Search("<D>")

For i = 1 To myStart.Count
                s = myStart.Item(i).Index
                e = myEnd.Item(i).Index
                Set myRange = myStory.Characters.ItemByRange(myStory.Characters.Item(s + 3), _
                                            myStory.Characters.Item(e - 1)).Item(1)
                myRange.CharacterStyle = myDocument.CharStyles.Item("bold")
    Next i

Set myS = myStory.Search("", , , vbNullChar)
    Set myS = myStory.Search("<D>", , , vbNullChar)

Thx, Roberto
roberto1soto@yahoo.com