sw/source/ui/vba/vbaapplication.cxx

   1 /*************************************************************************
   2  *
   3  * DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER.
   4  *
   5  * Copyright 2008 by Sun Microsystems, Inc.
   6  *
   7  * OpenOffice.org - a multi-platform office productivity suite
   8  *
   9  * $RCSfile: vbaapplication.cxx,v $
  10  * $Revision: 1.7 $
  11  *
  12  * This file is part of OpenOffice.org.
  13  *
  14  * OpenOffice.org is free software: you can redistribute it and/or modify
  15  * it under the terms of the GNU Lesser General Public License version 3
  16  * only, as published by the Free Software Foundation.
  17  *
  18  * OpenOffice.org is distributed in the hope that it will be useful,
  19  * but WITHOUT ANY WARRANTY; without even the implied warranty of
  20  * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  21  * GNU Lesser General Public License version 3 for more details
  22  * (a copy is included in the LICENSE file that accompanied this code).
  23  *
  24  * You should have received a copy of the GNU Lesser General Public License
  25  * version 3 along with OpenOffice.org.  If not, see
  26  * <http://www.openoffice.org/license.html>
  27  * for a copy of the LGPLv3 License.
  28  *
  29  ************************************************************************/
  30 #include <stdio.h>
  31 #include "vbaapplication.hxx"
  32 #include "vbadocument.hxx"
  33 #include <osl/file.hxx>
  34 #include <vbahelper/vbahelper.hxx>
  35 #include "vbawindow.hxx"
  36 #include "vbasystem.hxx"
  37 #include "vbaoptions.hxx"
  38 #include "vbaselection.hxx"
  39 #include "vbadocuments.hxx"
  40 #include "vbaaddins.hxx"
  41 #include "vbadialogs.hxx"
  42 #include <ooo/vba/word/WdEnableCancelKey.hpp>
  43 #include <svx/acorrcfg.hxx>
  44 #include "wordvbahelper.hxx"
  45 #include <docsh.hxx>
  46
  47 using namespace ::ooo;
  48 using namespace ::ooo::vba;
  49 using namespace ::com::sun::star;
  50
  51 using ::com::sun::star::uno::Reference;
  52 using ::com::sun::star::uno::UNO_QUERY_THROW;
  53 using ::com::sun::star::uno::UNO_QUERY;
  54 using ::rtl::OUString;
  55
  56 // Enable our own join detection for Intersection and Union
  57 // should be more efficient than using ScRangeList::Join ( because
  58 // we already are testing the same things )
  59
  60 #define OWN_JOIN 1
  61
  62 // #TODO is this defined somewhere else?
  63 #if ( defined UNX ) || ( defined OS2 ) //unix
  64 #define FILE_PATH_SEPERATOR "/"
  65 #else // windows
  66 #define FILE_PATH_SEPERATOR "\\"
  67 #endif
  68
  69 #define EXCELVERSION "11.0"
  70
  71 uno::Any sbxToUnoValue( SbxVariable* pVar );
  72
  73 SwVbaApplication::SwVbaApplication( uno::Reference<uno::XComponentContext >& xContext ): SwVbaApplication_BASE( xContext )
  74 {
  75 }
  76
  77 SwVbaApplication::~SwVbaApplication()
  78 {
  79 }
  80
  81 SfxObjectShell* SwVbaApplication::GetDocShell( const uno::Reference< frame::XModel >& xModel ) throw (uno::RuntimeException)
  82 {
  83     return static_cast< SfxObjectShell* >( word::getDocShell( xModel ) );
  84 }
  85
  86 rtl::OUString SAL_CALL
  87 SwVbaApplication::getName() throw (uno::RuntimeException)
  88 {
  89     static rtl::OUString appName( RTL_CONSTASCII_USTRINGPARAM("Microsoft Word" ) );
  90     return appName;
  91 }
  92
  93 uno::Reference< word::XDocument > SAL_CALL
  94 SwVbaApplication::getActiveDocument() throw (uno::RuntimeException)
  95 {
  96     return new SwVbaDocument( this, mxContext, getCurrentDocument() );
  97 }
  98
  99 uno::Reference< word::XWindow > SAL_CALL
 100 SwVbaApplication::getActiveWindow() throw (uno::RuntimeException)
 101 {
 102         // #FIXME sofar can't determine Parent
 103         return new SwVbaWindow( uno::Reference< XHelperInterface >(), mxContext, getCurrentDocument() );
 104 }
 105
 106 uno::Reference<word::XSystem > SAL_CALL
 107 SwVbaApplication::getSystem() throw (uno::RuntimeException)
 108 {
 109     return uno::Reference< word::XSystem >( new SwVbaSystem( mxContext ) );
 110 }
 111
 112 uno::Reference<word::XOptions > SAL_CALL
 113 SwVbaApplication::getOptions() throw (uno::RuntimeException)
 114 {
 115     return uno::Reference< word::XOptions >( new SwVbaOptions( mxContext ) );
 116 }
 117
 118 uno::Any SAL_CALL
 119 SwVbaApplication::CommandBars( const uno::Any& aIndex ) throw (uno::RuntimeException)
 120 {
 121     return VbaApplicationBase::CommandBars( aIndex );
 122 }
 123
 124 uno::Reference< word::XSelection > SAL_CALL
 125 SwVbaApplication::getSelection() throw (uno::RuntimeException)
 126 {
 127     return new SwVbaSelection( this, mxContext, getCurrentDocument() );
 128 }
 129
 130 uno::Any SAL_CALL
 131 SwVbaApplication::Documents( const uno::Any& index ) throw (uno::RuntimeException)
 132 {
 133     uno::Reference< XCollection > xCol( new SwVbaDocuments( this, mxContext ) );
 134     if ( index.hasValue() )
 135         return xCol->Item( index, uno::Any() );
 136     return uno::makeAny( xCol );
 137 }
 138
 139 uno::Any SAL_CALL
 140 SwVbaApplication::Addins( const uno::Any& index ) throw (uno::RuntimeException)
 141 {
 142     static uno::Reference< XCollection > xCol( new SwVbaAddins( this, mxContext ) );
 143     if ( index.hasValue() )
 144         return xCol->Item( index, uno::Any() );
 145     return uno::makeAny( xCol );
 146 }
 147
 148 uno::Any SAL_CALL
 149 SwVbaApplication::Dialogs( const uno::Any& index ) throw (uno::RuntimeException)
 150 {
 151     uno::Reference< word::XDialogs > xCol( new SwVbaDialogs( this, mxContext, getCurrentDocument() ));
 152     if ( index.hasValue() )
 153         return xCol->Item( index );
 154     return uno::makeAny( xCol );
 155 }
 156
 157 sal_Bool SAL_CALL SwVbaApplication::getDisplayAutoCompleteTips() throw (css::uno::RuntimeException)
 158 {
 159     return SvxAutoCorrCfg::Get()->IsAutoTextTip();
 160 }
 161
 162 void SAL_CALL SwVbaApplication::setDisplayAutoCompleteTips( sal_Bool _displayAutoCompleteTips ) throw (css::uno::RuntimeException)
 163 {
 164     SvxAutoCorrCfg::Get()->SetAutoTextTip( _displayAutoCompleteTips );
 165 }
 166
 167 sal_Int32 SAL_CALL SwVbaApplication::getEnableCancelKey() throw (css::uno::RuntimeException)
 168 {
 169     // the default value is wdCancelInterrupt in Word
 170     return word::WdEnableCancelKey::wdCancelInterrupt;
 171 }
 172
 173 void SAL_CALL SwVbaApplication::setEnableCancelKey( sal_Int32/* _enableCancelKey */) throw (css::uno::RuntimeException)
 174 {
 175     // seems not supported in Writer
 176 }
 177
 178 float SAL_CALL SwVbaApplication::CentimetersToPoints( float _Centimeters ) throw (uno::RuntimeException)
 179 {
 180     return VbaApplicationBase::CentimetersToPoints( _Centimeters );
 181 }
 182
 183 uno::Reference< frame::XModel >
 184 SwVbaApplication::getCurrentDocument() throw (css::uno::RuntimeException)
 185 {
 186     return getCurrentWordDoc( mxContext );
 187 }
 188
 189 rtl::OUString&
 190 SwVbaApplication::getServiceImplName()
 191 {
 192         static rtl::OUString sImplName( RTL_CONSTASCII_USTRINGPARAM("SwVbaApplication") );
 193         return sImplName;
 194 }
 195
 196 uno::Sequence< rtl::OUString >
 197 SwVbaApplication::getServiceNames()
 198 {
 199         static uno::Sequence< rtl::OUString > aServiceNames;
 200         if ( aServiceNames.getLength() == 0 )
 201         {
 202                 aServiceNames.realloc( 1 );
 203                 aServiceNames[ 0 ] = rtl::OUString( RTL_CONSTASCII_USTRINGPARAM("ooo.vba.word.Application" ) );
 204         }
 205         return aServiceNames;
 206 }