1*ca5ec200SAndrew Rist /**************************************************************
2*ca5ec200SAndrew Rist *
3*ca5ec200SAndrew Rist * Licensed to the Apache Software Foundation (ASF) under one
4*ca5ec200SAndrew Rist * or more contributor license agreements. See the NOTICE file
5*ca5ec200SAndrew Rist * distributed with this work for additional information
6*ca5ec200SAndrew Rist * regarding copyright ownership. The ASF licenses this file
7*ca5ec200SAndrew Rist * to you under the Apache License, Version 2.0 (the
8*ca5ec200SAndrew Rist * "License"); you may not use this file except in compliance
9*ca5ec200SAndrew Rist * with the License. You may obtain a copy of the License at
10*ca5ec200SAndrew Rist *
11*ca5ec200SAndrew Rist * http://www.apache.org/licenses/LICENSE-2.0
12*ca5ec200SAndrew Rist *
13*ca5ec200SAndrew Rist * Unless required by applicable law or agreed to in writing,
14*ca5ec200SAndrew Rist * software distributed under the License is distributed on an
15*ca5ec200SAndrew Rist * "AS IS" BASIS, WITHOUT WARRANTIES OR CONDITIONS OF ANY
16*ca5ec200SAndrew Rist * KIND, either express or implied. See the License for the
17*ca5ec200SAndrew Rist * specific language governing permissions and limitations
18*ca5ec200SAndrew Rist * under the License.
19*ca5ec200SAndrew Rist *
20*ca5ec200SAndrew Rist *************************************************************/
21*ca5ec200SAndrew Rist
22*ca5ec200SAndrew Rist
23cdf0e10cSrcweir
24cdf0e10cSrcweir #include "oox/ole/vbaprojectfilter.hxx"
25cdf0e10cSrcweir
26cdf0e10cSrcweir #include "oox/ole/vbaproject.hxx"
27cdf0e10cSrcweir
28cdf0e10cSrcweir namespace oox {
29cdf0e10cSrcweir namespace ole {
30cdf0e10cSrcweir
31cdf0e10cSrcweir // ============================================================================
32cdf0e10cSrcweir
33cdf0e10cSrcweir using namespace ::com::sun::star::uno;
34cdf0e10cSrcweir
35cdf0e10cSrcweir using ::rtl::OUString;
36cdf0e10cSrcweir
37cdf0e10cSrcweir // ============================================================================
38cdf0e10cSrcweir
VbaProjectFilterBase(const Reference<XComponentContext> & rxContext,const OUString & rAppName,const OUString & rStorageName)39cdf0e10cSrcweir VbaProjectFilterBase::VbaProjectFilterBase( const Reference< XComponentContext >& rxContext,
40cdf0e10cSrcweir const OUString& rAppName, const OUString& rStorageName ) throw( RuntimeException ) :
41cdf0e10cSrcweir BinaryFilterBase( rxContext ),
42cdf0e10cSrcweir maAppName( rAppName ),
43cdf0e10cSrcweir maStorageName( rStorageName )
44cdf0e10cSrcweir {
45cdf0e10cSrcweir }
46cdf0e10cSrcweir
importDocument()47cdf0e10cSrcweir bool VbaProjectFilterBase::importDocument() throw()
48cdf0e10cSrcweir {
49cdf0e10cSrcweir StorageRef xVbaPrjStrg = openSubStorage( maStorageName, false );
50cdf0e10cSrcweir if( !xVbaPrjStrg || !xVbaPrjStrg->isStorage() )
51cdf0e10cSrcweir return false;
52cdf0e10cSrcweir
53cdf0e10cSrcweir getVbaProject().importVbaProject( *xVbaPrjStrg, getGraphicHelper() );
54cdf0e10cSrcweir return true;
55cdf0e10cSrcweir }
56cdf0e10cSrcweir
exportDocument()57cdf0e10cSrcweir bool VbaProjectFilterBase::exportDocument() throw()
58cdf0e10cSrcweir {
59cdf0e10cSrcweir return false;
60cdf0e10cSrcweir }
61cdf0e10cSrcweir
implCreateVbaProject() const62cdf0e10cSrcweir VbaProject* VbaProjectFilterBase::implCreateVbaProject() const
63cdf0e10cSrcweir {
64cdf0e10cSrcweir return new VbaProject( getComponentContext(), getModel(), maAppName );
65cdf0e10cSrcweir }
66cdf0e10cSrcweir
67cdf0e10cSrcweir // ============================================================================
68cdf0e10cSrcweir
WordVbaProjectFilter_getImplementationName()69cdf0e10cSrcweir OUString SAL_CALL WordVbaProjectFilter_getImplementationName() throw()
70cdf0e10cSrcweir {
71cdf0e10cSrcweir return CREATE_OUSTRING( "com.sun.star.comp.oox.WordVbaProjectFilter" );
72cdf0e10cSrcweir }
73cdf0e10cSrcweir
WordVbaProjectFilter_getSupportedServiceNames()74cdf0e10cSrcweir Sequence< OUString > SAL_CALL WordVbaProjectFilter_getSupportedServiceNames() throw()
75cdf0e10cSrcweir {
76cdf0e10cSrcweir Sequence< OUString > aSeq( 1 );
77cdf0e10cSrcweir aSeq[ 0 ] = CREATE_OUSTRING( "com.sun.star.document.ImportFilter" );
78cdf0e10cSrcweir return aSeq;
79cdf0e10cSrcweir }
80cdf0e10cSrcweir
WordVbaProjectFilter_createInstance(const Reference<XComponentContext> & rxContext)81cdf0e10cSrcweir Reference< XInterface > SAL_CALL WordVbaProjectFilter_createInstance(
82cdf0e10cSrcweir const Reference< XComponentContext >& rxContext ) throw( Exception )
83cdf0e10cSrcweir {
84cdf0e10cSrcweir return static_cast< ::cppu::OWeakObject* >( new WordVbaProjectFilter( rxContext ) );
85cdf0e10cSrcweir }
86cdf0e10cSrcweir
87cdf0e10cSrcweir // ----------------------------------------------------------------------------
88cdf0e10cSrcweir
WordVbaProjectFilter(const Reference<XComponentContext> & rxContext)89cdf0e10cSrcweir WordVbaProjectFilter::WordVbaProjectFilter( const Reference< XComponentContext >& rxContext ) throw( RuntimeException ) :
90cdf0e10cSrcweir VbaProjectFilterBase( rxContext, CREATE_OUSTRING( "Writer" ), CREATE_OUSTRING( "Macros" ) )
91cdf0e10cSrcweir {
92cdf0e10cSrcweir }
93cdf0e10cSrcweir
implGetImplementationName() const94cdf0e10cSrcweir OUString WordVbaProjectFilter::implGetImplementationName() const
95cdf0e10cSrcweir {
96cdf0e10cSrcweir return WordVbaProjectFilter_getImplementationName();
97cdf0e10cSrcweir }
98cdf0e10cSrcweir
99cdf0e10cSrcweir // ============================================================================
100cdf0e10cSrcweir
101cdf0e10cSrcweir } // namespace ole
102cdf0e10cSrcweir } // namespace oox
103