Добрый день.
Задача состоит в том что надо динамически формировать печатную форму в Word. в зависимости от количества ел в табличной части.

Сначала я решил делать это с помощю макета Active document.
В документе создал поля (Field)
и заполнил их.

// 2. Создаем структуру
Отбор=Новый Структура;
           
// 2.1 Шапка печатной формы
Отбор.Вставить("НомерПриказа",Ном);
Отбор.Вставить("ДатаДокум",Дата);

Попытка
               н=Документ.Fields.Count;    
               Для ц=1 по н Цикл
                   Значение="";
                   Закладка="";
                   Закладка=СокрЛП(Документ.Fields(ц).Code.Text);
                   Если отбор.Свойство(Закладка,Значение) Тогда
                       Документ.Fields(ц).Result.Text = Значение;    
                   КонецЕсли;    
               КонецЦикла;    
               Док.Application.Visible=True;    
           Исключение
               Сообщить(ОписаниеОшибки(),СтатусСообщения.Важное);
               Док.Application.Quit();
КонецПопытки;

Вопрос вот в чем,
можно ли как-то динамически формировать - Поля с параметрами(Field) в самом документе "ActiveX"

Или возможно, есть какой-то другой способ сформировать динамически (в зависимости от количества строк в табличной части )документ в "Word" ?

Книга знаний: Заполнение полей документа Word (шаблон Active Document)

v8: Есть макет Active document Word.Как из 1С найти определенные слова и заменить другими

(2) а как добавить ТЧ в Ворд?

т.е. мне необходимо чтобы в документе ворд заполнялась таблица?

(2) спасибо,
А можно ли както их скопировать имена , перед тем как искать и заменять ?

(3) какую ТЧ??
может ты про таблицу.
можно попробовать
   КомОбъект.Tables.Add()

(4) в (2) уже есть пример заполнения таблицы

Represents a single table. The Table object is a member of the Tables collection. The Tables collection includes all the tables in the specified selection, range, or document.

Using the Table Object
Use Tables(index), where index is the index number, to return a single Table object. The index number represents the position of the table in the selection, range, or document. The following example converts the first table in the active document to text.

ActiveDocument.Tables(1).ConvertToText Separator:=wdSeparateByTabs
       
Use the Add method to add a table at the specified range. The following example adds a 3x4 table at the beginning of the active document.

Set myRange = ActiveDocument.Range(Start:=0, End:=0)
ActiveDocument.Tables.Add Range:=myRange, NumRows:=3, NumColumns:=4

(5) перебрать что ли?
обращайся к коллекции и перебирай

может чуть в тему, но всетаки - у некоторых пользователей  элемент Активикс не виден, точнее он сам виден а его свойства нет... (активикс = MS Rich Textbox Control 6.0

саму OCXку зарегистрировал

это надо у Абрахамса спросить

Text = "НовыйНомер1"
Selection.Fields.Add Selection.Range, wdFieldEmpty, Text

Вот есть функция добавления поля из макроса VB. При переносе в 1С ругается на поле  Text

Док = Приказ.Получить();
Документ = Док.Application.Documents(1);
Документ.Activate();
Text = "НовыйНомер1";
Документ.Fields.Add ("", -1,Text,False );

(12) как с ним связаться

(13) что т оне нашёл такой перегрузки, у меня в мане только
ъUse the Add method to add a field to the Fields collection. The following example inserts a DATE field at the beginning of the selection and then displays the result.

Selection.Collapse Direction:=wdCollapseStart
Set myField = ActiveDocument.Fields.Add(Range:=Selection.Range, _
   Type:=wdFieldDate)
MsgBox myField.Result
       

(14) на форуме поищи персонажа SmaharbA
прежде чем его искать, проверь права и прочая прочая.

а, нашёл
Adds a Field object to the Fields collection. Returns the Field object at the specified range.

expression.Add(Range, Type, Text, PreserveFormatting)
expression    Required. An expression that returns a Fields object.

Range   Required Range object. The range where you want to add the field. If the range isn't collapsed, the field replaces the range.

Type   Optional Variant. Can be any WdFieldType constant. For a list of valid constants, consult the Object Browser. The default value is wdFieldEmpty.

Text   Optional Variant. Additional text needed for the field. For example, if you want to specify a switch for the field, you would add it here.

PreserveFormatting   Optional Variant. True to have the formatting that's applied to the field preserved during updates.
вже ж
Text   Optional Variant

+(16) в смысле опусти этот параметр, не задавай

(16)  
вже ж
Text   Optional Variant

Additional text needed for the field.

I need :)
Насколько я понимаю Optional Variant говорит о том что параметр необязательный
но если надо туда можно текст вставить.

