Vba Macro in Excel for exporting multiples files in Word with prompt

Hi,

I create a macro in Excel for exporting data in Word:

Sub export_workbook_to_word() 
    Dim sheetName As String 
    Set obj = CreateObject("Word.Application") 
    obj.Visible = True 
    Set newobj = obj.Documents.Add 
     
    For Each ws In ActiveWorkbook.Sheets 
        sheetName = ws.Name 
         
         'Retrieve name of the Worksheet
        newobj.ActiveWindow.Selection.TypeText sheetName 
        newobj.ActiveWindow.Selection.Style = ActiveDocument.Styles(-2) 
        newobj.ActiveWindow.Selection.TypeParagraph 
         
        ws.UsedRange.Copy 
        newobj.ActiveWindow.Selection.PasteExcelTable False, False, False 
        newobj.ActiveWindow.Selection.InsertBreak Type:=7 
         
    Next 
    newobj.ActiveWindow.Selection.TypeBackspace 
    newobj.ActiveWindow.Selection.TypeBackspace 
     
    obj.Activate 
    newobj.SaveAs Filename:=Application.ActiveWorkbook.Path & "\" & Split(ActiveWorkbook.Name, ".")(0) 
     
End Sub

It's working correctly for one file. I would like now to do the same for several files in a folder. So I desire to update this script for creating a prompt in order to select the origin folder (with Excel files) and the destination folder (with Word files).

Could you please help me to do that?

Regards