Sub test()
    Dim a
    ' Set status bar text
    StatusBar = ("Please wait...")
    ' Turn cursor to wait
    'System.Cursor = wdCursorWait                  '<- here (note that it isn't active)
    ' My script runs here...
    Do While a < 2001
        For a = 1 To 2000
            Selection.TypeText Text:="abc"
        Next a
    Loop
    ' Turn cursor back to normal.
    StatusBar = ("Complete")
    System.Cursor = wdCursorNormal
End Sub