БП 2.0. Фирма торгует мебелью. Имеется несколько разновидностей ценников. На данный момент они печатаются ручками из Word-а. Какие есть идеи по организации печати ценников из 1С в Ворд? Как лучше организовать шаблоны? Как удобнее сделать привязки?

ценники лучше организовать с помощью вывода в ТабДок. предлагаю подсмотреть в типовых

(1)Я запарюсь их рисовать. Да и они новые могут придумать.
А так в Ворде показал как рисовать, да как прикреплять и сказка.

Разные макеты для разных видов ценников, обработка печати, макет 1С доработать.
Я делала это в ТиС 7.7. пришлось еще доработать справочник Номенклатуры.

С Word'ом посложнее будет: добавлять новые строки, заполнять.

(3)(4)С Вордом посложней только первое время. А вот редактирование 1с-ных макетов может завести юзеров в ступор. Хотя этот вариант тоже буду рассматривать.

(5) изначально нужно было на экселе делать

(6)Тут не я решал, да и пользователи в плане оформления эксел не очень любят.

Сделай шаблоны в Word или в Exel, при печати открывай да и заполняй...

+(8) сам недавно делал подобное для заполнения договоров с контрагентами. И я думаю, что я не единственный кто подобное делал, на инфостарте полно всяких разностей по этому поводу...

(8)Это понятно. Только ещё надо придумать структуру шаблона такую, чтобы при печати менялось только название шаблона, а всё остальное оставалось тем же.

У меня. Файл Шаблон_Договор.doc. В нем проставил поля типа DocVariables. Открываю из 1С как новый документ и заполняею поля...

(11)А как этот тип устанавливается?

ну если в 10-офисе то вставка экспресс блоки -> поле. И задаешь там тип DocVariable и наименование. Потом в 1с заполняешь

(13)Это нашёл. Пытаюсь понять как его заполнить...

+(13)
Попытка
       Word=Новый COMОбъект("Word.Application");
Исключение
   Предупреждение("Возможно Microsot Word не установлен на данном компьютере.");
КонецПопытки;
   
КомОбъект=Word.Application.Documents.Add(ИмяФайла);
КомОбъект.Variables.Item("ТекущаяДата").Value=Формат(ОбщегоНазначения.ПолучитьРабочуюДату(), "ДФ=""дд ММММ гггг 'г.'""");
КомОбъект.Application.Visible=1;
КомОбъект.Fields.UpDate();

(11) Из 1С не работал с Вордом, но по аналогии с Delphi - а не проще в шаблоне сделать тексты вида &НаименованиеТовара&, &ЦенаТовара&, &Характеристика1&... и через поиск-замену их менять на нужный текст?

(15)Спасибо, будет копать.
(16)Такая идея тоже есть.

(16) можно так, можно сяк, можно вообще в шаблон выражение 1С подставить

(17) цветы и конфеты не пью :)

(18)А вот это уже лишнее. Пользователям лучше не давать править выражения.
(19)Правильно, лучше пей воду ,)

(16) Не проще, т.к. у поиска/замены есть ограничение по длине строки (вроде как 128 символов), а у DocVariable - нету

(16)
rep_in_doc('&Имя&',Table1.FieldByName('NAME').AsString);
rep_in_doc('&Отч&',Table1.FieldByName('OTCH').AsString);
rep_in_doc('&Фам&',Table1.FieldByName('DATE_B').AsString);
... чего там еще...

procedure rep_in_doc(old_str,new_str:OleVariant);
begin
//Находим в документе метки и производим их замены
WordDocument1.Range.Find.Execute(old_str,EmptyParam,EmptyParam, EmptyParam,EmptyParam,EmptyParam,
   EmptyParam,EmptyParam,EmptyParam,new_str,replace);
end;

(21) не рассматривал, что проще, что нет... просто в моей задачке один и тот же реквизит встречался несколько раз в одном документе, поэтому мне показалось, что проще через docVariable.
Но есть минус. Как только пользователь начнет редактировать шаблон, он конечно же возьмет исходный файл шаблона, вместо того, чтобы скопировать его, и убьет какое-нить поле. Потом будет плакать и кричать, что у него не работает.

(23) Несколько вариантов: сделай именно ШАБЛОН документа; пользователю дать права только на чтение шаблона/шаблоны лежат на сети в месте доступном только для чтения...

(21) Ограничение длины строки в 255 символов. Но можно конечно и обойти.

(23) И замена и docVariable заменят во всем документе.
ИМХО шаблон будет выглядеть понятнее для пользователей с метками, чем с пустыми полями выдающими код  {DOCVARIABLE  Имя \* MERGEFORMAT}. Это исключительно ИМХО :) На вкус и цвет как говорится...

(26) Ты неправ, замена заменит только один найденный.

(27) ReplaceAll никто не отменял.

У меня универсальная печать ценников из ТиС. Пользователи сами настраивают ценники (редактируют, добавляют новые) - ничего сложного

(0) В УТ11 ценники создаются и изменяются в режиме предприятия. Можно идею подчерпнуть оттуда.

Сейчас пытаюсь эту обработку прикрутить как внешнюю печатную форму.

Только не могу понять, как из функции Печать() открыть форму обработки.