1

我在将单元格从表格复制到另一个单元格时遇到问题。我在这里说的是两个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
4

2 回答 2

4

这是一个例子。

假设我们在一个 word 文档中有两个表格。请看下面的截图

在此处输入图像描述

假设我们要粘贴从Cell 1ofTable 1到Cell 1of的数据，Table 2然后试试这个

Sub Sample()
    Dim tbl1 As Table, tbl2 As Table

    Set tbl1 = ActiveDocument.Tables(1)
    Set tbl2 = ActiveDocument.Tables(2)

    tbl1.Cell(1, 1).Range.Copy
    tbl2.Cell(1, 1).Range.PasteAndFormat (wdFormatOriginalFormatting)
End Sub

这就是宏的作用

在此处输入图像描述

希望这可以帮助 ：）

于 2013-01-14T12:08:13.003 回答
1

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

现在解决了我的问题。使用 Siddharth 给出的逻辑，我使用了 simpletbl2.Cell(1, 1).Range.Paste而不是PasteandFormat. 实际上PasteandFormat有效，但仅在选定的源文件/表中发生了问题。我认为源表中存在一些格式，当粘贴到另一个单元格中时，它看起来会一团糟。我不确定那到底是什么，但.Paste肯定为我解决了。我希望我也可以帮助别人:)

于 2013-01-18T02:34:04.680 回答