将数据从Excel粘贴到Word

Question

我一直在搜索这个网站，datatype:=wdpastetext上似乎有很多文章。但是，我仍然无法找到我在部分代码中遇到的问题的解决方案。

我将数据从excel复制到单词L19 to L38作为文本。但是，从L19到L38的某些行是粗体和下划线，我希望保留该格式。下面的代码只是将其粘贴为普通文本而不加粗体或下划线。

任何帮助都将不胜感激。

Range("L19:L38").Copy
With objWord
    .Selection.PasteSpecial Link:=False, DataType:=wdPasteText, _
     Placement:=wdInLine, DisplayAsIcon:=False

Answer 1

wdPasteText应该只复制文本。它不会复制任何格式。 Bold和Underline是格式化的一部分。如果您希望复制格式，则可以使用wdPasteHTML。

With objWord
    .Selection.PasteSpecial Link:=False, DataType:=wdPasteHTML, _
    Placement:=wdInLine, DisplayAsIcon:=False
End With

<强>截图

有关其他选项，请参阅此知识库文章

WdPasteDataType Enumeration (Word)