動作検証バージョン: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
End 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
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マクロ