Home » ワードマクロ・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」
としてください。

関連語句
VBA, Visual Basic for Applications
[スポンサードリンク]

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

TrackBack:0

TrackBack URL
[スポンサードリンク]

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

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

検索

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

.