tell application "Adobe InDesign CS2" 
 activate 
 if not (exists document 1) then 
  display dialog "Bitte ein Dokument öffnen." buttons ¬ 
   "OK" default button 1 with icon 0 
  error number -128 
 end if 
 tell document 1 
  try 
   -- der Pfad zum Ordner, wo sich das Dokument befindet 
   set docFolder to file path as Unicode text 
   -- der volle Pfad des Dokuments 
   set docPath to full name 
   -- der Name des Dokuments 
   set docName to name 
   if docName ends with ".indd" then 
    set docName to text 1 thru -6 of docName 
   end if 
  on error 
   display dialog "Zuerst das Dokument speichern." buttons ¬ 
    "OK" default button 1 with icon 0 
   error number -128 
  end try 
  -- bei einer ungespeicherten Änderung das Speichern vornehmen 
  if modified then save 
  -- die Druckbögen zählen 
  set nSpreads to count of spreads 
  set nPages to count pages of spread 1 
 end tell 
 if nSpreads is greater than 1 then 
  -- die Anzahl Stellen der Zahl des letzten Druckbogens 
  set nDigits to count of (nSpreads as string) 
  -- den Zähler zum Anhängen an den Dokumentnamen vorbereiten 
  set ctr to "_" & text -nDigits thru -1 of ("000" & 1) 
  -- die Druckbögen 2 bis zum letzen entfernen 
  delete (spreads 2 thru -1) of document 1 
  -- den Pfad für das aktuelle Dokument zusammensetzen 
  set curPath to docFolder & docName & ctr & ".indd" 
  -- speichern und schliessen 
  save document 1 to curPath 
  close document 1 saving no 
  -- die Variable der Startseite initialisieren 
  if nPages is 1 then 
   set s to 2 
  else 
   set s to 3 
  end if 
  -- eine Schleife durch die Druckbögen 2 bis zum zweitletzten 
  repeat with i from 2 to (nSpreads - 1) 
   -- das Originaldokument erneut öffnen 
   open file docPath 
   -- die Zählervariable aktualisieren 
   set ctr to "_" & text -nDigits thru -1 of ("000" & i) 
   tell document 1 
    -- die Seitennummer der ersten Seite des aktuellen Druckbogens  
    set pageNumber to (name of page 1 of spread i) as integer 
    -- einen neuen Abschnitt definieren 
    make section with properties {page start:page s ¬ 
     , continue numbering:false, page number start:pageNumber} 
    -- die Druckbögen vor dem aktuellen entfernen 
    delete (spreads 1 thru (i - 1)) 
    -- und auch die Druckbögen nach dem aktuellen bis zum letzten 
    delete (spreads 2 thru -1) 
   end tell 
   -- den Pfad für das aktuelle Dokument zusammensetzen 
   set curPath to docFolder & docName & ctr & ".indd" 
   -- speichern und schliessen 
   save document 1 to curPath 
   close document 1 saving no 
   -- die Startseitenvariable hochzählen 
   set s to s + 2 
  end repeat 
  -- das Originaldokument ein letztes Mal öffnen 
  open file docPath 
  -- die Zählervariable aktualisieren 
  set ctr to "_" & text -nDigits thru -1 of ("000" & nSpreads) 
  tell document 1 
   -- die Seitennummer der ersten Seite des aktuellen Druckbogens  
   set pageNumber to (name of page 1 of spread nSpreads) as integer 
   -- einen neuen Abschnitt definieren 
   make section with properties {page start:page s ¬ 
    , continue numbering:false, page number start:pageNumber} 
   -- die Druckbögen ausser dem letzten entfernen 
   delete (spreads 1 thru (nSpreads - 1)) 
  end tell 
  -- den Pfad für das aktuelle Dokument zusammensetzen 
  set curPath to docFolder & docName & ctr & ".indd" 
  -- speichern und schliessen 
  save document 1 to curPath 
  close document 1 saving no 
 end if 
 -- das war's 
 display dialog "Fertig." buttons ¬ 
  "OK" default button 1 with icon 1 giving up after 1 
end tell 

