Vba 将Word表格复制到Excel而不拆分单元格

我正在努力将word表格粘贴到excel中，而不让删除器按段落进行拆分，因为我想稍后抓取这些段落并粘贴到excel中

有人知道如何防止excel在从word表粘贴到excel中时拆分段落文本吗

Sub InputDoc()
  Dim Oo As OLEObject
  Dim wDoc As Object 'Word.Document

  'Search for the embedded Word document
  For Each Oo In Worksheets("Input").OLEObjects
      If InStr(1, Oo.progID, "Word.Document", vbTextCompare) > 0 Then
          'Open the embedded document
          Oo.Verb xlVerbPrimary
          'Get the document inside
          Set wDoc = Oo.Object

          'Copy the contents to cell A1
          wDoc.Content.Copy
          Worksheets("Paste").Range("A1").PasteSpecial Paste:=xlPasteFormats

---

您复制的文本字符串中有CRLF，您希望避免Excel将其解释为多个单元格

只需避免使用粘贴，而是使用Range.Value。问题解决了

'Search for the embedded Word document
For Each Oo In Worksheets("Input").OLEObjects
If InStr(1, Oo.progID, "Word.Document", vbTextCompare) > 0 Then
    'Open the embedded document
    Oo.Verb xlVerbPrimary
    'Get the document inside
    Set wDoc = Oo.Object

    'Copy the contents to cell A1
    Worksheets("Paste").Range("A1").value = wDoc.Content

---

这将把整个wDoc.content放在一个单元格中。但那不是你真正想要的。您确实需要在Word中循环浏览表格，并使用

.Value

将数据插入Excel

其余的代码在哪里，主要是结束时的

End If//Next Oo

？注释破坏了粘贴，其余的代码是将单元格从“InputPaste”复制并粘贴到另一个工作表的模板中。请阅读下面的内容，告诉我们哪里出了问题，哪里出了错误或卡在哪里，以及你期望的是什么，而不是实际的行为。此外，您还应该更正代码（尤其是您的注释，它应该以

'

而不是

/

开头）。您还可以阅读如何提供。另外，一个屏幕截图可能会对我们有所帮助。@peh问题非常清楚，“如何防止excel拆分分段文本？”这是一个常见问题。基本上，您复制的文本字符串中有CRLF，您希望避免excel将其解释为多个单元格。