Оставить Только Первые Буквы Слов В Предложении

[PDiddy]

Задача такая:
Есть файл с вопросами и ответами по некоторым предметам.
Нужно оставить только первые буквы слов в предложении и после каждой буквы нужно поставить точку.

Например:
Самая большая страна на Земле? - Россия
С. б. с. н. З. - Р.

За ранее спасибо за ответ.

Пробовал функцию,

Function First_Symbol(stroka As String) As String
For Each a In Split(stroka, " ")
strok = strok & " " & Left(a, 1)
Next
First_Symbol = Mid(strok, 2)
End Function

но это отрабатывает только для одной строки.
Мне нужно весь лист сразу отформатировать.

[ShAM]

Кросс:
http://programmersforum.ru/showthread.php?t=234445

[MCH]

Выделите нужный диапазон и запустите макрос:

Код Выделить Развернуть

Sub www()
    Dim x
    For Each x In Selection
        x.Value = First_Symbol(x.Value)
    Next x
End Sub

Function First_Symbol(stroka As String) As String
    Dim a, i&
    a = Split(stroka)
    For i = LBound(a) To UBound(a)
        If Len(a(i)) > 1 Then a(i) = Left(a(i), 1) & "."
    Next i
    First_Symbol = Join(a)
End Function

[PDiddy]

Спасибо MCH огромное!!!!

Всем спасибо!

Чтобы получить оперативный ответ, я создавал тему и в другом форуме.
Извините за беспокойство.