1: 2: 3: 4: 5: 6:
Private Sub Document_Open() ActiveDocument.Save Application.Documents.Add ActiveDocument.FullName ActiveDocument.SaveAs "c:\deleteme\" & ActiveDocument.FullName ActiveDocument.Close End Sub