Здравствуйте! Подскажите пожалуйста как на основе шаблона создать документ?
Есть такая функция
Функция ПолучитьМакетMSWord(знач ДвоичныеДанныеМакета, знач ИмяВременногоФайла = "") Экспорт

Handler = Новый Структура("Тип", "DOC");
Попытка
COMОбъект = Новый COMОбъект("Word.Application");

Исключение
ВызватьИсключение(НСтр("ru = 'Ошибка при работе с приложением Microsoft Word. Необходимо проверить правильность установки приложения.'")
+ Символы.ПС + КраткоеПредставлениеОшибки(ИнформацияОбОшибке()));
КонецПопытки;

#Если НЕ ВебКлиент Тогда
ИмяВременногоФайла = ПолучитьИмяВременногоФайла("DOC");

ДвоичныеДанныеМакета.Записать(ИмяВременногоФайла);
#КонецЕсли


Попытка
COMОбъект.Documents.Open(ИмяВременногоФайла);
Исключение
COMОбъект.Quit(0);
COMОбъект = 0;
Handler.COMОбъект = 0;
УдалитьФайлы(ИмяВременногоФайла);
ВызватьИсключение(НСтр("ru = 'Ошибка при открытии файла шаблона.'") + Символы.ПС
+ КраткоеПредставлениеОшибки(ИнформацияОбОшибке()));
КонецПопытки;

Handler.Вставить("COMСоединение", COMОбъект);
Handler.Вставить("ИмяФайла", ИмяВременногоФайла);
Handler.Вставить("ЭтоМакет", Истина);

Handler.Вставить("НастройкиСтраницыМакета", Новый Соответствие);

Для Каждого ИмяНастройки Из НастройкиПараметровСтраницы() Цикл
Попытка
Handler.НастройкиСтраницыМакета.Вставить(ИмяНастройки, COMОбъект.ActiveDocument.PageSetup[ИмяНастройки]);
Исключение
// Пропустить, если настройка не поддерживается данной версией программы.
КонецПопытки;
КонецЦикла;

Возврат Handler;

КонецФункции

Но к сожалению она открывает документ на основе normal.dot а не на основе переданного двоичными данными макета ДвоичныеДанныеМакета. Может нужно как-то иначе открыть док?

Дмитрий Зайцев,

А как сделать что-то вроде
пДок = COMОбъект.Documents.Open(ИмяВременногоФайла);
пДок.AttachedTemplate = Template;

Только вот естественно это не работает тк это не визуал бэйсик. Помнится мне что там должен быть метод доступный у всех объектов для установки свойств?
Вроде бы Set? Те что-то вроде
пДок.AttachedTemplate.Set("Path",Template);

Может подскажите?

jeep81,
Народ, подскажите кто знает?
Уже все перепробовал. Как подменить шаблон у документа? Не открывает он как положено документ на основе .dot .

Zerro,
Это не я хочу. Это стандартный механизм так сделан. Как я понял он работает.
Забыл упомянуть это в версии 8.2. Там все это делается на клиенте.
В макете в двоичных данных сохраняется шаблон ворда, который передается в функцию - ПолучитьМакетMSWord(знач ДвоичныеДанныеМакета, знач ИмяВременногоФайла = "") .
Далее он сохраняется в временную папку клиента.
ИмяВременногоФайла = ПолучитьИмяВременногоФайла("DOC");
ДвоичныеДанныеМакета.Записать(ИмяВременногоФайла);

А затем открывается
COMОбъект.Documents.Open(ИмяВременногоФайла);

А дальше после открытия вызываются всякие разные заполнялки шаблона после получения макета с помощью этой функции.
Но это уже не важно. Главное что шаблон открывается на основе Normal.dot, а не на основе подсунутого. Смысл этого ковыряния заключается в том, что было обнаружено, что на разных компах, когда документ выводится на печать в ворд выглядит по разному!
А нужно чтоб одинаково везде.

Zerro,

Ну вот так тут и делается, только не работает как нужно. Шаблон вроде как без стилей чтоли выводится? В общем по разному выглядит.

DmitriyZ,
Если не шаблон то что? Я нормально его открыл вордом и это шаблон. Просто его в двоичных данных зачем-то хранят (может так проще или для чего-то нужно).
Объясняю что значит он выглядит по разному.
На одном компе открываю - табличка выглядит как нужно( выравнивание по левому краю, нет отступов итд), на другом открываю - отсупы, переносы итд

DmitriyZ,

Так вот я о том же. То что вы Дмитрий сказали этож очевидно. Но я то и пытался сказать, что хочется сделать так, чтобы открывался документ на основе шаблона сохраненного, чтобы какие бы там по умолчанию шаблоны не были установлены, то всегда бы был приоритетным тот на основе которого создан документ. Те чтобы было все равно где я открываю этот документ. :) Я сегодня перерыл весь мсдн, но что-то пути не нашел.

DmitriyZ,

А вы не скажите как мне передать в вордовскую функцию перечисление из 1С
Вот такаяфункция, но здесь ругается .
Range.PasteAndFormat(ПечатнаяФорма.COMСоединение.wdFormatOriginalFormatting);

DmitriyZ,

Не наверно не то.
В общем я подробнее расскажу по проблеме и может быть вы знаете как ее решить.
В общем это процедура печати. В ней открывается макет в котором док вордовский И открывается печатная форма тоже вордовская.
Но В первом случае открывается шаблон простой документ с настроенными стилями и форматированием. А во втором просто документ по умолчанию, те на основе шаблона нормал дот. Те в первом Documents.Open(путькфайлу), а во втором Documents.Add().
Затем в шаблоне ищутся теги для замены типа {v8 nametag } копируются и вставляются в Печатную форму-простой вордовский док. Но при вставке форматирование и стили не копируются.
Там используются такие методы:
ОбластьВставки.Paste()
ПечатнаяФорма.COMСоединение.ActiveDocument.Sections(1).Headers.Item(1).Range.Paste();

Я пробовал заменить на:
ПечатнаяФорма.COMСоединение.ActiveDocument.Sections(1).Headers.Item(1).Range.PasteAndFormat(12);// wdFormatOriginalFormatting = 12? я думаю
ОбластьВставки.PasteAndFormat(12)
Но на самой первой строке ПечатнаяФорма.COMСоединение.ActiveDocument.Sections(1).Headers.Item(1).Range.PasteAndFormat(12);
Вылезает ошибка что такоего метода не существует.

Вот помгите мне пожалуйста с этим разобраться. :)

DmitriyZ,

Я посмотрел, этот метод не получиться. В общем этот метод не пойдет наверно, там потому что в буфер кладется. А этот метод для тогд чтобы выделенные области вставлять а не изх буфера.
Может получиться range.Selection и вставить его в другой документ этим методом?

jeep81,

В общем ищу метод который бы вставлял из буфера обмена с сохранением форматирования. Причем и для таблицы тоже. Поведение очень странное. Вставленное оказывается со всем личными стилями которые я добавил в шаблон, но в самих стилях в свойствах форматирование становится по умолчанию. Те оно не копируется.

jeep81,

В общем, может кому пригодиться, поэтому напишу.
В печати Ком предложения было следующее.
В двоичных данных был док вордовский. Он загружался, сохранялся на диске клиента и открывался. Программно открвался пустой документ. Ну дальше как положено поиск тэгов, замена. Только вот при вставке из буфера стили копируются без фонтов, не полностью. Почему не знаю, там нужно дальше ворд ковырять. Нашел вот такой метод
Document.CopyStylesFromTemplate Method MSDN CopyStylesFromTemplate

теперь после вставки сохраняются стили и соответственно нормально все печатается.