Автор не ответил на мой вопрос :( Пробуем телепатировать :)
МногоСтрочнаяСтрока = СтрЗаменить(ИсходнаяСтрока, " ", Символы.ПС);
Для К = 1 По СтрЧислоСтрок(МногоСтрочнаяСтрока) Цикл
Слово = СтрПолучитьСтроку(МногоСтрочнаяСтрока, К);
...
Можно обобщить - заменить все последовательности символов (последовательность - когда подряд), которые автор считает разделителями, на ПС, далее по тексту.
Т.е цикл с заменой разделителей на ПС, затем меняем сдвоенные ПС на одинарные до тех пор, пока остаются сдвоенные.