Macro execute to loop all word doc files in a folder

How do i amend the code below so that the macro could select all word doc files in the folder?

There are no errors but when the code is executed line by line, the macro did not run through the Do While loop.

    Dim path        As String
    Dim oDoc        As Object
    
    Application.ScreenUpdating = False
    Application.EnableEvents = False
    
    path = "C:\Users\hrhquek\Desktop\DEBT RECOVERY\Bizfile"
    
    myFile = Dir(path & "*.*")
    
    Do While myFile <> ""
        
        Set oDoc = documents.Open(filename:=path & myFile)
        
        Call extractdatafromwordtoexcel
        Call findcopyandpaste
        
        wordDoc.Close
        myFile = Dir
        
    Loop
    
    Application.EnableEvents = True
    Application.ScreenUpdating = True
    
End Sub

Appreciate the assist in advance..