I am new to VBA (in fact any programing) so any help that you can give would be much appreciated.

I am trying to write a script in Word 2010 that calculates theperiod of time it takes someone to read a word document out loud. I have managed to get everything working (seethe script below) and the output displayed on the Application Status Barhowever, I am stuck on one point.

I am looking to have the application status bar continually updated as the user types in the document. Is there a way I can do this? Thanks for any help.

Script
Sub WordsPerMinute()
' Script to calculate the time it takes to read a presentation

Dim intNoWordsPerMin As Integer
Dim WordCount As Integer
Dim WordsMin As Integer
Dim WordsSec As Integer

' Set the number of words a minute someone can read a minute
intNoWordsPerMin = 120

' Reads how many words in the document
WordCount = CInt(ActiveDocument.Words.Count - 1)

' Calculates the number of words read in a minute
WordsMin = WordCount / intNoWordsPerMin

' Calculates the remaining number words and how long it takes to read them in seconds
WordsSec = (WordCount Mod intNoWordsPerMin) / intNoWordsPerMin * 60

' Displays the output on the Application Status Bar
Application.StatusBar = "Duration of Script Approximately : " & Right(WordsMin + 100, 2) & ":" & Right(WordsSec + 100, 2)
End Sub