3 metode za brojanje broja riječi za odjeljke u vašem Word dokumentu

U ovom članku, postojat će 3 metode za brojanje riječi za odjeljke u vašem Word dokumentu.

Lako je dobiti ukupan broj riječi dokumenta. Ali u Wordu ne postoji funkcija koja bi nam rekla broj riječi u odjeljku. A s obzirom na činjenicu da više volimo staviti sadržaj iste teme u jedan odjeljak, kao što je organiziranje poglavlja dok pišemo knjigu, potrebno je da smislimo zaobilazna rješenja kako bismo dobili broj odjeljaka.   Slijede 3 pristupa koji zahtijevaju pokretanje makronaredbe.

Metoda 1: Izbrojite broj riječi za trenutni odjeljak

1. Prvo, postavite kursor unutar ciljnog odjeljka.
2. Zatim morate otvoriti VBA editor u Wordu. Pritisnite “Developer” i zatim naredbu “Visual Basic”. U slučaju da ne možete pronaći “Developer” na vrpci, umjesto toga pritisnite “Alt+ F11”.
3. Zatim kliknite "Normalni" projekt u lijevom stupcu.
4. Zatim kliknite karticu "Umetni".
5. Na tom padajućem izborniku odaberite "Modul".
6. Otvorite novi modul duplim klikom.
7. Sada u otvoreni modul zalijepite sljedeće kodove:

Sub CountWordsOfCurrentSection()
  MsgBox ("There are " & Selection.Sections(1).Range.ComputeStatistics(wdStatisticWords) _
         & " words in current section.")
End Sub

8. Na kraju kliknite "Pokreni" ili pritisnite "F5" za izvršenje kodova.

Primit ćete okvir s porukom koji prikazuje ukupan broj trenutnog odjeljka, kao što je dolje:

Metoda 2: Izbrojite broj riječi za određeni odjeljak

Recimo da ste radili na knjizi i postavili svako poglavlje kao zaseban odjeljak. Zatim, da biste znali koliko ste riječi napisali u poglavlju, možete upotrijebiti ovu metodu.

1. Slijedite gornje korake za instaliranje i pokretanje makronaredbe.
2. Samo zamijenite makro s ovim:

Sub CountWordsOfSpecificSection()
  Dim strSecNum As String
  Dim objDoc As Document
 
  Application.ScreenUpdating = False
 
  Set objDoc = ActiveDocument
  strSecNum = InputBox("Enter a section number here:", "Enter Section Number") 
  MsgBox ("There are " & objDoc.Sections(strSecNum).Range.ComputeStatistics(wdStatisticWords) _
          & " words in section " & strSecNum & ".")
  Application.ScreenUpdating = True
End Sub

3. I kada ga pokrenete, pojavit će se okvir za unos. U okvir "Unesite broj odjeljka" unesite broj odjeljka i kliknite "U redu" za nastavak.

Rezultat se prikazuje u okviru s porukom.

Metoda 3: Izbrojite broj riječi za sve odjeljke u dokumentu

Kao što sugerira podnaslov, na ovaj ćete način dobiti ukupan broj riječi svakog odjeljka u dokumentu i navesti ih u okviru s porukom.

1. Prije svega, otvorite ciljni dokument.
2. Ipak, morate ponoviti korake u metodi 1 da biste instalirali i pokrenuli makro.
3. I ovaj put promijenite pomoću ove makronaredbe:

Sub CountWordsOfEachSectionInDoc()
  Dim objDoc As Document
  Dim nNumberOfSection As Long
  Dim strText As String
 
  Application.ScreenUpdating = False
  Set objDoc = ActiveDocument
  nNumberOfSection = objDoc.Sections.Count
 
  For nNumberOfSection = 1 To nNumberOfSection
    strText = strText & "There are " & objDoc.Sections(nNumberOfSection) _
              .Range.ComputeStatistics(wdStatisticWords) & " words in section " & nNumberOfSection & "; " _
              & vbNewLine
  Next nNumberOfSection
 
  MsgBox strText
 
  Application.ScreenUpdating = True
End Sub

Evo mogućeg ishoda:

Spremite vrijedne podatke

Dok radite sa svim vrstama dokumenata, morate voditi računa o njihovoj sigurnosti. Budući da nikada ne možete znati kada će se dogoditi sljedeći gubitak podataka, predlaže se sigurnosno kopiranje važnih datoteka. Osim toga, uvijek je dobro nabaviti alat koji može oporaviti dok, ako ijedan.

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 popravak i pdf popraviti softverske proizvode. Za više informacija posjetite www.datanumen.com