求助：实现Word文档拆分多份可变页数PDF的VBA解决方案

解决方案思路 #

直接根据输入的自定义页码区间（比如1-3,5-7,9），将对应内容导出为独立PDF，无需先生成Word再转换，同时支持非等页数的拆分需求。

改进后的VBA代码 #

Sub SplitWordToCustomPDF()
    Dim docOriginal As Document
    Dim strPageRanges As String
    Dim arrRanges() As String
    Dim i As Integer
    Dim startPage As Integer, endPage As Integer
    Dim strOutputPath As String
    Dim strBaseName As String
    
    Set docOriginal = ActiveDocument
    ' 获取文档基础文件名（不含扩展名）
    strBaseName = Left(docOriginal.FullName, Len(docOriginal.FullName) - Len(docOriginal.Name)) & Left(docOriginal.Name, Len(docOriginal.Name) - 4)
    
    ' 输入自定义页码区间，格式示例：1-3,5-7,9
    strPageRanges = InputBox("请输入要拆分的页码区间（用逗号分隔，单页直接写数字，范围用-连接）：" & vbCr & "示例：1-3,5-7,9", "自定义拆分PDF")
    If strPageRanges = "" Then Exit Sub
    
    ' 拆分区间数组
    arrRanges = Split(strPageRanges, ",")
    
    For i = LBound(arrRanges) To UBound(arrRanges)
        ' 处理单个区间
        If InStr(arrRanges(i), "-") > 0 Then
            startPage = CInt(Split(arrRanges(i), "-")(0))
            endPage = CInt(Split(arrRanges(i), "-")(1))
        Else
            startPage = CInt(arrRanges(i))
            endPage = startPage
        End If
        
        ' 导出PDF，文件名格式：原文件名_页码范围.pdf
        strOutputPath = strBaseName & "_" & arrRanges(i) & ".pdf"
        docOriginal.ExportAsFixedFormat _
            OutputFileName:=strOutputPath, _
            ExportFormat:=wdExportFormatPDF, _
            From:=startPage, _
            To:=endPage, _
            OpenAfterExport:=False, _
            OptimizeFor:=wdExportOptimizeForPrint
    Next i
    
    MsgBox "拆分完成！PDF已保存至原文档同目录。"
    Set docOriginal = Nothing
End Sub

使用步骤 #

1. 打开需要拆分的Word文档
2. 按Alt + F11打开VBA编辑器
3. 右键点击左侧的文档对象，选择插入 → 模块
4. 将上面的代码粘贴到模块窗口中
5. 按F5运行代码，或者回到Word界面，通过开发工具 → 宏找到SplitWordToCustomPDF并执行
6. 在弹出的输入框中填写你的页码区间，比如1-2,4,6-8，点击确定即可

关键说明 #

• 支持单页（如5）和连续页码范围（如3-6）混合输入，用逗号分隔
• PDF文件会保存在原Word文档的同一目录下，文件名格式为原文件名_页码范围.pdf
• 代码直接调用Word的PDF导出功能，无需中间生成Word文件，效率更高
• 避免了原代码中Cut和Paste的不稳定操作，直接基于原文档的页码范围导出

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