So importieren Sie Text aus MS Word über vba-commandbutton

Question

Ich versuche, ein Konfigurations-Tool, das mit mehreren Excel-Dateien verknüpft ist. Sie sind alle durch eine "Optionsnummer" verbunden. Gibt es eine Möglichkeit, einen Teil eines ganzen MS Word-Dokuments über den "Optionsnummer" -Link nach Excel zu importieren?

Answer 1

In Ordnung, da Ihre Frage keinen Code enthält und uns nicht viel über den Ansatz erzählt, den Sie verfolgen, werde ich nur einige allgemeine Hinweise geben, wie Sie auf Tabellen in einem Word-Dokument aus Excel zugreifen können Makro.

Zuerst müssen Sie einen Verweis auf die Microsoft Word #.# Object Library hinzufügen. Um dies zu tun, öffnen Sie Ihre VBE (alt + F11), klicken Sie auf tools, References... und markieren Sie das Kontrollkästchen für diese Bibliothek. Die #.# oben ist die Versionsnummer. Zum Beispiel wird Wort 2016 die Microsoft Word 16.0 Object Library sein.

Jetzt haben Sie Zugriff auf Word-Objekte in Ihrem Excel VBE. Sie können etwas tun wie folgt:

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 

Viel Glück.