如何修改VBA代码实现按Word页脚命名拆分单页PDF？

以下是修改后的VBA代码，可实现将Word文档按指定页码范围拆分，并以对应页面的页脚内容作为PDF文件名，同时处理文件名非法字符避免保存失败：

Sub SplitWordToPDFByFooter()
    Dim startPage As Integer, endPage As Integer
    Dim currentPage As Integer
    Dim outputPath As String
    Dim footerText As String
    Dim validFileName As String
    Dim secNum As Integer
    
    ' 设置拆分的起止页码
    startPage = 1
    endPage = ActiveDocument.ComputeStatistics(wdStatisticPages) ' 默认为文档总页数，可手动修改
    
    ' 设置PDF输出路径（末尾需带反斜杠）
    outputPath = "C:\YourOutputFolder\"
    
    ' 检查输出路径是否存在，不存在则创建
    If Dir(outputPath, vbDirectory) = "" Then
        MkDir outputPath
    End If
    
    ' 遍历每页
    For currentPage = startPage To endPage
        ' 获取当前页面所在的节编号
        secNum = ActiveDocument.GoTo(What:=wdGoToPage, Name:=currentPage).Information(wdActiveEndSectionNumber)
        
        ' 提取当前页的主页脚文本
        footerText = ActiveDocument.Sections(secNum).Footers(wdHeaderFooterPrimary).Range.Text
        
        ' 清理页脚文本中的多余字符（换行、空格等）
        footerText = Trim(Replace(footerText, vbCr, ""))
        footerText = Trim(Replace(footerText, vbLf, ""))
        
        ' 替换文件名中不允许的字符
        validFileName = Replace(Replace(Replace(Replace(Replace(Replace(Replace(footerText, "\", ""), "/", ""), ":", ""), "*", ""), "?", ""), """", ""), "<", "")
        validFileName = Replace(validFileName, ">", "")
        validFileName = Replace(validFileName, "|", "")
        
        ' 防止文件名为空，若为空则用页码兜底
        If validFileName = "" Then
            validFileName = "Page_" & currentPage
        End If
        
        ' 导出当前页为PDF
        ActiveDocument.ExportAsFixedFormat _
            OutputFileName:=outputPath & validFileName & ".pdf", _
            ExportFormat:=wdExportFormatPDF, _
            OpenAfterExport:=False, _
            Range:=wdExportFromTo, _
            From:=currentPage, _
            To:=currentPage
    Next currentPage
    
    MsgBox "拆分完成！PDF文件已保存至：" & outputPath, vbInformation
End Sub

关键修改说明： #

• 提取页脚内容：通过Sections(secNum).Footers(wdHeaderFooterPrimary).Range.Text获取当前页面所在节的主页脚文本——因为Word的页脚按节设置，所以需要先定位当前页对应的节。
• 清理与格式化文件名：用Trim和替换操作去除页脚中的换行、空格，同时替换掉Windows文件名不允许的\/:*?"<>|字符，避免保存报错。
• 兜底机制：如果提取的页脚文本为空（比如某些页面无页脚），会自动用Page_页码作为文件名，确保文件能正常保存。

使用注意： #

1. 先修改代码中的startPage、endPage和outputPath参数，匹配你的需求。
2. 确保文档的页脚是主页脚（Primary Footer），如果使用的是其他类型页脚（如偶数页、首页），需将wdHeaderFooterPrimary改为对应的枚举值（如wdHeaderFooterEvenPages、wdHeaderFooterFirstPage）。

内容的提问来源于stack exchange，提问作者Ridwan Saputra idhonk