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

ワードマクロで、罫線を引く・罫線を消す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

マクロ実行前

罫線が引いてある状態です。

 

マクロ実行後

罫線を消しました。（文字列は消去されません。）

 
 

 
この記事がお役に立ちますと幸いです🍀
 
・【ワードマクロ】表の処理を自動化の使用例まとめ
 

【ワードマクロ】表の処理を自動化：超便利13選

...

kirinote.com

2021.11.26