5 viisi täppide ja numbrite kiireks eemaldamiseks Wordi dokumendist

Selles artiklis soovime teile näidata 5 lihtsat viisi, kuidas Wordi dokumendist täppe ja numbreid eemaldada.

Dokument võib sisaldada täpp- ja nummerdatud loendeid. Mõnikord peate võib-olla need loendid ümber vormindama. Näiteks peate võib-olla määrama loendi sisu paksus, kaldkirjas või tavalises tekstis, et nimetada vaid mõnda. Seejärel peate kõigepealt eemaldama kõik täpid ja loendinumbrid.

Siin on 5 lahendust erinevatele juhtumitele.

1. meetod: määrake "Puudub" täpid või nummerdamine

1. Kõigepealt valige soovimatud täppidega ja nummerdatud kirjed.
2. Seejärel klõpsake rippmenüü nuppu "Täpid" või "Nummerdamine".
3. Klõpsake nuppu "Puudub".

Kontrolli tulemust:

2. meetod: määrake täppidega või nummerdatud kirjete jaoks stiil "Tavaline".

1. Alustuseks valige mittevajalikud kirjed.
2. Teiseks klõpsake lindil vahekaarti "Kodu".
3. Seejärel klõpsake rühmas "Stiilid" nuppu "Veel".
4. Järgmisena valige "Tavaline".
5. Või võite selle asemel 2. sammus vajutada klahvikombinatsiooni Ctrl+Shift+N.

3. meetod: eemaldage dokumendist kõik täpid

1. Esiteks ja kõige tähtsam on Wordi VBA redaktori avamiseks vajutada klahvikombinatsiooni „Alt + F11”.
2. Klõpsake redaktoris "Tavaline" projekt.
3. Seejärel klõpsake vahekaarti "Sisesta" ja valige "Moodul".
4. Redigeerimisala esiletoomiseks topeltklõpsake uut moodulit ja kleepige sinna järgmine 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. Lõpuks klõpsake nuppu "Käivita" või "F5".

Siin on tulemus:

4. meetod: eemaldage dokumendist kõik loendinumbrid

1. Kõigepealt korrake makro installimiseks ja käivitamiseks meetodi 3 samme.
2. Selle asemel vajate ainult seda makrot:

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. meetod: eemaldage dokumendist kõik täpid ja loendinumbrid

Nüüd, kui peate eemaldama nii täpid kui ka loendinumbrid, saate kasutada järgmist makrot:

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

Valige usaldusväärne remonditööriist

Arvestades asjaolu, et Word on vastuvõtlik vigadele, on selleks loodud palju parandustööriistu parandage Word. Siiski peate sellise utiliidi valimisel pöörama piisavalt tähelepanu, eriti hädaolukorras. Pidage meeles, et ebausaldusväärne tööriist võib teie andmeid veelgi kahjustada.

Autori sissejuhatus:

Vera Chen on andmete taastamise ekspert DataNumen, Inc., mis on maailmas juhtiv andmete taastamise tehnoloogiate, sealhulgas paranda xls ja pdf tarkvaratooted. Lisateabe saamiseks külastage www.datanumenCom