Pick up data from Word documenta

[jmarin]

How can I pick up data from Word document in Excel? I marked data with bookmarks and I need code for picking up data from bookmarks?



Thanks in advance

[HOmT398]

Hi,jmarin

here is a sample, hope can help you.

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