動作検証バージョン: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
With ActiveDocument.PageSetup
Debug.Print PointsToMillimeters(.FooterDistance)
End With
End Sub
サンプルマクロで行っている処理
PageSetupオブジェクトのFooterDistanceプロパティを使うと、
下からのフッター位置を取得できます。
以下のようなコードを実行すると、ポイント単位で下からのフッター位置がイミディエイトウィンドウに出力されます。
Debug.Print ActiveDocument.PageSetup.FooterDistance
ポイント単位よりミリメートル単位のほうがわかりやすいでしょうから、上記のマクロではPointsToMillimetersメソッドで
ミリメートルに変換した値を出力しています。
[スポンサードリンク]
- Newer:Word VBAでヘッダーのフィールドコードを取得する
- Older:Word VBAでフィールドコードを取得する
Home » ワードマクロ・Word VBAの使い方 » ページ設定・PageSetup » Word VBAで下からのフッター位置を取得する