Counting words from the start

Dimsok · #1 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?

macropod · #2 09-13-2014, 03:28 PM

Unless you had 'Track Changes' on when you made some changes today, the result must be 0.

PS: When posting code, please use the code tags. They're on the 'Go Advanced' tab at the bottom of this screen.

Dimsok · #3 09-13-2014, 09:32 PM

Is it possible to do something, that when i exceed some words per day popup messege will appear, saying that job is done or something like it?

macropod · #4 09-13-2014, 10:00 PM

That's not possible, for the same reasons I gave you in this thread: https://www.msofficeforums.com/word-...utosaving.html.

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
How to mark underlined words in a sentence as A, B, C, D (beneath the words)	thudangky	Word	13	12-12-2013 02:22 AM
Identifying and counting words	monique	Word	1	08-30-2012 05:33 AM
Why Words doesn’t show the style of the selected words automatically????	Jamal NUMAN	Word	0	04-14-2011 03:20 PM
listing and counting words	gencoglux	Word	2	05-07-2010 05:10 PM
Counting Legal Words	bulletrick	Word	0	12-30-2005 03:22 AM