Внешняя компонента для 1С (unicod > массив чисел)

//Нужно создать внешнюю компоненту содержащую функции для 1С

//для Преобразования поступающей строки unicod взятой из wordа в обычную строку состоящею из чисел

//разделенных запятой например "1084,1072,1084,1072,32,1084,1099,1083,1072,32,1088,1072,1084,1091"

//это "мама мыла раму" где каждое из чисел выше это код символа. Это функция FromUnicode

//и обратная ей функция ToUnicode преобразующая строку из чисел разделенных запятыми в unicod строку

//чтобы ее можно обратно засунуть в word, excel и прочую unicod использующую прогу

//нужно чтобы функции работали быстро, язык реализации обговаривается

Процедура Обработать(ИмФ1)

Ж=создатьобъект("СписокЗначений");

Об = СоздатьОбъект("Word.Application");

Об.Documents.Open(ИмФ1);

Об.ActiveDocument.Range().Select();

колслов=Об.Selection.Words().Count;

для ш=1 по колслов цикл

слово1=Об.Selection.Words(ш);

сч1=FromUnicode(слово1);

Ж.ИзСтрокиСРазделителями(Сч1);

// дальше Ж я буду обрабатывать как мне надо и получать из него другое слово

// записаное например в тотже список значений

Слово2=ТоUnicode(Ж.ВСтрокуСРазделителями());

Об.Selection.InsertAfter(Слово2);

конеццикла;

Об.ActiveDocument.Save();

Об.ActiveDocument.Close();

Если Об.Application.Documents.Count=0 Тогда Об.Quit() КонецЕсли;

КонецПроцедуры