Word counting macro for newly added portion?

macropod · #1 11-27-2012, 02:52 PM

Try changing the Function to:

Code:

Function CountRevisions(Rng As Range) As Long
Dim i As Long, j As Long
With Rng
  For i = 1 To .Revisions.Count
    If .Revisions(i).Type = wdRevisionInsert Then
      j = j + .Revisions(i).Range.ComputeStatistics(wdStatisticWords)
    End If
  Next
End With
CountRevisions = j
End Function

New Daddy · #2 11-27-2012, 09:09 PM

It's perfectly working now! Thanks!

New Daddy · #3 11-29-2012, 11:16 PM

In an attempt to be honest about my daily work progress, I added a couple of lines to the CountRevisions function so that it can subtract the number of words deleted, to give the total the net words added. But it doesn't work. It doesn't seem to be subtracting the number of words deleted.

Any idea why not? Could this be another Word 2003 issue?

Code:

Function CountRevisions(Rng As Range) As Long
Dim oRev As revision, i As Long, j As Long

With Rng
  For i = 1 To .Revisions.Count
    If .Revisions(i).Type = wdRevisionInsert Then
      j = j + .Revisions(i).Range.ComputeStatistics(wdStatisticWords)
    End If
    If .Revisions(i).Type = wdRevisionDelete Then
      j = j - .Revisions(i).Range.ComputeStatistics(wdStatisticWords)
    End If
  Next
End With

CountRevisions = j
End Function

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
Counting Colors	g48dd	Excel	2	03-13-2011 09:28 PM
Added letters to body message	kawzie	Outlook	1	07-12-2010 11:00 AM
Half hour added between tasks	maruchi	Project	1	06-17-2010 08:06 AM
Form field to automatically be added to header?	razberri	Word VBA	3	02-22-2010 03:48 PM
Help! All Messages in Web Email deleted when account added to Outlook	UrbanEast	Outlook	2	07-17-2009 09:32 PM