InDesignのXMLタグを全削除するAppleScript

XMLタグを全削除.applescript

tell application id "com.adobe.InDesign"
	tell active document
		
		try
			-- 適用されているタグのマップを除去する
			set pageItems to all page items
			repeat with aItem in pageItems
				set aTag to associated XML element of aItem
				if aTag ≠ nothing then untag aTag
			end repeat
		end try
		
		-- 未使用のタグを削除する
		delete unused tags
		
	end tell
end tell