In het artikel van vandaag willen we u 2 methoden presenteren om het totale aantal woorden van één taal in een meertalig Word-document te tellen.
Af en toe hebben sommigen van u misschien de vraag om een meertalig Word-document te bewerken. Als gevolg hiervan zullen er momenten zijn dat u woorden wilt tellen voor een specifieke taal, maar alleen vindt dat Word deze taak niet kan uitvoeren.
Dan is het onze bedoeling om u 2 handige oplossingen te bieden om een dergelijk probleem aan te pakken.
Methode 1: Gebruik de optie "Geavanceerd zoeken"
- Klik eerst op de knop met de omgekeerde driehoek achter "Zoeken" in de groep "Bewerken" op het tabblad "Start".

- Klik nu in het dialoogvenster "Zoeken en vervangen" op de knop "Meer".
- En vink het vakje "Alleen hele woorden zoeken" aan.
- Klik vervolgens op de knop "Formatteren".
- Kies vervolgens "Taal".
- Zoek en selecteer de gewenste taal in het dialoogvenster "Taal zoeken" en klik vervolgens op "OK".
- Ga nu terug naar het vak "Zoeken en vervangen", klik op "Zoeken in" en kies "Hoofddocument".
- Vervolgens worden alle Engelse woorden geselecteerd en ga je naar het aantal woorden in de linkerbenedenhoek van het scherm. We zien dat het nummer 93 is.
Methode 2: Voer Word Macro uit
- Klik om te beginnen op het tabblad "Ontwikkelaar".
- Klik vervolgens op "Visual Basic" om de VBA-editor te activeren. Als u het tabblad "Ontwikkelaar" nog niet hebt ingeschakeld, drukt u in plaats daarvan op "Alt + F11".
- Klik vervolgens op "Normaal" en klik vervolgens op "Invoegen".
- Kies "Module".
- En dubbelklik op de nieuwe module om de codeerruimte te openen.
- Plak daar dan de volgende codes:
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
- Klik ten slotte op de knop "Uitvoeren".
Er verschijnt een berichtvenster. Het aantal verwijst naar het totale aantal woorden van Franse teksten in dit document.
Opmerking:
In coderegel ".LanguageID = wdFrans", de "wdFrans” betekent Franse taal. Om de codes aan te passen voor meer specifiek gebruik, kunt u de taal-ID vervangen door de exacte taal die u wilt. En voor de meer taal-ID kunt u terecht op: https://docs.microsoft.com/en-us/previous-versions/office/developer/office-2003/aa172988(v=office.11)
Behandel corrupte Word-bestanden op de juiste manier
Af en toe zal Word afsluiten of vastlopen vanwege allerlei fouten of vergissingen. Stel, als u er niet in slaagt regelmatig een back-up van bestanden te maken, is er een grote kans om alle kostbare gegevens te verliezen. En de 2 overgebleven tijdelijke oplossingen zijn ofwel om de ingebouwde functie van Word te gebruiken of om een programma te downloaden reparatie docAangezien de eerstgenoemde methode in de meeste gevallen niet zo goed lijkt te werken, is het raadzaam om een tool van een derde partij te kiezen.
Auteur Introductie:
Vera Chen is een expert op het gebied van gegevensherstel in DataNumen, Inc., de wereldleider in technologieën voor gegevensherstel, waaronder Excel-oplossing en pdf reparatie softwareproducten. Voor meer informatie bezoek www.datanumen.com







