Home » ワードマクロ・Word VBAの使い方 » ページ設定・PageSetup » Word VBAで下からのフッター位置を取得する

Word VBAで下からのフッター位置を取得する

動作検証バージョン:Windows 11 Home + 64bit Word バージョン 2403(ビルド17425.20000クイック実行)ベータチャネル

「WordVBA 下からフッターの位置」
といった検索キーワードでアクセスがありました。

[スポンサードリンク]

下からのフッター位置とは

Wordでフッターをアクティブにすると表示される[ヘッダーとフッター]タブには、下図のような[下からのフッター位置]欄に、フッターが用紙の端からどれくらい離れているのかが表示されます。

同じ値が、[ページ設定]ダイアログボックス-[その他]タブの[ヘッダーとフッター]-[用紙の端からの距離]欄にも表示されています。

この値をWord VBAで取得するには、どのようなコードを書けばいいのかを調べていらしたのでしょうか。

下からのフッター位置を取得するサンプルマクロ

以下のWordマクロを実行すると、アクティブ文書の下からのフッター位置がイミディエイトウィンドウに出力されます。

Sub フッター位置を取得する()
 With ActiveDocument.PageSetup
  Debug.Print PointsToMillimeters(.FooterDistance)
 End With
End Sub

サンプルマクロで行っている処理

PageSetupオブジェクトのFooterDistanceプロパティを使うと、

下からのフッター位置を取得できます。

以下のようなコードを実行すると、ポイント単位で下からのフッター位置がイミディエイトウィンドウに出力されます。

Debug.Print ActiveDocument.PageSetup.FooterDistance

ポイント単位よりミリメートル単位のほうがわかりやすいでしょうから、上記のマクロではPointsToMillimetersメソッド

ミリメートルに変換した値を出力しています。

[スポンサードリンク]

Home » ワードマクロ・Word VBAの使い方 » ページ設定・PageSetup » Word VBAで下からのフッター位置を取得する

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

検索


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

.