Помогите с таблицами в VBA

[Devigerro]

Народ, у меня такая проблема: не могу обеденить две ячейки в вордовской таблице.

вот код:

Dim MyRange As Range
Dim MyTable As Table
Set MyRange = ActiveDocument.Range(0, 0)
Set MyTable = MyRange.Tables.Add(MyRange, 4, 4)
MyTable.Cell(1,1).Merge(MyTable.Cell(1,2))

Выдает следующее при запуске макроса: "Type mismatch"

Объясните, что за прикол и как объеденить ячейки

Сорри за тупой вопрос

[Sla]

как проверить/написать макрос говорилось неоднократно

Type mismatch означает что в нет такого типа

Optional. Data type of the variable; may be Byte, Boolean, Integer, Long, Currency, Single, Double, Decimal (not currently supported), Date, String (for variable-length strings), String * length (for fixed-length strings), Object, Variant, a user-defined type, or an object type. Use a separate As type clause for each variable you declare.

поэтому определение двух массивов не верно.
просто попробуй объяви их не указывая тип.

[Devigerro]

Спасибо!!!
Я прописал следующее и работает:

Dim my As Variant
Set my = MyTable.Cell(1, 2)
MyTable.Cell(1, 1).Merge (my)

Гребаный Басик! Главное merge() принимает тип Cell, а тут ему подавай Variant

[HandKot]

Спасибо!!!
Я прописал следующее и работает:

Dim my As Variant
Set my = MyTable.Cell(1, 2)
MyTable.Cell(1, 1).Merge (my)

Гребаный Басик! Главное merge() принимает тип Cell, а тут ему подавай Variant

проблема не в Васике (язык очень хороший)
просто Вам надо было написать так

Код:

    Dim MyRange As Range
    Dim MyTable As Table
    Set MyRange = ActiveDocument.Range(0, 0)
    Set MyTable = MyRange.Tables.Add(MyRange, 4, 4)
    MyTable.Cell(1, 1).Merge MyTable.Cell(1, 2)

т.е если функция не возвращает никаких значений или вы их не принимаете, то параметры в ф-цию передаются без скобок

[Devigerro]

HandKot, спасибо что объяснил. Я в Басике ничего не знаю, но надо кое че сделать, что на Си чевойто тормозит, а WordApplication везде одинаков. Спасибо по мере надобности буду обращаться