tell application "Adobe InDesign CS6" 
		activate 
		set user interaction level of script preferences to never interact 
		 
				 
		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) 
			 
			 
			delete (spreads 2 thru -1) of document 1 
			 
			 
			set mypages to "01_" 
			 
			-- den Pfad für das aktuelle Dokument zusammensetzen  
			set curPath to docFolder & mypages & "___" & docName & ".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 without dialog 
				-- die Zählervariable aktualisieren  
				tell document 1 
					set pageNumber to s 
					 
					-- 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) 
					 
					 
					 
					set myPage to make new page 
					make section with properties {page start:page 1, continue numbering:false, page number start:s} 
					 
					delete myPage 
					 
				end tell 
				--set Abschnitt to paragraph 3 of story 1 of document 1 
				--set docName to text 1 thru -2 of Abschnitt 
				set my1 to 0 
				if doublePage then 
					if s < 10 then 
						set my1 to "0" & s 
					else 
						set my1 to s 
					end if 
					if s + 1 < 10 then 
						set my2 to "0" & s + 1 
					else 
						set my2 to s + 1 
					end if 
					set mypages to my1 & "_" & my2 & "_" 
					set s to s + 2 
				else 
					if s < 10 then 
						set my1 to "0" & s 
					else 
						set my1 to s 
					end if 
					 
					set mypages to my1 & "_" 
					set s to s + 1 
				end if 
				 
				 
				-- den Pfad für das aktuelle Dokument zusammensetzen  
				set curPath to docFolder & mypages & "___" & docName & ".indd" 
				-- speichern und schliessen  
				save document 1 to curPath 
				close document 1 saving no 
				 
			end repeat 
			-- das Originaldokument ein letztes Mal öffnen  
			 
			open file docPath without dialog 
			 
			 
			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 
			 
			if s < 10 then 
				set my1 to "0" & s 
			else 
				set my1 to s 
			end if 
			 
			set mypages to my1 & "_" 
			 
			 
			 
			 
			 
			-- den Pfad für das aktuelle Dokument zusammensetzen  
			set curPath to docFolder & mypages & "___" & docName & ".indd" 
			-- speichern und schliessen  
			save document 1 to curPath 
			close document 1 saving no 
		end if 
	end tell