2 Metode za prebrojavanje ukupnog broja riječi jednog jezika u višejezičnom Word dokumentu

U današnjem članku želimo vam predstaviti 2 metode za prebrojavanje ukupnog broja riječi jednog jezika u višejezičnom Word dokumentu.

S vremena na vrijeme, neki od vas će možda imati zahtjev za uređivanjem višejezičnog Word dokumenta. Kao rezultat toga, biće trenutaka kada želite da izvršite brojanje reči za jedan određeni jezik, ali samo da pronađete Word koji ne može da izvrši ovaj zadatak.

Tada je cilj da vam pružimo 2 korisna rješenja za rješavanje takvog problema.

Metoda 1: Koristite opciju „Napredno traženje“.

1. Prvo, kliknite na dugme naopako okrenutog trokuta iza „Pronađi“ u grupi „Uređivanje“ na kartici „Početna“.     
2. Sada u dijaloškom okviru „Pronađi i zamijeni“ kliknite na dugme „Više“.
3. I označite polje "Pronađi samo cijele riječi".
4. Zatim kliknite na dugme "Format".
5. Zatim odaberite "Jezik".
6. U dijaloškom okviru „Pronađi jezik“ pronađite i odaberite ciljni jezik i kliknite na „U redu“.
7. Sada se vratite na okvir “Pronađi i zamijeni”, kliknite na “Pronađi u” i odaberite “Glavni dokument”.
8. Zatim će se odabrati sve engleske riječi i provjeriti broj riječi u donjem lijevom uglu ekrana. Vidimo da je broj 93.

Metoda 2: Pokrenite Word makro

1. Za početak, kliknite na karticu "Programer".
2. Zatim kliknite na "Visual Basic" da pokrenete VBA editor. U slučaju da još niste imali omogućenu karticu “Developer”, umjesto toga pritisnite “Alt+ F11”.
3. Zatim kliknite na "Normalno", a zatim kliknite na "Insert".
4. Odaberite “Module”.
5. I dvaput kliknite na novi modul da otvorite prostor za kodiranje.
6. Zatim tamo zalijepite sljedeće kodove:

Sub CountTotalWordsOfOneLanguage()
  Dim objRange As Range
  Dim nWords As Long
 
  ' Initialization
  Set objRange = ActiveDocument.Range
  nWords = 0
 
  ' Find all English words and do word count.
  With objRange.Find
    .LanguageID = wdFrench
    Do While .Execute
      nWords = nWords + objRange.ComputeStatistics(wdStatisticWords)
    Loop
  End With
 
  MsgBox nWords
End Sub

7. Na kraju, kliknite na dugme "Pokreni".

Pojavit će se okvir za poruku. Broj se odnosi na ukupan broj riječi francuskih tekstova u ovom dokumentu.

Bilješka:

U liniji koda “.LanguageID = wdFrench“,„wdFrench” znači francuski jezik. Da biste prilagodili kodove za konkretniju upotrebu, možete zamijeniti ID jezika sa tačnim jezikom koji želite. A za ID više jezika možete posjetiti: https://docs.microsoft.com/en-us/previous-versions/office/developer/office-2003/aa172988(v=office.11)

Pravilno rukujte oštećenim Word datotekama

S vremena na vrijeme, Word će se isključiti ili zamrznuti zbog svih vrsta grešaka ili grešaka. Recimo, ako ne uspete redovno da pravite rezervne kopije datoteka, postoji velika mogućnost da izgubite sve dragocene podatke. A 2 preostala rješenja su ili korištenje ugrađene funkcije Worda ili nabavka programa za to popravka docS obzirom na činjenicu da prvi ne funkcionira baš najbolje u većini slučajeva, preporučljivo je odabrati alat treće strane.

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