Здравствуйте. Помогите, пожалуйста, с таким вопросом. Формирую документ Word (макет типа ActiveDocument) в котором есть таблица. После какого-то из обновлений Word таблицы перестали реагировать на установленные параметры ширины. Я уже всяко пробовал. Вообще никак не реагирует (ставит автоматически всё по минимуму). Может сталкивался кто? Офис 365 (Версия 2010 сборка 13328.20292). Причем во всех остальных версиях всё нормально.

```1c
    Table1.Columns(1).PreferredWidth = 3;
    Table1.Columns(2).PreferredWidth = 1;
    Table1.Columns(3).PreferredWidth= 14;
```
---
Соответственно, проблема, которая была изначально решается следующим:

```1c
    Table.Select();
    Table.PreferredWidth = 0;
```

Всем спасибо за хорошие мысли!
---
А если попробовать:
   Selection.Tables(1).Columns(1).SetWidth ColumnWidth:=113.4, RulerStyle:= _
        wdAdjustNone
---
Неопознанный оператор
 Selection.Tables(1).Columns(1).SetWidth <<?>>ColumnWidth:=113.4, RulerStyle:= _wdAdjustNone (Проверка: Сервер)
---
Так попробуй
Table1.Columns(1).SetWidth =113.4
---
Наверное все-таки так:
Table1.Columns(1).SetWidth(200,100);
---
Table1.Columns(1).SetWidth(200,100); Не помогло. Вообще ничего не влияет почему-то.
---
Попробуй в самом ворде проделать изменение ширины с включенной записью Макроса
---
Нашел в чем причина. В конце удаляю строки. Если кусок кода убрать, то ширина колонок сохраняется.

```1c
    Ячейка = Table1.Cell(НомерСтроки, 1);
    Ячейка.Merge(Table1.Cell(НомерСтроки, 3));
    Ячейка2.Delete();
```
Как вот быть с этим?
---
В общем любое удаление приводит к тому, что ширина колонок сбрасывается и победить это никак не получается.
---
Попробуйте Table1.AllowAutoFit = Ложь.
Вообще вы странно работаете с таблицей. Зачем устанавливать ширину колонок программно, если ее можно установить в макете? Зачем удалять ячейки? Не утверждаю, что следующая технология самая оптимальная, но не проще ли в макете создать таблицу с заголовками и одной строкой данных. Первую строку данных продублировать по количеству строк, а потом заполнить:
```1c
    Таблица = Документ.Tables(1);
    Таблица.AllowAutoFit = Ложь;
    КоличествоКолонок = Таблица.Columns.Count;
    КоличествоСтрок = ТЗ.Количество();

    // выделим вторую строку
    Таблица.Rows(2).Select();
    Если КоличествоСтрок > 1 Тогда
    // добавим после выделенной строки новые строки
    ПрограммаВорд.Selection.InsertRowsBelow(КоличествоСтрок - 1);
    КонецЕсли;

    // обойдем все ячейки выбранной области
    Таблица.Select();
    Сч = 0;
    Для Каждого Ячейка Из ПрограммаВорд.Selection.Cells Цикл
    Строка = Цел(Сч / КоличествоКолонок);
    Если Строка > 0 И Строка <= КоличествоСтрок Тогда
    Столбец = Сч % КоличествоКолонок;
    Ячейка.Range.InsertAfter(ТЗ[Строка - 1][Столбец]);
    КонецЕсли;
    Сч = Сч + 1;
    КонецЦикла;
```
---
Наверное действительно надо переделать. Заголовков правда нет.
Table1.AllowAutoFit = Ложь привело к тому, что теперь таблица сузилась до одной буквы в строку и таблица растянулось на 10 стр.
---
Переписал. Получается та же ерунда. Добавляю в таблицу разделительную строку, объединяю ячейки (В таблице 2 колонки, если 3, то всё норм) и опять та же проблема, ширина таблицы становится узкой.
Объединяю следующим образом

```1c
    Table4.Cell(НомерРазделительнойСтроки,1).Merge(Table4.Cell(НомерРазделительнойСтроки,2));
```
---
В данном случае разобрался. У второй таблицы была установлена ширина. Если не устанавливать, то всё хорошо.
---
Соответственно, проблема, которая была изначально решается следующим:

```1c
    Table.Select();
    Table.PreferredWidth = 0;
```

Всем спасибо за хорошие мысли!