2011-09-19 92 views
0

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

+0

如何找到表格,什么会识别它? – brettdj

+0

请参阅:http://stackoverflow.com/questions/3567441/extract-data-from-word-document-to-an-excel-spreadsheet/3611739#3611739进一步提示 – MikeD

回答

1

以下是如何遍历word文档中的每个表格的方法。弄清楚你想如何做其余的事情不应该是一个问题(如果是的话,更新你的问题与你试过的信息等)。你可能需要在Excel中打开一个单词对象,或者在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