Powerpoint make movie - how to script this?

Question

I want to convert a Powerpoint File (ppt) to a QT movie. Does anybody know how to script this with AppleScript?
Thanks!

Answer 1

Bernhard,
Here is a follow-up script that works in the previous version of PowerPoint (v.X). I am not sure how much the latest version of PowerPoint has changed with regards to the location of the "Make Movie..." command or the dialog windows that are related to that command but hopefully not at all. Try it out and see whether it does what you are wanting. I assumed that you would want the movie placed in your Movies folder and that the default settings in the dialogs were okay.
click here to open this script in your editor<pre style="font-family: 'Monaco', 'Courier New', Courier, monospace; overflow:auto; color: #222; background: #DDD; padding: 0.2em; font-size: 10px; width:400px">property delayTime : 2
on run {}
-- Use the "Make Movie..." command in PowerPoint to make a QuickTime movie
tell application "System Events"
tell process "Microsoft PowerPoint"
set frontmost to true
set theNameOfPresentation to title of last window
-- Click on the Make Movie... command in the File menu
perform action "AXPress" of menu item "Make Movie..." of menu 1 of menu bar item "File" of menu bar 1
repeat until ((exists of sheet 1 of window theNameOfPresentation) is true)
end repeat
-- Move to the the Desktop
keystroke "d" using {command down}
delay delayTime
-- Enter the name of the Presentation
set value of text field 1 of sheet 1 of window theNameOfPresentation to theNameOfPresentation & ".mov"
delay delayTime
-- Click on the Save button
perform action "AXPress" of button "Save" of sheet 1 of window theNameOfPresentation
delay delayTime
end tell
end tell
-- Move the newly created movie from the Desktop to the Users Movies folder
tell application "Finder"
delay delayTime
try
move file (theNameOfPresentation & ".mov") of desktop to (path to movies folder)
on error errNum
display dialog errNum
end try
end tell
end run
</pre>
PowerBook 12" Mac OS X (10.4.6)