Word VBA宏求助：段落边框转单元格边框代码无运行效果

原代码问题分析 #

1. 错误依赖Selection对象：遍历表格单元格时，Selection并不会自动指向当前处理的单元格内容，导致样式判断和修改操作完全偏离目标。
2. 条件判断语法错误：If Selection.Style = ActiveDocument.Styles("xxx") = True的写法不符合VBA语法，正确的比较方式是直接判断段落样式是否匹配目标样式。
3. 未处理单元格内多段落场景：单个单元格可能包含多个不同样式的段落，直接操作Cell对象会遗漏部分段落。
4. 混淆段落边框与单元格边框：原代码修改的是段落的底部边框，而非需求中的单元格底部边框。

修正后的代码 #

Sub AutoFormatTables2024()
    ' 将表格中带底部边框的特定段落样式替换为无段落底边框、带对应单元格底边框的样式
    Dim oTable As Table
    Dim oCell As Cell
    Dim oPara As Paragraph
    Dim targetStyle As Style
    Dim borderWidth As WdLineWidth
    
    ' 遍历文档中所有表格
    For Each oTable In ActiveDocument.Tables
        ' 遍历表格每个单元格
        For Each oCell In oTable.Range.Cells
            ' 遍历单元格内的每个段落（处理多段落场景）
            For Each oPara In oCell.Range.Paragraphs
                ' 根据段落样式判断处理逻辑
                Select Case oPara.Style.NameLocal
                    Case "_table figshead thin"
                        Set targetStyle = ActiveDocument.Styles("_table figshead")
                        borderWidth = wdLineWidth050pt
                    Case "_table figs thin"
                        Set targetStyle = ActiveDocument.Styles("_table figs")
                        borderWidth = wdLineWidth050pt
                    Case "_table figs thick"
                        Set targetStyle = ActiveDocument.Styles("_table figs")
                        borderWidth = wdLineWidth150pt
                    Case Else
                        ' 非目标样式，跳过
                        GoTo NextPara
                End Select
                
                ' 替换段落样式
                oPara.Style = targetStyle
                
                ' 清除段落的底部边框
                oPara.Borders(wdBorderBottom).LineStyle = wdLineStyleNone
                
                ' 设置单元格的底部边框
                With oCell.Borders(wdBorderBottom)
                    .LineStyle = Options.DefaultBorderLineStyle
                    .LineWidth = borderWidth
                    .Color = Options.DefaultBorderColor
                End With
                
NextPara:
            Next oPara
        Next oCell
        DoEvents ' 释放系统资源，避免假死
    Next oTable
    
    MsgBox "所有表格处理完成！"
End Sub

代码关键说明 #

• 遍历层级调整：增加了对单元格内Paragraphs的遍历，确保每个段落都被检查到。
• 使用Select Case简化判断：比多个ElseIf更清晰，便于后续扩展样式。
• 明确区分段落与单元格边框：先清除段落的底部边框，再设置单元格的对应宽度边框，符合需求。
• 避免Selection依赖：直接操作oPara和oCell对象，确保操作目标精准。

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