Как работать с объектом selection ячейки таблицы word из приложения Excel в ВБА

Как обращаться к объекту selection ячейки таблицы word из приложения Excel, так как при обычном обращении выдается ошибка.

Sub Add_Doc_Zadvizhek()
Dim oWord As Object
Dim oDocument As Object
Dim ApplWord As Object
Dim Mytime, myTimeSokr As String
Dim MyDate As String
Dim TimeDate As String
Dim NameWihtoutDate, SaveFileName As String
Dim Dlina_Mytime As Integer
Dim Putfile As String
Dim tableNew As Object
Dim docActive As Object
Dim i As Integer
Dim myRange As Object

Set oWord = CreateObject("Word.Application")
Set oDocument = oWord.Documents.Add
Set docActive = oWord.ActiveDocument

ActiveDocument.Tables.Add Range:=Selection.Range, NumRows:=1, NumColumns:= _
4, DefaultTableBehavior:=wdWord9TableBehavior, AutoFitBehavior:= _
wdAutoFitFixed

With Selection.Tables(1)
If .Style <> "Сетка" Then
.Style = "Сетка"
End If
.ApplyStyleHeadingRows = True
.ApplyStyleLastRow = False
.ApplyStyleFirstColumn = True
.ApplyStyleLastColumn = False
.ApplyStyleRowBands = True
.ApplyStyleColumnBands = False
End With

Selection.MoveDown Unit:=wdLine, Count:=2
selection.TypeParagraph
selection.TypeParagraph