Importing data from word to Excel

[Angiec50]

I need to import data from a table in a word document within a specific section (i.e Page 4, headed section 4a). However, there are 300 different word documents that I need to import into one spreadsheet.

Does anyone have any ideas on the quickest way of doing this without the user having to go in manually to select the data?

Thanks

Angie

 

[NdNoviceHlp]

HTH to get you started. Dave

Sub WordTableToXL()
Dim WdApp As Object, wdDoc As Object
Dim iRow As Long, iCol As Integer

On Error GoTo Erfix
Set WdApp = CreateObject("Word.Application")
'adjust file path to suit
Set wdDoc = WdApp.Documents.Open(Filename:="D:\test.doc")
If wdDoc.Tables.Count = 0 Then
MsgBox "This document contains no tables"
GoTo Erfix
End If
'adjust table # to suit
With wdDoc.Tables(1)
For iRow = 1 To .Rows.Count
    For iCol = 1 To .Columns.Count
    On Error Resume Next
    'adjust XL address below to suit
    Sheets("sheet1").Cells(iRow, iCol) = _
    WorksheetFunction.Clean(.Cell(iRow, iCol).Range.Text)
    On Error GoTo 0
    Next iCol
Next iRow
End With
Set wdDoc = Nothing
WdApp.Quit
Set WdApp = Nothing
Exit Sub

Erfix:
On Error GoTo 0
MsgBox "Error"
Set wdDoc = Nothing
WdApp.Quit
Set WdApp = Nothing
End Sub

 

[Angiec50]

Thanks Dave.

I have tried this and for once I have got something working pretty much straight away . However, I have just realised that the word documents I have been given are forms and so the table I want to import has tick boxes that have been completed. Is there anyway I can also import the answers?. I presume that I would need to change the macro for each of the 300 word documents as well. I might just get the user to transfer it manually - teach them right for creating it in word in the first place