Home » ワードマクロ・Word VBAの使い方 » ヘッダー＆フッター » ヘッダー＆フッターをWord VBAで削除する

ヘッダー＆フッターをWord VBAで削除する

対象：Word2007, Word2010, Word2013

「word マクロ all header 削除」
「word vba ヘッダークリア」
「wordvba フッター解除」
といった検索で、このサイト・インストラクターのネタ帳へのアクセスがあります。

ヘッダーやフッターを削除する、Word VBAのコード、Wordマクロを探している方による検索です。

［スポンサードリンク］

アクティブ文書のヘッダーを削除するサンプルマクロ

以下のようなマクロで、アクティブな文書の、すべてのヘッダーを削除することができます。

Sub アクティブ文書のヘッダーをすべて削除する()
　Dim sec As Section,　hdr As HeaderFooter
　For Each sec In ActiveDocument.Sections
　　For Each hdr In sec.Headers
　　　hdr.Range.Delete
　　Next
　Next sec
End Sub

アクティブな文書の、すべてのセクションにループを回して、
　For Each sec In ActiveDocument.Sections

各セクション内の全ヘッダーにループを回して、
　　For Each hdr In sec.Headers

ヘッダーのRangeオブジェクトを削除しています。
　　　hdr.Range.Delete

アクティブ文書のヘッダー＆フッターを削除するサンプルマクロ

以下のようなマクロにすれば、アクティブな文書の、ヘッダーとフッターをすべて削除できます。

Sub アクティブ文書のヘッダーフッターをすべて削除する()
　Dim sec As Section
　For Each sec In ActiveDocument.Sections

　　Dim hdr As HeaderFooter
　　For Each hdr In sec.Headers
　　　hdr.Range.Delete
　　Next hdr

　　Dim ftr As HeaderFooter
　　For Each ftr In sec.Footers
　　　ftr.Range.Delete
　　Next ftr

　Next sec
End Sub

アクティブな文書の全セクションにループを回して、
　For Each sec In ActiveDocument.Sections

各セクションの全ヘッダーにループを回して、
　　For Each hdr In sec.Headers

ヘッダーを削除して、
　　　hdr.Range.Delete

各セクションの全フッターにループを回して、
　　For Each ftr In sec.Footers

フッターを削除しています。
　　　ftr.Range.Delete

最終更新日時：2024-04-15 15:10

［スポンサードリンク］

Home » ワードマクロ・Word VBAの使い方 » ヘッダー＆フッター » ヘッダー＆フッターをWord VBAで削除する

『インストラクターのネタ帳』では、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月)の
人気記事

1位:Windows 10で手書き入力するIMEパッドを表示するには
2位:IF関数で○○以上××以下という条件を指定する
3位:右から（後から・末尾から）n文字を削除したい
4位:IF関数で空白なら空白にする
5位:COUNTIF関数で「○○以上」「○○以下」の指定
6位:IF関数で空白でない場合・空白でなければの書き方
7位:左から（前から・先頭から）n文字削除する方法

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