Šiandienos straipsnyje norėtume jums pristatyti 2 būdus, kaip suskaičiuoti bendrą vienos kalbos žodžių skaičių kelių kalbų Word dokumente.
Kartais kai kuriems iš jūsų gali kilti poreikis redaguoti kelių kalbų „Word“ dokumentą. Todėl kartais norėsite skaičiuoti vienos konkrečios kalbos žodžius, bet tik norėdami rasti, kad „Word“ negali atlikti šios užduoties.
Tada norime pateikti 2 naudingus sprendimus, kaip išspręsti tokią problemą.
1 būdas: naudokite parinktį „Išplėstinė paieška“.
- Pirmiausia spustelėkite apversto trikampio mygtuką, esantį už „Rasti“ skirtuko „Pagrindinis“ grupėje „Redagavimas“.
- Dabar dialogo lange „Rasti ir pakeisti“ spustelėkite mygtuką „Daugiau“.
- Ir pažymėkite laukelį „Rasti tik visus žodžius“.
- Tada spustelėkite mygtuką „Formatuoti“.
- Tada pasirinkite „Kalba“.
- Dialogo lange „Rasti kalbą“ suraskite ir pasirinkite tikslinę kalbą ir spustelėkite „Gerai“.
- Dabar grįžkite į laukelį „Rasti ir pakeisti“, spustelėkite „Rasti“ ir pasirinkite „Pagrindinis dokumentas“.
- Tada pasirenkami visi angliški žodžiai ir tikrinamas žodžių skaičius apatiniame kairiajame ekrano kampe. Matome, kad skaičius yra 93.
2 būdas: paleiskite Word makrokomandą
- Norėdami pradėti, spustelėkite skirtuką „Kūrėjas“.
- Tada spustelėkite „Visual Basic“, kad paleistumėte VBA redaktorių. Jei dar neįjungėte skirtuko „Kūrėjas“, paspauskite „Alt+ F11“.
- Tada spustelėkite „Įprastas“, tada spustelėkite „Įterpti“.
- Pasirinkite „Modulis“.
- Ir dukart spustelėkite naują modulį, kad atidarytumėte kodavimo erdvę.
- Tada įklijuokite šiuos kodus:
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
- Galiausiai spustelėkite mygtuką „Vykdyti“.
Atsiras pranešimų dėžutė. Skaičius nurodo bendrą šio dokumento prancūziškų tekstų žodžių skaičių.
Pastaba:
Kodo eilutėje “.LanguageID = wdprancūzų kalba“,„wd prancūzų kalba“ reiškia prancūzų kalbą. Norėdami pritaikyti kodus konkretesniam naudojimui, kalbos ID galite pakeisti tiksliai norima kalba. Daugiau kalbos ID rasite apsilankę: https://docs.microsoft.com/en-us/previous-versions/office/developer/office-2003/aa172988(v=office.11)
Tinkamai tvarkykite sugadintus Word failus
Retkarčiais „Word“ išsijungs arba sustings dėl visų rūšių klaidų ar klaidų. Tarkime, jei nepavyksta reguliariai kurti atsarginių failų kopijų, yra didelė galimybė prarasti visus brangius duomenis. Liko 2 problemos sprendimo būdai – naudoti integruotą „Word“ funkciją arba gauti tam skirtą programą remonto docAtsižvelgiant į tai, kad pirmasis dažniausiai neveikia taip gerai, patartina rinktis trečiosios šalies įrankį.
Autoriaus įvadas:
Vera Chen yra duomenų atkūrimo ekspertė DataNumen, Inc., kuri yra pasaulyje duomenų atkūrimo technologijų lyderė, įskaitant Excel taisymas bei pdf programinės įrangos gaminių taisymas. Norėdami gauti daugiau informacijos, apsilankykite WWW.datanumen.com