🚀 go-pugleaf

Hi Linda,

Message before have some error because of use of tags

Set myInDesign = CreateObject("InDesign.Application.2.0")
Set myDocument = myInDesign.ActiveDocument
' Put a text frame with a text:
' This is bold and this is also prueba bold.

Set myFrame = myDocument.TextFrames.Item(1)

Set myStory = myFrame.ParentStory
'Ignore extra space inside <>
Set myStart = myStory.Search("< b>")
Set myEnd = myStory.Search("< /b>")

' Your document need to have a character style "bold"
    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
'Ignore extra space inside <>
Set myS = myStory.Search("< b>", , , vbNullChar)
Set myS = myStory.Search("< /b>", , , vbNullChar)

Thanks,

Roberto