К списку форумов К списку тем
Регистрация    Правила    Главная форума    Поиск   
Имя: Пароль:
Рекомендовать в новости

Печать документов по шаблогу Word, используя Open Office?

Гость
0 - 11.01.2013 - 16:56
Народ, подскажите как быть. В v8 часть печатных форм имеют шаблон в Word. Печать документа идет примерно вот так:
MSWord = Новый COMОбъект("Word.Application");
НовыйДокумент = MSWord .Documents.Add(ПутьКШаблону);
...
Замена(НовыйДокумент,"<<Фирма>>",ПолнИмяОрг);
...
MSWord.Application.Visible = Истина;
MSWord.Activate();

Теперь Word заменили на Open Office, и печати настал "привет".
Можно ли в этой ситуации как-то подружить 1С, шаблоны Word и Open Office?



Uho
1 - 11.01.2013 - 17:06
глянь подсистему Печать в БСП на ИТС
2 - 14.01.2013 - 08:10
Вот сюда ещё глянь. Прога бесплатная.
http://etersoft.ru/products/unioffice
Гость
3 - 14.01.2013 - 12:31
можно...

ШаблонДоговора = ПолучитьМакет(ИмяМакета);
ИмяФайла = КаталогВременныхФайлов()+ИмяМакета+".doc";
ФайлШаблона = Новый Файл(ИмяФайла);
Если ФайлШаблона.Существует() тогда
ФайлШаблона.УстановитьТолькоЧтение(ложь);
КонецЕсли;
ШаблонДоговора.Записать(ИмяФайла);
ФайлШаблона.УстановитьТолькоЧтение(Истина);

ServiceManager = Новый COMОбъект("com.sun.star.ServiceManager");
Reflection = ServiceManager.createInstance("com.sun.star.reflec tion.CoreReflection");
Desktop = ServiceManager.createInstance("com.sun.star.frame. Desktop");

Args = Новый COMSafeArray("VT_DISPATCH", 1);
OOДокумент = Desktop.loadComponentFromURL(ПреобразоватьВURL(Имя Файла), "_blank", 0, Args);

Попытка

OOЗамена = OOДокумент.CreateReplaceDescriptor();
Для каждого СтрокаПараметров Из ТаблицаПараметров Цикл
// Заменить заранее определенные ключевые конструкции на требуемый текст.
OOЗамена.SearchString = "["+СтрокаПараметров.Имя+"]";
OOЗамена.ReplaceString = СтрокаПараметров.Значение;
OOДокумент.ReplaceAll(OOЗамена);
КонецЦикла;
OOДокумент.getCurrentController().getFrame().getCo ntainerWindow().setFocus();

Исключение
Предупреждение(ОписаниеОшибки());
КонецПопытки;


К списку вопросов
Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск




Copyright ©, Все права защищены