Word VBAでヘッダー編集モードにする

動作検証バージョン：Windows 11 Home + 64bit Word バージョン 2403（ビルド17404.20000クイック実行）ベータチャネル

「word vba ヘッダー編集モード」
といった検索キーワードでアクセスがありました。

Word VBAを使って、Wordの表示状態をヘッダーの編集モードにするには、どのようなコードを書けばいいのか探していらしたのでしょうか。

正直なところ、Word VBAでヘッダーを編集するのならばヘッダー編集モードにするのではなく、ヘッダーのRangeオブジェクトを操作するほうがイイだろうと私は思います。
ただ、ヘッダー編集モードにしたいというニーズも、あるのでしょう。

［スポンサードリンク］

ヘッダー編集モードにするサンプルプロシージャ

以下のSubプロシージャを実行すると、アクティブなページがヘッダー編集モードで表示されます。

Sub ヘッダー編集モードにする()
　With ActiveWindow.View
　　.Type = wdPrintView
　　.SeekView = wdSeekCurrentPageHeader
　End With
End Sub

WdSeekView列挙型に定義されている定数wdSeekCurrentPageHeader（実際の値は9）を指定すると、

ヘッダー編集モードになります。

ただし、元の表示状態が、
　　閲覧モード
　　Webレイアウトモード
　　アウトラインモード
　　下書きモード
といった［印刷レイアウト］ではないときに、

ActiveWindow.View.SeekView = wdSeekCurrentPageHeader

を実行すると、「実行時エラー'5894': コマンドは、印刷レイアウトモードでのみ実行できます。」エラーが発生します。そのため事前に表示モードを変更する、

ActiveWindow.View.Type = wdPrintView

を実行して、印刷レイアウトモードにしています。

逆にヘッダー編集モードを抜けて、通常のモードにするには、

ActiveWindow.View.SeekView = wdSeekMainDocument

を実行してください。

ヘッダー編集モードにする際に利用したView.SeekViewプロパティに、定数wdSeekMainDocument（実際の値は0）を指定すれば、

ヘッダー編集モードを抜けられます。

最終更新日時：2024-02-27 06:39

［スポンサードリンク］

『インストラクターのネタ帳』では、2003年10月から平日のほぼ毎日、Microsoft Officeの使い方などを紹介し続けています。
Pythonの外部ライブラリOpenPyXL（オープンパイエクセル）の入門書を、Excel VBAユーザーに向けに書きました↓↓

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

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

図形を操作するExcel VBAの基本を解説したキンドル本を出しました↓↓

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

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

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

Excel VBAユーザーを対象とした、Word VBAの入門書をキンドル本として出しました↓↓

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

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

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

3年前(2021年4月)の
人気記事

「ヘッダー＆フッター」の記事一覧