如何将Word中的特定数据/文本拉入Excel中的特定单元格？

Question

我是Excel VBA的新手。我需要使用Excel VBA完成一项重要的自动化任务。它需要将特定的数据/文本从Word文件拉到Excel工作表中。请参阅附件中的示例文件。

Excel File

Word File

需要将Word文件中突出显示的日期及其下面的每个日期提取出来，放入Excel第一张工作表的'PO issue date‘栏中。同样，word文件中的每个零件编号(突出显示)都需要将其放入“Funai part No”列中。

类似地，需要将word文件中'TOTAL‘下的数量放入'Required Qty’列，将word文件中的PO编号(Lastrow end value - 70525003)放入'PO Number‘列。对于在Excel中输入的所有其他日期，此PO编号也将类似。

Answer 1

是否可以将书签添加到Word并运行下面的脚本？

Sub PushToWord()

Dim objWord As New Word.Application
Dim doc As Word.Document
Dim bkmk As Word.Bookmark
sWdFileName = Application.GetOpenFilename(, , , , False)
Set doc = objWord.Documents.Open(sWdFileName)
On Error Resume Next

    Range("B1").Value = ActiveDocument.Variables("BrokerFirstName").Value
    Range("B2").Value = ActiveDocument.Variables("BrokerLastName").Value
    ActiveDocument.Fields.Update

On Error Resume Next
objWord.Visible = True

End Sub

这应该会给你你想要的。