🚀 go-pugleaf

Kari--

This one seems to work with both single-item and multi-item lists:



tell application "InDesign 2.0.2" 
	set find preferences to nothing 
	set change preferences to nothing 
	tell active document 
		set myCharacterStyle to character style "bold" 
		repeat with myStory in stories 
			set myStartItems to search for "[BOLD]" 
			set myEndItems to search for "[UNBOLD]" 
			if (count myStartItems) is not equal to (count myEndItems) then 
				display dialog "Oops. The text must include mismatched formatting. Good luck finding the offending tags!" 
			else 
				repeat with myCounter from 1 to (count myStartItems) 
					set myStartItem to object reference of item myCounter of myStartItems 
					set myEndItem to object reference of item myCounter of myEndItems 
					set myStartIndex to (index of character -1 of myStartItem) + 1 
					set myEndIndex to (index of character 1 of myEndItem) - 1 
					set applied character style of characters myStartIndex through myEndIndex of myStory to myCharacterStyle 
				end repeat 
				repeat with myCounter from (count myStartItems) to 1 by -1 
					set myStartItem to object reference of item myCounter of myStartItems 
					set myEndItem to object reference of item myCounter of myEndItems 
					tell myEndItem to delete 
					tell myStartItem to delete 
				end repeat 
			end if 
		end repeat 
	end tell 
end tell 
</end>

Does it work for you? It's not speedy, due to the need to delete the tags in sequence, but it does seem to work.

Thanks,

Ole