프레젠테이션이 열릴 때 PowerPoint에서 전화를 다시받을 수있는 방법이 있습니까? (파워 포인트 2016-Mac 버전)

Question

파워 포인트 프리젠 테이션이 열릴 때 OS X 응용 프로그램을 열어야합니다. 파워 포인트가 열리면 VBA 콜백을 다시받습니다 (Auto_Open()). 그러나 각 프리젠 테이션을 열어 볼 때마다 전화가 필요합니다.

우리는 각 프레젠테이션을 별도의 파워 포인트 앱 (차이 인스턴스)에서 열 수 있습니다. Mac에서는 Powerpoint 응용 프로그램이 한 번 열리고 모든 프레젠테이션이 동일한 Powerpoint 응용 프로그램 (Powerpoint 2016-Mac 버전)에서 열립니다.

각 프레젠테이션 파일을 열 때마다 코코아 애플리케이션에서 코드 스 니펫을 실행해야 할 때 다시 전화를해야합니다.

Answer 1

가능한 해결 방법은 열려있는 프레젠테이션을 루프 검사하고 이전에 열려있는 프레젠테이션과 비교하는 것입니다.

먼저이 스크립트가 실행되면 PowerPoint가 실행 중인지 확인합니다 (종료하지 않으면 -> 종료). PP가 실행되면 스크립트는 열려있는 프리젠 테이션의 수를 기록합니다.

그런 다음 스크립트는 루프를 거칩니다.이 예에서 반복 횟수는 100 회입니다 (테스트 만했지만 반복해야합니다). 각 반복마다 PP 프리젠 테이션 목록을 찾고 이전 목록과 비교합니다. 프리젠 테이션이 이전 목록에 없으면 새로운 것입니다. 열려 있습니다!

경고를 표시하는 PowerPoint를 종료하면 스크립트가 중지됩니다 (bloc 시도).

tell application "System Events" to set PP_Running to exists (processes where name is "Microsoft PowerPoint") 
if not PP_Running then return -- Power point is not launched ! 
tell application "Microsoft PowerPoint" to set Old_list to name of every presentation -- get initial list of open presentations 

repeat with I from 1 to 100 -- for test, but it should be repeat with no limit 

try 
    tell application "Microsoft PowerPoint" to set New_list to name of every presentation 
on error 
    display alert "PowerPoint no longer launched" 
    return -- quit the loop 
end try 
repeat with aDoc in New_list 
    if not (Old_list contains aDoc) then -- new document has been opened !! 
     set Old_list to New_list 
     log "Open new document = " & aDoc -- do what ever you need to do !! 
    end if 
end repeat 
delay 0.5 
set I to I + 1 
end repeat 

엘 캐피/PP 2011에서 테스트 :하지만 나는 '모든 프리젠 테이션의 이름'에서 PP 2011 년 PP 2016로 변경 아무것도 생각합니다.