使用Applescript将PDF文件转换为CSV、Excel或Numbers格式

-- 将PDF文件转换为CSV格式
on pdfToCsv(pdfPath, csvPath)
    tell application "Preview"
        open pdfPath
        tell application "System Events"
            keystroke "a" using command down -- 选择整个PDF内容
            keystroke "c" using command down -- 复制选中内容
        end tell
        close window 1
    end tell
    
    tell application "Numbers"
        activate
        tell application "System Events"
            keystroke "n" using command down -- 创建新的Numbers文档
            keystroke "v" using command down -- 粘贴复制的内容
            keystroke "s" using command down -- 保存文档
            keystroke csvPath & ".csv" & return -- 设置保存路径和文件名
            keystroke return -- 确认保存
        end tell
    end tell
end pdfToCsv

-- 将PDF文件转换为Excel格式
on pdfToExcel(pdfPath, excelPath)
    tell application "Preview"
        open pdfPath
        tell application "System Events"
            keystroke "a" using command down -- 选择整个PDF内容
            keystroke "c" using command down -- 复制选中内容
        end tell
        close window 1
    end tell
    
    tell application "Microsoft Excel"
        activate
        tell application "System Events"
            keystroke "n" using command down -- 创建新的Excel文档
            keystroke "v" using command down -- 粘贴复制的内容
            keystroke "s" using command down -- 保存文档
            keystroke excelPath & ".xlsx" & return -- 设置保存路径和文件名
            keystroke return -- 确认保存
        end tell
    end tell
end pdfToExcel

-- 将PDF文件转换为Numbers格式
on pdfToNumbers(pdfPath, numbersPath)
    tell application "Preview"
        open pdfPath
        tell application "System Events"
            keystroke "a" using command down -- 选择整个PDF内容
            keystroke "c" using command down -- 复制选中内容
        end tell
        close window 1
    end tell
    
    tell application "Numbers"
        activate
        tell application "System Events"
            keystroke "n" using command down -- 创建新的Numbers文档
            keystroke "v" using command down -- 粘贴复制的内容
            keystroke "s" using command down -- 保存文档
            keystroke numbersPath & ".numbers" & return -- 设置保存路径和文件名
            keystroke return -- 确认保存
        end tell
    end tell
end pdfToNumbers

-- 使用示例
set pdfFilePath to "/Users/username/Documents/example.pdf"
set csvFilePath to "/Users/username/Documents/example"
set excelFilePath to "/Users/username/Documents/example"
set numbersFilePath to "/Users/username/Documents/example"

pdfToCsv(pdfFilePath, csvFilePath)
pdfToExcel(pdfFilePath, excelFilePath)
pdfToNumbers(pdfFilePath, numbersFilePath)