🚀 go-pugleaf

amjb-- 

Try something like this: 



tell application "InDesign 2.0.1" 
	set myDocument to active document 
	if count XML Elements of myDocument > 0 then 
		repeat with myCounter from 1 to (count character styles of myDocument) 
			if name of character style myCounter of myDocument is not "[No character style]" then 
				my myMapCharStyle(myDocument, name of character style myCounter of myDocument) 
			end if 
		end repeat 
	else 
		display dialog "Document contains no XML elements." 
	end if 
end tell 
--Handler for creating XML Elements from text tagged with a specific character style. 
on myMapCharStyle(myDocument, myCharStyleName) 
	tell application "InDesign 2.0.1" 
		--Create the XML tag, if necessary. 
		tell myDocument 
			try 
				set myXMLTag to XML Tag myCharStyleName 
			on error 
				--XML tag did not exist, so create it. 
				set myXMLTag to make XML Tag with properties {name:myCharStyleName} 
			end try 
		end tell 
		--Clear the change preferences 
		set change preferences to nothing 
		--Add the target character style to the find preferences 
		set applied character style of find preferences to character style myCharStyleName of myDocument 
		set myFoundItems to search myDocument for "" 
		--Iterate backwards through the list of found items. Why? The items are all text references from character x to y-- 
		--XML tag markers count as characters, so iterating forwards throws the character count references off as you tag the text. 
		repeat with myCounter from (count myFoundItems) to 1 by -1 
			set myItem to item myCounter of myFoundItems 
			--get a reference to the XML element containing the item 
			set myXMLStory to item 1 of associated XML elements of myItem 
			tell myXMLStory to make XML Element with properties {markup tag:myXMLTag, associated object:myItem} 
		end repeat 
	end tell 
end myMapCharStyle 




Thanks, 

Ole