Sub LoopAllWordFilesInFolder()

'Loop through all Word files in a user-selected folder and perform other macros.

'Adapted from: https://www.thespreadsheetguru.com/the-code-vault/2014/4/23/loop-through-all-excel-files-in-a-given-folder

    Dim docDocument As Document
    Dim strPath As String
    Dim strFile As String
    Dim strExtension As String
    Dim FolderPicker As FileDialog
            
    'Optimize macro speed
    Application.ScreenUpdating = False
    
    'Get target folder path from user
    Set FolderPicker = Application.FileDialog(msoFileDialogFolderPicker)
    
        With FolderPicker
            .Title = "Choose the folder containing your files"
            .AllowMultiSelect = False
                If .Show <> -1 Then GoTo NextCode
                                
                strPath = .SelectedItems(1) & "\"
        End With
        
'In case the user cancels
NextCode:
    strPath = strPath
    If strPath = "" Then GoTo ResetSettings
    
    strExtension = "*.doc*"
    
    'Target path with file extension
    strFile = Dir(strPath & strExtension)
    
    'Loop through each file in the folder
    Do While strFile <> ""
    
        'Set variable equal to opened document
        Set docDocument = Documents.Open(FileName:=strPath & strFile)
    
        'Use DoEvents to ensure document has opened before moving on to next line of code.
        '(https://answers.microsoft.com/en-us/msoffice/forum/msoffice_powerpoint-mso_other/vba-doevents/0bdc05d5-a54e-49a8-875d-5ee962acf78e)
        DoEvents
        
        '################################################################
        'CALL OTHER MACRO(S) HERE.
            
            Call CommentsDeleteAll
                      
        '################################################################
        
        'Save and close document
        docDocument.Close savechanges:=True
        
        'Ensure document has closed before moving on to next line of code
        DoEvents
        
        'Get next file name
        strFile = Dir
    Loop
                
    MsgBox "The macro has looped through the files in the folder you chose and completed the tasks."
        
'Reset macro optimization settings
ResetSettings:
    Application.ScreenUpdating = True
    
End Sub

Sub CommentsDeleteAll()
    
    ActiveDocument.DeleteAllComments

End Sub

With ActiveDocument
  If .Comments.Count > 0 Then .DeleteAllComments
End With