要实现插入新表格时自动应用自定义的Table段落样式，无需手动操作，可以通过文档级的WindowSelectionChange事件监控选择变化，自动识别表格并批量应用样式。以下是具体实现思路和代码：

核心思路 #

利用Word的WindowSelectionChange事件实时监控用户的选择区域：

1. 用户插入表格后，选择会自动定位到表格内部，此时触发事件
2. 判断当前选择是否位于表格内，获取目标表格
3. 遍历表格所有段落，为未应用Table样式的段落批量设置样式

具体实现步骤 #

1. 打开VBA编辑器：按下Alt + F11组合键
2. 在左侧项目窗格中双击ThisDocument对象
3. 在顶部的对象下拉框选择Document，事件下拉框选择WindowSelectionChange
4. 粘贴以下代码：

' 模块级变量，记录上次处理的表格ID，避免重复触发
Private lastProcessedTableID As Long

Private Sub Document_WindowSelectionChange(ByVal Sel As Selection)
    Dim targetTable As Table
    Dim tablePara As Paragraph
    
    ' 仅当选择位于表格内时执行逻辑
    If Sel.Information(wdWithInTable) Then
        Set targetTable = Sel.Tables(1)
        
        ' 跳过已处理过的表格，提升效率
        If targetTable.ID <> lastProcessedTableID Then
            ' 遍历表格所有段落，应用自定义样式
            For Each tablePara In targetTable.Range.Paragraphs
                ' 仅对未应用目标样式的段落修改，避免重复操作
                If tablePara.Style <> "Table" Then
                    ' 加入错误处理，防止样式不存在时报错
                    On Error Resume Next
                    tablePara.Style = "Table"
                    On Error GoTo 0
                End If
            Next tablePara
            
            ' 更新已处理表格ID
            lastProcessedTableID = targetTable.ID
        End If
    End If
End Sub

优化说明 #

• 避免重复触发：通过记录表格的ID属性，确保每个表格只被处理一次，不会因为用户在表格内切换选择重复执行样式设置
• 错误防护：加入On Error语句，防止自定义Table样式不存在时代码崩溃
• 效率提升：仅对未应用目标样式的段落进行修改，减少不必要的操作

扩展：应用级全局生效（可选） #

如果需要所有Word文档都自动生效，可以创建Word加载项，使用Application.WindowSelectionChange事件，逻辑和上述代码一致，只需将代码放在ThisAddIn模块中，并确保加载项随Word启动。

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