sw/source/ui/vba/vbaparagraphformat.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 "vbaparagraphformat.hxx"
  31 #include <vbahelper/vbahelper.hxx>
  32 #include <tools/diagnose_ex.h>
  33 #include "wordvbahelper.hxx"
  34 #include <com/sun/star/style/LineSpacingMode.hpp>
  35 #include <ooo/vba/word/WdLineSpacing.hpp>
  36 #include <ooo/vba/word/WdParagraphAlignment.hpp>
  37 #include <ooo/vba/word/WdOutlineLevel.hpp>
  38 #include <com/sun/star/style/ParagraphAdjust.hpp>
  39 #include <com/sun/star/style/BreakType.hpp>
  40
  41
  42 using namespace ::ooo::vba;
  43 using namespace ::com::sun::star;
  44
  45 static const sal_Int16 CHARACTER_INDENT_FACTOR = 12;
  46 static const sal_Int16 PERCENT100 = 100;
  47 static const sal_Int16 PERCENT150 = 150;
  48 static const sal_Int16 PERCENT200 = 200;
  49
  50 SwVbaParagraphFormat::SwVbaParagraphFormat( const uno::Reference< ooo::vba::XHelperInterface >& rParent, const uno::Reference< uno::XComponentContext >& rContext, const uno::Reference< text::XTextDocument >& rTextDocument, const uno::Reference< beans::XPropertySet >& rParaProps ) : SwVbaParagraphFormat_BASE( rParent, rContext ), mxTextDocument( rTextDocument ), mxParaProps( rParaProps )
  51 {
  52 }
  53
  54 SwVbaParagraphFormat::~SwVbaParagraphFormat()
  55 {
  56 }
  57
  58 sal_Int32 SAL_CALL SwVbaParagraphFormat::getAlignment() throw (uno::RuntimeException)
  59 {
  60     style::ParagraphAdjust aParaAdjust = style::ParagraphAdjust_LEFT;
  61     mxParaProps->getPropertyValue( rtl::OUString( RTL_CONSTASCII_USTRINGPARAM("ParaAdjust") ) ) >>= aParaAdjust;
  62     return getMSWordAlignment( aParaAdjust );
  63 }
  64
  65 void SAL_CALL SwVbaParagraphFormat::setAlignment( sal_Int32 _alignment ) throw (uno::RuntimeException)
  66 {
  67     style::ParagraphAdjust aParaAdjust = ( style::ParagraphAdjust ) getOOoAlignment( _alignment );
  68     mxParaProps->setPropertyValue( rtl::OUString( RTL_CONSTASCII_USTRINGPARAM("ParaAdjust") ), uno::makeAny( aParaAdjust ) );
  69 }
  70
  71 float SAL_CALL SwVbaParagraphFormat::getFirstLineIndent() throw (uno::RuntimeException)
  72 {
  73     sal_Int32 indent = 0;
  74     mxParaProps->getPropertyValue( rtl::OUString( RTL_CONSTASCII_USTRINGPARAM("ParaFirstLineIndent") ) ) >>= indent;
  75     return (float)( Millimeter::getInPoints( indent ) );
  76 }
  77
  78 void SAL_CALL SwVbaParagraphFormat::setFirstLineIndent( float _firstlineindent ) throw (uno::RuntimeException)
  79 {
  80     sal_Int32 indent = Millimeter::getInHundredthsOfOneMillimeter( _firstlineindent );
  81     mxParaProps->setPropertyValue( rtl::OUString( RTL_CONSTASCII_USTRINGPARAM("ParaFirstLineIndent") ), uno::makeAny( indent ) );
  82 }
  83
  84 uno::Any SAL_CALL SwVbaParagraphFormat::getKeepTogether() throw (uno::RuntimeException)
  85 {
  86     sal_Bool bKeep = sal_False;
  87     mxParaProps->getPropertyValue( rtl::OUString( RTL_CONSTASCII_USTRINGPARAM("ParaKeepTogether") ) ) >>= bKeep;
  88     return uno::makeAny ( bKeep );
  89 }
  90
  91 void SAL_CALL SwVbaParagraphFormat::setKeepTogether( const uno::Any& _keeptogether ) throw (uno::RuntimeException)
  92 {
  93     sal_Bool bKeep = sal_False;
  94     if( _keeptogether >>= bKeep )
  95     {
  96         mxParaProps->setPropertyValue( rtl::OUString( RTL_CONSTASCII_USTRINGPARAM("ParaKeepTogether") ), uno::makeAny( bKeep ) );
  97     }
  98     else
  99     {
 100         DebugHelper::exception( SbERR_BAD_PARAMETER, rtl::OUString() );
 101     }
 102 }
 103
 104 uno::Any SAL_CALL SwVbaParagraphFormat::getKeepWithNext() throw (uno::RuntimeException)
 105 {
 106     sal_Bool bKeep = sal_False;
 107     mxParaProps->getPropertyValue( rtl::OUString( RTL_CONSTASCII_USTRINGPARAM("ParaSplit") ) ) >>= bKeep;
 108     return uno::makeAny ( bKeep );
 109 }
 110
 111 void SAL_CALL SwVbaParagraphFormat::setKeepWithNext( const uno::Any& _keepwithnext ) throw (uno::RuntimeException)
 112 {
 113     sal_Bool bKeep = sal_False;
 114     if( _keepwithnext >>= bKeep )
 115     {
 116         mxParaProps->setPropertyValue( rtl::OUString( RTL_CONSTASCII_USTRINGPARAM("ParaSplit") ), uno::makeAny( bKeep ) );
 117     }
 118     else
 119     {
 120         DebugHelper::exception( SbERR_BAD_PARAMETER, rtl::OUString() );
 121     }
 122 }
 123
 124 uno::Any SAL_CALL SwVbaParagraphFormat::getHyphenation() throw (uno::RuntimeException)
 125 {
 126     sal_Bool bHypn = sal_False;
 127     mxParaProps->getPropertyValue( rtl::OUString( RTL_CONSTASCII_USTRINGPARAM("ParaIsHyphenation") ) ) >>= bHypn;
 128     return uno::makeAny ( bHypn );
 129 }
 130
 131 void SAL_CALL SwVbaParagraphFormat::setHyphenation( const uno::Any& _hyphenation ) throw (uno::RuntimeException)
 132 {
 133     sal_Bool bHypn = sal_False;
 134     if( _hyphenation >>= bHypn )
 135     {
 136         mxParaProps->setPropertyValue( rtl::OUString( RTL_CONSTASCII_USTRINGPARAM("ParaIsHyphenation") ), uno::makeAny( bHypn ) );
 137     }
 138     else
 139     {
 140         DebugHelper::exception( SbERR_BAD_PARAMETER, rtl::OUString() );
 141     }
 142 }
 143
 144 float SAL_CALL SwVbaParagraphFormat::getLineSpacing() throw (uno::RuntimeException)
 145 {
 146     style::LineSpacing aLineSpacing;
 147     mxParaProps->getPropertyValue( rtl::OUString( RTL_CONSTASCII_USTRINGPARAM("ParaLineSpacing") ) ) >>= aLineSpacing;
 148     return getMSWordLineSpacing( aLineSpacing );
 149 }
 150
 151 void SAL_CALL SwVbaParagraphFormat::setLineSpacing( float _linespacing ) throw (uno::RuntimeException)
 152 {
 153     style::LineSpacing aLineSpacing;
 154     mxParaProps->getPropertyValue( rtl::OUString( RTL_CONSTASCII_USTRINGPARAM("ParaLineSpacing") ) ) >>= aLineSpacing;
 155     aLineSpacing = getOOoLineSpacing( _linespacing, aLineSpacing.Mode );
 156     mxParaProps->setPropertyValue( rtl::OUString( RTL_CONSTASCII_USTRINGPARAM("ParaLineSpacing") ), uno::makeAny( aLineSpacing ) );
 157 }
 158
 159 sal_Int32 SAL_CALL SwVbaParagraphFormat::getLineSpacingRule() throw (uno::RuntimeException)
 160 {
 161     style::LineSpacing aLineSpacing;
 162     mxParaProps->getPropertyValue( rtl::OUString( RTL_CONSTASCII_USTRINGPARAM("ParaLineSpacing") ) ) >>= aLineSpacing;
 163     return getMSWordLineSpacingRule( aLineSpacing );
 164 }
 165
 166 void SAL_CALL SwVbaParagraphFormat::setLineSpacingRule( sal_Int32 _linespacingrule ) throw (uno::RuntimeException)
 167 {
 168     style::LineSpacing aLineSpacing = getOOoLineSpacingFromRule( _linespacingrule );
 169     mxParaProps->setPropertyValue( rtl::OUString( RTL_CONSTASCII_USTRINGPARAM("ParaLineSpacing") ), uno::makeAny( aLineSpacing ) );
 170 }
 171
 172 uno::Any SAL_CALL SwVbaParagraphFormat::getNoLineNumber() throw (uno::RuntimeException)
 173 {
 174     sal_Bool noLineNum = sal_False;
 175     mxParaProps->getPropertyValue( rtl::OUString( RTL_CONSTASCII_USTRINGPARAM("ParaLineNumberCount") ) ) >>= noLineNum;
 176     return uno::makeAny ( noLineNum );
 177 }
 178
 179 void SAL_CALL SwVbaParagraphFormat::setNoLineNumber( const uno::Any& _nolinenumber ) throw (uno::RuntimeException)
 180 {
 181     sal_Bool noLineNum = sal_False;
 182     if( _nolinenumber >>= noLineNum )
 183     {
 184         mxParaProps->setPropertyValue( rtl::OUString( RTL_CONSTASCII_USTRINGPARAM("ParaLineNumberCount") ), uno::makeAny( noLineNum ) );
 185     }
 186     else
 187     {
 188         DebugHelper::exception( SbERR_BAD_PARAMETER, rtl::OUString() );
 189     }
 190 }
 191
 192 sal_Int32 SAL_CALL SwVbaParagraphFormat::getOutlineLevel() throw (uno::RuntimeException)
 193 {
 194     sal_Int32 nLevel = word::WdOutlineLevel::wdOutlineLevelBodyText;
 195     rtl::OUString aHeading;
 196     const rtl::OUString HEADING = rtl::OUString( RTL_CONSTASCII_USTRINGPARAM("Heading") );
 197     mxParaProps->getPropertyValue( rtl::OUString( RTL_CONSTASCII_USTRINGPARAM("ParaStyleName") ) ) >>= aHeading;
 198     if( aHeading.indexOf( HEADING ) == 0 )
 199     {
 200         // get the sub string after "Heading"
 201         nLevel = aHeading.copy( HEADING.getLength() ).toInt32();
 202     }
 203     return nLevel;
 204 }
 205
 206 void SAL_CALL SwVbaParagraphFormat::setOutlineLevel( sal_Int32 /*_outlinelevel*/ ) throw (uno::RuntimeException)
 207 {
 208     throw uno::RuntimeException( rtl::OUString( RTL_CONSTASCII_USTRINGPARAM("Not implemented") ), uno::Reference< uno::XInterface >() );
 209 }
 210
 211 uno::Any SAL_CALL SwVbaParagraphFormat::getPageBreakBefore() throw (uno::RuntimeException)
 212 {
 213     style::BreakType aBreakType;
 214     mxParaProps->getPropertyValue( rtl::OUString( RTL_CONSTASCII_USTRINGPARAM("BreakType") ) ) >>= aBreakType;
 215     sal_Bool bBreakBefore = ( aBreakType == style::BreakType_PAGE_BEFORE || aBreakType == style::BreakType_PAGE_BOTH );
 216     return uno::makeAny( bBreakBefore );
 217 }
 218
 219 void SAL_CALL SwVbaParagraphFormat::setPageBreakBefore( const uno::Any& _breakbefore ) throw (uno::RuntimeException)
 220 {
 221     sal_Bool bBreakBefore = sal_False;
 222     if( _breakbefore >>= bBreakBefore )
 223     {
 224         style::BreakType aBreakType;
 225         mxParaProps->getPropertyValue( rtl::OUString( RTL_CONSTASCII_USTRINGPARAM("BreakType") ) ) >>= aBreakType;
 226         if( bBreakBefore )
 227         {
 228             if( aBreakType == style::BreakType_NONE )
 229                 aBreakType = style::BreakType_PAGE_BEFORE;
 230             else if ( aBreakType == style::BreakType_PAGE_AFTER )
 231                 aBreakType = style::BreakType_PAGE_BOTH;
 232         }
 233         else
 234         {
 235             if( aBreakType == style::BreakType_PAGE_BOTH )
 236                 aBreakType = style::BreakType_PAGE_AFTER;
 237             else if ( aBreakType == style::BreakType_PAGE_BEFORE )
 238                 aBreakType = style::BreakType_PAGE_AFTER;
 239         }
 240         mxParaProps->setPropertyValue( rtl::OUString( RTL_CONSTASCII_USTRINGPARAM("BreakType") ), uno::makeAny( aBreakType ) );
 241     }
 242     else
 243     {
 244         DebugHelper::exception( SbERR_BAD_PARAMETER, rtl::OUString() );
 245     }
 246 }
 247
 248 float SAL_CALL SwVbaParagraphFormat::getSpaceBefore() throw (uno::RuntimeException)
 249 {
 250     sal_Int32 nSpace = 0;
 251     mxParaProps->getPropertyValue( rtl::OUString( RTL_CONSTASCII_USTRINGPARAM("ParaTopMargin") ) ) >>= nSpace;
 252     return (float)( Millimeter::getInPoints( nSpace ) );
 253 }
 254
 255 void SAL_CALL SwVbaParagraphFormat::setSpaceBefore( float _space ) throw (uno::RuntimeException)
 256 {
 257     sal_Int32 nSpace = Millimeter::getInHundredthsOfOneMillimeter( _space );
 258     mxParaProps->setPropertyValue( rtl::OUString( RTL_CONSTASCII_USTRINGPARAM("ParaTopMargin") ), uno::makeAny( nSpace ) );
 259 }
 260
 261 float SAL_CALL SwVbaParagraphFormat::getSpaceAfter() throw (uno::RuntimeException)
 262 {
 263     sal_Int32 nSpace = 0;
 264     mxParaProps->getPropertyValue( rtl::OUString( RTL_CONSTASCII_USTRINGPARAM("ParaBottomMargin") ) ) >>= nSpace;
 265     return (float)( Millimeter::getInPoints( nSpace ) );
 266 }
 267
 268 void SAL_CALL SwVbaParagraphFormat::setSpaceAfter( float _space ) throw (uno::RuntimeException)
 269 {
 270     sal_Int32 nSpace = Millimeter::getInHundredthsOfOneMillimeter( _space );
 271     mxParaProps->setPropertyValue( rtl::OUString( RTL_CONSTASCII_USTRINGPARAM("ParaBottomMargin") ), uno::makeAny( nSpace ) );
 272 }
 273
 274 float SAL_CALL SwVbaParagraphFormat::getLeftIndent() throw (uno::RuntimeException)
 275 {
 276     sal_Int32 nIndent = 0;
 277     mxParaProps->getPropertyValue( rtl::OUString( RTL_CONSTASCII_USTRINGPARAM("ParaLeftMargin") ) ) >>= nIndent;
 278     return (float)( Millimeter::getInPoints( nIndent ) );
 279 }
 280
 281 void SAL_CALL SwVbaParagraphFormat::setLeftIndent( float _leftindent ) throw (uno::RuntimeException)
 282 {
 283     sal_Int32 nIndent = Millimeter::getInHundredthsOfOneMillimeter( _leftindent );
 284     mxParaProps->setPropertyValue( rtl::OUString( RTL_CONSTASCII_USTRINGPARAM("ParaLeftMargin") ), uno::makeAny( nIndent ) );
 285 }
 286
 287 float SAL_CALL SwVbaParagraphFormat::getRightIndent() throw (uno::RuntimeException)
 288 {
 289     sal_Int32 nIndent = 0;
 290     mxParaProps->getPropertyValue( rtl::OUString( RTL_CONSTASCII_USTRINGPARAM("ParaRightMargin") ) ) >>= nIndent;
 291     return (float)( Millimeter::getInPoints( nIndent ) );
 292 }
 293
 294 void SAL_CALL SwVbaParagraphFormat::setRightIndent( float _rightindent ) throw (uno::RuntimeException)
 295 {
 296     sal_Int32 nIndent = Millimeter::getInHundredthsOfOneMillimeter( _rightindent );
 297     mxParaProps->setPropertyValue( rtl::OUString( RTL_CONSTASCII_USTRINGPARAM("ParaRightMargin") ), uno::makeAny( nIndent ) );
 298 }
 299
 300 uno::Any SAL_CALL SwVbaParagraphFormat::getTabStops() throw (uno::RuntimeException)
 301 {
 302     throw uno::RuntimeException( rtl::OUString( RTL_CONSTASCII_USTRINGPARAM("Not implemented") ), uno::Reference< uno::XInterface >() );
 303 }
 304
 305 void SAL_CALL SwVbaParagraphFormat::setTabStops( const uno::Any& /*_tabstops*/ ) throw (uno::RuntimeException)
 306 {
 307     throw uno::RuntimeException( rtl::OUString( RTL_CONSTASCII_USTRINGPARAM("Not implemented") ), uno::Reference< uno::XInterface >() );
 308 }
 309
 310 uno::Any SAL_CALL SwVbaParagraphFormat::getWidowControl() throw (uno::RuntimeException)
 311 {
 312     sal_Bool bWidow = sal_False;
 313     sal_Int8 nWidow = 0;
 314     mxParaProps->getPropertyValue( rtl::OUString( RTL_CONSTASCII_USTRINGPARAM("ParaWidows") ) ) >>= nWidow;
 315     sal_Int8 nOrphan = 0;
 316     mxParaProps->getPropertyValue( rtl::OUString( RTL_CONSTASCII_USTRINGPARAM("ParaOrphans") ) ) >>= nOrphan;
 317     // if the amount of single lines on one page > 1 and the same of start and end of the paragraph,
 318     // true is retured.
 319     bWidow = ( nWidow > 1 && nOrphan == nWidow );
 320     return uno::makeAny( bWidow );
 321 }
 322
 323 void SAL_CALL SwVbaParagraphFormat::setWidowControl( const uno::Any& _widowcontrol ) throw (uno::RuntimeException)
 324 {
 325     // if we get true, the part of the paragraph on one page has to be
 326     // at least two lines
 327     sal_Bool bWidow = sal_False;
 328     if( _widowcontrol >>= bWidow )
 329     {
 330         sal_Int8 nControl = bWidow? 2:1;
 331         mxParaProps->setPropertyValue( rtl::OUString( RTL_CONSTASCII_USTRINGPARAM("ParaWidows") ), uno::makeAny( nControl ) );
 332         mxParaProps->setPropertyValue( rtl::OUString( RTL_CONSTASCII_USTRINGPARAM("ParaOrphans") ), uno::makeAny( nControl ) );
 333     }
 334     else
 335     {
 336         DebugHelper::exception( SbERR_BAD_PARAMETER, rtl::OUString() );
 337     }
 338 }
 339
 340 style::LineSpacing SwVbaParagraphFormat::getOOoLineSpacing( float _lineSpace, sal_Int16 mode )
 341 {
 342     style::LineSpacing aLineSpacing;
 343     if( mode != style::LineSpacingMode::MINIMUM && mode != style::LineSpacingMode::FIX )
 344     {
 345         // special behaviour of word: if the space is set to these values, the rule and
 346         // the height are changed accordingly
 347         if( _lineSpace == CHARACTER_INDENT_FACTOR )
 348         {
 349             aLineSpacing.Mode = style::LineSpacingMode::PROP;
 350             aLineSpacing.Height = PERCENT100;
 351         }
 352         else if( _lineSpace == ( sal_Int16 )( CHARACTER_INDENT_FACTOR * 1.5 ) )
 353         {
 354             aLineSpacing.Mode = style::LineSpacingMode::PROP;
 355             aLineSpacing.Height = PERCENT150;
 356         }
 357         else if( _lineSpace == ( sal_Int16 )( ( CHARACTER_INDENT_FACTOR ) * 2 ) )
 358         {
 359             aLineSpacing.Mode = style::LineSpacingMode::PROP;
 360             aLineSpacing.Height = PERCENT200;
 361         }
 362         else
 363         {
 364             aLineSpacing.Mode = style::LineSpacingMode::FIX;
 365             aLineSpacing.Height = ( sal_Int16 )( Millimeter::getInHundredthsOfOneMillimeter( _lineSpace ) );
 366         }
 367     }
 368     else
 369     {
 370         aLineSpacing.Mode = mode;
 371         aLineSpacing.Height = ( sal_Int16 )( Millimeter::getInHundredthsOfOneMillimeter( _lineSpace ) );
 372     }
 373     return aLineSpacing;
 374 }
 375
 376 style::LineSpacing SwVbaParagraphFormat::getOOoLineSpacingFromRule( sal_Int32 _linespacingrule )
 377 {
 378     style::LineSpacing aLineSpacing;
 379     switch( _linespacingrule )
 380     {
 381         case word::WdLineSpacing::wdLineSpace1pt5:
 382         {
 383             aLineSpacing.Mode = style::LineSpacingMode::PROP;
 384             aLineSpacing.Height = PERCENT150;
 385             break;
 386         }
 387         case word::WdLineSpacing::wdLineSpaceAtLeast:
 388         {
 389             aLineSpacing.Mode = style::LineSpacingMode::MINIMUM;
 390             aLineSpacing.Height = getCharHeight();
 391             break;
 392         }
 393         case word::WdLineSpacing::wdLineSpaceDouble:
 394         {
 395             aLineSpacing.Mode = style::LineSpacingMode::PROP;
 396             aLineSpacing.Height = getCharHeight();
 397             break;
 398         }
 399         case word::WdLineSpacing::wdLineSpaceExactly:
 400         case word::WdLineSpacing::wdLineSpaceMultiple:
 401         {
 402             aLineSpacing.Mode = style::LineSpacingMode::FIX;
 403             aLineSpacing.Height = getCharHeight();
 404             break;
 405         }
 406         case word::WdLineSpacing::wdLineSpaceSingle:
 407         {
 408             aLineSpacing.Mode = style::LineSpacingMode::PROP;
 409             aLineSpacing.Height = PERCENT100;
 410             break;
 411         }
 412         default:
 413         {
 414             DebugHelper::exception( SbERR_BAD_PARAMETER, rtl::OUString() );
 415             break;
 416         }
 417     }
 418     return aLineSpacing;
 419 }
 420
 421 float SwVbaParagraphFormat::getMSWordLineSpacing( style::LineSpacing& rLineSpacing )
 422 {
 423     float wdLineSpacing = 0;
 424     if( rLineSpacing.Mode != style::LineSpacingMode::PROP )
 425     {
 426         wdLineSpacing = (float)( Millimeter::getInPoints( rLineSpacing.Height ) );
 427     }
 428     else
 429     {
 430         wdLineSpacing = (float)( CHARACTER_INDENT_FACTOR * rLineSpacing.Height ) / PERCENT100;
 431     }
 432     return wdLineSpacing;
 433 }
 434
 435 sal_Int32 SwVbaParagraphFormat::getMSWordLineSpacingRule( style::LineSpacing& rLineSpacing )
 436 {
 437     sal_Int32 wdLineSpacing = word::WdLineSpacing::wdLineSpaceSingle;
 438     switch( rLineSpacing.Mode )
 439     {
 440         case style::LineSpacingMode::PROP:
 441         {
 442             switch( rLineSpacing.Height )
 443             {
 444                 case PERCENT100:
 445                 {
 446                     wdLineSpacing = word::WdLineSpacing::wdLineSpaceSingle;
 447                     break;
 448                 }
 449                 case PERCENT150:
 450                 {
 451                     wdLineSpacing = word::WdLineSpacing::wdLineSpace1pt5;
 452                     break;
 453                 }
 454                 case PERCENT200:
 455                 {
 456                     wdLineSpacing = word::WdLineSpacing::wdLineSpaceDouble;
 457                     break;
 458                 }
 459                 default:
 460                 {
 461                     wdLineSpacing = word::WdLineSpacing::wdLineSpaceMultiple;
 462                 }
 463             }
 464             break;
 465         }
 466         case style::LineSpacingMode::MINIMUM:
 467         {
 468             wdLineSpacing = word::WdLineSpacing::wdLineSpaceAtLeast;
 469             break;
 470         }
 471         case style::LineSpacingMode::FIX:
 472         case style::LineSpacingMode::LEADING:
 473         {
 474             wdLineSpacing = word::WdLineSpacing::wdLineSpaceExactly;
 475             break;
 476         }
 477         default:
 478         {
 479             DebugHelper::exception( SbERR_BAD_PARAMETER, rtl::OUString() );
 480         }
 481     }
 482     return wdLineSpacing;
 483 }
 484
 485 sal_Int16 SwVbaParagraphFormat::getCharHeight() throw (uno::RuntimeException)
 486 {
 487     float fCharHeight = 0.0;
 488     mxParaProps->getPropertyValue( rtl::OUString( RTL_CONSTASCII_USTRINGPARAM("CharHeight") ) ) >>= fCharHeight;
 489     return (sal_Int16)( Millimeter::getInHundredthsOfOneMillimeter( fCharHeight ) );
 490 }
 491
 492 sal_Int32 SwVbaParagraphFormat::getOOoAlignment( sal_Int32 _alignment )
 493 {
 494     sal_Int32 nParaAjust = style::ParagraphAdjust_LEFT;
 495     switch( _alignment )
 496     {
 497         case word::WdParagraphAlignment::wdAlignParagraphCenter:
 498         {
 499             nParaAjust = style::ParagraphAdjust_CENTER;
 500             break;
 501         }
 502         case word::WdParagraphAlignment::wdAlignParagraphJustify:
 503         {
 504             nParaAjust = style::ParagraphAdjust_BLOCK;
 505             break;
 506         }
 507         case word::WdParagraphAlignment::wdAlignParagraphLeft:
 508         {
 509             nParaAjust = style::ParagraphAdjust_LEFT;
 510             break;
 511         }
 512         case word::WdParagraphAlignment::wdAlignParagraphRight:
 513         {
 514             nParaAjust = style::ParagraphAdjust_RIGHT;
 515             break;
 516         }
 517         default:
 518         {
 519             DebugHelper::exception( SbERR_BAD_PARAMETER, rtl::OUString() );
 520         }
 521     }
 522     return nParaAjust;
 523 }
 524
 525 sal_Int32 SwVbaParagraphFormat::getMSWordAlignment( sal_Int32 _alignment )
 526 {
 527     sal_Int32 wdAlignment = word::WdParagraphAlignment::wdAlignParagraphLeft;
 528     switch( _alignment )
 529     {
 530         case style::ParagraphAdjust_CENTER:
 531         {
 532             wdAlignment = word::WdParagraphAlignment::wdAlignParagraphCenter;
 533             break;
 534         }
 535         case style::ParagraphAdjust_LEFT:
 536         {
 537             wdAlignment = word::WdParagraphAlignment::wdAlignParagraphLeft;
 538             break;
 539         }
 540         case style::ParagraphAdjust_BLOCK:
 541         {
 542             wdAlignment = word::WdParagraphAlignment::wdAlignParagraphJustify;
 543             break;
 544         }
 545         case style::ParagraphAdjust_RIGHT:
 546         {
 547             wdAlignment = word::WdParagraphAlignment::wdAlignParagraphRight;
 548             break;
 549         }
 550         default:
 551         {
 552             DebugHelper::exception( SbERR_BAD_PARAMETER, rtl::OUString() );
 553         }
 554     }
 555     return wdAlignment;
 556 }
 557
 558 rtl::OUString&
 559 SwVbaParagraphFormat::getServiceImplName()
 560 {
 561         static rtl::OUString sImplName( RTL_CONSTASCII_USTRINGPARAM("SwVbaParagraphFormat") );
 562         return sImplName;
 563 }
 564
 565 uno::Sequence< rtl::OUString >
 566 SwVbaParagraphFormat::getServiceNames()
 567 {
 568         static uno::Sequence< rtl::OUString > aServiceNames;
 569         if ( aServiceNames.getLength() == 0 )
 570         {
 571                 aServiceNames.realloc( 1 );
 572                 aServiceNames[ 0 ] = rtl::OUString( RTL_CONSTASCII_USTRINGPARAM("ooo.vba.word.ParagraphFormat" ) );
 573         }
 574         return aServiceNames;
 575 }
 576