|
|
#10
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
__________________
Cheers, Paul Edstein [Fmr MS MVP - Word] |
|
|
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 |
Windows 7 64bit 
Office 2010 32bit
Threaded Mode