2 metode pentru a număra numărul total de cuvinte dintr-o limbă într-un document Word în mai multe limbi

În articolul de astăzi, am dori să vă prezentăm 2 metode pentru a număra numărul total de cuvinte dintr-o limbă într-un document Word în mai multe limbi.

Din când în când, unii dintre voi au nevoie să editeze un document Word în mai multe limbi. Ca rezultat, vor exista momente în care doriți să numărați cuvintele pentru o anumită limbă, dar numai să găsiți că Word nu poate îndeplini această sarcină.

Apoi, scopul este de a vă oferi 2 soluții utile pentru a rezolva o astfel de problemă.

Metoda 1: Folosiți opțiunea „Găsire avansată”.

1. Mai întâi, faceți clic pe butonul triunghi invers din spatele „Găsiți” în grupul „Editare” din fila „Acasă”.     
2. Acum, în caseta de dialog „Găsiți și înlocuiți”, faceți clic pe butonul „Mai multe”.
3. Și bifați caseta „Găsiți numai cuvinte întregi”.
4. Apoi faceți clic pe butonul „Format”.
5. Apoi alegeți „Limbă”.
6. În caseta de dialog „Găsire limbă”, găsiți și selectați limba țintă și faceți clic pe „OK”.
7. Acum reveniți la caseta „Găsiți și înlocuiți”, faceți clic pe „Găsiți în” și alegeți „Documentul principal”.
8. În continuare, toate cuvintele în limba engleză vor fi selectate și mergeți pentru a verifica numărul de cuvinte în colțul din stânga jos al ecranului. Putem vedea că numărul este 93.

Metoda 2: Executați Word Macro

1. Pentru început, faceți clic pe fila „Dezvoltator”.
2. Apoi faceți clic pe „Visual Basic” pentru a declanșa editorul VBA. În cazul în care nu ați activat încă fila „Dezvoltator”, apăsați în schimb „Alt+ F11”.
3. Apoi faceți clic pe „Normal” și apoi faceți clic pe „Inserare”.
4. Alegeți „Modul”.
5. Și faceți dublu clic pe noul modul pentru a deschide spațiul de codare.
6. Apoi lipiți acolo următoarele coduri:

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. În cele din urmă, faceți clic pe butonul „Run”.

Va apărea o casetă de mesaje. Numărul se referă la numărul total de cuvinte ale textelor franceze din acest document.

Notă:

În linia de cod „.LanguageID = wdfranceză”,„wdfranceză” înseamnă limba franceză. Pentru a personaliza codurile pentru o utilizare mai specifică, puteți înlocui ID-ul limbii cu limba exactă dorită. Și pentru mai multe coduri de limbă, puteți vizita: https://docs.microsoft.com/en-us/previous-versions/office/developer/office-2003/aa172988(v=office.11)

Gestionați corect fișierele Word corupte

Din când în când, Word se va închide sau îngheța din cauza a tot felul de erori sau greșeli. Să spunem, dacă nu reușiți să faceți copii de siguranță ale fișierelor în mod regulat, există o mare posibilitate de a pierde toate datele prețioase. Și cele 2 soluții rămase sunt fie să utilizați funcția încorporată a Word, fie să obțineți un program pentru reparatie docAvând în vedere faptul că prima variantă nu pare să funcționeze atât de bine în majoritatea cazurilor, este recomandabil să alegeți un instrument terț.

Introducerea autorului:

Vera Chen este expertă în recuperarea datelor DataNumen, Inc., care este lider mondial în tehnologiile de recuperare a datelor, inclusiv Remediere Excel și pdf repararea produselor software. Pentru mai multe informații vizitați www.datanumen.com