Консультация № 170121
03.07.2009, 05:51
0.00 руб.
0 1 0
Уважаемые эксперты подскажите при помощи ВБА в макросе как прописать код добавить, удалить в активном документе в 1-й таблице строки, столбцы в количестве например 3 строк или 3 столбцов после например первой строки или первого столбца. Эта таблица в Ворде.
Можно ли в макросе после инструкции GoTo (переход по коду программы) указывать переменную, если нет то как можно выйти из положения. Заранее спасибо.

Обсуждение

Неизвестный
03.07.2009, 06:38
общий
Смотрите свойства объектов Column и Columns, Row и Rows...
как в любой коллекции Columns.Add - добавить, Column.Delete - удалить

Код:

Sub t()
Dim AfterColumn As Column
Dim col(1 To 3) As Column

'добавим три столбца после первого
With ActiveDocument.Tables(1)
Set AfterColumn = .Columns(1)
Set col(1) = .Columns.Add(AfterColumn.Next)
Set col(2) = .Columns.Add(col(1).Next)
Set col(3) = .Columns.Add(col(2).Next)
col(1).Cells(1).Range.Text = "col1"
col(2).Cells(1).Range.Text = "col2"
col(3).Cells(1).Range.Text = "col3"

End With
'удалим первый добавленый
col(1).Delete
End Sub

для строк - аналогично

Можно ли в макросе после инструкции GoTo (переход по коду программы) указывать переменную, если нет то как можно выйти из положения

нет. из какого положения?
Форма ответа