W dzisiejszym artykule chcielibyśmy przedstawić 2 metody obliczania całkowitej liczby słów w jednym języku w wielojęzycznym dokumencie Word.
Od czasu do czasu niektórzy z was mogą chcieć edytować wielojęzyczny dokument Word. W rezultacie będziesz chciał policzyć słowa w jednym określonym języku, ale tylko po to, aby znaleźć program Word, który nie może wykonać tego zadania.
W takim razie naszym celem jest przedstawienie 2 przydatnych rozwiązań, które pozwolą rozwiązać taki problem.
Metoda 1: Użyj opcji „Szukanie zaawansowane”
- Po pierwsze, kliknij odwrócony trójkątny przycisk za „Znajdź” w grupie „Edycja” na karcie „Strona główna”.
- Teraz w oknie dialogowym „Znajdź i zamień” kliknij przycisk „Więcej”.
- Zaznacz pole „Znajdź tylko całe słowa”.
- Następnie kliknij przycisk „Format”.
- Następnie wybierz „Język”.
- W oknie dialogowym „Znajdź język” znajdź i wybierz język docelowy, a następnie kliknij „OK”.
- Teraz wróć do pola „Znajdź i zamień”, kliknij „Znajdź w” i wybierz „Dokument główny”.
- Następnie należy wybrać wszystkie angielskie słowa i przejść do sprawdzenia liczby słów w lewym dolnym rogu ekranu. Widzimy, że liczba to 93.
Metoda 2: Uruchom makro programu Word
- Aby rozpocząć, kliknij zakładkę „Deweloper”.
- Następnie kliknij „Visual Basic”, aby uruchomić edytor VBA. Jeśli nie masz jeszcze włączonej zakładki „Deweloper”, naciśnij zamiast tego „Alt + F11”.
- Następnie kliknij „Normalne”, a następnie „Wstaw”.
- Wybierz „Moduł”.
- Kliknij dwukrotnie nowy moduł, aby otworzyć przestrzeń kodowania.
- Następnie wklej tam następujące kody:
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
- Na koniec kliknij przycisk „Uruchom”.
Pojawi się okno komunikatu. Liczba odnosi się do wszystkich słów francuskich tekstów w tym dokumencie.
Uwaga:
W linii kodu „.JęzykID = wdfrancuski”,„wdfrancuski”Oznacza język francuski. Aby dostosować kody do bardziej konkretnych zastosowań, możesz zastąpić identyfikator języka dokładnym językiem, który chcesz. Aby uzyskać więcej identyfikatorów języka, możesz odwiedzić: https://docs.microsoft.com/en-us/previous-versions/office/developer/office-2003/aa172988(v=office.11)
Prawidłowo obsługuj uszkodzone pliki Word
Od czasu do czasu program Word będzie się wyłączał lub zawieszał z powodu wszelkiego rodzaju błędów lub pomyłek. Powiedzmy, że jeśli regularnie nie tworzysz kopii zapasowych plików, istnieje duża możliwość utraty wszystkich cennych danych. A 2 pozostałe obejścia to wykorzystanie wbudowanej funkcji programu Word lub uzyskanie programu naprawa docBiorąc pod uwagę fakt, że pierwsze rozwiązanie zazwyczaj nie działa zbyt dobrze, zaleca się wybór narzędzia innej firmy.
Wprowadzenie autora:
Vera Chen jest ekspertem w dziedzinie odzyskiwania danych w DataNumen, Inc., która jest światowym liderem w technologiach odzyskiwania danych, w tym Poprawka programu Excel i pdf oprogramowanie do naprawy. po więcej informacji odwiedź www.datanumen.com