В 1С все-равно пишет несоответствие типов не соглашается и на пустое поле :)

Хотя в макросе все ок.

Щас попробую в 1С вставить макрос.И посмотрю получется ли то что я задумал )

(18) через ms script control можно (тут трошки могу ошибиццо), давно уже Михайлова не читал

(19) кого? дай название книжки

(20)http://www.infanata.org/2005/11/12/andrey_mihaylov_1s_predpriyatie__sistemnoe_programmirovanie.html

+(21) яндекс закрыли?

http://infostart.ru/projects/3355/

(23) бэст-)

а есть пример обработки?

(23) а где-нить где региться не надо плиз

(26) мне уж точно будет лень перекладывать, там зарегится - 1 минута.
пример там есть с табличными частями.

1C&VBS. Подскажите как в 1С выполнить код VBS

так это vbs)

(29) а чем не устраивает..
в край можнео налабать макросов, и вызывать их.

КоличествоПеременных = WORDФайл.Fields.Count;  
       Для е = 1 по КоличествоПеременных Цикл         //Result  Code
           ИмяПеременной = "";
           ЗнПоля = СокрЛП(WORDФайл.Fields(е).Code.text);
           Если ВРег(Лев(ЗнПоля,11)) = "DOCVARIABLE" Тогда
               ЗнПоля = СокрЛП(Сред(ЗнПоля, 12));
               ИмяПеременной = СокрЛП(Лев(ЗнПоля, Найти(ЗнПоля, " ")));
           КонецЕсли;
           
           Если ИмяПеременной <> "" Тогда
               МассивПеременныхДокумента.ДобавитьЗначение(ИмяПеременной);
           КонецЕсли;
       КонецЦикла;


http://www.infostart.ru/projects/3060/

а как в Ворд указать, что это переменная?

(32) по ссылке www.infostart.ru/projects/3060/ есть картинка, там показано как должно поле выглядеть

(33) не открывается

(33) а как с активным документом работать? просто ты напрямую обращаешься к ворд

(35) все открываеться, скачай обработку, она по OLE с ним работает...

а поле описываеться так
{ DOCVARIABLE  Подразделение \* MERGEFORMAT}

(36) да я понял, я вообще от переменных отказался. execute
только надо еще разобраться как с таблицами работать.
пример работы с шаблоном ворд вообще пустой

а как мне "показать" Active document?

//КомОбъект.Application.Visible=1;

ап

(39) есть такое - не отображается(

АктивныйДокумент = ПолучитьМакет("ДополнительноСоглашение");
   КомОбъект = АктивныйДокумент.Получить();
   
   
   Замена = КомОбъект.Content.Find;
   
   Если ВыборкаШапка.Следующий() Тогда
Замена.execute("<ДоговорДата>", Ложь,Истина,Ложь,,,Истина,,Ложь, ВставитьПробел(ВыборкаШапка.ДоговорДата),2);
       КонецЕсли;
   
   КомОбъект.Fields.Update();
   КомОбъект.ActiveWindow.Visible = 1;
   КомОбъект.Activate();

что я не так делаю?

гы) утро вечера мудренее... нашел кучу открытых вордовских файлов...
а как мне сделать так, чтобы ворд при закрытии спрашивал о сохранении в другую папку? т.е. чтобы дать признак модифицированности?

