如何修改Word VBA宏以用章节标题命名导出的PDF文件？

核心修改逻辑 #

1. 定位每个章节内样式为overskrift 1的标题文本
2. 清理标题中Windows文件名不允许的字符（如/:*?"<>|）
3. 用处理后的标题替换原代码中的序号作为PDF文件名

修改后的完整代码 #

Dim strName As String
strName = InputBox(Prompt:="Save To:", Title:="Save file to:", Default:=ActiveDocument.Path)

If strName = vbNullString Then
    Exit Sub
End If

Dim intSectionsNr As Integer
intSectionsNr = ActiveDocument.Sections.Count - 1

Dim intValue1 As Integer
Dim intValue2 As Integer
Dim intSection As Integer
Dim titre As String
Dim illegalChars As Variant
Dim char As Variant

' 定义Windows文件名禁止使用的字符
illegalChars = Array("\", "/", ":", "*", "?", """", "<", ">", "|")

For intSection = 1 To intSectionsNr
    intValue1 = ActiveDocument.Sections(intSection).Range.Information(wdActiveEndPageNumber) + 1
    intValue2 = ActiveDocument.Sections(intSection + 1).Range.Information(wdActiveEndPageNumber)
    
    ' 查找当前章节内的overskrift 1样式标题
    With ActiveDocument.Sections(intSection).Range.Find
        .ClearFormatting
        .Style = ActiveDocument.Styles("overskrift 1")
        .Execute Forward:=True
        If .Found Then
            titre = .Parent.Text
            ' 移除标题末尾的段落换行符
            titre = Left(titre, Len(titre) - 1)
            ' 替换所有非法字符为下划线
            For Each char In illegalChars
                titre = Replace(titre, char, "_")
            Next char
        Else
            ' 找不到标题时， fallback 到原序号命名
            titre = CStr(intSection)
        End If
    End With
    
    ActiveDocument.ExportAsFixedFormat OutputFileName:= _
        strName & "\" & titre & ".pdf", _
        ExportFormat:=wdExportFormatPDF, OpenAfterExport:=False, OptimizeFor:= _
        wdExportOptimizeForPrint, Range:=wdExportFromTo, From:=intValue1, To:=intValue2, Item:= _
        wdExportDocumentContent, IncludeDocProps:=False, KeepIRM:=True, _
        CreateBookmarks:=wdExportCreateNoBookmarks, DocStructureTags:=True, _
        BitmapMissingFonts:=True, UseISO19005_1:=True
        
Next intSection

关键修改说明 #

• 精准定位标题：通过Range.Find限定在当前章节范围内查找目标样式，避免跨章节匹配标题
• 文件名合法性处理：将非法字符统一替换为下划线，防止因文件名不符合系统规则导致保存失败
• 容错机制：若某章节无对应样式标题，自动切换为原序号命名，保证宏执行不中断

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