'The following statements use the Count property to check the number of columns in the first table in the active document and Sub add()
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 End Sub