I dagens artikel presenterar vi dig två snabba och effektiva metoder för att räkna antalet kulor i ditt Word-dokument.
Ibland använder vi punktlistor eller numrerade listor i våra dokument för att organisera objekt. Generellt leder en punkt eller ett nummer ett enskilt objekt, vare sig det är ett ord eller en fras eller en mening. Nu om du har en numrerad lista kommer det inte att vara ett problem att räkna ut det totala artikelnumret. Men vad händer om det finns punktlistor i ditt orddokument? Att bara räkna dem en efter en låter inte bra.
Om några av er kanske behöver summera punktnumret, är det här två sätt att träna.
Metod 1: Konvertera en punktlista till en numrerad lista
- Välj först den lista som du vill få punktnumret.
- Klicka sedan på "Numrering" i gruppen "Stycke" under fliken "Hem". Punktlistan ska ändras till en numrerad lista.
Eller så kan du också högerklicka på markeringen och flytta markören över alternativet "Numrering" och sedan hålla markören på ett av numreringsstilarna i menyn förlängning. Detta gör att du kan få antalet kulor utan att faktiskt konvertera punktlistan till en numrerad.
Förresten, om du behöver räkna punktpunkter i hela dokumentet behöver du bara placera markören i en punktlista och följ sedan stegen ovan. Du hittar alla punktlistor i filen har konverterats till numrerade listor med siffror i följd, såsom nedan:
Metod 2: Använd makro
- Till att börja med, om du vill hämta kulorna i en viss lista, välj sedan den. Annars, för att räkna kulorna i hela dokumentet, ska du trycka på "Ctrl + A" för att välja det.
- Klicka sedan på fliken "Utvecklare".
- Klicka sedan på “Visual Basic” för att öppna VBA-redigeraren. Genvägskombinationen är “Alt + F11”.
- Klicka nu på “Normal” och sedan “Infoga”.
- Välj "Modul" nästa.
- Dubbelklicka på den nya modulen och klistra in dessa koder 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
- Klicka slutligen på "Kör".
Du kommer att se en meddelanderuta som dyker upp och visar resultatet.
Hantera din fil
Vi hanterar ett stort antal Word-dokument under arbetserfarenheten, det föreslås att vi ska hantera dem noggrant, för varje missöde kan leda till korruption. Och om filskador inträffar behöver du en Word-dokumentåterställningsverktyg för att hjälpa dig att ta hand om problemet.
Författarintroduktion:
Vera Chen är en dataåterställningsexpert i DataNumen, Inc., som är världsledande inom teknik för återställning av data, inklusive xls reparationsverktyg för dataskador och pdf reparera programvaruprodukter. För mer information besök www.datanumen.com