Remove testtool

31 files changed, 0 insertions, 9981 deletions

diff --git a/testautomation/spreadsheet/required/c_updt1.bas b/testautomation/spreadsheet/required/c_updt1.bas
deleted file mode 100644
index c6e785fb7ff5..000000000000
--- a/testautomation/spreadsheet/required/c_updt1.bas
+++ /dev/null
@@ -1,72 +0,0 @@
-'encoding UTF-8  Do not remove or change this line!
-'**************************************************************************
-' DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER.
-' 
-' Copyright 2000, 2010 Oracle and/or its affiliates.
-'
-' OpenOffice.org - a multi-platform office productivity suite
-'
-' This file is part of OpenOffice.org.
-'
-' OpenOffice.org is free software: you can redistribute it and/or modify
-' it under the terms of the GNU Lesser General Public License version 3
-' only, as published by the Free Software Foundation.
-'
-' OpenOffice.org is distributed in the hope that it will be useful,
-' but WITHOUT ANY WARRANTY; without even the implied warranty of
-' MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
-' GNU Lesser General Public License version 3 for more details
-' (a copy is included in the LICENSE file that accompanied this code).
-'
-' You should have received a copy of the GNU Lesser General Public License
-' version 3 along with OpenOffice.org.  If not, see
-' <http://www.openoffice.org/license.html>
-' for a copy of the LGPLv3 License.
-'
-'/***********************************************************************
-'*
-'* owner : oliver.craemer@oracle.com
-'*
-'* short description : Resource-Test Spreadsheet Application Part I
-'*
-'\***********************************************************************
-
-sub main
-    use "spreadsheet\required\includes\c_upd_filemenu.inc"
-    use "spreadsheet\required\includes\c_upd_editmenu.inc"
-    use "spreadsheet\required\includes\c_upd_editmenu2.inc"
-    use "spreadsheet\required\includes\c_upd_viewmenu.inc"
-    use "spreadsheet\required\includes\c_upd_insertmenu.inc"
-    use "spreadsheet\tools\includes\c_cell_tools.inc"
-    use "spreadsheet\tools\includes\c_select_tools.inc"
-
-    Printlog "----------------------------------------------------"
-    Printlog "--- Resource-Test Spreadsheet Application Part I ---"
-    Printlog "----------------------------------------------------"   
-
-    call hStatusIn("Spreadsheet", "c_updt1.bas", "Resource Test for Spreadsheet Part I")
-    
-    call c_upd_filemenu      'FILE   Menu
-    call c_upd_editmenu1     'EDIT   Menu Part I
-    call c_upd_editmenu2     'EDIT   Menu Part II
-    call c_upd_viewmenu      'VIEW   Menu
-    call c_upd_insertmenu    'INSERT Menu
-      
-    call hStatusOut
-
-end sub
-
-' ********************************************
-' ** - global start routines
-' ********************************************
-sub LoadIncludeFiles
-    use "global\system\includes\master.inc"
-    use "global\system\includes\gvariabl.inc"
-    use "global\tools\includes\optional\t_locale_tools.inc"
-    use "global\tools\includes\optional\t_docfuncs.inc"
-    use "global\tools\includes\optional\t_control_objects.inc"
-    use "global\required\includes\g_printing.inc"
-    
-    gApplication   = "CALC"
-    GetUseFiles ()
-end sub
diff --git a/testautomation/spreadsheet/required/c_updt2.bas b/testautomation/spreadsheet/required/c_updt2.bas
deleted file mode 100644
index a1bab7f128f4..000000000000
--- a/testautomation/spreadsheet/required/c_updt2.bas
+++ /dev/null
@@ -1,75 +0,0 @@
-'encoding UTF-8  Do not remove or change this line!
-'**************************************************************************
-' DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER.
-' 
-' Copyright 2000, 2010 Oracle and/or its affiliates.
-'
-' OpenOffice.org - a multi-platform office productivity suite
-'
-' This file is part of OpenOffice.org.
-'
-' OpenOffice.org is free software: you can redistribute it and/or modify
-' it under the terms of the GNU Lesser General Public License version 3
-' only, as published by the Free Software Foundation.
-'
-' OpenOffice.org is distributed in the hope that it will be useful,
-' but WITHOUT ANY WARRANTY; without even the implied warranty of
-' MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
-' GNU Lesser General Public License version 3 for more details
-' (a copy is included in the LICENSE file that accompanied this code).
-'
-' You should have received a copy of the GNU Lesser General Public License
-' version 3 along with OpenOffice.org.  If not, see
-' <http://www.openoffice.org/license.html>
-' for a copy of the LGPLv3 License.
-'
-'/***********************************************************************
-'*
-'* owner : oliver.craemer@oracle.com
-'*
-'* short description : Resource-Test Spreadsheet Application Part II
-'*
-'\***********************************************************************
-
-sub main
-
-    use "spreadsheet\required\includes\c_upd_formatmenu.inc"
-    use "spreadsheet\required\includes\c_upd_formatmenu2.inc"
-    use "spreadsheet\required\includes\c_upd_formatmenu3.inc"
-    use "spreadsheet\required\includes\c_upd_toolsmenu.inc"
-    use "spreadsheet\required\includes\c_upd_toolsmenu2.inc"
-    use "spreadsheet\required\includes\c_upd_datamenu.inc"
-    use "spreadsheet\required\includes\c_upd_windowmenu.inc"
-    use "spreadsheet\required\includes\c_upd_helpmenu.inc"
-    use "spreadsheet\tools\includes\c_cell_tools.inc"
-    use "spreadsheet\tools\includes\c_select_tools.inc"
-
-    Printlog "-----------------------------------------------------"
-    Printlog "--- Resource-Test Spreadsheet Application Part II ---"
-    Printlog "-----------------------------------------------------"   
-
-    call hStatusIn("Spreadsheet", "c_updt2.bas", "Resource Test for Spreadsheet Part II")
-
-    call c_upd_formatmenu    'FORMAT Menu Part I
-    call c_upd_formatmenu2   'FORMAT Menu Part II
-    call c_upd_formatmenu3   'FORMAT Menu Part III    
-    call c_upd_toolsmenu     'TOOLS  Menu Part I
-    call c_upd_toolsmenu2    'TOOLS  Menu Part II
-    call c_upd_datamenu      'DATA   Menu
-    call c_upd_windowmenu    'WINDOW Menu
-    call c_upd_helpmenu      'HELP   Menu
-    
-    call hStatusOut
-
-end sub
-
-' ********************************************
-' ** - global start routines
-' ********************************************
-sub LoadIncludeFiles
-    use "global\system\includes\master.inc"
-    use "global\system\includes\gvariabl.inc"
-    use "global\tools\includes\optional\t_locale_tools.inc"
-    gApplication   = "CALC"
-    GetUseFiles ()
-end sub
diff --git a/testautomation/spreadsheet/required/includes/c_upd_datamenu.inc b/testautomation/spreadsheet/required/includes/c_upd_datamenu.inc
deleted file mode 100644
index 2c77baeea56d..000000000000
--- a/testautomation/spreadsheet/required/includes/c_upd_datamenu.inc
+++ /dev/null
@@ -1,1041 +0,0 @@
-'encoding UTF-8  Do not remove or change this line!
-'**************************************************************************
-' DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER.
-'
-' Copyright 2000, 2010 Oracle and/or its affiliates.
-'
-' OpenOffice.org - a multi-platform office productivity suite
-'
-' This file is part of OpenOffice.org.
-'
-' OpenOffice.org is free software: you can redistribute it and/or modify
-' it under the terms of the GNU Lesser General Public License version 3
-' only, as published by the Free Software Foundation.
-'
-' OpenOffice.org is distributed in the hope that it will be useful,
-' but WITHOUT ANY WARRANTY; without even the implied warranty of
-' MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
-' GNU Lesser General Public License version 3 for more details
-' (a copy is included in the LICENSE file that accompanied this code).
-'
-' You should have received a copy of the GNU Lesser General Public License
-' version 3 along with OpenOffice.org.  If not, see
-' <http://www.openoffice.org/license.html>
-' for a copy of the LGPLv3 License.
-'
-'/***********************************************************************
-'*
-'* owner : oliver.craemer@oracle.com
-'*
-'* short description : Resource Test - Data Menu
-'*
-'************************************************************************
-'*
-' #1 tDataDefineRange
-' #1 tDataSelectRange
-' #1 tDataSort
-' #1 tDataFilterAutoFilter
-' #1 tDataFilterStandardFilter
-' #1 tDataFilterAdvancedFilter
-' #1 tDataFilterRemoveFilter
-' #1 tDataFilterHideFilter
-' #1 tDataSubtotals
-' #1 tDataValidity
-' #1 tDataMultipleOperations
-' #1 tDataTexttoColumn
-' #1 tDataConsolidate
-' #1 tDataGroupandOutline
-' #1 tDataDataPilot
-' #1 tDataRefreshRange
-'*
-'\***********************************************************************
-
-sub c_upd_datamenu
-
-    Printlog Chr(13) + "--------- Data Menu (c_upd_datamenu.inc) ---------"
-    
-    call tDataDefineRange
-    call tDataSelectRange
-    call tDataSort
-    call tDataFilterAutoFilter
-    call tDataFilterStandardFilter
-    call tDataFilterAdvancedFilter
-    call tDataFilterRemoveFilter
-    call tDataFilterHideFilter
-    call tDataSubtotals
-    call tDataValidity
-    call tDataMultipleOperations
-    call tDataTexttoColumn
-    call tDataConsolidate
-    call tDataGroupandOutline
-    call tDataDataPilot
-    call tDataRefreshRange
-    
-
-end sub
-
-'-----------------------------------------------------------
-
-testcase tDataDefineRange
-'///<u><b>Data – Define Range</b></u>
-
-    '/// Opening new spreadsheet document for getting defined starting environment
-    printlog " Opening new spreadsheet document for getting defined starting environment"
-    call hNewDocument
-    '/// Open 'Define Database range' dialog by 'Data – Define Range'
-    printlog " Open 'Define Database range' dialog by 'Data – Define Range'"
-    DataDefineRange
-    Kontext "DatenbankbereichFestlegen"
-    '/// Enter name 'Testrange'
-    printlog " Enter name 'Testrange'"
-    BereichsName.SetText "Testrange_by_TT"
-    '/// Click on 'More' button
-    printlog " Click on 'More' button"
-    Zusaetze.Click
-    DialogTest ( DatenbankbereichFestlegen )
-    '/// Click on 'Shrink' button to open rangechooser
-    printlog " Click on 'Shrink' button to open rangechooser"
-    BereichMin.Click
-    '/// Close rangechooser by click on 'Shrink' button
-    printlog " Close rangechooser by click on 'Shrink' button"
-    BereichMin.Click
-    '/// Click on 'Add' button
-    printlog " Click on 'Add' button"
-    Hinzufuegen.Click
-    '/// Select 'Testrange_by_TT'
-    printlog " Select 'Testrange_by_TT'"
-    BereichsName.Select "Testrange_by_TT"
-    '/// Click on 'Modify' button
-    printlog " Click on 'Modify' button"
-    Aendern.Click
-    '/// Select 'Testrange_by_TT'
-    printlog " Select 'Testrange_by_TT'"
-    BereichsName.Select "Testrange_by_TT"
-    '/// Click on 'Delete' button
-    printlog " Click on 'Delete' button"
-    Loeschen.Click
-    '/// Close messagebox with 'Yes'
-    printlog " Close messagebox with 'Yes'"
-    Kontext
-    if Active.exists then 
-        Active.Yes
-    end if
-    Kontext "DatenbankbereichFestlegen"
-    '/// Close 'Define Database range' dialog with 'Cancel'
-    printlog " Close 'Define Database range' dialog with 'Cancel'"
-    DatenbankbereichFestlegen.Cancel
-    '/// Close document
-    printlog " Close document"
-    Call hCloseDocument
-
-endcase
-
-'-----------------------------------------------------------
-
-testcase tDataSelectRange
-'///<u><b>Data – Select Range</b></u>
-
-    '/// Open new Spreadsheet document
-    printlog " Open new Spreadsheet document"
-    Call hNewDocument
-    '/// Open 'Select Database range' dialog by 'Data – Select Range'
-    printlog " Open 'Select Database range' dialog by 'Data – Select Range'"
-    DataSelectRange
-    Kontext "DatenbankbereichWaehlen"
-    DialogTest ( DatenbankbereichWaehlen )
-    '/// Close dialog with 'Cancel'
-    printlog " Close dialog with 'Cancel'"
-    DatenbankbereichWaehlen.Cancel
-    '/// Close document
-    printlog " Close document"
-    Call hCloseDocument
-
-endcase
-
-'-----------------------------------------------------------
-
-testcase tDataSort
-'///<u><b>Data – Sort</b></u>
-
-    '/// Open new Spreadsheet document
-    printlog " Open new Spreadsheet document"
-    Call hNewDocument
-    '/// Open 'Sort' dialog by 'Data – Sort'
-    printlog " Open 'Sort' dialog by 'Data – Sort'"
-    DataSort
-    '/// Switch to tabpage 'Sort Criteria'
-    printlog " Switch to tabpage 'Sort Criteria'"
-    Kontext
-    active.SetPage TabSortierkriterien
-    Kontext "TabSortierkriterien"
-    Call DialogTest ( TabSortierkriterien )
-    '/// Verify that combobox 'Sort by' has items
-    printlog " Verify that combobox 'Sort by' has items"
-    If SortierenNach.GetItemCount < 1 then
-        warnlog "The Sortlist is empty"
-    end if
-    '/// Switch to tabpage 'Options'
-    printlog " Switch to tabpage 'Options'"
-    Kontext
-    active.SetPage TabSortierenOptionen
-    Kontext "TabSortierenOptionen"
-    Call DialogTest ( TabSortierenOptionen )
-    '/// Verify that the 'Language' combobox has items
-    printlog " Verify that the 'Language' combobox has items"
-    If Sprache.GetItemCount < 1 then
-        warnlog "The Languagelist is empty"
-    end if
-    '/// Close 'Sort' dialog with 'Cancel
-    printlog " Close 'Sort' dialog with 'Cancel"
-    TabSortierenOptionen.Cancel
-	printlog " Select cell B3"
-	Kontext ( "DocumentCalc" )
-	fCalcSelectRange ( "B3" )
-	printlog " Fill cells B3:B8 with numbers 1-6"
-    DocumentCalc.TypeKeys "1<RETURN>2<RETURN>3<RETURN>4<RETURN>5<RETURN>6"
-	printlog " Select cell C3"
-	fCalcSelectRange ( "C3" )
-	printlog " Fill cells C3:C8 with numbers 7-2"
-    DocumentCalc.TypeKeys "7<RETURN>6<RETURN>5<RETURN>4<RETURN>3<RETURN>2"
-	printlog " Select cells B5:B6"
-	fCalcSelectRange ( "B5:B6" )
-	printlog " Open Data Sort"
-	DataSort
-	Kontext ( "SortRange" )
-	printlog " SortRange dialog has opened"
-	printlog " Cancel Sort Range dialog"
-	SortRange.Cancel
-    '/// Close document
-    printlog " Close document"
-    Call hCloseDocument
-
-endcase
-
-'-----------------------------------------------------------
-
-testcase tDataFilterAutoFilter
-'///<u><b>Data – Filter – AutoFilter</b></u>
-
-    '/// Open new Spreadsheet document
-    printlog " Open new Spreadsheet document"
-    Call hNewDocument
-    '/// Enter 'Value' in A1, '1' in A2, '2' in A3
-    printlog " Enter 'Value' in A1, '1' in A2, '2' in A3"
-    DocumentCalc.TypeKeys "Value<Return>1<Return>2<Return><Up>"
-    '/// Use 'AutoFilter' by 'Data – Filter – AutoFilter'
-    printlog " Use 'AutoFilter' by 'Data – Filter – AutoFilter'"
-    DataFilterAutoFilter
-    '/// Remove 'AutoFilter' by 'Data – Filter – AutoFilter'
-    printlog " Remove 'AutoFilter' by 'Data – Filter – AutoFilter'"
-    DataFilterAutoFilter
-    '/// Close document
-    printlog " Close document"
-    Call hCloseDocument
-
-endcase
-
-'-----------------------------------------------------------
-
-testcase tDataFilterStandardFilter
-'///<u><b>Data – Filter – Standard Filter</b></u>
-
-    '/// Open new Spreadsheet document
-    printlog " Open new Spreadsheet document"
-    Call hNewDocument
-    '/// Open 'Standard Filter' dialog by 'Data – Filter – Standard Filter'
-    printlog " Open 'Standard Filter' dialog by 'Data – Filter – Standard Filter'"
-    DataFilterStandardFilter
-    Kontext "Standardfilter"
-    '/// Click on 'More' button
-    printlog " Click on 'More' button"
-    Zusaetze.Click
-    DialogTest ( Standardfilter )
-    '/// Verify that the 'Field name' combobox has items
-    printlog " Verify that the 'Field name' combobox has items"
-    If FeldName1.GetItemCount < 1 then
-        warnlog "The list is empty"
-    end if
-    '/// Verify that the 'Condition' combobox has items
-    printlog " Verify that the 'Condition' combobox has items"
-    If Bedingung1.GetItemCount < 1 then
-        warnlog "The list is empty"
-    end if
-    '/// Verify that the 'Value' combobox has items
-    printlog " Verify that the 'Value' combobox has items"
-    If Wert1.GetItemCount < 1 then
-        warnlog "The list is empty"
-    end if
-    '/// Choose first operator
-    printlog " Choose first operator"
-    Verknuepfung2.Select 1
-    '/// Check option 'Case sensitive'
-    printlog " Check option 'Case sensitive'"
-    GrossKleinschreibung.Check
-    '/// Check option 'Range contains column labels'
-    printlog " Check option 'Range contains column labels'"
-    BereicheEnthaeltSpaltenkoepfe.Check
-    '/// Check option 'Regular expressions'
-    printlog " Check option 'Regular expressions'"
-    RegulaererAusdruck.Check
-    '/// Check option 'No duplication'
-    printlog " Check option 'No duplication'"
-    KeineDuplikate.Check
-    '/// Check option 'Copy results to'
-    printlog " Check option 'Copy results to'"
-    FilterergebnisNach.Check
-    '/// Click on 'Shrink' button to open rangechooser
-    printlog " Click on 'Shrink' button to open rangechooser"
-    DialogMin.Click
-    '/// Close rangechooser by click on 'Shrink' button
-    printlog " Close rangechooser by click on 'Shrink' button"
-    DialogMin.Click
-    '/// Check option 'Keep filter criteria'
-    printlog " Check option 'Keep filter criteria'"
-    Persistent.Check
-    '/// Close 'Standard Filter' dialog with 'Cancel'
-    printlog " Close 'Standard Filter' dialog with 'Cancel'"
-    Standardfilter.Cancel
-    '/// Close document
-    printlog " Close document"
-    Call hCloseDocument
-
-endcase
-
-'-----------------------------------------------------------
-
-testcase tDataFilterAdvancedFilter
-'///<u><b>Data – Filter – Advanced Filter</b></u>
-
-    '/// Open new Spreadsheet document
-    printlog " Open new Spreadsheet document"
-    Call hNewDocument
-    '/// Open 'Advanced Filter' dialog by 'Data – Filter – Advanced Filter'
-    printlog " Open 'Advanced Filter' dialog by 'Data – Filter – Advanced Filter'"
-    DataFilterAdvancedFilter
-    Kontext "Spezialfilter"
-    '/// Click on 'More' button
-    printlog " Click on 'More' button"
-    Zusaetze.Click
-    DialogTest ( Spezialfilter )
-    '/// Click on 'Shrink' button to open rangechooser
-    printlog " Click on 'Shrink' button to open rangechooser"
-    FilterkriterienMin.Click
-    '/// Close rangechooser by click on 'Shrink' button
-    printlog " Close rangechooser by click on 'Shrink' button"
-    FilterkriterienMin.Click
-    '/// Check option 'Case sensitive'
-    printlog " Check option 'Case sensitive'"
-    GrossKleinschreibung.Check
-    '/// Check if option 'Range contains column labels' is disabled
-    printlog " Check if option 'Range contains column labels' is disabled"
-    If BereichEnthaeltSpaltenkoepfe.IsEnabled then
-        warnlog "The option is enabled"
-    end if
-    '/// Check option 'Regular expressions'
-    printlog " Check option 'Regular expressions'"
-    RegulaererAusdruck.Check
-    '/// Check option 'No duplication'
-    printlog " Check option 'No duplication'"
-    KeineDuplikate.Check
-    '/// Check option 'Copy results to'
-    printlog " Check option 'Copy results to'"
-    FilterergebnisAusgeben.Check
-    '/// Click on 'Shrink' button to open rangechooser
-    printlog " Click on 'Shrink' button to open rangechooser"
-    FilterergebnisMin.Click
-    '/// Close rangechooser by click on 'Shrink' button
-    printlog " Close rangechooser by click on 'Shrink' button"
-    FilterergebnisMin.Click
-    '/// Check option 'Keep filter criteria'
-    printlog " Check option 'Keep filter criteria'"
-    Persistent.Check
-    '/// Close 'Advanced Filter' dialog with 'Cancel'
-    printlog " Close 'Advanced Filter' dialog with 'Cancel'"
-    Spezialfilter.Cancel
-    '/// Close document
-    printlog " Close document"
-    Call hCloseDocument
-
-endcase
-
-'-----------------------------------------------------------
-
-testcase tDataFilterRemoveFilter
-'///<u><b>Data – Filter – Remove Filter</b></u>
-
-    '/// Open new Spreadsheet document
-    printlog " Open new Spreadsheet document"
-    Call hNewDocument
-    '/// Enter 'Value' in A1, '1' in A2, '2' in A3
-    printlog " Enter 'Value' in A1, '1' in A2, '2' in A3"
-    DocumentCalc.TypeKeys "Value<Return>1<Return>2<Return><Up>"
-    '/// Open 'Standard Filter' dialog by 'Data – Filter – Standard Filter'
-    printlog " Open 'Standard Filter' dialog by 'Data – Filter – Standard Filter'"
-    DataFilterStandardFilter
-    Kontext "Standardfilter"
-    '/// Set 'Field name' to 'Value'
-    printlog " Set 'Field name' to 'Value'"
-    Feldname1.select 2
-    '/// Set 'Condition' to first entry
-    printlog " Set 'Condition' to first entry"
-    Bedingung1.select 1
-    '/// Set 'Value' to last entry
-    printlog " Set 'Value' to last entry"
-    Wert1.select 2
-    '/// Close 'Standard Filter' dialog with 'OK'
-    printlog " Close 'Standard Filter' dialog with 'OK'"
-    Standardfilter.Ok
-    '/// Remove filter by 'Data – Filter – Remove Filter'
-    printlog " Remove filter by 'Data – Filter – Remove Filter'"
-    DataFilterRemoveFilter
-    '/// Close document
-    printlog " Close document"
-    Call hCloseDocument
-
-endcase
-
-'-----------------------------------------------------------
-
-testcase tDataFilterHideFilter
-'///<u><b>Data – Filter – Hide Filter</b></u>
-
-    '/// Open new Spreadsheet document
-    printlog " Open new Spreadsheet document"
-    Call hNewDocument
-    '/// Enter 'Value' in A1, '1' in A2, '2' in A3
-    printlog " Enter 'Value' in A1, '1' in A2, '2' in A3"
-    DocumentCalc.TypeKeys "Value<Return>1<Return>2<Return><Up>"
-    '/// Use 'AutoFilter' by 'Data – Filter – AutoFilter'
-    printlog " Use 'AutoFilter' by 'Data – Filter – AutoFilter'"
-    DataFilterAutoFilter
-    '/// Hide 'AutoFilter' by 'Data – Filter – Hide Filter'
-    printlog " Hide 'AutoFilter' by 'Data – Filter – Hide Filter'"
-    DataFilterHideAutoFilter
-    '/// Close document
-    printlog " Close document"
-    Call hCloseDocument
-
-endcase
-
-'-----------------------------------------------------------
-
-testcase tDataSubtotals
-'///<u><b>Data – Subtotals</b></u>
-
-    '/// Open new Spreadsheet document
-    printlog " Open new Spreadsheet document"
-    Call hNewDocument
-    '/// Open 'Subtotals' dialog by 'Data – Subtotals'
-    printlog " Open 'Subtotals' dialog by 'Data – Subtotals'"
-    DataSubtotals
-    Kontext "Teilergebnisse"
-    '/// Switch to tabpage '1st Group'
-    printlog " Switch to tabpage '1st Group'"
-    Kontext
-    active.SetPage TabGruppe1
-    Kontext "TabGruppe1"
-    Call DialogTest ( TabGruppe1 )
-    '/// Verify that the 'Group by' combobox has items
-    printlog " Verify that the 'Group by' combobox has items"
-    If GruppierenNach.GetItemCount < 1 then
-        warnlog "The list is empty"
-    end if
-    '/// Verify that there are functions available in the  'Use function' control
-    printlog " Verify that there are functions available in the  'Use function' control"
-    If Berechnungsvorschrift.GetItemCount < 1 then
-        warnlog "The list is empty"
-    end if
-    '/// Switch to tabpage '2nd Group'
-    printlog " Switch to tabpage '2nd Group'"
-    Kontext
-    active.SetPage TabGruppe2
-    Kontext "TabGruppe2"
-    Call DialogTest ( TabGruppe2 )
-    '/// Verify that the 'Group by' combobox has items
-    printlog " Verify that the 'Group by' combobox has items"
-    If GruppierenNach.GetItemCount < 1 then
-        warnlog "The list is empty"
-    end if
-    '/// Verify that there are functions available in the  'Use function' control
-    printlog " Verify that there are functions available in the  'Use function' control"
-    If Berechnungsvorschrift.GetItemCount < 1 then
-        warnlog "The list is empty"
-    end if
-    '/// Switch to tabpage '3rd Group'
-    printlog " Switch to tabpage '3rd Group'"
-    Kontext
-    active.SetPage TabGruppe3
-    Kontext "TabGruppe3"
-    Call DialogTest ( TabGruppe3 )
-    '/// Verify that the 'Group by' combobox has items
-    printlog " Verify that the 'Group by' combobox has items"
-    If GruppierenNach.GetItemCount < 1 then
-        warnlog "The list is empty"
-    end if
-    '/// Verify that there are functions available in the  'Use function' control
-    printlog " Verify that there are functions available in the  'Use function' control"
-    If Berechnungsvorschrift.GetItemCount < 1 then
-        warnlog "The list is empty"
-    end if
-    '/// Switch to tabpage 'Options'
-    printlog " Switch to tabpage 'Options'"
-    Kontext
-    active.SetPage TabTeilergebnisseOptionen
-    Kontext "TabTeilergebnisseOptionen"
-    Call DialogTest ( TabTeilergebnisseOptionen )
-    '/// Check option 'Page break between groups'
-    printlog " Check option 'Page break between groups'"
-    NeueSeiteBeiGruppenwechsel.Check
-    '/// Check option 'Case sensitive'
-    printlog " Check option 'Case sensitive'"
-    GrossKleinschreibungBeachten.Check
-    '/// Check option 'Pre-sort area according to groups'
-    printlog " Check option 'Pre-sort area according to groups'"
-    BereichVorherNachGruppenSortieren.Check
-    '/// Check option 'Ascending'
-    printlog " Check option 'Ascending'"
-    Aufsteigend.Check
-    '/// Check option 'Decending'
-    printlog " Check option 'Decending'"
-    Absteigend.Check
-    '/// Check option 'Include formats'
-    printlog " Check option 'Include formats'"
-    FormateEinschliessen.Check
-    '/// Check option 'Custom sort order'
-    printlog " Check option 'Custom sort order'"
-    BenutzerdefinierteSortierreihenfolge.Check
-    '/// Verify that there are sortorders available
-    printlog " Verify that there are sortorders available"
-    If SortierreihenfolgeAnzeige.GetItemCount < 1 then
-        warnlog "The list is empty"
-    end if
-    '/// Close 'Subtotals' dialog with 'Cancel'
-    printlog " Close 'Subtotals' dialog with 'Cancel'"
-    TabTeilergebnisseOptionen.Close
-    '/// Close document
-    printlog " Close document"
-    hCloseDocument
-
-endcase
-
-'-----------------------------------------------------------
-
-testcase tDataValidity
-'///<u><b>Data – Validity</b></u>
-
-    '/// Open new Spreadshet document
-    printlog " Open new Spreadshet document"
-    call hNewDocument
-    '/// Open 'Validity' dialog by 'Data – Validity'
-    printlog " Open 'Validity' dialog by 'Data – Validity'"
-    DataValidity
-    '/// Switch to tabpage 'Criteria'
-    printlog " Switch to tabpage 'Criteria'"
-    Kontext
-    Active.SetPage TabWerte
-    Kontext "TabWerte"
-    Call DialogTest ( TabWerte,1 )
-    '/// Choose 8th entry (Text length) in 'Allow' combobox
-    printlog " Choose 8th entry (Text length) in 'Allow' combobox"
-    Zulassen.select (8)
-    Call DialogTest ( TabWerte,2 )
-    '/// Choose last entry (not between) in 'Data' combobox
-    printlog " Choose last entry (not between) in 'Data' combobox"
-    Daten.select (8)
-    Call DialogTest ( TabWerte,3 )
-    '/// Choose 7th entry (List) in 'Allow' combobox
-    printlog " Choose 7th entry (List) in 'Allow' combobox"
-    Zulassen.select (7)
-    Call DialogTest ( TabWerte,4 )
-    '/// Choose 6th entry (Cell range) in 'Allow' combobox
-    printlog " Choose 6th entry (Cell range) in 'Allow' combobox"
-    Zulassen.select (6)
-    Call DialogTest ( TabWerte,5 )
-    printlog " Press Shrink button"
-    SourceShrink.Click
-    Kontext "TabWerte"
-    printlog " Close rangechooser"
-    SourceShrink.Click
-    Kontext "TabWerte"
-    '/// Switch to tabpage 'Input Help'
-    printlog " Switch to tabpage 'Input Help'"
-    Kontext
-    Active.SetPage TabEingabehilfe
-    Kontext "TabEingabehilfe"
-    Call DialogTest ( TabEingabehilfe )
-    '/// Switch to tabpage 'Error Alert'
-    printlog " Switch to tabpage 'Error Alert'"
-    Kontext
-    Active.SetPage TabFehlermeldung
-    Kontext "TabFehlermeldung"
-    Call DialogTest ( TabFehlermeldung )
-    '/// Choose last entry (Macro) in 'Action' combobox
-    printlog " Choose last entry (Macro) in 'Action' combobox"
-    Aktion.Select (4)
-    '/// Click on 'Browse' button
-    printlog " Click on 'Browse' button"
-    Durchsuchen.Click
-    Kontext "ScriptSelector"
-    '/// Close 'Macro Selector' with 'Cancel'
-    printlog " Close 'Macro Selector' with 'Cancel'"
-    ScriptSelector.Cancel
-    Kontext "TabFehlermeldung"
-    '/// Close 'Validity' dialog with 'Cancel'
-    printlog " Close 'Validity' dialog with 'Cancel'"
-    TabFehlermeldung.Cancel
-    '/// Close document
-    printlog " Close document"
-    Call hCloseDocument
-
-endcase
-
-'-----------------------------------------------------------
-
-testcase tDataMultipleOperations
-'///<u><b>Data – Multiple Operations</b></u>
-
-    '/// Open new Spreadsheet ocument
-    printlog " Open new Spreadsheet ocument"
-    Call hNewDocument
-    '/// Select cells A1:D4
-    printlog " Select cells A1:D4"
-    Call fCalcSelectRange ("A1:D4")
-    '/// Open 'Multiple operations' dialog by 'Data – Multiple Operations'
-    printlog " Open 'Multiple operations' dialog by 'Data – Multiple Operations'"
-    DataMultipleOperations
-    Kontext "Mehrfachoperationen"
-    DialogTest ( Mehrfachoperationen )
-    '/// Click on 'Shrink' button for Formulas' to open rangechooser
-    printlog " Click on 'Shrink' button for Formulas' to open rangechooser"
-    Vorgaben1.Click
-    '/// Close rangechooser by click on 'Shrink' button
-    printlog " Close rangechooser by click on 'Shrink' button"
-    Vorgaben1.Click
-    '/// Click on 'Shrink' button for 'Row input cell' to open rangechooser
-    printlog " Click on 'Shrink' button for 'Row input cell' to open rangechooser"
-    Vorgaben2.Click
-    '/// Close rangechooser by click on 'Shrink' button
-    printlog " Close rangechooser by click on 'Shrink' button"
-    Vorgaben2.Click
-    '/// Click on 'Shrink' button for 'Column Input Cell' to open rangechooser
-    printlog " Click on 'Shrink' button for 'Column Input Cell' to open rangechooser"
-    Vorgaben3.Click
-    '/// Close rangechooser by click on 'Shrink' button
-    printlog " Close rangechooser by click on 'Shrink' button"
-    Vorgaben3.Click
-    '/// Close 'Multiple operations' dialog with 'Cancel'
-    printlog " Close 'Multiple operations' dialog with 'Cancel'"
-    Mehrfachoperationen.Cancel
-    '/// Close document
-    printlog " Close document"
-    Call hCloseDocument
-
-endcase
-
-'-----------------------------------------------------------
-
-testcase tDataTexttoColumn
-'///<u><b>Data – Text to Column</b></u>
-
-    '/// Open new Spreadsheet document
-    printlog " Open new Spreadsheet document"
-    Call hNewDocument
-    '/// In cell A1 enter string  'First Second'
-    printlog " In cell A1 enter string  'First Second'"
-    Call fCalcSelectRange ("A1")
-    DocumentCalc.TypeKeys "First Second<Return>"
-    '/// Select cell A1
-    printlog " Select cell A1"
-    Call fCalcSelectRange ("A1")
-    '/// Open 'Text to Column' dialog by 'Data – Text to Columns'
-    printlog " Open 'Text to Column' dialog by 'Data – Text to Columns'"
-    DataTextToColumns
-    Kontext "TextImport"
-    '/// Close 'Text to Column' dialog
-    printlog " Close 'Text to Column' dialog"
-    TextImport.Cancel
-    '/// Close document
-    printlog " Close document"
-    Call hCloseDocument
-
-endcase
-
-'-----------------------------------------------------------
-
-testcase tDataConsolidate
-'///<u><b>Data – Consolidate</b></u>
-
-    '/// Open new Spreadsheet document
-    printlog " Open new Spreadsheet document"
-    Call hNewDocument
-    '/// Open 'Consolidate' dialog by 'Data – Consolidate'
-    printlog " Open 'Consolidate' dialog by 'Data – Consolidate'"
-    DataConsolidate
-    '/// Click on 'More' button
-    printlog " Click on 'More' button"
-    Kontext "Konsolidieren"
-    Zusaetze.Click
-    DialogTest ( Konsolidieren )
-    '/// Verify that the 'Function' combobox has items
-    printlog " Verify that the 'Function' combobox has items"
-    If Berechnungsvorschrift.GetItemCount < 1 then
-        warnlog "The list is empty"
-    end if
-    '/// Click on 'Shrink' button for 'Source data range' to open rangechooser
-    printlog " Click on 'Shrink' button for 'Source data range' to open rangechooser"
-    ButtonQuelldaten.Click
-    '/// Close rangechooser by click on 'Shrink' button
-    printlog " Close rangechooser by click on 'Shrink' button"
-    ButtonQuelldaten.Click
-    '/// Click on 'Shrink' button for 'Copy results to' to open rangechooser
-    printlog " Click on 'Shrink' button for 'Copy results to' to open rangechooser"
-    ButtonAusgeben.Click
-    '/// Close rangechooser by click on 'Shrink' button
-    printlog " Close rangechooser by click on 'Shrink' button"
-    ButtonAusgeben.Click
-    '/// Close 'Consolidate' dialog with 'Cancel'
-    printlog " Close 'Consolidate' dialog with 'Cancel'"
-    Konsolidieren.Cancel
-    '/// Close document
-    printlog " Close document"
-    Call hCloseDocument
-
-endcase
-
-'-----------------------------------------------------------
-
-testcase tDataGroupandOutline
-'///<u><b>Data – Group and Outline</b></u>
-
-    '/// Open new Spreadsheet document
-    printlog " Open new Spreadsheet document"
-    Call hNewDocument
-    '/// Select cells A1:D9
-    printlog " Select cells A1:D9"
-    Call fCalcSelectRange ("A1:D9")
-    '/// Open 'Group' dialog by 'Data – Group and Outline – Group'
-    printlog " Open 'Group' dialog by 'Data – Group and Outline – Group'"
-    DataOutlineGroup
-    Kontext "GruppierungAktivieren"
-    DialogTest ( GruppierungAktivieren )
-    '/// Check option 'Rows'
-    printlog " Check option 'Rows'"
-    Zeilen.Check
-    '/// Close dialog with 'OK'
-    printlog " Close dialog with 'OK'"
-    GruppierungAktivieren.OK
-    '/// Open 'Group' dialog by 'Data – Group and Outline – Group'
-    printlog " Open 'Group' dialog by 'Data – Group and Outline – Group'"
-    DataOutlineGroup
-    Kontext "GruppierungAktivieren"
-    '/// Check option 'Rows'
-    printlog " Check option 'Rows'"
-    Spalten.Check
-    '/// Close dialog with 'OK'
-    printlog " Close dialog with 'OK'"
-    GruppierungAktivieren.OK
-    '/// Hide details by 'Data – Group and Outline – Hide details'
-    printlog " Hide details by 'Data – Group and Outline – Hide details'"
-    DataOutlineHideDetails
-    '/// Show details by 'Data – Group and Outline – Show details'
-    printlog " Show details by 'Data – Group and Outline – Show details'"
-    DataOutlineShowDetails
-    '/// Open 'Ungroup' dialog ' Data – Group and Outline – Ungroup'
-    printlog " Open 'Ungroup' dialog by ' Data – Group and Outline – Ungroup'"
-    DataOutlineUngroup
-    Kontext "GruppierungAufheben"
-    DialogTest ( GruppierungAufheben )
-    '/// Check option 'Rows'
-    printlog " Check option 'Rows'"
-    Spalten.Check
-    '/// Close dialog with 'OK'
-    printlog " Close dialog with 'OK'"
-    GruppierungAufheben.OK
-    '/// Ungroup data by 'Data – Group and Outline – Ungroup'
-    printlog " Ungroup data by 'Data – Group and Outline – Ungroup'"
-    DataOutlineUngroup
-    '/// Enter '1' in A1, '2' in A2, '3' in A3
-    printlog " Enter '1' in A1, '2' in A2, '3' in A3"
-    Call fCalcSelectRange ("A1")
-    DocumentCalc.TypeKeys "1<Return>2<Return>3<Return>"
-    '/// Select cell A4 and click on Autosum button on Formularbar
-    printlog " Select cell A4 and click on Autosum button on Formularbar"
-    Call fCalcSelectRange ("A4")
-    Kontext "RechenleisteCalc"
-    Summe.Click
-    Kontext "DocumentCalc"
-    DocumentCalc.TypeKeys "<Return>"
-    '/// Select cells A1:A4
-    printlog " Select cells A1:A4"
-    Call fCalcSelectRange ("A1:A4")
-    '/// Use 'AutoOutline' by 'Data – Group and Outline – AutoOutline'
-    printlog " Use 'AutoOutline' by 'Data – Group and Outline – AutoOutline'"
-    DataOutlineAutoOutline
-    '/// Remove outline by 'Data – Group and Outline – Remove'
-    printlog " Remove outline by 'Data – Group and Outline – Remove'"
-    DataOutlineRemove
-    '/// Close document
-    printlog " Close document"
-    Call hCloseDocument
-
-endcase
-
-'-----------------------------------------------------------
-
-testcase tDataDataPilot
-'///<u><b>Data – DataPilot</b></u>
-    
-    printlog " Close and restart the Office"
-    ExitRestartTheOffice
-    '/// Open new Spreadsheet document
-    printlog " Open new Spreadsheet document"
-    Call hNewDocument
-    '/// Enter string 'Month' in A1, 'Value' in B1
-    printlog " Enter string 'Month' in A1, 'Value' in B1"
-    Call fCalcSelectRange ("A1")
-    DocumentCalc.TypeKeys "Month<Right>Value<Return>"
-    '/// Select A1:B1
-    printlog " Select A1:B1"
-    Call fCalcSelectRange ("A1:B1")
-    '/// Start 'DataPilot' by 'Data – DataPilot'
-    printlog " Start 'DataPilot' by 'Data – DataPilot'"
-    DataDataPilotStart
-    Kontext "QuelleAuswaehlen"
-    DialogTest ( QuelleAuswaehlen )
-    '/// Choose 'Current Selection' on 'Select Source' dialog
-    printlog " Choose 'Current Selection' on 'Select Source' dialog"
-    AktuelleSelektion.Check
-    '/// Click 'OK' button
-    printlog " Click 'OK' button"
-    QuelleAuswaehlen.OK
-    '/// On 'DataPilot' dialog click on 'More' button
-    printlog " On 'DataPilot' dialog click on 'More' button"
-    Kontext "Datenpilot"
-    Zusaetze.Open
-    DialogTest ( Datenpilot )
-	'/// Verify that the 'Selection from' editfield is correct
-	printlog "Verify that the 'Selection from' editfield has content"
-    printlog "The Range is" & DataPilotRange.Gettext
-    '/// Click on 'Shrink' button for 'Selection from' to open rangechooser
-    printlog " Click on 'Shrink' button for 'Selection from' to open rangechooser"
-    DataPilotRangeShrink.Click
-    '/// Close rangechooser by click on 'Maximize' button
-    printlog " Close rangechooser by click on 'Maximize' button"
-    DataPilotRangeShrink.Click
-    '/// Verify that the 'Results to' combobox has items
-    printlog " Verify that the 'Results to' combobox has items"
-    If AusgabeAb.GetItemCount < 1 then
-        warnlog "The list is empty"
-    end if
-    '/// Click on 'Shrink' button for 'Source data range' to open rangechooser
-    printlog " Click on 'Shrink' button for 'Source data range' to open rangechooser"
-    Minimieren.Click
-    '/// Close rangechooser by click on 'Shrink' button
-    printlog " Close rangechooser by click on 'Shrink' button"
-    Minimieren.Click
-    '/// Check option 'Ignore empty rows'
-    printlog " Check option 'Ignore empty rows'"
-    LeerzeilenIgnorieren.Check
-    '/// Check option 'Total columns'
-    printlog " Check option 'Total columns'"
-    GesamtSpalten.Check
-    '/// Check option 'Add filter'
-    printlog " Check option 'Add filter'"
-    AddFilter.Check
-    '/// Check option 'Identify categories'
-    printlog " Check option 'Identify categories'"
-    KategorieErkennung.Check
-    '/// Check option 'Total rows'
-    printlog " Check option 'Total rows'"
-    GesamtZeilen.Check
-    '/// Check option 'Enable drill to details'
-    printlog " Check option 'Enable drill to details'"
-    EnableDrillToDetails.Check
-    '/// Close 'DataPilot' dialog with 'Cancel'
-    printlog " Close 'DataPilot' dialog with 'Cancel'"
-    DatenPilot.Cancel
-
-    '/// Start datapilot by 'Data – DataPilot'
-    printlog " Start datapilot by 'Data – DataPilot'"
-    DataDataPilotStart
-    Kontext "QuelleAuswaehlen"
-    '/// Choose 'Data source registered in...' on 'Select Source' dialog
-    printlog " Choose 'Data source registered in...' on 'Select Source' dialog"
-    AngemeldeteDatenQuelle.Check
-    '/// Click 'OK' button
-    printlog " Click 'OK' button"
-    QuelleAuswaehlen.OK
-    Kontext "DatenquelleAuswaehlen"
-    Call DialogTest ( DatenquelleAuswaehlen )
-    '/// Count the entries in the 'Database' combobox
-    printlog " Count the entries in the 'Database' combobox"
-    Datenbank.GetItemCount
-    '/// Count the entries in the 'Data source' combobox
-    printlog " Count the entries in the 'Data source' combobox"
-    Datenquelle.GetItemCount
-    '/// Count the entries in the 'Type' combobox
-    printlog " Count the entries in the 'Type' combobox"
-    Art.GetItemCount
-    '/// Close 'Select Data Source' dialog with 'Cancel'
-    printlog " Close 'Select Data Source' dialog with 'Cancel'"
-    DatenquelleAuswaehlen.Cancel
-    '/// Close document
-    printlog " Close document"
-    call hCloseDocument
-    
-    '/// Open testdocument 'gTesttoolPath + spreadsheet\required\input\datapilot.ods'
-    printlog " Open testdocument 'gTesttoolPath + spreadsheet\required\input\datapilot.ods'"
-    hFileOpenLocally( gTesttoolPath & "spreadsheet\required\input\datapilot.ods" )
-    '/// Select cell C34
-    printlog " Select cell C34"
-    Call fCalcSelectRange ( "C34" )
-    '/// Open 'DataPilot' dialog by 'Data – Datapilot – Start'
-    printlog " Open 'DataPilot' dialog by 'Data – Datapilot – Start'"
-    DataDataPilotStart
-    sleep 1
-    Kontext "Datenpilot"
-    '/// Select 'Products' in 'Page Fields' by 5 <TAB>
-    printlog " Select 'Products' in 'Page Fields' by 5 <TAB>"
-    Datenpilot.TypeKeys "<TAB><TAB><TAB><TAB><TAB>",TRUE
-    '/// Click on 'Options' button
-    printlog " Click on 'Options' button"
-    If Optionen.IsEnabled Then
-        Optionen.Click
-    else
-        warnlog "Option button is not enabled. Aborting"
-        Datenpilot.Cancel
-        Call hCloseDocument
-        goto endsub
-    end if
-    Kontext "Datenfeld"
-    Call DialogTest ( Datenfeld )
-    '/// On 'Data Field' dialog choose option 'User-defined'
-    printlog " On 'Data Field' dialog choose option 'User-defined'"
-    Benutzerdefiniert.Check
-    '/// Verify that there are functions in the combobox
-    printlog " Verify that there are functions in the combobox"
-    If Funktionen.GetItemCount < 1 then
-        warnlog "There are no functions available"
-    end if
-    '/// Check option 'Show items without data'
-    printlog " Check option 'Show items without data'"
-    OhneDatenAnzeigen.Check
-    '/// Click on 'Options' button to open 'Data Filed Options' dialog
-    printlog " Click on 'Options' button to open 'Data Filed Options' dialog"
-    Options.Click
-    Kontext "DataFieldsOptionsDlg"
-    Call DialogTest ( DataFieldsOptionsDlg )
-    '/// Choose option 'Ascending'
-    printlog " Choose option 'Ascending'"
-    Ascending.Check
-    '/// Verify that there are items in the 'Sort by' combobox
-    printlog " Verify that there are items in the 'Sort by' combobox"
-    If Sortby.GetItemCount < 1 then
-        warnlog "The list is empty"
-    end if
-    '/// Check option 'Show'
-    printlog " Check option 'Show'"
-    Show.Check
-    '/// Increase 'Show Items'
-    printlog " Increase 'Show Items'"
-    ShowItems.More
-    '/// Count items in combobox 'From'
-    printlog " Count items in combobox 'From'"
-    ShowFrom.GetItemCount
-    '/// Count items in combobox 'Using field'
-    printlog " Count items in combobox 'Using field'"
-    UsingField.GetItemCount
-    '/// Close 'Data Filed Options' dialog with 'Cancel'
-    printlog " Close 'Data Filed Options' dialog with 'Cancel'"
-    DataFieldsOptionsDlg.Cancel
-    Kontext "Datenfeld"
-    '/// Close 'Data Field' dialog with 'Cancel'
-    printlog " Close 'Data Field' dialog with 'Cancel'"
-    Datenfeld.Cancel
-    sleep 2
-    Kontext "Datenpilot"
-	printlog " Close 'DataPilot' dialog with 'Cancel'"
-    Datenpilot.Cancel
-	printlog " Reopen 'DataPilot' dialog by 'Data – Datapilot – Start'"
-    DataDataPilotStart
-    sleep 1
-    Kontext "Datenpilot"
-    '/// Select item (Sum – 2001) in 'Data Fields' by 8 <TAB>
-    printlog " Select item (Sum – 2001) in 'Data Fields' by 8 <TAB>"
-    Datenpilot.TypeKeys "<TAB><TAB><TAB><TAB><TAB><TAB><TAB><TAB>",TRUE
-    Sleep 1
-    '/// Click on 'Options' button to open 'Data Filed' dialog
-    printlog " Click on 'Options' button to open 'Data Filed' dialog"
-    If Optionen.IsEnabled Then
-        Optionen.Click
-    else
-        warnlog "Option button is not enabled. Aborting"
-        Datenpilot.Cancel
-        Call hCloseDocument
-        goto endsub
-    end if
-	sleep 1
-    Kontext "DataFieldsFunctionDlg"
-    '/// Click on 'More' button
-    printlog " Click on 'More' button"
-    More.Click
-    Call DialogTest ( DataFieldsFunctionDlg )
-    '/// Verify that the 'Function' list has items
-    printlog " Verify that the 'Function' list has items"
-    If FunctionList.GetItemCount < 1 then
-        warnlog "The list is empty"
-    end if
-    '/// Choose second entry in 'Type' combobox to enable next both comboboxes
-    printlog " Choose second entry in 'Type' combobox to enable next both comboboxes"
-    ValueType.Select 2
-    '/// Verify that the 'Base field' combobox has items
-    printlog " Verify that the 'Base field' combobox has items"
-    If BaseField.GetItemCount < 1 then
-        warnlog "The list is empty"
-    end if
-    '/// Verify that the 'Base item' combobox has items
-    printlog " Verify that the 'Base item' combobox has items"
-    If BaseItem.GetItemCount < 1 then
-        warnlog "The list is empty"
-    end if
-    '/// Close 'Data Field' dialog with 'Cancel'
-    printlog " Close 'Data Field' dialog with 'Cancel'"
-    DataFieldsFunctionDlg.Cancel
-    Kontext "Datenpilot"
-    '/// Close 'DataPilot' dialog with 'Cancel'
-    printlog " Close 'DataPilot' dialog with 'Cancel'"
-    Datenpilot.Cancel
-    
-    '/// Refresh 'DataPilot' by 'Data – DataPilot – Refresh'
-    printlog " Refresh 'DataPilot' by 'Data – DataPilot – Refresh'"
-    DataDataPilotRefresh
-    
-    '/// Delete 'DataPilot' by 'Data – DataPilot – Delete'
-    printlog " Delete 'DataPilot' by 'Data – DataPilot – Delete'"
-    DataDataPilotDelete
-
-    '/// Close document without saving
-    printlog " Close document without saving"
-    Call hCloseDocument
-
-endcase
-
-'-----------------------------------------------------------
-
-testcase tDataRefreshRange
-'///<u><b>Data – Refresh Range</b></u>
-
-    '/// Load testdocument Database_Refresh
-    printlog " Load testdocument Database_Refresh"
-    hFileOpenLocally( gTesttoolPath & "spreadsheet\required\input\Database_Refresh.ods" )
-    '/// Refresh Database by 'Data – Refresh Range'
-    printlog " Refresh Database by 'Data – Refresh Range'"
-    DataRefreshRange
-    '/// Close document
-    printlog " Close document"
-    Call hCloseDocument
-
-endcase
-
-'-----------------------------------------------------------
-
diff --git a/testautomation/spreadsheet/required/includes/c_upd_editmenu.inc b/testautomation/spreadsheet/required/includes/c_upd_editmenu.inc
deleted file mode 100644
index c90e44d30f01..000000000000
--- a/testautomation/spreadsheet/required/includes/c_upd_editmenu.inc
+++ /dev/null
@@ -1,1024 +0,0 @@
-'encoding UTF-8  Do not remove or change this line!
-'**************************************************************************
-' DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER.
-'
-' Copyright 2000, 2010 Oracle and/or its affiliates.
-'
-' OpenOffice.org - a multi-platform office productivity suite
-'
-' This file is part of OpenOffice.org.
-'
-' OpenOffice.org is free software: you can redistribute it and/or modify
-' it under the terms of the GNU Lesser General Public License version 3
-' only, as published by the Free Software Foundation.
-'
-' OpenOffice.org is distributed in the hope that it will be useful,
-' but WITHOUT ANY WARRANTY; without even the implied warranty of
-' MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
-' GNU Lesser General Public License version 3 for more details
-' (a copy is included in the LICENSE file that accompanied this code).
-'
-' You should have received a copy of the GNU Lesser General Public License
-' version 3 along with OpenOffice.org.  If not, see
-' <http://www.openoffice.org/license.html>
-' for a copy of the LGPLv3 License.
-'
-'/***********************************************************************
-'*
-'* owner : oliver.craemer@oracle.com
-'*
-'* short description : Resource Test - Edit Menu
-'*
-'************************************************************************
-'*
-' #1 tEditUndoRedo     
-' #1 tEditRepeat
-' #1 tEditCut
-' #1 tEditCopy
-' #1 tEditPaste
-' #1 tEditPasteSpecial
-' #1 tEditSelectAll
-' #1 tEditChanges
-' #1 tEditCompareDocuments
-' #1 tEditFindAndReplace
-' #1 tEditHeadersAndFooters
-'*
-'\***********************************************************************
-
-sub c_upd_editmenu1
-
-    Printlog Chr(13) + "--------- EDIT Menu Part I (c_upd_editmenu.inc) ---------"
-    
-    call tEditUndoRedo
-    call tEditRepeat
-    call tEditCut
-    call tEditCopy
-    call tEditPaste
-    call tEditPasteSpecial
-    call tEditSelectAll
-    call tEditChanges
-    call tEditCompareDocuments
-    call tEditFindAndReplace
-    call tEditHeadersAndFooters
-
-end sub
-
-'-----------------------------------------------------------
-
-testcase tEditUndoRedo
-'///<u><b>Edit - UndoRedo</b></u>
-    '/// Open new Spreadsheet document
-    printlog " Open new Spreadsheet document"
-    call hNewDocument
-    '/// Enter some text
-    printlog " Enter some text"
-    kontext "DocumentCalc"
-    DocumentCalc.Typekeys "Test<RETURN>"
-    '/// Edit - Undo
-    editUndo
-'    sleep(1)
-    if fCalcGetCellValue ("A1") = "" then
-        printlog "  - Undo is working"
-    else 
-        warnlog "Undo doesn't work"
-    end if
-    editRedo
-'    sleep(1)
-    if fCalcGetCellValue ("A1") = "Test" then
-        printlog "  - Redo is working"
-    else 
-        warnlog "Redo doesn't work"
-    end if
-    '/// Close document
-    printlog " Close document"
-    hCloseDocument
-    
-endcase
-
-'-----------------------------------------------------------
-
-testcase tEditRepeat
-'///<u><b>Edit - Repeat</b></u>
-    '/// Open new Spreadsheet document
-    printlog " Open new Spreadsheet document"
-    call hNewDocument
-    '/// Enter some text
-    printlog " Enter some text"
-    kontext "DocumentCalc"
-    DocumentCalc.Typekeys "Test<RETURN>"
-    '/// Click on cell A2
-    printlog " Click on cell A2"
-    call fCalcSelectCell ("A2")
-    '/// Repeat insertion via Edit - Repeat
-    printlog " Repeat insertion via Edit - Repeat"
-    EditRepeat
-    if fCalcGetCellValue ("A2") = "Test" then
-        printlog "  - Repeat is working"
-    else 
-        warnlog "Repeat doesn't work"
-    end if
-    '/// Close document
-    printlog " Close document"
-    hCloseDocument
-
-endcase
-
-'-----------------------------------------------------------
-
-testcase tEditCut
-'///<u><b>Edit - Cut</b></u>
-    '/// Open new Spreadsheet document
-    printlog " Open new Spreadsheet document"
-    call hNewDocument
-    '/// Enter some text
-    printlog " Enter some text"
-    kontext "DocumentCalc"
-    DocumentCalc.Typekeys "Cutted Text<RETURN>"
-    '/// Click on cell A1
-    printlog " Click on cell A1"
-    call fCalcSelectCell ("A1")
-    '/// Make sure that the clipboard is empty
-    printlog " Make sure that the clipboard is empty"
-    setclipboard = ""
-    '/// Cut cellcontent
-    printlog " Cut cellcontent" 
-    EditCut
-    if GetClipboardText = "Cutted Text" AND fCalcGetCellValue ("A1") = "" then
-        printlog "  - Cutting is working"
-    else
-        warnlog "Cutting does not work correctly"
-    end if
-    '/// Close document
-    printlog " Close document"
-    hCloseDocument
-
-endcase
-
-'-----------------------------------------------------------
-
-testcase tEditCopy
-'///<u><b>Edit - Copy</b></u>
-    '/// Open new Spreadsheet document
-    printlog " Open new Spreadsheet document"
-    call hNewDocument
-    '/// Enter some text
-    printlog " Enter some text"
-    kontext "DocumentCalc"
-    DocumentCalc.Typekeys "Copied Text<RETURN>"
-    '/// Click on cell A1
-    printlog " Click on cell A1"
-    call fCalcSelectCell ("A1")
-    '/// Make sure that the clipboard is empty
-    printlog " Make sure that the clipboard is empty"
-    setclipboard = ""
-    '/// Copy cellcontent
-    printlog " Copy cellcontent" 
-    EditCopy
-    if GetClipboardText = "Copied Text" AND fCalcGetCellValue ("A1") = "Copied Text" then
-        printlog "  - Copying is working"
-    else
-        warnlog "Copying does not work correctly"
-    end if
-    '/// Close document
-    printlog " Close document"
-    hCloseDocument
-
-endcase
-
-'-----------------------------------------------------------
-
-testcase tEditPaste
-'///<u><b>Edit - Paste</b></u>
-    '/// Open new Spreadsheet document
-    printlog " Open new Spreadsheet document"
-    call hNewDocument
-    '/// Goto cell A1
-    printlog " Gotocell A1"
-    call fCalcSelectCell ("A1")
-    '/// Fill clipboard with text
-    printlog " Fill clipboard with text"
-    setclipboard ("Pasted Text")
-    '/// Paste clipboard
-    printlog " Paste clipboard"
-    EditPaste
-    Kontext "TextImport"
-    if TextImport.Exists(2) then
-        call DialogTest (TextImport)
-        '/// Close text import dialog with OK.
-        printlog " Close text import dialog with OK."
-        TextImport.OK
-    end if        
-    '/// Make sure that the clipboard is empty
-    printlog " Make sure that the clipboard is empty"
-    setclipboard = ""
-    if fCalcGetCellValue ("A1") = "Pasted Text" then
-        printlog "  - Pasting is working"
-    else
-        warnlog "Pasting does not work correctly"
-    end if
-    '/// Check overwrite messagebox via copy cellcontent and paste into itself
-    printlog " Check overwrite messagebox via copy cellcontent and paste into itself"
-    EditCopy
-    EditPaste
-    try
-       Kontext "CellWarning"
-       Dialogtest (CellWarning)
-       '///<li>Cancel overwrite warning</li>///
-       CellWarning.No
-       printlog "  - Paste overwrite MsgBox tested"
-    catch
-       warnlog "MsgBox for overwrite warning doesn't exist"
-    endcatch
-    '/// Close document
-    printlog " Close document"
-    hCloseDocument
-
-endcase
-
-'-----------------------------------------------------------
-
-testcase tEditPasteSpecial
-'///<u><b>Edit - PasteSpecial</b></u>
-    '/// Open new Spreadsheet document
-    printlog " Open new Spreadsheet document"
-    call hNewDocument
-    '/// Enter some text
-    printlog " Enter some text"
-    kontext "DocumentCalc"
-    DocumentCalc.Typekeys "Pasted Text<RETURN>"
-    '/// Click on cell A1
-    printlog " Click on cell A1"
-    call fCalcSelectCell ("A1")
-    '/// Copy cellcontent
-    printlog " Copy cellcontent" 
-    EditCopy
-    '/// Paste Special the clipboard
-    printlog " Paste Special the clipboard"
-    EditPasteSpecialCalc
-    kontext "InhalteEinfuegenCalc"
-    call DialogTest (InhalteEinfuegenCalc)
-    '/// Cancel PasteSpecial-Dialog
-    printlog " Cancel PasteSpecial-Dialog"
-    InhalteEinfuegenCalc.Cancel
-    if fCalcGetCellValue ("A1") = "Pasted Text" then
-        printlog "  - PasteSpecial of spreadsheet content is working"
-    else
-        warnlog "PasteSpecial of spreadsheet content does not work correctly"
-    end if
-    '/// Insert a picture from file Insert - Graphic - From File
-    printlog " Insert a picture from file Insert - Graphic - From File"
-    InsertGraphicsFromFile
-    Kontext "GrafikEinfuegenDlg"
-    '/// Choose gTesttoolpath + global\input\graf_inp\baer.tif
-    printlog " Choose gTesttoolpath + global\input\graf_inp\baer.tif"
-    Dateiname.Settext (convertpath( gTesttoolpath + "global\input\graf_inp\baer.tif" ))
-    '/// Click OK
-    printlog " Click OK"
-    Oeffnen.Click
-    kontext "DocumentCalc"
-    '/// Cut the still selected graphic via Edit - Cut
-    printlog " Cut the still selected graphic via Edit - Cut"
-    EditCut
-    '/// PasteSpecial the cutted graphic
-    printlog " PasteSpecial the cutted graphic"
-    EditPasteSpecialCalc
-    kontext "InhaltEinfuegen"
-    call DialogTest (InhaltEinfuegen)
-    printlog "  - PasteSpecial of other content is working"
-    '/// Cancel the PasteSpecial dialog
-    printlog " Cancel the PasteSpecial dialog"
-    InhaltEinfuegen.Cancel
-    '/// Close document
-    printlog " Close document"
-    hCloseDocument
-
-endcase
-
-'-----------------------------------------------------------
-
-testcase tEditSelectAll
-'///<u><b>Edit - SelectAll</b></u>
-    '/// Open new Spreadsheet document
-    printlog " Open new Spreadsheet document"
-    call hNewDocument
-    '/// Select whole sheet via Edit - Select All
-    printlog " Select whole sheet via Edit - Select All"
-    EditSelectAll
-    '/// Check in areafield if the whole sheet is selected (A1:AMJ1048576)
-    printlog " Check in areafield if the whole sheet is selected (A1:AMJ1048576)"
-    kontext "RechenleisteCalc"
-    if Bereich.getSelText = "A1:AMJ1048576" then
-        printlog "  - SelectAll is working"
-    else
-       warnlog "SelectAll is not working as expected. The area is " & Bereich.getSelText & " instead of A1:AMJ1048576"
-    end if
-    '/// Close document
-    printlog " Close document"
-    hCloseDocument
-
-endcase
-
-'-----------------------------------------------------------
-
-testcase tEditChanges
-'///<u><b>Edit - Changes</b></u>
-
-    '/// Open new Spreadsheet document
-    printlog " Open new Spreadsheet document"
-    call hNewDocument
-    
-    '/// Activate recording mode via Edit Changes Record
-    printlog " Activate recording mode via Edit Changes Record"
-    EditChangesRecordCalc
-    'If changerecording is initially activated (which should not be) a messagebox appears
-    kontext
-    if active.exists then
-        active.Yes
-        warnlog "Unexpected state of the office - Redlining was initialy enabled"
-        EditChangesRecordCalc
-    end if
-    
-    '/// Enter some text
-    printlog " Enter some text"
-    kontext "DocumentCalc"
-    DocumentCalc.Typekeys "Recorded Text1<RETURN>Recorded Text2<RETURN>"
-    
-    '/// Open Protect changes dialog via Edit - Changes - Protect
-    printlog " Open Protect changes dialog via Edit - Changes - Protect"
-    EditChangesProtectTraceCalc
-    Kontext ("PasswortEingeben")
-    call Dialogtest (PasswortEingeben)
-    '/// Cancel Passwort dialog
-    printlog " Cancel Passwort dialog"
-    PasswortEingeben.Cancel
-    
-    '/// Open Edit - Changes - Show dialog
-    printlog " Open Edit - Changes - Show dialog"
-    kontext "DocumentCalc"
-    EditChangesShowCalc
-    kontext "ShowChanges"
-    call Dialogtest (ShowChanges)
-    '/// Check all checkboxes
-    printlog " Check all checkboxes"
-    ShowChangesCalc.Check
-    ShowDate.Check
-    ShowAuthor.Check
-    ShowRange.Check
-    ShowComment.Check
-    ShowAcceptedChanges.Check
-    ShowRejectedChanges.Check
-    '/// Click on range chooser button
-    printlog " Click on range chooser button"
-    ShrinkRange.Click
-    '/// Enter range A1:B3
-    printlog " Enter range A1:B3"
-    RangeCalc.SetText "A1:B3"
-    '/// Click on enlarge button
-    printlog " Click on enlarge button"
-    Shrink.Click
-    '/// Click on 'Clock' button
-    printlog " Click on 'Clock' button"
-    Now1.Click
-    '/// Choose 'Between' in date listbox
-    printlog " Choose 'Between' in date listbox"
-    DateList.Select 5
-    '/// Now the second datefields are enabled, click on second 'Clock' button
-    printlog " Now the second datefields are enabled, click on second 'Clock' button"
-    Now2.Click
-    '/// Choose first author from list
-    printlog " Choose first author from list"
-    AuthorList.Select 1
-    '/// Enter comment 'Test' in comment field
-    printlog " Enter comment 'Test' in comment field"
-    EditComment.SetText "Test"
-    '/// Close Edit - Changes - Show dialog with cancel
-    printlog " Close Edit - Changes - Show dialog with cancel"
-    ShowChanges.Cancel
-    
-    '/// Open dialog Edit - Changes - Accept or Discard changes
-    printlog " Open dialog Edit - Changes - Accept or Discard changes"
-    EditChangesAcceptOrDiscardCalc
-    Kontext "AenderungenAnzeigen"
-    '/// Choose tabpage List
-    printlog " Choose tabpage List"
-    Kontext "TabControl"
-    TabControl.setpage TabListe
-    Kontext "TabListe"
-    Call Dialogtest (TabListe)
-    '/// Choose tabpage Filter
-    printlog " Choose tabpage Filter"
-    Kontext "TabControl"
-    TabControl.setpage TabFilter
-    Call Dialogtest (TabFilter)
-    '/// Close dialog Edit - Changes - Accept or Discard changes
-    printlog " Close dialog Edit - Changes - Accept or Discard changes"
-    Kontext "AenderungenAnzeigen"
-    AenderungenAnzeigen.close
-    
-    '/// Select cell A1
-    printlog " Select cell A1"
-    call fCalcSelectRange ("A1")
-    '/// Open Comments dialog via Edit - Changes - Comments
-    printlog " Open Comments dialog via Edit - Changes - Comments"
-    EditChangesCommentsCalc
-    Kontext "Kommentar"
-    call Dialogtest( Kommentar )
-    '/// Click on arrow-right-button
-    printlog " Click on arrow-right-button"
-    Vor.Click
-    '/// Click on arrow-left-button
-    printlog " Click on arrow-left-button"
-    Zurueck.Click
-    '/// Enter comment "Test"
-    printlog " Enter comment 'Test'"
-    KommentarText.SetText "Test"
-    '/// Close Comments dialog with cancel
-    printlog " Close Comments dialog with cancel"
-    Kommentar.cancel
-    
-    '/// Choose Edit - Changes - Merge Documents
-    printlog " Choose Edit - Changes - Merge Documents"
-    EditChangesMergeDocument
-    '/// Enter filename 'gtesttoolpath +spreadsheet\required\input\merge.ods'
-    printlog " Enter filename 'gtesttoolpath +spreadsheet\required\input\merge.ods'"
-    kontext "OeffnenDlg"
-    Dateiname.settext convertpath(gtesttoolpath +"spreadsheet\required\input\merge.ods")
-    '/// Click Open
-    printlog " Click Open"
-    Oeffnen.Click
-    '/// Now the redlining dialog should appear. Close dialog with windowcloser
-    printlog " Now the redlining dialog should appear. Close dialog with windowcloser"
-    kontext "AenderungenAnzeigen"
-    AenderungenAnzeigen.close
-    
-    '/// Close document
-    printlog " Close document"
-    hCloseDocument
-
-endcase
-
-'-----------------------------------------------------------
-
-testcase tEditCompareDocuments
-'///<u><b>Edit - Compare Documents</b></u>
-    '/// Open new Spreadsheet document
-    printlog " Open new Spreadsheet document"
-    call hNewDocument
-    '/// Enter some text
-    printlog " Enter some text"
-    kontext "DocumentCalc"
-    DocumentCalc.Typekeys "Inserted Text<RETURN>"
-    '/// Choose Edit - Compare Documents
-    printlog " Choose Edit - Compare Documents"
-    EditCompareDocumentCalc
-    '/// Enter filename 'gtesttoolpath +spreadsheet\required\input\merge.ods'
-    printlog " Enter filename 'gtesttoolpath +spreadsheet\required\input\merge.ods'"
-    kontext "OeffnenDlg"
-    Dateiname.settext convertpath(gtesttoolpath +"spreadsheet\required\input\merge.ods")
-    '/// Click Open
-    printlog " Click Open"
-    Oeffnen.Click
-    '/// Now the redlining dialog should appear. Close dialog with windowcloser
-    printlog " Now the redlining dialog should appear. Close dialog with windowcloser"
-    kontext "AenderungenAnzeigen"
-    AenderungenAnzeigen.close
-    '/// Close document
-    printlog " Close document"
-    hCloseDocument
-
-endcase
-
-'-----------------------------------------------------------
-
-testcase tEditFindAndReplace
-'///<u><b>Edit - Find And Replace</b></u>
-
-    Dim bAsianLanguage as boolean
-    
-    '/// Open new Spreadsheet document
-    printlog " Open new Spreadsheet document"
-    call hNewDocument
-    '/// Enable 'Asian Language support' ON for getting all controls on dialog
-    printlog " Enable 'Asian Language support' ON for getting all controls on dialog"
-    bAsianLanguage = ActiveDeactivateAsianSupport(TRUE)
-    '/// Enter some text
-    printlog " Enter some text"
-    kontext "DocumentCalc"
-    DocumentCalc.Typekeys "Inserted Text<RETURN><UP>"
-    '/// Choose Edit - Find And Replace
-    printlog " Choose Edit - Find And Replace"
-    EditSearchAndReplace
-    kontext "FindAndReplace"
-    '/// Click 'More' button
-    printlog " Click 'More' button"
-    More.Click
-    call DialogTest ( FindAndReplace )
-    '/// By default all checkboxes have to be unchecked.
-    printlog " Uncheck all checkboxes (unchecked is also default)"
-    if not MatchCase.IsEnabled then    'SoundsLike disables MatchCase
-        SoundsLike.UnCheck
-    end if 
-    if MatchCase.IsEnabled then
-        MatchCase.UnCheck
-    end if
-    if WholeWordsOnly.IsEnabled then
-        WholeWordsOnly.UnCheck
-    end if
-    if CurrentSelectionOnly.IsEnabled then
-        CurrentSelectionOnly.UnCheck
-    end if
-    if Backwards.IsEnabled then
-        Backwards.UnCheck
-    end if
-    if RegularExpressions.IsEnabled then
-        RegularExpressions.UnCheck
-    end if
-    if SearchForStyles.IsEnabled then
-        SearchForStyles.UnCheck
-    end if
-    if SearchInAllSheets.IsEnabled then
-        SearchInAllSheets.UnCheck
-    end if
-    '/// Check SimilaritySearch
-    printlog " Check SimilaritySearch"
-    if SimilaritySearch.IsEnabled then
-        SimilaritySearch.Check
-    end if
-    '/// Click ...button for similaritysearch
-    printlog " Click ...button for similaritysearch"
-    If SimilaritySearchFor.IsEnabled then 
-        SimilaritySearchFor.Click
-    else
-        SimilaritySearch.Check
-        SimilaritySearchFor.Click
-    end if
-    kontext "Aehnlichkeitssuche"
-    call DialogTest ( Aehnlichkeitssuche )
-    '/// Use every control on opened similaritydialog
-    printlog " Use every control on opened similaritydialog"
-    ZeichenTauschen.More
-    ZeichenHinzufuegen.Less
-    ZeichenEntfernen.More
-    Kombinieren.Click
-    '/// Close similaritydialog with cancel
-    printlog " Close similaritydialog with cancel"
-    Aehnlichkeitssuche.Cancel
-    kontext "FindAndReplace"
-    SimilaritySearch.UnCheck
-    If MatchFullHalfWidth.Isvisible then
-        MatchFullHalfWidth.Uncheck
-    end if
-    If SoundsLike.Isvisible then
-        SoundsLike.Check
-        SoundsLikeOptions.Click
-        kontext "TabJapaneseFind"
-        call DialogTest ( TabJapaneseFind )
-        TabJapaneseFind.Cancel
-        kontext "FindAndReplace"
-        SoundsLike.UnCheck
-    end if    
-    Rows.Check
-    SearchIn.Select 1
-    '/// Close Dialog
-    printlog " Close Dialog"
-    FindAndReplace.Close
-    '/// Set the 'Asian Language support' to default
-    printlog " Set the 'Asian Language support' to default"
-    if bAsianLanguage = FALSE then
-        Call ActiveDeactivateAsianSupport(FALSE)
-    end if
-    '/// Close document
-    printlog " Close document"
-    hCloseDocument
-
-endcase
-
-'-----------------------------------------------------------
-
-testcase tEditHeadersAndFooters
-'///<u><b>Edit - Headers and Footers</b></u>
-
-    Dim bAsianLanguage as boolean
-    Dim bCTLlanguage as boolean
-
-    '/// Open new Spreadsheet document
-    printlog " Open new Spreadsheet document"
-    call hNewDocument
-    '/// Enable 'Asian and CTL Language support' ON for getting all controls on dialog
-    printlog " Enable 'Asian and CTL Language support' ON for getting all controls on dialog"
-    bAsianLanguage = ActiveDeactivateAsianSupport(TRUE)
-    bCTLLanguage = ActiveDeactivateCTLSupport(TRUE)
-    '/// Disable 'Same content left/right' on Format-Page to get all resources
-    printlog " Disable 'Same content left/right' on Format-Page to get all resources"
-    '/// - Open Format-Page dialog
-    FormatPageCalc
-    '/// - Switch to tabpage Header
-    Kontext
-    Active.SetPage TabKopfzeile
-    Kontext
-    if Active.Exists(2) then
-        if Active.GetRT = 304 then
-            Printlog Active.GetText
-            Active.Yes
-            sleep(1)
-        end if
-    end if
-    '/// - Uncheck 'Same content left/right'
-    Kontext "TabKopfzeile"
-    InhaltLinksRechtsGleich.uncheck
-    '/// - Switch to tabpage Footer
-    Kontext
-    Active.SetPage TabFusszeile
-    Kontext "TabFussZeile"
-    '/// - Uncheck 'Same content left/right'
-    InhaltLinksRechtsGleich.uncheck
-    '/// - Close Dialog with OK
-    TabFusszeile.Ok
-    
-    '/// Open Edit - Headers & Footers
-    printlog " Open Edit - Headers & Footers"
-    EditHeadersAndFooters
-    '/// Choose tabpage Header (right)
-    printlog " Choose tabpage Header (right)"
-    Kontext
-    Active.SetPage TabKopfzeileCalc
-    Kontext "TabKopfzeileCalc"
-    Call DialogTest ( TabKopfzeileCalc )
-    '/// Choose in Listbox Header the first entry (none)
-    printlog " Choose in Listbox Header the first entry (none)"
-    PredefinedHeader.Select 1
-    '/// Enter '1' in left area field
-    printlog " Enter '1' in left area field"
-    LinkerBereich.typeKeys ("1")
-    '/// Enter '1' in middle area field
-    printlog " Enter '1' in middlearea field"
-    MittlererBereich.typeKeys ("1")
-    '/// Enter '1' in right area field
-    printlog " Enter '1' in right area field"
-    RechterBereich.typeKeys ("1")
-    '/// Open fontdialog by clicking on Text Attributes button
-    printlog " Open fontdialog by clicking on Text Attributes button"
-    Textattribute.Click
-    '/// Now the Dialog for Text Attributes opened. Choose tabpage Font
-    printlog " Now the Dialog for Text Attributes opened. Choose tabpage Font"
-    Kontext
-    Active.setpage TabFont
-    Kontext "TabFont"
-    Call DialogTest ( TabFont)
-    '/// Count number of western fonts (amount is dependent from system but should be more than one)
-    printlog " Count number of western fonts (amount is dependent from system but should be more than one)"
-    if Fontwest.GetItemCount < 1 then warnlog "The Fontwest listbox is empty"
-    '/// Count number of western Typeface (amount is dependent from font but should be more than one)
-    printlog " Count number of western Typeface (amount is dependent from font but should be more than one)"
-    if StyleWest.GetItemCount < 1 then warnlog "The Stylewest listbox is empty"
-    '/// Count number of western Size (amount is dependent from font but should be more than one)
-    printlog " Count number of western Size (amount is dependent from font but should be more than one)"
-    if SizeWest.GetItemCount < 1 then warnlog "The Sizewest listbox is empty"
-    '/// Count number of western Language (amount is dependent from system but should be more than one)
-    printlog " Count number of western Language (amount is dependent from system but should be more than one)"
-    if LanguageWest.GetItemCount < 1 then warnlog "The Languagewest listbox is empty"
-    '/// Count number of asian fonts (amount is dependent from system but should be more than one)
-    printlog " Count number of asian fonts (amount is dependent from system but should be more than one)"
-    if FontEast.GetItemCount < 1 then warnlog "The Fonteast listbox is empty"
-    '/// Count number of asian Typeface (amount is dependent from font but should be more than one)
-    printlog " Count number of asian Typeface (amount is dependent from font but should be more than one)"
-    if StyleEast.GetItemCount < 1 then warnlog "The Styleeast listbox is empty"
-    '/// Count number of asian Size (amount is dependent from font but should be more than one)
-    printlog " Count number of asian Size (amount is dependent from font but should be more than one)"
-    if SizeEast.GetItemCount < 1 then warnlog "The SizeEast listbox is empty"
-    '/// Count number of asian Language (amount is dependent from system but should be more than one)
-    printlog " Count number of asian Language (amount is dependent from system but should be more than one)"
-    if LanguageEast.GetItemCount < 1 then warnlog "The Languageeast listbox is empty"
-    '/// Count number of CTL fonts (amount is dependent from system but should be more than one)
-    printlog " Count number of CTL fonts (amount is dependent from system but should be more than one)"
-    if FontCTL.GetItemCount < 1 then warnlog "The FontCTL listbox is empty"
-    '/// Count number of CTL Typeface (amount is dependent from font but should be more than one)
-    printlog " Count number of CTL Typeface (amount is dependent from font but should be more than one)"
-    if StyleCTL.GetItemCount < 1 then warnlog "The StyleCTL listbox is empty"
-    '/// Count number of CTL Size (amount is dependent from font but should be more than one)
-    printlog " Count number of CTL Size (amount is dependent from font but should be more than one)"
-    if SizeCTL.GetItemCount < 1 then warnlog "The SizeCTL listbox is empty"
-    '/// Count number of CTL Language (amount is dependent from system but should be more than one)
-    printlog " Count number of CTL Language (amount is dependent from system but should be more than one)"
-    if LanguageCTL.GetItemCount < 1 then warnlog "The LanguageCTL listbox is empty"
-    '/// Choose tabpage Font Effects
-    printlog " Choose tabpage Font Effects"
-    Kontext
-    Active.setpage TabFontEffects
-    Kontext "TabFontEffects"
-    Call DialogTest ( TabFontEffects)
-    '/// Choose second entry for Underlining
-    printlog " Choose second entry for Underlining"
-    Underline.Select 2
-    '/// Count number of Color
-    printlog " Count number of Color"
-    if Color.GetItemCount < 1 then warnlog "The Color listbox is empty"
-    '/// Choose second entry for Strikethrough
-    printlog " Choose second entry for Strikethrough"
-    StrikeThrough.Select 2
-    '/// Check Individual words
-    printlog " Check Individual words"
-    IndividualWords.Check
-    '/// Check Outline
-    printlog " Check Outline"
-    Outline.Check
-    '/// Check Shadow
-    printlog " Check Shadow"
-    Shadow.Check
-    '/// Choose second entry for Relief
-    printlog " Choose second entry for Relief"
-    Relief.Select 2
-    '/// Verify that Outline and Shadow are now disabled
-    printlog " Verify that Outline and Shadow are now disabled"
-    if Outline.IsEnabled then warnlog "Outline is enabled but should be disabled"
-    if Shadow.IsEnabled then warnlog "Shadow is enabled but should be disabled"
-    '/// Choose second entry for Emphasis mark
-    printlog " Choose second entry for Emphasis mark"
-    Emphasis.Select 2
-    '/// Verify that Position is enabled
-    printlog " Verify that Position is enabled"
-    if not Position.IsEnabled then warnlog "Position is disabled but should be enabled"
-    '/// Count number of Font colors
-    printlog " Count number of Font colors"
-    if FontColor.GetItemCount < 1 then warnlog "The FontColor listbox is empty"
-    '/// Choose tabpage Font position
-    printlog " Choose tabpage Font position"
-    Kontext
-    Active.setpage TabFontPosition
-    Kontext "TabFontPosition"
-    Call DialogTest ( TabFontPosition)
-    '/// Check Superscript
-    printlog " Check Superscript"
-    SuperScript.Check
-    '/// Check that Relative Font Size is enabled
-    printlog " Check that Relative Font Size is enabled"
-    if not RelativeFontSize.IsEnabled then warnlog "The RelativeFontSize is disabled but should be enabled"
-    '/// Uncheck Automatic
-    printlog " Uncheck Automatic"
-    Automatic.UnCheck
-    '/// Raise Raise/Lower by 1
-    printlog " Raise Raise/Lower by 1"
-    RaiseLower.More
-    '/// Check Normal
-    printlog " Check Normal"
-    Normal.Check
-    '/// Verify that Relative font size is disabled
-    printlog " Verify that Relative font size is disabled"
-    if RelativeFontSize.IsEnabled then warnlog "RelativeFontSize is enabled but should be disabled"
-    '/// Verify that Raise is disabled
-    printlog " Verify that Raise is disabled"
-    if RaiseLower.IsEnabled then warnlog "Raise is enabled but should be disabled"
-    '/// Verify that Automatic is disabled
-    printlog " Verify that Automatic is disabled"
-    if Automatic.IsEnabled then warnlog "Automatic is enabled but should be disabled"
-    '/// Check Subscript
-    printlog " Check Subscript"
-    Subscript.Check
-    '/// Verify that Relative font size is enabled
-    printlog " Verify that Relative font size is enabled"
-    if not RelativeFontSize.IsEnabled then warnlog "The RelativeFontSize is disabled but should be enabled"
-    '/// Check Automatic
-    printlog " Check Automatic"
-    Automatic.Check
-    '/// Verify that Raise is disabled
-    printlog " Verify that Raise is disabled"
-    if RaiseLower.IsEnabled then warnlog "Raise is enabled but should be disabled"
-    '/// Lower Scale width by 1
-    printlog " Lower Scale width by 1"
-    ScaleWith.Less
-    '/// Change Spacing to second entry
-    printlog " Change Spacing to second entry"
-    Spacing.Select 2
-    '/// Verify that SpacingBy is enabled
-    printlog " Verify that SpacingBy is enabled"
-    if not SpacingBy.IsEnabled then warnlog "The SpacingBy is disabled but should be enabled"
-    '/// Change Spacing to first entry
-    printlog " Change Spacing to first entry"
-    Spacing.Select 1
-    '/// Verify that SpacingBy is disabled
-    printlog " Verify that SpacingBy is disabled"
-    if SpacingBy.IsEnabled then warnlog "SpacingBy is enabled but should be disabled"
-    '/// Check Pair kerning
-    printlog " Check Pair kerning"
-    PairKerning.Check
-    '/// Close Text Attributes dialog with Cancel
-    printlog " Close Text Attributes dialog with Cancel"
-    TabFontPosition.Cancel
-
-    Kontext "TabKopfzeileCalc"
-    '/// Open menu on File button
-    printlog " Open menu on File button"
-'Control not usable by testtool (#i85788')
-'    Datei.Open ()
-    '/// Choose second entry
-    printlog " Choose second entry"
-'    MenuSelect 2
-    '/// Close menu
-    printlog " Close menu"
-'    MenuSelect (0)
-    '/// Click button for Sheetname
-    printlog " Click button for Sheetname"
-    Tabelle.Click
-    '/// Click button for Page
-    printlog " Click button for Page"
-    Seitennummer.Click
-    '/// Click button for Pages
-    printlog " Click button for Pages"
-    Seitenanzahl.Click
-    '/// Click button for Date
-    printlog " Click button for Date"
-    Datum.Click
-    '/// Click button for Time
-    printlog " Click button for Time"
-    Zeit.Click
-
-    '/// Choose tabpage Header (left)
-    printlog " Choose tabpage Header (left)"
-    Kontext
-    Active.SetPage TabKopfzeileCalcLinks
-    Kontext "TabKopfzeileCalcLinks"
-    Call DialogTest ( TabKopfzeileCalcLinks )
-    '/// Choose in Listbox Header the first entry (none)
-    printlog " Choose in Listbox Header the first entry (none)"
-    PredefinedHeaderLeft.Select 1    
-    '/// Enter 'Test' in left area field
-    printlog " Enter 'Test' in left area field"
-    LinkerBereich.typeKeys ("Test")
-    '/// Enter 'Test' in middle area field
-    printlog " Enter 'Test' in middlearea field"
-    MittlererBereich.typeKeys ("Test")
-    '/// Enter 'Test' in right area field
-    printlog " Enter 'Test' in right area field"
-    RechterBereich.typeKeys ("Test")
-    '/// Open fontdialog by clicking on Text Attributes button
-    printlog " Open fontdialog by clicking on Text Attributes button"
-    TextAttribute.Click
-    '/// Now the Dialog for Text Attributes opened. Choose tabpage Font
-    printlog " Now the Dialog for Text Attributes opened. Choose tabpage Font"
-    Kontext
-    Active.setpage TabFont
-    Kontext "TabFont"
-    '/// Close fontdialog with Cancel
-    printlog " Close fontdialog with Cancel"
-    TabFont.Cancel
-    Kontext "TabKopfzeileCalcLinks"
-    '/// Open menu on File button
-    printlog " Open menu on File button"
-'Control not usable by testtool (#i85788')
-'    Datei.Open ()
-    '/// Choose second entry
-    printlog " Choose second entry"
-'    MenuSelect 2
-    '/// Close menu
-    printlog " Close menu"
-'    MenuSelect (0)
-    '/// Click button for Sheetname
-    printlog " Click button for Sheetname"
-    Tabelle.Click
-    '/// Click button for Page
-    printlog " Click button for Page"
-    Seitennummer.Click
-    '/// Click button for Pages
-    printlog " Click button for Pages"
-    Seitenanzahl.click
-    '/// Click button for Date
-    printlog " Click button for Date"
-    Datum.Click
-    '/// Click button for Time
-    printlog " Click button for Time"
-    Zeit.Click
-    
-    '/// Choose tabpage Footer (right)
-    printlog " Choose tabpage Footer (right)"
-    Kontext
-    Active.SetPage TabFusszeileCalc
-    Kontext "TabFusszeileCalc"
-    Call DialogTest ( TabFusszeileCalc )
-    '/// Choose in Listbox Footer the first entry (none)
-    printlog " Choose in Listbox Footer the first entry (none)"
-    PredefinedFooter.Select 1    
-    '/// Enter 'Test' in left area field
-    printlog " Enter 'Test' in left area field"
-    LinkerBereich.typeKeys ("Test")
-    '/// Enter 'Test' in middle area field
-    printlog " Enter 'Test' in middlearea field"
-    MittlererBereich.typeKeys ("Test")
-    '/// Enter 'Test' in right area field
-    printlog " Enter 'Test' in right area field"
-    RechterBereich.typeKeys ("Test")
-    '/// Open fontdialog by clicking on Text Attributes button
-    printlog " Open fontdialog by clicking on Text Attributes button"
-    TextAttribute.Click
-    '/// Now the Dialog for Text Attributes opened. Choose tabpage Font
-    printlog " Now the Dialog for Text Attributes opened. Choose tabpage Font"
-    Kontext
-    Active.setpage TabFont
-    Kontext "TabFont"
-    '/// Close fontdialog with Cancel
-    printlog " Close fontdialog with Cancel"
-    TabFont.Cancel
-    Kontext "TabFusszeileCalc"
-    '/// Open menu on File button
-    printlog " Open menu on File button"
-'Control not usable by testtool (#i85788')
-'    Datei.Open ()
-    '/// Choose second entry
-    printlog " Choose second entry"
-'    MenuSelect 2
-    '/// Close menu
-    printlog " Close menu"
-'    MenuSelect (0)
-    '/// Click button for Sheetname
-    printlog " Click button for Sheetname"
-    Tabelle.Click
-    '/// Click button for Page
-    printlog " Click button for Page"
-    Seitennummer.Click
-    '/// Click button for Pages
-    printlog " Click button for Pages"
-    Seitenanzahl.click
-    '/// Click button for Date
-    printlog " Click button for Date"
-    Datum.Click
-    '/// Click button for Time
-    printlog " Click button for Time"
-    Zeit.Click
-
-    '/// Choose tabpage Footer (left)
-    printlog " Choose tabpage Footer (left)"
-    Kontext
-    Active.SetPage TabFusszeileCalcLinks
-    Kontext "TabFusszeileCalcLinks"
-    Call DialogTest ( TabFusszeileCalcLinks )
-    '/// Choose in Listbox Footer the first entry (none)
-    printlog " Choose in Listbox Footer the first entry (none)"
-    PredefinedFooterLeft.Select 1    
-    '/// Enter 'Test' in left area field
-    printlog " Enter 'Test' in left area field"
-    LinkerBereich.typeKeys ("Test")
-    '/// Enter 'Test' in middle area field
-    printlog " Enter 'Test' in middlearea field"
-    MittlererBereich.typeKeys ("Test")
-    '/// Enter 'Test' in right area field
-    printlog " Enter 'Test' in right area field"
-    RechterBereich.typeKeys ("Test")
-    '/// Open fontdialog by clicking on Text Attributes button
-    printlog " Open fontdialog by clicking on Text Attributes button"
-    TextAttribute.Click
-    '/// Now the Dialog for Text Attributes opened. Choose tabpage Font
-    printlog " Now the Dialog for Text Attributes opened. Choose tabpage Font"
-    Kontext
-    Active.setpage TabFont
-    Kontext "TabFont"
-    '/// Close fontdialog with Cancel
-    printlog " Close fontdialog with Cancel"
-    TabFont.Cancel
-    Kontext "TabFusszeileCalcLinks"
-    '/// Open menu on File button
-    printlog " Open menu on File button"
-'Control not usable by testtool (#i85788')
-'    Datei.Open ()
-    '/// Choose second entry
-    printlog " Choose second entry"
-'    MenuSelect 2
-    '/// Close menu
-    printlog " Close menu"
-'    MenuSelect (0)
-    '/// Click button for Sheetname
-    printlog " Click button for Sheetname"
-    Tabelle.Click
-    '/// Click button for Page
-    printlog " Click button for Page"
-    Seitennummer.Click
-    '/// Click button for Pages
-    printlog " Click button for Pages"
-    Seitenanzahl.click
-    '/// Click button for Date
-    printlog " Click button for Date"
-    Datum.Click
-    '/// Click button for Time
-    printlog " Click button for Time"
-    Zeit.Click
-    
-    '/// Close Headers/Footers-dialog with cancel
-    printlog " Close Headers/Footers-dialog with cancel"
-    TabFusszeileCalcLinks.close
-    '/// Set the 'Asian and CTL Language support' to default
-    printlog " Set the 'Asian and CTL Language support' to default"
-    if bAsianLanguage = FALSE then
-        Call ActiveDeactivateAsianSupport(FALSE)
-    end if
-    if bCTLLanguage = FALSE then
-        Call ActiveDeactivateCTLSupport(FALSE)
-    end if
-     '/// Close document
-    printlog " Close document"
-    hCloseDocument
-    
-endcase
-
-'-----------------------------------------------------------
-
-
-
- 
diff --git a/testautomation/spreadsheet/required/includes/c_upd_editmenu2.inc b/testautomation/spreadsheet/required/includes/c_upd_editmenu2.inc
deleted file mode 100644
index a67502448d9a..000000000000
--- a/testautomation/spreadsheet/required/includes/c_upd_editmenu2.inc
+++ /dev/null
@@ -1,666 +0,0 @@
-'encoding UTF-8  Do not remove or change this line!
-'**************************************************************************
-' DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER.
-'
-' Copyright 2000, 2010 Oracle and/or its affiliates.
-'
-' OpenOffice.org - a multi-platform office productivity suite
-'
-' This file is part of OpenOffice.org.
-'
-' OpenOffice.org is free software: you can redistribute it and/or modify
-' it under the terms of the GNU Lesser General Public License version 3
-' only, as published by the Free Software Foundation.
-'
-' OpenOffice.org is distributed in the hope that it will be useful,
-' but WITHOUT ANY WARRANTY; without even the implied warranty of
-' MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
-' GNU Lesser General Public License version 3 for more details
-' (a copy is included in the LICENSE file that accompanied this code).
-'
-' You should have received a copy of the GNU Lesser General Public License
-' version 3 along with OpenOffice.org.  If not, see
-' <http://www.openoffice.org/license.html>
-' for a copy of the LGPLv3 License.
-'
-'/***********************************************************************
-'*
-'* owner : oliver.craemer@oracle.com
-'*
-'* short description : Resource Test - Edit Menu Part II
-'*
-'************************************************************************
-'*
-' #1 tEditFill
-' #1 tEditDeleteContent
-' #1 tEditDeleteCells
-' #1 tEditSheet
-' #1 tEditDeleteManualBreak
-' #1 tEditLinks
-' #1 tEditPlugIn
-' #1 tEditImageMap
-' #1 tEditObjectEdit
-'*
-'\***********************************************************************
-
-sub c_upd_editmenu2
-
-    Printlog Chr(13) + "--------- EDIT Menu Part II (c_upd_editmenu2.inc) ---------"
-    
-    call tEditFill
-    call tEditDeleteContent
-    call tEditDeleteCells
-    call tEditSheet
-    call tEditDeleteManualBreak
-    call tEditLinks
-    call tEditPlugIn
-    call tEditImageMap
-    call tEditObjectEdit
-
-end sub
-
-'-----------------------------------------------------------
-
-testcase tEditFill
-'///<u><b>Edit - Fill</b></u>
-
-    '/// Open new Spreadsheet document
-    printlog " Open new Spreadsheet document"
-    call hNewDocument
-    '/// Enter '1' in cell C5
-    printlog " Enter '1' in cell C5"
-    Kontext "DocumentCalc"
-    call fCalcSelectCell ("C5")
-    DocumentCalc.typekeys "1<Return>"
-    '/// Select cells C5:C10
-    printlog " Select cells C5:C10"
-    call fCalcSelectCell ("C5:C10")
-    '/// Fill selected area via 'Edit - Fill – Down'
-    printlog " Fill selected area via 'Edit - Fill – Down'"
-    EditFillDown
-    '/// Select cells C1:C5
-    printlog " Select cells C1:C5"
-    call fCalcSelectCell ("C1:C5")
-    '/// Fill selected area via 'Edit – Fill – Up'
-    printlog " Fill selected area via 'Edit – Fill – Up'"
-    EditFillUp
-    '/// Select cells A5:C5
-    printlog " Select cells A5:C5"
-    call fCalcSelectCell ("A5:C5")
-    '/// Fill selected area via 'Edit – Fill – Left'
-    printlog " Fill selected area via 'Edit – Fill – Left'"
-    EditFillLeft
-    '/// Select cells C5:F5
-    printlog " Select cells C5:F5"
-    call fCalcSelectCell ("C5:F5")
-    '/// Fill selected area via 'Edit – Fill – Right'
-    printlog " Fill selected area via 'Edit – Fill – Right'"
-    EditFillRight
-    '/// Select cell A1:F10
-    printlog " Select cell A1:F10"
-    call fCalcSelectCell ("A1:F10")
-    '/// Open fill-series-dialog via 'Edit – Fill – Series'
-    printlog " Open fill-series-dialog via 'Edit – Fill – Series'"
-    EditFillSeries
-    Kontext "ReiheFuellen"
-    DialogTest ( ReiheFuellen )
-    '/// Check Direction 'Right'
-    printlog " Check Direction 'Right'"
-    Rechts.Check
-    '/// Check Direction 'Up'
-    printlog " Check Direction 'Up'"
-    Oben.Check
-    '/// Check Direction 'Left'
-    printlog " Check Direction 'Left'"
-    Links.Check
-    '/// Check Direction 'Down'
-    printlog " Check Direction 'Down'"
-    Unten.Check
-    '/// Check Series Type 'Linear'
-    printlog " Check Series Type 'Linear'"
-    Arithmetisch.Check
-    '/// Check Series Type 'Growth'
-    printlog " Check Series Type 'Growth'"
-    Geometrisch.Check
-    '/// Check Series Type 'AutoFill'
-    printlog " Check Series Type 'AutoFill'"
-    AutoAusfuellen.Check
-    '/// Check Series Type 'Date'
-    printlog " Check Series Type 'Date'"
-    Datum.Check
-    '/// Check Time Unit 'Day'
-    printlog " Check Time Unit 'Day'"
-    Tag.Check
-    '/// Check Time Unit 'Weekday'
-    printlog " Check Time Unit 'Weekday'"
-    WochenTag.Check
-    '/// Check Time Unit 'Month'
-    printlog " Check Time Unit 'Month'"
-    Monat.Check
-    '/// Check Time Unit 'Year'
-    printlog " Check Time Unit 'Year'"
-    Jahr.Check
-    '/// Verify that 'Start Value' is disabled
-    printlog " Verify that 'Start Value' is disabled"
-    if StartWert.IsEnabled then warnlog "StartValue is enabled but should be disabled"
-    '/// Enter End value '10'
-    printlog " Enter End value '10'"
-    EndWert.SetText 10
-    '/// Enter Increment '2'
-    printlog " Enter Increment '2'"
-    Inkrement.SetText 2
-    '/// Close dialog via 'Cancel'
-    printlog " Close dialog via 'Cancel'"
-    ReiheFuellen.Cancel
-    '/// Select all sheets by context menu on sheettab
-    printlog " Select all sheets by context menu on sheettab"
-    AlleTabellenAuswaehlen
-    '/// Open 'Fill Sheets' dialog by 'Edit - Fill - Sheets'
-    printlog " Open 'Fill Sheets' dialog by 'Edit - Fill - Sheets'"
-    EditFillSheet
-    Kontext "TabellenFuellen"
-    Dialogtest ( TabellenFuellen )
-    '/// Uncheck 'Paste all'
-    printlog " Uncheck 'Paste all'"
-    AuswahlAllesEinfuegen.UnCheck
-    '/// Check 'Text'
-    printlog " Check 'Text'"
-    AuswahlZeichenketten.Check
-    '/// Check 'Numbers'
-    printlog " Check 'Numbers'"
-    AuswahlZahlen.Check
-    '/// Check 'Date & Time'
-    printlog " Check 'Date & Time'"
-    AuswahlDatumZeit.Check
-    '/// Check 'Formulas'
-    printlog " Check 'Formulas'"
-    AuswahlFormeln.Check
-    '/// Check 'Notes'
-    printlog " Check 'Notes'"
-    AuswahlNotizen.Check
-    '/// Check 'Formats'
-    printlog " Check 'Formats'"
-    AuswahlFormate.Check
-    '/// Check 'Skip empty cells'
-    printlog " Check 'Skip empty cells'"
-    LeerzeilenUeberspringen.Check
-    '/// Verify that 'Transpose' is disabled
-    printlog " Verify that 'Transpose' is disabled"
-    if Transponieren.IsEnabled then warnlog "Transpose is enabled but should be disabled"
-    '/// Check 'Link'
-    printlog " Check 'Link'"
-    Verknuepfen.Check
-    '/// Check 'None'
-    printlog " Check 'None'"
-    RechenopperationenKeine.Check
-    '/// Check 'Add'
-    printlog " Check 'Add'"
-    RechenopperationenAddieren.Check
-    '/// Check 'Subtract'
-    printlog " Check 'Subtract'"
-    RechenopperationenSubtrahieren.Check
-    '/// Check 'Multiply'
-    printlog " Check 'Multiply'"
-    RechenopperationenMultiplizieren.Check
-    '/// Check 'Divide'
-    printlog " Check 'Divide'"
-    RechenopperationenDividieren.Check
-    '/// Verify that 'Dont shift' is disabled
-    printlog " Verify that 'Dont shift' is disabled"
-    if NichtVerschieben.IsEnabled then warnlog "Transpose is enabled but should be disabled"
-    '/// Verify that 'Down' is disabled
-    printlog " Verify that 'Down' is disabled"
-    if NachUnten.IsEnabled then warnlog "Transpose is enabled but should be disabled"
-    '/// Verify that 'Right' is disabled
-    printlog " Verify that 'Right' is disabled"
-    if NachRechts.IsEnabled then warnlog "Transpose is enabled but should be disabled"
-    '/// Close 'Fill Sheets' dialog with 'Cancel'
-    printlog " Close 'Fill Sheets' dialog with 'Cancel'"
-    TabellenFuellen.Cancel
-    '/// Close document
-    printlog " Close document"
-    hCloseDocument
-
-endcase
-
-'-----------------------------------------------------------
-
-testcase tEditDeleteContent
-'///<u><b>Edit - Delete Content</b></u>
-
-    '/// Open new Spreadsheet document
-    printlog " Open new Spreadsheet document"
-    call hNewDocument
-    '/// Open 'Delete Content' dialog via 'Edit – Delete content'
-    printlog " Open 'Delete Content' dialog via 'Edit – Delete content'"
-    EditDeleteContents
-    Kontext "InhalteLoeschen"
-    DialogTest ( InhalteLoeschen )
-    '/// Check 'Delete All'
-    printlog " Check 'Delete All'"
-    Alles.Check
-    '/// Check that all other controls are now disabled
-    printlog " Check that all other controls are now disabled"
-    if Zeichenketten.IsEnabled then warnlog "Option is enabled but should be disabled"
-    '/// Uncheck 'Delete All'
-    printlog " Uncheck 'Delete All'"
-    Alles.UnCheck
-    '/// Check 'Text'
-    printlog " Check 'Text'"
-    Zeichenketten.Check
-    '/// Check 'Numbers'
-    printlog " Check 'Numbers'"
-    Zahlen.Check
-    '/// Check 'Date & Time'
-    printlog " Check 'Date & Time'"
-    DatumZeit.Check
-    '/// Check 'Formulas'
-    printlog " Check 'Formulas'"
-    Formeln.Check
-    '/// Check 'Notes'
-    printlog " Check 'Notes'"
-    Notizen.Check
-    '/// Check 'Formats'
-    printlog " Check 'Formats'"
-    Formate.Check
-    '/// Check 'Objects'
-    printlog " Check 'Objects'"
-    Objekte.Check
-    '/// Close dialog via 'Cancel'
-    printlog " Close dialog via 'Cancel'"
-    InhalteLoeschen.Cancel
-    '/// Close document
-    printlog " Close document"
-    Call hCloseDocument
-
-endcase
-
-'-----------------------------------------------------------
-
-testcase tEditDeleteCells
-'///<u><b>Edit - Delete Cells</b></u>
-
-    '/// Open new Spreadsheet document
-    printlog " Open new Spreadsheet document"
-    call hNewDocument
-    '/// Open 'Delete Cells' dialog via 'Edit – Delete Cells'
-    printlog " Open 'Delete Cells' dialog via 'Edit – Delete Cells'"
-    EditDeleteCells
-    Kontext "ZellenLoeschen"
-    DialogTest ( ZellenLoeschen )
-    '/// Check 'Shift cells up'
-    printlog " Check 'Shift cells up'"
-    Zellennachoben.Check
-    '/// Check 'Shift cells left'
-    printlog " Check 'Shift cells left'"
-    Zellennachlinks.Check  
-    '/// Check 'Delete entire row'
-    printlog " Check 'Delete entire row'"
-    GanzeZeilen.Check
-    '/// Check 'Delete entire column'
-    printlog " Check 'Delete entire column'"
-    GanzeSpalten.Check
-    '/// Close dialog via 'Cancel'
-    printlog " Close dialog via 'Cancel'"
-    ZellenLoeschen.Cancel
-    '/// Close document
-    printlog " Close document"
-    Call hCloseDocument
-
-endcase
-
-'-----------------------------------------------------------
-
-testcase tEditSheet
-'///<u><b>Edit - Sheet</b></u>
-
-    '/// Open new Spreadsheet document
-    printlog " Open new Spreadsheet document"
-    call hNewDocument
-    '/// Open 'Edit – Sheet – Move/Copy Sheet' dialog
-    printlog " Open 'Edit – Sheet – Move/Copy Sheet' dialog"
-    EditCopyMoveSheet
-    Kontext "TabelleVerschiebenKopieren"
-    DialogTest ( TabelleVerschiebenKopieren )
-    '/// Check that there are more than one entry in listbox 'To document'
-    printlog " Check that there are more than one entry in listbox 'To document'"
-    if InsDokument.GetItemCount < 1 then warnlog "The listbox is empty"
-    '/// Check that there are four entries in 'Insert before'
-    printlog " Check that there are four entries in 'Insert before'" 
-    if EinfuegenVor.GetItemCount < 1 then warnlog "The listbox is empty"
-    '/// Check 'Copy'
-    printlog " Check 'Copy'"
-    Kopieren.Check
-    '/// Close dialog via 'Cancel'
-    printlog " Close dialog via 'Cancel'"
-    TabelleVerschiebenKopieren.Cancel
-    '/// Open 'Edit – Sheet – Select' dialog
-    printlog " Open 'Edit – Sheet – Select' dialog"
-    EditSheetSelect
-    Kontext "SelectSheets"
-    DialogTest ( SelectSheets )
-    '/// Check that there are three entries in listbox
-    printlog " Check that there are three entries in listbox"
-    if not SheetSelectionBox.GetItemCount = 3 then warnlog "The amount of sheets is wrong, should be 3 but is" & SheetSelectionBox.GetItemCount
-    '/// Close dialog via 'Cancel'
-    printlog " Close dialog via 'Cancel'"
-    SelectSheets.Cancel
-    '/// Choose 'Edit – Sheet – Delete'
-    printlog " Choose 'Edit – Sheet – Delete'"
-    EditDeleteSheet
-    '/// Now a messagebox appears. Close messagebox with 'No'
-    printlog " Now a messagebox appears. Close messagebox with 'No'"
-    Kontext
-    if active.exists then
-       DialogTest ( Active )   
-       Active.No
-    else
-       warnlog "Edit::Sheet::Delete - no removal warning appeared!"
-    end if
-    '/// Close document
-    printlog " Close document"
-    Call hCloseDocument
-
-endcase
-
-'-----------------------------------------------------------
-
-testcase tEditDeleteManualBreak
-'///<u><b>Edit - Delete - Manual Break</b></u>
-
-    '/// Open new Spreadsheet document
-    printlog " Open new Spreadsheet document"
-    call hNewDocument
-    '/// Select cell H10
-    printlog " Select cell H10"
-    call fCalcSelectRange ("H10")
-    '/// Insert a manual rowbreak via 'Insert – Manual Break – Row Break'
-    printlog " Insert a manual rowbreak via 'Insert – Manual Break – Row Break'"
-    InsertManuelBreakRowBreak
-    '/// Insert a manual columnbreak via 'Insert – Manual Break – Column Break'
-    printlog " Insert a manual columnbreak via 'Insert – Manual Break – Column Break'"
-    InsertManuelBreakColumnBreak
-    '/// Delete manual rowbreak via 'Edit – Delete Manual Break – Row Break'
-    printlog " Delete manual rowbreak via 'Edit – Delete Manual Break – Row Break'"
-    EditRemoveManualBreakRowBreak
-    '/// Delete manual columnbreak via 'Edit – Delete Manual Break – Column Break'
-    printlog " Delete manual columnbreak via 'Edit – Delete Manual Break – Column Break'"
-    EditRemoveManualBreakColumnBreak
-    '/// Close document
-    printlog " Close document"
-    Call hCloseDocument
-
-endcase
-
-'-----------------------------------------------------------
-
-testcase tEditLinks
-'///<u><b>Edit - Links</b></u>
-    
-    '/// Open new Spreadsheet document
-    printlog " Open new Spreadsheet document"
-    Call hNewDocument
-    '/// Open Insert graphic dialog via 'Insert – Picture – From File'
-    printlog " Open Insert graphic dialog via 'Insert – Picture – From File'"
-    InsertGraphicsFromFile
-    '/// Set filename ' global/input/graf_inp/borabora.jpg'
-    printlog " Set filename ' global/input/graf_inp/borabora.jpg'"
-    Kontext "GrafikEinfuegenDlg"
-    Dateiname.SetText ConvertPath ( gTesttoolPath + "global\input\graf_inp\borabora.jpg" )
-    '/// Check 'Link'
-    printlog " Check 'Link'"
-    Link.Check
-    '/// Close dialog with 'OK'
-    printlog " Close dialog with 'OK'"
-    Oeffnen.Click
-    '/// Open 'Edit – Links' dialog
-    printlog " Open 'Edit – Links' dialog"
-    Kontext "DocumentCalc"
-    EditLinksCalc
-    Kontext "VerknuepfungenBearbeiten"
-    VerknuepfungenBearbeiten.Exists (2)
-    Call DialogTest ( VerknuepfungenBearbeiten )
-    '/// Click on 'Update' – button
-    printlog " Click on 'Update' – button"
-    Aktualisieren.Click
-    '/// Click on 'Modify...' - button
-    printlog " Click on 'Modify...' - button"
-    Aendern.Click
-    '/// Close 'Link graphics' – dialog with 'Cancel'
-    printlog " Close 'Link graphics' – dialog with 'Cancel'"
-    Kontext "GrafikEinfuegenDLG"
-    Call Dialogtest ( GrafikEinfuegenDLG )
-    GrafikEinfuegenDLG.Cancel
-    '/// Click on 'Break Link' – button
-    printlog " Click on 'Break Link' – button"
-    Kontext "VerknuepfungenBearbeiten"
-    loesen.Click
-    '/// Close messagebox with 'Yes'
-    printlog " Close messagebox with 'Yes'"
-    Kontext
-    If Active.Exists then
-        Active.Yes
-    else
-        Warnlog "No request by deleting the link"
-    end if
-    Kontext "VerknuepfungenBearbeiten"
-    '/// Close 'Edit Links' – dialog
-    printlog " Close 'Edit Links' – dialog"
-    VerknuepfungenBearbeiten.Close
-    '/// Close document
-    printlog " Close document"
-    call hCloseDocument
-    '/// Load testfile ' spreadsheet/required/input/linkclient.ods ' and allow update
-    printlog " Load testfile ' spreadsheet/required/input/linkclient.ods ' and allow update"
-    Call hFileOpen ( ConvertPath ( gTesttoolPath + "spreadsheet\required\input\linkclient.ods"))
-	printlog " Confirm Update Links dialog with YES"
-	Kontext
-	If Active.Exists then
-		Active.Yes
-	else
-		warnlog "No dialog for updating links exists"
-	end if
-    '/// Open 'Edit – Links' dialog
-    printlog " Open 'Edit – Links' dialog"
-    EditLinksCalc
-    Kontext "VerknuepfungenBearbeiten"
-    '/// Click on 'Update' – button
-    printlog " Click on 'Update' – button"
-    Aktualisieren.Click
-    '/// Click on 'Modify...' - button to open 'Modify Link' dialog
-    printlog " Click on 'Modify...' - button to open 'Modify Link' dialog"
-    Aendern.Click
-    Kontext "ModifyLink"
-    Call Dialogtest ( ModifyLink )
-    '/// Verify that the 'Application' editfield is available
-    printlog " Verify that the 'Application' editfield is available"
-    ModifyDDEApplication.GetText
-    '/// Verify that the 'File' editfield is available
-    printlog " Verify that the 'File' editfield is available"
-    ModifyDDEFile.GetText
-    '/// Verify that the 'Category' editfield is available
-    printlog " Verify that the 'Category' editfield is available"
-    ModifyDDECategory.GetText
-    '/// Close 'Modify Link' – dialog with 'Cancel'
-    printlog " Close 'Modify Link' – dialog with 'Cancel'"
-    ModifyLink.Cancel
-    Kontext "VerknuepfungenBearbeiten"
-    '/// Check that updateradiobuttons are enabled
-    printlog " Check that updateradiobuttons are enabled"
-    if not Automatisch.IsEnabled then
-        warnlog "Updateradiobutton is disabled but should be enabled"
-    end if
-    '/// Click on 'Break Link' – button
-    printlog " Click on 'Break Link' – button"
-    Loesen.Click
-    '/// Accept messagebox with 'Yes'
-    printlog " Accept messagebox with 'Yes'"
-    Kontext
-    If Active.Exists then
-        Active.Yes
-    end if
-    Kontext "VerknuepfungenBearbeiten"
-    '/// Check that updateradiobuttons are disabled
-    printlog " Check that updateradiobuttons are disabled"
-    if Manuell.IsEnabled then
-        warnlog "Updateradiobutton is enabled but should be disabled"
-    end if
-    '/// Close 'Edit Links' – dialog
-    printlog " Close 'Edit Links' – dialog"
-    VerknuepfungenBearbeiten.Close
-    '/// Close document
-    printlog " Close document"
-    call hCloseDocument
-
-endcase
-
-'-----------------------------------------------------------
-
-testcase tEditPlugIn
-'///<u><b>Edit - PlugIn</b></u>
-    
-    '/// Open new Spreadsheet document
-    printlog " Open new Spreadsheet document"
-    call hNewDocument
-    '/// Edit – PlugIn
-    printlog " Edit – PlugIn"
-    EditPlugIn
-    '/// Edit – PlugIn
-    printlog " Edit – PlugIn"
-    EditPlugIn
-    '/// Close document
-    printlog " Close document"
-    call hCloseDocument
-
-endcase
-
-'-----------------------------------------------------------
-
-testcase tEditImageMap
-'///<u><b>Edit - ImageMap</b></u>
-    
-    '/// Open new Spreadsheet document
-    printlog " Open new Spreadsheet document"
-    call hNewDocument
-    '/// Open Insert graphic dialog via 'Insert – Picture – From File'
-    printlog " Open Insert graphic dialog via 'Insert – Picture – From File'"
-    InsertGraphicsFromFile
-    '/// Set filename ' global/input/graf_inp/borabora.jpg'
-    printlog " Set filename ' global/input/graf_inp/borabora.jpg'"
-    Kontext "GrafikEinfuegenDlg"
-    Dateiname.SetText ConvertPath ( gTesttoolPath + "global\input\graf_inp\borabora.jpg" )
-    '/// Close dialog with 'OK'
-    printlog " Close dialog with 'OK'"
-    Oeffnen.Click
-    '/// Open ImageMap – dialog via 'Edit – ImageMap'
-    printlog " Open ImageMap – dialog via 'Edit – ImageMap'"
-    EditImageMap
-    Kontext "ImageMapEditor"
-    Call Dialogtest ( ImageMapEditor )
-    '/// Click on Open button
-    printlog " Click on Open button"
-    Oeffnen.Click
-    Kontext "GeneralFileDialog"
-    '/// Close 'Open'-dialog with Cancel
-    printlog " Close 'Open'-dialog with Cancel"
-    GeneralFileDialog.Cancel
-    Kontext "ImageMapEditor"
-    '/// Click on 'Save'-button
-    printlog " Click on 'Save'-button"
-    Speichern.Click
-    Kontext "SpeichernDlg"
-    '/// Close 'Save'-dialog with Cancel
-    printlog " Close 'Save'-dialog with Cancel"
-    SpeichernDlg.Cancel
-    Kontext "ImageMapEditor"
-    '/// Click on 'Rectangle'button and draw a rectangle by mouse
-    printlog " Click on 'Ellipse'button and draw an ellipse by mouse"
-    Ellipse.Click
-    Dokument.MouseDown 50,50
-    Dokument.MouseMove 50,50,10,10
-    Dokument.MouseUp 10,10
-    '/// Click on 'Active'-button
-    printlog " Click on 'Active'-button"
-    Aktiv.Click
-    '/// Click on 'Macro...'-button
-    printlog " Click on 'Macro...'-button"
-'    warnlog "#i102720# => crash, therefor this functionality is outcommented"
-    Makro.Click
-    Kontext "MakroZuweisen"
-    Call DialogTest ( MakroZuweisen )
-    '/// Close 'Assign Macro'-dialog with Cancel
-    printlog " Close 'Assign Macro'-dialog with Cancel"
-    MakroZuweisen.Cancel
-    Kontext "ImageMapEditor"
-    '/// Click on 'Properties'-button
-    printlog " Click on 'Properties'-button"
-    Eigenschaften.Click
-    Kontext "ImageMapHyperlink"
-    Call DialogTest ( ImageMapHyperlink )
-    '/// Verify that the 'URL' editfield is available
-    printlog " Verify that the 'URL' editfield is available"
-    URL.GetText
-    '/// Verify that the 'Alternativetext' editfield is available
-    printlog " Verify that the 'Alternativetext' editfield is available"
-    Alternativetext.GetText
-    '/// Verify that the 'Frame' listbox has items
-    printlog " Verify that the 'Frame' listbox has items"
-    Frame.GetItemCount
-    '/// Verify that the 'Description' editfield is available
-    printlog " Verify that the 'Description' editfield is available"
-    Description.GetText
-    '/// Close 'Properties'-dialog with 'Cancel'
-    printlog " Close 'Properties'-dialog with 'Cancel"
-    ImageMapHyperlink.Cancel
-    Kontext "ImageMapEditor"
-    '/// Click on 'UNDO'-button
-    printlog " Click on 'UNDO'-button"
-    Rueckgaengig.Click
-    '/// Close ImageMap with windowcloser
-    printlog " Close ImageMap with windowcloser"
-    ImageMapEditor.Close
-    '/// Click on 'No'-button on savemessagebox
-    printlog " Click on 'No'-button on savemessagebox"
-    Kontext
-    if active.exists then
-    Active.No
-    end if
-    '/// Close document
-    printlog " Close document"
-    call hCloseDocument
-
-endcase
-
-'-----------------------------------------------------------
-
-testcase tEditObjectEdit
-'///<u><b>Edit - Object - Edit</b></u>
-    
-    '/// Load testdocument 'spreadsheet/required/input/tEditObject.ods'
-    printlog " Load testdocument 'spreadsheet/required/input/tEditObject.ods'"
-    hFileOpenLocally( gTesttoolPath + "spreadsheet\required\input\tEditObject.ods" )
-    '/// Select OLE-object
-    printlog " Select OLE-object"
-    fselectFirstOLE
-    '/// Activate OLE-object by Edit – Object – Edit
-    printlog " Activate OLE-object by Edit – Object – Edit"
-    EditObjectEdit
-    '/// Deactivate OLE-object
-    printlog " Deactivate OLE-object"
-    Kontext "DocumentCalc"
-    DocumentCalc.TypeKeys "<ESCAPE>" , 2
-    '/// Select OLE-object
-    printlog " Select OLE-object"
-    fselectFirstOLE
-    '/// Open 'Save As' – dialog by Edit – Object – Save As
-    printlog " Open 'Save As' – dialog by Edit – Object – Save As"
-    EditObjectSaveCopyAsCalc
-    Kontext "SpeichernDlg"
-    '/// Close dialog with Cancel
-    printlog " Close dialog with Cancel"
-    SpeichernDlg.Cancel
-    '/// Close document
-    printlog " Close document"
-    call hCloseDocument
-
-endcase
diff --git a/testautomation/spreadsheet/required/includes/c_upd_filemenu.inc b/testautomation/spreadsheet/required/includes/c_upd_filemenu.inc
deleted file mode 100644
index 33c52111c384..000000000000
--- a/testautomation/spreadsheet/required/includes/c_upd_filemenu.inc
+++ /dev/null
@@ -1,749 +0,0 @@
-'encoding UTF-8  Do not remove or change this line!
-'**************************************************************************
-' DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER.
-'
-' Copyright 2000, 2010 Oracle and/or its affiliates.
-'
-' OpenOffice.org - a multi-platform office productivity suite
-'
-' This file is part of OpenOffice.org.
-'
-' OpenOffice.org is free software: you can redistribute it and/or modify
-' it under the terms of the GNU Lesser General Public License version 3
-' only, as published by the Free Software Foundation.
-'
-' OpenOffice.org is distributed in the hope that it will be useful,
-' but WITHOUT ANY WARRANTY; without even the implied warranty of
-' MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
-' GNU Lesser General Public License version 3 for more details
-' (a copy is included in the LICENSE file that accompanied this code).
-'
-' You should have received a copy of the GNU Lesser General Public License
-' version 3 along with OpenOffice.org.  If not, see
-' <http://www.openoffice.org/license.html>
-' for a copy of the LGPLv3 License.
-'
-'/***********************************************************************
-'*
-'* owner : oliver.craemer@oracle.com
-'*
-'* short description : Resource Test - File Menu
-'*
-'************************************************************************
-'*
-' #1 tFileNewSpreadsheet     
-' #1 tFileNewSpreadsheetFromTemplate
-' #1 tFileOpen 
-' #1 tFileOpenCSV
-' #1 tFileOpenDBF
-' #1 tFileOpenHTML
-' #1 tFileRecentDocuments
-' #1 tFileClose
-' #1 tFileSave
-' #1 tFileSaveAsCSV
-' #1 tFileSaveAsDBF
-' #1 tFileVersions
-' #1 tFilePagePreview
-'*
-'\***********************************************************************
-
-sub c_upd_filemenu
-
-    Printlog Chr(13) + "--------- FILE Menu (c_upd_filemenu.inc) ---------"
-    
-    Call tFileNewSpreadsheet
-    Call tFileNewSpreadsheetFromTemplate
-    Call tFileOpen
-    Call tFileOpenCSV
-    Call tFileOpenDBF
-    Call tFileOpenHTML
-    Call tFileRecentDocuments
-    Call tFileClose
-    Call tFileSave
-    Call tFileSaveAsCSV
-    Call tFileSaveAsDBF
-    Call tFileVersions
-    Call tFilePagePreview
-    Call g_printing()
-
-end sub
-
-'-----------------------------------------------------------
-
-testcase tFileNewSpreadsheet
-    
-    '/// Opening new spreadsheet document for getting defined starting environment
-    Printlog " Opening new spreadsheet document for getting defined starting environment"
-    Call hNewDocument
-    '/// Open new document via Menu FILE-NEW-SPREADSHEET
-    Printlog " Open new document via Menu FILE-NEW-SPREADSHEET"
-    Kontext "DocumentCalc"
-    DocumentCalc.UseMenu 'Selecting Menubar
-    hMenuSelectNr(1) 'Using first entry on Menubar (FILE)
-    hMenuSelectNr(1) 'Using first entry on menu (NEW)
-    hMenuSelectNr(2) 'Using second entry on menu (SPREADSHEET) 
-    Kontext "DocumentCalc"
-    Call DialogTest (DocumentCalc)
-    '/// Close document
-    Printlog " Close document"
-    Call hCloseDocument
-    '/// Close starting document
-    Printlog " Close starting document"
-    Call hCloseDocument
-
-endcase
-
-'-----------------------------------------------------------
-
-testcase tFileNewSpreadsheetFromTemplate
-
-    '/// Opening new spreadsheet document for getting defined starting environment
-    Printlog " Opening new spreadsheet document for getting defined starting environment"
-    Call hNewDocument
-    '/// Open new document via Menu FILE-NEW-TEMPLATES AND DOCUMENTS
-    Printlog " Open new document via Menu FILE-NEW-FROM TEMPLATES AND DOCUMENTS"
-    Kontext "DocumentCalc"
-    DocumentCalc.UseMenu 'Selecting Menubar
-    hMenuSelectNr(1) 'Using first entry on Menubar (FILE)
-    hMenuSelectNr(1) 'Using first entry on menu (NEW)
-    hMenuSelectNr(12) 'Using second entry on menu (TEMPLATES AND DOCUMENTS) 
-    Kontext "TemplateAndDocuments"
-    Call DialogTest (TemplateAndDocuments)
-    '/// Cancel dialog
-    Printlog " Cancel dialog"
-    TemplateAndDocuments.Cancel
-    '/// Opening TemplateAndDocuments-Dialog via slot FileNewFromTemplate
-    Printlog " Opening TemplateAndDocuments-Dialog via slot FileNewFromTemplate"
-    Kontext "DocumentCalc"
-    FileNewFromTemplate
-    Kontext "TemplateAndDocuments"
-    Call DialogTest (TemplateAndDocuments)
-    '/// Cancel dialog
-    Printlog " Cancel dialog"
-    TemplateAndDocuments.Cancel
-    '/// Close starting document
-    Printlog " Close starting document"
-    Call hCloseDocument
-
-endcase
-
-'-----------------------------------------------------------
-
-testcase tFileOpen
-
-    '/// Opening new spreadsheet document for getting defined starting environment
-    Printlog " Opening new spreadsheet document for getting defined starting environment"
-    Call hNewDocument
-    '/// Open File-Open-dialog
-    Printlog " Open File-Open-dialog"
-    FileOpen
-    Kontext "OeffnenDlg"
-    Call DialogTest ( OeffnenDlg )
-    '/// Click "Up one level"
-    Printlog " Click Up one level"
-    UebergeordneterOrdner.Click
-    '/// Click "Default directory"
-    Printlog " Click Default directory"
-    Standard.Click
-    '/// Click "New Folder"
-    Printlog " Click New Folder"
-    NeuerOrdner.Click
-    Kontext "NeuerOrdner"
-    Call DialogTest ( NeuerOrdner )
-    '/// Cancel New Folder
-    Printlog " Cancel New Folder"
-    NeuerOrdner.Cancel
-    Kontext "OeffnenDlg"
-    '/// Check "Read only"
-    Printlog " Check Read only"
-    NurLesen.check
-    '/// Close File-Open-dialog with Cancel
-    Printlog " Close File-Open-dialog with Cancel"
-    OeffnenDlg.Cancel
-    '/// Close starting document
-    Printlog " Close starting document"
-    Call hCloseDocument
-    
-endcase
-
-'-----------------------------------------------------------
-
-testcase tFileOpenCSV
-
-    dim sTestFile as string
-    
-    sTestFile = convertpath(gTesttoolPath & "spreadsheet/required/input/tFileOpen_CSV.csv"
-    Printlog " Opening new spreadsheet document for getting defined starting environment"
-    Call hNewDocument
-    Printlog " Open File-Open-dialog"
-    FileOpen
-    Kontext "OeffnenDlg"
-    Printlog " Enter filename  spreadsheet/required/input/tFileOpen_CSV.csv"
-    Dateiname.settext (sTestFile)
-    Printlog " Click on Open"
-    Oeffnen.Click
-    Printlog " Check existence of CSV import dialog"
-    Kontext "TextImport"
-    if Not TextImport.exists(2) then
-        'Verify if the file will be loaded in Writer instead
-        Kontext "ASCIIFilterOptionen"
-        if ASCIIFilterOptionen.exists(2) then
-            warnlog "Filterdetection for CSV is broken. Textfilter is used instead"
-            ASCIIFilterOptionen.Cancel
-            Call hCloseDocument
-            goto endsub
-        else
-            Kontext "DocumentWriter"
-            if DocumentWriter.exists(2) then
-                warnlog "CSV import has failed, file is loaded in Writer"
-                'Close Writer document
-                Call hCloseDocument
-                'Close starting document
-                Call hCloseDocument
-                goto endsub
-            else
-                Kontext
-                if Active.exists then 
-                    Active.no
-                    Call hCloseDocument
-                    goto endsub
-                end if
-            end if
-        end if
-    end if
-    Call Dialogtest (TextImport)
-    Kontext "TextImport"
-    Printlog " Use every control"
-    CharacterSet.GetItemCount
-    Language.GetItemCount
-    FromRow.More
-    FixedWidth.Check
-    Separated.Check
-    Tab.Check
-    Semicolon.Check
-    Comma.Check
-    SpaceCB.Check
-    Other.Check
-    OtherText.SetText "a"
-    MergeDelimiter.Check
-    TextDelimiter.GetItemCount
-    QuotedAsText.Check
-    DetectSpecialNumbers.Check
-    Printlog " Cancel Text Import dialog"
-    TextImport.cancel
-    Printlog " Open File-Open-dialog"
-    FileOpen
-    Kontext "OeffnenDlg"
-    Printlog " Enter filename  spreadsheet/required/input/tFileOpen_CSV.csv"
-    Dateiname.settext (sTestFile)
-    Printlog " Click on Open"
-    Oeffnen.Click
-    Kontext "TextImport"
-    TextImport.ok
-    sleep (2)
-    Printlog " - CSV import dialog is in function"
-    sleep (1)
-    Kontext "DocumentCalc"
-    printlog " Close document"
-    Call hCloseDocument
-        
-endcase
-
-'-----------------------------------------------------------
-
-testcase tFileOpenDBF
-
-    dim sTestFile as string
-    
-    sTestFile = convertpath(gTesttoolPath & "spreadsheet/required/input/tFileOpen_DBF.dbf"
-    '/// Opening new spreadsheet document for getting defined starting environment
-    Printlog " Opening new spreadsheet document for getting defined starting environment"
-    Call hNewDocument
-    '/// Open File-Open-dialog
-    Printlog " Open File-Open-dialog"
-    FileOpen
-    Kontext "OeffnenDlg"
-    '/// Enter filename  spreadsheet/required/input/tFileOpen_DBF.dbf
-    Printlog " Enter filename  spreadsheet/required/input/tFileOpen_DBF.dbf"
-    Dateiname.settext (sTestFile)
-    '/// Click on Open
-    Printlog " Click on Open"
-    Oeffnen.Click
-    '/// Check if there is no Text document opened
-    Printlog " Check if there is no Text document opened"
-    Kontext "DocumentWriter"
-    if DocumentWriter.exists(2) then
-        warnlog "Filter detection is broken. Text file opened in writer although DBF filter was selected."
-        Call hCloseDocument
-        '/// Close starting document
-        Printlog " Close starting document"
-        Call hCloseDocument
-        goto endsub
-    end if
-    '/// Check existence of import dialog
-    Printlog " Check existence of import dialog"
-    Kontext "ExportCalc"
-    Call Dialogtest (ExportCalc)
-    if ExportCalc.exists(2) then
-        ExportCalc.ok
-        Printlog " - Import dialog is in function"
-        Kontext "DocumentCalc"
-        Call hCloseDocument
-    else
-        warnlog "DBF Import failed"
-        '/// Close starting document
-        Printlog " Close starting document"
-        Call hCloseDocument
-    end if
-        
-endcase
-
-'-----------------------------------------------------------
-
-testcase tFileOpenHTML
-
-    Dim sTestFile as string
-    Dim sTestFilter1 as string
-    Dim sTestFilter2 as string
-
-    sTestFile = convertpath(gTesttoolPath & "spreadsheet/required/input/HTML_Doc_Numberformats_in_table.html"
-    sTestFilter1 = hGetUIFiltername ("HTML (StarCalc)")
-    sTestFilter2 = hGetUIFiltername ("calc_HTML_WebQuery")
-
-    Printlog " Opening new spreadsheet document for getting defined starting environment"
-    Call hNewDocument
-    Printlog " Open File-Open-dialog"
-    FileOpen
-    waitslot (5)
-    Kontext "OeffnenDlg"
-    Printlog " Enter filename  spreadsheet/required/input/HTML_Doc_Numberformats_in_table.html"
-    Dateiname.settext (sTestFile)
-    Printlog " Choose Calc HTML filter"
-    Call hSelectUIFilter (sTestFilter1)
-    Printlog " Click on Open"
-    Oeffnen.Click
-    Kontext "HTMLImportOptions"
-    Printlog " Use every control on dialog Import Options"
-    Custom.Check
-    CustomLanguage.GetItemCount
-    Automatic.Check
-    DetectSpecialNumbers.Check
-    HTMLImportOptions.OK
-    sleep (2)
-    Printlog " Close recent document"
-    Call hCloseDocument
-    Printlog " Retry with Calc Web Querry filter"
-    Printlog " Open File-Open-dialog"
-    FileOpen
-    waitslot (5)
-    Kontext "OeffnenDlg"
-    Printlog " Enter filename  spreadsheet/required/input/HTML_Doc_Numberformats_in_table.html"
-    Dateiname.settext (sTestFile)
-    Printlog " Choose Calc Web Query filter"
-    Call hSelectUIFilter (sTestFilter2)
-    Printlog " Click on Open"
-    Oeffnen.Click
-    Kontext "HTMLImportOptions"
-    Printlog " Use every control on dialog Import Options"
-    Custom.Check
-    CustomLanguage.GetItemCount
-    Automatic.Check
-    DetectSpecialNumbers.Check
-    HTMLImportOptions.OK
-    sleep (2)
-    Printlog " Close recent document"
-    Call hCloseDocument
-
-endcase
-
-'-----------------------------------------------------------
-
-testcase tFileRecentDocuments
-
-if gPlatform = "lin" then
-    warnlog "#110649# Due to bug this testcase is not available"
-    goto endsub
-end if
-    
-    dim sTestFile as string
-      
-    '/// Open new Spreadsheet document
-    Printlog " Open new Spreadsheet document"
-    Call hNewDocument
-    '/// Enter some text
-    Printlog " Enter some text"
-    Kontext "DocumentCalc"
-    DocumentCalc.Typekeys "The first doc!<RETURN>"
-
-    Printlog " Copy Test File spreadsheet/required/input/recentdocument.ods locally"
-    hFileOpenLocally( gTesttoolpath & "spreadsheet\required\input\recentdocument.ods" )
-    sTestFile = gLastWorkFile ' get the new file location
-
-    'app.FileCopy convertpath(gTesttoolpath & "spreadsheet\required\input\recentdocument.ods"),gOfficePath + ConvertPath("user/work/recentdocument.ods")
-    'Printlog " Load local copied testfile recentdocument.ods"
-    'sTestFile = convertpath(gOfficePath & "user/work/recentdocument.ods")
-    'Call hFileOpen(sTestFile)
-    '/// Close the document.
-    Printlog " Close the document."
-    '/// Now an item in <i>File / Recent Documents</i> should exist
-    Call hCloseDocument
-    '/// Reopen Document using the menu <i>File / Recent Documents</i>
-    Printlog " Reopen Document using the menu File / Recent Documents"
-    Kontext "DocumentCalc"
-    DocumentCalc.UseMenu
-    hMenuSelectNr(1)
-    hMenuSelectNr(3)
-    hMenuSelectNr(1)
-    '/// Check that cell A1 has value "Recent document"
-    Printlog " Check that cell A1 has value Recent document"    
-    Kontext "DocumentCalc"
-    if fCalcGetCellValue ("A1") = "Recent document" then
-        Printlog " - Loading most recent Document seems to work"
-    else
-        'Sometimes the recent doc is loaded in background (#i80533#)
-         if fCalcGetCellValue ("A1") = "The first doc!" then
-            QAErrorLog "Recent document is loaded in background (#i80533#)"
-            Kontext "DocumentCalc"
-            DocumentCalc.UseMenu 
-            hMenuSelectNr(8) 'Open Window menu
-            hMenuSelectNr(hMenuItemGetCount) 'Select last loaded document
-            'Check that cell A1 has value "Recent document"
-            Call fCalcCompareCellValue ("A1","Recent document") 
-        else
-            warnlog "Loading most recent Document seems to fail"
-        end if
-    end if
-    '/// Close recent document
-    Printlog " Close recent document"
-    Call hCloseDocument   
-    '/// Close starting document
-    Printlog " Close starting document"
-    Call hCloseDocument
-    Printlog " Delete local copy of the workfile"
-    hFileDelete( sTestFile )
-endcase
-
-'-----------------------------------------------------------
-
-testcase tFileClose
-
-    '/// Open new Spreadsheet document
-    Printlog " Open new Spreadsheet document"
-    Call hNewDocument
-    '/// Enter some text
-    Printlog " Enter some text"
-    Kontext "DocumentCalc"
-    DocumentCalc.Typekeys "Test <RETURN>"
-    '/// Close document via File / Close
-    Printlog " Close document via File / Close"
-    FileClose
-    '/// Close Messagebox via Cancel
-    Printlog " Close Messagebox via Cancel"
-    Kontext "Active"
-    Active.Cancel
-    Kontext "DocumentCalc"
-    FileClose
-    '/// Close Messagebox via Save
-    Printlog " Close Messagebox via Save"
-    Kontext "Active"
-    Active.Yes
-    '///+ Check if Save Dialog exists
-    Printlog " Check if Save Dialog exists"
-    Kontext "SpeichernDlg"
-    if SpeichernDlg.Exists then
-        SpeichernDlg.Cancel
-    else
-        Kontext "Active"
-        if Active.Exists then
-            Warnlog Active.Gettext
-            Active.Ok
-        else
-            Warnlog "Dialog to Save document isn't up!"
-        end if
-    end if
-    Kontext "DocumentCalc"
-    FileClose
-    '/// Close Messagebox via Discard
-    Printlog " Close Messagebox via Discard"
-    Kontext "Active"
-    Active.No
-
-endcase
-
-'-----------------------------------------------------------
-
-testcase tFileSave
-
-    '/// Opening new spreadsheet document
-    Printlog " Opening new spreadsheet document"
-    Call hNewDocument
-    '/// Enter some text
-    Printlog " Enter some text"
-    Kontext "DocumentCalc"
-    DocumentCalc.Typekeys "Test <RETURN>"
-    '///Open SAVE dialog via File-Save
-    Printlog "Open SAVE dialog via File-Save"
-    FileSave
-    Kontext "SpeichernDlg"
-    Call DialogTest (SpeichernDlg)
-    '/// Click "Up one level"
-    Printlog " Click Up one level"
-    UebergeordneterOrdner.Click
-    '/// Click "Default directory"
-    Printlog " Click Default directory"
-    Standard.Click
-    '/// Click "New Folder"
-    Printlog " Click New Folder"
-    NeuerOrdner.Click
-    Kontext "NeuerOrdner"
-    Call DialogTest ( NeuerOrdner )
-    '/// Cancel New Folder
-    Printlog " Cancel New Folder"
-    NeuerOrdner.Cancel
-    Kontext "SpeichernDlg"
-    '/// Enable save with passwort
-    Printlog " Enable save with passwort"
-    Passwort.Check
-    '/// Enter filename tFileSave
-    Printlog " Enter filename tFileSave"
-    Dateiname.settext "tFileSave"
-    '/// Click on SAVE button
-    Printlog " Click on SAVE button"
-    Speichern.Click
-    Kontext "PasswordFileSave"    
-    Call DialogTest (PasswordFileSave)
-    '/// Set password
-    Password.SetText "OpenSource"
-    '/// Now enter wrong confirmation
-    PasswordConfirm.SetText "CloseSource"
-    '/// Try to leave dialog with OK
-    PasswordFileSave.Ok    
-    '/// MsgBox warning for wrong password confirmation should be visible
-    Kontext
-    if Active.exists(4) then
-        if Active.GetRT = 304 then
-            '/// Confirm warning
-            Printlog " - Wrong passwort has been detected successfully."
-            Active.OK
-        end if
-    else
-        warnlog "There is no messagebox because of a wrong password. Aborting!"
-        Call hCloseDocument
-        goto endsub        
-    end if
-    Kontext "PasswordFileSave"
-    '/// Leave dialog with Cancel
-    PasswordFileSave.Cancel
-    Kontext "DocumentCalc"
-    '/// Open SAVE dialog via File-Save again
-    Printlog " Open SAVE dialog via File-Save again"
-    FileSave
-    Kontext "SpeichernDlg"
-    '/// Close dialog with Cancel
-    SpeichernDlg.Cancel
-    '/// Close document
-    Printlog " Close document"
-    Call hCloseDocument
-
-endcase
-
-'-----------------------------------------------------------
-
-testcase tFileSaveAsCSV
-
-    Dim UIFilter as string
-    Dim bStatus as boolean
-
-    Printlog " Open new Spreadsheet document"
-    Call hNewDocument
-    Printlog " Fill two cells (10, Test)"
-    Kontext "DocumentCalc"
-    DocumentCalc.Typekeys "10 <TAB> Test <RETURN>"
-    Printlog " Open 'SaveAs' dialog"
-    FileSaveAs
-    Kontext "SpeichernDlg"
-    Printlog " Enter filename 'csv-Test_update'"
-    DateiName.SetText "csv-Test_update"
-    Printlog " Choose file typ CSV"
-    UIFilter = hGetUIFiltername ( "Text - txt - csv (StarCalc)" )
-    bStatus = hSelectUIFilter ( UIFilter )
-    if ( not bStatus ) then
-        warnlog "Filter not found"
-        SpeichernDlg.Cancel
-        Call hCloseDocument
-        goto endsub
-    end if
-    Printlog " Click on Save button"
-    Speichern.click
-    Printlog " Commit overwrite warning if file already exists"
-    Kontext
-    if Active.exists(2) then
-        Active.Yes
-    end if
-    Printlog " Check alien file format warning"
-    Kontext "AlienWarning"
-    if AlienWarning.exists(2) then
-    Printlog "  Commit if exists"
-        AlienWarning.OK
-    else
-        warnlog "Alien file format warning is missing -> Check this out!"
-    end if
-    Printlog " Check existence of export encoding dialog"
-    Kontext "ExportCalc"
-    Call DialogTest (ExportCalc)
-    printlog " Verify that Quote All is disabled by default"
-    if QuoteAll.IsChecked then
-        warnlog " Option Quote All is checked but shouldn't"
-    end if
-    Printlog " Accept dialog by OK"
-    ExportCalc.OK
-    Kontext
-    if Active.exists(2) then
-        Printlog Active.GetText
-        Active.OK
-    else
-        warnlog " Messagebox that only the current sheet is saved is missing"
-    end if
-    Printlog " Close document"
-    Call hCloseDocument
-
-endcase
-
-'-----------------------------------------------------------
-
-testcase tFileSaveAsDBF
-
-    Dim UIFilter as string
-    Dim bStatus as boolean
-
-    Printlog " Open new Spreadsheet document"
-    Call hNewDocument
-    Printlog " Fill two cells (10, Test)"
-    Kontext "DocumentCalc"
-    DocumentCalc.Typekeys "10 <TAB> Test <RETURN>"
-    Printlog " Open 'SaveAs' dialog"
-    FileSaveAs
-    Kontext "SpeichernDlg"
-    Printlog " Enter filename 'dbf-Test_update'"
-    DateiName.SetText "dbf-Test_update"
-    Printlog " Choose file typ dBase"
-    UIFilter = hGetUIFiltername ( "dBase" )
-    bStatus = hSelectUIFilter ( UIFilter )
-    if ( not bStatus ) then
-        warnlog "Filter not found"
-        SpeichernDlg.Cancel
-        Call hCloseDocument
-        goto endsub
-    end if
-    Printlog " Click on Save button"
-    Speichern.click
-    Printlog " Commit overwrite warning if file already exists"
-    Kontext
-    if Active.exists(2) then
-        Active.Yes
-    end if
-    Printlog " Check alien file format warning"
-    Kontext "AlienWarning"
-    if AlienWarning.exists(2) then
-    Printlog "  Commit if exists"
-        AlienWarning.OK
-    else 
-        warnlog "Alien file format warning is missing -> Check this out!"
-    end if
-    Printlog " Check existence of export encoding dialog"
-    Kontext "ExportCalc"
-    Call DialogTest (ExportCalc)
-    Printlog " Accept dialog by OK"
-    ExportCalc.OK
-    Kontext
-    if Active.exists(2) then
-        printlog " "
-        warnlog "#i87325# - Unexpected messagebox"
-        Printlog Active.GetText
-        Printlog " "
-        Active.OK
-    end if
-    Printlog " Close document"
-    Call hCloseDocument 
-
-endcase
-
-'-----------------------------------------------------------
-
-testcase tFileVersions
-
-    '/// Open new Spreadsheet document
-    Printlog " Open new Spreadsheet document"
-    Call hNewDocument
-    '/// Enter some text
-    Printlog " Enter some text"
-    Kontext "DocumentCalc"
-    DocumentCalc.Typekeys "Test <RETURN>"
-    '/// Save document as "user/work/version.ods"
-    Printlog " Save document as 'user/work/version.ods'"
-    Call hFileSaveAsKill convertpath(gOfficePath & "user/work/version.ods")
-    '/// Open File-Versions
-    Printlog " Open File-Versions"
-    FileVersions
-    Kontext "Versionen"
-    Call DialogTest (Versionen)
-    '/// Click 'Save New Versions' button
-    Printlog " Click 'Save New Versions' button"
-    Speichern.click
-    Kontext "VersionskommentarEingeben"
-    '/// Check existence of comments dialog
-    Call DialogTest(VersionskommentarEingeben)
-    '/// Cancel comments dialog
-    Printlog " Cancel comments dialog"
-    VersionskommentarEingeben.Cancel
-    Kontext "Versionen"
-    '/// Close versions dialog
-    Printlog " Close versions dialog"
-    Versionen.close
-    '/// Close document
-    Printlog " Close document"    
-    Call hCloseDocument
-
-endcase
-
-'-----------------------------------------------------------
-
-testcase tFilePagePreview
-
-    '/// Open new Spreadsheet document
-    Printlog " Open new Spreadsheet document"
-    Call hNewDocument
-    '/// Enter some text
-    Printlog " Enter some text"
-    Kontext "DocumentCalc"
-    DocumentCalc.Typekeys "Test <RETURN>"
-    '/// Open File-PagePreview
-    Printlog " Open File-PagePreview"
-    FilePageView
-    Kontext "Previewbar"
-    Call DialogTest (Previewbar)
-'    Printlog " Switch to fullscreen mode"
-'    GanzerBildschirm.Click
-'    Kontext "FullScreenbar"
-'    printlog " Disable fullscreen mode"
-'    FullScreen.click
-'    Kontext "Previewbar"
-    printlog " Enable Margins"
-    try
-        Margins.Click
-	catch
-        warnlog "Pagemargins does not exists."
-    endcatch
-	printlog " Check availability of the scaling slider"
-	if Not ScalingFactor.IsEnabled then
-		warnlog "Scalingslider is not available"
-	end if
-    '/// Close page preview with button in toolbar
-    Printlog " Close page preview with button in toolbar"
-    Seitenansicht.Click
-    '/// Close document
-    Printlog " Close document"
-    Call hCloseDocument
-
-endcase
-
diff --git a/testautomation/spreadsheet/required/includes/c_upd_formatmenu.inc b/testautomation/spreadsheet/required/includes/c_upd_formatmenu.inc
deleted file mode 100644
index b7d43e8af80a..000000000000
--- a/testautomation/spreadsheet/required/includes/c_upd_formatmenu.inc
+++ /dev/null
@@ -1,947 +0,0 @@
-'encoding UTF-8  Do not remove or change this line!
-'**************************************************************************
-' DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER.
-'
-' Copyright 2000, 2010 Oracle and/or its affiliates.
-'
-' OpenOffice.org - a multi-platform office productivity suite
-'
-' This file is part of OpenOffice.org.
-'
-' OpenOffice.org is free software: you can redistribute it and/or modify
-' it under the terms of the GNU Lesser General Public License version 3
-' only, as published by the Free Software Foundation.
-'
-' OpenOffice.org is distributed in the hope that it will be useful,
-' but WITHOUT ANY WARRANTY; without even the implied warranty of
-' MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
-' GNU Lesser General Public License version 3 for more details
-' (a copy is included in the LICENSE file that accompanied this code).
-'
-' You should have received a copy of the GNU Lesser General Public License
-' version 3 along with OpenOffice.org.  If not, see
-' <http://www.openoffice.org/license.html>
-' for a copy of the LGPLv3 License.
-'
-'/***********************************************************************
-'*
-'* owner : oliver.craemer@oracle.com
-'*
-'* short description : Resource Test - Format Menu Part I
-'*
-'************************************************************************
-'*
-' #1 tFormatDefaultFormatting
-' #1 tFormatCells
-' #1 tFormatRow
-' #1 tFormatColumn
-' #1 tFormatSheet
-' #1 tFormatMergeCells
-' #1 tFormatPage
-'*
-'\***********************************************************************
-
-sub c_upd_formatmenu
-
-    Printlog Chr(13) + "--------- Format Menu Part I (c_upd_formatmenu.inc) ---------"
-    
-    call tFormatDefaultFormatting
-    call tFormatCells
-    call tFormatRow
-    call tFormatColumn
-    call tFormatSheet
-    call tFormatMergeCells
-    call tFormatPage
-
-end sub
-
-'-----------------------------------------------------------
-
-testcase tFormatDefaultFormatting
-'///<u><b>Format - Clear Direct Formatting</b></u>
-
-    '/// Opening new spreadsheet document for getting defined starting environment
-    printlog " Opening new spreadsheet document for getting defined starting environment"
-    call hNewDocument
-    '/// Select cell A1:D4
-    printlog " Select cell A1:D4"
-    call fCalcSelectRange ("A1:D4")
-    '/// Use 'Format – Clear Direct Formatting
-    printlog " Use 'Format – Clear Direct Formatting"
-    FormatDefaultCalc
-    '/// Close starting document
-    printlog " Close starting document"
-    call hCloseDocument
-
-endcase
-
-'-----------------------------------------------------------
-
-testcase tFormatCells
-'///<u><b>Format - Cells</b></u>
-
-    Dim bAsianLanguage as boolean
-    Dim bCTLlanguage as boolean
-
-    '/// Open new Spreadsheet document
-    printlog " Open new Spreadsheet document"
-    call hNewDocument
-    '/// Open 'Format Cells' – dialog by 'Format – Cells'
-    printlog " Open 'Format Cells' – dialog by 'Format – Cells'"
-    FormatCells
-    '/// Switch to tabpage 'Numbers'
-    printlog " Switch to tabpage 'Numbers'"
-    Kontext
-    active.SetPage TabZahlen
-    Kontext "TabZahlen"
-    Call DialogTest ( TabZahlen )
-    '/// Verify that there are 11 items in the 'Category' list
-    printlog " Verify that there are 11 items in the 'Category' list"
-    if Kategorie.GetItemCount <> 11 then
-        warnlog "The number of categories are" & Kategorie.GetItemCount & " instead of 11"
-    end if
-    '/// Choose category 'Currency' (5th in list)
-    printlog " Choose category 'Currency' (5th in list)"
-    Kategorie.Select 5
-    '/// Verify that the 'Format' now contains a language listbox
-    printlog " Verify that the 'Format' now contains a language listbox"
-    if FormatSprache.Exists then
-        '/// Verify that  the 'Language' listbox has items
-        printlog " Verify that  the 'Language' listbox has items"
-        if FormatSprache.GetItemCount < 1 then
-            warnlog "The language listbox is empty"
-        end if
-    else
-        warnlog "There is no languagelistbox"
-    end if
-    '/// Type 'Test' in editfield for 'Format code'
-    printlog " Type 'Test' in editfield for 'Format code'"
-    FormatCode.SetText "Test"
-    '/// Press 'Edit Comment' button
-    printlog " Press 'Edit Comment' button"
-    PBInfo.Click
-    '/// Enter 'My Format' in the comment field
-    printlog " Enter 'My Format' in the comment field"
-    Kommentar.SetText "My Format"
-    '/// Press 'Edit Comment' button again to finish the input
-    printlog " Press 'Edit Comment' button again to finish the input"
-    PBInfo.Click
-    '/// Press the 'Add' button
-    printlog " Press the 'Add' button"
-    PBHinzufuegen
-    '/// Press the 'Delete' button
-    printlog " Press the 'Delete' button"
-    PBEntfernen
-    '/// Close 'Format Cells' – dialog with 'Cancel'
-    printlog " Close 'Format Cells' – dialog with 'Cancel'"
-    TabZahlen.Close
-
-    '/// Enable language support for CJK and CTL (Tools-Options-Language Support)
-    printlog " Enable language support for CJK and CTL (Tools-Options-Language Support)"
-    bAsianLanguage = ActiveDeactivateAsianSupport(TRUE)
-    bCTLLanguage = ActiveDeactivateCTLSupport(TRUE)
-    '/// Open 'Format Cells' – dialog by 'Format – Cells'
-    printlog " Open 'Format Cells' – dialog by 'Format – Cells'"
-    FormatCells
-    '/// Switch to tabpage 'Font'
-    printlog " Switch to tabpage 'Font'"
-    Kontext
-    active.SetPage TabFont
-    Kontext "TabFont"
-    Call DialogTest ( TabFont,2 )
-    '/// Verify that the fontlistbox  for 'Western text font' has items
-    printlog " Verify that the fontlistbox  for 'Western text font' has items"
-    if FontWest.GetItemCount < 1 then
-        warnlog "The fontlistbox is empty"
-    end if
-    '/// Verify that the Typeface listbox  for 'Western text font' has items
-    printlog " Verify that the Typeface listbox  for 'Western text font' has items"
-    if StyleWest.GetItemCount < 1 then
-        warnlog "The stylelistbox is empty"
-    end if
-    '/// Verify that the Size listbox  for 'Western text font' has items
-    printlog " Verify that the Size listbox  for 'Western text font' has items"
-    if SizeWest.GetItemCount < 1 then
-        warnlog "The sizelistbox is empty"
-    end if
-    '/// Verify that the Languag  for 'Western text font'e listbox has items
-    printlog " Verify that the Languag  for 'Western text font'e listbox has items"
-    if LanguageWest.GetItemCount < 1 then
-        warnlog "The languagelistbox is empty"
-    end if
-    '/// Verify that the fontlistbox  for 'Asian text font' has items
-    printlog " Verify that the fontlistbox  for 'Asian text font' has items"
-    if FontEast.GetItemCount < 1 then
-        warnlog "The fontlistbox is empty"
-    end if
-    '/// Verify that the Typeface listbox  for 'Asian text font' has items
-    printlog " Verify that the Typeface listbox  for 'Asian text font' has items"
-    if StyleEast.GetItemCount < 1 then
-        warnlog "The stylelistbox is empty"
-    end if
-    '/// Verify that the Size listbox  for 'Asian text font' has items
-    printlog " Verify that the Size listbox  for 'Asian text font' has items"
-    if SizeEast.GetItemCount < 1 then
-        warnlog "The sizelistbox is empty"
-    end if
-    '/// Verify that the Language for 'Asian text font'e listbox has items
-    printlog " Verify that the Language for 'Asian text font'e listbox has items"
-    if LanguageEast.GetItemCount < 1 then
-        warnlog "The languagelistbox is empty"
-    end if
-    '/// Verify that the fontlistbox  for 'CTL font' has items
-    printlog " Verify that the fontlistbox  for 'CTL font' has items"
-    if FontCTL.GetItemCount < 1 then
-        warnlog "The fontlistbox is empty"
-    end if
-    '/// Verify that the Typeface listbox  for 'CTL font' has items
-    printlog " Verify that the Typeface listbox  for 'CTL font' has items"
-    if StyleCTL.GetItemCount < 1 then
-        warnlog "The stylelistbox is empty"
-    end if
-    '/// Verify that the Size listbox  for 'CTL font' has items
-    printlog " Verify that the Size listbox  for 'CTL font' has items"
-    if SizeCTL.GetItemCount < 1 then
-        warnlog "The sizelistbox is empty"
-    end if
-    '/// Verify that the Language listbox  for 'CTL font' has items
-    printlog " Verify that the Language listbox  for 'CTL font' has items"
-    if LanguageCTL.GetItemCount < 1 then
-        warnlog "The languagelistbox is empty"
-    end if
-
-    '/// Switch to tabpage 'Font Effects'
-    printlog " Switch to tabpage 'Font Effects'"
-    Kontext
-    active.SetPage TabFontEffects
-    Kontext "TabFontEffects"
-    Call DialogTest ( TabFontEffects )
-    '/// Choose second entry for 'Underlining'
-    printlog " Choose second entry for 'Underlining'"
-    Underline.Select 2
-    '/// Check that the 'Color' listbox is enabled
-    printlog " Check that the 'Color' listbox is enabled"
-    if not Color.IsEnabled then
-        warnlog "The colorbox is not enabled"
-    end if
-    '/// Choose second entry for 'Strikethrough'
-    printlog " Choose second entry for 'Strikethrough'"
-    StrikeThrough.Select 2
-    '/// Check that the 'IndividualWords' checkbox is enabled
-    printlog " Check that the 'IndividualWords' checkbox is enabled"
-    if not IndividualWords.IsEnabled then
-        warnlog "The checkbox for IndividualWords is not enabled"
-    end if
-    '/// Choose first entry for 'Relief' (without)
-    printlog " Choose first entry for 'Relief' (without)"
-    Relief.Select 1
-    '/// Check Outline
-    printlog " Check Outline"
-    if Outline.IsEnabled then
-        Outline.Check
-    end if
-    '/// Check Shadow
-    printlog " Check Shadow"
-    if Shadow.IsEnabled then
-        Shadow.Check
-    end if
-    '/// Choose second entry for 'Emphasis mark'
-    printlog " Choose second entry for 'Emphasis mark'"
-    Emphasis.Select 2
-    '/// Check that the 'Position' listbox is enabled
-    printlog " Check that the 'Position' listbox is enabled"
-    if not Position.IsEnabled then
-        warnlog "The Position listbox is disabled"
-    end if
-    '/// Check that the 'Font Color' listbox has items
-    printlog " Check that the 'Font Color' listbox has items"
-    if FontColor.GetItemCount < 1 then
-        warnlog "The fontcolorbox is empty"
-    end if
-
-    '/// Switch to tabpage 'Alignment'
-    printlog " Switch to tabpage 'Alignment'"
-    Kontext
-    active.SetPage TabAusrichtung
-    Kontext "TabAusrichtung"
-    Call DialogTest ( TabAusrichtung )
-    '/// Choose second entry for 'Horizontal'
-    printlog " Choose second entry for 'Horizontal'"
-    ListeHAusrichtung.Select 2
-    '/// Increase the 'Indent'
-    printlog " Increase the 'Indent'"
-    if Einzug.IsEnabled then
-        Einzug.More
-    end if
-    '/// Check that the 'Vertical' listbox has items
-    printlog " Check that the 'Vertical' listbox has items"
-    if ListeVAusrichtung.GetItemCount < 1 then
-        warnlog "The 'Vertical' listbox is empty"
-    end if
-    '/// Check 'Vertically stacked' checkbox
-    printlog " Check 'Vertically stacked' checkbox"
-    Gestapelt.Check
-    if not VertikaleAusrichtung.IsEnabled then
-        warnlog "The 'Asian layout mode is not enabled"
-    end if
-    '/// Uncheck 'Vertically stacked' checkbox
-    printlog " Uncheck 'Vertically stacked' checkbox"
-    Gestapelt.Uncheck
-    '/// Increse the 'Degrees'
-    printlog " Increse the 'Degrees'"
-    Grad.More
-    '/// Check 'Wrap text automatically' checkbox
-    printlog " Check 'Wrap text automatically' checkbox"
-    Zeilenumbruch.Check
-    '/// Verify that the 'Hyphenation active' checkbox is enabled
-    printlog " Verify that the 'Hyphenation active' checkbox is enabled"
-    if not Silbentrennung.IsEnabled then
-        warnlog "The hypenation checkbox is not enabled"
-    end if
-    '/// Uncheck 'Wrap text automatically' checkbox
-    printlog " Uncheck 'Wrap text automatically' checkbox"
-    Zeilenumbruch.UnCheck
-    '/// Verify that the 'Shrink to fit cell size' checkbox is enabled
-    printlog " Verify that the 'Shrink to fit cell size' checkbox is enabled"
-    if not ShrinkToFit.IsEnabled then
-        warnlog "The 'Shrink to fit cell size' checkbox is disabled"
-    end if
-    '/// Check that the 'Text direction' listbox has items
-    printlog " Check that the 'Text direction' listbox has items"
-    if SetAlignmentOptions.GetItemCount < 1 then
-        warnlog "The 'Text direction' listbox is empty"
-    end if
-
-    '/// Switch to tabpage 'Asian Typography'
-    printlog " Switch to tabpage 'Asian Typography'"
-    Kontext
-    active.SetPage TabAsianTypography
-    Kontext "TabAsianTypography"
-    Call DialogTest ( TabAsianTypography )
-    '/// Verify that the checkbox for 'Apply list...' exists
-    printlog " Verify that the checkbox for 'Apply list...' exists"
-    if not ApplyList.Exists then
-        warnlog "The checkbox does not exists"
-    end if
-    '/// Verify that the checkbox for 'Allow hanging punctation' exists
-    printlog " Verify that the checkbox for 'Allow hanging punctation' exists"
-    if not AllowHangingPunctuation.Exists then
-        warnlog "The checkbox does not exists"
-    end if
-    '/// Verify that the checkbox for 'Apply spacing...' exists
-    printlog " Verify that the checkbox for 'Apply spacing...' exists"
-    if not ApplySpacingBetween.Exists then
-        warnlog "The checkbox does not exists"
-    end if
-
-    '/// Switch to tabpage 'Borders'
-    printlog " Switch to tabpage 'Borders'"
-    Kontext
-    active.SetPage TabUmrandung
-    Kontext "TabUmrandung"
-    Call DialogTest ( TabUmrandung )
-    '/// Verify that the 'Line Style' listbox has items
-    printlog " Verify that the 'Line Style' listbox has items"
-    if Stil.GetItemCount < 1 then
-        warnlog "The 'Line Style' listbox is empty"
-    end if
-    '/// Verify that the 'Color' listbox has items
-    printlog " Verify that the 'Color' listbox has items"
-    if StilFarbe.GetItemCount < 1 then
-        warnlog "The 'Line Color' listbox is empty"
-    end if
-    '/// Increase 'left'
-    printlog " Increase 'left'"
-    Links.More
-    '/// Decrease 'Right'
-    printlog " Decrease 'Right'"
-    Rechts.Less
-    '/// Increase 'Top'
-    printlog " Increase 'Top'"
-    Oben.More
-    '/// Decrease 'Bottom'
-    printlog " Decrease 'Bottom'"
-    Unten.Less
-    '/// Check checkbox 'Synchronize'
-    printlog " Check checkbox 'Synchronize'"
-    Synchronisieren.Check
-    '/// Choose second position for 'Shadow Style'
-    printlog " Choose second position for 'Shadow Style'"
-    Position.TypeKeys "<Right>"
-    '/// Increase 'Distance'
-    printlog " Increase 'Distance'"
-    Groesse.More
-    '/// Verify that the 'Color' listbox has items
-    printlog " Verify that the 'Color' listbox has items"
-    if SchattenFarbe.GetItemCount < 1 then 
-       warnlog "The listbox for color is empty"
-    end if
-    
-    '/// Switch to tabpage 'Background'
-    printlog " Switch to tabpage 'Background'"
-    Kontext
-    active.SetPage TabHintergrund
-    Kontext "TabHintergrund"
-    Call DialogTest ( TabHintergrund )
-
-    '/// Switch to tabpage 'Cell Protection'
-    printlog " Switch to tabpage 'Cell Protection'"
-    Kontext
-    active.SetPage TabZellschutz
-    Kontext "TabZellschutz"
-    Call DialogTest ( TabZellschutz )
-    '/// Use every checkbox
-    printlog " Use every checkbox"
-    AllesAusblenden.Uncheck
-    Gesperrt.Check
-    FormelAusblenden.Uncheck
-    FuerAusdruckAusblenden.Uncheck
-    '/// Close 'Format Cells' – dialog with 'Cancel'
-    printlog " Close 'Format Cells' – dialog with 'Cancel'"
-    TabZellschutz.Close
-    '/// Set support for CJK and CTL back to default (Tools – Options – Language Support)
-    printlog " Set support for CJK and CTL back to default (Tools – Options – Language Support)"
-    if bAsianLanguage = FALSE then
-        Call ActiveDeactivateAsianSupport(FALSE)
-    end if
-    if bCTLLanguage = FALSE then
-        Call ActiveDeactivateCTLSupport(FALSE)
-    end if
-    '/// Close document
-    printlog " Close document"
-    call hCloseDocument
-
-endcase
-
-'-----------------------------------------------------------
-
-testcase tFormatRow
-'///<u><b>Format - Row</b></u>
-
-    '/// Open new Spreadsheet document
-    printlog " Open new Spreadsheet document"
-    call hNewDocument
-    '/// Open 'Row Height' – dialog by 'Format – Row – Height'
-    printlog " Open 'Row Height' – dialog by 'Format – Row – Height'"
-    FormatRowHeightCalc
-    Kontext "ZeilenHoehe"
-    DialogTest ( ZeilenHoehe 
-    '/// Increase 'Height'
-    printlog " Increase 'Height'"
-    Hoehe.More
-    '/// Close dialog with 'Cancel'
-    printlog " Close dialog with 'Cancel'"
-    ZeilenHoehe.Close
-    '/// Open 'Optimal Row Height' – dialog by 'Format – Row – Optimal Height'
-    printlog " Open 'Optimal Row Height' – dialog by 'Format – Row – Optimal Height'"
-    FormatRowOptimalHeightCalc
-    Kontext "ZeileOptimaleHoehe"
-    DialogTest ( ZeileOptimaleHoehe )
-    '/// Increase 'Height'
-    printlog " Increase 'Height'"
-    Extra.More
-    '/// Check 'Default Value'
-    printlog " Check 'Default Value'"
-    StandardWert.Check
-    '/// Close dialog with 'Cancel'
-    printlog " Close dialog with 'Cancel'"
-    ZeileOptimaleHoehe.Cancel
-    '/// Hide row with 'Format – Row – Hide'
-    printlog " Hide row with 'Format – Row – Hide'"
-    FormatRowHide
-    '/// Show row with 'Format – Row – Show'
-    printlog " Show row with 'Format – Row – Show'"
-    FormatRowShow
-    '/// Close document
-    printlog " Close document"
-    call hCloseDocument
-
-endcase
-
-'-----------------------------------------------------------
-
-testcase tFormatColumn
-'///<u><b>Format - Column</b></u>
-
-    '/// Open new Spreadsheet document
-    printlog " Open new Spreadsheet document"
-    call hNewDocument
-    '/// Open 'Column Width' – dialog by 'Format – Column – Width'
-    printlog " Open 'Column Width' – dialog by 'Format – Column – Width'"
-    FormatColumnWidthCalc
-    Kontext "SpaltenBreiteCalc"
-    DialogTest ( SpaltenBreiteCalc )
-    '/// Increase 'Width'
-    printlog " Increase 'Width'"
-    Breite.More
-    '/// Close dialog with 'Cancel'
-    printlog " Close dialog with 'Cancel'"
-    SpaltenBreiteCalc.Cancel
-    '/// Open 'Optimal Column Width' – dialog by 'Format – Column – Optimal Width'
-    printlog " Open 'Optimal Column Width' – dialog by 'Format – Column – Optimal Width'"
-    FormatColumnOptimalWidthCalc
-    Kontext "SpalteOptimaleBreite"
-    DialogTest ( SpalteOptimaleBreite )
-    '/// Increase 'Width'
-    printlog " Increase 'Width'"
-    Extra.More
-    '/// Check 'Default Value'
-    printlog " Check 'Default Value'"
-    StandardWert.Check
-    '/// Close dialog with 'Cancel'
-    printlog " Close dialog with 'Cancel'"
-    SpalteOptimaleBreite.Cancel
-    '/// Hide Column with 'Format – Column – Hide'
-    printlog " Hide Column with 'Format – Column – Hide'"
-    FormatColumnHide
-    '/// Show Column with 'Format – Column – Show'
-    printlog " Show Column with 'Format – Column – Show'"
-    FormatColumnShow
-    '/// Close document
-    printlog " Close document"
-    call hCloseDocument
-
-endcase
-
-'-----------------------------------------------------------
-
-testcase tFormatSheet
-'///<u><b>Format - Sheet</b></u>
-
-    Dim bAsianLanguage as boolean
-    Dim bCTLlanguage as boolean    
-
-    '/// Open new Spreadsheet document
-    printlog " Open new Spreadsheet document"
-    Call  hNewDocument
-    '/// Open 'Rename Sheet' – dialog by 'Format – Sheet'
-    printlog " Open 'Rename Sheet' – dialog by 'Format – Sheet'"
-    FormatSheetRename
-    Kontext "TabelleUmbenennen"
-    DialogTest ( TabelleUmbenennen )
-    '/// Close 'Rename Sheet' – dialog with 'Cancel'
-    printlog " Close 'Rename Sheet' – dialog with 'Cancel'"
-    TabelleUmbenennen.Cancel
-    '/// 'Hide' sheet by 'Format – Sheet – Hide'
-    printlog " 'Hide' sheet by 'Format – Sheet – Hide'"
-    FormatSheetHide
-    '/// Open 'Show Sheet' – dialog by 'Format – Sheet – Show'
-    printlog " Open 'Show Sheet' – dialog by 'Format – Sheet – Show'"
-    FormatSheetShow
-    Kontext "TabelleEinblenden"
-    DialogTest ( TabelleEinblenden )
-    '/// Close 'Show Sheet' – dialog with 'Cancel'
-    printlog " Close 'Show Sheet' – dialog with 'Cancel'"
-    TabelleEinblenden.Cancel
-    '/// Enable language support for CJK and CTL (Tools-Options-Language Support)
-    printlog " Enable language support for CJK and CTL (Tools-Options-Language Support)"
-    bAsianLanguage = ActiveDeactivateAsianSupport(TRUE)
-    bCTLLanguage = ActiveDeactivateCTLSupport(TRUE)
-    '/// Switch sheet layout to 'Right-To-Left' by 'Format – Sheet – Right-To-Left'
-    printlog " Switch sheet layout to 'Right-To-Left' by 'Format – Sheet – Right-To-Left'"
-    FormatSheetRightToLeft
-    '/// Switch sheet layout back
-    printlog " Switch sheet layout back"
-    FormatSheetRightToLeft
-    '/// Set support for CJK and CTL back to default (Tools – Options – Language Support)
-    printlog " Set support for CJK and CTL back to default (Tools – Options – Language Support)"
-    if bAsianLanguage = FALSE then
-        Call ActiveDeactivateAsianSupport(FALSE)
-    end if
-    if bCTLLanguage = FALSE then
-        Call ActiveDeactivateCTLSupport(FALSE)
-    end if
-    '/// Close document
-    printlog " Close document"
-    call hCloseDocument
-
-endcase
-
-'-----------------------------------------------------------
-
-testcase tFormatMergeCells
-'///<u><b>Format - Merge Cells</b></u>
-
-    '/// Open new Spreadsheet document
-    printlog " Open new Spreadsheet document"
-    call hNewDocument
-    '/// Select cells A1:D4
-    printlog " Select cells A1:D4"
-    call fCalcSelectRange ("A1:D4")
-    '/// 'Merge Cells' by 'Format – Merge Cells'
-    printlog " 'Merge Cells' by 'Format – Merge Cells'"
-    FormatMergeCells
-    '/// Close document
-    printlog " Close starting document"
-    call hCloseDocument
-
-endcase
-
-'-----------------------------------------------------------
-
-testcase tFormatPage
-'///<u><b>Format - Page</b></u>
-
-    Dim bAsianLanguage as boolean
-    Dim bCTLlanguage as boolean
-
-    '/// Open new Spreadsheet document
-    printlog " Open new Spreadsheet document"
-    Call  hNewDocument
-    '/// Enable language support for CJK and CTL (Tools-Options-Language Support)
-    printlog " Enable language support for CJK and CTL (Tools-Options-Language Support)"
-    bAsianLanguage = ActiveDeactivateAsianSupport(TRUE)
-    bCTLLanguage = ActiveDeactivateCTLSupport(TRUE)
-    '/// Open 'Page Style' – dialog with 'Format – Page'
-    printlog " Open 'Page Style' – dialog with 'Format – Page'"
-    FormatPageCalc
-    
-    '/// Switch to tabpage 'Organizer'
-    printlog " Switch to tabpage 'Organizer'"
-    Kontext
-    active.SetPage TabVerwalten
-    Kontext "TabVerwalten"
-    Call DialogTest ( TabVerwalten )
-    
-    '/// Switch to tabpage 'Page'
-    printlog " Switch to tabpage 'Page'"
-    Kontext
-    active.SetPage TabSeite
-    Kontext "TabSeite"
-    Call DialogTest ( TabSeite )
-    '/// Check that the 'Format' listbox has items
-    printlog " Check that the 'Format' listbox has items"
-    if Papierformat.GetItemCount < 1 then 
-        warnlog "No paperformats available"
-    end if
-    '/// Increase 'Width'
-    printlog " Increase 'Width'"
-    Breite.More
-    '/// Decrease 'Height'
-    printlog " Decrease 'Height'"
-    Hoehe.Less
-    '/// Check option 'Landscape'
-    printlog " Check option 'Landscape'"
-    Quer.Check
-    '/// Check that listbox 'Text direction' has items
-    printlog " Check that listbox 'Text direction' has 2 items"
-    if Textfluss.GetItemCount <> 2 then
-        warnlog "The text direction listbox is empty"
-    end if
-    '/// Check that listbox 'Paper tray' has items
-    printlog " Check that listbox 'Paper tray' has items"
-    if Schacht.GetItemCount < 1 then
-    warnlog "The paper tray listbox is empty"
-    end if
-    '/// Increase 'Margins Left'
-    printlog " Increase 'Margins Left'"
-    Links.More
-    '/// Decrease 'Margins Right'
-    printlog " Decrease 'Margins Right'"
-    Rechts.Less
-    '/// Increase 'Margins Top'
-    printlog " Increase 'Margins Top'"
-    Oben.More
-    '/// Decrease 'Margins Bottom'
-    printlog " Decrease 'Margins Bottom'"
-    Unten.Less
-    '/// Check that listbox 'Page layout' has items
-    printlog " Check that listbox 'Page layout' has items"
-    if Seitenlayout.GetItemCount < 1 then
-        warnlog "No pagelayouts available"
-    end if
-    '/// Check that listbox 'Format' has items
-    printlog " Check that listbox 'Format' has items"
-    if Numerierung.GetItemCount < 1 then
-        warnlog "No formats available"
-    end if
-    '/// Check 'Table alignment Horizontal'
-    printlog " Check 'Table alignment Horizontal'"
-    Horizontal.Check
-    '/// Check 'Table alignment Vertical'
-    printlog " Check 'Table alignment Vertical'"
-    Vertikal.Check
-    
-    '/// Switch to tabpage 'Borders'
-    printlog " Switch to tabpage 'Borders'"
-    Kontext
-    active.SetPage TabUmrandung
-    Kontext "TabUmrandung"
-    Call DialogTest ( TabUmrandung )
-    '/// Verify that listbox 'Style' has items
-    printlog " Verify that listbox 'Style' has items"
-    if Stil.GetItemCount < 1 then
-        warnlog "No styles available"
-    end if
-    '/// Verify that the listbox 'Color' has items
-    printlog " Verify that the listbox 'Color' has items"
-    if StilFarbe.GetItemCount < 1 then
-        warnlog "No style colors available"
-    end if
-    '/// Increase 'Spacing to contents Left'
-    printlog " Increase 'Spacing to contents Left'"
-    Links.More
-    '/// Decrease 'Spacing to contents Right'
-    printlog " Decrease 'Spacing to contents Right'"
-    Rechts.Less
-    '/// Increase 'Spacing to contents Top'
-    printlog " Increase 'Spacing to contents Top'"
-    Oben.More
-    '/// Decrease 'Spacing to contents Bottom'
-    printlog " Decrease 'Spacing to contents Bottom'"
-    Unten.Less
-    '/// Check 'Synchronize'
-    printlog " Check 'Synchronize'"
-    Synchronisieren.Check
-    '/// Choose second position for 'Shadow Style'
-    printlog " Choose second position for 'Shadow Style'"
-    Position.TypeKeys "<Right>"
-    '/// Increase 'Distance'
-    printlog " Increase 'Distance'"
-    Groesse.More
-    '/// Verify that the 'Color' listbox has items
-    printlog " Verify that the 'Color' listbox has items"
-    if SchattenFarbe.GetItemCount < 1 then 
-       warnlog "The listbox for color is empty"
-    end if
-
-    '/// Switch to tabpage 'Background'
-    printlog " Switch to tabpage 'Background'"
-    Kontext
-    active.SetPage TabHintergrund
-    Kontext "TabHintergrund"
-    '/// Choose first entry 'Color'
-    printlog " Choose first entry 'Color'"
-    Als.Select 1
-    Call DialogTest ( TabHintergrund,1 )
-    '/// Choose next color
-    printlog " Choose next color"
-    Hintergrundfarbe.TypeKeys "<Down>"
-    '/// Choose second entry 'Graphic'
-    printlog " Choose second entry 'Graphic'"
-    Als.Select 2
-    Call DialogTest ( TabHintergrund,2 )
-    '/// Click on 'Browse' – button
-    printlog " Click on 'Browse' – button"
-    Durchsuchen.Click
-    Kontext "GrafikEinfuegenDlg"
-    Call DialogTest (GrafikEinfuegenDlg)
-    '/// Enter filename 'global\input\graf_inp\'
-    printlog " Enter filename 'global\input\graf_inp\borabora.jpg'"
-    Dateiname.Settext convertpath(gTesttoolpath + "global\input\graf_inp\borabora.jpg")
-    '/// Verify that there are more than one filter available
-    printlog " Verify that there are more than one filter available"
-    if Dateityp.GetItemCount < 2 then
-        warnlog "The filterlist is empty"
-    end if
-    '/// Check 'Link' – option
-    printlog " Check 'Link' – option"
-    Link.Check
-    '/// Check 'Preview' - option
-    printlog " Check 'Preview' - option"
-    Preview.Check
-    '/// Close dialog with 'Cancel'
-    printlog " Close dialog with 'Cancel'"
-    GrafikEinfuegenDlg.Cancel
-    Kontext "TabHintergrund"
-    '/// Choose 'Type' 'Position'
-    printlog " Choose 'Type' 'Position'"
-    Position.Check
-    '/// Check 'Preview'
-    printlog " Check 'Preview'"
-    Vorschau.Check
-
-    '/// Switch to tabpage 'Header'
-    printlog " Switch to tabpage 'Header'"
-    Kontext
-    active.SetPage TabKopfzeile
-    Kontext "TabKopfzeile"
-    Call DialogTest ( TabKopfzeile )
-    '/// Check option 'Header on'
-    printlog " Check option 'Header on'"
-    KopfzeileMitAbstand.Check
-    '/// Check option 'Same content left/right'
-    printlog " Check option 'Same content left/right'"
-    InhaltLinksRechtsGleich.Check
-    '/// Increase 'Left margin'
-    printlog " Increase 'Left margin'"
-    LinkerRandKopfzeile.More
-    '/// Decrease 'Right margin'
-    printlog " Decrease 'Right margin'"
-    RechterRandKopfzeile.Less
-    '/// Increase 'Spacing'
-    printlog " Increase 'Spacing'"
-    Abstand.More
-    '/// Decrease 'Height'
-    printlog " Decrease 'Height'"
-    Hoehe.Less
-    '/// Check option 'AutoFit height'
-    printlog " Check option 'AutoFit height'"
-    Hoehedynamisch.Check
-    '/// Click 'More' – button
-    printlog " Click 'More' – button"
-    Zusaetze.Click
-    '/// Switch to tabpage 'Borders'
-    printlog " Switch to tabpage 'Borders'"
-    Kontext
-    Active.SetPage TabUmrandung
-    Kontext "TabUmrandung"
-    Call DialogTest (TabUmrandung)
-    '/// Switch to tabpage 'Background'
-    printlog " Switch to tabpage 'Background'"
-    Kontext
-    active.SetPage TabHintergrund
-    Kontext "TabHintergrund"
-    '/// Choose first entry 'Color'
-    printlog " Choose first entry 'Color'"
-    Als.Select 1
-    Call DialogTest ( TabHintergrund,1 )
-    '/// Choose second entry 'Graphic'
-    printlog " Choose second entry 'Graphic'"
-    Als.Select 2
-    Call DialogTest ( TabHintergrund,2 )
-    '/// Close dialog with 'Cancel'
-    printlog " Close dialog with 'Cancel'"
-    TabHintergrund.Cancel
-    '/// Press 'Edit' – button
-    printlog " Press 'Edit' – button"
-    Kontext "TabKopfzeile"
-    Bearbeiten.Click
-    Kontext "TabKopfzeileCalc"
-    Call DialogTest ( TabKopfzeileCalc )
-    '/// Close dialog with 'Cancel'
-    printlog " Close dialog with 'Cancel'"
-    TabKopfzeileCalc.Cancel
-    '/// Switch to tabpage 'Footer'
-    printlog " Switch to tabpage 'Footer'"
-    Kontext
-    active.SetPage TabFusszeile
-    Kontext "TabFusszeile"
-    DialogTest (TabFusszeile)
-    '/// Check option 'Footer on'
-    printlog " Check option 'Footer on'"
-    FusszeileMitAbstand.Check
-    '/// Check option 'Same content left/right'
-    printlog " Check option 'Same content left/right'"
-    InhaltLinksRechtsGleich.Check
-    '/// Increase 'Left margin'
-    printlog " Increase 'Left margin'"
-    LinkerRandFusszeile.More
-    '/// Decrease 'Right margin'
-    printlog " Decrease 'Right margin'"
-    RechterRandFusszeile.Less
-    '/// Increase 'Spacing'
-    printlog " Increase 'Spacing'"
-    Abstand.More
-    '/// Decrease 'Height'
-    printlog " Decrease 'Height'"
-    Hoehe.Less
-    '/// Check option 'AutoFit height'
-    printlog " Check option 'AutoFit height'"
-    Hoehedynamisch.Check
-    '/// Click 'More' – button
-    printlog " Click 'More' – button"
-    Zusaetze.Click
-    '/// Switch to tabpage 'Borders'
-    printlog " Switch to tabpage 'Borders'"
-    Kontext
-    Active.SetPage TabUmrandung
-    Kontext "TabUmrandung"
-    '/// Switch to tabpage 'Background'
-    printlog " Switch to tabpage 'Background'"
-    Kontext
-    active.SetPage TabHintergrund
-    Kontext "TabHintergrund"
-    '/// Close dialog with 'Cancel'
-    printlog " Close dialog with 'Cancel'"
-    TabHintergrund.Cancel
-    '/// Press 'Edit' – button
-    printlog " Press 'Edit' – button"
-    Kontext "TabFusszeile"
-    Bearbeiten.Click
-    '/// Close dialog with 'Cancel'
-    printlog " Close dialog with 'Cancel'"
-    Kontext "TabFusszeileCalc"
-    TabFusszeileCalc.Cancel
-    
-    '/// Switch to tabpage 'Sheet'
-    printlog " Switch to tabpage 'Sheet'"
-    Kontext
-    active.SetPage TabTabelleCalc
-    Kontext "TabTabelleCalc"
-    '/// Check option 'Left to right, then down'
-    printlog " Check option 'Left to right, then down'"
-    SeitenreihenfolgeLinksRechts.Check
-    '/// Check option 'First page number'
-    printlog " Check option 'First page number'"
-    ErsteSeitenzahl.Check
-    '/// Increase 'Page number'
-    printlog " Increase 'Page number'"
-    NummerErsteSeite.More
-    '/// Check option 'Column and row headers'
-    printlog " Check option 'Column and row headers'"
-    ZeilenSpaltenKoepfe.Check
-    '/// Check option 'Grid'
-    printlog " Check option 'Grid'"
-    Tabellengitter.Check
-    '/// Check option 'Notes'
-    printlog " Check option 'Notes'"
-    Notizen.Check
-    '/// Check option 'Objects/grphics'
-    printlog " Check option 'Objects/grphics'"
-    GrafikenObjekte.Check
-    '/// Check option 'Charts'
-    printlog " Check option 'Charts'"
-    Diagramme.Check
-    '/// Check option 'Drawing objects'
-    printlog " Check option 'Drawing objects'"
-    Zeichenobjekte.Check
-    '/// Check option 'Formulas'
-    printlog " Check option 'Formulas'"
-    Formeln.Check
-    '/// Check option 'Zero values'
-    printlog " Check option 'Zero values'"
-    Nullwerte.Check
-    '/// Choose first 'Scaling mode' (Reduce/enlarge printout)
-    printlog " Choose first 'Scaling mode' (Reduce/enlarge printout)"
-    ScalingMode.Select 1
-    DialogTest ( TabTabelleCalc,1 )
-    '/// Increase 'scaling factor'
-    printlog " Increase 'scaling factor'"
-    SkalierungProzent.More
-    '/// Choose second 'Scaling mode' (Fit print range to width/height)
-    printlog " Choose second 'Scaling mode' (Fit print range to width/height)"
-    ScalingMode.Select 2
-    DialogTest ( TabTabelleCalc,2 )
-    '/// Increase 'Width in pages'
-    printlog " Increase 'Width in pages'"
-    ScalePageWidth.More
-    '/// Increase 'Height in pages'
-    printlog " Increase 'Height in pages'"
-    ScalePageHeight.More
-    '/// Choose third 'Scaling mode' (Fit print range on number of pages)
-    printlog " Choose third 'Scaling mode' (Fit print range on number of pages)"
-    ScalingMode.Select 3
-    DialogTest ( TabTabelleCalc,3 )
-    '/// Increase 'Number of pages'
-    printlog " Increase 'Number of pages'"
-    AnzahlMaxSeiten.More
-    '/// Close 'Page Style' – dialog with 'Cancel'
-    printlog " Close 'Page Style' – dialog with 'Cancel'"
-    TabTabelleCalc.Close
-    '/// Set support for CJK and CTL back to default (Tools – Options – Language Support)
-    printlog " Set support for CJK and CTL back to default (Tools – Options – Language Support)"
-    if bAsianLanguage = FALSE then
-        Call ActiveDeactivateAsianSupport(FALSE)
-    end if
-    if bCTLLanguage = FALSE then
-        Call ActiveDeactivateCTLSupport(FALSE)
-    end if
-    '/// Close document
-    printlog " Close starting document"
-    call hCloseDocument
-
-endcase
-
-'-----------------------------------------------------------
-
diff --git a/testautomation/spreadsheet/required/includes/c_upd_formatmenu2.inc b/testautomation/spreadsheet/required/includes/c_upd_formatmenu2.inc
deleted file mode 100644
index cc448d3c3830..000000000000
--- a/testautomation/spreadsheet/required/includes/c_upd_formatmenu2.inc
+++ /dev/null
@@ -1,804 +0,0 @@
-'encoding UTF-8  Do not remove or change this line!
-'**************************************************************************
-' DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER.
-'
-' Copyright 2000, 2010 Oracle and/or its affiliates.
-'
-' OpenOffice.org - a multi-platform office productivity suite
-'
-' This file is part of OpenOffice.org.
-'
-' OpenOffice.org is free software: you can redistribute it and/or modify
-' it under the terms of the GNU Lesser General Public License version 3
-' only, as published by the Free Software Foundation.
-'
-' OpenOffice.org is distributed in the hope that it will be useful,
-' but WITHOUT ANY WARRANTY; without even the implied warranty of
-' MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
-' GNU Lesser General Public License version 3 for more details
-' (a copy is included in the LICENSE file that accompanied this code).
-'
-' You should have received a copy of the GNU Lesser General Public License
-' version 3 along with OpenOffice.org.  If not, see
-' <http://www.openoffice.org/license.html>
-' for a copy of the LGPLv3 License.
-'
-'/***********************************************************************
-'*
-'* owner : oliver.craemer@oracle.com
-'*
-'* short description : Resource Test - Format Menu Part II
-'*
-'\***********************************************************************
-
-sub c_upd_formatmenu2
-
-    Printlog Chr(13) + "--------- Format Menu Part II (c_upd_formatmenu2.inc) ---------"
-    
-    call tFormatPrintRanges
-    call tFormatCharacter
-    call tFormatParagraph
-    call tFormatChangeCase
-    call tFormatStyles
-    call tFormatAutoFormat
-    call tFormatConditionalFormatting
-    call tFormatAnchor
-    call tFormatAlignment
-    call tFormatArrange
-    call tFormatFlip
-    call tFormatGroup
-    call tFormatControl   'testcase still under construction
-
-end sub
-
-'-----------------------------------------------------------
-
-testcase tFormatPrintRanges
-'///<u><b>Format - Print Ranges</b></u>
-
-    '/// Opening new spreadsheet document for getting defined starting environment
-    printlog " Opening new spreadsheet document for getting defined starting environment"
-    call hNewDocument
-    '/// Define a print range by 'Format – Print Ranges – Define'
-    printlog " Define a print range by 'Format – Print Ranges – Define'"
-    FormatPrintRangesDefine
-    '/// Add a print range by 'Format – Print Ranges – Add'
-    printlog " Add a print range by 'Format – Print Ranges – Add'"
-    FormatPrintRangesAdd
-    '/// Delete a print range by 'Format – Print Ranges – Delete'
-    printlog " Delete a print range by 'Format – Print Ranges – Delete'"
-    FormatPrintRangesRemove
-    '/// Open 'Edit Print Ranges' – dialog by 'Format – Print Ranges – Edit'
-    printlog " Open 'Edit Print Ranges' – dialog by 'Format – Print Ranges – Edit'"
-    FormatPrintRangesEdit
-    Kontext "DruckbereicheBearbeiten"
-    DialogTest ( DruckbereicheBearbeiten )
-    '/// Verify that there are four entries in 'Print range'
-    printlog " Verify that there are four entries in 'Print range'"
-    if not DruckbereichListe.GetItemCount = 4 then
-        warnlog "There are " & DruckbereichListe.GetItemCount & " items instead of 4"
-    end if
-    '/// Press 'Shrink' -button for 'Print Range'
-    printlog " Press 'Shrink' -button for 'Print Range'"
-    DruckbereichButton.Click
-    '/// Enlarge Rangechooser
-    printlog " Enlarge Rangechooser"
-    DruckbereichButton.Click
-    '/// Verify that there are two entries in 'Rows to repeat'
-    printlog " Verify that there are two entries in 'Rows to repeat'"
-    if not WiederholungszeileListe.GetItemCount = 2 then
-        warnlog "There are " & WiederholungszeileListe.GetItemCount & " items instead of 2"
-    end if
-    '/// Press 'Shrink' -button for 'Rows to repeat'
-    printlog " Press 'Shrink' -button for 'Rows to repeat'"
-    WiederholungszeileButton.Click
-    '/// Enlarge Rangechooser
-    printlog " Enlarge Rangechooser"
-    WiederholungszeileButton.Click
-    '/// Verify that there are two entries in 'Columns to repeat'
-    printlog " Verify that there are two entries in 'Columns to repeat'"
-    if not WiederholungsspalteListe.GetItemCount = 2 then
-        warnlog "There are " & WiederholungsspalteListe.GetItemCount & " items instead of 2"
-    end if
-    '/// Press 'Shrink' -button for 'Columns to repeat'
-    printlog " Press 'Shrink' -button for 'Columns to repeat'"
-    WiederholungsspalteButton.Click
-    '/// Enlarge Rangechooser
-    printlog " Enlarge Rangechooser"
-    WiederholungsspalteButton.Click
-    '/// Close dialog with 'Cancel'
-    printlog " Close dialog with 'Cancel'"
-    DruckbereicheBearbeiten.Cancel
-    '/// Close starting document
-    printlog " Close starting document"
-    call hCloseDocument
-
-endcase
-
-'-----------------------------------------------------------
-
-testcase tFormatCharacter
-'///<u><b>Format - Character</b></u>
-
-    '/// Open new Spreadsheet document
-    printlog " Open new Spreadsheet document"
-    Call hNewDocument
-    Kontext "DocumentCalc"
-    '/// Type 'Test'
-    printlog " Type 'Test'" 
-    DocumentCalc.TypeKeys "Test"
-    '/// Open  'Character' – dialog by 'Format – Character'
-    printlog " Open  'Character' – dialog by 'Format – Character'"
-    FormatCharacter
-    '/// Switch to tabpage 'Font'
-    printlog " Switch to tabpage 'Font'"
-    Kontext
-    active.SetPage TabFont
-    kontext "TabFont"
-    Call DialogTest ( TabFont )
-    '/// Switch to tabpage 'Font Effects'
-    printlog " Switch to tabpage 'Font Effects'"
-    Kontext
-    active.SetPage TabFontEffects
-    kontext "TabFontEffects"
-    Call DialogTest ( TabFontEffects )
-    '/// Switch to tabpage 'Font Position'
-    printlog " Switch to tabpage 'Font Position'"
-    Kontext
-    active.SetPage TabFontPosition
-    kontext "TabFontPosition"
-    Call DialogTest ( TabFontPosition )
-    '/// Close dialog with 'Cancel'
-    printlog " Close dialog with 'Cancel'"
-    TabFontPosition.Close
-    '/// Close document
-    printlog " Close document"
-    Call hCloseDocument
-
-endcase
-
-'-----------------------------------------------------------
-
-testcase tFormatParagraph
-'///<u><b>Insert - Paragraph</b></u>
-
-    Dim bAsianLanguage as boolean
-    Dim bCTLlanguage as boolean
-
-    '/// Open new Spreadsheet document
-    printlog " Open new Spreadsheet document"   
-    call hNewDocument
-    '/// Enable language support for CJK and CTL (Tools-Options-Language Support)
-    printlog " Enable language support for CJK and CTL (Tools-Options-Language Support)"
-    bAsianLanguage = ActiveDeactivateAsianSupport(TRUE)
-    bCTLLanguage = ActiveDeactivateCTLSupport(TRUE)
-    '/// Insert a note via 'Insert – Note'
-    printlog " Insert a note via 'Insert – Note'"
-    InsertNoteCalc
-    Kontext
-    '/// Enter 'Test' in Note
-    printlog " Enter 'Test' in Note"
-    DocumentCalc.TypeKeys "Test"
-    '/// Open 'Paragraph' – dialog by 'Format – Paragraph'
-    printlog " Open 'Paragraph' – dialog by 'Format – Paragraph'"
-    FormatParagraph
-    '/// Switch to tabpage 'Indents & Spacing'
-    printlog " Switch to tabpage 'Indents & Spacing'"
-    Kontext
-    active.SetPage TabEinzuegeUndAbstaende
-    Kontext "TabEinzuegeUndAbstaende"
-    Call DialogTest ( TabEinzuegeUndAbstaende )
-    '/// Increase 'Before text'
-    printlog " Increase 'Before text'"
-    Vonlinks.More
-    '/// Increase 'After text'
-    printlog " Increase 'After text'"
-    VonRechts.More
-    '/// Increase 'First line'
-    printlog " Increase 'First line'"
-    ErsteZeile.More
-    '/// Increase 'Above paragraph'
-    printlog " Increase 'Above paragraph'"
-    Oben.More
-    '/// Increase 'Below paragraph'
-    printlog " Increase 'Below paragraph'"
-    Unten.More
-    '/// Choose last (6) entry in listbox 'Line spacing'
-    printlog " Choose last (6) entry in listbox 'Line spacing'"
-    Zeilenabstand.Select 6
-    '/// Increase 'Line spacing'
-    printlog " Increase 'Line spacing'"
-    If Von.IsEnabled then
-        Von.More
-        else qaerrorlog "Line Spacing wrong, maybe the sort of this listbox is different"
-    end if
-    
-    '/// Switch to tabpage 'Alignment'
-    printlog " Switch to tabpage 'Alignment'"
-    Kontext
-    active.SetPage TabAusrichtungAbsatz
-    Kontext "TabAusrichtungAbsatz"
-    Call DialogTest ( TabAusrichtungAbsatz )
-    '/// Choose option 'Left/Top'
-    printlog " Choose option 'Left/Top'"
-    Links.Check
-    '/// Choose option 'Right/Bottom'
-    printlog " Choose option 'Right/Bottom'"
-    Rechts.Check
-    '/// Choose option 'Center'
-    printlog " Choose option 'Center'"
-    Zentriert.Check
-    '/// Choose option 'Justified'
-    printlog " Choose option 'Justified'"
-    Blocksatz.Check
-    '/// Verify that listbox 'Text direction' has entries
-    printlog " Verify that listbox 'Text direction' has entries"
-    if TextDirection.GetItemCount < 1 then
-        warnlog "The Textdirection listbox is empty"
-    end if
-
-    '/// Switch to tabpage 'Asian Typography'
-    printlog " Switch to tabpage 'Asian Typography'"
-    Kontext
-    active.SetPage TabAsianTypography
-    Kontext "TabAsianTypography"
-    Call DialogTest ( TabAsianTypography )
-    '/// Check checkbox for 'Apply list...'
-    printlog " Check checkbox for 'Apply list...'"
-    ApplyList.Check
-    '/// Check checkbox 'Allow...'
-    printlog " Check checkbox 'Allow...'"
-    AllowHangingPunctuation.Check
-    '/// Check checkbox 'Apply spacing...'
-    printlog " Check checkbox 'Apply spacing...'"
-    ApplySpacingBetween.Check
-    
-    '/// Switch to tabpage 'Tab'
-    printlog " Switch to tabpage 'Tab'"
-    Kontext
-    active.SetPage TabTabulatoren
-    Kontext "TabTabulatoren"
-    Call DialogTest ( TabTabulatoren )
-    '/// Close 'Paragraph' – dialog with 'Cancel'
-    TabTabulatoren.Close
-    
-    '/// Close Note by <ESC>
-    printlog " Close Note by <ESC>"
-    Kontext "DocumentCalc"
-    DocumentCalc.TypeKeys "<ESCAPE>"
-    '/// Set support for CJK and CTL back to default (Tools – Options – Language Support)
-    printlog " Set support for CJK and CTL back to default (Tools – Options – Language Support)"
-    if bAsianLanguage = FALSE then
-        Call ActiveDeactivateAsianSupport(FALSE)
-    end if
-    if bCTLLanguage = FALSE then
-        Call ActiveDeactivateCTLSupport(FALSE)
-    end if
-    '/// Close document
-    printlog " Close document"
-    call hCloseDocument
-
-endcase
-
-'-----------------------------------------------------------
-
-testcase tFormatChangeCase
-'///<u><b>Format - Change Case</b></u>
-
-    Dim bAsianLanguage as boolean
-    Dim bCTLlanguage as boolean
-
-    '/// Open new Spreadsheet document
-    printlog " Open new Spreadsheet document"
-    Call hNewDocument
-    '/// Enable language support for CJK and CTL (Tools-Options-Language Support)
-    printlog " Enable language support for CJK and CTL (Tools-Options-Language Support)"
-    bAsianLanguage = ActiveDeactivateAsianSupport(TRUE)
-    bCTLLanguage = ActiveDeactivateCTLSupport(TRUE)
-    '/// Change case by 'Format – Change Case – Uppercase'
-    printlog " Change case by 'Format – Change Case – Uppercase'"
-    FormatChangeCaseUpper
-    '/// Change case by 'Format – Change Case – Lowercase'
-    printlog " Change case by 'Format – Change Case – Lowercase'"
-    FormatChangeCaseLower
-    '/// Change case by 'Format – Change Case – Halfwidth'
-    printlog " Change case by 'Format – Change Case – Halfwidth'"
-    FormatChangeCaseHalfwidth
-    '/// Change case by 'Format – Change Case – Fullwidth'
-    printlog " Change case by 'Format – Change Case – Fullwidth'"
-    FormatChangeCaseFullwidth
-    '/// Change case by 'Format – Change Case – Hiragana'
-    printlog " Change case by 'Format – Change Case – Hiragana'"
-    FormatChangeCaseHiragana
-    '/// Change case by 'Format – Change Case – Katagana'
-    printlog " Change case by 'Format – Change Case – Katagana'"
-    FormatChangeCaseKatagana
-    '/// Set support for CJK and CTL back to default (Tools – Options – Language Support)
-    printlog " Set support for CJK and CTL back to default (Tools – Options – Language Support)"
-    if bAsianLanguage = FALSE then
-        Call ActiveDeactivateAsianSupport(FALSE)
-    end if
-    if bCTLLanguage = FALSE then
-        Call ActiveDeactivateCTLSupport(FALSE)
-    end if
-    '/// Close document
-    printlog " Close document"
-    call hCloseDocument
-
-endcase
-
-'-----------------------------------------------------------
-
-testcase tFormatStyles
-'///<u><b>Format - Styles and Formatting</b></u>
-
-    '/// Open new Spreadsheet document
-    printlog " Open new Spreadsheet document"
-    Call hNewDocument
-    '/// Open 'Stylist' by 'Format – Styles and Formatting'
-    printlog " Open 'Stylist' by 'Format – Styles and Formatting'"
-    FormatStylist
-    Kontext "Gestalter"
-    if Gestalter.notexists (2) then 
-        FormatStylist
-        Kontext "Gestalter"
-    end if
-    '/// Click on button 'Cell Styles'
-    printlog " Click on button 'Cell Styles'"
-    Zellvorlagen.Click
-    DialogTest ( Gestalter,1 )
-    '/// Click on button 'Fill Format Mode' to turn mode on
-    printlog " Click on button 'Fill Format Mode' to turn mode on"
-    Giesskanne.Click
-    '/// Click again on button 'Fill Format Mode' to turn mode off
-    printlog " Click again on button 'Fill Format Mode' to turn mode off"
-    Giesskanne.Click
-    '/// Click on button 'NewStyle from Selection'
-    printlog " Click on button 'NewStyle from Selection'"
-    AusSelektion.Click
-    Kontext "VorlageErzeugen"
-    DialogTest ( VorlageErzeugen )
-    '/// Type name 'Teststyle'
-    printlog " Type name 'Teststyle'"
-    Vorlagenname.SetText "Teststyle"
-    '/// Close 'Create Style' – dialog with 'Cancel'
-    printlog " Close 'Create Style' – dialog with 'Cancel'"
-    VorlageErzeugen.Cancel
-    Kontext "Gestalter"
-    '/// Click on button 'Update Style'
-    printlog " Click on button 'Update Style'"
-    Aktualisieren.Click
-    '/// Click on button 'Page Styles'
-    printlog " Click on button 'Page Styles'"
-    Absatzvorlagen.Click
-    '/// Close 'Stylist' by 'Format – Styles and Formatting
-    printlog " Close 'Stylist' by 'Format – Styles and Formatting"
-    Kontext "Gestalter"
-    Gestalter.Close
-    '/// Close document
-    printlog " Close document"
-    Call hCloseDocument
-
-endcase
-
-'-----------------------------------------------------------
-
-testcase tFormatAutoFormat
-'///<u><b>Format - AutoFormat/b></u>
-
-    '/// Open new Spreadsheet document
-    printlog " Open new Spreadsheet document"
-    Call hNewDocument
-    '/// Select cells A1:E6
-    printlog " Select cells A1:E6"
-    Call fCalcSelectRange ("A1:E6")
-    '/// Open 'AutoFormat' – dialog by 'Format – AutoFormat'
-    printlog " Open 'AutoFormat' – dialog by 'Format – AutoFormat'"
-    FormatAutoformat
-    Kontext "AutoformatCalc"
-    '/// Click on 'More' – button
-    Zusaetze.Click
-    Call DialogTest ( AutoformatCalc )
-    '/// Verify that the 'Format' – listbox has items
-    printlog " Verify that the 'Format' – listbox has items"
-    if FormatListe.GetItemCount < 1 then
-        warnlog "The formatlist is empty"
-    end if
-    '/// Click on 'Add' – button
-    printlog " Click on 'Add' – button"
-    Einfuegen.Click
-    Kontext "AutoFormatHinzufuegenCalc"
-    Call DialogTest ( AutoFormatHinzufuegenCalc )
-    '/// Enter name 'Testformat'
-    printlog " Enter name 'Testformat'"
-    TabellenName.SetText "Testformat"
-    '/// Close dialog with 'Cancel'
-    printlog " Close dialog with 'Cancel'"
-    AutoFormatHinzufuegenCalc.Close
-    Kontext "AutoformatCalc"
-    '/// Select second entry in 'Format' – listbox
-    printlog " Select second entry in 'Format' – listbox"
-    FormatListe.Select 2
-    '/// Click on 'Rename' – button
-    printlog " Click on 'Rename' – button"
-    Umbenennen.Click
-    Kontext "RenameAutoFormat"
-    Call DialogTest ( RenameAutoFormat )
-    '/// Set format name to 'Newformat'
-    printlog " Set format name to 'Newformat'"
-    RenameAutoFormatName.SetText "Newformat"
-    '/// Close 'Rename AutoFormat' – dialog with 'Cancel'
-    printlog " Close 'Rename AutoFormat' – dialog with 'Cancel'"    
-    RenameAutoFormat.Cancel
-    Kontext "AutoformatCalc"
-    '/// Click on 'Delete' – button
-    printlog " Click on 'Delete' – button"
-    Loeschen.Click
-    '/// Close messagebox with 'Yes'
-    Kontext
-    Active.No
-    Kontext "AutoformatCalc"
-    '/// Check 'Number format'
-    printlog " Check 'Number format'"
-    Zahlenformat.Check
-    '/// Check 'Borders'
-    printlog " Check 'Borders'"
-    Umrandung.Check
-    '/// Check 'Font'
-    printlog " Check 'Font'"
-    Schriftart.Check
-    '/// Check 'Pattern'
-    printlog " Check 'Pattern'"
-    Muster.Check
-    '/// Check 'Alignment'
-    printlog " Check 'Alignment'"
-    Ausrichtung.Check
-    '/// Check 'AutoFit width and height'
-    printlog " Check 'AutoFit width and height'"
-    BreiteHoeheAnpassen.Check
-    '/// Close 'AutoFormat' – dialog with 'Cancel'
-    printlog " Close 'AutoFormat' – dialog with 'Cancel'"
-    AutoformatCalc.Cancel
-    '/// Close document
-    printlog " Close document"
-    Call hCloseDocument
-
-endcase
-
-'-----------------------------------------------------------
-
-testcase tFormatConditionalFormatting
-'///<u><b>Format - Conditional Formatting</b></u>
-
-    '/// Open new Spreadsheet document
-    printlog " Open new Spreadsheet document"
-    Call hNewDocument
-    '/// Open 'Conditional Formatting' – dialog by 'Format – Conditional Formatting'
-    printlog " Open 'Conditional Formatting' – dialog by 'Format – Conditional Formatting'"
-    FormatConditionalFormatting
-    Kontext "BedingteFormatierung"
-    Call DialogTest ( BedingteFormatierung )
-    '/// Check 'Condition 1'
-    printlog " Check 'Condition 1'"
-    Bedingung1.Check
-    '/// Choose first entry (Cell value is)
-    printlog " Choose first entry (Cell value is)"
-    PopupList1.Select 1
-    '/// Choose first criteria for comparison (equal to)
-    printlog " Choose first criteria for comparison (equal to)"
-    Vergleich1.Select 1
-    '/// Click on 'Shrink' – button
-    printlog " Click on 'Shrink' – button"
-    Minimieren1.Click
-    '/// Close rangechoser by 'Shrink' -button
-    printlog " Close rangechoser by 'Shrink' -button"
-    Minimieren1.Click
-    '/// Set string '12' in editfield
-    printlog " Set string '12' in editfield"
-    TextField1.SetText "12"
-    '/// Verify that the 'Cell style' listbox has items
-    printlog " Verify that the 'Cell style' listbox has items"
-    if Zellvorlage1.GetItemCount < 1 then
-        warnlog "The 'Cell style' listbox is empty"
-    end if
-	printlog " Click on NewStyle button"
-	NewStyle1.Click
-	Kontext
-    active.SetPage TabVerwalten
-	printlog " Close Style dialog"
-    Kontext "TabVerwalten"
-	TabVerwalten.Close
-	Kontext "BedingteFormatierung"
-    '/// Check 'Condition 2'
-    printlog " Check 'Condition 2'"
-    Bedingung2.Check
-    '/// Choose second entry 'Formula is'
-    printlog " Choose second entry 'Formula is'"
-    PopupList2.Select 2
-    '/// Click on 'Shrink' – button
-    printlog " Click on 'Shrink' – button"
-    Minimieren2.Click
-    '/// Close rangechoser by 'Shrink' -button
-    printlog " Close rangechoser by 'Shrink' -button"
-    Minimieren2.Click
-    '/// Check 'Condition 3'
-    printlog " Check 'Condition 3'"
-    Bedingung3.Check
-    '/// Choose first entry (Cell value is)
-    printlog " Choose first entry (Cell value is)"
-    PopupList3.Select 1
-    '/// Choose last criteria for comparision (not between)
-    printlog " Choose last criteria for comparision (not between)"
-    Vergleich3.Select 8
-    '/// Click on first 'Shrink' – button
-    printlog " Click on first 'Shrink' – button"
-    Minimieren3.Click
-    '/// Close rangechoser by 'Shrink' -button
-    printlog " Close rangechoser by 'Shrink' -button"
-    Minimieren3.Click
-    '/// Click on second 'Shrink' – button
-    printlog " Click on second 'Shrink' – button"
-    Minimieren32.Click
-    '/// Close rangechoser by 'Shrink' -button
-    printlog " Close rangechoser by 'Shrink' -button"
-    Minimieren32.Click
-    '/// Close 'Conditional Formatting' – dialog with 'Cancel'
-    printlog " Close 'Conditional Formatting' – dialog with 'Cancel'"
-    BedingteFormatierung.close
-    '/// Close document
-    printlog " Close document"
-    Call hCloseDocument
-
-endcase
-
-'-----------------------------------------------------------
-
-testcase tFormatAnchor
-'///<u><b>Format - Anchor</b></u>
-
-    '/// Open new Spreadsheet document
-    printlog " Open new Spreadsheet document"
-    Call hNewDocument
-    '/// Go to cell D4
-    printlog " Go to cell D4"
-    Call fCalcSelectRange ("D4")
-    '/// Insert Picture by 'Insert – Picture – From File' global\input\graf_inp\borabora.jpg
-    printlog " Insert Picture by 'Insert – Picture – From File' global\input\graf_inp\borabora.jpg"
-    InsertGraphicsFromFile
-    Kontext "GrafikEinfuegenDlg"
-    Dateiname.Settext convertpath(gTesttoolpath + "global\input\graf_inp\borabora.jpg")
-    Oeffnen.Click
-    '/// Set Anchor to page by 'Format – Anchor – To Page'
-    printlog " Set Anchor to page by 'Format – Anchor – To Page'"
-    FormatAnchorToPageCalc
-    '/// Set Anchor to page by 'Format – Anchor – To Cell'
-    printlog " Set Anchor to page by 'Format – Anchor – To Cell'"
-    FormatAnchorToCell
-    '/// Close document
-    printlog " Close document"
-    Call hCloseDocument
-
-endcase
-
-'-----------------------------------------------------------
-
-testcase tFormatAlignment
-'///<u><b>Format - Alignment</b></u>
-
-    '/// Open new Spreadsheet document
-    printlog " Open new Spreadsheet document"
-    Call hNewDocument
-    '/// Set Alignment to default by ' Format -Alignment - Default'
-    printlog " Set Alignment to default by ' Format -Alignment - Default'"
-    FormatAlignmentHorizontalDefaultCalc
-    '/// Set Alignment to Left by ' Format -Alignment - Left'
-    printlog " Set Alignment to Left by ' Format -Alignment - Left'"
-    FormatAlignmentLeftCalc
-    '/// Set Alignment to Centered by ' Format -Alignment – Centered'
-    printlog " Set Alignment to Centered by ' Format -Alignment – Centered'"
-    FormatAlignmentHorizontalCenterCalc
-    '/// Set Alignment to Right by ' Format -Alignment – Right'
-    printlog " Set Alignment to Right by ' Format -Alignment – Right'"
-    FormatAlignmentRightCalc
-    '/// Set Alignment to Justified by ' Format -Alignment – Justified'
-    printlog " Set Alignment to Justified by ' Format -Alignment – Justified'"
-    FormatAlignmentJustifiedCalc
-    '/// Set Alignment to Top by ' Format -Alignment – Top'
-    printlog " Set Alignment to Top by ' Format -Alignment – Top'"
-    FormatAlignmentTopCalc
-    '/// Set Alignment to Center by ' Format -Alignment – Center'
-    printlog " Set Alignment to Center by ' Format -Alignment – Center'"
-    FormatAlignmentverticalCenterCalc
-    '/// Set Alignment to Bottom by ' Format -Alignment – Bottom'
-    printlog " Set Alignment to Bottom by ' Format -Alignment – Bottom'"
-    FormatAlignmentBottomCalc
-    '/// Close document
-    printlog " Close document"
-    Call hCloseDocument
-    
-    '/// Load document from 'gTesttoolPath + "spreadsheet\required\input\twoobjects.ods"'
-    printlog " Load document from 'gTesttoolPath + spreadsheet\required\input\twoobjects.ods"
-    hFileOpenLocally( gTesttoolPath & "spreadsheet\required\input\twoobjects.ods" )
-    '/// Select first object by Navigator
-    printlog " Select first object by Navigator"
-    Call fNavigatorSelectObject ("drawing objects", 1)
-    '/// Select additional second drawing object by keyboard Strg-A
-    printlog " Select additional second drawing object by keyboard Strg-A"
-    Kontext "DocumentCalc"
-    DocumentCalc.TypeKeys "<Mod1 A>"
-    '/// Set Alignment to Left by ' Format -Alignment - Left'
-    printlog " Set Alignment to Left by ' Format -Alignment - Left'"
-    FormatAlignmentObjectLeftCalc
-    '/// Set Alignment to Centered by ' Format -Alignment – Centered'
-    printlog " Set Alignment to Centered by ' Format -Alignment – Centered'"
-    FormatAlignmentObjectCenteredCalc
-    '/// Set Alignment to Right by ' Format -Alignment – Right'
-    printlog " Set Alignment to Right by ' Format -Alignment – Right'"
-    FormatAlignmentObjectRightCalc
-    '/// Set Alignment to Top by ' Format -Alignment – Top'
-    printlog " Set Alignment to Top by ' Format -Alignment – Top'"
-    FormatAlignmentObjectTopCalc
-    '/// Set Alignment to Center by ' Format -Alignment – Center'
-    printlog " Set Alignment to Center by ' Format -Alignment – Center'"
-    FormatAlignmentObjectCenterCalc
-    '/// Set Alignment to Bottom by ' Format -Alignment – Bottom'
-    printlog " Set Alignment to Bottom by ' Format -Alignment – Bottom'"
-    FormatAlignmentObjectBottomCalc
-    '/// Close document
-    printlog " Close document"
-    Call hCloseDocument
-    hFileDelete( gLastWorkFile )
-
-endcase
-
-'-----------------------------------------------------------
-
-testcase tFormatArrange
-'///<u><b>Format - Arrange</b></u>
-
-    '/// Open new Spreadsheet document
-    printlog " Open new Spreadsheet document"
-    Call hNewDocument
-    '/// Insert Picture by 'Insert – Picture – From File' ...
-    printlog " Insert Picture by 'Insert – Picture – From File' ..."
-    InsertGraphicsFromFile
-    Kontext "GrafikEinfuegenDlg"
-    Dateiname.Settext convertpath(gTesttoolpath + "global\input\graf_inp\borabora.jpg")
-    Oeffnen.Click 
-    '/// 'Format – Arrange – Bring to Front'
-    printlog " 'Format – Arrange – Bring to Front'"
-    FormatArrangeBringToFrontCalc
-    '/// 'Format – Arrange – Forward One'
-    printlog " 'Format – Arrange – Forward One'"
-    FormatArrangeBringForwardCalc
-    '/// 'Format – Arrange – Back One'
-    printlog " 'Format – Arrange – Back One'"
-    FormatArrangeSendBackwardCalc
-    '/// 'Format – Arrange – Send to Back'
-    printlog " 'Format – Arrange – Send to Back'"
-    FormatArrangeSendToBackCalc
-    '/// 'Format – Arrange – To Background'
-    printlog " 'Format – Arrange – To Background'"
-    FormatArrangeToBackgroundCalc
-    '/// 'Format – Arrange – To Foreground'
-    printlog " 'Format – Arrange – To Foreground'"
-    'Sometimes the selection of the graphic get lost, then reselect by Navigator
-    try
-        FormatArrangeToForegroundCalc
-    catch
-        Call fNavigatorSelectObject ("graphics", 1)
-        FormatArrangeToForegroundCalc
-    endcatch
-    '/// Close document
-    printlog " Close document"
-    Call hCloseDocument
-
-endcase
-
-'-----------------------------------------------------------
-
-testcase tFormatFlip
-'///<u><b>Format - Flip</b></u>
-
-    '/// Open new Spreadsheet document
-    printlog " Open new Spreadsheet document"
-    Call hNewDocument
-    '/// Insert Picture by 'Insert – Picture – From File' ...
-    printlog " Insert Picture by 'Insert – Picture – From File' ..."
-    InsertGraphicsFromFile
-    Kontext "GrafikEinfuegenDlg"
-    Dateiname.Settext convertpath(gTesttoolpath + "global\input\graf_inp\borabora.jpg")
-    Oeffnen.Click
-    '/// Flip picture by 'Format – Flip – Flip Vertically'
-    printlog " Flip picture by 'Format – Flip – Flip Vertically'"
-    FormatFlipVerticallyCalc
-    '/// Flip picture by 'Format – Flip – Flip Object Horizontally'
-    printlog " Flip picture by 'Format – Flip – Flip Object Horizontally'"
-    FormatFlipHorizontalCalc
-    '/// Close document
-    printlog " Close document"
-    Call hCloseDocument
-
-endcase
-
-'-----------------------------------------------------------
-
-testcase tFormatGroup
-'///<u><b>Format - Group</b></u>
-
-    '/// Load document from 'gTesttoolPath + "spreadsheet\required\input\twoobjects.ods"'
-    printlog " Load document from 'gTesttoolPath + spreadsheet\required\input\twoobjects.ods"
-    hFileOpenLocally( gTesttoolPath & "spreadsheet\required\input\twoobjects.ods" )
-    '/// Select first object by Navigator
-    printlog " Select first object by Navigator"
-    Call fNavigatorSelectObject ("drawing objects", 1)
-    '/// Select additional second drawing object by keyboard Strg-A
-    printlog " Select additional second drawing object by keyboard Strg-A"
-    Kontext "DocumentCalc"
-    DocumentCalc.TypeKeys "<Mod1 A>"
-    '/// Group objects by 'Format - Group - Group
-    printlog " Group objects by 'Format - Group - Group"
-    FormatGroupGroup
-    '/// Enter Group by 'Format - Group - Enter'
-    printlog " Enter Group by 'Format - Group - Enter'"
-    FormatGroupEditGroupCalc
-    '/// Leave Group by 'Format - Group - Exit'
-    printlog " Leave Group by 'Format - Group - Exit'"
-    FormatExitGroupDraw
-    '/// Ungroup objects by 'Format - Group - Ungroup'
-    printlog " Ungroup objects by 'Format - Group - Ungroup'"
-    FormatUngroupDraw
-    '/// Close document
-    printlog " Close document"
-    Call hCloseDocument
-    hFileDelete( gLastWorkFile )
-
-endcase
-
-'-----------------------------------------------------------
-
-testcase tFormatControl
-'///<u><b>Format - Control</b></u>
-
-qaerrorlog "Testcase still under construction"
-goto endsub
-
-    '/// Open new Spreadsheet document
-    printlog " Open new Spreadsheet document"
-    Call hNewDocument
-'/// Insert Control Button
-printlog " Insert Control Button"
-
-'/// Open 'Properties' – dialog by 'Format – Control'
-printlog " Open 'Properties' – dialog by 'Format – Control'"
-'FormatControl
-'/// Switch to tabpage 'General'
-printlog " Switch to tabpage 'General'"
-
-'/// Switch to tabpage 'Events'
-printlog " Switch to tabpage 'Events'"
-
-'/// Close dialog by 'Format – Controls'
-printlog " Close dialog by 'Format – Controls'"
-
-'/// Open 'Form Properties' – dialog by 'Format – Form'
-printlog " Open 'Form Properties' – dialog by 'Format – Form'"
-'FormatForm
-'/// Switch to tabpage 'General'
-printlog " Switch to tabpage 'General'"
-
-'/// Switch to tabpage 'Data'
-printlog " Switch to tabpage 'Data'"
-
-'/// Switch to tabpage 'Events'
-printlog " Switch to tabpage 'Events'"
-
-'/// Close dialog by 'Format – Form'
-printlog " Close dialog by 'Format – Form'"
-
-    '/// Close document
-    printlog " Close document"
-    Call hCloseDocument
-
-endcase
-
diff --git a/testautomation/spreadsheet/required/includes/c_upd_formatmenu3.inc b/testautomation/spreadsheet/required/includes/c_upd_formatmenu3.inc
deleted file mode 100644
index 0dd9d3200937..000000000000
--- a/testautomation/spreadsheet/required/includes/c_upd_formatmenu3.inc
+++ /dev/null
@@ -1,1051 +0,0 @@
-'encoding UTF-8  Do not remove or change this line!
-'**************************************************************************
-' DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER.
-'
-' Copyright 2000, 2010 Oracle and/or its affiliates.
-'
-' OpenOffice.org - a multi-platform office productivity suite
-'
-' This file is part of OpenOffice.org.
-'
-' OpenOffice.org is free software: you can redistribute it and/or modify
-' it under the terms of the GNU Lesser General Public License version 3
-' only, as published by the Free Software Foundation.
-'
-' OpenOffice.org is distributed in the hope that it will be useful,
-' but WITHOUT ANY WARRANTY; without even the implied warranty of
-' MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
-' GNU Lesser General Public License version 3 for more details
-' (a copy is included in the LICENSE file that accompanied this code).
-'
-' You should have received a copy of the GNU Lesser General Public License
-' version 3 along with OpenOffice.org.  If not, see
-' <http://www.openoffice.org/license.html>
-' for a copy of the LGPLv3 License.
-'
-'/***********************************************************************
-'*
-'* owner : oliver.craemer@oracle.com
-'*
-'* short description : Resource Test - Format Menu Part III
-'*
-'\***********************************************************************
-
-sub c_upd_formatmenu3
-
-    Printlog Chr(13) + "--------- Format Menu Part III (c_upd_formatmenu3.inc) ---------"
-    
-    call tFormatGraphicPositionAndSize
-    call tFormatGraphicLine
-    call tFormatGraphicArea
-    call tFormatGraphicText
-    call tFormatGraphicPoints
-
-end sub
-
-'-----------------------------------------------------------
-
-testcase tFormatGraphicPositionAndSize
-'///<u><b>Format - Graphic – Position and Size</b></u>
-
-    '/// Load document from 'gTesttoolPath + "spreadsheet\required\input\twoobjects.ods"'
-    printlog " Load document from 'gTesttoolPath + spreadsheet\required\input\twoobjects.ods"
-    hFileOpenLocally( gTesttoolPath + "spreadsheet\required\input\twoobjects.ods" )
-    '/// Select first object by Navigator
-    printlog " Select first object by Navigator"
-    Call fNavigatorSelectObject ("drawing objects", 1)
-    '/// Open 'Position and Size' – dialog by 'Format – Graphic – Position and Size'
-    printlog " Open 'Position and Size' – dialog by 'Format – Graphic – Position and Size'"
-    FormatTransform
-    
-    printlog
-    '/// Switch to tabpage 'Position and Size'
-    printlog " Switch to tabpage 'Position and Size'"
-    Kontext
-    Active.SetPage TabPositionAndSize
-    Kontext "TabPositionAndSize"
-    Call DialogTest ( TabPositionAndSize )
-    '/// Uncheck 'Position'
-    printlog " Uncheck 'Position'"
-    ProtectPosition.Uncheck
-    '/// Check 'Size'
-    printlog " Uncheck 'Size'"
-    ProtectSize.Uncheck
-    '/// Increase 'Position X'
-    printlog " Increase 'Position X'"
-    PositionX.More
-    '/// Decrease 'Position Y'
-    printlog " Decrease 'Position Y'"
-    PositionY.Less
-    '/// Increase 'Width'
-    printlog " Increase 'Width'"
-    Width.More
-    '/// Decrease 'Height'
-    printlog " Decrease 'Height'"
-    Height.Less
-    '/// Check 'Keep ratio'
-    printlog " Check 'Keep ratio'"
-    KeepRatio.Check
-    
-    printlog ""
-    '/// Switch to tabpage 'Rotation'
-    printlog " Switch to tabpage 'Rotation'"
-    Kontext
-    Active.SetPage TabDrehung
-    Kontext "TabDrehung"
-    Call DialogTest ( TabDrehung )
-    '/// Increase 'Position X'
-    printlog " Increase 'Position X'"
-    PositionX.More
-    '/// Decrease 'Position Y'
-    printlog " Decrease 'Position Y'"
-    PositionY.Less
-    '/// Increase 'Angle'
-    printlog " Increase 'Angle'"
-    Winkel.More
-    '/// Switch to tabpage 'Slant & Corner Radius'
-    printlog " Switch to tabpage 'Slant & Corner Radius'"
-    Kontext
-    Active.SetPage TabSchraegstellen
-    Kontext "TabSchraegstellen"
-    Call DialogTest ( TabSchraegstellen )
-    '/// Increase radius
-    printlog " Increase radius"
-    Radius.More
-    '/// Increase angle
-    printlog " Increase angle"
-    Winkel.More
-    '/// Close 'Position and Size' – dialog by 'Cancel'
-    printlog " Close 'Position and Size' – dialog by 'Cancel'"
-    TabSchraegstellen.Close
-    '/// Close document
-    printlog " Close document"
-    call hCloseDocument
-    hFileDelete( gLastWorkFile )
-
-endcase
-
-'-----------------------------------------------------------
-
-testcase tFormatGraphicLine
-'///<u><b>Format - Graphic - Line</b></u>
-
-    Dim sTitle as string
-
-    '/// Load document from 'gTesttoolPath + "spreadsheet\required\input\twoobjects.ods"'
-    printlog " Load document from 'gTesttoolPath + spreadsheet\required\input\twoobjects.ods"
-    hFileOpenLocally( gTesttoolPath & "spreadsheet\required\input\twoobjects.ods" )
-    
-    '/// Select first object by Navigator
-    printlog " Select first object by Navigator"
-    Call fNavigatorSelectObject ("drawing objects", 1)
-    '/// Open 'Format – Line' dialog by 'Format – Graphic – Line'
-    printlog " Open 'Format – Line' dialog by 'Format – Graphic – Line'"
-    FormatLine
-    '/// Switch to tabpage 'Line'
-    printlog " Switch to tabpage 'Line'"
-    Kontext
-    active.setpage TabLinie
-    Kontext "TabLinie"
-    Call DialogTest ( TabLinie )
-    '/// Verify that the 'Style' listbox for 'Line properties' is not empty
-    printlog " Verify that the 'Style' listbox for 'Line properties' is not empty"
-    If Stil.GetItemCount < 1 then
-        warnlog "The listbox for styles is empty"
-    end if
-    '/// Verify that the 'Color' listbox for 'Line properties' is not empty
-    printlog " Verify that the 'Color' listbox for 'Line properties' is not empty"
-    If Farbe.GetItemCount < 1 then
-        warnlog "The listbox for colors is empty"
-    end if
-    '/// Increase 'Width'
-    printlog " Increase 'Width'"
-    Breite.More
-    '/// Increase 'Transparency'
-    printlog " Increase 'Transparency'"
-    Transparenz.More
-    '/// Uncheck 'Synchronize ends'
-    printlog " Uncheck 'Synchronize ends'"
-    EndenSynchronisieren.Uncheck
-    '/// Verify that the left 'Style' listbox for 'Arrow Styles' is not empty
-    printlog " Verify that the left 'Style' listbox for 'Arrow Styles' is not empty"
-    If StilLinks.GetItemCount < 1 then
-        warnlog "The listbox for styles is empty"
-    end if
-    printlog "Choose second entry"
-    StilLinks.Select 2
-    '/// Verify that the right 'Style' listbox for 'Arrow Styles' is not empty
-    printlog " Verify that the right 'Style' listbox for 'Arrow Styles' is not empty"
-    If StilRechts.GetItemCount < 1 then
-        warnlog "The listbox for styles is empty"
-    end if
-    printlog "Choose second entry"
-    StilRechts.Select 2
-    '/// Check the left 'Center' checkbox
-    printlog " Check the left 'Center' checkbox"
-    ZentriertLinks.Check
-    '/// Check the right 'Center' checkbox
-    printlog " Check the right 'Center' checkbox"
-    ZentriertRechts.Check
-    '/// Verify that the 'Style' listbox for 'Corner Style' is not empty
-    printlog " Verify that the 'Style' listbox for 'Corner Style' is not empty"
-    If CornerStyle.GetItemCount < 1 then
-        warnlog "The listbox for styles is empty"
-    end if
-    
-    printlog ""
-    '/// Switch to tabpage 'Line Styles'
-    printlog " Switch to tabpage 'Line Styles'"
-    Kontext
-    active.setpage TabLinienstile
-    Kontext "TabLinienstile"
-    Call DialogTest ( TabLinienstile )
-    '/// Verify that the 'Line Style' listbox is not empty
-    printlog " Verify that the 'Line Style' listbox is not empty"
-    If Linienstil.GetItemCount < 1 then
-        warnlog "The listbox for styles is empty"
-    end if
-    '/// Choose first entry in left 'Type' listbox
-    printlog " Choose second entry in left 'Type' listbox"
-    TypLinks.Select 2
-    '/// Choose second entry in right 'Type' listbox
-    printlog " Choose second entry in right 'Type' listbox"
-    TypRechts.Select 2
-    '/// Increase left 'Number'
-    printlog " Increase left 'Number'"
-    AnzahlLinks.More
-    '/// Decrease right 'Number'
-    printlog " Decrease right 'Number'"
-    AnzahlRechts.Less
-    '/// Increase left 'Length'
-    printlog " Increase left 'Length'"
-    LaengeLinks.More
-    '/// Decrease right 'Length'
-    printlog " Decrease right 'Length'"
-    LaengeRechts.Less
-    '/// Increase 'Spacing'
-    printlog " Increase 'Spacing'"
-    Abstand.More
-    '/// Check 'Fit to line width'
-    printlog " Check 'Fit to line width'"
-    AnLinienbreite.Check
-    '/// Press 'Add' button
-    printlog " Press 'Add' button"
-    Hinzufuegen.Click
-    Kontext "NameDlg"
-    Call DialogTest ( NameDlg )
-    '/// Enter string 'Testlinestyle'
-    printlog " Enter string 'Testlinestyle'"
-    Eingabefeld.SetText "Testlinestyle"
-    '/// Close 'Name' dialog with 'Cancel'
-    printlog " Close 'Name' dialog with 'Cancel'"
-    NameDlg.Cancel
-    Kontext "TabLinienstile"
-    '/// Press 'Modify' button
-    printlog " Press 'Modify' button"
-    Aendern.Click
-    Kontext "NameDlg"
-    '/// Close 'Name' dialog with 'Cancel'
-    printlog " Close 'Name' dialog with 'Cancel'"
-    NameDlg.Cancel
-    Kontext "TabLinienstile"
-    '/// Press 'Delete' button
-    printlog " Press 'Delete' button"
-    Loeschen.Click
-    Kontext "Active"
-    '/// Close messagebox with 'No'
-    printlog " Close messagebox with 'No'"
-    Active.No
-    Kontext "TabLinienstile"
-    '/// Press 'Open' button
-    printlog " Press 'Open' button"
-    Oeffnen.click
-    Kontext "OeffnenDlg"
-    '/// Close 'Open' dialog with 'Cancel'
-    printlog " Close 'Open' dialog with 'Cancel'"
-    OeffnenDlg.Cancel
-    Kontext "TabLinienstile"
-    '/// Press 'Save' button
-    printlog " Press 'Save' button"
-    Speichern.click
-    Kontext "SpeichernDlg"
-    '/// Close 'Save' dialog with 'Cancel'
-    printlog " Close 'Save' dialog with 'Cancel'"
-    SpeichernDlg.Cancel
-    Kontext "TabLinienstile"
-    
-    printlog ""
-    '/// Switch to tabpage 'Arrow Styles'
-    printlog " Switch to tabpage 'Arrow Styles'"
-    Kontext
-    active.setpage TabLinienenden
-    Kontext "Active"
-    If Active.Exists then 
-        Kontext "Linienstil"
-        Linienstil.Cancel
-    end if
-    Kontext "TabLinienenden"
-    Call DialogTest ( TabLinienenden )
-    '/// Set 'Titel' to 'Test'
-    printlog " Set 'Titel' to 'Test'"
-    'To get the Office back to the default the title must be memorized for restoring
-    sTitle = Textfeld.GetText
-    Textfeld.SetText "Test"
-    '/// Verify that the 'Arrow style' listbox is not empty
-    printlog " Verify that the 'Arrow style' listbox is not empty"
-    If Liste.GetItemCount < 1 then
-        warnlog "The style listbox is empty"
-    end if
-    '/// Press 'Add' button
-    printlog " Press 'Add' button"
-    Hinzufuegen.click
-    Kontext "NameDlg"
-    '/// Enter string 'Testlinestyle'
-    printlog " Enter string 'Testlinestyle'"
-    Eingabefeld.SetText "Testlinestyle"
-    '/// Close 'Name' dialog with 'Cancel'
-    printlog " Close 'Name' dialog with 'Cancel'"
-    NameDlg.Cancel
-    Kontext "TabLinienenden"
-    '/// Press 'Modify' button
-    printlog " Press 'Modify' button"
-    Aendern.Click
-    '/// Press 'Modify' button again
-    printlog " Press 'Modify' button again"
-    Aendern.Click
-    '/// Close messagebox with 'OK'
-    printlog " Close messagebox with 'OK'"
-    Kontext
-    if Active.exists (2) then
-        active.OK
-    end if
-    Kontext "NameDlg"
-    '/// Enter original title to restore defaults
-    printlog " Enter original title to restore defaults"
-    Eingabefeld.SetText sTitle
-    '/// Close 'Name' dialog with 'OK'
-    printlog " Close 'Name' dialog with 'OK'"
-    NameDlg.OK
-    Kontext "TabLinienenden"
-    '/// Press 'Delete' button
-    printlog " Press 'Delete' button"
-    Loeschen.Click
-    Kontext "Active"
-    '/// Close messagebox with 'No'
-    printlog " Close messagebox with 'No'"
-    active.no
-    Kontext "TabLinienenden"
-    '/// Press 'Open' button
-    printlog " Press 'Open' button"
-    Oeffnen.Click
-    Kontext "OeffnenDLG"
-    Kontext "Active"
-    If Active.Exists then 
-        Active.No
-    end if
-    Kontext "OeffnenDLG"
-    '/// Close 'Open' dialog with 'Cancel'
-    printlog " Close 'Open' dialog with 'Cancel'"
-    OeffnenDLG.Cancel
-    Kontext "TabLinienenden"
-    '/// Press 'Save' button
-    printlog " Press 'Save' button"
-    Speichern.click
-    Kontext "SpeichernDLG"
-    '/// Close 'Save' dialog with 'Cancel'
-    printlog " Close 'Save' dialog with 'Cancel'"
-    SpeichernDLg.Cancel
-    Kontext "TabLinienenden"
-    '/// Close dialog with 'Cancel'
-    printlog " Close dialog with 'Cancel'"
-    TabLinienenden.Cancel
-    '/// Close document
-    printlog " Close document"
-    Call hCloseDocument
-    hFileDelete( gLastWorkFile )
-
-endcase
-
-'-----------------------------------------------------------
-
-testcase tFormatGraphicArea
-'///<u><b>Format -  - Graphic - Area</b></u>
-
-    '/// Load document from 'gTesttoolPath + "spreadsheet\required\input\twoobjects.ods"'
-    printlog " Load document from 'gTesttoolPath + spreadsheet\required\input\twoobjects.ods"
-    hFileOpenLocally( gTesttoolPath & "spreadsheet\required\input\twoobjects.ods" )
-    '/// Select first object by Navigator
-    printlog " Select first object by Navigator"
-    Call fNavigatorSelectObject ("drawing objects", 1)
-    '/// Open 'Format – Area' dialog by 'Format – Area'
-    printlog " Open 'Format – Area' dialog by 'Format – Area'"
-    FormatArea
-    
-    printlog ""
-    '/// Switch to tabpage 'Area'
-    printlog " Switch to tabpage 'Area'"
-    Kontext
-    active.SetPage TabArea
-    Kontext "TabArea" 
-    '/// Choose first entry (None) in 'Fill' listbox
-    printlog " Choose first entry (None) in 'Fill' listbox"
-    FillOptions.Select 1
-    Call DialogTest ( TabArea,1 )
-    '/// Choose second entry (Color) in 'Fill' listbox
-    printlog " Choose second entry (Color) in 'Fill' listbox"
-    FillOptions.Select 2
-    Call DialogTest ( TabArea,2 )
-    '/// Verify that the 'Color' listbox has items
-    printlog " Verify that the 'Color' listbox has items"
-    If ColourList.GetItemCount < 1 then 
-        warnlog "The color list is empty"
-    end if
-    '/// Choose third entry (Gradient) in 'Fill' listbox
-    printlog " Choose third entry (Gradient) in 'Fill' listbox"
-    FillOptions.Select 3
-    Call DialogTest ( TabArea,3 )
-    '/// Verify that the 'Gradient' listbox has items
-    printlog " Verify that the 'Gradient' listbox has items"
-    If GradientList.GetItemCount < 1 then 
-        warnlog "The gradient list is empty"
-    end if
-    '/// Uncheck 'Automatic'
-    printlog " Uncheck 'Automatic'"
-    Automatic.UnCheck
-    '/// Increase 'Increments'
-    printlog " Increase 'Increments'"
-    Increments.More
-    '/// Choose fourth entry (Hatching) in 'Fill' listbox
-    printlog " Choose fourth entry (Hatching) in 'Fill' listbox"
-    FillOptions.Select 4
-    Call DialogTest ( TabArea,4 )
-    '/// Verify that the 'Hatching' listbox has items
-    printlog " Verify that the 'Hatching' listbox has items"
-    If HatchingList.GetItemCount < 1 then 
-        warnlog "The hatching list is empty"
-    end if
-    '/// Check 'Background color'
-    printlog " Check 'Background color'"
-    BackgroundColour.Check
-    '/// Verify that the 'Color' listbox has items
-    printlog " Verify that the 'Color' listbox has items"
-    If BackgroundColourList.GetItemCount < 1 then 
-        warnlog "The color list is empty"
-    end if
-    '/// Choose fifth entry (Bitmaps) in 'Fill' listbox
-    printlog " Choose fifth entry (Bitmaps) in 'Fill' listbox"
-    FillOptions.Select 5
-    Call DialogTest ( TabArea,5 )
-    '/// Verify that the 'Bitmap' listbox has items
-    printlog " Verify that the 'Bitmap' listbox has items"
-    If BitmapList.GetItemCount < 1 then 
-        warnlog "The bitmap list is empty"
-    end if
-    '/// Uncheck 'Original'
-    printlog " Uncheck 'Original'"
-    Original.UnCheck
-    '/// Increase 'Width'
-    printlog " Increase 'Width'"
-    Width.More
-    '/// Check 'Relative'
-    printlog " Check 'Relative'"
-    Relative.Check
-    '/// Decrease 'Height'
-    printlog " Decrease 'Height'"
-    Height.Less
-    '/// Check 'Tile'
-    printlog " Check 'Tile'"
-    Tile.Check
-    '/// Increase 'X Offset'
-    printlog " Increase 'X Offset'"
-    XOffset.More
-    '/// Increase 'Y Offset'
-    printlog " Increase 'Y Offset'"
-    YOffset.More
-    '/// Uncheck 'Tile'
-    printlog " Uncheck 'Tile'"
-    Tile.UnCheck
-    '/// Uncheck 'AutoFit'
-    printlog " Uncheck 'AutoFit'"
-    Stretch.UnCheck
-    '/// Check 'Tile'
-    printlog " Check 'Tile'"
-    Tile.Check
-    '/// Check 'Row'
-    printlog " Check 'Row'"
-    Row.Check
-    '/// Check 'Column'
-    printlog " Check 'Column'"
-    Column.Check
-    '/// Increase percentvalue
-    printlog " Increase percentvalue"
-    Offset.More
-
-    printlog ""
-    '/// Switch to tabpage 'Shadow'
-    printlog " Switch to tabpage 'Shadow'"
-    Kontext
-    active.SetPage TabSchatten
-    kontext "TabSchatten"
-    Call DialogTest ( TabSchatten )
-    '/// Check 'Use shadow'
-    printlog " Check 'Use shadow'"
-    Anzeigen.Check
-    '/// Increase 'Distance'
-    printlog " Increase 'Distance'"
-    Entfernung.More
-    '/// Verify that the 'Color' listbox has items
-    printlog " Verify that the 'Color' listbox has items"
-    if Farbe.getItemCount < 1 then
-        warnlog "The listbox for colors is empty"
-    end if
-    '/// Increase 'Transparency'
-    printlog " Increase 'Transparency'"
-    Transparenz.More
-
-    printlog ""
-    '/// Switch to tabpage 'Transparency'
-    printlog " Switch to tabpage 'Transparency'"
-    Kontext
-    active.SetPage TabTransparenz
-    Kontext "TabTransparenz"
-    Call DialogTest ( TabTransparenz )
-    '/// Check 'Transparency'
-    printlog " Check 'Transparency'"
-    LineareTransparenz.Check
-    '/// Increase percentvalue
-    printlog " Increase percentvalue"
-    MFLinTransparenz.More
-    '/// Check 'Gradient'
-    printlog " Check 'Gradient'"
-    Transparenzverlauf.Check
-    '/// Choose last entry (Square) for 'Type'
-    printlog " Choose last entry (Square) for 'Type'"
-    TransparenzverlaufTyp.Select 6
-    '/// Increase 'Center X'
-    printlog " Increase 'Center X'"
-    MFZentrumX.More
-    '/// Decrease 'Center Y'
-    printlog " Decrease 'Center Y'"
-    MFZentrumY.Less
-    '/// Increase 'Angle'
-    printlog " Increase 'Angle'"
-    MFWinkel.More
-    '/// Increase 'Border'
-    printlog " Increase 'Border'"
-    MFRand.More
-    '/// Increase 'Start value'
-    printlog " Increase 'Start value'"
-    MFStartwert.More
-    '/// Decrease 'End value'
-    printlog " Decrease 'End value'"
-    MFEndwert.Less
-
-    printlog ""
-    '/// Switch to tabpage 'Colors'
-    printlog " Switch to tabpage 'Colors'"
-    Kontext
-    active.SetPage TabFarben
-    Kontext "TabFarben"
-    Call DialogTest ( TabFarben )
-    '/// Enter colorname 'Color_added_by_Testtool'
-    printlog " Enter colorname 'Color_added_by_Testtool'"
-    FarbName.SetText "Color_added_by_Testtool"
-    '/// Verify that the color listbox is not empty
-    printlog " Verify that the color listbox is not empty"
-    if Farbe.getItemCount < 1 then
-        warnlog "The listbox for colors is empty"
-    end if
-    '/// Choose RGB
-    printlog " Choose RGB"
-    Farbmodell.Select 1
-    '/// Increase 'R'
-    printlog " Increase 'R'"
-    R.More
-    '/// Decrease 'G'
-    printlog " Decrease 'G'"
-    G.Less
-    '/// Increase 'B'
-    printlog " Increase 'B'"
-    B.More
-    '/// Choose 'CMYK'
-    printlog " Choose 'CMYK'"
-    Farbmodell.Select 2
-    '/// Increase 'C'
-    printlog " Increase 'C'"
-    C.More
-    '/// Decrease 'M'
-    printlog " Decrease 'M'"
-    M.Less
-    '/// Increase 'Y'
-    printlog " Increase 'Y'"
-    Y.More
-    '/// Decrease 'K'
-    printlog " Decrease 'K'"
-    K.Less
-    '/// Press 'Add' button
-    printlog " Press 'Add' button"
-    Hinzufuegen.Click
-    '/// Press 'Modify' button
-    printlog " Press 'Modify' button"
-    Aendern.Click
-    '/// Press 'Edit' button
-    printlog " Press 'Edit' button"
-    Bearbeiten.Click
-    Kontext "FarbeDlg"
-    Call DialogTest ( FarbeDlg )
-    '/// Increase 'Cyan'
-    printlog " Increase 'Cyan'"
-    Cyan.More
-    '/// Decrease 'Magenta'
-    printlog " Decrease 'Magenta'"
-    Magenta.Less
-    '/// Increase 'Yellow'
-    printlog " Increase 'Yellow'"
-    Yellow.More
-    '/// Decrease 'Key'
-    printlog " Decrease 'Key'"
-    Key.Less
-    '/// Increase 'Red'
-    printlog " Increase 'Red'"
-    Rot.More
-    '/// Decrease 'Green'
-    printlog " Decrease 'Green'"
-    Gruen.Less
-    '/// Increase 'Blue'
-    printlog " Increase 'Blue'"
-    Blau.More
-    '/// Increase 'Hue'
-    printlog " Increase 'Hue'"
-    Farbton.More
-    '/// Decrease 'Saturation'
-    printlog " Decrease 'Saturation'"
-    Saettigung.Less
-    '/// Increase 'Brightness'
-    printlog " Increase 'Brightness'"
-    Hell.More
-    '/// Press left arrow button
-    printlog " Press left arrow button"
-    Links.Click
-    '/// Press right arrow button
-    printlog " Press right arrow button"
-    Rechts.Click
-    '/// Close dialog with 'Cancel'
-    printlog " Close dialog with 'Cancel'"
-    FarbeDlg.Cancel
-    Kontext "TabFarben"
-    '/// Press 'Delete' button
-    printlog " Press 'Delete' button"
-    Loeschen.Click
-    '/// Close messagebox with 'Yes'
-    printlog " Close messagebox with 'Yes'"
-    Kontext "Active"
-    Active.Yes
-    Kontext "TabFarben"
-    '/// Press 'Open' button to open 'File open' dialog
-    printlog " Press 'Open' button to open 'File open' dialog"
-    Oeffnen.click
-    '/// A messagebox that the modified list is not saved appears. Click 'No'
-    printlog " A messagebox that the modified list is not saved appears. Click 'No'"
-    Kontext "Active"
-    Active.No
-    '/// Close 'Open' dialog with 'Cancel'
-    printlog " Close 'Open' dialog with 'Cancel'"
-    Kontext "OeffnenDLG"
-    OeffnenDLG.Cancel
-    Kontext "TabFarben"
-    '/// Press 'Save' button to open 'Save as' dialog
-    printlog " Press 'Save' button to open 'Save as' dialog"
-    Speichern.Click
-    Kontext "SpeichernDLG"
-    '/// Close 'Save' dialog with 'Cancel'
-    printlog " Close 'Save' dialog with 'Cancel'"
-    SpeichernDLG.Cancel
-
-    printlog ""
-    '/// Switch to tabpage 'Gradients'
-    printlog " Switch to tabpage 'Gradients'"
-    Kontext
-    active.SetPage TabFarbverlaeufe
-    Kontext "TabFarbverlaeufe"
-    '/// Choose last entry (Rectangular) in 'Type' listbox
-    printlog " Choose last entry (Rectangular) in 'Type' listbox"
-    Typ.Select 6
-    '/// Increase 'Center X'
-    printlog " Increase 'Center X'"
-    ZentrumX.More
-    '/// Decrease 'Center Y'
-    printlog " Decrease 'Center Y'"
-    ZentrumY.Less
-    '/// Increase 'Angle'
-    printlog " Increase 'Angle'"
-    Winkel.More
-    '/// Increase 'Border'
-    printlog " Increase 'Border'"
-    Rand.More
-    '/// Choose second entry in 'From' listbox
-    printlog " Choose second entry in 'From' listbox"
-    Von.Select 2
-    '/// Decrease percentvalue
-    printlog " Decrease percentvalue"
-    VonWert.Less
-    '/// Choose fifth entry in 'To' listbox
-    printlog " Choose fifth entry in 'To' listbox"
-    Bis.Select 5
-    '/// Decrease percentvalue
-    printlog " Decrease percentvalue"
-    BisWert.Less
-    '/// Press 'Add' button to open 'Name' dialog
-    printlog " Press 'Add' button to open 'Name' dialog"
-    Hinzufuegen.Click
-    Kontext "NameDlg"
-    '/// Close 'name' dialog with 'Cancel'
-    printlog " Close 'name' dialog with 'Cancel'"
-    NameDlg.Cancel
-    Kontext "TabFarbverlaeufe"
-    '/// Press 'Modify' button to open 'Name' dialog
-    printlog " Press 'Modify' button to open 'Name' dialog"
-    Aendern.Click
-    Kontext "NameDlg"
-    '/// Close 'name' dialog with 'Cancel'
-    printlog " Close 'name' dialog with 'Cancel'"
-    NameDlg.Cancel
-    Kontext "TabFarbverlaeufe"
-    '/// Press 'Delete' button
-    printlog " Press 'Delete' button"
-    Loeschen.Click
-    '/// Close messagebox with 'No'
-    printlog " Close messagebox with 'No'"
-    kontext
-    active.no
-    Kontext "TabFarbverlaeufe"
-    '/// Press 'Open' button to open 'File open' dialog
-    printlog " Press 'Open' button to open 'File open' dialog"
-    Oeffnen.Click
-    Kontext "OeffnenDLG"
-    '/// Close 'Open' dialog with 'Cancel'
-    printlog " Close 'Open' dialog with 'Cancel'"
-    OeffnenDLG.Cancel
-    Kontext "TabFarbverlaeufe"
-    '/// Press 'Save' button to open 'Save as' dialog
-    printlog " Press 'Save' button to open 'Save as' dialog"
-    Speichern.Click
-    Kontext "SpeichernDLG"
-    '/// Close 'Save' dialog with 'Cancel'
-    printlog " Close 'Save' dialog with 'Cancel'"
-    SpeichernDLG.Cancel
-
-    printlog ""
-    '/// Switch to tabpage 'Hatching'
-    printlog " Switch to tabpage 'Hatching'"
-    Kontext
-    active.SetPage TabSchraffuren
-    Kontext "TabSchraffuren"
-    '/// If a messagebox appears, close messagebox with 'Cancel'
-    printlog " If a messagebox appears, close messagebox with 'Cancel'"
-    Kontext
-    Kontext "Active"
-    If Active.Exists then 
-        Kontext "Linienstil"
-        Linienstil.Cancel
-    end if
-    Kontext "TabSchraffuren"
-    '/// Verify that there are sample hatchings
-    printlog " Verify that there are sample hatchings"
-    If Tabelle.GetItemCount < 1 then
-        warnlog "There are no hatchings available"
-    end if
-    '/// Decrease 'Spacing'
-    printlog " Decrease 'Spacing'"
-    Abstand.Less
-    '/// Increase 'Angle'
-    printlog " Increase 'Angle'"
-    Winkel.More
-    '/// Verify that the 'Line type' listbox has three entries
-    printlog " Verify that the 'Line type' listbox has three entries"
-    If Linientyp.GetItemCount < 1 then
-        warnlog "There are no linetypes available"
-    end if
-    '/// Verify that the color listbox is not empty
-    printlog " Verify that the color listbox is not empty"
-    If Linienfarbe.GetItemCount < 1 then
-        warnlog "There are no linecolors available"
-    end if
-    '/// Press 'Add' button to open 'Name' dialog
-    printlog " Press 'Add' button to open 'Name' dialog"
-    Hinzufuegen.Click
-    '/// Close 'name' dialog with 'Cancel'
-    printlog " Close 'name' dialog with 'Cancel'"
-    Kontext "NameDlg"
-    NameDlg.Cancel
-    Kontext "TabSchraffuren"
-    '/// Press 'Modify' button to open 'Name' dialog
-    printlog " Press 'Modify' button to open 'Name' dialog"
-    Aendern.Click
-    '/// Close 'name' dialog with 'Cancel'
-    printlog " Close 'name' dialog with 'Cancel'"
-    Kontext "NameDlg"
-    NameDlg.Cancel
-    Kontext "TabSchraffuren"
-    '/// Press 'Delete' button
-    printlog " Press 'Delete' button"
-    Loeschen.Click
-    '/// Close messagebox with 'No'
-    printlog " Close messagebox with 'No'"
-    Kontext
-    if Active.exists then 
-        Active.no
-    end if
-    Kontext "TabSchraffuren"
-    '/// Press 'Open' button to open 'File open' dialog
-    printlog " Press 'Open' button to open 'File open' dialog"
-    Oeffnen.Click
-    Kontext "OeffnenDLG"
-    '/// Close 'Open' dialog with 'Cancel'
-    printlog " Close 'Open' dialog with 'Cancel'"
-    OeffnenDLG.Cancel
-    Kontext "TabSchraffuren"
-    '/// Press 'Save' button to open 'Save as' dialog
-    printlog " Press 'Save' button to open 'Save as' dialog"
-    Speichern.Click
-    '/// Close 'Save' dialog with 'Cancel'
-    printlog " Close 'Save' dialog with 'Cancel'"
-    Kontext "SpeichernDLG"
-    SpeichernDLG.Cancel
-    
-    printlog ""
-    '/// Switch to tabpage 'Bitmaps'
-    printlog " Switch to tabpage 'Bitmaps'"
-    Kontext
-    active.SetPage TabBitmap
-    Kontext "TabBitmap"
-    '/// If a messagebox appears, close messagebox with 'Cancel'
-    printlog " If a messagebox appears, close messagebox with 'Cancel'"
-    Kontext
-    Kontext "Active"
-    If Active.Exists then 
-        Kontext "Linienstil"
-        Linienstil.Cancel
-    end if
-    Kontext "TabBitmap"
-    Call DialogTest ( TabBitmap )
-    '/// Verify that the listbox for 'Foreground color' is not empty
-    printlog " Verify that the listbox for 'Foreground color' is not empty"
-    If Vordergrund.GetItemCount < 1 then
-        warnlog "There are no colors available"
-    end if
-    '/// Verify that the listbox for Background color' is not empty
-    printlog " Verify that the listbox for Background color' is not empty"
-    If Hintergrund.GetItemCount < 1 then
-        warnlog "There are no colors available"
-    end if
-    '/// Verify that the listbox for Bitmaps is not empty
-    printlog " Verify that the listbox for Bitmaps is not empty"
-    If Tabelle.GetItemCount < 1 then
-        warnlog "There are no Bitmaps available"
-    end if
-    '/// Press 'Add' button to open 'Name' dialog
-    printlog " Press 'Add' button to open 'Name' dialog"
-    Hinzufuegen.Click
-    '/// Close 'name' dialog with 'Cancel'
-    printlog " Close 'name' dialog with 'Cancel'"
-    Kontext "NameDlg"
-    NameDlg.Cancel
-    Kontext "TabBitmap"
-    '/// Press 'Modify' button to open 'Name' dialog
-    printlog " Press 'Modify' button to open 'Name' dialog"
-    Aendern.Click
-    '/// Close 'name' dialog with 'Cancel'
-    printlog " Close 'name' dialog with 'Cancel'"
-    Kontext "NameDlg"
-    NameDlg.Cancel
-    Kontext "TabBitmap"
-    '/// Press 'Import' button to open 'Import' dialog
-    printlog " Press 'Import' button to open 'Import' dialog"
-    Import.Click
-    Kontext "GrafikEinfuegenDlg"
-    '/// Close 'Import' dialog with 'Cancel'
-    printlog " Close 'Import' dialog with 'Cancel'"
-    GrafikEinfuegenDlg.Cancel
-    Kontext "TabBitmap"
-    '/// Press 'Delete' button
-    printlog " Press 'Delete' button"
-    Loeschen.Click
-    '/// Close messagebox with 'No'
-    printlog " Close messagebox with 'No'"
-    Kontext
-    if Active.exists then 
-        Active.no
-    end if
-    Kontext "TabBitmap"
-    '/// Press 'Open' button to open 'File open' dialog
-    printlog " Press 'Open' button to open 'File open' dialog"
-    Oeffnen.Click
-    '/// If a messagebox appears, close messagebox with 'No'
-    printlog " If a messagebox appears, close messagebox with 'No'"
-    Kontext "OeffnenDLG"
-    '/// Close 'Open' dialog with 'Cancel'
-    printlog " Close 'Open' dialog with 'Cancel'"
-    OeffnenDLG.Cancel
-    Kontext "TabBitmap"
-    '/// Press 'Save' button to open 'Save as' dialog
-    printlog " Press 'Save' button to open 'Save as' dialog"
-    Speichern.Click
-    Kontext "SpeichernDLG"
-    '/// Close 'Save' dialog with 'Cancel'
-    printlog " Close 'Save' dialog with 'Cancel'"
-    SpeichernDLG.Cancel
-
-    printlog ""
-    '/// Close 'Area' dialog with 'Cancel'
-    printlog " Close 'Area' dialog with 'Cancel'"
-    Kontext "TabBitmap"
-    TabBitmap.Cancel
-
-    '/// Close document
-    printlog " Close document"
-    Call hCloseDocument
-    hFileDelete( gLastWorkFile )
-
-endcase
-
-'-----------------------------------------------------------
-
-testcase tFormatGraphicText
-'///<u><b>Format - Graphic - Text</b></u>
-
-    '/// Load document from 'gTesttoolPath + "spreadsheet\required\input\twoobjects.ods"'
-    printlog " Load document from 'gTesttoolPath + spreadsheet\required\input\twoobjects.ods"
-    hFileOpenLocally( gTesttoolPath & "spreadsheet\required\input\twoobjects.ods" )
-    '/// Select first object by Navigator
-    printlog " Select first object by Navigator"
-    Call fNavigatorSelectObject ("drawing objects", 1)
-    '/// Open 'Format – Line' dialog by 'Format – Graphic – Line'
-    printlog " Open 'Format – Text' dialog by 'Format – Graphic – Text'"
-    FormatTextCalc
-    '/// Switch to tabpage 'Text'
-    printlog " Switch to tabpage 'Text'"
-    Kontext
-    Active.SetPage TabText
-    Kontext "TabText"
-    Call DialogTest ( TabText )
-    '/// Verify that 'Fit width to text' is disabled
-    printlog " Verify that 'Fit width to text' is disabled"
-    If BreiteAnTextAnpassen.IsEnabled then
-        warnlog "Fit width to text is enabled"
-    end if
-    '/// Verify that 'Fit heights to text' is disabled
-    printlog " Verify that 'Fit heights to text' is disabled"
-    If HoeheAnTextAnpassen.IsEnabled then
-        warnlog "Fit heights to text is enabled"
-    end if
-    '/// Verify that 'Word wrap text in shape' is disabled
-    printlog " Verify that 'Word wrap text in shape' is disabled"
-    If WordWrap.IsEnabled then
-        warnlog "Word wrap text in shape is enabled"
-    end if
-    '/// Verify that 'Resize shape to fit text' is disabled
-    printlog " Verify that 'Resize shape to fit text' is disabled"
-    If ResizeShape.IsEnabled then
-        warnlog "Resize shape to fit textt is enabled"
-    end if
-    '/// Uncheck 'Fit to frame'
-    printlog " Uncheck 'Fit to frame'"
-    AmRahmenAnpassen.UnCheck
-    '/// Uncheck 'Adjust to contour'
-    printlog " Uncheck 'Adjust to contour'"
-    Konturfluss.UnCheck
-    '/// Increase 'Spacing Left'
-    printlog " Increase 'Spacing Left'"
-    Links.More
-    '/// Increase 'Spacing Right'
-    printlog " Increase 'Spacing Right'"
-    Rechts.More
-    '/// Increase 'Spacing Top'
-    printlog " Increase 'Spacing Top'"
-    Oben.More
-    '/// Increase 'Spacing Bottom'
-    printlog " Increase 'Spacing Bottom'"
-    Unten.More
-    '/// Check 'Full Width'
-    printlog " Check 'Full Width'"
-    GanzeBreite.Check
-    
-    '/// Switch to tabpage 'Text Animation'
-    printlog " Switch to tabpage 'Text Animation'"
-    Kontext
-    Active.SetPage TabLauftext
-    Kontext "TabLauftext"
-    Call DialogTest ( TabLauftext )
-    '/// Choose 'Effect' 4 (Scroll back and forth)
-    Effekt.Select 4
-    '/// Click button 'Up'
-    printlog " Click button 'Up'"
-    NachOben.Click
-    '/// Click button 'Left'
-    printlog " Click button 'Left'"
-    NachLinks.Click
-    '/// Click button 'Down'
-    printlog " Click button 'Down'"
-    NachUnten.Click
-    '/// Click button 'Right'
-    printlog " Click button 'Right'"
-    NachRechts.Click
-    '/// UnCheck 'Start inside'
-    printlog " UnCheck 'Start inside'"
-    TextSichtbarBeimStarten.UnCheck
-    '/// UnCheck 'Text visible when exiting'
-    printlog " UnCheck 'Text visible when exiting'"
-    TextSichtbarBeimBeenden.UnCheck
-    '/// Uncheck 'Continous'
-    printlog " Uncheck 'Continous'"
-    Endlos.UnCheck
-    '/// Increase number
-    printlog " Increase number"
-    Anzahl.More
-    '/// Check 'Pixels'
-    printlog " Check 'Pixels'"
-    Pixel.Check
-    '/// Increase number
-    printlog " Increase number"
-    Schrittweite.More
-    '/// Uncheck 'Automatic'
-    printlog " Uncheck 'Automatic'"
-    Automatisch.UnCheck
-    '/// Increase time
-    printlog " Increase time"
-    Verzoegerung.More
-    
-    '/// Close dialog with 'Cancel'
-    printlog " Close dialog with 'Cancel'"
-    TabLauftext.Cancel
-    '/// Close document
-    printlog " Close document"
-    call hCloseDocument
-    hFileDelete( gLastWorkFile )
-
-endcase
-
-'-----------------------------------------------------------
-
-testcase tFormatGraphicPoints
-'///<u><b>Format - Graphic - Points</b></u>
-
-    '/// Load document from 'gTesttoolPath + "spreadsheet\required\input\twoobjects.ods"'
-    printlog " Load document from 'gTesttoolPath + spreadsheet\required\input\twoobjects.ods"
-    hFileOpenLocally( gTesttoolPath & "spreadsheet\required\input\twoobjects.ods" )
-    '/// Select first object by Navigator
-    printlog " Select first object by Navigator"
-    Call fNavigatorSelectObject ("drawing objects", 1)
-    '/// Toggle 'Points' by 'Format - Graphic - Points
-    FormatPointsCalc
-    FormatPointsCalc
-    '/// Close document
-    printlog " Close document"
-    call hCloseDocument
-    hFileDelete( gLastWorkFile )
-
-endcase
-
-'-----------------------------------------------------------
-
diff --git a/testautomation/spreadsheet/required/includes/c_upd_helpmenu.inc b/testautomation/spreadsheet/required/includes/c_upd_helpmenu.inc
deleted file mode 100644
index 89495d36907e..000000000000
--- a/testautomation/spreadsheet/required/includes/c_upd_helpmenu.inc
+++ /dev/null
@@ -1,119 +0,0 @@
-'encoding UTF-8  Do not remove or change this line!
-'**************************************************************************
-' DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER.
-'
-' Copyright 2000, 2010 Oracle and/or its affiliates.
-'
-' OpenOffice.org - a multi-platform office productivity suite
-'
-' This file is part of OpenOffice.org.
-'
-' OpenOffice.org is free software: you can redistribute it and/or modify
-' it under the terms of the GNU Lesser General Public License version 3
-' only, as published by the Free Software Foundation.
-'
-' OpenOffice.org is distributed in the hope that it will be useful,
-' but WITHOUT ANY WARRANTY; without even the implied warranty of
-' MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
-' GNU Lesser General Public License version 3 for more details
-' (a copy is included in the LICENSE file that accompanied this code).
-'
-' You should have received a copy of the GNU Lesser General Public License
-' version 3 along with OpenOffice.org.  If not, see
-' <http://www.openoffice.org/license.html>
-' for a copy of the LGPLv3 License.
-'
-'/***********************************************************************
-'*
-'* owner : oliver.craemer@oracle.com
-'*
-'* short description : Resource Test - Help Menu
-'*
-'************************************************************************
-'*
-' #1 tHelpOfficeHelp 
-' #1 tHelpWhatsThis
-' #1 tHelpAbout
-'*
-'\***********************************************************************
-
-sub c_upd_helpmenu
-
-    Printlog Chr(13) + "--------- Help Menu (c_upd_helpmenu.inc) ---------"
-    
-    call tHelpOfficeHelp
-    call tHelpWhatsThis
-    call tHelpAbout
-    
-
-end sub
-
-'-----------------------------------------------------------
-
-testcase tHelpOfficeHelp
-'///<u><b>Help – Star-/OpenOffice Help</b></u>
-
-    '/// Opening new spreadsheet document for getting defined starting environment
-    printlog " Opening new spreadsheet document for getting defined starting environment"
-    Call hNewDocument
-    '/// Open the help application by 'Help – Star-/OpenOffice Help'
-    printlog " Open the help application by 'Help – Star-/OpenOffice Help'"
-    HelpContents
-    Kontext "StarOfficeHelp"
-    '/// Close help application
-    printlog " Close help application"
-    StarOfficeHelp.TypeKeys "<Mod1 F4>"
-    If StarOfficeHelp.Exists then
-        warnlog "StarOffice Help could not be closed?!"
-    end if
-    '/// Close starting document
-    printlog " Close starting document"
-    Call hCloseDocument
-
-endcase
-
-'-----------------------------------------------------------
-
-testcase tHelpWhatsThis
-'///<u><b>Help – What's This?</b></u>
-
-    '/// Open new Spreadsheet document
-    printlog " Open new Spreadsheet document"
-    Call hNewDocument
-    '/// Invoke the 'What's this help' by 'Help – What's This?'
-    printlog " Invoke the 'What's this help' by 'Help – What's This?'"
-    HelpWhatsThis
-    '/// Close document
-    printlog " Close document"
-    Call hCloseDocument
-
-endcase
-
-'-----------------------------------------------------------
-
-testcase tHelpAbout
-'///<u><b>Help – About</b></u>
-
-    '/// Open new Spreadsheet document
-    printlog " Open new Spreadsheet document"
-    Call hNewDocument
-    '/// Open the 'About' window by 'Help – About Star-/OpenOffice'
-    printlog " Open the 'About' window by 'Help – About Star-/OpenOffice'"
-    HelpAboutStarOffice
-    Kontext "UeberStarWriter"
-    DialogTest ( UeberStarWriter )
-    '/// Show build-ID and members by STRG-SDT
-    printlog " Show build-ID and members by STRG-SDT"
-    UeberStarWriter.TypeKeys "<Mod1 S><Mod1 D><Mod1 T>"
-    '/// Close dialog with 'OK'
-    printlog " Close dialog with 'OK'"
-    UeberStarWriter.OK
-    '/// Close document
-    printlog " Close document"
-    Call hCloseDocument
-
-endcase
-
-'-----------------------------------------------------------
-
-
diff --git a/testautomation/spreadsheet/required/includes/c_upd_insertmenu.inc b/testautomation/spreadsheet/required/includes/c_upd_insertmenu.inc
deleted file mode 100644
index b8c749c27cd9..000000000000
--- a/testautomation/spreadsheet/required/includes/c_upd_insertmenu.inc
+++ /dev/null
@@ -1,1313 +0,0 @@
-'encoding UTF-8  Do not remove or change this line!
-'**************************************************************************
-' DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER.
-'
-' Copyright 2000, 2010 Oracle and/or its affiliates.
-'
-' OpenOffice.org - a multi-platform office productivity suite
-'
-' This file is part of OpenOffice.org.
-'
-' OpenOffice.org is free software: you can redistribute it and/or modify
-' it under the terms of the GNU Lesser General Public License version 3
-' only, as published by the Free Software Foundation.
-'
-' OpenOffice.org is distributed in the hope that it will be useful,
-' but WITHOUT ANY WARRANTY; without even the implied warranty of
-' MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
-' GNU Lesser General Public License version 3 for more details
-' (a copy is included in the LICENSE file that accompanied this code).
-'
-' You should have received a copy of the GNU Lesser General Public License
-' version 3 along with OpenOffice.org.  If not, see
-' <http://www.openoffice.org/license.html>
-' for a copy of the LGPLv3 License.
-'
-'/***********************************************************************
-'*
-'* owner : oliver.craemer@oracle.com
-'*
-'* short description : Resource Test - Insert Menu
-'*
-'************************************************************************
-'*
-' #1 tInsertManualBreak
-' #1 tInsertCells
-' #1 tInsertRowsColumns
-' #1 tInsertSheet
-' #1 tInsertSheetFromFile
-' #1 tInsertLink
-' #1 tInsertSpecialCharacters
-' #1 tInsertFormattingMark
-' #1 tInsertHyperlink
-' #1 tInsertFunction
-' #1 tInsertFunctionList
-' #1 tInsertNamesDefine
-' #1 tInsertNamesInsert
-' #1 tInsertNamesCreate
-' #1 tInsertNamesLabels
-' #1 tInsertNote
-' #1 tInsertPictureFromFile
-' #1 tInsertMovieSound
-' #1 tInsertObjectOLE
-' #1 tInsertObjectPlugin
-' #1 tInsertObjectSound
-' #1 tInsertObjectVideo
-' #1 tInsertObjectFormular
-' #1 tInsertChart
-' #1 tInsertFloatingFrame
-
-'*
-'\***********************************************************************
-
-sub c_upd_insertmenu
-
-    Printlog Chr(13) + "--------- Insert Menu (c_upd_insertmenu.inc) ---------"
-    
-    call tInsertManualBreak
-    call tInsertCells
-    call tInsertRowsColumns
-    call tInsertSheet
-    call tInsertSheetFromFile
-    call tInsertLink
-    call tInsertSpecialCharacters
-    call tInsertFormattingMark
-    call tInsertHyperlink
-    call tInsertFunction
-    call tInsertFunctionList
-    call tInsertNamesDefine
-    call tInsertNamesInsert
-    call tInsertNamesCreate
-    call tInsertNamesLabels
-    call tInsertNote
-    call tInsertPictureFromFile
-    call tInsertMovieSound
-    call tInsertObjectOLE
-    call tInsertObjectPlugin
-    call tInsertObjectSound
-    call tInsertObjectVideo
-    call tInsertObjectFormular
-    call tInsertChart
-    call tInsertFloatingFrame
-
-end sub
-
-'-----------------------------------------------------------
-
-testcase tInsertManualBreak
-'///<u><b>Insert - Manual Break</b></u>
-    
-    '/// Opening new spreadsheet document for getting defined starting environment
-    printlog " Opening new spreadsheet document for getting defined starting environment"
-    call hNewDocument
-    '/// Goto cell D5
-    printlog " Goto cell D5"
-    call fCalcSelectRange ("D5")
-    '/// Insert a manual row break by 'Insert – Manual Break – Row Break'
-    printlog " Insert a manual row break by 'Insert – Manual Break – Row Break'"
-    InsertManuelBreakRowBreak
-    '/// Insert a manual column break by 'Insert – Manual Break – Column Break'
-    printlog " Insert a manual column break by 'Insert – Manual Break – Column Break'"
-    InsertManuelBreakColumnBreak
-    '/// Close starting document
-    printlog " Close starting document"
-    call hCloseDocument
-
-endcase
-
-'-----------------------------------------------------------
-
-testcase tInsertCells
-'///<u><b>Insert - Cells</b></u>
-
-    '/// Open new Spreadsheet document
-    printlog " Open new Spreadsheet document"   
-    call hNewDocument
-    '/// Open 'Insert Cells'- dialog by 'Insert – Cells'
-    printlog " Open 'Insert Cells'- dialog by 'Insert – Cells'"
-    InsertCells
-    Kontext "ZellenEinfuegen"
-    Call DialogTest ( ZellenEinfuegen )
-    '/// Check option 'Shift cells down'
-    printlog " Check option 'Shift cells down'"
-    ZellenNachUnten.Check
-    '/// Check option 'Shift cells right'
-    printlog " Check option 'Shift cells right'"
-    ZellenNachRechts.Check
-    '/// Check option 'Entire row'
-    printlog " Check option 'Entire row'"
-    GanzeZeile.Check
-    '/// Check option 'Entire column'
-    printlog " Check option 'Entire column'"
-    GanzeSpalte.Check
-    '/// Close dialog with 'Cancel'
-    printlog " Close dialog with 'Cancel'"
-    ZellenEinfuegen.Cancel
-    '/// Close starting document
-    printlog " Close starting document"
-    call hCloseDocument
-
-endcase
-
-'-----------------------------------------------------------
-
-testcase tInsertRowsColumns
-'///<u><b>Insert - Rows/Columns</b></u>
-
-    '/// Open new Spreadsheet document
-    printlog " Open new Spreadsheet document"   
-    call hNewDocument
-    '/// Insert a new row by 'Insert - Rows'
-    printlog " Insert a new row by 'Insert - Rows'"
-    InsertRowsCalc
-    '/// Insert a new column by 'Insert - Columns'
-    printlog " Insert a new column by 'Insert - Columns'"
-    InsertColumnsCalc
-    '/// Close document
-    printlog " Close starting document"
-    call hCloseDocument
-
-endcase
-
-'-----------------------------------------------------------
-
-testcase tInsertSheet
-'///<u><b>Insert - Sheet</b></u>
-
-    '/// Open new Spreadsheet document
-    printlog " Open new Spreadsheet document"   
-    call hNewDocument
-    '/// Open 'Insert Sheet' – dialog by 'Insert – Sheet'
-    printlog " Open 'Insert Sheet' – dialog by 'Insert – Sheet'"
-    InsertSheetCalc
-    Kontext "TabelleEinfuegenCalc"
-    Call DialogTest ( TabelleEinfuegenCalc )
-    '/// Check option 'After current sheet'
-    printlog " Check option 'After current sheet'"
-    Nach.Check
-    '/// Set 'Name' to 'Test'
-    printlog " Set 'Name' to 'Test'"
-    TabellenName.SetText "Test"
-    '/// Set number of sheets to 2
-    printlog " Set number of sheets to 2"
-    Anzahl.More
-    '/// Check option 'From File'
-    printlog " Check option 'From File'"
-    AusDateiErstellen.Check
-    '/// Check option 'Link'
-    printlog " Check option 'Link'"
-    Verknuepfen.Check
-    '/// Click on 'Browse' – button
-    Durchsuchen.Click
-    Kontext "OeffnenDLG"
-    '/// Close 'Insert' – dialog with 'Cancel'
-    printlog " Close 'Insert' – dialog with 'Cancel'"
-    OeffnenDLG.Cancel
-    Kontext "TabelleEinfuegenCalc"
-    '/// Close 'Insert Sheet' – dialog with 'Cancel'
-    printlog " Close 'Insert Sheet' – dialog with 'Cancel'"
-    TabelleEinfuegenCalc.Cancel
-    '/// Close document
-    printlog " Close starting document"
-    call hCloseDocument
-
-endcase
-
-'-----------------------------------------------------------
-
-testcase tInsertSheetFromFile
-'///<u><b>Insert - Sheet From File</b></u>
-
-    '/// Open new Spreadsheet document
-    printlog " Open new Spreadsheet document"   
-    call hNewDocument
-    '/// Open 'Insert Sheet' – dialog by 'Insert – Sheet From File'
-    printlog " Open 'Insert Sheet' – dialog by 'Insert – Sheet From File'"
-    InsertSheetFromFile
-    Kontext "OeffnenDLG"
-    '/// Set filename 'spreadsheet/required/input/twosheets.ods'
-    printlog " Set filename 'spreadsheet/required/input/twosheets.ods'"
-    Dateiname.setText ( convertpath ( gTesttoolPath & "spreadsheet/required/input/twosheets.ods" ) )
-    '/// Close 'Insert' – dialog with 'Insert'
-    printlog " Close 'Insert' – dialog with 'Insert'"
-    Oeffnen.Click
-    Kontext "TabelleEinfuegenCalc"
-    '/// Verify that the selected file has two sheets
-    printlog " Verify that the selected file has two sheets"
-    if Auswahl.GetItemCount <> 2 then
-        warnlog "The file has more/less than two sheets"
-    end if
-    '/// Close 'Insert Sheet' – dialog with 'Insert'
-    printlog " Close 'Insert Sheet' – dialog with 'Insert'"
-    TabelleEinfuegenCalc.Cancel
-    '/// Close document'
-    printlog " Close starting document"
-    call hCloseDocument
-
-endcase
-
-'-----------------------------------------------------------
-
-testcase tInsertLink
-'///<u><b>Insert - Link</b></u>
-
-    '/// Open new Sreadsheet document
-    printlog " Open new Spreadsheet document"   
-    call hNewDocument
-    '/// Open 'External Data' – dialog by 'Insert – Link To External Data'
-    printlog " Open 'External Data' – dialog by 'Insert – Link To External Data'"
-    InsertLinkToExternalData
-    Kontext "ExternalData"
-    call Dialogtest (ExternalData)
-    '/// Press browse button for URL
-    printlog " Press browse button for URL"
-    FileChoose.Click
-    Kontext "OeffnenDlg"
-    '/// Close 'Insert' – dialog with 'Cancel'
-    printlog " Close 'Insert' – dialog with 'Cancel'"
-    OeffnenDlg.close
-    Kontext "ExternalData"
-    '/// Check option 'Updata every'
-    printlog " Check option 'Updata every'"
-    Update.Check
-    '/// Increase updatetimer by 1
-    printlog " Increase updatetimer by 1"
-    UpdateTime.More
-    '/// Close 'External Data' – dialog with 'Cancel'
-    printlog " Close 'External Data' – dialog with 'Cancel'"
-    ExternalData.close
-    '/// Close starting document
-    printlog " Close starting document"
-    call hCloseDocument
-
-endcase
-
-'-----------------------------------------------------------
-
-testcase tInsertSpecialCharacters
-'///<u><b>Insert - Special Characters</b></u>
-
-    '///Open new Spreadsheet document
-    printlog " Open new Spreadsheet document"   
-    call hNewDocument
-    '/// Open 'Special Characters' – dialog by 'Insert – Special Characters'
-    printlog " Open 'Special Characters' – dialog by 'Insert – Special Characters'"
-    InsertSpecialCharacterCalc
-    Kontext "Sonderzeichen"
-    DialogTest ( Sonderzeichen )
-    '/// Change 'Font' to next one
-    printlog " Change 'Font' to next one"
-	if Schrift.GetItemCount = Schrift.GetSelIndex then
-			Schrift.Select(Schrift.GetSelIndex -1)
-		else Schrift.Select(Schrift.GetSelIndex +1)
-	end if
-    '/// Change 'Subset' to next one
-    printlog " Change 'Subset' to next one"
-    If Subset.IsVisible then
-		if Subset.GetItemCount = Subset.GetSelIndex then
-			Subset.Select(Subset.GetSelIndex -1)
-		else Subset.Select(Subset.GetSelIndex +1)
-		end if
-    end if
-    '/// Choose a character by clicking
-    printlog " Choose a character by clicking"
-    Zeichenanzeige.MouseDown 50,50
-    Zeichenanzeige.MouseUp 50,50
-    '/// Delete character by 'Delete'
-    printlog " Delete character by 'Delete'"
-    Loeschen.Click
-    '/// Close 'Special Characters' – dialog with 'Cancel'
-    printlog " Close 'Special Characters' – dialog with 'Cancel'"
-    Sonderzeichen.Cancel
-    '/// Close document
-    printlog " Close starting document"
-    call hCloseDocument
-
-endcase
-
-'-----------------------------------------------------------
-
-testcase tInsertFormattingMark
-'///<u><b>Insert - Formatting Mark</b></u>
-
-    Dim bAsianLanguage as boolean
-    Dim bCTLlanguage as boolean
-    
-    '/// Open new Spreadsheet document
-    printlog " Open new Spreadsheet document"   
-    call hNewDocument
-    '/// Enable support for CJK and CTL by 'Tools-Options-Language Settings'
-    printlog " Enable support for CJK and CTL by 'Tools-Options-Language Settings'"
-    bAsianLanguage = ActiveDeactivateAsianSupport(TRUE)
-    bCTLLanguage = ActiveDeactivateCTLSupport(TRUE)
-    '/// Select cell A1
-    printlog " Select cell A1"
-    call fCalcSelectRange ("A1")
-    '/// Enter 'Test' in cell 'A1' to activate editmode
-    printlog " Enter 'Test' in cell 'A1' to activate editmode"
-    DocumentCalc.TypeKeys "Test"
-    '/// Enter in cell 'Insert – Formatting Mark – Non-Breaking Space'
-    printlog " Enter in cell 'A' and 'Insert – Formatting Mark – Non-Breaking Space'"
-    InsertNonBreakingSpace
-    '/// Enter in cell 'Insert – Formatting Mark – Non-Breaking Hyphen'
-    printlog " Enter in cell 'Insert – Formatting Mark – Non-Breaking Hyphen'"
-    InsertHardHyphen
-    '/// Enter in cell 'Insert – Formatting Mark – Optional Hyphen'
-    printlog " Enter in cell 'Insert – Formatting Mark – Optional Hyphen'"
-    InsertSoftHyphen
-    '/// Enter in cell 'Insert – Formatting Mark – No-Width Optional Break'
-    printlog " Enter in cell 'Insert – Formatting Mark – No-Width Optional Break'"
-    InsertZWSP
-    '/// Enter in cell 'Insert – Formatting Mark – No-Width no break'
-    printlog " Enter in cell 'Insert – Formatting Mark – No-Width no break'"
-    InsertZWNBSP
-    '/// Enter in cell 'Insert – Formatting Mark – Left-to-right-mark'
-    printlog "/ Enter in cell 'Insert – Formatting Mark – Left-to-right-mark'"
-    InsertLRM
-    '/// Enter in cell 'Insert – Formatting Mark – right-to-left-mark'
-    printlog " Enter in cell 'Insert – Formatting Mark – right-to-left-mark'"
-    InsertRLM
-    '/// Leave cell with 'Enter'
-    printlog " Leave cell with 'Enter'"
-    DocumentCalc.TypeKeys "<Return>"
-    '/// Set support for CTL and CJK back to defaults
-    printlog " Set support for CTL and CJK back to defaults"
-    if bAsianLanguage = FALSE then
-        Call ActiveDeactivateAsianSupport(FALSE)
-    end if
-    if bCTLLanguage = FALSE then
-        Call ActiveDeactivateCTLSupport(FALSE)
-    end if
-    '/// Close document
-    printlog " Close starting document"
-    call hCloseDocument
-
-endcase
-
-'-----------------------------------------------------------
-
-testcase tInsertHyperlink
-'///<u><b>Insert - Hyperlink</b></u>
-
-    '/// Open new Spreadsheet document
-    printlog " Open new Spreadsheet document"   
-    call hNewDocument
-    '/// Open 'Hyperlink' – dialog via 'Insert – Hyperlink'
-    printlog " Open 'Hyperlink' – dialog via 'Insert – Hyperlink'"
-    InsertHyperlink
-
-    kontext "HyperlinkDialog"
-    if ( HyperlinkDialog.exists( 2 ) ) then
-    
-        Kontext "Hyperlink"
-        '/// Switch to category 'Internet' (first one)
-        printlog " Switch to category 'Internet'"
-        Auswahl.TypeKeys "<HOME>"
-        '/// Choose 'Web'
-        printlog " Choose 'Web'"
-        Kontext "TabHyperlinkInternet"
-        internet.check
-        Call DialogTest ( TabHyperlinkInternet,1 )
-        '/// Click on 'Target in Document' – button (the target dialog appears)
-        printlog " Click on 'Target in Document' – button (the target dialog appears)"
-        Target.Click
-        Kontext "ZielImDokument"
-        Call DialogTest ( ZielImDokument )
-        '/// Close 'Target' – dialog with 'Close'
-        printlog " Close 'Target' – dialog with 'Close'"
-        ZielImDokument.Close
-        Kontext "TabHyperlinkInternet"
-        '/// Choose 'FTP'
-        printlog " Choose 'FTP'"
-        FTP.check
-        Call DialogTest ( TabHyperlinkInternet,2 )
-        '/// Check that the 'Target' – button is disabled
-        printlog " Check that the 'Target' – button is disabled"
-        if Target.IsEnabled then
-            warnlog "The target button is enabled, but should be disabled"
-        end if
-        '/// Check option 'Anonymous User'
-        printlog " Check option 'Anonymous User'"
-        AnonymerBenutzer.Check
-        '/// Check that 'Login Name' is disabled
-        printlog " Check that 'Login Name' is disabled"
-        if Loginname.IsEnabled then
-            warnlog "The Loginname is enabled, but should be disabled"
-        end if
-        '/// Chose 'Telnet'
-        printlog " Chose 'Telnet'"
-        Telnet.check
-        Call DialogTest ( TabHyperlinkInternet,3 )
-        '/// Check that the 'Target' – button is disabled
-        printlog " Check that the 'Target' – button is disabled"
-        if Target.IsEnabled then
-            warnlog "The target button is enabled, but should be disabled"
-        end if
-        '/// Switch to category 'Mail & News'
-        Kontext "Hyperlink"
-        Auswahl.TypeKeys "<DOWN>"
-        Kontext "TabHyperlinkMailUndNews"
-        Call DialogTest ( TabHyperlinkMailUndNews )
-        '/// Click twice on 'Data Source' – button to turn on / off the databasebeamer
-        printlog " Click twice on 'Data Source' – button to turn on / off the databasebeamer"
-        Adressbuch.click
-        Adressbuch.click
-        '/// Check option 'Mail'
-        printlog " Check option 'Mail'"
-        EMail.check
-        '/// Check that the editfield for 'Receiver' is enabled
-        printlog " Check that the editfield for 'Receiver' is enabled"
-        if not Receiver.IsEnabled then
-            warnlog "Receiver is disabled but should be enabled"
-        end if
-        '/// Check that the editfield for 'Subject' is enabled
-        printlog " Check that the editfield for 'Subject' is enabled"
-        if not Betreff.IsEnabled then
-            warnlog "Subject is disabled but should be enabled"
-        end if
-        '/// Check option 'News'
-        printlog " Check option 'News'"
-        News.check
-        '/// Check that the editfield for 'Subject' is disabled
-        printlog " Check that the editfield for 'Subject' is disabled"
-        if Betreff.IsEnabled then
-            warnlog "Subject is enabled but should be disabled"
-        end if
-        '/// Switch to category Document
-        printlog " Switch to category Document"
-        Kontext "Hyperlink"
-        Auswahl.TypeKeys "<DOWN>"
-        Kontext "TabHyperlinkDokument"
-        Call DialogTest ( TabHyperlinkDokument )
-        '/// Enter 'Test' in 'Path'
-        printlog " Enter 'Test' in 'Path'"
-        Path.TypeKeys "Test"
-        '/// Click on 'Open' – button
-        printlog " Click on 'Open' – button"
-        DateiOeffnen.click
-        Kontext "OeffnenDlg"
-        '/// Close 'Open' – dialog with 'Cancel'
-        printlog " Close 'Open' – dialog with 'Cancel'"
-        OeffnenDlg.Cancel
-        Kontext "TabHyperlinkDokument"
-        '/// Click on 'Target in Document' – button (the target dialog appears)
-        printlog " Click on 'Target in Document' – button (the target dialog appears)"
-        Target.click
-        Kontext "ZielImDokument"
-        '/// Close 'Target' – dialog with 'Close'
-        printlog " Close 'Target' – dialog with 'Close'"
-        ZielImDokument.close
-        Kontext "Hyperlink"
-        '/// Switch to category 'New Document'
-        printlog " Switch to category 'New Document'"
-        Auswahl.TypeKeys "<DOWN>"
-        Kontext "TabHyperlinkNeuesDokument"
-        Call DialogTest ( TabHyperlinkNeuesDokument )
-        '/// Check 'Edit Now'
-        printlog " Click 'Edit Now'"
-        SofortBearbeiten.check
-        '/// Check 'Edit Later'
-        printlog " Click 'Edit Later'"
-        SpaeterBearbeiten.check
-        '/// Click on 'Select Path' – button
-        printlog " Click on 'Select Path' – button"
-        Pfad.click
-        Kontext "OeffnenDlg"
-        '/// Close 'Select Path' – dialog with 'Cancel'
-        printlog " Close 'Select Path' – dialog with 'Cancel'"
-        OeffnenDlg.Cancel
-        Kontext "TabHyperlinkNeuesDokument"
-        '/// Check that the 'Frame' listbox has items
-        printlog " Check that the 'Frame' listbox has items"
-        if Frame.GetItemCount < 1 then
-            warnlog "The Frame combobox is empty"
-        end if
-        '/// Check that the 'Form' listbox has 2 entries
-        printlog " Check that the 'Form' listbox has 2 entries"
-        if Form.GetItemCount <> 2 then
-            warnlog "The Form combobox has not 2 items"
-        end if
-        '/// Close 'Hyperlink' – dialog with 'Close'
-        printlog " Close 'Hyperlink' – dialog with 'Close'"
-        kontext "HyperlinkDialog"
-        HyperlinkDialog.Close()
-    else
-        warnlog( "Failed to open <HyperlinkDialog>" )
-    endif
-    '/// Close document
-    printlog " Close starting document"
-    call hCloseDocument
-
-endcase
-
-'-----------------------------------------------------------
-
-testcase tInsertFunction
-'///<u><b>Insert - Function</b></u>
-
-    Dim ifunctionCount as integer
-    Dim ifunctionIndex as integer
-
-    '/// Open new Spreadsheet document
-    printlog " Open new Spreadsheet document"   
-    call hNewDocument
-    '/// Open the 'Function Wizard' via 'Insert – Function'
-    printlog " Open the 'Function Wizard' via 'Insert – Function'"
-    InsertFunction
-    Kontext "FunctionWizard"
-    '/// Check that there are 13 entries in the category listbox
-    printlog " Check that there are 13 entries in the category listbox"
-    if CategoryLB.GetItemCount <> 13 then
-        warnlog "There are " &  CategoryLB.GetItemCount & " categories instead of 13"
-    end if
-    '/// Choose the second entry (all) in the category listbox
-    printlog " Choose the second entry (all) in the category listbox"
-    CategoryLB.Select(2)
-    '/// Choose all entries in the function list and click 'Next' button
-    printlog " Choose all entries in the function list"
-    ifunctionCount = FunctionLB.getItemCount      
-    for ifunctionIndex = 1 To ifunctionCount
-        CategoryLB.Select(2)
-        FunctionLB.Select(ifunctionIndex)
-'        sleep(1)
-        printlog FunctionLB.GetSelText
-        call DialogTest ( FunctionWizard,ifunctionIndex )
-        '/// Click on 'Next' – button
-        Forward.Click
-        call DialogTest ( FunctionWizard,(ifunctionCount + ifunctionIndex) )
-        Formel.typekeys "<MOD1 A><DELETE>", true
-    next ifunctionIndex
-    '/// Check option 'Array'
-    printlog " Check option 'Array'"
-    Matrix.check
-    '/// Choose the third entry (database) in the category listbox
-    printlog " Choose the third entry (database) in the category listbox"
-    CategoryLB.Select(3)
-    '/// Choose first function
-    printlog " Choose first function"
-    FunctionLB.Select (1)
-    '/// Click on 'Next' button
-    printlog " Click on 'Next' button"
-    Forward.Click
-    '/// Click on 'Shrink' – button; the range chooser appears
-    printlog " Click on 'Shrink' – button; the range chooser appears"
-    Shrink1.click
-    '/// Enter 'A1' in rangechooser
-    printlog " Enter 'A1' in rangechooser"
-    Editfield1.SetText ("A1")    
-    '/// Click on 'Maximize' – button
-    printlog " Click on 'Maximize' – button"
-    maximize.click
-    '/// Click on 'fx' – button
-    printlog " Click on 'fx' – button"
-    Functionsbutton1.click
-    '/// Switch to tabpage 'Structure'
-    printlog " Switch to tabpage 'Structure'"
-    Kontext "FunctionWizardTabControl"
-    FunctionWizardTabControl.setpage TabFunctionWizardStructure
-    Kontext "FunctionWizard"
-    call DialogTest ( FunctionWizard,((ifunctionCount *2)+1) )
-    '/// Close dialog with 'Cancel'
-    printlog " Close dialog with 'Cancel'"
-    FunctionWizard.Cancel
-    '/// Close document
-    printlog " Close starting document"
-    call hCloseDocument
-
-endcase
-
-'-----------------------------------------------------------
-
-testcase tInsertFunctionList
-'///<u><b>Insert - Function List</b></u>
-
-    '/// Open new Spreadsheet document
-    printlog " Open new Spreadsheet document"   
-    call hNewDocument
-    '/// Check if 'function list' is already opened
-    printlog " Check if 'function list' is already opened"
-    Kontext "FunctionsCalc"
-    if FunctionsCalc.Exists(2) then
-        printlog "Functions List was already open"
-    else
-        '/// Open 'function list' by 'Insert – Function List'
-        printlog " Open 'function list' by 'Insert – Function List'"
-        InsertFunctionList
-    end if
-    '/// Check that there are 13 categories in the listbox
-    printlog " Check that there are 13 categories in the listbox"
-    if Category.GetItemCount <> 13 then
-        warnlog "The count of categories is " & Category.GetItemCount & " instead of 13"
-    end if
-    '/// Click on second function
-    printlog " Click on second function"
-    FunctionList.Select(2)
-    call DialogTest ( FunctionsCalc )
-    '/// Click on 'Insert' – button to insert the function into the cell
-    printlog " Click on 'Insert' – button to insert the function into the cell"
-    FunctionInsert.click
-    '/// Press 'ESC' to leave insert mode
-    printlog " Press 'ESC' to leave insert mode"
-    kontext "DocumentCalc"
-    DocumentCalc.TypeKeys "<ESCAPE>"
-    '/// Close function list by 'Insert – Function list'
-    printlog " Close function list by 'Insert – Function list'"
-    InsertFunctionList
-    '/// Close document
-    printlog " Close starting document"
-    call hCloseDocument
-
-endcase
-
-'-----------------------------------------------------------
-
-testcase tInsertNamesDefine
-'///<u><b>Insert - Names – Define</b></u>
-
-    '/// Open new Spreadsheet document
-    printlog " Open new Spreadsheet document"   
-    call hNewDocument
-    '/// Open 'Define Names' -dialog by 'Insert – Names – Define'
-    printlog " Open 'Define Names' -dialog by 'Insert – Names – Define'"
-    InsertNamesDefine
-    Kontext "NamenFestlegen"
-    '/// Click on 'More' – button
-    printlog " Click on 'More' – button"
-    Zusaetze.Click
-    DialogTest ( NamenFestlegen )
-    '/// Check that the 'Add' – button is disabled
-    printlog " Check that the 'Add' – button is disabled"
-    if Hinzufuegen.IsEnabled then
-        warnlog "'Add' is enabled but should be disabled"
-    end if
-    '/// Check that the 'Delete' – button is disabled
-    printlog " Check that the 'Delete' – button is disabled"
-    if Loeschen.IsEnabled then
-        warnlog "'Delete' is enabled but should be disabled"
-    end if
-    '/// Check that the 'Shrink' – button is disabled
-    printlog " Check that the 'Shrink' – button is disabled"
-    if ZugeordnetZuButton.IsEnabled then
-        warnlog "'Shrink' is enabled but should be disabled"
-    end if
-    '/// Check that the 'Print Range' option is disabled
-    printlog " Check that the 'Print Range' option is disabled"
-    if Druckbereich.IsEnabled then
-        warnlog "'Printrange' is enabled but should be disabled"
-    end if
-    '/// Check that the 'Filter' option is disabled
-    printlog " Check that the 'Filter' option is disabled"
-    if Filter.IsEnabled then
-        warnlog "'Filter' is enabled but should be disabled"
-    end if
-    '/// Check that the 'Repeat Column' option is disabled
-    printlog " Check that the 'Repeat Column' option is disabled"
-    if Wiederholungsspalte.IsEnabled then
-        warnlog "'Repeat Column' is enabled but should be disabled"
-    end if
-    '/// Check that the 'Repeat Row' option is disabled
-    printlog " Check that the 'Repeat Row' option is disabled"
-    if Wiederholungszeile.IsEnabled then
-        warnlog "'Repeat Row' is enabled but should be disabled"
-    end if
-    '/// Enter the name 'Test'
-    printlog " Enter the name 'Test'"
-    BereichsName.SetText "Test"
-    '/// Press the 'Shrink' – button
-    printlog " Press the 'Shrink' – button"
-    ZugeordnetZuButton.click
-    '/// Click on 'Maximize' – button
-    printlog " Click on 'Maximize' – button"
-    ZugeordnetZuButton.click
-    '/// Check the 'Print Range' option
-    printlog " Check the 'Print Range' option"
-    Druckbereich.check
-    '/// Check the 'Filter' option
-    printlog " Check the 'Filter' option"
-    Filter.check
-    '/// Check the 'Repeat Column' option
-    printlog " Check the 'Repeat Column' option"
-    Wiederholungsspalte.check
-    '/// Check the 'Repeat Row' option
-    printlog " Check the 'Repeat Row' option"
-    Wiederholungszeile.check
-    '/// Press the 'Add' – button
-    printlog " Press the 'Add' – button"
-    Hinzufuegen.click
-    '/// Choose the 'Test' name
-    printlog " Choose the 'Test' name"
-    BereichsName.Select "Test"
-    '/// Press the 'Delete' – button
-    printlog " Press the 'Delete' – button"
-    Loeschen.click
-    '/// On appearing messagebox click 'Yes'
-    printlog " On appearing messagebox click 'Yes'"
-    kontext "Active"
-     if Active.exists( 2 ) then
-    	 Active.Yes
-     end if
-    '/// Close dialog with 'Cancel'
-    printlog " Close dialog with 'Cancel'"
-    Kontext "NamenFestlegen"
-    NamenFestlegen.Cancel
-    '/// Close the document
-    printlog " Close starting document"
-    call hCloseDocument
-
-endcase
-
-'-----------------------------------------------------------
-
-testcase tInsertNamesInsert
-'///<u><b>Insert - Names – Define</b></u>
-
-    '/// Open new Spreadsheet document
-    printlog " Open new Spreadsheet document"   
-    call hNewDocument
-    '/// Select cell A1
-    printlog " Select cell A1"
-    call fCalcSelectRange ("A1")
-    '/// Open 'Define Names' -dialog by 'Insert – Names – Define'
-    printlog " Open 'Define Names' -dialog by 'Insert – Names – Define'"
-    InsertNamesDefine
-    Kontext "NamenFestlegen"
-    '/// Enter the name 'Test'
-    printlog " Enter the name 'Test'"
-    BereichsName.SetText "Test"
-    '/// Press the 'Add' – button
-    printlog " Press the 'Add' – button"
-    Hinzufuegen.click
-    '/// Close dialog with 'OK'
-    printlog " Close dialog with 'OK'"
-    NamenFestlegen.OK
-    '/// Select cell D4
-    printlog " Select cell D4"
-    call fCalcSelectRange ("D4")
-    '/// Open 'Insert Names' – dialog by 'Insert – Names – Insert'
-    printlog " Open 'Insert Names' – dialog by 'Insert – Names – Insert'"
-    InsertNamesInsert
-    Kontext "NamenEinfuegen"
-    Call DialogTest ( NamenEinfuegen )
-    '/// Select name 'Test'
-    printlog " Select name 'Test'"
-    NamenAuswahl.Select "Test"
-    '/// Press 'OK' – button (the dialog will be closed)
-    printlog " Press 'OK' – button (the dialog will be closed)"
-    NamenEinfuegen.OK
-    '/// Press 'Enter' to leave the editmode of the cell
-    printlog " Press 'Enter' to leave the editmode of the cell"
-    kontext "DocumentCalc"
-    DocumentCalc.TypeKeys "<ESCAPE>"
-    '/// Open 'Define Names' -dialog by 'Insert – Names – Insert'
-    printlog " Open 'Define Names' -dialog by 'Insert – Names – Insert'"
-    InsertNamesInsert
-    Kontext "NamenEinfuegen"
-    '/// Press 'Insert All' – button (the dialog will be closed)
-    printlog " Press 'Insert All' – button (the dialog will be closed)"
-    Liste.click
-    '/// Close document
-    printlog " Close starting document"
-    call hCloseDocument
-
-endcase
-
-'-----------------------------------------------------------
-
-testcase tInsertNamesCreate
-'///<u><b>Insert - Names – Create</b></u>
-
-    '/// Open new Spreadsheet document
-    printlog " Open new Spreadsheet document"   
-    call hNewDocument
-    '/// Open 'Create Names' – dialog by 'Insert – Names – Create'
-    printlog " Open 'Create Names' – dialog by 'Insert – Names – Create'"
-    InsertNameCreate
-    Kontext "NamenErzeugen"
-    DialogTest ( NamenErzeugen )
-    '/// Check option 'Top row'
-    printlog " Check option 'Top row'"
-    Kopfzeile.check
-    '/// Check option 'Left column'
-    printlog " Check option 'Left column'"
-    LinkerSpalte.check
-    '/// Check option 'Bottom row'
-    printlog " Check option 'Bottom row'"
-    Fusszeile.check
-    '/// Check option 'Right column'
-    printlog " Check option 'Right column'"
-    RechterSpalte.check
-    '/// Press 'OK' button
-    printlog " Press 'OK' button"
-    NamenErzeugen.OK
-    '/// Close warningbox with 'OK'
-    printlog " Close warningbox with 'OK'"
-    Kontext
-    if active.exists (1) then
-        active.ok
-    end if
-    '/// Enter 'Create Names Test' in cell A1
-    printlog " Enter 'Create Names Test' in cell A1"
-    call fCalcSelectRange ("A1")
-    DocumentCalc.TypeKeys "Create Names Test<RETURN>"
-    '/// Select cells A1:A4
-    printlog " Select cells A1:A4"
-    call fCalcSelectRange ("A1:A4")
-    '/// Open 'Create Names' – dialog by 'Insert – Names – Create'
-    printlog " Open 'Create Names' – dialog by 'Insert – Names – Create'"
-    InsertNameCreate
-    Kontext "NamenErzeugen"
-    '/// Check that option 'Top row' is selected
-    printlog " Check that option 'Top row' is selected"
-    if not Kopfzeile.IsChecked then
-        warnlog "The header was not autodetected"
-    end if
-    '/// Press 'OK' button
-    printlog " Press 'OK' button"
-    NamenErzeugen.OK
-    '/// Select cells A1:A3
-    printlog " Select cells A1:A3"
-    call fCalcSelectRange ("A1:A3")
-    '/// Open 'Create Names' – dialog by 'Insert – Names – Create'
-    printlog " Open 'Create Names' – dialog by 'Insert – Names – Create'"
-    InsertNameCreate
-    Kontext "NamenErzeugen"
-    '/// Press 'OK' button
-    printlog " Press 'OK' button"
-    NamenErzeugen.OK
-    '/// Close replacing messagebox with 'Cancel'
-    printlog " Close replacing messagebox with 'Cancel'"
-    Kontext
-    if active.exists (1) then
-        active.cancel
-    end if
-    '/// Close document
-    printlog " Close starting document"
-    call hCloseDocument
-
-endcase
-
-'-----------------------------------------------------------
-
-testcase tInsertNamesLabels
-'///<u><b>Insert - Names – Labels</b></u>
-
-    '/// Open new Spreadsheet document
-    printlog " Open new Spreadsheet document"   
-    call hNewDocument
-    '/// Open 'Define Label Range' – dialog by 'Insert – Names – Labels'
-    printlog " Open 'Define Label Range' – dialog by 'Insert – Names – Labels'"
-    InsertNamesLabels
-    Kontext "BeschriftungsbereichFestlegen"
-    DialogTest ( BeschriftungsbereichFestlegen )
-    '/// Press 'Shrink' button for range
-    printlog " Press 'Shrink' button for range"
-    ButtonZellbereich.Click
-    '/// Press 'Maximize' button on rangechooser
-    printlog " Press 'Maximize' button on rangechooser"
-    ButtonZellbereich.Click
-    '/// Press 'Shrink' button for data range
-    printlog " Press 'Shrink' button for data range"
-    ButtonDatenbereich.Click
-    '/// Press 'Maximize' button on rangechooser
-    printlog " Press 'Maximize' button on rangechooser"
-    ButtonDatenbereich.Click
-    '/// Switch between 'Contains ...' options
-    printlog " Switch between 'Contains ...' options"
-    Zeilenkoepfe.Check
-    Spaltenkoepfe.Check
-    '/// Press 'Add' – button
-    printlog " Press 'Add' – button"
-    Hinzufuegen.Click
-    '/// Select range
-    printlog " Select range"
-    Bereich.Select (2)
-    '/// Press 'Delete' – button
-    printlog " Press 'Delete' – button"
-    Loeschen.Click
-    '/// Confirm mesagebox with 'Yes'
-    printlog " Confirm mesagebox with 'Yes'"
-    Kontext
-    if active.exists then
-        active.Yes
-    end if
-    Kontext "BeschriftungsbereichFestlegen"
-    '/// Close 'Define Label Range' – dialog with 'Cancel'
-    printlog " Close 'Define Label Range' – dialog with 'Cancel'"
-    BeschriftungsbereichFestlegen.Cancel
-    '/// Close document
-    printlog " Close starting document"
-    call hCloseDocument
-
-endcase
-
-'-----------------------------------------------------------
-
-testcase tInsertNote
-'///<u><b>Insert - Note</b></u>
-
-    '/// Open new Spreadsheet document
-    printlog " Open new Spreadsheet document"   
-    call hNewDocument
-    '/// Insert a note via 'Insert – Note'
-    printlog " Insert a note via 'Insert – Note'"
-    InsertNoteCalc
-    Kontext
-    '/// Enter 'This is a <Return> Testtext' into the note
-    printlog " Enter 'This is a <Return> Testtext' into the note"
-    DocumentCalc.TypeKeys "This is a <Return> Testtext"
-    '/// Leave note with <Escape>
-    printlog " Leave note with <Escape>"
-    DocumentCalc.TypeKeys "<Escape>"
-    '/// Close document
-    printlog " Close starting document"
-    call hCloseDocument
-
-endcase
-
-'-----------------------------------------------------------
-
-testcase tInsertPictureFromFile
-'///<u><b>Insert - Picture – From File</b></u>
-
-    '/// Open new Spreadsheet document
-    printlog " Open new Spreadsheet document"   
-    call hNewDocument
-    '/// Open 'Insert Picture' – dialog by 'Insert – Picture – From File'
-    printlog " Open 'Insert Picture' – dialog by 'Insert – Picture – From File'"
-    InsertGraphicsFromFile
-    Kontext "GrafikEinfuegenDlg"
-    Call DialogTest (GrafikEinfuegenDlg)
-    '/// Enter filename 'global\input\graf_inp\'
-    printlog " Enter filename 'global\input\graf_inp\borabora.jpg'"
-    Dateiname.Settext convertpath(gTesttoolpath + "global\input\graf_inp\borabora.jpg")
-    '/// Verify that there are more than one filter available
-    printlog " Verify that there are more than one filter available"
-    if Dateityp.GetItemCount < 2 then
-        warnlog "The filterlist is empty"
-    end if
-    '/// Check 'Link' – option
-    printlog " Check 'Link' – option"
-    Link.Check
-    '/// Check 'Preview' - option
-    printlog " Check 'Preview' - option"
-    Preview.Check
-    '/// Close dialog with 'Open'
-    printlog " Close dialog with 'Open'"
-    Oeffnen.Click
-    '/// Close document
-    printlog " Close starting document"
-    call hCloseDocument
-
-endcase
-
-'-----------------------------------------------------------
-
-testcase tInsertMovieSound
-'///<u><b>Insert - Movie and Sound</b></u>
-
-    '/// Open new Spreadsheet document
-    printlog " Open new Spreadsheet document"   
-    call hNewDocument
-    '/// Open 'Insert Movie and Sound' – dialog by 'Insert – Movie and Sound'
-    printlog " Open 'Insert Movie and Sound' – dialog by 'Insert – Movie and Sound'"
-    InsertMovieAndSound
-    Kontext "OeffnenDLG"
-    '/// Verify that there are more than one filter available
-    printlog " Verify that there are more than one filter available"
-    if Dateityp.GetItemCount < 2 then
-        warnlog "The filterlist is empty"
-    end if
-    '/// Close dialog with 'Cancel'
-    printlog " Close dialog with 'Cancel'"
-    OeffnenDLG.Cancel
-    '/// Close document
-    printlog " Close starting document"
-    call hCloseDocument
-
-endcase
-
-'-----------------------------------------------------------
-
-testcase tInsertObjectOLE
-'///<u><b>Insert - Object – OLE Object</b></u>
-
-    '/// Open new Spreadsheet document
-    printlog " Open new Spreadsheet document"   
-    call hNewDocument
-    '/// Open 'Insert OLE Object' – dialog  by 'Insert – Object – OLE Object'
-    printlog " Open 'Insert OLE Object' – dialog  by 'Insert – Object – OLE Object'"
-    InsertObjectOLEObject
-    Kontext "OLEObjektEinfuegen"
-    '/// Choose 'Create new'
-    printlog " Choose 'Create new'"
-    NeuErstellen.Check
-    Call DialogTest (OLEObjektEinfuegen, 1)
-    '/// Check that there are more than 1 entries (amount is dependant from operating system)
-    printlog " Check that there are more than 1 entries (amount is dependant from operating system)"
-    if Objekttyp.getitemcount < 2 then 
-        warnlog "There are no OLE-Objects in the listbox"
-    end if
-    '/// Choose 'Create from file'
-    printlog " Choose 'Create from file'"
-    AusDateierstellen.Check
-    Call DialogTest (OLEObjektEinfuegen, 2)
-    '/// Click on 'Search' – button
-    printlog " Click on 'Search' – button"
-    Durchsuchen.Click
-    Kontext "OeffnenDLG"
-    '/// Close 'Open' – dialog with 'Cancel'
-    printlog " Close 'Open' – dialog with 'Cancel'"
-    OeffnenDLG.Cancel
-    Kontext "OLEObjektEinfuegen"
-    '/// Check option 'Link to file'
-    printlog " Check option 'Link to file'"
-    Verknuepfen.check
-    '/// Close dialog with 'Cancel'
-    printlog " Close dialog with 'Cancel'"
-    OLEObjektEinfuegen.Cancel
-    '/// Close document
-    printlog " Close starting document"
-    call hCloseDocument
-
-endcase
-
-'-----------------------------------------------------------
-
-testcase tInsertObjectPlugin
-'///<u><b>Insert - Object – Plug-in</b></u>
-
-    '/// Open new Spreadsheet document
-    printlog " Open new Spreadsheet document"   
-    call hNewDocument
-    '/// Open 'Insert Plug-in' – dialog by 'Insert – Object – Plug-in'
-    printlog " Open 'Insert Plug-in' – dialog by 'Insert – Object – Plug-in'"
-    InsertObjectPlugIn
-    Kontext "PlugInEinfuegen"
-    Call DialogTest (PlugInEinfuegen)
-    '/// Click on 'Browse' – button
-    printlog " Click on 'Browse' – button"
-    DurchSuchen.Click
-    Kontext "OeffnenDLG"
-    '/// Click on 'Default Directory' – button
-    printlog " Click on 'Default Directory' – button"
-    Standard.click
-    '/// Click on 'Create New Directory' – button
-    printlog " Click on 'Create New Directory' – button"
-    NeuerOrdner.Click
-    Kontext "NeuerOrdner"
-    '/// Close namedialog with 'Cancel'
-    printlog " Close namedialog with 'Cancel'"
-    NeuerOrdner.cancel
-    Kontext "OeffnenDLG"
-    '/// Close 'Open' – dialog with 'Cancel'
-    printlog " Close 'Open' – dialog with 'Cancel'"
-    OeffnenDlg.Cancel
-    '/// Close 'Insert Plug-in' – dialog with 'Cancel'
-    printlog " Close 'Insert Plug-in' – dialog with 'Cancel'"
-    Kontext "PluginEinfuegen"
-    PlugInEinfuegen.Cancel
-    '/// Close document
-    printlog " Close starting document"
-    call hCloseDocument
-
-endcase
-
-'-----------------------------------------------------------
-
-testcase tInsertObjectSound
-'///<u><b>Insert - Object – Sound</b></u>
-
-    '/// Open new Spreadsheet document
-    printlog " Open new Spreadsheet document"   
-    call hNewDocument
-    try
-        '/// If enabled (depends on additional instalations on the OS) open the 'Insert Sound' – dialog by 'Insert – Object – Sound'
-        printlog " If enabled (depends on additional instalations on the OS) open the 'Insert Sound' – dialog by 'Insert – Object – Sound'"
-        InsertObjectSound
-        Kontext "OeffnenDlg"
-        '/// Click on 'Default Directory' – button
-        printlog " Click on 'Default Directory' – button"
-        Standard.click
-        '/// Click on 'Create New Directory' – button
-        printlog " Click on 'Create New Directory' – button"
-        NeuerOrdner.Click
-        Kontext "NeuerOrdner"
-        '/// Close namedialog with 'Cancel'
-        printlog " Close namedialog with 'Cancel'"
-        NeuerOrdner.cancel
-        Kontext "OeffnenDLG"
-        '/// Close 'Open' – dialog with 'Cancel'
-        printlog " Close 'Open' – dialog with 'Cancel'"
-        OeffnenDlg.Cancel
-    catch
-        printlog "Insert - Object - Sound is not possible on this machine"
-    endcatch
-    '/// Close document
-    printlog " Close starting document"
-    call hCloseDocument
-
-endcase
-
-'-----------------------------------------------------------
-
-testcase tInsertObjectVideo
-'///<u><b>Insert - Object – Video</b></u>
-
-    '/// Open new Spreadsheet document
-    printlog " Open new Spreadsheet document"   
-    call hNewDocument
-try
-        '/// If enabled (depends on additional instalations on the OS) open the 'Insert Video' – dialog by 'Insert – Object – Sound'
-        printlog " If enabled (depends on additional instalations on the OS) open the 'Insert Video' – dialog by 'Insert – Object – Sound'"
-        InsertObjectVideo
-        Kontext "OeffnenDlg"
-        '/// Click on 'Default Directory' – button
-        printlog " Click on 'Default Directory' – button"
-        Standard.click
-        '/// Click on 'Create New Directory' – button
-        printlog " Click on 'Create New Directory' – button"
-        NeuerOrdner.Click
-        Kontext "NeuerOrdner"
-        '/// Close namedialog with 'Cancel'
-        printlog " Close namedialog with 'Cancel'"
-        NeuerOrdner.cancel
-        Kontext "OeffnenDLG"
-        '/// Close 'Open' – dialog with 'Cancel'
-        printlog " Close 'Open' – dialog with 'Cancel'"
-        OeffnenDlg.Cancel
-    catch
-        printlog "Insert - Object - Video is not possible on this machine"
-    endcatch
-    printlog " Close starting document"
-    call hCloseDocument
-
-endcase
-
-'-----------------------------------------------------------
-
-testcase tInsertObjectFormular
-'///<u><b>Insert - Object – Formular</b></u>
-
-    '/// Open new Spraedsheet document
-    printlog " Open new Spreadsheet document"   
-    call hNewDocument
-    '/// Insert Formular by 'Insert – Object – Formular'
-    printlog " Insert Formular by 'Insert – Object – Formular'"
-    InsertObjectFormulaCalc
-    Kontext "SelectionMath"
-    if SelectionMath.Exists(2) then
-        call DialogTest (SelectionMath)
-    else
-        try
-            Kontext "DocumentCalc"
-            ViewSelectionCalc
-            Kontext "SelectionMath"
-            call DialogTest (SelectionMath)
-        catch
-            qaerrorlog "#i93427# Math Selection Dialog is not available"
-        endcatch
-    end if
-    '/// Close Formular with 'Esc'
-    printlog " Close Formular with 'Esc'"
-    Kontext "DocumentCalc"
-    DocumentCalc.TypeKeys "<Escape>"
-    '/// Close document
-    printlog " Close starting document"
-    call hCloseDocument
-
-endcase
-
-'-----------------------------------------------------------
-
-testcase tInsertChart
-'///<u><b>Insert - Chart</b></u>
-
-    '/// Open new Spreadsheet document
-    printlog " Open new Spreadsheet document"   
-    call hNewDocument
-    '/// Open 'Chart Wizard' by 'Insert – Chart'
-    printlog " Open 'Chart Wizard' by 'Insert – Chart'"
-    InsertChart
-    Kontext "ChartWizard"
-    if ChartWizard.Exists(1) then
-        Call Dialogtest(ChartWizard)
-        '/// Close 'Chart Wizard' with 'Cancel'
-        ChartWizard.Cancel
-    else
-        warnlog "Chart wizard is not available"
-    end if
-    '/// Close document 
-    printlog " Close starting document"
-    call hCloseDocument
-
-endcase
-
-'-----------------------------------------------------------
-
-testcase tInsertFloatingFrame
-'///<u><b>Insert - Floating Frame</b></u>
-
-    '/// Open new Spreadsheet document
-    printlog " Open new Spreadsheet document"   
-    call hNewDocument
-    '/// Open 'Floating Frame Properties' – dialog by 'Insert – Floating Frame'
-    printlog " Open 'Floating Frame Properties' – dialog by 'Insert – Floating Frame'"
-    InsertFloatingFrame
-    Kontext "TabEigenschaften"
-    Dialogtest (TabEigenschaften)
-    '/// Click on 'Browse' – button for 'Contents'
-    printlog " Click on 'Browse' – button for 'Contents'"
-    Oeffnen.Click
-    Kontext "OeffnenDlg"
-    '/// Click on 'Default Directory' – button
-    printlog " Click on 'Default Directory' – button"
-    Standard.click
-    '/// Click on 'Create New Directory' – button
-    printlog " Click on 'Create New Directory' – button"
-    NeuerOrdner.Click
-    Kontext "NeuerOrdner"
-    '/// Close namedialog with 'Cancel'
-    printlog " Close namedialog with 'Cancel'"
-    NeuerOrdner.cancel
-    Kontext "OeffnenDLG"
-    '/// Close 'Select File for Floating Frame' – dialog with 'Cancel'
-    printlog " Close 'Select File for Floating Frame' – dialog with 'Cancel'"
-    OeffnenDlg.Cancel
-    Kontext "TabEigenschaften"
-    '/// Check 'Scrollbar' on
-    printlog " Check 'Scrollbar' on"
-    An.Check
-    '/// Check 'Scrollbar' off
-    printlog " Check 'Scrollbar' off"
-    Aus.Check
-    '/// Check 'Scrollbar' automatic
-    printlog " Check 'Scrollbar' automatic"
-    Automatisch.Check
-    '/// Check 'Border Off'
-    printlog " Check 'Border Off'"
-    UmrandungAus.Check
-    '/// Check 'Border On'
-    printlog " Check 'Border On'"
-    UmrandungAn.Check
-    '/// Uncheck 'Default'
-    printlog " Uncheck 'Default'"
-    BreiteStandard.UnCheck
-    '/// Increase 'Width' by 1
-    printlog " Increase 'Width' by 1"
-    Breite.More
-    '/// Increase 'Height' by 1
-    printlog " Increase 'Height' by 1"
-    Hoehe.More
-    '/// Check 'Default'
-    printlog " Check 'Default'"
-    HoeheStandard.Check
-    '/// Close 'Floating Frame Properties' – dialog  with 'Cancel'
-    printlog " Close 'Floating Frame Properties' – dialog  with 'Cancel'"
-    TabEigenschaften.Cancel
-    '/// Close document 
-    printlog " Close starting document"
-    call hCloseDocument
-
-endcase
-
-
diff --git a/testautomation/spreadsheet/required/includes/c_upd_toolsmenu.inc b/testautomation/spreadsheet/required/includes/c_upd_toolsmenu.inc
deleted file mode 100644
index 74598099b43d..000000000000
--- a/testautomation/spreadsheet/required/includes/c_upd_toolsmenu.inc
+++ /dev/null
@@ -1,957 +0,0 @@
-'encoding UTF-8  Do not remove or change this line!
-'**************************************************************************
-' DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER.
-'
-' Copyright 2000, 2010 Oracle and/or its affiliates.
-'
-' OpenOffice.org - a multi-platform office productivity suite
-'
-' This file is part of OpenOffice.org.
-'
-' OpenOffice.org is free software: you can redistribute it and/or modify
-' it under the terms of the GNU Lesser General Public License version 3
-' only, as published by the Free Software Foundation.
-'
-' OpenOffice.org is distributed in the hope that it will be useful,
-' but WITHOUT ANY WARRANTY; without even the implied warranty of
-' MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
-' GNU Lesser General Public License version 3 for more details
-' (a copy is included in the LICENSE file that accompanied this code).
-'
-' You should have received a copy of the GNU Lesser General Public License
-' version 3 along with OpenOffice.org.  If not, see
-' <http://www.openoffice.org/license.html>
-' for a copy of the LGPLv3 License.
-'
-'/***********************************************************************
-'*
-'* owner : oliver.craemer@oracle.com
-'*
-'* short description : Resource Test - Tools Menu Part I
-'*
-'\***********************************************************************
-
-sub c_upd_toolsmenu
-
-    Printlog Chr(13) + "--------- Tools Menu Part I (c_upd_toolsmenu.inc) ---------"
-    
-    call tToolsSpellcheck
-    call tToolsHangulHanjaConversion
-    call tToolsLanguageChineseTranslation
-    call tToolsLanguageThesaurus
-    call tToolsLanguageHyphenation
-    call tToolsDetective   
-    call tToolsAutoCorrect
-    call tToolsGoalSeek
-    call tToolsScenario
-    call tToolsProtectSheet
-    call tToolsProtectDocument
-    call tToolsCellContents
-    call tToolsGallery
-    call tToolsMediaPlayer
-
-end sub
-
-'-----------------------------------------------------------
-
-testcase tToolsSpellcheck
-'///<u><b>Tools - Spellcheck</b></u>
-
-    Dim iDictionaries as integer
-    
-    printlog " Load document from 'gTesttoolPath + spreadsheet\required\input\english.ods"
-    hFileOpenLocally( gTesttoolPath & "spreadsheet\required\input\english.ods" )
-    '/// Enter 'fgsdftk' in a cell
-    printlog " Enter 'fgsdftk' in a cell"
-    Kontext "DocumentCalc"
-    DocumentCalc.TypeKeys "fgsdftk<Return><Up>"
-    '/// Open 'Spellcheck' – dialog via 'Tools – Spellcheck'
-    printlog " Open 'Spellcheck' – dialog via 'Tools – Spellcheck'"
-    try
-        ToolsSpellcheck
-    catch
-        'for some languages there is no spellchecker available.
-        warnlog "Spellchecking not possible"
-        call hCloseDocument
-        goto endsub
-    endcatch 
-    ' If 'blabla' is already in the dictionary (because of a former failed testrun)
-    ' there will be a messagebox that the spellchecking has finished. The test will abort.
-    Kontext "Active"
-    If Active.Exists then
-        warnlog "It seems that a former testrun has failed, test will abort"
-        printlog "Messagebox: " & Active.GetText
-        Active.OK
-        call hCloseDocument
-        goto endsub
-    end if
-    Kontext "Spellcheck"
-    DialogTest ( Spellcheck )
-    '/// Verify that the 'Add' – button shows dictionaries
-    printlog " Verify that the 'Add' – button shows dictionaries"
-    qaErrorlog "Due to problems on Sols the AddToDictionary-Button is not tested"
-'    try
-'        AddToDictionary.Click
-'        sleep 1
-'        If hMenuItemGetCount < 1 then
-'            warnlog "There are no dictionaries available"
-'        end if
-'    catch
-'        warnlog "The menu on the ADD button could not be opened"
-'    endcatch
-    '/// Verify that the 'Dictionary language' – combobox has items
-    printlog " Verify that the 'Dictionary language' – combobox has items"
-    If DictionaryLanguage.GetItemCount < 1 then
-        warnlog "There are no languages available"
-    end if
-    '/// Open 'Options'- dialog by clicking 'Options' – button
-    printlog " Open 'Options'- dialog by clicking 'Options' – button"
-    SpellcheckOptions.Click
-    Kontext "TabLinguistik"
-    DialogTest ( TabLinguistik )
-    'Memorize the amount of available dictionaries
-    iDictionaries = Benutzerwoerterbuch.GetItemCount
-    Kontext "TabLinguistik"
-    '/// Open 'New Dictionary' – dialog by clicking 'New' – button
-    printlog " Open 'New Dictionary' – dialog by clicking 'New' – button"
-    Neu.Click
-    Kontext "BenutzerwoerterbuchAnlegen"
-    Call DialogTest ( BenutzerwoerterbuchAnlegen )
-    '/// Verify that the 'Language' combobox has items
-    printlog " Verify that the 'Language' combobox has items"
-    If Sprache.GetItemCount < 1 then
-        warnlog "There are no languages available"
-    end if
-    '/// Enter name 'Testdictionary'
-    printlog " Enter name 'Testdictionary'"
-    Woerterbuchname.TypeKeys "Testdictionary"
-    '/// Uncheck 'Exception'
-    printlog " Uncheck 'Exception'"
-    Ausnahme.UnCheck
-    '/// Close dialog with 'OK'
-    printlog " Close dialog with 'OK'"
-    BenutzerwoerterbuchAnlegen.OK
-    Kontext "TabLinguistik"
-    '/// Select 'Testdictionary'
-    Benutzerwoerterbuch.Select (iDictionaries + 1)
-    '/// Click on 'Edit' – button to open 'Edit Custom Dictionary' – dialog
-    printlog " Click on 'Edit' – button to open 'Edit Custom Dictionary' – dialog"
-    Bearbeiten.Click
-    Kontext "BenutzerwoerterbuchBearbeiten"
-    Call DialogTest ( BenutzerwoerterbuchBearbeiten )
-    '/// Verify that the 'Book' combobox has items
-    printlog " Verify that the 'Book' combobox has items"
-    If Buch.GetItemCount < 1 then
-        warnlog "There are no dictionaries available"
-    end if
-    '/// Verify that the 'Language' combobox has items
-    printlog " Verify that the 'Language' combobox has items"
-    If Sprache.GetItemCount < 1 then
-        warnlog "There are no languages available"
-    end if
-    '/// Close dialog with 'Close'
-    printlog " Close dialog with 'Close'"
-    BenutzerwoerterbuchBearbeiten.Close
-    Kontext "TabLinguistik"
-    '/// Click on 'Delete' button
-    printlog " Click on 'Delete' button"
-    Loeschen.Click
-    '/// Close messageboc with 'Yes'
-    printlog " Close messageboc with 'Yes'"
-    Kontext "Active"
-    If Active.Exists then
-        Active.Yes
-    end if
-    Kontext "TabLinguistik"
-    '/// Select ninth option (Minimal number of ...)
-    printlog " Select ninth option (Minimal number of ...)"
-    Optionen.Select (9)
-    '/// Click on 'Edit' – button
-    printlog " Click on 'Edit' – button"
-    OptionenBearbeiten.Click
-    Kontext "HyphenationOptions"
-    Call DialogTest ( HyphenationOptions )
-    '/// Decrease 'Minimal word length'
-    printlog " Decrease 'Minimal word length'"
-    ZeichenVorUmbruch.More
-    '/// Close dialog with 'Cancel'
-    printlog " Close dialog with 'Cancel'"
-    HyphenationOptions.Cancel
-    Kontext "TabLinguistik"
-    '/// Close dialog with 'Cancel'
-    printlog " Close dialog with 'Cancel'"
-    TabLinguistik.Cancel
-    Kontext "Spellcheck"
-    '/// Close 'Spellcheck' – dialog with 'Close'
-    printlog " Close 'Spellcheck' – dialog with 'Close'"
-    Spellcheck.Close
-    '/// Close starting document
-    printlog " Close starting document"
-    call hCloseDocument
-    hFileDelete( gLastWorkFile )
-
-endcase
-
-'-----------------------------------------------------------
-
-testcase tToolsHangulHanjaConversion
-'///<u><b>Tools - Hangul/Hanja Conversion</b></u>
-
-    Dim bAsianLanguage as boolean
-    Dim bCTLlanguage as boolean
-
-    '/// Open new Spreadsheet document
-    printlog " Open new Spreadsheet document"
-    Call hNewDocument
-    '/// Enable language support for CJK and CTL (Tools-Options-Language Support)
-    printlog " Enable language support for CJK and CTL (Tools-Options-Language Support)"
-    bAsianLanguage = ActiveDeactivateAsianSupport(TRUE)
-    bCTLLanguage = ActiveDeactivateCTLSupport(TRUE)
-    '/// Load document from 'gTesttoolPath + "spreadsheet\required\input\korean.ods"'
-    printlog " Load document from 'gTesttoolPath + spreadsheet\required\input\korean.ods"
-    hFileOpenLocally( gTesttoolPath & "spreadsheet\required\input\korean.ods" )
-    '/// Select cell B1
-    printlog " Select cell B1"
-    Call fCalcSelectRange ("B1")
-    '/// Open 'Hangul/Hanja Conversion' dialog via 'Tools – Language – Hangul/Hanja Conversion'
-    printlog " Open 'Hangul/Hanja Conversion' dialog via 'Tools – Language – Hangul/Hanja Conversion'"
-    ToolsLanguageHangulHanjaConversion
-    Kontext "HangulHanjaConversion"
-    if HangulHanjaConversion.Exists (5) then
-        Call DialogTest ( HangulHanjaConversion )
-    else 
-        call hCloseDocument
-        goto endsub
-    end if
-    '/// Click on 'Options'  button to open 'Hangul/Hanja Options' dialog
-    printlog " Click on 'Options'  button to open 'Hangul/Hanja Options' dialog"
-    Options.Click
-    Kontext "HangulHanjaOptions"
-    if HangulHanjaOptions.Exists (5) then
-        Call DialogTest ( HangulHanjaOptions )
-    else 
-        warnlog " Hangul/Hanja Options' dialog could not be open"
-        HangulHanjaConversion.Cancel
-        call hCloseDocument
-        goto endsub
-    end if
-    '/// Click on 'New' button
-    printlog " Click on 'New' button"
-    NewDictionary.Click
-    Kontext "HangulHanjaNewDictionary"
-    if HangulHanjaNewDictionary.Exists (5) then
-        Call DialogTest ( HangulHanjaNewDictionary )
-    else 
-        warnlog " HangulHanjaNewDictionary dialog could not be opened"
-        Kontext "HangulHanjaOptions"
-        HangulHanjaOptions.Cancel
-        Kontext "HangulHanjaConversion"
-        HangulHanjaConversion.Cancel
-        call hCloseDocument
-        goto endsub
-    end if
-    '/// Enter string 'Dictionary_added_by_Testtool'
-    printlog " Enter string 'Dictionary_added_by_Testtool'"
-    DictionaryName.Settext "Dictionary_added_by_Testtool"
-    '/// Close dialog with 'OK'
-    printlog " Close dialog with 'OK'"
-    HangulHanjaNewDictionary.OK
-    sleep 1
-    Kontext "HangulHanjaOptions"
-    '/// Click on 'Edit' button
-    printlog " Click on 'Edit' button"
-    if HangulHanjaOptions.Exists (5) then
-        EditDictionary.Click
-        sleep 1
-    else 
-        warnlog " Edit button could not be accessed"
-        HangulHanjaConversion.Cancel
-        call hCloseDocument
-        goto endsub
-    end if
-    Kontext "HangulHanjaEditDictionary"
-    if HangulHanjaEditDictionary.Exists (5) then
-        Call DialogTest ( HangulHanjaEditDictionary )
-    else 
-        warnlog " HangulHanjaEditDictionary dialog could not be opened"
-        Kontext "HangulHanjaOptions"
-        HangulHanjaOptions.Cancel
-        Kontext "HangulHanjaConversion"
-        HangulHanjaConversion.Cancel
-        call hCloseDocument
-        goto endsub
-    end if
-    '/// Close 'Edit Custom Dictionary' dialog with 'Close'
-    printlog " Close 'Edit Custom Dictionary' dialog with 'Close'"
-    HangulHanjaEditDictionary.Close
-    Kontext "HangulHanjaOptions"
-    '/// Click on 'Delete' button
-    printlog " Click on 'Delete' button"
-    DeleteDictionary.Click
-    '/// UnCheck 'Ignore post-positional words'
-    printlog " UnCheck 'Ignore post-positional words'"
-    IgnorePostPositionalWord.UnCheck
-    '/// Check 'Show entries'
-    printlog " Check 'Show entries'"
-    ShowEntries.Check
-    '/// Check 'Replace Unique Entries'
-    printlog " Check 'Replace Unique Entries'"
-    ReplaceUniqueEntries.Check
-    '/// Close 'Hangul/Hanja Options' dialog with 'Cancel'
-    printlog " Close 'Hangul/Hanja Options' dialog with 'Cancel'"
-    HangulHanjaOptions.Cancel
-    Kontext "HangulHanjaConversion"
-    '/// Close 'Hangul/Hanja Conversion' dialog with 'Close'
-    printlog " Close 'Hangul/Hanja Conversion' dialog with 'Close'"
-    HangulHanjaConversion.Close
-    '/// Set support for CJK and CTL back to default (Tools – Options – Language Support)
-    printlog " Set support for CJK and CTL back to default (Tools – Options – Language Support)"
-    if bAsianLanguage = FALSE then
-        Call ActiveDeactivateAsianSupport(FALSE)
-    end if
-    if bCTLLanguage = FALSE then
-        Call ActiveDeactivateCTLSupport(FALSE)
-    end if
-    '/// Close document
-    printlog " Close document"
-    call hCloseDocument
-    hFileDelete( gLastWorkFile )
-
-endcase
-
-'-----------------------------------------------------------
-
-testcase tToolsLanguageChineseTranslation
-'///<u><b>Tools – Language – Chinese Translation</b></u>
-
-    Dim bAsianLanguage as boolean
-    Dim bCTLlanguage as boolean
-
-    '/// Open new Spreadsheet document
-    printlog " Open new Spreadsheet document"
-    Call hNewDocument
-    '/// Enable language support for CJK and CTL (Tools-Options-Language Support)
-    printlog " Enable language support for CJK and CTL (Tools-Options-Language Support)"
-    bAsianLanguage = ActiveDeactivateAsianSupport(TRUE)
-    bCTLLanguage = ActiveDeactivateCTLSupport(TRUE)
-    '/// Open 'Chinese Translation' dialog by 'Tools – Language – Chinese Translation'
-    printlog " Open 'Chinese Translation' dialog by 'Tools – Language – Chinese Translation'"
-    ToolsLanguageChineseTranslation
-    Kontext "ChineseTranslation"
-    Call DialogTest ( ChineseTranslation )
-    '/// Click on 'Edit Terms' button to open 'Edit Dictionary' dialog
-    printlog " Click on 'Edit Terms' button to open 'Edit Dictionary' dialog"
-    EditTerms.Click
-    Kontext "ChineseDictionary"
-    Call DialogTest ( ChineseDictionary )
-    '/// Close dialog with 'Cancel'
-    printlog " Close dialog with 'Cancel'"
-    ChineseDictionary.Cancel
-    Kontext "ChineseTranslation"
-    '/// Close 'Chinese Translation' dialog with 'Cancel'
-    printlog " Close 'Chinese Translation' dialog with 'Cancel'"
-    ChineseTranslation.Cancel
-    '/// Set support for CJK and CTL back to default (Tools – Options – Language Support)
-    printlog " Set support for CJK and CTL back to default (Tools – Options – Language Support)"
-    if bAsianLanguage = FALSE then
-        Call ActiveDeactivateAsianSupport(FALSE)
-    end if
-    if bCTLLanguage = FALSE then
-        Call ActiveDeactivateCTLSupport(FALSE)
-    end if
-    '/// Close document
-    printlog " Close document"
-    call hCloseDocument
-
-endcase
-
-'-----------------------------------------------------------
-
-testcase tToolsLanguageThesaurus
-'///<u><b>Tools – Language – Chinese Translation</b></u>
-
-    printlog " Load document from 'gTesttoolPath + spreadsheet\required\input\english.ods"
-    hFileOpenLocally( gTesttoolPath & "spreadsheet\required\input\english.ods" )
-    Kontext "DocumentCalc"
-    printlog " Enter 'test' in a cell"
-    Call fCalcSelectRange ("B2")
-    DocumentCalc.TypeKeys "test<Return><Up>"
-    printlog " Open 'Thesaurus' dialog by 'Tools – Language – Thesaurus"
-    try
-        ToolsLanguageThesaurus
-    catch
-        warnlog "Thesaurus did not work"
-        call hCloseDocument
-        goto endsub
-    endcatch
-    Kontext "Thesaurus"
-    DialogTest ( Thesaurus )
-    printlog " Check if the cellcontent test is correctly read"
-    if CurrentWord.GetSelText <> "test" then
-        warnlog "The cellcontent is not test but is " & CurrentWord.GetSelText
-    end if
-    printlog " Check that there are alternatives available"
-    if Alternatives.GetItemCount < 1 then
-        warnlog "There are no alternatives available"
-    else
-        Alternatives.Select (1)
-        sleep (1)
-        if ReplaceWith.GetText = "" then
-            warnlog "The repacle with field is empty"
-        end if
-    end if
-    printlog " Close 'Thesaurus' with 'Cancel'"
-    Thesaurus.Cancel
-    printlog " Close document"
-    call hCloseDocument
-    hFileDelete( gLastWorkFile )
-
-endcase
-
-'-----------------------------------------------------------
-
-testcase tToolsLanguageHyphenation
-'///<u><b>Tools – Language – Hyphenation</b></u>
-
-    '/// Open new Spreadsheet document
-    printlog " Open new Spreadsheet document"
-    call hNewDocument
-    '/// Enter 'blabla' in a cell
-    printlog " Enter 'blabla' in a cell"
-    Call fCalcSelectRange ("B2")
-    DocumentCalc.TypeKeys "blabla<Return><Up>"
-    '/// Use 'Tools – Language – Hyphenation' to open 'Format Cells' dialog
-    printlog " Use 'Tools – Language – Hyphenation' to open 'Format Cells' dialog"
-    ToolsLanguageHyphenateCalc
-    Kontext "TabAusrichtung"
-    '/// Close dialog with 'Cancel'
-    printlog " Close dialog with 'Cancel'"
-    TabAusrichtung.Cancel
-    '/// Close document
-    printlog " Close document"
-    call hCloseDocument
-
-endcase
-
-'-----------------------------------------------------------
-
-testcase tToolsDetective
-'///<u><b>Tools – Detective</b></u>
-
-    '/// Open new Spreadsheet document
-    printlog " Open new Spreadsheet document"
-    Call hNewDocument
-    '/// Enter '1' in cell A1
-    printlog " Enter '1' in cell A1"
-    Call fCalcSelectRange ("A1")
-    DocumentCalc.TypeKeys "1<Return>"
-    '/// Enter '=A1' in cell C4
-    printlog " Enter '=A1' in cell C4"
-    Call fCalcSelectRange ("C4")
-    DocumentCalc.TypeKeys "=A1<Return>"
-    '/// Select cell C4
-    printlog " Select cell C4"
-    Call fCalcSelectRange ("C4")
-    '/// Enable 'Trace Precedents' by 'Tools – Detective – Trace Precedents'
-    printlog " Enable 'Trace Precedents' by 'Tools – Detective – Trace Precedents'"
-    ToolsDetectiveTracePrecedents
-    '/// Disable 'Trace Precedents' by 'Tools – Detective – Remove Precedents'
-    printlog " Disable 'Trace Precedents' by 'Tools – Detective – Remove Precedents'"
-    ToolsDetectiveRemovePrecedents
-    '/// Select cell A1
-    printlog " Select cell A1"
-    Call fCalcSelectRange ("A1")
-    '/// Enable 'Trace Dependents' by 'Tools – Detective – Trace Dependents'
-    printlog " Enable 'Trace Dependents' by 'Tools – Detective – Trace Dependents'"
-    ToolsDetectiveTraceDependents
-    '/// Disable 'Trace Dependents' by 'Tools – Detective – Remove Dependents'
-    printlog " Disable 'Trace Dependents' by 'Tools – Detective – Remove Dependents'"
-    ToolsDetectiveRemoveDependents
-    '/// Remove 'All Traces' by 'Tools – Detective – Remove All Traces'
-    printlog " Remove 'All Traces' by 'Tools – Detective – Remove All Traces'"
-    ToolsDetectiveRemoveAllTraces
-    '/// Enter '=C4/0' in cell C7
-    printlog " Enter '=C4/0' in cell C7"
-    Call fCalcSelectRange ("C7")
-    DocumentCalc.TypeKeys "=C4/0<Return>"
-    '/// Select cell C7
-    printlog " Select cell C7"
-    Call fCalcSelectRange ("C7")
-    '/// Enable 'Trace Error' by 'Tools – Detective – Trace Error'
-    printlog " Enable 'Trace Error' by 'Tools – Detective – Trace Error'"
-    ToolsDetectiveTraceError
-    '/// Enable 'Mark Invalid Data' by 'Tools – Detective – Mark Invalid Data'
-    printlog " Enable 'Mark Invalid Data' by 'Tools – Detective – Mark Invalid Data'"
-    ToolsDetectiveMarkInvalidData
-    '/// Refresh traces by 'Tools – Detective – Refresh Traces'
-    printlog " Refresh traces by 'Tools – Detective – Refresh Traces'"
-    ToolsDetectiveRefreshTraces
-    '/// Switch mode of autorefreshing by 'Tools – Detective – AutoRefresh'
-    printlog " Switch mode of autorefreshing by 'Tools – Detective – AutoRefresh'"
-    ToolsDetectiveAutoUpdate
-    '/// Switch mode back to default for autorefreshing by 'Tools – Detective – AutoRefresh'
-    printlog " Switch mode back to default for autorefreshing by 'Tools – Detective – AutoRefresh'"
-    ToolsDetectiveAutoUpdate
-    '/// Switch 'Fill Mode' by 'Tools – Detective – Fill Mode'
-    printlog " Switch 'Fill Mode' by 'Tools – Detective – Fill Mode'"
-    ToolsDetectiveFillMode
-    '/// Switch 'Fill Mode' back to default by 'Tools – Detective – Fill Mode'
-    printlog " Switch 'Fill Mode' back to default by 'Tools – Detective – Fill Mode'"
-    ToolsDetectiveFillMode
-    '/// Close document
-    printlog " Close document"
-    Call hCloseDocument
-
-endcase
-
-'-----------------------------------------------------------
-
-testcase tToolsAutoCorrect
-'///<u><b>Tools – AutoCorrect</b></u>
-
-    '/// Open new Spreadsheet document
-    printlog " Open new Spreadsheet document"
-    call hNewDocument
-    '/// Open 'AutoCorrect' dialog by 'Tools – AutoCorrect'
-    printlog " Open 'AutoCorrect' dialog by 'Tools – AutoCorrect'"
-    ToolsAutocorrect
-    '/// Switch to tabpage 'Replace'
-    printlog " Switch to tabpage 'Replace'"
-    Kontext
-    active.SetPage TabErsetzung
-    Kontext "TabErsetzung"
-    Call DialogTest ( TabErsetzung )
-    '/// Verify that the language combobox has items
-    printlog " Verify that the language combobox has items"
-    if WelcheSprache.GetItemCount < 1 then
-        warnlog "The Language listbox is empty"
-    end if
-    '/// Enter string 'Testerentrie' in 'Replace' field
-    printlog " Enter string 'Testerentrie' in 'Replace' field"
-    Kuerzel.SetText "Testerentrie"
-    '/// Enter string 'Testentrie' in 'With' field
-    printlog " Enter string 'Testentrie' in 'With' field"
-    ErsetzenDurch.SetText "Testentrie"
-    '/// Click on 'New' button
-    printlog " Click on 'New' button"
-    Neu.Click
-    '/// Click on 'Delete' button
-    printlog " Click on 'Delete' button"
-    Loeschen.Click
-    '/// Switch to tabpage 'Exceptions'
-    printlog " Switch to tabpage 'Exceptions'"
-    Kontext
-    active.SetPage TabAusnahmen
-    Kontext "TabAusnahmen"
-    Call DialogTest ( TabAusnahmen )
-    '/// Enter string 'olala' as 'Abbreviation'
-    printlog " Enter string 'olala' as 'Abbreviation'"
-    Abkuerzungen.SetText "olala"
-    '/// Press 'New' button
-    printlog " Press 'New' button"
-    AbkuerzungenNeu.click
-    '/// Press 'Delete' button
-    printlog " Press 'Delete' button"
-    AbkuerzungenLoeschen.click
-    '/// Enter string 'TTLauncher' in 'Words with ...'
-    printlog " Enter string 'TTLauncher' in 'Words with ...'"
-    Woerter.SetText "TTLauncher"
-    '/// Press 'New' button
-    printlog " Press 'New' button"
-    WoerterNeu.click
-    '/// Press 'Delete' button
-    printlog " Press 'Delete' button"
-    WoerterLoeschen.click
-    '/// Switch to tabpage 'Options'
-    printlog " Switch to tabpage 'Options'"
-    Kontext
-    active.SetPage TabOptionen
-    Kontext "TabOptionen"
-    Call DialogTest ( TabOptionen )
-    '/// Switch to tabpage 'Custom Quotes'
-    printlog " Switch to tabpage 'Custom Quotes'"
-    Kontext
-    active.SetPage TabLocalizedOptions
-    Kontext "TabLocalizedOptions"
-    Call DialogTest ( TabLocalizedOptions )
-    '/// Press on button for 'Start quote' for 'Single quotes'
-    printlog " Press on button for 'Start quote' for 'Single quotes'"
-    SingleQuotesStart.Click
-    Kontext "Sonderzeichen"
-    '/// Close 'Start quote' dialog with 'Cancel'
-    printlog " Close 'Start quote' dialog with 'Cancel'"
-    Sonderzeichen.Cancel
-    Kontext "TabLocalizedOptions"
-    '/// Press on button for 'End quote' for 'Single quotes'
-    printlog " Press on button for 'End quote' for 'Single quotes'"
-    SingleQuotesEnd.Click
-    Kontext "Sonderzeichen"
-    '/// Close 'End quote' dialog with 'Cancel'
-    printlog " Close 'End quote' dialog with 'Cancel'"
-    Sonderzeichen.Cancel
-    Kontext "TabLocalizedOptions"
-    '/// Click on 'Default' button for 'Single quotes'
-    printlog " Click on 'Default' button for 'Single quotes'"
-    SingleQuotesDefault.Click
-    '/// Press on button for 'Start quote' for 'Double quotes'
-    printlog " Press on button for 'Start quote' for 'Double quotes'"
-    DoubleQuotesStart.Click
-    Kontext "Sonderzeichen"
-    '/// Close 'Start quote' dialog with 'Cancel'
-    printlog " Close 'Start quote' dialog with 'Cancel'"
-    Sonderzeichen.Cancel
-    Kontext "TabLocalizedOptions"
-    '/// Press on button for 'End quote' for 'Double quotes'
-    printlog " Press on button for 'End quote' for 'Double quotes'"
-    DoubleQuotesEnd.Click
-    Kontext "Sonderzeichen"
-    '/// Close 'End quote' dialog with 'Cancel'
-    printlog " Close 'End quote' dialog with 'Cancel'"
-    Sonderzeichen.Cancel
-    Kontext "TabLocalizedOptions"
-    '/// Click on 'Default' button for 'Double quotes'
-    printlog " Click on 'Default' button for 'Double quotes'"
-    DoubleQuotesDefault.Click
-    '/// Close 'AutoCorrect' dialog with 'Cancel'
-    printlog " Close 'AutoCorrect' dialog with 'Cancel'"
-    TabLocalizedOptions.cancel
-    '/// Close document
-    printlog " Close document"
-    call hCloseDocument 
-
-endcase
-
-'-----------------------------------------------------------
-
-testcase tToolsGoalSeek
-'///<u><b>Tools - Goal Seek</b></u>
-
-    '/// Open new Spreadsheet document
-    printlog " Open new Spreadsheet document"
-    Call hNewDocument
-    '/// Open 'Goal Seek' dialog by 'Tools – Goal Seek'
-    printlog " Open 'Goal Seek' dialog by 'Tools – Goal Seek'"
-    ToolsGoalSeek
-    Kontext "Zielwertsuche"
-    DialogTest ( Zielwertsuche )
-    '/// Click on 'Shrink' button for 'Formula Cell'
-    printlog " Click on 'Shrink' button for 'Formula Cell'"
-    Vorgaben1.Click
-    '/// Close rangechooser with 'Shrink' button
-    printlog " Close rangechooser with 'Shrink' button"
-    Vorgaben1.Click
-    '/// Click on 'Shrink' button for 'Variable Cell'
-    printlog " Click on 'Shrink' button for 'Variable Cell'"
-    Vorgaben2.Click
-    '/// Close rangechooser with 'Shrink' button
-    printlog " Close rangechooser with 'Shrink' button"
-    Vorgaben2.Click
-    '/// Close 'Goal Seek' dialog with 'Cancel'
-    printlog " Close 'Goal Seek' dialog with 'Cancel'"
-    Zielwertsuche.Cancel
-    '/// Close document
-    printlog " Close document"
-    call hCloseDocument
-
-endcase
-
-'-----------------------------------------------------------
-
-testcase tToolsScenario
-'///<u><b>Tools - Scenario</b></u>
-
-    '/// Open new Spreadsheet document
-    printlog " Open new Spreadsheet document"
-    Call hNewDocument
-    '/// Enter '1' in A1, '2' in A2, '3' in A3
-    printlog " Enter '1' in A1, '2' in A2, '3' in A3"
-    Call fCalcSelectRange ("A1")
-    DocumentCalc.TypeKeys "1<Return>2<Return>3<Return>"
-    '/// Select cells A1:A3
-    printlog " Select cells A1:A3"
-    Call fCalcSelectRange ("A1:A3")
-    '/// Open 'Create Scenario' dialog by 'Tools – Scenario'
-    printlog " Open 'Create Scenario' dialog by 'Tools – Scenario'"
-    ToolsScenarios
-    Kontext "SzenarioAnlegen"
-    DialogTest ( SzenarioAnlegen )
-    '/// Enter 'Scenario_by_Testtool' as 'Name of Scenario'
-    printlog " Enter 'Scenario_by_Testtool' as 'Name of Scenario'"
-    SzenarioName.SetText "Scenario_by_Testtool"
-    '/// Enter 'Comment_by_Testtool' as 'Comment'
-    printlog " Enter 'Comment_by_Testtool' as 'Comment'"
-    Kommentar.SetText "Comment_by_Testtool"
-    '/// Verify that the color combobox has items
-    printlog " Verify that the color combobox has items"
-    If Rahmenfarbe.GetItemCount < 1 then
-        warnlog "The colorbox is empty"
-    end if
-    '/// Check 'Display border'
-    printlog " Check 'Display border'"
-    RahmenAnzeigen.Check
-    '/// Check 'Copy back'
-    printlog " Check 'Copy back'"
-    Zurueckkopieren.Check
-    '/// UnCheck 'Copy entire sheet'
-    printlog " UnCheck 'Copy entire sheet'"
-    GanzeTabelle.UnCheck
-    '/// Check 'PreventChanges'
-    printlog " Check 'PreventChanges'"
-    PreventChanges.Check
-    '/// Close 'Create Scenario' dialog with 'Cancel'
-    printlog " Close 'Create Scenario' dialog with 'Cancel'"
-    SzenarioAnlegen.Cancel
-    '/// Close document
-    printlog " Close document"
-    Call hCloseDocument
-
-endcase
-
-'-----------------------------------------------------------
-
-testcase tToolsProtectSheet
-'///<u><b>Tools - Protect – Sheet</b></u>
-
-    '/// Open new Spreadsheet document
-    printlog " Open new Spreadsheet document"
-    Call hNewDocument
-    '/// Open 'Protect Sheet' dialog by 'Tools – Protect – Sheet'
-    printlog " Open 'Protect Sheet' dialog by 'Tools – Protect – Sheet'"
-    ToolsProtectDocumentSheet
-    Kontext "TabelleSchuetzen"
-    DialogTest ( TabelleSchuetzen,1 )
-    '/// Enter 'Secret' as 'Password'
-    printlog " Enter 'Secret' as 'Password'"
-    Passwort.SetText "Secret"
-    '/// Enter 'Secred' as 'Confirm'
-    printlog " Enter 'Secred' as 'Confirm'"
-    Bestaetigung.SetText "Secred"
-    '/// Press 'OK' button
-    printlog " Press 'OK' button"
-    TabelleSchuetzen.Ok
-    '/// Close errormessage with 'OK'
-    printlog " Close errormessage with 'OK'"
-    Kontext "Active"
-    if Active.Exists then
-       DialogTest ( Active )
-       Active.OK
-    else
-        warnlog "There is no error message by confirming a wrong password!"
-    end if
-    '/// Enter 'Secret' as 'Confirm'
-    printlog " Enter 'Secret' as 'Confirm'"
-    Kontext "TabelleSchuetzen"
-    Bestaetigung.SetText "Secret"
-    '/// Press 'OK' button
-    printlog " Press 'OK' button"
-    TabelleSchuetzen.Ok
-    '/// Open 'Unprotect Sheet' dialog by 'Tools - Protect – Sheet'
-    printlog " Open 'Unprotect Sheet' dialog by 'Tools - Protect – Sheet'"
-    ToolsProtectDocumentSheet
-    Kontext "TabelleSchuetzen"
-    DialogTest ( TabelleSchuetzen,2 )
-    '/// Enter string 'Secret'
-    printlog " Enter string 'Secret'"
-    Passwort.setText "Secret"
-    '/// Press 'OK' button
-    printlog " Press 'OK' button"
-    TabelleSchuetzen.Ok
-    '/// Close document
-    printlog " Close document"
-    Call hCloseDocument
-
-endcase
-
-'-----------------------------------------------------------
-
-testcase tToolsProtectDocument
-'///<u><b>Tools - Protect – Document</b></u>
-
-    '/// Open new Spreadsheet document
-    printlog " Open new Spreadsheet document"
-    Call hNewDocument
-    '/// Open 'Protect Document' dialog by 'Tools – Protect – Document'
-    printlog " Open 'Protect Document' dialog by 'Tools – Protect – Document'"
-    ToolsProtectDocumentDocument
-    Kontext "DokumentSchuetzen"
-    DialogTest ( DokumentSchuetzen,1 )
-    '/// Enter 'Secret' as 'Password'
-    printlog " Enter 'Secret' as 'Password'"
-    Passwort.setText "Secret"
-    '/// Enter 'Secred' as 'Confirm'
-    printlog " Enter 'Secred' as 'Confirm'"
-    Bestaetigung.SetText "Secred"
-    '/// Press 'OK' button
-    printlog " Press 'OK' button"
-    DokumentSchuetzen.ok
-    '/// Close errormessage with 'OK'
-    printlog " Close errormessage with 'OK'"
-    Kontext "Active"
-    if Active.Exists then
-       DialogTest ( Active )
-       Active.OK
-    else
-        warnlog "There is no error message by confirming a wrong password!"
-    end if
-    Kontext "DokumentSchuetzen"
-    '/// Enter 'Secret' as 'Confirm'
-    printlog " Enter 'Secret' as 'Confirm'"
-    Bestaetigung.SetText "Secret"
-    '/// Press 'OK' button
-    printlog " Press 'OK' button"
-    DokumentSchuetzen.OK
-    '/// Open 'Unprotect Document' dialog by 'Tools - Protect – Document'
-    printlog " Open 'Unprotect Document' dialog by 'Tools - Protect – Document'"
-    ToolsProtectDocumentDocument
-    Kontext "DokumentSchuetzen"
-    DialogTest ( DokumentSchuetzen,2 )
-    '/// Enter string 'Secret'
-    printlog " Enter string 'Secret'"
-    Passwort.setText "Secret"
-    '/// Press 'OK' button
-    printlog " Press 'OK' button"
-    DokumentSchuetzen.OK
-    '/// Close document
-    printlog " Close document"
-    Call hCloseDocument
-
-endcase
-
-'-----------------------------------------------------------
-
-testcase tToolsCellContents
-'///<u><b>Tools - Cell Contents</b></u>
-
-    '/// Open new Spreadsheet document
-    printlog " Open new Spreadsheet document"
-    Call hNewDocument
-    '/// Recalculate cells by 'Tools – Cell Contents – Recalculate'
-    printlog " Recalculate cells by 'Tools – Cell Contents – Recalculate'"
-    ToolsCellContentsRecalculate
-    '/// Switch 'AutoCalculate' mode by  'Tools – Cell Contents – AutoCalculate'
-    printlog " Switch 'AutoCalculate' mode by  'Tools – Cell Contents – AutoCalculate'"
-    ToolsCellContentsAutoCalculate
-    '/// Switch 'AutoCalculate' mode back by  'Tools – Cell Contents – AutoCalculate'
-    printlog " Switch 'AutoCalculate' mode back by  'Tools – Cell Contents – AutoCalculate'"
-    ToolsCellContentsAutoCalculate
-    '/// Switch 'AutoInput' mode by  'Tools – Cell Contents – AutoInput'
-    printlog " Switch 'AutoInput' mode by  'Tools – Cell Contents – AutoInput'"
-    ToolsCellContentsAutoInput
-    '/// Switch 'AutoInput' mode back by  'Tools – Cell Contents – AutoInput'
-    printlog " Switch 'AutoInput' mode back by  'Tools – Cell Contents – AutoInput'"
-    ToolsCellContentsAutoInput
-    '/// Close document
-    printlog " Close document"
-    Call hCloseDocument
-
-endcase
-
-'-----------------------------------------------------------
-
-testcase tToolsGallery
-'///<u><b>Tools - Gallery</b></u>
-
-    '/// Open new Spreadsheet document
-    printlog " Open new Spreadsheet document"
-    Call hNewDocument
-    '/// Enable 'Gallery' by 'Tools – Gallery'
-    printlog " Enable 'Gallery' by 'Tools – Gallery'"
-    Kontext "Gallery"
-	if Not Gallery.Exists then ToolsGallery
-    Kontext "Gallery"
-    '/// Verify that there are 'Themes' available (more than one)
-    printlog " Verify that there are 'Themes' available (more than one)"
-    If Gallerys.getItemCount < 1 then
-        warnlog "There are no items in the Gallerylist"
-    end if
-    '/// Click on 'New Theme' button
-    printlog " Click on 'New Theme' button"
-    NewTheme.Click
-    '/// Switch to tabpage 'General'
-    printlog " Switch to tabpage 'General'"
-    Kontext
-    Active.SetPage TabAllgemeinGallery
-    Kontext "TabAllgemeinGallery"
-    Call DialogTest ( TabAllgemeinGallery )
-    '/// Switch to tabpage 'Files'
-    printlog " Switch to tabpage 'Files'"
-    Kontext
-    Active.SetPage TabDateien
-    Kontext "TabDateien"
-    Call DialogTest ( TabDateien )
-    '/// Verify that the 'File type' combobox has items
-    printlog " Verify that the 'File type' combobox has items"
-    If Dateityp.GetItemCount < 1 then
-        warnlog "There are no filetypes available"
-    end if
-    '/// Click on 'Find Files' button
-    printlog " Click on 'Find Files' button"
-    Suche.Click
-    Kontext "OeffnenDlg"
-    '/// Close 'Select Path' dialog with 'Cancel'
-    printlog " Close 'Select Path' dialog with 'Cancel'"
-    OeffnenDlg.Cancel
-    Kontext "TabDateien"
-    '/// Click on 'Add' button to open 'Gallery' dialog
-    printlog " Click on 'Add' button to open 'Gallery' dialog"
-    Hinzufuegen.Click
-    Kontext "GrafikEinfuegenDlg"
-    '/// Close 'Gallery' dialog with 'Cancel'
-    printlog " Close 'Gallery' dialog with 'Cancel'"
-    GrafikEinfuegenDlg.Cancel
-    Kontext "TabDateien"
-    '/// Close 'Properties' dialog with 'Cancel'
-    printlog " Close 'Properties' dialog with 'Cancel'"
-    TabDateien.Cancel
-    '/// Disable 'Gallery' by 'Tools – Gallery'
-    printlog " Disable 'Gallery' by 'Tools – Gallery'"
-    ToolsGallery
-    Kontext "Gallery"
-    if Gallery.Exists then 
-        Warnlog "The Gallery has not been closed!"
-    end if
-    '/// Close document
-    printlog " Close document"
-    Call hCloseDocument
-
-endcase
-
-'-----------------------------------------------------------
-
-testcase tToolsMediaPlayer
-'///<u><b>Tools - Media Player</b></u>
-
-    '/// Open new Spreadsheet document
-    printlog " Open new Spreadsheet document"
-    Call hNewDocument
-    '/// Open 'Media Player' by 'Tools – Media Player'
-    printlog " Open 'Media Player' by 'Tools – Media Player'"
-    ToolsMediaPlayer
-    Kontext "Mplayer"
-    Call DialogTest ( Mplayer )
-    '/// Click on 'Open' button
-    printlog " Click on 'Open' button"
-    Mopen.Click
-    Kontext "OeffnenDlg"
-    '/// Verify that there are more than one filter available
-    printlog " Verify that there are more than one filter available"
-    If DateiTyp.GetItemCount < 1 then
-        warnlog "There are no filters available"
-    end if
-    '/// Close dialog with 'Cancel'
-    printlog " Close dialog with 'Cancel'"
-    OeffnenDlg.Cancel
-    '/// Close 'Media Player' by 'Tools – Media Player'
-    printlog " Close 'Media Player' by 'Tools – Media Player'"
-    ToolsMediaPlayer
-    '/// Close document
-    printlog " Close document"
-    Call hCloseDocument
-
-endcase
-
-'-----------------------------------------------------------
-
-
-
-
diff --git a/testautomation/spreadsheet/required/includes/c_upd_toolsmenu2.inc b/testautomation/spreadsheet/required/includes/c_upd_toolsmenu2.inc
deleted file mode 100644
index f11857cf44ad..000000000000
--- a/testautomation/spreadsheet/required/includes/c_upd_toolsmenu2.inc
+++ /dev/null
@@ -1,517 +0,0 @@
-'encoding UTF-8  Do not remove or change this line!
-'**************************************************************************
-' DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER.
-'
-' Copyright 2000, 2010 Oracle and/or its affiliates.
-'
-' OpenOffice.org - a multi-platform office productivity suite
-'
-' This file is part of OpenOffice.org.
-'
-' OpenOffice.org is free software: you can redistribute it and/or modify
-' it under the terms of the GNU Lesser General Public License version 3
-' only, as published by the Free Software Foundation.
-'
-' OpenOffice.org is distributed in the hope that it will be useful,
-' but WITHOUT ANY WARRANTY; without even the implied warranty of
-' MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
-' GNU Lesser General Public License version 3 for more details
-' (a copy is included in the LICENSE file that accompanied this code).
-'
-' You should have received a copy of the GNU Lesser General Public License
-' version 3 along with OpenOffice.org.  If not, see
-' <http://www.openoffice.org/license.html>
-' for a copy of the LGPLv3 License.
-'
-'/***********************************************************************
-'*
-'* owner : oliver.craemer@oracle.com
-'*
-'* short description : Resource Test - Tools Menu Part II
-'*
-'************************************************************************
-'*
-' #1 tToolsMacro
-' #1 tToolsExtensionManager
-' #1 tToolsXMLFilterSettings
-' #1 tToolsCustomize
-' #1 tToolsOptions
-' #1 tToolsSolver
-'*
-'\***********************************************************************
-
-sub c_upd_toolsmenu2
-
-    Printlog Chr(13) + "--------- Tools Menu Part II (c_upd_toolsmenu2.inc) ---------"
-    
-
-    call tToolsMacro
-    call tToolsExtensionManager
-    call tToolsXMLFilterSettings
-    call tToolsCustomize
-    call tToolsOptions
-    call tToolsSolver
-
-end sub
-
-'-----------------------------------------------------------
-
-testcase tToolsMacro
-'///<u><b>Tools - Macro</b></u>
-
-	Dim iWhichSecurityLevel as integer
-	printlog " Set SecurityLevel to low and remember starting value"
-	iWhichSecurityLevel = hSetMacroSecurity(0)
-
-    '/// Open new Spreadsheet document
-    printlog " Open new Spreadsheet document"
-    Call hNewDocument
-    '/// Record macro by 'Tools – Macro – Record'
-    printlog " Record macro by 'Tools – Macro – Record'"
-'    ToolsMacroRecordMacro
-'    Kontext "
-    '/// Close macro recording by clicking 'Stop Recording'
-    printlog " Close macro recording by clicking 'Stop Recording'"
-'    
-    '/// Open 'Macro Selector' dialog by 'Tools – Macro – Run'
-    printlog " Open 'Macro Selector' dialog by 'Tools – Macro – Run'"
-    ToolsMacrosRunMacro
-    Kontext "ScriptSelector"
-    Call DialogTest ( ScriptSelector )
-    '/// Close 'Macro Selector' dialog with 'Cancel
-    printlog " Close 'Macro Selector' dialog with 'Cancel"
-    ScriptSelector.Cancel
-    '/// Open Macro dialog by 'Tools – Macro – Organize Macros – StarOffice Basic'
-    printlog " Open Macro dialog by 'Tools – Macro – Organize Macros – StarOffice Basic'"
-    ToolsMacro
-    Kontext "Makro"
-    Call DialogTest ( Makro )
-    '/// Click on 'Assign' button
-    printlog " Click on 'Assign' button"
-    Zuordnen.Click
-    Kontext
-    Active.SetPage TabCustomizeMenu
-    Kontext "TabCustomizeMenu"
-    '/// Close 'Customize' dialog with 'Cancel'
-    printlog " Close 'Customize' dialog with 'Cancel'"
-    TabCustomizeMenu.Cancel
-    Kontext "Makro"
-    '/// Click on 'Edit' button
-    printlog " Click on 'Edit' button"
-    Bearbeiten.Click
-    '/// Close basic window by window closer
-    printlog " Close basic window by window closer"
-    Kontext "BasicIDE"
-    Call hCloseDocument
-    '/// Reopen Macro dialog by 'Tools – Macro – Organize Macros – StarOffice Basic'
-    printlog " Reopen Macro dialog by 'Tools – Macro – Organize Macros – StarOffice Basic'"
-    ToolsMacro
-    Kontext "Makro"
-    '/// Click on 'Delete' button
-    printlog " Click on 'Delete' button"
-    Loeschen.Click
-    '/// Close messagebox by 'No'
-    printlog " Close messagebox by 'No'"
-    Kontext
-    if Active.exists then 
-        Active.no
-    end if
-    Kontext "Makro"
-    '/// Click on Organizer' button
-    printlog " Click on Organizer' button"
-    Verwalten.Click
-    Kontext
-    Active.SetPage TabModule
-    Kontext "TabModule"
-    '/// Close 'Organizer with 'Close'
-    printlog " Close 'Organizer with 'Close'"
-    TabModule.Close
-    Kontext "Makro"
-    '/// Close macro dialog
-    printlog " Close macro dialog"
-    Makro.Close
-    '/// Open 'JavaScript Macros' dialog by 'Tools – Macro – Organize Macros – JavaScript'
-    printlog " Open 'JavaScript Macros' dialog by 'Tools – Macro – Organize Macros – JavaScript'"
-    ToolsMacrosOrganizeMacrosJavaScript
-    Kontext "ScriptOrganizer"
-    '/// Close 'JavaScript Macros' dialog by 'Close'
-    printlog " Close 'JavaScript Macros' dialog by 'Close'"
-    ScriptOrganizer.Close
-    '/// Open 'BeanShell Macros' dialog by 'Tools – Macro – Organize Macros –  BeanShell'
-    printlog " Open 'BeanShell Macros' dialog by 'Tools – Macro – Organize Macros –  BeanShell'"
-    ToolsMacrosOrganizeMacrosBeanShell
-    Kontext "ScriptOrganizer"
-    '/// Close ' BeanShell Macros' dialog by 'Close'
-    printlog " Close ' BeanShell Macros' dialog by 'Close'"
-    ScriptOrganizer.Close
-    Call hCloseDocument
-    printlog " Open testdocument 'gTesttoolPath + spreadsheet\required\input\DocwithMacro.ods'"
-    Call hFileOpen (Convertpath (gTesttoolPath + "spreadsheet\required\input\DocwithMacro.ods" ))
-    Kontext
-    if Active.exists then 
-        Active.ok
-    end if
-    Printlog " Save document as 'user/work/DocwithMacro.ods'"
-    Call hFileSaveAsKill convertpath(gOfficePath & "user/work/DocwithMacro.ods")
-    printlog " Use 'Tools – Macro – Signature'"
-    ToolsMacrosSignature
-    Kontext "DigitalSignature"
-    Call DialogTest ( DigitalSignature )
-    '/// On 'Digital Signatures' dialog press 'Add' button
-    printlog " On 'Digital Signatures' dialog press 'Add' button"
-    Add.Click
-    Kontext "SelectCertificate"
-    Call DialogTest ( SelectCertificate )
-    '/// Close Select Certificate' dialog with 'Cancel'
-    printlog " Close Select Certificate' dialog with 'Cancel'"
-    SelectCertificate.Cancel
-    Kontext "DigitalSignature"
-    '/// Close 'Digital Signatures' dialog with 'Cancel'
-    printlog " Close 'Digital Signatures' dialog with 'Cancel'"
-    DigitalSignature.ok
-    '/// Open 'Macro Organizer' by 'Tools – Macro – Organize Dialogs'
-    printlog " Open 'Macro Organizer' by 'Tools – Macro – Organize Dialogs'"
-    ToolsMacrosOrganizeDialogs
-    '/// Switch to tabpage 'Modules'
-    printlog " Switch to tabpage 'Modules'"
-    Kontext
-    Active.SetPage TabModule
-    Kontext "TabModule"
-    Call DialogTest ( TabModule )
-    '/// Switch to tabpage 'Dialogs'
-    printlog " Switch to tabpage 'Dialogs'"
-    Kontext
-    Active.SetPage TabDialogs
-    Kontext "TabDialogs"
-    Call DialogTest ( TabDialogs )
-    '/// Switch to tabpage 'Libraries'
-    printlog " Switch to tabpage 'Libraries'"
-    Kontext
-    Active.SetPage TabBibliotheken
-    Kontext "TabBibliotheken"
-    Call DialogTest ( TabBibliotheken )
-    '/// Close dialog with 'Close'
-    printlog " Close dialog with 'Close'"
-    TabBibliotheken.Close
-    '/// Close document
-    printlog " Close document"
-    Call hCloseDocument
-    printlog " Reset SecurityLevel to starting value"
-    Call hSetMacroSecurity(iWhichSecurityLevel)
-
-endcase
-
-'-----------------------------------------------------------
-
-testcase tToolsExtensionManager
-'///<u><b>Tools - Extension Manager</b></u>
-
-    '/// Open new Spreadsheet document
-    printlog " Open new Spreadsheet document"
-    Call hNewDocument
-    '/// Open 'Extension Manager' by 'Tools – Extension Manager'
-    printlog " Open 'Extension Manager' by 'Tools – Extension Manager'"
-    ToolsPackagemanager
-    Kontext "PackageManager"
-    Call DialogTest ( PackageManager )
-    '/// Close 'Extension Manager' with 'Close'
-    printlog " Close 'Extension Manager' with 'Close'"
-    PackageManager.Close
-    '/// Close document
-    printlog " Close document"
-    Call hCloseDocument
-
-endcase
-
-'-----------------------------------------------------------
-
-testcase tToolsXMLFilterSettings
-'///<u><b>Tools - XML Filter Settings</b></u>
-
-    '/// Open new Spreadsheet document
-    printlog " Open new Spreadsheet document"
-    Call hNewDocument
-    '/// Open 'XML Filter Settings' dialog by 'Tools – XML Filter Settings'
-    printlog " Open 'XML Filter Settings' dialog by 'Tools – XML Filter Settings'"
-    ToolsXMLFilterSettings
-    Kontext "XMLFilterSettings"
-    Call DialogTest ( XMLFilterSettings )
-    '/// Close dialog with 'Close'
-    printlog " Close dialog with 'Close'"
-    CloseBtn.Click
-    '/// Close document
-    printlog " Close document"
-    Call hCloseDocument
-
-endcase
-
-'-----------------------------------------------------------
-
-testcase tToolsCustomize
-'///<u><b>Tools - Customize</b></u>
-
-    '/// Open new Spreadsheet document
-    printlog " Open new Spreadsheet document"
-    Call hNewDocument
-    '/// Open 'Customize' dialog by 'Tools – Customize'
-    printlog " Open 'Customize' dialog by 'Tools – Customize'"
-    ToolsCustomize
-    '/// Switch to tabpage 'Menus'
-    printlog " Switch to tabpage 'Menus'"
-    Kontext
-    Active.SetPage TabCustomizeMenu
-    Kontext "TabCustomizeMenu"
-    Call DialogTest ( TabCustomizeMenu )
-    '/// Switch to tabpage 'Keyboard'
-    printlog " Switch to tabpage 'Keyboard'"
-    Kontext
-    Active.SetPage TabTastatur
-    Kontext "TabTastatur"
-    Call DialogTest ( TabTastatur )
-    '/// Switch to tabpage 'Toolbars'
-    printlog " Switch to tabpage 'Toolbars'"
-    Kontext
-    Active.SetPage TabCustomizeToolbars
-    Kontext "TabCustomizeToolbars"
-    Call DialogTest ( TabCustomizeToolbars )
-    '/// Switch to tabpage 'Events'
-    printlog " Switch to tabpage 'Events'"
-    Kontext
-    Active.SetPage TabCustomizeEvents
-    Kontext "TabCustomizeEvents"
-    Call DialogTest ( TabCustomizeEvents )
-    '/// Close 'Customize' dialog with 'Cancel'
-    printlog " Close 'Customize' dialog with 'Cancel'"
-    TabCustomizeEvents.Cancel
-    '/// Close document
-    printlog " Close document"
-    Call hCloseDocument
-
-endcase
-
-'-----------------------------------------------------------
-
-testcase tToolsOptions
-'///<u><b>Tools - Options</b></u>
-
-    '/// Open new Spreadsheet document
-    printlog " Open new Spreadsheet document"
-    Call hNewDocument
-    '/// Open 'Options' dialog by 'Tools – Options'
-    printlog " Open 'Options' dialog by 'Tools – Options'"
-    ToolsOptions
-    '/// Choose 'Calc – General'
-    printlog " Choose 'Calc – General'"
-    hToolsOptions("CALC", "GENERAL")
-    Call DialogTest ( TabLayoutCalc )
-    '/// Verify that the 'Measurement' combobox has items
-    printlog " Verify that the 'Measurement' combobox has items"
-    if Masseinheit.GetItemCount < 1 then
-        warnlog "The listbox is empty"
-    end if
-    '/// Increase 'Tab stops'
-    printlog " Increase 'Tab stops'"
-    Tabulator.More
-    '/// Verify that the 'Move selection' combobox has four items
-    printlog " Verify that the 'Move selection' combobox has four items"
-    If SelektionNach.GetItemCount <> 4 then
-        warnlog "There are not 4 moves possible"
-    end if
-    '/// Choose 'Calc – View'
-    printlog " Choose 'Calc – View'"
-    hToolsOptions("CALC", "VIEW")
-    Call DialogTest ( TabInhaltCalc )
-    '/// Verify that the 'Color' combobox has items
-    printlog " Verify that the 'Color' combobox has items"
-    if Farbe.GetItemCount < 1 then
-        warnlog "The listbox is empty"
-    end if
-    '/// Verify that the 'Objects' combobox has items
-    printlog " Verify that the 'Objects' combobox has items"
-    if ObjekteGrafiken.GetItemCount < 1 then
-        warnlog "The listbox is empty"
-    end if
-    '/// Verify that the 'Charts' combobox has items
-    printlog " Verify that the 'Charts' combobox has items"
-    if Diagramme.GetItemCount < 1 then
-        warnlog "The listbox is empty"
-    end if
-    '/// Verify that the 'Drawing objects' combobox has items
-    printlog " Verify that the 'Drawing objects' combobox has items"
-    if Zeichenobjekte.GetItemCount < 1 then
-        warnlog "The listbox is empty"
-    end if
-    '/// Choose 'Calc – Calculate'
-    printlog " Choose 'Calc – Calculate'"
-    hToolsOptions("CALC", "CALCULATE")
-    Call DialogTest ( TabBerechnen )
-    '/// Choose 'Calc – Sortlists'
-    printlog " Choose 'Calc – Sortlists'"
-    hToolsOptions("CALC", "SORTLISTS")
-    Call DialogTest ( TabSortierlisten )
-    '/// Verify that there are sortlists available
-    printlog " Verify that there are sortlists available"
-    if Listen.GetItemCount < 1 then
-        warnlog "The listbox is empty"
-    end if
-    '/// Choose 'Calc – Changes'
-    printlog " Choose 'Calc – Changes'"
-    hToolsOptions("CALC", "CHANGES")
-    Call DialogTest ( TabAenderungenCalc )
-    '/// Verify that the 'Changes' combobox has items
-    printlog " Verify that the 'Changes' combobox has items"
-    if Aenderungen.GetItemCount < 1 then
-        warnlog "The listbox is empty"
-    end if
-    '/// Choose 'Calc – Grid'
-    printlog " Choose 'Calc – Grid'"
-    hToolsOptions("CALC", "GRID")
-    Call DialogTest ( TabRaster )
-    '/// Decrease 'Horizontal Resolution'
-    printlog " Decrease 'Horizontal Resolution'"
-    RasterAufloesungXAchse.Less
-    '/// Increase 'Horizontal Subdivision'
-    printlog " Increase 'Horizontal Subdivision'"
-    RasterUnterteilungXAchse.More
-    '/// Choose 'Calc – Print'
-    printlog " Choose 'Calc – Print'"
-    hToolsOptions("CALC", "PRINT")
-    Call DialogTest ( TabPrintCalcOptions )
-    '/// Close 'Options' dialog with 'Cancel'
-    printlog " Close 'Options' dialog with 'Cancel'"
-    Kontext "OptionenDlg"
-    OptionenDlg.Cancel
-    '/// Close document
-    printlog " Close document"
-    Call hCloseDocument
-
-endcase
-
-'-----------------------------------------------------------
-
-testcase tToolsSolver
-'///<u><b>Tools - Solver</b></u>
-
-    Dim i as integer
-
-    '/// Open new Spreadsheet document
-    printlog " Open new Spreadsheet document"
-    Call hNewDocument
-    '/// Open 'Solver' dialog by 'Tools - Solver'
-    printlog " Open 'Solver' dialog by 'Tools - Solver'"
-    try
-        ToolsSolver
-    catch
-        qaerrorlog "Solver not available. This is true for versions older than SRC680_m246"
-        call hCloseDocument
-        goto endsub
-    endcatch
-    Kontext "Solver"
-    DialogTest ( Solver )
-    '/// Enter A1 for 'TargetCell'
-    printlog " Enter A1 for 'TargetCell'"
-    TargetCell.SetText "A1" 
-    '/// Press 'Shrink' button for 'Target cell'
-    printlog " Press 'Shrink' button for 'Target cell'"
-    Shrink.Click
-    '/// On minimized dialog press 'Shrink' button again
-    printlog " On minimized dialog press 'Shrink' button again"
-    Shrink.Click
-    '/// Select 'Maximum'
-    printlog " Select 'Maximum'"
-    OptimizeMaximum.Check
-    '/// Select 'Minimum'
-    printlog " Select 'Minimum'"
-    OptimizeMinimum.Check
-    '/// Select 'Value of'
-    printlog " Select 'Value of'"
-    OptimizeValueOf.Check
-    '/// Minimize dialog by pressing 'Shrink' button for 'Value of'
-    printlog " Minimize dialog by pressing 'Shrink' button for 'Value of'"
-    OptimizeValueEditShrink.Click
-    '/// On minimized dialog press 'Shrink' button again
-    printlog " On minimized dialog press 'Shrink' button again"
-    OptimizeValueEditShrink.Click
-    '/// Minimize dialog by pressing 'Shrink' button for 'By changing cells'
-    printlog " Minimize dialog by pressing 'Shrink' button for 'By changing cells'"
-    ChangingCellsShrink.Click
-    '/// On minimized dialog press 'Shrink' button again
-    printlog " On minimized dialog press 'Shrink' button again"
-    ChangingCellsShrink.Click
-    '/// Enter 'A2' in edit box for 'Cell reference 1'
-    printlog " Enter 'A2' in edit box for 'Cell reference 1'"
-    CellReference1.SetText "A2"
-    '/// Minimize dialog by pressing 'Shrink' button for 'Cell reference 1'
-    printlog " Minimize dialog by pressing 'Shrink' button for 'Cell reference 1'"
-    CellReferenceShrink1.Click
-    '/// On minimized dialog press 'Shrink' button again
-    printlog " On minimized dialog press 'Shrink' button again"
-    CellReferenceShrink1.Click
-    '/// Verify that there are 'Operators' available
-    printlog " Verify that there are 'Operators' available"
-    If Operator1.GetItemCount < 1 then
-        warnlog "There are no operators available"
-    end if
-    '/// Minimize dialog by pressing 'Shrink' button for 'Value 1'
-    printlog " Minimize dialog by pressing 'Shrink' button for 'Value 1'"
-    ValueShrink1.Click
-    '/// On minimized dialog press 'Shrink' button again
-    printlog " On minimized dialog press 'Shrink' button again"
-    ValueShrink1.Click
-    '/// Press 'Remove' button
-    printlog " Press 'Remove' button"
-    Remove1.Click
-    '/// Press 'Options' button
-    printlog " Press 'Options' button"
-    Options.Click
-    Kontext "SolverOptions"
-    DialogTest ( SolverOptions )
-    '/// On 'Options' dialog verify that there is min 1 'Solver engine' available
-    printlog " On 'Options' dialog verify that there is min 1 'Solver engine' available"
-    If SolverEngine.GetItemCount < 1 then
-        warnlog "There is no SolverEngine available"
-    end if
-    '/// Check for 'Settings' which enables the edit button (e.g.Epsilon level)
-    printlog " Check for 'Settings' which enables the edit button (e.g.Epsilon level)"
-    For i = 1 to SolverSettings.GetItemCount
-        SolverSettings.Select i
-        if SolverSettingsEdit.IsEnabled then
-            i = SolverSettings.GetItemCount
-        end if
-    next i
-    If not SolverSettingsEdit.IsEnabled then
-        warnlog "Edit is not enabled"
-        SolverOptions.Cancel
-        Kontext "Solver"
-        Solver.Close
-        call hCloseDocument
-        goto endsub
-    else
-        '/// Click 'Edit' button to open 'Edit Setting' dialog
-        printlog " Click 'Edit' button to open 'Edit Setting' dialog"
-        SolverSettingsEdit.Click
-        Kontext "SolverEditSetting"
-        DialogTest ( SolverEditSetting )
-    end if
-    '/// Increase 'Epsilon level'
-    printlog " Increase 'Epsilon level'"
-    SolverNumeric.More
-    '/// Close 'Edit Setting' dialog by 'Cancel'
-    printlog " Close 'Edit Setting' dialog by 'Cancel'"
-    SolverEditSetting.Cancel
-    Kontext "SolverOptions"
-    '/// Close 'Options' dialog by 'Cancel'
-    printlog " Close 'Options' dialog by 'Cancel'"
-    SolverOptions.Cancel
-    '/// Close 'Solver' dialog by 'Close'
-    printlog " Close 'Solver' dialog by 'Close'"
-    Kontext "Solver"
-    Solver.Close
-    '/// Close document
-    printlog " Close document"
-    Call hCloseDocument
-
-endcase
-
-'-----------------------------------------------------------
-
diff --git a/testautomation/spreadsheet/required/includes/c_upd_viewmenu.inc b/testautomation/spreadsheet/required/includes/c_upd_viewmenu.inc
deleted file mode 100644
index e7568390c38a..000000000000
--- a/testautomation/spreadsheet/required/includes/c_upd_viewmenu.inc
+++ /dev/null
@@ -1,395 +0,0 @@
-'encoding UTF-8  Do not remove or change this line!
-'**************************************************************************
-' DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER.
-'
-' Copyright 2000, 2010 Oracle and/or its affiliates.
-'
-' OpenOffice.org - a multi-platform office productivity suite
-'
-' This file is part of OpenOffice.org.
-'
-' OpenOffice.org is free software: you can redistribute it and/or modify
-' it under the terms of the GNU Lesser General Public License version 3
-' only, as published by the Free Software Foundation.
-'
-' OpenOffice.org is distributed in the hope that it will be useful,
-' but WITHOUT ANY WARRANTY; without even the implied warranty of
-' MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
-' GNU Lesser General Public License version 3 for more details
-' (a copy is included in the LICENSE file that accompanied this code).
-'
-' You should have received a copy of the GNU Lesser General Public License
-' version 3 along with OpenOffice.org.  If not, see
-' <http://www.openoffice.org/license.html>
-' for a copy of the LGPLv3 License.
-'
-'/***********************************************************************
-'*
-'* owner : oliver.craemer@oracle.com
-'*
-'* short description : Resource Test - View Menu
-'*
-'************************************************************************
-'*
-' #1 tViewPageBreakPreview
-' #1 tViewToolbars
-' #1 tViewFormularbar
-' #1 tViewStatusbar
-' #1 tViewInputMethodStatus
-' #1 tViewColumnRowHeaders
-' #1 tViewValueHighlighting
-' #1 tViewDataSources
-' #1 tViewNavigator
-' #1 tViewFullScreen
-' #1 tViewZoom
-'*
-'\***********************************************************************
-
-sub c_upd_viewmenu
-
-    Printlog Chr(13) + "--------- View Menu (c_upd_viewmenu.inc) ---------"
-    
-    call tViewPageBreakPreview
-    call tViewToolbars
-    call tViewFormularbar
-    call tViewStatusbar
-    call tViewInputMethodStatus
-    call tViewColumnRowHeaders
-    call tViewValueHighlighting
-    call tViewDataSources
-    call tViewNavigator
-    call tViewFullScreen
-    call tViewZoom
-
-end sub
-
-'-----------------------------------------------------------
-
-testcase tViewPageBreakPreview
-'///<u><b>View - Normal / Page Break Preview</b></u>
-
-    '/// Opening new spreadsheet document for getting defined starting environment
-    printlog " Opening new spreadsheet document for getting defined starting environment"
-    call hNewDocument
-    '/// Activate Page Break Preview by 'View – Page Break Preview'
-    printlog " Activate Page Break Preview by 'View – Page Break Preview'"
-    ViewPageBreakPreview
-    '/// Switch back to normal view by 'View – Normal'
-    printlog " Switch back to normal view by 'View – Normal'"
-    ViewNormalView
-    '/// Close starting document
-    printlog " Close starting document"
-    call hCloseDocument
-
-endcase
-
-'-----------------------------------------------------------
-
-testcase tViewToolbars
-'///<u><b>View - Toolbars</b></u>
-
-    '/// Opening new spreadsheet document for getting defined starting environment
-    printlog " Opening new spreadsheet document for getting defined starting environment"
-    call hNewDocument
-    '/// Switch on/off toolbar '3D-Settings' by 'View - Toolbars'
-    printlog " Switch on/off toolbar '3D-Settings' by 'View - Toolbars'"
-    ViewToolbarsThreeDSettings
-    ViewToolbarsThreeDSettings
-    '/// Switch on/off toolbar 'Align' by 'View - Toolbars'
-    printlog " Switch on/off toolbar 'Align' by 'View - Toolbars'"
-    ViewToolbarsAlign
-    ViewToolbarsAlign
-    '/// Switch on/off toolbar 'Drawing' by 'View - Toolbars'
-    printlog " Switch on/off toolbar 'Drawing' by 'View - Toolbars'"
-    ViewToolbarsDrawing
-    ViewToolbarsDrawing
-    '/// Switch on/off toolbar 'Drawing Objects Properties' by 'View - Toolbars'
-    printlog " Switch on/off toolbar 'Drawing Objects Properties' by 'View - Toolbars'"
-    ViewToolbarsDrawObjectbar
-    ViewToolbarsDrawObjectbar
-    '/// Switch on/off toolbar 'Fontwork' by 'View - Toolbars'
-    printlog " Switch on/off toolbar 'Fontwork' by 'View - Toolbars'"
-    ViewToolbarsFontwork
-    ViewToolbarsFontwork
-    '/// Switch on/off toolbar 'Form Controls' by 'View - Toolbars'
-    printlog " Switch on/off toolbar 'Form Controls' by 'View - Toolbars'"
-    ViewToolbarsFormControls
-    ViewToolbarsFormControls
-    '/// Switch on/off toolbar 'Form Design' by 'View - Toolbars'
-    printlog " Switch on/off toolbar 'Form Design' by 'View - Toolbars'"
-    ViewToolbarsFormDesign
-    ViewToolbarsFormDesign
-    '/// Switch on/off toolbar 'Form Navigation' by 'View - Toolbars'
-    printlog " Switch on/off toolbar 'Form Navigation' by 'View - Toolbars'"
-    ViewToolbarsFormNavigation
-    ViewToolbarsFormNavigation
-    '/// Switch on/off toolbar 'Formatting' by 'View - Toolbars'
-    printlog " Switch on/off toolbar 'Formatting' by 'View - Toolbars'"
-    ViewToolbarsFormatting
-    ViewToolbarsFormatting
-    '/// Switch on/off toolbar 'Insert' by 'View - Toolbars'
-    printlog " Switch on/off toolbar 'Insert' by 'View - Toolbars'"
-    ViewToolbarsInsert
-    ViewToolbarsInsert
-    '/// Switch on/off toolbar 'Insert Cells' by 'View - Toolbars'
-    printlog " Switch on/off toolbar 'Insert Cells' by 'View - Toolbars'"
-    ViewToolbarsInsertCell
-    ViewToolbarsInsertCell
-    '/// Switch on/off toolbar 'Media Playback' by 'View - Toolbars'
-    printlog " Switch on/off toolbar 'Media Playback' by 'View - Toolbars'"
-    ViewToolbarsMediaPlayback
-    ViewToolbarsMediaPlayback
-    '/// Switch on/off toolbar 'Picture' by 'View - Toolbars'
-    printlog " Switch on/off toolbar 'Picture' by 'View - Toolbars'"
-    ViewToolbarsPicture
-    ViewToolbarsPicture
-    '/// Switch on/off toolbar 'Standard' by 'View - Toolbars'
-    printlog " Switch on/off toolbar 'Standard' by 'View - Toolbars'"
-    ViewToolbarsStandard
-    ViewToolbarsStandard
-    '/// Switch on/off toolbar 'Text Formatting' by 'View - Toolbars'
-    printlog " Switch on/off toolbar 'Text Formatting' by 'View - Toolbars'"
-    ViewToolbarsTextFormatting
-    ViewToolbarsTextFormatting
-    '/// Switch on/off toolbar 'Tools' by 'View - Toolbars'
-    printlog " Switch on/off toolbar 'Tools' by 'View - Toolbars'"
-    ViewToolbarsTools
-    ViewToolbarsTools
-    '/// Switch on/off toolbar 'Hyperlink Bar' by 'View - Toolbars'
-    printlog " Switch on/off toolbar 'Hyperlink Bar' by 'View - Toolbars'"
-    ViewToolbarsInsertHyperlink
-    ViewToolbarsInsertHyperlink
-    '/// Switch on/off toolbar 'Formular Bar' by 'View - Toolbars'
-    printlog " Switch on/off toolbar 'Formular Bar' by 'View - Toolbars'"
-    ViewToolbarsFormulaBar
-    ViewToolbarsFormulaBar
-    '/// Open 'Toolbar Customize' - dialog by 'View – Toolbars – Customize' (will be tested in detail by tToolsCustomize)
-    printlog " Open 'Toolbar Customize' - dialog by 'View – Toolbars – Customize' (will be tested in detail by tToolsCustomize)"
-    ViewToolbarsConfigure
-    '/// Close dialog with 'Cancel'
-    Kontext
-    Active.SetPage TabCustomizeMenu
-    Kontext "TabCustomizeMenu"
-    TabCustomizeMenu.Cancel
-    '/// Reset toolbars by 'View - Toolbars -  Reset'
-    printlog " Reset toolbars by 'View - Toolbars -  Reset'"
-'    ViewToolbarsReset
-    qaerrorlog "Reset not possible because of #i84544"
-    '/// Close document
-    printlog " Close starting document"
-    call hCloseDocument
-    
-endcase
-
-'-----------------------------------------------------------
-
-testcase tViewFormularbar
-'///<u><b>View - Formular Bar</b></u>
-   
-    '/// Open new Spreadsheet document
-    printlog " Open new Spreadsheet document"
-    call hNewDocument
-    '/// Switch on/off toolbar 'Formular Bar' by 'View -  Formular Bar'
-    printlog " Switch on/off toolbar 'Formular Bar' by 'View -  Formular Bar'"
-    ViewToolbarsFormulaBar
-    ViewToolbarsFormulaBar
-    '/// Close new document
-    printlog " Close document"
-    call hCloseDocument
-
-endcase
-
-'-----------------------------------------------------------
-
-testcase tViewStatusbar
-'///<u><b>View - Status Bar</b></u>
-   
-    '/// Open new Spreadsheet document
-    printlog " Open new Spreadsheet document"
-    call hNewDocument
-    '/// Switch on/off toolbar 'Status Bar' by 'View -  Status Bar'
-    printlog " Switch on/off toolbar 'Status Bar' by 'View -  Status Bar'"
-    ViewToolbarsStatusbar
-    ViewToolbarsStatusbar
-    '/// Close new document
-    printlog " Close document"
-    call hCloseDocument
-
-endcase
-
-'-----------------------------------------------------------
-
-testcase tViewInputMethodStatus
-'///<u><b>View - Input Method Status</b></u>
-   
-    '/// Open new Spreadsheet document
-    printlog " Open new Spreadsheet document"
-    call hNewDocument
-    '/// If enabled (only on UNIX) switch on/off 'View – Input Method Status'
-    printlog " If enabled (only on UNIX) switch on/off 'View – Input Method Status'"
-    try 
-        ViewInputMethodStatus
-        ViewInputMethodStatus
-    catch
-        printlog "Input Method Status not available on this system"
-    endcatch
-    '/// Close new document
-    printlog " Close document"
-    call hCloseDocument
-
-endcase
-
-'-----------------------------------------------------------
-
-testcase tViewColumnRowHeaders
-'///<u><b>View - Column And Row Headers</b></u>
-   
-    '/// Open new Spreadsheet document
-    printlog " Open new Spreadsheet document"
-    call hNewDocument
-    '/// Switch on/off  'View -  Column And Row Headers'
-    printlog " Switch on/off  'View -  Column And Row Headers'"
-    ViewColumnAndRowHeaders
-    ViewColumnAndRowHeaders
-    '/// Close new document
-    printlog " Close document"
-    call hCloseDocument
-
-endcase
-
-'-----------------------------------------------------------
-
-testcase tViewValueHighlighting
-'///<u><b>View - Value Highlighting</b></u>
-
-    '/// Open new Spreadsheet document
-    printlog " Open new Spreadsheet document"
-    call hNewDocument
-    '/// Switch on/off  'View -  Value Highlighting'
-    printlog " Switch on/off  'View -  Value Highlighting'"
-    ViewValueHightlighting
-    ViewValueHightlighting
-    '/// Close new document
-    printlog " Close document"
-    call hCloseDocument
-
-endcase
-
-'-----------------------------------------------------------
-
-testcase tViewDataSources
-'///<u><b>View - Data Sources</b></u>
-
-    '/// Open new Spreadsheet document
-    printlog " Open new Spreadsheet document"
-    call hNewDocument
-    '/// Open datasourcebeamer by  'View -  Data Sources'
-    ViewCurrentDatabaseCalc
-    '/// Close datasourcebeamer by  'View -  Data Sources'
-    ViewCurrentDatabaseCalc
-    '/// Close new document
-    printlog " Close document"
-    call hCloseDocument
-
-endcase
-
-'-----------------------------------------------------------
-
-testcase tViewNavigator
-'///<u><b>Edit - Navigator</b></u>
-
-    '/// Open new Spreadsheet document
-    printlog " Open new Spreadsheet document"
-    call hNewDocument
-    '/// Check if Navigator already exists. If not open Navigator by View-Navigator.
-    printlog " Check if Navigator already exists. If not open Navigator by View-Navigator."
-    Kontext "NavigatorCalc"
-    if NavigatorCalc.exists then
-        warnlog "Navigator is already enabled"
-    else
-        ViewNavigator
-    end if
-    Kontext "NavigatorCalc"
-    call DialogTest ( NavigatorCalc )
-    '/// Check functionality of button for content by clicking it twice
-    printlog " Check functionality of button for content by clicking it twice"
-    Inhalte.Click
-    Inhalte.Click
-    '/// Check functionality of toggle button by clicking it twice
-    printlog " Check functionality of toggle button by clicking it twice"
-    Umschalten.Click
-    Umschalten.Click
-    '/// Check functionality of button for scenarios by clicking it twice
-    printlog " Check functionality of button for scenarios by clicking it twice"
-    Szenarien.Click
-    Szenarien.Click
-    '/// Check that the dragmodus has 3 modes
-    qaerrorlog "Dragmodus disabled because of unreliability"
-'    printlog " Check that the dragmodus has 3 modes"
-'    Dragmodus.OpenMenu
-'    waitslot(1000)
-'    if hMenuItemGetCount <> 3 then
-'        warnlog "Not enough modes for dragmodus"
-'    end if
-'    hMenuSelectNr (0)
-    '/// Close Navigator
-    printlog " Close Navigator"
-    Kontext "Navigator"
-    Navigator.Close    'Because of #i78307 the navigatorwindow has to be closed by Navigator.close
-    Kontext "NavigatorCalc"
-    if NavigatorCalc.exists then
-        ViewNavigator
-        Warnlog "NavigatorCalc.Close doesn't close the navigator"
-    end if
-    '/// Close document
-    printlog " Close document"
-    hCloseDocument
-
-endcase
-
-'-----------------------------------------------------------
-
-testcase tViewFullScreen
-'///<u><b>View - Full Screen</b></u>
-
-    '/// Open new Spreadsheet document
-    printlog " Open new Spreadsheet document"
-    call hNewDocument
-    '/// Switch to full screen view by  'View -  Full Screen'
-    ViewFullScreen
-    '/// Switch back to normal view
-    ViewFullScreen
-    '/// Close new document
-    printlog " Close document"
-    call hCloseDocument
-
-endcase
-
-'-----------------------------------------------------------
-
-testcase tViewZoom
-'///<u><b>View - Zoom</b></u>
-
-    '/// Open new Spreadsheet document
-    printlog " Open new Spreadsheet document"
-    call hNewDocument
-    '/// Open 'Zoom' – dialog by 'View – Zoom'
-    printlog " Open 'Zoom' – dialog by 'View – Zoom'"
-    ViewZoom
-    Kontext "Massstab"
-    DialogTest ( Massstab )
-    '/// Check 'Variable'
-    printlog " Check 'Variable'"
-    VergroesserungStufenlos.Check
-    '/// Increase variablezoom by 1
-    printlog " Increase variablezoom by 1"
-    Stufenlos.More
-    '/// Close dialog with 'Cancel'
-    printlog " Close dialog with 'Cancel'"
-    Massstab.Cancel
-    '/// Close new document
-    printlog " Close document"
-    call hCloseDocument
-
-endcase
-
diff --git a/testautomation/spreadsheet/required/includes/c_upd_windowmenu.inc b/testautomation/spreadsheet/required/includes/c_upd_windowmenu.inc
deleted file mode 100644
index 56adf3af682a..000000000000
--- a/testautomation/spreadsheet/required/includes/c_upd_windowmenu.inc
+++ /dev/null
@@ -1,141 +0,0 @@
-'encoding UTF-8  Do not remove or change this line!
-'**************************************************************************
-' DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER.
-'
-' Copyright 2000, 2010 Oracle and/or its affiliates.
-'
-' OpenOffice.org - a multi-platform office productivity suite
-'
-' This file is part of OpenOffice.org.
-'
-' OpenOffice.org is free software: you can redistribute it and/or modify
-' it under the terms of the GNU Lesser General Public License version 3
-' only, as published by the Free Software Foundation.
-'
-' OpenOffice.org is distributed in the hope that it will be useful,
-' but WITHOUT ANY WARRANTY; without even the implied warranty of
-' MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
-' GNU Lesser General Public License version 3 for more details
-' (a copy is included in the LICENSE file that accompanied this code).
-'
-' You should have received a copy of the GNU Lesser General Public License
-' version 3 along with OpenOffice.org.  If not, see
-' <http://www.openoffice.org/license.html>
-' for a copy of the LGPLv3 License.
-'
-'/***********************************************************************
-'*
-'* owner : oliver.craemer@oracle.com
-'*
-'* short description : Resource Test - Window Menu
-'*
-'************************************************************************
-'*
-' #1 tWindowNewWindow
-' #1 tWindowSplit
-' #1 tWindowFreeze
-'*
-'\***********************************************************************
-
-sub c_upd_windowmenu
-
-    Printlog Chr(13) + "--------- Window Menu (c_upd_windowmenu.inc) ---------"
-    
-    call tWindowNewWindow
-    call tWindowSplit
-    call tWindowFreeze
-    
-
-end sub
-
-'-----------------------------------------------------------
-
-testcase tWindowNewWindow
-'///<u><b>Window – New Window</b></u>
-
-    Dim iDocumentcount as integer
-    Dim iDocumentclose as integer
-
-    '/// Verify that there is no document open
-    printlog " Verify that there is no document open"
-    iDocumentcount = getDocumentCount
-    If iDocumentcount >0 then
-        warnlog "There are " & iDocumentcount & " documents open, but there should be none. Closing these documents"
-        For iDocumentclose = 1 to iDocumentcount
-            Call hCloseDocument
-        Next iDocumentclose
-    end if
-    '/// Opening new spreadsheet document for getting defined starting environment
-    printlog " Opening new spreadsheet document for getting defined starting environment"
-    Call hNewDocument
-    '/// Open new window by 'Window – New Window'
-    printlog " Open new window by 'Window – New Window'"
-    WindowNewWindow
-    '/// Count amount of windows (must be 2)
-    printlog " Count amount of windows (must be 2)"
-    If getDocumentCount <>2 then
-        warnlog "There should be 2 windows, but there are " & getDocumentCount
-    end if
-    '/// Close new window by 'Window – Close Window'
-    printlog " Close new window by 'Window – Close Window'"
-    WindowCloseWindow
-    '/// Count amount of windows (must be one)
-    printlog " Count amount of windows (must be one)"
-    If getDocumentCount <>1 then
-        warnlog "There should be 1 window, but there are " & getDocumentCount
-    end if
-    '/// Close starting document
-    printlog " Close starting document"
-    Call hCloseDocument
-
-endcase
-
-'-----------------------------------------------------------
-
-testcase tWindowSplit
-'///<u><b>Window – Split</b></u>
-
-    '/// Open new Spreadsheet document
-    printlog " Open new Spreadsheet document"
-    Call hNewDocument
-    '/// Select cell E15
-    printlog " Select cell E15"
-    Call fCalcSelectRange ("E15")
-    '/// Split window by 'Window – Split'
-    printlog " Split window by 'Window – Split'"
-    WindowSplit
-    '/// Unsplit window by 'Window - Split'
-    printlog " Unsplit window by 'Window - Split'"
-    WindowSplit
-    '/// Close document
-    printlog " Close document"
-    Call hCloseDocument
-
-endcase
-
-'-----------------------------------------------------------
-
-testcase tWindowFreeze
-'///<u><b>Window – Freeze</b></u>
-
-'/// Open new Spreadsheet document
-    printlog " Open new Spreadsheet document"
-    Call hNewDocument
-    '/// Select cell E15
-    printlog " Select cell E15"
-    Call fCalcSelectRange ("E15")
-    '/// Split window by 'Window – Freeze'
-    printlog " Split window by 'Window – Freeze'"
-    WindowFreeze
-    '/// Unsplit window by 'Window - Freeze'
-    printlog " Unsplit window by 'Window - Freeze'"
-    WindowFreeze
-    '/// Close document
-    printlog " Close document"
-    Call hCloseDocument
-
-endcase
-
-'-----------------------------------------------------------
-
-
diff --git a/testautomation/spreadsheet/required/input/Database_Refresh.ods b/testautomation/spreadsheet/required/input/Database_Refresh.ods
deleted file mode 100644
index 3327797a823a..000000000000
--- a/testautomation/spreadsheet/required/input/Database_Refresh.ods
+++ /dev/null
diff --git a/testautomation/spreadsheet/required/input/DocwithMacro.ods b/testautomation/spreadsheet/required/input/DocwithMacro.ods
deleted file mode 100644
index 325866d86328..000000000000
--- a/testautomation/spreadsheet/required/input/DocwithMacro.ods
+++ /dev/null
diff --git a/testautomation/spreadsheet/required/input/HTML_Doc_Numberformats_in_table.html b/testautomation/spreadsheet/required/input/HTML_Doc_Numberformats_in_table.html
deleted file mode 100644
index 364e8bb812e6..000000000000
--- a/testautomation/spreadsheet/required/input/HTML_Doc_Numberformats_in_table.html
+++ /dev/null
@@ -1,107 +0,0 @@
-<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
-<HTML>
-    <HEAD>
-        <META HTTP-EQUIV="CONTENT-TYPE" CONTENT="text/html; charset=windows-1252">
-        <TITLE></TITLE>
-        <META NAME="GENERATOR" CONTENT="StarOffice 8  (Win32)">
-        <META NAME="CREATED" CONTENT="16010101;0">
-        <META NAME="CHANGED" CONTENT="16010101;0">
-    </HEAD>
-    <BODY LANG="fr-FR" DIR="LTR">
-        <P>HTML Document for testing Import compatibility of HTML and RTF
-            clipboard content and also the Link to external Data and/or Insert
-            Sheet from File.</P>
-        <BR>
-        <BR>
-        <TABLE WIDTH=100% BORDER=1 CELLPADDING=4 CELLSPACING=3>
-            <COL WIDTH=128*>
-            <COL WIDTH=128*>
-            <TR VALIGN=TOP>
-                <TD WIDTH=50%>
-                    <P>Number english</P>
-                </TD>
-                <TD WIDTH=50%>
-                    <P>Number German</P>
-                </TD>
-            </TR>
-            <TR VALIGN=TOP>
-                <TD WIDTH=50%>
-                    <P>1.1</P>
-                </TD>
-                <TD WIDTH=50%>
-                    <P>1,2</P>
-                </TD>
-            </TR>
-            <TR VALIGN=TOP>
-                <TD WIDTH=50%>
-                    <P>1.12</P>
-                </TD>
-                <TD WIDTH=50%>
-                    <P>1,12</P>
-                </TD>
-            </TR>
-            <TR VALIGN=TOP>
-                <TD WIDTH=50%>
-                    <P>3.45</P>
-                </TD>
-                <TD WIDTH=50%>
-                    <P>3,45</P>
-                </TD>
-            </TR>
-            <TR VALIGN=TOP>
-                <TD WIDTH=50%>
-                    <P>13.12</P>
-                </TD>
-                <TD WIDTH=50%>
-                    <P>13,12</P>
-                </TD>
-            </TR>
-            <TR VALIGN=TOP>
-                <TD WIDTH=50%>
-                    <P>1,234.45</P>
-                </TD>
-                <TD WIDTH=50%>
-                    <P>1.234,45</P>
-                </TD>
-            </TR>
-            <TR VALIGN=TOP>
-                <TD WIDTH=50%>
-                    <P>123,456,789.66</P>
-                </TD>
-                <TD WIDTH=50%>
-                    <P>123.456.789,66</P>
-                </TD>
-            </TR>
-            <TR VALIGN=TOP>
-                <TD WIDTH=50%>
-                    <P>1.000</P>
-                </TD>
-                <TD WIDTH=50%>
-                    <P>1,000</P>
-                </TD>
-            </TR>
-            <TR VALIGN=TOP>
-                <TD WIDTH=50%>
-                    <P><BR>
-                    </P>
-                </TD>
-                <TD WIDTH=50%>
-                    <P><BR>
-                    </P>
-                </TD>
-            </TR>
-            <TR VALIGN=TOP>
-                <TD WIDTH=50%>
-                    <P><BR>
-                    </P>
-                </TD>
-                <TD WIDTH=50%>
-                    <P><BR>
-                    </P>
-                </TD>
-            </TR>
-        </TABLE>
-        <P><BR><BR>
-        </P>
-    </BODY>
-</HTML>
diff --git a/testautomation/spreadsheet/required/input/datapilot.ods b/testautomation/spreadsheet/required/input/datapilot.ods
deleted file mode 100644
index 244efc0123fe..000000000000
--- a/testautomation/spreadsheet/required/input/datapilot.ods
+++ /dev/null
diff --git a/testautomation/spreadsheet/required/input/english.ods b/testautomation/spreadsheet/required/input/english.ods
deleted file mode 100644
index 33df834de0c4..000000000000
--- a/testautomation/spreadsheet/required/input/english.ods
+++ /dev/null
diff --git a/testautomation/spreadsheet/required/input/korean.ods b/testautomation/spreadsheet/required/input/korean.ods
deleted file mode 100644
index f40362a1d825..000000000000
--- a/testautomation/spreadsheet/required/input/korean.ods
+++ /dev/null
diff --git a/testautomation/spreadsheet/required/input/linkclient.ods b/testautomation/spreadsheet/required/input/linkclient.ods
deleted file mode 100644
index ccfbc0c27724..000000000000
--- a/testautomation/spreadsheet/required/input/linkclient.ods
+++ /dev/null
diff --git a/testautomation/spreadsheet/required/input/linkserver.ods b/testautomation/spreadsheet/required/input/linkserver.ods
deleted file mode 100644
index 2024b84386ef..000000000000
--- a/testautomation/spreadsheet/required/input/linkserver.ods
+++ /dev/null
diff --git a/testautomation/spreadsheet/required/input/merge.ods b/testautomation/spreadsheet/required/input/merge.ods
deleted file mode 100644
index a04fa936132c..000000000000
--- a/testautomation/spreadsheet/required/input/merge.ods
+++ /dev/null
diff --git a/testautomation/spreadsheet/required/input/recentdocument.ods b/testautomation/spreadsheet/required/input/recentdocument.ods
deleted file mode 100644
index d84e6fed451c..000000000000
--- a/testautomation/spreadsheet/required/input/recentdocument.ods
+++ /dev/null
diff --git a/testautomation/spreadsheet/required/input/tEditObject.ods b/testautomation/spreadsheet/required/input/tEditObject.ods
deleted file mode 100644
index 905735e24eba..000000000000
--- a/testautomation/spreadsheet/required/input/tEditObject.ods
+++ /dev/null
diff --git a/testautomation/spreadsheet/required/input/tFileOpen_CSV.csv b/testautomation/spreadsheet/required/input/tFileOpen_CSV.csv
deleted file mode 100755
index eb4f5a842f55..000000000000
--- a/testautomation/spreadsheet/required/input/tFileOpen_CSV.csv
+++ /dev/null
@@ -1,3 +0,0 @@
-,,,,,,,

-,"Dfgfd",,,"Gfh","Gfhdg","Hgjgf",

-,,"Gfhgf",,,,,"Hgfj"

diff --git a/testautomation/spreadsheet/required/input/tFileOpen_DBF.dbf b/testautomation/spreadsheet/required/input/tFileOpen_DBF.dbf
deleted file mode 100755
index c6713303ce44..000000000000
--- a/testautomation/spreadsheet/required/input/tFileOpen_DBF.dbf
+++ /dev/null
diff --git a/testautomation/spreadsheet/required/input/tFileOpen_DBF.dbt b/testautomation/spreadsheet/required/input/tFileOpen_DBF.dbt
deleted file mode 100755
index e69de29bb2d1..000000000000
--- a/testautomation/spreadsheet/required/input/tFileOpen_DBF.dbt
+++ /dev/null
diff --git a/testautomation/spreadsheet/required/input/twoobjects.ods b/testautomation/spreadsheet/required/input/twoobjects.ods
deleted file mode 100644
index 437d1b07abac..000000000000
--- a/testautomation/spreadsheet/required/input/twoobjects.ods
+++ /dev/null
diff --git a/testautomation/spreadsheet/required/input/twosheets.ods b/testautomation/spreadsheet/required/input/twosheets.ods
deleted file mode 100644
index 73879d200b34..000000000000
--- a/testautomation/spreadsheet/required/input/twosheets.ods
+++ /dev/null