include/vbahelper/vbaaccesshelper.hxx                |    2 
 include/vbahelper/vbacollectionimpl.hxx              |   10 -
 include/vbahelper/vbahelperinterface.hxx             |    2 
 include/vbahelper/vbapropvalue.hxx                   |    2 
 include/vbahelper/vbareturntypes.hxx                 |    2 
 vbahelper/source/msforms/vbabutton.cxx               |    8 -
 vbahelper/source/msforms/vbacheckbox.cxx             |   14 +-
 vbahelper/source/msforms/vbacheckbox.hxx             |    2 
 vbahelper/source/msforms/vbacombobox.cxx             |   12 +-
 vbahelper/source/msforms/vbacombobox.hxx             |    2 
 vbahelper/source/msforms/vbacontrol.cxx              |  112 +++++++++----------
 vbahelper/source/msforms/vbacontrols.cxx             |   50 ++++----
 vbahelper/source/msforms/vbaframe.cxx                |    6 -
 vbahelper/source/msforms/vbaimage.cxx                |    4 
 vbahelper/source/msforms/vbalabel.cxx                |    8 -
 vbahelper/source/msforms/vbalabel.hxx                |    2 
 vbahelper/source/msforms/vbalistbox.cxx              |   40 +++---
 vbahelper/source/msforms/vbalistbox.hxx              |    2 
 vbahelper/source/msforms/vbalistcontrolhelper.cxx    |   24 ++--
 vbahelper/source/msforms/vbamultipage.cxx            |    4 
 vbahelper/source/msforms/vbanewfont.cxx              |   30 ++---
 vbahelper/source/msforms/vbapages.cxx                |    4 
 vbahelper/source/msforms/vbaprogressbar.cxx          |    4 
 vbahelper/source/msforms/vbaprogressbar.hxx          |    2 
 vbahelper/source/msforms/vbaradiobutton.cxx          |   14 +-
 vbahelper/source/msforms/vbaradiobutton.hxx          |    2 
 vbahelper/source/msforms/vbascrollbar.cxx            |   24 ++--
 vbahelper/source/msforms/vbaspinbutton.cxx           |   16 +-
 vbahelper/source/msforms/vbasystemaxcontrol.cxx      |    4 
 vbahelper/source/msforms/vbatextbox.cxx              |   16 +-
 vbahelper/source/msforms/vbatextbox.hxx              |    2 
 vbahelper/source/msforms/vbatogglebutton.cxx         |   14 +-
 vbahelper/source/msforms/vbatogglebutton.hxx         |    2 
 vbahelper/source/msforms/vbauserform.cxx             |   10 -
 vbahelper/source/vbahelper/vbaapplicationbase.cxx    |   24 ++--
 vbahelper/source/vbahelper/vbacolorformat.cxx        |   16 +-
 vbahelper/source/vbahelper/vbacommandbar.cxx         |   16 +-
 vbahelper/source/vbahelper/vbacommandbarcontrol.cxx  |   20 +--
 vbahelper/source/vbahelper/vbacommandbarcontrols.cxx |   18 +--
 vbahelper/source/vbahelper/vbacommandbarhelper.cxx   |   30 ++---
 vbahelper/source/vbahelper/vbacommandbars.cxx        |   12 +-
 vbahelper/source/vbahelper/vbadialogbase.cxx         |    2 
 vbahelper/source/vbahelper/vbadocumentbase.cxx       |   16 +-
 vbahelper/source/vbahelper/vbadocumentsbase.cxx      |   12 +-
 vbahelper/source/vbahelper/vbaeventshelperbase.cxx   |    8 -
 vbahelper/source/vbahelper/vbafillformat.cxx         |   20 +--
 vbahelper/source/vbahelper/vbafontbase.cxx           |   16 +-
 vbahelper/source/vbahelper/vbaglobalbase.cxx         |   12 +-
 vbahelper/source/vbahelper/vbahelper.cxx             |   32 ++---
 vbahelper/source/vbahelper/vbalineformat.cxx         |   64 +++++-----
 vbahelper/source/vbahelper/vbapagesetupbase.cxx      |   54 ++++-----
 vbahelper/source/vbahelper/vbapictureformat.cxx      |   16 +-
 vbahelper/source/vbahelper/vbashape.cxx              |   66 +++++------
 vbahelper/source/vbahelper/vbashaperange.cxx         |    4 
 vbahelper/source/vbahelper/vbashapes.cxx             |   44 +++----
 vbahelper/source/vbahelper/vbatextframe.cxx          |   30 ++---
 vbahelper/source/vbahelper/vbawindowbase.cxx         |    4 
 57 files changed, 494 insertions(+), 494 deletions(-)

New commits:
commit fcaf6cee081b8e3282ee85672ba376a9bd0aeeb9
Author:     Noel Grandin <noel.gran...@collabora.co.uk>
AuthorDate: Tue May 14 09:10:37 2024 +0200
Commit:     Noel Grandin <noel.gran...@collabora.co.uk>
CommitDate: Tue May 14 15:14:51 2024 +0200

    loplugin:ostr in vbahelper
    
    Change-Id: I7763dd628ba3d4288e52b51e08a5af301f916c1b
    Reviewed-on: https://gerrit.libreoffice.org/c/core/+/167621
    Tested-by: Jenkins
    Reviewed-by: Noel Grandin <noel.gran...@collabora.co.uk>

diff --git a/include/vbahelper/vbaaccesshelper.hxx 
b/include/vbahelper/vbaaccesshelper.hxx
index 36f24d3a4f71..cf163e90ac45 100644
--- a/include/vbahelper/vbaaccesshelper.hxx
+++ b/include/vbahelper/vbaaccesshelper.hxx
@@ -41,7 +41,7 @@ namespace ooo::vba
         inline css::uno::Reference< css::lang::XMultiServiceFactory > 
