Заполняю макет word, в нем есть таблица. Если таблица влазит на один лист то все хорошо, но как только переходит на новую страницу колонки начинают сползать.
Заполняю следующим образом

```1c
    Если Документ.Bookmarks.Exists("Таблица") Тогда

    //Выделяем обязательную закладку начала таблицы
    Документ.Bookmarks("Таблица").Select();

    //Перемещаемся вниз, выделяем строку таблицы и копируем ее в буфер обмена
    Документ.Application.Selection.MoveDown();
    Документ.Application.Selection.SelectRow();
    Документ.Application.Selection.Copy();

    ТаблицаТоваров = ?(ОписаниеКоманды.Идентификатор = "ДоговорПоставкиСФаксимилеБезУслуг" или ОписаниеКоманды.Идентификатор= "ДоговорПоставкиБезУслуг",ДанныеОбъекта.Таблица,ДанныеОбъекта.Таблица);

    Сумма = 0;
    СуммаНДС = 0;
    ВсегоСНДС = 0;

    Для Каждого Строка из ТаблицаТоваров Цикл

    //Заменяем значения
    Документ.Application.Selection.Find.Execute("{Номер}" ,,,,,,,,,Строка.Номер,2);
    Документ.Application.Selection.Find.Execute("{Номенклатура}" ,,,,,,,,,Строка.Наименование,2);
    Документ.Application.Selection.Find.Execute("{Кол}" ,,,,,,,,,Строка.Количество,2);
    Документ.Application.Selection.Find.Execute("{Ед}" ,,,,,,,,,Строка(Строка.ЕдИзм),2);
    Документ.Application.Selection.Find.Execute("{Цена}" ,,,,,,,,,Формат(Строка.Цена,"ЧДЦ=2"),2);
    Документ.Application.Selection.Find.Execute("{Сумма}" ,,,,,,,,,Формат(Строка.Сумма,"ЧДЦ=2"),2);
    Документ.Application.Selection.Find.Execute("{НДС}" ,,,,,,,,,Строка(Строка.НДС),2);
    Документ.Application.Selection.Find.Execute("{СуммаНДС}" ,,,,,,,,,Формат(Строка.СуммаНДС,"ЧДЦ=2"),2);
    //Последний параметр поиска пустой
    Документ.Application.Selection.Find.Execute("{ВсегоСНДС}" ,,,,,,,,,Формат(Строка.ВсегоСНДС,"ЧДЦ=2"),);
    //Перемещаемся вниз, вставляем из буфера обмена строку
    Документ.Application.Selection.MoveDown();
    Документ.Application.Selection.Paste();
    //Перемещаемся вверх и выделяем строку для замены значений
    Документ.Application.Selection.MoveUp();
    Документ.Application.Selection.SelectRow();

    Сумма = Сумма + Строка.Сумма;
    СуммаНДС = СуммаНДС + Строка.СуммаНДС;
    ВсегоСНДС = ВсегоСНДС + Строка.ВсегоСНДС;

    КонецЦикла;
    //количество ячеек для объеденения
    к = ТаблицаТоваров.Количество()+3;

    Таблицы = Документ.Tables;
    Таблица = Таблицы.Item(3);
    Ячейка = Таблица.Cell(к, 1);
    Ячейка.Merge(Таблица.Cell(к, 5));
    Ячейка.Range.Text = "ИТОГО:";
    Ячейка.Range.Font.Bold = 9999998;

    Ячейка = Таблица.Cell(к, 2);
    Ячейка.Range.Font.Bold = 9999998;

    Ячейка = Таблица.Cell(к, 3);
    Ячейка.Range.Font.Bold = 9999998;

    Ячейка = Таблица.Cell(к, 4);
    Ячейка.Range.Font.Bold = 9999998;

    Ячейка = Таблица.Cell(к, 5);
    Ячейка.Range.Font.Bold = 9999998;

    Документ.Application.Selection.Find.Execute("{Сумма}" ,,,,,,,,,Формат(Сумма,"ЧДЦ=2"),2);
    Документ.Application.Selection.Find.Execute("{НДС}" ,,,,,,,,,"х",2);
    Документ.Application.Selection.Find.Execute("{СуммаНДС}" ,,,,,,,,,Формат(СуммаНДС,"ЧДЦ=2"),2);
    //Последний параметр поиска пустой
    Документ.Application.Selection.Find.Execute("{ВсегоСНДС}" ,,,,,,,,,Формат(ВсегоСНДС,"ЧДЦ=2"),);

    //Вырезаем лишнюю строку
    //Скрываем обязательную закладку начала таблицы
    Документ.Bookmarks("Таблица").Select();
    Документ.Application.Selection.TypeText(" ");

    КонецЕсли;
```
---
Я вот так заполнял таблицу в ворде, все было нормально

```1c
    Н = 0;
    R=2;

    Для Каждого ТекСтрока из ДанныеТз() Цикл
    Таблица.Rows.Add(Таблица.Rows®);
    Таблица.Cell(R,2).Range.Text= ДанныеШапки();
    Таблица.Cell(R,3).Range.Text= Лев(ТекСтрока.Серия,2)+Прав(ТекСтрока.Серия,2);
    Таблица.Cell(R,4).Range.Text= ТекСтрока.Номер;
    Таблица.Cell(R,5).Range.Text= ТекСтрока.Фамилия;
    Таблица.Cell(R,6).Range.Text= ТекСтрока.ИмяФизЛица;
    Таблица.Cell(R,7).Range.Text= ТекСтрока.Отчество;
    Таблица.Cell(R,8).Range.Text= ТекСтрока.НомерСчета;
    Таблица.Cell(R,9).Range.Text= Формат(ТекСтрока.Сумма, "ЧЦ=15; ЧДЦ=2; ЧРД=.; ЧГ=0");
    Н = Н + 1;
    Таблица.Cell(R,1).Range.Text= н;
    R = R + 1;

    КонецЦикла;
    Таблица.Rows®.Delete();
```
---
up!
---
Я вот так заполнял таблицу в ворде, все было нормально

```1c
    Н = 0;
    R=2;

    Для Каждого ТекСтрока из ДанныеТз() Цикл
    Таблица.Rows.Add(Таблица.Rows®);
    Таблица.Cell(R,2).Range.Text= ДанныеШапки();
    Таблица.Cell(R,3).Range.Text= Лев(ТекСтрока.Серия,2)+Прав(ТекСтрока.Серия,2);
    Таблица.Cell(R,4).Range.Text= ТекСтрока.Номер;
    Таблица.Cell(R,5).Range.Text= ТекСтрока.Фамилия;
    Таблица.Cell(R,6).Range.Text= ТекСтрока.ИмяФизЛица;
    Таблица.Cell(R,7).Range.Text= ТекСтрока.Отчество;
    Таблица.Cell(R,8).Range.Text= ТекСтрока.НомерСчета;
    Таблица.Cell(R,9).Range.Text= Формат(ТекСтрока.Сумма, "ЧЦ=15; ЧДЦ=2; ЧРД=.; ЧГ=0");
    Н = Н + 1;
    Таблица.Cell(R,1).Range.Text= н;
    R = R + 1;

    КонецЦикла;
    Таблица.Rows®.Delete();
```
---
Спасибо, помогло, а не подскажешь еще как определить что таблица на новом листе чтобы шапку таблицы вывести?
---
Вот чего не делал того не делал.
---
Сообщение было скрыто модератором.
---
Сообщение было скрыто модератором.