从Word复制到Excel

Question

我希望从Excel中搜索word文档，看看是否可以找到一个表格，以及是否可以将该表格复制到Excel中。在找到之前我不知道桌子的大小。我将在现有工作簿中为此找到的表创建一个新工作表。

Answer 1

以下是循环word文档中每个表的方法。弄清楚你想如何做剩下的工作不应该是一个问题（如果是，请用你试过的信息更新你的问题，等等）。您需要在Excel中打开一个单词对象，或者在单词中打开一个Excel对象。

Sub FindTables()

Dim tTable As table

For Each tTable In ActiveDocument.Tables
    tTable.Range.Copy
    'Do what you wish (.range.copy here used for example only)
Next

End Sub