VBA to Save All Sheets, Workbooks, AND Word Documents

[daveG777]

I've been using this code, which works fine to save all Excel sheets that are now open on my machine. However, I'd like to use the same logic to save all Excel and Word files with one Excel VBA command. Is it even possible?

Sub SaveAll()

    ' Added 181023: Save all open files/workbooks at once
    ' Thanks to How to save all open files/workbooks at once in Excel?
    
    Dim xWb As Workbook
    For Each xWb In Application.Workbooks
        If Not xWb.ReadOnly And Windows(xWb.Name).Visible Then
            xWb.Save
        End If
    Next
    
End Sub