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

[Кукша]

Здравствуйте
Сделал макрос для 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 сохранением регистра первой буквы?

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

[seelts]

Это не VBA, но я думаю смысл понятен

Код: Выделить всё

Dim rc as integer
rc = strFirstLetter Like "[!A-Z]"
msgbox rc


Поясняю: в переменную strFirstLetter заносим первую букву слова которое меняем. После выполнения вышеуказанного кода в rc будет или 0 или -1. 0 - False, -1 - True. Если 0 то буква большая английская, если -1, то буква маленькая английская. Затем тоже самое делаем для раусского набора букв ([!А-Я])? после чего делаем определённые замены (с UCase'ом или без)

[Кукша]

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