取得」といった検索で、このサイト・インストラクターのネタ帳へのアクセスが時折あります。Applications)のコードを探している方による検索です。この検索キーワードだけでは、具体的にどうしたかったのかがわかりませんので、参考になりそうなシンプルなマクロをご紹介しておきます。[スポンサードリンク]ページ数・ページ番号を取得するサンプルマクロ以下のようなコードで、カーソルのある位置のページ番号と、文書の総ページ数を取得することができます。総ページ数は「3」です。いうメッセージが表示されます。サンプルマクロの解説SelectionオブジェクトのInformationプロパティを使って、ページ番号やページ数を取得しています。Informationプロパティは、指定された引数によってさまざまな情報を返してきます。定数・wdActiveEndPageNumberを指定するとカーソルのある位置のページ番号を定数・wdNumberOfPagesInDocumentを指定すると総ページ数を返します。Informationプロパティに指定できる定数は一覧にしてご紹介していますので、よろしければご参照ください。総ページ数だけを取得するなお、Informationプロパティは、オブジェクトブラウザで確認してみると、Selectionオブジェクトの他、Rangeオブジェクトも持っていることがわかります。SubというようなマクロでもOKです。オブジェクト式解説編』を開催します。Officeの使い方などを紹介し続け(2012年頃からはVBA関連記事が多め)、毎日5万人の方にご覧いただいています。