<ASCII-MAC> 
<Version:4><FeatureSet:InDesign-Roman><ColorTable:=<Black:COLOR:CMYK:Process:0,0,0,1>> 
<DefineParaStyle:NormalParagraphStyle=<Nextstyle:NormalParagraphStyle>> 
<DefineParaStyle:Literatur-h=<BasedOn:NormalParagraphStyle><Nextstyle:Literatur-h>> 
<ParaStyle:Literatur-h>das ist ein test 

tell (every paragraph whose name of applied paragraph style is "Literatur-h") 

set aFile to ((path to desktop folder as Unicode text) & "test.txt") 
tell document 1 of application "Adobe InDesign CS2" 
  set aString to (contents of selection) as string 
  my writeString(aFile, aString) 
end tell 
 
on writeString(aFile, aString) 
  try 
    open for access file aFile with write permission 
    set eof of file aFile to 0 
    write aString to file aFile 
    close access file aFile 
  on error 
    try 
      close access file aFile 
    end try 
  end try 
end writeString 

set aFile to ((path to desktop folder as Unicode text) & "test.txt") 
tell document 1 of application "Adobe InDesign CS2" 
  set aString to ((contents of selection) as string) & return 
  my writeString(aFile, aString) 
end tell 
 
on writeString(aFile, aString) 
  try 
    open for access file aFile with write permission 
    write aString to file aFile starting at eof 
    close access file aFile 
  on error 
    try 
      close access file aFile 
    end try 
  end try 
end writeString