Word文書から箇条書きとリスト番号をすばやく削除する5つの方法

この記事では、Word文書から箇条書きとリスト番号を削除する5つの簡単な方法を紹介します。

ドキュメントには、箇条書きと番号付きリストを含めることができます。 場合によっては、これらのリストを再フォーマットする必要があります。 たとえば、リストの内容を太字、斜体、または通常のテキストで設定する必要がある場合があります。 次に、最初にすべての箇条書きとリスト番号を削除する必要があります。

さまざまなケースに対する5つの解決策を次に示します。

方法1：「なし」の箇条書きまたは番号を設定する

1. まず、不要な箇条書きと番号付きのエントリを選択します。
2. 次に、「箇条書き」または「番号付け」のドロップダウンボタンをクリックします。
3. 「なし」をクリックします。

結果を確認します。

方法2：箇条書きまたは番号付きエントリに「通常」スタイルを設定する

1. まず、不要なエントリを選択します。
2. 次に、リボンの[ホーム]タブをクリックします。
3. 次に、「スタイル」グループの「その他」ボタンをクリックします。
4. 次に「通常」を選択します。
5. または、代わりに手順2で「Ctrl + Shift + N」を押すこともできます。

方法3：ドキュメント内のすべての箇条書きを削除する

1. まず最初に、「Alt + F11」を押して、WordでVBAエディターを開きます。
2. エディターで、「通常」プロジェクトをクリックします。
3. 次に、「挿入」タブをクリックして「モジュール」を選択します。
4. 新しいモジュールをダブルクリックして編集領域を表示し、そこに次のマクロを貼り付けます。

Sub RemoveAllBulletsInADoc()
  Dim objParagraph As Paragraph
  Dim objDoc As Document
 
  Application.ScreenUpdating = False
  Set objDoc = ActiveDocument
 
  For Each objParagraph In ActiveDocument.Paragraphs
    If objParagraph.Range.ListFormat.ListType = WdListType.wdListBullet Then
      objParagraph.Range.ListFormat.RemoveNumbers
    End If
  Next objParagraph
 
  Application.ScreenUpdating = True
  Set objDoc = Nothing
End Sub

5. 最後に、「実行」をクリックするか、「F5」を押します。

結果は次のとおりです。

方法4：ドキュメント内のすべてのリスト番号を削除する

1. まず、方法3の手順を繰り返して、マクロをインストールして実行します。
2. 代わりにこのマクロが必要なのは次のとおりです。

Sub RemoveAllListNumbersInADoc()
  Dim objParagraph As Paragraph
  Dim objDoc As Document
 
  Application.ScreenUpdating = False
  Set objDoc = ActiveDocument
 
  For Each objParagraph In objDoc.Paragraphs
    If objParagraph.Range.ListFormat.ListType = wdListSimpleNumbering Then
      objParagraph.Range.ListFormat.RemoveNumbers
    End If
  Next objParagraph
 
  Application.ScreenUpdating = True
  Set objDoc = Nothing
End Sub

方法5：ドキュメント内のすべての箇条書きとリスト番号を削除する

これで、箇条書きとリスト番号の両方を削除する必要がある場合に、次のマクロを利用できます。

Sub RemoveBulletsAndListBumbers()
  Dim objParagraph As Paragraph
  Dim objDoc As Document
 
  Application.ScreenUpdating = False
  Set objDoc = ActiveDocument
 
  For Each objParagraph In objDoc.Paragraphs
    If objParagraph.Range.ListFormat.ListType = WdListType.wdListBullet Or wdListSimpleNumbering Then
      objParagraph.Range.ListFormat.RemoveNumbers
    End If
  Next objParagraph
 
  Application.ScreenUpdating = True
  Set objDoc = Nothing
End Sub

信頼できる修理ツールを選ぶ

Wordはエラーの影響を受けやすいという事実を考えると、次のように設計された多くの修復ツールがあります。 Wordを修正。 ただし、特に緊急時には、このようなユーティリティを選択する際には十分な注意を払う必要があります。 信頼性の低いツールは、データにさらなる損害を与える可能性があることに注意してください。

著者紹介：

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