getVBAServiceFactory( SfxObjectShell const * pShell )
         {
             css::uno::Any aUnoVar;
-            if ( !pShell || ! pShell->GetBasicManager()->GetGlobalUNOConstant( 
"VBAGlobals", aUnoVar ) )
+            if ( !pShell || ! pShell->GetBasicManager()->GetGlobalUNOConstant( 
u"VBAGlobals"_ustr, aUnoVar ) )
                 throw css::lang::IllegalArgumentException();
             css::uno::Reference< css::lang::XMultiServiceFactory > 
xVBAFactory( aUnoVar, css::uno::UNO_QUERY_THROW );
             return xVBAFactory;
diff --git a/include/vbahelper/vbacollectionimpl.hxx 
b/include/vbahelper/vbacollectionimpl.hxx
index 9afcf08a3aa5..d70f531e113f 100644
--- a/include/vbahelper/vbacollectionimpl.hxx
+++ b/include/vbahelper/vbacollectionimpl.hxx
@@ -245,7 +245,7 @@ protected:
     virtual css::uno::Any getItemByStringIndex( const OUString& sIndex )
     {
         if ( !m_xNameAccess.is() )
-            throw css::uno::RuntimeException("ScVbaCollectionBase string index 
access not supported by this object" );
+            throw css::uno::RuntimeException(u"ScVbaCollectionBase string 
index access not supported by this object"_ustr );
 
         if( mbIgnoreCase )
         {
@@ -266,11 +266,11 @@ protected:
     virtual css::uno::Any getItemByIntIndex( const sal_Int32 nIndex )
     {
         if ( !m_xIndexAccess.is() )
-            throw css::uno::RuntimeException("ScVbaCollectionBase numeric 
index access not supported by this object" );
+            throw css::uno::RuntimeException(u"ScVbaCollectionBase numeric 
index access not supported by this object"_ustr );
         if ( nIndex <= 0 )
         {
             throw css::lang::IndexOutOfBoundsException(
-                "index is 0 or negative" );
+                u"index is 0 or negative"_ustr );
         }
         // need to adjust for vba index ( for which first element is 1 )
         return createCollectionObject( m_xIndexAccess->getByIndex( nIndex - 1 
) );
@@ -307,7 +307,7 @@ public:
             sal_Int32 nIndex = 0;
             if ( !( Index1 >>= nIndex ) )
             {
-                throw  css::lang::IndexOutOfBoundsException( "Couldn't convert 
index to Int32" );
+                throw  css::lang::IndexOutOfBoundsException( u"Couldn't 
convert index to Int32"_ustr );
             }
 
             return  getItemByIntIndex( nIndex );
@@ -321,7 +321,7 @@ public:
     // XDefaultMethod
     OUString SAL_CALL getDefaultMethodName(  ) override
     {
-        return "Item";
+        return u"Item"_ustr;
     }
     // XEnumerationAccess
     virtual css::uno::Reference< css::container::XEnumeration > SAL_CALL 
createEnumeration() override = 0;
diff --git a/include/vbahelper/vbahelperinterface.hxx 
b/include/vbahelper/vbahelperinterface.hxx
index c0aa106329c7..6d4b78979a2c 100644
--- a/include/vbahelper/vbahelperinterface.hxx
+++ b/include/vbahelper/vbahelperinterface.hxx
@@ -82,7 +82,7 @@ public:
             // The application could certainly be passed around in the context 
- seems
             // to make sense
             css::uno::Reference< css::container::XNameAccess > xNameAccess( 
mxContext, css::uno::UNO_QUERY_THROW );
-            return xNameAccess->getByName( "Application" );
+            return xNameAccess->getByName( u"Application"_ustr );
     }
 
     // XServiceInfo Methods
diff --git a/include/vbahelper/vbapropvalue.hxx 
b/include/vbahelper/vbapropvalue.hxx
index ee6443f08a34..fe7cbf1bd12b 100644
--- a/include/vbahelper/vbapropvalue.hxx
+++ b/include/vbahelper/vbapropvalue.hxx
@@ -51,7 +51,7 @@ public:
     virtual css::uno::Any SAL_CALL getValue() override;
     virtual void SAL_CALL setValue( const css::uno::Any& _value ) override;
 
-    OUString SAL_CALL getDefaultPropertyName() override { return "Value"; }
+    OUString SAL_CALL getDefaultPropertyName() override { return 
u"Value"_ustr; }
 
 };
 #endif //SC_VBA_PROPVALULE_HXX
diff --git a/include/vbahelper/vbareturntypes.hxx 
b/include/vbahelper/vbareturntypes.hxx
index 96bb168abc01..2d066d797cb4 100644
--- a/include/vbahelper/vbareturntypes.hxx
+++ b/include/vbahelper/vbareturntypes.hxx
@@ -37,7 +37,7 @@ namespace ooo::vba
             DefaultReturnHelper( const T1& nValue ) : mnValue( nValue ) {}
             virtual void  SAL_CALL setValue( T1 nValue ) override { mnValue = 
nValue; }
             virtual T1  SAL_CALL getValue() override { return mnValue; }
-            OUString SAL_CALL getDefaultPropertyName(  ) override { return 
"Value"; }
+            OUString SAL_CALL getDefaultPropertyName(  ) override { return 
u"Value"_ustr; }
         };
 
         typedef DefaultReturnHelper< sal_Int32, ov::msforms::XReturnInteger > 
ReturnInteger_BASE;
diff --git a/vbahelper/source/msforms/vbabutton.cxx 
b/vbahelper/source/msforms/vbabutton.cxx
index 38d5c94028be..2dd2efbae9eb 100644
--- a/vbahelper/source/msforms/vbabutton.cxx
+++ b/vbahelper/source/msforms/vbabutton.cxx
@@ -33,14 +33,14 @@ OUString SAL_CALL
 VbaButton::getCaption()
 {
     OUString Label;
-    m_xProps->getPropertyValue( "Label" ) >>= Label;
+    m_xProps->getPropertyValue( u"Label"_ustr ) >>= Label;
     return Label;
 }
 
 void SAL_CALL
 VbaButton::setCaption( const OUString& _caption )
 {
-    m_xProps->setPropertyValue( "Label", uno::Any( _caption ) );
+    m_xProps->setPropertyValue( u"Label"_ustr, uno::Any( _caption ) );
 }
 
 sal_Bool SAL_CALL VbaButton::getAutoSize()
@@ -112,7 +112,7 @@ uno::Reference< msforms::XNewFont > SAL_CALL 
VbaButton::getFont()
 OUString
 VbaButton::getServiceImplName()
 {
-    return "VbaButton";
+    return u"VbaButton"_ustr;
 }
 
 uno::Sequence< OUString >
@@ -120,7 +120,7 @@ VbaButton::getServiceNames()
 {
     static uno::Sequence< OUString > const aServiceNames
     {
-        "ooo.vba.msforms.Button"
+        u"ooo.vba.msforms.Button"_ustr
     };
     return aServiceNames;
 }
diff --git a/vbahelper/source/msforms/vbacheckbox.cxx 
b/vbahelper/source/msforms/vbacheckbox.cxx
index 13922a6de7a4..9069fdfe8802 100644
--- a/vbahelper/source/msforms/vbacheckbox.cxx
+++ b/vbahelper/source/msforms/vbacheckbox.cxx
@@ -33,21 +33,21 @@ OUString SAL_CALL
 ScVbaCheckbox::getCaption()
 {
     OUString Label;
-    m_xProps->getPropertyValue( "Label" ) >>= Label;
+    m_xProps->getPropertyValue( u"Label"_ustr ) >>= Label;
     return Label;
 }
 
 void SAL_CALL
 ScVbaCheckbox::setCaption( const OUString& _caption )
 {
-    m_xProps->setPropertyValue( "Label", uno::Any( _caption ) );
+    m_xProps->setPropertyValue( u"Label"_ustr, uno::Any( _caption ) );
 }
 
 uno::Any SAL_CALL
 ScVbaCheckbox::getValue()
 {
     sal_Int16 nValue = -1;
-    m_xProps->getPropertyValue( "State" ) >>= nValue;
+    m_xProps->getPropertyValue( u"State"_ustr ) >>= nValue;
     if( nValue != 0 )
         nValue = -1;
 //    return uno::makeAny( nValue );
@@ -61,7 +61,7 @@ ScVbaCheckbox::setValue( const uno::Any& _value )
 {
     sal_Int16 nValue = 0;
     sal_Int16 nOldValue = 0;
-    m_xProps->getPropertyValue( "State" ) >>= nOldValue;
+    m_xProps->getPropertyValue( u"State"_ustr ) >>= nOldValue;
     if( !( _value >>= nValue ) )
     {
         bool bValue = false;
@@ -72,7 +72,7 @@ ScVbaCheckbox::setValue( const uno::Any& _value )
 
     if( nValue == -1)
         nValue = 1;
-    m_xProps->setPropertyValue( "State", uno::Any( nValue ) );
+    m_xProps->setPropertyValue( u"State"_ustr, uno::Any( nValue ) );
     if ( nValue != nOldValue )
         fireClickEvent();
 }
@@ -85,7 +85,7 @@ uno::Reference< msforms::XNewFont > SAL_CALL 
ScVbaCheckbox::getFont()
 OUString
 ScVbaCheckbox::getServiceImplName()
 {
-    return "ScVbaCheckbox";
+    return u"ScVbaCheckbox"_ustr;
 }
 
 uno::Sequence< OUString >
@@ -93,7 +93,7 @@ ScVbaCheckbox::getServiceNames()
 {
     static uno::Sequence< OUString > const aServiceNames
     {
-        "ooo.vba.msforms.CheckBox"
+        u"ooo.vba.msforms.CheckBox"_ustr
     };
     return aServiceNames;
 }
diff --git a/vbahelper/source/msforms/vbacheckbox.hxx 
b/vbahelper/source/msforms/vbacheckbox.hxx
index 91de78eb5c00..26e74a753d9d 100644
--- a/vbahelper/source/msforms/vbacheckbox.hxx
+++ b/vbahelper/source/msforms/vbacheckbox.hxx
@@ -44,7 +44,7 @@ public:
     virtual sal_Bool SAL_CALL getLocked() override;
     virtual void SAL_CALL setLocked( sal_Bool bAutoSize ) override;
     // XDefaultProperty
-    OUString SAL_CALL getDefaultPropertyName(  ) override { return "Value"; }
+    OUString SAL_CALL getDefaultPropertyName(  ) override { return 
u"Value"_ustr; }
     //XHelperInterface
     virtual OUString getServiceImplName() override;
     virtual css::uno::Sequence<OUString> getServiceNames() override;
diff --git a/vbahelper/source/msforms/vbacombobox.cxx 
b/vbahelper/source/msforms/vbacombobox.cxx
index 9f1d8dc81309..288adc27a92d 100644
--- a/vbahelper/source/msforms/vbacombobox.cxx
+++ b/vbahelper/source/msforms/vbacombobox.cxx
@@ -42,7 +42,7 @@ ScVbaComboBox::ScVbaComboBox( const uno::Reference< 
XHelperInterface >& xParent,
     try
     {
        // grab the default value property name
-       m_xProps->getPropertyValue( "DataFieldProperty" ) >>= sSourceName;
+       m_xProps->getPropertyValue( u"DataFieldProperty"_ustr ) >>= sSourceName;
     }
     catch( uno::Exception& )
     {
@@ -72,11 +72,11 @@ ScVbaComboBox::setListIndex( const uno::Any& _value )
     sal_Int32 nOldIndex = -1;
     getListIndex() >>= nOldIndex;
     uno::Sequence< OUString > sItems;
-    m_xProps->getPropertyValue( "StringItemList" ) >>= sItems;
+    m_xProps->getPropertyValue( u"StringItemList"_ustr ) >>= sItems;
     if( ( nIndex >= 0 ) && ( sItems.getLength() > nIndex ) )
     {
         OUString sText = sItems[ nIndex ];
-        m_xProps->setPropertyValue( "Text", uno::Any( sText ) );
+        m_xProps->setPropertyValue( u"Text"_ustr, uno::Any( sText ) );
 
         // fire the _Change event
         if( nOldIndex != nIndex )
@@ -88,7 +88,7 @@ uno::Any SAL_CALL
 ScVbaComboBox::getListIndex()
 {
     uno::Sequence< OUString > sItems;
-    m_xProps->getPropertyValue( "StringItemList" ) >>= sItems;
+    m_xProps->getPropertyValue( u"StringItemList"_ustr ) >>= sItems;
     // should really return the item that has focus regardless of
     // it been selected
     if ( sItems.hasElements() )
@@ -250,7 +250,7 @@ uno::Reference< msforms::XNewFont > SAL_CALL 
ScVbaComboBox::getFont()
 OUString
 ScVbaComboBox::getServiceImplName()
 {
-    return "ScVbaComboBox";
+    return u"ScVbaComboBox"_ustr;
 }
 
 sal_Int32 SAL_CALL ScVbaComboBox::getBackColor()
@@ -298,7 +298,7 @@ ScVbaComboBox::getServiceNames()
 {
     static uno::Sequence< OUString > const aServiceNames
     {
-        "ooo.vba.msforms.ComboBox"
+        u"ooo.vba.msforms.ComboBox"_ustr
     };
     return aServiceNames;
 }
diff --git a/vbahelper/source/msforms/vbacombobox.hxx 
b/vbahelper/source/msforms/vbacombobox.hxx
index 4f682fc31648..a53d0f9b4e24 100644
--- a/vbahelper/source/msforms/vbacombobox.hxx
+++ b/vbahelper/source/msforms/vbacombobox.hxx
@@ -80,7 +80,7 @@ public:
     virtual void SAL_CALL setRowSource( const OUString& _rowsource ) override;
 
     // XDefaultProperty
-        OUString SAL_CALL getDefaultPropertyName(  ) override { return 
"Value"; }
+        OUString SAL_CALL getDefaultPropertyName(  ) override { return 
u"Value"_ustr; }
     //XHelperInterface
     virtual OUString getServiceImplName() override;
     virtual css::uno::Sequence<OUString> getServiceNames() override;
diff --git a/vbahelper/source/msforms/vbacontrol.cxx 
b/vbahelper/source/msforms/vbacontrol.cxx
index cb21c75a8be4..3b7976cf574c 100644
--- a/vbahelper/source/msforms/vbacontrol.cxx
+++ b/vbahelper/source/msforms/vbacontrol.cxx
@@ -91,7 +91,7 @@ ScVbaControl::getWindowPeer()
         }
         catch(const uno::Exception&)
         {
-            throw uno::RuntimeException( "The Control does not exist" );
+            throw uno::RuntimeException( u"The Control does not exist"_ustr );
         }
     }
     uno::Reference< css::awt::XVclWindowPeer > xVclWinPeer(xWinPeer, 
uno::UNO_QUERY);
@@ -146,7 +146,7 @@ ScVbaControl::ScVbaControl( const uno::Reference< 
XHelperInterface >& xParent, c
     {
         m_xProps.set( xControlShape->getControl(), uno::UNO_QUERY_THROW );
         OUString sDefaultControl;
-        m_xProps->getPropertyValue( "DefaultControl" ) >>= sDefaultControl;
+        m_xProps->getPropertyValue( u"DefaultControl"_ustr ) >>= 
sDefaultControl;
         uno::Reference< lang::XMultiComponentFactory > xMFac( 
mxContext->getServiceManager(), uno::UNO_SET_THROW );
         m_xEmptyFormControl.set( xMFac->createInstanceWithContext( 
sDefaultControl, mxContext ), uno::UNO_QUERY_THROW );
     }
@@ -182,7 +182,7 @@ void ScVbaControl::removeResource()
 //In design model has different behavior
 sal_Bool SAL_CALL ScVbaControl::getEnabled()
 {
-    uno::Any aValue = m_xProps->getPropertyValue ( "Enabled" );
+    uno::Any aValue = m_xProps->getPropertyValue ( u"Enabled"_ustr );
     bool bRet = false;
     aValue >>= bRet;
     return bRet;
@@ -191,36 +191,36 @@ sal_Bool SAL_CALL ScVbaControl::getEnabled()
 void SAL_CALL ScVbaControl::setEnabled( sal_Bool bVisible )
 {
     uno::Any aValue( bVisible );
-    m_xProps->setPropertyValue(  "Enabled" , aValue);
+    m_xProps->setPropertyValue(  u"Enabled"_ustr , aValue);
 
 }
 
 sal_Bool SAL_CALL ScVbaControl::getVisible()
 {
     bool bVisible( true );
-    m_xProps->getPropertyValue ( "EnableVisible" ) >>= bVisible;
+    m_xProps->getPropertyValue ( u"EnableVisible"_ustr ) >>= bVisible;
     uno::Reference< drawing::XControlShape > xControlShape( m_xControl, 
uno::UNO_QUERY );
     if ( xControlShape.is() )
     {
         bool bEnableVisible = bVisible;
         uno::Reference< beans::XPropertySet > xProps( m_xControl, 
uno::UNO_QUERY_THROW );
-        xProps->getPropertyValue ( "Visible" ) >>= bVisible;
+        xProps->getPropertyValue ( u"Visible"_ustr ) >>= bVisible;
         bVisible = bVisible && bEnableVisible;
     }
     else
-        m_xProps->getPropertyValue ( "EnableVisible" ) >>= bVisible;
+        m_xProps->getPropertyValue ( u"EnableVisible"_ustr ) >>= bVisible;
     return bVisible;
 }
 
 void SAL_CALL ScVbaControl::setVisible( sal_Bool bVisible )
 {
     uno::Any aValue( bVisible );
-    m_xProps->setPropertyValue( "EnableVisible" , aValue);
+    m_xProps->setPropertyValue( u"EnableVisible"_ustr , aValue);
     uno::Reference< drawing::XControlShape > xControlShape( m_xControl, 
uno::UNO_QUERY );
     if ( xControlShape.is() )
     {
         uno::Reference< beans::XPropertySet > xProps( m_xControl, 
uno::UNO_QUERY_THROW );
-        xProps->setPropertyValue ( "Visible", aValue );
+        xProps->setPropertyValue ( u"Visible"_ustr, aValue );
     }
 }
 double SAL_CALL ScVbaControl::getHeight()
@@ -306,12 +306,12 @@ ScVbaControl::getControlSource()
         try
         {
             uno::Reference< lang::XMultiServiceFactory > xFac( m_xModel, 
uno::UNO_QUERY_THROW );
-            uno::Reference< beans::XPropertySet > xConvertor( 
xFac->createInstance( "com.sun.star.table.CellAddressConversion" ), 
uno::UNO_QUERY );
+            uno::Reference< beans::XPropertySet > xConvertor( 
xFac->createInstance( u"com.sun.star.table.CellAddressConversion"_ustr ), 
uno::UNO_QUERY );
             uno::Reference< beans::XPropertySet > xProps( 
xBindable->getValueBinding(), uno::UNO_QUERY_THROW );
             table::CellAddress aAddress;
-            xProps->getPropertyValue( "BoundCell" ) >>= aAddress;
-            xConvertor->setPropertyValue( "Address" , uno::Any( aAddress ) );
-            xConvertor->getPropertyValue( "XLA1Representation" ) >>= 
sControlSource;
+            xProps->getPropertyValue( u"BoundCell"_ustr ) >>= aAddress;
+            xConvertor->setPropertyValue( u"Address"_ustr , uno::Any( aAddress 
) );
+            xConvertor->getPropertyValue( u"XLA1Representation"_ustr ) >>= 
sControlSource;
         }
         catch(const uno::Exception&)
         {
@@ -356,7 +356,7 @@ ScVbaControl::setControlSource( const OUString& 
_controlsource )
             break;
     }
 
-    svt::BindableControlHelper::ApplyListSourceAndBindableData( m_xModel, 
m_xProps, _controlsource, "", sal_uInt16( nRefTab ) );
+    svt::BindableControlHelper::ApplyListSourceAndBindableData( m_xModel, 
m_xProps, _controlsource, u""_ustr, sal_uInt16( nRefTab ) );
 }
 
 OUString SAL_CALL
@@ -369,13 +369,13 @@ ScVbaControl::getRowSource()
         try
         {
             uno::Reference< lang::XMultiServiceFactory > xFac( m_xModel, 
uno::UNO_QUERY_THROW );
-            uno::Reference< beans::XPropertySet > xConvertor( 
xFac->createInstance( "com.sun.star.table.CellRangeAddressConversion" ), 
uno::UNO_QUERY );
+            uno::Reference< beans::XPropertySet > xConvertor( 
xFac->createInstance( u"com.sun.star.table.CellRangeAddressConversion"_ustr ), 
uno::UNO_QUERY );
 
             uno::Reference< beans::XPropertySet > xProps( 
xListSink->getListEntrySource(), uno::UNO_QUERY_THROW );
             table::CellRangeAddress aAddress;
-            xProps->getPropertyValue( "CellRange" ) >>= aAddress;
-            xConvertor->setPropertyValue( "Address" , uno::Any( aAddress ) );
-            xConvertor->getPropertyValue( "XLA1Representation" ) >>= 
sRowSource;
+            xProps->getPropertyValue( u"CellRange"_ustr ) >>= aAddress;
+            xConvertor->setPropertyValue( u"Address"_ustr , uno::Any( aAddress 
) );
+            xConvertor->getPropertyValue( u"XLA1Representation"_ustr ) >>= 
sRowSource;
         }
         catch(const uno::Exception&)
         {
@@ -387,14 +387,14 @@ ScVbaControl::getRowSource()
 void SAL_CALL
 ScVbaControl::setRowSource( const OUString& _rowsource )
 {
-    svt::BindableControlHelper::ApplyListSourceAndBindableData( m_xModel, 
m_xProps, "", _rowsource );
+    svt::BindableControlHelper::ApplyListSourceAndBindableData( m_xModel, 
m_xProps, u""_ustr, _rowsource );
 }
 
 OUString SAL_CALL
 ScVbaControl::getName()
 {
     OUString sName;
-    m_xProps->getPropertyValue( "Name" ) >>= sName;
+    m_xProps->getPropertyValue( u"Name"_ustr ) >>= sName;
     return sName;
 
 }
@@ -402,21 +402,21 @@ ScVbaControl::getName()
 void SAL_CALL
 ScVbaControl::setName( const OUString& _name )
 {
-    m_xProps->setPropertyValue( "Name" , uno::Any( _name ) );
+    m_xProps->setPropertyValue( u"Name"_ustr , uno::Any( _name ) );
     }
 
 OUString SAL_CALL
 ScVbaControl::getControlTipText()
 {
     OUString sName;
-    m_xProps->getPropertyValue( "HelpText" ) >>= sName;
+    m_xProps->getPropertyValue( u"HelpText"_ustr ) >>= sName;
     return sName;
 }
 
 void SAL_CALL
 ScVbaControl::setControlTipText( const OUString& rsToolTip )
 {
-    m_xProps->setPropertyValue( "HelpText" , uno::Any( rsToolTip ) );
+    m_xProps->setPropertyValue( u"HelpText"_ustr , uno::Any( rsToolTip ) );
 }
 
 OUString SAL_CALL ScVbaControl::getTag()
@@ -432,7 +432,7 @@ void SAL_CALL ScVbaControl::setTag( const OUString& aTag )
 ::sal_Int32 SAL_CALL ScVbaControl::getForeColor()
 {
     Color nForeColor;
-    m_xProps->getPropertyValue( "TextColor" ) >>= nForeColor;
+    m_xProps->getPropertyValue( u"TextColor"_ustr ) >>= nForeColor;
     return OORGBToXLRGB( nForeColor );
 }
 
@@ -511,10 +511,10 @@ void SAL_CALL ScVbaControl::fireEvent( const 
script::ScriptEvent& rEvt )
 {
     script::ScriptEvent evt( rEvt );
     uno::Reference<lang::XMultiComponentFactory > xServiceManager( 
mxContext->getServiceManager(), uno::UNO_SET_THROW );
-    uno::Reference< script::XScriptListener > xScriptListener( 
xServiceManager->createInstanceWithContext( "ooo.vba.EventListener" , mxContext 
), uno::UNO_QUERY_THROW );
+    uno::Reference< script::XScriptListener > xScriptListener( 
xServiceManager->createInstanceWithContext( u"ooo.vba.EventListener"_ustr , 
mxContext ), uno::UNO_QUERY_THROW );
 
     uno::Reference< beans::XPropertySet > xProps( xScriptListener, 
uno::UNO_QUERY_THROW );
-    xProps->setPropertyValue( "Model" , uno::Any( m_xModel ) );
+    xProps->setPropertyValue( u"Model"_ustr , uno::Any( m_xModel ) );
 
     // handling for sheet control
     uno::Reference< msforms::XControl > xThisControl( this );
@@ -532,7 +532,7 @@ void SAL_CALL ScVbaControl::fireEvent( const 
script::ScriptEvent& rEvt )
             aEvt.Source = m_xEmptyFormControl;
             // Set up proper scriptcode
             uno::Reference< lang::XMultiServiceFactory > xDocFac(  m_xModel, 
uno::UNO_QUERY_THROW );
-            uno::Reference< document::XCodeNameQuery > xNameQuery(  
xDocFac->createInstance( "ooo.vba.VBACodeNameProvider" ), uno::UNO_QUERY_THROW 
);
+            uno::Reference< document::XCodeNameQuery > xNameQuery(  
xDocFac->createInstance( u"ooo.vba.VBACodeNameProvider"_ustr ), 
uno::UNO_QUERY_THROW );
             uno::Reference< uno::XInterface > xIf( 
xControlShape->getControl(), uno::UNO_QUERY_THROW );
             evt.ScriptCode = xNameQuery->getCodeNameForObject( xIf );
             // handle if we passed in our own arguments
@@ -596,7 +596,7 @@ void SAL_CALL ScVbaControl::setTabIndex( sal_Int32 
/*nTabIndex*/ )
 {
     uno::Reference< beans::XPropertySet > xProps( xControlShape->getControl(), 
uno::UNO_QUERY_THROW );
     sal_Int32 nClassId = -1;
-    xProps->getPropertyValue( "ClassId" ) >>= nClassId;
+    xProps->getPropertyValue( u"ClassId"_ustr ) >>= nClassId;
     uno::Reference< XHelperInterface > xVbaParent; // #FIXME - should be 
worksheet I guess
     uno::Reference< drawing::XShape > xShape( xControlShape, 
uno::UNO_QUERY_THROW );
     ::std::unique_ptr< ConcreteXShapeGeometryAttributes > xGeoHelper( new 
ConcreteXShapeGeometryAttributes( xShape ) );
@@ -607,7 +607,7 @@ void SAL_CALL ScVbaControl::setTabIndex( sal_Int32 
/*nTabIndex*/ )
         case form::FormComponentType::COMMANDBUTTON:
         {
             bool bToggle = false;
-            xProps->getPropertyValue( "Toggle" ) >>= bToggle;
+            xProps->getPropertyValue( u"Toggle"_ustr ) >>= bToggle;
             if ( bToggle )
                 return new ScVbaToggleButton( xVbaParent, xContext, 
xControlShape, xModel, std::move(xGeoHelper) );
             else
@@ -630,7 +630,7 @@ void SAL_CALL ScVbaControl::setTabIndex( sal_Int32 
/*nTabIndex*/ )
         case form::FormComponentType::SCROLLBAR:
             return new ScVbaScrollBar( xVbaParent, xContext, xControlShape, 
xModel, std::move(xGeoHelper) );
     }
-    throw uno::RuntimeException( "Unsupported control." );
+    throw uno::RuntimeException( u"Unsupported control."_ustr );
 }
 
 /*static*/ uno::Reference< msforms::XControl > 
ScVbaControlFactory::createUserformControl(
@@ -646,61 +646,61 @@ void SAL_CALL ScVbaControl::setTabIndex( sal_Int32 
/*nTabIndex*/ )
     uno::Reference< XHelperInterface > xVbaParent; // #FIXME - should be 
worksheet I guess
     ::std::unique_ptr< UserFormGeometryHelper > xGeoHelper( new 
UserFormGeometryHelper( xControl, fOffsetX, fOffsetY ) );
 
-    if ( xServiceInfo->supportsService( 
"com.sun.star.awt.UnoControlCheckBoxModel" ) )
+    if ( xServiceInfo->supportsService( 
u"com.sun.star.awt.UnoControlCheckBoxModel"_ustr ) )
         xVBAControl.set( new ScVbaCheckbox( xVbaParent, xContext, xControl, 
xModel, std::move(xGeoHelper) ) );
-    else if ( xServiceInfo->supportsService( 
"com.sun.star.awt.UnoControlRadioButtonModel" ) )
+    else if ( xServiceInfo->supportsService( 
u"com.sun.star.awt.UnoControlRadioButtonModel"_ustr ) )
         xVBAControl.set( new ScVbaRadioButton( xVbaParent, xContext, xControl, 
xModel, std::move(xGeoHelper) ) );
-    else if ( xServiceInfo->supportsService( 
"com.sun.star.awt.UnoControlEditModel" ) )
+    else if ( xServiceInfo->supportsService( 
u"com.sun.star.awt.UnoControlEditModel"_ustr ) )
         xVBAControl.set( new ScVbaTextBox( xVbaParent, xContext, xControl, 
xModel, std::move(xGeoHelper), true ) );
-    else if ( xServiceInfo->supportsService( 
"com.sun.star.awt.UnoControlButtonModel" ) )
+    else if ( xServiceInfo->supportsService( 
u"com.sun.star.awt.UnoControlButtonModel"_ustr ) )
     {
         bool bToggle = false;
-        xProps->getPropertyValue( "Toggle" ) >>= bToggle;
+        xProps->getPropertyValue( u"Toggle"_ustr ) >>= bToggle;
         if ( bToggle )
             xVBAControl.set( new ScVbaToggleButton( xVbaParent, xContext, 
xControl, xModel, std::move(xGeoHelper) ) );
         else
             xVBAControl.set( new VbaButton( xVbaParent, xContext, xControl, 
xModel, std::move(xGeoHelper) ) );
     }
-    else if ( xServiceInfo->supportsService( 
"com.sun.star.awt.UnoControlComboBoxModel" ) )
+    else if ( xServiceInfo->supportsService( 
u"com.sun.star.awt.UnoControlComboBoxModel"_ustr ) )
         xVBAControl.set( new ScVbaComboBox( xVbaParent, xContext, xControl, 
xModel, std::move(xGeoHelper) ) );
-    else if ( xServiceInfo->supportsService( 
"com.sun.star.awt.UnoControlListBoxModel" ) )
+    else if ( xServiceInfo->supportsService( 
u"com.sun.star.awt.UnoControlListBoxModel"_ustr ) )
         xVBAControl.set( new ScVbaListBox( xVbaParent, xContext, xControl, 
xModel, std::move(xGeoHelper) ) );
-    else if ( xServiceInfo->supportsService( 
"com.sun.star.awt.UnoControlFixedTextModel" ) )
+    else if ( xServiceInfo->supportsService( 
u"com.sun.star.awt.UnoControlFixedTextModel"_ustr ) )
         xVBAControl.set( new ScVbaLabel( xVbaParent, xContext, xControl, 
xModel, std::move(xGeoHelper) ) );
-    else if ( xServiceInfo->supportsService( 
"com.sun.star.awt.UnoControlImageControlModel" ) )
+    else if ( xServiceInfo->supportsService( 
u"com.sun.star.awt.UnoControlImageControlModel"_ustr ) )
         xVBAControl.set( new ScVbaImage( xVbaParent, xContext, xControl, 
xModel, std::move(xGeoHelper) ) );
-    else if ( xServiceInfo->supportsService( 
"com.sun.star.awt.UnoControlProgressBarModel" ) )
+    else if ( xServiceInfo->supportsService( 
u"com.sun.star.awt.UnoControlProgressBarModel"_ustr ) )
         xVBAControl.set( new ScVbaProgressBar( xVbaParent, xContext, xControl, 
xModel, std::move(xGeoHelper) ) );
-    else if ( xServiceInfo->supportsService( 
"com.sun.star.awt.UnoControlGroupBoxModel" ) )
+    else if ( xServiceInfo->supportsService( 
u"com.sun.star.awt.UnoControlGroupBoxModel"_ustr ) )
         xVBAControl.set( new ScVbaFrame( xVbaParent, xContext, xControl, 
xModel, std::move(xGeoHelper), xDialog ) );
-    else if ( xServiceInfo->supportsService( 
"com.sun.star.awt.UnoControlScrollBarModel" ) )
+    else if ( xServiceInfo->supportsService( 
u"com.sun.star.awt.UnoControlScrollBarModel"_ustr ) )
         xVBAControl.set( new ScVbaScrollBar( xVbaParent, xContext, xControl, 
xModel, std::move(xGeoHelper) ) );
-    else if ( xServiceInfo->supportsService( 
"com.sun.star.awt.UnoMultiPageModel" ) )
+    else if ( xServiceInfo->supportsService( 
u"com.sun.star.awt.UnoMultiPageModel"_ustr ) )
         xVBAControl.set( new ScVbaMultiPage( xVbaParent, xContext, xControl, 
xModel, std::move(xGeoHelper) ) );
-    else if ( xServiceInfo->supportsService( 
"com.sun.star.awt.UnoControlSpinButtonModel" ) )
+    else if ( xServiceInfo->supportsService( 
u"com.sun.star.awt.UnoControlSpinButtonModel"_ustr ) )
         xVBAControl.set( new ScVbaSpinButton( xVbaParent, xContext, xControl, 
xModel, std::move(xGeoHelper) ) );
-    else if ( xServiceInfo->supportsService( 
"com.sun.star.custom.awt.UnoControlSystemAXContainerModel" ) )
+    else if ( xServiceInfo->supportsService( 
u"com.sun.star.custom.awt.UnoControlSystemAXContainerModel"_ustr ) )
         xVBAControl.set( new VbaSystemAXControl( xVbaParent, xContext, 
xControl, xModel, std::move(xGeoHelper) ) );
     // #FIXME implement a page control
-    else if ( xServiceInfo->supportsService( "com.sun.star.awt.UnoPageModel" ) 
)
+    else if ( xServiceInfo->supportsService( 
u"com.sun.star.awt.UnoPageModel"_ustr ) )
         xVBAControl.set( new ScVbaControl( xVbaParent, xContext, xControl, 
xModel, std::move(xGeoHelper) ) );
-    else if ( xServiceInfo->supportsService( "com.sun.star.awt.UnoFrameModel" 
) )
+    else if ( xServiceInfo->supportsService( 
u"com.sun.star.awt.UnoFrameModel"_ustr ) )
         xVBAControl.set( new ScVbaFrame( xVbaParent, xContext, xControl, 
xModel, std::move(xGeoHelper), xDialog ) );
     if( xVBAControl.is() )
         return xVBAControl;
-    throw uno::RuntimeException( "Unsupported control." );
+    throw uno::RuntimeException( u"Unsupported control."_ustr );
 }
 
 OUString
 ScVbaControl::getServiceImplName()
 {
-    return "ScVbaControl";
+    return u"ScVbaControl"_ustr;
 }
 
 uno::Sequence< OUString >
 ScVbaControl::getServiceNames()
 {
-    return { "ooo.vba.excel.Control" };
+    return { u"ooo.vba.excel.Control"_ustr };
 }
 
 sal_Int32 const nSysCols[] = { 0xC8D0D4, 0x0, 0x6A240A, 0x808080, 0xE4E4E4, 
0xFFFFFF, 0x0, 0x0, 0x0, 0xFFFFFF, 0xE4E4E4, 0xE4E4E4, 0x808080, 0x6A240A, 
0xFFFFFF, 0xE4E4E4, 0x808080, 0x808080, 0x0, 0xC8D0D4, 0xFFFFFF, 0x404040, 
0xE4E4E4, 0x0, 0xE1FFFF };
@@ -708,7 +708,7 @@ sal_Int32 const nSysCols[] = { 0xC8D0D4, 0x0, 0x6A240A, 
0x808080, 0xE4E4E4, 0xFF
 sal_Int32 ScVbaControl::getBackColor()
 {
     sal_Int32 nBackColor = 0;
-    m_xProps->getPropertyValue( "BackgroundColor" ) >>= nBackColor;
+    m_xProps->getPropertyValue( u"BackgroundColor"_ustr ) >>= nBackColor;
     return nBackColor;
 }
 
@@ -720,7 +720,7 @@ void ScVbaControl::setBackColor( sal_Int32 nBackColor )
     {
         nBackColor = nSysCols[ col & 0x0FF];
     }
-    m_xProps->setPropertyValue( "BackgroundColor" , uno::Any( XLRGBToOORGB( 
nBackColor ) ) );
+    m_xProps->setPropertyValue( u"BackgroundColor"_ustr , uno::Any( 
XLRGBToOORGB( nBackColor ) ) );
 }
 
 bool ScVbaControl::getAutoSize() const
@@ -745,13 +745,13 @@ void ScVbaControl::setAutoSize( bool bAutoSize )
 bool ScVbaControl::getLocked()
 {
     bool bRes( false );
-    m_xProps->getPropertyValue( "ReadOnly" ) >>= bRes;
+    m_xProps->getPropertyValue( u"ReadOnly"_ustr ) >>= bRes;
     return bRes;
 }
 
 void ScVbaControl::setLocked( bool bLocked )
 {
-    m_xProps->setPropertyValue( "ReadOnly" , uno::Any( bLocked ) );
+    m_xProps->setPropertyValue( u"ReadOnly"_ustr , uno::Any( bLocked ) );
 }
 
 namespace {
@@ -778,11 +778,11 @@ sal_Bool ControlProviderImpl::supportsService(const 
OUString& sServiceName)
 }
 OUString ControlProviderImpl::getImplementationName()
 {
-    return "ControlProviderImpl";
+    return u"ControlProviderImpl"_ustr;
 }
 css::uno::Sequence< OUString > ControlProviderImpl::getSupportedServiceNames()
 {
-    return { "ooo.vba.ControlProvider" };
+    return { u"ooo.vba.ControlProvider"_ustr };
 }
 
 uno::Reference< msforms::XControl > SAL_CALL
diff --git a/vbahelper/source/msforms/vbacontrols.cxx 
b/vbahelper/source/msforms/vbacontrols.cxx
index 0af1df0963ae..6c6f3c0ca96c 100644
--- a/vbahelper/source/msforms/vbacontrols.cxx
+++ b/vbahelper/source/msforms/vbacontrols.cxx
@@ -94,7 +94,7 @@ public:
 
         uno::Reference< beans::XPropertySet > xProp( xCtrl->getModel(), 
uno::UNO_QUERY_THROW );
         OUString sName;
-        xProp->getPropertyValue( "Name" ) >>= sName;
+        xProp->getPropertyValue( u"Name"_ustr ) >>= sName;
         return sName;
     }
 
@@ -286,80 +286,80 @@ uno::Any SAL_CALL ScVbaControls::Add( const uno::Any& 
Object, const uno::Any& St
             bool bNativeAX = false;
             if( aComServiceName.equalsIgnoreAsciiCase( "Forms.CommandButton.1" 
) )
             {
-                xNewModel.set( xModelFactory->createInstance( 
"com.sun.star.awt.UnoControlButtonModel" ), uno::UNO_QUERY_THROW );
+                xNewModel.set( xModelFactory->createInstance( 
u"com.sun.star.awt.UnoControlButtonModel"_ustr ), uno::UNO_QUERY_THROW );
                 fDefWidth = 72.0; fDefHeight = 24.0;
                 bFontSupport = true;
             }
             else if( aComServiceName.equalsIgnoreAsciiCase( "Forms.Label.1" ) )
             {
-                xNewModel.set( xModelFactory->createInstance( 
"com.sun.star.awt.UnoControlFixedTextModel" ), uno::UNO_QUERY_THROW );
+                xNewModel.set( xModelFactory->createInstance( 
u"com.sun.star.awt.UnoControlFixedTextModel"_ustr ), uno::UNO_QUERY_THROW );
                 fDefWidth = 72.0; fDefHeight = 18.0;
                 bFontSupport = true;
             }
             else if( aComServiceName.equalsIgnoreAsciiCase( "Forms.Image.1" ) )
             {
-                xNewModel.set( xModelFactory->createInstance( 
"com.sun.star.awt.UnoControlImageControlModel" ), uno::UNO_QUERY_THROW );
+                xNewModel.set( xModelFactory->createInstance( 
u"com.sun.star.awt.UnoControlImageControlModel"_ustr ), uno::UNO_QUERY_THROW );
                 fDefWidth = 72.0; fDefHeight = 72.0;
             }
             else if( aComServiceName.equalsIgnoreAsciiCase( "Forms.CheckBox.1" 
) )
             {
-                xNewModel.set( xModelFactory->createInstance( 
"com.sun.star.awt.UnoControlCheckBoxModel" ), uno::UNO_QUERY_THROW );
+                xNewModel.set( xModelFactory->createInstance( 
u"com.sun.star.awt.UnoControlCheckBoxModel"_ustr ), uno::UNO_QUERY_THROW );
                 fDefWidth = 108.0; fDefHeight = 18.0;
                 bFontSupport = true;
             }
             else if( aComServiceName.equalsIgnoreAsciiCase( 
"Forms.OptionButton.1" ) )
             {
-                xNewModel.set( xModelFactory->createInstance( 
"com.sun.star.awt.UnoControlRadioButtonModel" ), uno::UNO_QUERY_THROW );
+                xNewModel.set( xModelFactory->createInstance( 
u"com.sun.star.awt.UnoControlRadioButtonModel"_ustr ), uno::UNO_QUERY_THROW );
                 fDefWidth = 108.0; fDefHeight = 18.0;
                 bFontSupport = true;
             }
             else if( aComServiceName.equalsIgnoreAsciiCase( "Forms.TextBox.1" 
) )
             {
-                xNewModel.set( xModelFactory->createInstance( 
"com.sun.star.awt.UnoControlEditModel" ), uno::UNO_QUERY_THROW );
+                xNewModel.set( xModelFactory->createInstance( 
u"com.sun.star.awt.UnoControlEditModel"_ustr ), uno::UNO_QUERY_THROW );
                 fDefWidth = 72.0; fDefHeight = 18.0;
                 bFontSupport = true;
             }
             else if( aComServiceName.equalsIgnoreAsciiCase( "Forms.ListBox.1" 
) )
             {
-                xNewModel.set( xModelFactory->createInstance( 
"com.sun.star.awt.UnoControlListBoxModel" ), uno::UNO_QUERY_THROW );
+                xNewModel.set( xModelFactory->createInstance( 
u"com.sun.star.awt.UnoControlListBoxModel"_ustr ), uno::UNO_QUERY_THROW );
                 fDefWidth = 72.0; fDefHeight = 18.0;
                 bFontSupport = true;
             }
             else if( aComServiceName.equalsIgnoreAsciiCase( "Forms.ComboBox.1" 
) )
             {
-                xNewModel.set( xModelFactory->createInstance( 
"com.sun.star.awt.UnoControlComboBoxModel" ), uno::UNO_QUERY_THROW );
+                xNewModel.set( xModelFactory->createInstance( 
u"com.sun.star.awt.UnoControlComboBoxModel"_ustr ), uno::UNO_QUERY_THROW );
                 uno::Reference< beans::XPropertySet > xProps( xNewModel, 
uno::UNO_QUERY_THROW );
-                xProps->setPropertyValue( "Dropdown" , uno::Any( true ) );
+                xProps->setPropertyValue( u"Dropdown"_ustr , uno::Any( true ) 
);
                 fDefWidth = 72.0; fDefHeight = 18.0;
                 bFontSupport = true;
             }
             else if( aComServiceName.equalsIgnoreAsciiCase( 
"Forms.ToggleButton.1" ) )
             {
-                xNewModel.set( xModelFactory->createInstance( 
"com.sun.star.awt.UnoControlButtonModel" ), uno::UNO_QUERY_THROW );
+                xNewModel.set( xModelFactory->createInstance( 
u"com.sun.star.awt.UnoControlButtonModel"_ustr ), uno::UNO_QUERY_THROW );
                 uno::Reference< beans::XPropertySet > xProps( xNewModel, 
uno::UNO_QUERY_THROW );
-                xProps->setPropertyValue( "Toggle" , uno::Any( true ) );
+                xProps->setPropertyValue( u"Toggle"_ustr , uno::Any( true ) );
                 fDefWidth = 72.0; fDefHeight = 18.0;
                 bFontSupport = true;
             }
             else if( aComServiceName.equalsIgnoreAsciiCase( "Forms.Frame.1" ) )
             {
-                xNewModel.set( xModelFactory->createInstance( 
"com.sun.star.awt.UnoControlGroupBoxModel" ), uno::UNO_QUERY_THROW );
+                xNewModel.set( xModelFactory->createInstance( 
u"com.sun.star.awt.UnoControlGroupBoxModel"_ustr ), uno::UNO_QUERY_THROW );
                 fDefWidth = 216.0; fDefHeight = 144.0;
                 bFontSupport = true;
             }
             else if( aComServiceName.equalsIgnoreAsciiCase( 
"Forms.SpinButton.1" ) )
             {
-                xNewModel.set( xModelFactory->createInstance( 
"com.sun.star.awt.UnoControlSpinButtonModel" ), uno::UNO_QUERY_THROW );
+                xNewModel.set( xModelFactory->createInstance( 
u"com.sun.star.awt.UnoControlSpinButtonModel"_ustr ), uno::UNO_QUERY_THROW );
                 fDefWidth = 12.75; fDefHeight = 25.5;
             }
             else if( aComServiceName.equalsIgnoreAsciiCase( 
"Forms.ScrollBar.1" ) )
             {
-                xNewModel.set( xModelFactory->createInstance( 
"com.sun.star.awt.UnoControlScrollBarModel" ), uno::UNO_QUERY_THROW );
+                xNewModel.set( xModelFactory->createInstance( 
u"com.sun.star.awt.UnoControlScrollBarModel"_ustr ), uno::UNO_QUERY_THROW );
                 fDefWidth = 12.75; fDefHeight = 63.8;
             }
             else
             {
-                xNewModel.set( xModelFactory->createInstance( 
"com.sun.star.custom.awt.UnoControlSystemAXContainerModel" ), 
uno::UNO_QUERY_THROW );
+                xNewModel.set( xModelFactory->createInstance( 
u"com.sun.star.custom.awt.UnoControlSystemAXContainerModel"_ustr ), 
uno::UNO_QUERY_THROW );
                 fDefWidth = 72.0; fDefHeight = 18.0;
                 bNativeAX = true;
             }
@@ -368,12 +368,12 @@ uno::Any SAL_CALL ScVbaControls::Add( const uno::Any& 
Object, const uno::Any& St
             if( bFontSupport )
             {
                 uno::Reference< beans::XPropertySet > xModelProps( xNewModel, 
uno::UNO_QUERY_THROW );
-                xModelProps->setPropertyValue( "FontName" , uno::Any( 
OUString("Tahoma" ) ) );
-                xModelProps->setPropertyValue( "FontHeight" , uno::Any( float( 
8.0 ) ) );
-                xModelProps->setPropertyValue( "FontWeight" , uno::Any( 
awt::FontWeight::NORMAL ) );
-                xModelProps->setPropertyValue( "FontSlant" , uno::Any( 
awt::FontSlant_NONE ) );
-                xModelProps->setPropertyValue( "FontUnderline" , uno::Any( 
awt::FontUnderline::NONE ) );
-                xModelProps->setPropertyValue( "FontStrikeout" , uno::Any( 
awt::FontStrikeout::NONE ) );
+                xModelProps->setPropertyValue( u"FontName"_ustr , uno::Any( 
u"Tahoma"_ustr ) );
+                xModelProps->setPropertyValue( u"FontHeight"_ustr , uno::Any( 
float( 8.0 ) ) );
+                xModelProps->setPropertyValue( u"FontWeight"_ustr , uno::Any( 
awt::FontWeight::NORMAL ) );
+                xModelProps->setPropertyValue( u"FontSlant"_ustr , uno::Any( 
awt::FontSlant_NONE ) );
+                xModelProps->setPropertyValue( u"FontUnderline"_ustr , 
uno::Any( awt::FontUnderline::NONE ) );
+                xModelProps->setPropertyValue( u"FontStrikeout"_ustr , 
uno::Any( awt::FontStrikeout::NONE ) );
             }
 
             xDialogContainer->insertByName( aNewName, uno::Any( xNewModel ) );
@@ -387,7 +387,7 @@ uno::Any SAL_CALL ScVbaControls::Add( const uno::Any& 
Object, const uno::Any& St
                 uno::Sequence< uno::Any > aArgs{ uno::Any(aComServiceName) };
                 uno::Sequence< sal_Int16 > aOutIDDummy;
                 uno::Sequence< uno::Any > aOutDummy;
-                xControlInvoke->invoke( "SOAddAXControl" , aArgs, aOutIDDummy, 
aOutDummy );
+                xControlInvoke->invoke( u"SOAddAXControl"_ustr , aArgs, 
aOutIDDummy, aOutDummy );
             }
             catch (const uno::Exception&)
             {
@@ -415,7 +415,7 @@ uno::Any SAL_CALL ScVbaControls::Add( const uno::Any& 
Object, const uno::Any& St
     catch (const uno::Exception&)
     {
         css::uno::Any anyEx = cppu::getCaughtException();
-        throw lang::WrappedTargetRuntimeException( "Can not create AXControl!",
+        throw lang::WrappedTargetRuntimeException( u"Can not create 
AXControl!"_ustr,
                 uno::Reference< uno::XInterface >(),
                 anyEx );
     }
@@ -490,5 +490,5 @@ ScVbaControls::getElementType()
     return cppu::UnoType<ooo::vba::msforms::XControl>::get();
 }
 
-VBAHELPER_IMPL_XHELPERINTERFACE( ScVbaControls, "ooo.vba.msforms.Controls" )
+VBAHELPER_IMPL_XHELPERINTERFACE( ScVbaControls, 
u"ooo.vba.msforms.Controls"_ustr )
 /* vim:set shiftwidth=4 softtabstop=4 expandtab: */
diff --git a/vbahelper/source/msforms/vbaframe.cxx 
b/vbahelper/source/msforms/vbaframe.cxx
index 12a005bb3bd0..8f8eb92ae748 100644
--- a/vbahelper/source/msforms/vbaframe.cxx
+++ b/vbahelper/source/msforms/vbaframe.cxx
@@ -44,13 +44,13 @@ ScVbaFrame::ScVbaFrame(
 OUString SAL_CALL ScVbaFrame::getCaption()
 {
     OUString Label;
-    m_xProps->getPropertyValue( "Label" ) >>= Label;
+    m_xProps->getPropertyValue( u"Label"_ustr ) >>= Label;
     return Label;
 }
 
 void SAL_CALL ScVbaFrame::setCaption( const OUString& _caption )
 {
-    m_xProps->setPropertyValue( "Label", uno::Any( _caption ) );
+    m_xProps->setPropertyValue( u"Label"_ustr, uno::Any( _caption ) );
 }
 
 sal_Int32 SAL_CALL ScVbaFrame::getSpecialEffect()
@@ -96,5 +96,5 @@ uno::Any SAL_CALL ScVbaFrame::Controls( const uno::Any& 
rIndex )
 
 // XHelperInterface
 
-VBAHELPER_IMPL_XHELPERINTERFACE( ScVbaFrame, "ooo.vba.msforms.Frame" )
+VBAHELPER_IMPL_XHELPERINTERFACE( ScVbaFrame, u"ooo.vba.msforms.Frame"_ustr )
 /* vim:set shiftwidth=4 softtabstop=4 expandtab: */
diff --git a/vbahelper/source/msforms/vbaimage.cxx 
b/vbahelper/source/msforms/vbaimage.cxx
index 827544168676..7ae6dc68813d 100644
--- a/vbahelper/source/msforms/vbaimage.cxx
+++ b/vbahelper/source/msforms/vbaimage.cxx
@@ -30,7 +30,7 @@ ScVbaImage::ScVbaImage( const uno::Reference< 
XHelperInterface >& xParent, const
 OUString
 ScVbaImage::getServiceImplName()
 {
-    return "ScVbaImage";
+    return u"ScVbaImage"_ustr;
 }
 
 uno::Sequence< OUString >
@@ -38,7 +38,7 @@ ScVbaImage::getServiceNames()
 {
     static uno::Sequence< OUString > const aServiceNames
     {
-        "ooo.vba.msforms.Image"
+        u"ooo.vba.msforms.Image"_ustr
     };
     return aServiceNames;
 }
diff --git a/vbahelper/source/msforms/vbalabel.cxx 
b/vbahelper/source/msforms/vbalabel.cxx
index 5b7164b45c34..cb02f2afaf3a 100644
--- a/vbahelper/source/msforms/vbalabel.cxx
+++ b/vbahelper/source/msforms/vbalabel.cxx
@@ -33,14 +33,14 @@ OUString SAL_CALL
 ScVbaLabel::getCaption()
 {
     OUString Label;
-    m_xProps->getPropertyValue( "Label" ) >>= Label;
+    m_xProps->getPropertyValue( u"Label"_ustr ) >>= Label;
     return Label;
 }
 
 void SAL_CALL
 ScVbaLabel::setCaption( const OUString& _caption )
 {
-    m_xProps->setPropertyValue( "Label", uno::Any( _caption ) );
+    m_xProps->setPropertyValue( u"Label"_ustr, uno::Any( _caption ) );
 }
 uno::Any SAL_CALL
 ScVbaLabel::getValue()
@@ -76,7 +76,7 @@ uno::Reference< msforms::XNewFont > SAL_CALL 
ScVbaLabel::getFont()
 
 OUString ScVbaLabel::getServiceImplName()
 {
-    return "ScVbaLabel";
+    return u"ScVbaLabel"_ustr;
 }
 
 sal_Int32 SAL_CALL ScVbaLabel::getBackColor()
@@ -104,7 +104,7 @@ ScVbaLabel::getServiceNames()
 {
     static uno::Sequence< OUString > const aServiceNames
     {
-        "ooo.vba.msforms.Label"
+        u"ooo.vba.msforms.Label"_ustr
     };
     return aServiceNames;
 }
diff --git a/vbahelper/source/msforms/vbalabel.hxx 
b/vbahelper/source/msforms/vbalabel.hxx
index f7fc98416704..eb81c476440e 100644
--- a/vbahelper/source/msforms/vbalabel.hxx
+++ b/vbahelper/source/msforms/vbalabel.hxx
@@ -47,7 +47,7 @@ public:
     virtual OUString getServiceImplName() override;
     virtual css::uno::Sequence<OUString> getServiceNames() override;
     // XDefaultProperty
-    OUString SAL_CALL getDefaultPropertyName(  ) override { return "Value"; }
+    OUString SAL_CALL getDefaultPropertyName(  ) override { return 
u"Value"_ustr; }
 };
 #endif // INCLUDED_VBAHELPER_SOURCE_MSFORMS_VBALABEL_HXX
 
diff --git a/vbahelper/source/msforms/vbalistbox.cxx 
b/vbahelper/source/msforms/vbalistbox.cxx
index b7c1fc0097db..ba16007786a5 100644
--- a/vbahelper/source/msforms/vbalistbox.cxx
+++ b/vbahelper/source/msforms/vbalistbox.cxx
@@ -46,7 +46,7 @@ uno::Any SAL_CALL
 ScVbaListBox::getListIndex()
 {
     uno::Sequence< sal_Int16 > sSelection;
-    m_xProps->getPropertyValue( "SelectedItems" ) >>= sSelection;
+    m_xProps->getPropertyValue( u"SelectedItems"_ustr ) >>= sSelection;
     if ( !sSelection.hasElements() )
         return uno::Any( sal_Int32( -1 ) );
     return uno::Any( sSelection[ 0 ] );
@@ -57,10 +57,10 @@ ScVbaListBox::getValue()
 {
     uno::Sequence< sal_Int16 > sSelection;
     uno::Sequence< OUString > sItems;
-    m_xProps->getPropertyValue( "SelectedItems" ) >>= sSelection;
-    m_xProps->getPropertyValue( "StringItemList" ) >>= sItems;
+    m_xProps->getPropertyValue( u"SelectedItems"_ustr ) >>= sSelection;
+    m_xProps->getPropertyValue( u"StringItemList"_ustr ) >>= sItems;
     if( getMultiSelect() )
-        throw uno::RuntimeException( "Attribute use invalid." );
+        throw uno::RuntimeException( u"Attribute use invalid."_ustr );
     uno::Any aRet;
     if ( sSelection.hasElements() )
         aRet <<= sItems[ sSelection[ 0 ] ];
@@ -72,19 +72,19 @@ ScVbaListBox::setValue( const uno::Any& _value )
 {
     if( getMultiSelect() )
     {
-        throw uno::RuntimeException( "Attribute use invalid." );
+        throw uno::RuntimeException( u"Attribute use invalid."_ustr );
     }
     OUString sValue = getAnyAsString( _value );
     uno::Sequence< OUString > sList;
-    m_xProps->getPropertyValue( "StringItemList" ) >>= sList;
+    m_xProps->getPropertyValue( u"StringItemList"_ustr ) >>= sList;
     sal_Int16 nValue = static_cast<sal_Int16>(comphelper::findValue(sList, 
sValue));
     if( nValue == -1 )
-        throw uno::RuntimeException( "Attribute use invalid." );
+        throw uno::RuntimeException( u"Attribute use invalid."_ustr );
 
     uno::Sequence< sal_Int16 > nSelectedIndices { nValue };
     uno::Sequence< sal_Int16 > nOldSelectedIndices;
-    m_xProps->getPropertyValue( "SelectedItems" ) >>= nOldSelectedIndices;
-    m_xProps->setPropertyValue( "SelectedItems", uno::Any( nSelectedIndices ) 
);
+    m_xProps->getPropertyValue( u"SelectedItems"_ustr ) >>= 
nOldSelectedIndices;
+    m_xProps->setPropertyValue( u"SelectedItems"_ustr, uno::Any( 
nSelectedIndices ) );
     if ( nSelectedIndices != nOldSelectedIndices )
         fireClickEvent();
 }
@@ -107,7 +107,7 @@ sal_Int32 SAL_CALL
 ScVbaListBox::getMultiSelect()
 {
     bool bMultiSelect = false;
-    m_xProps->getPropertyValue( "MultiSelection" ) >>= bMultiSelect;
+    m_xProps->getPropertyValue( u"MultiSelection"_ustr ) >>= bMultiSelect;
 
     return bMultiSelect ? msforms::fmMultiSelect::fmMultiSelectMulti : 
msforms::fmMultiSelect::fmMultiSelectSingle;
 }
@@ -129,7 +129,7 @@ ScVbaListBox::setMultiSelect( sal_Int32 _multiselect )
             throw lang::IllegalArgumentException();
             break;
     }
-    m_xProps->setPropertyValue( "MultiSelection" , uno::Any( bBoolVal ) );
+    m_xProps->setPropertyValue( u"MultiSelection"_ustr , uno::Any( bBoolVal ) 
);
 }
 
 
@@ -137,13 +137,13 @@ css::uno::Any SAL_CALL
 ScVbaListBox::Selected( sal_Int32 index )
 {
     uno::Sequence< OUString > sList;
-    m_xProps->getPropertyValue( "StringItemList" ) >>= sList;
+    m_xProps->getPropertyValue( u"StringItemList"_ustr ) >>= sList;
     sal_Int16 nLength = static_cast< sal_Int16 >( sList.getLength() );
     // no choice but to do a horror cast as internally
     // the indices are but sal_Int16
     sal_Int16 nIndex = static_cast< sal_Int16 >( index );
     if( nIndex < 0 || nIndex >= nLength )
-        throw uno::RuntimeException( "Error Number." );
+        throw uno::RuntimeException( u"Error Number."_ustr );
     m_nIndex = nIndex;
     return uno::Any( uno::Reference< XPropValue > ( new ScVbaPropValue( this ) 
) );
 }
@@ -176,9 +176,9 @@ ScVbaListBox::setValueEvent( const uno::Any& value )
 {
     bool bValue = false;
     if( !(value >>= bValue) )
-        throw uno::RuntimeException( "Invalid type. need boolean." );
+        throw uno::RuntimeException( u"Invalid type. need boolean."_ustr );
     uno::Sequence< sal_Int16 > nList;
-    m_xProps->getPropertyValue( "SelectedItems" ) >>= nList;
+    m_xProps->getPropertyValue( u"SelectedItems"_ustr ) >>= nList;
     sal_Int16 nLength = static_cast<sal_Int16>( nList.getLength() );
     sal_Int16 nIndex = m_nIndex;
     for( sal_Int16 i = 0; i < nLength; i++ )
@@ -195,7 +195,7 @@ ScVbaListBox::setValueEvent( const uno::Any& value )
                 nList.realloc( nLength - 1 );
                 //m_xProps->setPropertyValue( sSourceName, uno::makeAny( nList 
) );
                 fireClickEvent();
-                m_xProps->setPropertyValue( "SelectedItems", uno::Any( nList ) 
);
+                m_xProps->setPropertyValue( u"SelectedItems"_ustr, uno::Any( 
nList ) );
             }
             return;
         }
@@ -214,7 +214,7 @@ ScVbaListBox::setValueEvent( const uno::Any& value )
     }
     //m_xProps->setPropertyValue( sSourceName, uno::makeAny( nList ) );
     fireClickEvent();
-    m_xProps->setPropertyValue( "SelectedItems", uno::Any( nList ) );
+    m_xProps->setPropertyValue( u"SelectedItems"_ustr, uno::Any( nList ) );
 }
 
 // this is called when something like the following vba code is used
@@ -225,7 +225,7 @@ css::uno::Any
 ScVbaListBox::getValueEvent()
 {
     uno::Sequence< sal_Int16 > nList;
-    m_xProps->getPropertyValue( "SelectedItems" ) >>= nList;
+    m_xProps->getPropertyValue( u"SelectedItems"_ustr ) >>= nList;
     sal_Int32 nIndex = m_nIndex;
     bool bRet = std::find(std::cbegin(nList), std::cend(nList), nIndex) != 
std::cend(nList);
 
@@ -259,7 +259,7 @@ uno::Reference< msforms::XNewFont > SAL_CALL 
ScVbaListBox::getFont()
 OUString
 ScVbaListBox::getServiceImplName()
 {
-    return "ScVbaListBox";
+    return u"ScVbaListBox"_ustr;
 }
 
 uno::Sequence< OUString >
@@ -267,7 +267,7 @@ ScVbaListBox::getServiceNames()
 {
     static uno::Sequence< OUString > const aServiceNames
     {
-        "ooo.vba.msforms.ScVbaListBox"
+        u"ooo.vba.msforms.ScVbaListBox"_ustr
     };
     return aServiceNames;
 }
diff --git a/vbahelper/source/msforms/vbalistbox.hxx 
b/vbahelper/source/msforms/vbalistbox.hxx
index b5dde46ebad3..885d42372a6a 100644
--- a/vbahelper/source/msforms/vbalistbox.hxx
+++ b/vbahelper/source/msforms/vbalistbox.hxx
@@ -64,7 +64,7 @@ public:
     virtual void SAL_CALL setRowSource( const OUString& _rowsource ) override;
 
     // XDefaultProperty
-    OUString SAL_CALL getDefaultPropertyName(  ) override { return "Value"; }
+    OUString SAL_CALL getDefaultPropertyName(  ) override { return 
u"Value"_ustr; }
 
     //XHelperInterface
     virtual OUString getServiceImplName() override;
diff --git a/vbahelper/source/msforms/vbalistcontrolhelper.cxx 
b/vbahelper/source/msforms/vbalistcontrolhelper.cxx
index c5dc325c8258..5744be3edb81 100644
--- a/vbahelper/source/msforms/vbalistcontrolhelper.cxx
+++ b/vbahelper/source/msforms/vbalistcontrolhelper.cxx
@@ -52,15 +52,15 @@ ListPropListener::ListPropListener( uno::Reference< 
beans::XPropertySet > xProps
 void ListPropListener::setValueEvent( const uno::Any& value )
 {
     if( m_pvargIndex.hasValue() || m_pvarColumn.hasValue() )
-        throw uno::RuntimeException( "Bad argument" );
+        throw uno::RuntimeException( u"Bad argument"_ustr );
 
-    m_xProps->setPropertyValue( "StringItemList", value );
+    m_xProps->setPropertyValue( u"StringItemList"_ustr, value );
 }
 
 uno::Any ListPropListener::getValueEvent()
 {
     uno::Sequence< OUString > sList;
-    m_xProps->getPropertyValue( "StringItemList" ) >>= sList;
+    m_xProps->getPropertyValue( u"StringItemList"_ustr ) >>= sList;
     sal_Int16 nLength = static_cast< sal_Int16 >( sList.getLength() );
     uno::Any aRet;
     if ( m_pvargIndex.hasValue() )
@@ -68,11 +68,11 @@ uno::Any ListPropListener::getValueEvent()
         sal_Int16 nIndex = -1;
         m_pvargIndex >>= nIndex;
         if( nIndex < 0 || nIndex >= nLength )
-            throw uno::RuntimeException( "Bad row Index" );
+            throw uno::RuntimeException( u"Bad row Index"_ustr );
         aRet <<= sList[ nIndex ];
     }
     else if ( m_pvarColumn.hasValue() ) // pvarColumn on its own would be bad
-            throw uno::RuntimeException( "Bad column Index" );
+            throw uno::RuntimeException( u"Bad column Index"_ustr );
     else // List() ( e.g. no args )
     {
         uno::Sequence< uno::Sequence< OUString > > sReturnArray( nLength );
@@ -94,7 +94,7 @@ ListControlHelper::AddItem( const uno::Any& pvargItem, const 
uno::Any& pvargInde
         return;
 
     uno::Sequence< OUString > sList;
-    m_xProps->getPropertyValue( "StringItemList" ) >>= sList;
+    m_xProps->getPropertyValue( u"StringItemList"_ustr ) >>= sList;
 
     sal_Int32 nIndex = sList.getLength();
 
@@ -130,7 +130,7 @@ ListControlHelper::AddItem( const uno::Any& pvargItem, 
const uno::Any& pvargInde
         std::copy(sVec.begin(), sVec.end(), std::next(sList.getArray(), 
nIndex));
     }
 
-    m_xProps->setPropertyValue( "StringItemList", uno::Any( sList ) );
+    m_xProps->setPropertyValue( u"StringItemList"_ustr, uno::Any( sList ) );
 }
 
 void
@@ -142,9 +142,9 @@ ListControlHelper::removeItem( const uno::Any& index )
         return;
 
     uno::Sequence< OUString > sList;
-    m_xProps->getPropertyValue( "StringItemList" ) >>= sList;
+    m_xProps->getPropertyValue( u"StringItemList"_ustr ) >>= sList;
     if( nIndex < 0 || nIndex > ( sList.getLength() - 1 ) )
-        throw uno::RuntimeException( "Invalid index" , uno::Reference< 
uno::XInterface > () );
+        throw uno::RuntimeException( u"Invalid index"_ustr , uno::Reference< 
uno::XInterface > () );
     if( sList.hasElements() )
     {
         if( sList.getLength() == 1 )
@@ -156,7 +156,7 @@ ListControlHelper::removeItem( const uno::Any& index )
         comphelper::removeElementAt(sList, nIndex);
     }
 
-    m_xProps->setPropertyValue( "StringItemList", uno::Any( sList ) );
+    m_xProps->setPropertyValue( u"StringItemList"_ustr, uno::Any( sList ) );
 }
 
 void
@@ -164,7 +164,7 @@ ListControlHelper::Clear(  )
 {
     // urk, setValue doesn't seem to work !!
     //setValue( uno::makeAny( sal_Int16() ) );
-    m_xProps->setPropertyValue( "StringItemList", uno::Any( uno::Sequence< 
OUString >() ) );
+    m_xProps->setPropertyValue( u"StringItemList"_ustr, uno::Any( 
uno::Sequence< OUString >() ) );
 }
 
 void
@@ -178,7 +178,7 @@ sal_Int32
 ListControlHelper::getListCount()
 {
     uno::Sequence< OUString > sList;
-    m_xProps->getPropertyValue( "StringItemList" ) >>= sList;
+    m_xProps->getPropertyValue( u"StringItemList"_ustr ) >>= sList;
     return sList.getLength();
 }
 
diff --git a/vbahelper/source/msforms/vbamultipage.cxx 
b/vbahelper/source/msforms/vbamultipage.cxx
index 72f62b665248..055701f84184 100644
--- a/vbahelper/source/msforms/vbamultipage.cxx
+++ b/vbahelper/source/msforms/vbamultipage.cxx
@@ -90,7 +90,7 @@ ScVbaMultiPage::setValue( const sal_Int32 _value )
 OUString
 ScVbaMultiPage::getServiceImplName()
 {
-    return "ScVbaMultiPage";
+    return u"ScVbaMultiPage"_ustr;
 }
 
 uno::Any SAL_CALL
@@ -109,7 +109,7 @@ ScVbaMultiPage::getServiceNames()
 {
     static uno::Sequence< OUString > const aServiceNames
     {
-        "ooo.vba.msforms.MultiPage"
+        u"ooo.vba.msforms.MultiPage"_ustr
     };
     return aServiceNames;
 }
diff --git a/vbahelper/source/msforms/vbanewfont.cxx 
b/vbahelper/source/msforms/vbanewfont.cxx
index b966d8454a81..63a1515692bf 100644
--- a/vbahelper/source/msforms/vbanewfont.cxx
+++ b/vbahelper/source/msforms/vbanewfont.cxx
@@ -39,29 +39,29 @@ VbaNewFont::VbaNewFont(
 
 OUString SAL_CALL VbaNewFont::getName()
 {
-    uno::Any aAny = mxProps->getPropertyValue( "FontName" );
+    uno::Any aAny = mxProps->getPropertyValue( u"FontName"_ustr );
     return aAny.get< OUString >();
 }
 
 void SAL_CALL VbaNewFont::setName( const OUString& rName )
 {
-    mxProps->setPropertyValue( "FontName" , uno::Any( rName ) );
+    mxProps->setPropertyValue( u"FontName"_ustr , uno::Any( rName ) );
 }
 
 double SAL_CALL VbaNewFont::getSize()
 {
-    uno::Any aAny = mxProps->getPropertyValue( "FontHeight" );
+    uno::Any aAny = mxProps->getPropertyValue( u"FontHeight"_ustr );
     return aAny.get< float >();
 }
 
 void SAL_CALL VbaNewFont::setSize( double fSize )
 {
-    mxProps->setPropertyValue( "FontHeight" , uno::Any( static_cast< float >( 
fSize ) ) );
+    mxProps->setPropertyValue( u"FontHeight"_ustr , uno::Any( static_cast< 
float >( fSize ) ) );
 }
 
 sal_Int16 SAL_CALL VbaNewFont::getCharset()
 {
-    uno::Any aAny = mxProps->getPropertyValue( "FontCharset" );
+    uno::Any aAny = mxProps->getPropertyValue( u"FontCharset"_ustr );
     return rtl_getBestWindowsCharsetFromTextEncoding( static_cast< 
rtl_TextEncoding >( aAny.get< sal_Int16 >() ) );
 }
 
@@ -71,8 +71,8 @@ void SAL_CALL VbaNewFont::setCharset( sal_Int16 nCharset )
     if( (0 <= nCharset) && (nCharset <= SAL_MAX_UINT8) )
         eFontEnc = rtl_getTextEncodingFromWindowsCharset( static_cast< 
sal_uInt8 >( nCharset ) );
     if( eFontEnc == RTL_TEXTENCODING_DONTKNOW )
-        throw uno::RuntimeException("an unknown or missing encoding");
-    mxProps->setPropertyValue( "FontCharset" , uno::Any( static_cast< 
sal_Int16 >( eFontEnc ) ) );
+        throw uno::RuntimeException(u"an unknown or missing encoding"_ustr);
+    mxProps->setPropertyValue( u"FontCharset"_ustr , uno::Any( static_cast< 
sal_Int16 >( eFontEnc ) ) );
 }
 
 sal_Int16 SAL_CALL VbaNewFont::getWeight()
@@ -87,46 +87,46 @@ void SAL_CALL VbaNewFont::setWeight( sal_Int16 nWeight )
 
 sal_Bool SAL_CALL VbaNewFont::getBold()
 {
-    uno::Any aAny = mxProps->getPropertyValue( "FontWeight" );
+    uno::Any aAny = mxProps->getPropertyValue( u"FontWeight"_ustr );
     return aAny.get< float >() > awt::FontWeight::NORMAL;
 }
 
 void SAL_CALL VbaNewFont::setBold( sal_Bool bBold )
 {
-    mxProps->setPropertyValue( "FontWeight" , uno::Any( bBold ? 
awt::FontWeight::BOLD : awt::FontWeight::NORMAL ) );
+    mxProps->setPropertyValue( u"FontWeight"_ustr , uno::Any( bBold ? 
awt::FontWeight::BOLD : awt::FontWeight::NORMAL ) );
 }
 
 sal_Bool SAL_CALL VbaNewFont::getItalic()
 {
-    uno::Any aAny = mxProps->getPropertyValue( "FontSlant" );
+    uno::Any aAny = mxProps->getPropertyValue( u"FontSlant"_ustr );
     return aAny.get< awt::FontSlant >() != awt::FontSlant_NONE;
 }
 
 void SAL_CALL VbaNewFont::setItalic( sal_Bool bItalic )
 {
-    mxProps->setPropertyValue( "FontSlant" , uno::Any( bItalic ? 
awt::FontSlant_ITALIC : awt::FontSlant_NONE ) );
+    mxProps->setPropertyValue( u"FontSlant"_ustr , uno::Any( bItalic ? 
awt::FontSlant_ITALIC : awt::FontSlant_NONE ) );
 }
 
 sal_Bool SAL_CALL VbaNewFont::getUnderline()
 {
-    uno::Any aAny = mxProps->getPropertyValue("FontUnderline" );
+    uno::Any aAny = mxProps->getPropertyValue(u"FontUnderline"_ustr );
     return aAny.get< sal_Int16 >() != awt::FontUnderline::NONE;
 }
 
 void SAL_CALL VbaNewFont::setUnderline( sal_Bool bUnderline )
 {
-    mxProps->setPropertyValue("FontUnderline" , uno::Any( bUnderline ? 
awt::FontUnderline::SINGLE : awt::FontUnderline::NONE ) );
+    mxProps->setPropertyValue(u"FontUnderline"_ustr , uno::Any( bUnderline ? 
awt::FontUnderline::SINGLE : awt::FontUnderline::NONE ) );
 }
 
 sal_Bool SAL_CALL VbaNewFont::getStrikethrough()
 {
-    uno::Any aAny = mxProps->getPropertyValue( "FontStrikeout" );
+    uno::Any aAny = mxProps->getPropertyValue( u"FontStrikeout"_ustr );
     return aAny.get< sal_Int16 >() != awt::FontStrikeout::NONE;
 }
 
 void SAL_CALL VbaNewFont::setStrikethrough( sal_Bool bStrikethrough )
 {
-    mxProps->setPropertyValue( "FontStrikeout" ,uno::Any( bStrikethrough ? 
awt::FontStrikeout::SINGLE : awt::FontStrikeout::NONE ) );
+    mxProps->setPropertyValue( u"FontStrikeout"_ustr ,uno::Any( bStrikethrough 
? awt::FontStrikeout::SINGLE : awt::FontStrikeout::NONE ) );
 }
 
 /* vim:set shiftwidth=4 softtabstop=4 expandtab: */
diff --git a/vbahelper/source/msforms/vbapages.cxx 
b/vbahelper/source/msforms/vbapages.cxx
index 05e0f25c110d..e9ae33effd7f 100644
--- a/vbahelper/source/msforms/vbapages.cxx
+++ b/vbahelper/source/msforms/vbapages.cxx
@@ -41,7 +41,7 @@ ScVbaPages::createCollectionObject( const css::uno::Any& 
aSource )
 OUString
 ScVbaPages::getServiceImplName()
 {
-    return "ScVbaPages";
+    return u"ScVbaPages"_ustr;
 }
 
 uno::Reference< container::XEnumeration > SAL_CALL
@@ -56,7 +56,7 @@ ScVbaPages::getServiceNames()
 {
     static uno::Sequence< OUString > const aServiceNames
     {
-        "ooo.vba.msform.Pages"
+        u"ooo.vba.msform.Pages"_ustr
     };
     return aServiceNames;
 }
diff --git a/vbahelper/source/msforms/vbaprogressbar.cxx 
b/vbahelper/source/msforms/vbaprogressbar.cxx
index 2e6462e4d72b..182aa987e33f 100644
--- a/vbahelper/source/msforms/vbaprogressbar.cxx
+++ b/vbahelper/source/msforms/vbaprogressbar.cxx
@@ -45,7 +45,7 @@ ScVbaProgressBar::setValue( const uno::Any& _value )
 OUString
 ScVbaProgressBar::getServiceImplName()
 {
-    return "ScVbaProgressBar";
+    return u"ScVbaProgressBar"_ustr;
 }
 
 uno::Sequence< OUString >
@@ -53,7 +53,7 @@ ScVbaProgressBar::getServiceNames()
 {
     static uno::Sequence< OUString > const aServiceNames
     {
-        "ooo.vba.msforms.Label"
+        u"ooo.vba.msforms.Label"_ustr
     };
     return aServiceNames;
 }
diff --git a/vbahelper/source/msforms/vbaprogressbar.hxx 
b/vbahelper/source/msforms/vbaprogressbar.hxx
index 8385ce4579b3..c1ee952a4a48 100644
--- a/vbahelper/source/msforms/vbaprogressbar.hxx
+++ b/vbahelper/source/msforms/vbaprogressbar.hxx
@@ -40,7 +40,7 @@ public:
     virtual OUString getServiceImplName() override;
     virtual css::uno::Sequence<OUString> getServiceNames() override;
     // XDefaultProperty
-    OUString SAL_CALL getDefaultPropertyName(  ) override { return "Value"; }
+    OUString SAL_CALL getDefaultPropertyName(  ) override { return 
u"Value"_ustr; }
 };
 
 #endif // INCLUDED_VBAHELPER_SOURCE_MSFORMS_VBAPROGRESSBAR_HXX
diff --git a/vbahelper/source/msforms/vbaradiobutton.cxx 
b/vbahelper/source/msforms/vbaradiobutton.cxx
index 7a3e624bf041..86dde012961c 100644
--- a/vbahelper/source/msforms/vbaradiobutton.cxx
+++ b/vbahelper/source/msforms/vbaradiobutton.cxx
@@ -33,21 +33,21 @@ OUString SAL_CALL
 ScVbaRadioButton::getCaption()
 {
     OUString Label;
-    m_xProps->getPropertyValue( "Label" ) >>= Label;
+    m_xProps->getPropertyValue( u"Label"_ustr ) >>= Label;
     return Label;
 }
 
 void SAL_CALL
 ScVbaRadioButton::setCaption( const OUString& _caption )
 {
-    m_xProps->setPropertyValue( "Label", uno::Any( _caption ) );
+    m_xProps->setPropertyValue( u"Label"_ustr, uno::Any( _caption ) );
 }
 
 uno::Any SAL_CALL
 ScVbaRadioButton::getValue()
 {
     sal_Int16 nValue = -1;
-    m_xProps->getPropertyValue( "State" ) >>= nValue;
+    m_xProps->getPropertyValue( u"State"_ustr ) >>= nValue;
     if( nValue != 0 )
         nValue = -1;
 //    return uno::makeAny( nValue );
@@ -62,7 +62,7 @@ ScVbaRadioButton::setValue( const uno::Any& _value )
 {
     sal_Int16 nValue = 0;
     sal_Int16 nOldValue = 0;
-    m_xProps->getPropertyValue( "State" ) >>= nOldValue;
+    m_xProps->getPropertyValue( u"State"_ustr ) >>= nOldValue;
 
     if( !( _value >>= nValue ) )
     {
@@ -74,7 +74,7 @@ ScVbaRadioButton::setValue( const uno::Any& _value )
 
     if( nValue == -1)
         nValue = 1;
-    m_xProps->setPropertyValue( "State", uno::Any( nValue ) );
+    m_xProps->setPropertyValue( u"State"_ustr, uno::Any( nValue ) );
     if ( nValue != nOldValue )
     {
         fireChangeEvent();
@@ -94,7 +94,7 @@ uno::Reference< msforms::XNewFont > SAL_CALL 
ScVbaRadioButton::getFont()
 OUString
 ScVbaRadioButton::getServiceImplName()
 {
-    return "ScVbaRadioButton";
+    return u"ScVbaRadioButton"_ustr;
 }
 
 uno::Sequence< OUString >
@@ -102,7 +102,7 @@ ScVbaRadioButton::getServiceNames()
 {
     static uno::Sequence< OUString > const aServiceNames
     {
-        "ooo.vba.msforms.RadioButton"
+        u"ooo.vba.msforms.RadioButton"_ustr
     };
     return aServiceNames;
 }
diff --git a/vbahelper/source/msforms/vbaradiobutton.hxx 
b/vbahelper/source/msforms/vbaradiobutton.hxx
index a6f12ae90f2b..93ac1d817b32 100644
--- a/vbahelper/source/msforms/vbaradiobutton.hxx
+++ b/vbahelper/source/msforms/vbaradiobutton.hxx
@@ -40,7 +40,7 @@ public:
     virtual OUString getServiceImplName() override;
     virtual css::uno::Sequence<OUString> getServiceNames() override;
     // XDefaultProperty
-    OUString SAL_CALL getDefaultPropertyName(  ) override { return "Value"; }
+    OUString SAL_CALL getDefaultPropertyName(  ) override { return 
u"Value"_ustr; }
 
 };
 #endif // INCLUDED_VBAHELPER_SOURCE_MSFORMS_VBARADIOBUTTON_HXX
diff --git a/vbahelper/source/msforms/vbascrollbar.cxx 
b/vbahelper/source/msforms/vbascrollbar.cxx
index 229bfad51bce..065338113fd4 100644
--- a/vbahelper/source/msforms/vbascrollbar.cxx
+++ b/vbahelper/source/msforms/vbascrollbar.cxx
@@ -31,54 +31,54 @@ ScVbaScrollBar::ScVbaScrollBar(  const css::uno::Reference< 
ov::XHelperInterface
 uno::Any SAL_CALL
 ScVbaScrollBar::getValue()
 {
-    return  m_xProps->getPropertyValue( "ScrollValue" );
+    return  m_xProps->getPropertyValue( u"ScrollValue"_ustr );
 }
 
 void SAL_CALL
 ScVbaScrollBar::setValue( const uno::Any& _value )
 {
-    m_xProps->setPropertyValue( "ScrollValue", _value );
+    m_xProps->setPropertyValue( u"ScrollValue"_ustr, _value );
 }
 
 ::sal_Int32 SAL_CALL
 ScVbaScrollBar::getMax()
 {
     sal_Int32 nMax = 0;
-    m_xProps->getPropertyValue( "ScrollValueMax" ) >>= nMax;
+    m_xProps->getPropertyValue( u"ScrollValueMax"_ustr ) >>= nMax;
     return nMax;
 }
 
 void SAL_CALL
 ScVbaScrollBar::setMax( sal_Int32 nVal )
 {
-    m_xProps->setPropertyValue( "ScrollValueMax", uno::Any( nVal ) );
+    m_xProps->setPropertyValue( u"ScrollValueMax"_ustr, uno::Any( nVal ) );
 }
 
 ::sal_Int32 SAL_CALL
 ScVbaScrollBar::getMin()
 {
     sal_Int32 nVal = 0;
-    m_xProps->getPropertyValue( "ScrollValueMin" ) >>= nVal;
+    m_xProps->getPropertyValue( u"ScrollValueMin"_ustr ) >>= nVal;
     return nVal;
 }
 
 void SAL_CALL
 ScVbaScrollBar::setMin( sal_Int32 nVal )
 {
-    m_xProps->setPropertyValue( "ScrollValueMin", uno::Any( nVal ) );
+    m_xProps->setPropertyValue( u"ScrollValueMin"_ustr, uno::Any( nVal ) );
 }
 
 void SAL_CALL
 ScVbaScrollBar::setLargeChange( ::sal_Int32 _largechange )
 {
-    m_xProps->setPropertyValue( "BlockIncrement", uno::Any( _largechange ) );
+    m_xProps->setPropertyValue( u"BlockIncrement"_ustr, uno::Any( _largechange 
) );
 }
 
 ::sal_Int32 SAL_CALL
 ScVbaScrollBar::getLargeChange()
 {
     sal_Int32 nVal = 0;
-    m_xProps->getPropertyValue( "BlockIncrement" ) >>= nVal;
+    m_xProps->getPropertyValue( u"BlockIncrement"_ustr ) >>= nVal;
     return nVal;
 }
 
@@ -86,20 +86,20 @@ ScVbaScrollBar::getLargeChange()
 ScVbaScrollBar::getSmallChange()
 {
     sal_Int32 nSmallChange = 0;
-    m_xProps->getPropertyValue( "LineIncrement" ) >>= nSmallChange;
+    m_xProps->getPropertyValue( u"LineIncrement"_ustr ) >>= nSmallChange;
     return nSmallChange;
 }
 
 void SAL_CALL
 ScVbaScrollBar::setSmallChange( ::sal_Int32 _smallchange )
 {
-    m_xProps->setPropertyValue( "LineIncrement", uno::Any( _smallchange ) );
+    m_xProps->setPropertyValue( u"LineIncrement"_ustr, uno::Any( _smallchange 
) );
 }
 
 OUString
 ScVbaScrollBar::getServiceImplName()
 {
-    return "ScVbaScrollBar";
+    return u"ScVbaScrollBar"_ustr;
 }
 
 uno::Sequence< OUString >
@@ -107,7 +107,7 @@ ScVbaScrollBar::getServiceNames()
 {
     static uno::Sequence< OUString > const aServiceNames
     {
-        "ooo.vba.msforms.Frame"
+        u"ooo.vba.msforms.Frame"_ustr
     };
     return aServiceNames;
 }
diff --git a/vbahelper/source/msforms/vbaspinbutton.cxx 
b/vbahelper/source/msforms/vbaspinbutton.cxx
index 07514a46afb1..866d9e62b812 100644
--- a/vbahelper/source/msforms/vbaspinbutton.cxx
+++ b/vbahelper/source/msforms/vbaspinbutton.cxx
@@ -31,47 +31,47 @@ ScVbaSpinButton::ScVbaSpinButton(  const 
css::uno::Reference< ov::XHelperInterfa
 uno::Any SAL_CALL
 ScVbaSpinButton::getValue()
 {
-    return  m_xProps->getPropertyValue( "SpinValue" );
+    return  m_xProps->getPropertyValue( u"SpinValue"_ustr );
 }
 
 void SAL_CALL
 ScVbaSpinButton::setValue( const uno::Any& _value )
 {
-    m_xProps->setPropertyValue( "SpinValue", _value );
+    m_xProps->setPropertyValue( u"SpinValue"_ustr, _value );
 }
 
 ::sal_Int32 SAL_CALL
 ScVbaSpinButton::getMax()
 {
     sal_Int32 nMax = 0;
-    m_xProps->getPropertyValue( "SpinValueMax" ) >>= nMax;
+    m_xProps->getPropertyValue( u"SpinValueMax"_ustr ) >>= nMax;
     return nMax;
 }
 
 void SAL_CALL
 ScVbaSpinButton::setMax( sal_Int32 nVal )
 {
-    m_xProps->setPropertyValue( "SpinValueMax", uno::Any( nVal ) );
+    m_xProps->setPropertyValue( u"SpinValueMax"_ustr, uno::Any( nVal ) );
 }
 
 ::sal_Int32 SAL_CALL
 ScVbaSpinButton::getMin()
 {
     sal_Int32 nVal = 0;
-    m_xProps->getPropertyValue( "SpinValueMin" ) >>= nVal;
+    m_xProps->getPropertyValue( u"SpinValueMin"_ustr ) >>= nVal;
     return nVal;
 }
 
 void SAL_CALL
 ScVbaSpinButton::setMin( sal_Int32 nVal )
 {
-    m_xProps->setPropertyValue( "SpinValueMin", uno::Any( nVal ) );
+    m_xProps->setPropertyValue( u"SpinValueMin"_ustr, uno::Any( nVal ) );
 }
 
 OUString
 ScVbaSpinButton::getServiceImplName()
 {
-    return "ScVbaSpinButton";
+    return u"ScVbaSpinButton"_ustr;
 }
 
 uno::Sequence< OUString >
@@ -79,7 +79,7 @@ ScVbaSpinButton::getServiceNames()
 {
     static uno::Sequence< OUString > const aServiceNames
     {
-        "ooo.vba.msforms.Frame"
+        u"ooo.vba.msforms.Frame"_ustr
     };
     return aServiceNames;
 }
diff --git a/vbahelper/source/msforms/vbasystemaxcontrol.cxx 
b/vbahelper/source/msforms/vbasystemaxcontrol.cxx
index ea135e270b00..5cf5c2396672 100644
--- a/vbahelper/source/msforms/vbasystemaxcontrol.cxx
+++ b/vbahelper/source/msforms/vbasystemaxcontrol.cxx
@@ -68,7 +68,7 @@ sal_Bool SAL_CALL VbaSystemAXControl::hasProperty( const 
OUString& aName )
 OUString
 VbaSystemAXControl::getServiceImplName()
 {
-    return "VbaSystemAXControl";
+    return u"VbaSystemAXControl"_ustr;
 }
 
 
@@ -77,7 +77,7 @@ VbaSystemAXControl::getServiceNames()
 {
     static uno::Sequence< OUString > const aServiceNames
     {
-        "ooo.vba.msforms.Frame"
+        u"ooo.vba.msforms.Frame"_ustr
     };
     return aServiceNames;
 }
diff --git a/vbahelper/source/msforms/vbatextbox.cxx 
b/vbahelper/source/msforms/vbatextbox.cxx
index f01e9dc1def4..e3f8634e8d9f 100644
--- a/vbahelper/source/msforms/vbatextbox.cxx
+++ b/vbahelper/source/msforms/vbatextbox.cxx
@@ -50,7 +50,7 @@ ScVbaTextBox::setValue( const uno::Any& _value )
 OUString SAL_CALL
 ScVbaTextBox::getText()
 {
-    uno::Any aValue = m_xProps->getPropertyValue( "Text" );
+    uno::Any aValue = m_xProps->getPropertyValue( u"Text"_ustr );
     OUString sString;
     aValue >>= sString;
     return sString;
@@ -66,7 +66,7 @@ ScVbaTextBox::setText( const OUString& _text )
         xTextRange->setString( _text );
     }
     else
-        m_xProps->setPropertyValue( "Text" , uno::Any( _text ) );
+        m_xProps->setPropertyValue( u"Text"_ustr , uno::Any( _text ) );
     if ( oldText != _text )
         fireChangeEvent();
 }
@@ -74,7 +74,7 @@ ScVbaTextBox::setText( const OUString& _text )
 sal_Int32 SAL_CALL
 ScVbaTextBox::getMaxLength()
 {
-    uno::Any aValue = m_xProps->getPropertyValue( "MaxTextLen" );
+    uno::Any aValue = m_xProps->getPropertyValue( u"MaxTextLen"_ustr );
     sal_Int16 nMaxLength = 0;
     aValue >>= nMaxLength;
     return static_cast<sal_Int32>(nMaxLength);
@@ -85,13 +85,13 @@ ScVbaTextBox::setMaxLength( sal_Int32 _maxlength )
 {
     sal_Int16 nTmp( _maxlength );
     uno::Any aValue( nTmp );
-    m_xProps->setPropertyValue( "MaxTextLen" , aValue);
+    m_xProps->setPropertyValue( u"MaxTextLen"_ustr , aValue);
 }
 
 sal_Bool SAL_CALL
 ScVbaTextBox::getMultiline()
 {
-    uno::Any aValue = m_xProps->getPropertyValue( "MultiLine" );
+    uno::Any aValue = m_xProps->getPropertyValue( u"MultiLine"_ustr );
     bool bRet = false;
     aValue >>= bRet;
     return bRet;
@@ -101,7 +101,7 @@ void SAL_CALL
 ScVbaTextBox::setMultiline( sal_Bool _multiline )
 {
     uno::Any aValue( _multiline );
-    m_xProps->setPropertyValue( "MultiLine" , aValue);
+    m_xProps->setPropertyValue( u"MultiLine"_ustr , aValue);
 }
 
 sal_Int32 SAL_CALL ScVbaTextBox::getSpecialEffect()
@@ -167,7 +167,7 @@ void SAL_CALL ScVbaTextBox::setLocked( sal_Bool bLocked )
 OUString
 ScVbaTextBox::getServiceImplName()
 {
-    return "ScVbaTextBox";
+    return u"ScVbaTextBox"_ustr;
 }
 
 uno::Sequence< OUString >
@@ -175,7 +175,7 @@ ScVbaTextBox::getServiceNames()
 {
     static uno::Sequence< OUString > const aServiceNames
     {
-        "ooo.vba.msforms.TextBox"
+        u"ooo.vba.msforms.TextBox"_ustr
     };
     return aServiceNames;
 }
diff --git a/vbahelper/source/msforms/vbatextbox.hxx 
b/vbahelper/source/msforms/vbatextbox.hxx
index 9a2b969423d2..16cc75f01538 100644
--- a/vbahelper/source/msforms/vbatextbox.hxx
+++ b/vbahelper/source/msforms/vbatextbox.hxx
@@ -56,7 +56,7 @@ public:
     virtual void SAL_CALL setLocked( sal_Bool bAutoSize ) override;
 
     // XDefaultProperty
-    OUString SAL_CALL getDefaultPropertyName(  ) override { return "Value"; }
+    OUString SAL_CALL getDefaultPropertyName(  ) override { return 
u"Value"_ustr; }
     //XHelperInterface
     virtual OUString getServiceImplName() override;
     virtual css::uno::Sequence<OUString> getServiceNames() override;
diff --git a/vbahelper/source/msforms/vbatogglebutton.cxx 
b/vbahelper/source/msforms/vbatogglebutton.cxx
index 07008541fa3a..ca82e805e2a2 100644
--- a/vbahelper/source/msforms/vbatogglebutton.cxx
+++ b/vbahelper/source/msforms/vbatogglebutton.cxx
@@ -28,7 +28,7 @@ ScVbaToggleButton::ScVbaToggleButton( const 
css::uno::Reference< ov::XHelperInte
     : ToggleButtonImpl_BASE( xParent, xContext, xControl, xModel, 
std::move(pGeomHelper) )
 {
     SAL_INFO("vbahelper", "ScVbaToggleButton(ctor)");
-    m_xProps->setPropertyValue( "Toggle", uno::Any( true ) );
+    m_xProps->setPropertyValue( u"Toggle"_ustr, uno::Any( true ) );
 }
 
 ScVbaToggleButton::~ScVbaToggleButton()
@@ -41,21 +41,21 @@ OUString SAL_CALL
 ScVbaToggleButton::getCaption()
 {
     OUString Label;
-    m_xProps->getPropertyValue( "Label" ) >>= Label;
+    m_xProps->getPropertyValue( u"Label"_ustr ) >>= Label;
     return Label;
 }
 
 void SAL_CALL
 ScVbaToggleButton::setCaption( const OUString& _caption )
 {
-    m_xProps->setPropertyValue( "Label", uno::Any( _caption ) );
+    m_xProps->setPropertyValue( u"Label"_ustr, uno::Any( _caption ) );
 }
 
 uno::Any SAL_CALL
 ScVbaToggleButton::getValue()
 {
     sal_Int16 nState = 0;
-    m_xProps->getPropertyValue( "State" ) >>= nState;
+    m_xProps->getPropertyValue( u"State"_ustr ) >>= nState;
     return uno::Any( nState ? sal_Int16( -1 ) : sal_Int16( 0 ) );
 }
 
@@ -74,7 +74,7 @@ ScVbaToggleButton::setValue( const uno::Any& _value )
     SAL_INFO("vbahelper", "nState - " << nState );
     nState = ( nState == -1 ) ?  1 : 0;
     SAL_INFO("vbahelper", "nState - " << nState );
-    m_xProps->setPropertyValue( "State", uno::Any(   nState ) );
+    m_xProps->setPropertyValue( u"State"_ustr, uno::Any(   nState ) );
 }
 
 sal_Bool SAL_CALL ScVbaToggleButton::getAutoSize()
@@ -148,7 +148,7 @@ void SAL_CALL ScVbaToggleButton::setLocked( sal_Bool 
bLocked )
 OUString
 ScVbaToggleButton::getServiceImplName()
 {
-    return "ScVbaToggleButton";
+    return u"ScVbaToggleButton"_ustr;
 }
 
 uno::Sequence< OUString >
@@ -156,7 +156,7 @@ ScVbaToggleButton::getServiceNames()
 {
     static uno::Sequence< OUString > const aServiceNames
     {
-        "ooo.vba.msforms.ToggleButton"
+        u"ooo.vba.msforms.ToggleButton"_ustr
     };
     return aServiceNames;
 }
diff --git a/vbahelper/source/msforms/vbatogglebutton.hxx 
b/vbahelper/source/msforms/vbatogglebutton.hxx
index 61be1a672c07..2e7e857d1538 100644
--- a/vbahelper/source/msforms/vbatogglebutton.hxx
+++ b/vbahelper/source/msforms/vbatogglebutton.hxx
@@ -54,7 +54,7 @@ public:
     virtual OUString getServiceImplName() override;
     virtual css::uno::Sequence<OUString> getServiceNames() override;
     // XDefaultProperty
-    OUString SAL_CALL getDefaultPropertyName(  ) override { return "Value"; }
+    OUString SAL_CALL getDefaultPropertyName(  ) override { return 
u"Value"_ustr; }
 };
 #endif // INCLUDED_VBAHELPER_SOURCE_MSFORMS_VBATOGGLEBUTTON_HXX
 
diff --git a/vbahelper/source/msforms/vbauserform.cxx 
b/vbahelper/source/msforms/vbauserform.cxx
index 66aa6eff7198..663a51d7cf8f 100644
--- a/vbahelper/source/msforms/vbauserform.cxx
+++ b/vbahelper/source/msforms/vbauserform.cxx
@@ -104,13 +104,13 @@ OUString SAL_CALL
 ScVbaUserForm::getCaption()
 {
     OUString sCaption;
-    m_xProps->getPropertyValue( "Title" ) >>= sCaption;
+    m_xProps->getPropertyValue( u"Title"_ustr ) >>= sCaption;
     return sCaption;
 }
 void
 ScVbaUserForm::setCaption( const OUString& _caption )
 {
-    m_xProps->setPropertyValue( "Title", uno::Any( _caption ) );
+    m_xProps->setPropertyValue( u"Title"_ustr, uno::Any( _caption ) );
 }
 
 sal_Bool SAL_CALL
@@ -176,13 +176,13 @@ ScVbaUserForm::UnloadObject(  )
 OUString
 ScVbaUserForm::getServiceImplName()
 {
-    return "ScVbaUserForm";
+    return u"ScVbaUserForm"_ustr;
 }
 
 uno::Sequence< OUString >
 ScVbaUserForm::getServiceNames()
 {
-    return { "ooo.vba.excel.UserForm" };
+    return { u"ooo.vba.excel.UserForm"_ustr };
 }
 
 uno::Reference< beans::XIntrospectionAccess > SAL_CALL
@@ -292,7 +292,7 @@ ScVbaUserForm::hasProperty( const OUString& aName )
         uno::Reference< beans::XPropertySet > xDlgProps( xControl->getModel(), 
uno::UNO_QUERY );
         if ( xDlgProps.is() )
         {
-            uno::Reference< container::XNameContainer > xAllChildren( 
xDlgProps->getPropertyValue( "AllDialogChildren" ), uno::UNO_QUERY_THROW );
+            uno::Reference< container::XNameContainer > xAllChildren( 
xDlgProps->getPropertyValue( u"AllDialogChildren"_ustr ), uno::UNO_QUERY_THROW 
);
             bool bRes =  xAllChildren->hasByName( aName );
             SAL_INFO("vbahelper", "ScVbaUserForm::hasProperty(" << aName << ") 
" << xAllChildren.is() << " ---> " << bRes );
             return bRes;
diff --git a/vbahelper/source/vbahelper/vbaapplicationbase.cxx 
b/vbahelper/source/vbahelper/vbaapplicationbase.cxx
index 1acf3fcb809a..e10443c865e3 100644
--- a/vbahelper/source/vbahelper/vbaapplicationbase.cxx
+++ b/vbahelper/source/vbahelper/vbaapplicationbase.cxx
@@ -96,7 +96,7 @@ public:
     void Start( const ::rtl::Reference< VbaApplicationBase >& xBase, const 
OUString& aFunction, double nFrom, double nTo )
     {
         if ( !xBase.is() || aFunction.isEmpty() )
-            throw uno::RuntimeException( "Unexpected arguments!" );
+            throw uno::RuntimeException( u"Unexpected arguments!"_ustr );
 
         m_xBase = xBase;
         m_aTimerInfo = VbaTimerInfo( aFunction, ::std::pair< double, double >( 
nFrom, nTo ) );
@@ -192,8 +192,8 @@ VbaApplicationBase::getDisplayStatusBar()
     uno::Reference< frame::XFrame > xFrame( 
xModel->getCurrentController()->getFrame(), uno::UNO_SET_THROW );
     uno::Reference< beans::XPropertySet > xProps( xFrame, uno::UNO_QUERY_THROW 
);
 
-    uno::Reference< frame::XLayoutManager > xLayoutManager( 
xProps->getPropertyValue( "LayoutManager"), uno::UNO_QUERY_THROW );
-    if( xLayoutManager->isElementVisible( 
"private:resource/statusbar/statusbar" ) ){
+    uno::Reference< frame::XLayoutManager > xLayoutManager( 
xProps->getPropertyValue( u"LayoutManager"_ustr), uno::UNO_QUERY_THROW );
+    if( xLayoutManager->isElementVisible( 
u"private:resource/statusbar/statusbar"_ustr ) ){
         return true;
     }
     return false;
@@ -206,8 +206,8 @@ VbaApplicationBase::setDisplayStatusBar(sal_Bool 
bDisplayStatusBar)
     uno::Reference< frame::XFrame > xFrame( 
xModel->getCurrentController()->getFrame(), uno::UNO_SET_THROW );
     uno::Reference< beans::XPropertySet > xProps( xFrame, uno::UNO_QUERY_THROW 
);
 
-    uno::Reference< frame::XLayoutManager > xLayoutManager( 
xProps->getPropertyValue( "LayoutManager" ), uno::UNO_QUERY_THROW );
-    OUString url( "private:resource/statusbar/statusbar" );
+    uno::Reference< frame::XLayoutManager > xLayoutManager( 
xProps->getPropertyValue( u"LayoutManager"_ustr ), uno::UNO_QUERY_THROW );
+    OUString url( u"private:resource/statusbar/statusbar"_ustr );
     if( bDisplayStatusBar && !xLayoutManager->isElementVisible( url ) ){
         if( !xLayoutManager->showElement( url ) )
             xLayoutManager->createElement( url );
@@ -349,7 +349,7 @@ uno::Any SAL_CALL VbaApplicationBase::Run( const OUString& 
MacroName, const uno:
     MacroResolvedInfo aMacroInfo = resolveVBAMacro( getSfxObjShell( xModel ), 
aMacroName );
     if( !aMacroInfo.mbFound )
     {
-        throw uno::RuntimeException( "The macro doesn't exist" );
+        throw uno::RuntimeException( u"The macro doesn't exist"_ustr );
     }
 
     // handle the arguments
@@ -380,13 +380,13 @@ uno::Any SAL_CALL VbaApplicationBase::Run( const 
OUString& MacroName, const uno:
 void SAL_CALL VbaApplicationBase::OnTime( const uno::Any& aEarliestTime, const 
OUString& aFunction, const uno::Any& aLatestTime, const uno::Any& aSchedule )
 {
     if ( aFunction.isEmpty() )
-        throw uno::RuntimeException( "Unexpected function name!" );
+        throw uno::RuntimeException( u"Unexpected function name!"_ustr );
 
     double nEarliestTime = 0;
     double nLatestTime = 0;
     if ( !( aEarliestTime >>= nEarliestTime )
       || ( aLatestTime.hasValue() && !( aLatestTime >>= nLatestTime ) ) )
-        throw uno::RuntimeException( "Only double is supported as time for 
now!" );
+        throw uno::RuntimeException( u"Only double is supported as time for 
now!"_ustr );
 
     bool bSetTimer = true;
     aSchedule >>= bSetTimer;
@@ -415,7 +415,7 @@ uno::Any SAL_CALL VbaApplicationBase::getVBE()
         uno::Sequence< uno::Any > aArgs{ uno::Any(getCurrentDocument()) };
         uno::Reference< lang::XMultiComponentFactory > xServiceManager( 
mxContext->getServiceManager(), uno::UNO_SET_THROW );
         uno::Reference< uno::XInterface > xVBE = 
xServiceManager->createInstanceWithArgumentsAndContext(
-            "ooo.vba.vbide.VBE" , aArgs, mxContext );
+            u"ooo.vba.vbide.VBE"_ustr , aArgs, mxContext );
         return uno::Any( xVBE );
     }
     catch( const uno::Exception& )
@@ -427,7 +427,7 @@ uno::Any SAL_CALL VbaApplicationBase::getVBE()
 OUString
 VbaApplicationBase::getServiceImplName()
 {
-    return "VbaApplicationBase";
+    return u"VbaApplicationBase"_ustr;
 }
 
 uno::Sequence<OUString>
@@ -435,7 +435,7 @@ VbaApplicationBase::getServiceNames()
 {
     static uno::Sequence< OUString > const aServiceNames
     {
-        "ooo.vba.VbaApplicationBase"
+        u"ooo.vba.VbaApplicationBase"_ustr
     };
     return aServiceNames;
 }
@@ -443,7 +443,7 @@ VbaApplicationBase::getServiceNames()
 void SAL_CALL VbaApplicationBase::Undo()
 {
     uno::Reference< frame::XModel > xModel( getCurrentDocument(), 
uno::UNO_SET_THROW );
-    dispatchRequests( xModel, ".uno:Undo" );
+    dispatchRequests( xModel, u".uno:Undo"_ustr );
 }
 
 void VbaApplicationBase::Quit()
diff --git a/vbahelper/source/vbahelper/vbacolorformat.cxx 
b/vbahelper/source/vbahelper/vbacolorformat.cxx
index 56180a98fb6a..1157db152248 100644
--- a/vbahelper/source/vbahelper/vbacolorformat.cxx
+++ b/vbahelper/source/vbahelper/vbacolorformat.cxx
@@ -61,20 +61,20 @@ ScVbaColorFormat::getRGB()
     switch( m_nColorFormatType )
     {
     case ColorFormatType::LINEFORMAT_FORECOLOR:
-        m_xPropertySet->getPropertyValue( "LineColor" ) >>= nRGB;
+        m_xPropertySet->getPropertyValue( u"LineColor"_ustr ) >>= nRGB;
         break;
     case ColorFormatType::LINEFORMAT_BACKCOLOR:
         //TODO BackColor not supported
         // m_xPropertySet->setPropertyValue("Color", uno::makeAny( nRGB ) );
         break;
     case ColorFormatType::FILLFORMAT_FORECOLOR:
-        m_xPropertySet->getPropertyValue( "FillColor" ) >>= nRGB;
+        m_xPropertySet->getPropertyValue( u"FillColor"_ustr ) >>= nRGB;
         break;
     case ColorFormatType::FILLFORMAT_BACKCOLOR:
         nRGB = m_nFillFormatBackColor;
         break;
     default:
-        throw uno::RuntimeException( "Second parameter of ColorFormat is 
wrong." );
+        throw uno::RuntimeException( u"Second parameter of ColorFormat is 
wrong."_ustr );
     }
     nRGB = OORGBToXLRGB( Color(ColorTransparency, nRGB) );
     return nRGB;
@@ -87,13 +87,13 @@ ScVbaColorFormat::setRGB( sal_Int32 _rgb )
     switch( m_nColorFormatType )
     {
     case ColorFormatType::LINEFORMAT_FORECOLOR:
-        m_xPropertySet->setPropertyValue( "LineColor" , uno::Any( nRGB ) );
+        m_xPropertySet->setPropertyValue( u"LineColor"_ustr , uno::Any( nRGB ) 
);
         break;
     case ColorFormatType::LINEFORMAT_BACKCOLOR:
         // TODO BackColor not supported
         break;
     case ColorFormatType::FILLFORMAT_FORECOLOR:
-        m_xPropertySet->setPropertyValue( "FillColor" , uno::Any( nRGB ) );
+        m_xPropertySet->setPropertyValue( u"FillColor"_ustr , uno::Any( nRGB ) 
);
         if( m_pFillFormat )
         {
             m_pFillFormat->setForeColorAndInternalStyle(nRGB);
@@ -107,7 +107,7 @@ ScVbaColorFormat::setRGB( sal_Int32 _rgb )
         }
         break;
     default:
-        throw uno::RuntimeException( "Second parameter of ColorFormat is 
wrong." );
+        throw uno::RuntimeException( u"Second parameter of ColorFormat is 
wrong."_ustr );
     }
 }
 
@@ -153,7 +153,7 @@ ScVbaColorFormat::setSchemeColor( sal_Int32 _schemecolor )
 OUString
 ScVbaColorFormat::getServiceImplName()
 {
-    return "ScVbaColorFormat";
+    return u"ScVbaColorFormat"_ustr;
 }
 
 uno::Sequence< OUString >
@@ -161,7 +161,7 @@ ScVbaColorFormat::getServiceNames()
 {
     static uno::Sequence< OUString > const aServiceNames
     {
-        "ooo.vba.msforms.ColorFormat"
+        u"ooo.vba.msforms.ColorFormat"_ustr
     };
     return aServiceNames;
 }
diff --git a/vbahelper/source/vbahelper/vbacommandbar.cxx 
b/vbahelper/source/vbahelper/vbacommandbar.cxx
index 9df3dd9b0f2b..b7d522d59300 100644
--- a/vbahelper/source/vbahelper/vbacommandbar.cxx
+++ b/vbahelper/source/vbahelper/vbacommandbar.cxx
@@ -42,7 +42,7 @@ ScVbaCommandBar::getName()
 {
     // This will get a "NULL length string" when Name is not set.
     uno::Reference< beans::XPropertySet > xPropertySet( m_xBarSettings, 
uno::UNO_QUERY_THROW );
-    uno::Any aName = xPropertySet->getPropertyValue( "UIName" );
+    uno::Any aName = xPropertySet->getPropertyValue( u"UIName"_ustr );
     OUString sName;
     aName >>= sName;
     if( sName.isEmpty() )
@@ -64,7 +64,7 @@ ScVbaCommandBar::getName()
         {
             uno::Sequence< beans::PropertyValue > aToolBar;
             xNameAccess->getByName( m_sResourceUrl ) >>= aToolBar;
-            getPropertyValue( aToolBar, "UIName" ) >>= sName;
+            getPropertyValue( aToolBar, u"UIName"_ustr ) >>= sName;
         }
     }
     return sName;
@@ -73,7 +73,7 @@ void SAL_CALL
 ScVbaCommandBar::setName( const OUString& _name )
 {
     uno::Reference< beans::XPropertySet > xPropertySet( m_xBarSettings, 
uno::UNO_QUERY_THROW );
-    xPropertySet->setPropertyValue( "UIName" , uno::Any( _name ) );
+    xPropertySet->setPropertyValue( u"UIName"_ustr , uno::Any( _name ) );
 
     pCBarHelper->ApplyTempChange( m_sResourceUrl, m_xBarSettings );
 }
@@ -92,7 +92,7 @@ ScVbaCommandBar::getVisible()
         {
             uno::Sequence< beans::PropertyValue > aToolBar;
             xNameAccess->getByName( m_sResourceUrl ) >>= aToolBar;
-            getPropertyValue( aToolBar, "Visible" ) >>= bVisible;
+            getPropertyValue( aToolBar, u"Visible"_ustr ) >>= bVisible;
         }
     }
     catch (const uno::Exception&)
@@ -177,7 +177,7 @@ ScVbaCommandBar::FindControl( const uno::Any& /*aType*/, 
const uno::Any& /*aId*/
 OUString
 ScVbaCommandBar::getServiceImplName()
 {
-    return "ScVbaCommandBar";
+    return u"ScVbaCommandBar"_ustr;
 }
 
 uno::Sequence<OUString>
@@ -185,7 +185,7 @@ ScVbaCommandBar::getServiceNames()
 {
     static uno::Sequence< OUString > const aServiceNames
     {
-        "ooo.vba.CommandBar"
+        u"ooo.vba.CommandBar"_ustr
     };
     return aServiceNames;
 }
@@ -259,14 +259,14 @@ uno::Any SAL_CALL VbaDummyCommandBar::FindControl( const 
uno::Any& /*aType*/, co
 
 OUString VbaDummyCommandBar::getServiceImplName()
 {
-    return "VbaDummyCommandBar";
+    return u"VbaDummyCommandBar"_ustr;
 }
 
 uno::Sequence< OUString > VbaDummyCommandBar::getServiceNames()
 {
     static uno::Sequence< OUString > const aServiceNames
     {
-        "ooo.vba.CommandBar"
+        u"ooo.vba.CommandBar"_ustr
     };
     return aServiceNames;
 }
diff --git a/vbahelper/source/vbahelper/vbacommandbarcontrol.cxx 
b/vbahelper/source/vbahelper/vbacommandbarcontrol.cxx
index 35c2925e4127..52e4f5026e96 100644
--- a/vbahelper/source/vbahelper/vbacommandbarcontrol.cxx
+++ b/vbahelper/source/vbahelper/vbacommandbarcontrol.cxx
@@ -42,7 +42,7 @@ ScVbaCommandBarControl::getCaption()
 {
     // "Label" always empty
     OUString sCaption;
-    getPropertyValue( m_aPropertyValues, "Label" ) >>= sCaption;
+    getPropertyValue( m_aPropertyValues, u"Label"_ustr ) >>= sCaption;
     return sCaption;
 }
 
@@ -50,7 +50,7 @@ void SAL_CALL
 ScVbaCommandBarControl::setCaption( const OUString& _caption )
 {
     OUString sCaption = _caption.replace('&','~');
-    setPropertyValue( m_aPropertyValues, "Label" , uno::Any( sCaption ) );
+    setPropertyValue( m_aPropertyValues, u"Label"_ustr , uno::Any( sCaption ) 
);
     ApplyChange();
 }
 
@@ -58,7 +58,7 @@ OUString SAL_CALL
 ScVbaCommandBarControl::getOnAction()
 {
     OUString sCommandURL;
-    getPropertyValue( m_aPropertyValues, "CommandURL" ) >>= sCommandURL;
+    getPropertyValue( m_aPropertyValues, u"CommandURL"_ustr ) >>= sCommandURL;
     return sCommandURL;
 }
 
@@ -72,7 +72,7 @@ ScVbaCommandBarControl::setOnAction( const OUString& 
_onaction )
     {
         OUString aCommandURL = ooo::vba::makeMacroURL( 
aResolvedMacro.msResolvedMacro );
         SAL_INFO("vbahelper", "ScVbaCommandBarControl::setOnAction: " << 
aCommandURL);
-        setPropertyValue( m_aPropertyValues, "CommandURL" , uno::Any( 
aCommandURL ) );
+        setPropertyValue( m_aPropertyValues, u"CommandURL"_ustr , uno::Any( 
aCommandURL ) );
         ApplyChange();
     }
 }
@@ -180,7 +180,7 @@ ScVbaCommandBarControl::Controls( const uno::Any& aIndex )
 OUString
 ScVbaCommandBarControl::getServiceImplName()
 {
-    return "ScVbaCommandBarControl";
+    return u"ScVbaCommandBarControl"_ustr;
 }
 
 uno::Sequence<OUString>
@@ -188,7 +188,7 @@ ScVbaCommandBarControl::getServiceNames()
 {
     static uno::Sequence< OUString > const aServiceNames
     {
-        "ooo.vba.CommandBarControl"
+        u"ooo.vba.CommandBarControl"_ustr
     };
     return aServiceNames;
 }
@@ -210,7 +210,7 @@ ScVbaCommandBarPopup::ScVbaCommandBarPopup( const 
css::uno::Reference< ov::XHelp
 OUString
 ScVbaCommandBarPopup::getServiceImplName()
 {
-    return "ScVbaCommandBarPopup";
+    return u"ScVbaCommandBarPopup"_ustr;
 }
 
 uno::Sequence<OUString>
@@ -218,7 +218,7 @@ ScVbaCommandBarPopup::getServiceNames()
 {
     static uno::Sequence< OUString > const aServiceNames
     {
-        "ooo.vba.CommandBarPopup"
+        u"ooo.vba.CommandBarPopup"_ustr
     };
     return aServiceNames;
 }
@@ -240,7 +240,7 @@ ScVbaCommandBarButton::ScVbaCommandBarButton( const 
css::uno::Reference< ov::XHe
 OUString
 ScVbaCommandBarButton::getServiceImplName()
 {
-    return "ScVbaCommandBarButton";
+    return u"ScVbaCommandBarButton"_ustr;
 }
 
 uno::Sequence<OUString>
@@ -248,7 +248,7 @@ ScVbaCommandBarButton::getServiceNames()
 {
     static uno::Sequence< OUString > const aServiceNames
     {
-        "ooo.vba.CommandBarButton"
+        u"ooo.vba.CommandBarButton"_ustr
     };
     return aServiceNames;
 }
diff --git a/vbahelper/source/vbahelper/vbacommandbarcontrols.cxx 
b/vbahelper/source/vbahelper/vbacommandbarcontrols.cxx
index e88f811fbafd..118c5b041480 100644
--- a/vbahelper/source/vbahelper/vbacommandbarcontrols.cxx
+++ b/vbahelper/source/vbahelper/vbacommandbarcontrols.cxx
@@ -160,7 +160,7 @@ ScVbaCommandBarControls::Add( const uno::Any& Type, const 
uno::Any& Id, const un
 {
     // Parameter is not supported
     // the following name needs to be individually created;
-    OUString sLabel("Custom");
+    OUString sLabel(u"Custom"_ustr);
     OUString sCommandUrl( CUSTOM_MENU_STR + sLabel);
     sal_Int32 nType = office::MsoControlType::msoControlButton;
     sal_Int32 nPosition = 0;
@@ -172,11 +172,11 @@ ScVbaCommandBarControls::Add( const uno::Any& Type, const 
uno::Any& Id, const un
 
     if( nType != office::MsoControlType::msoControlButton &&
         nType != office::MsoControlType::msoControlPopup )
-        throw uno::RuntimeException( "Not implemented" );
+        throw uno::RuntimeException( u"Not implemented"_ustr );
 
     if( Id.hasValue() || Parameter.hasValue( ) )
     {
-        throw uno::RuntimeException( "Not implemented" );
+        throw uno::RuntimeException( u"Not implemented"_ustr );
     }
 
     if( Before.hasValue() )
@@ -197,11 +197,11 @@ ScVbaCommandBarControls::Add( const uno::Any& Type, const 
uno::Any& Id, const un
     sal_uInt16 nItemType = 0;
     if( m_bIsMenu )
     {
-        aProps = CreateMenuItemData( sCommandUrl, "", sLabel, nItemType, 
aSubMenu, true, true );
+        aProps = CreateMenuItemData( sCommandUrl, u""_ustr, sLabel, nItemType, 
aSubMenu, true, true );
     }
     else
     {
-        aProps = CreateToolbarItemData( sCommandUrl, "", sLabel, nItemType, 
aSubMenu, true/*isVisible*/, 0/*nStyle*/ );
+        aProps = CreateToolbarItemData( sCommandUrl, u""_ustr, sLabel, 
nItemType, aSubMenu, true/*isVisible*/, 0/*nStyle*/ );
     }
 
 
@@ -223,7 +223,7 @@ ScVbaCommandBarControls::Add( const uno::Any& Type, const 
uno::Any& Id, const un
 OUString
 ScVbaCommandBarControls::getServiceImplName()
 {
-    return "ScVbaCommandBarControls";
+    return u"ScVbaCommandBarControls"_ustr;
 }
 
 uno::Sequence<OUString>
@@ -231,7 +231,7 @@ ScVbaCommandBarControls::getServiceNames()
 {
     static uno::Sequence< OUString > const aServiceNames
     {
-        "ooo.vba.CommandBarControls"
+        u"ooo.vba.CommandBarControls"_ustr
     };
     return aServiceNames;
 }
@@ -294,14 +294,14 @@ uno::Reference< XCommandBarControl > SAL_CALL 
VbaDummyCommandBarControls::Add(
 // XHelperInterface
 OUString VbaDummyCommandBarControls::getServiceImplName()
 {
-    return "VbaDummyCommandBarControls";
+    return u"VbaDummyCommandBarControls"_ustr;
 }
 
 uno::Sequence<OUString> VbaDummyCommandBarControls::getServiceNames()
 {
     static uno::Sequence< OUString > const aServiceNames
     {
-        "ooo.vba.CommandBarControls"
+        u"ooo.vba.CommandBarControls"_ustr
     };
     return aServiceNames;
 }
diff --git a/vbahelper/source/vbahelper/vbacommandbarhelper.cxx 
b/vbahelper/source/vbahelper/vbacommandbarhelper.cxx
index 8191afde74bd..f248989b33fc 100644
--- a/vbahelper/source/vbahelper/vbacommandbarhelper.cxx
+++ b/vbahelper/source/vbahelper/vbacommandbarhelper.cxx
@@ -47,17 +47,17 @@ private:
     MSO2OOCommandbarHelper()
     {
         // Buildin toolbars
-        maBuildinToolbarMap.insert( std::make_pair( OUString("Standard") ,    
OUString("private:resource/toolbar/standardbar" ) ) );
-        maBuildinToolbarMap.insert( std::make_pair( OUString("Formatting"),   
OUString("private:resource/toolbar/formatobjectbar") ) );
-        maBuildinToolbarMap.insert( std::make_pair( OUString("Drawing"),      
OUString("private:resource/toolbar/drawbar") ) );
-        maBuildinToolbarMap.insert( std::make_pair( OUString("Toolbar List"), 
OUString("private:resource/toolbar/toolbar") ) );
-        maBuildinToolbarMap.insert( std::make_pair( OUString("Forms"),        
OUString("private:resource/toolbar/formcontrols") ) );
-        maBuildinToolbarMap.insert( std::make_pair( OUString("Form 
Controls"),OUString("private:resource/toolbar/formcontrols") ) );
-        maBuildinToolbarMap.insert( std::make_pair( OUString("Full Screen"),  
OUString("private:resource/toolbar/fullscreenbar") ) );
-        maBuildinToolbarMap.insert( std::make_pair( OUString("Chart"),        
OUString("private:resource/toolbar/flowchartshapes") ) );
-        maBuildinToolbarMap.insert( std::make_pair( OUString("Picture"),      
OUString("private:resource/toolbar/graphicobjectbar") ) );
-        maBuildinToolbarMap.insert( std::make_pair( OUString("WordArt"),      
OUString("private:resource/toolbar/fontworkobjectbar") ) );
-        maBuildinToolbarMap.insert( std::make_pair( OUString("3-D Settings"), 
OUString("private:resource/toolbar/extrusionobjectbar") ) );
+        maBuildinToolbarMap.insert( std::make_pair( u"Standard"_ustr ,    
u"private:resource/toolbar/standardbar"_ustr ) );
+        maBuildinToolbarMap.insert( std::make_pair( u"Formatting"_ustr,   
u"private:resource/toolbar/formatobjectbar"_ustr ) );
+        maBuildinToolbarMap.insert( std::make_pair( u"Drawing"_ustr,      
u"private:resource/toolbar/drawbar"_ustr ) );
+        maBuildinToolbarMap.insert( std::make_pair( u"Toolbar List"_ustr, 
u"private:resource/toolbar/toolbar"_ustr ) );
+        maBuildinToolbarMap.insert( std::make_pair( u"Forms"_ustr,        
u"private:resource/toolbar/formcontrols"_ustr ) );
+        maBuildinToolbarMap.insert( std::make_pair( u"Form 
Controls"_ustr,u"private:resource/toolbar/formcontrols"_ustr ) );
+        maBuildinToolbarMap.insert( std::make_pair( u"Full Screen"_ustr,  
u"private:resource/toolbar/fullscreenbar"_ustr ) );
+        maBuildinToolbarMap.insert( std::make_pair( u"Chart"_ustr,        
u"private:resource/toolbar/flowchartshapes"_ustr ) );
+        maBuildinToolbarMap.insert( std::make_pair( u"Picture"_ustr,      
u"private:resource/toolbar/graphicobjectbar"_ustr ) );
+        maBuildinToolbarMap.insert( std::make_pair( u"WordArt"_ustr,      
u"private:resource/toolbar/fontworkobjectbar"_ustr ) );
+        maBuildinToolbarMap.insert( std::make_pair( u"3-D Settings"_ustr, 
u"private:resource/toolbar/extrusionobjectbar"_ustr ) );
     }
 
 public:
@@ -96,18 +96,18 @@ void VbaCommandBarHelper::Init( )
     m_xDocCfgMgr = xUICfgSupplier->getUIConfigurationManager();
 
     uno::Reference< lang::XServiceInfo > xServiceInfo( mxModel, 
uno::UNO_QUERY_THROW );
-    if( xServiceInfo->supportsService( 
"com.sun.star.sheet.SpreadsheetDocument" ) )
+    if( xServiceInfo->supportsService( 
u"com.sun.star.sheet.SpreadsheetDocument"_ustr ) )
     {
         maModuleId = "com.sun.star.sheet.SpreadsheetDocument";
     }
-    else if( xServiceInfo->supportsService( "com.sun.star.text.TextDocument" ) 
)
-e 
... etc. - the rest is truncated

Reply via email to