如何從Word中將特定的數據/文本拖到Excel中的特定單元格？

我是Excel VBA的新手。我需要使用Excel VBA完成一項重要的自動化任務。它需要從Word文件中提取特定的數據/文本到Excel工作表。請參閱附加的示例文件。需要如何從Word中將特定的數據/文本拖到Excel中的特定單元格？

高亮顯示的日期和Word文件，其下每個日期將被提取並投入Excel中第一頁的「PO發行日期」一欄。同樣，文字文件中的每個零件編號（突出顯示）都需要放入「Funai零件編號」欄中。

同樣，'TOTAL'下的word文件中的數量需要放入'Required Qty'列中，並且Word文件中的PO號碼（Lastrow最終值 - 70525003）需要放入'PO Number'列。此採購訂單編號在所有其他日期以及在Excel中輸入時都相似。

來源

2017-04-18 Ahmed Dildar

我懷疑這個問題將被判斷爲堆棧溢出的主題，原因有幾個。首先，沒有任何代碼，它可能太寬泛。其次，問題需要自成一體，或者至少合理如此，以便打破外部鏈接不會使問題無法理解。如果您可以編輯帖子來解決這些問題，那就太好了。 – halfer

您可以將書籤添加到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

這應該給你想要的東西。

來源

2017-07-20 11:43:16 ryguy72

如何從Word中將特定的數據/文本拖到Excel中的特定單元格？

回答

相關問題