VBA Word to Excel - Word在尝试粘贴时嵌入了inecel

Question

我正在尝试从word文档复制到excel文档，当我使用下面的代码执行此操作时，它将word文档嵌入到excel文档中而不是粘贴到文本中。

我怎样才能使它不嵌入word文档而是粘贴在文本中呢？

Dim objWord As Object, objDoc As Object
Set objWord = CreateObject("Word.Application")
Set objDoc = objWord.Documents.Open("\\Desktop\REPORT.doc")
objWord.Visible = True

objWord.Selection.WholeStory
objWord.Selection.Copy

Workbooks.Add
Selection.PasteSpecial

Answer 1

当您从Word粘贴到Excel而未指定粘贴方法时，VBA默认将Word对象插入到工作表中（因为这样可以保留尽可能多的数据）。如果您在PasteSpecial命令中指定使用xlPasteValues，它会将所选文本作为字符串插入所需的单元格

Answer 2

尝试粘贴为值;

Selection.PasteSpecial Paste:=xlPasteValues