Object variable or With block variable not set - VB

Формулировка задачи:

Подскажите пожалуйста. В макросе который запускается из аксес для редактирования выгруженной из запроса таблицы в вордовском документе есть такой код

MergeEqualCells()
   oTbl  Table
   i  
   sCellVal  
  
   Selection.Information(wdWithInTable) 
     oTbl = Selection.Tables()
  
    MsgBox , vbOKOnly + vbInformation, 

   i = oTbl.Columns().Cells.Count    -
     oTbl.Columns().Cells(i)
      .
      sCellVal = .Range.Text
     
     Selection
       .Cells().Range.Text = sCellVal  .Cells().Range.Start <> oTbl.Range.Cells().Range.Start
        .MoveUp Extend:=wdExtend
      
      .MoveDown Extend:=wdExtend
      i = i - .Cells.Count + 
       .Cells.Count >  
        .Cells.Merge
        .Cells().Range.Text = Replace(sCellVal, vbCr, )

 

Когда доходит до него выскакивает сообщение об ошибке "Object variable or With block variable not set"
Подскажите пожалуйста что не так? Какую переменную еще надо добавить? Заранее спасибо!

Решение задачи: «Object variable or With block variable not set»

textual
                            Листинг программы 
                        
                            <font color="blue">Dim</font> oTbl <font color="blue">As</font> Table