2 tapaa laskea yhden kielen sanat monikielisessä Word-asiakirjassa

Tämän päivän artikkelissa haluamme esitellä teille kaksi tapaa laskea yhden kielen sanat monikielisessä Word-asiakirjassa.

Joskus jotkut teistä saattavat vaatia muokkaamaan monikielistä Word-asiakirjaa. Tämän seurauksena joskus haluat laskea sanat yhdelle tietylle kielelle, mutta vain löytääksesi Wordin, joka ei pysty suorittamaan tätä tehtävää.

Sitten on tarkoitus tarjota sinulle kaksi hyödyllistä ratkaisua tällaisen ongelman ratkaisemiseksi.

Tapa 1: Käytä Advanced Find -vaihtoehtoa

1. Napsauta ensin ylösalaisin olevaa kolmiopainiketta "Etsi" takana "Muokkaus" -ryhmän "Koti" -välilehdessä.     
2. Napsauta nyt "Etsi ja korvaa" -valintaikkunassa "Lisää" -painiketta.
3. Ja valitse "Etsi vain sanat" -ruutu.
4. Napsauta sitten "Muotoile" -painiketta.
5. Valitse seuraavaksi "Kieli".
6. Etsi ja valitse kohdekieli ”Etsi kieli” -valintaikkunassa ja napsauta ”OK”.
7. Palaa nyt "Etsi ja korvaa" -ruutuun, napsauta "Etsi" ja valitse "Pääasiakirja".
8. Seuraavaksi on valittava kaikki englanninkieliset sanat ja tarkistettava sanojen määrä näytön vasemmassa alakulmassa. Voimme nähdä, että luku on 93.

Tapa 2: Suorita Word-makro

1. Aloita napsauttamalla ”Kehittäjä”-välilehteä.
2. Napsauta sitten “Visual Basic” käynnistääksesi VBA -editorin. Jos "Kehittäjä" -välilehti ei ole vielä käytössä, paina sen sijaan "Alt+ F11".
3. Napsauta seuraavaksi "Normaali" ja sitten "Lisää".
4. Valitse ”Moduuli”.
5. Ja kaksoisnapsauta uutta moduulia avataksesi koodaustilan.
6. Liitä sitten seuraavat koodit sinne:

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. Napsauta lopuksi Suorita-painiketta.

Ponnahdusikkuna tulee näkyviin. Numero viittaa ranskankielisten tekstien kokonaismäärään tässä asiakirjassa.

Huomautus:

Koodirivillä “.LanguageID = wdRanska”,wdRanska"Tarkoittaa ranskan kieltä. Jos haluat muokata koodeja tarkempaa käyttöä varten, voit korvata kielitunnuksen haluamallasi kielellä. Ja jos haluat lisää kielitunnusta, käy osoitteessa: https://docs.microsoft.com/en-us/previous-versions/office/developer/office-2003/aa172988(v=office.11)

Käsittele vioittuneet sanatiedostot oikein

Silloin tällöin Word sulkeutuu tai jäädyttää kaikenlaisten virheiden tai virheiden vuoksi. Sano, että jos et varmuuskopioi tiedostoja säännöllisesti, on suuri mahdollisuus menettää kaikki arvokkaat tiedot. Jäljellä olevat 2 kiertotapaa ovat joko Wordin sisäänrakennetun toiminnon hyödyntäminen tai ohjelman hankkiminen korjausasiakirjaKoska edellinen ei näytä toimivan niin hyvin useimmiten, on suositeltavaa valita kolmannen osapuolen työkalu.

Tekijän esittely:

Vera Chen on tietojen palauttamisen asiantuntija DataNumen, Inc., joka on maailman johtava tietojen palautustekniikoissa, mukaan lukien Excel-korjaus ja pdf korjata ohjelmistotuotteita. Lisätietoja osoitteessa www.datanumen.com