Управление документами Word и Excel на VBA - eDrive
Управление документами Word и Excel на VBA - eDrive
Управление документами Word и Excel на VBA - eDrive
You also want an ePaper? Increase the reach of your titles
YUMPU automatically turns print PDFs into web optimized ePapers that Google loves.
32<br />
Sub Сообщен<strong>и</strong>е ()<br />
MsgBox "Открывается программа"<br />
End Sub<br />
Sub Предупрежден<strong>и</strong>е ()<br />
MsgBox "Открывается программа " & "Парол<strong>и</strong>"<br />
End Sub<br />
Sub Старт ()<br />
' Вызывается <strong>и</strong>з процедур Автосохранен<strong>и</strong>е <strong>и</strong> Сохран<strong>и</strong>ть<br />
' <strong>и</strong>нтервал – общая перемен<strong>на</strong>я<br />
On Error Resume Next<br />
Application.OnTime Now + TimeValue (<strong>и</strong>нтервал), "Сохран<strong>и</strong>ть"<br />
End Sub<br />
Sub Сохран<strong>и</strong>ть ()<br />
ActiveDocument.Save<br />
Call Старт<br />
End Sub