给Word表格添加列时触发运行时错误5941的技术咨询

报错原因 #

你遇到的运行时错误'5941'，是因为文档中存在列数不足6列的表格。代码里myTable.Columns.Add BeforeColumn:=myTable.Columns(6)指定要在第6列前插入新列，但当表格列数<6时，myTable.Columns(6)这个成员不存在，直接触发错误。

修正后的代码 #

你的需求是在每个表格末尾添加一列，根本不需要指定BeforeColumn参数——Word的Columns.Add方法默认就会把新列添加到表格的最后一列之后。同时补充变量声明规范，避免潜在问题：

Option Explicit

Sub addColumn()
    ' 批量在每个表格末尾添加一列
    Application.Templates.LoadBuildingBlocks
    
    Dim myDoc As Document
    Set myDoc = Word.ActiveDocument
    
    Dim myTable As Table
    Dim i As Integer
    
    ' 反向循环更安全（避免集合变更时的索引问题，这里表格数量不变，正向也可，但反向是好习惯）
    For i = myDoc.Tables.Count To 1 Step -1
        Set myTable = myDoc.Tables(i)
        ' 直接添加，默认追加到末尾
        myTable.Columns.Add
    Next i
End Sub

额外说明 #

• 如果确实需要在指定列前插入（比如不是末尾），必须先判断表格的列数是否足够：

  ' 示例：仅当表格列数≥6时，在第6列前插入
  If myTable.Columns.Count >= 6 Then
      myTable.Columns.Add BeforeColumn:=myTable.Columns(6)
  End If
  

• 加上Option Explicit可以强制变量声明，避免因拼写错误导致的隐性bug，建议所有VBA模块开头都加上。

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