将数据从MS Word文本框中拉入Excel

Question

我在300个评估表格的某个地方，必须依次打开它们并将一些数据删除到excel中。这对我来说听起来像是一些VBA。 到目前为止，我有这个......

Dim objWdApp As Object
Dim objWdDoc As Object


On Error Resume Next
Set objWdApp = GetObject(, "Word.Application")

If Err.Number <> 0 Then
    Set objWdApp = CreateObject("Word.Application")
End If
Err.Clear
On Error GoTo 0

Set objWdApp = CreateObject("Word.Application")
Set objWdDoc = objWdApp.Documents.Open(Filename:="U:\PDR\NewProcess\Mike Hibbert.docx")

objWdApp.Visible = False

Range("A1") = objWdDoc.textName.Value

objWdApp.Quit

Set objWdDoc = Nothing
Set objWdApp = Nothing

但它的错误     范围（＆＃34; A1＆＃34;）= objWdDoc.textName.Value

运行时错误438

我知道这并没有浏览文件夹中的所有项目等，但在这个阶段我只想从word中获取一些数据到excel。

干杯 麦克