Pentru a adăuga o coloană la un tabel, utilizați metoda Add cu colecția Columns pentru obiectul Table corespunzător. Metoda Add are următoarea sintaxă pentru colecția de coloane:

expression.Add [BeforeColumn]

Aici, expression este o expresie necesară care returnează o colecție Columns, iar BeforeColumn (înaintea coloanei) este un argument opțional de tip Variant specificând coloana la stânga căreia doriți să inserați noua coloană.

Următorul exemplu utilizează proprietatea Count pentru a verifica numărul de coloane din primul tabel din documentul activ. Dacă tabelul conține mai puțin de cinci coloane, se adaugă una sau mai multe coloane. Fiecare coloană nouă este adăugată înainte (în partea stângă a) ultimei coloane existente din tabel:

With ActiveDocument.Tables(1) .Select

  If .Columns.Count < 5 Then

    Do Until .Columns.Count = 5

    .Columns.Add BeforeColumn:=.Columns(.Columns.Count)

    Loop 

  End If 

End With