-- Zoom in (+) -- tell application "Finder" to set frontAppName to name of processes whose frontmost = true if frontAppName contains "Microsoft Word" then tell application "Microsoft Word" activate set theZoom to percentage of zoom of view of active window set theZoom to theZoom * 1.5 if theZoom > 400 then set theZoom to 400 set percentage of zoom of view of active window to theZoom end tell else if frontAppName is "Microsoft PowerPoint" then begin tell application "Microsoft PowerPoint" activate set theZoom to zoom of view of active window set theZoom to theZoom * 1.5 if theZoom > 400 then set theZoom to 400 set zoom of view of active window to theZoom end tell end if -- -- Zoom out (-) -- tell application "Finder" to set frontAppName to name of processes whose frontmost = true if frontAppName contains "Microsoft Word" then tell application "Microsoft Word" activate set theZoom to percentage of zoom of view of active window set theZoom to theZoom / 1.5 set percentage of zoom of view of active window to theZoom end tell else if frontAppName is "Microsoft PowerPoint" then begin tell application "Microsoft PowerPoint" activate set theZoom to zoom of view of active window set theZoom to theZoom / 1.5 set zoom of view of active window to theZoom end tell end if -- --Zoom to fit -- tell application "Finder" to set frontAppName to name of processes whose frontmost = true if frontAppName contains "Microsoft Word" then tell application "Microsoft Word" activate set page fit of (zoom of view of active window) to page fit best fit end tell else if frontAppName is "Microsoft PowerPoint" then begin tell application "Microsoft PowerPoint" activate set zoom to fit of view of active window to true end tell end if