🚀 go-pugleaf

Actually, I was wrong; the script does not work.

Here it is so far:
tell application "Adobe InDesign CS2"
	set myDoc to active document

	set myParaList to name of every paragraph style of myDoc
	set myCaseVals to {lowercase, sentencecase, titlecase, uppercase}

	set AppleScript's text item delimiters to "+"
	set myCaseList to text items of (myCaseVals as string)
	set AppleScript's text item delimiters to ""

	set myDialog to make dialog with properties {name:"Choose paragraph style and change case"}
	tell myDialog
		tell (make dialog column)
			tell (make border panel)
				tell (make dialog column)
					make static text with properties {static label:"Choose a paragraph style to affect", min width:150}
				end tell
				tell (make dialog column)
					set myPresetsDropdown to make dropdown with properties �
						{string list:myParaList, selected index:0, min width:150}
				end tell
				tell (make dialog column)
					make static text with properties {static label:"Choose a case", min width:150}
				end tell
				tell (make dialog column)
				set myCaseDropdown to make dropdown with properties �
				{string list:myCaseList, selected index:0}
				end tell
			end tell
		end tell
	end tell
	set myResult to show myDialog
	if myResult = true then
		+1 gets the correct name because list starts at 0
		set myPara to item ((selected index of myPresetsDropdown) + 1) of myParaList
		set myCase to item ((selected index of myCaseDropdown) + 1) of myCaseVals
	end if
	destroy myDialog

	tell myDoc
		set myChange to object reference of every text style range of every story whose name of applied paragraph style is myPara
		changecase myChange using myCase
	end tell
end tell

It is this line that doesn't work:
		set myChange to object reference of every text style range of every story whose name of applied paragraph style is myPara
Does anyone know how to fix it?

TIA

Kari