xref: /aoo42x/main/sw/source/ui/vba/vbarange.cxx (revision efeef26f)
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 
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)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 
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)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 
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)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 
~SwVbaRange()57 SwVbaRange::~SwVbaRange()
58 {
59 }
60 
initialize(const uno::Reference<text::XTextRange> & rStart,const uno::Reference<text::XTextRange> & rEnd)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
getXTextRange()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
setXTextRange(const uno::Reference<text::XTextRange> & xRange)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
getText()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
setText(const rtl::OUString & rText)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
InsertBreak(const uno::Any & _breakType)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
Select()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
InsertParagraph()194 SwVbaRange::InsertParagraph() throw ( uno::RuntimeException )
195 {
196     mxTextCursor->setString( rtl::OUString( RTL_CONSTASCII_USTRINGPARAM("") ) );
197     InsertParagraphBefore();
198 }
199 
200 void SAL_CALL
InsertParagraphBefore()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
InsertParagraphAfter()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
getParagraphFormat()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
setParagraphFormat(const uno::Reference<word::XParagraphFormat> &)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
getStyle()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
setStyle(const uno::Reference<word::XStyle> & rStyle)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
getFont()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 
getLanguageID()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 
setLanguageID(::sal_Int32 _languageid)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
PageSetup()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 
getStart()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 
setStart(::sal_Int32 _start)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 
getEnd()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 
setEnd(::sal_Int32 _end)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&
getServiceImplName()324 SwVbaRange::getServiceImplName()
325 {
326 	static rtl::OUString sImplName( RTL_CONSTASCII_USTRINGPARAM("SwVbaRange") );
327 	return sImplName;
328 }
329 
330 uno::Sequence< rtl::OUString >
getServiceNames()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