Hi Tomas,

"Word" and "Sentence" are *fuzzy* concepts of *fuzzy*
natural language, therefore almost impossible to use
in not fuzzy programming.

However, to get you started,
play with this one:

Sub Test()
Dim lngSnt As Long   ' counting sentences
Dim rngSnt As Range  ' range of a sentence
Dim rngWrd As Range  ' range of a word
Dim rngTmp As Range  ' a temporary range
Set rngTmp = selection.Range
For Each rngSnt In ActiveDocument.Sentences
  lngSnt = lngSnt + 1
  rngSnt.Select ' for testing
  For Each rngWrd In rngSnt.Words
     If rngWrd = "test" Then
        rngTmp.start = rngSnt.start
        rngTmp.End = rngWrd.End
        MsgBox lngSnt & ": " & rngTmp.Words.Count
     End If
  Next
Next
End Sub

HTH