🚀 go-pugleaf

Olivier,

Wouldn't this be easier to do with styles:



tell application "InDesign 2.0.2"

	set paraStyle to "BodyText" -- name of paragraph style to have run-in head  
	set runinStyle to "TimesStyle" -- name of character style to be applied  
	set sepChar to "	" as text -- separator character 

	set theStories to object reference of stories of document 1 
	repeat with theStory in theStories 
		try 
			set theParaStyles to name of applied paragraph style of object reference of paragraphs of theStory 
			repeat with x from 1 to count of theParaStyles 
				if paraStyle = contents of item x of theParaStyles then 
					applyRunin(x, theStory, sepChar, runinStyle) of me 
				end if 
			end repeat 
		end try 
	end repeat 
end tell

on applyRunin(paraNum, storyRef, sepChar, charStyle) 
	tell application "InDesign 2.0.2" 
		set theText to paragraph paraNum of storyRef 
	end tell 
	set theEnd to (offset of sepChar in theText) - 1

	if theEnd > 0 then 
		tell application "InDesign 2.0.2" 
			set the applied character style of characters 1 through theEnd of paragraph paraNum of storyRef to character style charStyle of document 1 
		end tell 
	end if 
end applyRunin



Kari