(* This AppleScript will resize the current application window to the height specified below and center it in the screen. Compiled with code from Natanial Wools and Amit Agarwal *)

set the_application to (path to frontmost application as Unicode text)
set appHeight to 1440
set appWidth to 900

tell application "Finder"
  set screenResolution to bounds of window of desktop
end tell

set screenWidth to item 3 of screenResolution
set screenHeight to item 4 of screenResolution

tell application the_application
  activate
  reopen
  set yAxis to (screenHeight - appHeight) / 2 as integer
  set xAxis to (screenWidth - appWidth) / 2 as integer
  set the bounds of the first window to {xAxis, yAxis, appWidth + xAxis, appHeight + yAxis}
end tell