автоматическое изменение падежа слова

[B00lean]

Коллеги подскажите, вторые сутки голову ломаю, как слово просклонять автоматически. Например в один файл документ вставить слово "Компот", во второй "Компоте", "Компоту" и т.д.

[B00lean]

попробую немного по другому поставить задачу)
Есть комбобокс в в нем два айтема "открытый" и "закрытый".
Задача - при выборе пользователем айтема "открытый" - программа должна воспринимать его как "открыт", т.е. без окончания (как это можно реализовать?).

В каждом месте шаблона будет уже стоять нужное окончание (например ый, ом, ого), к которому будет прибавляться "открыт" или "закрыт" в зависимости от выбора пользователя.

[viter.alex]

«Открыт» и «открытый» — это не падежи, а краткая и полная форма прилагательного.
Смотри пример в этом файле.Вложение 9578

А работать с падежами не получится. Слишком много вариантов. Правда, если использовать встроенные функции проверки орфографии, может там записаны правила образования падежей для всех слов. Но как их использовать я не знаю.

[B00lean]

в первом сообщении были падежи

Спасибо за помощь

Это если кому интересно:
Function ShortForm(sStr As String) As String
If Len(sStr) >= 2 Then ShortForm = Left(sStr, Len(sStr) - 2)
End Function

[B00lean]

Созрел еще вопрос, как всунуть еще одну функцию или перестроить эту чтоб первая буква тоже удалялась, вместе с последними двумя) по всякому уже фантазировал, о5 прибегаю к крайним методам)

ИЛИ (точнее гораздо лучше)
надо заставить слово, написанное в комбобоксе с большой буквы - "Открытый", писаться с маленькой. + чтоб оно было обрезано как в сообщениях выше т.е. должно получиться "открыт"

[Sasha_Smirnov]

s = Combobox.Text

sKratkaForma = LCase(Left(s, Len(s) - 2))

LCase понижает регистр, Left берёт левую подстроку, которая здесь — короче исходной на 2 символа.