5 būdai, kaip greitai pašalinti ženklelius ir sąrašo numerius iš savo Word dokumento

Šiame straipsnyje norėtume parodyti jums 5 paprastus būdus, kaip pašalinti ženklelius ir sąrašo numerius iš „Word“ dokumento.

Dokumente gali būti sąrašai su ženkleliais ir sunumeruoti. Kartais gali tekti iš naujo suformatuoti šiuos sąrašus. Pavyzdžiui, gali reikėti nustatyti sąrašo turinį pusjuodžiu, kursyvu arba įprastais tekstais, kad būtų galima paminėti tik keletą. Tada pirmiausia turite pašalinti visus ženklelius ir sąrašo numerius.

Čia yra 5 skirtingų atvejų sprendimai.

1 būdas: nustatykite „Nėra“ ženklelių arba numeracijos

1. Pirmiausia pasirinkite nepageidaujamus ženklelius ir sunumeruotus įrašus.
2. Tada spustelėkite išskleidžiamąjį mygtuką „Bullets“ arba „Nummering“.
3. Spustelėkite „Nėra“.

Patikrinkite rezultatą:

2 būdas: su ženkleliais arba sunumeruotiems įrašams nustatykite „Įprastą“ stilių

1. Norėdami pradėti, pasirinkite nereikalingus įrašus.
2. Antra, juostelėje spustelėkite skirtuką „Pagrindinis“.
3. Tada spustelėkite mygtuką „Daugiau“ grupėje „Stiliai“.
4. Tada pasirinkite „Normalus“.
5. Arba 2 veiksme galite paspausti „Ctrl + Shift + N“.

3 būdas: pašalinkite visus dokumento ženklelius

1. Visų pirma, paspauskite „Alt“ + F11, kad atidarytumėte VBA redaktorių programoje „Word“.
2. Redagavimo priemonėje spustelėkite „Įprastas“ projektas.
3. Tada spustelėkite skirtuką „Įterpti“ ir pasirinkite „Modulis“.
4. Dukart spustelėkite naują modulį, kad pamatytumėte redagavimo sritį ir įklijuokite ten šią makrokomandą:

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. Galiausiai spustelėkite „Vykdyti“ arba paspauskite „F5“.

Štai rezultatas:

4 būdas: pašalinkite visus sąrašo numerius iš dokumento

1. Pirmiausia pakartokite 3 metodo veiksmus, kad įdiegtumėte ir paleistumėte makrokomandą.
2. Vietoje to jums reikia tik šios makrokomandos:

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 būdas: pašalinkite visus ženklelius ir sąrašo numerius iš dokumento

Dabar, jei reikia pašalinti ir ženklelius, ir sąrašo numerius, galite naudoti šią makrokomandą:

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

Pasirinkite patikimą taisymo įrankį

Atsižvelgiant į tai, kad „Word“ yra jautrus klaidoms, yra daug taisymo įrankių pataisyti Word. Tačiau rinkdamiesi tokį įrankį turite skirti pakankamai dėmesio, ypač kritiniu metu. Atminkite, kad nepatikimas įrankis gali dar labiau pakenkti jūsų duomenims.

Autoriaus įvadas:

Vera Chen yra duomenų atkūrimo ekspertė DataNumen, Inc., kuri yra pasaulyje duomenų atkūrimo technologijų lyderė, įskaitant pataisyti xls bei pdf programinės įrangos gaminių taisymas. Norėdami gauti daugiau informacijos, apsilankykite WWW.datanumen.com