5 načinov za hitro odstranjevanje oznak in seznam številk iz dokumenta Word

V tem članku vam želimo predstaviti 5 preprostih načinov odstranjevanja oznak in številk s seznama iz Wordovega dokumenta.

Dokument lahko vsebuje označene in oštevilčene sezname. Včasih boste morda morali te sezname preoblikovati. Na primer, morda boste morali vsebino seznama nastaviti v krepkem, ležečem ali običajnem besedilu, če jih naštejemo le nekaj. Nato morate najprej odstraniti vse krogle in našteti številke.

Tu je 5 rešitev za različne primere.

1. način: nastavite oznake »Številka« ali oštevilčenje

1. Najprej izberite neželene označene in oštevilčene vnose.
2. Nato kliknite spustni gumb na “Oznake” ali “Številčenje”.
3. Kliknite »Brez«.

Preverite rezultat:

2. način: nastavite slog »Normal« za označene ali oštevilčene vnose

1. Za začetek izberite nepotrebne vnose.
2. Nato na traku kliknite zavihek »Domov«.
3. Nato v skupini »Slogi« kliknite gumb »Več«.
4. Nato izberite »Normal«.
5. Lahko pa namesto tega v koraku 2 pritisnete »Ctrl + Shift + N«.

3. način: Odstranite vse oznake v dokumentu

1. Najprej pritisnite »Alt + F11«, da odprete urejevalnik VBA v Wordu.
2. V urejevalniku kliknite projekt »Normal«.
3. Nato kliknite zavihek "Vstavi" in izberite "Modul".
4. Dvokliknite nov modul, da se prikaže območje za urejanje in tja prilepite naslednji makro:

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. Na koncu kliknite »Zaženi« ali pritisnite »F5«.

Tu je rezultat:

4. način: Odstranite vse številčne sezname v dokumentu

1. Najprej ponovite korake v 3. metodi, da namestite in zaženete makro.
2. Namesto tega potrebujete samo ta makro:

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. način: Odstranite vse oznake in seznam števil v dokumentu

Zdaj, če boste morali odstraniti krogle in številke seznamov, lahko uporabite naslednji 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

Izberite zanesljivo orodje za popravilo

Glede na to, da je Word dovzeten za napake, obstaja veliko orodij za popravilo, namenjenih temu popraviti Word. Vendar morate biti med izbiranjem takega pripomočka dovolj pozorni, zlasti v nujnih primerih. Ne pozabite, da lahko nezanesljivo orodje dodatno poškoduje vaše podatke.

Uvod avtorja:

Vera Chen je strokovnjakinja za obnovitev podatkov v DataNumen, Inc., ki je vodilna na svetu na področju tehnologij za obnovitev podatkov, vključno z popraviti xls in pdf popravilo programskih izdelkov. Za več informacij obiščite www.datanumen.com