'Для параметров мы приведем только один пример из-за

'однотипности вызовов всех функций.

'Вы можете подставлять в этот пример другие функции для работы с параметрами

'и протестировать их самостоятельно

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

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

Sub OpiumTest()

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

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

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

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

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

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

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

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

MsgBox opium.PRMGet("Площадь_Скважина") _

+ vbCr + "Кровля - " + CStr(opium.PRMGet("Кровля")) _

+ vbCr + "Подошва - " + CStr(opium.PRMGet("Подошва"))

End If

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

app = Nothing

End Sub