Ответить на сообщение
Вернуться к теме
Вы отвечаете на сообщение:
ник: час Помогите с английским разобраться http://bit.pirit.info/forum/viewtopic.php?p=61060
Sub openDoc() Rem Rem Load an existing writer document, with opening parameters Rem Dim oSM, ODesk as Object 'root object from OOo API Dim oDoc as Object 'The document to be opened Dim OpenPar(2) As Object 'a Visual Basic array, with 3 elements 'Instanciate OOo : the first line is always required from Visual Basic for OOo Set oSM = CreateObject("com.sun.star.ServiceManager") Set oDesk = oSM.createInstance("com.sun.star.frame.Desktop") 'We call the MakePropertyValue function, defined just before, to access the structure Set OpenPar(0) = MakePropertyValue("ReadOnly", True) Set OpenPar(1) = MakePropertyValue("Password", "secret") Set OpenPar(2) = MakePropertyValue("Hidden", False) 'Now we can call the OOo loadComponentFromURL method, giving it as 'fourth argument the result of our precedent MakePropertyValue call Set oDoc = oDesk.loadComponentFromURL("file:///c|test.sxw", "_blank", 0, OpenPar) ... End Sub
Ваше имя:
Пароль:
Сообщение:
Прикрепить:
Для вставки смайлов в текст щелкните по значку.