новые иконки в OpenBoard
You can not select more than 25 topics Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
OpenBoard/resources/macx/PowerPointImport.applescript

30 lines
959 B

tell application "Microsoft PowerPoint"
launch
set presentationCount to number of presentations
-- see http://thesource.ofallevil.com/mac/developers/default.mspx?CTT=PageView&clr=99-21-0&target=2511850e-bf23-4a4e-a58a-078b50c6c6a11033&srcid=7830652b-fe36-4563-bedb-94aa37694b301033&ep=7
repeat 3 times
try
set thePresentation to presentation "%@"
on error
open POSIX file "%@"
set thePresentation to active presentation
end try
if thePresentation is not missing value then
exit repeat
else
delay 1
end if
end repeat
save thePresentation in (POSIX file "%@" as text) as save as PDF
set slideShow to slide show view of slide show window of thePresentation
if slideShow exists then
exit slide show slideShow
end if
if number of presentations is not equal to presentationCount then
close thePresentation
end if
tell application "System Events"
set visible of process "Microsoft PowerPoint" to false
end tell
end tell