VBA Excel. Копирование из .doc

Sub nu(flPathW)
' Добавление листа
    Sheets("Ведомость объемов работ").Select
    Sheets.Add
' Вставка файла Word как объекта
    ActiveSheet.OLEObjects.Add(Filename:=flPathW, Link:=False, DisplayAsIcon:=False).Select
    Selection.Verb Verb:=xlPrimary
    Range("A1").Select
    ActiveSheet.Paste
    ActiveSheet.Shapes("Object 1").Select
    Selection.Delete
End Sub

Sub nu(flPathW)
 
    Dim objWdApp As New Word.Application
    Dim d As Word.Document
    Dim i As Integer
       
 '   Set objWdApp = CreateObject("Word.Application")
 '   If objWdApp Is Nothing Then Exit Sub
   
    'Set objWdNewDoc = objWdApp.Open

    On Error GoTo eh
   
    objWdApp.Visible = True
 '   objWdApp.Open flPathW
    Set d = objWdApp.Documents.Open(flPathW)

    k = 1
    For j = 1 To 10
    For i = 1 To d.Tables(j).Rows.Count
        ActiveWorkbook.Worksheets(1).Cells(k, 1) = k
        ActiveWorkbook.Worksheets(1).Cells(k, 2) = d.Tables(j).Columns(2).Cells(i)
        ActiveWorkbook.Worksheets(1).Cells(k, 3) = d.Tables(j).Columns(3).Cells(i)
        ActiveWorkbook.Worksheets(1).Cells(k, 4) = d.Tables(j).Columns(4).Cells(i)
        k = k + 1
    Next i
    Next j

eh:
    d.Close
    objWdApp.Quit
   
    Set d = Nothing
    Set objWdApp = Nothing
End Sub