2 raske metoder for å telle antall kuler i Word-dokumentet ditt

I dagens artikkel vil vi presentere deg 2 raske og effektive metoder for å telle antall kuler i Word-dokumentet ditt.

Fra tid til annen brukte vi punktlister eller nummererte lister i dokumentene våre for å organisere elementer. Vanligvis leder et punkt eller et tall et enkelt element, det være seg et ord eller en setning eller en setning. Hvis du nå har en nummerert liste, vil det ikke være noe problem å finne ut det totale varenummeret. Men hva om det er punktlister i Word-dokumentet ditt? Bare å telle dem én etter én høres ikke bra ut.

Derfor, i tilfelle noen av dere kanskje trenger å summere punktnummeret, er her 2 måter å regne ut.

Metode 1: Konverter en punktliste til en nummerert liste

1. Først velger du listen som du ønsker for å få punktnummeret.
2. Klikk deretter på "Nummerering" i "Avsnitt"-gruppen under fanen "Hjem". Punktlisten skal endres til en nummerert.

Eller du kan også høyreklikke på utvalget og flytte markøren over "Nummerering"-alternativet, og deretter holde markøren over en av nummereringsstilene på utvidelsesmenyen. Dette lar deg få antall kuler uten å faktisk konvertere punktlisten til en nummerert.

Forresten, hvis du trenger å telle punktpunkter i hele dokumentet, trenger du bare å plassere markøren innenfor én punktliste, og deretter følge trinnene ovenfor. Du vil finne at alle punktlister i filen er konvertert til nummererte lister med tall i rekkefølge, for eksempel nedenfor:

Metode 2: Bruk makro

1. Til å begynne med, hvis du vil ha kulene til en bestemt liste, velg den. Ellers, for tellingen av kulene i hele dokumentet, bør du trykke "Ctrl+A" for å velge det.
2. Klikk deretter på "Utvikler"-fanen.
3. Klikk deretter "Visual Basic" for å åpne VBA-editoren. Snarveiskombinasjonen er "Alt+ F11".
4. Klikk nå "Normal" og deretter "Sett inn".
5. Velg "Modul" neste.
6. Dobbeltklikk på den nye modulen, og lim inn disse kodene i redigeringsområdet:

 Sub GetNumberOfBullets()
   Dim objRange As Range
   Dim objParagraph As Paragraph
   Dim nNumber As Integer
 
   '  Initialization
   Set objRange = Selection.Range
   nNumber = 0
 
   For Each objParagraph In objRange.Paragraphs
   If objParagraph.Range.ListFormat.ListType = WdListType.wdListBullet Then
     nNumber = nNumber + 1
   End If
   Next objParagraph
 
   '  Pop up a message box to show the total number of bullets.
   MsgBox ("Bullet number:" & nNumber)
 End Sub

7. Til slutt klikker du på "Kjør".

Du vil se en meldingsboks som viser resultatet.

Godt administrer filen din

Vi håndterer et stort antall Word-dokumenter i løpet av arbeidserfaring, det er foreslått at vi bør håndtere dem forsiktig, for ethvert uhell kan føre til korrupsjon. Og i tilfelle filskade oppstår, trenger du en Gjenopprettingsverktøy for Word-dokument for å hjelpe deg med å løse problemet.

Forfatterintroduksjon:

Vera Chen er en datagjenopprettingsekspert innen DataNumen, Inc., som er verdensledende innen datagjenopprettingsteknologier, inkludert xls reparasjonsverktøy for dataskader og pdf reparere programvareprodukter. For mer informasjon besøk www.datanumen. Med