Rotate portrait pages by +90degrees in current document in PDFpenPro 6

Rotate portrait pages by 90

# Install this file in:
#   ~/Library/Application Scripts/com.smileonmymac.PDFpenPro6.MacAppStore/
# and it will then be accessible from the Applescript menu in PDFpenPro 6

tell application "PDFpenPro 6"
	if (count documents) > 0 then
		set myDoc to document 1
		set pageCount to count pages of myDoc
		repeat with pageNumber from 1 to pageCount
			if (height of page pageNumber of myDoc) > (width of page pageNumber of myDoc) then
				set rotation of page pageNumber of myDoc to 90
			end if
		end repeat
	end if
end tell