sw/source/ui/vba/vbaselection.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:
  10  * $Revision:
  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 "vbaselection.hxx"
  31 #include <vbahelper/vbahelper.hxx>
  32 #include <tools/diagnose_ex.h>
  33 #include "vbarange.hxx"
  34 #include "vbafind.hxx"
  35 #include "wordvbahelper.hxx"
  36 #include <com/sun/star/text/XTextRange.hpp>
  37 #include <com/sun/star/text/XTextTable.hpp>
  38 #include <com/sun/star/text/XTextTableCursor.hpp>
  39 #include <com/sun/star/text/ControlCharacter.hpp>
  40 #include <com/sun/star/table/XCell.hpp>
  41 #include <ooo/vba/word/WdUnits.hpp>
  42 #include <ooo/vba/word/WdMovementType.hpp>
  43 #include <ooo/vba/word/WdGoToItem.hpp>
  44 #include <ooo/vba/word/WdGoToDirection.hpp>
  45 #include <ooo/vba/word/XBookmark.hpp>
  46 #include <ooo/vba/word/XApplication.hpp>
  47 #include <com/sun/star/text/XPageCursor.hpp>
  48 #include "unotbl.hxx"
  49 #include "unocoll.hxx"
  50 #include "vbatable.hxx"
  51 #include <com/sun/star/view/XSelectionSupplier.hpp>
  52 #include <com/sun/star/view/XViewCursor.hpp>
  53 #include <ooo/vba/word/WdInformation.hpp>
  54 #include <ooo/vba/word/WdHeaderFooterIndex.hpp>
  55 #include "vbainformationhelper.hxx"
  56 #include "vbafield.hxx"
  57 #include "vbaheaderfooter.hxx"
  58 #include "vbaheaderfooterhelper.hxx"
  59 #include <vbahelper/vbashaperange.hxx>
  60 #include <com/sun/star/drawing/XDrawPageSupplier.hpp>
  61 #include <com/sun/star/drawing/XDrawPage.hpp>
  62
  63 using namespace ::ooo::vba;
  64 using namespace ::com::sun::star;
  65
  66 SwVbaSelection::SwVbaSelection( const uno::Reference< ooo::vba::XHelperInterface >& rParent, const uno::Reference< uno::XComponentContext >& rContext, const uno::Reference< frame::XModel >& rModel ) throw ( uno::RuntimeException ) : SwVbaSelection_BASE( rParent, rContext ), mxModel( rModel )
  67 {
  68     mxTextViewCursor = word::getXTextViewCursor( mxModel );
  69 }
  70
  71 SwVbaSelection::~SwVbaSelection()
  72 {
  73 }
  74
  75 uno::Reference< text::XTextRange > SwVbaSelection::GetSelectedRange() throw ( uno::RuntimeException )
  76 {
  77     uno::Reference< text::XTextRange > xTextRange;
  78     uno::Reference< lang::XServiceInfo > xServiceInfo( mxModel->getCurrentSelection(), uno::UNO_QUERY_THROW );
  79     if( xServiceInfo->supportsService( rtl::OUString( RTL_CONSTASCII_USTRINGPARAM("com.sun.star.text.TextRanges") ) ) )
  80     {
  81         uno::Reference< container::XIndexAccess > xTextRanges( xServiceInfo, uno::UNO_QUERY_THROW );
  82         if( xTextRanges->getCount() > 0 )
  83         {
  84             // if there are multipul selection, just return the last selected Range.
  85             xTextRange.set( xTextRanges->getByIndex( xTextRanges->getCount()-1 ), uno::UNO_QUERY_THROW );
  86         }
  87     }
  88     else
  89     {
  90         throw uno::RuntimeException( rtl::OUString( RTL_CONSTASCII_USTRINGPARAM("Not implemented") ), uno::Reference< uno::XInterface >() );
  91     }
  92     return xTextRange;
  93 }
  94
  95 uno::Reference< word::XRange > SAL_CALL
  96 SwVbaSelection::getRange() throw ( uno::RuntimeException )
  97 {
  98     uno::Reference< text::XTextRange > xTextRange = GetSelectedRange();
  99     uno::Reference< text::XTextDocument > xDocument( mxModel, uno::UNO_QUERY_THROW );
 100     return uno::Reference< word::XRange >( new SwVbaRange( this, mxContext, xDocument, xTextRange->getStart(), xTextRange->getEnd(), mxTextViewCursor->getText() ) );
 101 }
 102
 103 rtl::OUString SAL_CALL
 104 SwVbaSelection::getText() throw ( uno::RuntimeException )
 105 {
 106     return getRange()->getText();
 107 }
 108
 109 void SAL_CALL
 110 SwVbaSelection::setText( const rtl::OUString& rText ) throw ( uno::RuntimeException )
 111 {
 112     getRange()->setText( rText );
 113 }
 114
 115 void SAL_CALL
 116 SwVbaSelection::TypeText( const rtl::OUString& rText ) throw ( uno::RuntimeException )
 117 {
 118     // FIXME: handle the property Options.ReplaceSelection, the default value is TRUE
 119     setText( rText );
 120 }
 121
 122 void SAL_CALL
 123 SwVbaSelection::HomeKey( const uno::Any& _unit, const uno::Any& _extend ) throw ( uno::RuntimeException )
 124 {
 125     sal_Int32 nUnit = word::WdUnits::wdLine;
 126     sal_Int32 nExtend = word::WdMovementType::wdMove;
 127     _unit >>= nUnit;
 128     _extend >>= nExtend;
 129
 130     switch( nUnit )
 131     {
 132         case word::WdUnits::wdStory:
 133         {
 134             // go to the begin of the document
 135             rtl::OUString url = rtl::OUString( RTL_CONSTASCII_USTRINGPARAM( ".uno:GoToStartOfDoc"));
 136             dispatchRequests( mxModel,url );
 137             // If something is selected, it needs to go twice
 138             dispatchRequests( mxModel,url );
 139             break;
 140         }
 141         case word::WdUnits::wdLine:
 142         {
 143             // go to the begin of the Line
 144             rtl::OUString url = rtl::OUString( RTL_CONSTASCII_USTRINGPARAM( ".uno:GoToStartOfLine"));
 145             dispatchRequests( mxModel,url );
 146             break;
 147         }
 148         default:
 149         {
 150             throw uno::RuntimeException( rtl::OUString( RTL_CONSTASCII_USTRINGPARAM("Not implemented") ), uno::Reference< uno::XInterface >() );
 151             break;
 152         }
 153     }
 154 }
 155
 156 void SAL_CALL
 157 SwVbaSelection::EndKey( const uno::Any& _unit, const uno::Any& _extend ) throw ( uno::RuntimeException )
 158 {
 159     sal_Int32 nUnit = word::WdUnits::wdLine;
 160     sal_Int32 nExtend = word::WdMovementType::wdMove;
 161     _unit >>= nUnit;
 162     _extend >>= nExtend;
 163
 164     switch( nUnit )
 165     {
 166         case word::WdUnits::wdStory:
 167         {
 168             // go to the end of the document
 169             rtl::OUString url = rtl::OUString( RTL_CONSTASCII_USTRINGPARAM( ".uno:GoToEndOfDoc"));
 170             dispatchRequests( mxModel,url );
 171             // If something is selected, it needs to go twice
 172             dispatchRequests( mxModel,url );
 173             break;
 174         }
 175         case word::WdUnits::wdLine:
 176         {
 177             // go to the end of the Line
 178             rtl::OUString url = rtl::OUString( RTL_CONSTASCII_USTRINGPARAM( ".uno:GoToEndOfLine"));
 179             dispatchRequests( mxModel,url );
 180             break;
 181         }
 182         default:
 183         {
 184             throw uno::RuntimeException( rtl::OUString( RTL_CONSTASCII_USTRINGPARAM("Not implemented") ), uno::Reference< uno::XInterface >() );
 185             break;
 186         }
 187     }
 188 }
 189
 190 void SAL_CALL
 191 SwVbaSelection::Delete( const uno::Any& /*_unit*/, const uno::Any& /*_count*/ ) throw ( uno::RuntimeException )
 192 {
 193     // FIXME: handle the arguments: _unit and _count
 194     rtl::OUString url = rtl::OUString( RTL_CONSTASCII_USTRINGPARAM( ".uno:Delete"));
 195     dispatchRequests( mxModel,url );
 196 }
 197
 198 void SwVbaSelection::NextCell( sal_Int32 nCount, E_DIRECTION eDirection ) throw ( uno::RuntimeException )
 199 {
 200     uno::Reference< beans::XPropertySet > xCursorProps( mxTextViewCursor, uno::UNO_QUERY_THROW );
 201     uno::Reference< text::XTextTable > xTextTable;
 202     uno::Reference< table::XCell > xCell;
 203     xCursorProps->getPropertyValue( rtl::OUString( RTL_CONSTASCII_USTRINGPARAM("TextTable") ) ) >>= xTextTable;
 204     xCursorProps->getPropertyValue( rtl::OUString( RTL_CONSTASCII_USTRINGPARAM("Cell") ) ) >>= xCell;
 205     if( !xTextTable.is() || !xCell.is() )
 206     {
 207         DebugHelper::exception(SbERR_BAD_ARGUMENT, rtl::OUString());
 208         return;
 209     }
 210     uno::Reference< beans::XPropertySet > xCellProps( xCell, uno::UNO_QUERY_THROW );
 211     rtl::OUString aCellName;
 212     xCellProps->getPropertyValue( rtl::OUString( RTL_CONSTASCII_USTRINGPARAM("CellName") ) ) >>= aCellName;
 213     uno::Reference< text::XTextTableCursor > xTextTableCursor = xTextTable->createCursorByCellName( aCellName );
 214     // move the table cursor
 215     switch( eDirection )
 216     {
 217         case MOVE_LEFT:
 218         {
 219             xTextTableCursor->goLeft( nCount, sal_False );
 220             break;
 221         }
 222         case MOVE_RIGHT:
 223         {
 224             xTextTableCursor->goRight( nCount, sal_False );
 225             break;
 226         }
 227         case MOVE_UP:
 228         {
 229             xTextTableCursor->goUp( nCount, sal_False );
 230             break;
 231         }
 232         case MOVE_DOWN:
 233         {
 234             xTextTableCursor->goDown( nCount, sal_False );
 235             break;
 236         }
 237         default:
 238         {
 239             DebugHelper::exception(SbERR_BAD_ARGUMENT, rtl::OUString());
 240             return;
 241         }
 242     }
 243     // move the view cursor
 244     xCell = xTextTable->getCellByName( xTextTableCursor->getRangeName() );
 245     mxTextViewCursor->gotoRange( uno::Reference< text::XTextRange >( xCell, uno::UNO_QUERY_THROW ), sal_False );
 246 }
 247
 248 void SAL_CALL
 249 SwVbaSelection::MoveRight( const uno::Any& _unit, const uno::Any& _count, const uno::Any& _extend ) throw ( uno::RuntimeException )
 250 {
 251     sal_Int32 nUnit = word::WdUnits::wdCharacter;
 252     sal_Int32 nCount = 1;
 253     sal_Int32 nExtend = word::WdMovementType::wdMove;
 254
 255     if( _unit.hasValue() )
 256         _unit >>= nUnit;
 257     if( _count.hasValue() )
 258         _count >>= nCount;
 259     if( _extend.hasValue() )
 260         _extend >>= nExtend;
 261
 262     if( nCount == 0 )
 263         return;
 264
 265     if( nCount < 0 )
 266     {
 267         // TODO: call MoveLeft;
 268         MoveLeft( _unit, uno::makeAny( -nCount ), _extend );
 269         return;
 270     }
 271
 272     switch( nUnit )
 273     {
 274         case word::WdUnits::wdCell:
 275         {
 276             if(  nExtend == word::WdMovementType::wdExtend )
 277             {
 278                 DebugHelper::exception(SbERR_BAD_ARGUMENT, rtl::OUString());
 279                 return;
 280             }
 281             NextCell( nCount, MOVE_RIGHT );
 282             break;
 283         }
 284         default:
 285         {
 286             throw uno::RuntimeException( rtl::OUString( RTL_CONSTASCII_USTRINGPARAM("Not implemented") ), uno::Reference< uno::XInterface >() );
 287             break;
 288         }
 289     }
 290
 291 }
 292
 293 void SAL_CALL
 294 SwVbaSelection::MoveLeft( const uno::Any& _unit, const uno::Any& _count, const uno::Any& _extend ) throw ( uno::RuntimeException )
 295 {
 296     sal_Int32 nUnit = word::WdUnits::wdCharacter;
 297     sal_Int32 nCount = 1;
 298     sal_Int32 nExtend = word::WdMovementType::wdMove;
 299
 300     if( _unit.hasValue() )
 301         _unit >>= nUnit;
 302     if( _count.hasValue() )
 303         _count >>= nCount;
 304     if( _extend.hasValue() )
 305         _extend >>= nExtend;
 306
 307     if( nCount == 0 )
 308         return;
 309
 310     if( nCount < 0 )
 311     {
 312         MoveRight( _unit, uno::makeAny( -nCount ), _extend );
 313         return;
 314     }
 315
 316     switch( nUnit )
 317     {
 318         case word::WdUnits::wdCell:
 319         {
 320             if(  nExtend == word::WdMovementType::wdExtend )
 321             {
 322                 DebugHelper::exception(SbERR_BAD_ARGUMENT, rtl::OUString());
 323                 return;
 324             }
 325             NextCell( nCount, MOVE_LEFT );
 326             break;
 327         }
 328         default:
 329         {
 330             throw uno::RuntimeException( rtl::OUString( RTL_CONSTASCII_USTRINGPARAM("Not implemented") ), uno::Reference< uno::XInterface >() );
 331             break;
 332         }
 333     }
 334
 335 }
 336
 337 void SAL_CALL
 338 SwVbaSelection::MoveDown( const uno::Any& _unit, const uno::Any& _count, const uno::Any& _extend ) throw ( uno::RuntimeException )
 339 {
 340     sal_Int32 nUnit = word::WdUnits::wdCharacter;
 341     sal_Int32 nCount = 1;
 342     sal_Int32 nExtend = word::WdMovementType::wdMove;
 343
 344     if( _unit.hasValue() )
 345         _unit >>= nUnit;
 346     if( _count.hasValue() )
 347         _count >>= nCount;
 348     if( _extend.hasValue() )
 349         _extend >>= nExtend;
 350
 351     if( nCount == 0 )
 352         return;
 353
 354     if( nCount < 0 )
 355     {
 356         // TODO: call MoveLeft;
 357         //MoveUp( _unit, uno::makeAny( -nCount ), _extend );
 358         return;
 359     }
 360
 361     switch( nUnit )
 362     {
 363         case word::WdUnits::wdLine:
 364         {
 365             uno::Reference< view::XViewCursor > xViewCursor( mxTextViewCursor, uno::UNO_QUERY_THROW );
 366             sal_Bool bExpand = ( nExtend == word::WdMovementType::wdMove ) ? sal_False : sal_True;
 367             xViewCursor->goDown( nCount, bExpand );
 368             break;
 369         }
 370         default:
 371         {
 372             throw uno::RuntimeException( rtl::OUString( RTL_CONSTASCII_USTRINGPARAM("Not implemented") ), uno::Reference< uno::XInterface >() );
 373             break;
 374         }
 375     }
 376
 377 }
 378
 379 void SAL_CALL
 380 SwVbaSelection::TypeParagraph() throw ( uno::RuntimeException )
 381 {
 382     // #FIXME: if the selection is an entire paragraph, it's replaced
 383     // by the new paragraph
 384     sal_Bool isCollapsed = mxTextViewCursor->isCollapsed();
 385     InsertParagraph();
 386     if( isCollapsed )
 387         mxTextViewCursor->collapseToStart();
 388 }
 389
 390 void SAL_CALL
 391 SwVbaSelection::InsertParagraph() throw ( uno::RuntimeException )
 392 {
 393     // #FIME: the selection should include the new paragraph.
 394     getRange()->InsertParagraph();
 395 }
 396
 397 void SAL_CALL
 398 SwVbaSelection::InsertParagraphBefore() throw ( uno::RuntimeException )
 399 {
 400     getRange()->InsertParagraphBefore();
 401 }
 402
 403 void SAL_CALL
 404 SwVbaSelection::InsertParagraphAfter() throw ( uno::RuntimeException )
 405 {
 406     getRange()->InsertParagraphAfter();
 407 }
 408
 409 uno::Reference< word::XParagraphFormat > SAL_CALL
 410 SwVbaSelection::getParagraphFormat() throw ( uno::RuntimeException )
 411 {
 412     return getRange()->getParagraphFormat();
 413 }
 414
 415 void SAL_CALL
 416 SwVbaSelection::setParagraphFormat( const uno::Reference< word::XParagraphFormat >& rParagraphFormat ) throw ( uno::RuntimeException )
 417 {
 418     return getRange()->setParagraphFormat( rParagraphFormat );
 419 }
 420
 421 uno::Reference< word::XFind > SAL_CALL
 422 SwVbaSelection::getFind() throw ( uno::RuntimeException )
 423 {
 424     uno::Reference< text::XTextRange > xTextRange = GetSelectedRange();
 425     return uno::Reference< word::XFind >( new SwVbaFind( this, mxContext, mxModel, xTextRange ) );
 426 }
 427
 428 uno::Reference< word::XStyle > SAL_CALL
 429 SwVbaSelection::getStyle() throw ( uno::RuntimeException )
 430 {
 431     return getRange()->getStyle();
 432 }
 433
 434 void SAL_CALL
 435 SwVbaSelection::setStyle( const uno::Reference< word::XStyle >& rStyle ) throw ( uno::RuntimeException )
 436 {
 437     return getRange()->setStyle( rStyle );
 438 }
 439
 440 uno::Reference< word::XFont > SAL_CALL
 441 SwVbaSelection::getFont() throw ( uno::RuntimeException )
 442 {
 443     return getRange()->getFont();
 444 }
 445
 446 void SAL_CALL
 447 SwVbaSelection::TypeBackspace() throw ( uno::RuntimeException )
 448 {
 449     rtl::OUString url = rtl::OUString( RTL_CONSTASCII_USTRINGPARAM( ".uno:SwBackspace"));
 450     dispatchRequests( mxModel,url );
 451 }
 452
 453 uno::Reference< word::XRange > SAL_CALL SwVbaSelection::GoTo( const uno::Any& _what, const uno::Any& _which, const uno::Any& _count, const uno::Any& _name ) throw (uno::RuntimeException)
 454 {
 455     sal_Int32 nWhat;
 456     if( ( _what >>= nWhat ) != sal_True )
 457          DebugHelper::exception(SbERR_BAD_ARGUMENT, rtl::OUString());
 458     switch( nWhat )
 459     {
 460         case word::WdGoToItem::wdGoToBookmark:
 461         {
 462             rtl::OUString sName;
 463             uno::Reference< word::XApplication > xApplication( Application(), uno::UNO_QUERY_THROW );
 464             uno::Reference< word::XBookmark > xBookmark( xApplication->getActiveDocument()->Bookmarks(_name), uno::UNO_QUERY_THROW );
 465             xBookmark->Select();
 466             //return uno::Reference< word::XRange >( xBookmark->Range(), uno::UNO_QUERY_THROW );
 467             break;
 468         }
 469         case word::WdGoToItem::wdGoToPage:
 470         {
 471             uno::Reference< text::XPageCursor > xPageCursor( mxTextViewCursor, uno::UNO_QUERY_THROW );
 472             sal_Int32 nCurrPage = xPageCursor->getPage();
 473             sal_Int32 nLastPage = word::getPageCount( mxModel );
 474             sal_Int32 nCount = 0;
 475             if( _count.hasValue() )
 476                 _count >>= nCount;
 477             sal_Int32 nWhich = 0;
 478             if( _which.hasValue() )
 479                 _which >>= nWhich;
 480              sal_Int32 nPage = 0;
 481              switch( nWhich )
 482              {
 483                 case word::WdGoToDirection::wdGoToLast:
 484                 {
 485                     nPage = nLastPage;
 486                     break;
 487                 }
 488                 case word::WdGoToDirection::wdGoToNext:
 489                 {
 490                     nPage = nCurrPage + 1;
 491                     break;
 492                 }
 493                 case word::WdGoToDirection::wdGoToPrevious:
 494                 {
 495                     nPage = nCurrPage - 1;
 496                     break;
 497                 }
 498                 default:
 499                 {
 500                     nPage = nCount;
 501                 }
 502              }
 503              if( nPage <= 0 )
 504                 nPage = 1;
 505              if( nPage > nLastPage )
 506                 nPage = nLastPage;
 507              xPageCursor->jumpToPage( ( sal_Int16 )( nPage ) );
 508              break;
 509         }
 510         case word::WdGoToItem::wdGoToSection:
 511         {
 512             // TODO: implement Section object
 513         }
 514         default:
 515             throw uno::RuntimeException( rtl::OUString( RTL_CONSTASCII_USTRINGPARAM("Not implemented") ), uno::Reference< uno::XInterface >() );
 516     }
 517     return getRange();
 518 }
 519
 520 ::sal_Int32 SAL_CALL SwVbaSelection::getLanguageID() throw (uno::RuntimeException)
 521 {
 522     return getRange()->getLanguageID();
 523 }
 524
 525 void SAL_CALL SwVbaSelection::setLanguageID( ::sal_Int32 _languageid ) throw (uno::RuntimeException)
 526 {
 527     getRange()->setLanguageID( _languageid );
 528 }
 529
 530 uno::Any SAL_CALL SwVbaSelection::Information( sal_Int32 _type ) throw (uno::RuntimeException)
 531 {
 532     uno::Any result;
 533     //uno::Reference< view::XSelectionSupplier > xSel( mxModel->getCurrentController(), uno::UNO_QUERY_THROW );
 534     //uno::Any aSelectedObject = xSel->getSelection();
 535     switch( _type )
 536     {
 537         case word::WdInformation::wdActiveEndPageNumber:
 538         {
 539             result = uno::makeAny( SwVbaInformationHelper::handleWdActiveEndPageNumber( mxTextViewCursor ) );
 540             break;
 541         }
 542         case word::WdInformation::wdNumberOfPagesInDocument:
 543         {
 544             result = uno::makeAny( SwVbaInformationHelper::handleWdNumberOfPagesInDocument( mxModel ) );
 545             break;
 546         }
 547         case word::WdInformation::wdVerticalPositionRelativeToPage:
 548         {
 549             result = uno::makeAny( SwVbaInformationHelper::handleWdVerticalPositionRelativeToPage( mxModel, mxTextViewCursor ) );
 550             break;
 551         }
 552         default:
 553             throw uno::RuntimeException( rtl::OUString( RTL_CONSTASCII_USTRINGPARAM("Not implemented") ), uno::Reference< uno::XInterface >() );
 554     }
 555     // This method fails to restore the previouse selection
 556     //xSel->select( aSelectedObject );
 557     return result;
 558 }
 559
 560 void SAL_CALL SwVbaSelection::InsertBreak( const uno::Any& _breakType ) throw (uno::RuntimeException)
 561 {
 562     getRange()->InsertBreak( _breakType );
 563 }
 564
 565 uno::Any SAL_CALL
 566 SwVbaSelection::Tables( const uno::Any& aIndex ) throw (uno::RuntimeException)
 567 {
 568     // Hacky implementation due to missing api ( and lack of knowledge )
 569     // we can only support a selection that is a single table
 570     if ( !aIndex.hasValue() ) // currently we can't support multiple tables in a selection
 571        throw uno::RuntimeException();
 572     // if the current selection is a XTextTableCursor and the index is 1 then we can service this request, otherwise we just have to throw
 573     uno::Reference< text::XTextTableCursor > xTextTableCursor( mxModel->getCurrentSelection(), uno::UNO_QUERY );
 574
 575     if ( !xTextTableCursor.is() )
 576        throw uno::RuntimeException();
 577
 578     sal_Int32 nIndex = 0;
 579     aIndex >>= nIndex;
 580
 581     uno::Any aRet;
 582
 583     if ( nIndex != 1 )
 584        throw uno::RuntimeException();
 585     SwXTextTableCursor* pTTCursor = dynamic_cast< SwXTextTableCursor* >( xTextTableCursor.get() );
 586     if ( pTTCursor )
 587     {
 588         SwFrmFmt* pFmt = pTTCursor->GetFrmFmt();
 589         rtl::OUString sTableName;
 590         if ( pFmt )
 591         {
 592             uno::Reference< text::XTextTable > xTbl = SwXTextTables::GetObject(*pFmt);
 593             uno::Reference< css::text::XTextDocument > xTextDoc( mxModel, uno::UNO_QUERY_THROW );
 594             uno::Reference< word::XTable > xVBATbl = new SwVbaTable( mxParent, mxContext, xTextDoc, xTbl );
 595             aRet <<= xVBATbl;
 596         }
 597     }
 598     return aRet;
 599
 600 }
 601
 602 uno::Any SAL_CALL
 603 SwVbaSelection::Fields( const uno::Any& index ) throw (uno::RuntimeException)
 604 {
 605     uno::Reference< XCollection > xCol( new SwVbaFields( mxParent, mxContext, mxModel ) );
 606     if ( index.hasValue() )
 607         return xCol->Item( index, uno::Any() );
 608     return uno::makeAny( xCol );
 609 }
 610
 611 uno::Reference< word::XHeaderFooter > SAL_CALL
 612 SwVbaSelection::getHeaderFooter() throw ( uno::RuntimeException )
 613 {
 614     uno::Reference< text::XText > xCurrentText = word::getXTextViewCursor( mxModel )->getText();
 615     if( HeaderFooterHelper::isHeader( mxModel, xCurrentText ) || HeaderFooterHelper::isFooter( mxModel, xCurrentText ) )
 616     {
 617         uno::Reference< beans::XPropertySet > xPageStyleProps( word::getCurrentPageStyle( mxModel ), uno::UNO_QUERY_THROW );
 618         sal_Int32 nIndex = word::WdHeaderFooterIndex::wdHeaderFooterPrimary;
 619         sal_Bool isHeader = HeaderFooterHelper::isHeader( mxModel, xCurrentText );
 620         if( HeaderFooterHelper::isEvenPagesHeader( mxModel, xCurrentText ) || HeaderFooterHelper::isEvenPagesFooter( mxModel, xCurrentText ) )
 621             nIndex = word::WdHeaderFooterIndex::wdHeaderFooterEvenPages;
 622         else if( HeaderFooterHelper::isFirstPageHeader( mxModel, xCurrentText ) || HeaderFooterHelper::isFirstPageFooter( mxModel, xCurrentText ) )
 623             nIndex = word::WdHeaderFooterIndex::wdHeaderFooterFirstPage;
 624
 625         return uno::Reference< word::XHeaderFooter >( new SwVbaHeaderFooter( this, mxContext, mxModel, xPageStyleProps, isHeader, nIndex ) );
 626
 627     }
 628     return uno::Reference< word::XHeaderFooter >();
 629 }
 630
 631 uno::Any SAL_CALL
 632 SwVbaSelection::ShapeRange( ) throw (uno::RuntimeException)
 633 {
 634     uno::Reference< drawing::XShapes > xShapes( mxModel->getCurrentSelection(), uno::UNO_QUERY );
 635
 636     if ( !xShapes.is() )
 637        throw uno::RuntimeException();
 638
 639     uno::Reference< drawing::XDrawPageSupplier > xDrawPageSupplier( mxModel, uno::UNO_QUERY_THROW );
 640     uno::Reference< drawing::XDrawPage > xDrawPage = xDrawPageSupplier->getDrawPage();
 641     uno::Reference< container::XIndexAccess > xShapesAccess( xShapes, uno::UNO_QUERY_THROW );
 642     return uno::makeAny( uno::Reference< msforms::XShapeRange >( new ScVbaShapeRange( this, mxContext, xShapesAccess, xDrawPage, mxModel ) ) );
 643 }
 644
 645 ::sal_Int32 SAL_CALL SwVbaSelection::getStart() throw (uno::RuntimeException)
 646 {
 647     return getRange()->getStart();
 648 }
 649
 650 void SAL_CALL SwVbaSelection::setStart( ::sal_Int32 _start ) throw (uno::RuntimeException)
 651 {
 652     getRange()->setStart( _start );
 653 }
 654 ::sal_Int32 SAL_CALL SwVbaSelection::getEnd() throw (uno::RuntimeException)
 655 {
 656     return getRange()->getEnd();
 657 }
 658
 659 void SAL_CALL SwVbaSelection::setEnd( ::sal_Int32 _end ) throw (uno::RuntimeException)
 660 {
 661     getRange()->setEnd( _end );
 662 }
 663
 664 rtl::OUString&
 665 SwVbaSelection::getServiceImplName()
 666 {
 667         static rtl::OUString sImplName( RTL_CONSTASCII_USTRINGPARAM("SwVbaSelection") );
 668         return sImplName;
 669 }
 670
 671 uno::Sequence< rtl::OUString >
 672 SwVbaSelection::getServiceNames()
 673 {
 674         static uno::Sequence< rtl::OUString > aServiceNames;
 675         if ( aServiceNames.getLength() == 0 )
 676         {
 677                 aServiceNames.realloc( 1 );
 678                 aServiceNames[ 0 ] = rtl::OUString( RTL_CONSTASCII_USTRINGPARAM("ooo.vba.word.Selection" ) );
 679         }
 680         return aServiceNames;
 681 }
 682