🚀 go-pugleaf

Shane--

That works great! So, Ton, here's a better version:



--FindChangeBullets.as  
--An InDesign CS AppleScript  
--Set myMakeExample to false to find/change text in  
--the active document, or set it to true to generate an  
--example document to demonstrate the script.  
set myMakeExample to true  
tell application "InDesign CS"  
	set find preferences to nothing  
	set change preferences to nothing  
	if myMakeExample = true then  
		set myString to "First paragraph.  
z	First bulleted paragraph.  
x	Second bulleted paragraph.  
z	Third bulleted paragraph.  
x	Fourth bulleted paragraph.  
x	Fifth bulleted paragraph.  
x	Sixth bulleted paragraph.  
x	Seventh another bulleted paragraph.  
z	Eighth bulleted paragraph.  
x	Ninth another bulleted paragraph.  
x	Tenth another bulleted paragraph.  
x	Eleventh another bulleted paragraph.  
x	Twelfth another bulleted paragraph.  
k	Thirteenth another bulleted paragraph."  
		set myDocument to make document  
		tell page 1 of myDocument  
			set myTextFrame to make text frame with properties {geometric bounds:{"6p", "6p", "36p", "36p"}, contents:myString}  
		end tell  
	else  
		set myDocument to active document  
	end if  
	tell stories of myDocument 
	    set character 1 of (every paragraph where character 2 = "\t") to "<2019>" 
	end tell 
end tell

Thanks,

Ole