PowerPoint Applescript 菜单给出的结果与 AppleScript 编辑器不同

Question

以下脚本在 AppleScript 编辑器中运行时，会以文本形式返回页面上对象的自选图形类型。但是，当从 PowerPoint 中的 applescript 菜单运行时，它会返回一个脚本常量。

我正在使用一个更复杂的版本来根据对象的自动形状类型将对象的属性发送到不同的应用程序......表格放在一个地方，占位符另一个，矩形等到第三个。我也在 PPT 中启动它以推出数据，并且不能真正从任何其他应用程序中提取它，所以 AppleScript 菜单将是我想要的位置。

谁能告诉我为什么同一个脚本会给出两个结果？

谢谢， 亚历克斯

tell application "Microsoft PowerPoint"
    set currentSlideNumber to slide index of slide range of selection of document window 1
    set theSlide to slide currentSlideNumber of active presentation
end tell

getProperty(theSlide)

to getProperty(theSlide)
    tell application "Microsoft PowerPoint"
        repeat with thisShape in (get every shape of theSlide)
          set shapeType to shape type of thisShape
          set shapeContent to content of text range of text frame of thisShape
          display alert (shapeType as string)
     end repeat
end tell

结束获取属性

Answer 1

将常量（或标准 applescript 无法理解的应用程序属性）转换为文本很棘手。我的猜测是，当在 powerpoint 菜单中时，脚本可以更好地理解常量，因此您会看到。

无论如何，我在 Finder 常量方面遇到了同样的问题，并决定自己使用 if 语句处理转换为文本的问题。这是一个繁琐的解决方案，因为您必须考虑每个常数，但至少您知道它会正确发生。

这是一个例子。假设有一个形状常数“rect”代表矩形，“circ”代表圆形。

注意：您可能可以使用实际属性的名称而不是代码中的常量。

to getProperty(theSlide)
    tell application "Microsoft PowerPoint"
        repeat with thisShape in (get every shape of theSlide)
            set shapeType to shape type of thisShape
            if shapeType is <<rect>> then
                set shapeTypeText to "rectangle"
            else if shapeType is <<circ>> then
                set shapeTypeText to "circle"
            end if

            set shapeContent to content of text range of text frame of thisShape

            display alert (shapeTypeText)
        end repeat
    end tell
end getProperty