Как ускорить работу макросов в Word VBA

[Скрипт]

Предложу свои варианты:

Sub Procedure_1()

    '1. Отключение обновления монитора.
    Application.ScreenUpdating = False
    
    '2. Переход в режим "Черновик".
    ActiveDocument.Windows(1).View.Type = wdNormalView
    
    '3. Отключение проверки правописания.
    Application.Options.CheckGrammarAsYouType = False
    Application.Options.CheckGrammarWithSpelling = False
    Application.Options.ContextualSpeller = False
    Application.Options.CheckSpellingAsYouType = False
    Application.Options.ShowReadabilityStatistics = False
    ActiveDocument.ShowGrammaticalErrors = False
    ActiveDocument.ShowSpellingErrors = False
    
End Sub

[Вождь]

Не трогать Selection

[Скрипт]

Пункт 1

Попробовать сначала использовать команду Find. Если не получается использовать команду Find, то тогда уже просматривать каждый элемент: абзац, слово и т.д.


Пункт 2

Может быть в каких-то случаях можно запретить обновление полей на время работы кода:

ActiveDocument.Fields.Locked=True

[Skif-F]

Если на важны структура и форматирование документа - берём весь текст в строковую переменную и...

Dim strTemp As String           'Определяет переменную для исходного текста
Selection.HomeKey Unit:=wdStory      'Устанавливает курсор в начало текста
Selection.EndKey Unit:=wdStory, Extend:=wdExtend    'выделяет весь текст
strTemp = Selection.Text        'Загружает выделенный текст в переменную