                 Microsoft Word 97

                                        *  *  *  *  *  *  *

                               !
         
.        
   ,        
     .  
    ,  ,  
    Microsoft Office 97. 

                               .
         ,   
    ,    ... ,
    ...  ,      
   , ,      .
    -,      
  Visual Basic  Installator.bas.   AutoOpen-,  
     ,    
       ,   
 Ctrl+Break'.       
  .       
       -.
     ,     .    
 , , ,     . 
 ,     ,     
  .
       ,   .

      :

Const kolpan = 1 ' -     
Const vsego = 5 ' -     
Const vsegoform = 2 ' -     

      Sub Autoopen() (  !)

a = ".dot" '   
za = " Instalation Wizard" '   
n(1) = "Macro1" '  (-     Visual Basic!    !)
n(2) = "Macro2"
n(3) = "Macro3"
n(4) = "Macro4"
n(5) = "Macro5"
'( ,  !)
panel(1) = "" ' 
'( ,  !)
sootv(1) = 1 '    - 
sootv(2) = 1 ' -   : panel(nn)
sootv(3) = 1
sootv(4) = 1
sootv(5) = 1
'( ,  !)
numernapan(1) = 1 '      
numernapan(2) = 3 '(       
numernapan(3) = 2 ' )
numernapan(4) = 4
numernapan(5) = 5
'( ,  !)
nform(1) = "1" '  (   Visual Basic!)
nform(2) = "2"
'( ,  !)
visovform(1) = 1 '    (!),    
visovform(2) = 1 '(      ,     )
'( ,  !)
opis(1) = "  " '  
opis(2) = "   "
opis(3) = "   "
opis(4) = "    "
opis(5) = "   "
'( ,  !)

     Sub ustdobud() ( -   Autoopen)

If znak(1) = 1 Then dlg.CheckBox1 = 1
If znak(2) = 1 Then dlg.CheckBox2 = 1
If znak(3) = 1 Then dlg.CheckBox3 = 1
If znak(4) = 1 Then dlg.CheckBox4 = 1
If znak(5) = 1 Then dlg.CheckBox5 = 1
'        If znak(?) = 1 Then dlg.CheckBox? = 1  
'      
'...
On Error GoTo -1: On Error GoTo bye
    WordBasic.Dialog.UserDialog dlg
'                    ...   !
If dlg.CheckBox1 = 1 Then ust(1) = 1 Else ust(1) = 0
If dlg.CheckBox2 = 1 Then ust(2) = 1 Else ust(2) = 0
If dlg.CheckBox3 = 1 Then ust(3) = 1 Else ust(3) = 0
If dlg.CheckBox4 = 1 Then ust(4) = 1 Else ust(4) = 0
If dlg.CheckBox5 = 1 Then ust(5) = 1 Else ust(5) = 0
'        If dlg.CheckBox? = 1 Then ust(?) = 1 Else ust(?) = 0
'       


                                    .
         
   :     
         
 Normal.dot.   -     
,          
     ,   
   Normal.dot.     
  Normal.dot,        .
             .
      .    , 
           
CheckBox'     Normal.dot (    
Office, ?).  ,       
,   -   (   , ). 
   Normal.dot       ,
     ,      , 
 ,         ,   
 .    ,    
   .         - 
    :    -  ""
  ? (         - 
..)
       ,    
    (   ,    ).
     -  -   . 
     Normal.dot     
,     .        
Normal.dot.         
  -  -     Normal.dot, 
  ,   ,  .    
  ,   Normal.dot   
  . 
       , ,    .
       ,  
 -      .
   
   !
                                         ,
                                                1999 .
                                        : antorlov@mail.ru.


           
 .       
  ,        
    . 