Word VBAで本文部分のサイズを取得する

対象：Word2003, Word2007, Word2010

「word vba 本文枠サイズ取得」
という検索で、このサイト・インストラクターのネタ帳にアクセスした方がいらっしゃいました。

Word VBAで、文書の本文部分のサイズを取得する方法を探している方による検索です。

［スポンサードリンク］

本文の横幅を取得するサンプルマクロ

以下のSubプロシージャを実行すると、本文部分のサイズが（センチメートル単位で）メッセージボックスに表示されます。

Sub 本文の横幅を調べる()
　With ActiveDocument.PageSetup
　　MsgBox _
　　　　PointsToCentimeters _
　　　　(.PageWidth - .LeftMargin - .RightMargin)
　End With
End Sub

WordのVBAでは、PageSetupオブジェクトに、ページ設定に関する情報がプロパティとしてまとめられています。

PageSetupオブジェクトの、
　　PageWidthプロパティで用紙の横幅
　　LeftMarginプロパティでページの左端から本文の左端までの距離
　　RightMarginプロパティでページの右端から本文の右端までの距離
が、それぞれ取得できます。

用紙全体の幅から、本文の左端までと本文の右端までを引き算すれば本文部分のサイズがわかります。

PageWidth・LeftMargin・RightMarginはいずれも単位がポイントの値を返しますから、PointsToCentimetersメソッドで、単位をセンチメートルに変換しています。

　PointsToCentimeters _
　(.PageWidth - .LeftMargin - .RightMargin)

なお、本文の高さを調べたいのなら、PageWidth・LeftMargin・RightMarginのかわりに、PageHeight・TopMargin・BottomMarginプロパティを利用すればOKです。

最終更新日時：2020-12-30 04:20

［スポンサードリンク］

『インストラクターのネタ帳』では、2003年10月からMicrosoft Officeの使い方などを紹介し続けています。
図形を操作するExcel VBAの基本を解説したキンドル本を書きました↓↓

グラフを操作するExcel VBAの基本を解説したキンドル本も出しました↓↓

Excel VBAの経験がある方を対象に、Word VBAの基本をキンドル本としてまとめました↓↓

Excel VBAユーザーの方を対象として、Wordの表をVBAで操作する基礎をまとめました↓↓

日経BP社から出版された、Excel VBAユーザー向けのPython超入門書です↓↓

上記の『Excel VBAユーザーのためのPythonプログラミング』の、元になったキンドル本です↓↓

Pythonの文字列フォーマットの基本をキンドル本としてまとめました↓↓

小数とPythonのdecimalモジュールの基本をキンドル本としてまとめました↓↓

『インストラクターのネタ帳』を運営する伊藤潔人が、初めて書かせていただいた書籍です↓↓

PowerPoint VBA本は、実はオブジェクトブラウザーの使い方を徹底的に解説した本です↓↓

Pythonの外部ライブラリOpenPyXL（オープンパイエクセル）の入門書を、Excel VBAユーザーに向けに書きました↓↓

数式を使った条件付き書式設定が苦手な方に向けたKindle本を書きました↓↓

「ページ設定・PageSetup」の記事一覧