mir/libreoffice
2
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity
Files
bda200348566da71ae7ec346108bc6a00c22bf12
libreoffice/sw/source/ui/vba/vbalisthelper.cxx
Michael Meeks caaeb0a046 re-base on ALv2 code. Includes: 
Patches contributed by Oliver-Rainer Wittmann
    sw34bf06: #i117783# - Writer's implementation of XPagePrintable -
    apply print settings to new printing routines
    http://svn.apache.org/viewvc?view=revision&revision=1172115
    sw34bf06: #o12311627# use <rtl_random> methods to
    create unique ids for list styles and list ids
    http://svn.apache.org/viewvc?view=revision&revision=1172112
    sw34bf06 #i114725#,#i115828# - method <SwDoc::ClearDoc()> -
    clear list structures completely
    http://svn.apache.org/viewvc?view=revision&revision=1172122
    i#118572 - remove ui string and help content regarding usage of
    Java Mail in Writer's Mail Merge as Java Mail is not used.
    http://svn.apache.org/viewvc?view=revision&revision=1197035

    Patches contributed by Mathias Bauer
    cws mba34issues01: #i117718#: provide filter name in
    case storage of medium does not allow to detect one
    http://svn.apache.org/viewvc?view=revision&revision=1172350
    cws mba34issues01: #i117721#: directly provide
    parameters retrieved from SfxMedium
    http://svn.apache.org/viewvc?view=revision&revision=1172353
    gnumake4 work variously
    http://svn.apache.org/viewvc?view=revision&revision=1394707
    http://svn.apache.org/viewvc?view=revision&revision=1394326
    http://svn.apache.org/viewvc?view=revision&revision=1396797
    http://svn.apache.org/viewvc?view=revision&revision=1397315
    cws mba34issues01: #i117723#: convert assertion into trace
    http://svn.apache.org/viewvc?view=revision&revision=1172355
    cws mba34issues01: #i117699#: keep layout alive until swdoc dies
    http://svn.apache.org/viewvc?view=revision&revision=1172362
    cws mba34issues01: #i117943#: missing color attributes in RTF clipboard
    http://svn.apache.org/viewvc?view=revision&revision=1172363

    Patch contributed by Henning Brinkmann
    imported patch i#103878
    http://svn.apache.org/viewvc?view=revision&revision=1172109

    Patches contributed by Michael Stahl
    sw34bf06: #i117955#: WW8 export: disable storing of section breaks in endnotes
    http://svn.apache.org/viewvc?view=revision&revision=1172119

    Patch contributed by imacat
    Fixed the Asian language work count.
    http://svn.apache.org/viewvc?view=revision&revision=1241345

    Patch contributed by Pedro Giffuni
    i#20878 - Add comment with BZ issue for reference.
    http://svn.apache.org/viewvc?view=revision&revision=1244517

    Patch contributed by Andre Fischer
    Do not add targets for junit tests when junit is disabled.
    http://svn.apache.org/viewvc?view=revision&revision=1241508

add writerperfect dependency.
2012-11-30 10:10:38 +00:00

687 lines
25 KiB
C++
Raw Blame History

