convert sc/source/ui/vba/*.cxx from String to OUString

Change-Id: If696cdf2293464dc2a21cab4bdc4f77223cf26c9

sc/source/ui/vba/excelvbahelper.cxx

@@ -303,7 +303,7 @@ void setUpDocumentModules( const uno::Reference< sheet::XSpreadsheetDocument >&
     ScDocShell* pShell = excel::getDocShell( xModel );
     if ( pShell )
     {
-        String aPrjName( RTL_CONSTASCII_USTRINGPARAM( "Standard" ) );
+        OUString aPrjName( "Standard" );
         pShell->GetBasicManager()->SetName( aPrjName );
 
         /*  Set library container to VBA compatibility mode. This will create
@@ -328,10 +328,10 @@ void setUpDocumentModules( const uno::Reference< sheet::XSpreadsheetDocument >&
                 // set up the module info for the workbook and sheets in the nealy created
                 // spreadsheet
                 ScDocument* pDoc = pShell->GetDocument();
-                String sCodeName = pDoc->GetCodeName();
-                if ( sCodeName.Len() == 0 )
+                OUString sCodeName = pDoc->GetCodeName();
+                if ( sCodeName.isEmpty() )
                 {
-                    sCodeName = String( RTL_CONSTASCII_USTRINGPARAM("ThisWorkbook") );
+                    sCodeName = "ThisWorkbook";
                     pDoc->SetCodeName( sCodeName );
                 }
 

sc/source/ui/vba/vbacharacters.cxx

@@ -93,9 +93,9 @@ ScVbaCharacters::setFont( const uno::Reference< excel::XFont >& /*_font*/ ) thro
 
 // Methods
 void SAL_CALL
-ScVbaCharacters::Insert( const OUString& String ) throw (css::uno::RuntimeException)
+ScVbaCharacters::Insert( const OUString& rString ) throw (css::uno::RuntimeException)
 {
-    m_xSimpleText->insertString( m_xTextRange, String, bReplace );
+    m_xSimpleText->insertString( m_xTextRange, rString, bReplace );
 }
 
 void SAL_CALL

sc/source/ui/vba/vbahelper.cxx

@@ -574,8 +574,8 @@ ContainerUtilities::FieldInList( const uno::Sequence< OUString >& SearchList, co
 }
 bool NeedEsc(sal_Unicode cCode)
 {
-    String sEsc(".^$+\\|{}()");
-    return (STRING_NOTFOUND != sEsc.Search(cCode));
+    OUString sEsc(".^$+\\|{}()");
+    return (-1 != sEsc.indexOf(cCode));
 }
 
 OUString VBAToRegexp(const OUString &rIn, bool bForLike )

sc/source/ui/vba/vbanames.cxx

@@ -217,7 +217,7 @@ ScVbaNames::Add( const css::uno::Any& Name ,
             {
                 xArea.set( xRange->Areas( uno::makeAny( nArea ) ), uno::UNO_QUERY_THROW );
 
-                String sRangeAdd = xArea->Address( xAny2, xAny2 , xAny2 , xAny2, xAny2 );
+                OUString sRangeAdd = xArea->Address( xAny2, xAny2 , xAny2 , xAny2, xAny2 );
                 if ( nArea > 1 )
                     sTmp += ",";
                 sTmp = sTmp + "'" + xRange->getWorksheet()->getName() + "'." + sRangeAdd;

sc/source/ui/vba/vbarange.cxx

@@ -3789,7 +3789,7 @@ double getDefaultCharWidth( ScDocShell* pDocShell )
     ::Font aDefFont;
     pAttr->GetFont( aDefFont, SC_AUTOCOL_BLACK, pRefDevice );
     pRefDevice->SetFont( aDefFont );
-    long nCharWidth = pRefDevice->GetTextWidth( String( '0' ) );        // 1/100th mm
+    long nCharWidth = pRefDevice->GetTextWidth( OUString( '0' ) );        // 1/100th mm
     return lcl_hmmToPoints( nCharWidth );
 }
 

sc/source/ui/vba/vbaworkbooks.cxx

@@ -67,7 +67,7 @@ void setUpDocumentModules( const uno::Reference< sheet::XSpreadsheetDocument >&
     ScDocShell* pShell = excel::getDocShell( xModel );
     if ( pShell )
     {
-        String aPrjName( RTL_CONSTASCII_USTRINGPARAM( "Standard" ) );
+        OUString aPrjName( "Standard" );
         pShell->GetBasicManager()->SetName( aPrjName );
 
         /*  Set library container to VBA compatibility mode. This will create
@@ -92,10 +92,10 @@ void setUpDocumentModules( const uno::Reference< sheet::XSpreadsheetDocument >&
                 // set up the module info for the workbook and sheets in the nealy created
                 // spreadsheet
                 ScDocument* pDoc = pShell->GetDocument();
-                String sCodeName = pDoc->GetCodeName();
-                if ( sCodeName.Len() == 0 )
+                OUString sCodeName = pDoc->GetCodeName();
+                if ( sCodeName.isEmpty() )
                 {
-                    sCodeName = String( RTL_CONSTASCII_USTRINGPARAM("ThisWorkbook") );
+                    sCodeName = "ThisWorkbook";
                     pDoc->SetCodeName( sCodeName );
                 }
 
@@ -333,9 +333,8 @@ ScVbaWorkbooks::Open( const OUString& rFileName, const uno::Any& /*UpdateLinks*/
                 throw uno::RuntimeException("Expected value for Delimiter", uno::Reference< uno::XInterface >() );
             OUString sStr;
             Delimiter >>= sStr;
-            String aUniStr( sStr );
-            if ( aUniStr.Len() )
-                nDelim = aUniStr.GetChar(0);
+            if ( !sStr.isEmpty() )
+                nDelim = sStr[0];
             else
                 throw uno::RuntimeException("Incorrect value for Delimiter", uno::Reference< uno::XInterface >() );
         }

sc/source/ui/vba/vbaworksheets.cxx

@@ -269,7 +269,7 @@ ScVbaWorksheets::Add( const uno::Any& Before, const uno::Any& After,
         nSheetIndex++;
 
     SCTAB nSheetName = nCount + 1L;
-    String aStringBase( RTL_CONSTASCII_USTRINGPARAM("Sheet") );
+    OUString aStringBase( "Sheet" );
     uno::Any result;
     for (SCTAB i=0; i < nNewSheets; i++, nSheetName++)
     {