【ワードマクロ】罫線を消す：基本をざっくり解説するよ

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

次のような作業でお困りはありませんか？

・罫線を一括で消したい
・罫線を入れている箇所がたくさんあるので手作業は面倒

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

表の罫線を消す

以下の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