如何通过applescript访问ppt文件中的注释文本?

时间:2012-10-10 10:53:08

标签: applescript powerpoint

我想在os x上的PPT文件中获取笔记文本。我觉得这应该有用:

get content of notes page of slide N of active presentation

但它总是会返回“缺失值”。有什么想法吗?

顺便提一下,我的目标是能够创建一组幻灯片的新版本,其中注释不包含文本STUDENT = HIDE ...我喜欢向学生提供幻灯片,但并不总是想要它们事先看一切(例如,课堂练习的正确结果)。

1 个答案:

答案 0 :(得分:5)

备注的形状为{place holder类 - > text frame - > text range - > 内容)。

以下是如何在每张幻灯片中获取注释值的示例:

tell application "Microsoft PowerPoint"
    repeat with tSlide in (get slides of active presentation)
        set tNote to ""
        repeat with t_shape in (get shapes of notes page of tSlide)
            tell t_shape to if has text frame then tell its text frame to if has text then
                set tNote to content of its text range -- get the note of this slide
                exit repeat
            end if
        end repeat
        if tNote does not contain "STUDENT=HIDE" then
            --- *** do something with tSlide *** ---
            --
            --
        end if
    end repeat
end tell