Wie bestimmte Daten/Text von Word zu bestimmten Zellen in Excel ziehen?

Question

Ich bin ein Neuling zu Excel VBA. Ich muss eine wichtige Automatisierungsaufgabe mit Excel VBA durchführen. Es erfordert das Ziehen bestimmter Daten/Texte von Word-Dateien in Excel-Tabellen. Bitte beachten Sie die beigefügten Beispieldateien.

Excel File

Word File

Der markierte Datum und jedes Datum darunter in Word-Datei muss extrahiert und in die ‚PO Ausgabetag‘ Spalte in Excel erste Blatt gesetzt werden. Entsprechend muss jede Teilenummer (hervorgehoben) in der Wortdatei in die Spalte "Funai-Teile-Nr." Eingefügt werden.

Ebenso muss die Menge in der Wortdatei unter "TOTAL" in die Spalte "Erforderliche Menge" und die Bestellnummer in Wortdatei (Lastrow Endwert - 70525003) in die Spalte "Bestellnummer" eingegeben werden . Diese Bestellnummer wird für alle anderen in Excel eingegebenen Daten ähnlich sein.

Answer 1

Können Sie Lesezeichen zu Word hinzufügen und das folgende Skript ausführen?

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 

Das sollte Ihnen geben, was Sie wollen.