Обновление данных в таблице Word.

[Скрипт]

Чтобы понять, в чём проблема, создайте пустой Word-файл и запустите в нём этот макрос.
Вы увидите, что ширина столбцов не соответствует тому, что было в макросе.
Скажите, пожалуйста, как обновить таблицу после изменения ширины столбцов?

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

Sub Procedure_1()

    Dim myTable As Word.Table
    Dim i As Long
    
    
    Set myTable = _
        ActiveDocument.Tables.Add(Range:=ActiveDocument.Range, _
                                NumRows:=10, NumColumns:=5)
    
    myTable.Columns(1).PreferredWidthType = wdPreferredWidthPoints
    For i = 1 To 5 Step 1
        myTable.Columns(i).PreferredWidth = 50
    Next i
    
    For i = 1 To 10 Step 1
        myTable.Cell(i, 1).Merge myTable.Cell(i, 2)
    Next i
    
End Sub

Примечание

Такая проблема наблюдается только у таблиц, которые макрос создал или при объединении таблиц. У существующих таблиц такой проблемы нет.

[shanemac51]

получила строго 40-20-20-20 %
ок"

вы 5-ти столбцам дали по 50%
машина решила , что вы ошиблмсь и пропорционально уменьшила сумму с 250 до 100 %

[Скрипт]

shanemac51, в макросе, вот эта строка:

myTable.Columns(1).PreferredWidthType = wdPreferredWidthPoints

делает ширину в сантиметрах.
Почему Вы пишите про проценты?

[Luuzuk]

Так эта строчка только первой колонке PreferredWidthType меняет, не?

[Скрипт]

Luuzuk, достаточно у одного столбца сделать "PreferredWidthType" и у всех столбцов будет так же. Можно и у одной ячейки сделать и у всех столбцов будет так же.