on setmydocument() 
	try 
		tell application "Adobe InDesign CS2" 
			set myDocument to active document 
		end tell 
	on error 
		display dialog "Es ist kein Indesign Dokument geöffnet. Script wird beendet." buttons ("OK") 
		set myDocument to false 
	end try 
	return myDocument 
end setmydocument 
 
on switchUserInteractMode(myStatus) 
	tell application "Adobe InDesign CS2" 
		if myStatus is "never" then 
			-- Turn off user interaction to avoid dialogs 
			set user interaction level of script preferences to never interact 
		else if myStatus is "all" then 
			-- Revert user interaction 
			set user interaction level of script preferences to interact with all 
		end if 
	end tell 
end switchUserInteractMode 
 
on chooseName(myPrompttext, myAnswer) 
	-- Zeigt einen Texteingabedialog mit dem übergebenem Hinweistext (myPrompttext). Mit myAnswer kann man einen vorgegebenen Antworttext einstellen. Gibt den eingegebenen Text zurück. 
	set myName to text returned of (display dialog myPrompttext default answer myAnswer) 
	return myName 
end chooseName 
 
on changeFontsize(myDocument, myChangeValueFontSize) 
	tell application "Adobe InDesign CS2" 
		tell myDocument 
			repeat with myStyle in every paragraph style 
				tell properties of myStyle 
					set point size to point size + myChangeValueFontSize as real 
				end tell 
			end repeat 
		end tell 
	end tell 
end changeFontsize 
 
--Main 
--Init-Process 
switchUserInteractMode("never") 
 
set myDocument to setmydocument() 
set myChangeValueFontSize to chooseName("Bitte geben Sie einen Wert an um den die Schriftgröße geändert werden soll", "+1") 
changeFontsize(myDocument, myChangeValueFontSize) 
 
--Restore-Process 
switchUserInteractMode("all") 

tell document 1 of application "Adobe InDesign CS2" 
    set point size of paragraph styles whose name is not "[Kein Absatzformat]" to text returned of (display dialog "Schriftgröße: " default answer 10) 
 
end tell 

var myStep = prompt("Schriftgrad erhöhen um: ","0.5")*1; 
var myDoc = app.documents[0]; 
for (k = 1; k< myDoc.paragraphStyles.length; k++)  
	myDoc.paragraphStyles[k].pointSize += myStep; 

on setmydocument() 
  try 
    tell application "Adobe InDesign CS2" 
      set myDocument to active document 
    end tell 
  on error 
    display dialog "Es ist kein InDesign-Dokument geöffnet. Das Script wird beendet." buttons ¬ 
          "OK" default button 1 with icon 2 
    error number -128 
  end try 
  return myDocument 
end setmydocument 

on changeFontsize(myDocument, myChangeValueFontSize) 
  tell application "Adobe InDesign CS2" 
    tell myDocument 
      repeat with i from 3 to count of paragraph styles 
        try 
          tell paragraph style i 
            set newSize to point size + myChangeValueFontSize 
            set properties to {point size:newSize} 
          end tell 
        end try 
      end repeat 
    end tell 
  end tell 
end changeFontsize