【Word VBA】表の直後に改行記号を挿入する

自分の覚え書きのマクロです。

このマクロでできること

本文中の表の直後に改行記号を挿入します。

マクロの解説

オブジェクト変数として、myTableに表を設定します。

For Each … Next ステートメントを用いて、本文中の表すべてに対して処理をします。

表に直接改行を入れようとしてもうまくいきませんでした。

一度、Rangeオブジェクトとしてから、このRangeオブジェクトの最後の部分に改行を入れます。

マクロ

Sub 表の直後に改行記号を挿入()

　Dim myTable As Table
　Dim myRange As Range
　
　For Each myTable In ActiveDocument.Tables
　　Set myRange = myTable.Range
　　myRange.Collapse Direction:=wdCollapseEnd
　　myRange.InsertParagraphAfter
　Next myTable
　
　Set myTable = Nothing
　Set myRange = Nothing
　
End Sub