VBA从Excel复制到Word出错（wdPasteText）

需要对前面的“wdFormatOriginalFormatting”进行修改。因为这会导致出现格式错误，需要改为“wdFormatPlainText”。

示例代码如下：

Sub CopyToWord() Dim wdApp As Object Dim wdDoc As Object Dim sText As String

'打开Word应用程序 Set wdApp = CreateObject("Word.Application")

'新建一个Word文档 Set wdDoc = wdApp.Documents.Add

'Select方法会将复制到剪贴板中 Selection.Copy

'在Word文档中粘贴 wdDoc.Range.PasteSpecial , , , , wdPasteText

'关闭Word文档 wdDoc.Close

'退出Word应用程序 wdApp.Quit

End Sub