1*b1cdbd2cSJim Jagielskirem ************************************************************* 2*b1cdbd2cSJim Jagielskirem 3*b1cdbd2cSJim Jagielskirem Licensed to the Apache Software Foundation (ASF) under one 4*b1cdbd2cSJim Jagielskirem or more contributor license agreements. See the NOTICE file 5*b1cdbd2cSJim Jagielskirem distributed with this work for additional information 6*b1cdbd2cSJim Jagielskirem regarding copyright ownership. The ASF licenses this file 7*b1cdbd2cSJim Jagielskirem to you under the Apache License, Version 2.0 (the 8*b1cdbd2cSJim Jagielskirem "License"); you may not use this file except in compliance 9*b1cdbd2cSJim Jagielskirem with the License. You may obtain a copy of the License at 10*b1cdbd2cSJim Jagielskirem 11*b1cdbd2cSJim Jagielskirem http://www.apache.org/licenses/LICENSE-2.0 12*b1cdbd2cSJim Jagielskirem 13*b1cdbd2cSJim Jagielskirem Unless required by applicable law or agreed to in writing, 14*b1cdbd2cSJim Jagielskirem software distributed under the License is distributed on an 15*b1cdbd2cSJim Jagielskirem "AS IS" BASIS, WITHOUT WARRANTIES OR CONDITIONS OF ANY 16*b1cdbd2cSJim Jagielskirem KIND, either express or implied. See the License for the 17*b1cdbd2cSJim Jagielskirem specific language governing permissions and limitations 18*b1cdbd2cSJim Jagielskirem under the License. 19*b1cdbd2cSJim Jagielskirem 20*b1cdbd2cSJim Jagielskirem ************************************************************* 21*b1cdbd2cSJim JagielskiAttribute VB_Name = "Module1" 22*b1cdbd2cSJim JagielskiOption Explicit 23*b1cdbd2cSJim Jagielski 24*b1cdbd2cSJim JagielskiSub main() 25*b1cdbd2cSJim Jagielski 26*b1cdbd2cSJim JagielskiMsgBox "hallo" 27*b1cdbd2cSJim Jagielski 28*b1cdbd2cSJim Jagielski'The service manager is always the starting point 29*b1cdbd2cSJim Jagielski'If there is no office running then an office is started up 30*b1cdbd2cSJim JagielskiDim objServiceManager As Object 31*b1cdbd2cSJim JagielskiSet objServiceManager = CreateObject("com.sun.star.ServiceManager") 32*b1cdbd2cSJim Jagielski 33*b1cdbd2cSJim Jagielski'Create the CoreReflection service that is later used to create structs 34*b1cdbd2cSJim JagielskiSet objCoreReflection = objServiceManager.createInstance("com.sun.star.reflection.CoreReflection") 35*b1cdbd2cSJim Jagielski 36*b1cdbd2cSJim Jagielski'Create the Desktop 37*b1cdbd2cSJim JagielskiSet objDesktop = objServiceManager.createInstance("com.sun.star.frame.Desktop") 38*b1cdbd2cSJim Jagielski 39*b1cdbd2cSJim Jagielski'Open a new empty writer document 40*b1cdbd2cSJim Jagielski 41*b1cdbd2cSJim JagielskiSet objCoreReflection = objServiceManager.createInstance("com.sun.star.reflection.CoreReflection") 42*b1cdbd2cSJim Jagielski'get a type description class for Size 43*b1cdbd2cSJim JagielskiSet propClass = objCoreReflection.forName("com.sun.star.beans.PropertyValue") 44*b1cdbd2cSJim Jagielski 45*b1cdbd2cSJim JagielskiDim prop 46*b1cdbd2cSJim JagielskipropClass.CreateObject prop 47*b1cdbd2cSJim Jagielskiprop.Name = "Hidden" 48*b1cdbd2cSJim Jagielskiprop.Value = True 49*b1cdbd2cSJim Jagielski 50*b1cdbd2cSJim Jagielski'create the actual object 51*b1cdbd2cSJim JagielskiDim args(0) 52*b1cdbd2cSJim JagielskiSet args(0) = prop 53*b1cdbd2cSJim Jagielski 54*b1cdbd2cSJim JagielskiDim args2() 55*b1cdbd2cSJim Jagielski'Set objDocument= objDesktop.loadComponentFromURL("private:factory/swriter", "_blank", 0, args) 56*b1cdbd2cSJim JagielskiSet objDocument = objDesktop.loadComponentFromURL("private:factory/swriter", "_blank", 0, args2) 57*b1cdbd2cSJim Jagielski 58*b1cdbd2cSJim JagielskiEnd Sub 59