hjælp til program der kan sige hvor mange gange det enkelte ord g

Et bud - indsættes i VBA (Alt+F11) - ThisDocument -  aktiveres her med F5:

Dim ordTabel(), antalOrd
Private Sub optællingAfOrd()
    antalOrd = ThisDocument.Words.Count
   
    ReDim ordTabel(antalOrd, 2)
    nulstilTabel
   
    optæl
   
    visOptælling
    MsgBox ("Optælling afsluttet")
End Sub
Private Sub nulstilTabel()
    For f = 0 To antalOrd
        ordTabel(f, 0) = ""
        ordTabel(f, 1) = 0
    Next f
End Sub
Private Sub optæl()
    For Each ord In ActiveDocument.Words
        optælOrdet Trim(LCase(ord))
    Next
End Sub
Private Sub optælOrdet(ord)
    For f = 0 To antalOrd
        If ord = ordTabel(f, 0) Then
            ordTabel(f, 1) = ordTabel(f, 1) + 1
            Exit Sub
        Else
            If ordTabel(f, 0) = "" Then
Rem opdater nyt ord
                ordTabel(f, 0) = ord
                ordTabel(f, 1) = 1
                Exit Sub
            End If
        End If
    Next f
End Sub
Private Sub visOptælling()
    WordBasic.endofdocument
    WordBasic.Insertpara
    WordBasic.Insert "===========Ordoptælling==========" + vbCr
   
    For f = 0 To antalOrd
        If ordTabel(f, 0) = "" Then
            Exit Sub
        Else
            WordBasic.Insert ordTabel(f, 0) + ": " + CStr(ordTabel(f, 1)) + Chr(13)
           
        End If
    Next f
End Sub

Har du afprøvet koden?