U današnjem članku ćemo vam predstaviti 2 brze i efikasne metode za prebrojavanje broja metaka u vašem Word dokumentu.
S vremena na vrijeme koristili bismo liste s nabrajanjem ili brojevima u našim dokumentima da organiziramo stavke. Općenito, tačka ili broj vodi pojedinačnu stavku, bilo da se radi o riječi ili frazi ili rečenici. Sada, ako imate numerisanu listu, neće biti problem otkriti ukupan broj stavki. Međutim, šta ako u vašem Word dokumentu postoje liste sa nabrajanjem? Jednostavno brojanje jednog po jednog ne zvuči dobro.
Stoga, u slučaju da će neki od vas možda morati da zbroje broj nabrajanja, evo 2 načina da razradite.
Metoda 1: Pretvorite označenu listu u numerisanu listu
- Prvo, izaberite listu na kojoj želite da dobijete broj za nabrajanje.
- Zatim kliknite na „Numerisanje“ u grupi „Paragraf“ na kartici „Početna“. Lista sa nabrajanjem će se promeniti u numerisanu.
Ili također možete kliknuti desnim tasterom miša na izbor i pomeriti kursor preko opcije „Numerisanje“, a zatim zadržite kursor na jednom od stilova numerisanja u proširenom meniju. Ovo vam omogućava da dobijete broj metaka bez stvarnog pretvaranja liste sa nabrajanjem u numerisanu.
Usput, ako treba da prebrojite tačke za nabrajanje celog dokumenta, potrebno je samo da postavite kursor unutar jedne liste za nabrajanje, a zatim sledite gore navedene korake. Videćete da su sve liste sa nabrajanjem unutar datoteke konvertovane u numerisane liste sa brojevima u nizu, kao što je dole:
Metod 2: Koristite makro
- Za početak, ako želite da dobijete oznake određene liste, izaberite je. U suprotnom, za broj metaka u cijelom dokumentu, trebate pritisnuti “Ctrl+ A” da biste ga odabrali.
- Zatim kliknite karticu "Programer".
- Zatim kliknite na "Visual Basic" da otvorite VBA editor. Kombinacija prečice je “Alt+ F11”.
- Sada kliknite na "Normalno", a zatim na "Insert".
- Zatim odaberite “Module”.
- Dvaput kliknite na novi modul i zalijepite ove kodove na 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 da se pojavljuje okvir s porukom koji prikazuje rezultat.
Dobro upravljajte svojim fajlom
Mi se bavimo velikim brojem Word dokumenata tokom radnog iskustva, predlažemo da 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 da rešite problem.
Uvod za autora:
Vera Chen je stručnjak za oporavak podataka DataNumen, Inc., koji je svjetski lider u tehnologijama za oporavak podataka, uključujući xls alat za popravku oštećenja podataka i pdf popravak softverskih proizvoda. Za više informacija posjetite www.datanumen.com