Как преобразовать дату которая находится в предложении?

[KOSTIK1]

Подскажите пожалуйста, как с помощью макроса, преобразовать дату которая находится в предложении?

Например "ваплывалов лворовралор 31.12.09 орыпваорыпоарп ловрыа."
на "ваплывалов лворовралор 31 Декабря 2009 орыпваорыпоарп ловрыа."

Учитывая что все подобные предложения находятся в столбце "С". Заранее СПАСИБО!

[EducatedFool]

Вот весь код:

Sub test()
    Dim cell As Range, ra As Range: Application.ScreenUpdating = False
    Set ra = Range([c1], Range("c" & Rows.Count).End(xlUp))
    For Each cell In ra.Cells
        If Len(cell) Then
            arr = Split(cell.Text, " ")
            For i = LBound(arr) To UBound(arr)
                слово = arr(i)
                If IsDate(слово) Then cell = Replace(cell.Text, слово, Format(слово, "DD MMMM YYYY"))
            Next i
        End If
    Next cell
End Sub

Нажмите зелёную кнопочку:

[KOSTIK1]

Превосходно!!!!! Именно то что нужно! Спасибо.

[KOSTIK1]

И если можно по ходу подобный вопрос, В строке "D" находятся тоже предложения где иногда встречается в начале строки дата на латинском "10 dek." как можно их подобным образом поменять на русский эквивалент "10 дек." Другие месяца(лат.) по соответственно сокращенному коду ДД МММ. Спасибо заранее за ответ!

[KOSTIK1]

Уважаемый EducatedFool как было сказано код работает замечательно только обнаружил небольшой недостаток: если в тексте встречаются цифры вот в таком порядке " авпфва 5-7 фппф" то они тоже изменяются соответственно на "авпфва 05 июля 2009 фппф". Подскажите что можно "подкрутить" в вашем коде? Спасибо.

[EducatedFool]

Sub test()
    Dim cell As Range, ra As Range: Application.ScreenUpdating = False
    Set ra = Range([c1], Range("c" & Rows.Count).End(xlUp))
    For Each cell In ra.Cells
        If Len(cell) Then
            arr = Split(cell.Text, " ")
            For i = LBound(arr) To UBound(arr)
                слово = arr(i)
                If IsDate(слово) And слово Like "##.##.##" Then _
                   cell = Replace(cell.Text, слово, Format(слово, "DD MMMM YYYY"))
            Next i
        End If
    Next cell

    ' как можно их поменять на русский эквивалент "10 дек."
    With Range("d:d")
        .Replace "dek.", "дек."
        .Replace "fev.", "февраля"
        .Replace "mar.", "марта"
        ' и т.д.
    End With
End Sub

[KOSTIK1]

Теперь без проблем!!! Спасибо!!