Word VBA Таблица=Ячейка другой таблицы?

[Gogic]

Уважаемые, у меня возник такой вопрос.

Есть таблица NxM.

Так вот, возможно ли работать с каждой ячейкой этой таблицы, как с отдельной таблицей? (Объект Table)

[Gogic]

Ответ найден, закрывайте топ.

Код: Выделить всё

Set microRange = mTable.Cell(1, 1).Range
Set microTable = microRange.Tables.Add(Range:=microRange, NumRows:=2, NumColumns:=4)

[Gogic]

Хотя нет, не закрывайте. Таблицу вставляет, но количество строк в ней всегда 1 (что бы не было задано).

[Qwertiy]

Так - работает:

Код: Выделить всё

Sub DoIt()
    Dim Tbl As Table
    Set Tbl = ActiveDocument.Tables.Add(Range:=Selection.Range, NumRows:=4, NumColumns:= _
        4, DefaultTableBehavior:=wdWord9TableBehavior, AutoFitBehavior:= _
        wdAutoFitFixed)
   
    Tbl.Cell(2, 1).Select
    Selection.Move

    ActiveDocument.Tables.Add Range:=Selection.Range, NumRows:=2, NumColumns:= _
        3, DefaultTableBehavior:=wdWord9TableBehavior, AutoFitBehavior:= _
        wdAutoFitFixed
End Sub

Обрати внимание на вызов Selection.Move, без него вставляется таблица из одной строки.

[Gogic]

Спасибо. От себя замечу, что .Move переводит в правую ячейку от текущей, .MoveLeft - сохраняет текущую ячейку, .MoveRight - переводит в правую, т.е по сути работает как .Move.

[Qwertiy]

От себя замечу, что .Move переводит в правую ячейку от текущей

Хм.. Не заметил, когда экспериментировал. А что если задать величину перемещения 0?