Altough this script allows multiple selections it affects only first item in list.
How do I affect all the paragraph styles I have selected?
-- Makes a tab character before first character of paragraph
tell application "InDesign CS"
set docParaStyles to name of paragraph styles of document 1
set paraStyleNames to choose from list docParaStyles with prompt "Choose paragraph style:" with multiple selections allowed
set paraStyleList to {}
repeat with aName in paraStyleNames
set end of paraStyleList to paragraph style (contents of aName) of document 1
repeat with n from 1 to count of paraStyleList
set paraStyle to name of item n of paraStyleList
end repeat
end repeat
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
applyChanges(x, theStory) of me
end if
end repeat
end try
end repeat
end tell
on applyChanges(paraNum, storyRef)
tell application "InDesign CS"
repeat
set contents of insertion point 1 of paragraph paraNum of storyRef to tab
exit repeat
end repeat
end tell
end applyChanges
Kari