V dnešním článku bychom vám rádi představili 2 způsoby, jak spočítat celkový počet slov jednoho jazyka ve vícejazyčném dokumentu aplikace Word.
Někteří z vás mohou mít jednou za čas požadavek upravit vícejazyčný dokument aplikace Word. V důsledku toho se někdy stane, že budete chtít provést počítání slov pro jeden konkrétní jazyk, ale pouze zjistíte, že Word nemůže provést tento úkol.
Pak je cílem poskytnout vám 2 užitečná řešení, jak takový problém vyřešit.
Metoda 1: Použijte možnost „Rozšířené hledání“.
- Nejprve klikněte na tlačítko obráceného trojúhelníku za „Najít“ ve skupině „Úpravy“ na kartě „Domů“.
- Nyní v dialogovém okně „Najít a nahradit“ klikněte na tlačítko „Další“.
- A zaškrtněte políčko „Najít pouze celá slova“.
- Poté klikněte na tlačítko „Formátovat“.
- Dále vyberte „Jazyk“.
- V dialogovém okně „Najít jazyk“ vyhledejte a vyberte cílový jazyk a klikněte na tlačítko „OK“.
- Nyní zpět do pole „Najít a nahradit“, klikněte na „Najít v“ a vyberte „Hlavní dokument“.
- Dále budou vybrána všechna anglická slova a přejděte ke kontrole počtu slov v levém dolním rohu obrazovky. Vidíme, že číslo je 93.
Metoda 2: Spusťte makro aplikace Word
- Chcete-li začít, klikněte na kartu „Vývojář“.
- Poté kliknutím na „Visual Basic“ spusťte editor VBA. V případě, že ještě nemáte povolenou záložku „Vývojář“, stiskněte místo toho „Alt+ F11“.
- Dále klikněte na „Normální“ a poté na „Vložit“.
- Vyberte „Modul“.
- A dvojitým kliknutím na nový modul otevřete prostor pro kódování.
- Pak tam vložte následující 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
- Nakonec klikněte na tlačítko „Spustit“.
Objeví se okno se zprávou. Číslo odkazuje na celkový počet slov francouzských textů v tomto dokumentu.
Poznámka:
V řádku kódu “.LanguageID = wdFrench“,„wdfrancouzsky“ znamená francouzský jazyk. Chcete-li upravit kódy pro specifičtější použití, můžete nahradit ID jazyka přesným jazykem, který chcete. A pro další jazykové ID můžete navštívit: https://docs.microsoft.com/en-us/previous-versions/office/developer/office-2003/aa172988(v=office.11)
Správně zacházet s poškozenými soubory aplikace Word
Tu a tam se Word vypne nebo zamrzne kvůli všem druhům chyb nebo chyb. Řekněme, že pokud se vám nepodaří pravidelně zálohovat soubory, existuje velká možnost, že ztratíte všechna drahocenná data. A zbývající 2 řešení je buď využít vestavěnou funkci Wordu, nebo získat program oprava docVzhledem k tomu, že první z nich ve většině případů nefunguje tak dobře, je vhodné zvolit nástroj třetí strany.
Úvod autora:
Vera Chen je expertka na obnovu dat DataNumen, Inc., která je světovým lídrem v oblasti technologií pro obnovu dat, včetně Oprava aplikace Excel a pdf opravy softwarových produktů. Pro více informací navštivte www.datanumen.com