А помогите пожалуйста! Нам задали написать макрос, который изменяет высоту строк в выделенной таблице, но чтобы можно было сначала ввести размер строки в пунктах и чтобы можно было изменить высоту только четных или только нечетных строк, или только каждую третью сверху таблицы, например 1,3,6,9 и так далее.
Дробные числа вводите с запятой.
Этот макрос работает с нечётными строками.
Макрос
Sub Main()
Dim tbl As Word.Table, sngHeight As Single, i As Long
'1. Юзер задаёт высоту строк.
sngHeight = InputBox("Введите высоту строк в см:")
'2. Vba-именование таблицы, в которой находится курсор.
Set tbl = Selection.Tables(1)
'3. Чтобы можно было задавать высоту:
' Диалог "Свойства таблицы" - вкладка "Строка" - область "Размер" - режим: точно.
tbl.Rows.HeightRule = wdRowHeightExactly
'4. Изменение высоты строк у нечётных строк.
For i = 1 To tbl.Rows.Count Step 2
tbl.Rows(i).Height = CentimetersToPoints(sngHeight)
Next i
'5. Сообщение.
MsgBox "Макрос завершил работу.", vbInformation
End Sub
О как быстро! Большущее спасибо!