Meest gebruikte woord opsporen

[Cisco18]

Ik vroeg me af er in Word 2003 of in Foxit reader een optie bestaat om te kijken welke woorden er in een document het meest voorkomen en welke op plek 2 en ga zo door. Ik weet dat er een zoekfunctie bestaat maar dat bedoel ik niet. Als zoiets niet kan in word of foxit reader bestaat er wel een programma die dat wel op kan zoeken ? al vast bedankt.

 

[snb]

Ik heb het even voor je gemaakt.

Sub woordfrequentie()
  Application.ScreenUpdating = False
  For Each wd In ActiveDocument.Words
    If InStr(vbCr & c0 & vbCr, wd) = 0 And Len(wd) > 1 Then c0 = c0 & (Len(ActiveDocument.Content) - Len(Replace(ActiveDocument.Content, wd, ""))) \ Len(wd) & vbTab & wd & vbCr
  Next
  Documents.Add
  ActiveDocument.Content = c0
  ActiveDocument.Content.Sort
  Application.ScreenUpdating = True
End Sub