Counting words from the start

		Microsoft Office Forums > Microsoft Word > Word VBA
Counting words from the start

FAQ

Thread Tools

Display Modes

09-13-2014, 07:52 AM

Dimsok

Windows XP Counting words from the start

Office 2007

Advanced Beginner

Join Date: Sep 2014

Location: exUSSR

Posts: 50

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

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

Last edited by macropod; 09-13-2014 at 03:29 PM. Reason: Added code tags & formatting

« Previous Thread | Next Thread »

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

Other Forums: Access Forums

All times are GMT -7. The time now is 05:14 AM.