2 Methoden zum Zählen der Gesamtzahl der Wörter einer Sprache in einem mehrsprachigen Word-Dokument

Im heutigen Artikel möchten wir Ihnen zwei Methoden vorstellen, um die Gesamtzahl der Wörter einer Sprache in einem mehrsprachigen Word-Dokument zu zählen.

Hin und wieder haben einige von Ihnen vielleicht den Wunsch, ein mehrsprachiges Word-Dokument zu bearbeiten. Daher kann es vorkommen, dass Sie die Wörter für eine bestimmte Sprache zählen möchten, aber feststellen müssen, dass Word diese Aufgabe nicht ausführen kann.

Dann ist es unser Ziel, Ihnen zwei nützliche Lösungen zur Lösung eines solchen Problems anzubieten.

Methode 1: Verwenden Sie die Option "Erweiterte Suche"

1. Klicken Sie zunächst auf die Schaltfläche mit dem umgedrehten Dreieck hinter „Suchen“ in der Gruppe „Bearbeiten“ auf der Registerkarte „Startseite“.     
2. Klicken Sie nun im Dialogfeld „Suchen und Ersetzen“ auf die Schaltfläche „Mehr“.
3. Und aktivieren Sie das Kontrollkästchen „Nur ganze Wörter suchen“.
4. Klicken Sie dann auf die Schaltfläche „Formatieren“.
5. Wählen Sie als nächstes „Sprache“.
6. Im Dialogfeld „Sprache suchen“ die gewünschte Sprache auswählen und auf „OK“ klicken.
7. Kehren Sie nun zum Feld „Suchen und Ersetzen“ zurück, klicken Sie auf „Suchen in“ und wählen Sie „Hauptdokument“.
8. Als nächstes werden alle englischen Wörter ausgewählt und die Wortanzahl in der unteren linken Ecke des Bildschirms überprüft. Wir können sehen, dass die Zahl 93 ist.

Methode 2: Führen Sie das Word-Makro aus

1. Klicken Sie zunächst auf die Registerkarte „Entwickler“.
2. Klicken Sie dann auf „Visual Basic“, um den VBA-Editor zu starten. Falls Sie die Registerkarte „Entwickler“ noch nicht aktiviert haben, drücken Sie stattdessen „Alt+F11“.
3. Klicken Sie anschließend auf „Normal“ und dann auf „Einfügen“.
4. Wählen Sie "Modul".
5. Und doppelklicken Sie auf das neue Modul, um den Codierungsbereich zu öffnen.
6. Fügen Sie dort die folgenden Codes ein:

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. Klicken Sie abschließend auf die Schaltfläche "Ausführen".

Es erscheint ein Meldungsfeld. Die Zahl bezieht sich auf die Gesamtzahl der Wörter französischer Texte in diesem Dokument.

Hinweis:

In der Codezeile “.LanguageID = wdFrench", das "wdFranzösisch„bedeutet französische Sprache. Um die Codes für eine spezifischere Verwendung anzupassen, können Sie die Sprach-ID durch die genaue gewünschte Sprache ersetzen. Weitere Informationen zur Spracherkennung finden Sie unter: https://docs.microsoft.com/en-us/previous-versions/office/developer/office-2003/aa172988(v=office.11)

Behandeln Sie beschädigte Word-Dateien ordnungsgemäß

Hin und wieder wird Word aufgrund aller möglichen Fehler oder Irrtümer heruntergefahren oder friert ein. Wenn Sie beispielsweise Ihre Dateien nicht regelmäßig sichern, besteht die große Gefahr, dass alle wertvollen Daten verloren gehen. Und die beiden verbleibenden Workarounds bestehen darin, entweder die integrierte Funktion von Word zu nutzen oder ein Programm dafür herunterzuladen Reparatur docAngesichts der Tatsache, dass die erstgenannte Methode in den meisten Fällen nicht so gut zu funktionieren scheint, ist es ratsam, ein Tool eines Drittanbieters zu wählen.

Einführung des Autors:

Vera Chen ist eine Datenrettungsexpertin in DataNumen, Inc., das weltweit führend bei Datenwiederherstellungstechnologien ist, einschließlich Excel-Fix und pdf Reparatur von Softwareprodukten. Für weitere Informationen besuchen Sie www.datanumen.com €XNUMX