5 manieren om snel opsommingstekens en lijstnummers uit uw Word-document te verwijderen

In dit artikel willen we u 5 eenvoudige manieren demonstreren om de opsommingstekens en lijstnummers uit uw Word-document te verwijderen.

Een document kan lijsten met opsommingstekens en genummerde lijsten bevatten. Soms moet u deze lijsten opnieuw formatteren. U moet bijvoorbeeld de inhoud van de lijst vet, cursief of gewone tekst instellen, om er maar een paar te noemen. Vervolgens moet u eerst alle opsommingstekens en lijstnummers verwijderen.

Hier zijn 5 oplossingen voor verschillende gevallen.

Methode 1: Stel "Geen" opsommingstekens of nummering in

1. Selecteer allereerst ongewenste opsommingstekens en genummerde items.
2. Klik vervolgens op de vervolgkeuzeknop op "Opsommingstekens" of "Nummering".
3. Klik op "Geen".

Bekijk het resultaat:

Methode 2: Stel de stijl "Normaal" in voor items met opsommingstekens of nummers

1. Selecteer om te beginnen overbodige vermeldingen.
2. Ten tweede, klik op het tabblad "Home" in het lint.
3. Klik vervolgens op de knop "Meer" in de groep "Stijlen".
4. Kies vervolgens "Normaal".
5. Of u kunt in plaats daarvan op "Ctrl + Shift + N" drukken in stap 2.

Methode 3: verwijder alle opsommingstekens in een document

1. Druk allereerst op "Alt+F11" om de VBA-editor in Word te openen.
2. Klik in de editor op "Normaal" project.
3. Klik vervolgens op het tabblad "Invoegen" en kies "Module".
4. Dubbelklik op nieuwe module om het bewerkingsgebied te openen en plak de volgende macro daar:

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. Klik ten slotte op "Uitvoeren" of druk op "F5".

Hier is het resultaat:

Methode 4: Verwijder alle lijstnummers in een document

1. Herhaal eerst de stappen in methode 3 om een ​​macro te installeren en uit te voeren.
2. Alleen heb je deze macro nodig:

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

Methode 5: Verwijder alle opsommingstekens en lijstnummers in een document

Als u nu zowel opsommingstekens als lijstnummers moet verwijderen, kunt u de volgende macro gebruiken:

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

Kies een betrouwbaar reparatiegereedschap

Gezien het feit dat Word gevoelig is voor fouten, zijn er veel reparatietools voor ontworpen Word repareren. U moet echter voldoende opletten bij het kiezen van een dergelijk hulpprogramma, vooral in tijden van nood. Onthoud dat een onbetrouwbaar hulpprogramma uw gegevens verder kan beschadigen.

Auteur Introductie:

Vera Chen is een expert op het gebied van gegevensherstel in DataNumen, Inc., de wereldleider in technologieën voor gegevensherstel, waaronder xls repareren en pdf reparatie softwareproducten. Voor meer informatie bezoek www.datanumen.com