vba-commandbutton経由でMS Wordからテキストをインポートする方法

Question

いくつかのExcelファイルにリンクされている構成ツールを作成しようとしています。 これらはすべて「オプション番号」によってリンクされています。 「option-number」リンクを使用して、MS Word文書全体の一部をExcelにインポートする方法はありますか？

Answer 1

さてさて、あなたの質問は任意のコードを保持していないと本当に私はちょうどエクセルからワード文書内のテーブルにアクセスする方法についていくつかの一般的な指針を与えるでしょう、私たちにあなたが後にしているアプローチについて多くを教えてくれないので、マクロ。

まず、あなたはMicrosoft Word #.# Object Libraryへの参照を追加する必要があります。これを行うには、VBE（alt + F11）を開き、tools、References...をクリックし、このライブラリのチェックボックスをオンにします。上記の#.#がバージョン番号です。たとえば、単語2016はMicrosoft Word 16.0 Object Libraryとなります。

これでExcel VBEのWordオブジェクトにアクセスできます。

Sub Test() 
Dim wApp As Word.Application 
Dim wDoc As Word.Document 
Dim wTable As Word.Table 
Dim r As Word.Row 
Dim c As Word.Cell 

Set wApp = New Word.Application 'Get a word application object, so you can open and manipulate documents from your Excel macro. 
Set wDoc = wApp.Documents.Open("C:\temp\temp.docx") 'Open your document. 

Set wTable = wDoc.Tables(1) 'To access the first table in the document 

For Each r In wTable.Rows 'Loop over Word table rows 
    For Each c In r.Cells 'Loop over Word table cells 
     'Do stuff with the table: 
     MsgBox c.Range.Text 
     ThisWorkbook.Worksheets("Sheet1").Range("A1").Value = c.Range.Text 
    Next c 
Next r 

'and clean up after yourself: 
Set wTable = Nothing 

wDoc.Close SaveChanges:=False 
wApp.Quit 

Set wDoc = Nothing 
Set wApp = Nothing 
End Sub 

幸運： あなたはこのような何かを行うことができます。