Перевод ширины таблиц из см в %

[Busine2009]

Мне необходимо, чтобы в документе у всех таблиц была однинаковая ширина. Т.к. поля в таблицах могут быть разные, то выравнивать их нужно в см. Но я хотел бы, чтобы ширина таблиц измерялась в % (на случай, если человек захочет изменить поля страниц в документе и чтобы ширина таблиц менялась соответственно).
Никто не подскажет, как перевести ширину всех таблиц в документе из см в %.

Sub main()
    With ActiveDocument.Tables
    
            For n = 1 To .Count
            .Item(n).PreferredWidthType = wdPreferredWidthPercent
            Next
        End With
End Sub

Такая конструкция переводит в проценты все таблицы, но ширина таблиц изменяется.

[viter.alex]

Замечание по оформлению ваших сообщений: оформляйте код в теги [code][/code]

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

[Busine2009]

А почему она меняется? Вот кусок кода:

Selection.Tables(1).PreferredWidthT ype = wdPreferredWidthPoints
Selection.Tables(1).PreferredWidth = CentimetersToPoints(17)
Selection.Tables(1).PreferredWidthT ype = wdPreferredWidthPercent

Выставляется ширина таблицы 17 см, а затем я просто меняю см на %, почему не сохраняются 17 см?

[viter.alex]

Не знаю, почему меняется. Я попробовал у себя: все остается на месте. Word сам пересчитывает ширину таблицы в проценты от ширины страницы.

[Busine2009]

Вот таблица. Я применяю к ней эти три команды и у меня происходит только перевод в %, а ширина та же остается.

[viter.alex]

Применил я эти команды, как и следовало ожидать, ширина стала такой какой нужно, а размер таблицы отображается в процентах. См. вложение. Кроме всего прочего, эта таблица у вас еще и вставлена откуда-то.

[Busine2009]

16,98 см, а должно быть 17 см.

Но я же не мог ошибиться: сделал таблицу 14,5 см, вставил в нее курсор, применил три команды. А у меня осталась та же ширина.
А с чего вы решили, что она откуда то вставлена?

[viter.alex]

Сообщение от Busine2009

16,98 см, а должно быть 17 см…

Да вы, юноша, эстет! Две сотых сантиметра это сколько, по-вашему? И вы сможете их различить на глаз?

Сообщение от Busine2009

…А с чего вы решили, что она откуда то вставлена?

Таблица находится в закладке с именем OLE_LINK1

[Busine2009]

У меня тоже были случаи, что таблицы становились там 16,98, но в данном случае, как была таблица 14,5 см, так и осталась.
Я попробовал, скопировал таблицу из одного документа в другой, никакой закладки не появилось.