Деление столбцов в таблице

> Дарья
Вкратце тебе тогда нужно делать не 3
а 5 столбцов, а потом объединять ячейки
которые не должны делиться
Для этого смотри метод MergeCells для
таблиц в Help.
Синтаксис по памяти вроде такой:

objTable.MegeCells minrow, maxrow, mincol, maxcol

из названий переменных надеюсь ясно что
они из себя представляют
Тип всех этих переменных - Long
Дерзай
~'J'~

Я нашла только синтаксис:
Объединение ячеек в таблице.
Синтаксис
object.MergeCells(minRow, maxRow, minCol, maxCol)
Object
Table
Объект или объекты обращающиеся к этому методу.
minRow
Long; нижняя граница индекса строки
maxRow
Long; верхняя граница индекса строки
minCol
Long; zero-based lower bound of a column index нижняя граница индекса столбца
maxCol
Long; zero-based upper bound of a column index верхняя граница индекса столбца
Замечания
Этот метод объединяет прямоугольную область ячеек. Общее количество ячеек, которые будут объединены равно (maxRow - minRow + 1) * (maxCol - minCol + 1).

> Дарья
Посмотри пример, только в зависимости от того
есть строка с титулом в таблице или нет
нумерация строк в цикле должна измениться

Sub Merge_Cells()
    Dim oSpace As AcadBlock
    Set oSpace = ThisDrawing.ModelSpace
    Dim pt(2) As Double
    Dim oTable As AcadTable
    Set oTable = oSpace.AddTable(pt, 4, 4, 1, 7)
    ZoomExtents
    Dim i As Long, j As Long
    oTable.TitleSuppressed = True
    oTable.HeaderSuppressed = True
    For i = 0 To oTable.Rows - 1
        For j = 0 To oTable.Columns - 1
            oTable.SetCellType i, j, acTextCell
            oTable.SetCellTextHeight i, j, 0.4
            oTable.SetCellAlignment i, j, acMiddleCenter
            oTable.SetText i, j, "Row " & CStr(i) & ": Column 0"
        Next j
    Next i
    For i = 1 To oTable.Rows - 2
    oTable.MergeCells i, i, 0, 3
    Next
    For i = 0 To oTable.Columns - 1
    oTable.SetText oTable.Rows - 1, i, "Row " & CStr(oTable.Rows - 1) & ": Column " & CStr(i)
    Next
    oTable.RecomputeTableBlock True
    oTable.Update
End Sub

~'J'~

Вот этот код создает стобец:
pStr = n1
adTable.SetText adRow, 0, pStr
adTable.SetTextStyle2 adRow, 0, 0, "STANDARD"
adTable.SetTextHeight2 adRow, 0, 0, 10
adTable.SetCellAlignment adRow, 0, acMiddleCenter
Вы не могли бы сказать пожалуйста аналогичный этому коду код, который разделит этот столбец на две части. Причем разделит не целиком столбец, а несколько строк. Остальные строки делиться не будут

> fixo
Я не могу понять по какому принципу действует этот код. Вы не могли бы пожалуйста перевести на человеческий язык этот код???

> fixo
С английского не такая проблема перевести.
Я не понимаю принцип работы кода!!!!!
Давайте я построчно попробую перевести.

Далее идет объявление переменных:
Переменная oSpace объявляется как автокадовский блок

Dim oSpace As AcadBlock

Объявляется точка вставки как число с двойной плавающей точкой:

Dim pt(2) As Double