Word 2016 VBA报错5941：按页拆分文档并从表格取文件名保存失败

嘿，这个错误‘5941’说白了就是你的代码在尝试访问一个不存在的对象——比如找不到指定的表格、单元格，或者分页的范围定位错了。结合你的需求（按页拆分，用每页表格单元格内容当文件名），我帮你修正了代码，同时解释下关键问题点：

修正后的完整代码 #

Sub splitter()
    Dim Counter As Long, totalPages As Long
    Dim Source As Document, Target As Document
    Dim cellText As String
    Dim illegalChars As Variant, char As Variant
    
    ' 初始化源文档
    Set Source = ActiveDocument
    ' 实时计算总页数（比内置属性更准确）
    totalPages = Source.ComputeStatistics(wdStatisticPages)
    Counter = 1
    
    ' 定义文件名非法字符
    illegalChars = Array("\", "/", ":", "*", "?", """", "<", ">", "|")
    
    ' 定位到文档开头
    Source.ActiveWindow.Selection.HomeKey Unit:=wdStory
    
    While Counter <= totalPages
        ' 定位到当前页的开头
        Source.ActiveWindow.Selection.GoTo What:=wdGoToPage, Which:=wdGoToAbsolute, Name:=Counter
        ' 选中当前整页内容
        Source.ActiveWindow.Selection.EndKey Unit:=wdStory, Extend:=wdExtend
        If Counter < totalPages Then
            Source.ActiveWindow.Selection.MoveUp Unit:=wdLine, Count:=1, Extend:=wdExtend
            Source.ActiveWindow.Selection.EndKey Unit:=wdLine, Extend:=wdExtend
        End If
        
        ' 创建新文档并粘贴内容
        Set Target = Documents.Add
        Source.ActiveWindow.Selection.Copy
        Target.Range.Paste
        
        ' 尝试获取当前页表格的指定单元格内容（这里假设是第1个表格的第1行第1列，可根据实际调整）
        On Error Resume Next
        cellText = Target.Tables(1).Cell(1, 1).Range.Text
        ' 去除单元格末尾的特殊标记（Word单元格自带的结束符）
        cellText = Left(cellText, Len(cellText) - 2)
        On Error GoTo 0
        
        ' 如果获取不到单元格内容，用默认文件名
        If cellText = "" Then
            cellText = "Page_" & Counter
        End If
        
        ' 替换文件名中的非法字符
        For Each char In illegalChars
            cellText = Replace(cellText, char, "_")
        Next char
        
        ' 保存新文档（请替换为你的目标路径）
        Target.SaveAs2 Filename:="C:\Your\Save\Path\" & cellText & ".docx", FileFormat:=wdFormatXMLDocument
        Target.Close SaveChanges:=wdDoNotSaveChanges
        
        Counter = Counter + 1
    Wend
    
    MsgBox "文档拆分完成！", vbInformation
End Sub

关键修改说明 #

• 替换页数获取方式：用Source.ComputeStatistics(wdStatisticPages)替代BuiltInDocumentProperties(wdPropertyPages)，前者是实时计算的页数，不会出现缓存导致的页数偏差，避免循环时访问超出范围的页。
• 精准定位每页内容：用Selection.GoTo定位到每页开头，然后正确选中整页内容，避免之前的选择范围错误导致后续操作找不到对象。
• 添加错误处理：用On Error Resume Next捕获读取表格单元格时的错误（比如某页没有表格），避免直接触发5941错误，同时设置默认文件名兜底。
• 处理非法文件名：Word文件名不能包含\/:*?"<>|这些字符，代码里会自动把这些字符替换成下划线，防止保存失败。
• 清理单元格文本：Word表格单元格的文本末尾会自带两个特殊字符（单元格结束符），用Left(cellText, Len(cellText)-2)去掉，避免文件名出现乱码。

注意事项 #

• 请把代码里的"C:\Your\Save\Path\"替换成你实际要保存文件的路径。
• 如果你的表格不是每页的第1个表格、第1行第1列，记得修改Target.Tables(1).Cell(1, 1)里的索引（比如Tables(2)表示第2个表格，Cell(2,3)表示第2行第3列）。

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