title: Copy Word table to Excel without splitting cells
body: <p>I'm struggling to paste a word table into excel without the deliminator splitting out by paragraph, as I want to grabs those paragraphs and paste into excel later.</p>
  
  <p>Does anyone know how to prevent excel from splitting paragraphed text when it is pasted into excel from a word table?</p>
  
  <pre><code>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) &gt; 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
  </code></pre>