Обрезать таблицу по диагонали

[natale]

С этим мы вообще не знаем как бороться! Обрезать таблицу по диагонали в WORD 2003. помогите, спецы!

[bdfy]

вы сами поняли чего спросили ?

[natale]

я то понимаю, но такое задание препод предложил. Понимаю, что в меню такой функции никогда не было.

[Вождь]

Вариант для квадратной таблицы:

Dim T As Word.Table
Dim nR&, nC&
    
    Set T = Selection.Tables(1)
    ' диагональ
    If T.Columns.Count <> T.Rows.Count Then Exit Sub
    ' строка
    For nR = 1 To T.Rows.Count - 1
        ' столбец
        For nC = T.Columns.Count To nR + 1 Step -1
            T.Cell(nR, nC).Delete
        Next nC
    Next nR