2 meetodit ühe keele sõnade koguarvu loendamiseks mitmekeelses Worddokumendis

Sõnalahendused September 28, 2025

Tänases artiklis tutvustame teile 2 meetodit ühe keele sõnade koguarvu arvestamiseks mitmekeelses Wordi dokumendis.

Aeg-ajalt võib mõnel teist tekkida nõudlus mitmekeelse Wordi dokumendi redigeerimiseks. Selle tulemusena soovite mõnikord ühe konkreetse keele jaoks sõnu lugeda, kuid ainult selleks, et leida, et Word ei suuda seda ülesannet täita.

Seejärel on eesmärk pakkuda teile 2 kasulikku lahendust sellise probleemi lahendamiseks.

1. meetod: kasutage valikut „Täpsem otsing”.

  1. Kõigepealt klõpsake vahekaardi "Kodu" all olevas rühmas "Redigeerimine" valiku "Leia" taga olevat tagurpidi kolmnurga nuppu.     Klõpsake "Avaleht" -> nuppu -> Klõpsake "Täpsem otsing"
  2. Nüüd klõpsake dialoogiboksis "Otsi ja asenda" nuppu "Veel".
  3. Ja märkige ruut "Otsi ainult terveid sõnu".
  4. Seejärel klõpsake nuppu "Vorminda".
  5. Järgmisena valige "Keel".Klõpsake "Vorming" -> Valige keel
  6. Otsige dialoogiboksis „Keele otsimine” üles ja valige tarhankige keel ja klõpsake "OK".Valige keel-> klõpsake "OK"
  7. Nüüd tagasi kasti "Otsi ja asenda", klõpsake nuppu "Leia" ja valige "Põhidokument".Klõpsake "Otsi" -> valige "Põhidokument"
  8. Järgmisena tuleb valida kõik ingliskeelsed sõnad ja minna ekraani vasakus allnurgas sõnade loenduse kontrollimisele. Näeme, et number on 93.Kontrollige ingliskeelsete sõnade sõnade arvu

2. meetod: käivitage Wordi makro

  1. Et start, klõpsake vahekaarti „Arendaja”.
  2. Seejärel klõpsake VBA redaktori käivitamiseks "Visual Basic". Kui teil pole vahekaarti "Arendaja" veel lubatud, vajutage selle asemel "Alt+ F11".Klõpsake "Arendaja" -> Klõpsake "Visual Basic".
  3. Järgmisena klõpsake nuppu "Tavaline" ja seejärel nuppu "Lisa".
  4. Valige "Moodul".Klõpsake "Tavaline" -> Klõpsake "Lisa" -> klõpsake "Moodul"
  5. Ja topeltklõpsake uuel moodulil kodeerimisruumi avamiseks.
  6. Seejärel kleepige sinna järgmised koodid:
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
  1. Lõpuks klõpsake nuppu "Käivita".Kleebi koodid -> klõpsake "Käivita"

Ilmub sõnumikast. Arv viitab selle dokumendi prantsuskeelsete tekstide sõnade koguarvule.Sõnumikast, mis näitab prantsuskeelsete tekstide koguarvu

Märge:

Koodireal ".LanguageID = wdprantsuse keel”,wd prantsuse keel” tähendab prantsuse keelt. Koodide täpsemaks kasutamiseks kohandamiseks saate keele ID asendada täpselt soovitud keelega. Ja rohkema keele ID saamiseks külastage: https://docs.microsoft.com/en-us/previous-versions/office/developer/office-2003/aa172988(v=office.11)

Käsitsege rikutud Wordi faile õigesti

Aeg-ajalt lülitub Word välja või hangub igasuguste vigade või vigade tõttu. Ütleme nii, et kui te ei suuda faile regulaarselt varundada, on suurepärane võimalus kaotada kõik väärtuslikud andmed. Jäänud on kaks lahendust: kasutada Wordi sisseehitatud funktsiooni või hankida selleks programm remondi doc. Arvestades asjaolu, et esimene ei tundu m-is nii hästi töötavatost aja jooksul, on soovitatav valida kolmanda osapoole tööriist.

Autori sissejuhatus:

Vera Chen on andmete taastamise ekspert DataNumen, Inc., mis on maailmas juhtiv andmete taastamise tehnoloogiate, sealhulgas Exceli parandus ja pdf tarkvaratooted. Lisateabe saamiseks külastage www.datanumenCom

Kommentaarid on suletud.