Home » ワードマクロ・Word VBAの使い方 » 表・テーブル » 表の列を削除するWordマクロ

表の列を削除するWordマクロ

対象:Word2007, Word2010, Word2013

「word vba 表 列削除」
という検索で、このサイト・インストラクターのネタ帳へのアクセスがありました。

表の列を削除するWordマクロ・VBA(Visual Basic for Applications)のコードを探している方による検索です。

「word vba 表 列削除」
という検索キーワードだけでは、どの表のどの列を削除したかったのか、まではわかりませんので、参考になりそうなマクロを2つご紹介しておきましょう。

[スポンサードリンク]

表の指定した列を削除するサンプルマクロ

以下のようなマクロで、アクティブな文書に含まれるすべての表から、2列目を削除することができます。


Sub 表の2列目を削除する()

 Dim tbl As Table

 For Each tbl In ActiveDocument.Tables
  tbl.Columns(2).Delete
 Next tbl

End Sub

アクティブ文書内の、すべてのTableにループを回して、
 For Each tbl In ActiveDocument.Tables

2つ目の列を削除しています。
  tbl.Columns(2).Delete

3列目を削除するなら、もちろん
  tbl.Columns(3).Delete
です。

表の一番右側の列・最後の列を削除するサンプルマクロ

以下のようなマクロで、アクティブ文書に含まれるすべての表から、一番右側・最後の列を削除することができます。


Sub 表の一番右側の列を削除する()

 Dim tbl As Table

 For Each tbl In ActiveDocument.Tables
  With tbl.Columns
   .Item(.Count).Delete
  End With
 Next tbl

End Sub

考え方は、先の2列目を削除するマクロと同じです。

最後の列を削除する場合、For Each~Next文の中は、
   tbl.Columns(tbl.Columns.Count).Delete
といったコードにする必要があります。
これを、With句を使ってスッキリさせたのが、
  With tbl.Columns
   .Item(.Count).Delete
  End With
です。

[スポンサードリンク]

Home » ワードマクロ・Word VBAの使い方 » 表・テーブル » 表の列を削除するWordマクロ

TrackBack:0

TrackBack URL

Home » ワードマクロ・Word VBAの使い方 » 表・テーブル » 表の列を削除するWordマクロ

「表・テーブル」の記事一覧

検索


Copyright © インストラクターのネタ帳 All Rights Reserved.

.