#1
|
|||
|
|||
Counting words from the start
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 Last edited by macropod; 09-13-2014 at 03:29 PM. Reason: Added code tags & formatting |
#2
|
||||
|
||||
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.
__________________
Cheers, Paul Edstein [Fmr MS MVP - Word] |
#3
|
|||
|
|||
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?
|
#4
|
||||
|
||||
That's not possible, for the same reasons I gave you in this thread: https://www.msofficeforums.com/word-...utosaving.html.
__________________
Cheers, Paul Edstein [Fmr MS MVP - Word] |
|
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 |