将数据从 Excel 粘贴到 Word答案

【问题标题】：Paste data from Excel to Word将数据从 Excel 粘贴到 Word
【发布时间】：2017-06-07 05:24:56
【问题描述】：

我一直在搜索这个网站，似乎有很多关于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

【问题讨论】：

【解决方案1】：

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

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

截图

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

【讨论】：

嗨，Sid，非常感谢您再次提供闪电般的快速响应。事实上，这是我尝试的第一件事。我确实偶然发现了来自 msdn 的这个链接。因为，我不确定，我一一尝试了上面截图中的所有选项。我面临的问题是，与您完美的屏幕截图不同，在宏完成将数据粘贴到 word 中之后，我看到蓝色虚线，即表格格式并且它没有包裹文本。我试图从 excel 粘贴的单元格范围有很多文本。粘贴到 word 后，它不会将文本换行；相反，将其粘贴为表格（半可见文本）。请参阅附件。
我没有看到任何附件？
这是一个截图链接。抱歉，我找不到通过 cmets 将其附加到此处的方法。 prnt.sc/fhc58m
奇怪。我不明白那些线。
您好，对于延迟回复深表歉意。刚下班回来。不用担心。可能是因为我使用的是 excel 2007。我认为它已解决。再次感谢您的帮助。