如何使用 Applescript 从 Excel 工作表填充页面文件

Question

我正在尝试根据 Excel 电子表格中的数据填充模板。这是我第一次尝试 Applescript。我的计划是在模板中使用唯一的文本字符串（即 Value_1、Value_2 等），然后将每个值存储在变量中，并查找每个变量并将其替换为每个字符串。

我非常感谢任何帮助；这是我现在的位置：

tell application "Microsoft Excel"
    tell active workbook
        activate object worksheet "Page 2"
        copy range range "B7" of active sheet
        // Store as variable?
    end tell
end tell

tell application "Pages"
    activate
    tell application "System Events"
        keystroke "v" using command down
        // Find and replace?
    end tell
end tell

Answer 1

像这样的事情会做你想要的：

tell application "Microsoft Excel"
    tell active workbook
        activate object worksheet "Sheet2"
        set B7_Value to string value of range "B7" of active sheet
    end tell
end tell

tell application "Pages"
    set my_text to first document's body text
    set temp to do shell script "echo " & quoted form of my_text & " | sed -e 's/B7_Value/" & B7_Value & "/g'"
    set first document's body text to temp
end tell

这个脚本不会保持格式化。如果您想继续格式化，也许是这样的：

tell application "Microsoft Excel"
    tell active workbook
        activate object worksheet "Sheet2"
        set B7_Value to string value of range "B7" of active sheet
    end tell
end tell

tell application "Pages"
    activate
    tell application "System Events"
        keystroke "f" using command down
        set the clipboard to "B7_Value"
        keystroke "v" using command down
        delay 0.1
        keystroke tab
        delay 0.1
        set the clipboard to B7_Value
        keystroke "v" using command down
        delay 0.1
        keystroke tab
        delay 0.1
        keystroke space
        delay 0.1
        key code 53 -- escape
    end tell
end tell

为此，您需要启用系统偏好设置 -->键盘-->所有控制。