Sub test()
    Dim wrdApp As Object
    Dim myDoc As Object

    Set wrdApp = CreateObject("Word.Application")
   
    With wrdApp
        .Visible = False
        Set myDoc = .Documents.Open("e:\test.doc")
        myDoc.Bookmarks("Region").Range.Copy
        Sheet1.Range("A1").PasteSpecial xlPasteValues
        Application.CutCopyMode = False
    End With
   
    myDoc.Close True
    wrdApp.Quit
    Set myDoc = Nothing
    Set wrdApp = Nothing
End Sub