Thread: Word Count Formula
View Single Post
 
Old 08-27-2013, 02:05 PM
gmaxey gmaxey is offline Windows 7 32bit Office 2010 (Version 14.0)
Expert
  
Join Date: May 2010
Location: Brasstown, NC
Posts: 1,598
gmaxey is just really nicegmaxey is just really nicegmaxey is just really nicegmaxey is just really nicegmaxey is just really nice
Default
It is an extremely complex process. See: http://gregmaxey.com/word_tip_pages/...cy_report.html

You might be able to user this:

Code:
Sub ScratchMacro()
'A basic Word macro coded by Greg Maxey
If ActiveDocument.ComputeStatistics(wdStatisticWords) > 3000 Then
  MsgBox ActiveDocument.ComputeStatistics(wdStatisticWords) - 430
End If
End Sub
__________________
Greg Maxey
Please visit my web site at http://www.gregmaxey.com/
Reply With Quote