Buonasera,
Sono un neofita del linguaggio VBA. Fresco di acquisto di un manuale di 600 pagine pensavo dopo averlo letto più di una volta di poter fare cose egregie, aimè sono riuscito a fare per adesso solo cose misere

Mi trovo alle prese con un problema pratico. Ho un centinaio di file Word di cui devo estrarre il primo paragrafo e porlo in un file Excel affianco alla casella che contiene il nome del file word.
Sto lavorando nel VBA di Word con questo codice
Sub CopiaInExcel()
Dim Testo
Dim Brano As Range
Dim Excel As Object
Dim Cartella As Object
'Apriamo Excel:
Set Excel = CreateObject("Excel.Application")
'Se si vuole accedere ad un'istanza già attiva di Excel:
'Set Excel = GetObject(,"Excel.Application")
Excel.Visible = True
' Scegli il file dove salvare
Workbooks.Open FileName:="C:\Users\Mauro\Desktop\Softwaresicurezza\Elenco schede bibliografiche.xlsx"
' Scegli il file word da aprire
Set Scelta = ActiveWorkbook.Worksheets(1).Range("A1")
Documents.Open FileName:="C:\Users\Mauro\Desktop\Softwaresicurezza\Scelta.docx"
Set Brano = ActiveDocument.Paragraphs(1).Range
ActiveWorkbook.Worksheets(1).Range("C1").Value = Brano.Text
ActiveWorkbook.Close
End Sub
Diciamo che l'inghippo è nella parte evidenziata.
Non ho ancora impostato un ciclo, ma il mio intento sarebbe di passare tramite un contatore "i" il Range("A1").
Mi scuso se sono tropo vago, in attesa di suggerimenti torno a studiare.
Grazie