2 metodi za štetje skupnega števila besed enega jezika v večjezičnem Wordovem dokumentu

V današnjem članku vam želimo predstaviti 2 načina za štetje skupnega števila besed enega jezika v večjezičnem dokumentu Word.

Občasno boste morda nekateri od vas potrebovali urejanje večjezičnega Wordovega dokumenta. Posledično boste kdaj želeli narediti štetje besed za en določen jezik, vendar boste ugotovili, da Word ne more izvesti te naloge.

Potem je naš cilj, da vam ponudimo 2 uporabni rešitvi za reševanje takšne težave.

1. način: Uporabite možnost »Napredno iskanje«.

1. Najprej kliknite na glavo obrnjen trikotnik za "Najdi" v skupini "Urejanje" pod zavihkom "Domov".     
2. Zdaj v pogovornem oknu »Najdi in zamenjaj« kliknite gumb »Več«.
3. In potrdite polje »Poišči samo cele besede«.
4. Nato kliknite gumb »Oblika«.
5. Nato izberite »Jezik«.
6. V pogovornem oknu »Iskanje jezika« poiščite in izberite ciljni jezik ter kliknite »V redu«.
7. Zdaj se vrnite na polje »Najdi in zamenjaj«, kliknite »Najdi v« in izberite »Glavni dokument«.
8. Nato bodo izbrane vse angleške besede in preverite število besed v spodnjem levem kotu zaslona. Vidimo, da je številka 93.

2. način: zaženite Wordov makro

1. Za začetek kliknite zavihek »Razvijalec«.
2. Nato kliknite »Visual Basic«, da sprožite urejevalnik VBA. Če še niste imeli omogočenega zavihka »Razvijalec«, namesto tega pritisnite »Alt+ F11«.
3. Nato kliknite »Normalno« in nato kliknite »Vstavi«.
4. Izberite “Modul”.
5. In dvakrat kliknite na nov modul, da odprete prostor za kodiranje.
6. Nato prilepite naslednje kode:

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 koncu kliknite gumb »Zaženi«.

Pojavilo se bo okno s sporočilom. Število se nanaša na skupno število besed francoskih besedil v tem dokumentu.

Opomba:

V vrstici kode “.ID jezika = wdFrench",wdFrench” pomeni francoski jezik. Če želite prilagoditi kode za bolj specifično uporabo, lahko zamenjate ID jezika z natančnim jezikom, ki ga želite. Za ID več jezikov pa lahko obiščete: https://docs.microsoft.com/en-us/previous-versions/office/developer/office-2003/aa172988(v=office.11)

Pravilno ravnajte s poškodovanimi datotekami Word

Tu in tam se Word zaustavi ali zamrzne zaradi vseh vrst napak ali napak. Recimo, če datotek ne varnostno kopirate redno, obstaja velika možnost, da izgubite vse dragocene podatke. In 2 preostali rešitvi sta bodisi uporaba vgrajene funkcije Worda ali pridobitev programa za popravilo dokGlede na to, da prvo večinoma ne deluje tako dobro, je priporočljivo izbrati orodje drugega proizvajalca.

Uvod avtorja:

Vera Chen je strokovnjakinja za obnovitev podatkov v DataNumen, Inc., ki je vodilna na svetu na področju tehnologij za obnovitev podatkov, vključno z Popravek v Excelu in pdf popravilo programskih izdelkov. Za več informacij obiščite www.datanumen.com