Microsoft Office Forums - View Single Post

Dimsok · 09-13-2014, 07:52 AM

I found here that script:

Code:

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?