ник: osmor
В приницпе путь верный, но лучше все же код ошибки обработать
Private Sub Кнопка1_Click()
On Error GoTo Err_Кнопка1_Click
Задание.SetFocus
RunCommand acCmdInsertHyperlink
Кнопка1.SetFocus
Exit_Кнопка1_Click:
Exit Sub
Err_Кнопка1_Click:
Select Case Err.Number
Case 2501
Resume Exit_Кнопка1_Click
Case Else
MsgBox Err.Number & " " & Err.Description
Resume Exit_Кнопка1_Click
End Select
End Sub
|