tell application "Adobe InDesign CS5" 
  activate 
  -- der Textrahmen 
  set sF to item 1 of text containers of parent of selection 
  -- die Positionen 
  set gB to geometric bounds of sF 
  -- die Grundlinie der ersten Zeile der Auswahl 
  set y1 to baseline of line 1 of selection 
  -- der linke Rand des Textrahmens 
  set x1 to item 2 of gB 
  -- die Grundlinie der letzten Zeile der Auswahl 
  set y2 to baseline of line -1 of selection 
  -- der rechte Rand des Textrahmens 
  set x2 to item 4 of gB 
  -- kopieren 
  copy 
  -- die Auswahl aufheben 
  set selection to nothing 
  -- einsetzen 
  paste 
  tell document 1 
    tell text frame 1 
      -- der obere Rand des neuen Rahmens 
      set yN to item 1 of geometric bounds 
      -- die Grundlinie der ersten Zeile 
      set yB to baseline of line 1 of text 1 
      -- dem neuen Rahmen die Positionswerte zuweisen  
      set geometric bounds to {y1 - (yB - yN), x1, y2 + 1, x2} 
    end tell 
  end tell 
end tell 

	set nF to duplicate sF 
	tell nF 
		-- der obere Rand des neuen Rahmens  
		set yN to item 1 of geometric bounds 
		-- die Grundlinie der ersten Zeile  
		set yB to baseline of line 1 of text 1 
		-- dem neuen Rahmen die Positionswerte zuweisen   
		set geometric bounds to {y1 - (yB - yN), x1, y2 + 1, x2} 
	end tell 

delete paragraphs 1 thru (startpara - 1) of story 1 of nF 
delete paragraphs (endpara + 1) thru -1 of story 1 of nF 

tell application "Adobe InDesign CS5.5" 
  tell document 1 
    tell view preferences 
      set rulerOrigin to ruler origin 
      if rulerOrigin is not spread origin then set ruler origin to spread origin 
    end tell 
  end tell 
end tell 

    tell view preferences 
      if rulerOrigin is not spread origin then set ruler origin to rulerOrigin 
    end tell 

tell application "Adobe InDesign CS5.5" 
	-- der Textrahmen  
	set sF to item 1 of text containers of parent of selection 
	set gB to geometric bounds of sF -- die Positionen  
	 
	set y1 to baseline of line 1 of selection -- die Grundlinie der ersten Zeile der Auswahl  
	set x1 to item 2 of gB -- der linke Rand des Textrahmens  
	set y2 to baseline of line -1 of selection -- die Grundlinie der letzten Zeile der Auswahl  
	set x2 to item 4 of gB -- der rechte Rand des Textrahmens  
	 
	copy-- markierten Text in die Zwischenablage kopieren 
	 
	set nF to duplicate sF 
	tell nF 
		set yN to item 1 of geometric bounds --	der obere Rand des neuen Rahmens  
		set yB to baseline of line 1 of text 1 --	die Grundlinie der ersten Zeile  
		 
		-- dem neuen Rahmen die Positionswerte zuweisen   
		set geometric bounds to {y1 - (yB - yN), x1, y2 + 1, x2} 
	end tell 
	 
	-- Tet in neuem duplizierten Textrahmen auswählen und per paste ersetzen 
	set selection to text of parent story of nF 
	paste 
end tell 

tell application "Adobe InDesign CS5.5" 
   
  set insPos to index of paragraph 1 of item 1 of selection 
  tell parent of item 1 of selection 
    set totChars to 0 
    repeat with p from 1 to count of paragraphs 
      tell paragraph p 
        set nChars to count of characters 
        set totChars to (totChars + nChars) 
        if totChars is greater than insPos then 
          set startPara to p 
          exit repeat 
        end if 
      end tell 
    end repeat 
  end tell 
   
  set insPos to index of paragraph -1 of item 1 of selection 
  tell parent of item 1 of selection 
    set totChars to 0 
    repeat with p from 1 to count of paragraphs 
      tell paragraph p 
        set nChars to count of characters 
        set totChars to (totChars + nChars) 
        if totChars is greater than insPos then 
          set endPara to p 
          exit repeat 
        end if 
      end tell 
    end repeat 
  end tell 
   
end tell 
 
{startPara, endPara} 

try 
  delete paragraphs 1 thru (startPara - 1) of story 1 of nF 
end try 
try 
  delete paragraphs (endPara + 1) thru -1 of story 1 of nF 
end try 

tell application "Adobe InDesign CS5" 
  set startPara to 0 
  set startPos to index of paragraph 1 of item 1 of selection 
  set endPos to index of paragraph -1 of item 1 of selection 
  tell parent of item 1 of selection 
    set totChars to 0 
    repeat with p from 1 to count of paragraphs 
      tell paragraph p 
        set nChars to count of characters 
        set totChars to (totChars + nChars) 
        if totChars is greater than startPos then 
          if startPara is 0 then 
            set startPara to p 
          end if 
        end if 
        if totChars is greater than endPos then 
          set endPara to p 
          exit repeat 
        end if 
      end tell 
    end repeat 
  end tell 
end tell 
 
{startPara, endPara} 

on getStartEndID(startID, endID, idList) 
	set sParaID to 1 
	set eParaID to 1 
	 
	repeat with i from 1 to count idList 
		log {startID, endID, i} 
		if startID ≥ item i of idList then set sParaID to i 
		if endID ≤ item i of idList then 
			set eParaID to i 
			exit repeat 
		end if 
	end repeat 
	return {sParaID, eParaID} 
end getStartEndID 
 
 
tell application "Adobe InDesign CS5.5" 
	-- der Textrahmen  
	set sF to item 1 of text containers of parent of selection 
	set gB to geometric bounds of sF -- die Positionen  
	 
	-- Absatzindex der Markierung innerhalb des Basisrahmens bestimmen 
	set paraIDs to index of every paragraph of sF 
	set startIndex to index of paragraph 1 of selection 
	set endIndex to index of paragraph -1 of selection 
	 
	set {startParaID, endParaID} to my getStartEndID(startIndex, endIndex, paraIDs) 
	 
	 
	set y1 to baseline of selection --		die Grundlinie der ersten Zeile der Auswahl  
	set x1 to item 2 of gB --			der linke Rand des Textrahmens  
	 
	set y2 to end baseline of selection --	die Grundlinie der letzten Zeile der Auswahl  
	set x2 to item 4 of gB --			der rechte Rand des Textrahmens  
	 
	set nF to duplicate sF 
	tell nF 
		set yN to item 1 of geometric bounds --					der obere Rand des neuen Rahmens  
		set yB to baseline of line 1 of text 1 --					die Grundlinie der ersten Zeile  
		set geometric bounds to {y1 - (yB - yN), x1, y2 + 1, x2} --	dem neuen Rahmen die Positionswerte zuweisen   
		 
		set text of parent story to "" --							alten Text löschen 
	end tell 
	-- und die Absätze in den neuen Rahmen kopieren 
	duplicate paragraphs startParaID thru endParaID of parent story of sF to after insertion point 1 of nF 
	set selection to nF 
end tell 

if startID ≥ item i of idList then set sParaID to i 
if endID ≤ item i of idList then 

if startID is greater than or equal to item i of idList then set sParaID to i 
if endID is less than or equal to item i of idList then 

if startID is item i of idList then set sParaID to i 
if endID is item i of idList then 

set y1 to baseline of line 1 of paragraph 1 of selection 
set y2 to baseline of line -1 of paragraph -1 of selection