粘贴时丢失表格单元格样式

Question

Documents.Add.Content.PasteAndFormat (wdFormatOriginalFormatting)

所以我在复制时排除了“表格单元格结束标记（看起来像太阳）”。然后它将只粘贴文本（没有表格，因为我不希望它这样做），但最后一段失去了样式。

如果我在表格单元格末尾添加一个额外的段落标记（按Enter）并复制没有“表格单元格结束标记”的单元格，它就像我不想做的一样工作...几乎。目标文档没有表（是！）而且所有段落都有正确的样式（是的！），但最后也有一个不必要的额外段落标记。当然还有表格单元格中多余的空段落。

有什么建议如何解决？

Answer 1

首先，只有在别无选择的情况下才应该使用复制/粘贴。为此，Range.FormattedText属性起作用，因此不需要复制/粘贴。

由于您没有给出好的复制步骤，我不确定下面的步骤是否完全正确，但它适用于我测试的场景。我在文档中创建了一个表。我想在另一个文档中重用的文本位于第一行的第二个单元格（单元格(1，2))中。我创建了一个段落样式并将其应用于单元格。我使用单元格范围来拾取此内容，同时也获取范围中的字符数。

然后将range.formattedText分配给新文档的content.formattedText。正如您所说，这会带来一个Chr(13)，所以我从文本中删除那个字符(inumchars-1)。原始样式被带到目标文档中，只有一个段落标记（它应该是用导入的样式格式化的）。

Sub CellContentToNewDoc()
    Dim rng As word.Range
    Dim rngNew As word.Range
    Dim newDoc As word.Document
    Dim lNumChars As Long

    Set rng = ActiveDocument.Tables(1).Cell(1, 2).Range
    inumchars = Len(rng)

    Set newDoc = Documents.Add
    Set rngNew = newDoc.content
    rngNew.FormattedText = rng.FormattedText
    rngNew.Characters(inumchars - 1).Delete
End Sub