Dim app As OpiumLib.Application 'Описание указателя на приложение

Dim WithEvents opium As OpiumLib.Document 'Описание указателя на активный документ

Private Sub opium_BeforeClose()

opium = Nothing 'Освобождаем указатели после использования

app = Nothing

End

End Sub

Private Sub UserForm_Activate()

On Error Resume Next 'Подавляем системные сообщения об ошибках

'вместо них будем использовать свои

Set app = New OpiumLib.Application 'Получаем указатель на приложение

Set opium = app.ActiveDocument ' Получаем указатель на активный документ

If opium Is Nothing Then 'Если указатель пуст

MsgBox "Не удалось получить указатель на активный документ О!Пиум" _

& vbCr & "Убедитесь, что программа запущена и открыт хотя бы один документ"

Else 'Если все в порядке

MsgBox "Ура! Получен указатель на документ О!Пиум"

End If

End Sub