Sub loopfo()
    Dim fso As FileSystemObject
    Dim fld As FileDialog,strname As String,fp As String,fdr As Scripting.folder,f As Scripting.file
Dim doc As Document
    On Error Resume Next
    Set fld = Application.FileDialog(msoFileDialogFolderPicker)
    With fld
        .Show
        .AllowMultiSelect = False
        .Title = "Select the Desired Folder"
    End With
        fp = fld.SelectedItems(1)
        Set fso = New Scripting.FileSystemObject
        Set fdr = fso.GetFolder(fp)
    For Each f In fdr.Files
    
    If Left(fso.GetExtensionName(f.Path), 3) = "doc" Then  ' And Left(f.Name, 2) = "0"
    
    Set doc = Documents.Open(f.Path)
 
      
      
    
      
      
      doc.Close (True)
     
     End If
    
    
    
    
    Next
    

End Sub