Private Sub Form_Unload(Cancel As Integer) 
    If MsgBox("Уважаемый(ая) коллега," & Chr( 13 ) & "Вы действительно хотите закрыть окно?", vbYesNo + _ 
               vbApplicationModal + vbDefaultButton2 + vbInformation, _ 
               "Завершение работы") = vbNo Then 
   Cancel = True 
    Else 
   Unload frmOpen 
   Unload frmShtamp 
   Set frmObor = Nothing 
   End If 
End Sub 

Private Sub cmdTitle_Click() 
Dim titl As String 

titl = cboTitle.Text 

With ActiveDocument.Tables 
     If .Count >  0  Then 
        With .Item(.Count) 
             .Cell(.Rows.Count,  1 ).Select 
             Selection.Collapse Direction:=wdCollapseStart 
             Selection.ColumnSelectMode = True 
        End With 
     End If 
End With 

     ActiveDocument.Tables( 1 ).Rows.Add 
    
    With Selection 
    .MoveRight Unit:=wdCell 
    .MoveRight Unit:=wdCell 
    .Font.Bold = wdToggle 
    .Font.Underline = wdUnderlineSingle 
    .TypeText Text:=titl 
    .MoveRight Unit:=wdCharacter, Count:= 7  
    .MoveRight Unit:=wdCell 
    .MoveRight Unit:=wdCharacter, Count:= 1  
    .MoveRight Unit:=wdCharacter, Count:= 1 , Extend:=wdExtend 
    .Font.Bold = False 
    .Font.Underline = wdUnderlineNone 
    .MoveLeft Unit:=wdCharacter, Count:= 1  
    End With 
End Sub

Private Sub Command1_Click()
Command1.TabStop = Not Command1.TabStop
MsgBox Command1.TabStop
End Sub