【Word VBA】特定ページの特定行に、改ページを挿入したい

Question

実現したいこと

Wordにて、特定ページの特定行に、改ページを挿入したいのですが、
改ページはRange.InsertBreak Type:=wdPageBreakと記入するため、

ページと行の情報からRange情報を取得できず、どのように改ページを挿入すればよいか悩んでおります。

どなたか解決法をお教えください。
よろしくお願いします。

補足情報（FW/ツールのバージョンなど）

Windows11
Word2019

Comments

[otn]

「10ページ目の3行目」とかいうことですか？

[netz-eng]

そうですね。
改ページしたいページ番号と行番号はあらかじめわかっているのですが、
そこに改ページを挿入する方法がわからない状況です。

Answer 1

ページ番号、行番号を指定してSelection.GoToメソッドでカーソル位置を移動したあと、そこに改ページを挿入する方法で、自己解決とさせていただきます。

できればカーソル位置は移動させたくなかったのですが、自分の力量ではこれ以上どうしようもなく。

'改ページを挿入したいページ番号
Dim p as integer

'改ページを挿入したい行番号
Dim l as integer

Selection.GoTo wdGoToPage, wdGoToAbsolute, p
Selection.GoTo wdGoToLine, wdGoToAbsolute, l
Selection.InsertBreak Type:=wdPageBreak

Answer 2

前から順番に見ていくくらいですかね。
RangeのInformation(引数は下記)でページ番号や行番号がわかります。
https://docs.microsoft.com/ja-jp/office/vba/api/word.wdinformation

ActiveDocument.Paragraphs(i).Range.Information(～～)を1からParagraphs.Countまで順番に見る。

Comments

[netz-eng]

ご回答ありがとうございます。

ご提案いただいた方法では、長い文書の場合かなり冗長な処理になるように思いました。
試行錯誤した結果、GoToメソッドでカーソル位置を移動させ、Selection.InsertBreakで改ページを挿入する方法がより効率がよさそうです。

早々にご回答いただいたにもかかわらず、自己解決となってしまい申し訳ありません。