Делопроизводство в кадровой службе. Фионова Л.Р - 47 стр.

        .OnAction = "прием"
        End With
        With .Add(Type:=msoControlButton, ID:=1, Before:=3)
        .Caption = "Приказ о приеме работников"
        .OnAction = "прием_1"
        End With
        With .Add(Type:=msoControlButton, ID:=1, Before:=4)
        .Caption = "Личная карточка работника"
        .OnAction = "лич_карт"
        End With
        With .Add(Type:=msoControlButton, ID:=1, Before:=5)
        .Caption = "Личная карточка ГС"
        .OnAction = "личкарт_1"
        End With
        With .Add(Type:=msoControlButton, ID:=1, Before:=6)
        .Caption = "Учетная карточка научного,научно-педагогического
работника"
        .OnAction = "учеткарт"
      End With
      End With
       End With
     ….
     ….. With .Add(Type:=msoControlPopup, ID:=1, Before:=6)
       .Caption = "Увольнение"
         With .Controls
       With .Add(Type:=msoControlButton, ID:=1, Before:=1)
        .Caption = "Приказ о прекращении действия трудового договора с
работником"
        .OnAction = "прекращение"
        End With
        With .Add(Type:=msoControlButton, ID:=1, Before:=2)




                                     47