Копирование содержимого таблицы слов Speci c в Excel

Question

Я пытаюсь создать код VBA, который берет указанную ячейку c в текстовом документе и выводит ее в Excel. Я вижу много дискуссий о том, как перенести все таблицы из Word в Excel в Интернете, но возможно ли сделать это выборочно?

Например, у меня есть документ Word под названием "example.docx", как например:

Как перенести содержимое второй ячейки второй таблицы в ячейку А1 в excel?

Примите во внимание, что моя цель в какой-то момент - l oop через документы с одинаковой структурой, поэтому я считаю, что индексация с использованием метода «Selection.Copy» может быть не самым идеальным способом для этого случая.

Большое спасибо заранее за помощь!

Answer 1

Должно быть примерно так:

Sub test()
    Dim wsSheet As Worksheet
    Dim WordApp As Object, WordDoc As Object

    Set wsSheet = ThisWorkbook.Worksheets("Sheet1")
    Set WordApp = CreateObject("Word.Application")
    Set WordDoc = WordApp.Documents.Open("C:\Test\example.docx")
    wsSheet.Range("A1").Value = WordDoc.Range.Tables(2).Range.Cells(2).Range.Text
    WordApp.Quit
End Sub