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