U današnjem članku želimo vam predstaviti 2 metode brojanja ukupnih riječi jednog jezika u višejezičnom Word dokumentu.
S vremena na vrijeme, neki od vas mogu imati potrebu urediti višejezični Word dokument. Kao rezultat toga, ponekad ćete htjeti prebrojati riječi za jedan određeni jezik, ali samo da biste ustanovili da Word ne može izvršiti taj zadatak.
Onda je naš cilj pružiti vam 2 korisna rješenja za rješavanje takvog problema.
Metoda 1: Koristite opciju "Napredno traženje".
- Najprije kliknite gumb naopako okrenutog trokuta iza "Traži" u grupi "Uređivanje" pod karticom "Početna".
- Sada u dijaloškom okviru "Pronađi i zamijeni" kliknite gumb "Više".
- I potvrdite okvir "Pronađi samo cijele riječi".
- Zatim kliknite gumb "Format".
- Zatim odaberite "Jezik".
- U dijaloškom okviru "Pronađi jezik" pronađite i odaberite ciljni jezik i kliknite "U redu".
- Sada se vratite na okvir "Pronađi i zamijeni", kliknite "Pronađi u" i odaberite "Glavni dokument".
- Zatim će se odabrati sve engleske riječi i provjeriti broj riječi u donjem lijevom kutu zaslona. Vidimo da je broj 93.
Metoda 2: Pokrenite Word Macro
- Za početak kliknite karticu "Razvojni programer".
- Zatim kliknite "Visual Basic" da pokrenete VBA editor. U slučaju da još niste omogućili karticu “Developer”, umjesto toga pritisnite “Alt+ F11”.
- Zatim kliknite "Normalno", a zatim kliknite "Umetni".
- Odaberite "Modul".
- Dvaput kliknite na novi modul da biste otvorili prostor za kodiranje.
- 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
- Na kraju kliknite gumb "Pokreni".
Pojavit će se okvir s porukom. Broj se odnosi na ukupan broj riječi francuskih tekstova u ovom dokumentu.
Bilješka:
U retku koda ".ID jezika = wdfrancuski","wdfrancuski” znači francuski jezik. Da biste prilagodili kodove za specifičniju upotrebu, možete zamijeniti ID jezika toč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)
Ispravno postupajte s oštećenim Word datotekama
Tu i tamo, Word će se isključiti ili zamrznuti zbog svih vrsta pogrešaka. Recimo, ako ne uspijete redovito sigurnosno kopirati datoteke, postoji velika mogućnost da izgubite sve dragocjene podatke. A preostala su 2 zaobilazna rješenja ili korištenje ugrađene funkcije Worda ili nabava programa za popravak dokS obzirom na činjenicu da prvi ne funkcionira baš dobro u većini slučajeva, preporučljivo je odabrati alat treće strane.
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 Excel popravak i pdf popraviti softverske proizvode. Za više informacija posjetite www.datanumen.com