【Word VBA/マクロ】表の罫線の太さ変更

サンプルコードできること

文書内すべての表の罫線0.5ptを0.75ptに変更します。

Sub 罫線の太さ変更()
    Dim bd As Border
    Dim tbl As Table
    Dim cel As Cell
    Application.ScreenUpdating = False
    For Each tbl In ActiveDocument.Tables
        For Each cel In tbl.Range.Cells
            For Each bd In cel.Borders
                With bd
                    If .LineWidth = wdLineWidth050pt Then
                        .LineWidth = wdLineWidth075pt
                    End If
                End With
            Next
        Next
    Next
    Application.ScreenUpdating = True
End Sub

コードの説明

For Eachを3つ用いて、表ごと、セルごと、セル内の罫線ごとに処理しています。