5 načina da brzo uklonite oznake i brojeve popisa iz Word dokumenta

U ovom članku želimo vam pokazati 5 jednostavnih načina da uklonite oznake i brojeve liste iz Word dokumenta.

Dokument može sadržavati liste s nabrajanjem i brojevima. Ponekad ćete možda morati ponovo formatirati ove liste. Na primjer, možda ćete morati postaviti sadržaj liste podebljanim, kurzivnim ili uobičajenim tekstovima, da spomenemo samo neke. Zatim morate prvo ukloniti sve metke i liste brojeva.

Evo 5 rješenja za različite slučajeve.

Metoda 1: Podesite "Ništa" za nabrajanje ili numerisanje

1. Prije svega, odaberite neželjene unose s nabrajanjem i brojevima.
2. Zatim kliknite na dugme padajućeg menija na „Metke“ ili „Numerisanje“.
3. Kliknite na “Ništa”.

Provjerite rezultat:

Metoda 2: Postavite “Normalni” stil za unose s nabrajanjem ili brojevima

1. Za početak odaberite nepotrebne unose.
2. Drugo, kliknite na karticu "Početna" na traci.
3. Zatim kliknite na dugme „Više“ u grupi „Stilovi“.
4. Zatim odaberite “Normalno”.
5. Ili umjesto toga možete pritisnuti “Ctrl+ Shift+ N” u koraku 2.

Metoda 3: Uklonite sve oznake u dokumentu

1. Prvo i najvažnije, pritisnite "Alt + F11" da biste otvorili VBA editor u Wordu.
2. U uređivaču kliknite na “Normalni” projekat.
3. Zatim kliknite na karticu "Insert" i odaberite "Module".
4. Dvaput kliknite na novi modul da prikažete područje za uređivanje i tamo zalijepite sljedeći 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 kraju, kliknite na “Run” ili pritisnite “F5”.

Evo ishoda:

Metoda 4: Uklonite sve brojeve liste u dokumentu

1. Prvo ponovite korake iz metode 3 da instalirate i pokrenete makro.
2. Samo vam je potreban ovaj 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

Metoda 5: Uklonite sve oznake i brojeve liste u dokumentu

Sada u slučaju da trebate ukloniti i oznake i brojeve liste, možete koristiti sljedeći 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

Odaberite pouzdan alat za popravku

S obzirom na činjenicu da je Word podložan greškama, postoji mnogo alata za popravak koji su dizajnirani za to popravi Word. Međutim, morate obratiti dovoljno pažnje prilikom odabira takvog uslužnog programa, posebno u hitnim slučajevima. Zapamtite da nepouzdan alat može dodatno oštetiti vaše podatke.

Uvod za autora:

Vera Chen je stručnjak za oporavak podataka DataNumen, Inc., koji je svjetski lider u tehnologijama za oporavak podataka, uključujući popraviti xls i pdf popravak softverskih proizvoda. Za više informacija posjetite www.datanumen.com