【ワードマクロ】罫線の太さ・色を変更：コピペで使えるコード

ワードマクロで、罫線の太さ・色を変更するVBAコードをご紹介します。

このページのマクロコードは、コピペで使えます。
ぜひ、お試しください！

罫線の太さを変更
罫線の色を変更

罫線の太さを変更

以下のWordVBAを実行すると、罫線の太さを 3pt に変更します。


Sub 罫線の太さを変更()
    
    Dim i As Long
    Dim TblCnt As Long
     
    'ファイル内にある表をカウント
    TblCnt = ActiveDocument.Tables.Count
     
    '全ての罫線をループ
    For i = 1 To TblCnt
    
        With ActiveDocument.Tables(i)
        
            .Borders.InsideLineWidth = wdLineWidth300pt
            .Borders.OutsideLineWidth = wdLineWidth300pt
        
        End With
     
    Next i
       
End Sub

マクロ実行前

罫線の太さは「0.5pt」に設定されている状態です。

マクロ実行後

ファイル内にあるすべての罫線の太さを「0.5pt」から「3pt」変更しました。

罫線の色を変更

以下のWordVBAを実行すると、
ワードファイル内にある、すべての罫線の色を黒から青に変更します。


Sub 罫線の色を変える()
     
    Dim i As Long
    Dim TblCnt As Long
      
    'ファイル内にある表をカウント
    TblCnt = ActiveDocument.Tables.Count
      
    '全ての表をループ
    For i = 1 To TblCnt
     
        With ActiveDocument.Tables(i)
         
　          '罫線の色を変更
            .Borders.InsideColor = 12611584
            .Borders.OutsideColor = 12611584
            
        End With
      
    Next i
        
End Sub