私はExcel VBAの初心者です。 Excel VBAを使用して重要な自動化タスクを実行する必要があります。特定のデータ/テキストをWordファイルからExcelシートにプルする必要があります。添付のサンプルファイルをご覧ください。 WordファイルでWordの特定のデータ/テキストをExcelの特定のセルにプルするにはどうすればよいですか？
強調した日付とその下の各日付を抽出し、Excel最初のシートの「PO発行日」列に置かれる必要があります。同様に、ワードファイル内の各部品番号（強調表示されている）は、「船井部品番号」欄に記入する必要があります。
同様に、 'TOTAL'のワードファイルの数量を '必須数量'列に入れ、ワードファイルのPO番号（ラストロー終了値 - 70525003）を 'PO番号'列に入れる必要があります。このPO番号は、Excelに入力された他のすべての日付と同様です。
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
これは、あなたに必要なものを与えるはずです。
私はこの質問がいくつかの理由で、スタックオーバーフローのトピック外であると判断されると考えます。まず第一に、コードは全くなく、おそらく広すぎます。第二に、質問は自己完結型であるか、少なくとも合理的にそうする必要があるため、外部リンクを壊しても理解できない問題にならないようにする必要があります。これらの問題を解決するために投稿を編集できれば、それは素晴らしいことです。 – halfer