从Word中的表复制文本并保留格式

Question

将单元格从表格复制到另一个单元格时出现问题。我在这里谈论两个word文档。我可以复制文本，但子弹已经消失了，并且还有一些格式化。

我尝试.Formattedtext但仍然无法做到。

Dim test As Word.Cell

'An error occurs something like "Object variable or With block variable not set"
test.Range.FormattedText = CTPDoc.Tables(2).Rows(testCount).Cells(3).Range.FormattedText

Answer 1

这是一个例子。

假设我们在word文档中有两个表。见下面的截图

假设我们要将Cell 1 Table 1的数据粘贴到Cell 1的{​​{1}}，然后尝试此操作

Table 2

这就是宏所做的事情

希望这会有所帮助：）

Answer 2

@Siddharth Rout 你回答真的很有帮助。这不是我问题的确切答案，但至少我了解了PasteandFormat及其不同的类型，例如wdFormatOriginalFormatting。也许有一天我可以使用它。

现在，这就解决了我的问题。 使用Siddharth给出的逻辑，我使用了简单的tbl2.Cell(1, 1).Range.Paste而不是PasteandFormat。实际上PasteandFormat有效，但是只有选定的源文件/表中才会出现问题。我认为源表中存在一些格式，当粘贴在另一个单元格中时，它看起来很混乱。我不确定究竟是什么，但.Paste肯定为我解决了。我希望我也可以帮助别人：）