VBA Word到Excel-Word在尝试粘贴时嵌入不精确项

我正在尝试从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

---

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

尝试将其粘贴为值

Selection.PasteSpecial Paste:=xlPasteValues

尝试粘贴为值

Selection.PasteSpecial Paste:=xlPasteValues

---

你有正在发生的事情的照片吗？我想您只需要将粘贴作为值，但我想确认一下first@BryanDavies虽然我很想上传一张正在发生的事情的图片，但我不能，工作已经被printscreen阻止/锁定。我能描述它的最好方式是，整个word文档在excel中就像一个文本框一样，但它的侧面和顶部都有标尺，在excel中，如果我在excel的公式栏中选择嵌入的单词“=EMBED（“word.document.8”，”）”好的，我想你很快就会需要它：）。我在手机上，但如果您使用record宏并将一个特殊的粘贴记录为值，您将得到一个可以工作的代码。我会在几分钟后更新computer@BryanDavies，这不是紧急的，但我会看看我得到了什么粘贴作为values@BryanDavies，只是尝试粘贴为值，效果很好，发布一个答案，我会接受它，TY你有正在发生的事情的图片吗？我想您只需要将粘贴作为值，但我想确认一下first@BryanDavies虽然我很想上传一张正在发生的事情的图片，但我不能，工作已经被printscreen阻止/锁定。我能描述它的最好方式是，整个word文档在excel中就像一个文本框一样，但它的侧面和顶部都有标尺，在excel中，如果我在excel的公式栏中选择嵌入的单词“=EMBED（“word.document.8”，”）”好的，我想你很快就会需要它：）。我在手机上，但如果您使用record宏并将一个特殊的粘贴记录为值，您将得到一个可以工作的代码。我会在几分钟后更新computer@BryanDavies，这不是紧急的，但我会看看我得到了什么粘贴作为values@BryanDavies，只是尝试粘贴为值，效果很好，发布答案，我会接受的，泰