Как подогнать ширину столбца в макросе?

Question

Я написал макрос, который копирует таблицу из Excel в слово. В Excel все столбцы имеют разную ширину. В Word я хочу разместить таблицу на одной странице - поля в Word находятся на 1,5 см слева и справа. Количество строк в моей таблице изменяется, количество столбцов стабильно (это 14). Как я могу установить ширину столбца равным? Интересно, возможно ли установить одинаковую ширину столбца независимо от количества текста в заголовках. Я создаю переменную swdth, которую затем делю на 14 (все мои столбцы), и у меня есть таблица на одной странице ...

Этот код не работает должным образом. У меня есть все строки на одной странице, но столбцы имеют разную ширину.

Table.Rows.SetHeight RowHeight:=InchesToPoints(0.17), HeightRule:=wdRowHeightExactly
Table.Rows(1).SetHeight RowHeight:=InchesToPoints(0.59), HeightRule:=wdRowHeightExactly
sWdth = InchesToPoints(6.22)
WordTable.PreferredWidthType = wdPreferredWidthPoints
WordTable.PreferredWidth = sWdth
sWdth = sWdth / 14

Answer 1

Задать одинаковые значения для всех столбцов так же просто, как:

Table.Columns.DistributeWidth

, но неясно, как это связано с сохранением таблицы на одной странице.

Answer 2

Я недавно видел подобные вопросы. Как всегда ...

#1)  Turn on the Macro Recorder
#2)  Click through the steps you need to perform
#3)  Turn off the Macro Recorder

Нажмите Alt + F11, и вы должны увидеть весь код, который вам нужен, чтобы делать то, что вы хотите. Помните, что Macro Recorder - ваш друг!