Home » ワードマクロ・Word VBAの使い方 » 段落・パラグラフ » Word VBAでカーソルが何番目の段落かを調べる

Word VBAでカーソルが何番目の段落かを調べる

対象:Word2003, Word2007, Word2010

現在のカーソル位置の段落番号を取得するマクロ」という記事が公開されています。

現在カーソルのある段落が、文書中でいくつ目・何番目の段落なのかを調べるマクロです。

新田さんは解説用に、複数行に分けたコードをご紹介してらっしゃいますが、勿論1行のコードにしてしまうことも可能です。

Sub カーソルのある段落が何番目の段落かを調べる()
 MsgBox _
  ActiveDocument.Range(0, Selection.End).Paragraphs.Count
End Sub

ポイントは「Range(0, Selection.End)」の部分です。

「0」(先頭)から、「Selection.End」(現在のカーソル位置 ≒ 選択範囲の最後)のRangeオブジェクトを取得して、ParagraphsコレクションのCountプロパティを取得しています。

何らかの文字列が選択されているときに、選択範囲の先頭をカーソル位置とするのなら、Rangeの第2引数を「End」ではなく「Start」にして
  ActiveDocument.Range(0, Selection.Start).Paragraphs.Count
としてください。

最終更新日時:2022-01-12 14:55

[スポンサードリンク]

Home » ワードマクロ・Word VBAの使い方 » 段落・パラグラフ » Word VBAでカーソルが何番目の段落かを調べる

「段落・パラグラフ」の記事一覧

検索


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

.