U današnjem članku ćemo vam predstaviti 2 brze i učinkovite metode za brojanje broja metaka u vašem Word dokumentu.
S vremena na vrijeme koristili bismo popise s grafičkim oznakama ili numerirane popise u našim dokumentima za organiziranje stavki. Općenito, točka nabrajanja ili broj vodi pojedinačnu stavku, bilo da je riječ ili izraz ili rečenica. Sada, ako imate numerirani popis, neće biti problem otkriti ukupni broj stavki. Međutim, što ako u vašem Word dokumentu postoje popisi s grafičkim oznakama? Jednostavno brojanje jednog po jednog ne zvuči dobro.
Stoga, u slučaju da neki od vas možda trebaju sabrati broj metka, evo 2 načina kako to učiniti.
Metoda 1: Pretvorite popis s grafičkim oznakama u numerirani popis
- Prvo odaberite popis za koji želite da dobijete broj grafičke oznake.
- Zatim kliknite "Numeriranje" u grupi "Odlomak" pod karticom "Početna". Popis s grafičkim oznakama mijenja se u numerirani.
Ili također možete kliknuti desnom tipkom miša na odabir i pomaknuti kursor preko opcije "Numeriranje", zatim postaviti kursor na jedan od stilova numeriranja na proširenom izborniku. To vam omogućuje da dobijete broj grafičkih oznaka bez stvarnog pretvaranja popisa s grafičkim oznakama u numerirani.
Usput, ako trebate prebrojati točke s grafičkim oznakama u cijelom dokumentu, samo trebate postaviti kursor unutar jednog popisa s grafičkim oznakama, a zatim slijedite gornje korake. Vidjet ćete da su svi popisi s grafičkim oznakama unutar datoteke pretvoreni u numerirane popise s brojevima u nizu, kao što je dolje:
Metoda 2: Koristite makronaredbu
- Za početak, ako želite dobiti grafičke oznake određenog popisa, odaberite ga. U suprotnom, za broj metaka u cijelom dokumentu, trebate pritisnuti “Ctrl+ A” da biste ga imali u odabiru.
- Zatim kliknite karticu "Razvojni programer".
- Zatim kliknite "Visual Basic" da biste otvorili VBA editor. Kombinacija prečaca je "Alt+ F11".
- Sada kliknite "Normalno", a zatim "Umetni".
- Zatim odaberite "Modul".
- Dvaput kliknite na novi modul i zalijepite ove kodove u područje za uređivanje:
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
- Na kraju kliknite "Pokreni".
Vidjet ćete iskačući okvir s porukom s rezultatom.
Dobro upravljajte svojom datotekom
Tijekom radnog iskustva imamo posla s velikim brojem Word dokumenata, preporuča se da s njima postupamo pažljivo jer svaka nezgoda može dovesti do korupcije. A u slučaju da dođe do oštećenja datoteke, trebat će vam a Alat za oporavak Word dokumenata da vam pomogne riješiti problem.
Uvod za autora:
Vera Chen stručnjakinja je za oporavak podataka u DataNumen, Inc., koji je svjetski lider u tehnologijama za oporavak podataka, uključujući xls alat za popravak oštećenja podataka i pdf popraviti softverske proizvode. Za više informacija posjetite www.datanumen.com