Каксделать такой перенос и формат?

[Mangoster]

Приветствую всех,

я тут новенький, не обижайте если что ))


Вопрос такой, мне нужно взять вордовский текст вроде

КЛИЗМА - текст про клизмы
ШПИНАТ - текст про шпинаты
ЮМОР - текст про юмор

и сделать форматирование такое:

Клизма
текст про клизмы

Шпинат
текст про шпинаты

Юмор
текст про юмор

То есть две вещи:
Перенести на новую строку то что находится между " - " - как бы это я знаю как делается; а вот в чем трабл, так это:

как сделать заголовки Heading вотэтого текста что я выделил во втором варианте,
и как сделать чтобы то что было набрано все крупными буквами стало с заглавной?


Я пробовал крутить функции Find and Reolace > More > таи к далее, но пока не могу во всем разобраться.

Помогите если не трудно.

[AlexZZZ]

как сделать чтобы то что было набрано все крупными буквами стало с заглавной?

Можно так:

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

Function HEAD(sStr As String) As String
    HEAD = UCase(Mid(sStr, 1, 1)) & LCase(Mid(sStr, 2, Len(sStr) - 1))
End Function

А если Вы заранее не знаете, является ли проверяемое слово заголовком, то можно так:

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

Function HEAD2(sStr As String) As String
    If sStr Like UCase(sStr) Then
        HEAD2 = Mid(sStr, 1, 1) & LCase(Mid(sStr, 2, Len(sStr) - 1))
    Else
        HEAD2 = sStr
    End If
End Function