Уважаемые эксперты подскажите, пожалуйста, почему при замене слов когда указано в коде, например АК заменить на
авто, заменяет на АВТО, то есть заменяет верно, но с регистром несоответствие, как избежать это, пример кода:

Dim Искомое_слово(3) As String
Dim Слово_для_замены(3) As String

Искомое_слово(1) = "АК": Слово_для_замены(1) = "авто "
Искомое_слово(2) = "АХЧ": Слово_для_замены(2) = "автомаш "
Искомое_слово(3) = "АРТ": Слово_для_замены(3) = "автомашина "

For i = 1 To 3
With ActiveDocument.Bookmarks("Ф").Range.Find 'поиск в определённом месте, в содержимом закладки, начинаем поиск
'задаем условия поиска, это стандартная процедура
.Text = Искомое_слово(i) 'искомое слово
.Replacement.Text = Слово_для_замены(i) 'слово для замены ...
.Replacement.Font.Color = wdColorPink 'цвет ... слова для замены
.Execute Replace:=wdReplaceAll
End With
Next

Спасибо Эндрю