各行から下の境界線を削除するWordマクロ

Question

テーブルの各行をループし、下の境界線を削除するマクロを作成したいと思います。

Sub Remove() 

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

Selection.Cells.Borders(wdBorderBottom) = wdLineStyleNone 

    End With 

End Sub 

をしかし、それだけで1行のために働く、それが選択する必要があります。

は、これまでのところ私が持っています。 すべての行にどのように適用するのですか？

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