Line data Source code
1 : /* -*- Mode: C++; tab-width: 4; indent-tabs-mode: nil; c-basic-offset: 4 -*- */
2 : /*
3 : * This file is part of the LibreOffice project.
4 : *
5 : * This Source Code Form is subject to the terms of the Mozilla Public
6 : * License, v. 2.0. If a copy of the MPL was not distributed with this
7 : * file, You can obtain one at http://mozilla.org/MPL/2.0/.
8 : *
9 : * This file incorporates work covered by the following license notice:
10 : *
11 : * Licensed to the Apache Software Foundation (ASF) under one or more
12 : * contributor license agreements. See the NOTICE file distributed
13 : * with this work for additional information regarding copyright
14 : * ownership. The ASF licenses this file to you under the Apache
15 : * License, Version 2.0 (the "License"); you may not use this file
16 : * except in compliance with the License. You may obtain a copy of
17 : * the License at http://www.apache.org/licenses/LICENSE-2.0 .
18 : */
19 : #include "vbalisthelper.hxx"
20 : #include <tools/diagnose_ex.h>
21 : #include <ooo/vba/word/WdListGalleryType.hpp>
22 : #include <com/sun/star/style/XStyleFamiliesSupplier.hpp>
23 : #include <com/sun/star/style/NumberingType.hpp>
24 : #include <com/sun/star/container/XIndexReplace.hpp>
25 :
26 : using namespace ::ooo::vba;
27 : using namespace ::com::sun::star;
28 :
29 : static const sal_Int32 LIST_LEVEL_COUNT = 9;
30 :
31 : static const char WORD_BULLET_GALLERY[] = "WdBullet";
32 : static const char WORD_NUMBER_GALLERY[] = "WdNumber";
33 : static const char WORD_OUTLINE_NUMBER_GALLERY[] = "WdOutlineNumber";
34 :
35 : static const char UNO_NAME_PARENT_NUMBERING[] = "ParentNumbering";
36 : static const char UNO_NAME_PREFIX[] = "Prefix";
37 : static const char UNO_NAME_SUFFIX[] = "Suffix";
38 : static const char UNO_NAME_CHAR_STYLE_NAME[] = "CharStyleName";
39 : static const char UNO_NAME_NUMBERING_TYPE[] = "NumberingType";
40 : static const char UNO_NAME_BULLET_CHAR[] = "BulletChar";
41 :
42 : static const sal_Int16 CHAR_CLOSED_DOT = 8226;
43 : static const sal_Int16 CHAR_EMPTY_DOT = 111;
44 : static const sal_Int16 CHAR_SQUARE = 9632;
45 : static const sal_Int16 CHAR_STAR_SYMBOL = 10026;
46 : static const sal_Int16 CHAR_FOUR_DIAMONDS = 10070;
47 : static const sal_Int16 CHAR_DIAMOND = 10022;
48 : static const sal_Int16 CHAR_ARROW = 10146;
49 : static const sal_Int16 CHAR_CHECK_MARK = 10003;
50 :
51 0 : SwVbaListHelper::SwVbaListHelper( const css::uno::Reference< css::text::XTextDocument >& xTextDoc, sal_Int32 nGalleryType, sal_Int32 nTemplateType ) throw( css::uno::RuntimeException ) : mxTextDocument( xTextDoc ), mnGalleryType( nGalleryType ), mnTemplateType( nTemplateType )
52 : {
53 0 : Init();
54 0 : }
55 :
56 0 : void SwVbaListHelper::Init() throw( css::uno::RuntimeException )
57 : {
58 : // set the numbering style name
59 0 : switch( mnGalleryType )
60 : {
61 : case word::WdListGalleryType::wdBulletGallery:
62 : {
63 0 : msStyleName = rtl::OUString(WORD_BULLET_GALLERY );
64 0 : break;
65 : }
66 : case word::WdListGalleryType::wdNumberGallery:
67 : {
68 0 : msStyleName = rtl::OUString(WORD_NUMBER_GALLERY );
69 0 : break;
70 : }
71 : case word::WdListGalleryType::wdOutlineNumberGallery:
72 : {
73 0 : msStyleName = rtl::OUString(WORD_OUTLINE_NUMBER_GALLERY );
74 0 : break;
75 : }
76 : default:
77 : {
78 0 : throw uno::RuntimeException();
79 : }
80 : }
81 0 : msStyleName += rtl::OUString::valueOf( mnTemplateType );
82 :
83 : // get the numbering style
84 0 : uno::Reference< style::XStyleFamiliesSupplier > xStyleSupplier( mxTextDocument, uno::UNO_QUERY_THROW );
85 0 : mxStyleFamily.set( xStyleSupplier->getStyleFamilies()->getByName(rtl::OUString( "NumberingStyles" ) ), uno::UNO_QUERY_THROW );
86 : OSL_TRACE("SwVbaListHelper::Init: numbering style name: %s", rtl::OUStringToOString( msStyleName, RTL_TEXTENCODING_UTF8 ).getStr() );
87 0 : if( mxStyleFamily->hasByName( msStyleName ) )
88 : {
89 0 : mxStyleProps.set( mxStyleFamily->getByName( msStyleName ), uno::UNO_QUERY_THROW );
90 0 : mxNumberingRules.set( mxStyleProps->getPropertyValue( rtl::OUString( "NumberingRules" ) ), uno::UNO_QUERY_THROW );
91 : }
92 : else
93 : {
94 : // create new numbering style
95 0 : uno::Reference< lang::XMultiServiceFactory > xDocMSF( mxTextDocument, uno::UNO_QUERY_THROW );
96 0 : mxStyleProps.set( xDocMSF->createInstance( rtl::OUString( "com.sun.star.style.NumberingStyle" ) ), uno::UNO_QUERY_THROW );
97 : // insert this style into style family, or the property NumberingRules doesn't exist.
98 0 : mxStyleFamily->insertByName( msStyleName, uno::makeAny( mxStyleProps ) );
99 0 : mxStyleProps->getPropertyValue( rtl::OUString( "NumberingRules" ) ) >>= mxNumberingRules;
100 :
101 0 : CreateListTemplate();
102 :
103 0 : mxStyleProps->setPropertyValue( rtl::OUString( "NumberingRules" ) , uno::makeAny( mxNumberingRules ) );
104 0 : }
105 0 : }
106 :
107 0 : void SwVbaListHelper::CreateListTemplate() throw( css::uno::RuntimeException )
108 : {
109 0 : switch( mnGalleryType )
110 : {
111 : case word::WdListGalleryType::wdBulletGallery:
112 : {
113 0 : CreateBulletListTemplate();
114 0 : break;
115 : }
116 : case word::WdListGalleryType::wdNumberGallery:
117 : {
118 0 : CreateNumberListTemplate();
119 0 : break;
120 : }
121 : case word::WdListGalleryType::wdOutlineNumberGallery:
122 : {
123 0 : CreateOutlineNumberListTemplate();
124 0 : break;
125 : }
126 : default:
127 : {
128 0 : throw uno::RuntimeException();
129 : }
130 : }
131 0 : }
132 :
133 0 : void SwVbaListHelper::CreateBulletListTemplate() throw( css::uno::RuntimeException )
134 : {
135 : // there is only 1 level for each bullet list in MSWord
136 0 : sal_Int32 nLevel = 0;
137 0 : uno::Sequence< beans::PropertyValue > aPropertyValues;
138 0 : mxNumberingRules->getByIndex( nLevel ) >>= aPropertyValues;
139 0 : rtl::OUString sCharStyleName( "Bullet Symbols" );
140 0 : setOrAppendPropertyValue( aPropertyValues, rtl::OUString(UNO_NAME_CHAR_STYLE_NAME ), uno::makeAny( sCharStyleName ) );
141 0 : sal_Int16 nNumberingType = style::NumberingType::CHAR_SPECIAL;
142 0 : setOrAppendPropertyValue( aPropertyValues, rtl::OUString(UNO_NAME_NUMBERING_TYPE ), uno::makeAny( nNumberingType ) );
143 :
144 0 : rtl::OUString aBulletChar;
145 0 : switch( mnTemplateType )
146 : {
147 : case 1:
148 : {
149 0 : aBulletChar = rtl::OUString( sal_Unicode( CHAR_CLOSED_DOT ) );
150 0 : break;
151 : }
152 : case 2:
153 : {
154 0 : aBulletChar = rtl::OUString( sal_Unicode( CHAR_EMPTY_DOT ) );
155 0 : break;
156 : }
157 : case 3:
158 : {
159 0 : aBulletChar = rtl::OUString( sal_Unicode( CHAR_SQUARE ) );
160 0 : break;
161 : }
162 : case 4:
163 : {
164 0 : aBulletChar = rtl::OUString( sal_Unicode( CHAR_STAR_SYMBOL ) );
165 0 : break;
166 : }
167 : case 5:
168 : {
169 0 : aBulletChar = rtl::OUString( sal_Unicode( CHAR_FOUR_DIAMONDS ) );
170 0 : break;
171 : }
172 : case 6:
173 : {
174 0 : aBulletChar = rtl::OUString( sal_Unicode( CHAR_ARROW ) );
175 0 : break;
176 : }
177 : case 7:
178 : {
179 0 : aBulletChar = rtl::OUString( sal_Unicode( CHAR_CHECK_MARK ) );
180 0 : break;
181 : }
182 : default:
183 : {
184 : // we only support 7 types template now
185 0 : throw css::uno::RuntimeException();
186 : }
187 : }
188 0 : setOrAppendPropertyValue( aPropertyValues, rtl::OUString(UNO_NAME_BULLET_CHAR ), uno::makeAny( aBulletChar ) );
189 :
190 0 : mxNumberingRules->replaceByIndex( nLevel, uno::makeAny( aPropertyValues ) );
191 0 : }
192 :
193 0 : void SwVbaListHelper::CreateNumberListTemplate() throw( css::uno::RuntimeException )
194 : {
195 : // there is only 1 level for each bullet list in MSWord
196 0 : sal_Int32 nLevel = 0;
197 0 : uno::Sequence< beans::PropertyValue > aPropertyValues;
198 0 : mxNumberingRules->getByIndex( nLevel ) >>= aPropertyValues;
199 :
200 0 : sal_Int16 nNumberingType = 0;
201 0 : rtl::OUString sSuffix;
202 0 : switch( mnTemplateType )
203 : {
204 : case 1:
205 : {
206 0 : nNumberingType = style::NumberingType::ARABIC;
207 0 : sSuffix = rtl::OUString::valueOf( sal_Unicode('.') );
208 0 : break;
209 : }
210 : case 2:
211 : {
212 0 : nNumberingType = style::NumberingType::ARABIC;
213 0 : sSuffix = rtl::OUString::valueOf( sal_Unicode(')') );
214 0 : break;
215 : }
216 : case 3:
217 : {
218 0 : nNumberingType = style::NumberingType::ROMAN_UPPER;
219 0 : sSuffix = rtl::OUString::valueOf( sal_Unicode('.') );
220 0 : break;
221 : }
222 : case 4:
223 : {
224 0 : nNumberingType = style::NumberingType::CHARS_UPPER_LETTER;
225 0 : sSuffix = rtl::OUString::valueOf( sal_Unicode('.') );
226 0 : break;
227 : }
228 : case 5:
229 : {
230 0 : nNumberingType = style::NumberingType::CHARS_LOWER_LETTER;
231 0 : sSuffix = rtl::OUString::valueOf( sal_Unicode(')') );
232 0 : break;
233 : }
234 : case 6:
235 : {
236 0 : nNumberingType = style::NumberingType::CHARS_LOWER_LETTER;
237 0 : sSuffix = rtl::OUString::valueOf( sal_Unicode('.') );
238 0 : break;
239 : }
240 : case 7:
241 : {
242 0 : nNumberingType = style::NumberingType::ROMAN_LOWER;
243 0 : sSuffix = rtl::OUString::valueOf( sal_Unicode('.') );
244 0 : break;
245 : }
246 : default:
247 : {
248 : // we only support 7 types template now
249 0 : throw css::uno::RuntimeException();
250 : }
251 : }
252 0 : setOrAppendPropertyValue( aPropertyValues, rtl::OUString(UNO_NAME_NUMBERING_TYPE ), uno::makeAny( nNumberingType ) );
253 0 : setOrAppendPropertyValue( aPropertyValues, rtl::OUString(UNO_NAME_SUFFIX ), uno::makeAny( sSuffix ) );
254 :
255 0 : mxNumberingRules->replaceByIndex( nLevel, uno::makeAny( aPropertyValues ) );
256 0 : }
257 :
258 0 : void SwVbaListHelper::CreateOutlineNumberListTemplate() throw( css::uno::RuntimeException )
259 : {
260 0 : switch( mnTemplateType )
261 : {
262 : case 1:
263 : {
264 0 : CreateOutlineNumberForType1();
265 0 : break;
266 : }
267 : case 2:
268 : {
269 0 : CreateOutlineNumberForType2();
270 0 : break;
271 : }
272 : case 3:
273 : {
274 0 : CreateOutlineNumberForType3();
275 0 : break;
276 : }
277 : case 4:
278 : {
279 0 : CreateOutlineNumberForType4();
280 0 : break;
281 : }
282 : case 5:
283 : {
284 0 : CreateOutlineNumberForType5();
285 0 : break;
286 : }
287 : case 6:
288 : {
289 0 : CreateOutlineNumberForType6();
290 0 : break;
291 : }
292 : case 7:
293 : {
294 0 : CreateOutlineNumberForType7();
295 0 : break;
296 : }
297 : default:
298 : {
299 : // we only support 7 types template now
300 0 : throw css::uno::RuntimeException();
301 : }
302 : }
303 0 : }
304 :
305 0 : void SwVbaListHelper::CreateOutlineNumberForType1() throw( css::uno::RuntimeException )
306 : {
307 0 : sal_Int16 nNumberingType = 0;
308 0 : rtl::OUString sPrefix;
309 0 : rtl::OUString sSuffix;
310 0 : uno::Sequence< beans::PropertyValue > aPropertyValues;
311 :
312 0 : for( sal_Int32 nLevel = 0; nLevel < LIST_LEVEL_COUNT; nLevel++ )
313 : {
314 0 : mxNumberingRules->getByIndex( nLevel ) >>= aPropertyValues;
315 0 : switch( nLevel )
316 : {
317 : case 0:
318 : case 1:
319 : {
320 0 : nNumberingType = style::NumberingType::ARABIC;
321 0 : sPrefix = rtl::OUString();
322 0 : sSuffix = rtl::OUString::valueOf( sal_Unicode(')') );
323 0 : break;
324 : }
325 : case 2:
326 : {
327 0 : nNumberingType = style::NumberingType::ROMAN_LOWER;
328 0 : sPrefix = rtl::OUString();
329 0 : sSuffix = rtl::OUString::valueOf( sal_Unicode(')') );
330 0 : break;
331 : }
332 : case 3:
333 : {
334 0 : nNumberingType = style::NumberingType::ARABIC;
335 0 : sPrefix = rtl::OUString::valueOf( sal_Unicode('(') );
336 0 : sSuffix = rtl::OUString::valueOf( sal_Unicode(')') );
337 0 : break;
338 : }
339 : case 4:
340 : {
341 0 : nNumberingType = style::NumberingType::CHARS_LOWER_LETTER;
342 0 : sPrefix = rtl::OUString::valueOf( sal_Unicode('(') );
343 0 : sSuffix = rtl::OUString::valueOf( sal_Unicode(')') );
344 0 : break;
345 : }
346 : case 5:
347 : {
348 0 : nNumberingType = style::NumberingType::ROMAN_LOWER;
349 0 : sPrefix = rtl::OUString::valueOf( sal_Unicode('(') );
350 0 : sSuffix = rtl::OUString::valueOf( sal_Unicode(')') );
351 0 : break;
352 : }
353 : case 6:
354 : {
355 0 : nNumberingType = style::NumberingType::ARABIC;
356 0 : sPrefix = rtl::OUString();
357 0 : sSuffix = rtl::OUString::valueOf( sal_Unicode('.') );
358 0 : break;
359 : }
360 : case 7:
361 : {
362 0 : nNumberingType = style::NumberingType::CHARS_LOWER_LETTER;
363 0 : sPrefix = rtl::OUString();
364 0 : sSuffix = rtl::OUString::valueOf( sal_Unicode('.') );
365 0 : break;
366 : }
367 : case 8:
368 : {
369 0 : nNumberingType = style::NumberingType::ROMAN_LOWER;
370 0 : sPrefix = rtl::OUString();
371 0 : sSuffix = rtl::OUString::valueOf( sal_Unicode('.') );
372 0 : break;
373 : }
374 : default:
375 : {
376 0 : throw uno::RuntimeException();
377 : }
378 : }
379 0 : setOrAppendPropertyValue( aPropertyValues, rtl::OUString(UNO_NAME_NUMBERING_TYPE ), uno::makeAny( nNumberingType ) );
380 0 : setOrAppendPropertyValue( aPropertyValues, rtl::OUString(UNO_NAME_PREFIX ), uno::makeAny( sPrefix ) );
381 0 : setOrAppendPropertyValue( aPropertyValues, rtl::OUString(UNO_NAME_SUFFIX ), uno::makeAny( sSuffix ) );
382 0 : mxNumberingRules->replaceByIndex( nLevel, uno::makeAny( aPropertyValues ) );
383 0 : }
384 0 : }
385 :
386 0 : void SwVbaListHelper::CreateOutlineNumberForType2() throw( css::uno::RuntimeException )
387 : {
388 0 : sal_Int16 nNumberingType = style::NumberingType::ARABIC;
389 0 : sal_Int16 nParentNumbering = 0;
390 0 : rtl::OUString sSuffix = rtl::OUString::valueOf( sal_Unicode('.') );
391 0 : uno::Sequence< beans::PropertyValue > aPropertyValues;
392 :
393 0 : for( sal_Int32 nLevel = 0; nLevel < LIST_LEVEL_COUNT; nLevel++ )
394 : {
395 0 : mxNumberingRules->getByIndex( nLevel ) >>= aPropertyValues;
396 0 : setOrAppendPropertyValue( aPropertyValues, rtl::OUString(UNO_NAME_NUMBERING_TYPE ), uno::makeAny( nNumberingType ) );
397 0 : setOrAppendPropertyValue( aPropertyValues, rtl::OUString(UNO_NAME_SUFFIX ), uno::makeAny( sSuffix ) );
398 0 : if( nLevel != 0 )
399 : {
400 0 : nParentNumbering = sal_Int16( nLevel - 1 );
401 0 : setOrAppendPropertyValue( aPropertyValues, rtl::OUString(UNO_NAME_PARENT_NUMBERING ), uno::makeAny( nParentNumbering ) );
402 : }
403 0 : mxNumberingRules->replaceByIndex( nLevel, uno::makeAny( aPropertyValues ) );
404 0 : }
405 0 : }
406 :
407 0 : void SwVbaListHelper::CreateOutlineNumberForType3() throw( css::uno::RuntimeException )
408 : {
409 0 : sal_Int16 nNumberingType = style::NumberingType::CHAR_SPECIAL;
410 0 : rtl::OUString sCharStyleName( "Bullet Symbols" );
411 0 : rtl::OUString aBulletChar;
412 0 : uno::Sequence< beans::PropertyValue > aPropertyValues;
413 :
414 0 : for( sal_Int32 nLevel = 0; nLevel < LIST_LEVEL_COUNT; nLevel++ )
415 : {
416 0 : mxNumberingRules->getByIndex( nLevel ) >>= aPropertyValues;
417 0 : setOrAppendPropertyValue( aPropertyValues, rtl::OUString(UNO_NAME_NUMBERING_TYPE ), uno::makeAny( nNumberingType ) );
418 0 : setOrAppendPropertyValue( aPropertyValues, rtl::OUString(UNO_NAME_CHAR_STYLE_NAME ), uno::makeAny( sCharStyleName ) );
419 0 : switch( nLevel )
420 : {
421 : case 0:
422 : {
423 0 : aBulletChar = rtl::OUString( sal_Unicode( CHAR_FOUR_DIAMONDS ) );
424 0 : break;
425 : }
426 : case 1:
427 : case 5:
428 : {
429 0 : aBulletChar = rtl::OUString( sal_Unicode( CHAR_ARROW ) );
430 0 : break;
431 : }
432 : case 2:
433 : case 6:
434 : {
435 0 : aBulletChar = rtl::OUString( sal_Unicode( CHAR_SQUARE ) );
436 0 : break;
437 : }
438 : case 3:
439 : case 7:
440 : {
441 0 : aBulletChar = rtl::OUString( sal_Unicode( CHAR_CLOSED_DOT ) );
442 0 : break;
443 : }
444 : case 4:
445 : case 8:
446 : {
447 0 : aBulletChar = rtl::OUString( sal_Unicode( CHAR_DIAMOND ) );
448 0 : break;
449 : }
450 : default:
451 : {
452 0 : throw uno::RuntimeException();
453 : }
454 : }
455 0 : setOrAppendPropertyValue( aPropertyValues, rtl::OUString(UNO_NAME_BULLET_CHAR ), uno::makeAny( aBulletChar ) );
456 0 : mxNumberingRules->replaceByIndex( nLevel, uno::makeAny( aPropertyValues ) );
457 0 : }
458 0 : }
459 :
460 0 : void SwVbaListHelper::CreateOutlineNumberForType4() throw( css::uno::RuntimeException )
461 : {
462 0 : sal_Int16 nNumberingType = 0;
463 0 : rtl::OUString sPrefix;
464 0 : rtl::OUString sSuffix;
465 0 : uno::Sequence< beans::PropertyValue > aPropertyValues;
466 :
467 0 : for( sal_Int32 nLevel = 0; nLevel < LIST_LEVEL_COUNT; nLevel++ )
468 : {
469 0 : mxNumberingRules->getByIndex( nLevel ) >>= aPropertyValues;
470 0 : switch( nLevel )
471 : {
472 : case 0:
473 : {
474 0 : nNumberingType = style::NumberingType::ROMAN_UPPER;
475 0 : sPrefix = rtl::OUString();
476 0 : sSuffix = rtl::OUString::valueOf( sal_Unicode('.') );
477 0 : break;
478 : }
479 : case 1:
480 : {
481 0 : nNumberingType = style::NumberingType::ARABIC;
482 0 : sPrefix = rtl::OUString();
483 0 : sSuffix = rtl::OUString::valueOf( sal_Unicode('.') );
484 0 : sal_Int16 nParentNumbering = 0;
485 0 : setOrAppendPropertyValue( aPropertyValues, rtl::OUString(UNO_NAME_PARENT_NUMBERING ), uno::makeAny( nParentNumbering ) );
486 : break;
487 : }
488 : case 2:
489 : {
490 0 : nNumberingType = style::NumberingType::CHARS_LOWER_LETTER;
491 0 : sPrefix = rtl::OUString::valueOf( sal_Unicode('(') );
492 0 : sSuffix = rtl::OUString::valueOf( sal_Unicode(')') );
493 0 : break;
494 : }
495 : case 3:
496 : {
497 0 : nNumberingType = style::NumberingType::ROMAN_LOWER;
498 0 : sPrefix = rtl::OUString::valueOf( sal_Unicode('(') );
499 0 : sSuffix = rtl::OUString::valueOf( sal_Unicode(')') );
500 0 : break;
501 : }
502 : case 4:
503 : {
504 0 : nNumberingType = style::NumberingType::ARABIC;
505 0 : sPrefix = rtl::OUString();
506 0 : sSuffix = rtl::OUString::valueOf( sal_Unicode(')') );
507 0 : break;
508 : }
509 : case 5:
510 : {
511 0 : nNumberingType = style::NumberingType::CHARS_LOWER_LETTER;
512 0 : sPrefix = rtl::OUString();
513 0 : sSuffix = rtl::OUString::valueOf( sal_Unicode(')') );
514 0 : break;
515 : }
516 : case 6:
517 : {
518 0 : nNumberingType = style::NumberingType::ROMAN_LOWER;
519 0 : sPrefix = rtl::OUString();
520 0 : sSuffix = rtl::OUString::valueOf( sal_Unicode(')') );
521 0 : break;
522 : }
523 : case 7:
524 : {
525 0 : nNumberingType = style::NumberingType::CHARS_LOWER_LETTER;
526 0 : sPrefix = rtl::OUString();
527 0 : sSuffix = rtl::OUString::valueOf( sal_Unicode('.') );
528 0 : break;
529 : }
530 : case 8:
531 : {
532 0 : nNumberingType = style::NumberingType::ROMAN_LOWER;
533 0 : sPrefix = rtl::OUString();
534 0 : sSuffix = rtl::OUString::valueOf( sal_Unicode('.') );
535 0 : break;
536 : }
537 : default:
538 : {
539 0 : throw uno::RuntimeException();
540 : }
541 : }
542 0 : setOrAppendPropertyValue( aPropertyValues, rtl::OUString(UNO_NAME_NUMBERING_TYPE ), uno::makeAny( nNumberingType ) );
543 0 : setOrAppendPropertyValue( aPropertyValues, rtl::OUString(UNO_NAME_PREFIX ), uno::makeAny( sPrefix ) );
544 0 : setOrAppendPropertyValue( aPropertyValues, rtl::OUString(UNO_NAME_SUFFIX ), uno::makeAny( sSuffix ) );
545 0 : mxNumberingRules->replaceByIndex( nLevel, uno::makeAny( aPropertyValues ) );
546 0 : }
547 0 : }
548 :
549 0 : void SwVbaListHelper::CreateOutlineNumberForType5() throw( css::uno::RuntimeException )
550 : {
551 0 : sal_Int16 nNumberingType = style::NumberingType::ARABIC;
552 0 : sal_Int16 nParentNumbering = 0;
553 0 : uno::Sequence< beans::PropertyValue > aPropertyValues;
554 :
555 0 : for( sal_Int32 nLevel = 0; nLevel < LIST_LEVEL_COUNT; nLevel++ )
556 : {
557 0 : mxNumberingRules->getByIndex( nLevel ) >>= aPropertyValues;
558 0 : setOrAppendPropertyValue( aPropertyValues, rtl::OUString(UNO_NAME_NUMBERING_TYPE ), uno::makeAny( nNumberingType ) );
559 0 : if( nLevel != 0 )
560 : {
561 0 : nParentNumbering = sal_Int16( nLevel - 1 );
562 0 : setOrAppendPropertyValue( aPropertyValues, rtl::OUString(UNO_NAME_PARENT_NUMBERING ), uno::makeAny( nParentNumbering ) );
563 : }
564 0 : mxNumberingRules->replaceByIndex( nLevel, uno::makeAny( aPropertyValues ) );
565 0 : }
566 0 : }
567 :
568 0 : void SwVbaListHelper::CreateOutlineNumberForType6() throw( css::uno::RuntimeException )
569 : {
570 0 : sal_Int16 nNumberingType = 0;
571 0 : rtl::OUString sPrefix;
572 0 : rtl::OUString sSuffix;
573 0 : uno::Sequence< beans::PropertyValue > aPropertyValues;
574 :
575 0 : for( sal_Int32 nLevel = 0; nLevel < LIST_LEVEL_COUNT; nLevel++ )
576 : {
577 0 : mxNumberingRules->getByIndex( nLevel ) >>= aPropertyValues;
578 0 : switch( nLevel )
579 : {
580 : case 0:
581 : {
582 0 : nNumberingType = style::NumberingType::ROMAN_UPPER;
583 0 : sPrefix = rtl::OUString();
584 0 : sSuffix = rtl::OUString::valueOf( sal_Unicode('.') );
585 0 : break;
586 : }
587 : case 1:
588 : {
589 0 : nNumberingType = style::NumberingType::CHARS_UPPER_LETTER;
590 0 : sPrefix = rtl::OUString();
591 0 : sSuffix = rtl::OUString::valueOf( sal_Unicode('.') );
592 0 : break;
593 : }
594 : case 2:
595 : {
596 0 : nNumberingType = style::NumberingType::ARABIC;
597 0 : sPrefix = rtl::OUString();
598 0 : sSuffix = rtl::OUString::valueOf( sal_Unicode(')') );
599 0 : break;
600 : }
601 : case 3:
602 : {
603 0 : nNumberingType = style::NumberingType::CHARS_LOWER_LETTER;
604 0 : sPrefix = rtl::OUString();
605 0 : sSuffix = rtl::OUString::valueOf( sal_Unicode(')') );
606 0 : break;
607 : }
608 : case 4:
609 : {
610 0 : nNumberingType = style::NumberingType::ARABIC;
611 0 : sPrefix = rtl::OUString::valueOf( sal_Unicode('(') );
612 0 : sSuffix = rtl::OUString::valueOf( sal_Unicode(')') );
613 0 : break;
614 : }
615 : case 5:
616 : {
617 0 : nNumberingType = style::NumberingType::CHARS_LOWER_LETTER;
618 0 : sPrefix = rtl::OUString::valueOf( sal_Unicode('(') );
619 0 : sSuffix = rtl::OUString::valueOf( sal_Unicode(')') );
620 0 : break;
621 : }
622 : case 6:
623 : {
624 0 : nNumberingType = style::NumberingType::ROMAN_LOWER;
625 0 : sPrefix = rtl::OUString::valueOf( sal_Unicode('(') );
626 0 : sSuffix = rtl::OUString::valueOf( sal_Unicode(')') );
627 0 : break;
628 : }
629 : case 7:
630 : {
631 0 : nNumberingType = style::NumberingType::CHARS_LOWER_LETTER;
632 0 : sPrefix = rtl::OUString::valueOf( sal_Unicode('(') );
633 0 : sSuffix = rtl::OUString::valueOf( sal_Unicode('.') );
634 0 : break;
635 : }
636 : case 8:
637 : {
638 0 : nNumberingType = style::NumberingType::ROMAN_LOWER;
639 0 : sPrefix = rtl::OUString::valueOf( sal_Unicode('(') );
640 0 : sSuffix = rtl::OUString::valueOf( sal_Unicode('.') );
641 0 : break;
642 : }
643 : default:
644 : {
645 0 : throw uno::RuntimeException();
646 : }
647 : }
648 0 : setOrAppendPropertyValue( aPropertyValues, rtl::OUString(UNO_NAME_NUMBERING_TYPE ), uno::makeAny( nNumberingType ) );
649 0 : setOrAppendPropertyValue( aPropertyValues, rtl::OUString(UNO_NAME_PREFIX ), uno::makeAny( sPrefix ) );
650 0 : setOrAppendPropertyValue( aPropertyValues, rtl::OUString(UNO_NAME_SUFFIX ), uno::makeAny( sSuffix ) );
651 0 : mxNumberingRules->replaceByIndex( nLevel, uno::makeAny( aPropertyValues ) );
652 0 : }
653 0 : }
654 :
655 0 : void SwVbaListHelper::CreateOutlineNumberForType7() throw( css::uno::RuntimeException )
656 : {
657 0 : sal_Int16 nNumberingType = style::NumberingType::ARABIC;
658 0 : uno::Sequence< beans::PropertyValue > aPropertyValues;
659 0 : rtl::OUString sPrefix("Chapter ");
660 :
661 0 : for( sal_Int32 nLevel = 0; nLevel < LIST_LEVEL_COUNT; nLevel++ )
662 : {
663 0 : mxNumberingRules->getByIndex( nLevel ) >>= aPropertyValues;
664 0 : setOrAppendPropertyValue( aPropertyValues, rtl::OUString(UNO_NAME_NUMBERING_TYPE ), uno::makeAny( nNumberingType ) );
665 0 : setOrAppendPropertyValue( aPropertyValues, rtl::OUString(UNO_NAME_PREFIX ), uno::makeAny( sPrefix ) );
666 0 : mxNumberingRules->replaceByIndex( nLevel, uno::makeAny( aPropertyValues ) );
667 0 : }
668 0 : }
669 :
670 0 : uno::Any SwVbaListHelper::getPropertyValueWithNameAndLevel( sal_Int32 nLevel, const rtl::OUString& sName ) throw( css::uno::RuntimeException )
671 : {
672 0 : uno::Sequence< beans::PropertyValue > aPropertyValues;
673 0 : mxNumberingRules->getByIndex( nLevel ) >>= aPropertyValues;
674 0 : return getPropertyValue( aPropertyValues, sName );
675 : }
676 :
677 0 : void SwVbaListHelper::setPropertyValueWithNameAndLevel( sal_Int32 nLevel, const rtl::OUString& sName, const css::uno::Any& aValue ) throw( css::uno::RuntimeException )
678 : {
679 0 : uno::Sequence< beans::PropertyValue > aPropertyValues;
680 0 : mxNumberingRules->getByIndex( nLevel ) >>= aPropertyValues;
681 0 : setOrAppendPropertyValue( aPropertyValues, sName, aValue );
682 0 : mxNumberingRules->replaceByIndex( nLevel, uno::makeAny( aPropertyValues ) );
683 0 : mxStyleProps->setPropertyValue( rtl::OUString( "NumberingRules" ) , uno::makeAny( mxNumberingRules ) );
684 0 : }
685 :
686 : /* vim:set shiftwidth=4 softtabstop=4 expandtab: */
|
