Макро команды.Работа с таблицами в Word

Sub Макрос1()
  Dim i As Integer
  Dim s As String
  Dim oCell As Cell
  ActiveDocument.Tables(1).Cell(1, 1).Select 'Выделяем первую ячейку
  Selection.Collapse 'Сжимаем выделение
  Selection.MoveDown wdLine, 2 'Переходим на две строки вниз
  'Пока курсор находится в таблице
  Do While Selection.Information(wdWithInTable)
    Set oCell = Selection.Cells(1) 'Первая ячейка в строке
    i = oCell.RowIndex 'Индекс строки, в которой находимся
    'Собираем содержимое ячеек в строку
    Do While oCell.RowIndex = i
      s = s & Left(oCell.Range.Text, Len(oCell.Range.Text) - 2) & vbTab
      Set oCell = oCell.Next
      'Если дальше нет ячеек, то выходим из цикла.
      If oCell Is Nothing Then Exit Do
    Loop
    If Not oCell Is Nothing Then s = s & vbCr
    Selection.MoveDown wdLine
  Loop
  'Сформированное сообщение
  MsgBox s
End Sub

s = s & Left(oCell.Range.Text, Len(oCell.Range.Text) - 2) & vbTab