3 metode za prebrojavanje broja riječi za dijelove u vašem Word dokumentu

U ovom članku će biti 3 metode pomoću kojih možete prebrojati broj riječi za dijelove u vašem Word dokumentu.

Lako je dobiti ukupan broj riječi u dokumentu. Ali u Wordu ne postoji funkcija koja bi nam rekla broj riječi u dijelu. A s obzirom na činjenicu da više volimo da sadržaje iste teme stavimo u jedan odeljak, kao što je organizovanje poglavlja tokom pisanja knjige, neophodno je da smislimo zaobilazna rešenja da bismo dobili broj odeljaka.   Slijede 3 pristupa koji zahtijevaju pokretanje makroa.

Metoda 1: Izbrojite broj riječi za trenutni odjeljak

1. Prvo, postavite kursor unutar ciljnog odjeljka.
2. Zatim morate otvoriti VBA editor u Wordu. Kliknite na "Developer", a zatim na naredbu "Visual Basic". U slučaju da ne možete pronaći “Developer” na traci, pritisnite “Alt+ F11” umjesto toga.
3. Zatim kliknite na "Normalni" projekat u lijevoj koloni.
4. Zatim kliknite na karticu "Insert".
5. Na tom padajućem izborniku odaberite “Modul”.
6. Otvorite novi modul dvostrukim klikom.
7. Sada u otvorenom modulu 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 na “Run” ili pritisnite “F5” da izvršite kodove.

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

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

Recimo da ste radili na knjizi i postavili svako poglavlje kao poseban odjeljak. Zatim da biste saznali koliko ste riječi napisali u jednom poglavlju, možete koristiti ovu metodu.

1. Slijedite gore navedene korake da instalirate i pokrenete makro.
2. Samo zamenite makro sa 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 polje „Unesite broj sekcije“ unesite broj odeljka i kliknite na „OK“ da biste nastavili dalje.

Rezultat je prikazan u okviru za poruke.

Metoda 3: Prebrojite broj riječi za sve dijelove u dokumentu

Kao što sugeriše podnaslov, na ovaj način ćete dobiti ukupan broj reči svakog odeljka u dokumentu i navesti ih u okviru za poruke.

1. Prije svega, otvorite ciljni dokument.
2. Ipak, morate ponoviti korake iz metode 1 da biste instalirali i pokrenuli makro.
3. I ovog puta promijenite s ovim makroom:

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:

Sačuvajte vrijedne podatke

Dok radite sa svim vrstama dokumenata, morate imati na umu njihovu sigurnost. Budući da nikada ne možete znati kada će se dogoditi sljedeći gubitak podataka, predlažemo da napravite sigurnosnu kopiju važnih datoteka. Osim toga, uvijek je dobro nabaviti alat koji može oporaviti doc, ako iko.

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 repair i pdf popravak softverskih proizvoda. Za više informacija posjetite www.datanumen.com