【ワードマクロ】表の罫線を引く・消す：コピペで使えるコード

ワードマクロで、罫線を引く・罫線を消すVBAコードをご紹介します。

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

表の罫線を引く
表の罫線を消す

表の罫線を引く

以下のWordVBAを実行すると、5行 × 4 列の罫線を引きます。


Sub 罫線を引く()
 
  Dim MyRange As Range
     
  ActiveDocument.Tables.Add Range:= _
  Selection.Range, NumRows:=5, NumColumns:=4
                 
  ActiveDocument.Tables(1).Style = "表 (格子)"
 
End Sub

マクロ実行後

5行 × 4 列の罫線を入れました。

VBAコードの解説

[NumRows:=5] は、
罫線を引く行数を「5行」に指定しています。

[NumColumns] は、
罫線を引く列数を「4列」に指定しています。

表の罫線を消す

以下のWordVBAを実行すると、すべての罫線を消去します。


Sub 表の罫線を消去()
  
  Dim i As Long
  Dim TblCnt As Long
  
  Application.ScreenUpdating = False
   
  'ファイル内にある表をカウント
  TblCnt = ActiveDocument.Tables.Count
   
  '全ての表をループ
  For i = 1 To TblCnt
    With ActiveDocument.Tables(i)
        .Borders(wdBorderLeft).LineStyle = wdLineStyleNone
        .Borders(wdBorderRight).LineStyle = wdLineStyleNone
        .Borders(wdBorderTop).LineStyle = wdLineStyleNone
        .Borders(wdBorderBottom).LineStyle = wdLineStyleNone
        .Borders(wdBorderHorizontal).LineStyle = wdLineStyleNone
        .Borders(wdBorderVertical).LineStyle = wdLineStyleNone
        .Borders(wdBorderDiagonalDown).LineStyle = wdLineStyleNone
        .Borders(wdBorderDiagonalUp).LineStyle = wdLineStyleNone
    End With
  Next i
  
  Application.ScreenUpdating = True
  
End Sub