Aantal keer dat een woord voorkomt

[handyhanky]

Ik wil het aantal keer dat een bepaald woord (bijv: "mijnwoord") voorkomt in een Word document tellen. Heeft iemand een eenvoudige code hiervoor?

 

[snb]

sub aantal()
  msgbox "aantal :  " & ubound(filter(split(replace(replace(replace(replace(replace(activedocument.content,vbcr," ")," "," . "),","," , "),";"," ; "),":"," : ")),"zoekwoord")),,"zoekwoord"
End Sub

 

[handyhanky]

en ja hoor het werkt. Nu kan ik ongestructureerde data (Word dus) toch gebruiken in Excell
Dank je wel

 

[Interface]

  msgbox "aantal :  " & ubound(filter(split(replace(replace(replace(replace(replace(activedocument.content,vbcr," ")," "," . "),","," , "),";"," ; "),":"," : ")),"zoekwoord")),,"zoekwoord"

Wow....