с вордом не работал но думаю через createobject(excel.application). Пройти в цикле документ , выбрать абзацы и скопировать. Глянь объекты ворда хотя бы в F2.

Вот абзацы( для Word).
Public Sub ParagraphIterator ()
Dim iParagraph As Paragraph
For Each iParagraph In ActiveDocument.Paragraphs
Debug.Print iParagraph.Range.Text
Next iParagraph
End Sub

Public Sub ParagraphIterator()
Dim myXL As Excel.Application
Dim iParagraph As Paragraph
Dim iCounter As Long

Set myXL = New Excel.Application
myXL.Workbooks.Add
iCounter = 0

For Each iParagraph In ActiveDocument.Paragraphs
iCounter = iCounter + 1
myXL.ActiveWorkbook.Worksheets(1).Range("A" & iCounter).Value = iParagraph.Range.Text

Next iParagraph


myXL.ActiveWorkbook.SaveAs "c:\Test.xls"
myXL.Quit
Set myXL = Nothing
End Sub

жмешь в Word alt-f11 и вставляешь этот макрос. ВСтаешь на него жмешь F5. В Tools\Referens ставишь ссылку на Microsoft EXcel x,0 Object Library(где х - версия excel).