/* -*- Mode: C++; tab-width: 4; indent-tabs-mode: nil; c-basic-offset: 4 -*- */
/*
* This file is part of the LibreOffice project.
*
* This Source Code Form is subject to the terms of the Mozilla Public
* License, v. 2.0. If a copy of the MPL was not distributed with this
* file, You can obtain one at http://mozilla.org/MPL/2.0/.
*
* This file incorporates work covered by the following license notice:
*
* Licensed to the Apache Software Foundation (ASF) under one or more
* contributor license agreements. See the NOTICE file distributed
* with this work for additional information regarding copyright
* ownership. The ASF licenses this file to you under the Apache
* License, Version 2.0 (the "License"); you may not use this file
* except in compliance with the License. You may obtain a copy of
* the License at http://www.apache.org/licenses/LICENSE-2.0 .
*/
#include "vbalisthelper.hxx"
#include <tools/diagnose_ex.h>
#include <ooo/vba/word/WdListGalleryType.hpp>
#include <com/sun/star/style/XStyleFamiliesSupplier.hpp>
#include <com/sun/star/style/NumberingType.hpp>
#include <com/sun/star/container/XIndexReplace.hpp>
using namespace ::ooo::vba;
using namespace ::com::sun::star;
static const sal_Int32 LIST_LEVEL_COUNT = 9;
static const char WORD_BULLET_GALLERY[] = "WdBullet";
static const char WORD_NUMBER_GALLERY[] = "WdNumber";
static const char WORD_OUTLINE_NUMBER_GALLERY[] = "WdOutlineNumber";
static const char UNO_NAME_PARENT_NUMBERING[] = "ParentNumbering";
static const char UNO_NAME_PREFIX[] = "Prefix";
static const char UNO_NAME_SUFFIX[] = "Suffix";
static const char UNO_NAME_CHAR_STYLE_NAME[] = "CharStyleName";
static const char UNO_NAME_NUMBERING_TYPE[] = "NumberingType";
static const char UNO_NAME_BULLET_CHAR[] = "BulletChar";
static const sal_Int16 CHAR_CLOSED_DOT = 8226;
static const sal_Int16 CHAR_EMPTY_DOT = 111;
static const sal_Int16 CHAR_SQUARE = 9632;
static const sal_Int16 CHAR_STAR_SYMBOL = 10026;
static const sal_Int16 CHAR_FOUR_DIAMONDS = 10070;
static const sal_Int16 CHAR_DIAMOND = 10022;
static const sal_Int16 CHAR_ARROW = 10146;
static const sal_Int16 CHAR_CHECK_MARK = 10003;
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 )
{
Init();
}
void SwVbaListHelper::Init() throw( css::uno::RuntimeException )
{
// set the numbering style name
switch( mnGalleryType )
{
case word::WdListGalleryType::wdBulletGallery:
{
msStyleName = rtl::OUString(WORD_BULLET_GALLERY );
break;
}
case word::WdListGalleryType::wdNumberGallery:
{
msStyleName = rtl::OUString(WORD_NUMBER_GALLERY );
break;
}
case word::WdListGalleryType::wdOutlineNumberGallery:
{
msStyleName = rtl::OUString(WORD_OUTLINE_NUMBER_GALLERY );
break;
}
default:
{
throw uno::RuntimeException();
}
}
msStyleName += rtl::OUString::valueOf( mnTemplateType );
// get the numbering style
uno::Reference< style::XStyleFamiliesSupplier > xStyleSupplier( mxTextDocument, uno::UNO_QUERY_THROW );
mxStyleFamily.set( xStyleSupplier->getStyleFamilies()->getByName(rtl::OUString( "NumberingStyles" ) ), uno::UNO_QUERY_THROW );
OSL_TRACE("SwVbaListHelper::Init: numbering style name: %s", rtl::OUStringToOString( msStyleName, RTL_TEXTENCODING_UTF8 ).getStr() );
if( mxStyleFamily->hasByName( msStyleName ) )
{
mxStyleProps.set( mxStyleFamily->getByName( msStyleName ), uno::UNO_QUERY_THROW );
mxNumberingRules.set( mxStyleProps->getPropertyValue( rtl::OUString( "NumberingRules" ) ), uno::UNO_QUERY_THROW );
}
else
{
// create new numbering style
uno::Reference< lang::XMultiServiceFactory > xDocMSF( mxTextDocument, uno::UNO_QUERY_THROW );
mxStyleProps.set( xDocMSF->createInstance( rtl::OUString( "com.sun.star.style.NumberingStyle" ) ), uno::UNO_QUERY_THROW );
// insert this style into style family, or the property NumberingRules doesn't exist.
mxStyleFamily->insertByName( msStyleName, uno::makeAny( mxStyleProps ) );
mxStyleProps->getPropertyValue( rtl::OUString( "NumberingRules" ) ) >>= mxNumberingRules;
CreateListTemplate();
mxStyleProps->setPropertyValue( rtl::OUString( "NumberingRules" ) , uno::makeAny( mxNumberingRules ) );
}
}
void SwVbaListHelper::CreateListTemplate() throw( css::uno::RuntimeException )
{
switch( mnGalleryType )
{
case word::WdListGalleryType::wdBulletGallery:
{
CreateBulletListTemplate();
break;
}
case word::WdListGalleryType::wdNumberGallery:
{
CreateNumberListTemplate();
break;
}
case word::WdListGalleryType::wdOutlineNumberGallery:
{
CreateOutlineNumberListTemplate();
break;
}
default:
{
throw uno::RuntimeException();
}
}
}
void SwVbaListHelper::CreateBulletListTemplate() throw( css::uno::RuntimeException )
{
// there is only 1 level for each bullet list in MSWord
sal_Int32 nLevel = 0;
uno::Sequence< beans::PropertyValue > aPropertyValues;
mxNumberingRules->getByIndex( nLevel ) >>= aPropertyValues;
rtl::OUString sCharStyleName( "Bullet Symbols" );
setOrAppendPropertyValue( aPropertyValues, rtl::OUString(UNO_NAME_CHAR_STYLE_NAME ), uno::makeAny( sCharStyleName ) );
sal_Int16 nNumberingType = style::NumberingType::CHAR_SPECIAL;
setOrAppendPropertyValue( aPropertyValues, rtl::OUString(UNO_NAME_NUMBERING_TYPE ), uno::makeAny( nNumberingType ) );
rtl::OUString aBulletChar;
switch( mnTemplateType )
{
case 1:
{
aBulletChar = rtl::OUString( sal_Unicode( CHAR_CLOSED_DOT ) );
break;
}
case 2:
{
aBulletChar = rtl::OUString( sal_Unicode( CHAR_EMPTY_DOT ) );
break;
}
case 3:
{
aBulletChar = rtl::OUString( sal_Unicode( CHAR_SQUARE ) );
break;
}
case 4:
{
aBulletChar = rtl::OUString( sal_Unicode( CHAR_STAR_SYMBOL ) );
break;
}
case 5:
{
aBulletChar = rtl::OUString( sal_Unicode( CHAR_FOUR_DIAMONDS ) );
break;
}
case 6:
{
aBulletChar = rtl::OUString( sal_Unicode( CHAR_ARROW ) );
break;
}
case 7:
{
aBulletChar = rtl::OUString( sal_Unicode( CHAR_CHECK_MARK ) );
break;
}
default:
{
// we only support 7 types template now
throw css::uno::RuntimeException();
}
}
setOrAppendPropertyValue( aPropertyValues, rtl::OUString(UNO_NAME_BULLET_CHAR ), uno::makeAny( aBulletChar ) );
mxNumberingRules->replaceByIndex( nLevel, uno::makeAny( aPropertyValues ) );
}
void SwVbaListHelper::CreateNumberListTemplate() throw( css::uno::RuntimeException )
{
// there is only 1 level for each bullet list in MSWord
sal_Int32 nLevel = 0;
uno::Sequence< beans::PropertyValue > aPropertyValues;
mxNumberingRules->getByIndex( nLevel ) >>= aPropertyValues;
sal_Int16 nNumberingType = 0;
rtl::OUString sSuffix;
switch( mnTemplateType )
{
case 1:
{
nNumberingType = style::NumberingType::ARABIC;
sSuffix = rtl::OUString::valueOf( sal_Unicode('.') );
break;
}
case 2:
{
nNumberingType = style::NumberingType::ARABIC;
sSuffix = rtl::OUString::valueOf( sal_Unicode(')') );
break;
}
case 3:
{
nNumberingType = style::NumberingType::ROMAN_UPPER;
sSuffix = rtl::OUString::valueOf( sal_Unicode('.') );
break;
}
case 4:
{
nNumberingType = style::NumberingType::CHARS_UPPER_LETTER;
sSuffix = rtl::OUString::valueOf( sal_Unicode('.') );
break;
}
case 5:
{
nNumberingType = style::NumberingType::CHARS_LOWER_LETTER;
sSuffix = rtl::OUString::valueOf( sal_Unicode(')') );
break;
}
case 6:
{
nNumberingType = style::NumberingType::CHARS_LOWER_LETTER;
sSuffix = rtl::OUString::valueOf( sal_Unicode('.') );
break;
}
case 7:
{
nNumberingType = style::NumberingType::ROMAN_LOWER;
sSuffix = rtl::OUString::valueOf( sal_Unicode('.') );
break;
}
default:
{
// we only support 7 types template now
throw css::uno::RuntimeException();
}
}
setOrAppendPropertyValue( aPropertyValues, rtl::OUString(UNO_NAME_NUMBERING_TYPE ), uno::makeAny( nNumberingType ) );
setOrAppendPropertyValue( aPropertyValues, rtl::OUString(UNO_NAME_SUFFIX ), uno::makeAny( sSuffix ) );
mxNumberingRules->replaceByIndex( nLevel, uno::makeAny( aPropertyValues ) );
}
void SwVbaListHelper::CreateOutlineNumberListTemplate() throw( css::uno::RuntimeException )
{
switch( mnTemplateType )
{
case 1:
{
CreateOutlineNumberForType1();
break;
}
case 2:
{
CreateOutlineNumberForType2();
break;
}
case 3:
{
CreateOutlineNumberForType3();
break;
}
case 4:
{
CreateOutlineNumberForType4();
break;
}
case 5:
{
CreateOutlineNumberForType5();
break;
}
case 6:
{
CreateOutlineNumberForType6();
break;
}
case 7:
{
CreateOutlineNumberForType7();
break;
}
default:
{
// we only support 7 types template now
throw css::uno::RuntimeException();
}
}
}
void SwVbaListHelper::CreateOutlineNumberForType1() throw( css::uno::RuntimeException )
{
sal_Int16 nNumberingType = 0;
rtl::OUString sPrefix;
rtl::OUString sSuffix;
uno::Sequence< beans::PropertyValue > aPropertyValues;
for( sal_Int32 nLevel = 0; nLevel < LIST_LEVEL_COUNT; nLevel++ )
{
mxNumberingRules->getByIndex( nLevel ) >>= aPropertyValues;
switch( nLevel )
{
case 0:
case 1:
{
nNumberingType = style::NumberingType::ARABIC;
sPrefix = rtl::OUString();
sSuffix = rtl::OUString::valueOf( sal_Unicode(')') );
break;
}
case 2:
{
nNumberingType = style::NumberingType::ROMAN_LOWER;
sPrefix = rtl::OUString();
sSuffix = rtl::OUString::valueOf( sal_Unicode(')') );
break;
}
case 3:
{
nNumberingType = style::NumberingType::ARABIC;
sPrefix = rtl::OUString::valueOf( sal_Unicode('(') );
sSuffix = rtl::OUString::valueOf( sal_Unicode(')') );
break;
}
case 4:
{
nNumberingType = style::NumberingType::CHARS_LOWER_LETTER;
sPrefix = rtl::OUString::valueOf( sal_Unicode('(') );
sSuffix = rtl::OUString::valueOf( sal_Unicode(')') );
break;
}
case 5:
{
nNumberingType = style::NumberingType::ROMAN_LOWER;
sPrefix = rtl::OUString::valueOf( sal_Unicode('(') );
sSuffix = rtl::OUString::valueOf( sal_Unicode(')') );
break;
}
case 6:
{
nNumberingType = style::NumberingType::ARABIC;
sPrefix = rtl::OUString();
sSuffix = rtl::OUString::valueOf( sal_Unicode('.') );
break;
}
case 7:
{
nNumberingType = style::NumberingType::CHARS_LOWER_LETTER;
sPrefix = rtl::OUString();
sSuffix = rtl::OUString::valueOf( sal_Unicode('.') );
break;
}
case 8:
{
nNumberingType = style::NumberingType::ROMAN_LOWER;
sPrefix = rtl::OUString();
sSuffix = rtl::OUString::valueOf( sal_Unicode('.') );
break;
}
default:
{
throw uno::RuntimeException();
}
}
setOrAppendPropertyValue( aPropertyValues, rtl::OUString(UNO_NAME_NUMBERING_TYPE ), uno::makeAny( nNumberingType ) );
setOrAppendPropertyValue( aPropertyValues, rtl::OUString(UNO_NAME_PREFIX ), uno::makeAny( sPrefix ) );
setOrAppendPropertyValue( aPropertyValues, rtl::OUString(UNO_NAME_SUFFIX ), uno::makeAny( sSuffix ) );
mxNumberingRules->replaceByIndex( nLevel, uno::makeAny( aPropertyValues ) );
}
}
void SwVbaListHelper::CreateOutlineNumberForType2() throw( css::uno::RuntimeException )
{
sal_Int16 nNumberingType = style::NumberingType::ARABIC;
sal_Int16 nParentNumbering = 0;
rtl::OUString sSuffix = rtl::OUString::valueOf( sal_Unicode('.') );
uno::Sequence< beans::PropertyValue > aPropertyValues;
for( sal_Int32 nLevel = 0; nLevel < LIST_LEVEL_COUNT; nLevel++ )
{
mxNumberingRules->getByIndex( nLevel ) >>= aPropertyValues;
setOrAppendPropertyValue( aPropertyValues, rtl::OUString(UNO_NAME_NUMBERING_TYPE ), uno::makeAny( nNumberingType ) );
setOrAppendPropertyValue( aPropertyValues, rtl::OUString(UNO_NAME_SUFFIX ), uno::makeAny( sSuffix ) );
if( nLevel != 0 )
{
nParentNumbering = sal_Int16( nLevel - 1 );
setOrAppendPropertyValue( aPropertyValues, rtl::OUString(UNO_NAME_PARENT_NUMBERING ), uno::makeAny( nParentNumbering ) );
}
mxNumberingRules->replaceByIndex( nLevel, uno::makeAny( aPropertyValues ) );
}
}
void SwVbaListHelper::CreateOutlineNumberForType3() throw( css::uno::RuntimeException )
{
sal_Int16 nNumberingType = style::NumberingType::CHAR_SPECIAL;
rtl::OUString sCharStyleName( "Bullet Symbols" );
rtl::OUString aBulletChar;
uno::Sequence< beans::PropertyValue > aPropertyValues;
for( sal_Int32 nLevel = 0; nLevel < LIST_LEVEL_COUNT; nLevel++ )
{
mxNumberingRules->getByIndex( nLevel ) >>= aPropertyValues;
setOrAppendPropertyValue( aPropertyValues, rtl::OUString(UNO_NAME_NUMBERING_TYPE ), uno::makeAny( nNumberingType ) );
setOrAppendPropertyValue( aPropertyValues, rtl::OUString(UNO_NAME_CHAR_STYLE_NAME ), uno::makeAny( sCharStyleName ) );
switch( nLevel )
{
case 0:
{
aBulletChar = rtl::OUString( sal_Unicode( CHAR_FOUR_DIAMONDS ) );
break;
}
case 1:
case 5:
{
aBulletChar = rtl::OUString( sal_Unicode( CHAR_ARROW ) );
break;
}
case 2:
case 6:
{
aBulletChar = rtl::OUString( sal_Unicode( CHAR_SQUARE ) );
break;
}
case 3:
case 7:
{
aBulletChar = rtl::OUString( sal_Unicode( CHAR_CLOSED_DOT ) );
break;
}
case 4:
case 8:
{
aBulletChar = rtl::OUString( sal_Unicode( CHAR_DIAMOND ) );
break;
}
default:
{
throw uno::RuntimeException();
}
}
setOrAppendPropertyValue( aPropertyValues, rtl::OUString(UNO_NAME_BULLET_CHAR ), uno::makeAny( aBulletChar ) );
mxNumberingRules->replaceByIndex( nLevel, uno::makeAny( aPropertyValues ) );
}
}
void SwVbaListHelper::CreateOutlineNumberForType4() throw( css::uno::RuntimeException )
{
sal_Int16 nNumberingType = 0;
rtl::OUString sPrefix;
rtl::OUString sSuffix;
uno::Sequence< beans::PropertyValue > aPropertyValues;
for( sal_Int32 nLevel = 0; nLevel < LIST_LEVEL_COUNT; nLevel++ )
{
mxNumberingRules->getByIndex( nLevel ) >>= aPropertyValues;
switch( nLevel )
{
case 0:
{
nNumberingType = style::NumberingType::ROMAN_UPPER;
sPrefix = rtl::OUString();
sSuffix = rtl::OUString::valueOf( sal_Unicode('.') );
break;
}
case 1:
{
nNumberingType = style::NumberingType::ARABIC;
sPrefix = rtl::OUString();
sSuffix = rtl::OUString::valueOf( sal_Unicode('.') );
sal_Int16 nParentNumbering = 0;
setOrAppendPropertyValue( aPropertyValues, rtl::OUString(UNO_NAME_PARENT_NUMBERING ), uno::makeAny( nParentNumbering ) );
break;
}
case 2:
{
nNumberingType = style::NumberingType::CHARS_LOWER_LETTER;
sPrefix = rtl::OUString::valueOf( sal_Unicode('(') );
sSuffix = rtl::OUString::valueOf( sal_Unicode(')') );
break;
}
case 3:
{
nNumberingType = style::NumberingType::ROMAN_LOWER;
sPrefix = rtl::OUString::valueOf( sal_Unicode('(') );
sSuffix = rtl::OUString::valueOf( sal_Unicode(')') );
break;
}
case 4:
{
nNumberingType = style::NumberingType::ARABIC;
sPrefix = rtl::OUString();
sSuffix = rtl::OUString::valueOf( sal_Unicode(')') );
break;
}
case 5:
{
nNumberingType = style::NumberingType::CHARS_LOWER_LETTER;
sPrefix = rtl::OUString();
sSuffix = rtl::OUString::valueOf( sal_Unicode(')') );
break;
}
case 6:
{
nNumberingType = style::NumberingType::ROMAN_LOWER;
sPrefix = rtl::OUString();
sSuffix = rtl::OUString::valueOf( sal_Unicode(')') );
break;
}
case 7:
{
nNumberingType = style::NumberingType::CHARS_LOWER_LETTER;
sPrefix = rtl::OUString();
sSuffix = rtl::OUString::valueOf( sal_Unicode('.') );
break;
}
case 8:
{
nNumberingType = style::NumberingType::ROMAN_LOWER;
sPrefix = rtl::OUString();
sSuffix = rtl::OUString::valueOf( sal_Unicode('.') );
break;
}
default:
{
throw uno::RuntimeException();
}
}
setOrAppendPropertyValue( aPropertyValues, rtl::OUString(UNO_NAME_NUMBERING_TYPE ), uno::makeAny( nNumberingType ) );
setOrAppendPropertyValue( aPropertyValues, rtl::OUString(UNO_NAME_PREFIX ), uno::makeAny( sPrefix ) );
setOrAppendPropertyValue( aPropertyValues, rtl::OUString(UNO_NAME_SUFFIX ), uno::makeAny( sSuffix ) );
mxNumberingRules->replaceByIndex( nLevel, uno::makeAny( aPropertyValues ) );
}
}
void SwVbaListHelper::CreateOutlineNumberForType5() throw( css::uno::RuntimeException )
{
sal_Int16 nNumberingType = style::NumberingType::ARABIC;
sal_Int16 nParentNumbering = 0;
uno::Sequence< beans::PropertyValue > aPropertyValues;
for( sal_Int32 nLevel = 0; nLevel < LIST_LEVEL_COUNT; nLevel++ )
{
mxNumberingRules->getByIndex( nLevel ) >>= aPropertyValues;
setOrAppendPropertyValue( aPropertyValues, rtl::OUString(UNO_NAME_NUMBERING_TYPE ), uno::makeAny( nNumberingType ) );
if( nLevel != 0 )
{
nParentNumbering = sal_Int16( nLevel - 1 );
setOrAppendPropertyValue( aPropertyValues, rtl::OUString(UNO_NAME_PARENT_NUMBERING ), uno::makeAny( nParentNumbering ) );
}
mxNumberingRules->replaceByIndex( nLevel, uno::makeAny( aPropertyValues ) );
}
}
void SwVbaListHelper::CreateOutlineNumberForType6() throw( css::uno::RuntimeException )
{
sal_Int16 nNumberingType = 0;
rtl::OUString sPrefix;
rtl::OUString sSuffix;
uno::Sequence< beans::PropertyValue > aPropertyValues;
for( sal_Int32 nLevel = 0; nLevel < LIST_LEVEL_COUNT; nLevel++ )
{
mxNumberingRules->getByIndex( nLevel ) >>= aPropertyValues;
switch( nLevel )
{
case 0:
{
nNumberingType = style::NumberingType::ROMAN_UPPER;
sPrefix = rtl::OUString();
sSuffix = rtl::OUString::valueOf( sal_Unicode('.') );
break;
}
case 1:
{
nNumberingType = style::NumberingType::CHARS_UPPER_LETTER;
sPrefix = rtl::OUString();
sSuffix = rtl::OUString::valueOf( sal_Unicode('.') );
break;
}
case 2:
{
nNumberingType = style::NumberingType::ARABIC;
sPrefix = rtl::OUString();
sSuffix = rtl::OUString::valueOf( sal_Unicode(')') );
break;
}
case 3:
{
nNumberingType = style::NumberingType::CHARS_LOWER_LETTER;
sPrefix = rtl::OUString();
sSuffix = rtl::OUString::valueOf( sal_Unicode(')') );
break;
}
case 4:
{
nNumberingType = style::NumberingType::ARABIC;
sPrefix = rtl::OUString::valueOf( sal_Unicode('(') );
sSuffix = rtl::OUString::valueOf( sal_Unicode(')') );
break;
}
case 5:
{
nNumberingType = style::NumberingType::CHARS_LOWER_LETTER;
sPrefix = rtl::OUString::valueOf( sal_Unicode('(') );
sSuffix = rtl::OUString::valueOf( sal_Unicode(')') );
break;
}
case 6:
{
nNumberingType = style::NumberingType::ROMAN_LOWER;
sPrefix = rtl::OUString::valueOf( sal_Unicode('(') );
sSuffix = rtl::OUString::valueOf( sal_Unicode(')') );
break;
}
case 7:
{
nNumberingType = style::NumberingType::CHARS_LOWER_LETTER;
sPrefix = rtl::OUString::valueOf( sal_Unicode('(') );
sSuffix = rtl::OUString::valueOf( sal_Unicode('.') );
break;
}
case 8:
{
nNumberingType = style::NumberingType::ROMAN_LOWER;
sPrefix = rtl::OUString::valueOf( sal_Unicode('(') );
sSuffix = rtl::OUString::valueOf( sal_Unicode('.') );
break;
}
default:
{
throw uno::RuntimeException();
}
}
setOrAppendPropertyValue( aPropertyValues, rtl::OUString(UNO_NAME_NUMBERING_TYPE ), uno::makeAny( nNumberingType ) );
setOrAppendPropertyValue( aPropertyValues, rtl::OUString(UNO_NAME_PREFIX ), uno::makeAny( sPrefix ) );
setOrAppendPropertyValue( aPropertyValues, rtl::OUString(UNO_NAME_SUFFIX ), uno::makeAny( sSuffix ) );
mxNumberingRules->replaceByIndex( nLevel, uno::makeAny( aPropertyValues ) );
}
}
void SwVbaListHelper::CreateOutlineNumberForType7() throw( css::uno::RuntimeException )
{
sal_Int16 nNumberingType = style::NumberingType::ARABIC;
uno::Sequence< beans::PropertyValue > aPropertyValues;
rtl::OUString sPrefix("Chapter ");
for( sal_Int32 nLevel = 0; nLevel < LIST_LEVEL_COUNT; nLevel++ )
{
mxNumberingRules->getByIndex( nLevel ) >>= aPropertyValues;
setOrAppendPropertyValue( aPropertyValues, rtl::OUString(UNO_NAME_NUMBERING_TYPE ), uno::makeAny( nNumberingType ) );
setOrAppendPropertyValue( aPropertyValues, rtl::OUString(UNO_NAME_PREFIX ), uno::makeAny( sPrefix ) );
mxNumberingRules->replaceByIndex( nLevel, uno::makeAny( aPropertyValues ) );
}
}
uno::Any SwVbaListHelper::getPropertyValueWithNameAndLevel( sal_Int32 nLevel, const rtl::OUString& sName ) throw( css::uno::RuntimeException )
{
uno::Sequence< beans::PropertyValue > aPropertyValues;
mxNumberingRules->getByIndex( nLevel ) >>= aPropertyValues;
return getPropertyValue( aPropertyValues, sName );
}
void SwVbaListHelper::setPropertyValueWithNameAndLevel( sal_Int32 nLevel, const rtl::OUString& sName, const css::uno::Any& aValue ) throw( css::uno::RuntimeException )
{
uno::Sequence< beans::PropertyValue > aPropertyValues;
mxNumberingRules->getByIndex( nLevel ) >>= aPropertyValues;
setOrAppendPropertyValue( aPropertyValues, sName, aValue );
mxNumberingRules->replaceByIndex( nLevel, uno::makeAny( aPropertyValues ) );
mxStyleProps->setPropertyValue( rtl::OUString( "NumberingRules" ) , uno::makeAny( mxNumberingRules ) );
}
/* vim:set shiftwidth=4 softtabstop=4 expandtab: */
Reference in New Issue View Git Blame Copy Permalink