Numbers AppleScript问题：迭代目标错误或subRange类型有误？

问题描述 #

需求为：选中Numbers表格的某列范围后，在该范围内的每一列后方插入新列，脚本命名为"Add Interstitial Columns"。
当前脚本运行异常：在行标题列后生成3个新列后，报错can't create more columns终止执行，未按选中列范围处理。

错误原因分析 #

1. 未获取选中列范围：原脚本直接遍历表格所有列，而非用户选中的列集合
2. 循环逻辑错误：使用repeat with i from 1 to the count of columns时，每次新增列会让表格总列数动态增加，导致循环无限执行直到超出Numbers列数上限
3. 添加列的目标错误：原代码用add column after last column，实际应该在当前遍历的列之后添加新列

修正后的脚本 #

-- Activate Numbers and get the current selection as a table
tell application "Numbers"
    activate
    try
        if not (exists document 1) then error number 1000
        tell document 1
            tell active sheet
                set selectedTable to first table whose class of selection range is range
                -- 获取选中的列范围，提取其中的列对象
                set selectedColumns to columns of selection range of selectedTable
                -- 倒序遍历选中列，避免新增列影响后续列的索引
                repeat with currentColumn in reverse of selectedColumns
                    tell currentColumn
                        add column after
                    end tell
                end repeat
            end tell
        end tell
    on error errorMessage number errorNumber
        if errorNumber is 1000 then
            set alertString to "MISSING RESOURCE"
            set errorMessage to "请先创建或打开一个文档再运行脚本。"
        else if errorNumber is 1001 then
            set alertString to "SELECTION ERROR"
            set errorMessage to "请先选中表格中的列范围再运行脚本。"
        else
            set alertString to "EXECUTION ERROR"
        end if
        if errorNumber is not -128 then
            display alert alertString message errorMessage buttons {"取消"}
        end if
        error number -128
    end try
end tell

关键改动说明 #

• 获取选中列集合：通过columns of selection range of selectedTable获取用户实际选中的列，而非遍历整个表格
• 倒序遍历：使用reverse of selectedColumns倒序处理选中列，避免新增列导致后续列的索引偏移（如果正序遍历，新增列会让后面的列索引变大，导致重复处理）
• 修正添加列命令：直接使用add column after（在当前列对象后添加新列），无需指定last column

内容的提问来源于stack exchange，提问作者Hoshi