vba - 将数据从 Excel 粘贴到 Word

Question

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

我正在将数据从 excel 复制到 word 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)