🚀 go-pugleaf

People,

Since my script affects to every paragraph, I made an another one that affects only to the chosen paragraph(s):



--Deletes empty spaces at the beginning of the chosen paragraph.

tell application "InDesign 2.0.2"

	set paraStyle to "BodyText" -- name of paragraph style you want to affect

	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) of me 
				end if 
			end repeat 
		end try 
	end repeat 
end tell

on applyRunin(paraNum, storyRef)

	tell application "InDesign 2.0.2" 
		repeat 
			set theDeleteCharacter to character 1 of paragraph paraNum of storyRef 
			if theDeleteCharacter is equal to space then 
				delete character 1 of paragraph paraNum of storyRef 
			else 
				exit repeat 
			end if 
		end repeat 
	end tell 
end applyRunin



Kari