🚀 go-pugleaf

Excellent. I had started trying to make it work for +4 point polygons--set myPoints to count of path points of myPath --but quickly gave up.

If you know there are not any intended polygons or circles--this does an entire document:

tell application "InDesign 2.0.2"

	set myPolygon to every page item of active document
	repeat with x in myPolygon

		set myBounds to geometric bounds of x
		set myTop to item 1 of myBounds
		set myLeft to item 2 of myBounds
		set myBot to item 3 of myBounds
		set myRight to item 4 of myBounds

		set myPath to path 1 of item 1 of x
		--set myPoints to count of path points of myPath

		set anchor of path point 1 of myPath to {myLeft, myTop}
		set anchor of path point 2 of myPath to {myLeft, myBot}
		set anchor of path point 3 of myPath to {myRight, myBot}
		set anchor of path point 4 of myPath to {myRight, myTop}

	end repeat

end tell

Doesn't get into groups either--haven't had time to figure it out.