将数据从Excel粘贴到Word

我一直在search这个网站，似乎有很多关于datatype:=wdpastetext文章datatype:=wdpastetext 。 但是，我仍然无法find我遇到的部分代码遇到的问题的解决scheme。

我将文本从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 

截图

有关其他选项，请参阅此KB文章

WdPasteDataType枚举（Word）