indesign-script - Mit Zeichenformat ausgezeichneten Text als RTF exportieren

// exportFormattedText2RTF.jsx 
//DESCRIPTION: exportiert Text, der mit einem im Dialog anzugebenden Zeichenformat ausgezeichnet ist, im RTF-Format: 
 
var myStyle = prompt ('Absatzformat: ', app.activeDocument.characterStyles[-1].name); 
var myPath = (app.activeDocument.saved == true) 
	? app.activeDocument.filePath 
	: '~/Desktop'; 
 
clearFindChangeSettings(); 
try  
{ 
	app.findTextPreferences.appliedCharacterStyle = myStyle; 
} 
catch (e)  
{ 
	alert('Falsches Format angegeben!'); 
	exit(); 
} 
 
var theResult = app.activeDocument.findText(); 
 
if  ( theResult.length > 0 ) 
	for ( var i = 0; i < theResult.length; i++ ) 
		doExport( theResult[i].texts[0], i+1, myStyle ); 
alert( 'Fertig!\r' + theResult.length + ' Treffer.' );  
 
function doExport( aText, aFile, aStyle ) 
{ 
	var aFileName = myPath + '/' +app.activeDocument.name.replace(/\.indd/i,  '') + '_' + aStyle + '_' + aFile + '.rtf'; 
	try	 
	{ 
		aText.exportFile( ExportFormat.RTF,File( aFileName ) ); 
	} 
	catch (e) 
	{ 
		alert( aFile + '.rtf konnte nicht überschrieben werden.' ); 
	} 
} 
 
function clearFindChangeSettings() 
{ 
	app.findTextPreferences = NothingEnum.nothing; 
	app.changeTextPreferences = NothingEnum.nothing; 
}