文档起飞02|让AI帮你写出第一段Word宏

让AI帮你写出第一段Word宏

WPS文字也能跑VBA；从批量设置三线表开始，学会调试、保存和复用宏。

请为WPS文字（VBA）编写一段宏，命名为"全域三线表"，把活动文档中的全部表格批量设置为三线表，并自动设置表头和数据区的字体。处理范围：活动文档中的全部表格（包括正文、页眉页脚中的表格）；跳过嵌套表格。表格结构识别：1. 自动检测表头行数：遍历前两行，如果某行存在合并单元格（该行Cells.Count小于Columns.Count，或某个Cell.ColumnIndex与列序号不一致），则将该行判定为表头行。2. 如果前两行均未检测到合并单元格，默认表头为1行。3. 如果表总行数≤表头行数，强制表头行数=1。格式规则：1. 先清除表格全部边框（包括顶、底、左、右、横、竖、斜线）。2. 表格顶线：1.5磅（wdLineWidth150pt）黑色单实线。3. 表格底线：1.5磅（wdLineWidth150pt）黑色单实线。4. 表头下方线：0.75磅（wdLineWidth075pt）黑色单实线，作用于表头行及其下一行的顶边框。5. 表头字体：黑体、12磅（小四）、不加粗。6. 数据区字体：仿宋（中文）+ Times New Roman（英文）、12磅（小四）、不加粗。7. 不修改表格行列数量、合并关系、对齐方式和底纹。参数集中管理：把顶线/底线线宽（tbwidth）、中间线宽（midWidth）、颜色（mcolor）放在代码开头，方便按单位要求调整。调试与日志：1. 在立即窗口（Debug.Print）输出每张表的分析过程：表格序号、总行数、列数、每行文本摘要、合并单元格检测结果、最终判定的表头行数。2. 运行结束后弹窗（MsgBox）提示处理完成。验收标准：- 普通表格只保留顶线、表头下线和底线三条线。- 表头行字体变为黑体12磅，数据行字体变为仿宋12磅。- 表格文字、行列数、合并关系、底纹不变。- 重复运行不会叠加线条效果。- 含合并单元格的表头能被正确识别。

Sub 全域三线表()    Dim doc As Document    Dim mtable As Table    Dim i As Long, j As Long, cellID As Long    Dim nrowHeader As Integer    Dim hasMergedCells As Boolean    Dim currentCell As Cell    Dim rowText As String    Dim mcolor As Long    Dim tbwidth As Integer    Dim midWidth As Integer    ' 【可调参数区】按单位要求修改这三项即可    tbwidth = wdLineWidth150pt   ' 顶线/底线宽度    midWidth = wdLineWidth075pt   ' 表头下线宽度    mcolor = RGB(0, 0, 0)        ' 线条颜色：黑色    Set doc = ActiveDocument    For Each mtable In doc.Tables        ' ===== 自动检测表头行数 =====        Debug.Print "表格分析开始 ================"        Debug.Print "表格总行数: " & mtable.Rows.Count        Debug.Print "表格列数: " & mtable.Columns.Count        nrowHeader = 0        For i = 1 To mtable.Rows.Count            hasMergedCells = False            rowText = ""            ' 获取该行文本内容            For j = 1 To mtable.Columns.Count                On Error Resume Next                Set currentCell = mtable.Cell(i, j)                If Err.Number = 0 Then                    rowText = rowText & " | " & Trim(Replace(Replace(currentCell.Range.Text, vbCr, ""), vbLf, ""))                Else                    Err.Clear                    rowText = rowText & " | [合并单元格]"                End If            Next j            On Error GoTo 0            Debug.Print "分析第 " & i & " 行: " & Mid(rowText, 4)            ' 仅在前两行检测合并单元格            If i <= 2 Then                ' 方法1：检查行中单元格数量是否少于列数                On Error Resume Next                If mtable.Rows(i).Cells.Count < mtable.Columns.Count Then                    hasMergedCells = True                End If                On Error GoTo 0                ' 方法2：检查是否存在跨列合并                If Not hasMergedCells Then                    For j = 1 To mtable.Columns.Count - 1                        On Error Resume Next                        Set currentCell = mtable.Cell(i, j)                        If Err.Number = 0 Then                            If currentCell.ColumnIndex <> j Then                                hasMergedCells = True                                Exit For                            End If                        Else                            Err.Clear                            hasMergedCells = True                            Exit For                        End If                    Next j                End If            End If            ' 前两行有合并单元格则判定为表头            If i <= 2 And hasMergedCells Then                nrowHeader = nrowHeader + 1                Debug.Print "  → 判定为表头行"            ElseIf i > 2 Then                Debug.Print "  → 判定为数据行"                Exit For            Else                Debug.Print "  → 判定为数据行，停止检测"                Exit For            End If        Next i        If nrowHeader = 0 Then            nrowHeader = 1            Debug.Print "! 使用默认表头行数1"        End If        Debug.Print "最终判断表头行数: " & nrowHeader        Debug.Print "表格分析结束 ================"        ' ===== 清除全部边框 =====        With mtable            .Borders(wdBorderTop).LineStyle = wdLineStyleNone            .Borders(wdBorderLeft).LineStyle = wdLineStyleNone            .Borders(wdBorderBottom).LineStyle = wdLineStyleNone            .Borders(wdBorderRight).LineStyle = wdLineStyleNone            .Borders(wdBorderHorizontal).LineStyle = wdLineStyleNone            .Borders(wdBorderVertical).LineStyle = wdLineStyleNone            .Borders(wdBorderDiagonalDown).LineStyle = wdLineStyleNone            .Borders(wdBorderDiagonalUp).LineStyle = wdLineStyleNone        End With        ' ===== 设置字体 =====        For Each currentCell In mtable.Range.Cells            With currentCell.Range.Font                If currentCell.RowIndex <= nrowHeader Then                    .NameFarEast = "黑体"                    .NameAscii = "黑体"                    .Size = 12                    .Bold = False                Else                    .NameFarEast = "仿宋"                    .NameAscii = "Times New Roman"                    .Size = 12                    .Bold = False                End If            End With        Next currentCell        ' 安全检查：表总行数必须大于表头行数        If mtable.Rows.Count <= nrowHeader Then            Debug.Print "表总行数必须大于表头行数！已按照默认值1来设置。"            nrowHeader = 1        End If        ' ===== 设置表头下方线 =====        For cellID = 1 To mtable.Range.Cells.Count            With mtable.Range.Cells(cellID)                If .RowIndex <= nrowHeader + 1 Then                    With .Borders(wdBorderTop)                        .LineStyle = Options.DefaultBorderLineStyle                        .LineWidth = midWidth                        .Color = mcolor                    End With                ElseIf .RowIndex > nrowHeader + 1 Then                    Exit For                End If            End With        Next        ' ===== 设置顶线和底线 =====        With mtable.Borders(wdBorderBottom)            .LineStyle = Options.DefaultBorderLineStyle            .LineWidth = tbwidth            .Color = mcolor        End With        With mtable.Borders(wdBorderTop)            .LineStyle = Options.DefaultBorderLineStyle            .LineWidth = tbwidth            .Color = mcolor        End With    Next mtable    MsgBox "已完成所有表格的三线表格式设置！", vbInformationEnd Sub