title: How to Copy/Paste text box from MS Word to Powerpoint slide?
body: <p>I am currently creating a document that will take the format and text from a MS Word document and paste it into a text box in a PowerPoint template. I have looked all over to see how this can be done and haven't found much. Any help would be much appreciated!!</p>
  
  <pre><code>Public Sub CommandButton1_Click()
  Dim pptApp As Object
  Dim pptPres As String
  Dim folderPath, file As String
  
      folderPath = ActiveDocument.Path &amp; Application.PathSeparator
      file = "Huntington_Template.pptx"
      pptApp.Visible = True
      pptApp.presentations.Open (folderPath &amp; file)
  
      ActiveDocument.Bookmarks("Update_Image").Range.Copy 'text box to copy in MS WS
      'not sure what to do next?
  
  End Sub
  </code></pre>