Help required to extract data in Word doc to Excel

[gmayor]

Word tables with merged cells are a pain to process, however the attached Word add-in (not yet published on my web site) will identify the cell indices of the cells in such a table to make it simpler to address the cell content directly using Word VBA. e.g. running the code from Outlook, you can grab the contents of the required cells and write them to your workbook. The following example assumes your document is open and active in Word. In practice you would open the document(s) from the macro to process them.

Dim wdApp As ObjectDim wdDoc As Object
Dim oCell As Object
    On Error Resume Next
    Set wdApp = GetObject(, "Word.Application")
    If Err Then
        Set wdApp = CreateObject("Word.Application")
    End If
    On Error GoTo 0
    Set wdDoc = wdApp.activedocument    ' or open the document
    Set oCell = wdDoc.Tables(1).Range.Cells(3).Range
    oCell.End = oCell.End - 1
    'do something with ocell.text
    MsgBox "Site Name is " & oCell.Text