Wordで見出し以外の段落を選択するにはどうすればよいですか？

Author: Amanda Li Last Modified: 2025-05-23

場合によっては、Word文書内のすべての見出し以外の段落を選択する必要があるかもしれません。一つずつ選択する代わりに、このチュートリアルでは、すべての非見出し段落を一度に選択するための2つの効率的な方法を紹介します。

Kutools for Wordを使用して見出し以外の段落を選択する

VBAを使用して見出し以外の段落を選択する

Wordのおすすめ生産性向上ツール

Kutools for Word: AI 🤖を統合し、100 以上の高度な機能で文書処理時間を50%短縮します。無料ダウンロード

Office Tab: ブラウザのようなタブをWord（およびその他のOfficeツール）に導入し、複数の文書間での移動を簡素化します。無料ダウンロード

Kutools for Wordを使用して見出し以外の段落を選択する

Kutools for Wordは、見出し以外の段落を選択する最も簡単な方法を提供します。インストール後、ワンクリックでタスクを完了できます。

Kutools for Wordについて、AI 🤖を搭載し、100 以上の便利な機能を提供して作業を簡素化します。

今すぐダウンロード

「Kutools」>「段落」>「見出し以外の段落を選択」をクリックします。

注: このツールを使用して、文書の一部を選択した後にその部分内のすべての見出し以外の段落を選択することもできます。

Kutools for Word は、作業を効率化し、文書処理スキルを向上させる究極の Word アドインです。今すぐ入手してください！

VBAを使用して見出し以外の段落を選択する

また、VBAを使用してすべての見出し以外の段落を選択することもできます。以下の手順に従ってください。

Alt + F11 を押して、Microsoft Visual Basic for Applications ウィンドウを開きます。

「挿入」タブの「モジュール」をクリックし、次のVBAコードをモジュールウィンドウにコピーして貼り付けます。

Sub SelectNonHeadingParagraphs()
Dim tempTable As Paragraph
Application.ScreenUpdating = False
ActiveDocument.DeleteAllEditableRanges wdEditorEveryone
For Each tempTable In ActiveDocument.Paragraphs
    If tempTable.Style <> ActiveDocument.Styles(wdStyleHeading1) Then
        tempTable.Range.Editors.Add wdEditorEveryone
    End If
Next
ActiveDocument.SelectAllEditableRanges wdEditorEveryone
ActiveDocument.DeleteAllEditableRanges wdEditorEveryone
Application.ScreenUpdating = True
End Sub