如何使用VBA从单词表中提取数据到excel 2011？

Question

I'm trying to extract data (the information on the second column of word tables) from multiple word documents and compile the data to one excel (2011 mac version). Below is the example: the word table

the excel

I wrote a code, but this code doesn't work. How to revise this code so that it can work properly? thanks a lot!

    Sub extractdata()
Dim r As Integer
Dim c As Integer
r = 1
c = 8
Range(Cells(r + 1, ”A”), Cells(65536, c)).ClearContents
Application.ScreenUpdating = False
Dim filename As String, wdapp As Object, erow As Long, fn As String, arr As Variant
Set wordapp = CreateObject("word.application")
filename = Dir(ThisWorkbook.Path & “ \ " & " * .docx”)
Do While filename <> “”
        With wordapp.documents.Open(ThisWorkbook.Path & "\" & filename)
            For i = 1 To 8
            arr = Left(.Table(1).Cells(i, 2))
            Next
            Cells(erow, “A”).Resize(UBound(arr, 1), 8) = arr
        End With
    filename = Dir
Loop
Application.ScreenUpdating = True

End Sub

Answer 1

Untested:

Sub extractdata()

    Dim c As Long

    c = 8
    Range(Cells(r + 1, "A"), Cells(65536, c)).ClearContents
    Application.ScreenUpdating = False

    Dim filename As String, wdapp As Object, erow As Long, _
    Dim fn As String, i as Long

    Set wordapp = CreateObject("word.application")

    filename = Dir(ThisWorkbook.Path & "\*.docx")
    Do While filename <> ""

        With wordapp.documents.Open(ThisWorkbook.Path & "\" & filename)
            For i = 1 To c
                Cells(erow, i) = Left(.Tables(1).Cell(i, 2)).Range.Text
            Next
            .Close False
        End With

        filename = Dir()
    Loop
    Application.ScreenUpdating = True

End Sub