Como inportar texto do MS Word via vba-commandbutton - excel-vba, word-vba, vba, excel

Eu estou tentando fazer uma ferramenta de configuração que évinculado a vários arquivos do Excel. Eles estão todos ligados por um "número de opção". Existe alguma maneira de importar uma parte de todo um documento do MS Word através do link "option-number" para o Excel?

Respostas:

Tudo bem, desde a sua pergunta não possui qualquercódigo e realmente não nos diz muito sobre a abordagem que você está depois, eu vou apenas dar algumas dicas gerais sobre como acessar tabelas em um documento do Word a partir de uma macro do Excel.

Primeiro, você precisará adicionar uma referência ao Microsoft Word #.# Object Library. Para fazer isso, abra seu VBE (alt + F11), clique em tools, References... e marque a caixa de seleção para esta biblioteca. o #.# acima é o número da versão. Por exemplo, a palavra 2016 será a Microsoft Word 16.0 Object Library.

Agora você terá acesso aos objetos do Word no seu Excel VBE. Você pode fazer algo assim:

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:temptemp.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

Boa sorte.