title: Extracting text from powerpoint into Excel in the same format
body: <p>I'm looking to extract text from powerpoint into excel so I can copy it into outlook later on hopefully in the same format as much as possible.</p>
  <p>The text is paragraphed and looks something like this on powerpoint.
  <a href="https://i.stack.imgur.com/59VWg.png" rel="nofollow noreferrer">Paragraphed Powerpoint text</a></p>
  <p>I had help from this article: (<a href="https://stackoverflow.com/questions/52570289/extracting-text-from-ppt-and-pasting-it-in-excel-using-vba">Extracting text from PPT and pasting it in Excel using VBA</a>) in working the vba code to extract text from powerpoint. However the text extracted into the excel cell is clumped together like that (<a href="https://i.stack.imgur.com/zokvQ.png" rel="nofollow noreferrer">excel output</a>). Does anyone know how I can keep the paragraph formatting (including arrows) while extracting the text into a cell on excel?</p>
  <p>The below code was taken from user Ahmed AU which can be found here and I'm using it in this post because I intend to work off it  <a href="https://stackoverflow.com/a/52573908/15567184">https://stackoverflow.com/a/52573908/15567184</a></p>
  <pre><code>Sub LateBinding()
  
  Dim oPApp As Object
  Dim oSlide As Object
  Dim oShape As Object
  
  Dim Rw, StCol, Col, Sht As Long
  Rw = 8
  StCol = 1
  Sht = 1
  
  Set oPApp = CreateObject(&quot;Powerpoint.Application&quot;)
  
  For Each oSlide In oPApp.ActivePresentation.Slides
  Col = StCol
      For Each oShape In oSlide.Shapes
          If oShape.Type = 1 Or oShape.Type = 14 Then
              ThisWorkbook.Sheets(Sht).Cells(Rw, Col).Value = oShape.TextFrame.TextRange.Text
          End If
      Col = Col + 1
      Next oShape
  Rw = Rw + 1
  
  Next oSlide
  Set oPApp = Nothing
  
  
  End Sub
  </code></pre>