| |
|
|
| | Помогите с английским разобраться 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) | |
| |
| |
| |
|
|
| | вот оно как 
звиняюся....
Dim OpenPar(0)
Set OpenPar(0) = MakePropertyValue("Hidden", True)' скрыть окно
или
Set OpenPar(0) = MakePropertyValue("Hidden", False)
и
Set oDoc = oDesk.loadComponentFromURL("file:///c|test.sxw", "_blank", 0, OpenPar)
|
| |
| |
| |
| |
|
|
| | кое что о программинге
http://wiki.services.openoffice.org/wiki/Spreadsheet_common | |
| |
| |
