Как заменить слово, сохранив регистр?

[Кукша]

Здравствуйте
Сделал макрос для Word с вызовом формы. В одно из полей вставляется предложение из документа. В этом предложении надо некоторые слова заменить их синонимами, по выбору пользователя. Всё бы ничего, но заменяемое слово не сохраняет написание с большой буквы(если это слово стоит с начале предложения или является названием).
Использовал функцию Replace

В основном тексте это решил с помощью
With ActiveDocument.Content.Find
.Text = OldSlovo
With .Replacement
.Text = NewSlovo
.ClearFormatting
.Font.Color = wdColorRed
End With
.Execute Replace:=wdReplaceAll, Format:=True
End With

А вот в форме как это сделать?
Или: как заменить слово в строковой переменной c сохранением регистра первой буквы?

Заранее спасибо.

[lord0n]

опять двадцать пять
вчера обсуждали

[Кукша]

lord0n, не ругай
Вчера это были мои же темы но в другом форуме. Просто мне правильно попеняли на то, что это для VBA-форума. Поскольку модератор не перенёс темы, я продублировал их сюда сам.
А обсуждать и решить - это разные вещи
На том форуме красивых решений не найдено...