Note: The other languages of the website are Google-translated. Back to English

ヘッダーとフッターなしでWord文書を印刷する方法は? 

Word文書にヘッダーとフッターがある場合、この文書を印刷すると、デフォルトでヘッダーとフッターも印刷されます。 ただし、ヘッダーとフッターを印刷する必要がない場合もあります。 この場合、この記事の方法が役立つ場合があります。

VBAコードを使用してヘッダーとフッターなしでWord文書を印刷する


VBAコードを使用してヘッダーとフッターなしでWord文書を印刷する

ヘッダーとフッターなしでWordファイルを印刷するには、次のVBAコードを使用すると便利です。次のようにしてください。

1。 を押し続けます Alt + F11 キーを押して アプリケーション向け Microsoft Visual Basic 窓。

2。 次に、をクリックします インセット > モジュール、以下のコードをコピーして、開いた空白のモジュールに貼り付けます。

VBAコード:ヘッダーとフッターなしでWord文書を印刷します。

Sub PrintDocWithoutHeaderFooter()
    Call SetHeaderAndFooter(True)
    Options.PrintHiddenText = False
    Dialogs(wdDialogFilePrint).Show
    Call SetHeaderAndFooter(False)
End Sub
Sub SetHeaderAndFooter(xBool As Boolean)
    Dim xSel As Selection
    For Each s In ActiveDocument.Sections
        s.Headers(wdHeaderFooterEvenPages).Range.Font.Hidden = xBool
        s.Headers(wdHeaderFooterFirstPage).Range.Font.Hidden = xBool
        s.Headers(wdHeaderFooterPrimary).Range.Font.Hidden = xBool
        s.Footers(wdHeaderFooterEvenPages).Range.Font.Hidden = xBool
        s.Footers(wdHeaderFooterFirstPage).Range.Font.Hidden = xBool
        s.Footers(wdHeaderFooterPrimary).Range.Font.Hidden = xBool
    Next s
End Sub

3。 上記のコードを挿入した後、を押してください F5 キーを押して実行すると、[印刷]ダイアログボックスが表示されます。必要に応じて印刷設定を構成する必要があります。スクリーンショットを参照してください。

ヘッダーフッターなしのドキュメント印刷1

4。 次に、をクリックします OK 印刷を開始するには、ドキュメントはヘッダーとフッターなしで一度に印刷されます。


推奨される単語生産性ツール

 

Kutools For Word-100を超えるWordの高度な機能で50%の時間を節約

  • 複雑で繰り返される操作は、数秒でXNUMX回の処理で実行できます。
  • 複数の画像をフォルダ間でWord文書に一度に挿入します。
  • フォルダ間で複数のWordファイルをマージして、希望の順序でXNUMXつに結合します。
  • 見出し、セクション区切り、またはその他の基準に従って、現在のドキュメントを個別のドキュメントに分割します。
  • DocとDocx、DocxとPDFの間でファイルを変換し、一般的な変換と選択のためのツールのコレクションなど...