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

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

対象:Word2007, Word2010, Word2013

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

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

[スポンサードリンク]

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

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

Sub アクティブ文書のヘッダーをすべて削除する()
 Dim sec As Section
 Dim 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
 Dim hd_ft As HeaderFooter
 
 For Each sec In ActiveDocument.Sections
  For Each hd_ft In sec.Headers
   hd_ft.Range.Delete
  Next

  For Each hd_ft In sec.Footers
   hd_ft.Range.Delete
  Next
 Next sec
End Sub

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

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

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

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

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

最終更新日時:2022-09-22 13:30

[スポンサードリンク]

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

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

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

.