MS Access VBA格式化Word表格报错：集合请求的成员不存在

问题背景 #

接手他人开发的MS Access数据库，该程序可从数据源提取数据填充至Word模板。需优化表格格式，为每列设置固定宽度与对齐方式，但运行代码时在With .Columns(2)行触发错误：The requested member of the collection does not exist，且第1列操作正常、第2列报错。

错误原因 #

核心问题是误操作了Selection对象的Columns集合，而非表格本身的Columns集合：

• 执行.SelectCell后，Selection的范围被限定为单个单元格，此时.Columns仅返回该单元格所在的单列集合，而非整个表格的所有列。
• 依赖Selection操作极易因选中范围变化引发意外错误，直接操作Table对象才是可靠方案。

修正后的代码 #

Private Sub formatTable()
    Dim targetTable As Word.Table
    
    ' 获取当前选中区域所在的表格对象
    Set targetTable = m_objWord.Selection.Tables(1)
    
    ' 设置选中单元格的字体加粗（若需整行表头加粗，可改为 targetTable.Rows(1).Font.Bold = True）
    m_objWord.Selection.Font.Bold = True
    
    With targetTable
        ' 设置表格整体宽度属性
        .PreferredWidthType = wdPreferredWidthPercent
        .PreferredWidth = 97
        .Style = "Table Grid"
        
        ' 操作表格的Columns集合，设置每列的宽度与对齐方式
        With .Columns(1)
             .PreferredWidth = InchesToPoints(2.5)
             .Range.ParagraphFormat.Alignment = wdAlignParagraphLeft
        End With
            
        With .Columns(2)
             .PreferredWidth = InchesToPoints(2.25)
             .Range.ParagraphFormat.Alignment = wdAlignParagraphLeft
        End With
        
        With .Columns(3)
             .PreferredWidth = InchesToPoints(0.9)
             .Range.ParagraphFormat.Alignment = wdAlignParagraphCenter
        End With
             
        With .Columns(4)
             .PreferredWidth = InchesToPoints(1)
             .Range.ParagraphFormat.Alignment = wdAlignParagraphCenter
        End With
    End With
    
    Set targetTable = Nothing
End Sub

关键改动说明 #

• 新增targetTable变量直接绑定目标表格，所有格式操作均基于该对象，彻底摆脱对Selection的依赖。
• 将列操作移入表格的With块，确保访问的是整个表格的Columns集合，而非Selection的单列集合。
• 移除不必要的.Select操作，直接通过.Range.ParagraphFormat设置列内所有内容的对齐方式，代码更高效且避免选中范围变化的问题。
• 若需批量设置表头整行加粗，可替换原加粗代码为targetTable.Rows(1).Font.Bold = True。

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