- Woord tellen

Home > VBA in Word

Tellen hoe vaak een bepaald woord voorkomt

Hebt u een lange tekst en wilt u weten hoe vaak een bepaald woord daarin voorkomt? Dan telt deze macro dat razendsnel voor u. Deze macro kunt u niet opnemen, maar u neemt de volgende code over. Daarvoor opent u eerst het VBA-venster, als volgt. Klik op de tab Beeld, klik op Macro's en klik op Macro's weergeven; het venster Macro's gaat open. Typ in het vak Macronaam als naam: TelWoord (dit is één woord). Klik op Maken; het VBA-venster gaat open. U ziet het raamwerk van een macro-code, die begint met:
Sub Telwoord()
en eindigt met:
End
Verwijder de groene regels die met een ' beginnen.
Selecteer onderstaande code en plak die tussen Sub TelWoord() en End, zodat het geheel er als volgt uitziet:

Sub TelWoord()
Dim Woord As String
Dim teller As Integer
    Woord = InputBox("Welk woord wilt u tellen?")
    If Woord = "" Then End
    Application.ScreenUpdating = False
    Selection.HomeKey Unit:=wdStory, Extend:=wdMove
        With Selection.Find
            .ClearFormatting
            .Text = Woord
            'Begin te tellen vanaf nul
            teller = 0
            Do While .Execute
                teller = teller + 1
                Selection.MoveRight
            Loop
        End With
    MsgBox "In deze tekst staat " & teller & " keer '" & Woord & "'."
    Application.ScreenUpdating = True
End Sub

Wilt u deze macro testen, laat dan dit VBA-venster open en zorg dat u een Word-document met tekst open hebt. Schakel over naar het VBA-venster. Klik ergens in deze code, klik op Uitvoeren en klik op Sub/UserForm uitvoeren (F5).
* sneltoets: of druk op dat moment op de F5-toets.
Er verschijnt een venster met de vraag: Welk woord wilt u tellen? Typ uw woord in het vak onder in dit venster, bijvoorbeeld: van

Klik op de knop OK (of druk op de Enter-toets). Hierop verschijnt een venster met de uitslag, in dit voorbeeld:
In deze tekst staat 7 keer 'van'.

Klik op de knop OK (of druk op de Enter-toets) om dit venster te sluiten.

Knop in de werkbalk Snelle toegang plaatsen

U wilt de macro die een bepaald woord telt, vaker kunnen gebruiken, en in al uw teksten. Daarvoor maakt u een eigen knop in de werkbalk Snelle toegang, helemaal boven de tabs van het lint. Klik met de rechtermuisknop op de werkbalk Snelle toegang en klik op Werkbalk Snelle toegang aanpassen.

Of klik op het pijltje rechts van de werkbalk Snelle toegang en kies Meer opdrachten.

Er verschijnt een venster met een lijst opdrachten. Klik in de keuzelijst Kies opdrachten uit op Macro's. In de lijst die verschijnt ziet u uw eigen macro aangeduid als: Normal.NewMacros.TelWoord. Klik daarop en klik op Toevoegen; de aanduiding verschijnt ook rechts in het venster (daar staan alle knoppen van de werkbalk Snelle toegang onder elkaar, in die werkbalk zelf staan ze naast elkaar).
Op de knop staat een standaardpictogram en die verandert u als volgt. Klik op de naam van uw macro (rechts in het venster) en klik op Wijzigen; er opent een venster met pictogrammen. Kies hier uw pictogram.
Als u later in de werkbalk Snelle toegang de muisaanwijzer op deze knop houdt, verschijnt er een infolabel. Wat daarin staat, kunt u hier ook instellen. Typ bij Weergavenaam een korte omschrijving bij deze knop, bijvoorbeeld: Tel een woord.
Sluit deze vensters; boven in beeld ziet u uw eigen knop met dit pictogram terug. Daarmee bedient u voortaan uw eigen woord-teller.

Op deze pagina komen meer voorbeelden van handige macro's voor Word.
Tot gauw!