title: How to export the data from excel to word as text use VBA
body: <p>I have the following code found from this web site. It works almost, except that it export the date into a form in Word document. Instead, I would like to have paragraphs, keeping the original font, size and color in excel. Could anyone help? Very much appreciated!</p>
  
  <pre><code>Sub Export_Excel_To_Word()
  
  Dim wdApp As Object
  Dim wd As Object
  
  On Error Resume Next
  Set wdApp = GetObject(, "Word.Application")
  If Err.Number &lt;&gt; 0 Then
      Set wdApp = CreateObject("Word.Application")
  End If
  On Error GoTo 0
  
  Set wd = wdApp.Documents.Add
  
  wdApp.Visible = True
  
  
  
  Sheets("sheet1").Activate
  Set Rng = ThisWorkbook.ActiveSheet.Range("A2:F21")
  
  Rng.Copy
  
     With wd.Range
          .Collapse Direction:=wdCollapseStart                  'Slutet av dokumentet
          .InsertParagraphAfter                                 'Lagg till rad
          .Collapse Direction:=wdCollapseStart                  'Slutet av dokumentet
          .PasteSpecial xlPasteFormats, False, False            'Paste with format
  
      End With
  
  End Sub
  </code></pre>