Word文書のすべてのセクション区切りをすばやく削除する3つの方法

ワードソリューション 2025 年 9 月 28 日

この記事では、Word文書のすべてのセクション区切りをすばやく削除する3つの方法を紹介します。

セクション区切りは、Word文書に複数のセクションを作成するのに役立ちます。したがって、さまざまなセクションを独自のスタイルでフォーマットできます。また、ドキュメントにセクション区切りをすばやく挿入するための前回の記事は次のとおりです。 Word文書にセクション区切りをすばやく挿入する3つの方法

ただし、スタイルの変更、セクションの再分割など、ドキュメントを改訂することは非常に一般的です。特に、大きな調整を行う場合は、すべてのセクションの区切りを削除する必要があります。以下は、セクション区切りをバッチで削除するために利用できる3つの方法です。

方法1：ドキュメント内のすべてのセクション区切りを検索する

まず、「Ctrl + H」を押して、Wordの「検索と置換」ボックスを開きます。
次に、「Findwhat」テキストボックス内にカーソルを置きます。
その他のオプションを取得するには、[その他]ボタンをクリックしてください。
次に、「特別」をクリックし、メニューから「セクションブレーク」を選択します。次に、[検索する文字列]テキストボックスに「^ b」と表示されます。したがって、別の方法は、ステップ2の直後に「^ b」を入力することです。
最後に、「置換」ボックスを空白のままにして、「すべて置換」をクリックします。確認ボックスの「OK」をクリックします。

方法2：マクロを実行してXNUMXつのドキュメントのすべてのセクション区切りを削除する

これは、不要なセクション区切りをすべて取り除くための自動方法です。

まず、「Alt + F11」を押して、WordでVBAエディターを開きます。
次に、「通常」をクリックして新しいモジュールを作成します。
次に「挿入」をクリックし、「モジュール」を選択します。
次に、ダブルクリックしてモジュールを開きます。
右側のコーディングスペースに、次のコードを貼り付けます。

Sub DeleteAllSectionsInOneDoc()
  With Selection
    .HomeKey Unit:=wdStory
    With Selection.Find
      .ClearFormatting
      .Replacement.ClearFormatting
      .Text = "^b"
      .Replacement.Text = ""
      .Forward = True
      .Wrap = wdFindContinue
      .Format = False
      .MatchCase = False
      .MatchWholeWord = False
      .MatchWildcards = False
      .MatchSoundsLike = False
      .MatchAllWordForms = False
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
  End With
End Sub

最後に、「実行」をクリックします。

すべてのセクションの区切りがすぐに見つかります。

方法3：複数のドキュメントのすべてのセクション区切りを削除する

同様に、マクロをすばやく汚い方法で実行したい場合は、マクロを実行する必要があります。

何よりもまず、 tarXNUMXつのフォルダにドキュメントを取得します。
次に、方法2の手順でマクロをインストールします。
代わりに次のマクロを実行します。

Sub DeleteAllSectionBreaksInMultiDoc()
  Dim StrFolder As String
  Dim strFile As String
  Dim objDoc As Document
  Dim dlgFile As FileDialog
 
  Set dlgFile = Application.FileDialog(msoFileDialogFolderPicker)
 
  With dlgFile
    If .Show = -1 Then
      StrFolder = .SelectedItems(1) & "\"
    Else
      MsgBox "No folder is selected! Please select the target folder."
      Exit Sub
    End If
  End With
 
  strFile = Dir(StrFolder & "*.docx", vbNormal)
 
  While strFile <> ""
    Set objDoc = Documents.Open(FileName:=StrFolder & strFile)
 
    With Selection
      .HomeKey Unit:=wdStory
      With Selection.Find
        .ClearFormatting
        .Replacement.ClearFormatting
        .Text = "^b"
        .Replacement.Text = ""
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
      End With
      Selection.Find.Execute Replace:=wdReplaceAll
    End With
 
    objDoc.Save
    objDoc.Close
    strFile = Dir()
  Wend
End Sub

次に開いた「参照」ウィンドウで、ドキュメントを保存するフォルダを選択します。
最後になりましたが、「OK」をクリックしてください。

データ損失に備える

通常、良い操作習慣、幸運、そしてすべての祝福があれば、Wordで多くのことを達成できます。しかし、クラッシュはいつでもあなたを襲う可能性があります。したがって、定期的にドキュメントをバックアップすることが非常に重要です。手元にバックアップがあると、前に自信が持てるようになりますtarティン docx修正.

著者紹介：

Vera Chenは、のデータ復旧の専門家です。 DataNumen、Inc。は、以下を含むデータ復旧技術の世界的リーダーです。 xlsリカバリ and pdf ソフトウェア製品を修理します。詳細については、次のWebサイトをご覧ください。 WWW。datanumen.com