1 /************************************************************** 2 * 3 * Licensed to the Apache Software Foundation (ASF) under one 4 * or more contributor license agreements. See the NOTICE file 5 * distributed with this work for additional information 6 * regarding copyright ownership. The ASF licenses this file 7 * to you under the Apache License, Version 2.0 (the 8 * "License"); you may not use this file except in compliance 9 * with the License. You may obtain a copy of the License at 10 * 11 * http://www.apache.org/licenses/LICENSE-2.0 12 * 13 * Unless required by applicable law or agreed to in writing, 14 * software distributed under the License is distributed on an 15 * "AS IS" BASIS, WITHOUT WARRANTIES OR CONDITIONS OF ANY 16 * KIND, either express or implied. See the License for the 17 * specific language governing permissions and limitations 18 * under the License. 19 * 20 *************************************************************/ 21 22 23 #include "vbarange.hxx" 24 #include <vbahelper/vbahelper.hxx> 25 #include <tools/diagnose_ex.h> 26 #include "vbarangehelper.hxx" 27 #include <ooo/vba/word/WdBreakType.hpp> 28 #include <com/sun/star/style/BreakType.hpp> 29 #include <com/sun/star/text/ControlCharacter.hpp> 30 #include <com/sun/star/style/XStyleFamiliesSupplier.hpp> 31 #include "wordvbahelper.hxx" 32 #include "vbaparagraphformat.hxx" 33 #include "vbastyle.hxx" 34 #include "vbafont.hxx" 35 #include "vbapalette.hxx" 36 #include "vbapagesetup.hxx" 37 38 using namespace ::ooo::vba; 39 using namespace ::com::sun::star; 40 41 SwVbaRange::SwVbaRange( const uno::Reference< ooo::vba::XHelperInterface >& rParent, const uno::Reference< uno::XComponentContext >& rContext, const uno::Reference< text::XTextDocument >& rTextDocument, const uno::Reference< text::XTextRange >& rStart, sal_Bool _bMaySpanEndOfDocument ) throw (uno::RuntimeException) : SwVbaRange_BASE( rParent, rContext ), mxTextDocument( rTextDocument ), mbMaySpanEndOfDocument( _bMaySpanEndOfDocument ) 42 { 43 uno::Reference< text::XTextRange > xEnd; 44 initialize( rStart, xEnd ); 45 } 46 47 SwVbaRange::SwVbaRange( const uno::Reference< ooo::vba::XHelperInterface >& rParent, const uno::Reference< uno::XComponentContext >& rContext, const uno::Reference< text::XTextDocument >& rTextDocument, const uno::Reference< text::XTextRange >& rStart, const uno::Reference< text::XTextRange >& rEnd, sal_Bool _bMaySpanEndOfDocument ) throw (uno::RuntimeException) : SwVbaRange_BASE( rParent, rContext ), mxTextDocument( rTextDocument ), mbMaySpanEndOfDocument( _bMaySpanEndOfDocument ) 48 { 49 initialize( rStart, rEnd ); 50 } 51 52 SwVbaRange::SwVbaRange( const uno::Reference< ooo::vba::XHelperInterface >& rParent, const uno::Reference< uno::XComponentContext >& rContext, const uno::Reference< text::XTextDocument >& rTextDocument, const uno::Reference< text::XTextRange >& rStart, const uno::Reference< text::XTextRange >& rEnd, const uno::Reference< text::XText >& rText, sal_Bool _bMaySpanEndOfDocument ) throw (uno::RuntimeException) : SwVbaRange_BASE( rParent, rContext ),mxTextDocument( rTextDocument ), mxText( rText ), mbMaySpanEndOfDocument( _bMaySpanEndOfDocument ) 53 { 54 initialize( rStart, rEnd ); 55 } 56 57 SwVbaRange::~SwVbaRange() 58 { 59 } 60 61 void SwVbaRange::initialize( const uno::Reference< text::XTextRange >& rStart, const uno::Reference< text::XTextRange >& rEnd ) throw (uno::RuntimeException) 62 { 63 if( !mxText.is() ) 64 { 65 mxText = mxTextDocument->getText(); 66 } 67 68 mxTextCursor = SwVbaRangeHelper::initCursor( rStart, mxText ); 69 mxTextCursor->collapseToStart(); 70 71 if( rEnd.is() ) 72 mxTextCursor->gotoRange( rEnd, sal_True ); 73 else 74 mxTextCursor->gotoEnd( sal_True ); 75 } 76 77 uno::Reference< text::XTextRange > SAL_CALL 78 SwVbaRange::getXTextRange() throw (uno::RuntimeException) 79 { 80 uno::Reference< text::XTextRange > xTextRange( mxTextCursor, uno::UNO_QUERY_THROW ); 81 return xTextRange; 82 } 83 #ifdef TOMORROW 84 void SwVbaRange::setXTextRange( const uno::Reference< text::XTextRange >& xRange ) throw (uno::RuntimeException) 85 { 86 mxTextCursor->gotoRange( xRange->getStart(), sal_False ); 87 mxTextCursor->gotoRange( xRange->getEnd(), sal_True ); 88 } 89 #endif 90 /** 91 * The complexity in this method is because we need to workaround 92 * an issue that the last paragraph in a document does not have a trailing CRLF. 93 * @return 94 */ 95 rtl::OUString SAL_CALL 96 SwVbaRange::getText() throw ( uno::RuntimeException ) 97 { 98 rtl::OUString aText = mxTextCursor->getString(); 99 sal_Int32 nLen = aText.getLength(); 100 101 // FIXME: should add a line separator if the range includes the last paragraph 102 if( nLen == 0 ) 103 { 104 if( mxTextCursor->isCollapsed() ) 105 { 106 mxTextCursor->goRight( 1, sal_True ); 107 aText = mxTextCursor->getString(); 108 mxTextCursor->collapseToStart(); 109 } 110 else 111 { 112 uno::Reference< text::XTextRange > xStart = mxTextCursor->getStart(); 113 uno::Reference< text::XTextRange > xEnd = mxTextCursor->getEnd(); 114 mxTextCursor->collapseToEnd(); 115 mxTextCursor->goRight( 1, sal_True ); 116 mxTextCursor->gotoRange( xStart, sal_False ); 117 mxTextCursor->gotoRange( xEnd, sal_True ); 118 } 119 } 120 121 return aText; 122 } 123 124 void SAL_CALL 125 SwVbaRange::setText( const rtl::OUString& rText ) throw ( uno::RuntimeException ) 126 { 127 if( rText.indexOf( '\n' ) != -1 ) 128 { 129 mxTextCursor->setString( rtl::OUString() ); 130 // process CR in strings 131 uno::Reference< text::XTextRange > xRange( mxTextCursor, uno::UNO_QUERY_THROW ); 132 SwVbaRangeHelper::insertString( xRange, mxText, rText, sal_True ); 133 } 134 else 135 { 136 mxTextCursor->setString( rText ); 137 } 138 } 139 140 // FIXME: test is not pass 141 void SAL_CALL SwVbaRange::InsertBreak( const uno::Any& _breakType ) throw (uno::RuntimeException) 142 { 143 // default type is wdPageBreak; 144 sal_Int32 nBreakType = word::WdBreakType::wdPageBreak; 145 if( _breakType.hasValue() ) 146 _breakType >>= nBreakType; 147 148 style::BreakType eBreakType = style::BreakType_NONE; 149 switch( nBreakType ) 150 { 151 case word::WdBreakType::wdPageBreak: 152 eBreakType = style::BreakType_PAGE_BEFORE; 153 break; 154 case word::WdBreakType::wdColumnBreak: 155 eBreakType = style::BreakType_COLUMN_AFTER; 156 break; 157 case word::WdBreakType::wdLineBreak: 158 case word::WdBreakType::wdLineBreakClearLeft: 159 case word::WdBreakType::wdLineBreakClearRight: 160 case word::WdBreakType::wdSectionBreakContinuous: 161 case word::WdBreakType::wdSectionBreakEvenPage: 162 case word::WdBreakType::wdSectionBreakNextPage: 163 case word::WdBreakType::wdSectionBreakOddPage: 164 case word::WdBreakType::wdTextWrappingBreak: 165 DebugHelper::exception( SbERR_NOT_IMPLEMENTED, rtl::OUString() ); 166 break; 167 default: 168 DebugHelper::exception( SbERR_BAD_PARAMETER, rtl::OUString() ); 169 } 170 171 if( eBreakType != style::BreakType_NONE ) 172 { 173 if( !mxTextCursor->isCollapsed() ) 174 { 175 mxTextCursor->setString( rtl::OUString() ); 176 mxTextCursor->collapseToStart(); 177 } 178 179 uno::Reference< beans::XPropertySet > xProp( mxTextCursor, uno::UNO_QUERY_THROW ); 180 xProp->setPropertyValue( rtl::OUString( RTL_CONSTASCII_USTRINGPARAM("BreakType") ), uno::makeAny( eBreakType ) ); 181 } 182 } 183 184 void SAL_CALL 185 SwVbaRange::Select() throw ( uno::RuntimeException ) 186 { 187 uno::Reference< frame::XModel > xModel( mxTextDocument, uno::UNO_QUERY_THROW ); 188 uno::Reference< text::XTextViewCursor > xTextViewCursor = word::getXTextViewCursor( xModel ); 189 xTextViewCursor->gotoRange( mxTextCursor->getStart(), sal_False ); 190 xTextViewCursor->gotoRange( mxTextCursor->getEnd(), sal_True ); 191 } 192 193 void SAL_CALL 194 SwVbaRange::InsertParagraph() throw ( uno::RuntimeException ) 195 { 196 mxTextCursor->setString( rtl::OUString( RTL_CONSTASCII_USTRINGPARAM("") ) ); 197 InsertParagraphBefore(); 198 } 199 200 void SAL_CALL 201 SwVbaRange::InsertParagraphBefore() throw ( uno::RuntimeException ) 202 { 203 uno::Reference< text::XTextRange > xTextRange = mxTextCursor->getStart(); 204 mxText->insertControlCharacter( xTextRange, text::ControlCharacter::PARAGRAPH_BREAK, sal_True ); 205 mxTextCursor->gotoRange( xTextRange, sal_True ); 206 } 207 208 void SAL_CALL 209 SwVbaRange::InsertParagraphAfter() throw ( uno::RuntimeException ) 210 { 211 uno::Reference< text::XTextRange > xTextRange = mxTextCursor->getEnd(); 212 mxText->insertControlCharacter( xTextRange, text::ControlCharacter::PARAGRAPH_BREAK, sal_True ); 213 } 214 215 uno::Reference< word::XParagraphFormat > SAL_CALL 216 SwVbaRange::getParagraphFormat() throw ( uno::RuntimeException ) 217 { 218 uno::Reference< beans::XPropertySet > xParaProps( mxTextCursor, uno::UNO_QUERY_THROW ); 219 return uno::Reference< word::XParagraphFormat >( new SwVbaParagraphFormat( this, mxContext, mxTextDocument, xParaProps ) ); 220 } 221 222 void SAL_CALL 223 SwVbaRange::setParagraphFormat( const uno::Reference< word::XParagraphFormat >& /*rParagraphFormat*/ ) throw ( uno::RuntimeException ) 224 { 225 throw uno::RuntimeException( rtl::OUString( RTL_CONSTASCII_USTRINGPARAM("Not implemented") ), uno::Reference< uno::XInterface >() ); 226 } 227 228 uno::Reference< word::XStyle > SAL_CALL 229 SwVbaRange::getStyle() throw ( uno::RuntimeException ) 230 { 231 rtl::OUString aStyleName; 232 rtl::OUString aStyleType; 233 uno::Reference< beans::XPropertySet > xProp( mxTextCursor, uno::UNO_QUERY_THROW ); 234 if( ( xProp->getPropertyValue( rtl::OUString( RTL_CONSTASCII_USTRINGPARAM("CharStyleName") ) ) >>= aStyleName ) && aStyleName.getLength() ) 235 { 236 aStyleType = rtl::OUString( RTL_CONSTASCII_USTRINGPARAM("CharacterStyles") ); 237 } 238 else if( ( xProp->getPropertyValue( rtl::OUString( RTL_CONSTASCII_USTRINGPARAM("ParaStyleName") ) ) >>= aStyleName ) && aStyleName.getLength() ) 239 { 240 aStyleType = rtl::OUString( RTL_CONSTASCII_USTRINGPARAM("ParagraphStyles") ); 241 } 242 if( aStyleType.getLength() == 0 ) 243 { 244 DebugHelper::exception( SbERR_INTERNAL_ERROR, rtl::OUString() ); 245 } 246 uno::Reference< style::XStyleFamiliesSupplier > xStyleSupplier( mxTextDocument, uno::UNO_QUERY_THROW); 247 uno::Reference< container::XNameAccess > xStylesAccess( xStyleSupplier->getStyleFamilies()->getByName( aStyleType ), uno::UNO_QUERY_THROW ); 248 uno::Reference< beans::XPropertySet > xStyleProps( xStylesAccess->getByName( aStyleName ), uno::UNO_QUERY_THROW ); 249 return uno::Reference< word::XStyle >( new SwVbaStyle( this, mxContext, xStyleProps ) ); 250 } 251 252 void SAL_CALL 253 SwVbaRange::setStyle( const uno::Reference< word::XStyle >& rStyle ) throw ( uno::RuntimeException ) 254 { 255 uno::Reference< beans::XPropertySet > xParaProps( mxTextCursor, uno::UNO_QUERY_THROW ); 256 SwVbaStyle::setStyle( xParaProps, rStyle ); 257 } 258 259 uno::Reference< word::XFont > SAL_CALL 260 SwVbaRange::getFont() throw ( uno::RuntimeException ) 261 { 262 VbaPalette aColors; 263 return new SwVbaFont( mxParent, mxContext, aColors.getPalette(), uno::Reference< beans::XPropertySet >( getXTextRange(), uno::UNO_QUERY_THROW ) ); 264 } 265 266 ::sal_Int32 SAL_CALL SwVbaRange::getLanguageID() throw (uno::RuntimeException) 267 { 268 uno::Reference< beans::XPropertySet > xParaProps( mxTextCursor, uno::UNO_QUERY_THROW ); 269 return SwVbaStyle::getLanguageID( xParaProps ); 270 } 271 272 void SAL_CALL SwVbaRange::setLanguageID( ::sal_Int32 _languageid ) throw (uno::RuntimeException) 273 { 274 uno::Reference< beans::XPropertySet > xParaProps( mxTextCursor, uno::UNO_QUERY_THROW ); 275 SwVbaStyle::setLanguageID( xParaProps, _languageid ); 276 } 277 278 uno::Any SAL_CALL 279 SwVbaRange::PageSetup( ) throw (uno::RuntimeException) 280 { 281 uno::Reference< beans::XPropertySet > xParaProps( mxTextCursor, uno::UNO_QUERY_THROW ); 282 uno::Reference< frame::XModel > xModel( mxTextDocument, uno::UNO_QUERY_THROW ); 283 rtl::OUString aPageStyleName; 284 xParaProps->getPropertyValue( rtl::OUString( RTL_CONSTASCII_USTRINGPARAM("PageStyleName"))) >>= aPageStyleName; 285 uno::Reference< style::XStyleFamiliesSupplier > xSytleFamSupp( xModel, uno::UNO_QUERY_THROW ); 286 uno::Reference< container::XNameAccess > xSytleFamNames( xSytleFamSupp->getStyleFamilies(), uno::UNO_QUERY_THROW ); 287 uno::Reference< container::XNameAccess > xPageStyles( xSytleFamNames->getByName( rtl::OUString( RTL_CONSTASCII_USTRINGPARAM("PageStyles") ) ), uno::UNO_QUERY_THROW ); 288 uno::Reference< beans::XPropertySet > xPageProps( xPageStyles->getByName( aPageStyleName ), uno::UNO_QUERY_THROW ); 289 return uno::makeAny( uno::Reference< word::XPageSetup >( new SwVbaPageSetup( this, mxContext, xModel, xPageProps ) ) ); 290 } 291 292 ::sal_Int32 SAL_CALL SwVbaRange::getStart() throw (uno::RuntimeException) 293 { 294 uno::Reference< text::XText > xText = mxTextDocument->getText(); 295 return SwVbaRangeHelper::getPosition( xText, mxTextCursor->getStart() ); 296 } 297 298 void SAL_CALL SwVbaRange::setStart( ::sal_Int32 _start ) throw (uno::RuntimeException) 299 { 300 uno::Reference< text::XText > xText = mxTextDocument->getText(); 301 uno::Reference< text::XTextRange > xStart = SwVbaRangeHelper::getRangeByPosition( xText, _start ); 302 uno::Reference< text::XTextRange > xEnd = mxTextCursor->getEnd(); 303 304 mxTextCursor->gotoRange( xStart, sal_False ); 305 mxTextCursor->gotoRange( xEnd, sal_True ); 306 } 307 308 ::sal_Int32 SAL_CALL SwVbaRange::getEnd() throw (uno::RuntimeException) 309 { 310 uno::Reference< text::XText > xText = mxTextDocument->getText(); 311 return SwVbaRangeHelper::getPosition( xText, mxTextCursor->getEnd() ); 312 } 313 314 void SAL_CALL SwVbaRange::setEnd( ::sal_Int32 _end ) throw (uno::RuntimeException) 315 { 316 uno::Reference< text::XText > xText = mxTextDocument->getText(); 317 uno::Reference< text::XTextRange > xEnd = SwVbaRangeHelper::getRangeByPosition( xText, _end ); 318 319 mxTextCursor->collapseToStart(); 320 mxTextCursor->gotoRange( xEnd, sal_True ); 321 } 322 323 rtl::OUString& 324 SwVbaRange::getServiceImplName() 325 { 326 static rtl::OUString sImplName( RTL_CONSTASCII_USTRINGPARAM("SwVbaRange") ); 327 return sImplName; 328 } 329 330 uno::Sequence< rtl::OUString > 331 SwVbaRange::getServiceNames() 332 { 333 static uno::Sequence< rtl::OUString > aServiceNames; 334 if ( aServiceNames.getLength() == 0 ) 335 { 336 aServiceNames.realloc( 1 ); 337 aServiceNames[ 0 ] = rtl::OUString( RTL_CONSTASCII_USTRINGPARAM("ooo.vba.word.Range" ) ); 338 } 339 return aServiceNames; 340 } 341 342