V dnešnom článku by sme vám chceli predstaviť 2 spôsoby, ako spočítať celkový počet slov jedného jazyka vo viacjazyčnom dokumente Word.
Niektorí z vás môžu mať raz za čas požiadavku upraviť viacjazyčný dokument programu Word. V dôsledku toho sa niekedy stane, že budete chcieť vykonať počítanie slov pre jeden konkrétny jazyk, ale zistíte, že Word nedokáže vykonať túto úlohu.
Potom je cieľom poskytnúť vám 2 užitočné riešenia na vyriešenie takéhoto problému.
Metóda 1: Použite možnosť „Rozšírené vyhľadávanie“
- Najprv kliknite na tlačidlo trojuholníka hore nohami za „Nájsť“ v skupine „Úpravy“ na karte „Domov“.
- Teraz v dialógovom okne „Nájsť a nahradiť“ kliknite na tlačidlo „Viac“.
- A začiarknite políčko „Nájsť iba celé slová“.
- Potom kliknite na tlačidlo „Formátovať“.
- Ďalej vyberte „Jazyk“.
- V dialógovom okne „Vyhľadať jazyk“ vyhľadajte a vyberte cieľový jazyk a kliknite na tlačidlo „OK“.
- Teraz späť do poľa „Nájsť a nahradiť“, kliknite na „Nájsť v“ a vyberte „Hlavný dokument“.
- Ďalej je potrebné vybrať všetky anglické slová a prejsť na kontrolu počtu slov v ľavom dolnom rohu obrazovky. Vidíme, že číslo je 93.
Metóda 2: Spustenie makra programu Word
- Ak chcete začať, kliknite na kartu „Vývojár“.
- Potom kliknite na „Visual Basic“, čím spustíte editor VBA. V prípade, že ešte nemáte povolenú kartu „Vývojár“, stlačte namiesto toho „Alt+ F11“.
- Ďalej kliknite na „Normálne“ a potom kliknite na „Vložiť“.
- Vyberte „Modul“.
- Dvojitým kliknutím na nový modul otvoríte priestor na kódovanie.
- Potom tam vložte nasledujúce kódy:
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
- Nakoniec kliknite na tlačidlo „Spustiť“.
Objaví sa okno so správou. Číslo sa vzťahuje na celkový počet slov francúzskych textov v tomto dokumente.
Poznámka:
V riadku kódu „.LanguageID = wdFrancúzština“,„wdfrancúzsky“ znamená francúzsky jazyk. Ak chcete prispôsobiť kódy pre konkrétnejšie použitie, môžete nahradiť ID jazyka presným požadovaným jazykom. A ďalšie jazykové ID nájdete na: https://docs.microsoft.com/en-us/previous-versions/office/developer/office-2003/aa172988(v=office.11)
Správne zaobchádzať s poškodenými súbormi programu Word
Tu a tam sa Word vypne alebo zamrzne kvôli všetkým druhom chýb alebo chýb. Povedzme, že ak sa vám nepodarí pravidelne zálohovať súbory, existuje veľká možnosť, že stratíte všetky vzácne dáta. A zostávajúce 2 riešenia sú buď využitie vstavanej funkcie Wordu, alebo získanie programu oprava docVzhľadom na to, že prvý z nich vo väčšine prípadov nefunguje veľmi dobre, je vhodné zvoliť nástroj tretej strany.
Úvod autora:
Vera Chen je expertka na obnovu dát v DataNumen, Inc., ktorá je svetovým lídrom v oblasti technológií obnovy dát, vrátane Oprava programu Excel a pdf oprava softvérových produktov. Pre viac informácií navštívte www.datanumen. S