Public Function FUN_OOO_OPEN_BOOCK(STR_PATCH_DOCS As String)
'Функция открытия книги ' Спасибо Osmor_у, иначе ничего не вышло бы
On Error GoTo FUN_OOO_OPEN_BOOCK_Error
'----------------------------------------------------------------------------------
On Error GoTo BLANK
Dim OpenParams()
Call FUN_Connect_OOO
' загрузить открыть документ ("file:///c:/dev/ooo/test.doc", "_blank", 0, arg())
Set OOO_Document = OOO_Desktop.loadComponentFromURL(STR_PATCH_DOCS, "_default", 0, OpenParams)
Exit Function
BLANK:
FUN_Connect_OOO
Set OOO_Document = OOO_Desktop.loadComponentFromURL(STR_PATCH_DOCS, "_blank", 0, OpenParams)
'----------------------------------------------------------------------------------
On Error GoTo 0
Exit Function
FUN_OOO_OPEN_BOOCK_Error:
Call FUN_IN_TXT(FUN_Patch_File(App.Path, "Error.txt"), "Error " & Err.Number & " (" & Err.Description & ") in procedure FUN_OOO_OPEN_BOOCK of Module OOO_MOD")
End Function
|