Help required to extract data in Word doc to Excel

[snb]

Well, that is a horrible Table in Word.


Use this macro in Excel while your Word document is open:

Sub M_snb()
  GetObject(, "Word.application").activedocument.tables(1).Range.Copy
   
  With Sheet2
    .Paste .Cells(1)
  
    GetObject(, "Word.application").activedocument.tables(2).Range.Copy
    .Paste .Cells(24, 1)
    
    .Cells.UnMerge
    .Range("A1, A5, A11:A14,A24:A25,A32").EntireRow.Delete
    .UsedRange.SpecialCells(4).Delete -4159
    .Rows("9:16").Insert
    .Range("C1:D8").Cut .Cells(9, 1)
    .Columns.AutoFit
 End With
End Sub