5 måder til hurtigt at fjerne punkttegn og listenumre fra dit Word-dokument

I denne artikel vil vi gerne demonstrere dig 5 nemme måder at fjerne kugler og listenumre fra dit Word-dokument.

Et dokument kan indeholde punktlister og nummererede lister. Nogle gange kan det være nødvendigt at omformatere disse lister. For eksempel skal du muligvis indstille listeindholdet i fed, kursiv eller almindelig tekst for blot at nævne nogle få. Derefter skal du først fjerne alle kugler og listenumre.

Her er 5 løsninger på forskellige sager.

Metode 1: Indstil "Ingen" punkttegn eller nummerering

1. Vælg først uønskede punkter med nummerering og nummerering.
2. Klik derefter på rullelisten på "Kugler" eller "Nummerering".
3. Klik på "Ingen".

Tjek resultatet:

Metode 2: Indstil "Normal" stil til punktopstillinger eller nummererede poster

1. Til at begynde med skal du vælge unødvendige poster.
2. Klik derefter på fanen "Hjem" i båndet.
3. Klik derefter på knappen "Mere" i gruppen "Stilarter".
4. Vælg derefter “Normal”.
5. Eller du kan i stedet trykke på "Ctrl + Shift + N" i trin 2.

Metode 3: Fjern alle kugler i et dokument

1. Først og fremmest skal du trykke på “Alt+F11” for at åbne VBA-editoren i Word.
2. Klik på “Normal” -projektet i editoren.
3. Klik derefter på fanen "Indsæt", og vælg "Modul".
4. Dobbeltklik på nyt modul for at få frem redigeringsområdet og indsæt følgende makro der:

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. Til sidst skal du klikke på "Kør" eller trykke på "F5".

Her er resultatet:

Metode 4: Fjern alle listenumre i et dokument

1. Gentag først trinene i metode 3 for at installere og køre en makro.
2. Kun du har brug for denne makro i stedet:

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

Metode 5: Fjern alle punkter og listenumre i et dokument

I tilfælde af at du har brug for at fjerne både kugler og listenumre, kan du bruge følgende makro:

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

Vælg et pålideligt reparationsværktøj

I betragtning af det faktum, at Word er modtagelig for fejl, er der mange reparationsværktøjer designet til ord Word. Du skal dog være opmærksom nok, mens du vælger et sådant værktøj, især i en nødsituation. Husk, at upålideligt værktøj kan forårsage yderligere skade på dine data.

Forfatter Introduktion:

Vera Chen er en datagendannelsesekspert i DataNumen, Inc., som er verdens førende inden for datagendannelsesteknologier, herunder rette xls og pdf produkter til reparation af software. For mere information besøg www.datanumen.com