🚀 go-pugleaf

Hi Dave

Thanks a lot, below is the code which a have, but there is a problem, can you tell me how can I correct it.

=================
set thePath to choose file name with prompt "Select file for XML export"
tell application "Adobe InDesign CS2"
	set properties of XML export preferences to {file encoding:UTF8, view after export:true, export from selected:false, image conversion:automatic, copy original images:true}
	set styleList to name of every paragraph style of document 1 whose name is not "[No paragraph style]"
	tell document 1
		repeat with i from 1 to count of styleList
			set cleanName to my RemoveIllegal(item i of styleList)

			set XMLTag to make XML tag with properties {name:cleanName}
			set XMLMap to make XML export map with properties {markup tag:XMLTag, mapped style:paragraph style (item i of styleList)}
		end repeat
		auto tag
	end tell
	export document 1 format XML to thePath
end tell
styleList

on RemoveIllegal(theString)
	set tempString to theString
	repeat with eachItem in {" ", "[", "]"}
		if contents of eachItem = " " then
			set theReplace to "_"
		else
			set theReplace to ""
		end if
		set oldDelim to AppleScript's text item delimiters
		set AppleScript's text item delimiters to eachItem
		set theList to text items of tempString
		set AppleScript's text item delimiters to theReplace
		set theText to theList as string
		set AppleScript's text item delimiters to oldDelim
		set tempString to theText
	end repeat
	return tempString
end RemoveIllegal

===============

I am getting the error "The tag you are trying to create has an invalid name" and the line is

			set XMLTag to make XML tag with properties {name:cleanName}
at cleanName.

Please do some needful if you can.

Thanks