'This example inserts a new row before the first row in the selection.
Sub AddARow()
    If Selection.Information(wdWithInTable) = True Then
        Selection.Rows.Add BeforeRow:=Selection.Rows( 1 )
    End If
End Sub'This example adds a row to the first table and then inserts the text Cell into this row.

Sub CountCells()
    Dim tblNew As Table
    Dim rowNew As Row
    Dim celTable As Cell
    Dim intCount As Integer

    intCount =  1 
    Set tblNew = ActiveDocument.Tables( 1 )
    Set rowNew = tblNew.Rows.Add(BeforeRow:=tblNew.Rows( 1 ))
    For Each celTable In rowNew.Cells
        celTable.Range.InsertAfter Text:="Cell " & intCount
        intCount = intCount +  1 
    Next celTable
End Sub

objSel.MoveRight Unit:=wdCharacter, Count:= 2 
    objSel.MoveLeft Unit:=wdCharacter, Count:= 1 

Sub Макрос1()
'
' Макрос1 Макрос
' Макрос записан 07.10.2009 user
'
    ActiveDocument.Tables.Add Range:=Selection.Range, NumRows:= 2 , NumColumns:= _
         5 , DefaultTableBehavior:=wdWord9TableBehavior, AutoFitBehavior:= _
        wdAutoFitFixed
    With Selection.Tables( 1 )
        If .Style <> "Объемная таблица 3" Then
            .Style = "Объемная таблица 3"
        End If
        .ApplyStyleHeadingRows = True
        .ApplyStyleLastRow = True
        .ApplyStyleFirstColumn = True
        .ApplyStyleLastColumn = True
    End With
    Dim t As Table
    Set t = ThisDocument.Tables( 1 )
    t.Rows.Add
End Sub