Home » ワードマクロ・Word VBAの使い方 » ページ設定・PageSetup » Word VBAで本文部分のサイズを取得する

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

［スポンサードリンク］

Home » ワードマクロ・Word VBAの使い方 » ページ設定・PageSetup » Word VBAで本文部分のサイズを取得する

『インストラクターのネタ帳』では、2003年10月からMicrosoft Officeの使い方などを紹介し続けています。
日経BP社から出版された、Excel VBAユーザー向けのPython超入門書です↓↓ 上記の『Excel VBAユーザーのためのPythonプログラミング』の元になったキンドル本です↓↓ グラフを操作するExcel VBAの基本を解説したキンドル本です↓↓ 図形を操作するExcel VBAの基本を解説したキンドル本を出しました↓↓ 数式を使った条件付き書式設定が苦手な方に向けたKindle本を書きました↓↓ Pythonの文字列フォーマットの基本をキンドル本としてまとめました↓↓ 小数とPythonのdecimalモジュールの基本をキンドル本としてまとめました↓↓ Pythonの外部ライブラリOpenPyXL（オープンパイエクセル）の入門書を、Excel VBAユーザーに向けに書きました↓↓ 『インストラクターのネタ帳』を運営する伊藤潔人が、初めて書かせていただいた書籍です↓↓ PowerPoint VBA本は、実はオブジェクトブラウザーの使い方を徹底的に解説した本です↓↓ Excel VBAユーザーを対象に、Wordの表をVBAで操作する基礎をまとめました↓↓ Excel VBAユーザーの方を対象として、Word VBAの基本をキンドル本としてまとめました↓↓



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

検索


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

.