Как убрать прогрессбар в строке состояния?

[Кукша]

В макросе для Word есть цикл вида:
For i = 1 To 100
NewSlovo = c(i)
With ActiveDocument.Content.Find
.Text = NewSlovo
With .Replacement
.ClearFormatting
.Highlight = True
End With
.Execute Replace:=wdReplaceAll, Format:=True
End With
StatusBar = "Проверено " & i & " из 1000"
Next i

Короче - обычная подсветка определённых слов в цикле с выдачей числа проверенных слов в строке состояния.
Но, при поиске и замене в строку состояния ещё выдаётся прогрессбар, показывающий ход выполнения каждой итерации цикла. Получается мельтешение - то цифра, то прогрессбар. Как бы прогрессбар погасить и оставить только цифры?
ЗЫ: Если раскрыть окно Word на весь экран, то прогрессбар появляется вообще посредине экрана, при том, что строка состояния с цифрами находится внизу как и положено.