Небольшой вопрос

С большими  документами, очень актуален вывод статуса макроса. Если статус хороший, то видно, и сколько сделано и сколько осталось. Самый простой способ - выводить информацию в строку статуса Word. Пример:

Sub A()
Dim N As Long, T As Single
    Do
        ' ваш рабочий код
        ' ...
        ' статус раз в секунду
        If T < Timer Then
            T = Timer + 1
            N = N + 1 ' какой-то счетчик
            StatusBar = "Чтобы прервать, нажмите Ctrl + Break, потом End. Счетчик: " & N
            DoEvents
        End If
        ' ваш рабочий код
        ' ...
    Loop
End Sub

Если просто хотите узнать, висит ли Word или занят выполнением макроса, нажмите Ctrl+Break. Если выскочит окно, нажмите в нем кнопку Continue, чтобы продолжит работу макроса, End - чтобы прервать. Чуть подождите, и если ничего не произойдет, значит Word висит.

А ещё есть всякие прогресс бары. Если обрабатываете строки, то возьмите за 100% кол-во строк или кол-во символов, а каждую строку за 100 разделить на общее число строк (или общее число символов в документе). Я делал такой с покраской поля ввода текстбокса(кажется) в Юзер Форме (можете поискать в интернете). Вроде не сильно тормозил работу. Ну и видно, что грузится. Ну и сам статус бар ворда, как уже выше написали нормально отображает. Если файл большой и изменений много, то работа макросов может прилично времени занять.

Чтобы макрос меньше тратил времени на разбивку страниц, обработку отрисовки экрана, не останавливался на ненужных сообщениях, я сначала "запоминаю" текущие опции, назначаю нужные, а после обработки - восстанавливаю прежние опции, напр.:

'Storing current settings
app_screenupdating = Application.screenupdating
disp_alerts = Application.DisplayAlerts
view_mode = ActiveWindow.View.Type
opt_pag = Options.Pagination

'Setting runtime settings
Application.screenupdating = False
Application.DisplayAlerts = False
ActiveWindow.View.Type = wdNormalView
Options.Pagination = False

'Processing . . .

'Restoring previous settings
Application.DisplayAlerts = disp_alerts
ActiveWindow.View.Type = view_mode
Application.screenupdating = app_screenupdating
Options.Pagination = opt_pag
'If necessary, repaginate the document
Activedocument.Repaginate

Можно также подключать и другие режимы, напр., отображаемость кодов полей.