Application.DisplayAlerts = False ActiveDocument.SaveAs FileName:=myfilename, FileFormat:=wdFormatXMLDocument Application.DisplayAlerts = True