/* 
	collectPSGroups2newPSGroup.jsx 
	 
	//DESCRIPTION:Erstellt eine neue Absatzformatgruppe und verschiebt die Absatzformate und Absatzformatgruppen in diese Gruppe. 
	VERSION: 0.1 
	AUTHOR: Martin Fischer 
	EMAIL: InDesign[ät]MartinFischer.de 
	DATE: 15.2.2012 
*/ 
 
var d = app.documents.firstItem(); 
var ps = d.paragraphStyles; 
var pgr = d.paragraphStyleGroups; 
 
// Ermittlung Name für neue Absatzformatgruppe 
var n_pgn = prompt('Absatzformatgruppe:', d.name.replace(/.indd$/ig,'')); 
if (n_pgn == null) 
	exit(); 
	 
var n_pg= d.paragraphStyleGroups.add({name:n_pgn}); 
 
// Absatzformatgruppen verschieben 
for (var i = pgr.length-1; i >= 0; i--) 
{ 
	if (pgr[i].name != n_pgn) 
		pgr[i].move(LocationOptions.AT_BEGINNING, n_pg); 
} 
 
// Absatzformate der Stammebene verschieben 
for (var i = ps.length-1; i > 1; i--) 
{ 
	ps[i].move(LocationOptions.AT_BEGINNING, n_pg); 
}