Sub CloseAndSaveAllOpenWordDocuments() Word.Application.Documents.Save NoPrompt:=True Word.Application.Documents.CloseEnd Sub