Question

我想创建一个循环遍历表格中每一行的宏并删除底部边框。

到目前为止，我有：

Sub Remove()

Set myTable = Selection.Tables(1)
    With myTable.Borders

Selection.Cells.Borders(wdBorderBottom) = wdLineStyleNone

    End With

End Sub

但它只适用于一行，必须选择它。如何将它应用于所有行？

Answer 1

您需要遍历表格中的所有行，并将每行底部边框格式化为wdLineStyleNone。

<强>代码

尝试以下代码：

Sub Remove()

Dim myTable As Table
Dim r As Variant

Set myTable = ThisDocument.Tables(1)

For Each r In myTable.Rows ' <-- loop through all rows in table
    r.Borders(wdBorderBottom) = wdLineStyleNone
Next r

End Sub

Word宏从每行删除底部边框

1 个答案: