More comfortable window / desktop management for Windows ►

◄ My review: Leatherman Kick and Micra

In short: this piggybacks the save function by executing the save then showing you the word count in the status bar, which fits neatly with the behaviour of us paranoid types who hit Ctrl+S regularly.

Later versions of Word have a toolbar built in to show word count, but Office 2000 is still in wide usage so I figured I'd share. Apply at own risk.

Sub FileSave()
' Check for unsaved document, then act appropriately
If ActiveDocument.Path = "" Then
	Dialogs(wdDialogFileSaveAs).Show
Else
	ActiveDocument.Save
End If
' Show statistics in the status bar
wordsMainBody = ActiveDocument.Range.ComputeStatistics(wdStatisticWords)
wordsFootnotes = 0
For i = 1 To ActiveDocument.Range.Footnotes.Count
	wordsFootnotes = wordsFootnotes + _
	ActiveDocument.Range.Footnotes(i).Range.ComputeStatistics(wdStatisticWords)
Next i
wordsEndnotes = 0
For i = 1 To ActiveDocument.Range.Endnotes.Count
	wordsEndnotes = wordsEndnotes + _
	ActiveDocument.Range.Endnotes(i).Range.ComputeStatistics(wdStatisticWords)
Next i
wordsNotes = wordsFootnotes + wordsEndnotes
wordsTotal = wordsMainBody + wordsNotes
wordsExtra = "."
If wordsNotes > 0 Then wordsExtra = ", plus " & wordsNotes & _
" words in notes for a total of " & FormatNumber(wordsTotal, 0) & "."
StatusBar = "This document contains " & _
FormatNumber(wordsMainBody, 0) & " words" & wordsExtra & _
" This does not include words in headers, textboxes, etc."
End Sub

💬 Comments are off, but you can use the mail form to contact or see the about page for social media links.

BLOG  MORE  ABOUT  MAIL