5 načina za brzo uklanjanje grafičkih oznaka i popisa brojeva iz vašeg Word dokumenta

U ovom članku želimo vam pokazati 5 jednostavnih načina za uklanjanje grafičkih oznaka i brojeva popisa iz vašeg Word dokumenta.

Dokument može sadržavati popise s grafičkim oznakama i numerirane popise. Ponekad ćete možda trebati preoblikovati te popise. Na primjer, možda ćete morati postaviti sadržaj popisa podebljanim, kurzivom ili uobičajenim tekstovima, da spomenemo samo neke. Zatim najprije morate ukloniti sve grafičke oznake i brojeve popisa.

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

Metoda 1: Postavite "Ništa" grafičke oznake ili numeriranje

1. Prije svega, odaberite neželjene unose s grafičkim oznakama i numerirane unose.
2. Zatim kliknite na padajući gumb na "Bullets" ili "Numbering".
3. Kliknite "Ništa".

Provjerite rezultat:

Metoda 2: Postavite "Normalni" stil za označene ili numerirane unose

1. Za početak odaberite nepotrebne unose.
2. Drugo, kliknite karticu "Početna" na vrpci.
3. Zatim kliknite gumb "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 grafičke oznake u dokumentu

1. Prvo i najvažnije, pritisnite "Alt + F11" da biste otvorili VBA editor u Wordu.
2. U uređivaču kliknite "Normalni" projekt.
3. Zatim kliknite karticu "Umetni" i odaberite "Modul".
4. Dvaput kliknite novi modul da biste prikazali područje za uređivanje i tamo zalijepite sljedeću makronaredbu:

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 "Pokreni" ili pritisnite "F5".

Evo ishoda:

Metoda 4: Uklonite sve brojeve s popisa u dokumentu

1. Najprije ponovite korake iz metode 3 da biste instalirali i pokrenuli makro.
2. Umjesto toga trebate samo ovu makronaredbu:

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 grafičke oznake i popis brojeva u dokumentu

Sada u slučaju da trebate ukloniti i grafičke oznake i brojeve popisa, možete upotrijebiti sljedeću makronaredbu:

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 popravak

S obzirom na činjenicu da je Word podložan pogreškama, postoje mnogi alati za popravak dizajnirani za to popraviti Word. Međutim, morate posvetiti dovoljno pažnje prilikom odabira takvog alata, posebno u hitnim slučajevima. Imajte na umu da nepouzdan alat može dodatno oštetiti vaše podatke.

Uvod za autora:

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