tell application "Adobe InDesign CS2" 
 activate 
 if not (exists document 1) then 
  display dialog "Bitte ein Dokument öffnen." buttons ¬ 
   "OK" default button 1 with icon 0 
  error number -128 
 end if 
 tell document 1 
  try 
   -- der Pfad zum Ordner, wo sich das Dokument befindet 
   set docFolder to file path as Unicode text 
   -- der volle Pfad des Dokuments 
   set docPath to full name 
   -- der Name des Dokuments 
   set docName to name 
   if docName ends with ".indd" then 
    set docName to text 1 thru -6 of docName 
   end if 
  on error 
   display dialog "Zuerst das Dokument speichern." buttons ¬ 
    "OK" default button 1 with icon 0 
   error number -128 
  end try 
  -- bei einer ungespeicherten Änderung das Speichern vornehmen 
  if modified then save 
  -- speichern, ob Doppel- oder Einzelseiten 
  set doublePage to facing pages of document preferences 
  -- die Druckbögen zählen 
  set nSpreads to count of spreads 
  set nPages to count pages of spread 1 
 end tell 
 if nSpreads is greater than 1 then 
  -- die Anzahl Stellen, welche die Zahl des letzten Druckbogens benötigt 
  set nDigits to count of (nSpreads as string) 
  -- den Zähler zum Anhängen an den Dokumentnamen vorbereiten 
  set ctr to "_" & text -nDigits thru -1 of ("000" & 1) 
  -- die Druckbögen 2 bis zum letzen entfernen 
  delete (spreads 2 thru -1) of document 1 
  -- den Pfad für das aktuelle Dokument zusammensetzen 
  set curPath to docFolder & docName & ctr & ".indd" 
  -- speichern und schliessen 
  save document 1 to curPath 
  close document 1 saving no 
  -- die Variable der Startseite initialisieren 
  if nPages is 1 then 
   set s to 2 
  else 
   set s to 3 
  end if 
  -- eine Schleife durch die Druckbögen 2 bis zum zweitletzten 
  repeat with i from 2 to (nSpreads - 1) 
   -- das Originaldokument erneut öffnen 
   open file docPath 
   -- die Zählervariable aktualisieren 
   set ctr to "_" & text -nDigits thru -1 of ("000" & i) 
   tell document 1 
    -- die Seitennummer der ersten Seite des aktuellen Druckbogens  
    set pageNumber to (name of page 1 of spread i) as integer 
    -- einen neuen Abschnitt definieren 
    make section with properties {page start:page s ¬ 
     , continue numbering:false, page number start:pageNumber} 
    -- die Druckbögen vor dem aktuellen entfernen 
    delete (spreads 1 thru (i - 1)) 
    -- und auch die Druckbögen nach dem aktuellen bis zum letzten 
    delete (spreads 2 thru -1) 
   end tell 
   -- den Pfad für das aktuelle Dokument zusammensetzen 
   set curPath to docFolder & docName & ctr & ".indd" 
   -- speichern und schliessen 
   save document 1 to curPath 
   close document 1 saving no 
   -- die Startseitenvariable hochzählen 
   if doublePage then 
    set s to s + 2 
   else 
    set s to s + 1 
   end if 
  end repeat 
  -- das Originaldokument ein letztes Mal öffnen 
  open file docPath 
  -- die Zählervariable aktualisieren 
  set ctr to "_" & text -nDigits thru -1 of ("000" & nSpreads) 
  tell document 1 
   -- die Seitennummer der ersten Seite des aktuellen Druckbogens  
   set pageNumber to (name of page 1 of spread nSpreads) as integer 
   -- einen neuen Abschnitt definieren 
   make section with properties {page start:page s ¬ 
    , continue numbering:false, page number start:pageNumber} 
   -- die Druckbögen ausser dem letzten entfernen 
   delete (spreads 1 thru (nSpreads - 1)) 
  end tell 
  -- den Pfad für das aktuelle Dokument zusammensetzen 
  set curPath to docFolder & docName & ctr & ".indd" 
  -- speichern und schliessen 
  save document 1 to curPath 
  close document 1 saving no 
 end if 
 -- das war's 
 display dialog "Fertig." buttons ¬ 
  "OK" default button 1 with icon 1 giving up after 1 
end tell