Выход из документа без сохранения.

Private Sub Document_Close()
Application.DisplayAlerts = True
strPath = 'C:Моя директория'
sName = ActiveDocument.Name
    If ActiveDocument.FullName Like '*' & strPath & '*' And InStr(sName, '&') Then
    Application.DisplayAlerts = False
    ActiveDocument.Close
    End If
End Sub

Private Sub Document_Close()
Application.DisplayAlerts = True
strPath = 'C:Моя директория'
sName = ActiveDocument.Name
    If ActiveDocument.FullName Like '*' & strPath & '*' And InStr(sName, '&') Then
    Application.DisplayAlerts = False
    ActiveDocument.Close SaveChanges:=wdDoNotSaveChanges
    End If
End Sub

If ActiveDocument.FullName Like ''*'' & strPath & ''*'' And 
InStr(sName, ''&'') Then

InStr(sName, ''&'')

ActiveDocument.Close SaveChanges:=wdDoNotSaveChanges

ActiveDocument.Close False

Sub AutoClose()
    ActiveWindow.Close False
End Sub