Есть задача - добавить на каждую страницу документа Word картинку. Добавлять нужно не в колонтитулы, а именно в текст с обтеканием. Помогите, плиз, целый день бьюсь над этим.
Вот то что есть на данный момент:
РисунокДок = Док.Paragraphs(0).Range.InlineShapes.AddPicture("d:\2.jpg", False, True);    
РисунокДок.ConvertToShape.WrapFormat.Type = 5;    
во-первых во второй строке кода бьет ошибку что поле ConvertToShape не обнаружено. Во вторых вставлять нужно на каждой странице

(0) Запускаешь отлатчик и смотришь

У меня на ConvertToShape ругался на одних, но не ругался на других компах. Зависимость не установлена.

Тока у меня ошибка другая была, только что обратил внимание

в отладчике по комобъектам не многое увидишь

Отладь макру в ворде а потом портируй

Нашел более простой вариант

РисунокДок = Док.Shapes.AddPicture("d:\2.jpg", False, True);
РисунокДок.Left = 100;
РисунокДок.Top = 300;
РисунокДок.WrapFormat.Type = 5;    

Во-первых удалось избавиться от ConvertToShape. Во-вторых появилась возможность позиционировать рисунок на странице, чего раньше не было.
Остался один вопрос - как это применить ко всем страница документа

(6) вот щас скажу слово ватермарк, а потом мне будет стыдно. или не будет?

незнаю будет или нет, так как незнаю что это

Если речь идет о создании в документе каких-либо пометок, затем искать их и туда вставлять рисунок - не подходит. Долго объяснять почему но не подходит. Пользователь может удалить эту пометку и рисунок не вставится.

(9) я о водяном знаке. но тебе с обтеканием нужно, забудь. приходишь на каждую страницу и вставляешь, иного я представить не могу

в том то и дело я незнаю как программно в ворде бегать по страницам или перебрать их.

(11) макросы уже записывал и изучал?

Wobland - если знаешь как сделать, говори. А задавать умные вопросы и я могу

Wobland - извини, погарячился

Не получается макросами бегать по страницам и вставлять рисунки

Задачу решил. Как-то так:
КоличествоСтраниц = Док.ComputeStatistics(2);
СчетчикСтраниц = 1;
Для СчетчикСтраниц = 1 По КоличествоСтраниц Цикл
   РисунокДок = Выбор.InlineShapes.AddPicture("d:\2.jpg", False, True);
   Фигура = РисунокДок.ConvertToShape();
   Фигура.WrapFormat.Type = 5;
   Фигура.Left = 130;
   Фигура.Top = 250;                        
   Выбор.Application.Browser.Next();
КонецЦикла;

Только вначале это:
Word = MsWord.Application;
Word.Visible = 0;
Док=Word.Documents(1);
Док.Activate();
Выбор = Word.Selection;

Мож кто подскажет хоть как из 1С отправить документ Word на печать с предварительным просмотром? PrintOut отправляет сразу на принтер, PrintPreview почему-то не работает