Замена слов

[Sofran]

Здраствуйте !
Нужна ваша помощь так как я в Vba полный ноль..
Есть один макрос авто замени но в нем один недостаток...
Пример:
он слово "Увидеть" и "увидеть" считает разными как добиться чтоб он заменял из большой из маленькой буквы одновременно и чтоб не нужно было строчить макрос од Москвы до Владивостока

Вот макрос что нужно в нем переделать

Sub Eks()
'
Dim i As Integer
Dim sLat As Variant
Dim sRus As Variant
Dim rDoc As Range
Set rDoc = ActiveDocument.Range
'
sLat = Array("увидеть", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "")
sRus = Array("1", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "")
Application.ScreenUpdating = False  '
With rDoc.Find
'
   .ClearFormatting
   .Replacement.ClearFormatting
   .Forward = True
   .Wrap = wdFindStop
   .MatchWildcards = False
   .Format = True
   .MatchCase = True
   For i = LBound(sLat) To UBound(sRus)
      .Text = sLat(i)
      .Replacement.Text = sRus(i)
      .Execute Replace:=wdReplaceAll
   Next i
End With
Application.ScreenUpdating = True  ' 
End Sub

[Скрипт]

Вот эта строка в коде связана с большими и маленькими буквами:

.MatchCase = True

Эта команда аналогична в программе "Word" в окне "Найти и заменить" флажку "Учитывать регистр".

[Sofran]

Сообщение от Скрипт

Вот эта строка в коде связана с большими и маленькими буквами:

.MatchCase = True

Эта команда аналогична в программе "Word" в окне "Найти и заменить" флажку "Учитывать регистр".

Спасибо заработало