Скопировать Таблицу из Word в Exel

[Korellator]

В док-те Ворд таблица. Одна. Как ее скопировать в Эксель?
Вложенный макрос делает почти все. В буфере записан нужный кусок, но команда Paste не выполняется и не дает ошибку... Кто-нибудь сможет помочь?

Sub Макрос1()
'
' Макрос1 Макрос
'
' Сочетание клавиш: Ctrl+z
'
    Dim Xbook As Object
    Dim WrdApp As Object
    Dim WrdDoc As Object
    Application.CutCopyMode = False

    Set Xbook = ActiveWorkbook.Worksheets()
    
    On Error Resume Next
        Set WrdApp = GetObject(, "Word.Application")
    If WrdApp Is Nothing Then
        Set WrdApp = CreateObject("Word.Application")
        WrdApp.Visible = True
    End If
    
    Set WrdDoc = WrdApp.Documents.Open("d:\Test VBA\word\Привет2.docx", True)
    
    WrdDoc.Content.Copy 'tables(1).Range.Select
    
    Xbook("Лист1").Activate
    Xbook.Paste Destination:=Xbook("Лист1").Cells(1, 1) ' не работает эта команда!
                                                        ' при этом в буфере все есть, вручную можно вставить...
    
    
    WrdDoc.Close False
    WrdApp.Quit
  
    Set WrdDoc = Nothing
    Set WrdApp = Nothing
    

End Sub

форматируйте код тегом [CODE]

[Казанский]

Сообщение от Korellator

вручную можно вставить

Запишите макрорекордером команду вставки, сравните со своим кодом.

[Korellator]

Спасибо! Сам не додумался...

    'Xbook("Ëèñò1").Activate
    'Xbook("Ëèñò1").Cells(1, 1).Paste 'Destination:=Xbook("Ëèñò1").Cells(1, 1) ' íå ðàáîòàåò ýòà êîìàíäà!
                                                        ' ïðè ýòîì â áóôåðå âñå åñòü, âðó÷íóþ ìîæíî âñòàâèòü...
        Range("B3").Select
    ActiveSheet.PasteSpecial Format:="HTML", Link:=False, DisplayAsIcon:= _
        False

Не могу похвастаться, что понимаю разницу, но РАБОТАЕТ!