1*b1cdbd2cSJim Jagielski /**************************************************************
2*b1cdbd2cSJim Jagielski *
3*b1cdbd2cSJim Jagielski * Licensed to the Apache Software Foundation (ASF) under one
4*b1cdbd2cSJim Jagielski * or more contributor license agreements. See the NOTICE file
5*b1cdbd2cSJim Jagielski * distributed with this work for additional information
6*b1cdbd2cSJim Jagielski * regarding copyright ownership. The ASF licenses this file
7*b1cdbd2cSJim Jagielski * to you under the Apache License, Version 2.0 (the
8*b1cdbd2cSJim Jagielski * "License"); you may not use this file except in compliance
9*b1cdbd2cSJim Jagielski * with the License. You may obtain a copy of the License at
10*b1cdbd2cSJim Jagielski *
11*b1cdbd2cSJim Jagielski * http://www.apache.org/licenses/LICENSE-2.0
12*b1cdbd2cSJim Jagielski *
13*b1cdbd2cSJim Jagielski * Unless required by applicable law or agreed to in writing,
14*b1cdbd2cSJim Jagielski * software distributed under the License is distributed on an
15*b1cdbd2cSJim Jagielski * "AS IS" BASIS, WITHOUT WARRANTIES OR CONDITIONS OF ANY
16*b1cdbd2cSJim Jagielski * KIND, either express or implied. See the License for the
17*b1cdbd2cSJim Jagielski * specific language governing permissions and limitations
18*b1cdbd2cSJim Jagielski * under the License.
19*b1cdbd2cSJim Jagielski *
20*b1cdbd2cSJim Jagielski *************************************************************/
21*b1cdbd2cSJim Jagielski
22*b1cdbd2cSJim Jagielski
23*b1cdbd2cSJim Jagielski #include <vbahelper/helperdecl.hxx>
24*b1cdbd2cSJim Jagielski #include "vbaglobals.hxx"
25*b1cdbd2cSJim Jagielski
26*b1cdbd2cSJim Jagielski #include <comphelper/unwrapargs.hxx>
27*b1cdbd2cSJim Jagielski
28*b1cdbd2cSJim Jagielski #include <com/sun/star/lang/XMultiComponentFactory.hpp>
29*b1cdbd2cSJim Jagielski #include <com/sun/star/beans/XPropertySet.hpp>
30*b1cdbd2cSJim Jagielski #include <com/sun/star/container/XNameContainer.hpp>
31*b1cdbd2cSJim Jagielski #include <cppuhelper/bootstrap.hxx>
32*b1cdbd2cSJim Jagielski #include "vbaapplication.hxx"
33*b1cdbd2cSJim Jagielski using namespace ::com::sun::star;
34*b1cdbd2cSJim Jagielski using namespace ::com::sun::star::uno;
35*b1cdbd2cSJim Jagielski using namespace ::ooo::vba;
36*b1cdbd2cSJim Jagielski
37*b1cdbd2cSJim Jagielski
38*b1cdbd2cSJim Jagielski rtl::OUString sDocCtxName( RTL_CONSTASCII_USTRINGPARAM("WordDocumentContext") );
39*b1cdbd2cSJim Jagielski
40*b1cdbd2cSJim Jagielski // =============================================================================
41*b1cdbd2cSJim Jagielski // SwVbaGlobals
42*b1cdbd2cSJim Jagielski // =============================================================================
43*b1cdbd2cSJim Jagielski
SwVbaGlobals(uno::Sequence<uno::Any> const & aArgs,uno::Reference<uno::XComponentContext> const & rxContext)44*b1cdbd2cSJim Jagielski SwVbaGlobals::SwVbaGlobals( uno::Sequence< uno::Any > const& aArgs, uno::Reference< uno::XComponentContext >const& rxContext ) : SwVbaGlobals_BASE( uno::Reference< XHelperInterface >(), rxContext, sDocCtxName )
45*b1cdbd2cSJim Jagielski {
46*b1cdbd2cSJim Jagielski OSL_TRACE("SwVbaGlobals::SwVbaGlobals()");
47*b1cdbd2cSJim Jagielski uno::Sequence< beans::PropertyValue > aInitArgs( 2 );
48*b1cdbd2cSJim Jagielski aInitArgs[ 0 ].Name = rtl::OUString::createFromAscii("Application");
49*b1cdbd2cSJim Jagielski aInitArgs[ 0 ].Value = uno::makeAny( getApplication() );
50*b1cdbd2cSJim Jagielski aInitArgs[ 1 ].Name = sDocCtxName;
51*b1cdbd2cSJim Jagielski aInitArgs[ 1 ].Value = uno::makeAny( getXSomethingFromArgs< frame::XModel >( aArgs, 0 ) );
52*b1cdbd2cSJim Jagielski
53*b1cdbd2cSJim Jagielski init( aInitArgs );
54*b1cdbd2cSJim Jagielski }
55*b1cdbd2cSJim Jagielski
~SwVbaGlobals()56*b1cdbd2cSJim Jagielski SwVbaGlobals::~SwVbaGlobals()
57*b1cdbd2cSJim Jagielski {
58*b1cdbd2cSJim Jagielski OSL_TRACE("SwVbaGlobals::~SwVbaGlobals");
59*b1cdbd2cSJim Jagielski }
60*b1cdbd2cSJim Jagielski
61*b1cdbd2cSJim Jagielski // =============================================================================
62*b1cdbd2cSJim Jagielski // XGlobals
63*b1cdbd2cSJim Jagielski // =============================================================================
64*b1cdbd2cSJim Jagielski uno::Reference<word::XApplication >
getApplication()65*b1cdbd2cSJim Jagielski SwVbaGlobals::getApplication() throw (uno::RuntimeException)
66*b1cdbd2cSJim Jagielski {
67*b1cdbd2cSJim Jagielski OSL_TRACE("In SwVbaGlobals::getApplication");
68*b1cdbd2cSJim Jagielski if ( !mxApplication.is() )
69*b1cdbd2cSJim Jagielski mxApplication.set( new SwVbaApplication( mxContext) );
70*b1cdbd2cSJim Jagielski
71*b1cdbd2cSJim Jagielski return mxApplication;
72*b1cdbd2cSJim Jagielski }
73*b1cdbd2cSJim Jagielski
74*b1cdbd2cSJim Jagielski uno::Reference<word::XSystem > SAL_CALL
getSystem()75*b1cdbd2cSJim Jagielski SwVbaGlobals::getSystem() throw (uno::RuntimeException)
76*b1cdbd2cSJim Jagielski {
77*b1cdbd2cSJim Jagielski return getApplication()->getSystem();
78*b1cdbd2cSJim Jagielski }
79*b1cdbd2cSJim Jagielski
80*b1cdbd2cSJim Jagielski uno::Reference< word::XDocument > SAL_CALL
getActiveDocument()81*b1cdbd2cSJim Jagielski SwVbaGlobals::getActiveDocument() throw (uno::RuntimeException)
82*b1cdbd2cSJim Jagielski {
83*b1cdbd2cSJim Jagielski return getApplication()->getActiveDocument();
84*b1cdbd2cSJim Jagielski }
85*b1cdbd2cSJim Jagielski
86*b1cdbd2cSJim Jagielski uno::Reference< word::XWindow > SAL_CALL
getActiveWindow()87*b1cdbd2cSJim Jagielski SwVbaGlobals::getActiveWindow() throw (uno::RuntimeException)
88*b1cdbd2cSJim Jagielski {
89*b1cdbd2cSJim Jagielski return getApplication()->getActiveWindow();
90*b1cdbd2cSJim Jagielski }
91*b1cdbd2cSJim Jagielski
92*b1cdbd2cSJim Jagielski rtl::OUString SAL_CALL
getName()93*b1cdbd2cSJim Jagielski SwVbaGlobals::getName() throw (uno::RuntimeException)
94*b1cdbd2cSJim Jagielski {
95*b1cdbd2cSJim Jagielski return getApplication()->getName();
96*b1cdbd2cSJim Jagielski }
97*b1cdbd2cSJim Jagielski
98*b1cdbd2cSJim Jagielski uno::Reference<word::XOptions > SAL_CALL
getOptions()99*b1cdbd2cSJim Jagielski SwVbaGlobals::getOptions() throw (uno::RuntimeException)
100*b1cdbd2cSJim Jagielski {
101*b1cdbd2cSJim Jagielski return getApplication()->getOptions();
102*b1cdbd2cSJim Jagielski }
103*b1cdbd2cSJim Jagielski
104*b1cdbd2cSJim Jagielski uno::Any SAL_CALL
CommandBars(const uno::Any & aIndex)105*b1cdbd2cSJim Jagielski SwVbaGlobals::CommandBars( const uno::Any& aIndex ) throw (uno::RuntimeException)
106*b1cdbd2cSJim Jagielski {
107*b1cdbd2cSJim Jagielski return getApplication()->CommandBars( aIndex );
108*b1cdbd2cSJim Jagielski }
109*b1cdbd2cSJim Jagielski
110*b1cdbd2cSJim Jagielski uno::Any SAL_CALL
Documents(const uno::Any & index)111*b1cdbd2cSJim Jagielski SwVbaGlobals::Documents( const uno::Any& index ) throw (uno::RuntimeException)
112*b1cdbd2cSJim Jagielski {
113*b1cdbd2cSJim Jagielski return getApplication()->Documents( index );
114*b1cdbd2cSJim Jagielski }
115*b1cdbd2cSJim Jagielski
116*b1cdbd2cSJim Jagielski uno::Any SAL_CALL
Addins(const uno::Any & index)117*b1cdbd2cSJim Jagielski SwVbaGlobals::Addins( const uno::Any& index ) throw (uno::RuntimeException)
118*b1cdbd2cSJim Jagielski {
119*b1cdbd2cSJim Jagielski return getApplication()->Addins( index );
120*b1cdbd2cSJim Jagielski }
121*b1cdbd2cSJim Jagielski
122*b1cdbd2cSJim Jagielski uno::Any SAL_CALL
Dialogs(const uno::Any & index)123*b1cdbd2cSJim Jagielski SwVbaGlobals::Dialogs( const uno::Any& index ) throw (uno::RuntimeException)
124*b1cdbd2cSJim Jagielski {
125*b1cdbd2cSJim Jagielski return getApplication()->Dialogs( index );
126*b1cdbd2cSJim Jagielski }
127*b1cdbd2cSJim Jagielski
128*b1cdbd2cSJim Jagielski uno::Reference<word::XSelection > SAL_CALL
getSelection()129*b1cdbd2cSJim Jagielski SwVbaGlobals::getSelection() throw (uno::RuntimeException)
130*b1cdbd2cSJim Jagielski {
131*b1cdbd2cSJim Jagielski return getApplication()->getSelection();
132*b1cdbd2cSJim Jagielski }
133*b1cdbd2cSJim Jagielski
CentimetersToPoints(float _Centimeters)134*b1cdbd2cSJim Jagielski float SAL_CALL SwVbaGlobals::CentimetersToPoints( float _Centimeters ) throw (uno::RuntimeException)
135*b1cdbd2cSJim Jagielski {
136*b1cdbd2cSJim Jagielski return getApplication()->CentimetersToPoints( _Centimeters );
137*b1cdbd2cSJim Jagielski }
138*b1cdbd2cSJim Jagielski
139*b1cdbd2cSJim Jagielski rtl::OUString&
getServiceImplName()140*b1cdbd2cSJim Jagielski SwVbaGlobals::getServiceImplName()
141*b1cdbd2cSJim Jagielski {
142*b1cdbd2cSJim Jagielski static rtl::OUString sImplName( RTL_CONSTASCII_USTRINGPARAM("SwVbaGlobals") );
143*b1cdbd2cSJim Jagielski return sImplName;
144*b1cdbd2cSJim Jagielski }
145*b1cdbd2cSJim Jagielski
146*b1cdbd2cSJim Jagielski uno::Sequence< rtl::OUString >
getServiceNames()147*b1cdbd2cSJim Jagielski SwVbaGlobals::getServiceNames()
148*b1cdbd2cSJim Jagielski {
149*b1cdbd2cSJim Jagielski static uno::Sequence< rtl::OUString > aServiceNames;
150*b1cdbd2cSJim Jagielski if ( aServiceNames.getLength() == 0 )
151*b1cdbd2cSJim Jagielski {
152*b1cdbd2cSJim Jagielski aServiceNames.realloc( 1 );
153*b1cdbd2cSJim Jagielski aServiceNames[ 0 ] = rtl::OUString( RTL_CONSTASCII_USTRINGPARAM("ooo.vba.word.Globals" ) );
154*b1cdbd2cSJim Jagielski }
155*b1cdbd2cSJim Jagielski return aServiceNames;
156*b1cdbd2cSJim Jagielski }
157*b1cdbd2cSJim Jagielski
158*b1cdbd2cSJim Jagielski uno::Sequence< rtl::OUString >
getAvailableServiceNames()159*b1cdbd2cSJim Jagielski SwVbaGlobals::getAvailableServiceNames( ) throw (uno::RuntimeException)
160*b1cdbd2cSJim Jagielski {
161*b1cdbd2cSJim Jagielski static bool bInit = false;
162*b1cdbd2cSJim Jagielski static uno::Sequence< rtl::OUString > serviceNames( SwVbaGlobals_BASE::getAvailableServiceNames() );
163*b1cdbd2cSJim Jagielski if ( !bInit )
164*b1cdbd2cSJim Jagielski {
165*b1cdbd2cSJim Jagielski rtl::OUString names[] = {
166*b1cdbd2cSJim Jagielski ::rtl::OUString( RTL_CONSTASCII_USTRINGPARAM ( "ooo.vba.word.Document" ) ),
167*b1cdbd2cSJim Jagielski // #FIXME #TODO make Application a proper service
168*b1cdbd2cSJim Jagielski // ::rtl::OUString( RTL_CONSTASCII_USTRINGPARAM ( "ooo.vba.word.Application" ) ),
169*b1cdbd2cSJim Jagielski };
170*b1cdbd2cSJim Jagielski sal_Int32 nWordServices = ( sizeof( names )/ sizeof( names[0] ) );
171*b1cdbd2cSJim Jagielski sal_Int32 startIndex = serviceNames.getLength();
172*b1cdbd2cSJim Jagielski serviceNames.realloc( serviceNames.getLength() + nWordServices );
173*b1cdbd2cSJim Jagielski for ( sal_Int32 index = 0; index < nWordServices; ++index )
174*b1cdbd2cSJim Jagielski serviceNames[ startIndex + index ] = names[ index ];
175*b1cdbd2cSJim Jagielski bInit = true;
176*b1cdbd2cSJim Jagielski }
177*b1cdbd2cSJim Jagielski return serviceNames;
178*b1cdbd2cSJim Jagielski }
179*b1cdbd2cSJim Jagielski
180*b1cdbd2cSJim Jagielski namespace globals
181*b1cdbd2cSJim Jagielski {
182*b1cdbd2cSJim Jagielski namespace sdecl = comphelper::service_decl;
183*b1cdbd2cSJim Jagielski sdecl::vba_service_class_<SwVbaGlobals, sdecl::with_args<true> > serviceImpl;
184*b1cdbd2cSJim Jagielski extern sdecl::ServiceDecl const serviceDecl(
185*b1cdbd2cSJim Jagielski serviceImpl,
186*b1cdbd2cSJim Jagielski "SwVbaGlobals",
187*b1cdbd2cSJim Jagielski "ooo.vba.word.Globals" );
188*b1cdbd2cSJim Jagielski }
189*b1cdbd2cSJim Jagielski
190