5 tapaa poistaa luettelomerkit ja luettelonumerot nopeasti Word-asiakirjastasi

Tässä artikkelissa haluamme esitellä sinulle viisi helppoa tapaa poistaa luettelomerkit ja luettelonumerot Word-asiakirjastasi.

Asiakirja voi sisältää luettelomerkittyjä ja numeroituja luetteloita. Joskus saatat joutua muotoilemaan nämä luettelot uudelleen. Voit joutua esimerkiksi asettamaan luettelon sisällön lihavoituna, kursivoituna tai tavallisena tekstinä, jotta vain muutama niistä voidaan mainita. Sitten sinun on ensin poistettava kaikki luettelomerkit ja luettelonumerot.

Tässä on 5 ratkaisua erilaisiin tapauksiin.

Tapa 1: Aseta Ei mitään -luettelomerkit tai numerointi

1. Valitse ensin ei-toivotut luettelomerkit ja numeroidut merkinnät.
2. Napsauta sitten avattavaa painiketta "Luettelomerkit" tai "Numerointi".
3. Napsauta Ei mitään.

Tarkista tulos:

Tapa 2: Aseta "Normaali" -tyyli luettelomerkityille tai numeroiduille merkinnöille

1. Aluksi valitse tarpeettomat merkinnät.
2. Napsauta sitten valintanauhan Koti-välilehteä.
3. Napsauta sitten Lisää-painiketta Tyylit-ryhmässä.
4. Valitse seuraavaksi “Normaali”.
5. Tai voit painaa "Ctrl + Vaihto + N" vaiheessa 2 sen sijaan.

Tapa 3: Poista kaikki luettelomerkit asiakirjasta

1. Ensinnäkin, paina "Alt + F11" avataksesi VBA-editorin Wordissa.
2. Napsauta editorissa “Normaali” projekti.
3. Napsauta sitten Lisää-välilehteä ja valitse Moduuli.
4. Kaksoisnapsauta uutta moduulia tuodaksesi muokkausalueen esiin ja liittämällä seuraava makro sinne:

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. Napsauta lopuksi Suorita tai paina F5.

Tässä on tulos:

Tapa 4: Poista kaikki luettelonumerot asiakirjasta

1. Toista ensin menetelmän 3 vaiheet makron asentamiseksi ja suorittamiseksi.
2. Vain sinä tarvitset tämän makron:

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

Tapa 5: Poista kaikki luettelomerkit ja luettelonumerot asiakirjasta

Nyt jos sinun on poistettava sekä luettelomerkit että luettelonumerot, voit käyttää seuraavaa makroa:

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

Valitse luotettava korjaustyökalu

Koska Word on alttiina virheille, on olemassa monia korjaustyökaluja, jotka on suunniteltu korjaa Word. Sinun on kuitenkin kiinnitettävä riittävästi huomiota valitessasi tällaista apuohjelmaa, varsinkin hätätilanteessa. Muista, että epäluotettava työkalu voi aiheuttaa lisävahinkoja tiedoillesi.

Tekijän esittely:

Vera Chen on tietojen palauttamisen asiantuntija DataNumen, Inc., joka on maailman johtava tietojen palautustekniikoissa, mukaan lukien korjaa xls ja pdf korjata ohjelmistotuotteita. Lisätietoja osoitteessa www.datanumen.com