Counting words from the start

[Dimsok]

I found here that script:

Sub WordCounter()
Dim oRev As Revision, i As Long
For Each oRev In ActiveDocument.Revisions
  If Int(oRev.Date) = Date And oRev.Type = wdRevisionInsert Then
    i = i + oRev.Range.ComputeStatistics(wdStatisticWords)
  End If
Next
MsgBox i & " words added today.", vbInformation
End Sub

But doesn't work. Shows always "0". I need script for counting words, which nulled when i start ms word. Why doesn't work?