¿Cómo importar por lotes varias palabras a Excel y generar una lista en la primera fila o en una fila determinada?

Dim MyFile como cadena

Dim docApp como Word.Application

Dim docRange como Word.Range

Dim js Como entero

Con Application.FileDialog(msoFileDialogFolderPicker)

.Title = "Seleccionar carpeta"

.InitialFileName = "d:\"

Si .Mostrar entonces

strFolder = .SelectedItems(1)

Finalizar si

Terminar con

Si strFolder = "" Luego salga de Sub

MyFile = Dir( strFolder & "*.doc")

js = 1

Establezca docApp = New Word.Application

docApp.Documents.Open strFolder & MyFile

Establecer docRange = docApp.ActiveDocument.Paragraphs(1).Range

Range("a" & js) = docRange

docApp.ActiveDocument.Paragraph(1).Range

Range("a" & js) = docRange

Establecer docApp.Documents.Open strFolder & MyFile