VBA Wordに改ページを挿入 Chr(12)

今回やりたいこと

画像の入った Word ファイルがある。
常に画像がページの先頭にくるようにしたい。

そうするには、画像の前に改ページを入れたらいい。

最もシンプルな答え

改ページは Chr(12) の文字で表せる。
画像のRangeを取得して、改ページを InsertBefore で直前に挿入する。

コード

Public Sub 今回の処理()
	Dim o図形 As InlineShape
	For Each o図形 In ActiveDocument.InlineShapes '全ての画像について
		o図形.Range.InsertBefore Chr(12) '前に改ページを挿入
	Next
End Sub