ROSANO,

Bom dia!

O código é do colega celsoyano, integrante desse fórum e data de 08/1082013. Acredito que ele sirva para o seu propósito. Quanto a questão de eliminar espaços dos parágrafos, esse é um detalhe que depois que o texto já estiver no Excel fica fácil elaborar algo para eliminar os mesmos.

Veja se lhe ajuda.

viewtopic.php?f=10&t=9357

Sub CopyTextFromWord()
    ' reference select Microsoft word
    Application.DisplayAlerts = False
    Application.ScreenUpdating = False
    Dim wApp As Word.Application
    
    Set wApp = New Word.Application
    sdoc = Application.GetOpenFilename("Word Files (*.doc*)," & "*doc*")
    wApp.Visible = True
    wApp.Activate
    ' open the selected word file
    wApp.Documents.Open (sdoc)
    ' copy whole document
    wApp.Selection.WholeStory
    wApp.Selection.Copy
    
    ' paste on active sheet
    Range("A1").Activate
    ActiveSheet.Paste
    ' close the document
    wApp.Documents.Close
    ' close word application
    wApp.Quit
    
    Set wApp = Nothing
    Application.DisplayAlerts = True
    Application.ScreenUpdating = True
End Sub