summaryrefslogtreecommitdiffstats
path: root/extensions/test/ole/DCOM/dcom_test/Module1.bas
blob: 27908068c28063f14d3d3a5161101ed8ba0d8389 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
rem
rem This file is part of the LibreOffice project.
rem
rem This Source Code Form is subject to the terms of the Mozilla Public
rem License, v. 2.0. If a copy of the MPL was not distributed with this
rem file, You can obtain one at http://mozilla.org/MPL/2.0/.
rem
rem This file incorporates work covered by the following license notice:
rem
rem   Licensed to the Apache Software Foundation (ASF) under one or more
rem   contributor license agreements. See the NOTICE file distributed
rem   with this work for additional information regarding copyright
rem   ownership. The ASF licenses this file to you under the Apache
rem   License, Version 2.0 (the "License"); you may not use this file
rem   except in compliance with the License. You may obtain a copy of
rem   the License at http://www.apache.org/licenses/LICENSE-2.0 .
rem
Attribute VB_Name = "Module1"
Option Explicit

Sub main()

MsgBox "hallo"

'The service manager is always the starting point
'If there is no office running then an office is started up
Dim objServiceManager As Object
Set objServiceManager = CreateObject("com.sun.star.ServiceManager")

'Create the CoreReflection service that is later used to create structs
Set objCoreReflection = objServiceManager.createInstance("com.sun.star.reflection.CoreReflection")

'Create the Desktop
Set objDesktop = objServiceManager.createInstance("com.sun.star.frame.Desktop")

'Open a new empty writer document

Set objCoreReflection = objServiceManager.createInstance("com.sun.star.reflection.CoreReflection")
'get a type description class for Size
Set propClass = objCoreReflection.forName("com.sun.star.beans.PropertyValue")

Dim prop
propClass.CreateObject prop
prop.Name = "Hidden"
prop.Value = True

'create the actual object
Dim args(0)
Set args(0) = prop

Dim args2()
'Set objDocument= objDesktop.loadComponentFromURL("private:factory/swriter", "_blank", 0, args)
Set objDocument = objDesktop.loadComponentFromURL("private:factory/swriter", "_blank", 0, args2)

End Sub