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

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

動作検証バージョン:64bit Windows 10 Pro + 32bit Word(バージョン2007 ビルド13029.20344 Microsoft Store)

「ワードの表の中の表を削除しあい」
という検索キーワードでアクセスがありました。

Wordで、表の中の表を削除したいということでしょうか。

[スポンサードリンク]

表の中に表がたくさんあるときに、手作業で削除するのは、なかなか面倒に思えますので、Wordマクロを作ってみました。

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

以下のSubプロシージャを実行すると、アクティブ文書の、表の中の表がすべて削除されます。

Sub 表の中の表を削除する()
 Dim tbl As Table
 For Each tbl In ActiveDocument.Tables

  Dim tbl_inside As Table
  For Each tbl_inside In tbl.Tables
    tbl_inside.Delete
  Next tbl_inside

 Next tbl
End Sub

表の中の表を削除するマクロで行っている処理

アクティブ文書に含まれる表に対するFor Each~Nextループの中で、
  Dim tbl As Table
  For Each tbl In ActiveDocument.Tables

表の中の表に対してFor Each~Nextループを回して、
   Dim tbl_inside As Table
   For Each tbl_inside In tbl.Tables

Tableオブジェクトに用意されているDeleteメソッドで削除を行っています。
    tbl_inside.Delete

[スポンサードリンク]

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

TrackBack:0

TrackBack URL

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

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

検索


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

.