Word文書の不要な改ページを削除する4つの簡単な方法

この記事では、Word文書内の不要な改ページを削除するための4つの簡単な方法をご紹介します。

Wordはページを移動する際に自動的に改ページを挿入します。また、テキスト範囲の末尾に手動で改ページを挿入することもできます。そうすると、次のページの先頭からテキストが開始されます。手動で改ページを挿入する方法については、こちらの記事を参照してください。 改ページをWord文書にすばやく挿入する5つの方法

ただし、自動改ページは表示されないため、手動で削除できないことを理解する必要があります。 しかし、挿入された手動改ページはそうです。 したがって、この記事では主に、Word文書の不要な手動改ページを削除するための便利なアプローチを提供します。   

方法1：改ページを手動で削除する

1. まず、[ホーム]タブの[表示/非表示]コマンドをクリックして、ドキュメント内のすべての非表示のマークと記号を表示し、改ページを表示できるようにする必要があります。
2. 次に、改ページを選択し、「削除」を押して改ページを削除します。
3. または、改ページの左側をクリックして、[削除]を押すこともできます。

方法2：「検索と置換」機能を使用する

1. まず、「Ctrl + H」を押して、「検索と置換」ボックスをトリガーします。
2. 次に、[検索する文字列]テキストボックス内にカーソルを置き、[その他]タブをクリックします。
3. 次に、「特別」をクリックし、そのメニューで「手動改ページ」を選択します。
4. 最後に、[置換]ボックスを空のままにし、[すべて置換]をクリックして、ドキュメントの各改ページを削除します。

方法3：マクロを実行してドキュメント内のすべての改ページを削除する

1. まず、「Alt + F11」を押して、WordでVBAエディターをトリガーします。
2. 次に、左側の列の「通常」プロジェクトをクリックします。
3. 次に、メニューバーの「挿入」をクリックし、「モジュール」を選択します。
4. ダブルクリックしてモジュールを開き、次のコードをそこに貼り付けます。

Sub DeleteAllPageBreaksInOneDoc()
  Application.ScreenUpdating = False
 
  With Selection
    .HomeKey Unit:=wdStory
    With Selection.Find
      .ClearFormatting
      .Replacement.ClearFormatting
      .Text = "^m"
      .Replacement.Text = ""
      .Forward = True
      .Wrap = wdFindContinue
      .Format = False
      .MatchCase = False
      .MatchWholeWord = False
      .MatchWildcards = False
      .MatchSoundsLike = False
      .MatchAllWordForms = False
      .Execute Replace:=wdReplaceAll
    End With
  End With
  MsgBox ("All manual page breaks in the document have been removed!")
 
  Application.ScreenUpdating = True
End Sub

5. 最後に、「F5」を押してコードを実行します。

方法4：フォルダ内のすべてのドキュメントのすべての改ページを削除する

フォルダ内のすべてのドキュメントのすべての改ページを削除するには、この方法を利用できます。

1. マクロをインストールして実行するには、方法3の手順を参照してください。
2. そして、以下のこのマクロに置き換えることを忘れないでください。

Sub DeleteAllPageBreaksInAFolder()
  Dim StrFolder As String
  Dim strFile As String
  Dim objDoc As Document
  Dim dlgFile As FileDialog
 
  Application.ScreenUpdating = False
 
  Set dlgFile = Application.FileDialog(msoFileDialogFolderPicker)
 
  With dlgFile
    If .Show = -1 Then
      StrFolder = .SelectedItems(1) & "\"
    Else
      MsgBox "Select a folder first!"
      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 = "^m"
        .Replacement.Text = ""
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
        .Execute Replace:=wdReplaceAll
      End With
    End With
    objDoc.Save
    objDoc.Close
    strFile = Dir()
  Wend
  Application.ScreenUpdating = True
End Sub

このマクロを実行すると、「参照」ウィンドウが表示されます。目的のドキュメントが含まれているフォルダを選択し、「OK」をクリックして続行してください。

データ災害に備える

あなたの多くは、データ損失のランダム性に気づいています。 Wordユーザーの場合は、データの災害に十分に備えることもお勧めします。 そして、最良の方法のXNUMXつは、 docx修復 事前にツール。

著者紹介：

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