Поиск нескольких слов сразу

Option Explicit
 
Sub Main()
'Массив можно мысленно представить как обычную таблицу
'(например, таблица в документе Word), состоящую из строк и столбцов.
'В нашем массиве будет разное количество строк, но всегда будет 2 столбца:
'в первом столбце будет слово с буквой "е", а во втором столбце будет слово с буквой "ё".
'1 To 3 - означает 3 строки, 1 To 2 - два столбца.
'Вам нужно вместо 3 указать: сколько слов вам надо заменить.
Dim Массив(1 To 3, 1 To 2) As String
'i - просто переменная, используемая в коде для решения какой-нибудь задачи.
Dim i As Long
'Помещаем в Массив слова. Двоеточие используется, чтобы
'в одной строке можно было писать несколько команд.
Массив(1, 1) = "еж": Массив(1, 2) = "ёж"
Массив(2, 1) = "шелк": Массив(2, 2) = "шёлк"
Массив(3, 1) = "мед": Массив(3, 2) = "мёд"
'Берём каждый элемент массива (это слова) и
'направляем их в Процедура1, где осуществляется Поиск и замена.
'UBound(Массив, 1) - это количество строк в массиве.
'1 - означает, что определяем количество строк в массиве,
'если указать 2, то подсчитаем количество столбцов в массиве.
For i = 1 To UBound(Массив, 1) Step 1
    Call Процедура1(Массив(i, 1), Массив(i, 2))
Next i
'Просто сообщение, что всё готово.
MsgBox "Замена слов завершена.", vbInformation
End Sub
 
Sub Процедура1(Поиск As String, Замена As String)
'Поиск и замена.
With ActiveDocument.Content.Find
    .Text = Поиск
    .Replacement.Text = Замена
    .Execute Replace:=wdReplaceAll
End With
End Sub