Задача такая:
Есть файл с вопросами и ответами по некоторым предметам.
Нужно оставить только первые буквы слов в предложении и после каждой буквы нужно поставить точку.
Например:
Самая большая страна на Земле? - Россия
С. б. с. н. З. - Р.
За ранее спасибо за ответ.
Пробовал функцию,
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
но это отрабатывает только для одной строки.
Мне нужно весь лист сразу отформатировать.
Есть файл с вопросами и ответами по некоторым предметам.
Нужно оставить только первые буквы слов в предложении и после каждой буквы нужно поставить точку.
Например:
Самая большая страна на Земле? - Россия
С. б. с. н. З. - Р.
За ранее спасибо за ответ.
Пробовал функцию,
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
но это отрабатывает только для одной строки.
Мне нужно весь лист сразу отформатировать.
