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で削除する

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

検索


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

.