Заметки с меткой 1c

Сумма = 2000;
Выражение = Формат(Сумма,"ЧПДС");
Предупреждение(Выражение,0);

Функция ПреобразоватьВURL(ИмяФайла)
Возврат "file:///" + СтрЗаменить(ИмяФайла, "∖", "/");
КонецФункции



Процедура ЗапШаблон()
ServiceManager = СоздатьОбъект("com.sun.star.ServiceManager");
Desktop = ServiceManager.createInstance("com.sun.star.frame.Desktop");


Scr = СоздатьОбъект("MSScriptControl.ScriptControl");
Scr.Language="javascript";
Scr.Eval("Args=new Array()");
Args = Scr.Eval("Args");
Scr.AddObject("ServiceManager", ServiceManager);


ТекстовыйПроцессор = Desktop.LoadComponentFromURL(ПреобразоватьВURL("d:/test.odt"), "_blank", 0, Args);

Replace = ТекстовыйПроцессор.CreateReplaceDescriptor();

//ключевое слово в шаблоне {НомерДог} заменяем на 999
Replace.SearchString = "{НомерДог}";
Replace.ReplaceString = "999";
ТекстовыйПроцессор.ReplaceAll(Replace);
КонецПроцедуры

ОткрытьФорму("Справочник.сотрудники.ФормаСписка")