Ширина столбцов - Microsoft Office Word

DJTreeno · 21.06.2011, 16:42

Как с помощью макроса пройтись по столбцам таблицы и изменить ширину каждого?

Такой код не подходит, вылетает с ошибкой:
Selection.Move Unit:=wdColumn, Count:=1
Selection.SelectColumn
Selection.Columns.PreferredWidthTyp e = wdPreferredWidthPoints
Selection.Columns.PreferredWidth = CentimetersToPoints(2.7)

DJTreeno · 21.06.2011, 16:43

Пожалуйста подскажите как явно обратиться к столбцу в таблице?

Ведь есть же у него номер или что-то типа того.

DJTreeno · 21.06.2011, 16:55

Я понял!!!
Sub Макрос4()
With Selection
.Tables(1).Columns.Item(1).Preferre dWidth = 100
End With
Application.ScreenUpdating = True
End Sub

21.06.2011, 16:42	#1
DJTreeno Форумчанин Регистрация: 09.06.2011 Сообщений: 146	Ширина столбцов Как с помощью макроса пройтись по столбцам таблицы и изменить ширину каждого? Такой код не подходит, вылетает с ошибкой: Selection.Move Unit:=wdColumn, Count:=1 Selection.SelectColumn Selection.Columns.PreferredWidthTyp e = wdPreferredWidthPoints Selection.Columns.PreferredWidth = CentimetersToPoints(2.7)

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
Дан двухмерный массив из 20 столбцов. Вставить в него столбец из чисел 10 после всех четных столбцов.	Дмитрий142	Помощь студентам	9	07.06.2012 19:32
вывод номеров столбцов матрицы и подсчитать количество этих столбцов	Vitalina69	Помощь студентам	2	15.02.2011 21:52
ширина столбцов!	Karinka	БД в Delphi	10	28.04.2009 12:00
Динамическая ширина столбцов	Nemon	Общие вопросы Delphi	7	12.09.2007 13:15
Ширина столбцов в DBGrid	Elena	БД в Delphi	1	27.04.2007 15:34

21.06.2011, 16:43	#2
DJTreeno Форумчанин Регистрация: 09.06.2011 Сообщений: 146	Пожалуйста подскажите как явно обратиться к столбцу в таблице? Ведь есть же у него номер или что-то типа того.

21.06.2011, 16:55	#3
DJTreeno Форумчанин Регистрация: 09.06.2011 Сообщений: 146	Я понял!!! Sub Макрос4() With Selection .Tables(1).Columns.Item(1).Preferre dWidth = 100 End With Application.ScreenUpdating = True End Sub