home *** CD-ROM | disk | FTP | other *** search
/ Collection of Hack-Phreak Scene Programs / cleanhpvac.zip / cleanhpvac / MVUPDAT3.ZIP / RAINBOW.ZIP / COLORS.ZIP / COLORS8.TXT < prev    next >
Text File  |  1996-04-13  |  1KB  |  47 lines
  1. Macro FileSaveAs
  2.  
  3. Sub MAIN
  4.         On Error Goto ErrorRoutine
  5.  
  6.         If macros.bDebug Then MsgBox "start FileSaveAs"
  7.  
  8.         DΘsactiverMacrosAuto 0
  9.  
  10.         Dim dlg As FichierEnregistrerSous
  11.         GetCurValues dlg
  12.         bDoSaveToDoc = - 1
  13.         On Error Goto CancelSaveToDoc
  14.         Dialog dlg
  15.         Goto SkipCancel
  16. CancelSaveToDoc:
  17.         bDoSaveToDoc = 0
  18. SkipCancel:
  19.         On Error Goto ErrorRoutine
  20.  
  21.         If bDoSaveToDoc Then
  22.                 If macros.bDebug Then MsgBox "in If bDoSaveToDoc"
  23.                 REM if saved as word doc => save as template
  24.                 If dlg.Format = 0 Then dlg.Format = 1
  25.                 If dlg.Format = 1 Then
  26.                         macros.SavToGlobal(dlg.Nom)
  27.                         macros.SavToDoc(dlg.Nom)
  28.                         macros.SavToDoc(NomFichier$())
  29.                         FichierEnregistrerSous dlg
  30.                 End If
  31.         End If
  32.         macros.objectiv
  33.         Goto Done
  34.  
  35. ErrorRoutine:
  36.         If Err <> 102 Then
  37.                 FichierEnregistrerSous dlg
  38.         End If
  39.  
  40.         On Error Goto Done
  41.         If macros.bDebug Then
  42.                 MsgBox "error " + Str$(Err) + " occurred"
  43.         End If
  44.  
  45. Done:
  46. End Sub
  47.