Guru do Excel e Power BI

Sub fromWordDocsToMultiCols()
'Fonte: http://stackoverflow.com/questions/32788712/import-word-file-name-and-data-into-excel-in-a-consistent-format
    Dim f As String: f = "C:\Users\AleVBA\Downloads\"
    Dim s As String: s = Dir(f & "*.docx")
    Dim wdApp As New Word.Application, wdDoc As Word.Document
    Dim col As Integer: col = 1

    On Error GoTo errHandler
    Do Until s = ""
        Set wdDoc = wdApp.Documents.Open(f & s)
        wdDoc.Range.Copy
        Plan1.Cells(1, col).Value = s
        Plan1.Cells(2, col).PasteSpecial xlPasteValues
        wdDoc.Close False: col = col + 1: s = Dir
    Loop

errHandler:
    If Err.Number <> 0 Then MsgBox Err.Description
    If Not wdApp Is Nothing Then wdApp.Quit False
End Sub