Apple

tell application "Adobe Illustrator"

set PageOrigin to visible bounds of document 1

delay 0.2

set theText to make new text frame at beginning of document 1 with properties {kind:point text, contents:tempName & " " & theInitials, position:{(item 1 of PageOrigin) + 1, (item 2 of PageOrigin) + 80}}

--rotate theText angle 90 about top left

delay 0.2

set properties of the text of theText to {text font:text font "Geneva", size:14}

end tell

tell application "Adobe Illustrator"
set PageOrigin to control bounds of page items of document 1
set pagecorner to {(item 1 of item 1 of PageOrigin) + 1, (item 2 of item 1 of PageOrigin) - 80} as list
repeat with x from 1 to count of PageOrigin
if item 1 of item x of PageOrigin < item 1 of pagecorner then
set item 1 of pagecorner to item 1 of item x of PageOrigin
end if
if item 2 of item x of PageOrigin > item 2 of pagecorner then
set item 2 of pagecorner to item 2 of item x of PageOrigin
end if
end repeat
set theText to make new text frame at beginning of document 1 with properties {kind:point text, contents:"test", position:{(item 1 of pagecorner) + 1, (item 2 of pagecorner) + 80}}
--rotate theText angle 90 about top left
set properties of the text of theText to {text font:text font "Geneva", size:14}
end tell