НомерПоПорядкуСтолбец = КомОбъект.Tables(1).Columns(1);
   ФИОСтолбец = КомОбъект.Tables(1).Columns(2);
   ДатаРожденияСтолбец = КомОбъект.Tables(1).Columns(3);
       
   Пока ВыборкаТЧ.Следующий() Цикл
       НомерПоПорядкуСтолбец = ВыборкаТЧ.НомерСтроки;
       ФИОСтолбец = ВыборкаТЧ.ПациентНаименование;
       ДатаРожденияСтолбец = ВыборкаТЧ.ПациентДатаРождения;
       КомОбъект.Tables(1).Rows.Add();
   КонецЦикла;

а что здесь не правильно? строки добавляются, но не добавляются значения столбцов

НомерПоПорядкуСтолбец = КомОбъект.Tables(1).Columns(1);
   ФИОСтолбец = КомОбъект.Tables(1).Columns(2);
   ДатаРожденияСтолбец = КомОбъект.Tables(1).Columns(3);
   
   Ном = 0;
   
   Пока ВыборкаТЧ.Следующий() Цикл
       
       Ном = Ном + 1;
       
       НомерПоПорядкуЯчейка=НомерПоПорядкуСтолбец.Cells(Ном);
       ФИОЯчейка=ФИОСтолбец.Cells(Ном);
       ДатаРожденияЯчейка=ДатаРожденияСтолбец.Cells(Ном);
       
       НомерПоПорядкуЯчейка.Range.Text = Строка(ВыборкаТЧ.НомерСтроки);
       ФИОЯчейка.Range.Text = Строка(ВыборкаТЧ.ПациентНаименование);
       ДатаРожденияЯчейка.Range.Text = Строка(ВыборкаТЧ.ПациентДатаРождения);
       КомОбъект.Tables(1).Rows.Add();
   КонецЦикла;

вроде так должно быть правильно( а выводится не известная ошибка на НомерПоПорядкуЯчейка.Range.Text = Строка(ВыборкаТЧ.НомерСтроки);

гм..а где у тебя заполнение ячеек?
или у тебя столбцы (пустые) не отображаются?
ДатыЯчейка=ДатыСтолбец.Cells(Номер);
           КодыЯчейка=КодыСтолбец.Cells(Номер);
           ТДЯчейка=ТДСтолбец.Cells(Номер);
           ВалютыЯчейка=ВалютыСтолбец.Cells(Номер);
           СуммыЯчейка=СуммыСтолбец.Cells(Номер);        
           
           СуммыЯчейка.Range.Text=Формат(ВыборкаИзЗапроса.СуммаДокумента+ВыборкаИзЗапроса.СуммаДопРасходов,"ЧЦ=15; ЧДЦ=2");
           ДатыЯчейка.Range.Text=ВыборкаИзЗапроса.ДатаПоступления;
           
           КодыЯчейка.Range.Text="01";
           ВалютыЯчейка.Range.Text="643";

(46) столбцы отображались пустые - я почитал, и обработку скачал
http://gendin.ru/2008/10/07/1c8-to-word/
сделал так - работает
тбл = КомОбъект.Tables.Item(1);
       Ном = 0;
       
       Пока ВыборкаТЧ.Следующий() Цикл
           
           Ном = Ном + 1;
КомОбъект.Tables(1).Rows.Add();
           тбл.Cell(Ном + 1,1).Select();
           КомОбъект.ActiveWindow.ActivePane.Selection.ParagraphFormat.Alignment = 0; // выравнивание по левому
           КомОбъект.ActiveWindow.ActivePane.Selection.TypeText(СокрЛП(Ном));
КонецЦикла;
       
       
       КомОбъект.Fields.Update();
       КомОбъект.ActiveWindow.Visible = 1;
       КомОбъект.Activate();
       
       //КомОбъект.Application.Quit();
       КомОбъект = Неопределено;

http://www.gr13.ru/forum/index.php?showtopic=321