Форумы HiProg.com - MS ACCESS, VBA, VB

 

Ответить на сообщение

Вернуться к теме

Вы отвечаете на сообщение:

ник: час
Помогите с английским разобраться 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


тут как то надо использовать в моём коде строку
MakePropertyValue("Hidden", False)


Ваше имя:

Пароль:
Цитировать: [quote][/quote] Код: [code][/code]
Жирный: [b][/b] Наклонный: [i][/i]
URL: [url][/url] 

Сообщение:

 Размер файла не более 50 Кбт. Большие файлы можно размещать на www.slil.ru

Прикрепить:

 

Для вставки смайлов в текст щелкните по значку.