Headless LibreOffice：如何将Office文档拆分为多份单页文档？

完全可以实现，根据需求不同，有两种核心方案：导出为单页PDF/图片（快速简单），或者拆分出单页原格式文档（保留编辑能力），具体操作如下：

一、快速导出为单页PDF/图片 #

如果不需要保留原文档的编辑功能，仅需单页可读文件，直接用LibreOffice的--convert-to命令即可，无界面模式下直接运行：

1. 拆分PPTX为单页图片（PNG/JPG） #

# 导出为PNG，自动按页码生成文件（如input_1.png、input_2.png）
libreoffice --headless --convert-to png:impress_png_Export --outdir ./output_pages/ input.pptx

# 若需JPG格式，替换为：
libreoffice --headless --convert-to jpg:impress_jpg_Export --outdir ./output_pages/ input.pptx

2. 拆分DOCX/PPTX为单页PDF #

先导出完整PDF，再用PDF工具（如pdftk）拆分单页：

# 先导出完整PDF
libreoffice --headless --convert-to pdf --outdir ./temp/ input.docx
# 用pdftk拆分单页PDF
pdftk ./temp/input.pdf burst output ./output_pages/input_page_%02d.pdf

二、拆分出单页原格式文档（DOCX/PPTX） #

若需要保留原文档的编辑能力，需编写LibreOffice Basic宏，在无界面模式下调用宏执行拆分：

1. PPTX拆分单页PPTX #

创建宏文件（如SplitPPTX.bas）：

Sub SplitPPTX
    Dim oDoc As Object, oPages As Object, oPage As Object, oNewDoc As Object
    Dim i As Integer, sBasePath As String
    
    oDoc = ThisComponent
    oPages = oDoc.DrawPages
    sBasePath = Left(oDoc.getURL(), Len(oDoc.getURL()) - 5) ' 移除.pptx后缀
    
    For i = 0 To oPages.Count - 1
        ' 创建新演示文稿
        oNewDoc = StarDesktop.loadComponentFromURL("private:factory/simpress", "_blank", 0, Array())
        ' 复制当前页面到新文档
        oPage = oPages.getByIndex(i)
        oNewDoc.DrawPages.insertByIndex(0, oPage)
        ' 保存单页文档
        oNewDoc.storeAsURL(sBasePath & "_page" & (i+1) & ".pptx", Array())
        oNewDoc.close(True)
    Next i
    oDoc.close(True)
End Sub

无界面模式下运行宏：

libreoffice --headless --macro "SplitPPTX" input.pptx

2. DOCX拆分单页DOCX #

注意：Writer是流式文档，分页为动态计算，宏通过页面光标定位拆分：
创建宏文件（如SplitDOCX.bas）：

Sub SplitDOCX
    Dim oDoc As Object, oText As Object, oCursor As Object, oNewDoc As Object
    Dim i As Integer, sBasePath As String
    
    oDoc = ThisComponent
    oText = oDoc.Text
    oCursor = oText.createTextCursor()
    sBasePath = Left(oDoc.getURL(), Len(oDoc.getURL()) - 5) ' 移除.docx后缀
    
    For i = 1 To oDoc.CurrentController.PageCount
        ' 定位到当前页末尾
        oCursor.gotoPage(i, False)
        oCursor.gotoPage(i+1, True)
        oCursor.cut()
        
        ' 创建新文档并粘贴内容
        oNewDoc = StarDesktop.loadComponentFromURL("private:factory/swriter", "_blank", 0, Array())
        oNewDoc.Text.insertString(oNewDoc.Text.getEnd(), oCursor.String, False)
        ' 保存单页文档
        oNewDoc.storeAsURL(sBasePath & "_page" & i & ".docx", Array())
        oNewDoc.close(True)
        
        ' 恢复原文档内容
        oCursor.paste()
        oCursor.gotoStart(False)
    Next i
    oDoc.close(True)
End Sub

无界面模式下运行宏：

libreoffice --headless --macro "SplitDOCX" input.docx

三、批量处理脚本 #

若有大量文档，可写Shell脚本批量执行，示例：

# 批量处理所有PPTX，导出为单页PNG
for file in *.pptx; do
    libreoffice --headless --convert-to png:impress_png_Export --outdir ./all_pages/ "$file"
done

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