Создание "уголка" на всех страницах

[psa247]

Круто, все получилось. Реализация вставки картинки из 1С в произвольное место.
Реализуется с помощью таблицы, которую нужно поместить в то место, где нужна картинка

Макет - макет с Active Document
Путь = ОбщийМодуль3.УзнатьИмяКаталогаРаспо ложенияФайла(ЭтотОбъект);
Попытка
АД = ПолучитьМакет("МакетВорд");
MSWord = АД.Получить();
ДокВ = MSWord.Application.Documents.Add(Пу ть);
АппВ = MSWord.Application.ActiveDocument;

ФИОДляКартинки = СокрЛП(ПодписалДок.Наименование);
Если ТипЗнч(ПодписалДок)=Тип("Справочник Ссылка.Руководители") Тогда
ФИОДляКартинки = СокрЛП(ПодписалДок.Сотрудник.Наимен ование);
КонецЕсли;

ПутьККартинке = Константы.ЦентральноеХранилище.Полу чить()+"\Подписи\"+ОбщийМодуль4.Ини циалы(ФИОДляКартинки, ИСТИНА, ИСТИНА, 8)+"JPG";
Таб = ДокВ.Tables(2);
Пикчер = Таб.Cell(1,2).Range.InlineShapes.Ad dPicture(ПутьККартинке);

ДокВ.ActiveWindow.Visible = TRUE;
ДокВ.Activate();
Исключение
Сообщить("Ошибка при вставке подписи: ["+ОписаниеОшибки()+"]");
MSWord.Application.Quit();
КонецПопытки;

[alexan0308]

Сообщение от viter.alex

Если курсор будет в таблице, то картинка вставится во второй столбец первой строки

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

    Selection.GoTo(What:=wdGoToPage, Which:=wdGoToNext, Name:='3');
while Selection.Information[wdWithInTable] do // а вдруг мы внутри таблицы? нужно выйти
begin
      Selection.MoveRight(Unit:=wdCharacter, Count:=12); // идем вправо
end;

Правда, если таблица на всю страницу, то страница пролетает. Как тут быть, не знаю, к счастью случай наверно редкий...

[Ципихович Эндрю]

Сообщение от viter.alex

Если курсор будет в таблице, то картинка вставится во второй столбец первой строки

Sub InsertPictureInTable()
  If Selection.Information(wdWithInTable) Then
    Selection.Tables(1).Cell(1, 2).Range.InlineShapes.AddPicture ("Путь к картинке")
  End If
End Sub

Как я понял, здесь "Путь к картинке" это некий файл?
с каким расширением можно вставлять файл?