从 Word 复制到 Excel [关闭]

Question

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

Answer 1

以下是如何循环遍历 Word 文档中的每个表格。弄清楚你想如何做剩下的事情不应该是一个问题（如果是，用你尝试过的信息等更新你的问题）。您需要在 Excel 中打开一个 word 对象，或者在 word 中打开一个 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