Cacher is the code snippet organizer for pro developers

Sub test1()

For Each singleline In ActiveDocument.Paragraphs

    linetext = singleline.Range.Text

    If linetext > "B" Then

      singleline.Range.InsertAfter vbNewLine

    End If

Next

End Sub

http://www.learnexcelmacro.com/2012/01/copy-from-excel-and-paste-in-word/