首页 文章

如何将特定数据/文本从Word中提取到Excel中的特定单元格?

提问于
浏览
0

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

Excel File

Word File

需要提取Word文件中突出显示的日期和每个日期,并将其放入Excel第一张表中的“采购订单发布日期”列 . 同样,word文件中的每个部件号(突出显示)都需要放入'Funai Part No'列 .

同样,'TOTAL'下的word文件中的数量需要放入'Required Qty'列,word文件中的PO编号(Lastrow结束值 - 70525003)需要放入'PO Number'列 . 对于在Excel中输入的所有其他日期,此PO编号将类似 .

1 回答

  • 0

    您可以将书签添加到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
    

    这应该给你你想要的 .

相关问题