tell application "Adobe InDesign CS4" 
	tell active document 
		set curSelection to selection 
		set curObject to item 1 of curSelection 
		parent of curObject 
	end tell 
end tell 

text from character 5007 to character 5007 of story id 2003 of document "D-A_2_ge_Bu.indd" of application "Adobe InDesign CS4" 

tell application "Adobe InDesign CS5.5" 
  set curObject to item 1 of selection 
  parent of parent of curObject 
end tell 

tell application "Adobe InDesign CS4" 
	set curSelection to selection 
	set curObject to item 1 of curSelection 
	set curPic to all graphics of curObject 
	set curObjStyle to name of applied object style of curObject 
	set curStory to parent of parent of curObject 
	 
	set allParaStyleRefs to applied paragraph style of every paragraph of curStory -- Formatnamen aller Absätze 
	repeat with i from 1 to length of allParaStyleRefs 
		set curParaStyleRef to item i of allParaStyleRefs -- Referenz des geprüften Absatzeformates 
		set curName to name of curParaStyleRef -- Formatname des geprüften Absatzeformates 
		if (curName starts with "Bild") then 
			set curParaInd to i -- Index des geprüften Absatzes 
			set checkPic to all graphics of paragraph curParaInd of curStory 
			if (checkPic is equal to curPic) then -- wenn Prüfbild das markierte ist 
				exit repeat -- dann haben wir alles zusammen 
			end if 
		end if 
	end repeat 
… 
end tell 

tell application "Adobe InDesign CS4" 
  set curObject to item 1 of selection 
  paragraph 1 of parent of curObject 
end tell 

tell application "Adobe InDesign CS4" 
  set curObject to item 1 of selection 
  object reference of paragraph 1 of parent of curObject 
end tell 

tell application "Adobe InDesign CS4" 
  set curObject to item 1 of selection 
  properties of paragraph 1 of parent of curObject 
end tell 

tell application "Adobe InDesign CS4" 
  set curObject to item 1 of selection 
  set insPos to index of insertion point 1 of parent of curObject 
  tell parent of parent of curObject 
    set totChars to 0 
    repeat with i from 1 to count of paragraphs 
      tell paragraph i 
        set nChars to count of characters 
        set totChars to (totChars + nChars) 
        if totChars is greater than insPos then 
          set paraNumber to i 
          exit repeat 
        end if 
      end tell 
    end repeat 
  end tell 
end tell 
paraNumber 

tell application "Adobe InDesign CS4" 
  set curObject to item 1 of selection 
  set insPos to index of insertion point 1 of parent of curObject 
  tell parent of parent of curObject 
    set totChars to 0 
    repeat with i from 1 to count of paragraphs 
      tell paragraph i 
        set nChars to count of characters 
        set totChars to (totChars + nChars) 
        if totChars is greater than insPos then 
          set paraStyleName to name of applied paragraph style 
          exit repeat 
        end if 
      end tell 
    end repeat 
  end tell 
end tell 
paraStyleName 

rectangle id 32055 of text from character 104105 to character 104105 of text flow id 2003 of document "D-A_2_ge_Bu.indd" of application "Adobe InDesign CS4" 

tell application "Adobe InDesign CS4" 
	set curSelection to selection 
	set curObject to item 1 of curSelection 
	tell curObject 
		set curObjStyle to name of applied object style 
		set insPos to index of insertion point 1 of parent 
		set curStory to parent of parent 
	end tell 
	tell curStory 
		set tmptext to text from character 1 to character insPos 
		set paraNumber to count of paragraphs in tmptext 
		set curParaStyleName to name of applied paragraph style of paragraph paraNumber 
		set nextParaStyleName to name of applied paragraph style of paragraph (paraNumber + 1) -- Formatname des nachfolgenden Absatzes 
	end tell 
end tell 

tell application "Adobe InDesign CS4" 
  tell active document 
    set curSelection to selection 
    set curObject to item 1 of curSelection 
    try 
      set aColor to color of parent of curObject 
    on error errMsg number errNr 
      set charPos to my getPos(errMsg) 
    end try 
  end tell 
end tell 
charPos 
 
on getPos(errMsg) 
  set getPos to find text "(text from character )([0-9]+)?" in errMsg using "\\2" with regexp and string result 
  return getPos 
end getPos