How to copy a formatted paragraph from Word 2013 to Excel?

Question

I want to open a Word document and copy each formatted paragraph into its own cell in an Excel worksheet, retaining the formatting for further processing. I have been able t

Answer 1

For reference, the updated sub code is:

   Private Sub Load_Schedule()
    Dim ParaCount As Integer
    Sheets(FileName).Activate
    Sheets(FileName).Columns(1).AutoFit
    For ParaCount = 1 To wDoc.Paragraphs.Count
        wDoc.Paragraphs(ParaCount).Range.Copy
        Sheets(FileName).Range("A1").Offset(ParaCount, 0).Activate
        Sheets(FileName).Paste
    Next ParaCount
End Sub