Excel 字复制表

对不起，我的英语很差，这可能是一个简单的问题。 我想将表对象复制到字典中，以便稍后将其放在另一个Word文档中。所有工作都是在Excel VBA中完成的。 我尝试复制表：

Dim dict As Dictionary
Dim table1 As Word.table
Set table1 = Word.Application.ActiveDocument.Tables.Item(tableNum)                                            
dict.Add "SampleText","MyText"
dict.Add "tab1", table1

之后，我关闭此文档并打开另一个文档。在其中，我尝试将数据从字典插入书签：

dim prilDoc As Word.Document
...
prilDoc.Bookmarks.Item("SampleText").Range.Text=dict.Item("SampleText")    

这个（插入文本）工作得很好，但我不知道如何将表对象放置在BookmarkPlace上，因为我不知道VBA Word对象模型。我尝试了一些方法，但找不到解决办法。我认为有两个问题：

当我将表对象放入字典时，实际上，我只复制了第一个Word文档中对表对象的引用。当我关闭此文档并尝试从字典中获取它时，对象被删除，我无法使用它。在Java中，我可以深度克隆对象，但我不知道如何在VBA中实现。可能在这里必须充分利用另一种方法

我不知道，在新Word文档中插入表对象的正确程度如何

---

提前感谢。

打开第一个文档后，您是否尝试复制？在复制内容之前不要将其关闭。

您是否尝试在打开第一个文档的情况下复制？在复制内容之前不要关闭它。

所有文档片段，包括

表

，都链接到源文档，无法深度复制。谢谢！那么我怎样才能用字典把一个表复制到另一个表呢？我可以将表格复制到剪贴板并将其内容保存到字典吗？如果是这样，请帮助我如何做。提前谢谢。你可以将它复制到剪贴板，但也只能通过引用进行复制。我认为这是不可能的，除非你立即粘贴每一个。（您可以尝试使用剪贴板）您可能只需要将表中的每个单元格复制到Dictionary对象中。或者，更好的做法是，完全避免使用字典，将表格单元格中的文本放入书签。我不能完全理解这个问题，但如果您想在许多文档中插入同一个表格，可以使用“自动图文集”或“自动更正”来澄清您的问题。所有文档片段，包括

表格

，已链接到源文档，无法深度复制。谢谢！那么我怎样才能用字典把一个表复制到另一个表呢？我可以将表格复制到剪贴板并将其内容保存到字典吗？如果是这样，请帮助我如何做。提前谢谢。你可以将它复制到剪贴板，但也只能通过引用进行复制。我认为这是不可能的，除非你立即粘贴每一个。（您可以尝试使用剪贴板）您可能只需要将表中的每个单元格复制到Dictionary对象中。或者，更好的办法是完全避免使用字典，将表格单元格中的文本放入书签。我不能完全理解这个问题，但是如果你想在许多文档中插入同一个表格，你可以使用“自动图文集”或“自动更正”来澄清你的问题。