Here is a macro, to which you can assign a keyboard shortcut or QAT button:
Code:
Sub CloseNoSave()
' Charles Kenyon
' https://www.msofficeforums.com/word/47775-close-document-without-saving-prompt.html
'
With ActiveDocument
.Saved = True
.Close
End With
End Sub