Microsoft Office Forums - View Single Post - Word counting macro for newly added portion?

macropod · 01-07-2012, 11:35 PM

Hi New Daddy,

You could use a macro like:

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

Note that this only counts words in the body of the document - not anything in textboxes, headers, footers, etc.