552 files changed, 0 insertions, 110461 deletions

diff --git a/testautomation/writer/optional/includes/CJKCTLDependency/CJKCTLDependency1.inc b/testautomation/writer/optional/includes/CJKCTLDependency/CJKCTLDependency1.inc
deleted file mode 100644
index 90e1c423a51f..000000000000
--- a/testautomation/writer/optional/includes/CJKCTLDependency/CJKCTLDependency1.inc
+++ /dev/null
@@ -1,980 +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 : helge.delfs@oracle.com
-'*
-'* short description : Test CJK and CTL support dependency
-'*
-'************************************************************************
-'*
-' #1 tCJKDependency_1        'Test Tabpage 'Text Grid'
-' #1 tCJKDependency_2        'Test Tabpage 'Asian Typography'
-' #1 tCJKDependency_3        'Test CheckBox 'Snap to text grid (if active)'
-' #1 tCJKDependency_4        'Test listbox 'Text direction' in page
-' #1 tCJKDependency_5        'Test listbox 'Text direction' in Frame
-' #1 tCTLDependency_1        'Test listbox 'Text direction' -- insert/section
-' #1 tCTLDependency_2        'Test listbox 'Text direction' -- format/section
-' #1 tCTLDependency_3        'Test listbox 'Text direction' -- table
-' #1 tCTLDependency_4        'Test 'left to right' and 'right to left' button(Writer)
-' #1 tCTLDependency_5        'Test 'left to right' and 'right to left' button - HTML(HTML 3.2)
-' #1 tCTLDependency_6        'Test 'left to right' and 'right to left' button - HTML(Microsoft Internet Bxplorer)
-' #1 tCTLDependency_7        'Test 'left to right' and 'right to left' button - HTML(Netscape Navigator)
-' #1 tCTLDependency_8        'Test 'left to right' and 'right to left' button - HTML(StarOffice Writer)
-' #1 tCTLKashidaCheck        'Check for additional numerals if CTL support is enabled
-'*
-'\***********************************************************************
-
-testcase tCJKDependency_1
-
-  Dim bAsianLanguage   as Boolean
-
-  PrintLog "- Tabpage 'Text Grid"
-
-  printlog " Open a new document"
-  Call hNewDocument
-
-  printlog " Set 'Asian Language support' ON"
-   bAsianLanguage = ActiveDeactivateAsianSupport(TRUE)
-
-  printlog " Format/Page , the tabpage 'Text Grid' should exist"
-   FormatPageWriter
-   try
-       Kontext
-       Active.SetPage TabGrid
-       Kontext "TabGrid"
-       TabGrid.Cancel
-   catch
-       Kontext
-       Active.SetPage TabSeite
-       Kontext "TabSeite"
-       TabSeite.Cancel
-       warnlog "Should get Tabpage: Grid Text"
-   endcatch
-
-   'if system language is Asian language, the checkbox
-   ''Asian Language support' is checked by default and
-   'can't do any operation for it
-   if iSystemSprache = 81 Or iSystemSprache = 82 Or iSystemSprache = 86 or iSystemSprache = 88 then
-       Goto NoTest
-   end if
-
-  printlog " Set 'Asian Language support' Off"
-   ActiveDeactivateAsianSupport(FALSE)
-
-  printlog " Format/Page , the tabpage 'Text Grid' shouldn't exist"
-   FormatPageWriter
-   try
-       Kontext
-       Active.SetPage TabGrid
-       Kontext "TabGrid"
-       TabGrid.Cancel
-       warnlog "Shouldn't get Tabpage: Grid Text"
-   catch
-       Kontext
-       Active.SetPage TabSeite
-       Kontext "TabSeite"
-       TabSeite.Cancel
-   endcatch
-
-  printlog " Set the 'Asian Language support' to default"
-   if bAsianLanguage = FALSE then
-       Call ActiveDeactivateAsianSupport(FALSE)
-   end if
-
-NoTest:
-  printlog " Close active document"
-   Call hCloseDocument
-endcase
-
-'-------------------------------------------------------------------------------------------
-
-testcase tCJKDependency_2
-
-  Dim bAsianLanguage   as Boolean
-
-  PrintLog "- Tabpage'Asian Typography'"
-
-  printlog " Open a new document"
-  Call hNewDocument
-
-  printlog " Set 'Asian Language support' ON"
-   bAsianLanguage = ActiveDeactivateAsianSupport(TRUE)
-
-  printlog " Format/Paragraph , the tabpage 'Asian Typography' should exist"
-   FormatParagraph
-   try
-       Kontext
-       Active.SetPage TabAsianTypography
-       Kontext "TabAsianTypography"
-       TabAsianTypography.Cancel
-   catch
-       Kontext
-       Active.SetPage TabTextfluss
-       Kontext "TabTextfluss"
-       TabTextfluss.Cancel
-       warnlog "Should get Tabpage: Asian Typography"
-   endcatch
-
-   'if system language is Asian language, the checkbox
-   ''Asian Language support' is checked by default and
-   'can't do any operation for it
-   if iSystemSprache = 81 Or iSystemSprache = 82 Or iSystemSprache = 86 or iSystemSprache = 88 then
-       Goto NoTest
-   end if
-
-  printlog " Set 'Asian Language support' Off"
-   ActiveDeactivateAsianSupport(FALSE)
-
-  printlog " Format/Page , the tabpage 'Asian Typography' shouldn't exist"
-   FormatParagraph
-   try
-       Kontext
-       Active.SetPage TabAsianTypography
-       Kontext "TabAsianTypography"
-       TabAsianTypography.Cancel
-       warnlog "Shouldn't get Tabpage: Asian Typography"
-   catch
-       Kontext
-       Active.SetPage TabTextfluss
-       Kontext "TabTextfluss"
-       TabTextfluss.Cancel
-   endcatch
-
-  printlog " Set the 'Asian Language support' to default"
-   if bAsianLanguage = FALSE then
-       Call ActiveDeactivateAsianSupport(FALSE)
-   end if
-
-NoTest:
-  printlog " Close active document"
-   Call hCloseDocument
-endcase
-
-'-------------------------------------------------------------------------------------------
-
-testcase tCJKDependency_3
-
-  Dim bAsianLanguage as Boolean
-
-  PrintLog "- CheckBox 'Snap to text grid (if active)'"
-
-  printlog " Open a new document"
-  Call hNewDocument
-
-  printlog " Set 'Asian Language support' ON"
-   bAsianLanguage = ActiveDeactivateAsianSupport(TRUE)
-
-  printlog " Format/Paragraph / Alignment ,"
-  printlog " the CheckBox 'Snap to text grid (if active)' should exist"
-   Call fFormatParagraph("TabAusrichtungAbsatz")
-       try
-           TextrasterFangen.UnCheck
-       catch
-           warnlog "Should get checkbox 'Snap to text grid (if active)'"
-       endcatch
-   TabAusrichtungAbsatz.Cancel
-
-   'if system language is Asian language, the checkbox
-   ''Asian Language support' is checked by default and
-   'can't do any operation for it
-   if iSystemSprache = 81 Or iSystemSprache = 82 Or iSystemSprache = 86 or iSystemSprache = 88 then
-       Goto NoTest
-   end if
-
-  printlog " Set 'Asian Language support' Off"
-   ActiveDeactivateAsianSupport(FALSE)
-
-  printlog " Format/Paragraph / Alignment ,"
-  printlog " the CheckBox 'Snap to text grid (if active)' shouldn't exist"
-   Call fFormatParagraph("TabAusrichtungAbsatz")
-       try
-           TextrasterFangen.UnCheck
-           warnlog "Shouldn't get checkbox 'Snap to text grid (if active)'"
-       catch
-       endcatch
-   TabAusrichtungAbsatz.Cancel
-
-  printlog " Set the 'Asian Language support' to default"
-   if bAsianLanguage = FALSE then
-       Call ActiveDeactivateAsianSupport(FALSE)
-   end if
-
-NoTest:
-  printlog " Close active document"
-   Call hCloseDocument
-endcase
-
-'-------------------------------------------------------------------------------------------
-
-testcase tCJKDependency_4
-
-    Dim bAsianLanguage as Boolean
-    Dim bCTLLanguage as Boolean
-    'if system language is Asian language, the checkbox
-    ''Asian Language support' is checked by default and
-    'can't do any operation for it
-    if iSystemSprache = 81 Or iSystemSprache = 82 Or iSystemSprache = 86 or iSystemSprache = 88 then
-        goto endsub
-    end if
-
-    PrintLog "- listbox 'Text direction' - Page"
-
-    printlog " Open a new document"
-    Call hNewDocument
-
-    printlog " Set 'CTL language support' OFF"
-    bCTLLanguage = ActiveDeactivateCTLSupport(FALSE)
-
-    printlog " Set 'Asian Language support' ON"
-    bAsianLanguage = ActiveDeactivateAsianSupport(TRUE)
-
-    printlog " Format/Page / Page, the listbox 'Text direction' should exist"
-    Call fFormatPageWriter("TabSeite")
-    if Textfluss.IsVisible = TRUE then
-        Textfluss.Select 2
-    else
-        warnlog "Should get listbox 'Text direction'"
-    end if
-    TabSeite.Cancel
-
-    printlog " Set 'Asian Language support' Off"
-    ActiveDeactivateAsianSupport(FALSE)    
-    printlog " Format/Page / Page, the listbox 'Text direction' shouldn't exist"
-    Call fFormatPageWriter("TabSeite")
-    if Textfluss.IsVisible = TRUE then
-        warnlog "Shouldn't get listbox 'Text direction'"
-    end if
-    TabSeite.Cancel
-
-    printlog " Set the 'Asian Language support' to default"
-    if bAsianLanguage = FALSE then
-       Call ActiveDeactivateAsianSupport(FALSE)
-    end if
-
-    Call hCloseDocument
-endcase
-
-'-------------------------------------------------------------------------------------------
-
-testcase tCJKDependency_5
-
-    Dim bAsianLanguage as Boolean
-    Dim bCTLLanguage as Boolean
-
-    PrintLog "- listbox 'Text direction' - Frame"
-
-    printlog " Open a new document"
-    Call hNewDocument
-
-    printlog " Set 'CTL language support' OFF"
-    bCTLLanguage = ActiveDeactivateCTLSupport(FALSE)
-
-    printlog " Set 'Asian Language support' ON"
-    bAsianLanguage = ActiveDeactivateAsianSupport(TRUE)
-    
-    printlog " Insert a frame"
-    Call wInsertFrame
-    
-    printlog " Format/Frame / Options, the listbox 'Text direction' should exist"
-    Call fFormatFrame("TabZusaetze")
-    if Not TextDirection.IsVisible then
-        warnlog "Should get listbox 'Text direction'"
-    end if
-    TabZusaetze.Cancel
-    
-    'if system language is Asian language, the checkbox
-    ''Asian Language support' is checked by default and
-    'can't do any operation for it
-    if iSystemSprache = 81 Or iSystemSprache = 82 Or iSystemSprache = 86 or iSystemSprache = 88 then
-        Goto NoTest
-    end if
-    
-    printlog " Set 'Asian Language support' Off"
-    ActiveDeactivateAsianSupport(FALSE)
-    
-    printlog " Format/Frame / Options, the listbox 'Text direction' shouldn't exist"
-    Call fFormatFrame("TabZusaetze")
-    if TextDirection.IsVisible = TRUE then
-        QAErrorLog "#135837# Shouldn't get listbox 'Text direction'."
-    end if
-    TabZusaetze.Cancel
-    
-    printlog " Set the 'Asian Language support' to default"
-    if bAsianLanguage = FALSE then
-        Call ActiveDeactivateAsianSupport(FALSE)
-    end if
-    
-NoTest:
-    printlog " Set the 'CTL language support' to default"
-    if bCTLLanguage = TRUE then
-        Call ActiveDeactivateAsianSupport(TRUE)
-    end if
-    
-    printlog " Close active document"
-    Call hCloseDocument
-endcase
-
-'-------------------------------------------------------------------------------------------
-
-testcase tCTLDependency_1
-
-    Dim bCTLLanguage as Boolean
-
-    PrintLog "- listbox 'Text direction' -- insert/section"
-
-    printlog " Open a new document"
-    Call hNewDocument
-
-    printlog " Set 'CTL Language support' ON"
-    bCTLLanguage = ActiveDeactivateCTLSupport(TRUE)
-    
-    printlog " Insert/Section/Columns,"
-    printlog " the listbox 'Text direction' should exist"
-    Call fInsertSection("TabSpalten")
-    if Not TextDirection.IsVisible then
-        Warnlog "Should get listbox 'Text direction'"
-    end if
-    TabSpalten.Cancel
-    
-    printlog " Set 'CTL Language support' Off"
-    Call ActiveDeactivateCTLSupport(FALSE)
-    
-    printlog " Insert/Section/Columns,"
-    printlog " the listbox 'Text direction' shouldn't exist"
-    Call fInsertSection("TabSpalten")
-    if TextDirection.IsVisible then
-        Warnlog "Shouldn't get listbox 'Text direction'"
-    end if
-    TabSpalten.Cancel
-    
-    printlog " Set the 'CTL Language support' to default"
-    if bCTLLanguage = TRUE then
-        Call ActiveDeactivateCTLSupport(TRUE)
-    end if
-
-    printlog " Close active document"
-    Call hCloseDocument
-endcase
-
-'-------------------------------------------------------------------------------------------
-
-testcase tCTLDependency_2
-
-    Dim bCTLLanguage as Boolean
-
-    PrintLog "- listbox 'Text direction' -- format/section"
-
-    printlog " Open a new document"
-    Call hNewDocument
-    
-    printlog " Insert a section"
-    Call fInsertSection("TabBereiche")
-    TabBereiche.OK
-    
-    printlog " Set 'CTL Language support' ON"
-    bCTLLanguage = ActiveDeactivateCTLSupport(TRUE)
-    
-    printlog " Format/Section , then click option button,"
-    printlog " the listbox 'Text direction' should exist"
-    FormatSections
-    Kontext "BereicheBearbeiten"
-    Optionen.Click
-    Sleep 1
-    Kontext
-    Active.Setpage TabSpalten
-    Kontext "TabSpalten"
-    if Not TextDirection.IsVisible then
-        Warnlog "Should get listbox 'Text direction'"
-    end if
-    TabSpalten.Cancel
-    Sleep 1
-    Kontext "BereicheBearbeiten"
-    BereicheBearbeiten.Cancel
-    
-    printlog " Set 'CTL Language support' Off"
-    Call ActiveDeactivateCTLSupport(FALSE)
-    
-    printlog " Format/Section , then click option button,"
-    printlog " the listbox 'Text direction' shouldn't exist"
-    FormatSections
-    Kontext "BereicheBearbeiten"
-    Optionen.Click
-    Kontext
-    Active.Setpage TabSpalten
-    Kontext "TabSpalten"
-    if TextDirection.IsVisible then
-        Warnlog "Shouldn't get listbox 'Text direction'"
-    end if
-    TabSpalten.Cancel
-    Sleep 1
-    Kontext "BereicheBearbeiten"
-    BereicheBearbeiten.Cancel
-    
-    printlog " Set the 'CTL Language support' to default"
-    if bCTLLanguage = TRUE then
-        Call ActiveDeactivateCTLSupport(TRUE)
-    end if
-    
-    printlog " Close active document"
-    Call hCloseDocument
-endcase
-
-'-------------------------------------------------------------------------------------------
-
-testcase tCTLDependency_3
-
-    Dim bCTLLanguage as Boolean
-    PrintLog "- listbox 'Text direction' -- Table"
-    
-    printlog " Open a new document"
-    Call hNewDocument
-    
-    printlog " Insert a table"
-    Call hTabelleEinfuegen
-    
-    printlog " Set 'CTL Language support' ON"
-    bCTLLanguage = ActiveDeactivateCTLSupport(TRUE)
-    
-    printlog " Format/Table / Table ,"
-    printlog " the listbox 'Text direction' should exist"
-    Call fFormatTable("TabTabelle")
-    if Not TextDirection.IsVisible then
-        Warnlog "Should get listbox 'Text direction'"
-    end if
-    TabTabelle.Cancel
-    
-    printlog " Set 'CTL Language support' Off"
-    Call ActiveDeactivateCTLSupport(FALSE)
-    
-    printlog " Format/Table / Table ,"
-    printlog " the listbox 'Text direction' shouldn't exist"
-    Call fFormatTable("TabTabelle")
-    if TextDirection.IsVisible then
-        Warnlog "Shouldn't get listbox 'Text direction'"
-    end if
-    TabTabelle.Cancel
-    
-    printlog " Set the 'CTL Language support' to default"
-    if bCTLLanguage = TRUE then
-        Call ActiveDeactivateCTLSupport(TRUE)
-    end if
-    
-    printlog " Close active document"
-    Call hCloseDocument
-endcase
-
-'-------------------------------------------------------------------------------------------
-
-testcase tCTLDependency_4
-
-  Dim bCTLLanguage as Boolean
-  Dim bLToR as Boolean
-  Dim bRToL as Boolean
-
-  PrintLog "- 'left to right' and 'right to left' button "
-
-  printlog " Open a new document"
-  Call hNewDocument
-
-   bLToR = fActiveObjectInToolbar("Text Object" , "Left-To-Right" , TRUE)
-   bRToL = fActiveObjectInToolbar("Text Object" , "Right-To-Left" , TRUE)
-
-  printlog " Set 'CTL Language support' Off"
-   bCTLLanguage = ActiveDeactivateCTLSupport(FALSE)
-   Sleep 2
-
-  printlog " Check if 'left to right' button and 'right to left' button"
-  printlog " can be clicked in text tool bar -- Shouldn't be"
-   Kontext "TextObjectbar"
-   try
-       LeftToRight.Click
-       warnlog "Left To Right button shouldn't be clicked!"
-   catch
-   endcatch
-   try
-       RightToLeft.Click
-       warnlog "Right To Left button shouldn't be clicked!"
-   catch
-   endcatch
-
-  printlog " Set 'CTL Language support' ON"
-   ActiveDeactivateCTLSupport(TRUE)
-
-  printlog " Check if 'left to right' button and 'right to left' button"
-  printlog " can be clicked in text tool bar -- Should be"
-   Kontext "TextObjectbar"
-   Sleep 2
-   try
-       LeftToRight.Click
-       Sleep 2
-   catch
-       warnlog "#i38788# Left To Right button can't be clicked!"
-   endcatch
-   try
-       RightToLeft.Click
-       Sleep 2
-   catch
-       warnlog "#i38788# Right To Left button can't be clicked!"
-   endcatch
-
-  'Set R to L and L to R button disappear
-   if bLToR = FALSE then
-       Call fActiveObjectInToolbar("Text Object" , "Left-To-Right" , FALSE)
-   end if
-   if bRToL = FALSE then
-       Call fActiveObjectInToolbar("Text Object" , "Right-To-Left" , FALSE)
-   end if
-
-  printlog " Set the 'CTL Language support' to default"
-   if bCTLLanguage = FALSE then
-       Call ActiveDeactivateCTLSupport(FALSE)
-   end if
-
-  printlog " Close active document"
-   Call hCloseDocument
-endcase
-
-'-------------------------------------------------------------------------------------------
-
-testcase tCTLDependency_5
-
-    Dim bCTLLanguage as Boolean
-    Dim bLToR as Boolean
-    Dim bRToL as Boolean
-    Dim iHtmlExportMode as Integer
-    Dim iCurrentHtmlExportMode as Integer
-    
-    iHtmlExportMode = 1
-    
-    PrintLog "- 'left to right' and 'right to left' button - HTML (HTML 3.2)"
-    
-    printlog " Open a new document"
-    Call hNewDocument
-    
-    bLToR = fActiveObjectInToolbar("Text Object" , "Left-To-Right" , TRUE)
-    bRToL = fActiveObjectInToolbar("Text Object" , "Right-To-Left" , TRUE)
-    
-    printlog " Set Export mode to HTML 3.2"
-    printlog " Tools/load&save/HTML compatibility/Exprt"
-    ToolsOptions
-    Call hToolsOptions ( "LoadSave", "HTMLCompatibility" )
-    iCurrentHtmlExportMode = Export.GetSelIndex
-    Sleep 1
-    Export.Select iHtmlExportMode
-    Sleep 1
-    Kontext "ExtrasOptionenDlg"
-    ExtrasOptionenDlg.OK
-    
-    PrintLog "Set 'CTL Language support' Off"
-    bCTLLanguage = ActiveDeactivateCTLSupport(FALSE)
-    Sleep 2
-    
-    printlog " Check if 'left to right' button and 'right to left' button"
-    printlog " can be clicked in text tool bar -- Shouldn't be"
-    Kontext "TextObjectbar"
-    try
-        LeftToRight.Click
-        warnlog "Left To Right button shouldn't be clicked!"
-    catch
-    endcatch
-    try
-        RightToLeft.Click
-        warnlog "Right To Left button shouldn't be clicked!"
-    catch
-    endcatch
-    
-    PrintLog "Set 'CTL Language support' ON"
-    ActiveDeactivateCTLSupport(TRUE)
-    
-    printlog " Check if 'left to right' button and 'right to left' button"
-    printlog " can be clicked in text tool bar -- Should NOT be"
-    Kontext "TextObjectbar"
-    Sleep 2
-    try
-       LeftToRight.Click
-       QAErrorLog "#115836# Left To Right button shouldn't be clicked!"
-       Sleep 2
-    catch
-    endcatch
-    try
-       RightToLeft.Click
-       QAErrorLog "#115836# Right To Left button shouldn't be clicked!"
-       Sleep 2
-    catch
-    endcatch
-    
-    'Set R to L and L to R button disappear
-    if bLToR = FALSE then
-       Call fActiveObjectInToolbar("Text Object" , "Left-To-Right" , FALSE)
-    end if
-    if bRToL = FALSE then
-       Call fActiveObjectInToolbar("Text Object" , "Right-To-Left" , FALSE)
-    end if
-
-    printlog " Set the 'CTL Language support' to default"
-    if bCTLLanguage = FALSE then
-       Call ActiveDeactivateCTLSupport(FALSE)
-    end if
-
-    printlog " Set Export mode to default"
-    ToolsOptions
-    Call hToolsOptions ( "LoadSave", "HTMLCompatibility" )
-     Export.Select iCurrentHtmlExportMode
-     Sleep 1
-     Kontext "ExtrasOptionenDlg"
-    ExtrasOptionenDlg.OK
-
-    printlog " Close active document"
-    Call hCloseDocument
-endcase
-
-'-------------------------------------------------------------------------------------------
-
-testcase tCTLDependency_6
-
-  Dim bCTLLanguage as Boolean
-  Dim bLToR as Boolean
-  Dim bRToL as Boolean
-  Dim iHtmlExportMode as Integer
-  Dim iCurrentHtmlExportMode as Integer
-
-  iHtmlExportMode = 2
-
-  PrintLog "- 'left to right' and 'right to left' button - HTML(Microsoft Internet Bxplorer)"
-
-  printlog " Open a new document"
-  Call hNewDocument
-
-   bLToR = fActiveObjectInToolbar("Text Object" , "Left-To-Right" , TRUE)
-   bRToL = fActiveObjectInToolbar("Text Object" , "Right-To-Left" , TRUE)
-
-  printlog " Set Export mode to Microsoft Internet Bxplorer"
-  printlog " Tools/load&save/HTML compatibility/Exprt"
-   ToolsOptions
-   Call hToolsOptions ( "LoadSave", "HTMLCompatibility" )
-     iCurrentHtmlExportMode = Export.GetSelIndex
-     Export.Select iHtmlExportMode
-     Sleep 1
-     Kontext "ExtrasOptionenDlg"
-   ExtrasOptionenDlg.OK
-
-  printlog " Set 'CTL Language support' Off"
-   bCTLLanguage = ActiveDeactivateCTLSupport(FALSE)
-   Sleep 2
-
-  printlog " Check if 'left to right' button and 'right to left' button"
-  printlog " can be clicked in text tool bar -- Shouldn't be"
-   Kontext "TextObjectbar"
-   try
-       LeftToRight.Click
-       warnlog "Left To Right button shouldn't be clicked!"
-   catch
-   endcatch
-   try
-       RightToLeft.Click
-       warnlog "Right To Left button shouldn't be clicked!"
-   catch
-   endcatch
-
-  printlog " Set 'CTL Language support' ON"
-   ActiveDeactivateCTLSupport(TRUE)
-
-  printlog " Check if 'left to right' button and 'right to left' button"
-  printlog " can be clicked in text tool bar -- Should be"
-   Kontext "TextObjectbar"
-   Sleep 2
-   try
-       LeftToRight.Click
-       Sleep 2
-   catch
-       warnlog "#i38788# Left To Right button can't be clicked!"
-   endcatch
-   try
-       RightToLeft.Click
-       Sleep 2
-   catch
-       warnlog "#i38788# Right To Left button can't be clicked!"
-   endcatch
-
-  'Set R to L and L to R button disappear
-   if bLToR = FALSE then
-       Call fActiveObjectInToolbar("Text Object" , "Left-To-Right" , FALSE)
-   end if
-   if bRToL = FALSE then
-       Call fActiveObjectInToolbar("Text Object" , "Right-To-Left" , FALSE)
-   end if
-
-  printlog " Set the 'CTL Language support' to default"
-   if bCTLLanguage = FALSE then
-       Call ActiveDeactivateCTLSupport(FALSE)
-   end if
-
-  printlog " Set Export mode to default"
-   ToolsOptions
-   Call hToolsOptions ( "LoadSave", "HTMLCompatibility" )
-     Export.Select iCurrentHtmlExportMode
-     Sleep 1
-     Kontext "ExtrasOptionenDlg"
-   ExtrasOptionenDlg.OK
-
-  printlog " Close active document"
-   Call hCloseDocument
-endcase
-
-'-------------------------------------------------------------------------------------------
-
-testcase tCTLDependency_7
-
-  Dim bCTLLanguage as Boolean
-  Dim bLToR as Boolean
-  Dim bRToL as Boolean
-  Dim iHtmlExportMode as Integer
-  Dim iCurrentHtmlExportMode as Integer
-
-  iHtmlExportMode = 3
-
-  PrintLog "- 'left to right' and 'right to left' button - HTML(Netscape Navigator)"
-
-  printlog " Open a new document"
-  Call hNewDocument
-
-   bLToR = fActiveObjectInToolbar("Text Object" , "Left-To-Right" , TRUE)
-   bRToL = fActiveObjectInToolbar("Text Object" , "Right-To-Left" , TRUE)
-
-  printlog " Set Export mode to Netscape Navigator"
-  printlog " Tools/load&save/HTML compatibility/Exprt"
-   ToolsOptions
-   Call hToolsOptions ( "LoadSave", "HTMLCompatibility" )
-     iCurrentHtmlExportMode = Export.GetSelIndex
-     Export.Select iHtmlExportMode
-     Sleep 1
-     Kontext "ExtrasOptionenDlg"
-   ExtrasOptionenDlg.OK
-
-  printlog " Set 'CTL Language support' Off"
-   bCTLLanguage = ActiveDeactivateCTLSupport(FALSE)
-   Sleep 2
-
-  printlog " Check if 'left to right' button and 'right to left' button"
-  printlog " can be clicked in text tool bar -- Shouldn't be"
-   Kontext "TextObjectbar"
-   try
-       LeftToRight.Click
-       warnlog "Left To Right button shouldn't be clicked!"
-   catch
-   endcatch
-   try
-       RightToLeft.Click
-       warnlog "Right To Left button shouldn't be clicked!"
-   catch
-   endcatch
-
-  printlog " Set 'CTL Language support' ON"
-   ActiveDeactivateCTLSupport(TRUE)
-
-  printlog " Check if 'left to right' button and 'right to left' button"
-  printlog " can be clicked in text tool bar -- Should be"
-   Kontext "TextObjectbar"
-   Sleep 2
-   try
-       LeftToRight.Click
-       Sleep 2
-   catch
-       warnlog "#i38788# Left To Right button can't be clicked!"
-   endcatch
-   try
-       RightToLeft.Click
-       Sleep 2
-   catch
-       warnlog "#i38788# Right To Left button can't be clicked!"
-   endcatch
-
-  'Set R to L and L to R button disappear
-   if bLToR = FALSE then
-       Call fActiveObjectInToolbar("Text Object" , "Left-To-Right" , FALSE)
-   end if
-   if bRToL = FALSE then
-       Call fActiveObjectInToolbar("Text Object" , "Right-To-Left" , FALSE)
-   end if
-
-  printlog " Set the 'CTL Language support' to default"
-   if bCTLLanguage = FALSE then
-       Call ActiveDeactivateCTLSupport(FALSE)
-   end if
-
-  printlog " Set Export mode to default"
-   ToolsOptions
-   Call hToolsOptions ( "LoadSave", "HTMLCompatibility" )
-     Export.Select iCurrentHtmlExportMode
-     Sleep 1
-     Kontext "ExtrasOptionenDlg"
-   ExtrasOptionenDlg.OK
-
-  printlog " Close active document"
-   Call hCloseDocument
-endcase
-
-'-------------------------------------------------------------------------------------------
-
-testcase tCTLDependency_8
-
-  Dim bCTLLanguage as Boolean
-  Dim bLToR as Boolean
-  Dim bRToL as Boolean
-  Dim iHtmlExportMode as Integer
-  Dim iCurrentHtmlExportMode as Integer
-
-  iHtmlExportMode = 4
-
-  PrintLog "- 'left to right' and 'right to left' button - HTML(StarOffice Writer)"
-
-  printlog " Open a new document"
-  Call hNewDocument
-
-   bLToR = fActiveObjectInToolbar("Text Object" , "Left-To-Right" , TRUE)
-   bRToL = fActiveObjectInToolbar("Text Object" , "Right-To-Left" , TRUE)
-
-  printlog " Set Export mode to StarOffice Writer"
-  printlog " Tools/load&save/HTML compatibility/Exprt"
-   ToolsOptions
-   Call hToolsOptions ( "LoadSave", "HTMLCompatibility" )
-     iCurrentHtmlExportMode = Export.GetSelIndex
-     Export.Select iHtmlExportMode
-     Sleep 1
-     Kontext "ExtrasOptionenDlg"
-   ExtrasOptionenDlg.OK
-
-  printlog " Set 'CTL Language support' Off"
-   bCTLLanguage = ActiveDeactivateCTLSupport(FALSE)
-   Sleep 2
-
-  printlog " Check if 'left to right' button and 'right to left' button"
-  printlog " can be clicked in text tool bar -- Shouldn't be"
-   Kontext "TextObjectbar"
-   try
-       LeftToRight.Click
-       warnlog "Left To Right button shouldn't be clicked!"
-   catch
-   endcatch
-   try
-       RightToLeft.Click
-       warnlog "Right To Left button shouldn't be clicked!"
-   catch
-   endcatch
-
-  printlog " Set 'CTL Language support' ON"
-   ActiveDeactivateCTLSupport(TRUE)
-
-  printlog " Check if 'left to right' button and 'right to left' button"
-  printlog " can be clicked in text tool bar -- Should be"
-   Kontext "TextObjectbar"
-   Sleep 2
-   try
-       LeftToRight.Click
-       Sleep 2
-   catch
-       warnlog "#i38788# Left To Right button can't be clicked!"
-   endcatch
-   try
-       RightToLeft.Click
-       Sleep 2
-   catch
-       warnlog "#i38788# Right To Left button can't be clicked!"
-   endcatch
-
-  'Set R to L and L to R button disappear
-   if bLToR = FALSE then
-       Call fActiveObjectInToolbar("Text Object" , "Left-To-Right" , FALSE)
-   end if
-   if bRToL = FALSE then
-       Call fActiveObjectInToolbar("Text Object" , "Right-To-Left" , FALSE)
-   end if
-
-  printlog " Set the 'CTL Language support' to default"
-   if bCTLLanguage = FALSE then
-       Call ActiveDeactivateCTLSupport(FALSE)
-   end if
-
-  printlog " Set Export mode to default"
-   ToolsOptions
-   Call hToolsOptions ( "LoadSave", "HTMLCompatibility" )
-     Export.Select iCurrentHtmlExportMode
-     Sleep 1
-     Kontext "ExtrasOptionenDlg"
-   ExtrasOptionenDlg.OK
-
-  printlog " Close active document"
-   Call hCloseDocument
-endcase
-
-'----------------------------------------------------------------------------------------------------
-
-testcase tCTLKashidaCheck
-
-    Dim bCTLLanguage as Boolean
-    Dim bAsianLanguage as boolean
-    Dim iListCounter as Integer
-
-    printlog " Open a new document"
-    Call hNewDocument
-
-    printlog " Set 'Asian support' to ON"
-    bAsianLanguage = ActiveDeactivateAsianSupport(True)
-    printlog " Set 'CTL Language support' to ON" 
-    bCTLLanguage = ActiveDeactivateCTLSupport(True)         
-    Sleep 2
-
-    ToolsOptions
-    Call hToolsOptions ("LanguageSettings","ComplexTextLayout")        
-    Kontext "TabComplexTextLayout"     
-
-    iListCounter = Numerals.GetItemCount
-    
-    if iListCounter <> 4 then
-        Warnlog "There are not 4 items in list 'Numerlas' but " + iListCounter
-    endif  
-
-    Kontext "ExtrasOptionenDlg"
-    ExtrasOptionenDlg.OK
-
-    if bAsianLanguage = FALSE then
-        printlog " Set the 'Asian Language support' to default"    
-        Call ActiveDeactivateAsianSupport(bAsianLanguage)
-    end if
-    
-    if bCTLLanguage = FALSE then
-        printlog " Set the 'CTL Language support' to default"    
-        Call ActiveDeactivateCTLSupport(FALSE)
-    end if
-
-   printlog " Close active document"
-   Call hCloseDocument
-endcase
-
-'----------------------------------------------------------------------------------------------------
-
-
diff --git a/testautomation/writer/optional/includes/alternative_text/w_alternative_text.inc b/testautomation/writer/optional/includes/alternative_text/w_alternative_text.inc
deleted file mode 100644
index a80e5b0e925b..000000000000
--- a/testautomation/writer/optional/includes/alternative_text/w_alternative_text.inc
+++ /dev/null
@@ -1,296 +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 : helge.delfs@oracle.com
-'*
-'* short description : Test Alternative Text for objects in writer
-'*
-'\************************************************************************
-
-sub w_alternative_text
-
-	Call tPictureAlternativeText
-	Call tFrameAlternativeText
-	Call tOLEAlternativeText	
-
-end sub
-
-'-------------------------------------------------------------------------
-
-testcase tPictureAlternativeText
-
-	printlog "- New writer document"	
-	Call hNewDocument
-    
-	printlog "- Insert a picture"	
-	InsertGraphicsFromFile
-	Kontext "GrafikEinfuegenDlg"
-	Dateiname.Settext ConvertPath(gTesttoolpath + "writer\optional\input\alternative_text\jolink.jpg")
-	Sleep 1
-	Oeffnen.Click
-	Sleep 2
-
-    printlog "- Context menu on the picture, choose 'Description'"
-	try
-		ContextDescriptionObject
-	catch
-		Warnlog "Seems picture is not selected => Description Object could not be opened"
-	endcatch	
-	
-    printlog "- Type 'TitleText' in the Title field"
-	Kontext "DescriptionObject"
-	DescriptionTitle.Settext "TitleText"	
-	
-    printlog "- Type 'This Is A Description'"
-	DescriptionText.Settext "This Is A Description"	
-	
-    printlog "- Close the dialog"
-	DescriptionObject.Ok
-
-    printlog "- Context menu on the picture, choose 'Description'"
-	try
-		ContextDescriptionObject
-	catch
-		Warnlog "Seems picture is not selected => Description Object could not be opened"
-	endcatch	
-
-	printlog "Check that the Title and Description fields have been saved correctly"
-	Kontext "DescriptionObject"
-	if DescriptionTitle.Gettext <> "TitleText" then
-		Warnlog "Object title gets lost. Not 'TitleText' but " & DescriptionTitle.Gettext 	
-	endif	
-	if DescriptionText.Gettext <> "This Is A Description" then
-		warnlog "Object description gets lost. Not 'This Is A Description' but " & DescriptionText.Gettext 	
-	endif
-	DescriptionObject.Cancel	
-	
-    printlog "- Format - Picture"
-	FormatGraphics
-	
-	printlog "The 'Alternative' field must be filled with the content of the Title field (='TitleText')"
-	Kontext
-	Active.Setpage TabZusaetze
-	Kontext "TabZusaetze"
-	if Alternativtext.Gettext <> "TitleText" then
-		Warnlog "Alternatice text in pictures options is not set"
-	endif
-	TabZusaetze.Cancel
-	
-    printlog "- Save the document"
-	Call hFileSaveAsKill ( gOfficePath + "user\work\tPictureAlternativeText.odt" )
-	Call hCloseDocument
-	
-    printlog "- Reload"
-	hFileOpen(  gOfficePath + "user\work\tPictureAlternativeText.odt" )		
-	' select graphic
-	Call wTypeKeys ("<SHIFT F4>")
-	
-	printlog "Check that the Title and Description fields have been saved correctly"
-	try
-		ContextDescriptionObject
-	catch
-		Warnlog "Seems picture is not selected => Description Object could not be opened"
-	endcatch	
-
-	Kontext "DescriptionObject"
-	if DescriptionTitle.Gettext <> "TitleText" then
-		Warnlog "Object title gets lost. Not 'TitleText' but " & DescriptionTitle.Gettext 	
-	endif	
-	if DescriptionText.Gettext <> "This Is A Description" then
-		warnlog "Object description gets lost. Not 'This Is A Description' but " & DescriptionText.Gettext 	
-	endif
-	DescriptionObject.Cancel
-	
-    printlog "- Format - Picture"
-	FormatGraphics
-	Kontext
-	Active.Setpage TabZusaetze
-	Kontext "TabZusaetze"
-	if Alternativtext.Gettext <> "TitleText" then
-		Warnlog "Alternatice text in pictures options is not set after save and reload"
-	endif
-	TabZusaetze.Cancel
-
-	printlog "- close document"
- 	Call hCloseDocument
-
-endcase
-
-'-------------------------------------------------------------------------
-
-testcase tFrameAlternativeText
-
-	printlog "- New writer document"	
-	Call hNewDocument
-    
-	printlog "- Insert a frame"	
-	Call wInsertFrame
-	
-    printlog "- Context menu on the frame, choose 'Description'"
-	try
-		ContextDescriptionObject
-	catch
-		Warnlog "Seems Frame is not selected => Description Object could not be opened"
-	endcatch	
-	
-    printlog "- Type 'TitleText' in the Title field"
-	Kontext "DescriptionObject"
-	DescriptionTitle.Settext "TitleText"	
-	
-    printlog "- Type 'This Is A Description'"
-	DescriptionText.Settext "This Is A Description"	
-	
-    printlog "- Close the dialog"
-	DescriptionObject.Ok
-
-    printlog "- Context menu on the frame, choose 'Description'"
-	try
-		ContextDescriptionObject
-	catch
-		Warnlog "Seems frame is not selected => Description Object could not be opened"
-	endcatch	
-
-	printlog "Check that the Title and Description fields have been saved correctly"
-	Kontext "DescriptionObject"
-	if DescriptionTitle.Gettext <> "TitleText" then
-		Warnlog "Object title gets lost. Not 'TitleText' but " & DescriptionTitle.Gettext 	
-	endif	
-	if DescriptionText.Gettext <> "This Is A Description" then
-		warnlog "Object description gets lost. Not 'This Is A Description' but " & DescriptionText.Gettext 	
-	endif
-	DescriptionObject.Cancel		
-	
-    printlog "- Save the document"
-	Call hFileSaveAsKill ( gOfficePath + "user\work\tFrameAlternativeText.odt" )
-	Call hCloseDocument
-	
-    printlog "- Reload"
-	hFileOpen(  gOfficePath + "user\work\tFrameAlternativeText.odt" )		
-	' select frame
-	Call wTypeKeys ("<SHIFT F4>")
-	
-	printlog "Check that the Title and Description fields have been saved correctly"
-	try
-		ContextDescriptionObject
-	catch
-		Warnlog "Seems frame is not selected => Description Object could not be opened"
-	endcatch	
-
-	Kontext "DescriptionObject"
-	if DescriptionTitle.Gettext <> "TitleText" then
-		Warnlog "Object title gets lost. Not 'TitleText' but " & DescriptionTitle.Gettext 	
-	endif	
-	if DescriptionText.Gettext <> "This Is A Description" then
-		warnlog "Object description gets lost. Not 'This Is A Description' but " & DescriptionText.Gettext 	
-	endif
-	DescriptionObject.Cancel
-	
-	printlog "- close document"
- 	Call hCloseDocument
-
-
-endcase
-
-'-------------------------------------------------------------------------
-
-testcase tOLEAlternativeText
-
-	printlog "- New writer document"	
-	Call hNewDocument
-    
-	printlog "- Insert a OLE"	
-    InsertObjectOLEObject
-    Kontext "OLEObjektEinfuegen"
-    NeuErstellen.Check
-    OLEObjektEinfuegen.Ok
-	Sleep 2	
-	Call gMouseClick (10,10)	
-	Call wTypeKeys "<SHIFT F4>"
-	
-    printlog "- Context menu on the OLE, choose 'Description'"
-	try
-		ContextDescriptionObject
-	catch
-		Warnlog "Seems OLE is not selected => Description Object could not be opened"
-	endcatch	
-	
-    printlog "- Type 'TitleText' in the Title field"
-	Kontext "DescriptionObject"
-	DescriptionTitle.Settext "TitleText"	
-	
-    printlog "- Type 'This Is A Description'"
-	DescriptionText.Settext "This Is A Description"	
-	
-    printlog "- Close the dialog"
-	DescriptionObject.Ok
-
-    printlog "- Context menu on the OLE, choose 'Description'"
-	try
-		ContextDescriptionObject
-	catch
-		Warnlog "Seems OLE is not selected => Description Object could not be opened"
-	endcatch	
-
-	printlog "Check that the Title and Description fields have been saved correctly"
-	Kontext "DescriptionObject"
-	if DescriptionTitle.Gettext <> "TitleText" then
-		Warnlog "Object title gets lost. Not 'TitleText' but " & DescriptionTitle.Gettext 	
-	endif	
-	if DescriptionText.Gettext <> "This Is A Description" then
-		warnlog "Object description gets lost. Not 'This Is A Description' but " & DescriptionText.Gettext 	
-	endif
-	DescriptionObject.Cancel		
-	
-    printlog "- Save the document"
-	Call hFileSaveAsKill ( gOfficePath + "user\work\tOLEAlternativeText.odt" )
-	Call hCloseDocument
-	
-    printlog "- Reload"
-	hFileOpen(  gOfficePath + "user\work\tOLEAlternativeText.odt" )		
-	' select OLE
-	Call wTypeKeys ("<SHIFT F4>")
-	
-	printlog "Check that the Title and Description fields have been saved correctly"
-	try
-		ContextDescriptionObject
-	catch
-		Warnlog "Seems OLE is not selected => Description Object could not be opened"
-	endcatch	
-
-	Kontext "DescriptionObject"
-	if DescriptionTitle.Gettext <> "TitleText" then
-		Warnlog "Object title gets lost. Not 'TitleText' but " & DescriptionTitle.Gettext 	
-	endif	
-	if DescriptionText.Gettext <> "This Is A Description" then
-		warnlog "Object description gets lost. Not 'This Is A Description' but " & DescriptionText.Gettext 	
-	endif
-	DescriptionObject.Cancel
-	
-	printlog "- close document"
- 	Call hCloseDocument
-
-endcase
\ No newline at end of file
diff --git a/testautomation/writer/optional/includes/autocorrection/w_autocorrect1.inc b/testautomation/writer/optional/includes/autocorrection/w_autocorrect1.inc
deleted file mode 100644
index 694c3dec0de4..000000000000
--- a/testautomation/writer/optional/includes/autocorrection/w_autocorrect1.inc
+++ /dev/null
@@ -1,1446 +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 : helge.delfs@oracle.com
-'*
-'* short description : Test the AutoCorrect/AutoFormat/Options
-'*
-'\***********************************************************************
-
-sub w_autocorrect1
-
-    printLog Chr(13) + "- Test the AutoCorrect/AutoFormat Options features"
-
-    Call tReplaceDashes_1                'Replace all of dashes    
-    '## Tab page Options in Tools/Autocorrect|Autoformat ##
-    Call tToolsAutocorrectOptions_1      'Use Replacement table
-    Call tToolsAutocorrectOptions_2      'Correct TWo INitial CApital
-    Call tToolsAutocorrectOptions_3      'Capitalize first letter of every setence
-    Call tToolsAutocorrectOptions_4_1    'Automatic bold
-    Call tToolsAutocorrectOptions_4_2    'Automatic underline
-    Call tToolsAutocorrectOptions_5      'URL Recognition
-    Call tToolsAutocorrectOptions_6      'Replace dashes
-    Call tToolsAutocorrectOptions_7     'Ignore double spaces
-    Call tToolsAutocorrectOptions_8     'Apply numbering
-    Call tToolsAutocorrectOptions_9     'Apply Border
-    Call tToolsAutocorrectOptions_10     'Create Table
-    Call tToolsAutocorrectOptions_11     'Remove Blank Paragraphs
-    Call tToolsAutocorrectOptions_12     'Replace bullets with •
-    Call tToolsAutocorrectOptions_13     'Replace standard quotes with custom quotes
-
-end sub
-
-'-------------------------------------------------------------------------
-
-testcase tReplaceDashes_1
-
-   Dim testWord as string, testResult as String
-   Dim i as Integer
-   Dim j as Integer
-
-   printLog "Replace dashes test"
-  '/// Replace dashes test
-  '/// - "Bla - Bla"           One short line between two words (with Blank before and after)
-  '/// - "Bla--Bla"            Dashes lines between two words (without Blanks)
-  '/// - "Helen and --Tom"     Dashes Lines before a Word (one Blank before, none after)
-  '/// - "(Bla--Bla)"          Testing  Text in brackets ( )
-  '/// - "[Bla--Bla]"          Testing  Text in brackets [ ]
-  '/// - "{Bla--Bla}"          Testing  Text in brackets { }
-
-   Call hNewDocument
-
-   For i = 1 to 6
-       Select Case i
-            Case 1 : testWord = "Bla - Bla"         : testResult = "Bla – Bla"
-            Case 2 : testWord = "Bla--Bla"          : testResult = "Bla—Bla"
-            Case 3 : testWord = "Helen and --Tom"   : testResult = "Helen and –Tom"
-            Case 4 : testWord = "(Bla--Bla)"        : testResult = "(Bla—Bla)"
-            Case 5 : testWord = "[Bla--Bla]"        : testResult = "[Bla—Bla]"
-            Case 6 : testWord = "{Bla--Bla}"        : testResult = "{Bla—Bla}"
-        end select
-
-        printlog "- Replace dashes " & testword & " => " & testResult
-        Call wTypeKeys testWord
-        Call wTypeKeys " "
-        Sleep 1
-        Call wTypeKeys "<Left><Shift Home>"
-        EditCopy
-        if GetClipboardText <> testResult then Warnlog "Something wrong in the test for " + testWord(i)
-        Call wTypeKeys "<DELETE>"
-    next i
-
-    Call hCloseDocument
-
-endcase
-
-'-------------------------------------------------------------------------
-
-testcase tToolsAutocorrectOptions_1
-   
-    printLog "Test 'Use Replacement table'"
-    '/// Test 'Use Replacement table'
-    Call hNewDocument
-    '/// Insert new test word in replacement table 
-    '/// Tools/AutoCorrect / Replace , insert new test words in new and replace ,
-    '/// + and press button New.
-    ToolsAutoCorrect
-    Kontext
-    Active.SetPage TabErsetzung
-    Kontext "TabErsetzung"
-    Kuerzel.SetText "Aabbcc"
-    ErsetzenDurch.SetText "Aaccbb"
-    Sleep 1
-    try
-        Neu.Click
-    catch
-        Warnlog "Seems settings are already made. Please remove entries from replacement table"
-    endcatch
-    Sleep 1
-    TabErsetzung.OK
-    
-    printlog "- M:Y  T:Y (default)"
-    ToolsAutoCorrect
-    Kontext
-    Active.SetPage TabOptionenAutokorrektur
-    Kontext "TabOptionenAutokorrektur"
-    if Einstellungen.IsChecked(1,2) = FALSE then
-        Warnlog "First Checkbox not checked by default"
-        Einstellungen.Check(1,2)
-    endif
-    if Einstellungen.IsChecked(1,3) = FALSE then
-        Warnlog "Second Checkbox not checked by default"
-        Einstellungen.Check(1,3)
-    endif
-    TabOptionenAutokorrektur.Ok
-    
-    Call wTypeKeys "Aabbcc"
-    Call wTypeKeys " "
-    Call wTypeKeys "<BACKSPACE><Shift Home>"
-    EditCopy
-    if GetClipboardText <> "Aaccbb" then Warnlog "Something wrong in Use Replacement table when M:Y  T:Y"
-    
-    Call wTypeKeys "<DELETE>"
-    
-    printlog "- M:Y  T:N"
-    Call fAutocorrectOptions("UseReplacementTable", 1, 0)
-    
-    Call wTypeKeys "Aabbcc"
-    Call wTypeKeys " "
-    Call wTypeKeys "<BACKSPACE><Shift Home>"
-    
-    EditCopy
-    if GetClipboardText <> "Aabbcc" then
-        Warnlog "The content should NOT be changed before Autoformat! M:Y  T:N"
-    else    
-        Call wTypeKeys "<ESCAPE>"
-        FormatAutoformatApply
-        Call wTypeKeys "<Home><Shift End>"
-        GetClipboardText = ""
-        EditCopy
-        if GetClipboardText <> "Aaccbb" then
-            Warnlog "The content should be changed after Autoformat!M:Y  T:N"
-        end if
-    end if
-    
-    Call wTypeKeys "<DELETE>"
-    
-    printlog "- M:N  T:Y"
-    Call fAutocorrectOptions("UseReplacementTable", 0, 1)
-    
-    Call wTypeKeys "Aabbcc"
-    Call wTypeKeys " "
-    Call wTypeKeys "<BACKSPACE><Shift Home>"
-    GetClipboardText = ""
-    EditCopy
-    if GetClipboardText <> "Aaccbb" then Warnlog "Something wrong in Use Replacement table when M:N  T:Y"
-    
-    Call wTypeKeys "<DELETE>"
-    
-    printlog "- M:N  T:N"
-    Call fAutocorrectOptions("UseReplacementTable", 0, 0)
-    
-    Call wTypeKeys "Aabbcc"
-    Call wTypeKeys " "
-    Call wTypeKeys "<BACKSPACE><Shift Home>"
-    EditCopy
-    if GetClipboardText <> "Aabbcc" then
-        Warnlog "The content should NOT be changed before Autoformat! M:N  T:N"
-        Call hCloseDocument
-        goto endsub
-    else    
-        Call wTypeKeys "<ESCAPE>"
-        FormatAutoformatApply
-        Call wTypeKeys "<Home><Shift End>"
-        GetClipboardText = ""
-        EditCopy
-        if GetClipboardText <> "Aabbcc" then
-            Warnlog "The content should NOT be changed after Autoformat! M:N  T:N"
-        end if
-    end if        
-
-    printlog "- Recover to the default  M:Y  T:Y"
-     Call fAutocorrectOptions("UseReplacementTable", 1, 1)
-
-    'remove the test words which you insert in the replacement table
-    Dim i as Integer
-    ToolsAutoCorrect
-    Kontext
-    Active.SetPage TabErsetzung
-    Kontext "TabErsetzung"
-    for i =1 to Liste.GetItemCount
-        if Kuerzel.GetText = "Aabbcc" then
-            i = Liste.GetItemCount + 1
-            Loeschen.Click
-        else
-            Liste.Typekeys "<Down>"
-        end if
-    next i
-    TabErsetzung.OK
-    
-    Call hCloseDocument
-
-endcase
-
-'-------------------------------------------------------------------------
-
-testcase tToolsAutocorrectOptions_2
-
-    Dim testContent as String
-    Dim hopeResult as String
-    Dim hopeResultBeforeAutoformat as String
-    Dim hopeResultAfterAutoformat as String
-
-    printLog "Test 'Correct TWo INitial CApital'  "
-    '/// Test 'Correct TWo INitial CApital'
-    Call hNewDocument
-
-    '/// M:Y  T:Y (default)
-    testContent = "TEst"
-    hopeResult  = "Test"
-    Call wTypeKeys testContent
-    Call wTypeKeys " "
-    Call wTypeKeys "<BACKSPACE><Shift Home>"
-    EditCopy
-    if GetClipboardText <> hopeResult then Warnlog "Something wrong in Correct TWo INitial CApital when M:Y  T:Y"
-
-    Call wTypeKeys "<DELETE>"
-
-    '/// M:Y  T:N
-    testContent                 = "TEst"
-    hopeResultBeforeAutoformat  = "TEst"
-    hopeResultAfterAutoformat   = "Test"
-
-    Call fAutocorrectOptions("CorrectTWoINitialCApitals",1,0)
-
-    Call wTypeKeys testContent
-    Call wTypeKeys " "
-    Call wTypeKeys "<BACKSPACE><Shift Home>"
-
-    EditCopy
-    if GetClipboardText <> hopeResultBeforeAutoformat then
-    Warnlog "The content should NOT be changed before Autoformat! M:Y  T:N"
-    goto GOING1
-    end if
-
-    Call wTypeKeys "<ESCAPE>"
-    FormatAutoformatApply
-    Call wTypeKeys "<Shift End>"
-    EditCopy
-    if GetClipboardText <> hopeResultAfterAutoformat then
-    Warnlog "The content should be changed after Autoformat!M:Y  T:N"
-    end if
-
-    GOING1:
-    Call wTypeKeys "<DELETE>"
-
-    '/// M:N  T:Y
-    testContent  = "TEst"
-    hopeResult   = "Test"
-
-    Call fAutocorrectOptions("CorrectTWoINitialCApitals",0,1)
-
-    Call wTypeKeys testContent
-    Call wTypeKeys " "
-    Call wTypeKeys "<BACKSPACE><Shift Home>"
-    EditCopy
-    if GetClipboardText <> hopeResult then Warnlog "Something wrong in Correct TWo INitial CApital when M:N  T:Y"
-
-    Call wTypeKeys "<DELETE>"
-
-    '/// M:N  T:N
-    testContent                 = "TEst"
-    hopeResultBeforeAutoformat  = "TEst"
-    hopeResultAfterAutoformat   = "TEst"
-
-    Call fAutocorrectOptions("CorrectTWoINitialCApitals",0,0)
-
-    Call wTypeKeys testContent
-    Call wTypeKeys " "
-    Call wTypeKeys "<BACKSPACE><Shift Home>"
-    EditCopy
-    if GetClipboardText <> hopeResultBeforeAutoformat then
-        Warnlog "The content should NOT be changed before Autoformat! M:N  T:N"
-        Call hCloseDocument
-    end if
-
-    Call wTypeKeys "<ESCAPE>"
-    FormatAutoformatApply
-    Call wTypeKeys "<Shift End>"
-    EditCopy
-    if GetClipboardText <> hopeResultAfterAutoformat then
-        Warnlog "The content should NOT be changed after Autoformat! M:N  T:N"
-    end if
-
-    '/// Recover to the default  M:Y  T:Y
-    Call fAutocorrectOptions("CorrectTWoINitialCApitals",1,1)
-
-    Call hCloseDocument
-
-endcase
-
-'-------------------------------------------------------------------------
-
-testcase tToolsAutocorrectOptions_3
-
-    Dim testContent as String
-    Dim hopeResult as String
-    Dim hopeResultBeforeAutoformat as String
-    Dim hopeResultAfterAutoformat as String
-
-    printLog "Test 'Capitalize first letter of every setence'"
-    '/// Test 'Capitalize first letter of every setence'
-    Call hNewDocument
-
-    '/// M:Y  T:Y (default)
-     testContent = "the test for StarOffice automation. who is the author?"
-     hopeResult  = "The test for StarOffice automation. Who is the author?"
-     Call wTypeKeys testContent
-     Call wTypeKeys "<Shift Home>"
-     EditCopy
-     if GetClipboardText <> hopeResult then Warnlog "Something wrong in Capitalize first letter of every setence when M:Y  T:Y"
-
-     Call wTypeKeys "<DELETE>"
-
-    '/// M:Y  T:N
-     testContent                 = "the test for StarOffice automation. who is the author?"
-     hopeResultBeforeAutoformat  = "the test for StarOffice automation. who is the author?"
-     hopeResultAfterAutoformat   = "The test for StarOffice automation. Who is the author?"
-
-     Call fAutocorrectOptions("CapitalizeFirstLetter",1,0)
-     Call wTypeKeys testContent
-     Call wTypeKeys "<Shift Home>"
-     EditCopy
-     if GetClipboardText <> hopeResultBeforeAutoformat then
-        Warnlog "The content should NOT be changed before Autoformat! M:Y  T:N"
-        goto GOING1
-     end if
-
-     Call wTypeKeys "<ESCAPE>"
-     FormatAutoformatApply
-     Call wTypeKeys "<Shift End>"
-     EditCopy
-     if GetClipboardText <> hopeResultAfterAutoformat then
-        Warnlog "The content should be changed after Autoformat!M:Y  T:N"
-     end if
-
-GOING1:
-     Call wTypeKeys "<DELETE>"
-
-    '/// M:N  T:Y
-     testContent  = "the test for StarOffice automation. who is the author?"
-     hopeResult   = "The test for StarOffice automation. Who is the author?"
-
-     Call fAutocorrectOptions("CapitalizeFirstLetter",0,1)
-     Call wTypeKeys testContent
-     Call wTypeKeys "<Shift Home>"
-     EditCopy
-     if GetClipboardText <> hopeResult then Warnlog "Something wrong in Capitalize first letter of every setence when M:N  T:Y"
-
-     Call wTypeKeys "<DELETE>"
-
-    '/// test 'Capitalize first letter of every setence' , M:N  T:N
-     testContent                 = "the test for StarOffice automation. who is the author?"
-     hopeResultBeforeAutoformat  = "the test for StarOffice automation. who is the author?"
-     hopeResultAfterAutoformat   = "the test for StarOffice automation. who is the author?"
-
-     Call fAutocorrectOptions("CapitalizeFirstLetter",0,0)
-
-     Call wTypeKeys testContent
-     Call wTypeKeys "<Shift Home>"
-     EditCopy
-     if GetClipboardText <> hopeResultBeforeAutoformat then
-        Warnlog "The content should NOT be changed before Autoformat! M:N  T:N"
-        goto testend
-     end if
-
-     Call wTypeKeys "<ESCAPE>"
-     FormatAutoformatApply
-     Call wTypeKeys "<Shift End>"
-     EditCopy
-     if GetClipboardText <> hopeResultAfterAutoformat then
-        Warnlog "The content should NOT be changed after Autoformat! M:N  T:N"
-     end if
-
-testend:
-
-    '/// Recover to the default
-     Call fAutocorrectOptions("CapitalizeFirstLetter",1,1)
-
-    Call hCloseDocument
-
-
-endcase
-
-'-------------------------------------------------------------------------
-
-testcase tToolsAutocorrectOptions_4_1
-
-    Dim testContent as String
-    Dim hopeResult as String
-    Dim hopeResultBeforeAutoformat as String
-    Dim hopeResultAfterAutoformat as String
-    Dim getStyle as String
-    Dim hopeStyle as String
-
-    printLog "Test 'Automatic bold and underline' --- bold  "
-    '/// Test 'Automatic bold'
-    Call hNewDocument
-
-    '/// M:Y  T:Y (default)
-     testContent = "*Test*"
-     hopeResult  = "Test"
-
-     Call wTypeKeys testContent
-     Call wTypeKeys "<Shift Home>"
-     EditCopy
-     if GetClipboardText <> hopeResult then Warnlog "Something wrong in Automatic bold when M:Y  T:Y"
-
-     fFormatCharacter("TabFont")
-
-    try
-        getStyle = Style.GetSelText
-        Style.Select 3
-        hopeStyle = Style.GetSelText
-    catch
-        getStyle = StyleWest.GetSelText
-        StyleWest.Select 3
-        hopeStyle = StyleWest.GetSelText
-    endcatch
-    Sleep 1
-
-    if getStyle <> hopeStyle then Warnlog "The style is NOT bold style when M:Y  T:Y"
-
-    try
-        Style.Select 1
-    catch
-        StyleWest.Select 1
-    endcatch
-    Sleep 1
-
-    TabFont.OK
-    Sleep 1
-
-    Call wTypeKeys "<DELETE>"
-
-    '/// M:Y  T:N
-    testContent                 = "*Test*"
-    hopeResultBeforeAutoformat  = "*Test*"
-    hopeResultAfterAutoformat   = "Test"
-
-    Call fAutocorrectOptions("AutomaticBoldAndUnderline",1,0)
-
-    Call wTypeKeys testContent
-    Call wTypeKeys "<Shift Home>"
-
-    EditCopy
-    if GetClipboardText <> hopeResultBeforeAutoformat then
-    Warnlog "The content should NOT be changed before Autoformat! M:Y  T:N"
-    goto GOING1
-    end if
-
-    fFormatCharacter("TabFont")
-
-    try
-        getStyle = Style.GetSelText
-        Style.Select 1
-        hopeStyle = Style.GetSelText
-    catch
-        getStyle = StyleWest.GetSelText
-        StyleWest.Select 1
-        hopeStyle = StyleWest.GetSelText
-    endcatch
-    Sleep 1
-
-    if getStyle <> hopeStyle then Warnlog "The style should be standard style before autoformat!"
-    TabFont.Cancel
-
-    Call wTypeKeys "<ESCAPE>"
-    FormatAutoformatApply
-    Call wTypeKeys "<Shift End>"
-    EditCopy
-    if GetClipboardText <> hopeResultAfterAutoformat then
-        Warnlog "The content should be changed after Autoformat!M:Y  T:N"
-    end if
-
-    Call fFormatCharacter("TabFont")
-
-    try
-        getStyle = Style.GetSelText
-        Style.Select 3
-        hopeStyle = Style.GetSelText
-    catch
-        getStyle = StyleWest.GetSelText
-        StyleWest.Select 3
-        hopeStyle = StyleWest.GetSelText
-    endcatch
-    Sleep 1
-
-    if getStyle <> hopeStyle then Warnlog "The style is NOT bold style when M:Y  T:Y"
-
-    try
-        Style.Select 1
-    catch
-        StyleWest.Select 1
-    endcatch
-    Sleep 1
-
-    TabFont.OK
-    Sleep 1
-
-    GOING1:
-
-    Call wTypeKeys "<DELETE>"
-
-    '/// M:N  T:Y
-    testContent = "*Test*"
-    hopeResult  = "Test"
-
-    Call fAutocorrectOptions("AutomaticBoldAndUnderline",0,1)
-
-    Call wTypeKeys testContent
-    Call wTypeKeys "<Shift Home>"
-    EditCopy
-    if GetClipboardText <> hopeResult then Warnlog "Something wrong in Automatic bold when M:Y  T:Y"
-
-    Call fFormatCharacter("TabFont")
-
-    try
-        getStyle = Style.GetSelText
-        Style.Select 3
-        hopeStyle = Style.GetSelText
-    catch
-        getStyle = StyleWest.GetSelText
-        StyleWest.Select 3
-        hopeStyle = StyleWest.GetSelText
-    endcatch
-    Sleep 1
-
-    if getStyle <> hopeStyle then Warnlog "The style is NOT bold style when M:Y  T:Y"
-    try
-        Style.Select 1
-    catch
-        StyleWest.Select 1
-    endcatch
-    TabFont.OK
-    Sleep 1
-
-    Call wTypeKeys "<DELETE>"
-
-    '/// M:N  T:N
-    testContent                 = "*Test*"
-    hopeResultBeforeAutoformat  = "*Test*"
-    hopeResultAfterAutoformat   = "*Test*"
-
-    Call fAutocorrectOptions("AutomaticBoldAndUnderline",0,0)
-
-    Call wTypeKeys testContent
-    Call wTypeKeys "<Shift Home>"
-    EditCopy
-    if GetClipboardText <> hopeResultBeforeAutoformat then
-        Warnlog "The content should NOT be changed before Autoformat! M:N  T:N"
-        goto testend
-    end if
-
-    Call fFormatCharacter("TabFont")
-
-    try
-        getStyle = Style.GetSelText
-        Style.Select 1
-        hopeStyle = Style.GetSelText
-    catch
-        getStyle = StyleWest.GetSelText
-        StyleWest.Select 1
-        hopeStyle = StyleWest.GetSelText
-    endcatch
-    Sleep 1
-
-    if getStyle <> hopeStyle then Warnlog "The style should be standard style before autoformat!"
-    TabFont.Cancel
-
-    Call wTypeKeys "<ESCAPE>"
-    FormatAutoformatApply
-    Call wTypeKeys "<Shift End>"
-    EditCopy
-    if GetClipboardText <> hopeResultAfterAutoformat then
-        Warnlog "The content should NOT be changed after Autoformat! M:N  T:N"
-    end if
-
-    Call fFormatCharacter("TabFont")
-
-    try
-        getStyle = Style.GetSelText
-        Style.Select 1
-        hopeStyle = Style.GetSelText
-    catch
-        getStyle = StyleWest.GetSelText
-        StyleWest.Select 1
-        hopeStyle = StyleWest.GetSelText
-    endcatch
-    Sleep 1
-
-    if getStyle <> hopeStyle then Warnlog "The style should be standard style after autoformat!"
-    TabFont.OK
-    Sleep 1
-
-    testend:
-    '/// Recover to the default  M:Y  T:Y
-    Call fAutocorrectOptions("AutomaticBoldAndUnderline",1,1)
-
-    Call hCloseDocument
-
-endcase
-
-'-------------------------------------------------------------------------
-
-testcase tToolsAutocorrectOptions_4_2
-
-    Dim testContent as String
-    Dim hopeResult as String
-    Dim hopeResultBeforeAutoformat as String
-    Dim hopeResultAfterAutoformat as String
-    Dim getUnderlineStatus as Integer
-    Dim hopeUnderlineStatus as Integer  ' 1 = without  , 2 = single
-
-    printLog "Test 'Automatic bold and underline' --- underline  "
-    '/// Test 'Automatic underline'
-    Call hNewDocument
-
-    '/// M:Y  T:Y (default)
-    testContent = "_Test_"
-    hopeResult  = "Test"
-
-    Call wTypeKeys testContent
-    Call wTypeKeys "<Shift Home>"
-    EditCopy
-    if GetClipboardText <> hopeResult then Warnlog "Something wrong in Automatic underline when M:Y  T:Y"
-
-    Call fFormatCharacter("TabFontEffects")
-
-    getUnderlineStatus  = Underline.GetSelIndex
-    Underline.Select 2
-    hopeUnderlineStatus = Underline.GetSelIndex
-
-    if getUnderlineStatus <> hopeUnderlineStatus then Warnlog "The content is NOT underlined when M:Y  T:Y"
-    Underline.Select 1
-    TabFontEffects.OK
-    Sleep 1
-
-    Call wTypeKeys "<DELETE>"
-
-    '/// M:Y  T:N
-    testContent                 = "_Test_"
-    hopeResultBeforeAutoformat  = "_Test_"
-    hopeResultAfterAutoformat   = "Test"
-
-    Call fAutocorrectOptions("AutomaticBoldAndUnderline",1,0)
-
-    Call wTypeKeys testContent
-    Call wTypeKeys "<Shift Home>"
-
-    EditCopy
-    if GetClipboardText <> hopeResultBeforeAutoformat then
-        Warnlog "The content should NOT be changed before Autoformat! M:Y  T:N"
-        goto GOING1
-    end if
-
-    Call fFormatCharacter("TabFontEffects")
-
-    getUnderlineStatus  = Underline.GetSelIndex
-    Underline.Select 1
-    Sleep 1
-    hopeUnderlineStatus = Underline.GetSelIndex
-
-    if getUnderlineStatus <> hopeUnderlineStatus then Warnlog "The content should NOT be underlined when M:Y  T:N before autoformat!"
-    TabFontEffects.OK
-    Sleep 1
-
-    Call wTypeKeys "<ESCAPE>"
-    FormatAutoformatApply
-    Call wTypeKeys "<Shift End>"
-    EditCopy
-    if GetClipboardText <> hopeResultAfterAutoformat then
-        Warnlog "The content should be changed after Autoformat!M:Y  T:N"
-    end if
-
-    Call fFormatCharacter("TabFontEffects")
-    getUnderlineStatus  = Underline.GetSelIndex
-    Underline.Select 2
-    hopeUnderlineStatus = Underline.GetSelIndex
-
-    if getUnderlineStatus <> hopeUnderlineStatus then Warnlog "The content should be underlined when M:Y  T:N"
-    Underline.Select 1
-    TabFontEffects.OK
-    Sleep 1
-    GOING1:
-    Call wTypeKeys "<DELETE>"
-
-    '/// M:N  T:Y
-    testContent = "_Test_"
-    hopeResult  = "Test"
-
-    Call fAutocorrectOptions("AutomaticBoldAndUnderline",0,1)
-
-    Call wTypeKeys testContent
-    Call wTypeKeys "<Shift Home>"
-    EditCopy
-    if GetClipboardText <> hopeResult then Warnlog "Something wrong in Automatic bold when M:N  T:Y"
-
-    Call fFormatCharacter("TabFontEffects")
-    getUnderlineStatus  = Underline.GetSelIndex
-    Underline.Select 2
-    Sleep 1
-    hopeUnderlineStatus = Underline.GetSelIndex
-
-    if getUnderlineStatus <> hopeUnderlineStatus then Warnlog "The content is NOT underlined when M:N  T:Y"
-    Underline.Select 1
-    Sleep 1
-    TabFontEffects.OK
-    Sleep 1
-
-    Call wTypeKeys "<DELETE>"
-
-    '/// M:N  T:N
-    testContent                 = "_Test_"
-    hopeResultBeforeAutoformat  = "_Test_"
-    hopeResultAfterAutoformat   = "_Test_"
-
-    Call fAutocorrectOptions("AutomaticBoldAndUnderline",0,0)
-
-    Call wTypeKeys testContent
-    Call wTypeKeys "<Shift Home>"
-    EditCopy
-    if GetClipboardText <> hopeResultBeforeAutoformat then
-        Warnlog "The content should NOT be changed before Autoformat! M:N  T:N"
-        goto testend
-    end if
-
-    Call fFormatCharacter("TabFontEffects")
-    getUnderlineStatus  = Underline.GetSelIndex
-    Underline.Select 1
-    hopeUnderlineStatus = Underline.GetSelIndex
-
-    if getUnderlineStatus <> hopeUnderlineStatus then Warnlog "The content should NOT be underlined before autoformat!M:N  T:N "
-    TabFontEffects.OK
-
-    Call wTypeKeys "<ESCAPE>"
-    FormatAutoformatApply
-    Call wTypeKeys "<Shift End>"
-    EditCopy
-    if GetClipboardText <> hopeResultAfterAutoformat then
-    Warnlog "The content should NOT be changed after Autoformat! M:N  T:N"
-    end if
-
-    Call fFormatCharacter("TabFontEffects")
-    getUnderlineStatus  = Underline.GetSelIndex
-    Underline.Select 1
-    Sleep 1
-    hopeUnderlineStatus = Underline.GetSelIndex
-
-    if getUnderlineStatus <> hopeUnderlineStatus then Warnlog "The content should NOT be underlined after autoformat! M:N  T:N"
-    TabFontEffects.OK
-    Sleep 1
-
-    testend:
-    '/// Recover to the default  M:Y  T:Y
-    Call fAutocorrectOptions("AutomaticBoldAndUnderline",1,1)
-
-    Call hCloseDocument
-
-endcase
-
-'-------------------------------------------------------------------------
-
-testcase tToolsAutocorrectOptions_5
-
-    Dim testContent as String
-    Dim hopeResult as String
-    Dim hopeResultBeforeAutoformat as String
-    Dim hopeResultAfterAutoformat as String
-
-    printLog "URL Recognition"
-    '/// URL Recognition
-    Call hNewDocument
-
-    '/// M:Y  T:Y (default)
-    testContent = "WWW.sun.com"
-    hopeResult  = "http://WWW.sun.com/"
-
-    Call wTypeKeys testContent
-    Call wTypeKeys " "
-    Call wTypeKeys "<Home>"
-
-    Call fFormatCharacter("TabHyperlinkZeichen")
-    if URLName.GetText <> hopeResult then Warnlog "The URL is NOT appeared when M:Y  T:Y"
-    URLName.SetText ""
-    TabHyperlinkZeichen.OK
-
-    Call hCloseDocument
-
-    Call hNewDocument
-    '/// M:Y  T:N
-    testContent                 = "WWW.sun.com"
-    hopeResultBeforeAutoformat  = ""
-    hopeResultAfterAutoformat   = "http://WWW.sun.com/"
-
-    Call fAutocorrectOptions("URLRecognition",1,0)
-
-    Call wTypeKeys testContent
-    Call wTypeKeys " "
-    Call wTypeKeys "<Home>"
-
-    Call fFormatCharacter("TabHyperlinkZeichen")
-    if URLName.GetText <> hopeResultBeforeAutoformat then Warnlog "The URL should NOT appeare when M:Y  T:N  before autoformat!"
-    URLName.SetText ""
-    TabHyperlinkZeichen.OK
-
-    FormatAutoformatApply
-
-    Call fFormatCharacter("TabHyperlinkZeichen")
-    if URLName.GetText <> hopeResultAfterAutoformat then Warnlog "The URL should  appeare when M:Y  T:N  after autoformat!"
-    URLName.SetText ""
-    TabHyperlinkZeichen.OK
-
-    Call hCloseDocument
-
-    Call hNewDocument
-    '/// M:N  T:Y
-    testContent = "WWW.sun.com"
-    hopeResult  = "http://WWW.sun.com/"
-
-    Call fAutocorrectOptions("URLRecognition",0,1)
-
-    Call wTypeKeys testContent
-    Call wTypeKeys " "
-    Call wTypeKeys "<Home>"
-
-    Call fFormatCharacter("TabHyperlinkZeichen")
-    if URLName.GetText <> hopeResult then Warnlog "The URL is NOT appeared when M:N  T:Y"
-    URLName.SetText ""
-    TabHyperlinkZeichen.OK
-
-    Call hCloseDocument
-
-    Call hNewDocument
-    '/// M:N  T:N
-    testContent                 = "WWW.sun.com"
-    hopeResultBeforeAutoformat  = ""
-    hopeResultAfterAutoformat   = ""
-
-    Call fAutocorrectOptions("URLRecognition",0,0)
-
-    Call wTypeKeys testContent
-    Call wTypeKeys " "
-    Call wTypeKeys "<Home>"
-
-    Call fFormatCharacter("TabHyperlinkZeichen")
-    if URLName.GetText <> hopeResultBeforeAutoformat then Warnlog "The URL should NOT appeare when M:N  T:N  before autoformat!"
-    URLName.SetText ""
-    TabHyperlinkZeichen.OK
-
-    FormatAutoformatApply
-
-    Call fFormatCharacter("TabHyperlinkZeichen")
-    if URLName.GetText <> hopeResultAfterAutoformat then Warnlog "The URL should NOT appeare when M:N  T:N  after autoformat!"
-    URLName.SetText ""
-    TabHyperlinkZeichen.OK
-
-    '/// Recover to the default  M:Y  T:Y
-    Call fAutocorrectOptions("URLRecognition",1,1)
-
-    Call hCloseDocument
-
-endcase
-
-'-------------------------------------------------------------------------
-
-testcase tToolsAutocorrectOptions_6
-
-    Dim testContent as String
-    Dim hopeResult as String
-    Dim hopeResultBeforeAutoformat
-    Dim hopeResultAfterAutoformat as String
-
-    printLog "Replace dashes"
-    '/// Replace dashes
-    Call hNewDocument
-
-    '///  M:Y  T:Y (default)
-    testContent = "Bla - Bla"
-    hopeResult  = "Bla – Bla"
-    Call wTypeKeys testContent
-    Call wTypeKeys " "
-    Call wTypeKeys "<BACKSPACE><Shift Home>"
-    EditCopy
-    if GetClipboardText <> hopeResult then Warnlog "Something wrong in Replace dashes M:Y  T:Y"
-
-    Call wTypeKeys "<DELETE>"
-
-    '///  M:Y  T:N
-    testContent                 = "Bla - Bla"
-    hopeResultBeforeAutoformat  = "Bla - Bla"
-    hopeResultAfterAutoformat   = "Bla – Bla"
-
-    Call fAutocorrectOptions("ReplaceDashes",1,0)
-    Call wTypeKeys testContent
-    Call wTypeKeys " "
-    Call wTypeKeys "<BACKSPACE><Shift Home>"
-    EditCopy
-    if GetClipboardText <> hopeResultBeforeAutoformat then
-        Warnlog "The content should NOT be changed before Autoformat! M:Y  T:N"
-        goto GOING1
-    end if
-
-    Call wTypeKeys "<ESCAPE>"
-    FormatAutoformatApply
-    Call wTypeKeys "<Shift End>"
-    EditCopy
-    if GetClipboardText <> hopeResultAfterAutoformat then
-        Warnlog "The content should be changed after Autoformat!M:Y  T:N"
-    end if
-
-    GOING1:
-    Call wTypeKeys "<DELETE>"
-
-    '///  M:N  T:Y
-    testContent  = "Bla - Bla"
-    hopeResult   = "Bla – Bla"
-
-    Call fAutocorrectOptions("ReplaceDashes",0,1)
-    Call wTypeKeys testContent
-    Call wTypeKeys " "
-    Call wTypeKeys "<BACKSPACE><Shift Home>"
-    EditCopy
-    if GetClipboardText <> hopeResult then Warnlog "Something wrong in Replace dashes  when M:N  T:Y"
-
-    Call wTypeKeys "<DELETE>"
-
-    '///  M:N  T:N
-    testContent                 = "Bla - Bla"
-    hopeResultBeforeAutoformat  = "Bla - Bla"
-    hopeResultAfterAutoformat   = "Bla - Bla"
-
-    Call fAutocorrectOptions("ReplaceDashes",0,0)
-
-    Call wTypeKeys testContent
-    Call wTypeKeys " "
-    Call wTypeKeys "<BACKSPACE><Shift Home>"
-    EditCopy
-    if GetClipboardText <> hopeResultBeforeAutoformat then
-        Warnlog "The content should NOT be changed before Autoformat! M:N  T:N"
-        goto testend
-    end if
-
-    Call wTypeKeys "<ESCAPE>"
-    FormatAutoformatApply
-    Call wTypeKeys "<Shift End>"
-    EditCopy
-    if GetClipboardText <> hopeResultAfterAutoformat then
-        Warnlog "The content should NOT be changed after Autoformat! M:N  T:N"
-    end if
-
-    testend:
-
-    '/// Recover to the default
-    Call fAutocorrectOptions("ReplaceDashes",1,1)
-
-    Call hCloseDocument
-
-endcase
-
-'-------------------------------------------------------------------------
-
-testcase tToolsAutocorrectOptions_7
-
-    Dim testContent as String
-    Dim hopeResult as String
-
-    printLog "Ignore double spaces"
-    '/// Ignore double spaces
-    Call hNewDocument
-
-    '/// + T:N (default)
-     testContent = "Two  Space"
-     hopeResult  = "Two  Space"
-     Call wTypeKeys testContent
-     Call wTypeKeys "<Shift Home>"
-     EditCopy
-     if GetClipboardText <> hopeResult then Warnlog "Should NOT ignore spaces T:N"
-
-     Call wTypeKeys "<DELETE>"
-
-    '/// + T:Y
-     testContent = "Two  Space"
-     hopeResult  = "Two Space"
-
-     Call fAutocorrectOptions("IgnoreDoubleSpaces",1,1)
-     Call wTypeKeys testContent
-     Call wTypeKeys "<Shift Home>"
-     EditCopy
-
-     if GetClipboardText <> hopeResult then Warnlog "Should ignore spaces T:Y"
-
-     Call wTypeKeys "<ESCAPE>"
-
-    '/// Recover to the default
-     Call fAutocorrectOptions("IgnoreDoubleSpaces",0,0)
-
-    Call hCloseDocument
-
-endcase
-
-'-------------------------------------------------------------------------
-
-testcase tToolsAutocorrectOptions_8
-
-    Dim firstLine as String
-    Dim testContent as String
-    Dim hopeResult as String
-
-    printLog "Apply numbering"
-    '/// Apply numbering
-
-    Call hNewDocument
-
-    '/// + T:Y (default)
-
-    firstLine   = "1. FirstLine"
-    testContent = "Test1"    
-    hopeResult  = "2. Test1"
-
-    Call wTypeKeys firstLine
-    Call wTypeKeys "<Return>"
-    Call wTypeKeys testContent
-    Call wTypeKeys "<Return>"
-    Call wTypeKeys "<Up><End>"
-    Call wTypeKeys "<Mod1 Shift Up>"
-    EditCopy
-    printlog GetClipBoardtext
-    if GetClipboardText <> hopeResult then Warnlog "Should Apply numbering when T:Y. Not " & hopeResult & " but " & GetClipboardtext
-
-    EditSelectAll
-    Call wTypeKeys "<DELETE>"
-    Call wTypeKeys "<BACKSPACE>",3
-
-    '/// + T:N
-    testContent = "Test1"
-    hopeResult  = "Test1"
-
-    Call fAutocorrectOptions("ApplyNumbering",0,0)
-    Call wTypeKeys firstLine
-    Call wTypeKeys "<Return>"
-    Call wTypeKeys testContent
-    Call wTypeKeys "<Return>"
-    Call wTypeKeys "<Up><End>"
-    Call wTypeKeys "<Mod1 Shift Up>"
-    EditCopy
-
-    if GetClipboardText <> hopeResult then Warnlog "Should NOT Apply numbering when T:N. Not " & hopeResult & " but " & GetClipboardtext
-
-    '/// Recover to the default
-    Call fAutocorrectOptions("ApplyNumbering",1,1)
-
-    Call hCloseDocument
-
-endcase
-
-'-------------------------------------------------------------------------
-
-testcase tToolsAutocorrectOptions_9
-
-    Dim testList() as String
-    Dim testContent as String
-    Dim hopeResult as String
-    Dim i as integer
-    Dim bottom as String
-
-    bottom = "0" + gSeperator + "10" + gMeasurementUnit
-
-    testList   =  Array( "---", "___", "===", "***", "~~~" , "###" )
-
-    '/// Apply border test , including
-    '/// + '---' , '___", "===", "***" , "~~~", "###"
-    printLog "Apply border"
-
-    Call hNewDocument
-
-    For i = 0 to 5
-
-        printlog testlist(i)
-        printlog "- T:Y (default)"
-        testContent = testlist(i)
-
-        Call wTypeKeys testContent
-        Call wTypeKeys "<Return><Up><Home><Shift End>"
-        try
-            EditCopy
-            Warnlog "Apply border is NOT correct when T:Y " +testlist(i)
-        catch
-        endcatch
-
-        Call fFormatParagraph("TabUmrandung")
-        try
-            Unten.SetText  bottom
-        catch
-            Warnlog "Apply border is NOT correct when T:Y " +testlist(i)
-        endcatch
-        TabUmrandung.Cancel
-
-        Call wTypeKeys "<Down>"
-
-        printlog "- T:N"
-        testContent = testlist(i)
-        hopeResult  = testlist(i)
-
-        Call fAutocorrectOptions("ApplyBorder",0,0)
-        Call wTypeKeys testContent
-        Call wTypeKeys "<Return><Up><Home><Shift End>"
-        EditCopy
-
-        if GetClipboardText <> hopeResult then Warnlog "Something wrong  when T:N "+testlist(i)
-
-        Call fFormatParagraph("TabUmrandung")
-        try
-            Unten.SetText  bottom
-            Warnlog "Apply border is NOT correct when T:N "+testlist(i)
-        catch
-        endcatch
-        TabUmrandung.Cancel
-
-        printlog "- Recover to the default"
-        Call fAutocorrectOptions("ApplyBorder",1,1)
-
-    next i
-
-    Call hCloseDocument
-
-endcase
-
-'-------------------------------------------------------------------------
-
-testcase tToolsAutocorrectOptions_10
-
-    Dim testContent as String
-    Dim hopeResult as String
-
-    printLog "Create Table"
-    '/// Create Table
-    Call hNewDocument
-
-    '/// + T:Y (default)
-    testContent = "+---+"
-    Call wTypeKeys testContent
-    Call wTypeKeys "<Return><Up><Home><Shift End>"
-    try
-        EditCopy
-        Warnlog "Something wrong in create table T:Y"
-    catch
-    endcatch
-
-    try
-        FormatRowDelete
-        Sleep 1
-    catch
-        Warnlog "Can't delete table ,T:Y"
-    endcatch
-
-    '/// + T:N
-    testContent = "+---+"
-    hopeResult  = "+---+"
-
-    Call fAutocorrectOptions("CreateTable",0,0)
-    Call wTypeKeys testContent
-    Call wTypeKeys "<Return><Up><Home><Shift End>"
-    EditCopy
-
-    if GetClipboardText <> hopeResult then Warnlog "Something wrong  when T:N"
-
-    try
-        FormatRowDelete
-        Sleep 1
-        Warnlog "Should NOT generate table when T:N"
-    catch
-    endcatch
-
-    '/// Recover to the default
-    Call fAutocorrectOptions("CreateTable",1,1)
-
-    Call hCloseDocument
-
-endcase
-
-'-------------------------------------------------------------------------
-
-testcase tToolsAutocorrectOptions_11
-
-    Dim testContent1 as String
-    Dim testContent2 as String
-    Dim hopeResultAfterAutoformat1 as String
-    Dim hopeResultAfterAutoformat2 as String
-
-    testContent1                 = "ABCD1234"
-    testContent2                 = "EFGH5678"
-
-    hopeResultAfterAutoformat1   = "ABCD1234"
-    hopeResultAfterAutoformat2   = "EFGH5678"
-
-    printLog "Remove Blank Paragraphs"
-    '/// Remove Blank Paragraphs
-
-    Call hNewDocument
-
-    '///  M:N (default)
-    Call wTypeKeys testContent1
-    Call wTypeKeys "<Return>",2
-    Call wTypeKeys testContent2
-
-    FormatAutoformatApply
-
-    Call wTypeKeys "<Up><Up><Home><Shift End>"
-    wait 200
-    EditCopy
-    if GetClipboardText <> hopeResultAfterAutoformat1 then Warnlog "the first line's content is NOT correct when M:N"
-
-    Call wTypeKeys "<Down><Home><Shift End>"
-    try
-        EditCopy
-        Warnlog "the second line's content is NOT correct when M:N"
-    catch
-    endcatch
-
-    Call wTypeKeys "<Down><Home><Shift End>"
-    wait 200
-    EditCopy
-    if GetClipboardText <> hopeResultAfterAutoformat2 then Warnlog "the third line's content is NOT correct when M:N"
-
-    Call hCloseDocument
-
-    Call hNewDocument
-
-    '///  M:Y
-    Call fAutocorrectOptions("RemoveBlankParagraphs",1,1)
-
-    Call wTypeKeys testContent1
-    Call wTypeKeys "<Return>",2
-    Call wTypeKeys testContent2
-
-    FormatAutoformatApply
-
-    Call wTypeKeys "<Up><Up><Home><Shift End>"
-    wait 200
-    EditCopy
-    if GetClipboardText <> hopeResultAfterAutoformat1 then Warnlog "the first line's content is NOT correct when M:Y"
-
-    Call wTypeKeys "<Down><Home><Shift End>"
-    wait 200
-    EditCopy
-    if GetClipboardText <> hopeResultAfterAutoformat2 then Warnlog "the second line's content is NOT correct when M:Y"
-
-    '/// Recover to the default
-    Call fAutocorrectOptions("RemoveBlankParagraphs",0,0)
-
-    Call hCloseDocument
-
-endcase
-
-'-------------------------------------------------------------------------
-
-testcase tToolsAutocorrectOptions_12
-
-    Dim testContent as String
-    Dim hopeResultBeforeAutoformat as String
-    Dim hopeResultAfterAutoformat as String
-
-    printLog "Replace bullets with •"
-    '/// Replace bullets with •
-
-    Call hNewDocument
-
-    '///  M:Y (default)
-    printLog "M:Y (default)"
-    testContent                 = "+ Hello"
-    hopeResultBeforeAutoformat  = "+ Hello"
-    hopeResultAfterAutoformat   = "•	Hello"
-
-    Call wTypeKeys testContent
-    wait 100
-    Call wTypeKeys "<Shift Home>"
-    Sleep 1
-    GetClipboardText = ""
-    EditCopy
-    if GetClipboardText <> hopeResultBeforeAutoformat then Warnlog "should NOT change before autoformat "
-
-    FormatAutoformatApply
-
-    Call wTypeKeys "<Home><Shift End>"
-    Sleep 1
-    GetClipboardText = ""
-    EditCopy
-    Sleep 1
-    if GetClipboardText <> hopeResultAfterAutoformat then Warnlog "should  change after autoformat "
-
-    Call hCloseDocument
-
-    Call hNewDocument
-
-    '///  M:N
-    printLog "M:N"
-    testContent                 = "+ Hello"
-    hopeResultBeforeAutoformat  = "+ Hello"
-    hopeResultAfterAutoformat   = "+ Hello"
-
-    Call fAutocorrectOptions("ReplaceBullets",0,0)
-
-    Call wTypeKeys testContent
-    wait 100
-    Call wTypeKeys "<Shift Home>"
-    Sleep 1
-    GetClipboardText = ""
-    EditCopy
-    if GetClipboardText <> hopeResultBeforeAutoformat then Warnlog "Should NOT change before autoformat "
-
-    FormatAutoformatApply
-    Sleep 1
-    Call wTypeKeys "<Home><Shift End>"
-    Sleep 1
-    GetClipboardText = ""
-    EditCopy
-    if GetClipboardText <> hopeResultAfterAutoformat then Warnlog "Should  NOT change after autoformat "
-
-    '/// Recover to the default
-    Call fAutocorrectOptions("ReplaceBullets",1,1)
-
-    Call hCloseDocument
-
-endcase
-
-'-------------------------------------------------------------------------
-
-testcase tToolsAutocorrectOptions_13
-
-    Dim testContent as String
-    Dim hopeResultBeforeAutoformat as String
-    Dim hopeResultAfterAutoformat as String
-
-    printLog "Replace standard quotes with custom quotes"
-    '/// Replace standard quotes with custom quotes
-
-    Call hNewDocument
-
-    '///  M:Y (default)
-    testContent                 = "'"
-    hopeResultBeforeAutoformat  = "'"
-    hopeResultAfterAutoformat   = "["
-
-    ToolsAutoCorrect
-    Kontext
-    Active.SetPage TabLocalizedOptions
-    Kontext "TabLocalizedOptions"
-    SingleQuotesReplace.UnCheck
-    SingleQuotesStart.Click
-    Kontext "Sonderzeichen"
-    Schriftliste.TypeKeys "<PageUp><Home>"
-    Schriftliste.TypeKeys "<Right>", 59   ' is [
-    Schriftliste.TypeKeys "<Space>"
-    Sonderzeichen.OK
-
-    Kontext "TabLocalizedOptions"
-    TabLocalizedOptions.OK
-
-    Call wTypeKeys (testContent + "Hello")
-    wait 100
-    Call wTypeKeys "<Home><Shift Right>"
-    Sleep 1
-    EditCopy
-    if GetClipboardText <> hopeResultBeforeAutoformat then Warnlog "Should NOT change before autoformat "
-
-    FormatAutoformatApply
-
-    Call wTypeKeys "<Home><Shift Right>"
-    Sleep 1
-    EditCopy
-    if GetClipboardText <> hopeResultBeforeAutoformat then Warnlog "Should  change after autoformat "
-
-    Call hCloseDocument
-
-    Call hNewDocument
-
-    '///  M:N
-    testContent                 = "'"
-    hopeResultBeforeAutoformat  = "'"
-    hopeResultAfterAutoformat   = "'"
-
-    Call fAutocorrectOptions("ReplaceQuotes",0,0)
-
-    Call wTypeKeys (testContent + "Hello")
-    wait 100
-    Call wTypeKeys "<Home><Shift Right>"
-    Sleep 1
-    EditCopy
-    if GetClipboardText <> hopeResultBeforeAutoformat then Warnlog "Should NOT change before autoformat "
-
-    FormatAutoformatApply
-
-    Call wTypeKeys "<Home><Shift Right>"
-    Sleep 1
-    EditCopy
-    if GetClipboardText <> hopeResultAfterAutoformat then Warnlog "Should  NOT change after autoformat "
-
-    '/// Recover to the default
-    Call fAutocorrectOptions("ReplaceQuotes",1,1)
-
-    ToolsAutoCorrect
-    Kontext
-    Active.Setpage TabLocalizedOptions
-    Kontext "TabLocalizedOptions"
-    SingleQuotesReplace.Check
-    SingleQuotesDefault.Click
-    wait 100
-    TabLocalizedOptions.OK
-
-    Call hCloseDocument
-
-endcase
diff --git a/testautomation/writer/optional/includes/autocorrection/w_autocorrect2.inc b/testautomation/writer/optional/includes/autocorrection/w_autocorrect2.inc
deleted file mode 100644
index 88297c3aa709..000000000000
--- a/testautomation/writer/optional/includes/autocorrection/w_autocorrect2.inc
+++ /dev/null
@@ -1,474 +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 : helge.delfs@oracle.com
-'*
-'* short description : Test AutoCorrect/AutoFormat/Word Completion
-'*
-'\***********************************************************************
-
-sub w_autocorrect2
-
-    printLog Chr(13) + "- Test the AutoCorrect/AutoFormat Word Completion features"    
-    Call tToolsAutocorrectWordCompletion_1     'Check the default settings
-    Call tToolsAutocorrectWordCompletion_2     'Check entries
-    Call tToolsAutocorrectWordCompletion_3     'Check list of suggestions can be "scrolled"
-    Call tToolsAutocorrectWordCompletion_4     'Test Max entries
-    Call tToolsAutocorrectWordCompletion_5     'Check 'When closing a document, save the list for later use in other documents'
-    Call tToolsAutocorrectWordCompletion_6
-
-end sub
-
-'-------------------------------------------------------------------------
-
-testcase tToolsAutocorrectWordCompletion_1
-
-    Dim iAcceptWith as String
-    Dim iEntriesNumber as Integer
-    Dim sMinWordLength as String
-    Dim sMaxEntries as String
-    Dim sMinMaxEntries as String
-
-    iAcceptWith     = 2
-    iEntriesNumber  = 0
-    sMinWordLength  = "10"
-    sMaxEntries     = "500"
-    sMinMaxEntries  = "50"
-
-    printLog "Check the default settings"
-    '/// Check the default settings
-    '/// - Check box "Enable word completion" (default: checked)
-    '/// - Check box "Append Space" (default: unchecked)
-    '/// - Check box "Show as tip" (default: unchecked)
-    '/// - Check box "Collect Words" (default: checked)
-    '/// - Check box "When closing a document, remove the words collected from it from the list" (default: unchecked)
-    '/// - List box "Accept with" (Default = "Return")
-    '/// - Spin box "minimal number of characters" default = 10
-    '/// - Spin box "Max. entries" (default =500, minimum = 50)
-    '/// - Box: "List of words collected" -- should be empty after Office restart.
-
-    Call hNewDocument
-    'Delete all entries in the list
-    Call fDeleteAllEntries()
-
-    ToolsAutocorrect
-    Kontext
-    Active.Setpage TabWortergaenzung
-    Kontext "TabWortergaenzung"
-
-    if WoerterErgaenzen.IsChecked   = False           then Warnlog "Complete words should be checked ."
-    if AppendSpace.IsChecked        =  TRUE           then Warnlog "Append space should be UNchecked ."
-    if AlsTipphilfe.IsChecked       =  TRUE           then Warnlog "Show as tip should be UNchecked ."
-    if VorschlaegeSammeln.IsChecked <> TRUE           then Warnlog "Collect suggestions should be checked ."
-    if KeepList.IsChecked           = TRUE            then Warnlog "When closing a document, remove the words collected from it from the list should be unchecked ."
-    if AnnehmenMit.GetSelIndex      <> iAcceptWith    then Warnlog "The Accept with should be 'Enter' ."
-    if MinWortlaenge.GetText        <> sMinWordLength then Warnlog "Min word length should be " + sMinWordLength
-    if MaxEintraege.GetText         <> sMaxEntries    then Warnlog "Max entries should be " + sMaxEntries
-    if GesammelteWorte.GetItemCount <> iEntriesNumber then Warnlog "Entries number  should be " + iEntriesNumber
-
-    MaxEintraege.SetText "49"
-
-    TabWortergaenzung.OK
-
-    ToolsAutocorrect
-    Kontext
-    Active.Setpage TabWortergaenzung
-    Kontext "TabWortergaenzung"
-    if MaxEintraege.GetText <> sMinMaxEntries then Warnlog "Max entries should be " + sMinMaxEntries
-    MaxEintraege.SetText sMaxEntries
-    TabWortergaenzung.OK
-
-    Call hCloseDocument
-
-endcase
-
-'-------------------------------------------------------------------------
-
-testcase tToolsAutocorrectWordCompletion_2
-
-    Dim iDefaultEntriesNumber as Integer
-    Dim iEntriesNumber as Integer
-    Dim i as Integer
-    Dim sMinWordLength as String
-
-    iDefaultEntriesNumber  = 0
-    iEntriesNumber         = 3
-    sMinWordLength         = "5"
-
-    printLog "Check the default settings"
-    '/// Check entries
-    '/// delete all entries first
-    '/// input some test words
-    '/// check if some words should are remembered in the entries
-    '/// delete all entries
-    '/// close and reopen dialog, check entries again
-
-    hFileOpenLocally(  gTesttoolPath + "writer\optional\input\autocorrection\01.odt" )
-    
-    'Delete all entries in the list
-    Call fDeleteAllEntries()
-
-    ToolsAutocorrect
-    Kontext
-    Active.Setpage TabWortergaenzung
-    Kontext "TabWortergaenzung"
-    if GesammelteWorte.GetItemCount <> 0 then
-        Warnlog "Entries number should be " + iDefaultEntriesNumber
-        Warnlog "No test for this case"
-        TabWortergaenzung.Cancel
-        Call hCloseDocument
-    end if
-    MinWortlaenge.SetText sMinWordLength
-    TabWortergaenzung.OK
-
-    Call wTypeKeys "Hello World ! This is a OpenOffice.org Test .<Return>"
-    Sleep 3
-
-    ToolsAutocorrect
-    Kontext
-    Active.Setpage TabWortergaenzung
-    Kontext "TabWortergaenzung"
-    if GesammelteWorte.GetItemCount <> 3 then Warnlog "Entries number should be " + iEntriesNumber
-    for i = 1 to GesammelteWorte.GetItemCount
-        GesammelteWorte.Select 1
-        if EintragLoeschen.IsEnabled then
-            EintragLoeschen.Click
-        else
-            i = GesammelteWorte.GetItemCount + 1
-        end if
-    next i
-    TabWortergaenzung.OK
-    Sleep 1
-
-    ToolsAutocorrect
-    Kontext
-    Active.Setpage TabWortergaenzung
-    Kontext "TabWortergaenzung"
-    if GesammelteWorte.GetItemCount <> 0 then Warnlog "Entries number should be " + 0
-    TabWortergaenzung.Cancel
-
-    Call hCloseDocument
-
-endcase
-
-'-------------------------------------------------------------------------
-
-testcase tToolsAutocorrectWordCompletion_3
-
-    Dim aTestWord() as String
-    Dim sPartOfTestWord as String
-    Dim i as Integer
-    Dim j as integer
-
-    aTestWord = Array( "accessibility", "accomplish", "accounting" )
-    
-    sPartOfTestWord = "acc"
-
-    printLog "Check list of suggestions can be 'scrolled'"
-    '/// Check list of suggestions can be 'scrolled'
-
-    '/// input some test words with first 3 letters are same
-    '/// forward with <CTRL-Tab>
-    '/// backwards with <SHIFT-CTRL-Tab>
-    '/// endless loop test
-
-    hFileOpenLocally(  gTesttoolPath + "writer\optional\input\autocorrection\01.odt" )
-    
-    'Delete all entries in the list
-    Call fDeleteAllEntries()
-
-    'forward with <CTRL-Tab>
-    For i = 0 to 2
-        Call wTypeKeys aTestWord(i)
-        Call wTypeKeys "<Return>"
-    next i
-    Sleep 2
-
-    For i = 0 to 2
-        Call wTypeKeys sPartOfTestWord
-        if i > 0 then Call wTypeKeys "<MOD1 TAB>", i
-        Sleep 2
-        Call wTypeKeys "<Return>"
-        Call wTypeKeys "<Shift Home>"
-        EditCopy
-        if GetClipboardText <> aTestWord(i) then Warnlog "#102535# Should be " +aTestWord(i) +" but get " +GetClipboardText
-        Call wTypeKeys "<Delete>"
-    next i
-
-    'endless loop test
-    Call wTypeKeys sPartOfTestWord
-    Call wTypeKeys "<MOD1 TAB>", 3
-    Call wTypeKeys "<Return>"
-    Call wTypeKeys "<Shift Home>"
-    EditCopy
-    if GetClipboardText <> aTestWord(0) then Warnlog "#102535# Should be " +aTestWord(0) +" but get " +GetClipboardText
-    Call wTypeKeys "<Delete>"
-
-    'backwards with <SHIFT-CTRL-Tab>
-    j = UBound (aTestWord)
-
-    For i = j to 0 step -1
-        Call wTypeKeys sPartOfTestWord
-        Call wTypeKeys "<MOD1 TAB>", j
-        if i > 0 then Call wTypeKeys "<Shift MOD1 TAB>", i
-        Call wTypeKeys "<Return>"
-        Call wTypeKeys "<Shift Home>"
-        EditCopy
-        if GetClipboardText <> aTestWord(j-i) then Warnlog "#102535# Should be " +aTestWord(j-i) +" but get " +GetClipboardText
-        Call wTypeKeys "<Delete>"
-    next i
-
-    'endless loop test
-    Call wTypeKeys sPartOfTestWord
-    Call wTypeKeys "<Shift MOD1 TAB>"
-    Call wTypeKeys "<Return>"
-    Call wTypeKeys "<Shift Home>"
-    EditCopy
-    if GetClipboardText <> "accounting" then Warnlog "#102535# Should be 'accounting' but get " +GetClipboardText
-
-    Call hCloseDocument
-
-endcase
-
-'-------------------------------------------------------------------------
-
-testcase tToolsAutocorrectWordCompletion_4
-
-    Dim sDefaultMaxEntries as String
-    Dim sTestMaxEntries as String
-    Dim sTestFile as String
-    Dim iTestMaxEntries as Integer
-
-    sDefaultMaxEntries  =  "500"
-    sTestMaxEntries     =  "50"
-    sTestFile           =  "tToolsAutocorrectWordCompletion_4.sxw"
-    iTestMaxEntries     =  50
-
-    printLog "Test Max entries"
-    '/// Test Max entries
-
-    '/// Delete all entries in the list
-    '/// set Max entries to 50
-    '/// Open the test file ( The entries number is > 50 when Max entries is 500)
-    '/// check the number of entries.
-
-    Call hNewDocument
-    'Delete all entries in the list
-    Call fDeleteAllEntries()
-
-    ToolsAutocorrect
-    Kontext
-    Active.Setpage TabWortergaenzung
-    Kontext "TabWortergaenzung"
-    MaxEintraege.SetText sTestMaxEntries
-    TabWortergaenzung.OK
-
-    hFileOpenLocally(  gTesttoolPath + "writer\optional\input\advanced\" + sTestFile )
-    
-    Sleep 4
-
-    ToolsAutocorrect
-    Kontext
-    Active.Setpage TabWortergaenzung
-    Kontext "TabWortergaenzung"
-    if GesammelteWorte.GetItemCount > iTestMaxEntries then Warnlog "Entries number should be less than " + iTestMaxEntries
-
-    'Recover to default
-    MaxEintraege.SetText sDefaultMaxEntries
-    TabWortergaenzung.OK
-
-    Call hCloseDocument
-
-endcase
-
-'-------------------------------------------------------------------------
-
-testcase tToolsAutocorrectWordCompletion_5
-
-    Dim sTestWord1 as String
-    Dim sTestWord2 as String
-    Dim sTestWord3 as String
-    Dim iEntriesNumber_Checked as Integer
-    Dim iEntriesNumber_UnChecked as Integer
-
-    sTestWord1               = "kilometer "
-    sTestWord2               = "entertainment "
-    sTestWord3               = "education "
-    iEntriesNumber_Checked   = 3
-    iEntriesNumber_UnChecked = 1
-
-    printLog "Check 'When closing a document, remove the words collected from it from the list'"
-    '/// Check 'When closing a document, remove the words collected from it from the list'
-    '/// delete all entries first.
-    '/// 1) check when the checkbox is unchecked
-    '///    a) Open a file, type "kilometer"
-    '///    b) Open 2nd file, type "entertainment" and "education"
-    '///    c) Close 2nd file, the number of entries in first file should be 3
-    '/// 2) check when the checkbox is checked
-    '///    delete all entries , and Uncheck the testing checkbox
-    '///    a) Open a file, type "kilometer"
-    '///    b) Open 2nd file, type "entertainment" and "education"
-    '///    c) Close 2nd file, the number of entries in first file should be 1
-
-    'Test when checkbox is checkec -- default
-
-    'Open 1st file
-    hFileOpenLocally(  gTesttoolPath + "writer\optional\input\autocorrection\01.odt" )
-    
-
-    'Delete all entries in the list
-    Call fDeleteAllEntries()
-
-    ' check checkbox
-    ToolsAutocorrect
-    Kontext
-    Active.Setpage TabWortergaenzung
-    Kontext "TabWortergaenzung"
-    MinWortlaenge.SetText "5"
-    KeepList.UnCheck
-    TabWortergaenzung.Ok
-
-    Call wTypeKeys sTestWord1
-
-    'Open 2nd file
-    hFileOpenLocally(  gTesttoolPath + "writer\optional\input\autocorrection\01-01.odt" )
-    
-
-    Call wTypeKeys sTestWord2
-    Call wTypeKeys sTestWord3
-
-    ToolsAutocorrect
-    Kontext
-    Active.Setpage TabWortergaenzung
-    Kontext "TabWortergaenzung"
-    if GesammelteWorte.GetItemCount <> 3 then
-        Warnlog "Checked:Entries number should be equal 3 in 2nd file ,but get " + GesammelteWorte.GetItemCount
-    end if
-    TabWortergaenzung.Cancel
-
-    'Close 2nd file
-    Call hCloseDocument
-
-    ToolsAutocorrect
-    Kontext
-    Active.Setpage TabWortergaenzung
-    Kontext "TabWortergaenzung"
-    if GesammelteWorte.GetItemCount <> 3 then
-        Warnlog "Checked:Entries number should be equal 3 in 1st file ,but get " + GesammelteWorte.GetItemCount
-    end if
-    TabWortergaenzung.Cancel
-
-    Call hCloseDocument
-
-    'Test when checkbox is Checked
-    'Open 1st file
-    hFileOpenLocally(  gTesttoolPath + "writer\optional\input\autocorrection\01.odt" )
-    
-
-    'Delete all entries in the list
-    fDeleteAllEntries()
-
-    ToolsAutocorrect
-    Kontext
-    Active.Setpage TabWortergaenzung
-    Kontext "TabWortergaenzung"
-
-    KeepList.Check
-    TabWortergaenzung.OK
-
-    Call wTypeKeys sTestWord1
-
-    'Open 2nd file
-    hFileOpenLocally(  gTesttoolPath + "writer\optional\input\autocorrection\01-01.odt" )
-    
-
-    Call wTypeKeys sTestWord2
-    Call wTypeKeys sTestWord3
-
-    ToolsAutocorrect
-    Kontext
-    Active.Setpage TabWortergaenzung
-    Kontext "TabWortergaenzung"
-    if GesammelteWorte.GetItemCount <> 3 then
-        Warnlog "UnChecked:Entries number should be equal 3 in 2nd file ,but get " + GesammelteWorte.GetItemCount
-    end if
-    TabWortergaenzung.Cancel
-
-    'Close 2nd file
-    Call hCloseDocument
-
-    ToolsAutocorrect
-    Kontext
-    Active.Setpage TabWortergaenzung
-    Kontext "TabWortergaenzung"
-    if GesammelteWorte.GetItemCount <> 1 then
-        Warnlog "UnChecked:Entries number should be equal 1 in 2nd file ,but get " +GesammelteWorte.GetItemCount
-    end if
-    TabWortergaenzung.Cancel
-
-    'Close 1st file
-    Call hCloseDocument
-
-endcase
-
-'-------------------------------------------------------------------------
-
-testcase tToolsAutocorrectWordCompletion_6
-
-    Dim sTestWord as String
-    Dim sPartOfTestWord as String
-
-    sTestWord       = "OpenOffice.org"
-    sPartOfTestWord = "Ope"
-
-    printLog "Check Show as Tip"
-    '/// Check Show as Tip
-
-    '/// When uncheck ( default) , the left word will be highlight
-    '/// When check  , the left word will NOT be appeared,  <--- can test
-    '/// and a help tip will appear       <--- no way to test yet
-
-    'Show as Tip -- uncheck (default)
-    hFileOpenLocally(  gTesttoolPath + "writer\optional\input\autocorrection\01.odt" )
-    
-
-    Call wTypeKeys sTestWord
-    Call wTypeKeys "<Return>"
-    Sleep 1
-    Call wTypeKeys sPartOfTestWord
-    Sleep 4
-    Call wTypeKeys "<Return>"
-    Call wTypeKeys "<Shift Home>"
-
-    Sleep 1
-    Call wTypeKeys "StaS"
-    Sleep 4
-    Call wTypeKeys "<Return>"
-
-    Call hCloseDocument
-
-endcase
diff --git a/testautomation/writer/optional/includes/autotext/w_autotext.inc b/testautomation/writer/optional/includes/autotext/w_autotext.inc
deleted file mode 100644
index 19e2955f27ab..000000000000
--- a/testautomation/writer/optional/includes/autotext/w_autotext.inc
+++ /dev/null
@@ -1,658 +0,0 @@
-'**************************************************************************
-' 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 : helge.delfs@oracle.com
-'*
-'* short description : Test of autotext in writer
-'*
-'\***********************************************************************
-
-sub w_autotext
-
-    Call tEditAutotext_1
-    Call tEditAutotext_2
-    Call tEditAutotext_3
-    Call tEditAutotext_4
-    Call tEditAutotext_5
-
-end sub
-
-testcase tEditAutotext_1
-    Dim j as integer
-    Dim sAll as integer
-    Dim i as integer
-    Dim Vergleich1$
-    Dim Vergleich2$
-    Dim Vergleich3$
-    Dim Vergleich4$
-    
-    Printlog "- Create a new autotext with content!"
-    printlog " New Writerdocument"
-    Call hNewDocument
-    printlog " Create a new autotext category"
-    if wCreateAutotextCategory( "AANewCategory" ) = false then
-        Warnlog "Unable to create new Autotext category"
-        Kontext "Autotext"
-        if Autotext.Exists then Autotext.Close
-        Call hCloseDocument
-        goto endsub
-    end if       
-    wait 500
-    Kontext "Autotext"
-    Autotext.Close
-    
-    printlog " Insert some text and format text"
-    Call wTypeKeys("This becomes an autotext!")
-    ' Format word 'This'
-    Call wTypeKeys("<Home><Right>")
-    FormatCharacter
-    Kontext
-    Active.SetPage TabFont
-    kontext "TabFont"
-    if gAsianSup = True then
-        FontWest.Select 5
-        if StyleWest.GetItemCount >= 3 then
-            StyleWest.Select 3
-        else
-            For i = 6 to FontWest.GetItemCount
-                FontWest.Select i
-                try
-                    StyleWest.Select 3
-                    exit for
-                catch
-                endcatch
-            next i
-        end if
-        Vergleich1$ = FontWest.GetSelText                
-        Vergleich2$ = StyleWest.GetSelText
-        SizeWest.Select 5
-        Vergleich3$ = SizeWest.GetSelText
-    else
-        Font.Select 5
-        if Style.GetItemCount >= 3 then
-            Style.Select 3
-        else
-            For i = 6 to Font.GetItemCount
-                Font.Select i
-                try
-                    Style.Select 3
-                    exit for
-                catch
-                endcatch
-            next i
-        end if
-        Vergleich1$ = Font.GetSelText
-        Vergleich2$ = Style.GetSelText
-        Size.Select 5
-        Vergleich3$ = Size.GetSelText
-    end if
-    wait 100
-    Kontext
-    Active.Setpage TabHyperlinkZeichen
-    Kontext "TabHyperlinkZeichen"
-    UrlName.Settext "http://www.irgendwas.de"
-    TargetFrame.Select 2
-    Vergleich4$ = TargetFrame.GetSelText
-    TabHyperlinkZeichen.Ok
-
-    Call wTypeKeys("<End>")
-    Call wTypeKeys("<Shift Home>")
-
-    printlog " Call Edit / Autotext"
-    EditAutotext
-    Kontext "Active"
-    if Active.Exists then
-        warnlog Active.Gettext
-        Active.Ok
-    end if
-    Kontext "Autotext"
-    printlog " Uncheck 'Preview and Select first group in List"
-    Vorschau_anzeigen.Uncheck
-    Kontext "Autotext"
-    if wSelectAutotextCategory( "AANewCategory" ) = false then
-        Warnlog "Unable to select Autotext category"
-        Kontext "Autotext"
-        if Autotext.Exists then Autotext.Close
-        Call hCloseDocument
-        goto endsub
-    end if  
-    wait 500
-
-    printlog " Insert a name for the Autotext and a Shortcut"
-    NameText.Settext "HDEAutotext"
-    Kuerzel.Settext "HDE"
-    printlog " Select 'New' in Menubutton 'Autotext'"
-    wait 500   
-    if Menue.IsEnabled then 
-        Menue.Click
-    else
-        Warnlog "Unable to create autotext->Button 'Autotext' is disabled"
-        Autotext.Close
-        Call hCloseDocument
-        goto endsub
-    end if
-    
-    wait 500
-    try
-        Call hMenuSelectNr ( 1 )
-    catch
-        Warnlog "Menu Autotext->'New' disabled ! Test failed !"
-        Call hMenuClose
-        Kontext "Autotext"
-        Autotext.Cancel
-        Call hCloseDocument
-        goto endsub
-    endcatch
-    printlog " Check if Autotext has been added to list"
-    Kontext "Active"
-    if Active.Exists then
-        if Active.GetRT = 304 then
-            Warnlog "Unable to add autotext: " + Active.Gettext
-            Active.Ok
-            Kontext "Autotext"
-            Autotext.Cancel
-            Call hCloseDocument
-            goto endsub
-        end if
-    end if
-
-    if wSelectAutotextCategory("AANewCategory") = false then
-        Warnlog "Created autotext category not found!"    
-    else
-        Liste.TypeKeys "+"
-
-        sAll = Liste.GetItemCount
-        For j = 1 to sAll
-            Liste.TypeKeys "<Down>"
-            if Liste.Gettext = "HDEAutotext" then
-                printlog "Autotext has been found!"
-                Autotext.Ok
-                j = sAll + 2
-            end if
-        next j
-        printlog " Check if content has been added to named autotext"
-        Kontext "Autotext"
-        if Autotext.Exists then
-            Warnlog "New autotext has not been found!"
-            Autotext.Close
-        else
-            hSetDocumentContext()
-            Call wTypeKeys("<Shift Home>")
-            EditCopy
-            if GetClipboardtext <> "This becomes an autotext!" then
-                Warnlog "Autotext has no content!"
-            else
-                Call wTypeKeys ("<Home><Right>")
-                FormatCharacter
-                Kontext
-                Active.SetPage TabFont
-                Kontext "TabFont"
-                if gAsianSup = True then
-                    if Vergleich1$ <> FontWest.GetSelText then Warnlog "Wrong Font in Autotext!"
-                    if Vergleich2$ <> StyleWest.GetSelText then Warnlog "Wrong Fontstyle in Autotext!"
-                    if Vergleich3$ <> SizeWest.GetSelText then Warnlog "Wrong Fontsize in Autotext!"
-                else
-                    if Vergleich1$ <> Font.GetSelText then Warnlog "Wrong Font in Autotext!"
-                    if Vergleich2$ <> Style.GetSelText then Warnlog "Wrong Fontstyle in Autotext!"
-                    if Vergleich3$ <> Size.GetSelText then Warnlog "Wrong Fontsize in Autotext!"
-                end if
-                wait 100
-                Kontext
-                Active.Setpage TabHyperlinkZeichen
-                Kontext "TabHyperlinkZeichen"
-                if UrlName.Gettext <> "http://www.irgendwas.de/" then Warnlog "Wrong hyperlink has been added to text!"
-                if Vergleich4$ <> TargetFrame.GetSelText then warnlog "Wrong targetFrame has been added to text!"
-                TabHyperlinkZeichen.Cancel
-            end if
-        end if
-    end if
-
-    printlog " Delete whole category with created autotext"
-    Call wDeleteAutotextCategory( "AANewCategory" )
-    Kontext "Autotext"
-    if Autotext.Exists then Autotext.Close
-    Call hCloseDocument
-
-endcase
-
-'---------------------------------------------------
-
-testcase tEditAutotext_2
-    Dim j as integer
-    Dim sAll as integer
-    Dim i as integer
-    Dim Vergleich1$
-    Dim Vergleich2$
-    Dim Vergleich3$
-    Dim Vergleich4$
-
-    Printlog "- Create a new autotext with content! (Text only)"
-    printlog " New Writerdocument"
-    Call hNewDocument
-    printlog " Create a new autotext category"
-    if wCreateAutotextCategory( "AANewCategory" ) = false then
-        Warnlog "Unable to create new Autotext category"
-        Kontext "Autotext"
-        if Autotext.Exists then Autotext.Close
-        Call hCloseDocument
-        goto endsub
-    end if       
-    wait 500
-    Kontext "Autotext"
-    Autotext.Close
-    hSetDocumentContext()
-    printlog " Insert some text and format text"
-    Call wTypeKeys("This becomes an autotext!")
-    ' Format word 'This'
-    Call wTypeKeys("<Home><Right>")
-    FormatCharacter
-    Kontext
-    Active.SetPage TabFont
-    kontext "TabFont"
-    if gAsianSup = true then
-        FontWest.Select 5
-        if StyleWest.GetItemCount >= 3 then
-            StyleWest.Select 3
-        else
-            For i = 6 to FontWest.GetItemCount
-                FontWest.Select i
-                try
-                    StyleWest.Select 3
-                    exit for
-                catch
-                endcatch
-            next i
-        end if
-        Vergleich1$ = FontWest.GetSelText
-        Vergleich2$ = StyleWest.GetSelText
-        SizeWest.Select 5
-        Vergleich3$ = SizeWest.GetSelText
-    else
-        Font.Select 5
-        if Style.GetItemCount >= 3 then
-            Style.Select 3
-        else
-            For i = 6 to Font.GetItemCount
-                Font.Select i
-                try
-                    Style.Select 3
-                    exit for
-                catch
-                endcatch
-            next i
-        end if
-        Vergleich1$ = Font.GetSelText
-        Vergleich2$ = Style.GetSelText
-        Size.Select 5
-        Vergleich3$ = Size.GetSelText
-    end if
-    wait 100
-    Kontext
-    Active.Setpage TabHyperlinkZeichen
-    Kontext "TabHyperlinkZeichen"
-    UrlName.Settext "http://www.irgendwas.de"
-    TargetFrame.Select 2
-    Vergleich4$ = TargetFrame.GetSelText
-    TabHyperlinkZeichen.Ok
-
-    Call wTypeKeys("<End>")
-    Call wTypeKeys("<Shift Home>")
-
-    printlog " Call Edit / Autotext"
-    EditAutotext
-    Kontext "Active"
-    if Active.Exists then
-        warnlog Active.Gettext
-        Active.Ok
-    end if
-    Kontext "Autotext"
-
-    printlog " Uncheck 'Preview and Select first group in List"
-    Vorschau_anzeigen.Uncheck
-    Kontext "Autotext"
-    if wSelectAutotextCategory( "AANewCategory" ) = false then
-        Warnlog "Unable to select Autotext category"
-        Kontext "Autotext"
-        if Autotext.Exists then Autotext.Close
-        Call hCloseDocument
-        goto endsub
-    end if  
-    wait 500
-
-    printlog " Insert a name for the Autotext and a Shortcut"
-    NameText.Settext "HDEAutotext"
-    Kuerzel.Settext "HDE"
-    printlog " Select 'New' in Menubutton 'Autotext'"
-    wait 500
-    Menue.Click
-    wait 500
-    try
-        Call hMenuSelectNr ( 2 )
-    catch
-        Warnlog "Menu Autotext->'New' disabled ! Test failed !"
-        Call hMenuClose
-        Kontext "Autotext"
-        Autotext.Cancel
-        Call hCloseDocument
-        goto endsub
-    endcatch
-    printlog " Check if Autotext has been added to list"
-    Kontext "Active"
-    if Active.Exists then
-        if Active.GetRT = 304 then
-            Warnlog "Unable to add autotext: " + Active.Gettext
-            Active.Ok
-            Kontext "Autotext"
-            Autotext.Cancel
-            Call hCloseDocument
-            goto endsub
-        end if
-    end if
-
-    if wSelectAutotextCategory("AANewCategory") = false then
-        Warnlog "Created autotext category not found!"
-    else
-        Liste.TypeKeys "+"
-    
-        sAll = Liste.GetItemCount
-        For j = 1 to sAll
-            Liste.TypeKeys "<Down>"
-            if Liste.Gettext = "HDEAutotext" then
-                printlog "Autotext has been found!"
-                Autotext.Ok
-                j = sAll + 2
-            end if
-        next j
-        printlog " Check if content has been added to named autotext"
-        Kontext "Autotext"
-        if Autotext.Exists then
-            Warnlog "New autotext has not been found!"
-            Autotext.Close
-        else
-            hSetDocumentContext()
-            Call wTypeKeys("<Home><Up>" , 4)
-            Call wTypeKeys("<Shift End>")
-            EditCopy
-            if GetClipboardtext <> "This becomes an autotext!" then
-                Warnlog "Autotext has no content!"
-            else
-                Call wTypeKeys ("<Home><Right>")
-                FormatCharacter
-                Kontext
-                Active.SetPage TabFont
-                Kontext "TabFont"
-                if gAsianSup = true then
-                    if Vergleich1$ = FontWest.GetSelText then Warnlog "Wrong Font in Autotext!"
-                    if Vergleich2$ = StyleWest.GetSelText then Warnlog "Wrong Fontstyle in Autotext!"
-                    if Vergleich3$ = SizeWest.GetSelText then Warnlog "Wrong Fontsize in Autotext!"
-                else
-                    if Vergleich1$ = Font.GetSelText then Warnlog "Wrong Font in Autotext!"
-                    if Vergleich2$ = Style.GetSelText then Warnlog "Wrong Fontstyle in Autotext!"
-                    if Vergleich3$ = Size.GetSelText then Warnlog "Wrong Fontsize in Autotext!"
-                end if
-                wait 100
-                Kontext
-                Active.Setpage TabHyperlinkZeichen
-                Kontext "TabHyperlinkZeichen"
-                if UrlName.Gettext = "http://www.irgendwas.de/" then Warnlog "Wrong hyperlink has been added to text!"
-                if Vergleich4$ = TargetFrame.GetSelText then Warnlog "Wrong targetFrame has been added to text!"
-                TabHyperlinkZeichen.Cancel
-            end if
-        end if
-    end if
-
-    printlog " Delete whole category with created autotext"
-    Call wDeleteAutotextCategory( "AANewCategory" )
-    Kontext "Autotext"
-    if Autotext.Exists then Autotext.Close
-    Call hCloseDocument
-
-endcase
-
-'---------------------------------------------------
-
-testcase tEditAutotext_3
-
-    Dim i as Integer
-    Dim j as Integer
-    Dim AlterWert as String
-    Dim hauMatsch as integer
-
-    printlog " Edit / Autotext"
-    PrintLog "- Edit / Autotext"
-    printlog " New document"
-    Call  hNewDocument
-    printlog " Select Edit / Autotext"
-    EditAutotext
-    Kontext "Active"
-    if Active.Exists then
-        warnlog Active.Gettext
-        Active.Ok
-    end if
-
-    printlog "  - Select and Insert all Autotexts "
-    printlog " Select and Insert all autotexts"
-    Sleep 1
-    Kontext "AutoText"
-    Vorschau_anzeigen.Uncheck
-    Liste.Select 1
-    for j=1 to 10
-        Liste.TypeKeys "-"
-        Liste.TypeKeys "<Down>"
-        wait 500
-    next j
-
-    hauMatsch = Liste.GetItemCount
-
-    for i = 1 to hauMatsch
-        Liste.Select 1
-        for j=1 to Liste.GetItemCount
-            Liste.TypeKeys "-"
-            Liste.TypeKeys "<Down>"
-            wait 500
-        next j
-        Vorschau_anzeigen.Check
-
-        Liste.Select i
-        Liste.TypeKeys "+"
-
-        Call tCheckAutotextInGroup(Liste.GetItemCount-hauMatsch,i)
-
-    next i
-
-    Kontext "Autotext"
-    if Autotext.Exists then Autotext.Close
-    
-    Call hCloseDocument
-endcase
-
-'---------------------------------------------------
-
-testcase tEditAutotext_4
-
-    Call hNewDocument
-
-    printlog " Create a new categorie"
-    printlog "  - Create new categorie"
-    if wCreateAutotextCategory("AAAAAA") = false then
-        Warnlog "Unable to create category"
-        Kontext "Autotext"
-        if Autotext.Exists then Autotext.Close
-        Call hCloseDocument
-        goto endsub
-    end if
-
-    printlog " Close dialog and check if categorie has been created"
-    Kontext "Autotext"
-    if Autotext.Exists then Autotext.Close
-    if wSelectAutotextCategory("AAAAAA") = false then
-        Warnlog "New categorie has been deleted ( after closing and reopening dialog )"
-        Kontext "Autotext"
-        if Autotext.Exists then Autotext.Close
-        Call hCloseDocument
-        goto endsub
-    end if
-
-    Bereiche.Click
-    Kontext "BereicheBearbeitenAutotext"
-    printlog " Rename the new categorie"
-    printlog "  -  Rename new categorie!"
-    Bereich.Settext "AAAAAArrghh"
-    Wait 500
-    printlog " In dialog click 'rename'"
-    if Umbenennen.IsEnabled then
-        Umbenennen.Click
-        BereicheBearbeitenAutoText.OK
-        Kontext "Active"
-        if Active.Exists then
-            if Active.GetRT = 304 then
-                warnlog Active.Gettext
-                Active.Ok
-            end if
-        end if
-    else
-        Warnlog "Categorie couldn't be renamed (Button is disabled), no further test!"
-        Kontext "BereicheBearbeitenAutotext"
-        BereicheBearbeitenAutoText.Close
-        if wDeleteAutotextCategory("AAAAAA") = false then Warnlog "Unable to delete category"
-        Kontext "Autotext"
-        AutoText.Close
-        Call hCloseDocument
-        goto endsub
-    end if
-
-    Kontext "BereicheBearbeitenAutotext"
-    if BereicheBearbeitenAutotext.Exists then BereicheBearbeitenAutotext.Ok 
-    printlog " Close dialog and check if Categorie has been renamed"
-    Kontext "Autotext"
-    if Autotext.Exists then Autotext.Close
-    Sleep 1
-    if wSelectAutotextCategory("AAAAAArrghh") = false then
-        Warnlog "Categorie hasn't been correctly renamed"
-        AlterWert=Liste.Gettext
-    end if
-
-    printlog " Delete new categorie"
-    printlog "  - Delete new categorie"
-    printlog " Select 'Categories'"
-    Bereiche.Click
-    Kontext "Active"
-    if Active.Exists then
-        if Active.GetRT = 304 then
-            warnlog Active.Gettext
-            Active.Ok
-        end if
-    end if
-    Kontext "BereicheBearbeitenAutoText"
-    Bereich.SetText "AAAAAArrghh"
-    printlog " Select 'Delete', close document and check if categorie has been deleted"
-    if Loeschen.IsEnabled then
-        Loeschen.Click
-    else
-        Warnlog "Categorie couldn't be deleted (Button is disabled)!"
-    end if
-
-    BereicheBearbeitenAutoText.OK
-    Kontext "MessageBox"
-    if Not MessageBox.Exists(2) then
-        Warnlog "No messsage after deleting Categorie and closing the Dialog !"
-    else
-        MessageBox.No
-        Kontext "Active"
-        if Active.Exists then
-            if Active.GetRT = 304 then
-                warnlog Active.Gettext
-                Active.Ok
-            end if
-        end if
-        if wSelectAutotextCategory("AAAAAArrghh") = false then
-            Warnlog "After denying the 'Deletemessage' the categorie has been deleted!"
-        else
-            Kontext "Autotext"
-            Bereiche.Click
-            Kontext "Active"
-            if Active.Exists then
-                if Active.GetRT = 304 then
-                    warnlog Active.Gettext
-                    Active.Ok
-                end if
-            end if
-            Kontext "BereicheBearbeitenAutoText"
-            Bereich.SetText "AAAAAArrghh"
-            if Loeschen.IsEnabled then
-                Loeschen.Click
-                BereicheBearbeitenAutotext.Ok
-                Kontext "MessageBox"
-                if MessageBox.Exists(2) then MessageBox.Yes
-                Kontext "Active"
-                if Active.Exists then
-                    if Active.GetRT = 304 then
-                        QAErrorlog Active.Gettext
-                        Active.Ok
-                    end if
-                end if
-                Sleep 2
-                if wSelectAutotextCategory("AAAAAArrghh") = true then
-                    Warnlog "Though the categorie has been deleted it is always there!"
-                end if
-            else
-                Warnlog "Area couldn't be deleted (Button is disabled)!"
-            end if
-        end if
-    end if
-
-    Kontext "Autotext"
-    if Autotext.Exists then Autotext.Close
-    
-    printlog " Close document"
-    Call hCloseDocument
-endcase
-
-'---------------------------------------------------
-
-testcase tEditAutotext_5
-    printlog "  - Insert Autotext with ShortCuts"
-    Call hNewDocument
-    printlog " try to insert  autotexts with Shotcut"
-
-    Call wTypeKeys "<Return>", 3
-    Call wBlindtextEinfuegen
-
-    Kontext "Active"
-    if Active.Exists then
-        warnlog Active.GetText
-        Active.OK
-    end if
-    Sleep 1
-    Call wTypeKeys "<Mod1 A>"
-    Sleep 1
-    EditCopy
-    printlog " Check if autotext has been inserted"
-    if GetClipboardText = "" then Warnlog "Autotext couldn't be inserted with Short-Cut!"
-
-    printlog " Close document"
-    Call hCloseDocument
-endcase
diff --git a/testautomation/writer/optional/includes/calculate/w_calculate.inc b/testautomation/writer/optional/includes/calculate/w_calculate.inc
deleted file mode 100644
index ccbc196d46aa..000000000000
--- a/testautomation/writer/optional/includes/calculate/w_calculate.inc
+++ /dev/null
@@ -1,463 +0,0 @@
-'**************************************************************************
-' 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 : helge.delfs@oracle.com
-'*
-'* short description : Put description here
-'*
-'\***********************************************************************
-
-sub w_calculate
-
-    Call tToolsCalculate1
-    Call tToolsCalculate2
-    Call tToolsCalculate3
-
-end sub
-
-testcase tToolsCalculate1
-    Printlog "- Tools / calculation   base functionality formula bar"
-
-    Printlog "   - Add"
-    Call hNewDocument
-    Call wTypeKeys "2+3+4+5<Shift Home>"
-    ToolsCalculate
-    Call wTypeKeys "<End> = "
-    EditPaste
-    if GetClipboardText <> "14" then Warnlog "Result of Add is not 14 but "+ GetClipboardText
-
-    Printlog "   - Subtract"
-    Call wTypeKeys "<Return>101-3-4-155<Shift Home>"
-    ToolsCalculate
-    Call wTypeKeys "<End> = "
-    EditPaste
-    if GetClipboardText <> "-61" then Warnlog "Result of Subtract is not -61 but "+ GetClipboardText
-
-    Printlog "   - multiply"
-    Call wTypeKeys "<Return>11*3*1" & DecimalSeparator & "5<Shift Home>"
-    ToolsCalculate
-    Call wTypeKeys "<End> = "
-    EditPaste
-    if GetClipboardText <> "49" & DecimalSeparator & "50" and GetClipboardText <> "49" & DecimalSeparator & "5" then Warnlog "Result of Multiply is not 49" & DecimalSeparator & "50 but " & GetClipboardText
-
-    Printlog "   - Division"
-    Call wTypeKeys "<Return>111/3/2<Shift Home>"
-    ToolsCalculate
-    Call wTypeKeys "<End> = "
-    EditPaste
-    if GetClipboardText <> "18" & DecimalSeparator & "50" and GetClipboardText <> "18" & DecimalSeparator & "5" then Warnlog "Result of Multiply is not 18" & DecimalSeparator & "50 but " & GetClipboardText
-
-    Printlog "   - random with brackets"
-    Call wTypeKeys "<Return>((12*2)/4" & DecimalSeparator & "5+3)-1" & DecimalSeparator & "5 <Shift Home>"
-    
-    ToolsCalculate
-    Call wTypeKeys "<End> = "
-    EditPaste
-    if Left$(GetClipboardText,4) <> "6" & DecimalSeparator & "83" then Warnlog "Result of mixed calculation not 6" & DecimalSeparator & "83 but " & GetClipboardText
-
-    Call hCloseDocument
-endcase
-
-' *******************************************************************
-
-testcase tToolsCalculate2
-    Printlog "- Tools / Calculate   Basic functionality"
-
-    Printlog "   - Add"
-    Call hNewDocument
-    Call wTypeKeys "<F2>"
-    Kontext "OL_SW_Rechenleiste"
-    EingabeFeld.SetText "2+3+4+5" : EingabeFeld.TypeKeys "<Return>"
-    if ErmittleErgebnis ( "14" ) = FALSE then Warnlog "Result of Add not 14 but "+ GetClipboardText
-
-    Printlog "   - Subtract"
-    Call wTypeKeys "<End> <Return><F2>"
-    Kontext "OL_SW_Rechenleiste"
-    EingabeFeld.SetText "101-3-4-155" : EingabeFeld.TypeKeys "<Return>"
-    if ErmittleErgebnis ( "-61" ) = FALSE then Warnlog "Result of Subtract not -61 but "+ GetClipboardText
-
-    Printlog "   - Multiply"
-    Call wTypeKeys "<End> <Return><F2>"
-    Kontext "OL_SW_Rechenleiste"
-    EingabeFeld.SetText "11*3*1" & DecimalSeparator & "5" : EingabeFeld.TypeKeys "<Return>"
-    if ErmittleErgebnis ( "49" & DecimalSeparator & "5" ) = FALSE then Warnlog "Result of Multiplication not 49" & DecimalSeparator & "5 but " & GetClipboardText
-
-    Printlog "   - Division"
-    Call wTypeKeys "<End><Return><F2>"
-    Kontext "OL_SW_Rechenleiste"
-    EingabeFeld.SetText "111/3/2" : EingabeFeld.TypeKeys "<Return>"
-    if ErmittleErgebnis ( "18" & DecimalSeparator & "5" ) = FALSE then Warnlog "Result of Division not 18" & DecimalSeparator & "5 but " & GetClipboardText
-
-    Printlog "   - random with brackets"
-    Call wTypeKeys "<End><Return><F2>"
-    Kontext "OL_SW_Rechenleiste"
-    EingabeFeld.SetText "((12*2)/4" & DecimalSeparator & "5+3)-1" & DecimalSeparator & "5" : EingabeFeld.TypeKeys "<Return>"
-    if ErmittleErgebnis ( "6" & DecimalSeparator & "83" ) = FALSE then Warnlog "Result of mixed calculation not 6" & DecimalSeparator & "83 but " & GetClipboardText
-
-    Call hCloseDocument
-endcase
-
-' *******************************************************************
-
-testcase tToolsCalculate3
-    Dim Fehlermeldung as String
-
-    Printlog "- Tools / Calculate   Basic functionality (formula button)"
-
-    Call hNewDocument
-    Printlog "   - Sum (6)"
-    Call wTypeKeys "<F2>"
-    Kontext "OL_SW_Rechenleiste"
-    Formel.Click
-    Sleep 1
-    Call hMenuSelectNr ( 1 )
-    Sleep 1
-    EingabeFeld.TypeKeys " (6)" : EingabeFeld.TypeKeys "<Return>"
-    Sleep 1
-    if ErmittleErgebnis ( "6" ) = FALSE then Warnlog "Result is not 6 but "+ GetClipboardText
-
-    Printlog "   - Sum ( <a1:B2>|<b4:r3> )"
-    Call wTypeKeys "<End> <Return><F2>"
-    Kontext "OL_SW_Rechenleiste"
-    Formel.Click
-    Sleep 1
-    Call hMenuSelectNr ( 1 )
-    Sleep 1
-    EingabeFeld.TypeKeys " ( <a1:B2" : EingabeFeld.TypeKeys ">|<b4:r3" : EingabeFeld.TypeKeys "> )" : EingabeFeld.TypeKeys "<Return>"
-    select case iSprache
-        case 01   : Fehlermeldung = "** Expression is faulty **"
-        case 03   : Fehlermeldung = "** Expressão incorrecta **"
-        case 31   : Fehlermeldung = "** Foutieve expressie **"
-        case 33   : Fehlermeldung = "** Expression errone **"
-        case 34   : Fehlermeldung = "** Expresión errónea **"
-        case 39   : Fehlermeldung = "** Errore nell'espressione **"
-        case 45   : Fehlermeldung = "** Fejlagtigt udtryk **"
-        case 46   : Fehlermeldung = "** Felaktigt uttryck **"
-        case 48   : Fehlermeldung = "** Nieprawiedlowe wyralenie **"
-        case 49   : Fehlermeldung = "** Fehlerhafter Ausdruck **"
-        case else : Fehlermeldung = ""       
-    end select
-
-    if ErmittleErgebnis ( Fehlermeldung ) = FALSE then
-        if Fehlermeldung > "" then
-            Warnlog "Result is not " + Fehlermeldung + " but " & GetClipboardText
-        else
-            QAErrorlog "** Errortext for this language not defined **"
-        end if
-    end if
-    Printlog "   - 1323,3 round 1"
-    Call wTypeKeys "<End> <Return><F2>"
-    Kontext "OL_SW_Rechenleiste"
-    EingabeFeld.TypeKeys "1323" & DecimalSeparator & "345 "
-    Formel.Click
-    Sleep 1
-    Call hMenuSelectNr ( 2 )
-    Sleep 1
-    EingabeFeld.TypeKeys "<End> 1" : EingabeFeld.TypeKeys "<Return>"
-    if ErmittleErgebnis ( "1323" & DecimalSeparator & "3" ) = FALSE then Warnlog "Result is not 1323" & DecimalSeparator & "3 but " & GetClipboardText
-
-    Printlog "   - 10 + 20 PHD ( Percent )"
-    Call wTypeKeys "<End> <Return><F2>"
-    Kontext "OL_SW_Rechenleiste"
-    EingabeFeld.TypeKeys "10 + 20 "
-    Formel.Click
-    Sleep 1
-    Call hMenuSelectNr ( 3 )
-    Sleep 1
-    EingabeFeld.TypeKeys "<End><Return>"
-    if ErmittleErgebnis ( "10" & DecimalSeparator & "2" ) = FALSE then Warnlog "Result is not 10" & DecimalSeparator & "2 but " & GetClipboardText
-
-    Printlog "   - SQRT 144 ( Square Root )"
-    Call wTypeKeys "<End> <Return><F2>"
-    Kontext "OL_SW_Rechenleiste"
-    Formel.Click
-    Sleep 1
-    Call hMenuSelectNr ( 4 )
-    Sleep 1
-    EingabeFeld.TypeKeys "<End> 144 <Return>"
-    if ErmittleErgebnis ( "12" ) = FALSE then Warnlog "Result is not 12 but "+ GetClipboardText
-
-    Printlog "   - 4 POW 8 ( Power )"
-    Call wTypeKeys "<End> <Return><F2>"
-    Kontext "OL_SW_Rechenleiste"
-    EingabeFeld.TypeKeys "4 "
-    Formel.Click
-    Sleep 1
-    Call hMenuSelectNr ( 5 )
-    Sleep 1
-    EingabeFeld.TypeKeys "<End> 8 <Return>"
-    if ErmittleErgebnis ( "65536" ) = FALSE then Warnlog "Result is not 65536 but "+ GetClipboardText
-
-    Printlog "- Tools / Calculate   Operators with formula button"
-    Printlog "   - 2 EQ 2 ( equal )"
-    Call wTypeKeys "<End> <Return><F2>"
-    Kontext "OL_SW_Rechenleiste"
-    EingabeFeld.TypeKeys "2 "
-    Formel.Click
-    Sleep 1
-    Call hMenuSelectNr ( 6 )
-    Sleep 1
-    Call hMenuSelectNr ( 2 )
-    Sleep 1
-    EingabeFeld.TypeKeys "<End> 2 <Return>"
-    if ErmittleErgebnis ( "1" ) = FALSE then Warnlog "Result is not 1 but "+ GetClipboardText
-
-    Printlog "   - 2 NEQ 2 ( not equal )"
-    Call wTypeKeys "<End> <Return><F2>"
-    Kontext "OL_SW_Rechenleiste"
-    EingabeFeld.TypeKeys "2 "
-    Formel.Click
-    Sleep 1
-    Call hMenuSelectNr ( 6 )
-    Sleep 1
-    Call hMenuSelectNr ( 3 )
-    Sleep 1
-    EingabeFeld.TypeKeys "<End> 2 <Return>"
-    if ErmittleErgebnis ( "0" ) = FALSE then Warnlog "Result is not 0 but "+ GetClipboardText
-
-    Printlog "   - 2 LEQ 3 ( Less than or equal )"
-    Call wTypeKeys "<End> <Return><F2>"
-    Kontext "OL_SW_Rechenleiste"
-    EingabeFeld.TypeKeys "2 "
-    Formel.Click
-    Sleep 1
-    Call hMenuSelectNr ( 6 )
-    Sleep 1
-    Call hMenuSelectNr ( 4 )
-    Sleep 1
-    EingabeFeld.TypeKeys "<End> 3 <Return>"
-    if ErmittleErgebnis ( "1" ) = FALSE then Warnlog "Result is not 1 but "+ GetClipboardText
-
-    Printlog "   - 2 GEO 2,0 ( greater than or equal )"
-    Call wTypeKeys "<End> <Return><F2>"
-    Kontext "OL_SW_Rechenleiste"
-    EingabeFeld.TypeKeys "2 "
-    Formel.Click
-    Sleep 1
-    Call hMenuSelectNr ( 6 )
-    Sleep 1
-    Call hMenuSelectNr ( 5 )
-    Sleep 1
-    EingabeFeld.TypeKeys "<End> 2" & DecimalSeparator & "0 <Return>"
-    if ErmittleErgebnis ( "1" ) = FALSE then Warnlog "Result is not 1 but "+ GetClipboardText
-
-    Printlog "   - 2 L 2 ( less )"
-    Call wTypeKeys "<End> <Return><F2>"
-    Kontext "OL_SW_Rechenleiste"
-    EingabeFeld.TypeKeys "2 "
-    Formel.Click
-    Sleep 1
-    Call hMenuSelectNr ( 6 )
-    Sleep 1
-    Call hMenuSelectNr ( 6 )
-    Sleep 1
-    EingabeFeld.TypeKeys "<End> 2 <Return>"
-    if ErmittleErgebnis ( "0" ) = FALSE then Warnlog "Result is not 0 but "+ GetClipboardText
-
-    Printlog "   - 2,01 g 2 ( greater )"
-    Call wTypeKeys "<End> <Return><F2>"
-    Kontext "OL_SW_Rechenleiste"
-    EingabeFeld.TypeKeys "2" & DecimalSeparator & "01 "
-    Formel.Click
-    Sleep 1
-    Call hMenuSelectNr ( 6 )
-    Sleep 1
-    Call hMenuSelectNr ( 7 )
-    Sleep 1
-    EingabeFeld.TypeKeys "<End> 2 <Return>"
-    if ErmittleErgebnis ( "1" ) = FALSE then Warnlog "Result is not 1 but "+ GetClipboardText
-
-    Printlog "   - 0 OR 0 ( Boolean or )"
-    Call wTypeKeys "<End> <Return><F2>"
-    Kontext "OL_SW_Rechenleiste"
-    EingabeFeld.TypeKeys "0 "
-    Formel.Click
-    Sleep 1
-    Call hMenuSelectNr ( 6 )
-    Sleep 1
-    Call hMenuSelectNr ( 8 )
-    Sleep 1
-    EingabeFeld.TypeKeys "<End> 0 <Return>"
-    if ErmittleErgebnis ( "0" ) = FALSE then Warnlog "Result is not 0 but "+ GetClipboardText
-
-    Printlog "   - 0 XOR 1 ( Boolean XOR )"
-    Call wTypeKeys "<End> <Return><F2>"
-    Kontext "OL_SW_Rechenleiste"
-    EingabeFeld.TypeKeys "0 "
-    Formel.Click
-    Sleep 1
-    Call hMenuSelectNr ( 6 )
-    Sleep 1
-    Call hMenuSelectNr ( 9 )
-    Sleep 1
-    EingabeFeld.TypeKeys "<End> 1 <Return>"
-    if ErmittleErgebnis ( "1" ) = FALSE then Warnlog "Result is not 1 but "+ GetClipboardText
-
-    Printlog "   - 1 AND 0 ( Boolean And )"
-    Call wTypeKeys "<End> <Return><F2>"
-    Kontext "OL_SW_Rechenleiste"
-    EingabeFeld.TypeKeys "1 "
-    Formel.Click
-    Sleep 1
-    Call hMenuSelectNr ( 6 )
-    Sleep 1
-    Call hMenuSelectNr ( 10 )
-    Sleep 1
-    EingabeFeld.TypeKeys "<End> 0 <Return>"
-    if ErmittleErgebnis ( "0" ) = FALSE then Warnlog "Result is not 0 but "+ GetClipboardText
-
-    Printlog "   - 0 NOT 0 ( Boolean Or )"
-    Call wTypeKeys "<End> <Return><F2>"
-    Kontext "OL_SW_Rechenleiste"
-    EingabeFeld.TypeKeys "0 "
-    Formel.Click
-    Sleep 1
-    Call hMenuSelectNr ( 6 )
-    Sleep 1
-    Call hMenuSelectNr ( 11 )
-    Sleep 1
-    EingabeFeld.TypeKeys "<End> 0 <Return>"
-    if ErmittleErgebnis ( "0" ) = FALSE then Warnlog "Result is not 0 but "+ GetClipboardText
-
-    Printlog "- Tools / Calculate   Statistical function with formula button"
-    Printlog "   - mean 30|40|20 ( Mean )"
-    Call wTypeKeys "<End> <Return><F2>"
-    Kontext "OL_SW_Rechenleiste"
-    Formel.Click
-    Sleep 1
-    Call hMenuSelectNr ( 7 )
-    Sleep 1
-    Call hMenuSelectNr ( 1 )
-    Sleep 1
-    EingabeFeld.TypeKeys "<End> 30|40|20 <Return>"
-    if ErmittleErgebnis ( "30" ) = FALSE then Warnlog "Result is not 30 but "+ GetClipboardText
-
-    Printlog "   - min 1|1,01|1,001 ( Minimum )"
-    Call wTypeKeys "<End> <Return><F2>"
-    Kontext "OL_SW_Rechenleiste"
-    Formel.Click
-    Sleep 1
-    Call hMenuSelectNr ( 7 )
-    Sleep 1
-    Call hMenuSelectNr ( 2 )
-    Sleep 1
-    EingabeFeld.TypeKeys "<End> 1|1" & DecimalSeparator & "01|1" & DecimalSeparator & "001 <Return>"
-    if ErmittleErgebnis ( "1" ) = FALSE then Warnlog "Result is not 1 but "+ GetClipboardText
-
-    Printlog "   - max 1|1,01|1,001 ( Maximum )"
-    Call wTypeKeys "<End> <Return><F2>"
-    Kontext "OL_SW_Rechenleiste"
-    Formel.Click
-    Sleep 1
-    Call hMenuSelectNr ( 7 )
-    Sleep 1
-    Call hMenuSelectNr ( 3 )
-    Sleep 1
-    EingabeFeld.TypeKeys "<End> 1|1" & DecimalSeparator & "01|1" & DecimalSeparator & "001 <Return>"
-    if ErmittleErgebnis ( "1" & DecimalSeparator & "01" ) = FALSE then Warnlog "Result is not 1" & DecimalSeparator & "01 but "+ GetClipboardText
-
-    Printlog "- Tools / Calculate   Further functions"
-    Printlog "   - sin (PI/2) ( Sine )"
-    Call wTypeKeys "<End> <Return><F2>"
-    Kontext "OL_SW_Rechenleiste"
-    Formel.Click
-    Sleep 1
-    Call hMenuSelectNr ( 8 )
-    Sleep 1
-    Call hMenuSelectNr ( 1 )
-    Sleep 1
-    EingabeFeld.TypeKeys "<End> (PI/2) <Return>"
-    if ErmittleErgebnis ( "1" ) = FALSE then Warnlog "Result is not 1 but "+ GetClipboardText
-
-    Printlog "   - cos (PI/2) ( Cosine )"
-    Call wTypeKeys "<End> <Return><F2>"
-    Kontext "OL_SW_Rechenleiste"
-    Formel.Click
-    Sleep 1
-    Call hMenuSelectNr ( 8 )
-    Sleep 1
-    Call hMenuSelectNr ( 2 )
-    Sleep 1
-    EingabeFeld.TypeKeys "<End> (PI/2) <Return>"
-    if ErmittleErgebnis ( "0" ) = FALSE then Warnlog "Result is not 0 but "+ GetClipboardText
-
-    Printlog "   - tan (PI/2 - 0,001) ( Tangent )"
-    Call wTypeKeys "<End> <Return><F2>"
-    Kontext "OL_SW_Rechenleiste"
-    Formel.Click
-    Sleep 1
-    Call hMenuSelectNr ( 8 )
-    Sleep 1
-    Call hMenuSelectNr ( 3 )
-    Sleep 1
-    EingabeFeld.TypeKeys "<End> (PI/2 - 0" & DecimalSeparator & "001) <Return>"
-    if ErmittleErgebnis ( "1000" ) = FALSE then Warnlog "Result is not 1000 but "+ GetClipboardText
-
-    Printlog "   - asin 1 ( Arc-Sine )"
-    Call wTypeKeys "<End> <Return><F2>"
-    Kontext "OL_SW_Rechenleiste"
-    Formel.Click
-    Sleep 1
-    Call hMenuSelectNr ( 8 )
-    Sleep 1
-    Call hMenuSelectNr ( 4 )
-    Sleep 1
-    EingabeFeld.TypeKeys "<End> 1 <Return>"
-    if ErmittleErgebnis ( Fehlermeldung ) = FALSE then
-        if Fehlermeldung > "" then
-            Warnlog "Result is not " + Fehlermeldung + " but " & GetClipboardText
-        else
-            QAErrorlog "** Errortext for this language not defined **"
-        end if
-    end if
-	wait 500
-	
-    Printlog "   - acos 0 ( Arc-Cosine )"
-    Call wTypeKeys "<End> <Return><F2>"
-    Kontext "OL_SW_Rechenleiste"
-    Formel.Click
-    Sleep 1
-    Call hMenuSelectNr ( 8 )
-    Sleep 1
-    Call hMenuSelectNr ( 5 )
-    Sleep 1
-    EingabeFeld.TypeKeys "<End> 0 <Return>"
-    if ErmittleErgebnis ( "1" & DecimalSeparator & "57" ) = FALSE then Warnlog "Result is not 1" & DecimalSeparator & "57 but "+ GetClipboardText 
-
-    Printlog "   - asin 1 ( Arc-Tangent )"
-    Call wTypeKeys "<End> <Return><F2>"
-    Kontext "OL_SW_Rechenleiste"
-    Formel.Click
-    Sleep 1
-    Call hMenuSelectNr ( 8 )
-    Sleep 1
-    Call hMenuSelectNr ( 6 )
-    Sleep 1
-    EingabeFeld.TypeKeys "<End> 1 <Return>"
-    if ErmittleErgebnis ( "0" & DecimalSeparator & "79" ) = FALSE then Warnlog "Result is not 0" & DecimalSeparator & "79 but "+ GetClipboardText
-    Call hCloseDocument
-endcase
-
diff --git a/testautomation/writer/optional/includes/chinesetranslate/w_chinesetranslate1.inc b/testautomation/writer/optional/includes/chinesetranslate/w_chinesetranslate1.inc
deleted file mode 100644
index 9c432380228a..000000000000
--- a/testautomation/writer/optional/includes/chinesetranslate/w_chinesetranslate1.inc
+++ /dev/null
@@ -1,409 +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 : helge.delfs@oracle.com
-'*
-'* short description : Chinese Translation test
-'*
-'************************************************************************
-'*
-' #1 tDefaultSetting_1           'Default settings for different Chinese language
-' #1 tDefaultSetting_2           'Default settings
-' #1 tDefaultSetting_3           'Cursor's position
-' #1 tChineseTranslate_1         'Translation for selected text
-' #1 tChineseTranslate_2         'Translation for NO-selected document
-' #1 tChineseTranslate_3         'Translation direction : T Chinese to S Chinese
-' #1 tChineseTranslate_4         'Translation direction : S Chinese to T Chinese
-' #1 tChineseTranslate_5         ''Use Taiwan , Hongkong SAR...'s statue
-' #0 fSetAsian
-'*
-'\***********************************************************************
-
-testcase tDefaultSetting_1
-
-  printlog "Default settings for different Chinese language"
-
-  Call hNewDocument
-
-  printlog " Set default language(asian) for document is 'Simplified Chinese'"
-   fSetAsian(fGetLanguageName(86))
-
-  printlog " Tools/language / Chinese translation"
-   ToolsLanguageChineseTranslation
-   Kontext "ChineseTranslation"
-
-    printlog " 'Traditional Chinese to Simplified Chinese' should be Checked by default"
-     if NOT TChineseToSChinese.IsChecked then
-         Warnlog "'Traditional Chinese to Simplified Chinese' should be Checked by default !"
-     end if
-   ChineseTranslation.Cancel
-
-  printlog " Set default language(asian) for document is 'Traditional Chinese'"
-   fSetAsian(fGetLanguageName(88))
-
-  printlog " Tools/language / Chinese translation"
-   ToolsLanguageChineseTranslation
-   Kontext "ChineseTranslation"
-
-    printlog " 'Simplified Chinese to Traditional Chinese' should be Checked by default"
-     if NOT SChineseToTChinese.IsChecked then
-         QAErrorlog "#i96768# 'Simplified Chinese to Traditional Chinese' should be Checked by default !"
-     end if
-   ChineseTranslation.Cancel
-
-  Call hCloseDocument
-endcase
-
-'-----------------------------------------------------------------
-
-testcase tDefaultSetting_2
-
-  printlog "Default settings "
-
-  Call hNewDocument
-
-   fSetAsian(fGetLanguageName(86))
-
-  printlog " Tools/language / Chinese translation"
-   ToolsLanguageChineseTranslation
-   Kontext "ChineseTranslation"
-
-'    printlog " Use Taiwan,Hongkong SAR , and Macao SAR character variants"
-'    printlog " + should NOT be Checked by default"
-'     if UseSARCharacter.IsChecked then
-'         Warnlog "'Use Taiwan,Hongkong SAR , and Macao SAR character variants' should NOT be Checked by default !"
-'     end if
-
-    printlog " 'Common Terms' should NOT be Checked by default"
-     if TranslateCommonTerms.IsChecked then
-         Warnlog "'Common Terms' should NOT be Checked by default !"
-     end if
-
-    printlog " Click 'Edit terms' button"
-     EditTerms.Click
-     Kontext "ChineseDictionary"
-
-      printlog " 'Traditional Chinese to Simplified Chinese' should be Checked by default"
-       if NOT TChineseToSChinese.IsChecked then
-           Warnlog "'Traditional Chinese to Simplified Chinese' should be Checked by default !"
-       end if
-
-      printlog " 'Reverse mapping' should NOT be Checked by default"
-       if ReverseMapping.IsChecked then
-           Warnlog "'Reverse mapping' should NOT be Checked by default !"
-       end if
-
-      printlog " 'Property' should be 'other' by default"
-       if Property.GetSelIndex <> 1 then
-           Warnlog "'Property' should be 'Other' by default !"
-       end if
-     ChineseDictionary.Cancel
-
-   Kontext "ChineseTranslation"
-   ChineseTranslation.Cancel
-
-  Call hCloseDocument
-endcase
-
-'-----------------------------------------------------------------
-
-testcase tDefaultSetting_3
-
-  Dim sChinese as  String
-  Dim sExpect as String
-
-  sChinese = "红上蓝国"
-  sExpect  = "紅"
-
-  printlog "Cursor position"
-
-  Call hNewDocument
-
-   fSetAsian(fGetLanguageName(86))
-
-   printlog " Input some chinese and set cursor in the beginning"
-   Call wTypeKeys sChinese
-   Call wTypeKeys "<Home>"
-
-  printlog " Tools/language / Chinese translation , check"
-  printlog " + 'Simplified Chinese to Traditional Chinese', press OK"
-   ToolsLanguageChineseTranslation
-   Kontext "ChineseTranslation"
-     SChineseToTChinese.Check
-   ChineseTranslation.OK
-
-  printlog " Check if the cursor's position is changed -- Should NOT"
-   Call wTypeKeys "<Shift Right>"
-   try
-       EditCopy
-       if GetClipboardText <> sExpect then
-           Warnlog "Hope to get " & sExpect & " but get " & GetClipboardText
-       end if
-   catch
-       Warnlog "Cursor's position is changed - 117787"
-   endcatch
-
-  Call hCloseDocument
-endcase
-
-'-----------------------------------------------------------------
-
-testcase tChineseTranslate_1
-
-  Dim sChinese as String
-  Dim sExpect as String
-
-  sChinese = "红上蓝国"
-  sExpect  = "紅上蓝国"
-
-  printlog "Translation for selected text"
-
-  Call hNewDocument
-
-   fSetAsian(fGetLanguageName(86))
-
-  printlog " Input some chinese and select part of input"
-   Call wTypeKeys sChinese
-   Call wTypeKeys "<Home>"
-   Call wTypeKeys "<Shift Right>" , 2
-
-  printlog " Tools/language / Chinese translation , check"
-  printlog " + 'Simplified Chinese to Traditional Chinese', press OK"
-   ToolsLanguageChineseTranslation
-   Kontext "ChineseTranslation"
-     SChineseToTChinese.Check
-   ChineseTranslation.OK
-
-  printlog " Check if the only selected text is translated -- Should be"
-   Call wTypeKeys "<Home>"
-   Call wTypeKeys "<Shift End>"
-   EditCopy
-   if GetClipboardText <> sExpect then
-       Warnlog "Hope to get " & sExpect & " but get " & GetClipboardText
-   end if
-
-  Call hCloseDocument
-endcase
-
-'-----------------------------------------------------------------
-
-testcase tChineseTranslate_2
-
-  Dim sChinese as String
-  Dim sExpect as String
-
-  sChinese = "红上蓝国"
-  sExpect  = "紅上藍國"
-
-  printlog "Translation for NO-selected document"
-
-  Call hNewDocument
-
-   fSetAsian(fGetLanguageName(86))
-
-  printlog " Input some chinese"
-   Call wTypeKeys sChinese
-
-  printlog " Tools/language / Chinese translation , check"
-  printlog " + 'Simplified Chinese to Traditional Chinese' , press OK"
-   ToolsLanguageChineseTranslation
-   Kontext "ChineseTranslation"
-     SChineseToTChinese.Check
-   ChineseTranslation.OK
-
-  printlog " Check if all document is translated -- Should"
-   Call wTypeKeys "<Home>"
-   Call wTypeKeys "<Shift End>"
-   EditCopy
-   if GetClipboardText <> sExpect then
-       Warnlog "Hope to get " & sExpect & " but get " & GetClipboardText
-   end if
-
-  Call hCloseDocument
-endcase
-
-'-----------------------------------------------------------------
-
-testcase tChineseTranslate_3
-
-  Dim sChinese as String
-  Dim sExpect as String
-
-  sChinese = "红上藍國"
-  sExpect  = "红上蓝国"
-
-  printlog "Translation direction : T Chinese to S Chinese"
-
-  Call hNewDocument
-
-   fSetAsian(fGetLanguageName(88))
-
-  printlog " Input some chinese , include some"
-  printlog " + tradition chinese and simplified chinese"
-   Call wTypeKeys sChinese
-
-  printlog " Tools/language / Chinese translation , check"
-  printlog " + 'Traditional Chinese to Simplified Chinese' , press OK"
-   ToolsLanguageChineseTranslation
-   Kontext "ChineseTranslation"
-     TChineseToSChinese.Check
-   ChineseTranslation.OK
-
-  printlog " Check if only traditional chinese is translated -- Should"
-   Call wTypeKeys "<Home>"
-   Call wTypeKeys "<Shift End>"
-   EditCopy
-   if GetClipboardText <> sExpect then
-       Warnlog "Hope to get " & sExpect & " but get " & GetClipboardText
-   end if
-
-  Call hCloseDocument
-endcase
-
-'-----------------------------------------------------------------
-
-testcase tChineseTranslate_4
-
-  Dim sChinese as String
-  Dim sExpect as String
-
-  sChinese = "红上藍國"
-  sExpect  = "紅上藍國"
-
-  printlog "Translation direction : S Chinese to T Chinese"
-
-  Call hNewDocument
-
-   fSetAsian(fGetLanguageName(86))
-
-  printlog " Input some chinese , include some"
-  printlog " + tradition chinese and simplified chinese"
-   Call wTypeKeys sChinese
-
-  printlog " Tools/language / Chinese translation , check"
-  printlog " + 'Simplified Chinese to Traditional Chinese' , press OK"
-   ToolsLanguageChineseTranslation
-   Kontext "ChineseTranslation"
-     SChineseToTChinese.Check
-   ChineseTranslation.OK
-
-  printlog " Check if only simplified chinese is translated -- Should"
-   Call wTypeKeys "<Home>"
-   Call wTypeKeys "<Shift End>"
-   EditCopy
-   if GetClipboardText <> sExpect then
-       Warnlog "Hope to get " & sExpect & " but get " & GetClipboardText
-   end if
-
-  Call hCloseDocument
-endcase
-
-'-----------------------------------------------------------------
-
-testcase tChineseTranslate_5
-    if bAsianLan <> True then
-        'This testcase might only run with 'Use Taiwan , Hongkong SAR...'s status.
-        QaErrorLog "Testing with Asian languages only"
-        goto endsub
-    end if
-
-  printlog "'Use Taiwan , Hongkong SAR...'s statue"
-
-  Call hNewDocument
-
-   fSetAsian(fGetLanguageName(88))
-
-  printlog " Tools/language / Chinese translation"
-  printlog " Check Traditional Chinese to Simplified Chinese"
-  printlog " + 'Use Taiwan , Hongkong SAR...' should be disabled"
-   ToolsLanguageChineseTranslation
-   Kontext "ChineseTranslation"
-     TChineseToSChinese.Check
-     try
-         UseSARCharacter.Check
-         Warnlog "'Use Taiwan , Hongkong SAR and ...' should be disabled !"
-     catch
-     endcatch
-
-  printlog " Check Simplified Chinese to Traditional Chinese"
-  printlog " + 'Use Taiwan , Hongkong SAR...' should be enabled"
-     SChineseToTChinese.Check
-     try
-         UseSARCharacter.Check
-     catch
-         Warnlog "'Use Taiwan , Hongkong SAR and ...' should be enabled !"
-     endcatch
-
-  printlog " UnCheck 'Use Taiwan , Hongkong SAR...'"
-     UseSARCharacter.UnCheck
-
-  printlog " Check Translate Common Terms"
-     TranslateCommonTerms.Check
-
-  printlog " 'Use Taiwan , Hongkong SAR...' should be checked automatically"
-     if NOT UseSARCharacter.IsChecked then
-         Warnlog "'Use Taiwan , Hongkong SAR and ...' should be checked !"
-     end if
-   ChineseTranslation.OK
-
-  printlog " Close the dialog and reopen it"
-  printlog " 'Use Taiwan , Hongkong SAR...' and 'Translate Common Terms'"
-  printlog " + should be checked"
-   ToolsLanguageChineseTranslation
-   Kontext "ChineseTranslation"
-     if NOT UseSARCharacter.IsChecked then
-         Warnlog "'Use Taiwan , Hongkong SAR and ...' should be checked ! - 117802 "
-     end if
-     if NOT TranslateCommonTerms.IsChecked then
-         Warnlog "'Translate common terms' should be checked ! - 117802 "
-     end if
-   ChineseTranslation.Cancel
-
-  Call hCloseDocument
-endcase
-
-'-----------------------------------------------------------------
-
-function fSetAsian(sAsian as String)  as String
-
-    'This function is set CJK language in Tools/Options/Language Settings / Languages
-    ToolsOptions
-    Call hToolsOptions("LANGUAGESETTINGS","LANGUAGES")
-    fSetAsian = Asiatisch.GetSelText
-    if sAsian = "Null" then
-        Asiatisch.Select  1
-        goto GoON
-    else
-        Asiatisch.Select  sAsian
-    end if
-    
-    GoON:
-    Kontext "ExtrasOptionenDlg"
-    ExtrasOptionenDlg.OK
-
-end function
-
diff --git a/testautomation/writer/optional/includes/chinesetranslate/w_chinesetranslate2.inc b/testautomation/writer/optional/includes/chinesetranslate/w_chinesetranslate2.inc
deleted file mode 100644
index 85e2ae9aa1f0..000000000000
--- a/testautomation/writer/optional/includes/chinesetranslate/w_chinesetranslate2.inc
+++ /dev/null
@@ -1,454 +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 : helge.delfs@oracle.com
-'*
-'* short description : Chinese Dictionary test
-'*
-'************************************************************************
-'*
-' #1 tChineseTranslate_6         'Chinese dictionary : S Chinese to T Chinese
-' #1 tChineseTranslate_7         'Chinese dictionary : T Chinese to S Chinese
-' #1 tChineseTranslate_8         'Chinese dictionary : Reverse mapping
-' #1 tChineseTranslate_9         'Chinese dictionary : Add
-' #1 tChineseTranslate_10        'Chinese dictionary : Modify
-' #1 tChineseTranslate_11        'Chinese dictionary : Delete
-' #1 tUndoRedo                   'Undo/Redo
-'*
-'\***********************************************************************
-
-testcase tChineseTranslate_6
-
-  Dim sTerm as String
-  Dim sMapping as String
-
-  sTerm    = "蓝国"
-  sMapping = "紙間"
-
-  printlog "Chinese dictionary , S Chinese to T Chinese"
-
-  Call hNewDocument
-
-   fSetAsian(fGetLanguageName(86))
-
-  printlog " Input a test term"
-   Call wTypeKeys sTerm
-
-  printlog " Tools/language / Chinese translation ,"
-  printlog " Check 'Simplified Chinese to Traditional Chinese'"
-   ToolsLanguageChineseTranslation
-   Kontext "ChineseTranslation"
-     SChineseToTChinese.Check
-
-  printlog " Check 'Translate Common Terms'"
-     TranslateCommonTerms.Check
-
-  printlog " Press 'Edit Terms' button"
-     EditTerms.Click
-     Kontext "ChineseDictionary"
-
-    printlog " Click radiobutton 'Simplified Chinese to Tradtional Chinese'"
-       SChineseToTChinese.Check
-
-    printlog " Add test word in Term and Mapping"
-       Term.SetText    sTerm
-       Mapping.SetText sMapping
-       Add.Click
-     ChineseDictionary.OK
-     Sleep 4
-   Kontext "ChineseTranslation"
-   ChineseTranslation.OK
-
-  printlog " Check if the result is correct"
-   Call wTypeKeys "<Home><Shift End>"
-   EditCopy
-   if GetClipboardText <> sMapping then
-       Warnlog "117803 - Hope to get " & sMapping & " but got " & GetClipboardText
-   end if
-
-  'Recover to default
-   ToolsLanguageChineseTranslation
-   Kontext "ChineseTranslation"
-     TranslateCommonTerms.UnCheck
-     EditTerms.Click
-     Kontext "ChineseDictionary"
-       SChineseToTChinese.Check
-       SToTMappingContent.Select SToTMappingContent.GetItemCount
-       Sleep 1
-       Delete.Click
-     ChineseDictionary.OK
-     Sleep 2
-   Kontext "ChineseTranslation"
-   ChineseTranslation.Cancel
-
-  Call hCloseDocument
-endcase
-
-'-----------------------------------------------------------------
-
-testcase tChineseTranslate_7
-
-  Dim sTerm as String
-  Dim sMapping as String
-
-  sTerm    = "紙間"
-  sMapping = "蓝国"
-
-  printlog "Chinese dictionary , T Chinese to S Chinese"
-
-  Call hNewDocument
-
-   fSetAsian(fGetLanguageName(88))
-
-  printlog " Input a test term"
-   Call wTypeKeys sTerm
-
-  printlog " Tools/language / Chinese translation ,"
-  printlog " Check Traditional Chinese to Simplified Chinese"
-   ToolsLanguageChineseTranslation
-   Kontext "ChineseTranslation"
-     TChineseToSChinese.Check
-
-  printlog " Check 'Translate Common Terms'"
-     TranslateCommonTerms.Check
-
-  printlog " Press 'Edit Terms' button"
-     EditTerms.Click
-     Kontext "ChineseDictionary"
-
-    printlog " Click radiobutton 'Tradtional Chinese to Simplified Chinese'"
-       TChineseToSChinese.Check
-
-    printlog " Add test word in Term and Mapping"
-       Term.SetText    sTerm
-       Mapping.SetText sMapping
-       Add.Click
-     ChineseDictionary.OK
-     Sleep 4
-   Kontext "ChineseTranslation"
-   ChineseTranslation.OK
-
-  printlog " Check if the result is correct"
-   Call wTypeKeys "<Home><Shift End>"
-   EditCopy
-   if GetClipboardText <> sMapping then
-       Warnlog "117803 - Hope to get " & sMapping & " but get " & GetClipboardText
-   end if
-
-  'Recover to default
-   ToolsLanguageChineseTranslation
-   Kontext "ChineseTranslation"
-     TranslateCommonTerms.UnCheck
-     EditTerms.Click
-     Kontext "ChineseDictionary"
-       TChineseToSChinese.Check
-       TToSMappingContent.Select TToSMappingContent.GetItemCount
-       Sleep 1
-       Delete.Click
-     ChineseDictionary.OK
-     Sleep 2
-   Kontext "ChineseTranslation"
-   ChineseTranslation.Cancel
-
-  Call hCloseDocument
-endcase
-
-'-----------------------------------------------------------------
-
-testcase tChineseTranslate_8
-
-  Dim sTerm as String
-  Dim sMapping as String
-
-  sTerm    = "蓝国"
-  sMapping = "紙間"
-
-  printlog "Chinese dictionary , Reverse mapping"
-
-  Call hNewDocument
-
-   fSetAsian(fGetLanguageName(88))
-
-  printlog " Input a test term"
-   Call wTypeKeys sMapping
-
-  printlog " Tools/language / Chinese translation ,"
-  printlog " Check 'Traditional Chinese to Simplified Chinese'"
-   ToolsLanguageChineseTranslation
-   Kontext "ChineseTranslation"
-     TChineseToSChinese.Check
-
-  printlog " Check 'Translate Common Terms'"
-     TranslateCommonTerms.Check
-
-  printlog " Press 'Edit Terms' button"
-     EditTerms.Click
-     Kontext "ChineseDictionary"
-
-    printlog " Click radiobutton 'Simplified Chinese to Tradtional Chinese'"
-       SChineseToTChinese.Check
-
-    printlog " Check 'Reverse Mapping'"
-       ReverseMapping.Check
-
-    printlog " Add test word in Term and Mapping"
-       Term.SetText    sTerm
-       Mapping.SetText sMapping
-       Add.Click
-     ChineseDictionary.OK
-     Sleep 4
-   Kontext "ChineseTranslation"
-   ChineseTranslation.OK
-
-  printlog " Check if the result is correct"
-   Call wTypeKeys "<Home><Shift End>"
-   EditCopy
-   if GetClipboardText <> sTerm then
-       Warnlog "117803 - Hope to get " & sTerm & " but get " & GetClipboardText
-   end if
-
-  'Recover to default
-   ToolsLanguageChineseTranslation
-   Kontext "ChineseTranslation"
-     TranslateCommonTerms.UnCheck
-     EditTerms.Click
-     Kontext "ChineseDictionary"
-       TChineseToSChinese.Check
-       ReverseMapping.Check
-       Sleep 1
-       Delete.Click
-     ChineseDictionary.OK
-     Sleep 2
-   Kontext "ChineseTranslation"
-   ChineseTranslation.Cancel
-
-  Call hCloseDocument
-endcase
-
-'-----------------------------------------------------------------
-
-testcase tChineseTranslate_9
-
-  Dim sTerm1 as String
-  Dim sMapping1 as String
-  Dim sMapping2 as String
-  Dim i as  Integer
-
-  sTerm1    = "Term1"
-  sMapping1 = "Mapping1" :  sMapping2 = "Mapping2"
-
-  printlog "Chinese dictionary : Add"
-
-  Call hNewDocument
-
-  printlog " Tools/language / Chinese translation ,"
-   ToolsLanguageChineseTranslation
-   Kontext "ChineseTranslation"
-
-  printlog " Press 'Edit Terms' button"
-     EditTerms.Click
-     Kontext "ChineseDictionary"
-       TChineseToSChinese.Check
-
-    printlog " Check if term is empty , Add button should be inactive"
-       try
-           Add.Click
-           Warnlog "- term is empty , Add button should be inactive !"
-       catch
-       endcatch
-
-    printlog " Input test word in Term(A) and Mapping(B) , press Add"
-       Term.SetText    sTerm1
-       Mapping.SetText sMapping1
-       Add.Click
-
-    printlog " Input test word in Term(A) and Mapping(C) , press Add"
-       Term.SetText    sTerm1
-       Mapping.SetText sMapping2
-
-    printlog " Check if term text is unaltered , Add button should be inactive"
-       try
-           Add.Click
-           Warnlog "- term text is unaltered , Add button should be inactive !"
-       catch
-       endcatch
-
-     ChineseDictionary.Cancel
-   Kontext "ChineseTranslation"
-   ChineseTranslation.Cancel
-
-  Call hCloseDocument
-endcase
-
-'-----------------------------------------------------------------
-
-testcase tChineseTranslate_10
-
-  Dim sTerm1 as String
-  Dim sMapping1 as String
-  Dim sMapping2 as String
-  Dim i as Integer
-
-  sTerm1    = "Term1"
-  sMapping1 = "Mapping1" :  sMapping2 = "Mapping2"
-
-  printlog "Chinese dictionary : Modify"
-
-  Call hNewDocument
-
-  printlog " Tools/language / Chinese translation ,"
-   ToolsLanguageChineseTranslation
-   Kontext "ChineseTranslation"
-
-  printlog " Press 'Edit Terms' button"
-     EditTerms.Click
-     Kontext "ChineseDictionary"
-       TChineseToSChinese.Check
-
-    printlog " Input test word in Term(A) and Mapping(B) , press Add"
-       Term.SetText    sTerm1
-       Mapping.SetText sMapping1
-       Add.Click
-
-    printlog " Input test word in Mapping(C) and select another property ,"
-    printlog " + then press Modify"
-       Mapping.SetText sMapping2
-       Property.Select 3
-       Sleep 1
-       Modify.Click
-
-    printlog " Check if modification is correct"
-       TToSMappingContent.Select TToSMappingContent.GetItemCount
-       if Term.GetText <> sTerm1 then
-           Warnlog "Should get " & sTerm1 & " but get " & Term.GetText
-       end if
-       if Mapping.GetText <> sMapping2 then
-           Warnlog "Should get " & sMapping2 & " but get " & Mapping.GetText
-       end if
-       if Property.GetSelIndex <> 3 then
-           Warnlog "Property is NOT correct!"
-       end if
-     ChineseDictionary.Cancel
-   Kontext "ChineseTranslation"
-   ChineseTranslation.Cancel
-
-  Call hCloseDocument
-endcase
-
-'-----------------------------------------------------------------
-
-testcase tChineseTranslate_11
-
-  Dim sTerm1 as String
-  Dim sMapping1 as String
-  Dim sTerm2 as String
-  Dim i as Integer
-
-  sTerm1    = "Term1"    : sTerm2 = "Term2"
-  sMapping1 = "Mapping1"
-
-  printlog "Chinese dictionary : Delete"
-
-  Call hNewDocument
-
-  printlog " Tools/language / Chinese translation ,"
-   ToolsLanguageChineseTranslation
-   Kontext "ChineseTranslation"
-
-  printlog " Press 'Edit Terms' button"
-     EditTerms.Click
-     Kontext "ChineseDictionary"
-       TChineseToSChinese.Check
-
-    printlog " Input test word in Term(A) and Mapping(B) , press Add"
-       Term.SetText    sTerm1
-       Mapping.SetText sMapping1
-       Add.Click
-
-    printlog " Input test word in Term(C), check if Delete button is active"
-       Term.SetText sTerm2
-       try
-           Delete.Click
-           Warnlog "Delete button should be inactive !"
-       catch
-       endcatch
-     ChineseDictionary.Cancel
-
-   Kontext "ChineseTranslation"
-   ChineseTranslation.Cancel
-
-  Call hCloseDocument
-endcase
-
-'-----------------------------------------------------------------
-
-testcase tUndoRedo
-
-  Dim sChinese as String
-  Dim sExpect as String
-
-  sChinese = "红上蓝国"
-  sExpect  = "紅上藍國"
-
-  printlog "Undo/Redo"
-
-  Call hNewDocument
-
-   fSetAsian(fGetLanguageName(86))
-
-   printlog " Input some simplified chinese"
-   Call wTypeKeys sChinese
-
-  printlog " Tools/language / Chinese translation , check"
-  printlog " + 'Simplified Chinese to Traditional Chinese' , press OK"
-   ToolsLanguageChineseTranslation
-   Kontext "ChineseTranslation"
-     SChineseToTChinese.Check
-   ChineseTranslation.OK
-
-  printlog " Edit/Undo"
-   EditUndo
-   Call wTypeKeys "<Home>"
-   Call wTypeKeys "<Shift End>"
-   EditCopy
-   if GetClipboardText <> sChinese then
-       Warnlog "#117810# Hope to get " & sChinese & " but get " & GetClipboardText
-   end if
-
-  printlog " Edit/Redo"
-   EditRedo
-   Call wTypeKeys "<Home>"
-   Call wTypeKeys "<Shift End>"
-   EditCopy
-   if GetClipboardText <> sExpect then
-       Warnlog "#117810# Hope to get " & sExpect & " but get " & GetClipboardText
-   end if
-
-  Call hCloseDocument
-endcase
-
-'-----------------------------------------------------------------
diff --git a/testautomation/writer/optional/includes/clipboard/clipbrd_func.inc b/testautomation/writer/optional/includes/clipboard/clipbrd_func.inc
deleted file mode 100644
index c30bfd52d351..000000000000
--- a/testautomation/writer/optional/includes/clipboard/clipbrd_func.inc
+++ /dev/null
@@ -1,442 +0,0 @@
-'**************************************************************************
-' 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 : helge.delfs@oracle.com
-'*
-'* short description : Functions for HTML-Test
-'*
-'************************************************************************
-'*
-' #0 wPasteAvailableClipboardFormats(TheNumber as integer
-' #0 wSetClipboardtestDefaults(ForWhat as string) as boolean
-' #0 wInsertNewCalcSheet(SheetName as string) as booloean
-' #0 wRenameCalcSheet(NewName as string) as boolean
-' #0 wFilterSpecialCharacters(ToFilter as string) as string
-' #0 ReplaceCharacter(stringToChange$
-' #0 wChangeHTMLCompatibility ( optional RecentCompatibility as integer ) as integer
-'*
-'\***********************************************************************
-
-function wPasteAvailableClipboardFormats(TheNumber as integer, CheckWhat as String )
-    Dim i as integer, ClipboardFormat as string
-    For i = 1 to TheNumber
-        try
-            Auswahl.Select i
-        catch
-            if i <= TheNumber then
-                QAErrorlog "Number of clipboard formats seems to be changed!"
-            end if
-            exit for
-        endcatch
-        ClipboardFormat = Auswahl.GetSeltext
-        printlog "- Paste as: " + ClipboardFormat
-        Select Case CheckWhat
-            Case "ctext", "DRAW"
-                InhaltEinfuegen.Ok
-                Sleep 3
-            Case else
-                InhaltEinfuegen.Ok
-                Sleep 3
-        end select
-
-        Select Case gApplication
-            Case "CALC"
-                Kontext "TextImport"
-                if TextImport.Exists then TextImport.Ok
-        end select
-        
-        Kontext "Active"
-        if Active.Exists then
-            QAErrorlog " - " + Active.Gettext + "->Bug#110181"
-            Active.Ok
-        end if
-        hSetDocumentContext()
-        Call wTypeKeys "<Escape>",2
-        Select Case gApplication
-            Case "WRITER","MASTERDOCUMENT","HTML"
-                Select Case CheckWhat
-                    Case "text","field","table"
-                    Call wTypeKeys "<Down><End><Return>"
-                    Call wTypeKeys "(" + Clipboardformat + ")"
-                    Call wTypeKeys "<End><Return>",2
-            Case "frame", "DRAW", "graphicL", "graphicE", "ole", "control", "ctext"
-                'Call gMouseClick (50,100)
-                Call wTypeKeys ("<Escape>")
-                Call wTypeKeys "(" + Clipboardformat + ")"
-                if i < TheNumber Then
-                    if gApplication <> "HTML" then
-                        InsertManualBreak
-                        Kontext "UmbruchEinfuegen"
-                        Seitenumbruch.Check
-                        UmbruchEinfuegen.OK
-                    else
-                        Call wTypeKeys ("<Return>" , 2)
-                    end if
-                end if
-        end select
-        EditPasteSpecialWriter
-
-        Case "IMPRESS","DRAW"
-            Call gMouseClick(7,7)
-            Call wRenameImpressSlide(ClipboardFormat)
-            if i < TheNumber Then
-                Call wInsertNewImpressSlide
-                EditPasteSpecial
-            end if
-        Case "CALC"
-            printlog " Rename first sheet"
-            if wRenameCalcSheet(Clipboardformat) = False then
-                Warnlog "Unable to rename Sheet Name !"
-            end if
-            if i < TheNumber Then
-                if wInsertNewCalcSheet(Clipboardformat) = False then
-                    Warnlog "Unable to set Sheetname : " + Clipboardformat
-                end if
-                EditPasteSpecialCalc
-
-            end if
-        end select
-        s_next_item:
-        Kontext "InhaltEinfuegen"
-    next i
-    kontext "NavigatorDraw"
-    if NavigatorDraw.Exists then NavigatorDraw.Close
-    kontext "Navigator"
-    if Navigator.Exists then Navigator.Close
-
-    kontext "InhaltEinfuegen"
-    f_exit:
-    if InhaltEinfuegen.Exists then InhaltEinfuegen.Cancel
-end function
-
-' ---------------------------------------------------------------------------------
-
-function wSetClipboardtestDefaults(ForWhat as string) as boolean
-    printlog " Points cursor to beginning of document "
-    hFileOpenLocally( gtesttoolpath & "writer\optional\input\clipboard\writer.sxw")
-    
-    Kontext "DocumentWriter"
-    printlog " Jump to beginning of document "
-    Call wTypeKeys "<Mod1 Home>"
-    printlog " Check if beginning of document reached "
-    Call wTypeKeys "<Mod1 Shift Right>"
-    EditCopy
-
-    Select Case ForWhat
-        Case "text"
-        '"+ Select first paragraph "
-        Call wTypeKeys "<Shift End>"
-        Call wTypeKeys "<Shift Down>"
-        '"+ Copy selected text "
-        
-        Case "field"
-        '"+ Select paragraph with 'Date Field' "
-        Call wTypeKeys "<Down>",3
-        Call wTypeKeys "<Home><Shift End>"
-        '"+ Copy selected text "
-        
-        Case "table"
-        '"+ Select paragraph with 'Table' "
-        Call wNavigatorAuswahl(2,1)
-        'Call wTypeKeys "<Down>",6
-        Call wTypeKeys "<Mod1 A>",2
-        '"+ Copy selected table "
-        
-        Case "frame"
-        '"+ Select 'Frame' "
-        Call wTypeKeys ( "<Shift F4>" )
-        '"+ Copy selected frame "
-        
-        Case "DRAW"
-        '"+ Select 'Drawing Object' "
-        Call wTypeKeys ( "<Shift F4>" )
-        Call wTypeKeys "<Tab>"
-        '"+ Copy selected Drawing Object "
-        
-        Case "graphicL"
-        '"+ Select 'Linked Graphic' "
-        Call wTypeKeys ( "<Shift F4>" )
-        Call wTypeKeys "<Tab>",2
-        '"+ Copy selected Linked Graphic "
-        
-        Case "graphicE"
-        '"+ Select 'Embedded Graphic' "
-        Call wTypeKeys ( "<Shift F4>" )
-        Call wTypeKeys "<Tab>",3
-        '"+ Copy selected Embedded Graphic "
-        
-        Case "ole"
-        '"+ Select 'OLE Object' "
-        Call wTypeKeys ( "<Shift F4>" )
-        Call wTypeKeys "<Tab>",4
-        '"+ Copy selected OLE Object "
-        
-        Case "control"
-        '"+ Select 'Control' "
-        Call wTypeKeys ( "<Shift F4>" )
-        Call wTypeKeys "<Tab>",5
-        '"+ Copy selected Control "
-        
-        Case else
-            Warnlog "Unknown object!"
-    end select
-
-    try
-        EditCopy
-        EditCopy 'and a second time to make sure..
-        wSetClipboardtestDefaults = True
-    catch
-        QAErrorlog "Error jump to beginning of document!"
-        wSetClipboardtestDefaults = False
-    endcatch
-    
-    ' Because of Clipboard bug set
-    wSetClipboardtestDefaults = True
-end function
-
-' ---------------------------------------------------------------------------------
-
-function wInsertNewCalcSheet(SheetName as string) as boolean
-    SheetName= wFilterSpecialCharacters(SheetName)
-    printlog " Inserts a new shett and sets the name for it "
-    InsertSheetCalc
-    Kontext "TabelleEinfuegenCalc"
-    if TabelleEinfuegenCalc.Exists then
-        Nach.Check
-        printlog " Check 'After current sheet' "
-        NeuErstellen.Check
-        printlog " Check 'New Sheet' "
-        'Tabellenname.Settext SheetName
-        printlog " Set Name of sheet "
-        TabelleEinfuegenCalc.Ok
-        printlog " Unable to set name of Sheet ? "
-        Kontext "Active"
-        if Active.Exists then
-            if Active.GetRT = 304 then
-                Warnlog Active.Gettext
-                Active.Ok
-                Kontext "TabelleEinfuegenCalc"
-                if TabelleEinfuegenCalc.Exists then TabelleEinfuegenCalc.Cancel
-                wInsertNewCalcSheet = False
-            else
-                wInsertNewCalcSheet = True
-            end if
-        else
-            wInsertNewCalcSheet = True
-        end if
-    else
-        Warnlog "Dialog 'Insert Sheet' not up!"
-        wInsertNewCalcSheet = False
-    end if
-end function
-
-' ---------------------------------------------------------------------------------
-
-function wRenameCalcSheet(NewName as string) as boolean
-    printlog " Renames an existing sheet in calc "
-    FormatSheetRename
-    Kontext "TabelleUmbenennen"
-    if TabelleUmbenennen.Exists then
-        TabellenName.Settext wFilterSpecialCharacters(NewName)
-        TabelleUmbenennen.Ok
-        Kontext "Active"
-        if Active.Exists then
-            if Active.GetRT = 304 then
-                Active.Ok
-                Kontext "TabelleUmbenennen"
-                if TabelleUmbenennen.Exists then TabelleUmbenennen.Cancel
-                wRenameCalcSheet = False
-            else
-                wRenameCalcSheet = True
-            end if
-        else
-            wRenameCalcSheet = True
-        end if
-    else
-        wRenameCalcSheet = False
-    end if
-end function
-
-' ---------------------------------------------------------------------------------
-
-sub wInsertNewImpressSlide()
-    InsertSlide
-end sub
-
-' ---------------------------------------------------------------------------------
-
-sub wRenameImpressSlide(NewName as string)
-    printlog " Edit->Layer->Rename "'
-    try
-        EditRenameSlide
-        Kontext "NameDlgPage"
-        if NameDlgPage.Exists then
-            NameField.Settext NewName
-            NameDlgPage.Ok
-        else
-            try
-                Kontext "DocumentDrawImpress"
-                TabBar.TypeKeys NewName + "<Return>" , true
-            catch
-                Warnlog "Unable to rename Slide (No access to to Tab-Bar!)"
-            endcatch
-        end if
-    catch
-        Warnlog "Unable to rename Slide!"
-    endcatch
-    
-end sub
-
-' ---------------------------------------------------------------------------------
-
-function wFilterSpecialCharacters(ToFilter as string) as string
-     Dim i as integer, SpecialCharacters as string
-     SpecialCharacters = "!$%&/()=?\}][{*+~'#;,:.-"
-     printlog " Replace SpecialCharacters in SheetName with an underscore (_) "
-     For i = 1 to len(SpecialCharacters)
-        ToFilter = ReplaceCharacter(ToFilter,Mid$(SpecialCharacters,i,1),"_")
-     next i
-     wFilterSpecialCharacters = ToFilter
-end function
-
-' ---------------------------------------------------------------------------------
-
-function ReplaceCharacter(stringToChange$, charToReplace$, replaceWith$) As String
-
-    'Replaces a specified character in a string with another character that you specify
-    Dim ln As Long
-    Dim n As Long
-    Dim NextLetter As String
-    Dim FinalString As String
-    Dim txt As String
-    Dim char As String
-    Dim rep As String
-    txt = stringToChange$ 'store all arguments in
-    char = charToReplace$ 'new variables
-    rep = replaceWith$
-
-    ln = Len(txt)
-
-    For n = 1 To ln Step 1
-        NextLetter = Mid(txt, n, 1)
-        If NextLetter = char Then
-            NextLetter = rep
-        End If
-        FinalString = FinalString & NextLetter
-    Next n
-    ReplaceCharacter = FinalString
-
-end function
-
-' ---------------------------------------------------------------------------------
-
-Sub wDisableImpressAutopilot()
-
-    gApplication = "IMPRESS"
-    Call hNewDocument
-    ToolsOptions
-    Call hToolsOptions ("IMPRESS","General")
-    MitAutopilotStarten.UnCheck
-    Kontext "ExtrasOptionenDlg"
-    ExtrasOptionenDlg.OK
-    Call hCloseDocument
-
-end sub
-
-function wChangeHTMLCompatibility ( optional RecentCompatibility as integer ) as integer
-    Dim i as integer
-    Dim CurrentCharSet as String
-    Dim RecentCharSet as integer 
-    Dim CharsetFound as boolean
-    printlog " This function sets the charset in options to UTF-8 "
-    printlog " Giving a parameter a special charset will be chosen "
-    
-    CharsetFound = False
-    ToolsOptions
-    Call hToolsOptions("LOADSAVE", "HTMLCOMPATIBILITY")
-    if IsMissing(RecentCompatibility) = True then
-        RecentCharSet = Zeichensatz.GetSelIndex
-        For i = 1 to Zeichensatz.GetItemCount
-            Zeichensatz.Select i
-            CurrentCharset = Zeichensatz.GetSelText
-            if Instr(Ucase(CurrentCharset), "UTF-8") then
-                i = Zeichensatz.GetItemCount + 1
-                CharsetFound = True
-            end if
-        next i
-    else
-        CharsetFound = True
-        RecentCharSet = RecentCompatibility
-        Zeichensatz.Select RecentCompatibility
-    end if
-    if CharsetFound = True then
-        printlog "Charset has been changed!"
-    else
-        Warnlog "Couldn't set Charset to UTF-8!"
-    end if
-    Kontext "ExtrasOptionenDlg"
-    ExtrasOptionenDlg.OK
-    wChangeHTMLCompatibility = RecentCharset
-
-end function
-
-' ---------------------------------------------------------------------------------
-
-function wChangeHTMLCompatibilityExport ( optional wExport as integer ) as integer
-    Dim i as integer
-    Dim CurrentExportSet as String
-    Dim RecentExportSet as integer
-    Dim ExportFound as boolean
-    printlog " This function sets the export in options to 'Oracle Open Office Writer' "
-    printlog " Giving a parameter a special export will be chosen "
-    
-    ExportFound = False
-    ToolsOptions
-    Call hToolsOptions("LOADSAVE", "HTMLCOMPATIBILITY")
-    if IsMissing ( wExport ) = True then
-        RecentExportSet = Export.GetSelIndex
-        For i = 1 to Export.GetItemCount
-            Export.Select i
-            CurrentExportset = Export.GetSelText
-            if Instr(Ucase(CurrentExportset), "Oracle Open Office Writer") then
-                i = Export.GetItemCount + 1
-                ExportFound = True
-            end if
-        next i
-    else
-        ExportFound = True
-        RecentExportSet = wExport
-        Export.Select RecentExportSet
-    end if
-    if ExportFound = True then
-        printlog "Export has been changed!"
-    else
-        Warnlog "Couldn't set Export to Oracle Open Office Writer!"
-    end if
-    Kontext "ExtrasOptionenDlg"
-    ExtrasOptionenDlg.OK
-    wChangeHTMLCompatibilityExport = RecentExportSet
-end function
diff --git a/testautomation/writer/optional/includes/clipboard/w_210_.inc b/testautomation/writer/optional/includes/clipboard/w_210_.inc
deleted file mode 100644
index bef3214a1d46..000000000000
--- a/testautomation/writer/optional/includes/clipboard/w_210_.inc
+++ /dev/null
@@ -1,455 +0,0 @@
-'**************************************************************************
-' 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 : helge.delfs@oracle.com
-'*
-'* short description : CROSS-APPLICATIONS CLIPBOARD TEST (Writer)
-'*
-'\***********************************************************************
-
-sub w_210_
-
-    Call WriterToWriterText
-    Call WriterToWriterField
-    Call WriterToWriterTable
-    Call WriterToWriterFrame
-    Call WriterToWriterDrawingObject
-    Call WriterToWriterGraphicLinked
-    Call WriterToWriterGraphicEmbedded
-    Call WriterToWriterOLEObject
-    Call WriterToWriterControl
-
-end sub
-
-' ---------------------------------------------------------------------------------
-
-testcase WriterToWriterText
-    gApplication = "WRITER"
-    printlog "  Open File '..\\writer\\optional\\input\\clipboard\\writer.sxw' "
-    printlog " + Jump to beginning of document "
-    printlog " + Select first paragraph "
-    printlog " + Copy selected text "
-    if wSetClipboardtestDefaults("text") = True then
-        printlog " + Open new document "
-        Call hNewDocument
-        printlog " + Edit / Paste Special "
-        EditPasteSpecialWriter
-        Wait 500
-        printlog "  Paste 'Text' in all available clipboard formats "
-        Kontext "InhaltEinfuegen"
-        if InhaltEinfuegen.Exists then
-            printlog " + Write Clipboard format under pasted content "
-            Call wPasteAvailableClipboardFormats(Auswahl.GetItemCount,"text")
-            printlog " + Save document as ..\user\work\writer_to_writer_text.odt"
-            Call hFileSaveAsWithFilterKill( gOfficepath + "user\work\writer_to_writer_text.odt" , "writer8" )
-            Wait 500
-            printlog " + Close saved document "
-            Call hCloseDocument
-            printlog " + Reopen saved document "
-            if hFileOpen (gOfficepath + "user\work\writer_to_writer_text.odt",true) = false then
-                Kontext "Active"
-                if Active.Exists then
-                    try
-                        Active.Yes
-                    catch
-                        Warnlog "Unable to remove checkbox: " + Active.Gettext
-                        Active.ok
-                    endcatch
-                end if
-            end if
-            printlog " + Close saved document "
-            Call hCloseDocument
-        else
-            Warnlog "Dialog 'Paste Special' is not up!"
-            Call hCloseDocument
-            goto endsub
-        end if
-    else
-        Warnlog "Writer To Writer -> 'Text' failed !"
-    end if
-    printlog "  Close active document "
-    Do Until GetDocumentCount = 0
-        Call hCloseDocument
-    Loop
-endcase
-
-' ----------------------------------------------------------------------------------------------
-
-testcase WriterToWriterField
-    gApplication = "WRITER"
-    printlog "  Open File '..\\writer\\optional\\input\\clipboard\\writer.sxw' "
-    printlog " + Jump to beginning of document "
-    printlog " + Select paragraph with 'Date Field' "
-    printlog " + Copy selected text "
-    printlog " + Open new document "
-    if wSetClipboardtestDefaults("field") = True then
-        Call hNewDocument
-        printlog " + Edit / Paste Special "
-        EditPasteSpecialWriter
-        Wait 500
-        printlog "  Paste 'Field' in all available clipboard formats "
-        Kontext "InhaltEinfuegen"
-        if InhaltEinfuegen.Exists then
-            printlog " + Write Clipboard format under pasted content "
-            Call wPasteAvailableClipboardFormats(Auswahl.GetItemCount,"field")
-            printlog " + Save document as ..\user\work\writer_to_writer_field.odt"
-            Call hFileSaveAsWithFilterKill (gOfficepath + "user\work\writer_to_writer_field.odt", "writer8")
-            sleep (2) 'Wait 500
-            printlog " + Close saved document "
-            Call hCloseDocument
-            printlog " + Reopen saved document "
-            if hFileOpen (gOfficepath + "user\work\writer_to_writer_field.odt",true) = false then
-                Kontext "Active"
-                if Active.Exists then
-                    try
-                        Active.Yes
-                    catch
-                        Warnlog "Unable to remove checkbox: " + Active.Gettext
-                        Active.ok
-                    endcatch
-                end if
-            end if
-            printlog " + Close saved document "
-            Call hCloseDocument
-        else
-            Warnlog "Dialog 'Paste Special' is not up!"
-            Call hCloseDocument
-            goto endsub
-        end if
-    else
-        Warnlog "Writer To Writer -> 'Field' failed !"
-    end if
-    printlog "  Close active document "
-    Do Until GetDocumentCount = 0
-        Call hCloseDocument
-    Loop
-endcase
-
-' ----------------------------------------------------------------------------------------------
-
-testcase WriterToWriterTable
-    gApplication = "WRITER"
-    printlog "  Open File '..\\writer\\optional\\input\\clipboard\\writer.sxw' "
-    printlog " + Jump to beginning of document "
-    printlog " + Select 'Table' "
-    printlog " + Copy selected table "
-    printlog " + Open new document "
-    if wSetClipboardtestDefaults("table") = True then
-        Call hNewDocument
-        printlog " + Edit / Paste Special "
-        EditPasteSpecialWriter
-        sleep (1) 'Wait 500
-        printlog "  Paste 'Table' in all available clipboard formats "
-        Kontext "InhaltEinfuegen"
-        if InhaltEinfuegen.Exists then
-            printlog " + Write Clipboard format under pasted content "
-            Call wPasteAvailableClipboardFormats(Auswahl.GetItemCount,"table")
-            printlog " + Save document as ..\user\work\writer_to_writer_table.odt"
-            Call hFileSaveAsWithFilterKill (gOfficepath + "user\work\writer_to_writer_table.odt", "writer8")
-            Wait 500
-            printlog " + Close saved document "
-            Call hCloseDocument
-            printlog " + Reopen saved document "
-            if hFileOpen (gOfficepath + "user\work\writer_to_writer_table.odt",true) = false then
-                Kontext "Active"
-                if Active.Exists then
-                    try
-                        Active.Yes
-                    catch
-                        Warnlog "Unable to remove checkbox: " + Active.Gettext
-                        Active.ok
-                    endcatch
-                end if
-            end if
-            printlog " + Close saved document "
-            Call hCloseDocument
-        else
-            Warnlog "Dialog 'Paste Special' is not up!"
-            Call hCloseDocument
-            goto endsub
-        end if
-    else
-        Warnlog "Writer To Writer -> 'Table' failed !"
-    end if
-    printlog "  Close active document "
-    Do Until GetDocumentCount = 0
-        Call hCloseDocument
-    Loop
-endcase
-
-' ----------------------------------------------------------------------------------------------
-
-testcase WriterToWriterFrame
-    gApplication = "WRITER"
-    printlog "  Open File '..\\writer\\optional\\input\\clipboard\\writer.sxw' "
-    printlog " + Jump to beginning of document "
-    printlog " + Select 'Frame' "
-    printlog " + Copy selected frame "
-    printlog " + Open new document "
-    if wSetClipboardtestDefaults("frame") = True then
-        Call hNewDocument
-        printlog " + Edit / Paste Special "
-        EditPasteSpecialWriter
-        sleep (1) 'Wait 500
-        printlog "  Paste 'Table' in all available clipboard formats "
-        Kontext "InhaltEinfuegen"
-        if InhaltEinfuegen.Exists then
-            printlog " + Write Clipboard format under pasted content "
-            Call wPasteAvailableClipboardFormats(Auswahl.GetItemCount,"frame")
-            printlog " + Save document as ..\user\work\writer_to_writer_frame.odt"
-            Call hFileSaveAsWithFilterKill (gOfficepath + "user\work\writer_to_writer_frame.odt", "writer8")
-            WaitSlot (2000)
-            printlog " + Close saved document "
-            Call hCloseDocument
-            printlog " + Reopen saved document "
-            hFileOpen( gOfficepath + "user\work\writer_to_writer_frame.odt",false)
-            printlog " + Close saved document "
-            Call hCloseDocument
-        else
-            Warnlog "Dialog 'Paste Special' is not up!"
-            Call hCloseDocument
-            goto endsub
-        end if
-    else
-        Warnlog "Writer To Writer -> 'Frame' failed !"
-    end if
-    printlog "  Close active document "
-    Do Until GetDocumentCount = 0
-        Call hCloseDocument
-    Loop
-endcase
-
-' ----------------------------------------------------------------------------------------------
-
-testcase WriterToWriterDrawingObject
-    gApplication = "WRITER"
-    printlog "  Open File '..\\writer\\optional\\input\\clipboard\\writer.sxw' "
-    printlog " + Jump to beginning of document "
-    printlog " + Select 'Drawing Object' "
-    printlog " + Copy selected Drawing Object "
-    printlog " + Open new document "
-    if wSetClipboardtestDefaults("DRAW") = True then
-        Call hNewDocument
-        printlog " + Edit / Paste Special "
-        EditPasteSpecialWriter
-        Wait 500
-        printlog "  Paste 'Table' in all available clipboard formats "
-        Kontext "InhaltEinfuegen"
-        if InhaltEinfuegen.Exists then
-            printlog " + Write Clipboard format under pasted content "
-            Call wPasteAvailableClipboardFormats(Auswahl.GetItemCount,"DRAW")
-            printlog " + Save document as ..\user\work\writer_to_writer_draw.odt"
-            Call hFileSaveAsWithFilterKill (gOfficepath + "user\work\writer_to_writer_draw.odt", "writer8")
-            WaitSlot (2000)
-            printlog " + Close saved document "
-            Call hCloseDocument
-            printlog " + Reopen saved document "
-            hFileOpen( gOfficepath + "user\work\writer_to_writer_draw.odt",false)
-            printlog " + Close saved document "
-            Call hCloseDocument
-        else
-            Warnlog "Dialog 'Paste Special' is not up!"
-            Call hCloseDocument
-            goto endsub
-        end if
-    else
-       Warnlog "Writer To Writer -> 'Drawing Object' failed !"
-    end if
-    printlog "  Close active document "
-    Do Until GetDocumentCount = 0
-        Call hCloseDocument
-    Loop
-endcase
-
-' ----------------------------------------------------------------------------------------------
-
-testcase WriterToWriterGraphicLinked
-    gApplication = "WRITER"
-    printlog "  Open File '..\\writer\\optional\\input\\clipboard\\writer.sxw' "
-    printlog " + Jump to beginning of document "
-    printlog " + Select 'Linked Graphic' "
-    printlog " + Copy selected Linked Graphic "
-    printlog " + Open new document "
-    if wSetClipboardtestDefaults("graphicL") = True then
-        Call hNewDocument
-        printlog " + Edit / Paste Special "
-        EditPasteSpecialWriter
-        WaitSlot (2000)
-        printlog "  Paste 'Linked Graphic' in all available clipboard formats "
-        Kontext "InhaltEinfuegen"
-        if InhaltEinfuegen.Exists then
-            printlog " + Write Clipboard format under pasted content "
-            Call wPasteAvailableClipboardFormats(Auswahl.GetItemCount,"graphicL")
-            printlog " + Save document as ..\user\work\writer_to_writer_graphic1.odt"
-            Call hFileSaveAsWithFilterKill (gOfficepath + "user\work\writer_to_writer_graphic1.odt", "writer8")
-            Wait 500
-            printlog " + Close saved document "
-            Call hCloseDocument
-            printlog " + Reopen saved document "
-            hFileOpen( gOfficepath + "user\work\writer_to_writer_graphic1.odt",false)
-            printlog " + Close saved document "
-            Call hCloseDocument
-        else
-            Warnlog "Dialog 'Paste Special' is not up!"
-            Call hCloseDocument
-            goto endsub
-        end if
-    else
-        Warnlog "Writer To Writer -> 'Linked Graphic' failed !"
-    end if
-    printlog "  Close active document "
-    Do Until GetDocumentCount = 0
-        Call hCloseDocument
-    Loop
-endcase
-
-' ----------------------------------------------------------------------------------------------
-
-testcase WriterToWriterGraphicEmbedded
-    gApplication = "WRITER"
-    printlog "  Open File '..\\writer\\optional\\input\\clipboard\\writer.sxw' "
-    printlog " + Jump to beginning of document "
-    printlog " + Select 'Embedded Graphic' "
-    printlog " + Copy selected Embedded Graphic "
-    printlog " + Open new document "
-    if wSetClipboardtestDefaults("graphicE") = True then
-        Call hNewDocument
-        printlog " + Edit / Paste Special "
-        EditPasteSpecialWriter
-        Wait 500
-        printlog "  Paste 'Embedded Graphic' in all available clipboard formats "
-        Kontext "InhaltEinfuegen"
-        if InhaltEinfuegen.Exists then
-            Call wPasteAvailableClipboardFormats(Auswahl.GetItemCount,"graphicE")
-            printlog " + Write Clipboard format under pasted content "
-            Call hFileSaveAsWithFilterKill (gOfficepath + "user\work\writer_to_writer_graphic2.odt", "writer8")
-            printlog " + Save document as ..\user\work\writer_to_writer_graphic2.odt"
-            WaitSlot (2000)
-            printlog " + Close saved document "
-            Call hCloseDocument
-            printlog " + Reopen saved document "
-            hFileOpen( gOfficepath + "user\work\writer_to_writer_graphic2.odt",false)
-            printlog " + Close saved document "
-            Call hCloseDocument
-        else
-            Warnlog "Dialog 'Paste Special' is not up!"
-            Call hCloseDocument
-            goto endsub
-        end if
-    else
-        Warnlog "Writer To Writer -> 'Embedded Graphic' failed !"
-    end if
-    printlog "  Close active document "
-    Do Until GetDocumentCount = 0
-        Call hCloseDocument
-    Loop
-endcase
-
-' ----------------------------------------------------------------------------------------------
-
-testcase WriterToWriterOLEObject
-    gApplication = "WRITER"
-    printlog "  Open File '..\\writer\\optional\\input\\clipboard\\writer.sxw' "
-    printlog " + Jump to beginning of document "
-    printlog " + Select 'OLE Object' "
-    printlog " + Copy selected OLE Object "
-    printlog " + Open new document "
-    if wSetClipboardtestDefaults("ole") = True then
-        Call hNewDocument
-        printlog " + Edit / Paste Special "
-        EditPasteSpecialWriter
-        Wait 500
-        printlog "  Paste 'OLE object' in all available clipboard formats "
-        Kontext "InhaltEinfuegen"
-        if InhaltEinfuegen.Exists then
-            printlog " + Write Clipboard format under pasted content "
-            Call wPasteAvailableClipboardFormats(Auswahl.GetItemCount,"ole")
-            printlog " + Save document as ..\user\work\writer_to_writer_ole.odt"
-            Call hFileSaveAsWithFilterKill (gOfficepath + "user\work\writer_to_writer_ole.odt", "writer8")
-            WaitSlot (2000)
-            printlog " + Close saved document "
-            Call hCloseDocument
-            printlog " + Reopen saved document "
-            hFileOpen( gOfficepath + "user\work\writer_to_writer_ole.odt",false)
-            printlog " + Close saved document "
-            Call hCloseDocument
-        else
-            Warnlog "Dialog 'Paste Special' is not up!"
-            Call hCloseDocument
-            goto endsub
-        end if
-    else
-        Warnlog "Writer To Writer -> 'OLE object' failed !"
-    end if
-    printlog "  Close active document "
-    Do Until GetDocumentCount = 0
-        Call hCloseDocument
-    Loop
-endcase
-
-' ----------------------------------------------------------------------------------------------
-
-testcase WriterToWriterControl
-    gApplication = "WRITER"
-    printlog "  Open File '..\\writer\\optional\\input\\clipboard\\writer.sxw' "
-    printlog " + Jump to beginning of document "
-    printlog " + Select 'Control' "
-    printlog " + Copy selected Control "
-    printlog " + Open new document "
-    if wSetClipboardtestDefaults("control") = True then
-        Call hNewDocument
-        printlog " + Edit / Paste Special "
-        EditPasteSpecialWriter
-        Wait 500
-        printlog "  Paste 'Control' in all available clipboard formats "
-        Kontext "InhaltEinfuegen"
-        if InhaltEinfuegen.Exists then
-            printlog " + Write Clipboard format under pasted content "
-            Call wPasteAvailableClipboardFormats(Auswahl.GetItemCount,"control")
-            printlog " + Save document as ..\user\work\writer_to_writer_control.odt"
-            Call hFileSaveAsWithFilterKill(gOfficepath & "user\work\writer_to_writer_control.odt", "writer8")
-            WaitSlot (2000)
-            printlog " + Close saved document "
-            Call hCloseDocument
-            printlog " + Reopen saved document "
-            hFileOpen( gOfficepath + "user\work\writer_to_writer_control.odt",false)
-            printlog " + Close saved document "
-            Call hCloseDocument
-        else
-            Warnlog "Dialog 'Paste Special' is not up!"
-            Call hCloseDocument
-            goto endsub
-        end if
-    else
-        Warnlog "Writer To Writer -> 'Control' failed !"
-    end if
-    printlog "  Close active document "
-    Do Until GetDocumentCount = 0
-        Call hCloseDocument
-    Loop
-endcase
-
-' ----------------------------------------------------------------------------------------------
diff --git a/testautomation/writer/optional/includes/clipboard/w_211_.inc b/testautomation/writer/optional/includes/clipboard/w_211_.inc
deleted file mode 100644
index 7c4476eccc92..000000000000
--- a/testautomation/writer/optional/includes/clipboard/w_211_.inc
+++ /dev/null
@@ -1,540 +0,0 @@
-'**************************************************************************
-' 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 : helge.delfs@oracle.com
-'*
-'* short description : CROSS-APPLICATIONS CLIPBOARD TEST (Writer)
-'*
-'\***********************************************************************
-
-sub w_211_
-
-    Call WriterToCalcText
-    Call WriterToCalcField
-    Call WriterToCalcTable
-    Call WriterToCalcFrame
-    Call WriterToCalcDrawingObject
-    Call WriterToCalcGraphicLinked  'wrn:1
-    Call WriterToCalcGraphicEmbedded
-    Call WriterToCalcOLEObject
-    Call WriterToCalcControl
-
-end sub
-
-' ---------------------------------------------------------------------------------
-
-testcase WriterToCalcText
-    gApplication = "WRITER"
-    printlog "  Open File '..\\writer\\optional\\input\\clipboard\\writer.sxw' "
-    printlog "  Jump to beginning of document "
-    printlog "  Select first paragraph "
-    printlog "  Copy selected text "
-    if wSetClipboardtestDefaults("text") = True then
-        gApplication = "CALC"
-        printlog "  Open new document "
-        Call hNewDocument
-        printlog "  Edit / Paste Special "
-        Sleep 2
-        try
-            EditPasteSpecialCalc
-        catch
-            Warnlog "Unable to execute 'Edit / Paste / Special' -> Disabled !"
-            Call hCloseDocument
-            wait 500
-            Call hCloseDocument
-            goto endsub
-        endcatch
-        Wait 500
-        printlog "  Paste 'Text' in all available clipboard formats "
-        Kontext "InhaltEinfuegen"
-        if InhaltEinfuegen.Exists then
-            Call wPasteAvailableClipboardFormats(Auswahl.GetItemCount,"text")
-            printlog "  Write Clipboard format under pasted content "
-            Call hFileSaveAsWithFilterKill (gOfficepath + "user\work\writer_to_calc_text.ods", "calc8")
-            printlog "  Save document as ..\user\work\writer_to_calc_text.ods"
-            Wait 500
-            Call hCloseDocument
-            printlog "  Close saved document "
-            wait 500
-            hFileOpen( gOfficepath + "user\work\writer_to_calc_text.ods",true)
-            printlog "  Reopen saved document "
-            Wait 500
-            Call hCloseDocument
-            printlog "  Close saved document "
-        else
-            Warnlog "Dialog 'Paste Special' is not up!"
-            Call hCloseDocument
-            goto endsub
-        end if
-    else
-        Warnlog "Writer To Calc -> 'Text' failed !"
-    end if
-    printlog "  Close active document "
-    Do Until GetDocumentCount = 0
-        Call hCloseDocument
-    Loop
-endcase
-
-' ----------------------------------------------------------------------------------------------
-
-testcase WriterToCalcField
-    gApplication = "WRITER"
-    printlog "  Open File '..\\writer\\optional\\input\\clipboard\\writer.sxw' "
-    printlog "  Jump to beginning of document "
-    printlog "  Select paragraph with 'Date Field' "
-    printlog "  Copy selected text "
-    if wSetClipboardtestDefaults("field") = True then
-        gApplication = "CALC"
-        printlog "  Open new document "
-        Call hNewDocument
-        printlog "  Edit / Paste Special "
-        Sleep 2
-        try
-            EditPasteSpecialCalc
-        catch
-            Warnlog "Unable to execute 'Edit / Paste / Special' -> Disabled !"
-            Call hCloseDocument
-            wait 500
-            Call hCloseDocument
-            goto endsub
-        endcatch
-        Wait 500
-        printlog "  Paste 'Field' in all available clipboard formats "
-        Kontext "InhaltEinfuegen"
-        if InhaltEinfuegen.Exists then
-            Call wPasteAvailableClipboardFormats(Auswahl.GetItemCount,"field")
-            printlog "  Write Clipboard format under pasted content "
-            Call hFileSaveAsWithFilterKill (gOfficepath + "user\work\writer_to_calc_field.ods", "calc8")
-            printlog "  Save document as ..\user\work\writer_to_calc_field.ods"
-            Wait 500
-            Call hCloseDocument
-            printlog "  Close saved document "
-            wait 500
-            hFileOpen( gOfficepath + "user\work\writer_to_calc_field.ods",true)
-            printlog "  Reopen saved document "
-            Wait 500
-            Call hCloseDocument
-            printlog "  Close saved document "
-        else
-            Warnlog "Dialog 'Paste Special' is not up!"
-            Call hCloseDocument
-            goto endsub
-        end if
-    else
-        Warnlog "Writer To Calc -> 'Field' failed !"
-    end if
-    printlog "  Close active document "
-    Do Until GetDocumentCount = 0
-        Call hCloseDocument
-    Loop
-endcase
-
-' ----------------------------------------------------------------------------------------------
-
-testcase WriterToCalcTable
-    gApplication = "WRITER"
-    printlog "  Open File '..\\writer\\optional\\input\\clipboard\\writer.sxw' "
-    printlog "  Jump to beginning of document "
-    printlog "  Select 'Table' "
-    printlog "  Copy selected table "
-    if wSetClipboardtestDefaults("table") = True then
-        gApplication = "CALC"
-        printlog "  Open new document "
-        Call hNewDocument
-        printlog "  Edit / Paste Special "
-        Sleep 2
-        try
-            EditPasteSpecialCalc
-        catch
-            Warnlog "Unable to execute 'Edit / Paste / Special' -> Disabled !"
-            Call hCloseDocument
-            wait 500
-            goto endsub
-        endcatch
-        Wait 500
-        printlog "  Paste 'Table' in all available clipboard formats "
-        Kontext "InhaltEinfuegen"
-        if InhaltEinfuegen.Exists then
-            Call wPasteAvailableClipboardFormats(Auswahl.GetItemCount,"table")
-            kontext "navigator"
-            if navigator.exists then navigator.close
-            printlog "  Write Clipboard format under pasted content "
-
-            Call hFileSaveAsWithFilterKill (gOfficepath + "user\work\writer_to_calc_table.ods", "calc8")
-            printlog "  Save document as ..\user\work\writer_to_calc_table.ods"
-            Wait 500
-            printlog "  Close saved document "
-            Call hCloseDocument
-            wait 500
-            kontext "navigator"
-            if navigator.exists then navigator.close
-
-            hFileOpen( gOfficepath + "user\work\writer_to_calc_table.ods",false)
-            printlog "  Reopen saved document "
-            Wait 500
-            Call hCloseDocument
-            printlog "  Close saved document "
-            kontext "navigator"
-            if navigator.exists then navigator.close
-        else
-            Warnlog "Dialog 'Paste Special' is not up!"
-            Call hCloseDocument
-            goto endsub
-        end if
-    else
-        Warnlog "Writer To Calc -> 'Table' failed !"
-    end if
-    printlog "  Close active document "
-    Do Until GetDocumentCount = 0
-        Call hCloseDocument
-    Loop
-endcase
-
-' ----------------------------------------------------------------------------------------------
-
-testcase WriterToCalcFrame
-    gApplication = "WRITER"
-    printlog "  Open File '..\\writer\\optional\\input\\clipboard\\writer.sxw' "
-    printlog "  Jump to beginning of document "
-    printlog "  Select 'Frame' "
-    printlog "  Copy selected frame "
-    if wSetClipboardtestDefaults("frame") = True then
-        gApplication = "CALC"
-        printlog "  Open new document "
-        Call hNewDocument
-        printlog "  Edit / Paste Special "
-        Sleep 2
-        try
-            EditPasteSpecialCalc
-        catch
-            Warnlog "Unable to execute 'Edit / Paste / Special' -> Disabled !"
-            Call hCloseDocument
-            wait 500
-            Call hCloseDocument
-            goto endsub
-        endcatch
-        Wait 500
-        printlog "  Paste 'Table' in all available clipboard formats "
-        Kontext "InhaltEinfuegen"
-        if InhaltEinfuegen.Exists then
-            Call wPasteAvailableClipboardFormats(Auswahl.GetItemCount,"frame")
-            printlog "  Write Clipboard format under pasted content "
-            Call hFileSaveAsWithFilterKill (gOfficepath + "user\work\writer_to_calc_frame.ods", "calc8")
-            printlog "  Save document as ..\user\work\writer_to_calc_frame.ods"
-            Wait 500
-            Call hCloseDocument
-            printlog "  Close saved document "
-            wait 500
-            hFileOpen( gOfficepath + "user\work\writer_to_calc_frame.ods",false)
-            printlog "  Reopen saved document "
-            Wait 500
-            Call hCloseDocument
-            printlog "  Close saved document "
-        else
-            Warnlog "Dialog 'Paste Special' is not up!"
-            Call hCloseDocument
-            goto endsub
-        end if
-    else
-        Warnlog "Writer To Calc -> 'Frame' failed !"
-    end if
-    printlog "  Close active document "
-    Do Until GetDocumentCount = 0
-        Call hCloseDocument
-    Loop
-endcase
-
-' ----------------------------------------------------------------------------------------------
-
-testcase WriterToCalcDrawingObject
-    gApplication = "WRITER"
-    printlog "  Open File '..\\writer\\optional\\input\\clipboard\\writer.sxw' "
-    printlog "  Jump to beginning of document "
-    printlog "  Select 'Drawing Object' "
-    printlog "  Copy selected Drawing Object "
-    if wSetClipboardtestDefaults("DRAW") = True then
-        gApplication = "CALC"
-        printlog "  Open new document "
-        Call hNewDocument
-        printlog "  Edit / Paste Special "
-        Sleep 2
-        try
-            EditPasteSpecialCalc
-        catch
-            Warnlog "Unable to execute 'Edit / Paste / Special' -> Disabled !"
-            Call hCloseDocument
-            wait 500
-            Call hCloseDocument
-            goto endsub
-        endcatch
-        Wait 500
-        printlog "  Paste 'Table' in all available clipboard formats "
-        Kontext "InhaltEinfuegen"
-        if InhaltEinfuegen.Exists then
-            Call wPasteAvailableClipboardFormats(Auswahl.GetItemCount,"DRAW")
-            printlog "  Write Clipboard format under pasted content "
-            Call hFileSaveAsWithFilterKill (gOfficepath + "user\work\writer_to_calc_draw.ods", "calc8")
-            printlog "  Save document as ..\user\work\writer_to_calc_draw.ods"
-            Wait 500
-            Call hCloseDocument
-            printlog "  Close saved document "
-            wait 500
-            hFileOpen( gOfficepath + "user\work\writer_to_calc_draw.ods",false)
-            printlog "  Reopen saved document "
-            Wait 500
-            Call hCloseDocument
-            printlog "  Close saved document "
-        else
-            Warnlog "Dialog 'Paste Special' is not up!"
-            Call hCloseDocument
-            goto endsub
-        end if
-    else
-        Warnlog "Writer To Calc -> 'Drawing Object' failed !"
-    end if
-    printlog "  Close active document "
-    Do Until GetDocumentCount = 0
-        Call hCloseDocument
-    Loop
-endcase
-
-' ----------------------------------------------------------------------------------------------
-
-testcase WriterToCalcGraphicLinked
-    EnableQaErrors = true
-    gApplication = "WRITER"
-    printlog "  Open File '..\\writer\\optional\\input\\clipboard\\writer.sxw' "
-    printlog "  Jump to beginning of document "
-    printlog "  Select 'Linked Graphic' "
-    printlog "  Copy selected Linked Graphic "
-    if wSetClipboardtestDefaults("graphicL") = True then
-        gApplication = "CALC"
-        printlog "  Open new document "
-        Call hNewDocument
-        printlog "  Edit / Paste Special "
-        Sleep 2
-        try
-            EditPasteSpecialCalc
-        catch
-            warnlog "Check why linked graphic fails !"
-            Call hCloseDocument
-            wait 500
-            Call hCloseDocument
-            goto endsub
-        endcatch
-        Wait 500
-        printlog "  Paste 'Linked Graphic' in all available clipboard formats "
-        Kontext "InhaltEinfuegen"
-        if InhaltEinfuegen.Exists then
-            Call wPasteAvailableClipboardFormats(Auswahl.GetItemCount,"graphicL")
-            printlog "  Write Clipboard format under pasted content "
-            Call hFileSaveAsWithFilterKill (gOfficepath + "user\work\writer_to_calc_graphic1.ods", "calc8")
-            printlog "  Save document as ..\user\work\writer_to_calc_graphic1.ods"
-            Wait 500
-            Call hCloseDocument
-            printlog "  Close saved document "
-            wait 500
-            hFileOpen( gOfficepath + "user\work\writer_to_calc_graphic1.ods",false)
-            printlog "  Reopen saved document "
-            Wait 500
-            Call hCloseDocument
-            printlog "  Close saved document "
-        else
-            Warnlog "Dialog 'Paste Special' is not up!"
-            Call hCloseDocument
-            goto endsub
-        end if
-    else
-        Warnlog "Writer To Calc -> 'Linked Graphic' failed !"
-    end if
-    printlog "  Close active document "
-    Do Until GetDocumentCount = 0
-        Call hCloseDocument
-    Loop
-    EnableQaErrors = false
-endcase
-
-' ----------------------------------------------------------------------------------------------
-
-testcase WriterToCalcGraphicEmbedded
-    gApplication = "WRITER"
-    printlog "  Open File '..\\writer\\optional\\input\\clipboard\\writer.sxw' "
-    printlog "  Jump to beginning of document "
-    printlog "  Select 'Embedded Graphic' "
-    printlog "  Copy selected Embedded Graphic "
-    if wSetClipboardtestDefaults("graphicE") = True then
-        gApplication = "CALC"
-        printlog "  Open new document "
-        Call hNewDocument
-        printlog "  Edit / Paste Special "
-        Sleep 2
-        try
-            EditPasteSpecialCalc
-        catch
-            Warnlog "Unable to execute 'Edit / Paste / Special' -> Disabled !"
-            Call hCloseDocument
-            wait 500
-            Call hCloseDocument
-            goto endsub
-        endcatch
-        Wait 500
-        printlog "  Paste 'Embedded Graphic' in all available clipboard formats "
-        Kontext "InhaltEinfuegen"
-        if InhaltEinfuegen.Exists then
-            Call wPasteAvailableClipboardFormats(Auswahl.GetItemCount,"graphicE")
-            printlog "  Write Clipboard format under pasted content "
-            Call hFileSaveAsWithFilterKill (gOfficepath + "user\work\writer_to_calc_graphic2.ods", "calc8")
-            printlog "  Save document as ..\user\work\writer_to_calc_graphic2.ods"
-            Wait 500
-            Call hCloseDocument
-            printlog "  Close saved document "
-            wait 500
-            hFileOpen( gOfficepath + "user\work\writer_to_calc_graphic2.ods",false)
-            printlog "  Reopen saved document "
-            Wait 500
-            Call hCloseDocument
-            printlog "  Close saved document "
-        else
-            Warnlog "Dialog 'Paste Special' is not up!"
-            Call hCloseDocument
-            goto endsub
-        end if
-    else
-        Warnlog "Writer To Calc -> 'Embedded Graphic' failed !"
-    end if
-    printlog "  Close active document "
-    Do Until GetDocumentCount = 0
-        Call hCloseDocument
-    Loop
-endcase
-
-' ----------------------------------------------------------------------------------------------
-
-testcase WriterToCalcOLEObject
-    gApplication = "WRITER"
-    printlog "  Open File '..\\writer\\optional\\input\\clipboard\\writer.sxw' "
-    printlog "  Jump to beginning of document "
-    printlog "  Select 'OLE Object' "
-    printlog "  Copy selected OLE Object "
-    if wSetClipboardtestDefaults("ole") = True then
-        gApplication = "CALC"
-        printlog "  Open new document "
-        Call hNewDocument
-        printlog "  Edit / Paste Special "
-        Sleep 2
-        try
-            EditPasteSpecialCalc
-        catch
-            Warnlog "Unable to execute 'Edit / Paste / Special' -> Disabled !"
-            Call hCloseDocument
-            wait 500
-            Call hCloseDocument
-            goto endsub
-        endcatch
-        Wait 500
-        printlog "  Paste 'OLE object' in all available clipboard formats "
-        Kontext "InhaltEinfuegen"
-        if InhaltEinfuegen.Exists then
-            Call wPasteAvailableClipboardFormats(Auswahl.GetItemCount,"ole")
-            printlog "  Write Clipboard format under pasted content "
-            Call hFileSaveAsWithFilterKill (gOfficepath + "user\work\writer_to_calc_ole.ods", "calc8")
-            printlog "  Save document as ..\user\work\writer_to_calc_ole.ods"
-            Wait 500
-            Call hCloseDocument
-            printlog "  Close saved document "
-            wait 500
-            hFileOpen( gOfficepath + "user\work\writer_to_calc_ole.ods",false)
-            printlog "  Reopen saved document "
-            Wait 500
-            Call hCloseDocument
-            printlog "  Close saved document "
-        else
-            Warnlog "Dialog 'Paste Special' is not up!"
-            Call hCloseDocument
-            goto endsub
-        end if
-    else
-        Warnlog "Writer To Calc -> 'OLE object' failed !"
-    end if
-    printlog "  Close active document "
-    Do Until GetDocumentCount = 0
-        Call hCloseDocument
-    Loop
-endcase
-
-' ----------------------------------------------------------------------------------------------
-
-testcase WriterToCalcControl
-    gApplication = "WRITER"
-    printlog "  Open File '..\\writer\\optional\\input\\clipboard\\writer.sxw' "
-    printlog "  Jump to beginning of document "
-    printlog "  Select 'Control' "
-    printlog "  Copy selected Control "
-    if wSetClipboardtestDefaults("control") = True then
-        gApplication = "CALC"
-        printlog "  Open new document "
-        Call hNewDocument
-        printlog "  Edit / Paste Special "
-        Sleep 2
-        try
-            EditPasteSpecialCalc
-        catch
-            Warnlog "Unable to execute 'Edit / Paste / Special' -> Disabled !"
-            Call hCloseDocument
-            wait 500
-            Call hCloseDocument
-            goto endsub
-        endcatch
-        Wait 500
-        printlog "  Paste 'Control' in all available clipboard formats "
-        Kontext "InhaltEinfuegen"
-        if InhaltEinfuegen.Exists then
-            Call wPasteAvailableClipboardFormats(Auswahl.GetItemCount,"control")
-            printlog "  Write Clipboard format under pasted content "
-            Call hFileSaveAsWithFilterKill (gOfficepath + "user\work\writer_to_calc_control.ods", "calc8")
-            printlog "  Save document as ..\user\work\writer_to_calc_control.ods"
-            Wait 500
-            Call hCloseDocument
-            printlog "  Close saved document "
-            wait 500
-            hFileOpen( gOfficepath + "user\work\writer_to_calc_control.ods",false)
-            printlog "  Reopen saved document "
-            Wait 500
-            Call hCloseDocument
-            printlog "  Close saved document "
-        else
-            Warnlog "Dialog 'Paste Special' is not up!"
-            Call hCloseDocument
-            goto endsub
-        end if
-    else
-        Warnlog "Writer To Calc -> 'Control' failed !"
-    end if
-    printlog "  Close active document "
-    Do Until GetDocumentCount = 0
-        Call hCloseDocument
-    Loop
-endcase
diff --git a/testautomation/writer/optional/includes/clipboard/w_212_.inc b/testautomation/writer/optional/includes/clipboard/w_212_.inc
deleted file mode 100644
index 277a837d42bd..000000000000
--- a/testautomation/writer/optional/includes/clipboard/w_212_.inc
+++ /dev/null
@@ -1,532 +0,0 @@
-'**************************************************************************
-' 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 : helge.delfs@oracle.com
-'*
-'* short description : CROSS-APPLICATIONS CLIPBOARD TEST (Writer)
-'*
-'\***********************************************************************
-
-sub w_212_
-
-    Call wDisableImpressAutopilot
-    Call WriterToImpressText
-    Call WriterToImpressField
-    Call WriterToImpressTable
-    Call WriterToImpressFrame
-    Call WriterToImpressDrawingObject
-    Call WriterToImpressGraphicLinked
-    Call WriterToImpressGraphicEmbedded
-    Call WriterToImpressOLEObject
-    Call WriterToImpressControl
-
-end sub
-
-' ---------------------------------------------------------------------------------
-
-testcase WriterToImpressText
-    gApplication = "WRITER"
-    printlog " Open File '..\\writer\\optional\\input\\clipboard\\writer.sxw' "
-    printlog " Jump to beginning of document "
-    printlog " Select first paragraph "
-    printlog " Copy selected text "
-    if wSetClipboardtestDefaults("text") = True then
-        gApplication = "IMPRESS"
-        printlog " Open new document "
-        Call hNewDocument
-        printlog " Edit / Paste Special "
-        Sleep 2
-        try
-            EditPasteSpecial
-        catch
-            Warnlog "Unable to execute 'Edit / Paste / Special' -> Disabled !"
-            Call hCloseDocument
-            wait 500
-            Call hCloseDocument
-            goto endsub
-        endcatch
-        Wait 500
-        printlog " Paste 'Text' in all available clipboard formats "
-        Kontext "InhaltEinfuegen"
-        if InhaltEinfuegen.Exists then
-            Call wPasteAvailableClipboardFormats(Auswahl.GetItemCount,"text")
-            printlog " Write Clipboard format under pasted content "
-            Call hFileSaveAsWithFilterKill (gOfficepath + "user\work\writer_to_impress_text.odp", "impress8")
-            printlog " Save document as ..\user\work\writer_to_impress_text.odp"
-            Wait 500
-            Call hCloseDocument
-            printlog " Close saved document "
-            wait 500
-            hFileOpen( gOfficepath + "user\work\writer_to_impress_text.odp",false)
-            printlog " Reopen saved document "
-            Wait 500
-            Call hCloseDocument
-            printlog " Close saved document "
-        else
-            Warnlog "Dialog 'Paste Special' is not up!"
-            Call hCloseDocument
-            goto endsub
-        end if
-    else
-        Warnlog "Writer To Impress -> 'Text' failed !"
-    end if
-    printlog " Close active document "
-    Do Until GetDocumentCount = 0
-        Call hCloseDocument
-    Loop
-endcase
-
-' ----------------------------------------------------------------------------------------------
-
-testcase WriterToImpressField
-    gApplication = "WRITER"
-    printlog " Open File '..\\writer\\optional\\input\\clipboard\\writer.sxw' "
-    printlog " Jump to beginning of document "
-    printlog " Select paragraph with 'Date Field' "
-    printlog " Copy selected text "
-    if wSetClipboardtestDefaults("field") = True then
-        gApplication = "IMPRESS"
-        printlog " Open new document "
-        Call hNewDocument
-        printlog " Edit / Paste Special "
-        Sleep 2
-        try
-            EditPasteSpecial
-        catch
-            Warnlog "Unable to execute 'Edit / Paste / Special' -> Disabled !"
-            Call hCloseDocument
-            wait 500
-            Call hCloseDocument
-            goto endsub
-        endcatch
-        Wait 500
-        printlog " Paste 'Field' in all available clipboard formats "
-        Kontext "InhaltEinfuegen"
-        if InhaltEinfuegen.Exists then
-            Call wPasteAvailableClipboardFormats(Auswahl.GetItemCount,"field")
-            printlog " Write Clipboard format under pasted content "
-            Call hFileSaveAsWithFilterKill (gOfficepath + "user\work\writer_to_impress_field.odp", "impress8")
-            printlog " Save document as ..\user\work\writer_to_impress_field.odp"
-            Wait 500
-            Call hCloseDocument
-            printlog " Close saved document "
-            wait 500
-            hFileOpen( gOfficepath + "user\work\writer_to_impress_field.odp",false)
-            printlog " Reopen saved document "
-            Wait 500
-            Call hCloseDocument
-            printlog " Close saved document "
-        else
-            Warnlog "Dialog 'Paste Special' is not up!"
-            Call hCloseDocument
-            goto endsub
-        end if
-    else
-        Warnlog "Writer To Impress -> 'Field' failed !"
-    end if
-    printlog " Close active document "
-    Do Until GetDocumentCount = 0
-        Call hCloseDocument
-    Loop
-endcase
-
-' ----------------------------------------------------------------------------------------------
-
-testcase WriterToImpressTable
-    gApplication = "WRITER"
-    printlog " Open File '..\\writer\\optional\\input\\clipboard\\writer.sxw' "
-    printlog " Jump to beginning of document "
-    printlog " Select 'Table' "
-    printlog " Copy selected table "
-    if wSetClipboardtestDefaults("table") = True then
-        gApplication = "IMPRESS"
-        printlog " Open new document "
-        Call hNewDocument
-        printlog " Edit / Paste Special "
-        Sleep 2
-        try
-            EditPasteSpecial
-        catch
-            Warnlog "Unable to execute 'Edit / Paste / Special' -> Disabled !"
-            Call hCloseDocument
-            wait 500
-            Call hCloseDocument
-            goto endsub
-        endcatch
-        Wait 500
-        printlog " Paste 'Table' in all available clipboard formats "
-        Kontext "InhaltEinfuegen"
-        if InhaltEinfuegen.Exists then
-            Call wPasteAvailableClipboardFormats(Auswahl.GetItemCount,"table")
-            printlog " Write Clipboard format under pasted content "
-            Call hFileSaveAsWithFilterKill (gOfficepath + "user\work\writer_to_impress_table.odp", "impress8")
-            printlog " Save document as ..\user\work\writer_to_impress_table.odp"
-            Wait 500
-            Call hCloseDocument
-            printlog " Close saved document "
-            wait 500
-            hFileOpen( gOfficepath + "user\work\writer_to_impress_table.odp",false)
-            printlog " Reopen saved document "
-            Wait 500
-            Call hCloseDocument
-            printlog " Close saved document "
-        else
-            Warnlog "Dialog 'Paste Special' is not up!"
-            Call hCloseDocument
-            goto endsub
-        end if
-    else
-        Warnlog "Writer To Impress -> 'Table' failed !"
-    end if
-    printlog " Close active document "
-    Do Until GetDocumentCount = 0
-        Call hCloseDocument
-    Loop
-endcase
-
-' ----------------------------------------------------------------------------------------------
-
-testcase WriterToImpressFrame
-    gApplication = "WRITER"
-    printlog " Open File '..\\writer\\optional\\input\\clipboard\\writer.sxw' "
-    printlog " Jump to beginning of document "
-    printlog " Select 'Frame' "
-    printlog " Copy selected frame "
-    if wSetClipboardtestDefaults("frame") = True then
-        gApplication = "IMPRESS"
-        printlog " Open new document "
-        Call hNewDocument
-        printlog " Edit / Paste Special "
-        Sleep 2
-        try
-            EditPasteSpecial
-        catch
-            Warnlog "Unable to execute 'Edit / Paste / Special' -> Disabled !"
-            Call hCloseDocument
-            wait 500
-            Call hCloseDocument
-            goto endsub
-        endcatch
-        Wait 500
-        printlog " Paste 'Table' in all available clipboard formats "
-        Kontext "InhaltEinfuegen"
-        if InhaltEinfuegen.Exists then
-            Call wPasteAvailableClipboardFormats(Auswahl.GetItemCount,"frame")
-            printlog " Write Clipboard format under pasted content "
-            Call hFileSaveAsWithFilterKill (gOfficepath + "user\work\writer_to_impress_frame.odp", "impress8")
-            printlog " Save document as ..\user\work\writer_to_impress_frame.odp"
-            Wait 500
-            Call hCloseDocument
-            printlog " Close saved document "
-            wait 500
-            hFileOpen( gOfficepath + "user\work\writer_to_impress_frame.odp",false)
-            printlog " Reopen saved document "
-            Wait 500
-            Call hCloseDocument
-            printlog " Close saved document "
-        else
-            Warnlog "Dialog 'Paste Special' is not up!"
-            Call hCloseDocument
-            goto endsub
-        end if
-    else
-        Warnlog "Writer To Impress -> 'Frame' failed !"
-    end if
-    printlog " Close active document "
-    Do Until GetDocumentCount = 0
-        Call hCloseDocument
-    Loop
-endcase
-
-' ----------------------------------------------------------------------------------------------
-
-testcase WriterToImpressDrawingObject
-    gApplication = "WRITER"
-    printlog " Open File '..\\writer\\optional\\input\\clipboard\\writer.sxw' "
-    printlog " Jump to beginning of document "
-    printlog " Select 'Drawing Object' "
-    printlog " Copy selected Drawing Object "
-    if wSetClipboardtestDefaults("DRAW") = True then
-        gApplication = "IMPRESS"
-        printlog " Open new document "
-        Call hNewDocument
-        printlog " Edit / Paste Special "
-        Sleep 2
-        try
-            EditPasteSpecial
-        catch
-            Warnlog "Unable to execute 'Edit / Paste / Special' -> Disabled !"
-            Call hCloseDocument
-            wait 500
-            Call hCloseDocument
-            goto endsub
-        endcatch
-        Wait 500
-        printlog " Paste 'Table' in all available clipboard formats "
-        Kontext "InhaltEinfuegen"
-        if InhaltEinfuegen.Exists then
-            Call wPasteAvailableClipboardFormats(Auswahl.GetItemCount,"DRAW")
-            printlog " Write Clipboard format under pasted content "
-            Call hFileSaveAsWithFilterKill (gOfficepath + "user\work\writer_to_impress_draw.odp", "impress8")
-            printlog " Save document as ..\user\work\writer_to_impress_draw.odp"
-            Wait 500
-            Call hCloseDocument
-            printlog " Close saved document "
-            wait 500
-            hFileOpen( gOfficepath + "user\work\writer_to_impress_draw.odp",false)
-            printlog " Reopen saved document "
-            Wait 500
-            Call hCloseDocument
-            printlog " Close saved document "
-        else
-            Warnlog "Dialog 'Paste Special' is not up!"
-            Call hCloseDocument
-            goto endsub
-        end if
-    else
-        Warnlog "Writer To Impress -> 'Drawing Object' failed !"
-    end if
-    printlog " Close active document "
-    Do Until GetDocumentCount = 0
-        Call hCloseDocument
-    Loop
-endcase
-
-' ----------------------------------------------------------------------------------------------
-
-testcase WriterToImpressGraphicLinked
-    gApplication = "WRITER"
-    printlog " Open File '..\\writer\\optional\\input\\clipboard\\writer.sxw' "
-    printlog " Jump to beginning of document "
-    printlog " Select 'Linked Graphic' "
-    printlog " Copy selected Linked Graphic "
-    if wSetClipboardtestDefaults("graphicL") = True then
-        gApplication = "IMPRESS"
-        printlog " Open new document "
-        Call hNewDocument
-        printlog " Edit / Paste Special "
-        Sleep 2
-        try
-            EditPasteSpecial
-        catch
-            Warnlog "Unable to execute 'Edit / Paste / Special' -> Disabled !"
-            Call hCloseDocument
-            wait 500
-            Call hCloseDocument
-            goto endsub
-        endcatch
-        Wait 500
-        printlog " Paste 'Linked Graphic' in all available clipboard formats "
-        Kontext "InhaltEinfuegen"
-        if InhaltEinfuegen.Exists then
-            Call wPasteAvailableClipboardFormats(Auswahl.GetItemCount,"graphicL")
-            printlog " Write Clipboard format under pasted content "
-            Call hFileSaveAsWithFilterKill (gOfficepath + "user\work\writer_to_impress_graphic1.odp", "impress8")
-            printlog " Save document as ..\user\work\writer_to_impress_graphic1.odp"
-            Wait 500
-            Call hCloseDocument
-            printlog " Close saved document "
-            wait 500
-            hFileOpen( gOfficepath + "user\work\writer_to_impress_graphic1.odp",false)
-            printlog " Reopen saved document "
-            Wait 500
-            Call hCloseDocument
-            printlog " Close saved document "
-        else
-            Warnlog "Dialog 'Paste Special' is not up!"
-            Call hCloseDocument
-            goto endsub
-        end if
-    else
-        Warnlog "Writer To Impress -> 'Linked Graphic' failed !"
-    end if
-    printlog " Close active document "
-    Do Until GetDocumentCount = 0
-        Call hCloseDocument
-    Loop
-endcase
-
-' ----------------------------------------------------------------------------------------------
-
-testcase WriterToImpressGraphicEmbedded
-    gApplication = "WRITER"
-    printlog " Open File '..\\writer\\optional\\input\\clipboard\\writer.sxw' "
-    printlog " Jump to beginning of document "
-    printlog " Select 'Embedded Graphic' "
-    printlog " Copy selected Embedded Graphic "
-    if wSetClipboardtestDefaults("graphicE") = True then
-        gApplication = "IMPRESS"
-        printlog " Open new document "
-        Call hNewDocument
-        printlog " Edit / Paste Special "
-        Sleep 2
-        try
-            EditPasteSpecial
-        catch
-            Warnlog "Unable to execute 'Edit / Paste / Special' -> Disabled !"
-            Call hCloseDocument
-            wait 500
-            Call hCloseDocument
-            goto endsub
-        endcatch
-        Wait 500
-        printlog " Paste 'Embedded Graphic' in all available clipboard formats "
-        Kontext "InhaltEinfuegen"
-        if InhaltEinfuegen.Exists then
-            Call wPasteAvailableClipboardFormats(Auswahl.GetItemCount,"graphicE")
-            printlog " Write Clipboard format under pasted content "
-            Call hFileSaveAsWithFilterKill (gOfficepath + "user\work\writer_to_impress_graphic2.odp", "impress8")
-            printlog " Save document as ..\user\work\writer_to_impress_graphic2.odp"
-            Wait 500
-            Call hCloseDocument
-            printlog " Close saved document "
-            wait 500
-            hFileOpen( gOfficepath + "user\work\writer_to_impress_graphic2.odp",false)
-            printlog " Reopen saved document "
-            Wait 500
-            Call hCloseDocument
-            printlog " Close saved document "
-        else
-            Warnlog "Dialog 'Paste Special' is not up!"
-            Call hCloseDocument
-            goto endsub
-        end if
-    else
-        Warnlog "Writer To Impress -> 'Embedded Graphic' failed !"
-    end if
-    printlog " Close active document "
-    Do Until GetDocumentCount = 0
-        Call hCloseDocument
-    Loop
-endcase
-
-' ----------------------------------------------------------------------------------------------
-
-testcase WriterToImpressOLEObject
-    gApplication = "WRITER"
-    printlog " Open File '..\\writer\\optional\\input\\clipboard\\writer.sxw' "
-    printlog " Jump to beginning of document "
-    printlog " Select 'OLE Object' "
-    printlog " Copy selected OLE Object "
-    if wSetClipboardtestDefaults("ole") = True then
-        gApplication = "IMPRESS"
-        printlog " Open new document "
-        Call hNewDocument
-        printlog " Edit / Paste Special "
-        Sleep 2
-        try
-            EditPasteSpecial
-        catch
-            Warnlog "Unable to execute 'Edit / Paste / Special' -> Disabled !"
-            Call hCloseDocument
-            wait 500
-            Call hCloseDocument
-            goto endsub
-        endcatch
-        Wait 500
-        printlog " Paste 'OLE object' in all available clipboard formats "
-        Kontext "InhaltEinfuegen"
-        if InhaltEinfuegen.Exists then
-            Call wPasteAvailableClipboardFormats(Auswahl.GetItemCount,"ole")
-            printlog " Write Clipboard format under pasted content "
-            Call hFileSaveAsWithFilterKill (gOfficepath + "user\work\writer_to_impress_ole.odp", "impress8")
-            printlog " Save document as ..\user\work\writer_to_impress_ole.odp"
-            Wait 500
-            Call hCloseDocument
-            printlog " Close saved document "
-            wait 500
-            hFileOpen( gOfficepath + "user\work\writer_to_impress_ole.odp",false)
-            printlog " Reopen saved document "
-            Wait 500
-            Call hCloseDocument
-            printlog " Close saved document "
-        else
-            Warnlog "Dialog 'Paste Special' is not up!"
-            Call hCloseDocument
-            goto endsub
-        end if
-    else
-        Warnlog "Writer To Impress -> 'OLE object' failed !"
-    end if
-    printlog " Close active document "
-    Do Until GetDocumentCount = 0
-        Call hCloseDocument
-    Loop
-endcase
-
-' ----------------------------------------------------------------------------------------------
-
-testcase WriterToImpressControl
-    gApplication = "WRITER"
-    printlog " Open File '..\\writer\\optional\\input\\clipboard\\writer.sxw' "
-    printlog " Jump to beginning of document "
-    printlog " Select 'Control' "
-    printlog " Copy selected Control "
-    if wSetClipboardtestDefaults("control") = True then
-        gApplication = "IMPRESS"
-        printlog " Open new document "
-        Call hNewDocument
-        printlog " Edit / Paste Special "
-        Sleep 2
-        try
-            EditPasteSpecial
-        catch
-            Warnlog "Unable to execute 'Edit / Paste / Special' -> Disabled !"
-            Call hCloseDocument
-            wait 500
-            Call hCloseDocument
-            goto endsub
-        endcatch
-        Wait 500
-        printlog " Paste 'Control' in all available clipboard formats "
-        Kontext "InhaltEinfuegen"
-        if InhaltEinfuegen.Exists then
-            Call wPasteAvailableClipboardFormats(Auswahl.GetItemCount,"control")
-            printlog " Write Clipboard format under pasted content "
-            Call hFileSaveAsWithFilterKill (gOfficepath + "user\work\writer_to_impress_control.odp", "impress8")
-            printlog " Save document as ..\user\work\writer_to_impress_control.odp"
-            Wait 500
-            Call hCloseDocument
-            printlog " Close saved document "
-            wait 500
-            hFileOpen( gOfficepath + "user\work\writer_to_impress_control.odp",false)
-            printlog " Reopen saved document "
-            Wait 500
-            Call hCloseDocument
-            printlog " Close saved document "
-        else
-            Warnlog "Dialog 'Paste Special' is not up!"
-            Call hCloseDocument
-            goto endsub
-        end if
-    else
-        Warnlog "Writer To Impress -> 'Control' failed !"
-    end if
-    printlog " Close active document "
-    Do Until GetDocumentCount = 0
-        Call hCloseDocument
-    Loop
-endcase
diff --git a/testautomation/writer/optional/includes/clipboard/w_213_.inc b/testautomation/writer/optional/includes/clipboard/w_213_.inc
deleted file mode 100644
index 72cdeac69678..000000000000
--- a/testautomation/writer/optional/includes/clipboard/w_213_.inc
+++ /dev/null
@@ -1,533 +0,0 @@
-'**************************************************************************
-' 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 : helge.delfs@oracle.com
-'*
-'* short description : CROSS-APPLICATIONS CLIPBOARD TEST (Writer)
-'*
-'\***********************************************************************
-
-sub w_213_
-
-    Call WriterToDrawText
-    Call WriterToDrawField
-    Call WriterToDrawTable
-    Call WriterToDrawFrame
-    Call WriterToDrawDrawingObject
-    Call WriterToDrawGraphicLinked
-    Call WriterToDrawGraphicEmbedded
-    Call WriterToDrawOLEObject
-    Call WriterToDrawControl
-
-end sub
-
-' ---------------------------------------------------------------------------------
-
-testcase WriterToDrawText
-  gApplication = "WRITER"
-  printlog "  Open File '..\\writer\\optional\\input\\clipboard\\writer.sxw' "
-  printlog " + Jump to beginning of document "
-  printlog " + Select first paragraph "
-  printlog " + Copy selected text "
-  if wSetClipboardtestDefaults("text") = True then
-    gApplication = "DRAW"
-    printlog " + Open new document "
-    Call hNewDocument
-    printlog " + Edit / Paste Special "
-    Sleep 2
-    try
-        EditPasteSpecial
-    catch
-        Warnlog "Unable to execute 'Edit / Paste / Special' -> Disabled !"
-        Call hCloseDocument
-        wait 500
-        Call hCloseDocument
-        goto endsub
-    endcatch
-    Wait 500
-    printlog "  Paste 'Text' in all available clipboard formats "
-    Kontext "InhaltEinfuegen"
-    if InhaltEinfuegen.Exists then
-        Call wPasteAvailableClipboardFormats(Auswahl.GetItemCount,"text")
-        printlog " + Write Clipboard format under pasted content "
-        Call hFileSaveAsWithFilterKill (gOfficepath + "user\work\writer_to_draw_text.odg", "draw8")
-        printlog " + Save document as ..\user\work\writer_to_draw_text.odg"
-        Wait 500
-        Call hCloseDocument
-        printlog " + Close saved document "
-        wait 500
-        hFileOpen( gOfficepath + "user\work\writer_to_draw_text.odg",false)
-        printlog " + Reopen saved document "
-        Wait 500
-        Call hCloseDocument
-        printlog " + Close saved document "
-    else
-        Warnlog "Dialog 'Paste Special' is not up!"
-        Call hCloseDocument
-        goto endsub
-    end if
-  else
-      Warnlog "Writer To Draw -> 'Text' failed !"
-  end if
-    printlog "  Close active document "
-    Do Until GetDocumentCount = 0
-        Call hCloseDocument
-    Loop
-endcase
-
-' ----------------------------------------------------------------------------------------------
-
-testcase WriterToDrawField
-  gApplication = "WRITER"
-  printlog "  Open File '..\\writer\\optional\\input\\clipboard\\writer.sxw' "
-  printlog " + Jump to beginning of document "
-  printlog " + Select paragraph with 'Date Field' "
-  printlog " + Copy selected text "
-  if wSetClipboardtestDefaults("field") = True then
-    gApplication = "DRAW"
-    printlog " + Open new document "
-    Call hNewDocument
-    printlog " + Edit / Paste Special "
-    Sleep 2
-    try
-        EditPasteSpecial
-    catch
-        Warnlog "Unable to execute 'Edit / Paste / Special' -> Disabled !"
-        Call hCloseDocument
-        wait 500
-        Call hCloseDocument
-        goto endsub
-    endcatch
-    Wait 500
-    printlog "  Paste 'Field' in all available clipboard formats "
-    Kontext "InhaltEinfuegen"
-    if InhaltEinfuegen.Exists then
-            Call wPasteAvailableClipboardFormats(Auswahl.GetItemCount,"field")
-            printlog " + Write Clipboard format under pasted content "
-            Call hFileSaveAsWithFilterKill (gOfficepath + "user\work\writer_to_draw_field.odg", "draw8")
-            printlog " + Save document as ..\user\work\writer_to_draw_field.odg"
-            Wait 500
-            Call hCloseDocument
-            printlog " + Close saved document "
-            wait 500
-            hFileOpen( gOfficepath + "user\work\writer_to_draw_field.odg",false)
-            printlog " + Reopen saved document "
-            Wait 500
-            Call hCloseDocument
-            printlog " + Close saved document "
-        else
-            Warnlog "Dialog 'Paste Special' is not up!"
-            Call hCloseDocument
-            goto endsub
-        end if
-    else
-        Warnlog "Writer To Draw -> 'Field' failed !"
-    end if
-    printlog "  Close active document "
-    Do Until GetDocumentCount = 0
-        Call hCloseDocument
-    Loop
-endcase
-
-' ----------------------------------------------------------------------------------------------
-
-testcase WriterToDrawTable
-    gApplication = "WRITER"
-    printlog "  Open File '..\\writer\\optional\\input\\clipboard\\writer.sxw' "
-    printlog " + Jump to beginning of document "
-    printlog " + Select 'Table' "
-    printlog " + Copy selected table "
-    if wSetClipboardtestDefaults("table") = True then
-        gApplication = "DRAW"
-        printlog " + Open new document "
-        Call hNewDocument
-        printlog " + Edit / Paste Special "
-        Sleep 2
-        try
-            EditPasteSpecial
-        catch
-            Warnlog "Unable to execute 'Edit / Paste / Special' -> Disabled !"
-            Call hCloseDocument
-            wait 500
-            Call hCloseDocument
-            goto endsub
-        endcatch
-        Wait 500
-        printlog "  Paste 'Table' in all available clipboard formats "
-        Kontext "InhaltEinfuegen"
-        if InhaltEinfuegen.Exists then
-            Call wPasteAvailableClipboardFormats(Auswahl.GetItemCount,"table")
-            printlog " + Write Clipboard format under pasted content "
-            Call hFileSaveAsWithFilterKill (gOfficepath + "user\work\writer_to_draw_table.odg", "draw8")
-            printlog " + Save document as ..\user\work\writer_to_draw_table.odg"
-            Wait 500
-            Call hCloseDocument
-            printlog " + Close saved document "
-            wait 500
-            hFileOpen( gOfficepath + "user\work\writer_to_draw_table.odg",false)
-            printlog " + Reopen saved document "
-            Wait 500
-            Call hCloseDocument
-            printlog " + Close saved document "
-        else
-            Warnlog "Dialog 'Paste Special' is not up!"
-            Call hCloseDocument
-            goto endsub
-        end if
-    else
-        Warnlog "Writer To Draw -> 'Table' failed !"
-    end if
-    printlog "  Close active document "
-    Do Until GetDocumentCount = 0
-        Call hCloseDocument
-    Loop
-endcase
-
-' ----------------------------------------------------------------------------------------------
-
-testcase WriterToDrawFrame
-    gApplication = "WRITER"
-    printlog "  Open File '..\\writer\\optional\\input\\clipboard\\writer.sxw' "
-    printlog " + Jump to beginning of document "
-    printlog " + Select 'Frame' "
-    printlog " + Copy selected frame "
-    if wSetClipboardtestDefaults("frame") = True then
-        gApplication = "DRAW"
-        printlog " + Open new document "
-        Call hNewDocument
-        printlog " + Edit / Paste Special "
-        Sleep 2
-        try
-            EditPasteSpecial
-        catch
-            Warnlog "Unable to execute 'Edit / Paste / Special' -> Disabled !"
-            Call hCloseDocument
-            wait 500
-            Call hCloseDocument
-            goto endsub
-        endcatch
-        Wait 500
-        printlog "  Paste 'Table' in all available clipboard formats "
-        Kontext "InhaltEinfuegen"
-        if InhaltEinfuegen.Exists then
-            Call wPasteAvailableClipboardFormats(Auswahl.GetItemCount,"frame")
-            printlog " + Write Clipboard format under pasted content "
-            Call hFileSaveAsWithFilterKill (gOfficepath + "user\work\writer_to_draw_frame.odg", "draw8")
-            printlog " + Save document as ..\user\work\writer_to_draw_frame.odg"
-            Wait 500
-            Call hCloseDocument
-            printlog " + Close saved document "
-            wait 500
-            hFileOpen( gOfficepath + "user\work\writer_to_draw_frame.odg",false)
-            printlog " + Reopen saved document "
-            Wait 500
-            Call hCloseDocument
-            printlog " + Close saved document "
-        else
-            Warnlog "Dialog 'Paste Special' is not up!"
-            Call hCloseDocument
-            goto endsub
-        end if
-    else
-        Warnlog "Writer To Draw -> 'Frame' failed !"
-    end if
-    printlog "  Close active document "
-    Do Until GetDocumentCount = 0
-        Call hCloseDocument
-    Loop
-endcase
-
-' ----------------------------------------------------------------------------------------------
-
-testcase WriterToDrawDrawingObject
-    gApplication = "WRITER"
-    printlog "  Open File '..\\writer\\optional\\input\\clipboard\\writer.sxw' "
-    printlog " + Jump to beginning of document "
-    printlog " + Select 'Drawing Object' "
-    printlog " + Copy selected Drawing Object "
-    if wSetClipboardtestDefaults("DRAW") = True then
-        gApplication = "DRAW"
-        printlog " + Open new document "
-        Call hNewDocument
-        printlog " + Edit / Paste Special "
-        Sleep 2
-        try
-            EditPasteSpecial
-        catch
-            Warnlog "Unable to execute 'Edit / Paste / Special' -> Disabled !"
-            Call hCloseDocument
-            wait 500
-            Call hCloseDocument
-            goto endsub
-        endcatch
-        Wait 500
-        printlog "  Paste 'Table' in all available clipboard formats "
-        Kontext "InhaltEinfuegen"
-        if InhaltEinfuegen.Exists then
-            Call wPasteAvailableClipboardFormats(Auswahl.GetItemCount,"DRAW")
-            printlog " + Write Clipboard format under pasted content "
-            Call hFileSaveAsWithFilterKill (gOfficepath + "user\work\writer_to_draw_draw.odg", "draw8")
-            printlog " + Save document as ..\user\work\writer_to_draw_draw.odg"
-            Wait 500
-            Call hCloseDocument
-            printlog " + Close saved document "
-            wait 500
-            hFileOpen( gOfficepath + "user\work\writer_to_draw_draw.odg",false)
-            printlog " + Reopen saved document "
-            Wait 500
-            Call hCloseDocument
-            printlog " + Close saved document "
-        else
-            Warnlog "Dialog 'Paste Special' is not up!"
-            Call hCloseDocument
-            goto endsub
-        end if
-    else
-        Warnlog "Writer To Draw -> 'Drawing Object' failed !"
-    end if
-    printlog "  Close active document "
-    Do Until GetDocumentCount = 0
-        Call hCloseDocument
-    Loop
-endcase
-
-' ----------------------------------------------------------------------------------------------
-
-testcase WriterToDrawGraphicLinked
-   EnableQaErrors = true
-   gApplication = "WRITER"
-   printlog "  Open File '..\\writer\\optional\\input\\clipboard\\writer.sxw' "
-   printlog " + Jump to beginning of document "
-   printlog " + Select 'Linked Graphic' "
-   printlog " + Copy selected Linked Graphic "
-   if wSetClipboardtestDefaults("graphicL") = True then
-      gApplication = "DRAW"
-      printlog " + Open new document "
-      Call hNewDocument
-      printlog " + Edit / Paste Special "
-      Sleep 2
-      try
-         EditPasteSpecial
-      catch
-         warnlog "Check why linked graphic fails !"
-         Call hCloseDocument
-         wait 500
-         Call hCloseDocument
-         goto endsub
-      endcatch
-      Wait 500
-      printlog "  Paste 'Linked Graphic' in all available clipboard formats "
-      Kontext "InhaltEinfuegen"
-      if InhaltEinfuegen.Exists then
-         Call wPasteAvailableClipboardFormats(Auswahl.GetItemCount,"graphicL")
-         printlog " + Write Clipboard format under pasted content "
-         Call hFileSaveAsWithFilterKill (gOfficepath + "user\work\writer_to_draw_graphic1.odg", "draw8")
-         printlog " + Save document as ..\user\work\writer_to_draw_graphic1.odg"
-         Wait 500
-         Call hCloseDocument
-         printlog " + Close saved document "
-         wait 500
-         hFileOpen( gOfficepath + "user\work\writer_to_draw_graphic1.odg",false)
-         printlog " + Reopen saved document "
-         Wait 500
-         Call hCloseDocument
-         printlog " + Close saved document "
-      else
-         Warnlog "Dialog 'Paste Special' is not up!"
-         Call hCloseDocument
-         goto endsub
-      end if
-   else
-      Warnlog "Writer To Draw -> 'Linked Graphic' failed !"
-   end if
-   printlog "  Close active document "
-    Do Until GetDocumentCount = 0
-        Call hCloseDocument
-    Loop
-    EnableQaErrors = false
-endcase
-
-' ----------------------------------------------------------------------------------------------
-
-testcase WriterToDrawGraphicEmbedded
-  gApplication = "WRITER"
-  printlog "  Open File '..\\writer\\optional\\input\\clipboard\\writer.sxw' "
-  printlog " + Jump to beginning of document "
-  printlog " + Select 'Embedded Graphic' "
-  printlog " + Copy selected Embedded Graphic "
-  if wSetClipboardtestDefaults("graphicE") = True then
-    gApplication = "DRAW"
-    printlog " + Open new document "
-    Call hNewDocument
-    printlog " + Edit / Paste Special "
-    Sleep 2
-    try
-        EditPasteSpecial
-    catch
-        Warnlog "Unable to execute 'Edit / Paste / Special' -> Disabled !"
-        Call hCloseDocument
-        wait 500
-        Call hCloseDocument
-        goto endsub
-    endcatch
-    Wait 500
-    printlog "  Paste 'Embedded Graphic' in all available clipboard formats "
-    Kontext "InhaltEinfuegen"
-    if InhaltEinfuegen.Exists then
-     Call wPasteAvailableClipboardFormats(Auswahl.GetItemCount,"graphicE")
-     printlog " + Write Clipboard format under pasted content "
-     Call hFileSaveAsWithFilterKill (gOfficepath + "user\work\writer_to_draw_graphic2.odg", "draw8")
-     printlog " + Save document as ..\user\work\writer_to_draw_graphic2.odg"
-     Wait 500
-     Call hCloseDocument
-     printlog " + Close saved document "
-     wait 500
-     hFileOpen( gOfficepath + "user\work\writer_to_draw_graphic2.odg",false)
-     printlog " + Reopen saved document "
-     Wait 500
-     Call hCloseDocument
-     printlog " + Close saved document "
-    else
-     Warnlog "Dialog 'Paste Special' is not up!"
-     Call hCloseDocument
-     goto endsub
-    end if
-  else
-   Warnlog "Writer To Draw -> 'Embedded Graphic' failed !"
-  end if
-  printlog "  Close active document "
-    Do Until GetDocumentCount = 0
-        Call hCloseDocument
-    Loop
-endcase
-
-' ----------------------------------------------------------------------------------------------
-
-testcase WriterToDrawOLEObject
-  gApplication = "WRITER"
-  printlog "  Open File '..\\writer\\optional\\input\\clipboard\\writer.sxw' "
-  printlog " + Jump to beginning of document "
-  printlog " + Select 'OLE Object' "
-  printlog " + Copy selected OLE Object "
-  if wSetClipboardtestDefaults("ole") = True then
-    gApplication = "DRAW"
-    printlog " + Open new document "
-    Call hNewDocument
-    printlog " + Edit / Paste Special "
-    Sleep 2
-    try
-        EditPasteSpecial
-    catch
-        Warnlog "Unable to execute 'Edit / Paste / Special' -> Disabled !"
-        Call hCloseDocument
-        wait 500
-        Call hCloseDocument
-        goto endsub
-    endcatch
-    Wait 500
-    printlog "  Paste 'OLE object' in all available clipboard formats "
-    Kontext "InhaltEinfuegen"
-    if InhaltEinfuegen.Exists then
-     Call wPasteAvailableClipboardFormats(Auswahl.GetItemCount,"ole")
-     printlog " + Write Clipboard format under pasted content "
-     Call hFileSaveAsWithFilterKill (gOfficepath + "user\work\writer_to_draw_ole.odg", "draw8")
-     printlog " + Save document as ..\user\work\writer_to_draw_ole.odg"
-     Wait 500
-     Call hCloseDocument
-     printlog " + Close saved document "
-     wait 500
-     hFileOpen( gOfficepath + "user\work\writer_to_draw_ole.odg",false)
-     printlog " + Reopen saved document "
-     Wait 500
-     Call hCloseDocument
-     printlog " + Close saved document "
-    else
-     Warnlog "Dialog 'Paste Special' is not up!"
-     Call hCloseDocument
-     goto endsub
-    end if
-  else
-   Warnlog "Writer To Draw -> 'OLE object' failed !"
-  end if
-    printlog "  Close active document "
-    Do Until GetDocumentCount = 0
-        Call hCloseDocument
-    Loop
-endcase
-
-' ----------------------------------------------------------------------------------------------
-
-testcase WriterToDrawControl
-  gApplication = "WRITER"
-  printlog "  Open File '..\\writer\\optional\\input\\clipboard\\writer.sxw' "
-  printlog " + Jump to beginning of document "
-  printlog " + Select 'Control' "
-  printlog " + Copy selected Control "
-  if wSetClipboardtestDefaults("control") = True then
-    gApplication = "DRAW"
-    printlog " + Open new document "
-    Call hNewDocument
-    printlog " + Edit / Paste Special "
-    Sleep 2
-    try
-        EditPasteSpecial
-    catch
-        Warnlog "Unable to execute 'Edit / Paste / Special' -> Disabled !"
-        Call hCloseDocument
-        wait 500
-        Call hCloseDocument
-        goto endsub
-    endcatch
-    Wait 500
-    printlog "  Paste 'Control' in all available clipboard formats "
-    Kontext "InhaltEinfuegen"
-    if InhaltEinfuegen.Exists then
-     Call wPasteAvailableClipboardFormats(Auswahl.GetItemCount,"control")
-     printlog " + Write Clipboard format under pasted content "
-     Call hFileSaveAsWithFilterKill (gOfficepath + "user\work\writer_to_draw_control.odg", "draw8")
-     printlog " + Save document as ..\user\work\writer_to_draw_control.odg"
-     Wait 500
-     Call hCloseDocument
-     printlog " + Close saved document "
-     wait 500
-     hFileOpen( gOfficepath + "user\work\writer_to_draw_control.odg",false)
-     printlog " + Reopen saved document "
-     Wait 500
-     Call hCloseDocument
-     printlog " + Close saved document "
-    else
-     Warnlog "Dialog 'Paste Special' is not up!"
-     Call hCloseDocument
-     goto endsub
-    end if
-  else
-    Warnlog "Writer To Draw -> 'Control' failed !"
-  end if
-    printlog "  Close active document "
-    Do Until GetDocumentCount = 0
-        Call hCloseDocument
-    Loop
-endcase
diff --git a/testautomation/writer/optional/includes/clipboard/w_214_.inc b/testautomation/writer/optional/includes/clipboard/w_214_.inc
deleted file mode 100644
index 12b9b687b426..000000000000
--- a/testautomation/writer/optional/includes/clipboard/w_214_.inc
+++ /dev/null
@@ -1,524 +0,0 @@
-'**************************************************************************
-' 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 : helge.delfs@oracle.com
-'*
-'* short description : CROSS-APPLICATIONS CLIPBOARD TEST (Writer)
-'*
-'\***********************************************************************
-
-sub w_214_
-
-    Call WriterToHTMLText
-    Call WriterToHTMLField
-    Call WriterToHTMLTable
-    Call WriterToHTMLFrame
-    Call WriterToHTMLDrawingObject
-    Call WriterToHTMLGraphicLinked
-    Call WriterToHTMLGraphicEmbedded
-    Call WriterToHTMLOLEObject
-    Call WriterToHTMLControl
-
-end sub
-
-' ---------------------------------------------------------------------------------
-
-testcase WriterToHTMLText
-  gApplication = "WRITER"
-  printlog "  Open File '..\\writer\\optional\\input\\clipboard\\writer.sxw' "
-  printlog " + Jump to beginning of document "
-  printlog " + Select first paragraph "
-  printlog " + Copy selected text "
-  if wSetClipboardtestDefaults("text") = True then
-    gApplication = "HTML"
-    printlog " + Open new document "
-    Call hNewDocument
-    printlog " + Edit / Paste Special "
-    Sleep 2
-    try
-       EditPasteSpecialWriter
-    catch
-       Warnlog "Unable to execute 'Edit / Paste Special' ! Test failed!"
-       Call hCloseDocument ' Close Source-File
-       Call hCloseDocument ' Close Target-File
-       goto endsub
-    endcatch
-    Wait 500
-    printlog "  Paste 'Text' in all available clipboard formats "
-    Kontext "InhaltEinfuegen"
-    if InhaltEinfuegen.Exists then
-     Call wPasteAvailableClipboardFormats(Auswahl.GetItemCount,"text")
-    printlog " + Write Clipboard format under pasted content "
-     Call hFileSaveAsWithFilterKill (gOfficepath + "user\work\writer_to_html_text.html", "HTML")
-     printlog " + Save document as ..\user\work\writer_to_html_text.html"
-     Wait 500
-     Call hCloseDocument
-     printlog " + Close saved document "
-     wait 500
-     hFileOpen( gOfficepath + "user\work\writer_to_html_text.html")
-     printlog " + Reopen saved document "
-     Wait 500
-     Call hCloseDocument
-     printlog " + Close saved document "
-    else
-     Warnlog "Dialog 'Paste Special' is not up!"
-     Call hCloseDocument
-     goto endsub
-    end if
-  else
-   Warnlog "Writer To HTML -> 'Text' failed !"
-  end if
-  printlog "  Close active document "
-    Do Until GetDocumentCount = 0
-        Call hCloseDocument
-    Loop
-endcase
-
-' ----------------------------------------------------------------------------------------------
-
-testcase WriterToHTMLField
-  gApplication = "WRITER"
-  printlog "  Open File '..\\writer\\optional\\input\\clipboard\\writer.sxw' "
-  printlog " + Jump to beginning of document "
-  printlog " + Select paragraph with 'Date Field' "
-  printlog " + Copy selected text "
-  if wSetClipboardtestDefaults("field") = True then
-    gApplication = "HTML"
-    printlog " + Open new document "
-    Call hNewDocument
-    printlog " + Edit / Paste Special "
-    Sleep 2
-    try
-       EditPasteSpecialWriter
-    catch
-       Warnlog "Unable to execute 'Edit / Paste Special' ! Test failed!"
-       Call hCloseDocument ' Close Source-File
-       Call hCloseDocument ' Close Target-File
-       goto endsub
-    endcatch
-    Wait 500
-    printlog "  Paste 'Field' in all available clipboard formats "
-    Kontext "InhaltEinfuegen"
-    if InhaltEinfuegen.Exists then
-     Call wPasteAvailableClipboardFormats(Auswahl.GetItemCount,"field")
-    printlog " + Write Clipboard format under pasted content "
-     Call hFileSaveAsWithFilterKill (gOfficepath + "user\work\writer_to_html_field.html", "HTML")
-     printlog " + Save document as ..\user\work\writer_to_html_field.html"
-     Wait 500
-     Call hCloseDocument
-     printlog " + Close saved document "
-     wait 500
-     hFileOpen( gOfficepath + "user\work\writer_to_html_field.html")
-     printlog " + Reopen saved document "
-     Wait 500
-     Call hCloseDocument
-     printlog " + Close saved document "
-    else
-     Warnlog "Dialog 'Paste Special' is not up!"
-     Call hCloseDocument
-     goto endsub
-    end if
-  else
-   Warnlog "Writer To HTML -> 'Field' failed !"
-  end if
-    printlog "  Close active document "
-    Do Until GetDocumentCount = 0
-        Call hCloseDocument
-    Loop
-endcase
-
-' ----------------------------------------------------------------------------------------------
-
-testcase WriterToHTMLTable
-  gApplication = "WRITER"
-  printlog "  Open File '..\\writer\\optional\\input\\clipboard\\writer.sxw' "
-  printlog " + Jump to beginning of document "
-  printlog " + Select 'Table' "
-  printlog " + Copy selected table "
-  if wSetClipboardtestDefaults("table") = True then
-    gApplication = "HTML"
-    printlog " + Open new document "
-    Call hNewDocument
-    printlog " + Edit / Paste Special "
-    Sleep 2
-    try
-       EditPasteSpecialWriter
-    catch
-       Warnlog "Unable to execute 'Edit / Paste Special' ! Test failed!"
-       Call hCloseDocument ' Close Source-File
-       Call hCloseDocument ' Close Target-File
-       goto endsub
-    endcatch
-    Wait 500
-    printlog "  Paste 'Table' in all available clipboard formats "
-    Kontext "InhaltEinfuegen"
-    if InhaltEinfuegen.Exists then
-     Call wPasteAvailableClipboardFormats(Auswahl.GetItemCount,"table")
-     printlog " + Write Clipboard format under pasted content "
-     Call hFileSaveAsWithFilterKill (gOfficepath + "user\work\writer_to_html_table.html", "HTML")
-     printlog " + Save document as ..\user\work\writer_to_html_table.html"
-     Wait 500
-     Call hCloseDocument
-     printlog " + Close saved document "
-     wait 500
-     hFileOpen( gOfficepath + "user\work\writer_to_html_table.html")
-     printlog " + Reopen saved document "
-     Wait 500
-     Call hCloseDocument
-     printlog " + Close saved document "
-    else
-     Warnlog "Dialog 'Paste Special' is not up!"
-     Call hCloseDocument
-     goto endsub
-    end if
-  else
-   Warnlog "Writer To HTML -> 'Table' failed !"
-  end if
-  printlog "  Close active document "
-    Do Until GetDocumentCount = 0
-        Call hCloseDocument
-    Loop
-endcase
-
-' ----------------------------------------------------------------------------------------------
-
-testcase WriterToHTMLFrame
-  gApplication = "WRITER"
-  printlog "  Open File '..\\writer\\optional\\input\\clipboard\\writer.sxw' "
-  printlog " + Jump to beginning of document "
-  printlog " + Select 'Frame' "
-  printlog " + Copy selected frame "
-  if wSetClipboardtestDefaults("frame") = True then
-    gApplication = "HTML"
-    printlog " + Open new document "
-    Call hNewDocument
-    printlog " + Edit / Paste Special "
-    Sleep 2
-    try
-       EditPasteSpecialWriter
-    catch
-       Warnlog "Unable to execute 'Edit / Paste Special' ! Test failed!"
-       Call hCloseDocument ' Close Source-File
-       Call hCloseDocument ' Close Target-File
-       goto endsub
-    endcatch
-    Wait 500
-    printlog "  Paste 'Table' in all available clipboard formats "
-    Kontext "InhaltEinfuegen"
-    if InhaltEinfuegen.Exists then
-     Call wPasteAvailableClipboardFormats(Auswahl.GetItemCount,"frame")
-     printlog " + Write Clipboard format under pasted content "
-     Call hFileSaveAsWithFilterKill (gOfficepath + "user\work\writer_to_html_frame.html", "HTML")
-     printlog " + Save document as ..\user\work\writer_to_html_frame.html"
-     Wait 500
-     Call hCloseDocument
-     printlog " + Close saved document "
-     wait 500
-     hFileOpen( gOfficepath + "user\work\writer_to_html_frame.html")
-     printlog " + Reopen saved document "
-     Wait 500
-     Call hCloseDocument
-     printlog " + Close saved document "
-    else
-     Warnlog "Dialog 'Paste Special' is not up!"
-     Call hCloseDocument
-     goto endsub
-    end if
-  else
-   Warnlog "Writer To HTML -> 'Frame' failed !"
-  end if
-  printlog "  Close active document "
-    Do Until GetDocumentCount = 0
-        Call hCloseDocument
-    Loop
-endcase
-
-' ----------------------------------------------------------------------------------------------
-
-testcase WriterToHTMLDrawingObject
-  gApplication = "WRITER"
-  printlog "  Open File '..\\writer\\optional\\input\\clipboard\\writer.sxw' "
-  printlog " + Jump to beginning of document "
-  printlog " + Select 'Drawing Object' "
-  printlog " + Copy selected Drawing Object "
-  if wSetClipboardtestDefaults("DRAW") = True then
-    gApplication = "HTML"
-    printlog " + Open new document "
-    Call hNewDocument
-    printlog " + Edit / Paste Special "
-    Sleep 2
-    try
-       EditPasteSpecialWriter
-    catch
-       Warnlog "Unable to execute 'Edit / Paste Special' ! Test failed!"
-       Call hCloseDocument ' Close Source-File
-       Call hCloseDocument ' Close Target-File
-       goto endsub
-    endcatch
-    Wait 500
-    printlog "  Paste 'Table' in all available clipboard formats "
-    Kontext "InhaltEinfuegen"
-    if InhaltEinfuegen.Exists then
-     Call wPasteAvailableClipboardFormats(Auswahl.GetItemCount,"DRAW")
-     printlog " + Write Clipboard format under pasted content "
-     Call hFileSaveAsWithFilterKill (gOfficepath + "user\work\writer_to_html_draw.html", "HTML")
-     printlog " + Save document as ..\user\work\writer_to_html_draw.html"
-     Wait 500
-     Call hCloseDocument
-     printlog " + Close saved document "
-     wait 500
-     hFileOpen( gOfficepath + "user\work\writer_to_html_draw.html")
-     printlog " + Reopen saved document "
-     Wait 500
-     Call hCloseDocument
-     printlog " + Close saved document "
-    else
-     Warnlog "Dialog 'Paste Special' is not up!"
-     Call hCloseDocument
-     goto endsub
-    end if
-  else
-   Warnlog "Writer To HTML -> 'Drawing Object' failed !"
-  end if
-  printlog "  Close active document "
-    Do Until GetDocumentCount = 0
-        Call hCloseDocument
-    Loop
-endcase
-
-' ----------------------------------------------------------------------------------------------
-
-testcase WriterToHTMLGraphicLinked
-  gApplication = "WRITER"
-  printlog "  Open File '..\\writer\\optional\\input\\clipboard\\writer.sxw' "
-  printlog " + Jump to beginning of document "
-  printlog " + Select 'Linked Graphic' "
-  printlog " + Copy selected Linked Graphic "
-  if wSetClipboardtestDefaults("graphicL") = True then
-    gApplication = "HTML"
-    printlog " + Open new document "
-    Call hNewDocument
-    printlog " + Edit / Paste Special "
-    Sleep 2
-    try
-       EditPasteSpecialWriter
-    catch
-       Warnlog "Unable to execute 'Edit / Paste Special' ! Test failed!"
-       Call hCloseDocument ' Close Source-File
-       Call hCloseDocument ' Close Target-File
-       goto endsub
-    endcatch
-    Wait 500
-    printlog "  Paste 'Linked Graphic' in all available clipboard formats "
-    Kontext "InhaltEinfuegen"
-    if InhaltEinfuegen.Exists then
-     Call wPasteAvailableClipboardFormats(Auswahl.GetItemCount,"graphicL")
-     printlog " + Write Clipboard format under pasted content "
-     Call hFileSaveAsWithFilterKill (gOfficepath + "user\work\writer_to_html_graphic1.html", "HTML")
-     printlog " + Save document as ..\user\work\writer_to_html_graphic1.html"
-     Wait 500
-     Call hCloseDocument
-     printlog " + Close saved document "
-     wait 500
-     hFileOpen( gOfficepath + "user\work\writer_to_html_graphic1.html")
-     printlog " + Reopen saved document "
-     Wait 500
-     Call hCloseDocument
-     printlog " + Close saved document "
-    else
-     Warnlog "Dialog 'Paste Special' is not up!"
-     Call hCloseDocument
-     goto endsub
-    end if
-  else
-   Warnlog "Writer To HTML -> 'Linked Graphic' failed !"
-  end if
-  printlog "  Close active document "
-    Do Until GetDocumentCount = 0
-        Call hCloseDocument
-    Loop
-endcase
-
-' ----------------------------------------------------------------------------------------------
-
-testcase WriterToHTMLGraphicEmbedded
-  gApplication = "WRITER"
-  printlog "  Open File '..\\writer\\optional\\input\\clipboard\\writer.sxw' "
-  printlog " + Jump to beginning of document "
-  printlog " + Select 'Embedded Graphic' "
-  printlog " + Copy selected Embedded Graphic "
-  if wSetClipboardtestDefaults("graphicE") = True then
-    gApplication = "HTML"
-    printlog " + Open new document "
-    Call hNewDocument
-    printlog " + Edit / Paste Special "
-    Sleep 2
-    try
-       EditPasteSpecialWriter
-    catch
-       Warnlog "Unable to execute 'Edit / Paste Special' ! Test failed!"
-       Call hCloseDocument ' Close Source-File
-       Call hCloseDocument ' Close Target-File
-       goto endsub
-    endcatch
-    Wait 500
-    printlog "  Paste 'Embedded Graphic' in all available clipboard formats "
-    Kontext "InhaltEinfuegen"
-    if InhaltEinfuegen.Exists then
-     Call wPasteAvailableClipboardFormats(Auswahl.GetItemCount,"graphicE")
-     printlog " + Write Clipboard format under pasted content "
-     Call hFileSaveAsWithFilterKill (gOfficepath + "user\work\writer_to_html_graphic2.html", "HTML")
-     printlog " + Save document as ..\user\work\writer_to_html_graphic2.html"
-     Wait 500
-     Call hCloseDocument
-     printlog " + Close saved document "
-     wait 500
-     hFileOpen( gOfficepath + "user\work\writer_to_html_graphic2.html")
-     printlog " + Reopen saved document "
-     Wait 500
-     Call hCloseDocument
-     printlog " + Close saved document "
-    else
-     Warnlog "Dialog 'Paste Special' is not up!"
-     Call hCloseDocument
-     goto endsub
-    end if
-  else
-   Warnlog "Writer To HTML -> 'Embedded Graphic' failed !"
-  end if
-  printlog "  Close active document "
-    Do Until GetDocumentCount = 0
-        Call hCloseDocument
-    Loop
-endcase
-
-' ----------------------------------------------------------------------------------------------
-
-testcase WriterToHTMLOLEObject
-  gApplication = "WRITER"
-  printlog "  Open File '..\\writer\\optional\\input\\clipboard\\writer.sxw' "
-  printlog " + Jump to beginning of document "
-  printlog " + Select 'OLE Object' "
-  printlog " + Copy selected OLE Object "
-  if wSetClipboardtestDefaults("ole") = True then
-    gApplication = "HTML"
-    printlog " + Open new document "
-    Call hNewDocument
-    printlog " + Edit / Paste Special "
-    Sleep 2
-    try
-       EditPasteSpecialWriter
-    catch
-       Warnlog "Unable to execute 'Edit / Paste Special' ! Test failed!"
-       Call hCloseDocument ' Close Source-File
-       Call hCloseDocument ' Close Target-File
-       goto endsub
-    endcatch
-    Wait 500
-    printlog "  Paste 'OLE object' in all available clipboard formats "
-    Kontext "InhaltEinfuegen"
-    if InhaltEinfuegen.Exists then
-     Call wPasteAvailableClipboardFormats(Auswahl.GetItemCount,"ole")
-     printlog " + Write Clipboard format under pasted content "
-     Call hFileSaveAsWithFilterKill (gOfficepath + "user\work\writer_to_html_ole.html", "HTML")
-     printlog " + Save document as ..\user\work\writer_to_html_ole.html"
-     Wait 500
-     Call hCloseDocument
-     printlog " + Close saved document "
-     wait 500
-     hFileOpen( gOfficepath + "user\work\writer_to_html_ole.html")
-     printlog " + Reopen saved document "
-     Wait 500
-     Call hCloseDocument
-     printlog " + Close saved document "
-    else
-     Warnlog "Dialog 'Paste Special' is not up!"
-     Call hCloseDocument
-     goto endsub
-    end if
-  else
-   Warnlog "Writer To HTML -> 'OLE object' failed !"
-  end if
-  printlog "  Close active document "
-    Do Until GetDocumentCount = 0
-        Call hCloseDocument
-    Loop
-endcase
-
-' ----------------------------------------------------------------------------------------------
-
-testcase WriterToHTMLControl
-  gApplication = "WRITER"
-  printlog "  Open File '..\\writer\\optional\\input\\clipboard\\writer.sxw' "
-  printlog " + Jump to beginning of document "
-  printlog " + Select 'Control' "
-  printlog " + Copy selected Control "
-  if wSetClipboardtestDefaults("control") = True then
-    gApplication = "HTML"
-    printlog " + Open new document "
-    Call hNewDocument
-    printlog " + Edit / Paste Special "
-    Sleep 2
-    try
-       EditPasteSpecialWriter
-    catch
-       Warnlog "Unable to execute 'Edit / Paste Special' ! Test failed!"
-       Call hCloseDocument ' Close Source-File
-       Call hCloseDocument ' Close Target-File
-       goto endsub
-    endcatch
-    Wait 500
-    printlog "  Paste 'Control' in all available clipboard formats "
-    Kontext "InhaltEinfuegen"
-    if InhaltEinfuegen.Exists then
-     Call wPasteAvailableClipboardFormats(Auswahl.GetItemCount,"control")
-     printlog " + Write Clipboard format under pasted content "
-     Call hFileSaveAsWithFilterKill (gOfficepath + "user\work\writer_to_html_control.html", "HTML")
-     printlog " + Save document as ..\user\work\writer_to_html_control.html"
-     Wait 500
-     Call hCloseDocument
-     printlog " + Close saved document "
-     wait 500
-     hFileOpen( gOfficepath + "user\work\writer_to_html_control.html")
-     printlog " + Reopen saved document "
-     Wait 500
-     Call hCloseDocument
-     printlog " + Close saved document "
-    else
-     Warnlog "Dialog 'Paste Special' is not up!"
-     Call hCloseDocument
-     goto endsub
-    end if
-  else
-   Warnlog "Writer To HTML -> 'Control' failed !"
-  end if
-  printlog "  Close active document "
-    Do Until GetDocumentCount = 0
-        Call hCloseDocument
-    Loop
-endcase
-
-'------------------------------------------------------------------------------------------------------
diff --git a/testautomation/writer/optional/includes/clipboard/w_215_.inc b/testautomation/writer/optional/includes/clipboard/w_215_.inc
deleted file mode 100644
index 992efb2981ca..000000000000
--- a/testautomation/writer/optional/includes/clipboard/w_215_.inc
+++ /dev/null
@@ -1,448 +0,0 @@
-'**************************************************************************
-' 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 : helge.delfs@oracle.com
-'*
-'* short description : CROSS-APPLICATIONS CLIPBOARD TEST (Writer)
-'*
-'\***********************************************************************
-
-sub w_215_
-
-    Call CalcToWriterText1
-    Call CalcToWriterText2
-    Call CalcToWriterCalculation
-    Call CalcToWriterHyperlink1
-    Call CalcToWriterHyperlink2
-    Call CalcToWriterDrawObject
-    Call CalcToWriterOLE
-
-end sub
-
-'--------------------------------------------------------
-
-testcase CalcToWriterText1
-  gApplication = "CALC"
-  printlog "  Open File '..\\writer\\optional\\input\\clipboard\\calc.sxc' "
-  printlog "  Jump to beginning of document "
-  printlog "  Select cell <A2> "
-  printlog "  Copy selected text "
-  hFileOpenLocally( gtesttoolpath & "writer\optional\input\clipboard\calc.sxc")
-  
-  Kontext "DocumentCalc"
-  printlog "  Jump to beginning of document "
-  DocumentCalc.TypeKeys "<Mod1 Home>"
-  DocumentCalc.TypeKeys "<Down>"
-  EditCopy
-  gApplication = "WRITER"
-  printlog "  Open a new writerdocument "
-  Call hNewDocument
-  Sleep 2
-  try
-     EditPasteSpecialWriter
-  catch
-     Warnlog "Unable to execute 'Edit / Paste Special'! Test failed!"
-     Call hCloseDocument
-     Call hCloseDocument
-     goto endsub
-  endcatch
-  Wait 500
-  printlog "  Paste 'Text' in all available clipboard formats "
-  Kontext "InhaltEinfuegen"
-  if InhaltEinfuegen.Exists then
-    Call wPasteAvailableClipboardFormats(Auswahl.GetItemCount,"ctext")
-    printlog "  Write Clipboard format under pasted content "
-    Call hFileSaveAsWithFilterKill (gOfficepath + "user\work\writer_to_writer_textformat_wholecell.odt", "writer8")
-    printlog "  Save document as ..\user\work\writer_to_writer_textformat_wholecell.odt"
-    Wait 500
-    Call hCloseDocument
-    printlog "  Close saved document "
-    wait 500
-    printlog "  Reopen saved document "
-    if hFileOpen (gOfficepath + "user\work\writer_to_writer_textformat_wholecell.odt",true) = false then
-        Kontext "Active"
-        if Active.Exists then
-            try
-                Active.Yes
-            catch
-                Warnlog "Unable to remove checkbox: " + Active.Gettext
-                Active.ok
-            endcatch
-        end if
-    end if    
-    Wait 500
-    printlog "  Close saved document "
-    Call hCloseDocument
-  else
-    Warnlog "Dialog 'Paste Special' is not up!"
-    Call hCloseDocument
-    goto endsub
-  end if
-  printlog "  Close active document "
-  Call hCloseDocument
-endcase
-
-' ---------------------------------------------------------------------------------
-
-testcase CalcToWriterText2
-  gApplication = "CALC"
-  printlog "  Open File '..\\writer\\optional\\input\\clipboard\\calc.sxc' "
-  printlog "  Jump to beginning of document "
-  printlog "  Select cell <A1>, press F2 and select all "
-  printlog "  Copy selected text "
-  hFileOpenLocally( gtesttoolpath & "writer\optional\input\clipboard\calc.sxc")
-  
-  Kontext "DocumentCalc"
-  printlog "  Jump to beginning of document "
-  DocumentCalc.TypeKeys "<Mod1 Home>"
-  DocumentCalc.TypeKeys "<Down>"
-  DocumentCalc.TypeKeys "<F2>"
-  DocumentCalc.TypeKeys "<Mod1 A>"
-  EditCopy
-  gApplication = "WRITER"
-  printlog "  Open a new writerdocument "
-  Call hNewDocument
-  Sleep 2
-  try
-     EditPasteSpecialWriter
-  catch
-     Warnlog "Unable to execute 'Edit / Paste Special'! Test failed!"
-     Call hCloseDocument
-     Call hCloseDocument
-     goto endsub
-  endcatch
-  Wait 500
-  printlog "  Paste 'Text' in all available clipboard formats "
-  Kontext "InhaltEinfuegen"
-  if InhaltEinfuegen.Exists then
-    Call wPasteAvailableClipboardFormats(Auswahl.GetItemCount,"text")
-    printlog "  Write Clipboard format under pasted content "
-    Call hFileSaveAsWithFilterKill (gOfficepath + "user\work\writer_to_writer_textformat_cellcontent.odt", "writer8")
-    printlog "  Save document as ..\user\work\writer_to_writer_textformat_cellcontent.odt"
-    Wait 500
-    printlog "  Close saved document "
-    Call hCloseDocument
-    wait 500
-    printlog "  Reopen saved document "
-    hFileOpen( gOfficepath + "user\work\writer_to_writer_textformat_cellcontent.odt",false)
-    Wait 500
-    printlog "  Close saved document "
-    Call hCloseDocument
-  else
-    Warnlog "Dialog 'Paste Special' is not up!"
-    Call hCloseDocument
-    goto endsub
-  end if
-  printlog "  Close active document "
-  Call hCloseDocument
-endcase
-
-' ---------------------------------------------------------------------------------
-
-testcase CalcToWriterCalculation
-  gApplication = "CALC"
-  printlog "  Open File '..\\writer\\optional\\input\\clipboard\\calc.sxc' "
-  printlog "  Jump to beginning of document "
-  printlog "  Select cell <A5:C5> "
-  printlog "  Copy selected text "
-  hFileOpenLocally( gtesttoolpath & "writer\optional\input\clipboard\calc.sxc")
-  
-  Kontext "DocumentCalc"
-  printlog "  Jump to beginning of document "
-  DocumentCalc.TypeKeys "<Mod1 Home>"
-  DocumentCalc.TypeKeys "<Down>",4
-  DocumentCalc.TypeKeys "<Shift Right>", 2
-  EditCopy
-  gApplication = "WRITER"
-  printlog "  Open a new writerdocument "
-  Call hNewDocument
-  Sleep 2
-  try
-     EditPasteSpecialWriter
-  catch
-     Warnlog "Unable to execute 'Edit / Paste Special'! Test failed!"
-     Call hCloseDocument
-     Call hCloseDocument
-     goto endsub
-  endcatch
-  Wait 500
-  printlog "  Paste 'Text' in all available clipboard formats "
-  Kontext "InhaltEinfuegen"
-  if InhaltEinfuegen.Exists then
-    Call wPasteAvailableClipboardFormats(Auswahl.GetItemCount,"ctext")
-    printlog "  Write Clipboard format under pasted content "
-    Call hFileSaveAsWithFilterKill (gOfficepath + "user\work\writer_to_writer_calculation_cellformat.odt", "writer8")
-    printlog "  Save document as ..\user\work\writer_to_writer_calculation_cellformat.odt"
-    Wait 500
-    Call hCloseDocument
-    printlog "  Close saved document "
-    wait 500
-    printlog "  Reopen saved document "
-    if hFileOpen (gOfficepath + "user\work\writer_to_writer_calculation_cellformat.odt",true) = false then
-        Kontext "Active"
-        if Active.Exists then
-            try
-                Active.Yes
-            catch
-                Warnlog "Unable to remove checkbox: " + Active.Gettext
-                Active.ok
-            endcatch
-        end if
-    end if
-    Wait 500
-    printlog "  Close saved document "
-    Call hCloseDocument
-  else
-    Warnlog "Dialog 'Paste Special' is not up!"
-    Call hCloseDocument
-    goto endsub
-  end if
-  printlog "  Close active document "
-  Call hCloseDocument
-endcase
-
-' ---------------------------------------------------------------------------------
-
-testcase CalcToWriterHyperlink1
-  gApplication = "CALC"
-  printlog "  Open File '..\\writer\\optional\\input\\clipboard\\calc.sxc' "
-  printlog "  Jump to beginning of document "
-  printlog "  Select cell <A8> "
-  printlog "  Copy selected text "
-  hFileOpenLocally( gtesttoolpath & "writer\optional\input\clipboard\calc.sxc")
-  
-  Kontext "DocumentCalc"
-  printlog "  Jump to beginning of document "
-  DocumentCalc.TypeKeys "<Mod1 Home>"
-  DocumentCalc.TypeKeys "<Down>",7
-  EditCopy
-  gApplication = "WRITER"
-  printlog "  Open a new writerdocument "
-  Call hNewDocument
-  Sleep 2
-  try
-     EditPasteSpecialWriter
-  catch
-     Warnlog "Unable to execute 'Edit / Paste Special'! Test failed!"
-     Call hCloseDocument
-     Call hCloseDocument
-     goto endsub
-  endcatch
-  Wait 500
-  printlog "  Paste 'Text' in all available clipboard formats "
-  Kontext "InhaltEinfuegen"
-  if InhaltEinfuegen.Exists then
-    Call wPasteAvailableClipboardFormats(Auswahl.GetItemCount,"ctext")
-    printlog "  Write Clipboard format under pasted content "
-    Call hFileSaveAsWithFilterKill (gOfficepath + "user\work\writer_to_writer_hyperlink_wholecell.odt", "writer8")
-    printlog "  Save document as ..\user\work\writer_to_writer_hyperlink_wholecell.odt"
-    Wait 500
-    Call hCloseDocument
-    printlog "  Close saved document "
-    wait 500
-    printlog "  Reopen saved document "
-    if hFileOpen (gOfficepath + "user\work\writer_to_writer_hyperlink_wholecell.odt",true) = false then
-        Kontext "Active"
-        if Active.Exists then
-            try
-                Active.Yes
-            catch
-                Warnlog "Unable to remove checkbox: " + Active.Gettext
-                Active.ok
-            endcatch
-        end if
-    end if
-    Wait 500
-    printlog "  Close saved document "
-    Call hCloseDocument
-  else
-    Warnlog "Dialog 'Paste Special' is not up!"
-    Call hCloseDocument
-    goto endsub
-  end if
-  printlog "  Close active document "
-  Call hCloseDocument
-endcase
-
-' ---------------------------------------------------------------------------------
-
-testcase CalcToWriterHyperlink2
-  gApplication = "CALC"
-  printlog "  Open File '..\\writer\\optional\\input\\clipboard\\calc.sxc' "
-  printlog "  Jump to beginning of document "
-  printlog "  Select cell <A8> "
-  printlog "  Copy selected text "
-  hFileOpenLocally( gtesttoolpath & "writer\optional\input\clipboard\calc.sxc")
-  
-  Kontext "DocumentCalc"
-  printlog "  Jump to beginning of document "
-  DocumentCalc.TypeKeys "<Mod1 Home>"
-  DocumentCalc.TypeKeys "<Down>",7
-  DocumentCalc.TypeKeys "<F2>"
-  DocumentCalc.TypeKeys "<Mod1 A>"
-  EditCopy
-  gApplication = "WRITER"
-  printlog "  Open a new writerdocument "
-  Call hNewDocument
-  Sleep 2
-  try
-     EditPasteSpecialWriter
-  catch
-     Warnlog "Unable to execute 'Edit / Paste Special'! Test failed!"
-     Call hCloseDocument
-     Call hCloseDocument
-     goto endsub
-  endcatch
-  Wait 500
-  printlog "  Paste 'Text' in all available clipboard formats "
-  Kontext "InhaltEinfuegen"
-  if InhaltEinfuegen.Exists then
-    printlog "  Write Clipboard format under pasted content "
-    Call wPasteAvailableClipboardFormats(Auswahl.GetItemCount,"text")
-    printlog "  Save document as ..\user\work\writer_to_writer_hyperlink_cellcontent.odt"
-    Call hFileSaveAsWithFilterKill (gOfficepath + "user\work\writer_to_writer_hyperlink_cellcontent.odt", "writer8")
-    Wait 500
-    printlog "  Close saved document "
-    Call hCloseDocument
-    wait 500
-    printlog "  Reopen saved document "
-    hFileOpen( gOfficepath + "user\work\writer_to_writer_hyperlink_cellcontent.odt",false)
-    Wait 500
-    printlog "  Close saved document "
-    Call hCloseDocument
-  else
-    Warnlog "Dialog 'Paste Special' is not up!"
-    Call hCloseDocument
-    goto endsub
-  end if
-  printlog "  Close active document "
-  Call hCloseDocument
-endcase
-
-' ---------------------------------------------------------------------------------
-
-testcase CalcToWriterDrawObject
-  gApplication = "CALC"
-  printlog "  Open File '..\\writer\\optional\\input\\clipboard\\calc.sxc' "
-  printlog "  Jump to beginning of document "
-  printlog "  Select Drawing object "
-  printlog "  Copy selected object "
-  hFileOpenLocally( gtesttoolpath & "writer\optional\input\clipboard\calc.sxc")
-  
-  Kontext "DocumentCalc"
-  printlog "  Jump to beginning of document "
-  Call wNavigatorAuswahl(8,1)
-  EditCopy
-  gApplication = "WRITER"
-  printlog "  Open a new writerdocument "
-  Call hNewDocument
-  Sleep 2
-  try
-     EditPasteSpecialWriter
-  catch
-     Warnlog "Unable to execute 'Edit / Paste Special'! Test failed!"
-     Call hCloseDocument
-     Call hCloseDocument
-     goto endsub
-  endcatch
-  Wait 500
-  printlog "  Paste 'Text' in all available clipboard formats "
-  Kontext "InhaltEinfuegen"
-  if InhaltEinfuegen.Exists then
-    printlog "  Write Clipboard format under pasted content "
-    Call wPasteAvailableClipboardFormats(Auswahl.GetItemCount,"ctext")
-    printlog "  Save document as ..\user\work\writer_to_writer_draw.odt"
-    Call hFileSaveAsWithFilterKill (gOfficepath + "user\work\writer_to_writer_draw.odt", "writer8")
-    Wait 500
-    printlog "  Close saved document "
-    Call hCloseDocument
-    wait 500
-    printlog "  Reopen saved document "
-    hFileOpen( gOfficepath + "user\work\writer_to_writer_draw.odt",false)
-    Wait 500
-    printlog "  Close saved document "
-    Call hCloseDocument
-  else
-    Warnlog "Dialog 'Paste Special' is not up!"
-    Call hCloseDocument
-    goto endsub
-  end if
-  printlog "  Close active document "
-  Call hCloseDocument
-endcase
-
-' ---------------------------------------------------------------------------------
-
-testcase CalcToWriterOLE
-  gApplication = "CALC"
-  printlog "  Open File '..\\writer\\optional\\input\\clipboard\\calc.sxc' "
-  printlog "  Jump to beginning of document "
-  printlog "  Select OLE-Object "
-  printlog "  Copy selected object "
-  hFileOpenLocally( gtesttoolpath & "writer\optional\input\clipboard\calc.sxc")
-  
-  Kontext "DocumentCalc"
-  printlog "  Jump to beginning of document "
-  Call wNavigatorAuswahl(6,1)
-  EditCopy
-  gApplication = "WRITER"
-  printlog "  Open a new writerdocument "
-  Call hNewDocument
-  Sleep 2
-  try
-     EditPasteSpecialWriter
-  catch
-     Warnlog "Unable to execute 'Edit / Paste Special'! Test failed!"
-     Call hCloseDocument
-     Call hCloseDocument
-     goto endsub
-  endcatch
-  Wait 500
-  printlog "  Paste 'Text' in all available clipboard formats "
-  Kontext "InhaltEinfuegen"
-  if InhaltEinfuegen.Exists then
-    printlog "  Write Clipboard format under pasted content "
-    Call wPasteAvailableClipboardFormats(Auswahl.GetItemCount,"ctext")
-    printlog "  Save document as ..\user\work\writer_to_writer_ole.odt"
-    Call hFileSaveAsWithFilterKill (gOfficepath + "user\work\writer_to_writer_ole.odt", "writer8")
-    Wait 500
-    printlog "  Close saved document "
-    Call hCloseDocument
-    wait 500
-    printlog "  Reopen saved document "
-    hFileOpen( gOfficepath + "user\work\writer_to_writer_ole.odt",false)
-    Wait 500
-    printlog "  Close saved document "
-    Call hCloseDocument
-  else
-    Warnlog "Dialog 'Paste Special' is not up!"
-    Call hCloseDocument
-    goto endsub
-  end if
-  printlog "  Close active document "
-  Call hCloseDocument
-endcase
-
diff --git a/testautomation/writer/optional/includes/clipboard/w_216_.inc b/testautomation/writer/optional/includes/clipboard/w_216_.inc
deleted file mode 100644
index bfbbdf637695..000000000000
--- a/testautomation/writer/optional/includes/clipboard/w_216_.inc
+++ /dev/null
@@ -1,440 +0,0 @@
-'**************************************************************************
-' 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 : helge.delfs@oracle.com
-'*
-'* short description : CROSS-APPLICATIONS CLIPBOARD TEST (Writer)
-'*
-'\***********************************************************************
-
-sub w_216_
-
-    Call HTMLToWRITERText
-    Call HTMLToWRITERField
-    Call HTMLToWRITERTable
-    Call HTMLToWRITERGraphicLinked
-    Call HTMLToWRITERControl
-    Call HTMLToWRITERFloatingFrame
-
-end sub
-
-' ---------------------------------------------------------------------------------
-
-testcase HTMLToWRITERText
-
-    gApplication = "HTML"
-    printlog "  Open File '..\\writer\\optional\\input\\clipboard\\html.html' "
-    printlog "  Jump to beginning of document "
-    printlog "  Select first paragraph "
-    printlog "  Copy selected text "
-    hFileOpenLocally( gtesttoolpath & "writer\optional\input\clipboard\html.html",false)
-    
-    sleep (3)
-    if GetDocumentCount() = 2 then
-    	Warnlog "#i104365#read only document remains opened"
-    endif        
-    printlog "  Jump to beginning of document "
-    Call wTypeKeys "<Mod1 Home>"
-    Call wTypeKeys "<Shift Down><Shift End>"
-    EditCopy
-    sleep (2)
-    Call wTypeKeys "<Home>"
-    gApplication = "WRITER"
-
-    printlog "  Open new document "
-    Call hNewDocument
-    printlog "  Edit / Paste Special "
-    Sleep 2
-    try
-        EditPasteSpecialWriter
-    catch
-        Warnlog "Unable to execute 'Edit / Paste Special'! Test failed!"
-        Call hCloseDocument
-        Call hCloseDocument
-        goto endsub
-    endcatch
-    Wait 500
-    printlog "  Paste 'Text' in all available clipboard formats "
-    Kontext "InhaltEinfuegen"
-    if InhaltEinfuegen.Exists then
-        printlog "  Write Clipboard format under pasted content "
-        Call wPasteAvailableClipboardFormats(Auswahl.GetItemCount,"text")
-        printlog "  Save document as ..\user\work\html_to_writer_text.odt"
-        Call hFileSaveAsWithFilterKill (gOfficepath + "user\work\html_to_writer_text.odt", "writer8")
-        Wait 500
-        printlog "  Close saved document "
-        Call hCloseDocument
-        wait 500
-        printlog "  Reopen saved document "
-        if hFileOpen (gOfficepath + "user\work\html_to_writer_text.odt",true) = false then
-            Kontext "Active"
-            if Active.Exists then
-                try
-                    Active.Yes
-                catch
-                    Warnlog "Unable to remove checkbox: " + Active.Gettext
-                    Active.ok
-                endcatch
-            end if
-        end if
-        Wait 500
-        printlog "  Close saved document "
-        Call hCloseDocument
-    else
-        Warnlog "Dialog 'Paste Special' is not up!"
-        Call hCloseDocument
-        goto endsub
-    end if
-    printlog "  Close saved document "
-    Do Until GetDocumentCount = 0
-	    Call hCloseDocument
-    Loop
-endcase
-
-' ----------------------------------------------------------------------------------------------
-
-testcase HTMLToWRITERField
-    gApplication = "HTML"
-    printlog "  Open File '..\\writer\\optional\\input\\clipboard\\html.html' "
-    printlog "  Jump to beginning of document "
-    printlog "  Select paragraph with 'Date Field' "
-    printlog "  Copy selected text "
-    hFileOpenLocally( gtesttoolpath & "writer\optional\input\clipboard\html.html")
-    
-    if GetDocumentCount() = 2 then
-    	Warnlog "#i104365#read only document remains opened"
-    endif            
-    printlog "  Jump to beginning of document "
-    Call wTypeKeys "<Mod1 Home>"
-    Call wTypeKeys "<Down>",2
-    Call wTypeKeys "<Home><Shift End>"
-    EditCopy
-
-    gApplication = "WRITER"
-    printlog "  Open new document "
-    Call hNewDocument
-    printlog "  Edit / Paste Special "
-    Sleep 2
-    try
-        EditPasteSpecialWriter
-    catch
-        Warnlog "Unable to execute 'Edit / Paste Special'! Test failed!"
-        Call hCloseDocument
-        Call hCloseDocument
-        goto endsub
-    endcatch
-    Wait 500
-    printlog "  Paste 'Field' in all available clipboard formats "
-    Kontext "InhaltEinfuegen"
-        if InhaltEinfuegen.Exists then
-            Call wPasteAvailableClipboardFormats(Auswahl.GetItemCount,"field")
-            printlog "  Write Clipboard format under pasted content "
-            Call hFileSaveAsWithFilterKill (gOfficepath + "user\work\html_to_writer_field.odt", "writer8")
-            printlog "  Save document as ..\user\work\html_to_writer_field.odt"
-            Wait 500
-            printlog "  Close saved document "
-            Call hCloseDocument
-            wait 500
-            printlog "  Reopen saved document "
-            if hFileOpen (gOfficepath + "user\work\html_to_writer_field.odt",true) = false then
-                Kontext "Active"
-                if Active.Exists then
-                    try
-                        Active.Yes
-                    catch
-                        Warnlog "Unable to remove checkbox: " + Active.Gettext
-                        Active.ok
-                    endcatch
-                end if
-            end if
-            Wait 500
-            printlog "  Close saved document "
-            Call hCloseDocument
-        else
-            Warnlog "Dialog 'Paste Special' is not up!"
-            Call hCloseDocument
-            goto endsub
-        end if
-    printlog "  Close saved document "
-    Do Until GetDocumentCount = 0
-	    Call hCloseDocument
-    Loop
-endcase
-
-' ----------------------------------------------------------------------------------------------
-
-testcase HTMLToWRITERTable
-    gApplication = "HTML"
-    printlog "  Open File '..\\writer\\optional\\input\\clipboard\\html.html' "
-    printlog "  Jump to beginning of document "
-    printlog "  Select 'Table' "
-    printlog "  Copy selected table "
-    hFileOpenLocally( gtesttoolpath & "writer\optional\input\clipboard\html.html",false)
-    
-    if GetDocumentCount() = 2 then
-    	Warnlog "#i104365#read only document remains opened"
-    endif            
-    printlog "  Jump to beginning of document "
-    Call wTypeKeys "<Mod1 Home>"
-    Call wTypeKeys "<Down>",5
-    Call wTypeKeys "<Mod1 A>",2
-    EditCopy
-
-    gApplication = "WRITER"
-    printlog "  Open new document "
-    Call hNewDocument
-    printlog "  Edit / Paste Special "
-    Sleep 2
-    try
-        EditPasteSpecialWriter
-    catch
-        Warnlog "Unable to execute 'Edit / Paste Special'! Test failed!"
-        Call hCloseDocument
-        Call hCloseDocument
-        goto endsub
-    endcatch
-    Wait 500
-    printlog "  Paste 'Table' in all available clipboard formats "
-    Kontext "InhaltEinfuegen"
-    if InhaltEinfuegen.Exists then
-        Call wPasteAvailableClipboardFormats(Auswahl.GetItemCount,"table")
-        printlog "  Write Clipboard format under pasted content "
-        Call hFileSaveAsWithFilterKill (gOfficepath + "user\work\html_to_writer_table.odt", "writer8")
-        printlog "  Save document as ..\user\work\html_to_writer_table.odt"
-        Wait 500
-        Call hCloseDocument
-        printlog "  Close saved document "
-        wait 500
-        if hFileOpen (gOfficepath + "user\work\html_to_writer_table.odt",true) = false then
-            Kontext "Active"
-            if Active.Exists then
-                try
-                    Active.Yes
-                catch
-                    Warnlog "Unable to remove checkbox: " + Active.Gettext
-                    Active.ok
-                endcatch
-            end if
-        end if
-        printlog "  Reopen saved document "
-        Wait 500
-        printlog "  Close saved document "
-        Call hCloseDocument
-    else
-        Warnlog "Dialog 'Paste Special' is not up!"
-        Call hCloseDocument
-        goto endsub
-    end if
-    printlog "  Close saved document "
-    Do Until GetDocumentCount = 0
-	    Call hCloseDocument
-    Loop
-endcase
-
-' ----------------------------------------------------------------------------------------------
-
-testcase HTMLToWRITERGraphicLinked
-    gApplication = "HTML"
-    printlog "  Open File '..\\writer\\optional\\input\\clipboard\\html.html' "
-    printlog "  Jump to beginning of document "
-    printlog "  Select 'Linked Graphic' "
-    printlog "  Copy selected Linked Graphic "
-    hFileOpenLocally( gtesttoolpath & "writer\optional\input\clipboard\html.html",false)
-    
-    if GetDocumentCount() = 2 then
-    	Warnlog "#i104365#read only document remains opened"
-    endif            
-    printlog "  Jump to beginning of document "
-    Call wTypeKeys "<Mod1 Home>"
-    Call wTypeKeys ( "<Shift F4>" )
-    EditCopy
-    
-    gApplication = "WRITER"
-    printlog "  Open new document "
-    Call hNewDocument
-    printlog "  Edit / Paste Special "
-    Sleep 2
-    try
-        EditPasteSpecialWriter
-    catch
-        Warnlog "Unable to execute 'Edit / Paste Special'! Test failed!"
-        Call hCloseDocument
-        Call hCloseDocument
-        goto endsub
-    endcatch
-    Wait 500
-    printlog "  Paste 'Linked Graphic' in all available clipboard formats "
-    Kontext "InhaltEinfuegen"
-    if InhaltEinfuegen.Exists then
-        Call wPasteAvailableClipboardFormats(Auswahl.GetItemCount,"graphicL")
-        printlog "  Write Clipboard format under pasted content "
-        Call hFileSaveAsWithFilterKill (gOfficepath + "user\work\html_to_writer_graphic1.odt", "writer8")
-        printlog "  Save document as ..\user\work\html_to_writer_graphic1.odt"
-        Wait 500
-        Call hCloseDocument
-        printlog "  Close saved document "
-        wait 500
-        hFileOpen( gOfficepath + "user\work\html_to_writer_graphic1.odt",false)
-        printlog "  Reopen saved document "
-        Wait 500
-        printlog "  Close saved document "
-        Call hCloseDocument
-    else
-        Warnlog "Dialog 'Paste Special' is not up!"
-        Call hCloseDocument
-        goto endsub
-    end if
-    printlog "  Close saved document "
-    Do Until GetDocumentCount = 0
-	    Call hCloseDocument
-    Loop
-endcase
-
-' ----------------------------------------------------------------------------------------------
-
-testcase HTMLToWRITERControl
-    gApplication = "HTML"
-    printlog "  Open File '..\\writer\\optional\\input\\clipboard\\html.html' "
-    printlog "  Jump to beginning of document "
-    printlog "  Select 'Control' "
-    printlog "  Copy selected Control "
-    hFileOpenLocally( gtesttoolpath & "writer\optional\input\clipboard\html.html",false)
-    
-    if GetDocumentCount() = 2 then
-    	Warnlog "#i104365#read only document remains opened"
-    endif            
-    printlog "  Jump to beginning of document "
-    Call wTypeKeys "<Mod1 Home>"
-    Call wTypeKeys ( "<Shift F4>" )
-    Call wTypeKeys "<Tab>"
-    EditCopy
-    
-    gApplication = "WRITER"
-    printlog "  Open new document "
-    Call hNewDocument
-    printlog "  Edit / Paste Special "
-    Sleep 2
-    try
-        EditPasteSpecialWriter
-    catch
-        Warnlog "Unable to execute 'Edit / Paste Special'! Test failed!"
-        Call hCloseDocument
-        Call hCloseDocument
-        goto endsub
-    endcatch
-    Wait 500
-    printlog "  Paste 'Control' in all available clipboard formats "
-    Kontext "InhaltEinfuegen"
-    if InhaltEinfuegen.Exists then
-        Call wPasteAvailableClipboardFormats(Auswahl.GetItemCount,"control")
-        printlog "  Write Clipboard format under pasted content "
-        Call hFileSaveAsWithFilterKill (gOfficepath + "user\work\html_to_writer_control.odt", "writer8")
-        printlog "  Save document as ..\user\work\html_to_writer_control.odt"
-        Wait 500
-        Call hCloseDocument
-        printlog "  Close saved document "
-        wait 500
-        hFileOpen( gOfficepath + "user\work\html_to_writer_control.odt",false)
-        printlog "  Reopen saved document "
-        Wait 500
-        printlog "  Close saved document "
-        Call hCloseDocument
-    else
-        Warnlog "Dialog 'Paste Special' is not up!"
-        Call hCloseDocument
-        goto endsub
-    end if
-    printlog "  Close saved document "
-    Do Until GetDocumentCount = 0
-	    Call hCloseDocument
-    Loop
-endcase
-
-' ----------------------------------------------------------------------------------------------
-
-testcase HTMLToWRITERFloatingFrame
-    gApplication = "HTML"
-    printlog "  Open File '..\\writer\\optional\\input\\clipboard\\html.html' "
-    printlog "  Jump to beginning of document "
-    printlog "  Select 'Floating Frame' "
-    printlog "  Copy selected Floating Frame "
-    hFileOpenLocally( gtesttoolpath & "writer\optional\input\clipboard\html.html",false)
-    
-    if GetDocumentCount() = 2 then
-    	Warnlog "#i104365#read only document remains opened"
-    endif            
-    printlog "  Jump to beginning of document "
-    Call wTypeKeys "<Mod1 Home>"
-    Call wTypeKeys ( "<Shift F4>" )
-    Call wTypeKeys "<Tab>",2
-    try
-        EditCopy
-    catch
-        Warnlog "Edit / Copy is disabled ! Maybe object not selected !"
-        Call hCloseDocument
-        goto endsub
-    endcatch
-    
-    gApplication = "WRITER"
-    printlog "  Open new document "
-    Call hNewDocument
-    printlog "  Edit / Paste Special "
-    Sleep 2
-    try
-        EditPasteSpecialWriter
-    catch
-        Warnlog "Unable to execute 'Edit / Paste Special'! Test failed!"
-        Call hCloseDocument
-        Call hCloseDocument
-        goto endsub
-    endcatch
-    Wait 500
-    printlog "  Paste 'Floating Frame' in all available clipboard formats "
-    Kontext "InhaltEinfuegen"
-    if InhaltEinfuegen.Exists then
-        Call wPasteAvailableClipboardFormats(Auswahl.GetItemCount,"control")
-        printlog "  Write Clipboard format under pasted content "
-        Call hFileSaveAsWithFilterKill (gOfficepath + "user\work\html_to_writer_float.odt", "writer8")
-        printlog "  Save document as ..\user\work\html_to_writer_float.odt"
-        Wait 500
-        Call hCloseDocument
-        printlog "  Close saved document "
-        wait 500
-        hFileOpen( gOfficepath + "user\work\html_to_writer_float.odt",false)
-        printlog "  Reopen saved document "
-        Wait 500
-        Call hCloseDocument
-        printlog "  Close saved document "
-    else
-        Warnlog "Dialog 'Paste Special' is not up!"
-        Call hCloseDocument
-        goto endsub
-    end if
-    printlog "  Close saved document "
-    Do Until GetDocumentCount = 0
-	    Call hCloseDocument
-    Loop    
-endcase
diff --git a/testautomation/writer/optional/includes/clipboard/w_217_.inc b/testautomation/writer/optional/includes/clipboard/w_217_.inc
deleted file mode 100644
index 5e81b745f6d8..000000000000
--- a/testautomation/writer/optional/includes/clipboard/w_217_.inc
+++ /dev/null
@@ -1,393 +0,0 @@
-'**************************************************************************
-' 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 : helge.delfs@oracle.com
-'*
-'* short description : CROSS-APPLICATIONS CLIPBOARD TEST (Writer)
-'*
-'\***********************************************************************
-
-sub w_217_
-
-    Call HTMLToCALCText
-    Call HTMLToCALCField
-    Call HTMLToCALCTable
-    Call HTMLToCALCGraphicLinked
-    Call HTMLToCALCControl
-    Call HTMLToCALCFloatingFrame
-
-end sub
-
-' ---------------------------------------------------------------------------------
-
-testcase HTMLToCALCText
-    gApplication = "HTML"
-    printlog "  Open File '..\\writer\\optional\\input\\clipboard\\html.html' " 
-    printlog "  Jump to beginning of document " 
-    printlog "  Select first paragraph " 
-    printlog "  Copy selected text " 
-    hFileOpenLocally( gtesttoolpath & "writer\optional\input\clipboard\html.html",false)
-    
-    printlog "  Jump to beginning of document " 
-    Call wTypeKeys "<Mod1 Home>"
-    Call wTypeKeys "<Shift Down><Shift End>"
-    EditCopy
-
-    gApplication = "CALC"
-    printlog "  Open new document " 
-    Call hNewDocument
-    printlog "  Edit / Paste Special " 
-    Sleep 2
-    try
-        EditPasteSpecialCalc
-    catch
-        Warnlog "Unable to execute 'Edit / Paste Special'! Test failed!"
-        Call hCloseDocument
-        Call hCloseDocument
-        goto endsub
-    endcatch
-    Wait 500
-    printlog "  Paste 'Text' in all available clipboard formats " 
-    Kontext "InhaltEinfuegen"
-    if InhaltEinfuegen.Exists then
-        printlog "  Write Clipboard format under pasted content " 
-        Call wPasteAvailableClipboardFormats(Auswahl.GetItemCount,"text")
-        printlog "  Save document as ..\user\work\html_to_calc_text.ods"
-        Call hFileSaveAsWithFilterKill (gOfficepath + "user\work\html_to_calc_text.ods", "calc8")
-        Wait 500
-        printlog "  Close saved document "
-        Call hCloseDocument
-        wait 500
-        printlog "  Reopen saved document "
-        if hFileOpen (gOfficepath + "user\work\html_to_calc_text.ods",true) = false then
-            Kontext "Active"
-            if Active.Exists then
-                try
-                    Active.Yes
-                catch
-                    Warnlog "Unable to remove checkbox: " + Active.Gettext
-                    Active.ok
-                endcatch
-            end if
-        end if
-        Wait 500
-        printlog "  Close saved document " 
-        Call hCloseDocument
-    else
-        Warnlog "Dialog 'Paste Special' is not up!"
-        Call hCloseDocument
-        goto endsub
-    end if
-    printlog "  Close active document " 
-    Do Until GetDocumentCount = 0
-        Call hCloseDocument
-    Loop
-endcase
-
-' ----------------------------------------------------------------------------------------------
-
-testcase HTMLToCALCField
-  gApplication = "HTML"
-  printlog "  Open File '..\\writer\\optional\\input\\clipboard\\html.html' " 
-  printlog "  Jump to beginning of document " 
-  printlog "  Select paragraph with 'Date Field' " 
-  printlog "  Copy selected text " 
-  hFileOpenLocally( gtesttoolpath & "writer\optional\input\clipboard\html.html",false)
-  
-  printlog "  Jump to beginning of document " 
-  Call wTypeKeys "<Mod1 Home>"
-  Call wTypeKeys "<Down>",2
-  Call wTypeKeys "<Home><Shift End>"
-  EditCopy
-
-    gApplication = "CALC"
-    printlog "  Open new document " 
-    Call hNewDocument
-    printlog "  Edit / Paste Special " 
-    Sleep 2
-    try
-        EditPasteSpecialCalc
-    catch
-        Warnlog "Unable to execute 'Edit / Paste Special'! Test failed!"
-        Call hCloseDocument
-        Call hCloseDocument
-        goto endsub
-    endcatch
-    Wait 500
-    printlog "  Paste 'Field' in all available clipboard formats " 
-    Kontext "InhaltEinfuegen"
-    if InhaltEinfuegen.Exists then
-        printlog "  Write Clipboard format under pasted content " 
-        Call wPasteAvailableClipboardFormats(Auswahl.GetItemCount,"field")
-        printlog "  Save document as ..\user\work\html_to_calc_field.ods"
-        Call hFileSaveAsWithFilterKill (gOfficepath + "user\work\html_to_calc_field.ods", "calc8")
-        Wait 500
-        printlog "  Close saved document "
-        Call hCloseDocument
-        wait 500
-        printlog "  Reopen saved document "
-        hFileOpen( gOfficepath + "user\work\html_to_calc_field.ods",true)
-        Wait 500
-        printlog "  Close saved document "
-        Call hCloseDocument
-    else
-        Warnlog "Dialog 'Paste Special' is not up!"
-        Call hCloseDocument
-        goto endsub
-    end if
-    printlog "  Close active document "
-    Do Until GetDocumentCount = 0
-        Call hCloseDocument
-    Loop
-endcase
-
-' ----------------------------------------------------------------------------------------------
-
-testcase HTMLToCALCTable
-    gApplication = "HTML"
-    printlog "  Open File '..\\writer\\optional\\input\\clipboard\\html.html' " 
-    printlog "  Jump to beginning of document " 
-    printlog "  Select 'Table' " 
-    printlog "  Copy selected table " 
-    hFileOpenLocally( gtesttoolpath & "writer\optional\input\clipboard\html.html",false)
-    
-    printlog "  Jump to beginning of document " 
-    Call wTypeKeys "<Mod1 Home>"
-    Call wTypeKeys "<Down>",5
-    Call wTypeKeys "<Mod1 A>",2
-    sleep (1)
-    EditCopy
-
-    gApplication = "CALC"
-    printlog "  Open new document " 
-    Call hNewDocument
-    printlog "  Edit / Paste Special " 
-    Sleep 2
-    try
-        EditPasteSpecialCalc
-    catch
-        Warnlog "Unable to execute 'Edit / Paste Special'! Test failed!"
-        Call hCloseDocument
-        Call hCloseDocument
-        goto endsub
-    endcatch
-    printlog "  Paste 'Table' in all available clipboard formats " 
-    Kontext "InhaltEinfuegen"
-    if InhaltEinfuegen.Exists(2) then
-        Call wPasteAvailableClipboardFormats(Auswahl.GetItemCount,"table")
-        printlog "  Write Clipboard format under pasted content " 
-        Call hFileSaveAsWithFilterKill (gOfficepath + "user\work\html_to_calc_table.ods", "calc8")
-        printlog "  Save document as ..\user\work\html_to_calc_table.ods" 
-        Call hCloseDocument
-        printlog "  Close saved document " 
-        hFileOpen( gOfficepath + "user\work\html_to_calc_table.ods",true)
-        printlog "  Reopen saved document " 
-        Call hCloseDocument
-        printlog "  Close saved document " 
-    else
-        Warnlog "Dialog 'Paste Special' is not up!"
-        Call hCloseDocument
-        goto endsub
-    end if
-    printlog "  Close active document " 
-    Do Until GetDocumentCount = 0
-        Call hCloseDocument
-    Loop
-endcase
-
-' ----------------------------------------------------------------------------------------------
-
-testcase HTMLToCALCGraphicLinked
-    gApplication = "HTML"
-    printlog "  Open File '..\\writer\\optional\\input\\clipboard\\html.html' " 
-    printlog "  Jump to beginning of document " 
-    printlog "  Select 'Linked Graphic' " 
-    printlog "  Copy selected Linked Graphic " 
-    hFileOpenLocally( gtesttoolpath & "writer\optional\input\clipboard\html.html",false)
-    
-    printlog "  Jump to beginning of document " 
-    Call wTypeKeys "<Mod1 Home>"
-    Call wTypeKeys ( "<Shift F4>" )
-    EditCopy
-    EditCopy
-
-    gApplication = "CALC"
-    printlog "  Open new document " 
-    Call hNewDocument
-    printlog "  Edit / Paste Special " 
-    Sleep 2
-    try
-        EditPasteSpecialCalc
-    catch
-        warnlog "Unable to execute 'Edit / Paste Special'! Test failed! Manually not reproducable"
-        Call hCloseDocument
-        Call hCloseDocument
-        goto endsub
-    endcatch
-    Wait 500
-    printlog "  Paste 'Linked Graphic' in all available clipboard formats " 
-    Kontext "InhaltEinfuegen"
-    if InhaltEinfuegen.Exists then
-        printlog "  Write Clipboard format under pasted content "
-        Call wPasteAvailableClipboardFormats(Auswahl.GetItemCount,"graphicL")
-        printlog "  Save document as ..\user\work\html_to_calc_graphic1.ods"
-        Call hFileSaveAsWithFilterKill (gOfficepath + "user\work\html_to_calc_graphic1.ods", "calc8")
-        Wait 500
-        printlog "  Close saved document "
-        Call hCloseDocument
-        wait 500
-        printlog "  Reopen saved document "
-        hFileOpen( gOfficepath + "user\work\html_to_calc_graphic1.ods",false)
-        Wait 500
-        printlog "  Close saved document "
-        Call hCloseDocument
-    else
-        Warnlog "Dialog 'Paste Special' is not up!"
-        Call hCloseDocument
-        goto endsub
-    end if
-    printlog "  Close active document " 
-    Do Until GetDocumentCount = 0
-        Call hCloseDocument
-    Loop
-endcase
-
-' ----------------------------------------------------------------------------------------------
-
-testcase HTMLToCALCControl
-    gApplication = "HTML"
-    printlog "  Open File '..\\writer\\optional\\input\\clipboard\\html.html' " 
-    printlog "  Jump to beginning of document " 
-    printlog "  Select 'Control' " 
-    printlog "  Copy selected Control " 
-    hFileOpenLocally( gtesttoolpath & "writer\optional\input\clipboard\html.html",false)
-    
-    printlog "  Jump to beginning of document " 
-    Call wTypeKeys "<Mod1 Home>"
-    Call wTypeKeys ( "<Shift F4>" )
-    Call wTypeKeys "<Tab>"
-    EditCopy
-
-    gApplication = "CALC"
-    printlog "  Open new document " 
-    Call hNewDocument
-    printlog "  Edit / Paste Special " 
-    Sleep 2
-    try
-        EditPasteSpecialCalc
-    catch
-        Warnlog "Unable to execute 'Edit / Paste Special'! Test failed!"
-        Call hCloseDocument
-        Call hCloseDocument
-        goto endsub
-    endcatch
-    Wait 500
-    printlog "  Paste 'Control' in all available clipboard formats " 
-    Kontext "InhaltEinfuegen"
-    if InhaltEinfuegen.Exists then
-        printlog "  Write Clipboard format under pasted content " 
-        Call wPasteAvailableClipboardFormats(Auswahl.GetItemCount,"control")
-        printlog "  Save document as ..\user\work\html_to_calc_control.sxc"
-        Call hFileSaveAsWithFilterKill (gOfficepath + "user\work\html_to_calc_control.ods", "calc8")
-        Wait 500
-        printlog "  Close saved document "
-        Call hCloseDocument
-        wait 500
-        printlog "  Reopen saved document "
-        hFileOpen( gOfficepath + "user\work\html_to_calc_control.ods",false)
-        Wait 500
-        printlog "  Close saved document "
-        Call hCloseDocument
-    else
-        Warnlog "Dialog 'Paste Special' is not up!"
-        Call hCloseDocument
-        goto endsub
-    end if
-    printlog "  Close active document " 
-    Do Until GetDocumentCount = 0
-        Call hCloseDocument
-    Loop
-endcase
-
-' ----------------------------------------------------------------------------------------------
-
-testcase HTMLToCALCFloatingFrame
-    gApplication = "HTML"
-    printlog "  Open File '..\\writer\\optional\\input\\clipboard\\html.html' " 
-    printlog "  Jump to beginning of document " 
-    printlog "  Select 'Floating Frame' " 
-    printlog "  Copy selected Floating Frame " 
-    hFileOpenLocally( gtesttoolpath & "writer\optional\input\clipboard\html.html",false)
-    
-    printlog "  Jump to beginning of document " 
-    Call wTypeKeys "<Mod1 Home>"
-    Call wTypeKeys ( "<Shift F4>" )
-    Call wTypeKeys "<Tab>",2
-    wait 500
-    try
-        EditCopy
-        EditCopy
-    catch
-        Warnlog "Edit / Copy is disabled ! Maybe object not selected!"
-        Call hCloseDocument
-        goto endsub
-    endcatch
-    gApplication = "CALC"
-    printlog "  Open new document " 
-    Call hNewDocument
-    printlog "  Edit / Paste Special " 
-    Sleep 2
-    try
-        EditPasteSpecialCalc
-    catch
-        Warnlog "Unable to execute 'Edit / Paste Special'! Test failed!"
-        Call hCloseDocument
-        Call hCloseDocument
-        goto endsub
-    endcatch
-    printlog "  Paste 'Floating Frame' in all available clipboard formats " 
-    Kontext "InhaltEinfuegen"
-    if InhaltEinfuegen.Exists(3) then
-        printlog "  Write Clipboard format under pasted content " 
-        Call wPasteAvailableClipboardFormats(Auswahl.GetItemCount,"control")
-        printlog "  Save document as ..\user\work\html_to_calc_float.ods"
-        Call hFileSaveAsWithFilterKill (gOfficepath + "user\work\html_to_calc_float.ods", "calc8")
-        printlog "  Close saved document " 
-        Call hCloseDocument
-        printlog "  Reopen saved document "
-        hFileOpen( gOfficepath + "user\work\html_to_calc_float.ods",false)
-        printlog "  Close saved document "
-        Call hCloseDocument
-    else
-        Warnlog "Dialog 'Paste Special' is not up!"
-        Call hCloseDocument
-        goto endsub
-    end if
-    printlog "  Close active document " 
-    Do Until GetDocumentCount = 0
-        Call hCloseDocument
-    Loop
-endcase
diff --git a/testautomation/writer/optional/includes/clipboard/w_218_.inc b/testautomation/writer/optional/includes/clipboard/w_218_.inc
deleted file mode 100644
index 08f23ef0df96..000000000000
--- a/testautomation/writer/optional/includes/clipboard/w_218_.inc
+++ /dev/null
@@ -1,402 +0,0 @@
-'**************************************************************************
-' 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 : helge.delfs@oracle.com
-'*
-'* short description : CROSS-APPLICATIONS CLIPBOARD TEST (Writer)
-'*
-'\***********************************************************************
-
-sub w_218_
-
-    Call HTMLToDRAWText
-    Call HTMLToDRAWField
-    Call HTMLToDRAWTable
-    Call HTMLToDRAWGraphicLinked
-    Call HTMLToDRAWControl
-    Call HTMLToDRAWFloatingFrame
-
-end sub
-
-' ---------------------------------------------------------------------------------
-
-testcase HTMLToDRAWText
-    gApplication = "HTML"
-    printlog "  Open File '..\\writer\\optional\\input\\clipboard\\html.html' "
-    printlog " + Jump to beginning of document "
-    printlog " + Select first paragraph "
-    printlog " + Copy selected text "
-    hFileOpenLocally( gtesttoolpath & "writer\optional\input\clipboard\html.html")
-    
-    printlog "  Jump to beginning of document "
-    Call wTypeKeys "<Mod1 Home>"
-    Call wTypeKeys "<Shift Down><Shift End>"
-    EditCopy
-
-    gApplication = "DRAW"
-    printlog " + Open new document "
-    Call hNewDocument
-    printlog " + Edit / Paste Special "
-    Sleep 2
-    try
-        EditPasteSpecial
-    catch
-        Warnlog "Unable to execute 'Edit / Paste Special'! Test failed!"
-        Call hCloseDocument
-        Call hCloseDocument
-        goto endsub
-    endcatch
-    Wait 500
-    printlog "  Paste 'Text' in all available clipboard formats "
-    Kontext "InhaltEinfuegen"
-    if InhaltEinfuegen.Exists then
-        printlog " + Write Clipboard format under pasted content "
-        Call wPasteAvailableClipboardFormats(Auswahl.GetItemCount,"text")
-        printlog " + Save document as ..\user\work\html_to_draw_text.odg"
-        Call hFileSaveAsWithFilterKill (gOfficepath + "user\work\html_to_draw_text.odg", "draw8")
-        Wait 500
-        printlog " + Close saved document "
-        Call hCloseDocument
-        wait 500
-        printlog " + Reopen saved document "
-        if hFileOpen (gOfficepath + "user\work\html_to_draw_text.odg",false) = false then
-            Kontext "Active"
-            if Active.Exists then
-                try
-                    Active.Yes
-                catch
-                    Warnlog "Unable to remove checkbox: " + Active.Gettext
-                    Active.ok
-                endcatch
-            end if
-        end if      
-        Wait 500
-        printlog " + Close saved document "
-        Call hCloseDocument
-    else
-        Warnlog "Dialog 'Paste Special' is not up!"
-        Call hCloseDocument
-        goto endsub
-    end if
-    printlog "  Close active document "
-    Do Until GetDocumentCount = 0
-        Call hCloseDocument
-    Loop
-endcase
-
-' ----------------------------------------------------------------------------------------------
-
-testcase HTMLToDRAWField
-    gApplication = "HTML"
-    printlog "  Open File '..\\writer\\optional\\input\\clipboard\\html.html' "
-    printlog " + Jump to beginning of document "
-    printlog " + Select paragraph with 'Date Field' "
-    printlog " + Copy selected text "
-    hFileOpenLocally( gtesttoolpath & "writer\optional\input\clipboard\html.html")
-    
-    printlog "  Jump to beginning of document "
-    Call wTypeKeys "<Mod1 Home>"
-    Call wTypeKeys "<Down>",2
-    Call wTypeKeys "<Home><Shift End>"
-    try
-        EditCopy
-    catch
-        Call wTypeKeys "<Down>",1
-        Call wTypeKeys "<Home><Shift End>"
-        EditCopy
-    endcatch
-    gApplication = "DRAW"
-    printlog " + Open new document "
-    Call hNewDocument
-    printlog " + Edit / Paste Special "
-    Sleep 2
-    try
-        EditPasteSpecial
-    catch
-        Warnlog "Unable to execute 'Edit / Paste Special'! Test failed!"
-        Call hCloseDocument
-        Call hCloseDocument
-        goto endsub
-    endcatch
-    Wait 500
-    printlog "  Paste 'Field' in all available clipboard formats "
-    Kontext "InhaltEinfuegen"
-    if InhaltEinfuegen.Exists then
-        printlog " + Write Clipboard format under pasted content "
-        Call wPasteAvailableClipboardFormats(Auswahl.GetItemCount,"field")
-        printlog " + Save document as ..\user\work\html_to_draw_field.odg"
-        Call hFileSaveAsWithFilterKill (gOfficepath + "user\work\html_to_draw_field.odg", "draw8")
-        Wait 500
-        printlog " + Close saved document "
-        Call hCloseDocument
-        sleep (2)
-        printlog " + Reopen saved document "
-        hFileOpen( gOfficepath + "user\work\html_to_draw_field.odg",false)
-        Wait 500
-        printlog " + Close saved document "
-        Call hCloseDocument
-    else
-        Warnlog "Dialog 'Paste Special' is not up!"
-        Call hCloseDocument
-        goto endsub
-    end if
-    printlog "  Close active document "
-    Do Until GetDocumentCount = 0
-        Call hCloseDocument
-    Loop
-endcase
-
-' ----------------------------------------------------------------------------------------------
-
-testcase HTMLToDRAWTable
-  gApplication = "HTML"
-  printlog "  Open File '..\\writer\\optional\\input\\clipboard\\html.html' "
-  printlog " + Jump to beginning of document "
-  printlog " + Select 'Table' "
-  printlog " + Copy selected table "
-  hFileOpenLocally( gtesttoolpath & "writer\optional\input\clipboard\html.html")
-  
-  printlog "  Jump to beginning of document "
-  Call wTypeKeys "<Mod1 Home>"
-  Call wTypeKeys "<Down>",5
-  Call wTypeKeys "<Mod1 A>",2
-  EditCopy
-
-  gApplication = "DRAW"
-  printlog " + Open new document "
-  Call hNewDocument
-  printlog " + Edit / Paste Special "
-    Sleep 2
-    try
-        EditPasteSpecial
-    catch
-        Warnlog "Unable to execute 'Edit / Paste Special'! Test failed!"
-        Call hCloseDocument
-        Call hCloseDocument
-        goto endsub
-    endcatch
-  Wait 500
-  printlog "  Paste 'Table' in all available clipboard formats "
-  Kontext "InhaltEinfuegen"
-   if InhaltEinfuegen.Exists then
-     printlog " + Write Clipboard format under pasted content "
-     Call wPasteAvailableClipboardFormats(Auswahl.GetItemCount,"table")
-     printlog " + Save document as ..\user\work\html_to_draw_table.odg"
-     Call hFileSaveAsWithFilterKill (gOfficepath + "user\work\html_to_draw_table.odg", "draw8")
-     Wait 500
-     printlog " + Close saved document "
-     Call hCloseDocument
-     wait 500
-     printlog " + Reopen saved document "
-     hFileOpen( gOfficepath + "user\work\html_to_draw_table.odg",false)
-     Wait 500
-     printlog " + Close saved document "
-     Call hCloseDocument
-   else
-     Warnlog "Dialog 'Paste Special' is not up!"
-     Call hCloseDocument
-     goto endsub
-   end if
-  printlog "  Close active document "
-    Do Until GetDocumentCount = 0
-        Call hCloseDocument
-    Loop
-endcase
-
-' ----------------------------------------------------------------------------------------------
-
-testcase HTMLToDRAWGraphicLinked
-    gApplication = "HTML"
-    printlog "  Open File '..\\writer\\optional\\input\\clipboard\\html.html' "
-    printlog " + Jump to beginning of document "
-    printlog " + Select 'Linked Graphic' "
-    printlog " + Copy selected Linked Graphic "
-    hFileOpenLocally( gtesttoolpath & "writer\optional\input\clipboard\html.html")
-    
-    printlog "  Jump to beginning of document "
-    Call wTypeKeys "<Mod1 Home>"
-    Call wTypeKeys ( "<Shift F4>" )
-    EditCopy
-    
-    gApplication = "DRAW"
-    printlog " + Open new document "
-    Call hNewDocument
-    printlog " + Edit / Paste Special "
-    Sleep 2
-    try
-        EditPasteSpecial
-    catch
-        Warnlog "Unable to execute 'Edit / Paste Special'! Test failed!"
-        Call hCloseDocument
-        Call hCloseDocument
-        goto endsub
-    endcatch
-    Wait 500
-    printlog "  Paste 'Linked Graphic' in all available clipboard formats "
-    Kontext "InhaltEinfuegen"
-    if InhaltEinfuegen.Exists then
-        printlog " + Write Clipboard format under pasted content "
-        Call wPasteAvailableClipboardFormats(Auswahl.GetItemCount,"graphicL")
-        printlog " + Save document as ..\user\work\html_to_draw_graphic1.odg"
-        Call hFileSaveAsWithFilterKill (gOfficepath + "user\work\html_to_draw_graphic1.odg", "draw8")
-        Wait 500
-        printlog " + Close saved document "
-        Call hCloseDocument
-        wait 500
-        printlog " + Reopen saved document "
-        hFileOpen( gOfficepath + "user\work\html_to_draw_graphic1.odg",false)
-        Wait 500
-        printlog " + Close saved document "
-        Call hCloseDocument
-    else
-        Warnlog "Dialog 'Paste Special' is not up!"
-        Call hCloseDocument
-        goto endsub
-    end if
-    printlog "  Close active document "
-    Do Until GetDocumentCount = 0
-        Call hCloseDocument
-    Loop
-endcase
-
-' ----------------------------------------------------------------------------------------------
-
-testcase HTMLToDRAWControl
-    gApplication = "HTML"
-    printlog "  Open File '..\\writer\\optional\\input\\clipboard\\html.html' "
-    printlog " + Jump to beginning of document "
-    printlog " + Select 'Control' "
-    printlog " + Copy selected Control "
-    hFileOpenLocally( gtesttoolpath & "writer\optional\input\clipboard\html.html")
-    
-    printlog "  Jump to beginning of document "
-    Call wTypeKeys "<Mod1 Home>"
-    Call wTypeKeys ( "<Shift F4>" )
-    Call wTypeKeys "<Tab>"
-    EditCopy
-    
-    gApplication = "DRAW"
-    printlog " + Open new document "
-    Call hNewDocument
-    printlog " + Edit / Paste Special "
-    Sleep 2
-    try
-        EditPasteSpecial
-    catch
-        Warnlog "Unable to execute 'Edit / Paste Special'! Test failed!"
-        Call hCloseDocument
-        Call hCloseDocument
-        goto endsub
-    endcatch
-    Wait 500
-    printlog "  Paste 'Control' in all available clipboard formats "
-    Kontext "InhaltEinfuegen"
-    if InhaltEinfuegen.Exists then
-        printlog " + Write Clipboard format under pasted content "
-        Call wPasteAvailableClipboardFormats(Auswahl.GetItemCount,"control")
-        printlog " + Save document as ..\user\work\html_to_draw_control.odg"
-        Call hFileSaveAsWithFilterKill (gOfficepath + "user\work\html_to_draw_control.odg", "draw8")
-        Wait 500
-        printlog " + Close saved document "
-        Call hCloseDocument
-        wait 500
-        printlog " + Reopen saved document "
-        hFileOpen( gOfficepath + "user\work\html_to_draw_control.odg",false)
-        Wait 500
-        printlog " + Close saved document "
-        Call hCloseDocument
-    else
-        Warnlog "Dialog 'Paste Special' is not up!"
-        Call hCloseDocument
-        goto endsub
-    end if
-    printlog "  Close active document "
-    Do Until GetDocumentCount = 0
-        Call hCloseDocument
-    Loop
-endcase
-
-' ----------------------------------------------------------------------------------------------
-
-testcase HTMLToDRAWFloatingFrame
-    gApplication = "HTML"
-    printlog "  Open File '..\\writer\\optional\\input\\clipboard\\html.html' "
-    printlog " + Jump to beginning of document "
-    printlog " + Select 'Floating Frame' "
-    printlog " + Copy selected Floating Frame "
-    hFileOpenLocally( gtesttoolpath & "writer\optional\input\clipboard\html.html")
-    
-    printlog "  Jump to beginning of document "
-    Call wTypeKeys "<Mod1 Home>"
-    Call wTypeKeys ( "<Shift F4>" )
-    Call wTypeKeys "<Tab>",2
-    try
-        EditCopy
-    catch
-        Warnlog "Edit / Copy is disabled ! Maybe object not selected!"
-        Call hCloseDocument
-        goto endsub
-    endcatch
-    gApplication = "DRAW"
-    printlog " + Open new document "
-    Call hNewDocument
-    printlog " + Edit / Paste Special "
-    Sleep 2
-    try
-        EditPasteSpecial
-    catch
-        Warnlog "Unable to execute 'Edit / Paste Special'! Test failed!"
-        Call hCloseDocument
-        Call hCloseDocument
-        goto endsub
-    endcatch
-    Wait 500
-    printlog "  Paste 'Floating Frame' in all available clipboard formats "
-    Kontext "InhaltEinfuegen"
-    if InhaltEinfuegen.Exists then
-        printlog " + Write Clipboard format under pasted content "
-        Call wPasteAvailableClipboardFormats(Auswahl.GetItemCount,"control")
-        printlog " + Save document as ..\user\work\html_to_draw_float.odg"
-        Call hFileSaveAsWithFilterKill (gOfficepath + "user\work\html_to_draw_float.odg", "draw8")
-        Wait 500
-        printlog " + Close saved document "
-        Call hCloseDocument
-        wait 500
-        printlog " + Reopen saved document "
-        hFileOpen( gOfficepath + "user\work\html_to_draw_float.odg",false)
-        Wait 500
-        printlog " + Close saved document "
-        Call hCloseDocument
-    else
-        Warnlog "Dialog 'Paste Special' is not up!"
-        Call hCloseDocument
-        goto endsub
-    end if
-    printlog "  Close active document "
-    Do Until GetDocumentCount = 0
-        Call hCloseDocument
-    Loop
-endcase
diff --git a/testautomation/writer/optional/includes/clipboard/w_219_.inc b/testautomation/writer/optional/includes/clipboard/w_219_.inc
deleted file mode 100644
index 371e1e127e6e..000000000000
--- a/testautomation/writer/optional/includes/clipboard/w_219_.inc
+++ /dev/null
@@ -1,397 +0,0 @@
-'**************************************************************************
-' 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 : helge.delfs@oracle.com
-'*
-'* short description : CROSS-APPLICATIONS CLIPBOARD TEST (Writer)
-'*
-'\***********************************************************************
-
-sub w_219_
-
-    Call HTMLToIMPRESSText
-    Call HTMLToIMPRESSField
-    Call HTMLToIMPRESSTable
-    Call HTMLToIMPRESSGraphicLinked
-    Call HTMLToIMPRESSControl
-    Call HTMLToIMPRESSFloatingFrame
-
-end sub
-
-' ---------------------------------------------------------------------------------
-
-testcase HTMLToIMPRESSText
-  gApplication = "HTML"
-  printlog "  Open File '..\\writer\\optional\\input\\clipboard\\html.html' "
-  printlog "  Jump to beginning of document "
-  printlog "  Select first paragraph "
-  printlog "  Copy selected text "
-  hFileOpenLocally( gtesttoolpath & "writer\optional\input\clipboard\html.html")
-  
-  printlog "  Jump to beginning of document "
-  Call wTypeKeys "<Mod1 Home>"
-  Call wTypeKeys "<Shift Down><Shift End>"
-  EditCopy
-
-  gApplication = "IMPRESS"
-  printlog "  Open new document "
-  Call hNewDocument
-  printlog "  Edit / Paste Special "
-    Sleep 2
-    try
-        EditPasteSpecial
-    catch
-        Warnlog "Unable to execute 'Edit / Paste Special'! Test failed!"
-        Call hCloseDocument
-        Call hCloseDocument
-        goto endsub
-    endcatch
-  Wait 500
-  printlog "  Paste 'Text' in all available clipboard formats "
-  Kontext "InhaltEinfuegen"
-  if InhaltEinfuegen.Exists then
-   printlog "  Write Clipboard format under pasted content "
-  Call wPasteAvailableClipboardFormats(Auswahl.GetItemCount,"text")
-   printlog "  Save document as ..\user\work\html_to_impress_text.odp"
-   Call hFileSaveAsWithFilterKill (gOfficepath + "user\work\html_to_impress_text.odp", "impress8")
-   Wait 500
-   printlog "  Close saved document "
-   Call hCloseDocument
-   wait 500
-   printlog "  Reopen saved document "
-   if hFileOpen (gOfficepath + "user\work\html_to_impress_text.odp",false) = false then
-        Kontext "Active"
-        if Active.Exists then
-            try
-                Active.Yes
-            catch
-                Warnlog "Unable to remove checkbox: " + Active.Gettext
-                Active.ok
-            endcatch
-        end if
-   end if
-   Wait 500
-   printlog "  Close saved document "
-   Call hCloseDocument
-  else
-   Warnlog "Dialog 'Paste Special' is not up!"
-   Call hCloseDocument
-   goto endsub
-  end if
-  printlog "  Close active document "
-    Do Until GetDocumentCount = 0
-        Call hCloseDocument
-    Loop
-endcase
-
-' ----------------------------------------------------------------------------------------------
-
-testcase HTMLToIMPRESSField
-  gApplication = "HTML"
-  printlog "  Open File '..\\writer\\optional\\input\\clipboard\\html.html' "
-  printlog "  Jump to beginning of document "
-  printlog "  Select paragraph with 'Date Field' "
-  printlog "  Copy selected text "
-  hFileOpenLocally( gtesttoolpath & "writer\optional\input\clipboard\html.html")
-  
-  printlog "  Jump to beginning of document "
-  Call wTypeKeys "<Mod1 Home>"
-  Call wTypeKeys "<Down>",2
-  Call wTypeKeys "<Home><Shift End>"
-  EditCopy
-
-    gApplication = "IMPRESS"
-    printlog "  Open new document "
-    Call hNewDocument
-    printlog "  Edit / Paste Special "
-    Sleep 2
-    try
-        EditPasteSpecial
-    catch
-        Warnlog "Unable to execute 'Edit / Paste Special'! Test failed!"
-        Call hCloseDocument
-        Call hCloseDocument
-        goto endsub
-    endcatch
-    Wait 500
-    printlog "  Paste 'Field' in all available clipboard formats "
-    Kontext "InhaltEinfuegen"
-    if InhaltEinfuegen.Exists then
-    printlog "  Write Clipboard format under pasted content "
-    Call wPasteAvailableClipboardFormats(Auswahl.GetItemCount,"field")
-     printlog "  Save document as ..\user\work\html_to_impress_field.odp"
-    Call hFileSaveAsWithFilterKill (gOfficepath + "user\work\html_to_impress_field.odp", "impress8")
-     Wait 500
-     printlog "  Close saved document "
-     Call hCloseDocument
-     wait 500
-     printlog "  Reopen saved document "
-     hFileOpen( gOfficepath + "user\work\html_to_impress_field.odp",false)
-     Wait 500
-     printlog "  Close saved document "
-     Call hCloseDocument
-    else
-     Warnlog "Dialog 'Paste Special' is not up!"
-     Call hCloseDocument
-     goto endsub
-    end if
-  printlog "  Close active document "
-    Do Until GetDocumentCount = 0
-        Call hCloseDocument
-    Loop
-endcase
-
-' ----------------------------------------------------------------------------------------------
-
-testcase HTMLToIMPRESSTable
-  gApplication = "HTML"
-  printlog "  Open File '..\\writer\\optional\\input\\clipboard\\html.html' "
-  printlog "  Jump to beginning of document "
-  printlog "  Select 'Table' "
-  printlog "  Copy selected table "
-  hFileOpenLocally( gtesttoolpath & "writer\optional\input\clipboard\html.html")
-  
-  printlog "  Jump to beginning of document "
-  Call wTypeKeys "<Mod1 Home>"
-  Call wTypeKeys "<Down>",5
-  Call wTypeKeys "<Mod1 A>",2
-  EditCopy
-
-  gApplication = "IMPRESS"
-  printlog "  Open new document "
-  Call hNewDocument
-  printlog "  Edit / Paste Special "
-    Sleep 2
-    try
-        EditPasteSpecial
-    catch
-        Warnlog "Unable to execute 'Edit / Paste Special'! Test failed!"
-        Call hCloseDocument
-        Call hCloseDocument
-        goto endsub
-    endcatch
-  Wait 500
-  printlog "  Paste 'Table' in all available clipboard formats "
-  Kontext "InhaltEinfuegen"
-   if InhaltEinfuegen.Exists then
-     printlog "  Write Clipboard format under pasted content "
-     Call wPasteAvailableClipboardFormats(Auswahl.GetItemCount,"table")
-     printlog "  Save document as ..\user\work\html_to_impress_table.odp"
-     Call hFileSaveAsWithFilterKill (gOfficepath + "user\work\html_to_impress_table.odp", "impress8")
-     Wait 500
-     printlog "  Close saved document "
-     Call hCloseDocument
-     wait 500
-     printlog "  Reopen saved document "
-     hFileOpen( gOfficepath + "user\work\html_to_impress_table.odp",false)
-     Wait 500
-     printlog "  Close saved document "
-     Call hCloseDocument
-   else
-     Warnlog "Dialog 'Paste Special' is not up!"
-     Call hCloseDocument
-     goto endsub
-   end if
-  printlog "  Close active document "
-    Do Until GetDocumentCount = 0
-        Call hCloseDocument
-    Loop
-endcase
-
-' ----------------------------------------------------------------------------------------------
-
-testcase HTMLToIMPRESSGraphicLinked
-    gApplication = "HTML"
-    printlog "  Open File '..\\writer\\optional\\input\\clipboard\\html.html' "
-    printlog "  Jump to beginning of document "
-    printlog "  Select 'Linked Graphic' "
-    printlog "  Copy selected Linked Graphic "
-    hFileOpenLocally( gtesttoolpath & "writer\optional\input\clipboard\html.html")
-    
-    printlog "  Jump to beginning of document "
-    Call wTypeKeys "<Mod1 Home>"
-    Call wTypeKeys ( "<Shift F4>" )
-    EditCopy
-    
-    gApplication = "IMPRESS"
-    printlog "  Open new document "
-    Call hNewDocument
-    printlog "  Edit / Paste Special "
-    Sleep 2
-    try
-        EditPasteSpecial
-    catch
-        Warnlog "Unable to execute 'Edit / Paste Special'! Test failed!"
-        Call hCloseDocument
-        Call hCloseDocument
-        goto endsub
-    endcatch
-    Wait 500
-    printlog "  Paste 'Linked Graphic' in all available clipboard formats "
-    Kontext "InhaltEinfuegen"
-    if InhaltEinfuegen.Exists then
-        printlog "  Write Clipboard format under pasted content "
-    Call wPasteAvailableClipboardFormats(Auswahl.GetItemCount,"graphicL")
-        printlog "  Save document as ..\user\work\html_to_impress_graphic1.odp"
-        Call hFileSaveAsWithFilterKill (gOfficepath + "user\work\html_to_impress_graphic1.odp", "impress8")
-        Wait 500
-        printlog "  Close saved document "
-        Call hCloseDocument
-        wait 500
-        printlog "  Reopen saved document "
-        hFileOpen( gOfficepath + "user\work\html_to_impress_graphic1.odp",false)
-        Wait 500
-        printlog "  Close saved document "
-        Call hCloseDocument
-    else
-        Warnlog "Dialog 'Paste Special' is not up!"
-        Call hCloseDocument
-        goto endsub
-    end if
-    printlog "  Close active document "
-    Do Until GetDocumentCount = 0
-        Call hCloseDocument
-    Loop
-endcase
-
-' ----------------------------------------------------------------------------------------------
-
-testcase HTMLToIMPRESSControl
-    gApplication = "HTML"
-    printlog "  Open File '..\\writer\\optional\\input\\clipboard\\html.html' "
-    printlog "  Jump to beginning of document "
-    printlog "  Select 'Control' "
-    printlog "  Copy selected Control "
-    hFileOpenLocally( gtesttoolpath & "writer\optional\input\clipboard\html.html")
-    
-    printlog "  Jump to beginning of document "
-    Call wTypeKeys "<Mod1 Home>"
-    Call wTypeKeys ( "<Shift F4>" )
-    Call wTypeKeys "<Tab>"
-    EditCopy
-    
-    gApplication = "IMPRESS"
-    printlog "  Open new document "
-    Call hNewDocument
-    printlog "  Edit / Paste Special "
-    Sleep 2
-    try
-        EditPasteSpecial
-    catch
-        Warnlog "Unable to execute 'Edit / Paste Special'! Test failed!"
-        Call hCloseDocument
-        Call hCloseDocument
-        goto endsub
-    endcatch
-    Wait 500
-    printlog "  Paste 'Control' in all available clipboard formats "
-    Kontext "InhaltEinfuegen"
-    if InhaltEinfuegen.Exists then
-        printlog "  Write Clipboard format under pasted content "
-        Call wPasteAvailableClipboardFormats(Auswahl.GetItemCount,"control")
-        printlog "  Save document as ..\user\work\html_to_impress_control.odp"
-        Call hFileSaveAsWithFilterKill (gOfficepath + "user\work\html_to_impress_control.odp", "impress8")
-        Wait 500
-        printlog "  Close saved document "
-        Call hCloseDocument
-        wait 500
-        printlog "  Reopen saved document "
-        hFileOpen( gOfficepath + "user\work\html_to_impress_control.odp",false)
-        Wait 500
-        printlog "  Close saved document "
-        Call hCloseDocument
-    else
-        Warnlog "Dialog 'Paste Special' is not up!"
-        Call hCloseDocument
-        goto endsub
-    end if
-    printlog "  Close active document "
-    Do Until GetDocumentCount = 0
-        Call hCloseDocument
-    Loop
-endcase
-
-' ----------------------------------------------------------------------------------------------
-
-testcase HTMLToIMPRESSFloatingFrame
-    gApplication = "HTML"
-    printlog "  Open File '..\\writer\\optional\\input\\clipboard\\html.html' "
-    printlog "  Jump to beginning of document "
-    printlog "  Select 'Floating Frame' "
-    printlog "  Copy selected Floating Frame "
-    hFileOpenLocally( gtesttoolpath & "writer\optional\input\clipboard\html.html")
-    
-    printlog "  Jump to beginning of document "
-    Call wTypeKeys "<Mod1 Home>"
-    Call wTypeKeys ( "<Shift F4>" )
-    Call wTypeKeys "<Tab>",2
-    try
-        EditCopy
-    catch
-        Warnlog "Edit / Copy is disabled ! Maybe object not selected!"
-        Call hCloseDocument
-        goto endsub
-    endcatch
-    gApplication = "IMPRESS"
-    printlog "  Open new document "
-    Call hNewDocument
-    printlog "  Edit / Paste Special "
-    Sleep 2
-    try
-        EditPasteSpecial
-    catch
-        Warnlog "Unable to execute 'Edit / Paste Special'! Test failed!"
-        Call hCloseDocument
-        Call hCloseDocument
-        goto endsub
-    endcatch
-    Wait 500
-    printlog "  Paste 'Floating Frame' in all available clipboard formats "
-    Kontext "InhaltEinfuegen"
-    if InhaltEinfuegen.Exists then
-        printlog "  Write Clipboard format under pasted content "
-    Call wPasteAvailableClipboardFormats(Auswahl.GetItemCount,"control")
-        printlog "  Save document as ..\user\work\html_to_impress_float.odp"
-        Call hFileSaveAsWithFilterKill (gOfficepath + "user\work\html_to_impress_float.odp", "impress8")
-        Wait 500
-        printlog "  Close saved document "
-        Call hCloseDocument
-        wait 500
-        printlog "  Reopen saved document "
-        hFileOpen( gOfficepath + "user\work\html_to_impress_float.odp",false)
-        Wait 500
-        printlog "  Close saved document "
-        Call hCloseDocument
-    else
-        Warnlog "Dialog 'Paste Special' is not up!"
-        Call hCloseDocument
-        goto endsub
-    end if
-    printlog "  Close active document "
-    Do Until GetDocumentCount = 0
-        Call hCloseDocument
-    Loop
-endcase
diff --git a/testautomation/writer/optional/includes/clipboard/w_220_.inc b/testautomation/writer/optional/includes/clipboard/w_220_.inc
deleted file mode 100644
index 4ae43a6d7124..000000000000
--- a/testautomation/writer/optional/includes/clipboard/w_220_.inc
+++ /dev/null
@@ -1,392 +0,0 @@
-'**************************************************************************
-' 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 : helge.delfs@oracle.com
-'*
-'* short description : CROSS-APPLICATIONS CLIPBOARD TEST (Writer)
-'*
-'\***********************************************************************
-
-sub w_220_
-
-    Call HTMLToHTMLText
-    Call HTMLToHTMLField
-    Call HTMLToHTMLTable
-    Call HTMLToHTMLGraphicLinked
-    Call HTMLToHTMLControl
-    Call HTMLToHTMLFloatingFrame
-
-end sub
-
-' ---------------------------------------------------------------------------------
-
-testcase HTMLToHTMLText
-
-'    if lcase(gPlatform) = "x86" and Val(mid$(gMinor, 2, Len(gMinor))) <= 129  then
-'        QAErrorlog "#125780#Stacktrace ID: 251397"
-'        goto endsub
-'    end if    
-    gApplication = "HTML"
-    printlog "  Open File '..\\writer\\optional\\input\\clipboard\\html.html' "
-    printlog "  Jump to beginning of document "
-    printlog "  Select first paragraph "
-    printlog "  Copy selected text "
-    hFileOpenLocally( gtesttoolpath & "writer\optional\input\clipboard\html.html")
-    
-    printlog "  Jump to beginning of document "
-    Call wTypeKeys "<Mod1 Home>"
-    Call wTypeKeys "<Shift Down><Shift End>"
-    EditCopy
-    
-    gApplication = "HTML"
-    printlog "  Open new document "
-    Call hNewDocument
-    printlog "  Edit / Paste Special "
-    Sleep 2
-    try
-        EditPasteSpecialWriter
-    catch
-        Warnlog "Unable to execute 'Edit / Paste Special' ! Test failed!"
-        Call hCloseDocument ' Close Source-File
-        Call hCloseDocument ' Close Target-File
-        goto endsub
-    endcatch
-    Wait 500
-    printlog "  Paste 'Text' in all available clipboard formats "
-    Kontext "InhaltEinfuegen"
-    if InhaltEinfuegen.Exists then
-        Call wPasteAvailableClipboardFormats(Auswahl.GetItemCount,"text")
-        printlog "  Write Clipboard format under pasted content "
-        Call hFileSaveAsWithFilterKill (gOfficepath + "user\work\html_to_html_text.html", "HTML")
-        printlog "  Save document as ..\user\work\html_to_html_text.html"
-        Wait 500
-        Call hCloseDocument
-        printlog "  Close saved document "
-        wait 500
-        hFileOpen( gOfficepath + "user\work\html_to_html_text.html",false)
-        printlog "  Reopen saved document "
-        Wait 500
-        Call hCloseDocument
-        printlog "  Close saved document "
-    else
-        Warnlog "Dialog 'Paste Special' is not up!"
-        Call hCloseDocument
-        goto endsub
-    end if
-    printlog "  Close active document "
-    Do Until GetDocumentCount = 0
-        Call hCloseDocument
-    Loop
-endcase
-
-' ----------------------------------------------------------------------------------------------
-
-testcase HTMLToHTMLField
-    gApplication = "HTML"
-    printlog "  Open File '..\\writer\\optional\\input\\clipboard\\html.html' "
-    printlog "  Jump to beginning of document "
-    printlog "  Select paragraph with 'Date Field' "
-    printlog "  Copy selected text "
-    hFileOpenLocally( gtesttoolpath & "writer\optional\input\clipboard\html.html")
-    
-    printlog "  Jump to beginning of document "
-    Call wTypeKeys "<Mod1 Home>"
-    Call wTypeKeys "<Down>",2
-    Call wTypeKeys "<Home><Shift End>"
-    EditCopy
-    
-    gApplication = "HTML"
-    printlog "  Open new document "
-    Call hNewDocument
-    printlog "  Edit / Paste Special "
-    Sleep 2
-    try
-        EditPasteSpecialWriter
-    catch
-        Warnlog "Unable to execute 'Edit / Paste Special' ! Test failed!"
-        Call hCloseDocument ' Close Source-File
-        Call hCloseDocument ' Close Target-File
-        goto endsub
-    endcatch
-    Wait 500
-    printlog "  Paste 'Field' in all available clipboard formats "
-    Kontext "InhaltEinfuegen"
-    if InhaltEinfuegen.Exists then
-        Call wPasteAvailableClipboardFormats(Auswahl.GetItemCount,"field")
-        printlog "  Write Clipboard format under pasted content "
-        Call hFileSaveAsWithFilterKill (gOfficepath + "user\work\html_to_html_field.html", "HTML")
-        printlog "  Save document as ..\user\work\html_to_html_field.html"
-        Wait 500
-        Call hCloseDocument
-        printlog "  Close saved document "
-        wait 500
-        hFileOpen( gOfficepath + "user\work\html_to_html_field.html" )
-        printlog "  Reopen saved document "
-        Wait 500
-        Call hCloseDocument
-        printlog "  Close saved document "
-    else
-        Warnlog "Dialog 'Paste Special' is not up!"
-        Call hCloseDocument
-        goto endsub
-    end if
-    printlog "  Close active document "
-    Do Until GetDocumentCount = 0
-        Call hCloseDocument
-    Loop
-endcase
-
-' ----------------------------------------------------------------------------------------------
-
-testcase HTMLToHTMLTable
-    gApplication = "HTML"
-    printlog "  Open File '..\\writer\\optional\\input\\clipboard\\html.html' "
-    printlog "  Jump to beginning of document "
-    printlog "  Select 'Table' "
-    printlog "  Copy selected table "
-    hFileOpenLocally( gtesttoolpath & "writer\optional\input\clipboard\html.html")
-    
-    printlog "  Jump to beginning of document "
-    Call wTypeKeys "<Mod1 Home>"
-    Call wTypeKeys "<Down>",5
-    Call wTypeKeys "<Mod1 A>",2
-    EditCopy
-    
-    gApplication = "HTML"
-    printlog "  Open new document "
-    Call hNewDocument
-    printlog "  Edit / Paste Special "
-    Sleep 2
-    try
-        EditPasteSpecialWriter
-    catch
-        Warnlog "Unable to execute 'Edit / Paste Special' ! Test failed!"
-        Call hCloseDocument ' Close Source-File
-        Call hCloseDocument ' Close Target-File
-        goto endsub
-    endcatch
-    Wait 500
-    printlog "  Paste 'Table' in all available clipboard formats "
-    Kontext "InhaltEinfuegen"
-    if InhaltEinfuegen.Exists then
-        Call wPasteAvailableClipboardFormats(Auswahl.GetItemCount,"table")
-        printlog "  Write Clipboard format under pasted content "
-        Call hFileSaveAsWithFilterKill (gOfficepath + "user\work\html_to_html_table.html", "HTML")
-        printlog "  Save document as ..\user\work\html_to_html_table.html"
-        Wait 500
-        Call hCloseDocument
-        printlog "  Close saved document "
-        wait 500
-        hFileOpen( gOfficepath + "user\work\html_to_html_table.html",false)
-        printlog "  Reopen saved document "
-        Wait 500
-        Call hCloseDocument
-        printlog "  Close saved document "
-    else
-        Warnlog "Dialog 'Paste Special' is not up!"
-        Call hCloseDocument
-        goto endsub
-    end if
-    printlog "  Close active document "
-    Do Until GetDocumentCount = 0
-        Call hCloseDocument
-    Loop
-endcase
-
-' ----------------------------------------------------------------------------------------------
-
-testcase HTMLToHTMLGraphicLinked
-    gApplication = "HTML"
-    printlog "  Open File '..\\writer\\optional\\input\\clipboard\\html.html' "
-    printlog "  Jump to beginning of document "
-    printlog "  Select 'Linked Graphic' "
-    printlog "  Copy selected Linked Graphic "
-    hFileOpenLocally( gtesttoolpath & "writer\optional\input\clipboard\html.html")
-    
-    printlog "  Jump to beginning of document "
-    Call wTypeKeys "<Mod1 Home>"
-    Call wTypeKeys ( "<Shift F4>" )
-    EditCopy
-
-    gApplication = "HTML"
-    printlog "  Open new document "
-    Call hNewDocument
-    printlog "  Edit / Paste Special "
-    Sleep 2
-    try
-       EditPasteSpecialWriter
-    catch
-       Warnlog "Unable to execute 'Edit / Paste Special' ! Test failed!"
-       Call hCloseDocument ' Close Source-File
-       Call hCloseDocument ' Close Target-File
-       goto endsub
-    endcatch
-    Wait 500
-    printlog "  Paste 'Linked Graphic' in all available clipboard formats "
-    Kontext "InhaltEinfuegen"
-    if InhaltEinfuegen.Exists then
-        Call wPasteAvailableClipboardFormats(Auswahl.GetItemCount,"graphicL")
-        printlog "  Write Clipboard format under pasted content "
-        Call hFileSaveAsWithFilterKill (gOfficepath + "user\work\html_to_html_graphic1.html", "HTML")
-        printlog "  Save document as ..\user\work\html_to_html_graphic1.html"
-        Wait 500
-        Call hCloseDocument
-        printlog "  Close saved document "
-        sleep (2)
-        hFileOpen( gOfficepath + "user\work\html_to_html_graphic1.html",false)
-        printlog "  Reopen saved document "
-        Wait 500
-        Call hCloseDocument
-        printlog "  Close saved document "
-    else
-        Warnlog "Dialog 'Paste Special' is not up!"
-        Call hCloseDocument
-        goto endsub
-    end if
-    printlog "  Close active document "
-    Do Until GetDocumentCount = 0
-        Call hCloseDocument
-    Loop
-endcase
-
-' ----------------------------------------------------------------------------------------------
-
-testcase HTMLToHTMLControl
-    gApplication = "HTML"
-    printlog "  Open File '..\\writer\\optional\\input\\clipboard\\html.html' "
-    printlog "  Jump to beginning of document "
-    printlog "  Select 'Control' "
-    printlog "  Copy selected Control "
-    hFileOpenLocally( gtesttoolpath & "writer\optional\input\clipboard\html.html")
-    
-    printlog "  Jump to beginning of document "
-    Call wTypeKeys "<Mod1 Home>"
-    Call wTypeKeys ( "<Shift F4>" )
-    Call wTypeKeys "<Tab>"
-    EditCopy
-
-    gApplication = "HTML"
-    printlog "  Open new document "
-    Call hNewDocument
-    printlog "  Edit / Paste Special "
-    Sleep 2
-    try
-       EditPasteSpecialWriter
-    catch
-       Warnlog "Unable to execute 'Edit / Paste Special' ! Test failed!"
-       Call hCloseDocument ' Close Source-File
-       Call hCloseDocument ' Close Target-File
-       goto endsub
-    endcatch
-    Wait 500
-    printlog "  Paste 'Control' in all available clipboard formats "
-    Kontext "InhaltEinfuegen"
-    if InhaltEinfuegen.Exists then
-        Call wPasteAvailableClipboardFormats(Auswahl.GetItemCount,"control")
-        printlog "  Write Clipboard format under pasted content "
-        Call hFileSaveAsWithFilterKill (gOfficepath + "user\work\html_to_html_control.html", "HTML")
-        printlog "  Save document as ..\user\work\html_to_html_control.html"
-        Wait 500
-        Call hCloseDocument
-        printlog "  Close saved document "
-        wait 500
-        hFileOpen( gOfficepath + "user\work\html_to_html_control.html",false)
-        printlog "  Reopen saved document "
-        Wait 500
-        Call hCloseDocument
-        printlog "  Close saved document "
-    else
-        Warnlog "Dialog 'Paste Special' is not up!"
-        Call hCloseDocument
-        goto endsub
-    end if
-    printlog "  Close active document "
-    Do Until GetDocumentCount = 0
-        Call hCloseDocument
-    Loop
-endcase
-
-' ----------------------------------------------------------------------------------------------
-
-testcase HTMLToHTMLFloatingFrame
-    gApplication = "HTML"
-    printlog "  Open File '..\\writer\\optional\\input\\clipboard\\html.html' "
-    printlog "  Jump to beginning of document "
-    printlog "  Select 'Floating Frame' "
-    printlog "  Copy selected Floating Frame "
-    hFileOpenLocally( gtesttoolpath & "writer\optional\input\clipboard\html.html")
-    
-    printlog "  Jump to beginning of document "
-    Call wTypeKeys "<Mod1 Home>"
-    Call wTypeKeys ( "<Shift F4>" )
-    Call wTypeKeys "<Tab>",2
-    try
-        EditCopy
-    catch
-        Warnlog "Edit / Copy is disabled ! Maybe object not selected!"
-        Call hCloseDocument
-        goto endsub
-    endcatch
-    gApplication = "HTML"
-    printlog "  Open new document "
-    Call hNewDocument
-    printlog "  Edit / Paste Special "
-    Sleep 2
-    try
-        EditPasteSpecialWriter
-    catch
-        Warnlog "Unable to execute 'Edit / Paste Special' ! Test failed!"
-        Call hCloseDocument ' Close Source-File
-        Call hCloseDocument ' Close Target-File
-        goto endsub
-    endcatch
-    Wait 500
-    printlog "  Paste 'Floating Frame' in all available clipboard formats "
-    Kontext "InhaltEinfuegen"
-    if InhaltEinfuegen.Exists then
-        Call wPasteAvailableClipboardFormats(Auswahl.GetItemCount,"control")
-        printlog "  Write Clipboard format under pasted content "
-        Call hFileSaveAsWithFilterKill (gOfficepath + "user\work\html_to_html_float.html", "HTML")
-        printlog "  Save document as ..\user\work\html_to_html_float.html"
-        Wait 500
-        Call hCloseDocument
-        printlog "  Close saved document "
-        wait 500
-        hFileOpen( gOfficepath + "user\work\html_to_html_float.html",false)
-        printlog "  Reopen saved document "
-        Wait 500
-        Call hCloseDocument
-        printlog "  Close saved document "
-    else
-        Warnlog "Dialog 'Paste Special' is not up!"
-        Call hCloseDocument
-        goto endsub
-    end if
-    printlog "  Close active document "
-    Do Until GetDocumentCount = 0
-        Call hCloseDocument
-    Loop
-endcase
diff --git a/testautomation/writer/optional/includes/clipboard/w_221_.inc b/testautomation/writer/optional/includes/clipboard/w_221_.inc
deleted file mode 100644
index 7b5674d9ca97..000000000000
--- a/testautomation/writer/optional/includes/clipboard/w_221_.inc
+++ /dev/null
@@ -1,430 +0,0 @@
-'**************************************************************************
-' 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 : helge.delfs@oracle.com
-'*
-'* short description : CROSS-APPLICATIONS CLIPBOARD TEST (Writer)
-'*
-'\***********************************************************************
-
-sub w_221_
-
-    Call DrawToHTMLScrollingText
-    Call DrawToHTMLGroupedObject
-    Call DrawToHTML3D
-    Call DrawToHTMLFontwork
-    Call DrawToHTMLBullets
-    Call DrawToHTMLDimensionLines
-    Call DrawToHTMLConnectors
-
-end sub
-
-
-testcase DrawToHTMLScrollingText
-
-  gApplication = "DRAW"
-  printlog "  Open File '..\\writer\\optional\\input\\clipboard\\draw.sxd' "
-  printlog " + Jump to beginning of document "
-  printlog " + Select Scrolling text "
-  printlog " + Copy selected text "
-  hFileOpenLocally( gtesttoolpath & "writer\optional\input\clipboard\draw.sxd")
-  
-  Kontext "DocumentDraw"
-  printlog "  Jump to beginning of document "
-  DocumentDraw.TypeKeys "<Tab>"
-  EditCopy
-  gApplication = "HTML"
-  printlog "  Open a new writerdocument "
-  Call hNewDocument
-  Sleep 2
-  try
-     EditPasteSpecialWriter
-  catch
-     Warnlog "Unable to execute 'Edit / Paste Special' ! Test failed!"
-     Call hCloseDocument ' Close Source-File
-     Call hCloseDocument ' Close Target-File
-     goto endsub
-  endcatch
-  Wait 500
-  printlog "  Paste 'Scrolling Text' in all available clipboard formats "
-  Kontext "InhaltEinfuegen"
-  if InhaltEinfuegen.Exists then
-    Call wPasteAvailableClipboardFormats(Auswahl.GetItemCount,"DRAW")
-    printlog " + Write Clipboard format under pasted content "
-    Call hFileSaveAsWithFilterKill (gOfficepath + "user\work\draw_to_html_scrolling_text.html", "HTML")
-    printlog " + Save document as ..\user\work\draw_to_html_scrolling_text.html"
-    Wait 500
-    Call hCloseDocument
-    printlog " + Close saved document "
-    wait 500
-    hFileOpen( gOfficepath + "user\work\draw_to_html_scrolling_text.html",false)
-    printlog " + Reopen saved document "
-    Wait 500
-    Call hCloseDocument
-    printlog " + Close saved document "
-  else
-    Warnlog "Dialog 'Paste Special' is not up!"
-    Call hCloseDocument
-    goto endsub
-  end if
-  printlog "  Close active document "
-    Do Until GetDocumentCount = 0
-        Call hCloseDocument
-    Loop
-endcase
-
-' ---------------------------------------------------------------------------------
-
-testcase DrawToHTMLGroupedObject
-
-  gApplication = "DRAW"
-  printlog "  Open File '..\\writer\\optional\\input\\clipboard\\draw.sxd' "
-  printlog " + Jump to beginning of document "
-  printlog " + Select Grouped Object "
-  printlog " + Copy selected Object "
-  hFileOpenLocally( gtesttoolpath & "writer\optional\input\clipboard\draw.sxd")
-  
-  Kontext "DocumentDraw"
-  printlog "  Jump to beginning of document "
-  DocumentDraw.TypeKeys "<Tab>",2
-  EditCopy
-  gApplication = "HTML"
-  printlog "  Open a new writerdocument "
-  Call hNewDocument
-  Sleep 2
-  try
-     EditPasteSpecialWriter
-  catch
-     Warnlog "Unable to execute 'Edit / Paste Special' ! Test failed!"
-     Call hCloseDocument ' Close Source-File
-     Call hCloseDocument ' Close Target-File
-     goto endsub
-  endcatch
-  Wait 500
-  printlog "  Paste 'Text' in all available clipboard formats "
-  Kontext "InhaltEinfuegen"
-  if InhaltEinfuegen.Exists then
-    Call wPasteAvailableClipboardFormats(Auswahl.GetItemCount,"DRAW")
-    printlog " + Write Clipboard format under pasted content "
-    Call hFileSaveAsWithFilterKill (gOfficepath + "user\work\draw_to_html_grouped_object.html", "HTML")
-    printlog " + Save document as ..\user\work\draw_to_html_grouped_object.html"
-    Wait 500
-    Call hCloseDocument
-    printlog " + Close saved document "
-    wait 500
-    hFileOpen( gOfficepath + "user\work\draw_to_html_grouped_object.html",false)
-    printlog " + Reopen saved document "
-    Wait 500
-    Call hCloseDocument
-    printlog " + Close saved document "
-  else
-    Warnlog "Dialog 'Paste Special' is not up!"
-    Call hCloseDocument
-    goto endsub
-  end if
-  printlog "  Close active document "
-    Do Until GetDocumentCount = 0
-        Call hCloseDocument
-    Loop
-endcase
-
-' ---------------------------------------------------------------------------------
-
-testcase DrawToHTML3D
-
-  gApplication = "DRAW"
-  printlog "  Open File '..\\writer\\optional\\input\\clipboard\\draw.sxd' "
-  printlog " + Jump to beginning of document "
-  printlog " + Select cell <A5:C5> "
-  printlog " + Copy selected text "
-  hFileOpenLocally( gtesttoolpath & "writer\optional\input\clipboard\draw.sxd")
-  
-  Kontext "DocumentDraw"
-  printlog "  Jump to beginning of document "
-  DocumentDraw.TypeKeys "<Tab>",3
-  EditCopy
-  gApplication = "HTML"
-  printlog "  Open a new writerdocument "
-  Call hNewDocument
-  Sleep 2
-  try
-     EditPasteSpecialWriter
-  catch
-     Warnlog "Unable to execute 'Edit / Paste Special' ! Test failed!"
-     Call hCloseDocument ' Close Source-File
-     Call hCloseDocument ' Close Target-File
-     goto endsub
-  endcatch
-  Wait 500
-  printlog "  Paste 'Text' in all available clipboard formats "
-  Kontext "InhaltEinfuegen"
-  if InhaltEinfuegen.Exists then
-    Call wPasteAvailableClipboardFormats(Auswahl.GetItemCount,"DRAW")
-    printlog " + Write Clipboard format under pasted content "
-    Call hFileSaveAsWithFilterKill (gOfficepath + "user\work\draw_to_html_3d.html", "HTML")
-    printlog " + Save document as ..\user\work\draw_to_html_3d.html"
-    Wait 500
-    Call hCloseDocument
-    printlog " + Close saved document "
-    wait 500
-    hFileOpen( gOfficepath + "user\work\draw_to_html_3d.html",false)
-    printlog " + Reopen saved document "
-    Wait 500
-    Call hCloseDocument
-    printlog " + Close saved document "
-  else
-    Warnlog "Dialog 'Paste Special' is not up!"
-    Call hCloseDocument
-    goto endsub
-  end if
-  printlog "  Close active document "
-    Do Until GetDocumentCount = 0
-        Call hCloseDocument
-    Loop
-endcase
-
-' ---------------------------------------------------------------------------------
-
-testcase DrawToHTMLFontwork
-
-  gApplication = "DRAW"
-  printlog "  Open File '..\\writer\\optional\\input\\clipboard\\draw.sxd' "
-  printlog " + Jump to beginning of document "
-  printlog " + Select Fontwork "
-  printlog " + Copy selected Fontwork "
-  hFileOpenLocally( gtesttoolpath & "writer\optional\input\clipboard\draw.sxd")
-  
-  Kontext "DocumentDraw"
-  printlog "  Jump to beginning of document "
-  DocumentDraw.TypeKeys "<Tab>",4
-  EditCopy
-  gApplication = "HTML"
-  printlog "  Open a new writerdocument "
-  Call hNewDocument
-  Sleep 2
-  try
-     EditPasteSpecialWriter
-  catch
-     Warnlog "Unable to execute 'Edit / Paste Special' ! Test failed!"
-     Call hCloseDocument ' Close Source-File
-     Call hCloseDocument ' Close Target-File
-     goto endsub
-  endcatch
-  Wait 500
-  printlog "  Paste 'Text' in all available clipboard formats "
-  Kontext "InhaltEinfuegen"
-  if InhaltEinfuegen.Exists then
-    Call wPasteAvailableClipboardFormats(Auswahl.GetItemCount,"DRAW")
-    printlog " + Write Clipboard format under pasted content "
-    Call hFileSaveAsWithFilterKill (gOfficepath + "user\work\draw_to_html_fontwork.html", "HTML")
-    printlog " + Save document as ..\user\work\draw_to_html_fontwork.html"
-    Wait 500
-    Call hCloseDocument
-    printlog " + Close saved document "
-    wait 500
-    hFileOpen( gOfficepath + "user\work\draw_to_html_fontwork.html",false)
-    printlog " + Reopen saved document "
-    Wait 500
-    Call hCloseDocument
-    printlog " + Close saved document "
-  else
-    Warnlog "Dialog 'Paste Special' is not up!"
-    Call hCloseDocument
-    goto endsub
-  end if
-  printlog "  Close active document "
-    Do Until GetDocumentCount = 0
-        Call hCloseDocument
-    Loop
-endcase
-
-' ---------------------------------------------------------------------------------
-
-testcase DrawToHTMLBullets
-
-  gApplication = "DRAW"
-  printlog "  Open File '..\\writer\\optional\\input\\clipboard\\draw.sxd' "
-  printlog " + Jump to beginning of document "
-  printlog " + Select Bullets "
-  printlog " + Copy selected Bullets "
-  hFileOpenLocally( gtesttoolpath & "writer\optional\input\clipboard\draw.sxd")
-  
-  Kontext "DocumentDraw"
-  printlog "  Jump to beginning of document "
-  DocumentDraw.TypeKeys "<Tab>",5
-  EditCopy
-  gApplication = "HTML"
-  printlog "  Open a new writerdocument "
-  Call hNewDocument
-  Sleep 2
-  try
-     EditPasteSpecialWriter
-  catch
-     Warnlog "Unable to execute 'Edit / Paste Special' ! Test failed!"
-     Call hCloseDocument ' Close Source-File
-     Call hCloseDocument ' Close Target-File
-     goto endsub
-  endcatch
-  Wait 500
-  printlog "  Paste 'Text' in all available clipboard formats "
-  Kontext "InhaltEinfuegen"
-  if InhaltEinfuegen.Exists then
-    Call wPasteAvailableClipboardFormats(Auswahl.GetItemCount,"DRAW")
-    printlog " + Write Clipboard format under pasted content "
-    Call hFileSaveAsWithFilterKill (gOfficepath + "user\work\draw_to_html_bullets.html", "HTML")
-    printlog " + Save document as ..\user\work\draw_to_html_bullets.html"
-    Wait 500
-    Call hCloseDocument
-    printlog " + Close saved document "
-    wait 500
-    hFileOpen( gOfficepath + "user\work\draw_to_html_bullets.html",false)
-    printlog " + Reopen saved document "
-    Wait 500
-    Call hCloseDocument
-    printlog " + Close saved document "
-  else
-    Warnlog "Dialog 'Paste Special' is not up!"
-    Call hCloseDocument
-    goto endsub
-  end if
-  printlog "  Close active document "
-    Do Until GetDocumentCount = 0
-        Call hCloseDocument
-    Loop
-endcase
-
-' ---------------------------------------------------------------------------------
-
-testcase DrawToHTMLDimensionLines
-
-  gApplication = "DRAW"
-  printlog "  Open File '..\\writer\\optional\\input\\clipboard\\draw.sxd' "
-  printlog " + Jump to beginning of document "
-  printlog " + Select Dimension Lines "
-  printlog " + Copy selected Dimension Lines "
-  hFileOpenLocally( gtesttoolpath & "writer\optional\input\clipboard\draw.sxd")
-  
-  Kontext "DocumentDraw"
-  printlog "  Jump to beginning of document "
-  DocumentDraw.TypeKeys "<PageDown>"
-  DocumentDraw.TypeKeys "<Tab>"
-  EditCopy
-  gApplication = "HTML"
-  printlog "  Open a new writerdocument "
-  Call hNewDocument
-  Sleep 2
-  try
-     EditPasteSpecialWriter
-  catch
-     Warnlog "Unable to execute 'Edit / Paste Special' ! Test failed!"
-     Call hCloseDocument ' Close Source-File
-     Call hCloseDocument ' Close Target-File
-     goto endsub
-  endcatch
-  Wait 500
-  printlog "  Paste 'Dimension Lines' in all available clipboard formats "
-  Kontext "InhaltEinfuegen"
-  if InhaltEinfuegen.Exists then
-    Call wPasteAvailableClipboardFormats(Auswahl.GetItemCount,"DRAW")
-    printlog " + Write Clipboard format under pasted content "
-    Call hFileSaveAsWithFilterKill (gOfficepath + "user\work\draw_to_html_dim_lines.html", "HTML")
-    printlog " + Save document as ..\user\work\draw_to_html_dim_lines.html"
-    Wait 500
-    Call hCloseDocument
-    printlog " + Close saved document "
-    wait 500
-    hFileOpen( gOfficepath + "user\work\draw_to_html_dim_lines.html",false)
-    printlog " + Reopen saved document "
-    Wait 500
-    Call hCloseDocument
-    printlog " + Close saved document "
-  else
-    Warnlog "Dialog 'Paste Special' is not up!"
-    Call hCloseDocument
-    goto endsub
-  end if
-  printlog "  Close active document "
-    Do Until GetDocumentCount = 0
-        Call hCloseDocument
-    Loop
-endcase
-
-' ---------------------------------------------------------------------------------
-
-testcase DrawToHTMLConnectors
-
-  gApplication = "DRAW"
-  printlog "  Open File '..\\writer\\optional\\input\\clipboard\\draw.sxd' "
-  printlog " + Jump to beginning of document "
-  printlog " + Select Connectors "
-  printlog " + Copy selected Connectors "
-  hFileOpenLocally( gtesttoolpath & "writer\optional\input\clipboard\draw.sxd")
-  
-  Kontext "DocumentDraw"
-  printlog "  Jump to beginning of document "
-  DocumentDraw.TypeKeys "<PageDown>"
-  DocumentDraw.TypeKeys "<Tab>"
-  EditCopy
-  gApplication = "HTML"
-  printlog "  Open a new writerdocument "
-  Call hNewDocument
-  Sleep 2
-  try
-     EditPasteSpecialWriter
-  catch
-     Warnlog "Unable to execute 'Edit / Paste Special' ! Test failed!"
-     Call hCloseDocument ' Close Source-File
-     Call hCloseDocument ' Close Target-File
-     goto endsub
-  endcatch
-  Wait 500
-  printlog "  Paste 'Connectors' in all available clipboard formats "
-  Kontext "InhaltEinfuegen"
-  if InhaltEinfuegen.Exists then
-    Call wPasteAvailableClipboardFormats(Auswahl.GetItemCount,"DRAW")
-    printlog " + Write Clipboard format under pasted content "
-    Call hFileSaveAsWithFilterKill (gOfficepath + "user\work\draw_to_html_connectors.html", "HTML")
-    printlog " + Save document as ..\user\work\draw_to_html_connectors.html"
-    Wait 500
-    Call hCloseDocument
-    printlog " + Close saved document "
-    wait 500
-    hFileOpen( gOfficepath + "user\work\draw_to_html_connectors.html",false)
-    printlog " + Reopen saved document "
-    Wait 500
-    Call hCloseDocument
-    printlog " + Close saved document "
-  else
-    Warnlog "Dialog 'Paste Special' is not up!"
-    Call hCloseDocument
-    goto endsub
-  end if
-  printlog "  Close active document "
-    Do Until GetDocumentCount = 0
-        Call hCloseDocument
-    Loop
-endcase
-
diff --git a/testautomation/writer/optional/includes/clipboard/w_222_.inc b/testautomation/writer/optional/includes/clipboard/w_222_.inc
deleted file mode 100644
index 166ad4b4e38e..000000000000
--- a/testautomation/writer/optional/includes/clipboard/w_222_.inc
+++ /dev/null
@@ -1,432 +0,0 @@
-'**************************************************************************
-' 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 : helge.delfs@oracle.com
-'*
-'* short description : CROSS-APPLICATIONS CLIPBOARD TEST (Writer)
-'*
-'\***********************************************************************
-
-sub w_222_
-
-    Call DrawToWriterScrollingText
-    Call DrawToWriterGroupedObject
-    Call DrawToWriter3D
-    Call DrawToWriterFontwork
-    Call DrawToWriterBullets
-    Call DrawToWriterDimensionLines
-    Call DrawToWriterConnectors
-
-end sub
-
-'------------------------------------------------------------------------------
-
-testcase DrawToWriterScrollingText
-
-  gApplication = "DRAW"
-  printlog "  Open File '..\\writer\\optional\\input\\clipboard\\draw.sxd' "
-  printlog "  Jump to beginning of document "
-  printlog "  Select Scrolling text "
-  printlog "  Copy selected text "
-  hFileOpenLocally( gtesttoolpath & "writer\optional\input\clipboard\draw.sxd")
-  
-  Kontext "DocumentDraw"
-  printlog "  Jump to beginning of document "
-  DocumentDraw.TypeKeys "<Tab>"
-  EditCopy
-  gApplication = "WRITER"
-  printlog "  Open a new writerdocument "
-  Call hNewDocument
-  Sleep 2
-  try
-     EditPasteSpecialWriter
-  catch
-     Warnlog "Unable to execute 'Edit / Paste Special' ! Test failed!"
-     Call hCloseDocument ' Close Source-File
-     Call hCloseDocument ' Close Target-File
-     goto endsub
-  endcatch
-  Wait 500
-  printlog "  Paste 'Scrolling Text' in all available clipboard formats "
-  Kontext "InhaltEinfuegen"
-  if InhaltEinfuegen.Exists then
-    Call wPasteAvailableClipboardFormats(Auswahl.GetItemCount,"DRAW")
-    printlog "  Write Clipboard format under pasted content "
-    Call hFileSaveAsWithFilterKill (gOfficepath + "user\work\draw_to_writer_scrolling_text.odt", "writer8")
-    printlog "  Save document as ..\user\work\draw_to_writer_scrolling_text.odt"
-    Wait 500
-    Call hCloseDocument
-    printlog "  Close saved document "
-    wait 500
-    hFileOpen( gOfficepath + "user\work\draw_to_writer_scrolling_text.odt",false)
-    printlog "  Reopen saved document "
-    Wait 500
-    Call hCloseDocument
-    printlog "  Close saved document "
-  else
-    Warnlog "Dialog 'Paste Special' is not up!"
-    Call hCloseDocument
-    goto endsub
-  end if
-  printlog "  Close active document "
-    Do Until GetDocumentCount = 0
-        Call hCloseDocument
-    Loop
-endcase
-
-' ---------------------------------------------------------------------------------
-
-testcase DrawToWriterGroupedObject
-
-  gApplication = "DRAW"
-  printlog "  Open File '..\\writer\\optional\\input\\clipboard\\draw.sxd' "
-  printlog "  Jump to beginning of document "
-  printlog "  Select Grouped Object "
-  printlog "  Copy selected Object "
-  hFileOpenLocally( gtesttoolpath & "writer\optional\input\clipboard\draw.sxd")
-  
-  Kontext "DocumentDraw"
-  printlog "  Jump to beginning of document "
-  DocumentDraw.TypeKeys "<Tab>",2
-  EditCopy
-  gApplication = "WRITER"
-  printlog "  Open a new writerdocument "
-  Call hNewDocument
-  Sleep 2
-  try
-     EditPasteSpecialWriter
-  catch
-     Warnlog "Unable to execute 'Edit / Paste Special' ! Test failed!"
-     Call hCloseDocument ' Close Source-File
-     Call hCloseDocument ' Close Target-File
-     goto endsub
-  endcatch
-  Wait 500
-  printlog "  Paste 'Text' in all available clipboard formats "
-  Kontext "InhaltEinfuegen"
-  if InhaltEinfuegen.Exists then
-    Call wPasteAvailableClipboardFormats(Auswahl.GetItemCount,"DRAW")
-    printlog "  Write Clipboard format under pasted content "
-    Call hFileSaveAsWithFilterKill (gOfficepath + "user\work\draw_to_writer_grouped_object.odt", "writer8")
-    printlog "  Save document as ..\user\work\draw_to_writer_grouped_object.odt"
-    Wait 500
-    Call hCloseDocument
-    printlog "  Close saved document "
-    wait 500
-    hFileOpen( gOfficepath + "user\work\draw_to_writer_grouped_object.odt",false)
-    printlog "  Reopen saved document "
-    Wait 500
-    Call hCloseDocument
-    printlog "  Close saved document "
-  else
-    Warnlog "Dialog 'Paste Special' is not up!"
-    Call hCloseDocument
-    goto endsub
-  end if
-  printlog "  Close active document "
-    Do Until GetDocumentCount = 0
-        Call hCloseDocument
-    Loop
-endcase
-
-' ---------------------------------------------------------------------------------
-
-testcase DrawToWriter3D
-
-  gApplication = "DRAW"
-  printlog "  Open File '..\\writer\\optional\\input\\clipboard\\draw.sxd' "
-  printlog "  Jump to beginning of document "
-  printlog "  Select cell <A5:C5> "
-  printlog "  Copy selected text "
-  hFileOpenLocally( gtesttoolpath & "writer\optional\input\clipboard\draw.sxd")
-  
-  Kontext "DocumentDraw"
-  printlog "  Jump to beginning of document "
-  DocumentDraw.TypeKeys "<Tab>",3
-  EditCopy
-  gApplication = "WRITER"
-  printlog "  Open a new writerdocument "
-  Call hNewDocument
-  Sleep 2
-  try
-     EditPasteSpecialWriter
-  catch
-     Warnlog "Unable to execute 'Edit / Paste Special' ! Test failed!"
-     Call hCloseDocument ' Close Source-File
-     Call hCloseDocument ' Close Target-File
-     goto endsub
-  endcatch
-  Wait 500
-  printlog "  Paste 'Text' in all available clipboard formats "
-  Kontext "InhaltEinfuegen"
-  if InhaltEinfuegen.Exists then
-    Call wPasteAvailableClipboardFormats(Auswahl.GetItemCount,"DRAW")
-    printlog "  Write Clipboard format under pasted content "
-    Call hFileSaveAsWithFilterKill (gOfficepath + "user\work\draw_to_writer_3d.odt", "writer8")
-    printlog "  Save document as ..\user\work\draw_to_writer_3d.odt"
-    Wait 500
-    Call hCloseDocument
-    printlog "  Close saved document "
-    wait 500
-    hFileOpen( gOfficepath + "user\work\draw_to_writer_3d.odt",false)
-    printlog "  Reopen saved document "
-    Wait 500
-    Call hCloseDocument
-    printlog "  Close saved document "
-  else
-    Warnlog "Dialog 'Paste Special' is not up!"
-    Call hCloseDocument
-    goto endsub
-  end if
-  printlog "  Close active document "
-    Do Until GetDocumentCount = 0
-        Call hCloseDocument
-    Loop
-endcase
-
-' ---------------------------------------------------------------------------------
-
-testcase DrawToWriterFontwork
-
-  gApplication = "DRAW"
-  printlog "  Open File '..\\writer\\optional\\input\\clipboard\\draw.sxd' "
-  printlog "  Jump to beginning of document "
-  printlog "  Select Fontwork "
-  printlog "  Copy selected Fontwork "
-  hFileOpenLocally( gtesttoolpath & "writer\optional\input\clipboard\draw.sxd")
-  
-  Kontext "DocumentDraw"
-  printlog "  Jump to beginning of document "
-  DocumentDraw.TypeKeys "<Tab>",4
-  EditCopy
-  gApplication = "WRITER"
-  printlog "  Open a new writerdocument "
-  Call hNewDocument
-  Sleep 2
-  try
-     EditPasteSpecialWriter
-  catch
-     Warnlog "Unable to execute 'Edit / Paste Special' ! Test failed!"
-     Call hCloseDocument ' Close Source-File
-     Call hCloseDocument ' Close Target-File
-     goto endsub
-  endcatch
-  Wait 500
-  printlog "  Paste 'Text' in all available clipboard formats "
-  Kontext "InhaltEinfuegen"
-  if InhaltEinfuegen.Exists then
-    Call wPasteAvailableClipboardFormats(Auswahl.GetItemCount,"DRAW")
-    printlog "  Write Clipboard format under pasted content "
-    Call hFileSaveAsWithFilterKill (gOfficepath + "user\work\draw_to_writer_fontwork.odt", "writer8")
-    printlog "  Save document as ..\user\work\draw_to_writer_fontwork.odt"
-    Wait 500
-    Call hCloseDocument
-    printlog "  Close saved document "
-    wait 500
-    hFileOpen( gOfficepath + "user\work\draw_to_writer_fontwork.odt",false)
-    printlog "  Reopen saved document "
-    Wait 500
-    Call hCloseDocument
-    printlog "  Close saved document "
-  else
-    Warnlog "Dialog 'Paste Special' is not up!"
-    Call hCloseDocument
-    goto endsub
-  end if
-  printlog "  Close active document "
-    Do Until GetDocumentCount = 0
-        Call hCloseDocument
-    Loop
-endcase
-
-' ---------------------------------------------------------------------------------
-
-testcase DrawToWriterBullets
-
-  gApplication = "DRAW"
-  printlog "  Open File '..\\writer\\optional\\input\\clipboard\\draw.sxd' "
-  printlog "  Jump to beginning of document "
-  printlog "  Select Bullets "
-  printlog "  Copy selected Bullets "
-  hFileOpenLocally( gtesttoolpath & "writer\optional\input\clipboard\draw.sxd")
-  
-  Kontext "DocumentDraw"
-  printlog "  Jump to beginning of document "
-  DocumentDraw.TypeKeys "<Tab>",5
-  EditCopy
-  gApplication = "WRITER"
-  printlog "  Open a new writerdocument "
-  Call hNewDocument
-  Sleep 2
-  try
-     EditPasteSpecialWriter
-  catch
-     Warnlog "Unable to execute 'Edit / Paste Special' ! Test failed!"
-     Call hCloseDocument ' Close Source-File
-     Call hCloseDocument ' Close Target-File
-     goto endsub
-  endcatch
-  Wait 500
-  printlog "  Paste 'Text' in all available clipboard formats "
-  Kontext "InhaltEinfuegen"
-  if InhaltEinfuegen.Exists then
-    Call wPasteAvailableClipboardFormats(Auswahl.GetItemCount,"DRAW")
-    printlog "  Write Clipboard format under pasted content "
-    Call hFileSaveAsWithFilterKill (gOfficepath + "user\work\draw_to_writer_bullets.odt", "writer8")
-    printlog "  Save document as ..\user\work\draw_to_writer_bullets.odt"
-    Wait 500
-    Call hCloseDocument
-    printlog "  Close saved document "
-    wait 500
-    hFileOpen( gOfficepath + "user\work\draw_to_writer_bullets.odt",false)
-    printlog "  Reopen saved document "
-    Wait 500
-    Call hCloseDocument
-    printlog "  Close saved document "
-  else
-    Warnlog "Dialog 'Paste Special' is not up!"
-    Call hCloseDocument
-    goto endsub
-  end if
-  printlog "  Close active document "
-    Do Until GetDocumentCount = 0
-        Call hCloseDocument
-    Loop
-endcase
-
-' ---------------------------------------------------------------------------------
-
-testcase DrawToWriterDimensionLines
-
-  gApplication = "DRAW"
-  printlog "  Open File '..\\writer\\optional\\input\\clipboard\\draw.sxd' "
-  printlog "  Jump to beginning of document "
-  printlog "  Select Dimension Lines "
-  printlog "  Copy selected Dimension Lines "
-  hFileOpenLocally( gtesttoolpath & "writer\optional\input\clipboard\draw.sxd")
-  
-  Kontext "DocumentDraw"
-  printlog "  Jump to beginning of document "
-  DocumentDraw.TypeKeys "<PageDown>"
-  DocumentDraw.TypeKeys "<Tab>"
-  EditCopy
-  gApplication = "WRITER"
-  printlog "  Open a new writerdocument "
-  Call hNewDocument
-  Sleep 2
-  try
-     EditPasteSpecialWriter
-  catch
-     Warnlog "Unable to execute 'Edit / Paste Special' ! Test failed!"
-     Call hCloseDocument ' Close Source-File
-     Call hCloseDocument ' Close Target-File
-     goto endsub
-  endcatch
-  Wait 500
-  printlog "  Paste 'Dimension Lines' in all available clipboard formats "
-  Kontext "InhaltEinfuegen"
-  if InhaltEinfuegen.Exists then
-    Call wPasteAvailableClipboardFormats(Auswahl.GetItemCount,"DRAW")
-    printlog "  Write Clipboard format under pasted content "
-    Call hFileSaveAsWithFilterKill (gOfficepath + "user\work\draw_to_writer_dim_lines.odt", "writer8")
-    printlog "  Save document as ..\user\work\draw_to_writer_dim_lines.odt"
-    Wait 500
-    Call hCloseDocument
-    printlog "  Close saved document "
-    wait 500
-    hFileOpen( gOfficepath + "user\work\draw_to_writer_dim_lines.odt",false)
-    printlog "  Reopen saved document "
-    Wait 500
-    Call hCloseDocument
-    printlog "  Close saved document "
-  else
-    Warnlog "Dialog 'Paste Special' is not up!"
-    Call hCloseDocument
-    goto endsub
-  end if
-  printlog "  Close active document "
-    Do Until GetDocumentCount = 0
-        Call hCloseDocument
-    Loop
-endcase
-
-' ---------------------------------------------------------------------------------
-
-testcase DrawToWriterConnectors
-
-  gApplication = "DRAW"
-  printlog "  Open File '..\\writer\\optional\\input\\clipboard\\draw.sxd' "
-  printlog "  Jump to beginning of document "
-  printlog "  Select Connectors "
-  printlog "  Copy selected Connectors "
-  hFileOpenLocally( gtesttoolpath & "writer\optional\input\clipboard\draw.sxd")
-  
-  Kontext "DocumentDraw"
-  printlog "  Jump to beginning of document "
-  DocumentDraw.TypeKeys "<PageDown>"
-  DocumentDraw.TypeKeys "<Tab>"
-  EditCopy
-  gApplication = "WRITER"
-  printlog "  Open a new writerdocument "
-  Call hNewDocument
-  Sleep 2
-  try
-     EditPasteSpecialWriter
-  catch
-     Warnlog "Unable to execute 'Edit / Paste Special' ! Test failed!"
-     Call hCloseDocument ' Close Source-File
-     Call hCloseDocument ' Close Target-File
-     goto endsub
-  endcatch
-  Wait 500
-  printlog "  Paste 'Connectors' in all available clipboard formats "
-  Kontext "InhaltEinfuegen"
-  if InhaltEinfuegen.Exists then
-    Call wPasteAvailableClipboardFormats(Auswahl.GetItemCount,"DRAW")
-    printlog "  Write Clipboard format under pasted content "
-    Call hFileSaveAsWithFilterKill (gOfficepath + "user\work\draw_to_writer_connectors.odt", "writer8")
-    printlog "  Save document as ..\user\work\draw_to_writer_connectors.odt"
-    Wait 500
-    Call hCloseDocument
-    printlog "  Close saved document "
-    wait 500
-    hFileOpen( gOfficepath + "user\work\draw_to_writer_connectors.odt",false)
-    printlog "  Reopen saved document "
-    Wait 500
-    Call hCloseDocument
-    printlog "  Close saved document "
-  else
-    Warnlog "Dialog 'Paste Special' is not up!"
-    Call hCloseDocument
-    goto endsub
-  end if
-  printlog "  Close active document "
-    Do Until GetDocumentCount = 0
-        Call hCloseDocument
-    Loop
-endcase
-
-'------------------------------------------------------------------------------
diff --git a/testautomation/writer/optional/includes/contextmenu/w_contextmenu1.inc b/testautomation/writer/optional/includes/contextmenu/w_contextmenu1.inc
deleted file mode 100644
index 4965250e7c9f..000000000000
--- a/testautomation/writer/optional/includes/contextmenu/w_contextmenu1.inc
+++ /dev/null
@@ -1,433 +0,0 @@
-'**************************************************************************
-' 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 : helge.delfs@oracle.com
-'*
-'* short description : Pick context for context menus
-'*
-'\***********************************************************************
-
-sub w_contextmenu1
-
-    Call tPickSimpleText
-    Call tPickSimpleTextMultiselection
-    Call tPickGraphic
-    Call tPickHyperlink
-    Call tHyperlinkEdit
-    Call tHyperlinkRemove
-    Call tHyperlinkCopy
-    Call tPickDrawingObjects
-
-end sub
-
-' -----------------------------------------------------------------------------
-
-testcase tPickSimpleText
-
-    Dim SetThisFontSize as string
-    Dim GetThisFontSize as string
-    printlog "Open context menu on unselected text"
-    printlog "   Open a new text document"
-        Call hNewDocument
-    printlog "   Set zoom to 100%"
-        Call wSetZoom
-    printlog "   Write down 'This is a test'"
-        Call wTypeKeys "This is a test"
-    printlog "   In text document select word 'test'"
-        Call wTypeKeys "<End>"
-        Call wTypeKeys "<Mod1 Shift Left>"
-    printlog "   Open context menu in word 'This'"
-        Call wTypeKeys "<Mod1 Left>", 3
-        Call wTypeKeys "<Right>"
-        Call wTypeKeys "<Shift F10>"
-    printlog "   Change font size for word 'This'"
-	try
-            Call hMenuSelectNr(3)
-            wait 500
-            SetThisFontSize = hMenuItemGetText(MenuGetItemCount)
-            Call hMenuSelectNr(MenuGetItemCount)
-	catch
-            Warnlog "Unable to open context menu"
-	endcatch
-
-	Call wTypeKeys "<Home>"
-    printlog "   Check if font size has changed for word 'This' and not for word 'test'"
-	Call wTypeKeys "<Right>"
-	FormatCharacter
-	Kontext
-	Active.Setpage TabFont
-	Kontext "TabFont"
-	if gAsianSup = True or gCTLSup = True then
-            GetThisFontSize = SizeWest.GetSelText
-	else
-            GetThisFontSize = Size.GetSelText
-	end if
-	TabFont.Ok
-
-	if GetThisFontSize <> SetThisFontSize then Warnlog "Fontsize for word 'This' has not correctly been set"
-
-	Call wTypeKeys "<Mod1 Right>", 3
-	Call wTypeKeys "<Right>"
-	FormatCharacter
-	Kontext
-	Active.Setpage TabFont
-	Kontext "TabFont"
-	if gAsianSup = True or gCTLSup = True then
-            GetThisFontSize = SizeWest.GetSelText
-	else
-            GetThisFontSize = Size.GetSelText
-	end if
-	TabFont.Ok
-
-	if GetThisFontSize = SetThisFontSize then Warnlog "Fontsize for word 'test' has been set"
-	Call hCloseDocument
-endcase
-
-' -----------------------------------------------------------------------------
-
-testcase tPickSimpleTextMultiselection
-    Dim SetThisFontSize as string
-    Dim GetThisFontSize as string
-	printlog "   Open context menu on unselected text"
-	Call hNewDocument
-	Printlog "   Set zoom to 100%"
-	Call wSetZoom
-	Printlog "   Write down 'This is a test'"
-	Call wTypeKeys "This is a test"
-
-	Printlog "   In text document select word 'test' and 'This'"
-	Call wTypeKeys "<End>"
-	Call wTypeKeys "<Mod1 Shift Left>"	
-	Printlog "   Open context menu in word 'This'"
-	Printlog "   Shift + F8 changes selection mode in writer"
-	Call wTypeKeys "<Shift F8>"
-	Call wTypeKeys "<Mod1 Left>", 3
-	Call wTypeKeys "<Mod1 Shift Right>"
-	Call wTypeKeys "<Shift F8>"
-	Call wTypeKeys "<Shift F10>"
-
-	Printlog "   Change font size"
-	try
-            Call hMenuSelectNr(3)
-            wait 500
-            SetThisFontSize = hMenuItemGetText(MenuGetItemCount)
-            Call hMenuSelectNr(MenuGetItemCount)
-	catch
-            Warnlog "Unable to open context menu"
-	endcatch
-
-	Call wTypeKeys "<Home>"
-	Printlog "Check if font size has changed for words 'This' and 'test'"
-	Call wTypeKeys "<Right>"
-	FormatCharacter
-	Kontext
-	Active.Setpage TabFont
-	Kontext "TabFont"
-	if gAsianSup = True or gCTLSup = True then
-		GetThisFontSize = SizeWest.GetSelText
-	else
-		GetThisFontSize = Size.GetSelText
-	end if	
-	TabFont.Ok
-
-	if GetThisFontSize <> SetThisFontSize then Warnlog "Fontsize for word 'This' has not correctly been set"
-
-	Call wTypeKeys "<Mod1 Right>", 3
-	Call wTypeKeys "<Right>"
-	FormatCharacter
-	Kontext
-	Active.Setpage TabFont
-	Kontext "TabFont"
-	if gAsianSup = True or gCTLSup = True then
-            GetThisFontSize = SizeWest.GetSelText
-	else
-            GetThisFontSize = Size.GetSelText
-	end if
-	TabFont.Ok
-
-	if GetThisFontSize <> SetThisFontSize then Warnlog "Fontsize for word 'test' has not correctly been set"
-    printlog "   Close text document"
-    Call hCloseDocument
-endcase
-
-' -----------------------------------------------------------------------------
-
-testcase tPickGraphic
-
-	printlog "Open context menu on not focussed graphic"
-	Call hNewDocument
-	Printlog "   Set zoom to 100%"
-	Call wSetZoom
-	Printlog "   Insert a graphic into writerdocument"
-	Call hGrafikEinfuegen ( gTesttoolPath + "writer\optional\input\menu\drums.jpg" )
-	Printlog "   Deselect graphic with 'Escape' and insert some text in text document"
-	Call wTypeKeys "<Escape>"
-	Call wTypeKeys "Don't be afraid !"
-
-	Call gMouseClick ( 50,30 )
-	Printlog "   Open context menu upon graphic with mouse"
-	Call wOpenContextMenu(true)
-
-	printlog "   Select 'ImageMap' in context menu"
-	try
-            CALL hMenuFindSelect (".uno:ImageMapDialog", true, 11, true)   'Find "ImageMap" and call the slot.
-            wait 500
-	catch
-            Warnlog "Unable to open context menu"
-            Call hCloseDocument
-            goto endsub
-	endcatch
-	Printlog "   The graphic has to be selected and the context menu has to show graphics related commands"
-	Kontext "ImageMapEditor"
-	if Not ImageMapEditor.Exists(3) then
-            Warnlog "Unfortunately not the context menu from graphics has been used!"
-            Kontext
-            try
-            	Active.Setpage TabFont
-            	Kontext "TabFont"
-            	TabFont.Cancel
-            catch
-            endcatch
-	else
-            ImageMapEditor.Close
-            Kontext "Active"
-            if Active.Exists then
-            	if Active.GetRT = 304 then Active.No
-            end if
-	end if
-
-	Kontext "DocumentWriter"
-	try
-            FormatGraphics
-            Kontext
-            Active.Setpage TabType
-            Kontext "TabType"
-            TabType.Close
-	catch
-            Warnlog "Graphic has not been selected!"
-	endcatch
-    printlog "   Close text document"
-    Call hCloseDocument
-endcase
-
-' -----------------------------------------------------------------------------
-
-testcase tPickHyperlink
-
-    printlog "   Context menu on hyperlinks"
-    printlog "   Open a new text document"
-	Call hNewDocument
-    printlog "   Set zoom to 100%"
-	Call wSetZoom
-    printlog "   Empty clipboard"
-	SetClipBoard = ""
-    printlog "   Insert a hyperlink in document"
-	Call wTypeKeys "www.oracle.com"
-	Call wTypeKeys " "
-	Call wTypeKeys "<HOME>"
-    printlog "   Open context menu on hyperlink"
-        Call wTypeKeys "<SHIFT F10>"
-    printlog "   Last entry in menu has to be 'Open hyperlink' ...."
-        CALL hMenuFindSelect (10955, false, 17, true)   'Find "Hyperlink-dialog" and call the slot.
-    kontext "TabHyperlinkInternet"
-    if TabHyperlinkInternet.Exists(3) then
-        Warnlog "Hyperlink-Dialog opened!"
-	TabHyperlinkInternet.Close
-    end if
-    printlog "   Close text document"
-    Call hCloseDocument
-endcase
-
-' -----------------------------------------------------------------------------
-
-testcase tHyperlinkEdit
-
-    printlog "Context menu on hyperlinks"
-    printlog "   Open a new text document"
-	CALL hNewDocument
-    printlog "   Set zoom to 100%"
-	Call wSetZoom
-    printlog "   Empty clipboard"
-	SetClipBoard = ""
-    printlog "   Insert a hyperlink in document"
-	Call wTypeKeys "www.openoffice.org"
-	Call wTypeKeys " "
-	Call wTypeKeys "<HOME>"
-    printlog "   Open context menu on hyperlink"
-    Call wTypeKeys "<SHIFT F10>"
-
-    printlog "   Open contextmenu, find the entry 'Edit Hyperlink', and call the slot..."
-    CALL hMenuFindSelect (21835, true, 18, true)   'Find "Edit Hyperlink" and call the slot.
-    printlog "   Check if the Hyperlink-dialogue comes up correctly."
-    kontext "HyperlinkDialog"
-    if NOT HyperlinkDialog.Exists(3) then
-        Warnlog "No Hyperlink-Dialog visible!"
-	else
-	    HyperlinkDialog.Close
-    end if
-    printlog "   Close text document"
-    CALL hCloseDocument
-endcase
-
-' -----------------------------------------------------------------------------
-
-testcase tHyperlinkRemove
-
-    printlog "Context menu on hyperlinks"
-    printlog "   Open a new text document"
-	CALL hNewDocument
-        kontext "TabHyperlinkInternet"
-        if TabHyperlinkInternet.Exists then
-	    TabHyperlinkInternet.Close
-        end if
-        Kontext "DocumentWriter"
-    printlog "   Set zoom to 100%"
-	Call wSetZoom
-    printlog "   Empty clipboard"
-	SetClipBoard = ""
-    printlog "   Insert a hyperlink in document"
-	Call wTypeKeys "www.openoffice.org"
-	Call wTypeKeys " "
-	Call wTypeKeys "<HOME>"
-    printlog "   Open context menu on hyperlink"
-        Call wTypeKeys "<SHIFT F10>"
-    printlog "   Find the entry 'Remove hyperlink' in the menu... Check the position of the entry, and call it."
-        CALL hMenuFindSelect (21839, true, 20, true)   'Find "Remove hyperlink" and call the slot.
-    Printlog "   Check that the hyperlink formatting has been removed and 'Format - Character - Hyperlink - URL' is empty."
-	Call wTypeKeys "<HOME>"
-    printlog "   Open context menu on the hyperlink."
-        Call wTypeKeys "<SHIFT F10>"
-    printlog "   Check that the Menu has less than 18 entries, otherwise the pasted content is wrong."
-        if MenuGetItemCount > 18 then 
-	    Warnlog "   Either error or the contextmenu has changed - contact testowner."
-            CALL hMenuFindSelect (21839, false, 20, false)   'Check if "Remove hyperlink" exists in the menu.
-            kontext "TabHyperlinkInternet"
-            if TabHyperlinkInternet.Exists(3) then
-                Warnlog "   ERROR. The Hyperlink-Status of the text wasn't removed. BUG!"
-	        TabHyperlinkInternet.Close
-            end if
-	end if
-    printlog "   Close text document"
-        CALL hCloseDocument
-endcase
-
-' -----------------------------------------------------------------------------
-
-testcase tHyperlinkCopy
-
-    printlog "Context menu on hyperlinks"
-    printlog "   Open a new text document"
-	Call hNewDocument
-    printlog "   If the Hyperlink-Dialog is open - Close it."
-        kontext "TabHyperlinkInternet"
-        if TabHyperlinkInternet.Exists then
-            TabHyperlinkInternet.Close
-        end if
-        kontext "DocumentWriter"
-    printlog "   Set zoom to 100%"
-	Call wSetZoom
-    printlog "   Empty clipboard"
-	SetClipBoard = ""
-    printlog "   Insert a hyperlink in document"
-	Call wTypeKeys "www.openoffice.org"
-	Call wTypeKeys " "
-	Call wTypeKeys "<HOME><RIGHT RIGHT RIGHT>"
-    printlog "   Open context menu on hyperlink"
-        Call wTypeKeys "<SHIFT F10>"
-    printlog "    Select 'Copy Hyperlink Location'..."
-        CALL hMenuFindSelect (21840, true, 19, true)   'Find "Copy Hyperlink Location" and call the slot.
-    printlog "   Check that the Clipboard contains something/the string we wanted to copy."
-        if GetClipboard = "" then
-	    warnlog "   Clipboard empty, notify testowner and check if the Hyperlink Copy-function works."
-	end if
-    printlog "   Set the cursor somwhere else in the document."
-	Call wTypeKeys "<END>"
-	Call wTypeKeys "<RETURN>", 10
-    printlog "   Paste."
-        EditPaste
-    printlog "   Check that the hyperlink URL is pasted as plain text."
-    printlog "   Mark the text we just pasted."
-	Call wTypeKeys "<HOME><RIGHT RIGHT RIGHT>"
-    printlog "   We do this by opening the context menu on the text-string."
-        Call wTypeKeys "<SHIFT F10>"
-    printlog "   Check if the contextmenu contains anything about 'Hyperlink'."
-        CALL hMenuFindSelect (10955, true, 17, false) 'Try to find and call "Open Hyperlink".
-        kontext "TabHyperlinkInternet"
-        if TabHyperlinkInternet.Exists(3) then
-            Warnlog "   Seemingly, the copy wasn't plaintext, but also a hyperlink. BUG!"
-        end if
-    printlog "   Close text document"
-        Call hCloseDocument
-endcase
-
-' -----------------------------------------------------------------------------
-
-testcase tPickDrawingObjects
-
-    printlog "Context menu on drawing objects"
-    printlog "   Open a new text document"
-	Call hNewDocument
-    printlog "   If the Hyperlink-Dialog is open - Close it."
-        kontext "TabHyperlinkInternet"
-        if TabHyperlinkInternet.Exists then
-            TabHyperlinkInternet.Close
-        end if
-        kontext "DocumentWriter"
-    printlog "   Set zoom to 100%"
-	Call wSetZoom
-    printlog "   empty clipboard"
-	SetClipBoard = ""
-    printlog "   Insert 2 drawing objects (rectangle)"
-
-        Call wZeichenobjektEinfuegen ( "Rechteck", 35, 40, 52, 52 )
-        Call wTypeKeys "<Escape>"
-        Sleep 1
-        Call wZeichenobjektEinfuegen ( "Rechteck", 35, 35, 50, 50 )
-        Call wTypeKeys "<Escape>"
-        Sleep 1
-    printlog "   Select both objects"
-        Call wObjektSelektieren ( 32, 32, 60, 60 )
-        Sleep 1
-
-    printlog "   Open context menu on 1. drawing object"
-	Call DocumentWriter.MouseMove 51, 51
-	Call wOpenContextMenu(true)
-    printlog "   Normally 'copy' is last menu entry"
-        CALL hMenuFindSelect (5711, true, 15, true)   'Find "Copy" and call the slot.
-
-    printlog "   Both drawing objects have to leave selected"
-    try
-        FormatGroupGroup
-        Sleep 1
-    catch
-        Warnlog "Drawing objects did not leave selected after context menu opened"
-    endcatch
-
-    printlog "   Close text document"
-    CALL hCloseDocument
-endcase
-
-' -----------------------------------------------------------------------------
diff --git a/testautomation/writer/optional/includes/drawing/w_drawing_tools1.inc b/testautomation/writer/optional/includes/drawing/w_drawing_tools1.inc
deleted file mode 100644
index 9537eb2ae948..000000000000
--- a/testautomation/writer/optional/includes/drawing/w_drawing_tools1.inc
+++ /dev/null
@@ -1,1027 +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 : helge.delfs@oracle.com
-'*
-'* short description : Test of the drawing tools
-'*
-'\***********************************************************************
-
-sub w_drawing_tools1
-
-    printLog Chr(13) + "- Test of the drawing tools 1"
-    
-    printLog Chr(13) + " -- Format/Position And Size"
-    
-    Call tCreateObjects_1            'Create objects from the drawing functions of the Toolbar
-    
-    Call tPositionAndSize_1          'check checkbox "protect position" of the object
-    Call tPositionAndSize_2          'check Undo/Redo function of position assignment
-    Call tPositionAndSize_3          'check "keep ratio" option
-    Call tPositionAndSize_4          'check Undo/Redo function of size assignment
-    Call tPositionAndSize_5          'check rotation angle of an object
-    Call tPositionAndSize_6          'check corner radius of rectangles
-    Call tPositionAndSize_7          'check corner radius of textboxes
-    Call tPositionAndSize_8    
-    
-    printLog Chr(13) + " -- Format/line"
-    'Dialog format/line/line
-    Call tLine_1                     'check style, color, width and arrow styles . Test undo and redo .
-    Call tLine_2                     'Check call Format.Line dialog via Button in object bar
-    Call tLine_3                     'check line attributes are applied in object bar
-    Call tLine_4                     'check  "synchronize ends"
-    'Dialog format/line/line styles
-    Call tline_5                     'check the attributes in format/line/line styles
-    'Dialog format/line/arrow styles
-    Call tline_6                     'check the attributes in format/line/arrow styles
-
-end sub
-
-'-------------------------------------------------------------------------
-
-testcase tCreateObjects_1
-
-    PrintLog "- Create objects from the drawing functions of the Toolbar , include ..."
-    
-    Call hNewDocument
-
-    Call hToolbarSelect("DRAWING", true)
-    
-    PrintLog "- Draw a line"
-    Kontext "Drawbar"
-    Linie.Click
-    gMouseMove(30,30,55,55)
-    gMouseClick (75,5)
-    Sleep 1
-    
-    PrintLog "- Draw a rectangle"
-    Kontext "Drawbar"
-    Rechteck.Click
-    gMouseMove(35,35,40,40)
-    gMouseClick (75,5)
-    Sleep 1
-    
-    PrintLog "- Draw a ellipse (circle)"
-    Kontext "Drawbar"
-    Ellipse.Click
-    Call gMouseMove(50,30,75,50)
-    gMouseClick (75,5)
-    Sleep 1
-    
-    PrintLog "- Draw textobject"
-    Kontext "Drawbar"
-    Textobjekt.Click
-    gMouseMove(40,60,60,75)
-    Sleep 1
-    Kontext "DocumentWriter"
-    Call wTypeKeys "This is StarOffice Test !"
-    gMouseClick (75,5)
-    
-    PrintLog "- Draw callouts"
-    Kontext "Drawbar"
-    Legende.Click
-    gMouseMove(30,80,50,95)
-    gMouseClick (75,5)
-    Sleep 1
-    
-    Kontext "Drawbar"
-    Drawbar.Close
-    
-    Call hCloseDocument
-
-endcase
-
-'-------------------------------------------------------------------------
-
-testcase  tPositionAndSize_1
-
-    Dim sPositionX as String
-    Dim sPositionY as String
-    Dim sPositionXMove as String
-    Dim sPositionYMove as String
-    
-    sPositionX           = "3" + gSeperator + "00" + gMeasurementUnit
-    sPositionY           = "3" + gSeperator + "00" + gMeasurementUnit
-    sPositionXMove  = "5" + gSeperator + "00" + gMeasurementUnit
-    sPositionYMove  = "5" + gSeperator + "00" + gMeasurementUnit
-    
-    PrintLog "- Check the checkbox 'protect position' of the object"
-    
-    Call hNewDocument
-    
-    PrintLog "- Insert a drawing object (rectangle)"
-    Call wZeichenobjektEinfuegen("RECHTECK", 30, 40, 60, 60)
-    Call gMouseClick(40,50)
-    
-    printLog "when 'protect position' is Checked"
-    PrintLog "- Format/Position and size /Position and size ,"
-    PrintLog "- + set positionX and positionY , and Check 'postion' in protect area"
-    PrintLog "- + close the dialogue  and reopen it"
-    PrintLog "- check wether the rectangle can be removed when 'protect position' is Checked"
-    fPositionAndSize("TabPositionAndSizeWriter")
-    
-    Horizontalby.Settext "3"
-    Verticalby.Settext "3"
-    ProtectPosition.Check
-    
-    TabPositionAndSizeWriter.OK
-    Sleep 1
-    
-    Kontext "DocumentWriter"
-    Call wTypeKeys "<Right>",2
-    Call wTypeKeys "<Down>" ,2
-    Sleep 1
-    
-    fPositionAndSize("TabPositionAndSizeWriter")
-    
-    if Horizontalby.Gettext <> sPositionX then Warnlog "X-Position is wrong: Not -> "+sPositionX+"  but -> "+Horizontalby.Gettext
-    if Verticalby.Gettext <> sPositionY then Warnlog "Y-Position is wrong: Not -> "+sPositionY+"  but -> "+Verticalby.Gettext
-    
-    ProtectPosition.UnCheck
-    TabPositionAndSizeWriter.OK
-    
-    PrintLog "- check wether the rectangle can be removed when 'protect position' is UnChecked"
-    Kontext "DocumentWriter"
-    Call wTypeKeys "<Right>",2
-    Call wTypeKeys "<Down>" ,2
-    Sleep 1
-    
-    fPositionAndSize("TabPositionAndSizeWriter")
-    
-    if Horizontalby.Gettext <> sPositionXMove then Warnlog "X-Position is wrong: Not -> "+sPositionXMove+"  but -> "+Horizontalby.Gettext
-    if Verticalby.Gettext <> sPositionYMove then Warnlog "Y-Position is wrong: Not -> "+sPositionYMove+"  but -> "+Verticalby.Gettext
-    
-    TabPositionAndSizeWriter.OK
-    
-    Call hCloseDocument
-
-endcase
-
-'-------------------------------------------------------------------------
-
-testcase  tPositionAndSize_2
-
-    Dim sPositionX as String
-    Dim sPositionY as String
-    Dim sPositionXMove as String
-    Dim sPositionYMove as String
-    
-    sPositionX           = "3" + gSeperator + "00" + gMeasurementUnit
-    sPositionY           = "3" + gSeperator + "00" + gMeasurementUnit
-    sPositionXMove  = "4" + gSeperator + "00" + gMeasurementUnit
-    sPositionYMove  = "4" + gSeperator + "00" + gMeasurementUnit
-    
-    PrintLog "- check Undo/Redo function of position assignment"
-    
-    Call hNewDocument
-    
-    PrintLog "- Insert a drawing object (rectangle)"
-    Call wZeichenobjektEinfuegen("RECHTECK", 30, 40, 60, 60)
-    Call gMouseClick(40,50)
-    
-    fPositionAndSize("TabPositionAndSizeWriter")
-    Horizontalby.Settext "3"
-    Verticalby.Settext "3"
-    TabPositionAndSizeWriter.OK
-    Sleep 1
-    
-    Kontext "DocumentWriter"
-    Call wTypeKeys "<Right>"
-    Call wTypeKeys "<Down>"
-    Sleep 1
-    
-    PrintLog "- check undo function"
-    EditUndo
-    Sleep 1
-    EditUndo
-    Sleep 1
-    
-    fPositionAndSize("TabPositionAndSizeWriter")
-    if Horizontalby.Gettext <> sPositionX then Warnlog "X-Position is wrong: Not -> "+sPositionX+"  but -> "+Horizontalby.Gettext
-    if Verticalby.Gettext <> sPositionY then Warnlog "Y-Position is wrong: Not -> "+sPositionY+"  but -> "+Verticalby.Gettext
-    TabPositionAndSizeWriter.Cancel
-    
-    PrintLog "- check redo function"
-    EditRedo
-    Sleep 1
-    EditRedo
-    Sleep 1
-    
-    fPositionAndSize("TabPositionAndSizeWriter")
-    if Horizontalby.Gettext <> sPositionXMove then Warnlog "X-Position is wrong: Not -> "+sPositionXMove+"  but -> "+Horizontalby.Gettext
-    if Verticalby.Gettext <> sPositionYMove then Warnlog "Y-Position is wrong: Not -> "+sPositionYMove+"  but -> "+Verticalby.Gettext
-    TabPositionAndSizeWriter.Cancel
-    
-    Call hCloseDocument
-
-endcase
-
-'-------------------------------------------------------------------------
-
-testcase  tPositionAndSize_3
-
-    Dim sWidth as String
-    Dim sHeight as String
-    Dim sWidthChange as String
-    Dim sHeightChange as String
-    
-    sHeightChange  = "8" + gSeperator + "00" + gMeasurementUnit
-    sWidthChange   = "6" + gSeperator + "00" + gMeasurementUnit
-    
-    PrintLog "- check 'keep ratio' option"
-    
-    Call hNewDocument
-    
-    PrintLog "- Insert a drawing object (rectangle)"
-    Call wZeichenobjektEinfuegen("RECHTECK", 30, 40, 60, 60)
-    Call gMouseClick(40,50)
-    
-    fPositionAndSize("TabPositionAndSizeWriter")
-    
-    PrintLog "- Check when ratio is 5:4"
-    Width.Settext  "5"
-    Height.Settext "4"
-    
-    KeepRatio.Check
-    Width.Settext "10"
-    Sleep 2
-    if Height.GetText <> sHeightChange then Warnlog "Height is wrong: Not -> "+sHeightChange+"  but -> "+Height.GetText
-    
-    KeepRatio.UnCheck
-    PrintLog "- Check when ratio is 3:5"
-    Width.Settext  "3"
-    Height.Settext "5"
-    
-    KeepRatio.Check
-    Height.Settext "10"
-    Sleep 2
-    if Width.GetText <> sWidthChange then Warnlog "Width is wrong: Not -> "+sWidthChange+"  but -> "+Width.GetText
-    
-    'Recover to the default
-    KeepRatio.UnCheck
-    TabPositionAndSizeWriter.OK
-    
-    Call hCloseDocument
-
-endcase
-
-'-------------------------------------------------------------------------
-
-testcase  tPositionAndSize_4
-
-    Dim sWidth as String
-    Dim sHeight as String
-    Dim sWidthChange as String
-    Dim sHeightChange as String
-    
-    sWidth             = "5" + gSeperator + "00" + gMeasurementUnit
-    sHeight            = "4" + gSeperator + "00" + gMeasurementUnit
-    sWidthChange  = "8" + gSeperator + "00" + gMeasurementUnit
-    sHeightChange = "6" + gSeperator + "00" + gMeasurementUnit
-    
-    PrintLog "- check Undo/Redo function of size assignment"
-    
-    Call hNewDocument
-    
-    PrintLog "- Insert a drawing object (rectangle) , and set the first Size"
-    Call wZeichenobjektEinfuegen("RECHTECK", 30, 40, 60, 60)
-    Call gMouseClick(40,50)
-    
-    fPositionAndSize("TabPositionAndSizeWriter")
-    Width.Settext  sWidth
-    Height.Settext sHeight
-    TabPositionAndSizeWriter.OK
-    Sleep 1
-    
-    PrintLog "- Set the second Size."
-    fPositionAndSize("TabPositionAndSizeWriter")
-    Width.Settext  sWidthChange
-    Height.Settext sHeightChange
-    TabPositionAndSizeWriter.OK
-    Sleep 1
-    
-    PrintLog "- check undo function"
-    EditUndo
-    Sleep 1
-    fPositionAndSize("TabPositionAndSizeWriter")
-    if Width.GetText  <> sWidth  then Warnlog "Width is wrong: Not -> "+sWidth+"  but -> "+Width.GetText
-    if Height.GetText <> sHeight then Warnlog "Height is wrong: Not -> "+sHeight+"  but -> "+Height.GetText
-    TabPositionAndSizeWriter.Cancel
-    
-    PrintLog "- check redo function"
-    EditRedo
-    Sleep 1
-    
-    fPositionAndSize("TabPositionAndSizeWriter")
-    if Width.GetText  <> sWidthChange  then Warnlog "Width is wrong: Not -> "+sWidthChange+"  but -> "+Width.GetText
-    if Height.GetText <> sHeightChange then Warnlog "Height is wrong: Not -> "+sHeightChange+"  but -> "+Height.GetText
-    TabPositionAndSizeWriter.Cancel
-    
-    Call hCloseDocument
-
-endcase
-
-'-------------------------------------------------------------------------
-
-testcase  tPositionAndSize_5
-
-    PrintLog "- check rotation angle of an object"
-
-    Call hNewDocument
-
-    PrintLog "- Insert a drawing object (rectangle) , and set its rotation angle"
-    Call wZeichenobjektEinfuegen("RECHTECK", 30, 40, 60, 60)
-    Call gMouseClick(40,50)
-
-    Call fPositionAndSize("TabDrehung")
-    Winkel.SetText "45"
-    TabDrehung.OK
-    Sleep 1
-
-    Call fPositionAndSize("TabDrehung")
-    if Left$(Winkel.GetText,5) <> "45" + gSeperator + "00" then
-        Warnlog "The rotation angle isn't corroct! It should be 45" & gSeperator & "00, but get " + Left$(Winkel.GetText, 5)
-    end if
-    TabDrehung.Cancel
-
-    Call hCloseDocument
-
-endcase
-
-'-------------------------------------------------------------------------
-
-testcase  tPositionAndSize_6
-
-    Dim sRadius as String
-    
-    sRadius = "0" + gSeperator + "50" + gMeasurementUnit
-    
-    PrintLog "- check corner radius of rectangles"
-    
-    Call hNewDocument
-    
-    PrintLog "- Insert a rectangle , and set its corner radius."
-    Call wZeichenobjektEinfuegen("RECHTECK", 30, 40, 60, 60)
-    Call gMouseClick(40,50)
-    
-    fPositionAndSize("TabSchraegstellen")
-     Radius.SetText sRadius
-    TabSchraegstellen.OK
-    Sleep 1
-    
-    fPositionAndSize("TabSchraegstellen")
-     if Radius.GetText <> sRadius then Warnlog "The Radius isn't corroct! It should be " +sRadius + " , but was " +Radius.GetText
-    TabSchraegstellen.Cancel
-    
-    Call hCloseDocument
-    
-endcase
-
-'-------------------------------------------------------------------------
-
-testcase  tPositionAndSize_7
-
-    Dim sRadius as String
-    
-    sRadius = "0" + gSeperator + "50" + gMeasurementUnit
-    
-    PrintLog "- check corner radius of textboxes."
-    
-    Call hNewDocument
-    
-    PrintLog "- Insert a rectangle , and set its corner radius"
-    
-    Call wZeichenobjektEinfuegen("TEXT", 30, 40, 60, 60)
-    Call wTypeKeys "The test for corner radius of textboxes..."
-    Kontext "DocumentWriter"
-    Call wTypeKeys "<ESCAPE>"
-    
-    fPositionAndSize("TabSchraegstellen")
-     Radius.SetText sRadius
-    TabSchraegstellen.OK
-    Sleep 1
-    
-    fPositionAndSize("TabSchraegstellen")
-     if Radius.GetText <> sRadius then Warnlog "The Radius isn't corroct! It should be " +sRadius + " ,but get " +Radius.GetText
-    TabSchraegstellen.Cancel
-    
-    Call hCloseDocument
-
-endcase
-
-'-------------------------------------------------------------------------
-
-testcase  tPositionAndSize_8
-
-    Dim sPositionStartX as String
-    Dim sPositionStartY as String
-    Dim sWidth as String
-    Dim sHeight as String
-    Dim sPivotDefaultX as String
-    Dim sPivotDefaultY as String
-    Dim sPivotStartX as String 
-    Dim sPivotStartY as String
-    Dim sPivotEndX  as String
-    Dim sPivotEndY as String
-    
-    sPositionStartX   = "3" + gSeperator + "00" + gMeasurementUnit
-    sPositionStartY   = "3" + gSeperator + "00" + gMeasurementUnit
-    sWidth            = "4" + gSeperator + "00" + gMeasurementUnit
-    sHeight           = "3" + gSeperator + "00" + gMeasurementUnit
-    
-    sPivotDefaultX    = "5" + gSeperator + "00" + gMeasurementUnit
-    sPivotDefaultY    = "4" + gSeperator + "50" + gMeasurementUnit
-    sPivotStartX      = "3" + gSeperator + "50" + gMeasurementUnit
-    sPivotStartY      = "2" + gSeperator + "50" + gMeasurementUnit
-    sPivotEndX        = "6" + gSeperator + "50" + gMeasurementUnit
-    sPivotEndY        = "6" + gSeperator + "50" + gMeasurementUnit
-    
-    PrintLog "- check 'keep ratio' option"
-    
-    Call hNewDocument
-    
-    PrintLog "- Insert a drawing object (rectangle)"
-    Call wZeichenobjektEinfuegen("RECHTECK", 30, 40, 60, 60)
-    Call gMouseClick(40,50)
-    
-    fPositionAndSize("TabPositionAndSizeWriter")
-    Width.Settext        sWidth
-    Height.Settext       sHeight
-    Horizontalby.Settext sPositionStartX
-    Verticalby.Settext   sPositionStartY
-    TabPositionAndSizeWriter.OK
-    Sleep 1
-    fPositionAndSize("TabDrehung")
-    Winkel.SetText "270"
-    TabDrehung.OK
-    Sleep 1
-    
-    fPositionAndSize("TabDrehung")
-    if PositionX.Gettext <> sPivotDefaultX then Warnlog "X-Position is wrong: Not -> "+sPivotDefaultX+"  but -> "+PositionX.Gettext
-    if PositionY.Gettext <> sPivotDefaultY then Warnlog "Y-Position is wrong: Not -> "+sPivotDefaultY+"  but -> "+PositionY.Gettext
-    
-    Drehpunkt.TypeKeys "<Up>"
-    Drehpunkt.TypeKeys "<Left>"
-    
-    if PositionX.Gettext <> sPivotStartX then Warnlog "X-Position is wrong: Not -> "+sPivotStartX+"  but -> "+PositionX.Gettext
-    if PositionY.Gettext <> sPivotStartY then Warnlog "Y-Position is wrong: Not -> "+sPivotStartY+"  but -> "+PositionY.Gettext
-    
-    Drehpunkt.TypeKeys "<Right>" , 2
-    Drehpunkt.TypeKeys "<Down>"  , 2
-    
-    if PositionX.Gettext <> sPivotEndX then Warnlog "X-Position is wrong: Not -> "+sPivotEndX+"  but -> "+PositionX.Gettext
-    if PositionY.Gettext <> sPivotEndY then Warnlog "Y-Position is wrong: Not -> "+sPivotEndY+"  but -> "+PositionY.Gettext
-    TabDrehung.Cancel
-    
-    Call hCloseDocument
-
-endcase
-
-'-------------------------------------------------------------------------
-
-testcase  tLine_1
-
-    Dim iLineStyle as Integer
-    Dim iColor as Integer
-    Dim iArrowStyleLeft as Integer
-    Dim iArrowStyleRight as Integer
-    Dim sLineWidth as String
-    Dim sTransparency as String
-    Dim sArrowWidthLeft as String
-    Dim sArrowWidthRight as String
-    
-    Dim iLineStyleDefault as Integer
-    Dim iColorDefault as Integer
-    Dim iArrowStyleLeftDefault as Integer 
-    Dim iArrowStyleRightDefault as Integer
-    Dim sLineWidthDefault as String
-    Dim sTransparencyDefault as String
-    Dim sArrowWidthLeftDefault as String
-    Dim sArrowWidthRightDefault as String
-
-    sTransparency    = "25%"
-    iLineStyle       = 3
-    iColor           = 7
-    iArrowStyleLeft  = 2
-    iArrowStyleRight = 3
-    sLineWidth       = "0" + gSeperator + "10" + gMeasurementUnit
-    sArrowWidthLeft  = "0" + gSeperator + "55" + gMeasurementUnit
-    sArrowWidthRight = "0" + gSeperator + "60" + gMeasurementUnit
-    
-    PrintLog "- check style, color, width and arrow styles"
-    
-    Call hNewDocument
-    
-    PrintLog "- Insert a line"
-    Call wZeichenobjektEinfuegen("LINIE", 40,40 ,  60,50 , false)
-    Sleep 2
-    Call gMouseClick(40,40)
-    Sleep 2
-    Call wTypeKeys ( "<Shift F4>" )
-    Sleep 1
-    
-    PrintLog "- modify Style ,color , width and arrow styles"
-    fFormatLine("TabLinie")
-    
-    iLineStyleDefault       = Stil.GetSelIndex
-    iColorDefault           = Farbe.GetSelIndex
-    slineWidthDefault       = Breite.GetText
-    sTransparencyDefault    = Transparenz.GetText
-    iArrowStyleLeftDefault  = StilLinks.GetSelIndex
-    iArrowStyleRightDefault = StilRechts.GetSelIndex
-    sArrowWidthLeftDefault  = BreiteLinks.GetText
-    sArrowWidthRightDefault = BreiteRechts.GetText
-    
-    PrintLog "- Line properties , include :"
-    PrintLog "- - Style"
-    Stil.Select iLineStyle
-    wait 500
-    PrintLog "- - Color"
-    Farbe.Select iColor
-    wait 500
-    PrintLog "- - Width"
-    Breite.SetText sLineWidth
-    wait 500
-    PrintLog "- - Transparency"
-    Transparenz.SetText sTransparency
-    wait 500
-    
-    PrintLog "- Arrow styles , include :"
-    PrintLog "- - Synchronize ends"
-    EndenSynchronisieren.UnCheck
-    PrintLog "- - Style (left and right)"
-    StilLinks.Select  iArrowStyleLeft
-    StilRechts.Select iArrowStyleRight
-    wait 500
-    PrintLog "- - Width (left and right)"
-    BreiteLinks.SetText  sArrowWidthLeft
-    BreiteRechts.SetText sArrowWidthRight
-    PrintLog "- - Center (left and right)"
-    ZentriertLinks.Check
-    ZentriertRechts.Check
-    
-    TabLinie.OK
-    
-    PrintLog "- Check all changes"
-    fFormatLine("TabLinie")
-    
-    if Stil.GetSelIndex    <> iLineStyle    then Warnlog "Line style is wrong."
-    if Farbe.GetSelIndex   <> iColor        then Warnlog "Line color is wrong."
-    if Breite.GetText      <> sLineWidth    then Warnlog "Line width is wrong."
-    if Transparenz.GetText <> sTransparency then Warnlog "Line transparency is wrong."
-    
-    if EndenSynchronisieren.IsChecked = TRUE         then Warnlog "Synchronize ends should NOT be checked."
-    if StilLinks.GetSelIndex     <> iArrowStyleLeft  then Warnlog "The left arrow style is wrong."
-    if StilRechts.GetSelIndex    <> iArrowStyleRight then Warnlog "The right arrow style is wrong."
-    if BreiteLinks.GetText       <> sArrowWidthLeft  then Warnlog "The left arrow width is wrong."
-    if BreiteRechts.GetText      <> sArrowWidthRight then Warnlog "The right arrow width is wrong."
-    if ZentriertLinks.IsChecked  <> TRUE             then Warnlog "The left 'center' should be checked"
-    if ZentriertRechts.IsChecked <> TRUE             then Warnlog "The right 'center' should be checked"
-    TabLinie.Cancel
-    
-    PrintLog "- Test Undo function"
-    Kontext "DocumentWriter"
-    EditUndo
-    Sleep 1
-    
-    fFormatLine("TabLinie")
-    if Stil.GetSelIndex    <> iLineStyleDefault    then Warnlog "Line style is wrong."
-    if Farbe.GetSelIndex   <> iColorDefault        then Warnlog "Line color is wrong."
-    if Breite.GetText      <> sLineWidthDefault    then Warnlog "Line width is wrong."
-    if Transparenz.GetText <> sTransparencyDefault then Warnlog "Line transparency is wrong."
-    
-    if EndenSynchronisieren.IsChecked = TRUE                then Warnlog "Synchronize ends should NOT be checked."
-    if StilLinks.GetSelIndex     <> iArrowStyleLeftDefault  then Warnlog "The left arrow style is wrong."
-    if StilRechts.GetSelIndex    <> iArrowStyleRightDefault then Warnlog "The right arrow style is wrong."
-    if BreiteLinks.GetText       <> sArrowWidthLeftDefault  then Warnlog "The left arrow width is wrong."
-    if BreiteRechts.GetText      <> sArrowWidthRightDefault then Warnlog "The right arrow width is wrong."
-    if ZentriertLinks.IsChecked  = TRUE                     then Warnlog "The left 'center' should be checked"
-    if ZentriertRechts.IsChecked = TRUE                     then Warnlog "The right 'center' should be checked"
-    TabLinie.Cancel
-    
-    PrintLog "- Test Redo function"
-    Kontext "DocumentWriter"
-    EditRedo
-    Sleep 1
-    
-    fFormatLine("TabLinie")
-    if Stil.GetSelIndex    <> iLineStyle    then Warnlog "Line style is wrong."
-    if Farbe.GetSelIndex   <> iColor        then Warnlog "Line color is wrong."
-    if Breite.GetText      <> sLineWidth    then Warnlog "Line width is wrong."
-    if Transparenz.GetText <> sTransparency then Warnlog "Line transparency is wrong."
-    
-    if EndenSynchronisieren.IsChecked = TRUE         then Warnlog "Synchronize ends should NOT be checked."
-    if StilLinks.GetSelIndex     <> iArrowStyleLeft  then Warnlog "The left arrow style is wrong."
-    if StilRechts.GetSelIndex    <> iArrowStyleRight then Warnlog "The right arrow style is wrong."
-    if BreiteLinks.GetText       <> sArrowWidthLeft  then Warnlog "The left arrow width is wrong."
-    if BreiteRechts.GetText      <> sArrowWidthRight then Warnlog "The right arrow width is wrong."
-    if ZentriertLinks.IsChecked  <> TRUE             then Warnlog "The left 'center' should be checked"
-    if ZentriertRechts.IsChecked <> TRUE             then Warnlog "The right 'center' should be checked"
-    TabLinie.Cancel
-    
-    Call hCloseDocument
-    
-endcase
-
-'-------------------------------------------------------------------------
-
-testcase  tLine_2
-
-    PrintLog "- Check call Format.Line dialog via Button in object bar."
-    
-    Call hNewDocument
-    
-    PrintLog "- Insert a line."
-    Call wZeichenobjektEinfuegen("LINIE", 40,40 ,  60,50 , false)
-    Sleep 2
-    Call gMouseClick(40,40)
-    Sleep 2
-    Call wTypeKeys ( "<Shift F4>" )
-    Sleep 1
-    
-    PrintLog "- call Format/Line dialog via Button in object bar."
-    try
-        Kontext "DrawingObjectbar"
-        Linie.Click
-        Kontext
-        active.SetPage TabLinie
-        Sleep 1
-        Kontext "TabLinie"
-        Kontext
-        active.SetPage TabLinienstile
-        Sleep 1
-        Kontext "TabLinienstile"
-        Kontext
-        active.SetPage TabLinienenden
-        Sleep 1
-        Kontext "TabLinienenden"
-        TabLinienenden.Cancel
-    catch
-        Warnlog "Can't call format/line via Button in object bar."
-    endcatch
-    
-    Call hCloseDocument
-
-endcase
-
-'-------------------------------------------------------------------------
-
-testcase  tLine_3
-
-    Dim iLineStyle as Integer
-    Dim iColor as Integer
-    Dim iArrowStyleLeft as Integer 
-    Dim iArrowStyleRight as Integer
-    Dim sLineWidth as String
-    
-    iLineStyle          = 4
-    iColor                = 5
-    iArrowStyleLeft  = 4
-    iArrowStyleRight = 6
-    
-    PrintLog "- check line attributes are applied in object bar ,include -"
-    
-    Call hNewDocument
-    
-    PrintLog "- Insert a line"
-    Call wZeichenobjektEinfuegen("LINIE", 40,40 ,  60,50 , false)
-    Sleep 2
-    Call gMouseClick(40,40)
-    Sleep 2
-    Call wTypeKeys ( "<Shift F4>" )
-    Sleep 1
-    
-    PrintLog "- set Arrow Styles"
-    Kontext "DrawingObjectbar"
-    Linienendenstil.TearOff
-    Kontext "Linienenden"
-    Sleep 1
-    Auswahl.TypeKeys "<Down>" , 4
-    Sleep 2
-    Auswahl.TypeKeys "<Return>"
-    Sleep 2
-    Auswahl.TypeKeys "<Right>"
-    Sleep 2
-    Auswahl.TypeKeys "<Down>" , 2
-    Sleep 2
-    Auswahl.TypeKeys "<Return>"
-    Sleep 2
-    Linienenden.Close
-    Sleep 2
-    
-    PrintLog "- set Line Style"
-    Kontext "DrawingObjectbar"
-    Linienstil.Select iLineStyle
-    
-    PrintLog "- + Line Width"
-    Linienbreite.More 4
-    sLineWidth = Linienbreite.GetText
-    
-    PrintLog "- + Line Color"
-    Linienfarbe.Select iColor
-    
-    PrintLog "- check the lines status"
-    fFormatLine("TabLinie")
-    if Stil.GetSelIndex    <> iLineStyle    then Warnlog "Line style is wrong."
-    if Farbe.GetSelIndex   <> iColor        then Warnlog "Line color is wrong."
-    if Breite.GetText      <> sLineWidth    then warnlog "Line width is wrong."
-    
-    if StilLinks.GetSelIndex   <> iArrowStyleLeft  then Warnlog "Arrow style is not correctly shown in format dialog"
-    if StilRechts.GetSelIndex  <> iArrowStyleRight then Warnlog "Arrow style is not correctly shown in format dialog"
-    
-    TabLinie.Cancel
-    
-    Call hCloseDocument
-
-endcase
-
-'-------------------------------------------------------------------------
-
-testcase  tLine_4
-
-    Dim iArrowStyleLeft as Integer
-    Dim iArrowStyleRight as Integer
-    
-    iArrowStyleLeft  = 2
-    iArrowStyleRight = 3
-    
-    PrintLog "- check  'synchronize ends'"
-    
-    Call hNewDocument
-    
-    Call wZeichenobjektEinfuegen("LINIE", 40,40 ,  60,50 , false)
-    Sleep 2
-    Call gMouseClick(40,40)
-    Sleep 2
-    Call wTypeKeys ( "<Shift F4>" )
-    Sleep 1
-    
-    fFormatLine("TabLinie")
-    PrintLog "- Check Synchronize ends"
-    EndenSynchronisieren.Check
-    
-    PrintLog "- Style (left and right)"
-    StilLinks.Select  iArrowStyleLeft
-    Sleep 1
-    if StilRechts.GetSelIndex <> iArrowStyleLeft then Warnlog "The right arrow style is wrong."
-    
-    StilRechts.Select iArrowStyleRight
-    Sleep 1
-    if StilLinks.GetSelIndex <> iArrowStyleRight then Warnlog "The left arrow style is wrong."
-    
-    TabLinie.Cancel
-    
-    Call hCloseDocument
-
-endcase
-
-'-------------------------------------------------------------------------
-
-testcase  tLine_5
-
-    Dim iLineTypeLeft as Integer
-    Dim iLineTypeRight as Integer
-    Dim sLineStyle as String
-    Dim sRightLength as String
-    Dim sSpace as String
-    Dim sLeftNumber as String
-    Dim sRightNumber as String
-    
-    sLineStyle     = "myTest"
-    iLineTypeLeft  =  1
-    iLineTypeRight =  2
-    sLeftNumber    = "3"
-    sRightNumber   = "2"
-    sRightLength   = "0" + gSeperator + "30" + gMeasurementUnit
-    sSpace         = "0" + gSeperator + "10" + gMeasurementUnit
-    
-    PrintLog "- check  'check the attributes in format/line/line styles'"
-    
-    Call hNewDocument
-    
-    Call wZeichenobjektEinfuegen("LINIE", 40,40 ,  60,50 , false)
-    Sleep 2
-    Call gMouseClick(40,40)
-    Sleep 2
-    Call wTypeKeys ( "<Shift F4>" )
-    Sleep 1
-    
-    Call fFormatLine("TabLinienstile")
-    
-    AnLinienbreite.UnCheck
-    
-    TypLinks.Select      iLineTypeLeft
-    TypRechts.Select     iLineTypeRight
-    AnzahlLinks.SetText  sLeftNumber
-    AnzahlRechts.SetText sRightNumber
-    LaengeRechts.SetText sRightLength
-    Abstand.SetText      sSpace
-    TabLinienstile.OK
-    Sleep 1
-    
-    Kontext
-    Kontext "Linienstil"
-    if Linienstil.Exists then
-        Hinzufuegen.Click
-    else
-        Warnlog "The dialog doesn't appear ! No test for this case"
-        Kontext "TabLinienstile"
-        goto NoTEST
-    end if
-    Sleep 1
-    
-    Kontext
-    Kontext "LinieName"
-    
-    if LinieName.Exists then
-        Sleep 1
-        Eingabefeld.SetText sLineStyle
-        Sleep 1
-        LinieName.OK
-        Sleep 1
-    else
-        Warnlog "The dialog doesn't appear !"
-        Goto endsub
-    end if
-    
-    Call fFormatLine("TabLinienstile")
-    Sleep 2
-    if AnLinienbreite.IsChecked =  TRUE           then Warnlog "Fit to line width should NOT be checked"
-    Sleep 1
-    if TypLinks.GetSelIndex     <> iLineTypeLeft  then Warnlog "The left line type is wrong !"
-    Sleep 1
-    if TypRechts.GetSelIndex    <> iLineTypeRight then Warnlog "The right line type is wrong !"
-    Sleep 1
-    if AnzahlLinks.GetText      <> sLeftNumber    then Warnlog "The left number is wrong !"
-    Sleep 1
-    if AnzahlRechts.GetText     <> sRightNumber   then Warnlog "The right number is wrong !"
-    Sleep 1
-    if LaengeLinks.IsEnabled                      then Warnlog "The left length should be unable !"
-    Sleep 1
-    if LaengeRechts.GetText     <> sRightLength   then Warnlog "The right length is wrong !"
-    Sleep 1
-    if Abstand.GetText          <> sSpace         then Warnlog "The spacing is wrong !"
-    Sleep 1
-
-NoTEST:
-    'delete the testing line type , recover to the default
-    Loeschen.Click
-    Sleep 1
-    Kontext "Active"
-    if Active.Exists then
-        if Active.GetRT = 304 then
-            Active.Yes
-            Sleep 1
-        else
-            Warnlog "Something wrong when deleting the new line type!"
-        end if
-    end if
-    
-    Kontext
-    Kontext "TabLinienstile"
-    TabLinienstile.OK
-    Sleep 1
-    Call hCloseDocument
-
-endcase
-
-'-------------------------------------------------------------------------
-
-testcase  tLine_6
-
-    Dim i as Integer
-    Dim sArrowTitle1 as String
-    Dim sArrowTitle2 as String
-    Dim soeFile as String
-    Dim soeDefaultFile as String
-    
-    sArrowTitle1  = "myTest1"
-    sArrowTitle2  = "myTest2"
-    
-    soeFile            = ConvertPath(gOfficePath + "user\work\standard_reserver.soe")
-    soeDefaultFile = ConvertPath(gOfficePath + "user\config\standard.soe")
-    
-    if FileExists ( soeFile ) then app.kill ( soeFile )
-    
-    PrintLog "- check the attributes in format/line/arrow styles"
-
-    Call hNewDocument
-
-    Call wZeichenobjektEinfuegen("RECHTECK", 32, 40, 40, 60)
-    Call wZeichenobjektEinfuegen("ELLIPSE",  32, 65, 40, 85)
-    
-    Call wZeichenobjektEinfuegen("LINIE", 30,40 , 60,50 , false)
-    Call gMouseClick(30,40)
-    
-    PrintLog "- add the first test arrow type."
-    fFormatLine("TabLinienenden")
-    PrintLog "- save the arrow types first."
-    Speichern.Click
-    Kontext
-    Kontext "SpeichernDlg"
-    Dateiname.SetText soeFile
-    Speichern.Click
-    Sleep 2
-    
-    Kontext
-    Kontext "TabLinienenden"
-    PrintLog "- delete the all arrow types."
-    if Loeschen.IsEnabled then
-        for i = 1 to Liste.GetItemCount
-            Loeschen.Click
-            Kontext "Active"
-            if Active.Exists then
-                if Active.GetRT = 304 then
-                    Active.Yes
-                else
-                    Warnlog "Something wrong when deleting the arrow types!"
-                end if
-            end if
-            Kontext
-            Kontext "TabLinienenden"
-        next i
-    end if
-    
-    Hinzufuegen.Click
-    Kontext
-    Kontext "LinieName"
-    Eingabefeld.SetText sArrowTitle1
-    LinieName.OK
-    
-    Kontext
-    Kontext "TabLinienenden"
-    TabLinienenden.OK
-    
-    PrintLog "- add the second test arrow type."
-    Call wZeichenobjektEinfuegen("LINIE", 30,70 , 60,50 , false)
-    Call gMouseClick(30,70)
-    fFormatLine("TabLinienenden")
-    Hinzufuegen.Click
-    Kontext
-    Kontext "LinieName"
-    Eingabefeld.SetText sArrowTitle2
-    LinieName.OK
-    
-    Kontext
-    Kontext "TabLinienenden"
-    TabLinienenden.OK
-    
-    Call gMouseClick(30,40)
-    fFormatLine("TabLinienenden")
-    
-    Liste.Select 1
-    if TextFeld.GetText <> sArrowTitle1 then Warnlog "The first arraw title is wrong, hope "+sArrowTitle1+ " but get " +TextFeld.GetText
-    Liste.Select 2
-    if TextFeld.GetText <> sArrowTitle2 then Warnlog "The first arraw title is wrong, hope "+sArrowTitle2+ " but get " +TextFeld.GetText
-    
-    Oeffnen.Click
-    Kontext
-    Kontext "OeffnenDlg"
-    Pfad.SetText soeFile
-    Oeffnen.Click
-    Sleep 1
-    Kontext
-    Kontext "TabLinienenden"
-    
-    if FileExists ( soeDefaultFile ) then app.kill ( soeDefaultFile )
-    
-    Speichern.Click
-    Kontext
-    Kontext "SpeichernDlg"
-    Dateiname.SetText soeDefaultFile
-    Speichern.Click
-    Sleep 2
-    
-    Kontext
-    Kontext "TabLinienenden"
-    TabLinienenden.OK
-    
-    Call hCloseDocument
-
-endcase
-
-'-------------------------------------------------------------------------
diff --git a/testautomation/writer/optional/includes/drawing/w_drawing_tools2.inc b/testautomation/writer/optional/includes/drawing/w_drawing_tools2.inc
deleted file mode 100644
index 17babc991f7e..000000000000
--- a/testautomation/writer/optional/includes/drawing/w_drawing_tools2.inc
+++ /dev/null
@@ -1,715 +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 : helge.delfs@oracle.com
-'*
-'* short description : Test of the drawing tools - group
-'*
-'\***********************************************************************
-
-sub w_drawing_tools2
-
-    printLog Chr(13) + "- Test of the drawing tools 2 -- Group"
-    'Group objects
-    Call tGroup_1                'Generate a objects group via menu Format/Group/Group
-    Call tGroup_2                'Generate a objects group via contextmenu Format/Group/Group
-    Call tGroup_3                'Menu entries may not be enabled if less then two objects are selected
-    Call tGroup_4                'Name a selected object group  via Menu Format/Name object
-    Call tGroup_5                'Name a selected object group via context menu Name object
-    Call tGroup_6                'Edit object group via Menu Format/Group/Edit Group
-    Call tGroup_7                'Edit object group via context menu Group/Edit Group
-    Call tGroup_8                'Leave object group  via Menu Format/Group/Exit Group
-    Call tGroup_9                'Leave object group via context menu Group/Exit Group
-    Call tGroup_10               'Create new objects inside the group ,Undo new created objects before leaving the group
-    Call tGroup_11               'Create new objects inside the group ,Undo new created objects after leaving the group
-    Call tGroup_12               'Save and reload document while editing a group
-    Call tEncapsulatedGroup_1    'Group objects inside the group
-    
-end sub
-
-'-------------------------------------------------------------------------
-
-testcase tGroup_1
-
-    PrintLog "- Generate a objects group via menu Format/Group/Group"
-
-    Call hNewDocument
-
-    PrintLog "- Insert 2 drawing objects (rectangle and ellipse)"
-    Call wZeichenobjektEinfuegen("RECHTECK", 32, 30, 50, 65, false)
-    Sleep 1
-    Call wZeichenobjektEinfuegen("ELLIPSE",  40, 45, 60, 70, false)
-    Sleep 1
-    Call wObjektSelektieren ( 30, 28, 70, 80 )
-    Sleep 1
-    
-      PrintLog "- via menu Format/Group/Group objects."
-    try
-        FormatGroupGroup
-    catch
-        Warnlog "Something wrong when creating group via menu - Format/Group/Group."
-    endcatch
-    
-    Call hCloseDocument
-
-endcase
-
-'-------------------------------------------------------------------------
-
-testcase tGroup_2
-
-    PrintLog "- Generate a objects group via contextmenu Format/Group/Group"
-
-    Call hNewDocument
-
-      PrintLog "- Insert 2 drawing objects (rectangle and ellipse)"
-    Call wZeichenobjektEinfuegen("RECHTECK", 32, 30, 50, 65, false)
-    Sleep 1
-    Call wZeichenobjektEinfuegen("ELLIPSE",  40, 45, 60, 70, false)
-    Sleep 1
-    Call wObjektSelektieren ( 30, 28, 70, 80 )
-    Sleep 1
-    
-      PrintLog "- via contextmenu Group/Group objects."
-    try
-        Call wOpenContextMenu
-        Call hMenuSelectNr(10)
-        Call hMenuSelectNr(1)
-    catch
-        Warnlog "Something wrong when creating group via contextmenu Group/Group"
-    endcatch
-    
-    Call hCloseDocument
-
-endcase
-
-'-------------------------------------------------------------------------
-
-testcase tGroup_3
-
-    PrintLog "- Menu entries may not be enabled if less then two objects are selected."
-
-    Call hNewDocument
-
-    PrintLog "- Insert 2 drawing objects (rectangle and ellipse)"
-    Call wZeichenobjektEinfuegen("RECHTECK", 30, 30, 50, 65, false)
-    Sleep 1
-    Call wZeichenobjektEinfuegen("ELLIPSE",  40, 45, 60, 70, false)
-    Sleep 1
-    
-      PrintLog "- Only select 1 object."
-    Call gMouseClick(32,32)
-    Sleep 1
-    
-      PrintLog "- via menu Format/Group/Group objects."
-    try
-        FormatGroupGroup
-        Warnlog "Should NOT generate the group when less then two objects are selected!"
-    catch
-    endcatch
-    
-    Call hCloseDocument
-
-endcase
-
-'-------------------------------------------------------------------------
-
-testcase tGroup_4
-
-    Dim sGroupName as String
-
-    sGroupName = "myTestGroup"
-
-    PrintLog "- Name a selected object group  via Menu Format/Name object"
-
-    Call hNewDocument
-
-    PrintLog "- Insert 2 drawing objects (rectangle and ellipse)"
-    Call wZeichenobjektEinfuegen("RECHTECK", 32, 30, 50, 65, false)
-    Sleep 1
-    Call wZeichenobjektEinfuegen("ELLIPSE",  40, 45, 60, 70, false)
-    Sleep 1
-    Call wObjektSelektieren ( 30, 28, 70, 80 )
-    Sleep 1
-    
-      PrintLog "- via menu Format/Group/Group objects."
-    FormatGroupGroup
-    Sleep 1
-    
-    try
-        FormatNameObject
-        Kontext "NameDlgObject"
-        NameField.SetText sGroupName
-        NameDlgObject.OK
-    catch
-        Warnlog "Something wrong when Naming the group"
-    endcatch
-    
-      PrintLog "- let the focus out of the group."
-    Call gMouseClick(5,5)
-
-    Call wNavigatorAuswahl( 12 , 1 )
-    Sleep 1
-
-    try
-        FormatNameObject
-        Sleep 1
-        Kontext "NameDlgObject"
-        if  NameField.GetText <> sGroupName then Warnlog "The group name is wrong !"
-        NameDlgObject.Cancel
-    catch
-        Warnlog "Something wrong when checking the group name"
-    endcatch
-
-    Call wNavigatorClose
-
-    Call hCloseDocument
-
-endcase
-
-'-------------------------------------------------------------------------
-
-testcase tGroup_5
-
-    Dim sGroupName as String
-
-    sGroupName = "myTestGroup"
-
-    PrintLog "- Name a selected object group via context menu Name object "
-
-    Call hNewDocument
-
-    PrintLog "- Insert 2 drawing objects (rectangle and ellipse)"
-    Call wZeichenobjektEinfuegen("RECHTECK", 32, 30, 50, 65, false)
-    Sleep 1
-    Call wZeichenobjektEinfuegen("ELLIPSE",  40, 45, 60, 70, false)
-    Sleep 1
-    Call wObjektSelektieren ( 28, 28, 70, 80 )
-    Sleep 1
-
-    PrintLog "- via menu Format/Group/Group objects"
-    FormatGroupGroup
-    Sleep 1
-
-    try
-        Call wOpenContextMenu
-        Call hMenuSelectNr(6)
-        Kontext "NameDlgObject"
-        NameField.SetText sGroupName
-        NameDlgObject.OK
-    catch
-        Warnlog "Something wrong when Naming the group"
-    endcatch
-    
-    PrintLog "- let the focus out of the group."
-    Call gMouseClick(95,95)
-    
-    Call wNavigatorAuswahl( 12 , 1 )
-    Sleep 1
-    
-    try
-        Call wOpenContextMenu
-        Call hMenuSelectNr(6)
-        Kontext "NameDlgObject"
-        if  NameField.GetText <> sGroupName then Warnlog "The group name is wrong !"
-        NameDlgObject.Cancel
-    catch
-        Warnlog "Something wrong when checking the group name"
-    endcatch
-    
-    Call wNavigatorClose
-    Call hCloseDocument
-
-endcase
-
-'-------------------------------------------------------------------------
-
-testcase tGroup_6
-
-    Dim sPositionX1 as String
-    Dim sPositionY1 as String
-    Dim sPositionX2 as String
-    Dim sPositionY2 as String
-
-    PrintLog "- Edit object group  via Menu Format/Group/Enter Group"
-
-    Call hNewDocument
-    
-    PrintLog "- Insert 2 drawing objects (rectangle and ellipse) , generate a group."
-    Call wZeichenobjektEinfuegen("RECHTECK", 32, 32, 50, 65, false)
-    Sleep 1
-    Call gMouseClick(34,34)
-    Sleep 1
-    Call fPositionAndSize("TabPositionAndSizeWriter")
-    sPositionX1  =  Horizontalby.Gettext
-    sPositionY1  =  Verticalby.Gettext
-    TabPositionAndSizeWriter.Cancel
-    Sleep 2
-    Call gMouseClick(80,80)
-    Sleep 1
-
-    Call wZeichenobjektEinfuegen("ELLIPSE",  40, 40, 60, 70, false)
-    Sleep 2
-    Call gMouseClick(50,50)
-    Sleep 1
-    Call fPositionAndSize("TabPositionAndSizeWriter")
-    sPositionX2  =  Horizontalby.Gettext
-    sPositionY2  =  Verticalby.Gettext
-    TabPositionAndSizeWriter.Cancel
-    Sleep 2
-    Call gMouseClick(80,80)
-
-    Call wObjektSelektieren ( 31, 31, 70, 80 )
-    Sleep 2
-    FormatGroupGroup
-    Sleep 1
-
-    PrintLog "- Format/Group/Enter Group."
-    FormatGroupEditGroup
-    Sleep 1
-
-    PrintLog "- Set the focus to ellipse, and move it."
-    Call gMouseClick(50,50)
-    Sleep 1
-    Call wTypeKeys "<Right>",2
-
-    PrintLog "- Set the focus to rectangle , check if it is moved (Should NOT)"
-    Call gMouseClick(41,40)
-    Call fPositionAndSize("TabPositionAndSizeWriter")
-    if Horizontalby.Gettext <> sPositionX1 then Warnlog "Rectangle should NOT be moved: X Not -> "+sPositionX1+"  but -> "+ Horizontalby.Gettext
-    if Verticalby.Gettext   <> sPositionY1 then Warnlog "Rectangle should NOT be moved: Y Not -> "+sPositionY1+"  but -> "+ Verticalby.Gettext
-    TabPositionAndSizeWriter.Cancel
-
-    PrintLog "- Set the focus to ellipse , check if it is moved (Should)"
-    Call wTypeKeys "<TAB>"
-    Call fPositionAndSize("TabPositionAndSizeWriter")
-    if Horizontalby.Gettext = sPositionX2 then Warnlog "ellipse should be moved"
-    if Verticalby.Gettext   = sPositionY2 then Warnlog "ellipse should be moved"
-    TabPositionAndSizeWriter.Cancel
-
-    Call hCloseDocument
-
-endcase
-
-'-------------------------------------------------------------------------
-
-testcase tGroup_7
-
-    Dim sPositionX1 as String
-    Dim sPositionY1 as String
-    Dim sPositionX2 as String
-    Dim sPositionY2 as String
-
-    PrintLog "- Edit object group via context menu Group/Enter Group"
-
-    Call hNewDocument
-    
-    PrintLog "- Insert 2 drawing objects (rectangle and ellipse) , generate a group."
-    Call wZeichenobjektEinfuegen("RECHTECK", 32, 32, 50, 65, false)
-    Sleep 1
-    Call gMouseClick(40,40)
-    Sleep 1
-    Call fPositionAndSize("TabPositionAndSizeWriter")
-    sPositionX1  =  Horizontalby.Gettext
-    sPositionY1  =  Verticalby.Gettext
-    TabPositionAndSizeWriter.Cancel
-    Sleep 2
-    Call gMouseClick(80,80)
-    Sleep 1
-    
-    Call wZeichenobjektEinfuegen("ELLIPSE",  40, 40, 60, 70, false)
-    Sleep 2
-    Call gMouseClick(50,50)
-    Call fPositionAndSize("TabPositionAndSizeWriter")
-    sPositionX2  =  Horizontalby.Gettext
-    sPositionY2  =  Verticalby.Gettext
-    TabPositionAndSizeWriter.Cancel
-    Sleep 2
-    Call gMouseClick(80,80)
-    
-    Call wObjektSelektieren ( 31, 31, 70, 80 )
-    Sleep 2
-    FormatGroupGroup
-    Sleep 1
-    
-      PrintLog "- Context menu Group/Enter Group."
-    Call wOpenContextMenu
-    Call hMenuSelectNr(12)
-    Sleep 1
-    Call hMenuSelectNr(2)
-    Sleep 1
-    
-      PrintLog "- Set the focus to ellipse , and move it."
-    Call gMouseClick(50,50)
-    Sleep 1
-    Call wTypeKeys "<Right>",2
-    
-      PrintLog "- Set the focus to rectangle , check if it is moved (Should NOT)."
-    Call gMouseClick(40,40)
-    Call fPositionAndSize("TabPositionAndSizeWriter")
-    if Horizontalby.Gettext <> sPositionX1 then Warnlog "Rectangle should NOT be moved: X Not -> "+sPositionX1+"  but -> "+ Horizontalby.Gettext
-    if Verticalby.Gettext   <> sPositionY1 then Warnlog "Rectangle should NOT be moved: Y Not -> "+sPositionY1+"  but -> "+ Verticalby.Gettext
-    TabPositionAndSizeWriter.Cancel
-    
-      PrintLog "- Set the focus to ellipse , check if it is moved (Should)."
-    Call wTypeKeys "<TAB>"
-    Call fPositionAndSize("TabPositionAndSizeWriter")
-    if Horizontalby.Gettext = sPositionX2 then Warnlog "ellipse should be moved"
-    if Verticalby.Gettext   = sPositionY2 then Warnlog "ellipse should be moved"
-    TabPositionAndSizeWriter.Cancel
-    
-    Call hCloseDocument
-
-endcase
-
-'-------------------------------------------------------------------------
-
-testcase tGroup_8
-
-    Dim sPositionX as String
-    Dim sPositionY as String
-
-    PrintLog "- Leave object group  via Menu Format/Group/Exit Group"
-
-    Call hNewDocument
-    
-    PrintLog "- Insert 2 drawing objects (rectangle and ellipse) , generate a group."
-    Call wZeichenobjektEinfuegen("RECHTECK", 32, 32, 50, 65, false)
-    Sleep 1
-    Call gMouseClick(34,34)
-    Sleep 1
-    Call fPositionAndSize("TabPositionAndSizeWriter")
-    sPositionX = Horizontalby.Gettext
-    sPositionY = Verticalby.Gettext
-    TabPositionAndSizeWriter.Cancel
-    
-    Call gMouseClick(80,80)
-    Call wZeichenobjektEinfuegen("ELLIPSE",  40, 45, 60, 70, false)
-    Sleep 1
-    Call wObjektSelektieren ( 28, 28, 70, 80 )
-    Sleep 1
-    
-    FormatGroupGroup
-    Sleep 1
-    
-      PrintLog "- Format/Group/Edit Group."
-    FormatGroupEditGroup
-    Sleep 1
-    
-      PrintLog "- Leave group via Format/Group/Exit Group."
-    FormatGroupExitGroup   'after this group , the focus should be on the group
-    Sleep 1
-    
-      PrintLog "- Set the focus to ellipse(in fact, the focus is on the group), and move it."
-    Call gMouseClick(50,50)
-    Sleep 1
-    Kontext "DocumentWriter"
-    Call wTypeKeys "<Right>",2
-    Call wTypeKeys "<Down>"
-    
-      PrintLog "- Set the focus to rectangle (in fact, the focus is still on the group) ,"
-      PrintLog "- check if it is moved . Group is moved , Rectangle is moved ..."
-    Call gMouseClick(45,45)
-    Call fPositionAndSize("TabPositionAndSizeWriter")
-    if Horizontalby.Gettext = sPositionX then Warnlog "Rectangle X should be moved!"
-    if Verticalby.Gettext   = sPositionY then Warnlog "Rectangle Y should be moved!"
-    TabPositionAndSizeWriter.Cancel
-    
-    Call hCloseDocument
-
-endcase
-
-'-------------------------------------------------------------------------
-
-testcase tGroup_9
-
-    Dim sPositionX as String
-    Dim sPositionY as String
-
-    PrintLog "- Leave object group  via context Menu Format/Group/Exit Group"
-
-    Call hNewDocument
-    
-    PrintLog "- Insert 2 drawing objects (rectangle and ellipse) , generate a group."
-    Call wZeichenobjektEinfuegen("RECHTECK", 32, 32, 50, 65, false)
-    Sleep 1
-    Call gMouseClick(35,35)
-    Sleep 1
-    Call fPositionAndSize("TabPositionAndSizeWriter")
-    sPositionX = Horizontalby.Gettext
-    sPositionY = Verticalby.Gettext
-    TabPositionAndSizeWriter.Cancel
-    
-    Call gMouseClick(80,80)
-    Sleep 1
-    Call wZeichenobjektEinfuegen("ELLIPSE",  40, 45, 60, 70, false)
-    Sleep 1
-    Call wObjektSelektieren ( 28, 28, 70, 80 )
-    Sleep 1
-    FormatGroupGroup
-    Sleep 1
-    
-    PrintLog "- Format/Group/Edit Group."
-    FormatGroupEditGroup
-    Sleep 1
-    
-    PrintLog "- Leave group via context menu Group/Exit Group."
-    Call gMouseClick(35,50)
-    Sleep 1
-    Call wOpenContextMenu
-    Sleep 2
-    call hMenuSelectNr(12)
-    Sleep 2
-    Call hMenuSelectNr(1)       'after this group , the focus should be on the group
-    Sleep 2
-    
-      PrintLog "- Set the focus to ellipse(in fact, the focus is on the group), and move it."
-    Call gMouseClick(50,50)
-    Kontext "DocumentWriter"
-    Call wTypeKeys "<Right>",2
-    Call wTypeKeys "<Down>"
-    
-      PrintLog "- Set the focus to rectangle (in fact, the focus is still on the group) ,"
-      PrintLog "- check if it is moved . Group is moved , Rectangle is moved ..."
-    Call gMouseClick(45,45)
-    Call fPositionAndSize("TabPositionAndSizeWriter")
-    if Horizontalby.Gettext = sPositionX then Warnlog "Rectangle X should be moved!"
-    if Verticalby.Gettext   = sPositionY then Warnlog "Rectangle Y should be moved!"
-    TabPositionAndSizeWriter.Cancel
-    
-    Call hCloseDocument
-
-endcase
-
-'-------------------------------------------------------------------------
-
-testcase tGroup_10
-
-    PrintLog "- create new objects inside the group ,"
-    PrintLog "  Undo new created objects before leaving the group"
-
-    Call hNewDocument
-    
-    PrintLog "- Insert 2 drawing objects (rectangle and ellipse) , generate a group "
-    Call wZeichenobjektEinfuegen("RECHTECK", 32, 32, 50, 35, false)
-    Sleep 1
-    Call wZeichenobjektEinfuegen("ELLIPSE",  40, 60, 50, 80, false)
-    Sleep 1
-    Call wObjektSelektieren ( 30, 30, 55, 85 )
-    Sleep 1
-
-    FormatGroupGroup
-    Sleep 1
-
-    PrintLog "- insert another object (rectangle) in the group"
-    Call wZeichenobjektEinfuegen("RECHTECK", 35, 40, 45, 55)
-    Sleep 1
-
-    PrintLog "- Format/Group/Edit Group."
-    Call gMouseClick(32,32)
-    Sleep 1
-    FormatGroupEditGroup
-    Sleep 1
-    
-      PrintLog "- Undo new created object( rectangle) before leaving the group."
-    EditUndo
-    Sleep 1
-    
-    Call gMouseClick(35,40)    'set focus in the rectangle , in fact, the rectangle should be undone now.
-    Sleep 1
-    try
-        Call fPositionAndSize("TabPositionAndSizeWriter")
-        TabPositionAndSizeWriter.Cancel
-        Warnlog "Undo before leaving the group is FAILED!"
-    catch
-    endcatch
-    
-    Call hCloseDocument
-
-endcase
-
-'-------------------------------------------------------------------------
-
-testcase tGroup_11
-
-    PrintLog "- create new objects inside the group ,"
-    PrintLog "  Undo new created objects after leaving the group"
-    Call hNewDocument
-    
-    PrintLog "- Insert 2 drawing objects (rectangle and ellipse) , generate a group "
-    Call wZeichenobjektEinfuegen("RECHTECK", 30, 30, 50, 35, false)
-    Sleep 1
-    Call wZeichenobjektEinfuegen("ELLIPSE",  30, 60, 50, 80, false)
-    Sleep 1
-    Call wObjektSelektieren ( 28, 28, 55, 85 )
-    Sleep 1
-    
-    FormatGroupGroup
-    Sleep 1
-    
-    PrintLog "- insert another object (rectangle) in the group"
-    Call wZeichenobjektEinfuegen("RECHTECK", 35, 40, 45, 55, false)
-    Sleep 2
-    PrintLog "- Format/Group/Edit Group"
-    Call gMouseClick(32,32)
-    Sleep 3
-    FormatGroupEditGroup
-    Sleep 1
-    
-    PrintLog "- Leave the group , Format/Group/Exit Group"
-    FormatGroupExitGroup
-    Sleep 1
-    
-    PrintLog "- Undo new created object( rectangle) after leaving the group"
-    EditUndo
-    Sleep 1
-    
-    Call gMouseClick(37,42)    'set focus in the rectangle , in fact, the rectangle should be undone now.
-    Sleep 1
-    try
-        Call fPositionAndSize("TabPositionAndSizeWriter")
-        TabPositionAndSizeWriter.Cancel
-        Warnlog "Undo before leaving the group is FAILED!"
-    catch
-    endcatch
-    
-    Call hCloseDocument
-
-endcase
-
-'-------------------------------------------------------------------------
-
-testcase tGroup_12
-
-    Dim sDocument as String
-
-    PrintLog "- Edit object group  via Menu Format/Group/Edit Group"
-
-    sDocument = ConvertPath ( gOfficePath +"user\work\tGroup_12.odt")
-    if FileExists ( sDocument ) then app.kill ( sDocument )
-    
-    Call hNewDocument
-    
-    PrintLog "- Insert 2 drawing objects (rectangle and ellipse) , generate a group "
-    Call wZeichenobjektEinfuegen("RECHTECK", 32, 32, 50, 65, false)
-    Sleep 1
-    Call wZeichenobjektEinfuegen("ELLIPSE",  40, 45, 60, 70, false)
-    Sleep 1
-    Call wObjektSelektieren ( 30, 30, 70, 80 )
-    Sleep 1
-    
-    FormatGroupGroup
-    Sleep 1
-    
-      PrintLog "- Format/Group/Edit Group"
-    FormatGroupEditGroup
-    Sleep 1
-    
-    PrintLog "- Save document"
-    Call hFileSaveAsKill(sDocument)
-    
-    PrintLog "- close document"
-    Call hCloseDocument
-    
-      PrintLog "- Open previous saved document "
-    Call hFileOpen( sDocument)
-    
-    Kontext "DocumentWriter"
-    Call gMouseClick(34,34)    'set focus in the group
-    
-    PrintLog "- try formatGroupEditGroup"
-    try
-        FormatGroupEditGroup
-    catch
-        Warnlog "It should be in the group mode!"
-    endcatch
-    
-    PrintLog "- close document"
-    Call hCloseDocument
-
-endcase
-
-'-------------------------------------------------------------------------
-
-testcase tEncapsulatedGroup_1
-
-    PrintLog "- Group objects inside the group ,Encapsulated Group"
-    
-    Call hNewDocument
-    
-      PrintLog "- Insert 2 drawing objects (rectangle and ellipse) , generate a group "
-      
-    Call wZeichenobjektEinfuegen("RECHTECK", 32, 32, 50, 65, false)
-    Sleep 1
-    Call wZeichenobjektEinfuegen("ELLIPSE",  40, 45, 60, 70, false)
-    Sleep 1
-    Call wObjektSelektieren ( 31, 31, 70, 80 )
-    Sleep 1
-    
-    FormatGroupGroup
-    Sleep 1
-    
-    Call gMouseClick(90,90)    'set focus outside of the group
-    
-      PrintLog "- insert 2 drawing objects (rectangle and ellipse) in the group"
-    Call wZeichenobjektEinfuegen("RECHTECK", 35, 40, 38, 45, false)
-    Call wZeichenobjektEinfuegen("ELLIPSE",  40, 40, 58, 45, false, true)
-    Call wObjektSelektieren ( 31, 31, 80, 80 )
-
-    Sleep 1
-    
-    PrintLog "- generate a new group"
-    try
-        FormatGroupGroup
-    catch
-        Warnlog "Unable to execute Format / Group"
-    endcatch
-
-    PrintLog "- edit the new group"
-    try
-        FormatGroupEditGroup
-    catch
-        Warnlog "Unable to execute Group / Enter Group"
-    endcatch
-
-    PrintLog "- leave the new group"
-    try
-        FormatGroupExitGroup
-    catch
-        Warnlog "Unable to exceute Format / Exit Group"
-    endcatch
-
-    PrintLog "- Undo the new group"
-    try
-        FormatGroupUnGroup
-    catch
-        Warnlog "Unable to execute Format / Ungroup"
-    endcatch
-    
-    Call hCloseDocument
-
-endcase
diff --git a/testautomation/writer/optional/includes/dropdownLB/w_dropdownLB1.inc b/testautomation/writer/optional/includes/dropdownLB/w_dropdownLB1.inc
deleted file mode 100644
index 7e1eee588127..000000000000
--- a/testautomation/writer/optional/includes/dropdownLB/w_dropdownLB1.inc
+++ /dev/null
@@ -1,1093 +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 : helge.delfs@oracle.com
-'*
-'* short description : Test Drop Down List Box
-'*
-'************************************************************************
-'*
-' #1 tDropDownLB_1           'Check 'Input List'
-' #1 tDropDownLB_2           'All input field should be initially empty
-' #1 tDropDownLB_3           'Test Add button
-' #1 tDropDownLB_4           'Test Return in Item editbox
-' #1 tDropDownLB_5           'Test new item will always be added at the end of 'Items on list'
-' #1 tDropDownLB_6           'The first entry in the list box is the shown default
-' #1 tDropDownLB_7           'Test 'Remove' button
-' #1 tDropDownLB_8           'Test 'Move Up' button
-' #1 tDropDownLB_9           'Test 'Move Down' button
-' #1 tDropDownLB_10          'Test 'Ctrl+Shift+F9'
-' #1 tDropDownLB_11          'OK button should insert new value
-' #1 tDropDownLB_12          'Test Next button
-' #1 tDropDownLB_13          'Test Edit button
-' #1 tDropDownLB_14          'Test Edit/Fields
-' #1 tDropDownLB_15          'Test Right arrow button
-' #1 tDropDownLB_16          'Test Left arrow button
-' #1 tDropDownLB_17          'Import from Word document
-'*
-'\***********************************************************************
-
-testcase tDropDownLB_1
-
-    Dim iType as Integer
-    iType = 2
-
-    PrintLog "- Check 'Input List'"
-
-    Call hNewDocument
-
-    PrintLog "- Insert/Field/Other/ Functions"
-    PrintLog "- Check if 'Input List' exists in Type area"
-    Call fInsertFieldsOther("TabFunktionen")
-    Feldtyp.Select iType
-    Sleep 3
-    if Not EntrysList.IsVisible then
-        Warnlog "Maybe wrong type selected in list. Not 'Input list'"
-    end if
-    TabFunktionen.Close
-
-    Call hCloseDocument
-
-endcase
-
-'-------------------------------------------------------------------------------------------
-
-testcase tDropDownLB_2
-
-  Dim  iType  as Integer
-
-  iType = 2
-
-  PrintLog "- All input field should be initially empty"
-
-  PrintLog "- Open a new document"
-   Call hNewDocument
-
-   PrintLog "- Insert/Field/Other/ Functions"
-   PrintLog "- select Input list"
-   PrintLog "- Check if all input field should be initially empty"
-    Call fInsertFieldsOther("TabFunktionen")
-        Feldtyp.Select iType
-        Sleep 3
-        if Len(NewListEntry.GetText) <> 0 then Warnlog "Item isn't empty!"
-        if EntrysList.GetItemCount   <> 0 then Warnlog "Items on list isn't empty!"
-        if Len(EntryName.GetText)    <> 0 then Warnlog "Name isn't empty!"
-    TabFunktionen.Close
-
-   Call hCloseDocument
-
-endcase
-
-'-------------------------------------------------------------------------------------------
-
-testcase tDropDownLB_3
-
-  Dim iType as Integer
-  Dim sItem as String
-
-  iType = 2  : sItem = "Entry 1"
-
-  PrintLog "- Test Add button"
-
-  PrintLog "- Open a new document"
-   Call hNewDocument
-
-   PrintLog "- Insert/Field/Other/ Functions"
-   PrintLog "- select Input list"
-   PrintLog "- Input text in 'Item' , then click 'Add' button"
-   PrintLog "- Check if the text is inserted into 'Items on List'"
-    Call fInsertFieldsOther("TabFunktionen")
-        Feldtyp.Select iType
-        Sleep 3
-        NewListEntry.SetText sItem
-        Sleep 1
-        AddListEntry.Click
-        Sleep 1
-        if EntrysList.GetSelText(1) <> sItem then Warnlog "the text isn't inserted into 'Items on list' correctly!"
-    TabFunktionen.Close
-
-   Call hCloseDocument
-
-endcase
-
-'-------------------------------------------------------------------------------------------
-
-testcase tDropDownLB_4
-
-  Dim iType as Integer
-  Dim sItem as String
-
-  iType = 2  : sItem = "Entry 1"
-
-  PrintLog "- Test Pressing return in Item editbox"
-
-  PrintLog "- Open a new document"
-   Call hNewDocument
-
-   PrintLog "- Insert/Field/Other/ Functions"
-   PrintLog "- select Input list"
-   PrintLog "- Input text in 'Item' , then click 'Add' button"
-   PrintLog "- Check if the text is inserted into 'Items on List'"
-    Call fInsertFieldsOther("TabFunktionen")
-        Feldtyp.Select iType
-        Sleep 3
-        NewListEntry.SetText sItem
-        Sleep 1
-        NewListEntry.Typekeys "<Return>"
-        Sleep 1
-        if EntrysList.GetSelText(1) <> sItem then Warnlog "the text isn't inserted into 'Items on list' correctly!"
-    TabFunktionen.Close
-
-   Call hCloseDocument
-
-endcase
-
-'-------------------------------------------------------------------------------------------
-
-testcase tDropDownLB_5
-
-  Dim iType as Integer
-  Dim sItem() as String
-  Dim i as Integer
-  Dim j as Integer
-
-  iType = 2
-  sItem = Array( _
-                   "Entry 1"    , _
-                   "Entry 2"    , _
-                   "Entry 3"    , _
-                   "Entry 4"    , _
-                   "Entry 5"    , _
-                   "Entry 6"    , _
-                   )
-  j = UBound(sItem)
-
-  PrintLog "- Test new item will always be added at the end of 'Items on list'"
-
-  PrintLog "- Open a new document"
-   Call hNewDocument
-
-   PrintLog "- Insert/Field/Other/ Functions"
-   PrintLog "- select Input list"
-   PrintLog "- Input some items"
-   PrintLog "- Check if new item will always be added at the end of 'Items on list'"
-    Call fInsertFieldsOther("TabFunktionen")
-        Feldtyp.Select iType
-        Sleep 3
-
-        For i = 0 to j
-            NewListEntry.SetText sItem(i)
-            Sleep 1
-            AddListEntry.Click
-            Sleep 1
-        next i
-
-        For i = 0 to j
-            try
-                EntrysList.Select i+1
-                Sleep 1
-            catch
-                Warnlog "There should be 6 itmes in the Items on list!"
-            endcatch
-            if EntrysList.GetSelText <> sItem(i) then Warnlog "Hope to get " & sItem(i) & " but get " & EntrysList.GetSelText
-        next i
-    TabFunktionen.Close
-
-   Call hCloseDocument
-
-endcase
-
-'-------------------------------------------------------------------------------------------
-
-testcase tDropDownLB_6
-
-  Dim iType as Integer
-  Dim sItem() as String
-  Dim i as Integer
-  Dim j as Integer
-
-  iType = 2
-  sItem = Array( _
-                   "Entry 1"    , _
-                   "Entry 2"    , _
-                   "Entry 3"    , _
-                   "Entry 4"    , _
-                   "Entry 5"    , _
-                   "Entry 6"    , _
-                   )
-  j = UBound(sItem)
-
-  PrintLog "- The first entry in the list box is the shown default"
-
-  PrintLog "- Open a new document"
-   Call hNewDocument
-
-   PrintLog "- Insert/Field/Other/ Functions"
-   PrintLog "- select Input list"
-   PrintLog "- Input some items"
-   PrintLog "- Set focus to the middle Item"
-   PrintLog "- click insert button , then Close the dialog"
-    Call fInsertFieldsOther("TabFunktionen")
-        Feldtyp.Select iType
-        Sleep 3
-
-        For i = 0 to j
-            NewListEntry.SetText sItem(i)
-            Sleep 1
-            AddListEntry.Click
-            Sleep 1
-        next i
-        EntrysList.Select 3
-        Sleep 1
-        Einfuegen.Click
-        Sleep 1
-    TabFunktionen.Close
-
-    EditSelectAll
-    EditCopy
-
-    if GetClipboardText <>  sItem(0) then  Warnlog "should get " &sItem(0) & " but get " & GetClipboardText
-
-   Call hCloseDocument
-
-endcase
-
-'-------------------------------------------------------------------------------------------
-
-testcase tDropDownLB_7
-
-  Dim iType as Integer
-  Dim sItem() as String
-  Dim i as Integer
-  Dim j as Integer
-
-  iType = 2
-  sItem = Array( _
-                   "Entry 1"    , _
-                   "Entry 2"    , _
-                   "Entry 3"    , _
-                   "Entry 4"    , _
-                 )
-  j = UBound(sItem)
-
-  PrintLog "- Test Remove button"
-
-  PrintLog "- Open a new document"
-   Call hNewDocument
-
-   PrintLog "- Insert/Field/Other/ Functions"
-   PrintLog "- select Input list"
-   PrintLog "- Input some items"
-   PrintLog "- Set focus to the middle Item"
-   PrintLog "- click remove button"
-   PrintLog "- check if the selected item is removed"
-    Call fInsertFieldsOther("TabFunktionen")
-        Feldtyp.Select iType
-        Sleep 3
-
-        try
-            RemoveEntry.Click
-            Warnlog "The remove button should be only ebabled when an item is selected!"
-        catch
-        endcatch
-
-        For i = 0 to j
-            NewListEntry.SetText sItem(i)
-            Sleep 1
-            AddListEntry.Click
-            Sleep 1
-        next i
-
-        EntrysList.Select 3
-        Sleep 1
-        RemoveEntry.Click
-        Sleep 1
-
-        EntrysList.Select 1
-        Sleep 1
-        if EntrysList.GetSelText <> sItem(0) then Warnlog "Hope to get " & sItem(0) & " but get " & EntrysList.GetSelText
-
-        EntrysList.Select 2
-        Sleep 1
-        if EntrysList.GetSelText <> sItem(1) then Warnlog "Hope to get " & sItem(1) & " but get " & EntrysList.GetSelText
-
-        EntrysList.Select 3
-        Sleep 1
-        if EntrysList.GetSelText <> sItem(3) then Warnlog "Hope to get " & sItem(3) & " but get " & EntrysList.GetSelText
-
-        try
-            EntrysList.Select 4
-            Warnlog "There should be only 3 itmes in the Items on list !"
-        catch
-        endcatch
-
-    TabFunktionen.Close
-
-   Call hCloseDocument
-
-endcase
-
-'-------------------------------------------------------------------------------------------
-
-testcase tDropDownLB_8
-
-  Dim iType as Integer
-  Dim sItem() as String
-  Dim sNewItem() as String
-  Dim i as Integer
-  Dim j as Integer
-
-  iType = 2
-  sItem = Array( _
-                   "Entry 1"    , _
-                   "Entry 2"    , _
-                   "Entry 3"    , _
-                   "Entry 4"    , _
-                 )
-  sNewItem = Array( _
-                   "Entry 4"    , _
-                   "Entry 1"    , _
-                   "Entry 2"    , _
-                   "Entry 3"    , _
-                   )
-
-  j = UBound(sItem)
-
-  PrintLog "- Test 'Move Up' button"
-
-  PrintLog "- Open a new document"
-   Call hNewDocument
-
-   PrintLog "- Insert/Field/Other/ Functions"
-   PrintLog "- select Input list"
-   PrintLog "- Input some items"
-   PrintLog "- Set focus to the last Item,"
-   PrintLog "- click Move Up button third times"
-   PrintLog "- check if the 4th item is the 1st one"
-    Call fInsertFieldsOther("TabFunktionen")
-        Feldtyp.Select iType
-        Sleep 3
-
-        For i = 0 to j
-            NewListEntry.SetText sItem(i)
-            Sleep 1
-            AddListEntry.Click
-            Sleep 1
-        next i
-
-        EntrysList.Select 4
-        Sleep 1
-        MoveUpEntry.Click
-        Sleep 1
-        MoveUpEntry.Click
-        Sleep 1
-        MoveUpEntry.Click
-        Sleep 1
-
-        For i = 0 to j
-            EntrysList.Select i+1
-            Sleep 1
-            if EntrysList.GetSelText <> sNewItem(i) then Warnlog "Hope to get " & sItem(i) & " but get " & EntrysList.GetSelText
-        next i
-    TabFunktionen.Close
-
-   Call hCloseDocument
-
-endcase
-
-'-------------------------------------------------------------------------------------------
-
-testcase tDropDownLB_9
-
-  Dim iType as Integer
-  Dim sItem() as String
-  Dim sNewItem() as String
-  Dim i as Integer
-  Dim j as Integer
-
-  iType = 2
-  sItem = Array( _
-                   "Entry 1"    , _
-                   "Entry 2"    , _
-                   "Entry 3"    , _
-                   "Entry 4"    , _
-                 )
-  sNewItem = Array( _
-                   "Entry 2"    , _
-                   "Entry 3"    , _
-                   "Entry 4"    , _
-                   "Entry 1"    , _
-                   )
-  j = UBound(sItem)
-
-  PrintLog "- Test 'Move Down' button"
-
-  PrintLog "- Open a new document"
-   Call hNewDocument
-
-   PrintLog "- Insert/Field/Other/ Functions"
-   PrintLog "- select Input list"
-   PrintLog "- Input some items"
-   PrintLog "- Set focus to the 1st Item,"
-   PrintLog "- click Move Down button third times"
-   PrintLog "- check if the 1st item is the 4th one"
-    Call fInsertFieldsOther("TabFunktionen")
-        Feldtyp.Select iType
-        Sleep 3
-
-        For i = 0 to j
-            NewListEntry.SetText sItem(i)
-            Sleep 1
-            AddListEntry.Click
-            Sleep 1
-        next i
-
-        EntrysList.Select 1
-        Sleep 1
-        MoveDownEntry.Click
-        Sleep 1
-        MoveDownEntry.Click
-        Sleep 1
-        MoveDownEntry.Click
-        Sleep 1
-
-        For i = 0 to j
-            EntrysList.Select i+1
-            Sleep 1
-            if EntrysList.GetSelText <> sNewItem(i) then Warnlog "Hope to get " & sItem(i) & " but get " & EntrysList.GetSelText
-        next i
-    TabFunktionen.Close
-
-   Call hCloseDocument
-
-endcase
-
-'-------------------------------------------------------------------------------------------
-
-testcase tDropDownLB_10
-
-  Dim iType as Integer
-  Dim sItem as String
-
-  iType = 2
-  sItem = "Entry 1"
-
-  PrintLog "- Test 'Ctrl+Shift+F9'"
-
-  PrintLog "- Open a new document"
-   Call hNewDocument
-
-   PrintLog "- Insert/Field/Other/ Functions"
-   PrintLog "- select Input list"
-   PrintLog "- Input 1 item"
-   PrintLog "- click insert and close the dialog"
-    Call fInsertFieldsOther("TabFunktionen")
-        Feldtyp.Select iType
-        Sleep 3
-        NewListEntry.SetText sItem
-        Sleep 1
-        AddListEntry.Click
-        Sleep 1
-        Einfuegen.Click
-        Sleep 1
-    TabFunktionen.Close
-
-   PrintLog "- Set focus in front of the list"
-    Call wTypeKeys "<MOD1 Home>"
-
-   PrintLog "- Press Ctrl+Shift+F9"
-    Call wTypeKeys "<MOD1 Shift F9>"
-
-    Kontext "EditInputList"
-    if EditInputList.Exists then
-        EditInputList.Cancel
-    else
-        Warnlog "The dialog can't be actived ."
-    end if
-
-   Call hCloseDocument
-
-endcase
-
-'-------------------------------------------------------------------------------------------
-
-testcase tDropDownLB_11
-
-  Dim iType as Integer
-  Dim sItem1 as String
-  Dim sItem2 as String
-
-  iType  = 2
-  sItem1 = "Entry 1" : sItem2 = "Entry 2"
-
-  PrintLog "- OK button should insert new value"
-
-  PrintLog "- Open a new document"
-   Call hNewDocument
-
-   PrintLog "- Insert/Field/Other/ Functions"
-   PrintLog "- select Input list"
-   PrintLog "- Input 2 items"
-   PrintLog "- click insert and close the dialog"
-    Call fInsertFieldsOther("TabFunktionen")
-        Feldtyp.Select iType
-        Sleep 3
-        NewListEntry.SetText sItem1
-        Sleep 1
-        AddListEntry.Click
-        Sleep 1
-        NewListEntry.SetText sItem2
-        Sleep 1
-        AddListEntry.Click
-        Sleep 1
-
-        Einfuegen.Click
-        Sleep 1
-    TabFunktionen.Close
-
-   PrintLog "- Set focus in front of the list"
-    Call wTypeKeys "<MOD1 Home>"
-
-   PrintLog "- Press Ctrl+Shift+F9"
-    Call wTypeKeys "<MOD1 Shift F9>"
-
-   PrintLog "- select 2nd list and press OK"
-    Kontext "EditInputList"
-      AllListEntrys.Select 2
-      Sleep 1
-    EditInputList.OK
-
-   PrintLog "- Check if the result is right"
-    EditSelectAll
-    EditCopy
-
-    if GetClipboardText <>  sItem2 then  Warnlog "should get " &sItem2 & " but get " & GetClipboardText
-
-   Call hCloseDocument
-
-endcase
-
-'-------------------------------------------------------------------------------------------
-
-testcase tDropDownLB_12
-
-  Dim iType as Integer
-  Dim sItem1() as String
-  Dim sItem2() as String
-  Dim i as Integer
-  Dim j as Integer
-
-  iType = 2
-  sItem1 = Array( _
-                   "Entry 1"    , _
-                   "Entry 2"    , _
-                   "Entry 3"    , _
-                   "Entry 4"    , _
-                   )
-  sItem2 = Array( _
-                   "Entry A"    , _
-                   "Entry B"    , _
-                   "Entry C"    , _
-                   "Entry D"    , _
-                   )
-
-  j = UBound(sItem1)
-
-  PrintLog "- Test Next button"
-  PrintLog "- Open a new document"
-   Call hNewDocument
-
-   PrintLog "- Insert/Field/Other/ Functions"
-   PrintLog "- select Input list"
-   PrintLog "- Input some items"
-   PrintLog "- click insert and close the dialog"
-    Call fInsertFieldsOther("TabFunktionen")
-
-        Feldtyp.Select iType
-        Sleep 3
-
-        For i = 0 to j
-            NewListEntry.SetText sItem1(i)
-            Sleep 1
-            AddListEntry.Click
-            Sleep 1
-        next i
-
-        Einfuegen.Click
-        Sleep 1
-    TabFunktionen.Close
-
-   PrintLog "- Set focus to another line"
-    Call wTypeKeys "<End><Return><Return>"
-
-   PrintLog "- Insert/Field/Other/ Functions"
-   PrintLog "- select Input list"
-   PrintLog "- Input some other items"
-   PrintLog "- click insert and close the dialog"
-    Call fInsertFieldsOther("TabFunktionen")
-
-        Feldtyp.Select iType
-        Sleep 3
-
-        For i = 0 to j
-            NewListEntry.SetText sItem2(i)
-            Sleep 1
-            AddListEntry.Click
-            Sleep 1
-        next i
-
-        Einfuegen.Click
-        Sleep 1
-    TabFunktionen.Close
-
-   PrintLog "- Set focus in front of the 1st list."
-    Call wTypeKeys "<MOD1 Home>"
-
-   PrintLog "- Press Ctrl+Shift+F9"
-    Call wTypeKeys "<MOD1 Shift F9>"
-
-   PrintLog "- the 1st group items should be in edit area."
-    Kontext "EditInputList"
-      For i = 0 to j
-          AllListEntrys.Select i+1
-          Sleep 1
-          if AllListEntrys.GetSelText <> sItem1(i) then Warnlog "Hope to get " & sItem1(i) & " but get " & AllListEntrys.GetSelText
-      next i
-
-     PrintLog "- Press next button , the 2nd group items should be in edit area."
-      NextListEntry.click
-      Sleep 1
-
-      For i = 0 to j
-          AllListEntrys.Select i+1
-          Sleep 1
-          if AllListEntrys.GetSelText <> sItem2(i) then Warnlog "Hope to get " & sItem2(i) & " but get " & AllListEntrys.GetSelText
-      next i
-
-    EditInputList.Cancel
-
-   Call hCloseDocument
-
-endcase
-
-'-------------------------------------------------------------------------------------------
-
-testcase tDropDownLB_13
-
-  Dim iType as Integer
-  Dim sItem1 as String
-  Dim sItem2 as String
-
-  iType  = 2
-  sItem1 = "Entry 1" : sItem2 = "Entry A"
-
-  PrintLog "- Test Edit button"
-
-  PrintLog "- Open a new document"
-   Call hNewDocument
-
-   PrintLog "- Insert/Field/Other/ Functions"
-   PrintLog "- select Input list"
-   PrintLog "- Input a item"
-   PrintLog "- click insert and close the dialog"
-    Call fInsertFieldsOther("TabFunktionen")
-        Feldtyp.Select iType
-        Sleep 3
-
-        NewListEntry.SetText sItem1
-        Sleep 1
-        AddListEntry.Click
-        Sleep 1
-
-        Einfuegen.Click
-        Sleep 1
-    TabFunktionen.Close
-
-   PrintLog "- Set focus to another line"
-    Call wTypeKeys "<End><Return><Return>"
-
-   PrintLog "- Insert/Field/Other/ Functions"
-   PrintLog "- select Input list"
-   PrintLog "- Input another item"
-   PrintLog "- click insert and close the dialog"
-    Call fInsertFieldsOther("TabFunktionen")
-        Feldtyp.Select iType
-        Sleep 3
-
-        NewListEntry.SetText sItem2
-        Sleep 1
-        AddListEntry.Click
-        Sleep 1
-
-        Einfuegen.Click
-        Sleep 1
-    TabFunktionen.Close
-
-   PrintLog "- Set focus in front of the 1st list"
-    Call wTypeKeys "<MOD1 Home>"
-
-   PrintLog "- Press Ctrl+Shift+F9"
-    Call wTypeKeys "<MOD1 Shift F9>"
-
-   PrintLog "- Press Edit button , the edit/field dialog should be up"
-    Kontext "EditInputList"
-      EditListEntry.click
-      Sleep 1
-
-      Kontext "FeldbefehlBearbeitenFunktionen"
-      if FeldbefehlBearbeitenFunktionen.Exists then
-          EntrysList.Select 1
-          if EntrysList.GetSelText <> sItem1 then
-              Warnlog "Hope to get " & sItem1 & " but get " & EntrysList.GetSelText & "->Bug#115731"
-          end if
-          FeldbefehlBearbeitenFunktionen.Cancel
-      else
-          Warnlog "The dialog can't be actived ."
-      end if
-
-    Kontext "EditInputList"
-    EditInputList.cancel
-
-   Call hCloseDocument
-
-endcase
-
-'-------------------------------------------------------------------------------------------
-
-testcase tDropDownLB_14
-
-  Dim iType as Integer
-  Dim sItem() as String
-  Dim sEntryName as String
-  Dim i as Integer
-  Dim j as Integer
-
-  iType = 2
-  sEntryName = "entryTest"
-  sItem = Array( _
-                   "Entry 1"    , _
-                   "Entry 2"    , _
-                   "Entry 3"    , _
-                   "Entry 4"    , _
-                   "Entry 5"    , _
-                   "Entry 6"    , _
-                 )
-  j = UBound(sItem)
-
-  PrintLog "- Test Edit/Fields"
-
-  PrintLog "- Open a new document"
-   Call hNewDocument
-
-   PrintLog "- Insert/Field/Other/ Functions"
-   PrintLog "- select Input list"
-   PrintLog "- Input some items"
-   PrintLog "- set Entry name"
-   PrintLog "- click insert button , then Close the dialog"
-    Call fInsertFieldsOther("TabFunktionen")
-        Feldtyp.Select iType
-        Sleep 3
-
-        For i = 0 to j
-            NewListEntry.SetText sItem(i)
-            Sleep 1
-            AddListEntry.Click
-            Sleep 1
-        next i
-
-        EntryName.SetText sEntryName
-        Einfuegen.Click
-        Sleep 1
-
-    TabFunktionen.Close
-
-   PrintLog "- Set focus in front of the 1st list"
-    Call wTypeKeys "<Home>"
-
-   PrintLog "- Edit/Fields , check if the entry items' info is correct."
-    EditFields
-    Kontext "FeldbefehlBearbeitenFunktionen"
-      For i = 0 to j
-          EntrysList.Select i+1
-          Sleep 1
-          if EntrysList.GetSelText <> sItem(i) then Warnlog "Hope to get " & sItem(i) & " but get " & EntrysList.GetSelText
-      next i
-      if EntryName.GetText <> sEntryName then  Warnlog "Entry name should be " & sEntryName & " but get " & EntryName.GetText
-    FeldbefehlBearbeitenFunktionen.Cancel
-
-   Call hCloseDocument
-
-endcase
-
-'-------------------------------------------------------------------------------------------
-
-testcase tDropDownLB_15
-
-  Dim iType as Integer
-  Dim sItem1 as String
-  Dim sItem2 as String
-
-  iType  = 2
-  sItem1 = "Entry 1" : sItem2 = "Entry A"
-
-  PrintLog "- Test Right arrow button"
-
-  PrintLog "- Open a new document"
-   Call hNewDocument
-
-   PrintLog "- Insert/Field/Other/ Functions"
-   PrintLog "- select Input list"
-   PrintLog "- Input a item"
-   PrintLog "- click insert and close the dialog"
-    Call fInsertFieldsOther("TabFunktionen")
-        Feldtyp.Select iType
-        Sleep 3
-
-        NewListEntry.SetText sItem1
-        Sleep 1
-        AddListEntry.Click
-        Sleep 1
-
-        Einfuegen.Click
-        Sleep 1
-    TabFunktionen.Close
-
-   PrintLog "- Set focus to another line"
-    Call wTypeKeys "<End><Return><Return>"
-
-   PrintLog "- Insert/Field/Other/ Functions"
-   PrintLog "- select Input list"
-   PrintLog "- Input another item"
-   PrintLog "- click insert and close the dialog"
-    Call fInsertFieldsOther("TabFunktionen")
-        Feldtyp.Select iType
-        Sleep 3
-
-        NewListEntry.SetText sItem2
-        Sleep 1
-        AddListEntry.Click
-        Sleep 1
-
-        Einfuegen.Click
-        Sleep 1
-    TabFunktionen.Close
-
-   PrintLog "- Set focus in front of the 1st list."
-    Call wTypeKeys "<MOD1 Home>"
-
-   PrintLog "- Edit/Fields"
-    EditFields
-
-   PrintLog "- click Right arrow button"
-    Kontext "FeldbefehlBearbeitenFunktionen"
-      EntrysList.Select 1
-      if EntrysList.GetSelText <> sItem1 then
-          Warnlog "1.Hope to get " & sItem1 & " but get " & EntrysList.GetSelText
-      end if
-      NaechsterFeldbefehl.Click
-      Sleep 1
-      EntrysList.Select 1
-      if EntrysList.GetSelText <> sItem2 then
-          Warnlog "2.Hope to get " & sItem2 & " but get " & EntrysList.GetSelText
-      end if
-    FeldbefehlBearbeitenFunktionen.Cancel
-
-   Call hCloseDocument
-
-endcase
-
-'-------------------------------------------------------------------------------------------
-
-testcase tDropDownLB_16
-
-  Dim iType as Integer
-  Dim sItem1 as String
-  Dim sItem2 as String
-
-  iType  = 2
-  sItem1 = "Entry 1" : sItem2 = "Entry A"
-
-  PrintLog "- Test Left arrow button"
-
-  PrintLog "- Open a new document"
-   Call hNewDocument
-
-   PrintLog "- Insert/Field/Other/ Functions"
-   PrintLog "- select Input list"
-   PrintLog "- Input a item"
-   PrintLog "- click insert and close the dialog"
-    Call fInsertFieldsOther("TabFunktionen")
-        Feldtyp.Select iType
-        Sleep 3
-
-        NewListEntry.SetText sItem1
-        Sleep 1
-        AddListEntry.Click
-        Sleep 1
-
-        Einfuegen.Click
-        Sleep 1
-    TabFunktionen.Close
-
-   PrintLog "- Set focus to another line."
-    Call wTypeKeys "<End><Return><Return>"
-
-   PrintLog "- Insert/Field/Other/ Functions"
-   PrintLog "- select Input list"
-   PrintLog "- Input another item"
-   PrintLog "- click insert and close the dialog"
-    Call fInsertFieldsOther("TabFunktionen")
-        Feldtyp.Select iType
-        Sleep 3
-
-        NewListEntry.SetText sItem2
-        Sleep 1
-        AddListEntry.Click
-        Sleep 1
-
-        Einfuegen.Click
-        Sleep 1
-    TabFunktionen.Close
-
-   PrintLog "- Set focus in front of the 2nd list."
-    Call wTypeKeys "<Home>"
-
-   PrintLog "- Edit/Fields"
-    EditFields
-
-   PrintLog "- click Left arrow button."
-    Kontext "FeldbefehlBearbeitenFunktionen"
-      EntrysList.Select 1
-      if EntrysList.GetSelText <> sItem2 then
-          Warnlog "1.Hope to get " & sItem2 & " but get " & EntrysList.GetSelText
-      end if
-      VorigerFeldbefehl.Click
-      Sleep 1
-      EntrysList.Select 1
-      if EntrysList.GetSelText <> sItem1 then
-          Warnlog "2.Hope to get " & sItem1 & " but get " & EntrysList.GetSelText
-      end if
-    FeldbefehlBearbeitenFunktionen.Cancel
-
-   Call hCloseDocument
-
-endcase
-
-'-------------------------------------------------------------------------------------------
-
-testcase tDropDownLB_17
-
-    Dim sTestFile as String
-    Dim sItem1() as String 
-    Dim sItem2() as String
-    Dim i as Integer
-    Dim j as Integer
-    
-    sTestFile = Convertpath (gTesttoolpath + "writer\optional\input\dropdownLB\DropDownListBox.doc")
-    
-    sItem1 = Array( _
-           "Entry 1"    , _
-           "Entry 2"    , _
-           "Entry 3"    , _
-         )
-    sItem2 = Array( _
-           "Entry A"    , _
-           "Entry B"    , _
-           "Entry C"    , _
-         )
-       
-    PrintLog "- Import from Word document"
-    PrintLog "- Open a new document"
-    Call hNewDocument
-    PrintLog "- Open a word document  which includes 2 entries."
-    hFileOpenLocally( sTestFile )
-    
-
-    Kontext "EditInputList"
-    if EditInputList.Exists then EditInputList.Cancel
-
-    PrintLog "- Set focus in front of first line."
-    Call wTypeKeys "<MOD1 Home>"
-    PrintLog "- Edit/Fields."
-    try
-        EditFields
-    catch
-        Warnlog "Can't import word document!"
-        Call hCloseDocument
-        goto endsub
-    endcatch
-    
-    PrintLog "- click Left arrow button"
-    Kontext "FeldbefehlBearbeitenFunktionen"
-    if EntrysList.GetItemCount = 3 then
-        For i = 1 to EntrysList.GetItemCount
-            EntrysList.Select i
-            Sleep 1
-            if EntrysList.GetSelText <> sItem1(i-1) then Warnlog "Hope to get " & sItem1(i-1) & " but get " & EntrysList.GetSelText
-        next i
-    else
-        warnlog "Not all entrys in field correctly imported!"
-    end if
-
-    FeldbefehlBearbeitenFunktionen.Cancel
-    
-    PrintLog "- Set focus in front of third line"
-    Call wTypeKeys "<MOD1 Home>"
-    Call wTypeKeys "<Down>" , 2
-    Call wTypeKeys "<Home>"
-    
-    PrintLog "- Edit/Fields"
-    try
-        EditFields
-    catch
-        Warnlog "Can't import word document!"
-        Call hCloseDocument
-        goto endsub
-    endcatch
-    
-    PrintLog "- click Left arrow button"
-    Kontext "FeldbefehlBearbeitenFunktionen"
-    if EntrysList.GetItemCount = 3 then
-        For i = 1 to EntrysList.GetItemCount
-            EntrysList.Select i
-            Sleep 1
-            if EntrysList.GetSelText <> sItem2(i-1) then Warnlog "Hope to get " & sItem2(i-1) & " but get " & EntrysList.GetSelText
-        next i
-    else
-        warnlog "Not all entrys in field correctly imported!"
-    end if
-
-    FeldbefehlBearbeitenFunktionen.Cancel
-    
-    Do Until GetDocumentCount = 0
-        Call hCloseDocument
-    Loop
-    
-endcase
-
-'-------------------------------------------------------------------------------------------
-
diff --git a/testautomation/writer/optional/includes/fields/w_fields1.inc b/testautomation/writer/optional/includes/fields/w_fields1.inc
deleted file mode 100644
index c6caf2c5fade..000000000000
--- a/testautomation/writer/optional/includes/fields/w_fields1.inc
+++ /dev/null
@@ -1,394 +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 : helge.delfs@oracle.com
-'*
-'* short description : Fields general test
-'*
-'\***********************************************************************
-
-sub w_fields1
-
-    Call tInsertFieldsDate
-    Call tInsertFieldsTime
-    Call tInsertFieldsPageNumber
-    Call tInsertFieldsPageCount
-    Call tInsertFieldsSubject
-    Call tInsertFieldsTitle
-    Call tInsertFieldsAuthor
-
-end sub
-
-'-----------------------------------------------------------------
-
-testcase tInsertFieldsDate
-
-    Dim sDate as String
-    sDate  = Date
-
-    printlog "Insert / Fields / Date"
-    '/// <b> Default should be mm/dd/yy </b>
-
-    Call hNewDocument
-
-    '/// Insert / Fields / Date , the 1st date is fixed
-    InsertFieldsDate
-
-    '/// Return
-    Call wTypeKeys "<Return>"
-
-    '/// Insert / Fields / Date
-    InsertFieldsDate
-
-    Call wTypeKeys "<Home>"
-
-    '/// Set 2nd date only to be date , not fixed
-    '/// In 2nd date , Edit / Fields , select date in 'select'
-    '/// Select second format in 'Format'
-    EditFields
-    Kontext "FeldbefehlBearbeitenDokument"
-    Auswahl.Select 2
-    Zahlenformat.Select 2  'Should be the same as the value we get with 'Time'.
-    '/// Close the dialog
-    FeldbefehlBearbeitenDokument.OK
-
-    '/// Set first date to the right format, but leave as unfixed
-    '/// In 1nd date , Edit / Fields , select second format in 'Format'
-    Call wTypeKeys "<MOD1 Home>"
-
-    EditFields
-    Kontext "FeldbefehlBearbeitenDokument"
-    Zahlenformat.Select 2  'Should be the same as the value we get with 'Time'.
-    FeldbefehlBearbeitenDokument.OK
-
-    '/// Check if the date is correct
-    Call wTypeKeys "<MOD1 Home>"
-    Call wTypeKeys "<Shift Right>"
-    EditCopy
-    if GetClipboard <> sDate then
-        Warnlog "Fixed date is wrong ! Hope you don't run this case in the midnight"
-    end if
-
-    Call wTypeKeys "<Down><Home>"
-    Call wTypeKeys "<Shift Right>"
-    EditCopy
-    if GetClipboard <> sDate then
-        Warnlog "Date is wrong ! Hope you don't run this case in the midnight"
-    end if
-
-    Call hCloseDocument
-
-endcase
-
-'-----------------------------------------------------------------
-
-testcase tInsertFieldsTime
-
-    Dim sTime  as String
-    Dim sTime1 as String
-    Dim sTime2 as String
-    Dim sTemp  as String
-    
-    printlog "Insert / Fields / Time"
-    '/// <b> Default could be hh/mm/ss pm  or simply  hh/mm/ss , depending on the system the test is running on.</b>
-    
-    Call hNewDocument
-    sTime = Time
-    
-    '/// Insert / Fields / Time , the 1st time is fixed
-    InsertFieldsTime
-    
-    '/// Return
-    Call wTypeKeys "<Return>"
-    
-    '/// Insert / Fields / Time
-    InsertFieldsTime
-    
-    Call wTypeKeys "<Home>"
-    
-    '/// Set 2nd time only to be time , not fixed
-    '/// In 2nd time , Edit / Fields , select Time in 'select'
-    EditFields
-    Kontext "FeldbefehlBearbeitenDokument"
-    Auswahl.Select 2
-    FeldbefehlBearbeitenDokument.OK
-    
-    '/// Check if the time is correct
-    Call wTypeKeys "<MOD1 Home>"
-    Call wTypeKeys "<Shift Right>"
-    EditCopy
-    sTime1 = GetClipboard
-    if NOT Len(sTime1) > 7 then Warnlog "Fixed time-format is wrong !"
-    
-    Call wTypeKeys "<Down><Home>"
-    Call wTypeKeys "<Shift Right>"
-    EditCopy
-    sTime2 = GetClipboard
-    if NOT Len(sTime2) > 7 then Warnlog "Time-format is wrong !"
-    
-    printlog "Stop for a while ..."
-
-    '/// Stop for  a while , check if the time is still correct
-    Sleep 2
-    ' update fields
-    Call wTypeKeys "<F9>"
-    ' read field content
-    Call wTypeKeys "<MOD1 Home>"
-    Call wTypeKeys "<Shift Right>"
-    EditCopy
-    if GetClipboard <> sTime1 then Warnlog "Fixed time is wrong !"
-
-    '/// Stop for  a while , check if the time is still correct
-    Sleep 2
-    ' update fields
-    Call wTypeKeys "<F9>"
-    ' read field content
-    Call wTypeKeys "<MOD1 Home>"
-    Call wTypeKeys "<Down><Home>"
-    Call wTypeKeys "<Shift Right>"
-    EditCopy
-    if GetClipboard = sTime2  then Warnlog "Time is wrong !"
-    
-    Call hCloseDocument
-
-endcase
-
-'-----------------------------------------------------------------
-
-testcase tInsertFieldsPageNumber
-
-  Dim sPage1 , sPage2 as String
-
-  sPage1 = "1" : sPage2 = "2"
-
-  printlog "Insert / Fields / Page Number"
-
-  Call hNewDocument
-
-  '/// In 1st page , Insert / Fields / Page Number
-   InsertFieldsPageNumbers
-
-  '/// Insert a page break
-   InsertManualBreak
-   Sleep 2
-   kontext "UmbruchEinfuegen"
-     Seitenumbruch.check
-   UmbruchEinfuegen.OK
-
-  '/// In 2nd page , Insert / Fields / Page Number
-   InsertFieldsPageNumbers
-
-   Call wTypeKeys "<MOD1 Home>"
-
-  '/// Check if the page number is correct
-   Call wTypeKeys "<Shift Right>"
-   if fGetFieldContent( ) <> sPage1 then
-       QAErrorLog "#i31214# The 1st page number isn't correct ! should be: '" + sPage1 + "', but was: '" + GetClipboard + "'."
-   end if
-
-   Call wTypeKeys "<MOD1 End>"
-   Call wTypeKeys "<Shift Left>"
-   EditCopy
-   if GetClipboard <> sPage2 then
-       Warnlog "The 2nd page number isn't correct !"
-   end if
-
- Call hCloseDocument
-
-endcase
-
-'-----------------------------------------------------------------
-
-testcase tInsertFieldsPageCount
-
-  Dim sPage1 , sPage2  as  String
-
-  sPage1 = "1" : sPage2 = "2"
-
-  printlog "Insert / Fields / Page Count"
-
-  Call hNewDocument
-
-  '/// In 1st page , Insert / Fields / Page Count
-   InsertFieldsPageCount
-
-   Call wTypeKeys "<MOD1 Home>"
-
-  '/// Check if the 1st page count is correct
-   Call wTypeKeys "<Shift Right>"
-   EditCopy
-   if GetClipboard <> sPage1 then
-       Warnlog "1-The 1st page count isn't correct !"
-   end if
-   Call wTypeKeys "<End>"
-
-  '/// Insert a page break
-   InsertManualBreak
-   Sleep 2
-   kontext "UmbruchEinfuegen"
-     Seitenumbruch.check
-   UmbruchEinfuegen.OK
-
-  '/// In 2nd page , Insert / Fields / Page Count
-   InsertFieldsPageCount
-
-   Call wTypeKeys "<MOD1 Home>"
-
-  '/// Check if the page count is correct
-   Call wTypeKeys "<Shift Right>"
-   'EditCopy
-   if fGetFieldContent( ) <> sPage2 then
-       Warnlog "2-The 1st page count isn't correct"
-   end if
-
-   Call wTypeKeys "<MOD1 End>"
-   Call wTypeKeys "<Shift Left>"
-   EditCopy
-   if GetClipboard <> sPage2 then
-       Warnlog "The 2nd page count isn't correct !"
-   end if
-
- Call hCloseDocument
-
-endcase
-
-'-----------------------------------------------------------------
-
-testcase tInsertFieldsSubject
-
-  Dim sSubject  as  String
-  sSubject = "This is a Subject"
-
-  printlog "Insert / Fields / Subject"
-
-  Call hNewDocument
-
-  '/// File / Properties / Description , input some
-  '/// + text in Subject
-   Call fFileProperties("TabBeschreibung")
-     Thema.Settext sSubject
-   TabBeschreibung.OK
-
-  '/// Insert / Fields / Subject
-   InsertFieldsSubject
-
-  '/// Check if the subject is correct
-   Call wTypeKeys "<Shift Left>"
-   EditCopy
-   if GetClipboard <> sSubject then
-       Warnlog "Subject isn't correct !  should be: '" + sSubject + "', but was: '" + GetClipboard + "'."
-   end if
-
- Call hCloseDocument
-
-endcase
-
-'-----------------------------------------------------------------
-
-testcase tInsertFieldsTitle
-
-  Dim sTitle  as  String
-
-  sTitle = "This is a Title"
-
-  printlog "Insert / Fields / Title"
-
-  Call hNewDocument
-
-  '/// File / Properties / Description , input some
-  '/// + text in Title
-   Call fFileProperties("TabBeschreibung")
-     Titel.Settext sTitle
-   TabBeschreibung.OK
-
-  '/// Insert / Fields / Title
-   InsertFieldsTitle
-
-  '/// Check if the title is correct
-   Call wTypeKeys "<Shift Left>"
-   EditCopy
-   if GetClipboard <> sTitle then
-       Warnlog "Title isn't correct ! should be: '" + sTitle + "', but was: '" + GetClipboard + "'."
-   end if
-
- Call hCloseDocument
-
-endcase
-
-'-----------------------------------------------------------------
-
-testcase tInsertFieldsAuthor
-
-  Dim sFirstName  , sLastName  as String
-  Dim sFirstName1 , sLastName1 as String
-
-  sFirstName1 = "Test1" : sLastName1 = "Test2"
-
-  printlog "Insert / Fields / Author"
-
-  Call hNewDocument
-
-  '/// Change author to author :Test2 Test1
-   ToolsOptions
-   Call hToolsOptions("STAROFFICE","USERDATA")
-     sFirstName = VorName.GetText
-     sLastName  = ZuName.GetText
-     VorName.SetText sFirstName1
-     ZuName.SetText  sLastName1
-     Kontext "ExtrasOptionenDlg"
-   ExtrasOptionenDlg.OK
-
-  '/// File / Properties / General , check "Apply user
-  '/// + data" , click "delete" button
-   Call fFileProperties("TabDokument")
-     BenutzerdatenVerwenden.Check
-     Sleep 1
-     Loeschen.Click
-     Sleep 1
-   TabDokument.OK
-
-  '/// Insert / Fields / Author
-   InsertFieldsAuthor
-
-  '/// Check if the title is correct
-   Call wTypeKeys "<Shift Left>"
-   EditCopy
-   if GetClipboard <> (sFirstName1 + " " + sLastName1) then
-       Warnlog "Author isn't correct ! should be: '" + (sFirstName1 + " " + sLastName1) + "', but was: '" + GetClipboard + "'."
-   end if
-
-  'Recover author to default
-   ToolsOptions
-   Call hToolsOptions("STAROFFICE","USERDATA")
-     VorName.SetText sFirstName
-     ZuName.SetText  sLastName
-     Kontext "ExtrasOptionenDlg"
-   ExtrasOptionenDlg.OK
-
- Call hCloseDocument
-
-endcase
diff --git a/testautomation/writer/optional/includes/fields/w_fields2.inc b/testautomation/writer/optional/includes/fields/w_fields2.inc
deleted file mode 100644
index 4ac611f39aa6..000000000000
--- a/testautomation/writer/optional/includes/fields/w_fields2.inc
+++ /dev/null
@@ -1,1035 +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 : helge.delfs@oracle.com
-'*
-'* short description : Fields general test
-'*
-'\***********************************************************************
-
-sub w_fields2
-
-    Call tDialogNonModal
-    Call tDocumentAuthor
-    Call tDocumentAuthorFixed
-    Call tDocumentChapter
-    Call tDocumentDate
-    Call tDocumentFilename
-    Call tDocumentPage
-    Call tDocumentSender
-    Call tDocumentSenderFixed
-    Call tDocumentStatistics
-    Call tDocumentTemplate
-    Call tDocumentTime
-
-end sub
-
-'-----------------------------------------------------------------
-
-testcase tDialogNonModal
-
-  Dim sTest as String
-
-  sTest = "This is a Test"
-
-  printlog "NON modal"
- '/// <b> NON modal </b>
-
-  Call hNewDocument
-
-  '/// Insert / Fields / Other / Document , test if
-  '/// + the dialog is NON modal
-   Call fInsertFieldsOther("TabDokumentFeldbefehle")
-       try
-           Call wTypeKeys sTest
-       catch
-           Warnlog "Something is wrong in dialog document!"
-       endcatch
-   Kontext "TabDokumentFeldbefehle"
-   TabDokumentFeldbefehle.Close
-
-   Call wTypeKeys "<Shift Home>"
-   EditCopy
-   if GetClipboard <> sTest then
-       Warnlog "The text in document isn't corrrect!"
-   end if
-
- Call hCloseDocument
-
-endcase
-
-'-----------------------------------------------------------------
-
-testcase tDocumentAuthor
-    if iSprache <> 1 then
-        QaErrorLog "Currently no any other language than English. Aborting."
-        exit sub
-    end if
-
-  Dim sFirstName  as String
-  Dim sLastName   as String
-  Dim sFirstName1 as String
-  Dim sLastName1  as String
-  Dim sFirstName2 as String
-  Dim sLastName2  as String
-  Dim sInitial1   as String
-  Dim sInitial2   as String
-
-  sFirstName1 = "ABC" : sLastName1 = "DEF"
-  sFirstName2 = "XYZ" : sLastName2 = "OPQ"
-  sInitial1   = "AD"  : sInitial2  = "XO"
-
-  printlog "Insert/Fields/Other/Document / Author "
- '/// <b> Insert/Fields/Other/Document / Author </b>
-
-  Call hNewDocument
-
-  '/// Change author to author1 :ABC DEF
-   ToolsOptions
-   Call hToolsOptions("STAROFFICE","USERDATA")
-     sFirstName = VorName.GetText
-     sLastName  = ZuName.GetText
-     Kuerzel.SetText ""
-     VorName.SetText sFirstName1
-     ZuName.SetText  sLastName1
-     Kontext "ExtrasOptionenDlg"
-   ExtrasOptionenDlg.OK
-
-  '/// Insert/Fields/Other/Document / Author (Name, Initial)
-   Call fInsertFieldsOther("TabDokumentFeldbefehle")
-     Feldtyp.Select fGetType("Author")
-     Sleep 1
-     Auswahl.Select 1
-     Sleep 1
-     Einfuegen.Click
-     sleep 1
-     Call wTypeKeys "<Return>"
-     Kontext "TabDokumentFeldbefehle"
-     Auswahl.Select 2
-     Sleep 1
-     Einfuegen.Click
-   TabDokumentFeldbefehle.Close
-
-  '/// Check if the name is inserted correctly
-   Call wTypeKeys "<MOD1 Home><Shift End>"
-   EditCopy
-   if GetClipboard <> (sFirstName1 + " " + sLastName1) then
-       Warnlog "Should get " & sFirstName1 & " " & sLastName1 & " but get " & GetClipboard
-   end if
-
-  '/// Check if the Initial is inserted correctly
-   Call wTypeKeys "<Down>"
-   Call wTypeKeys "<End><Shift Home>"
-   EditCopy
-   if GetClipboard <> sInitial1 then
-       Warnlog "Should get " & sInitial1 & " but get " & GetClipboard
-   end if
-
-  '/// Change author to author1 :XYZ OPQ
-   ToolsOptions
-   Call hToolsOptions("STAROFFICE","USERDATA")
-     VorName.SetText sFirstName2
-     ZuName.SetText  sLastName2
-     Kontext "ExtrasOptionenDlg"
-   ExtrasOptionenDlg.OK
-   Sleep 2
-
-  '/// Press F9
-   Call wTypeKeys "<F9>"
-   Sleep 3
-
-  '/// Check if the name is changed
-   Call wTypeKeys "<MOD1 Home><Shift End>"
-   EditCopy
-   if GetClipboard <> (sFirstName2 + " " + sLastName2) then
-       Warnlog "Should get " & sFirstName2 & " " & sLastName2 & " but get " & GetClipboard
-   end if
-
-  '/// Check if the Initial is changed
-   Call wTypeKeys "<Down><End><Shift Home>"
-   EditCopy
-   if GetClipboard <> sInitial2 then
-       Warnlog "Should get " & sInitial2 & " but get " & GetClipboard
-   end if
-
-  'Change author to default
-   ToolsOptions
-   Call hToolsOptions("STAROFFICE","USERDATA")
-     VorName.SetText sFirstName
-     ZuName.SetText  sLastName
-     Kontext "ExtrasOptionenDlg"
-   ExtrasOptionenDlg.OK
-
- Call hCloseDocument
-
-endcase
-
-'-----------------------------------------------------------------
-
-testcase tDocumentAuthorFixed
-    if iSprache <> 1 then
-        QaErrorLog "Currently no any other language than English. Aborting."
-        exit sub
-    end if
-
-  Dim sFirstName  as String
-  Dim sLastName   as String
-  Dim sFirstName1 as String
-  Dim sLastName1  as String
-  Dim sFirstName2 as String
-  Dim sLastName2  as String
-  Dim sInitial1   as String
-
-  sFirstName1 = "ABC" : sLastName1 = "DEF"
-  sFirstName2 = "XYZ" : sLastName2 = "OPQ"
-  sInitial1   = "AD"
-
-  printlog "Insert/Fields/Other/Document / Author - Fixed"
- '/// <b> Insert/Fields/Other/Document / Author - Fixed</b>
-
-  Call hNewDocument
-
-  '/// Change author to author1 :ABC DEF
-   ToolsOptions
-   Call hToolsOptions("STAROFFICE","USERDATA")
-     sFirstName = VorName.GetText
-     sLastName  = ZuName.GetText
-     Kuerzel.SetText ""
-     VorName.SetText sFirstName1
-     ZuName.SetText  sLastName1
-     Kontext "ExtrasOptionenDlg"
-   ExtrasOptionenDlg.OK
-
-  '/// Insert/Fields/Other/Document / Author (Name, Initial)
-  '/// + check 'Fixed content'
-   Call fInsertFieldsOther("TabDokumentFeldbefehle")
-     Feldtyp.Select fGetType("Author")
-     Sleep 1
-     Auswahl.Select 1
-     Sleep 1
-     InhaltFix.Check
-     Einfuegen.Click
-     sleep 1
-     Call wTypeKeys "<Return>"
-     Kontext "TabDokumentFeldbefehle"
-     Auswahl.Select 2
-     Sleep 1
-     InhaltFix.Check
-     Einfuegen.Click
-   TabDokumentFeldbefehle.Close
-
-  '/// Check if the name is inserted correctly
-   Call wTypeKeys "<MOD1 Home><Shift End>"
-   EditCopy
-   if GetClipboard <> (sFirstName1 + " " + sLastName1) then
-       Warnlog "Should get " & sFirstName1 & " " & sLastName1 & " but get " & GetClipboard
-   end if
-
-  '/// Check if the Initial is inserted correctly
-   Call wTypeKeys "<Down>"
-   Call wTypeKeys "<End><Shift Home>"
-   EditCopy
-   if GetClipboard <> sInitial1 then
-       Warnlog "Should get " & sInitial1 & " but get " & GetClipboard
-   end if
-
-  '/// Change author to author1 :XYZ OPQ
-   ToolsOptions
-   Call hToolsOptions("STAROFFICE","USERDATA")
-     VorName.SetText sFirstName2
-     ZuName.SetText  sLastName2
-     Kontext "ExtrasOptionenDlg"
-   ExtrasOptionenDlg.OK
-   Sleep 2
-
-  '/// Press F9
-   Call wTypeKeys "<F9>"
-   Sleep 3
-
-  '/// Check if the name is changed
-   Call wTypeKeys "<MOD1 Home><Shift End>"
-   EditCopy
-   if GetClipboard <> (sFirstName1 + " " + sLastName1) then
-       Warnlog "Still should get " & sFirstName1 & " " & sLastName1 & " but get " & GetClipboard
-   end if
-
-  '/// Check if the Initial is changed
-   Call wTypeKeys "<Down><End><Shift Home>"
-   EditCopy
-   if GetClipboard <> sInitial1 then
-       Warnlog "Still should get " & sInitial1 & " but get " & GetClipboard
-   end if
-
-  'Change author to default
-   ToolsOptions
-   Call hToolsOptions("STAROFFICE","USERDATA")
-     VorName.SetText sFirstName
-     ZuName.SetText  sLastName
-     Kontext "ExtrasOptionenDlg"
-   ExtrasOptionenDlg.OK
-
- Call hCloseDocument
-
-endcase
-
-'-----------------------------------------------------------------
-
-testcase tDocumentChapter
-
-  Dim sTestFile  as String
-  Dim sChapter() as String
-  Dim i          as Integer
-
-  sTestFile = Convertpath (gTesttoolpath + "writer\optional\input\fields\chapterTest.sxw")
-
-  sChapter  = Array( _
-                    "My House"             , _
-                    "Before2After"         , _
-                    "Before2AfterMy House" , _
-                    "2"                    , _
-                   )
-
-  printlog "Insert/Fields/Other/Document / Chapter"
- '/// <b> Insert/Fields/Other/Document / Chapter </b>
-
-  Call hNewDocument
-
-  '/// Open test file chapterTest.sxw
-   hFileOpenLocally( sTestFile )
-
-
-   Call wTypeKeys "<MOD1 End><Return>"
-
-  '/// Insert/Fields/Other/Document / Chapter
-  '/// Insert Chapter name, Chapter number,
-  '/// Chapter number and name , Chapter number without separator
-  '/// Check if the insertion is correct
-   Call fInsertFieldsOther("TabDokumentFeldbefehle")
-     Feldtyp.Select fGetType("Chapter")
-     for i = 0 to UBound(sChapter)
-         Kontext "TabDokumentFeldbefehle"
-         Formatliste.Select i+1
-         Sleep 1
-         Einfuegen.Click
-         sleep 1
-         Call wTypeKeys "<F9>"
-         Sleep 2
-         Call wTypeKeys "<Shift Home>"
-         Sleep 1
-         if fGetFieldContent() <> sChapter(i) then
-             QaErrorLog i &"#94997# Should get " & sChapter(i) & " but get " & fGetFieldContent()
-         end if
-         Call wTypeKeys "<Delete>"
-     next i
-     Kontext "TabDokumentFeldbefehle"
-   TabDokumentFeldbefehle.Close
-
- Call hCloseDocument
-
-endcase
-
-'-----------------------------------------------------------------
-
-testcase tDocumentDate
-
-    Dim sDate as String
-
-    printlog "Insert/Fields/Other/Document / Date"
-    '/// <b> Insert/Fields/Other/Document / Date </b>
-
-    Call hNewDocument
-
-    '/// Insert/Fields/Other/Document / Date
-    '/// Check if the insertion is correct
-    Call fInsertFieldsOther("TabDokumentFeldbefehle")
-    Feldtyp.Select fGetType("Date")
-    Auswahl.Select 1
-    Einfuegen.Click
-    Kontext "TabDokumentFeldbefehle"
-    TabDokumentFeldbefehle.Close
-
-    Call wTypeKeys "<Shift Left>"
-    EditCopy
-    Sleep 1
-    if GetClipboard = "" then
-        Warnlog "Field returns an empty string"
-    end if
-
-    Call hCloseDocument
-
-endcase
-
-'-----------------------------------------------------------------
-
-testcase tDocumentFilename
-
-    if ( bAsianLan ) then
-        QaErrorLog "No testing with Asian language. Aborting."
-        goto endsub
-    end if
-
-    Dim  sTestFile     as String
-    Dim  sFilename(4)  as String
-    Dim  i             as Integer
-
-    sTestFile = convertpath( gTesttoolPath & "writer\optional\input\fields\pageTest.sxw" )
-
-    sFilename(0) = "pageTest.sxw"
-    sFilename(1) = "pageTest"
-    sFilename(2) = hGetWorkPath()
-    sFilename(3) = hFileGetLocalPath( sTestFile )
-
-    printlog "Insert/Fields/Other/Document / File name"
-
-    Call hNewDocument
-
-    '/// Open test file pageTest.sxw
-    hFileOpenLocally( sTestFile )
-
-    Call wTypeKeys "<MOD1 Home>"
-    Call wTypeKeys "<End><Return>"
-
-    printlog "Insert/Fields/Other/Document / File name"
-    printlog "Insert File name, File name without extension , Path , Path/File name"
-    printlog "Check if the insertion is correct"
-    Call fInsertFieldsOther("TabDokumentFeldbefehle")
-    Feldtyp.Select fGetType("File name")
-    for i = 0 to 3
-        Kontext "TabDokumentFeldbefehle"
-        Formatliste.Select i+1
-        Sleep 1
-        Einfuegen.Click
-        sleep 1
-        Call wTypeKeys "<F9>"
-        Sleep 2
-        Call wTypeKeys "<Shift LEFT>"  'HOME
-        Sleep 1
-        if fGetFieldContent() <> sFilename(i) then
-                Warnlog i &" - Should get " & sFilename(i) & " but get " & fGetFieldContent()
-        end if
-        Call wTypeKeys "<Delete>"
-    next i
-    Kontext "TabDokumentFeldbefehle"
-    TabDokumentFeldbefehle.Close
-
-    Call hCloseDocument
-
-endcase
-
-'-----------------------------------------------------------------
-
-testcase tDocumentPage
-
-  Dim sTestFile as String
-  Dim sPage()   as String
-  Dim i         as Integer
-
-  sPage = Array( _
-                 "2"         , _
-                 "1"         , _
-                 "3"         , _
-                )
-
-  sTestFile = Convertpath (gTesttoolpath + "writer\optional\input\fields\pageTest.sxw")
-
-  printlog "Insert/Fields/Other/Document / Page"
- '/// <b> Insert/Fields/Other/Document / Page </b>
-
-  Call hNewDocument
-
-  '/// Open test file pageTest.sxw which includes 3 pages
-   hFileOpenLocally( sTestFile )
-
-
-  '/// Go to the 2nd page
-   Call wTypeKeys "<MOD1 Home>"
-   Call fFindWord ("Sec")
-   Call wTypeKeys "<End><Return>"
-
-  '/// Insert/Fields/Other/Document / Page
-  '/// Insert Page numbers, Privious page , Next page
-   Call fInsertFieldsOther("TabDokumentFeldbefehle")
-     Feldtyp.Select fGetType("Page")
-     for i = 0 to UBound(sPage)
-         Kontext "TabDokumentFeldbefehle"
-         Auswahl.Select i+1
-         Sleep 1
-         Einfuegen.Click
-         sleep 1
-         Call wTypeKeys "<F9>"
-         Sleep 2
-         Call wTypeKeys "<Shift Home>"
-         Sleep 1
-         EditCopy
-         if GetClipboard <> sPage(i) then
-             Warnlog i &" - Should get " & sPage(i) & " but get " & GetClipboard
-         end if
-         Call wTypeKeys "<Delete>"
-     next i
-     Kontext "TabDokumentFeldbefehle"
-   TabDokumentFeldbefehle.Close
-
- Call hCloseDocument
-
-endcase
-
-'-----------------------------------------------------------------
-
-testcase tDocumentSender
-    if iSprache <> 1 then
-        QaErrorLog "Currently no testing with other languages than English. (ID's are not the same) Aborting."
-        exit sub
-    end if
-
-  Dim aUserData(14) as String
-  Dim aUserData1() as String
-  Dim aUserData2() as String
-
-  Dim i as Integer
-
-  aUserData1 = Array( _
-                      "Com1"       , _
-                      "ABC"        , _
-                      "DEF"        , _
-                      "AD"         , _
-                      "Str1"       , _
-                      "Country1"   , _
-                      "123"        , _
-                      "City1"      , _
-                      "Title1"     , _
-                      "Posi1"      , _
-                      "123"        , _
-                      "465"        , _
-                      "789"        , _
-                      "AD@a.a"     , _
-                      "State1"     , _
-                     )
-  aUserData2 = Array( _
-                      "Com2"       , _
-                      "XYZ"        , _
-                      "OPQ"        , _
-                      "XO"         , _
-                      "Str2"       , _
-                      "Country2"   , _
-                      "321"        , _
-                      "City2"      , _
-                      "Title2"     , _
-                      "Posi2"      , _
-                      "222"        , _
-                      "654"        , _
-                      "987"        , _
-                      "XO@b.b"     , _
-                      "State2"     , _
-                     )
-
-  printlog "Insert/Fields/Other/Document / Sender"
- '/// <b> Insert/Fields/Other/Document / Sender </b>
-
-  Call hNewDocument
-
-  '/// Change user data
-   ToolsOptions
-   Call hToolsOptions("STAROFFICE","USERDATA")
-     aUserData(0) = Firma.GetText
-     aUserData(1) = VorName.GetText
-     aUserData(2) = ZuName.GetText
-     aUserData(3) = Strasse.GetText
-     aUserData(4) = City.GetText
-     aUserData(5) = State.GetText
-     aUserData(6) = Zip.GetText
-     aUserData(7) = Land.GetText
-     aUserData(8) = Titel.GetText
-     aUserData(9) = Position.GetText
-     aUserData(10) = TelPriv.GetText
-     aUserData(11) = TelGe.GetText
-     aUserData(12) = Fax.GetText
-     aUserData(13) = EMail.GetText
-
-     Kuerzel.SetText   ""
-     Firma.SetText     aUserData1(0)
-     VorName.SetText   aUserData1(1)
-     ZuName.SetText    aUserData1(2)
-     Strasse.SetText   aUserData1(4)
-     City.SetText      aUserData1(7)
-     State.SetText     aUserData1(14)
-     Zip.SetText       aUserData1(6)
-     Land.SetText      aUserData1(5)
-     Titel.SetText     aUserData1(8)
-     Position.SetText  aUserData1(9)
-     TelPriv.SetText   aUserData1(10)
-     TelGe.SetText     aUserData1(11)
-     Fax.SetText       aUserData1(12)
-     EMail.SetText     aUserData1(13)
-
-     Kontext "ExtrasOptionenDlg"
-   ExtrasOptionenDlg.OK
-
-  '/// Insert/Fields/Other/Document / Sender
-   Call fInsertFieldsOther("TabDokumentFeldbefehle")
-     Feldtyp.Select fGetType("Sender")
-     for i= 0 to UBound(aUserData1)
-         Kontext "TabDokumentFeldbefehle"
-         Auswahl.Select i+1
-         Sleep 1
-         Einfuegen.Click
-         sleep 1
-         Call wTypeKeys "<Return>"
-     next i
-     Kontext "TabDokumentFeldbefehle"
-   TabDokumentFeldbefehle.Close
-
-  '/// Check if the configuration is inserted correctly
-   Call wTypeKeys "<MOD1 Home>"
-   for i= 0 to UBound(aUserData1)
-       Call wTypeKeys "<Shift End>"
-       if fGetFieldContent() <> aUserData1(i) then
-           Warnlog "i32872 1.Should get " & aUserData1(i)& " but get " & fGetFieldContent()
-       end if
-       Call wTypeKeys "<Down><Home>"
-   next i
-
-  '/// Change author to author1 :XYZ OPQ
-   ToolsOptions
-   Call hToolsOptions("STAROFFICE","USERDATA")
-     Kuerzel.SetText   ""
-     Firma.SetText     aUserData2(0)
-     VorName.SetText   aUserData2(1)
-     ZuName.SetText    aUserData2(2)
-     Strasse.SetText   aUserData2(4)
-     City.SetText      aUserData2(7)
-     State.SetText     aUserData2(14)
-     Zip.SetText       aUserData2(6)
-     Land.SetText      aUserData2(5)
-     Titel.SetText     aUserData2(8)
-     Position.SetText  aUserData2(9)
-     TelPriv.SetText   aUserData2(10)
-     TelGe.SetText     aUserData2(11)
-     Fax.SetText       aUserData2(12)
-     EMail.SetText     aUserData2(13)
-
-     Kontext "ExtrasOptionenDlg"
-   ExtrasOptionenDlg.OK
-   Sleep 2
-
-  '/// Press F9
-   Call wTypeKeys "<F9>"
-   Sleep 3
-
-  '/// Check if the configuration is changed
-   Call wTypeKeys "<MOD1 Home>"
-   for i= 0 to UBound(aUserData1)
-       Call wTypeKeys "<Shift End>"
-       if fGetFieldContent() <> aUserData2(i) then
-           Warnlog "i32872  2.Should get " & aUserData2(i)& " but get " & fGetFieldContent()
-       end if
-       Call wTypeKeys "<Down><Home>"
-   next i
-
-  'Change author to default
-   ToolsOptions
-   Call hToolsOptions("STAROFFICE","USERDATA")
-     Firma.SetText     aUserData(0)
-     VorName.SetText   aUserData(1)
-     ZuName.SetText    aUserData(2)
-     Strasse.SetText   aUserData(3)
-     City.SetText      aUserData(4)
-     State.SetText     aUserData(5)
-     Zip.SetText       aUserData(6)
-     Land.SetText      aUserData(7)
-     Titel.SetText     aUserData(8)
-     Position.SetText  aUserData(9)
-     TelPriv.SetText   aUserData(10)
-     TelGe.SetText     aUserData(11)
-     Fax.SetText       aUserData(12)
-     EMail.SetText     aUserData(13)
-
-     Kontext "ExtrasOptionenDlg"
-   ExtrasOptionenDlg.OK
-
- Call hCloseDocument
-
-endcase
-
-'-----------------------------------------------------------------
-
-testcase tDocumentSenderFixed
-    if iSprache <> 1 then
-        QaErrorLog "Currently no testing with other languages than English. (ID's are not the same) Aborting."
-        exit sub
-    end if
-
-  Dim aUserData(16) as String
-  Dim aUserData1()  as String
-  Dim aUserData2()  as String
-
-  Dim i as Integer
-
-  aUserData1 = Array( _
-                      "Com1"       , _
-                      "ABC"        , _
-                      "DEF"        , _
-                      "AD"         , _
-                      "Str1"       , _
-                      "Country1"   , _
-                      "123"        , _
-                      "City1"      , _
-                      "Title1"     , _
-                      "Posi1"      , _
-                      "123"        , _
-                      "465"        , _
-                      "789"        , _
-                      "AD@a.a"     , _
-                      "State1"     , _
-                     )
-
-  aUserData2 = Array( _
-                      "Com2"       , _
-                      "XYZ"        , _
-                      "OPQ"        , _
-                      "XO"         , _
-                      "Str2"       , _
-                      "Country2"   , _
-                      "321"        , _
-                      "City2"      , _
-                      "Title2"     , _
-                      "Posi2"      , _
-                      "222"        , _
-                      "654"        , _
-                      "987"        , _
-                      "XO@b.b"     , _
-                      "State2"     , _
-                     )
-
-
-  printlog "Insert/Fields/Other/Document / Sender - Fixed"
- '/// <b> Insert/Fields/Other/Document / Sender - Fixed</b>
-
-  Call hNewDocument
-
-  '/// Change user data
-   ToolsOptions
-   Call hToolsOptions("STAROFFICE","USERDATA")
-     aUserData(0) = Firma.GetText
-     aUserData(1) = VorName.GetText
-     aUserData(2) = ZuName.GetText
-     aUserData(3) = Strasse.GetText
-     aUserData(4) = City.GetText
-     aUserData(5) = State.GetText
-     aUserData(6) = Zip.GetText
-     aUserData(7) = Land.GetText
-     aUserData(8) = Titel.GetText
-     aUserData(9) = Position.GetText
-     aUserData(10) = TelPriv.GetText
-     aUserData(11) = TelGe.GetText
-     aUserData(12) = Fax.GetText
-     aUserData(13) = EMail.GetText
-
-     Kuerzel.SetText   ""
-     Firma.SetText     aUserData1(0)
-     VorName.SetText   aUserData1(1)
-     ZuName.SetText    aUserData1(2)
-     Strasse.SetText   aUserData1(4)
-     City.SetText      aUserData1(7)
-     State.SetText     aUserData1(14)
-     Zip.SetText       aUserData1(6)
-     Land.SetText      aUserData1(5)
-     Titel.SetText     aUserData1(8)
-     Position.SetText  aUserData1(9)
-     TelPriv.SetText   aUserData1(10)
-     TelGe.SetText     aUserData1(11)
-     Fax.SetText       aUserData1(12)
-     EMail.SetText     aUserData1(13)
-
-     Kontext "ExtrasOptionenDlg"
-   ExtrasOptionenDlg.OK
-
-  '/// Insert/Fields/Other/Document / Sender , check 'Fixed content'
-   Call fInsertFieldsOther("TabDokumentFeldbefehle")
-     Feldtyp.Select fGetType("Sender")
-     for i= 0 to UBound(aUserData1)
-         Kontext "TabDokumentFeldbefehle"
-         Auswahl.Select i+1
-         Sleep 1
-         InhaltFix.Check
-         Einfuegen.Click
-         sleep 1
-         Call wTypeKeys "<Return>"
-     next i
-     Kontext "TabDokumentFeldbefehle"
-   TabDokumentFeldbefehle.Close
-
-  '/// Check if the configuration is inserted correctly
-   Call wTypeKeys "<MOD1 Home>"
-   for i= 0 to UBound(aUserData1)
-       Call wTypeKeys "<Shift End>"
-       if fGetFieldContent() <> aUserData1(i) then
-           Warnlog "i32872  1.Should get " & aUserData1(i)& " but get " & fGetFieldContent()
-       end if
-       Call wTypeKeys "<Down><Home>"
-   next i
-
-  '/// Change author to author1 :XYZ OPQ
-   ToolsOptions
-   Call hToolsOptions("STAROFFICE","USERDATA")
-     Kuerzel.SetText   ""
-     Firma.SetText     aUserData2(0)
-     VorName.SetText   aUserData2(1)
-     ZuName.SetText    aUserData2(2)
-     Strasse.SetText   aUserData2(4)
-     City.SetText      aUserData2(7)
-     State.SetText     aUserData2(14)
-     Zip.SetText       aUserData2(6)
-     Land.SetText      aUserData2(5)
-     Titel.SetText     aUserData2(8)
-     Position.SetText  aUserData2(9)
-     TelPriv.SetText   aUserData2(10)
-     TelGe.SetText     aUserData2(11)
-     Fax.SetText       aUserData2(12)
-     EMail.SetText     aUserData2(13)
-
-     Kontext "ExtrasOptionenDlg"
-   ExtrasOptionenDlg.OK
-   Sleep 2
-
-  '/// Press F9
-   Call wTypeKeys "<F9>"
-   Sleep 3
-
-  '/// Check if the configuration is changed
-   Call wTypeKeys "<MOD1 Home>"
-   for i= 0 to UBound(aUserData1)
-       Call wTypeKeys "<Shift End>"
-       if fGetFieldContent() <> aUserData1(i) then
-           Warnlog "i32872  2.Should get " & aUserData1(i)& " but get " & fGetFieldContent()
-       end if
-       Call wTypeKeys "<Down><Home>"
-   next i
-
-  'Change author to default
-   ToolsOptions
-   Call hToolsOptions("STAROFFICE","USERDATA")
-     Firma.SetText     aUserData(0)
-     VorName.SetText   aUserData(1)
-     ZuName.SetText    aUserData(2)
-     Strasse.SetText   aUserData(3)
-     City.SetText      aUserData(4)
-     State.SetText     aUserData(5)
-     Zip.SetText       aUserData(6)
-     Land.SetText      aUserData(7)
-     Titel.SetText     aUserData(8)
-     Position.SetText  aUserData(9)
-     TelPriv.SetText   aUserData(10)
-     TelGe.SetText     aUserData(11)
-     Fax.SetText       aUserData(12)
-     EMail.SetText     aUserData(13)
-
-     Kontext "ExtrasOptionenDlg"
-   ExtrasOptionenDlg.OK
-
- Call hCloseDocument
-
-endcase
-
-'-----------------------------------------------------------------
-
-testcase tDocumentStatistics
-
-  Dim sTestFile     as String
-  Dim sStatistics() as String
-  Dim sType as string
-  Dim i             as Integer
-
-  sStatistics = Array( "2", "2", "3", "13", "2", "2", "1" )
-  sTestFile= Convertpath (gTesttoolpath + "writer\optional\input\fields\statisticsTest.sxw")
-
-  printlog "Insert/Fields/Other/Document / Statistics"
- '/// <b> Insert/Fields/Other/Document / Statistics </b>
-
-  '/// Open test file statisticsTest.sxw which includes
-  '/// 2 tables , 2 pictures , 22 paragraph , 1 object ,
-  '/// 2 words , 12 characters and 2 pages
-   hFileOpenLocally( sTestFile )
-
-   Call wTypeKeys "<MOD1 Home><Down>"
-
-  '/// Insert/Fields/Other/Document / Statistics
-  '/// Insert Pages, Paragraphs , Words , Characters , Tables, Graphics , Objects.
-  '/// Check if the insertion is correct
-   Call fInsertFieldsOther("TabDokumentFeldbefehle")
-     Feldtyp.Select fGetType("Statistics")
-     sType = Auswahl.GetSelText
-     for i = 0 to UBound(sStatistics)
-         Kontext "TabDokumentFeldbefehle"
-         Auswahl.Select i+1
-         Sleep 1
-         Einfuegen.Click
-         sleep 1
-         Call wTypeKeys "<F9>"
-         Sleep 2
-         Call wTypeKeys "<Shift Home>"
-         Sleep 1
-         EditCopy
-         if GetClipboard <> sStatistics(i) then
-             Warnlog "- " & sType & ": Should get " & sStatistics(i) & " but get " & GetClipboard
-         end if
-         Call wTypeKeys "<Delete>"
-     next i
-     Kontext "TabDokumentFeldbefehle"
-   TabDokumentFeldbefehle.Close
-
- Call hCloseDocument
-
-endcase
-
-'-----------------------------------------------------------------
-
-testcase tDocumentTemplate
-
-    Dim sTestFile     as String
-    Dim sDirectory    as String
-    Dim oDirectory    as String
-    Dim sLanguage     as String
-    Dim sFormat()     as String
-    Dim sResult(6)    as String
-    Dim i             as Integer
-
-    sLanguage    = fGetDirLanguage()
-    sTestFile = convertpath( gTesttoolpath + "writer\optional\input\fields\diploma.ott" )
-
-    sResult(0)   = fGetCategory()
-    sResult(1)   = "diploma.ott"
-    sResult(2)   = "diploma"
-    sResult(3)   = convertpath( gOfficePath & "user/work" )
-    sResult(4)   = hGetWorkFile( sResult( 1 ) )
-    sResult(5)   = fGetStyle()
-
-    printlog "Insert/Fields/Other/Document / Template"
-    '/// <b> Insert/Fields/Other/Document / Template </b>
-
-    '/// Open test file diploma.ott
-    hFileOpenLocally( sTestFile )
-
-    Call wTypeKeys "<MOD1 Home>"
-
-    '/// Insert/Fields/Other/Document / Template
-    '/// Insert Category , File name , File name without extension ,
-    '/// + Path , Path/File name , Style
-    '/// Check if the insertion is correct
-    Call fInsertFieldsOther("TabDokumentFeldbefehle")
-    Feldtyp.Select fGetType("Templates")
-    for i = 1 to Formatliste.GetItemCount
-        Kontext "TabDokumentFeldbefehle"
-        Formatliste.Select i
-        Sleep 1
-        Einfuegen.Click
-        sleep 1
-        Call wTypeKeys "<F9>"
-        Sleep 2
-        Call wTypeKeys "<Shift Left>"
-        Sleep 1
-        EditCopy
-        if GetClipboard <> sResult(i-1) then
-            select case i-1
-                case 0
-                    Warnlog "Field 'Templates->Category' is empty"
-                case else
-                    Warnlog " - Should get " & sResult(i-1) & " but get " & GetClipboard
-            end select
-        end if
-        Call wTypeKeys "<Delete>"
-    next i
-    Kontext "TabDokumentFeldbefehle"
-    TabDokumentFeldbefehle.Close
-
-    hFileCloseAll()
-endcase
-
-'-----------------------------------------------------------------
-
-testcase tDocumentTime
-
-    Dim sTime1 as String
-    Dim sTime2 as String
-
-  printlog "Insert/Fields/Other/Document / Time"
- '/// <b> Insert/Fields/Other/Document / Time </b>
-
-  Call hNewDocument
-
-  '/// Insert/Fields/Other/Document / Time
-  '/// Insert a fixed time and a time .
-  '/// Check if the insertion is correct
-   Call fInsertFieldsOther("TabDokumentFeldbefehle")
-     Feldtyp.Select fGetType("Time")
-     Auswahl.Select 1  'Time (Fixed)
-     Sleep 1
-     Einfuegen.Click
-     sleep 1
-     Call wTypeKeys "<Return>"
-
-     Kontext "TabDokumentFeldbefehle"
-     Auswahl.Select 1  'Time
-     Sleep 1
-     Einfuegen.Click
-     sleep 1
-     Kontext "TabDokumentFeldbefehle"
-   TabDokumentFeldbefehle.Close
-
-   Call wTypeKeys "<MOD1 Home>"
-   Call wTypeKeys "<Shift End>"
-   EditCopy
-   sTime1 = GetClipboard
-
-   Call wTypeKeys "<Down><Home>"
-   Call wTypeKeys "<Shift End>"
-   EditCopy
-   sTime2 = GetClipboard
-
-   Sleep 5
-   Call wTypeKeys "<F9>"
-
-   'Check fixed time
-   Call wTypeKeys "<MOD1 Home>"
-   Call wTypeKeys "<Shift End>"
-   EditCopy
-   if sTime1 <> GetClipboard then
-       Warnlog "Time should NOT change !"
-   end if
-
-   'Check time
-   Call wTypeKeys "<Down><Home>"
-   Call wTypeKeys "<Shift End>"
-   EditCopy
-   if sTime2 <> GetClipboard then
-       Warnlog "Time should change !"
-   end if
-
- Call hCloseDocument
-
-endcase
-
-'-----------------------------------------------------------------
diff --git a/testautomation/writer/optional/includes/fields/w_fields3.inc b/testautomation/writer/optional/includes/fields/w_fields3.inc
deleted file mode 100644
index c2fe3d5d27f6..000000000000
--- a/testautomation/writer/optional/includes/fields/w_fields3.inc
+++ /dev/null
@@ -1,993 +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 : helge.delfs@oracle.com
-'*
-'* short description : Fields - References Test
-'*
-'\***********************************************************************
-
-sub w_fields3
-
-    Call tCrossReference
-    Call tSetReferenceNoSelection
-    Call tSetReferenceTextSelection
-    Call tInsertReferencePage
-    Call tInsertReferenceChapter
-    Call tInsertReferenceReference
-    Call tInsertReferenceAboveBelow
-    Call tInsertReferenceAsPageStyle
-    Call tInsertFootnote
-    Call tInsertEndnote
-    Call tInsertCaptionAbove
-    Call tInsertCaptionBelow
-    Call tInsertBookmarkPage
-    Call tInsertBookmarkChapter
-    Call tInsertBookmarkReference
-    Call tInsertBookmarkAboveBelow
-    Call tInsertBookmarkAsPageStyle
-
-end sub
-
-'-----------------------------------------------------------------
-
-testcase tCrossReference
-
-  printlog "Insert/Cross-reference"
- '/// <b> Insert/Cross-reference </b>
-
- '/// Open a new document
-  Call hNewDocument
-
-  '/// Insert/Cross-reference
-   InsertReferenceField
-   Sleep 2
-   Kontext "TabReferenzen"
-   if TabReferenzen.Exists then
-       TabReferenzen.Close
-   else
-       Warnlog "Tabpage References should be as the actived tabpage!"
-   end if
-
- '/// Close the document
-  Call hCloseDocument
-
-endcase
-
-'-----------------------------------------------------------------
-
-testcase tSetReferenceNoSelection
-
-  Dim sReference as String
-  Dim sTestFile  as String
-
-  sReference = "myTest"
-  sTestFile  = Convertpath (gTesttoolpath + "writer\optional\input\fields\pageTest.sxw")
-
-  printlog "Set Reference - Cursor at any position"
- '/// <b> Set Reference - Cursor at any position </b>
-
-  Call hNewDocument
-
-  '/// Open test file pageTest.sxw
-   hFileOpenLocally( sTestFile )
-   
-
-  '/// Set curson to the 2nd page
-   Call wTypeKeys "<MOD1 Home>"
-   Call fFindWord ("Sec")
-   Call wTypeKeys "<End><Return>"
-
-  '/// Insert/Cross-reference , choose "Set Reference"
-   InsertReferenceField
-   Kontext "TabReferenzen"
-     Feldtyp.Select 1
-     Sleep 1
-     Namefeld.SetText  sReference
-     Einfuegen.Click
-   TabReferenzen.Close
-
-   InsertReferenceField
-   Kontext "TabReferenzen"
-     Feldtyp.Select 2
-     Sleep 1
-     if Namefeld.GetText <> sReference then
-         Warnlog "Reference can't be set correctly!"
-     end if
-   TabReferenzen.Close
-
- '/// Close the document
-  Call hCloseDocument
-
-endcase
-
-'-----------------------------------------------------------------
-
-testcase tSetReferenceTextSelection
-
-  Dim sReference as String
-
-  sReference = "myTest"
-
-  printlog "Set Reference - Select some text"
- '/// <b> Set Reference - Select some text </b>
-
- '/// Open a new document
-  Call hNewDocument
-
-  '/// Input some text and select them
-   Call wTypeKeys "ABCD"
-   Call wTypeKeys "<Shift Home>"
-
-  '/// Insert/Cross-reference , choose "Set Reference"
-   InsertReferenceField
-   Kontext "TabReferenzen"
-     Feldtyp.Select 1
-     Sleep 1
-     Namefeld.SetText  sReference
-     Einfuegen.Click
-   TabReferenzen.Close
-
-   InsertReferenceField
-   Kontext "TabReferenzen"
-     Feldtyp.Select 2
-     Sleep 1
-     if Namefeld.GetText <> sReference then
-         Warnlog "Reference can't be set correctly!"
-     end if
-   TabReferenzen.Close
-
- '/// Close the document
-  Call hCloseDocument
-
-endcase
-
-'-----------------------------------------------------------------
-
-testcase tInsertReferencePage
-
-  Dim sReference as String
-  Dim sTestFile  as String
-
-  sReference = "myTest"
-  sTestFile  = Convertpath (gTesttoolpath + "writer\optional\input\fields\pageTest.sxw")
-
-  printlog "Insert Reference - Page"
- '/// <b> Insert Reference - Page </b>
-
-  Call hNewDocument
-
-  '/// Open test file pageTest.sxw
-   hFileOpenLocally( sTestFile )
-   
-
-  '/// Set curson to the 2nd page
-   Call wTypeKeys "<MOD1 Home>"
-   Call fFindWord ("Sec")
-   Call wTypeKeys "<End><Return>"
-
-  '/// Insert/Cross-reference , choose "Set Reference"
-   InsertReferenceField
-   Kontext "TabReferenzen"
-     Feldtyp.Select 1
-     Sleep 1
-     Namefeld.SetText  sReference
-     Einfuegen.Click
-   TabReferenzen.Close
-
-   Call wTypeKeys "<Return>" , 2
-
-  '/// Insert/Cross-reference , choose "Insert Reference" and "Page"
-   InsertReferenceField
-   Kontext "TabReferenzen"
-     Feldtyp.Select 2
-     Sleep 1
-     Auswahl.Select  sReference
-     Sleep 1
-     Formatliste.Select 1
-     Sleep 1
-     Einfuegen.Click
-   TabReferenzen.Close
-
-   Call wTypeKeys "<F9>"
-   Sleep 2
-   Call wTypeKeys "<Shift Home>"
-
-   if fGetFieldContent( ) <> "2" then
-       Warnlog "Should get 2 , but get " & fGetFieldContent()
-   end if
-
- '/// Close the document
-  Call hCloseDocument
-
-endcase
-
-'-----------------------------------------------------------------
-
-testcase tInsertReferenceChapter
-
-  Dim sReference as String
-  Dim sTestFile  as String
-
-  sReference = "myTest"
-  sTestFile  = Convertpath (gTesttoolpath + "writer\optional\input\fields\chapterTest.sxw")
-
-  printlog "Insert Reference - Chapter"
- '/// <b> Insert Reference - Chapter </b>
-
-  Call hNewDocument
-
-  '/// Open test file chapterTest.sxw
-   hFileOpenLocally( sTestFile )
-   
-
-  '/// Set curson to the 2nd line
-   Call wTypeKeys "<MOD1 Home>"
-   Call wTypeKeys "<Down><Home>"
-
-  '/// Insert/Cross-reference , choose "Set Reference"
-   InsertReferenceField
-   Kontext "TabReferenzen"
-     Feldtyp.Select 1
-     Sleep 1
-     Namefeld.SetText  sReference
-     Einfuegen.Click
-   TabReferenzen.Close
-
-   Call wTypeKeys "<End>"
-   Call wTypeKeys "<Return>" , 2
-
-  '/// Insert/Cross-reference , choose "Insert Reference" and "Chapter"
-   InsertReferenceField
-   Kontext "TabReferenzen"
-     Feldtyp.Select 2
-     Sleep 1
-     Auswahl.Select  sReference
-     Sleep 1
-     Formatliste.Select 2
-     Sleep 1
-     Einfuegen.Click
-   TabReferenzen.Close
-
-   Call wTypeKeys "<F9>"
-   Sleep 2
-   Call wTypeKeys "<Shift Home>"
-
-   if fGetFieldContent( ) <> "2" then
-       Warnlog "Should get 2 , but get " & fGetFieldContent()
-   end if
-
- '/// Close the document
-  Call hCloseDocument
-
-endcase
-
-'-----------------------------------------------------------------
-
-testcase tInsertReferenceReference
-
-  Dim sReference     as String
-  Dim sReferenceName as String
-
-  sReference     = "est !"
-  sReferenceName = "myTest"
-
-  printlog "Insert Reference - Reference"
- '/// <b> Insert Reference - Reference</b>
-
- '/// Open a new document
-  Call hNewDocument
-
-  '/// Input some thing in the document and press return
-   Call wTypeKeys "This is a test !"
-   Call wTypeKeys "<Return>"
-
-  '/// Select some text
-   Call wTypeKeys "<Up><End>"
-   Call wTypeKeys "<Shift Left>" , 5
-
-  '/// Insert/Cross-reference , choose "Set Reference"
-   InsertReferenceField
-   Kontext "TabReferenzen"
-     Feldtyp.Select 1
-     Sleep 1
-     Namefeld.SetText  sReferenceName
-     Einfuegen.Click
-   TabReferenzen.Close
-
-  '/// set focus to 2nd line
-   Call wTypeKeys "<Down>"
-
-  '/// Insert/Cross-reference , choose "Insert Reference" and "Reference"
-   InsertReferenceField
-   Kontext "TabReferenzen"
-     Feldtyp.Select 2
-     Sleep 1
-     Auswahl.Select  sReferenceName
-     Sleep 1
-     Formatliste.Select 3
-     Sleep 1
-     Einfuegen.Click
-   TabReferenzen.Close
-
-   Call wTypeKeys "<F9>"
-   Sleep 2
-   Call wTypeKeys "<Shift Home>"
-
-   if fGetFieldContent() <> sReference then
-       Warnlog "Should get " & sReference & " but get " & fGetFieldContent()
-   end if
-
- '/// Close the document
-  Call hCloseDocument
-
-endcase
-
-'-----------------------------------------------------------------
-
-testcase tInsertReferenceAboveBelow
-
-  Dim sReference as String
-  Dim sAbove     as String
-  Dim sBelow     as String
-
-    sReference = "myTest"
-    Select Case iSystemSprache
-        Case 01 : sAbove = "above"  : sBelow = "below"
-        Case 35 : sAbove = "sur"    : sBelow = "sous"
-        Case 39 : sAbove = "sopra"  : sBelow = "sotto"
-        Case 49 : sAbove = "oben"   : sBelow = "unten"
-        Case 46 : sAbove = "ovan"   : sBelow = "under"
-        Case 55 : sAbove = "arriba" : sBelow = "abajo"
-    End Select
-
-  printlog "Insert Reference - Above/Below"
- '/// <b> Insert Reference - Above/Below</b>
-
- '/// Open a new document
-  Call hNewDocument
-
-  '/// Press Return first , then input some text in
-  '/// + the document , press return again
-   Call wTypeKeys "<Return>"
-   Call wTypeKeys "This is a test !"
-   Call wTypeKeys "<Return>"
-
-  '/// Insert a reference before "This is ..."
-   Call wTypeKeys "<Up><Home>"
-   InsertReferenceField
-   Kontext "TabReferenzen"
-     Feldtyp.Select 1
-     Sleep 1
-     Namefeld.SetText  sReference
-     Einfuegen.Click
-   TabReferenzen.Close
-
-  '/// set focus to 3rd line
-   Call wTypeKeys "<Down>"
-
-  '/// Insert/Cross-reference , choose "Insert Reference" and "above/below"
-   InsertReferenceField
-   Kontext "TabReferenzen"
-     Feldtyp.Select 2
-     Sleep 1
-     Auswahl.Select  sReference
-     Sleep 1
-     Formatliste.Select 4
-     Sleep 1
-     Einfuegen.Click
-   TabReferenzen.Close
-
-   Call wTypeKeys "<F9>"
-   Sleep 2
-   Call wTypeKeys "<Shift Home>"
-
-   if fGetFieldContent() <> sAbove then 'Check systemlanguage / Office-Language - if other than 01 then ignore/QaErrorLog!
-       Warnlog "Should get " & sAbove & " but get " & fGetFieldContent()
-   end if
-
-  '/// set focus to 1st line
-   Call wTypeKeys "<MOD1 Home>"
-
-  '/// Insert/Cross-reference , choose "Insert Reference" and "above/below"
-   InsertReferenceField
-   Kontext "TabReferenzen"
-     Feldtyp.Select 2
-     Sleep 1
-     Auswahl.Select  sReference
-     Sleep 1
-     Formatliste.Select 4
-     Sleep 1
-     Einfuegen.Click
-   TabReferenzen.Close
-
-   Call wTypeKeys "<F9>"
-   Sleep 2
-   Call wTypeKeys "<Shift Home>"
-
-   if fGetFieldContent() <> sBelow then
-       Warnlog "Should get " & sBelow & " but get " & fGetFieldContent()
-   end if
-
- '/// Close the document
-  Call hCloseDocument
-
-endcase
-
-'-----------------------------------------------------------------
-
-testcase tInsertReferenceAsPageStyle
-
-  Dim sReference as String
-  Dim sTestSytle as String
-
-  sReference = "myTest"
-  sTestSytle = "A"
-
-  printlog "Insert Reference - As Page Style"
- '/// <b> Insert Reference - As Page Style </b>
-
- '/// Open a new document
-  Call hNewDocument
-
-  '/// Fomrat/page / page , set Format as "A , B , C ..."
-   Call fFormatPageWriter("TabSeite")
-     Numerierung.Select 1
-   TabSeite.OK
-
-  '/// Input some thing in the document , press return
-   Call wTypeKeys "This is a test !"
-   Call wTypeKeys "<Return>"
-
-  '/// Insert a reference before "This is ..."
-   Call wTypeKeys "<Up><Home>"
-   InsertReferenceField
-   Kontext "TabReferenzen"
-     Feldtyp.Select 1
-     Sleep 1
-     Namefeld.SetText  sReference
-     Einfuegen.Click
-   TabReferenzen.Close
-
-  '/// set focus to 2nd line
-   Call wTypeKeys "<Down>"
-
-  '/// Insert/Cross-reference , choose "Insert Reference" and "As Page Style"
-   InsertReferenceField
-   Kontext "TabReferenzen"
-     Feldtyp.Select 2
-     Sleep 1
-     Auswahl.Select  sReference
-     Sleep 1
-     Formatliste.Select 5
-     Sleep 1
-     Einfuegen.Click
-   TabReferenzen.Close
-
-   Call wTypeKeys "<F9>"
-   Sleep 2
-   Call wTypeKeys "<Shift Home>"
-
-   if fGetFieldContent() <> sTestSytle then
-       Warnlog "Should get " & sTestSytle & " but get " & fGetFieldContent()
-   end if
-
- '/// Close the document
-  Call hCloseDocument
-
-endcase
-
-'-----------------------------------------------------------------
-
-testcase tInsertFootnote
-
-  Dim sFootnote as String
-
-  sFootnote = "Test"
-
-  printlog "Insert Footnote"
- '/// <b> Insert Footnote </b>
-
- '/// Open a new document
-  Call hNewDocument
-
-  '/// Insert/Footnote
-   InsertFootnote
-     Kontext "FussnoteEinfuegen"
-    'check footnote
-     Fussnote.Check
-     Zeichen.Check
-     ZeichenText.SetText sFootnote
-   FussnoteEinfuegen.OK
-
-  '/// Check if footnote is inserted correctly
-   Call wTypeKeys "<MOD1 Home>"
-   Call wTypeKeys "<Shift End>"
-   if fGetFieldContent() <> sFootnote then
-       Warnlog "Should get " & sFootnote & " but get " & fGetFieldContent()
-   end if
-
-  Call hCloseDocument
-
-endcase
-
-'-----------------------------------------------------------------
-
-testcase tInsertEndnote
-
-  Dim sEndnote as String
-
-  sEndnote = "Test"
-
-  printlog "Insert Endnote"
- '/// <b> Insert Endnote </b>
-
- '/// Open a new document
-  Call hNewDocument
-
-  '/// Insert Endnote
-   InsertFootnote
-     Kontext "FussnoteEinfuegen"
-    'check endnote
-     Endnote.Check
-     Zeichen.Check
-     ZeichenText.SetText sEndnote
-   FussnoteEinfuegen.OK
-
-  '/// Check if footnote is inserted correctly
-   Call wTypeKeys "<MOD1 Home>"
-   Call wTypeKeys "<Shift End>"
-   if fGetFieldContent() <> sEndnote then
-       Warnlog "Should get " & sEndnote & " but get " & fGetFieldContent()
-   end if
-
-  Call hCloseDocument
-
-endcase
-
-'-----------------------------------------------------------------
-
-testcase tInsertCaptionAbove
-
-  Dim sCategory  as String
-  Dim sCaption   as String
-  Dim sSeparator as String
-
-  sCategory = "A" : sCaption = "B" : sSeparator = "*"
-
-  printlog "Insert Caption - Above"
- '/// <b> Insert Caption - Above </b>
-
- '/// Open a new document
-  Call hNewDocument
-
-  '/// Insert a frame
-   Call wInsertFrame
-
-  '/// Insert / Caption , set Category as A , set Caption as B , Set Seperator as *
-   InsertCaption
-   Kontext "Beschriftung"
-     Kategorie.SetText  sCategory
-     Separator.SetText  sSeparator
-     BeschriftungsText.SetText sCaption
-     Position.Select 1
-   Beschriftung.OK
-   Sleep 1
-
-  '/// Check if the insertion is correct
-   Call wTypeKeys "<Return>"
-   Call wTypeKeys "<Up><Home><Shift End>"
-   EditCopy
-
-   if fGetFieldContent() <> sCategory & " 1" & sSeparator & sCaption  then
-       Warnlog "Should get " & sCategory & " 1" & sSeparator & sCaption & " but get " & fGetFieldContent()
-   end if
-
-   Call wTypeKeys "<Down>"
-   Call wTypeKeys "<Home><Shift End>"
-   try
-       EditCopy
-       Warnlog "Should NOT get anything !"
-   catch
-   endcatch
-
-  Call hCloseDocument
-
-endcase
-
-'-----------------------------------------------------------------
-
-testcase tInsertCaptionBelow
-
-  Dim sCategory  as String
-  Dim sCaption   as String
-  Dim sSeparator as String
-
-  sCategory = "A" : sCaption = "B" : sSeparator = "*"
-
-  printlog "Insert Caption - Below"
- '/// <b> Insert Caption - Below </b>
-
- '/// Open a new document
-  Call hNewDocument
-
-  '/// Insert a frame
-   Call wInsertFrame
-
-  '/// Insert / Caption , set Category as A , set Caption as B,
-  '/// + select position as Above
-   InsertCaption
-   Kontext "Beschriftung"
-     Kategorie.SetText  sCategory
-     Separator.SetText  sSeparator
-     BeschriftungsText.SetText sCaption
-     Position.Select 2
-   Beschriftung.OK
-   Sleep 1
-
-  '/// Check if the insertion is correct
-   Call wTypeKeys "<Return>"
-   Call wTypeKeys "<Up><Home><Shift End>"
-   try
-       EditCopy
-       Warnlog "Should NOT get anything !"
-   catch
-   endcatch
-
-   Call wTypeKeys "<Down>"
-   Call wTypeKeys "<Home><Shift End>"
-   EditCopy
-   if fGetFieldContent() <> sCategory & " 1" & sSeparator & sCaption  then
-       Warnlog "Should get " & sCategory & " 1" & sSeparator & sCaption & " but get " & fGetFieldContent()
-   end if
-
-  Call hCloseDocument
-
-endcase
-
-'-----------------------------------------------------------------
-
-testcase tInsertBookmarkPage
-
-  Dim sBookmark as String
-  Dim sTestFile as String
-
-  sBookmark = "myTest"
-  sTestFile = Convertpath (gTesttoolpath + "writer\optional\input\fields\pageTest.sxw")
-
-  printlog "Insert Bookmark - Page"
- '/// <b> Insert Bookmark - Page </b>
-
-  Call hNewDocument
-
-  '/// Open test file pageTest.sxw
-   hFileOpenLocally( sTestFile )
-   
-
-  '/// Set curson to the 2nd page
-   Call wTypeKeys "<MOD1 Home>"
-   Call fFindWord ("Sec")
-   Call wTypeKeys "<Home>"
-
-  '/// Insert a bookmark
-   InsertBookmark
-     Kontext "TextmarkeEinfuegen"
-     Textmarken.SetText sBookmark
-   TextmarkeEinfuegen.OK
-
-   Call wTypeKeys "<End>"
-   Call wTypeKeys "<Return>" , 2
-
-  '/// Insert/Cross-reference , choose "Bookmarks" and "Page"
-   InsertReferenceField
-   Kontext "TabReferenzen"
-     Feldtyp.Select 5
-     Sleep 1
-     Auswahl.Select sBookmark
-     Sleep 1
-     Formatliste.Select 1
-     Sleep 1
-     Einfuegen.Click
-   TabReferenzen.Close
-
-   Call wTypeKeys "<F9>"
-   Sleep 2
-   Call wTypeKeys "<Shift Home>"
-
-   if fGetFieldContent( ) <> "2" then
-       Warnlog "Should get 2 , but get " & fGetFieldContent()
-   end if
-
- '/// Close the document
-  Call hCloseDocument
-
-endcase
-
-'-----------------------------------------------------------------
-
-testcase tInsertBookmarkChapter
-
-  Dim sBookmark as String
-  Dim sTestFile as String
-
-  sBookmark = "myTest"
-  sTestFile = Convertpath (gTesttoolpath + "writer\optional\input\fields\chapterTest.sxw")
-
-  printlog "Insert Bookmark - Chapter"
- '/// <b> Insert Bookmark - Chapter </b>
-
-  Call hNewDocument
-
-  '/// Open test file chapterTest.sxw
-   hFileOpenLocally( sTestFile )
-   
-
-  '/// Set curson to the 2nd line
-   Call wTypeKeys "<MOD1 Home>"
-   Call wTypeKeys "<Down><Home>"
-
-  '/// Insert a bookmark
-   InsertBookmark
-     Kontext "TextmarkeEinfuegen"
-     Textmarken.SetText sBookmark
-   TextmarkeEinfuegen.OK
-
-   Call wTypeKeys "<End>"
-   Call wTypeKeys "<Return>" , 2
-
-  '/// Insert/Cross-reference , choose "Bookmarks" and "Chapter"
-   InsertReferenceField
-   Kontext "TabReferenzen"
-     Feldtyp.Select 5
-     Sleep 1
-     Auswahl.Select sBookmark
-     Sleep 1
-     Formatliste.Select 2
-     Sleep 1
-     Einfuegen.Click
-   TabReferenzen.Close
-
-   Call wTypeKeys "<F9>"
-   Sleep 2
-   Call wTypeKeys "<Shift Home>"
-
-   if fGetFieldContent( ) <> "2" then
-       Warnlog "Should get 2 , but get " & fGetFieldContent()
-   end if
-
- '/// Close the document
-  Call hCloseDocument
-
-endcase
-
-'-----------------------------------------------------------------
-
-testcase tInsertBookmarkReference
-
-  Dim sReference as String
-  Dim sBookmark  as String
-
-  sReference  = "est !"
-  sBookmark   = "myTest"
-
-  printlog "Insert Bookmkar - Reference"
- '/// <b> Insert Bookmkar - Reference</b>
-
- '/// Open a new document
-  Call hNewDocument
-
-  '/// Input some thing in the document and press return
-   Call wTypeKeys "This is a test !"
-   Call wTypeKeys "<Return>"
-
-  '/// Select some text
-   Call wTypeKeys "<Up><End>"
-   Call wTypeKeys "<Shift Left>" , 5
-
-  '/// Insert a bookmark
-   InsertBookmark
-     Kontext "TextmarkeEinfuegen"
-     Textmarken.SetText sBookmark
-   TextmarkeEinfuegen.OK
-
-  '/// set focus to 2nd line
-   Call wTypeKeys "<Down>"
-
-  '/// Insert/Cross-reference , choose "Bookmark" and "Reference"
-   InsertReferenceField
-   Kontext "TabReferenzen"
-     Feldtyp.Select 5
-     Sleep 1
-     Auswahl.Select sBookmark
-     Sleep 1
-     Formatliste.Select 3
-     Sleep 1
-     Einfuegen.Click
-   TabReferenzen.Close
-
-   Call wTypeKeys "<F9>"
-   Sleep 2
-   Call wTypeKeys "<Shift Home>"
-
-   if fGetFieldContent() <> sReference then
-       Warnlog "Should get " & sReference & " but get " & fGetFieldContent()
-   end if
-
- '/// Close the document
-  Call hCloseDocument
-
-endcase
-
-'-----------------------------------------------------------------
-
-testcase tInsertBookmarkAboveBelow
-
-  Dim sBookmark as String
-  Dim sAbove    as String
-  Dim sBelow    as String
-
-  sBookmark = "myTest"
-    Select Case iSystemSprache
-        Case 01 : sAbove = "above"  : sBelow = "below"
-        Case 35 : sAbove = "sur"    : sBelow = "sous"
-        Case 39 : sAbove = "sopra"  : sBelow = "sotto"
-        Case 49 : sAbove = "oben"   : sBelow = "unten"
-        Case 46 : sAbove = "ovan"   : sBelow = "under"
-        Case 55 : sAbove = "arriba" : sBelow = "abajo"
-    End Select
-
-  printlog "Insert Bookmark - Above/Below"
- '/// <b> Insert Bookmark - Above/Below</b>
-
- '/// Open a new document
-  Call hNewDocument
-
-  '/// Press Return first , then input some thing in
-  '/// + the document , press return again
-   Call wTypeKeys "<Return>"
-   Call wTypeKeys "This is a test !"
-   Call wTypeKeys "<Return>"
-
-  '/// Insert a Bookmark before "This is ..."
-   Call wTypeKeys "<Up><Home>"
-   InsertBookmark
-     Kontext "TextmarkeEinfuegen"
-     Textmarken.SetText sBookmark
-   TextmarkeEinfuegen.OK
-
-  '/// set focus to 3rd line
-   Call wTypeKeys "<Down>"
-
-  '/// Insert/Cross-reference , choose "Bookmarks" and "above/below"
-   InsertReferenceField
-   Kontext "TabReferenzen"
-     Feldtyp.Select 5
-     Sleep 1
-     Auswahl.Select sBookmark
-     Sleep 1
-     Formatliste.Select 4
-     Sleep 1
-     Einfuegen.Click
-   TabReferenzen.Close
-
-   Call wTypeKeys "<F9>"
-   Sleep 2
-   Call wTypeKeys "<Shift Home>"
-
-   if fGetFieldContent() <> sAbove then
-       Warnlog "Should get " & sAbove & " but get " & fGetFieldContent()
-   end if
-
-  '/// set focus to 1st line
-   Call wTypeKeys "<MOD1 Home>"
-
-  '/// Insert/Cross-reference , choose "Bookmark" and "above/below"
-   InsertReferenceField
-   Kontext "TabReferenzen"
-     Feldtyp.Select 5
-     Sleep 1
-     Auswahl.Select sBookmark
-     Sleep 1
-     Formatliste.Select 4
-     Sleep 1
-     Einfuegen.Click
-   TabReferenzen.Close
-
-   Call wTypeKeys "<F9>"
-   Sleep 2
-   Call wTypeKeys "<Shift Home>"
-
-   if fGetFieldContent() <> sBelow then
-       Warnlog "Should get " & sBelow & " but get " & fGetFieldContent()
-   end if
-
- '/// Close the document
-  Call hCloseDocument
-
-endcase
-
-'-----------------------------------------------------------------
-
-testcase tInsertBookmarkAsPageStyle
-
-  Dim sBookmark  as String
-  Dim sTestSytle as String
-
-  sBookmark  = "myTest"
-  sTestSytle = "A"
-
-  printlog "Insert Bookmark - As Page Style"
- '/// <b> Insert Bookmark - As Page Style </b>
-
- '/// Open a new document
-  Call hNewDocument
-
-  '/// Fomrat/page / page , set Format as "A , B , C ..."
-   Call fFormatPageWriter("TabSeite")
-     Numerierung.Select 1
-   TabSeite.OK
-
-  '/// Input some thing in the document , press return
-   Call wTypeKeys "This is a test !"
-   Call wTypeKeys "<Return>"
-
-  '/// Insert a Bookmark before "This is ..."
-   Call wTypeKeys "<Up><Home>"
-   InsertBookmark
-     Kontext "TextmarkeEinfuegen"
-     Textmarken.SetText sBookmark
-   TextmarkeEinfuegen.OK
-
-  '/// set focus to 2nd line
-   Call wTypeKeys "<Down>"
-
-  '/// Insert/Cross-reference , choose "Bookmark" and "As Page Style"
-   InsertReferenceField
-   Kontext "TabReferenzen"
-     Feldtyp.Select 5
-     Sleep 1
-     Auswahl.Select sBookmark
-     Sleep 1
-     Formatliste.Select 5
-     Sleep 1
-     Einfuegen.Click
-   TabReferenzen.Close
-
-   Call wTypeKeys "<F9>"
-   Sleep 2
-   Call wTypeKeys "<Shift Home>"
-
-   if fGetFieldContent() <> sTestSytle then
-       Warnlog "Should get " & sTestSytle & " but get " & fGetFieldContent()
-   end if
-
- '/// Close the document
-  Call hCloseDocument
-
-endcase
-
-'-----------------------------------------------------------------
diff --git a/testautomation/writer/optional/includes/fields/w_fields4.inc b/testautomation/writer/optional/includes/fields/w_fields4.inc
deleted file mode 100644
index 459e91da7912..000000000000
--- a/testautomation/writer/optional/includes/fields/w_fields4.inc
+++ /dev/null
@@ -1,967 +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 : helge.delfs@oracle.com
-'*
-'* short description : Doc Information Test
-'*
-'\***********************************************************************
-
-sub w_fields4
-
-    Call tDocInformationTitle
-    Call tDocInformationSubject
-    Call tDocInformationKeywords
-    Call tDocInformationDescription
-    Call tDocInformationUserDefined
-    Call tDocInformationCreated
-    Call tDocInformationModified
-    Call tDocInformationModifiedSavefile
-    Call tDocInformationPrinted
-    Call tDocInformationRevisionnumber
-    Call tDocInformationTotaleditingtime
-
-end sub
-
-'-----------------------------------------------------------------
-
-testcase tDocInformationTitle
-
-  Dim sTitle     as String
-  Dim sTestFile  as String
-  Dim sVarResult as String
-  Dim sFixResult as String
-
-  sTitle     = "Title Test"
-  sTestFile  = Convertpath (gTesttoolpath + "writer\optional\input\fields\fields_docinfos.sxw")
-  sVarResult = sTitle
-  sFixResult = "This is the title"
-
-  printlog "Doc Information - Title"
- '/// <b> Doc Information - Title </b>
-
-  Call hNewDocument
-
-  '/// Open test file fields_docinfos.sxw
-   hFileOpenLocally( sTestFile )
-   
-
-  '/// File / Properties / Description , input some
-  '/// + new text in Title
-   Call fFileProperties("TabBeschreibung")
-     Titel.Settext sTitle
-   TabBeschreibung.OK
-
-  '/// Check if the title is changed in the document
-  '/// It should be changed in Var
-  '/// It should NOT be changed in Fix
-   Call fFindWord ("Title")
-
-   Call wTypeKeys "<End><Right>"
-   Sleep 1
-   Call wTypeKeys "<Shift Right>"
-   if fGetFieldContent() <> sVarResult then
-       Warnlog "Should get " & sVarResult & " but get " & fGetFieldContent()
-   end if
-
-   Call wTypeKeys "<End><Right>"
-   Sleep 1
-   Call wTypeKeys "<Shift Right>"
-   if fGetFieldContent() <> sFixResult then
-       Warnlog "Should get " & sFixResult & " but get " & fGetFieldContent()
-   end if
-
- Call hCloseDocument
-
-endcase
-
-'-----------------------------------------------------------------
-
-testcase tDocInformationSubject
-
-  Dim sSubject   as String
-  Dim sTestFile  as String
-  Dim sVarResult as String
-  Dim sFixResult as String
-
-  sSubject   = "Subject Test"
-  sTestFile  = Convertpath (gTesttoolpath + "writer\optional\input\fields\fields_docinfos.sxw")
-  sVarResult = sSubject
-  sFixResult = "This is the subject"
-
-  printlog "Doc Information - Subject"
- '/// <b> Doc Information - Subject </b>
-
-  Call hNewDocument
-
-  '/// Open test file fields_docinfos.sxw
-   hFileOpenLocally( sTestFile )
-   
-
-  '/// File / Properties / Description , input some
-  '/// + text in Subject
-   Call fFileProperties("TabBeschreibung")
-     Thema.Settext sSubject
-   TabBeschreibung.OK
-
-  '/// Check if the Subject is changed in the document
-  '/// It should be changed in Var
-  '/// It should NOT be changed in Fix
-   Call fFindWord ("Subject")
-
-   Call wTypeKeys "<End><Right>"
-   Sleep 1
-   Call wTypeKeys "<Shift Right>"
-   if fGetFieldContent() <> sVarResult then
-       Warnlog "Should get " & sVarResult & " but get " & fGetFieldContent()
-   end if
-
-   Call wTypeKeys "<End><Right>"
-   Sleep 1
-   Call wTypeKeys "<Shift Right>"
-   if fGetFieldContent() <> sFixResult then
-       Warnlog "Should get " & sFixResult & " but get " & fGetFieldContent()
-   end if
-
- Call hCloseDocument
-
-endcase
-
-'-----------------------------------------------------------------
-
-testcase tDocInformationKeywords
-
-  Dim sKeywords  as String
-  Dim sTestFile  as String
-  Dim sVarResult as String
-  Dim sFixResult as String
-
-  sKeywords  = "Keywords Test"
-  sTestFile  = Convertpath (gTesttoolpath + "writer\optional\input\fields\fields_docinfos.sxw")
-  sVarResult = sKeywords
-  sFixResult = "This are keywords"
-
-  printlog "Doc Information - Keywords"
- '/// <b> Doc Information - Keywords </b>
-
-  Call hNewDocument
-
-  '/// Open test file fields_docinfos.sxw
-   hFileOpenLocally( sTestFile )
-   
-
-  '/// File / Properties / Description , input some
-  '/// + text in Keywords
-   Call fFileProperties("TabBeschreibung")
-     Schluesselwoerter.Settext sKeywords
-   TabBeschreibung.OK
-
-  '/// Check if the Keywords is changed in the document
-  '/// It should be changed in Var
-  '/// It should NOT be changed in Fix
-   Call fFindWord ("Keywords")
-
-   Call wTypeKeys "<End><Right>"
-   Sleep 1
-   Call wTypeKeys "<Shift Right>"
-   if fGetFieldContent() <> sVarResult then
-       Warnlog "Should get " & sVarResult & " but get " & fGetFieldContent()
-   end if
-
-   Call wTypeKeys "<End><Right>"
-   Sleep 1
-   Call wTypeKeys "<Shift Right>"
-   if fGetFieldContent() <> sFixResult then
-       Warnlog "Should get " & sFixResult & " but get " & fGetFieldContent()
-   end if
-
- Call hCloseDocument
-
-endcase
-
-'-----------------------------------------------------------------
-
-testcase tDocInformationDescription
-
-  Dim sDescription as String
-  Dim sTestFile    as String
-  Dim sVarResult   as String
-  Dim sFixResult   as String
-
-  sDescription = "Description Test"
-  sTestFile    = Convertpath (gTesttoolpath + "writer\optional\input\fields\fields_docinfos.sxw")
-  sVarResult   = sDescription
-  sFixResult   = "This is the description"
-
-  printlog "Doc Information - Description"
- '/// <b> Doc Information - Description </b>
-
-  Call hNewDocument
-
-  '/// Open test file fields_docinfos.sxw
-   hFileOpenLocally( sTestFile )
-   
-
-  '/// File / Properties / Description , input some
-  '/// + text in Description
-   Call fFileProperties("TabBeschreibung")
-     Beschreibung.Settext sDescription
-     Schluesselwoerter.Gettext  '<--This command is useless , but important ! :-)
-   TabBeschreibung.OK
-
-  '/// Check if the Description is changed in the document
-  '/// It should be changed in Var
-  '/// It should NOT be changed in Fix
-   Call fFindWord ("Description")
-
-   Call wTypeKeys "<End>"
-   Call wTypeKeys "<Down>"  , 4
-   Call wTypeKeys "<Right>" , 2
-   Sleep 1
-   Call wTypeKeys "<Shift Right>"
-   if fGetFieldContent() <> sVarResult then
-       Warnlog "Due to i31893 , should get " & sVarResult & " but get " & fGetFieldContent()
-   end if
-
-   Call wTypeKeys "<End><Right>"
-   Sleep 1
-   Call wTypeKeys "<Shift Right>"
-   if fGetFieldContent() <> sFixResult then
-       Warnlog "Should get " & sFixResult & " but get " & fGetFieldContent()
-   end if
-
- Call hCloseDocument
-
-endcase
-
-'-----------------------------------------------------------------
-
-testcase tDocInformationUserDefined
-    Warnlog "#i95523#Tabpage 'Custom properties' has no declaration"
-    goto endsub
-	Dim sTestFile as String
-	Dim sVarResult() as String
-	Dim sFixResult() as String
-	Dim i as integer
-	Dim j as Integer
-	
-	j = UBound(sVarResult)
-	sTestFile = gTesttoolpath + "writer\optional\input\fields\fields_docinfos.sxw"
-	sVarResult = Array( _
-                      "A1"     , _
-                      "B2"     , _
-                      "C3"     , _
-                      "D4"     , _
-                     )
-
-     sFixResult = Array( _
-                      "Lennon"     , _
-                      "McCartney"  , _
-                      "Harrison"   , _
-                      "Star"       , _
-                     )
-
-	printlog "Doc Information - User Defined"
-	
-	
-	Call hNewDocument
-	
-	'/// Open test file fields_docinfos.sxw
-	hFileOpenLocally( sTestFile )
-	
-	'/// File / Properties / Description , input some
-	'/// + text in Description
-	Call fFileProperties("TabDokument")
-	Info0.Settext sVarResult(0)
-	Info1.Settext sVarResult(1)
-	Info2.Settext sVarResult(2)
-	Info3.Settext sVarResult(3)
-	TabBenutzer.OK
-	
-	'/// Check if the User defined is changed in the document
-	'/// It should be changed in Var
-	'/// It should NOT be changed in Fix
-	Call fFindWord ("Info fields")
-	
-	Call wTypeKeys "<End><Right><Down><Home>"
-	Sleep 1
-	
-	for i= 0 to UBound(sVarResult)
-	Call wTypeKeys "<Shift Right>"
-	if fGetFieldContent() <> sVarResult(i) then
-	Warnlog "Should get " & sVarResult(i) & " but get " & fGetFieldContent()
-	end if
-	
-	Call wTypeKeys "<End><Right>"
-	Sleep 1
-	Call wTypeKeys "<Shift Right>"
-	if fGetFieldContent() <> sFixResult(i) then
-	Warnlog "Should get " & sFixResult(i) & " but get " & fGetFieldContent()
-	end if
-	
-	Call wTypeKeys "<End><Down><Home><Left><Home>"
-	next i
-	
-	Call hCloseDocument
-
-endcase
-
-'-----------------------------------------------------------------
-
-testcase tDocInformationCreated
-
-	Dim sFirstName    as String
-	Dim sLastName     as String
-	Dim sFirstName1   as String
-	Dim sLastName1    as String
-	Dim sVarResult(3) as String
-	Dim sFixResult(3) as String
-        dim sTestFile as string
-	Dim i as Integer
-	
-	sFirstName1 = "Test1" : sLastName1 = "Test2"
-	sTestFile   = gTesttoolpath + "writer\optional\input\fields\fields_docinfos.sxw"
-	
-	sVarResult(0) =  sFirstName1 + " " + sLastName1
-	sVarResult(1) =  fGetDate1(Date)
-	
-	sFixResult(0) =  "Éric Savary"
-	sFixResult(1) =  "07/20/2000"
-	sFixResult(2) =  "11:41:21"
-	
-	printlog "Doc Information - Created"
-	'/// <b> Doc Information - Created </b>
-	
-	Call hNewDocument
-	
-	'/// Open test file fields_docinfos.sxw
-	hFileOpenLocally( sTestFile )
-	
-	
-	Call fFindWord ("Created")
-	Call wTypeKeys "<End><Right><Down><Down><Down><Home>"
-	Sleep 1
-	Call wTypeKeys "<Shift Right>"
-	sVarResult(2)= fGetFieldContent()
-	Call wTypeKeys "<MOD1 Home>" , 3
-	
-	'/// Change author to author :Test2 Test1
-	ToolsOptions
-	Call hToolsOptions("STAROFFICE","USERDATA")
-	sFirstName = VorName.GetText
-	sLastName  = ZuName.GetText
-	VorName.SetText sFirstName1
-	ZuName.SetText  sLastName1
-	Kontext "ExtrasOptionenDlg"
-	ExtrasOptionenDlg.OK
-	
-	'/// File / Properties / General , check "Apply user
-	'/// + data" , click "delete" button
-	Call fFileProperties("TabDokument")
-	BenutzerdatenVerwenden.Check
-	Sleep 1
-	Loeschen.Click
-	Sleep 1
-	TabDokument.OK
-	
-	'/// Check if the Created field is changed in the document
-	'/// It should be changed in Var
-	'/// It should NOT be changed in Fix
-	Call fFindWord ("Created")
-	
-	Call wTypeKeys "<End><Right><Down><Home>"
-	Sleep 1
-	
-	for i = 0 to 1
-		Call wTypeKeys "<Shift Right>"
-		if fGetFieldContent() <> sVarResult(i) then
-			Warnlog "Should get " & sVarResult(i) & " but get " & fGetFieldContent()
-		end if
-	
-		Call wTypeKeys "<End><Right>"
-		Sleep 1
-		Call wTypeKeys "<Shift Right>"
-		if fGetFieldContent() <> sFixResult(i) then
-			Warnlog "Should get " & sFixResult(i) & " but get " & fGetFieldContent()
-		end if
-		Call wTypeKeys "<End><Down><Home><Left><Home>"
-	next i
-	
-	Call wTypeKeys "<Shift Right>"
-	if fGetFieldContent() = sVarResult(2) then
-		Warnlog "Should get " & sFixResult(2) & " but get " & fGetFieldContent()
-	end if
-	
-	Call wTypeKeys "<End><Right>"
-	Call wTypeKeys "<Shift Right>"
-	if fGetFieldContent() <> sFixResult(2) then
-		Warnlog "Should get " & sFixResult(2) & " but get " & fGetFieldContent()
-	end if
-	
-	'Recover author to default
-	ToolsOptions
-	Call hToolsOptions("STAROFFICE","USERDATA")
-	VorName.SetText sFirstName
-	ZuName.SetText  sLastName
-	Kontext "ExtrasOptionenDlg"
-	ExtrasOptionenDlg.OK
-	
-	Call hCloseDocument
-
-endcase
-
-'-----------------------------------------------------------------
-
-testcase tDocInformationModified
-
-	Dim sTestFile     as String
-	Dim sSaveasFile   as String
-	Dim sFirstName    as String
-	Dim sLastName     as String
-	Dim sFirstName1   as String
-	Dim sLastName1    as String
-	Dim sVarResult(3) as String
-	Dim sFixResult(3) as String
-	Dim i             as Integer
-	
-	sFirstName1 = "Test1" : sLastName1 = "Test2"
-	sTestFile   = gTesttoolpath + "writer\optional\input\fields\fields_docinfos.sxw"
-	sSaveasFile = ConvertPath (gOfficePath + "user\work\fields_docinfos1.sxw" )
-	
-	sVarResult(0) =  sFirstName1 + " " + sLastName1
-	sVarResult(1) =  fGetDate1(Date)
-	
-	sFixResult(0) =  "Éric Savary"
-	sFixResult(1) =  "08/18/2000"
-	sFixResult(2) =  "11:40:11"
-	
-	printlog "Doc Information - Modified"
-	'/// <b> Doc Information - Modified </b>
-	
-	if FileExists ( sSaveAsFile ) then app.kill ( sSaveAsFile )
-	
-	Call hNewDocument
-	
-	'/// Open test file fields_docinfos.sxw
-	hFileOpenLocally( sTestFile )
-	Call hFileSaveAsKill (sSaveAsFile)
-	
-	Call fFindWord ("Modified")
-	Call wTypeKeys "<End><Right><Down><Down><Down><Home>"
-	Sleep 1
-	Call wTypeKeys "<Shift Right>"
-	sVarResult(2)= fGetFieldContent()
-	Call wTypeKeys "<MOD1 Home>" , 3
-	
-	'/// Change author to author : Test2 Test1
-	ToolsOptions
-	Call hToolsOptions("STAROFFICE","USERDATA")
-	sFirstName = VorName.GetText
-	sLastName  = ZuName.GetText
-	VorName.SetText sFirstName1
-	ZuName.SetText  sLastName1
-	Kontext "ExtrasOptionenDlg"
-	ExtrasOptionenDlg.OK
-	
-	'/// File / Properties / General , check "Apply user
-	'/// + data" , click "delete" button
-	Call fFileProperties("TabDokument")
-	BenutzerdatenVerwenden.Check
-	Sleep 1
-	Loeschen.Click
-	Sleep 1
-	TabDokument.OK
-	
-	FileSave
-	try
-		Kontext "Active"
-		Active.Yes
-	catch
-	endcatch
-	Sleep 3
-	
-	'/// Check if the Modified field is changed in the document
-	'/// It should be changed in Var
-	'/// It should NOT be changed in Fix
-	Call fFindWord ("Modified")
-	
-	Call wTypeKeys "<End><Right><Down><Home>"
-	Sleep 1
-	
-	for i = 0 to 1
-		Call wTypeKeys "<Shift Right>"
-		if fGetFieldContent() <> sVarResult(i) then
-			Warnlog "Should get " & sVarResult(i) & " but get " & fGetFieldContent()
-		end if
-	
-		Call wTypeKeys "<End><Right>"
-		Sleep 1
-		Call wTypeKeys "<Shift Right>"
-		if fGetFieldContent() <> sFixResult(i) then
-			Warnlog "Should get " & sFixResult(i) & " but get " & fGetFieldContent()
-		end if
-		Call wTypeKeys "<End><Down><Home><Left><Home>"
-	next i
-	
-	Call wTypeKeys "<Shift Right>"
-	if fGetFieldContent() = sVarResult(2) then
-		Warnlog "Should get " & sFixResult(2) & " but get " & fGetFieldContent()
-	end if
-	
-	Call wTypeKeys "<End><Right>"
-	Call wTypeKeys "<Shift Right>"
-	if fGetFieldContent() <> sFixResult(2) then
-		Warnlog "Should get " & sFixResult(2) & " but get " & fGetFieldContent()
-	end if
-	
-	'Recover author to default
-	ToolsOptions
-	Call hToolsOptions("STAROFFICE","USERDATA")
-	VorName.SetText sFirstName
-	ZuName.SetText  sLastName
-	Kontext "ExtrasOptionenDlg"
-	ExtrasOptionenDlg.OK
-	
-	FileClose
-	Sleep 1
-	Kontext "Active"
-	if Active.Exists(2) then
-		try
-			Active.Yes
-		catch
-		endcatch
-	end if
-	
-	if FileExists ( sSaveAsFile ) then app.kill ( sSaveAsFile )
-
-endcase
-
-'-----------------------------------------------------------------
-
-testcase tDocInformationModifiedSavefile
-	QaErrorLog "#i102792# - tDocInformationModifiedSavefile outcommented due to issue."
-	goto endsub
-	
-	Dim sTestFile     as String
-	Dim sSaveasFile   as String
-	Dim sFirstName    as String
-	Dim sLastName     as String
-	Dim sFirstName1   as String
-	Dim sLastName1    as String
-	Dim sVarResult(3) as String
-	Dim sFixResult(3) as String
-	Dim i             as Integer
-	
-	sFirstName1 = "Test1" : sLastName1 = "Test2"
-	sTestFile   = gTesttoolpath + "writer\optional\input\fields\fields_docinfos.sxw"
-	sSaveasFile = ConvertPath (gOfficePath + "user\work\fields_docinfos1.sxw" )
-	
-	sVarResult(0) =  sFirstName1 + " " + sLastName1
-	sVarResult(1) =  fGetDate1(Date)
-	
-	sFixResult(0) =  "Éric Savary"
-	sFixResult(1) =  "08/18/2000"
-	sFixResult(2) =  "11:40:11"
-	
-	if FileExists ( sSaveAsFile ) then app.kill ( sSaveAsFile )
-	
-	printlog "Doc Information - Modified (save file)"
-	'/// <b> Doc Information - Modified (save file)</b>
-	
-	Call hNewDocument
-	
-	'/// Open test file fields_docinfos.sxw
-	hFileOpenLocally( sTestFile )
-	
-	Call fFindWord ("Modified")
-	Call wTypeKeys "<End><Right><Down><Down><Down><Home>"
-	Sleep 1
-	Call wTypeKeys "<Shift Right>"
-	sVarResult(2)= fGetFieldContent()
-	Call wTypeKeys "<MOD1 Home>" , 3
-	
-	'/// Change author to author : Test2 Test1
-	ToolsOptions
-	Call hToolsOptions("STAROFFICE","USERDATA")
-	sFirstName = VorName.GetText
-	sLastName  = ZuName.GetText
-	VorName.SetText sFirstName1
-	ZuName.SetText  sLastName1
-	Kontext "ExtrasOptionenDlg"
-	ExtrasOptionenDlg.OK
-	
-	'/// Save the file as another file
-	Call hFileSaveAsKill(sSaveAsFile)
-	
-	'/// Check if the Modified field is changed in the document
-	'/// It should be changed in Var
-	'/// It should NOT be changed in Fix
-	Call fFindWord ("Modified")
-	
-	Call wTypeKeys "<End><Right><Down><Home>"
-	Sleep 1
-	
-	for i = 0 to 1
-	Call wTypeKeys "<Shift Right>"
-	if fGetFieldContent() <> sVarResult(i) then
-	QAErrorlog "#i41327# Should get " & sVarResult(i) & " but get " & fGetFieldContent()
-	end if
-	
-	Call wTypeKeys "<End><Right>"
-	Sleep 1
-	Call wTypeKeys "<Shift Right>"
-	if fGetFieldContent() <> sFixResult(i) then
-	Warnlog "Should get " & sFixResult(i) & " but get " & fGetFieldContent()
-	end if
-	Call wTypeKeys "<End><Down><Home><Left><Home>"
-	next i
-	
-	Call wTypeKeys "<Shift Right>"
-	if fGetFieldContent() = sVarResult(2) then
-	QAErrorlog "#i41327# Should get " & sFixResult(2) & " but get " & fGetFieldContent()
-	end if
-	
-	Call wTypeKeys "<End><Right>"
-	Call wTypeKeys "<Shift Right>"
-	if fGetFieldContent() <> sFixResult(2) then
-	Warnlog "Should get " & sFixResult(2) & " but get " & fGetFieldContent()
-	end if
-	
-	'Recover author to default
-	ToolsOptions
-	Call hToolsOptions("STAROFFICE","USERDATA")
-	VorName.SetText sFirstName
-	ZuName.SetText  sLastName
-	Kontext "ExtrasOptionenDlg"
-	ExtrasOptionenDlg.OK
-	
-	FileClose
-	Sleep 1
-	Kontext "Active"
-	if Active.Exists(2) then
-	try
-	Active.Yes
-	catch
-	endcatch
-	end if
-	
-	if FileExists ( sSaveAsFile ) then app.kill ( sSaveAsFile )
-
-endcase
-
-'-----------------------------------------------------------------
-
-testcase tDocInformationPrinted
-
-	Dim sTestFile     as String
-	Dim sFirstName    as String
-	Dim sLastName     as String
-	Dim sFirstName1   as String
-	Dim sLastName1    as String
-	Dim sVarResult(3) as String
-	Dim sFixResult(3) as String
-	Dim i             as Integer
-	
-	sFirstName1 = "Test1" : sLastName1 = "Test2"
-	sTestFile   = gTesttoolpath + "writer\optional\input\fields\fields_docinfos.sxw"
-	sVarResult(0) =  sFirstName1 + " " + sLastName1
-	sVarResult(1) =  fGetDate1(Date)
-	
-	sFixResult(0) =  "Éric Savary"
-	sFixResult(1) =  "08/11/2004"
-	sFixResult(2) =  "11:46:06"
-	
-	printlog "Doc Information - Printed"
-	'/// <b> Doc Information - Printed </b>
-	
-	Call hNewDocument
-	
-	'/// Open test file fields_docinfos.sxw
-	hFileOpenLocally( sTestFile )
-	
-	Call fFindWord ("Last printed")
-	Call wTypeKeys "<End><Right><Down><Down><Down><Home>"
-	Call wTypeKeys "<Shift Right>"
-	Sleep 1
-	sVarResult(2)= fGetFieldContent()
-	Call wTypeKeys "<MOD1 Home>" , 3
-	
-	'/// Change author to author : Test2 Test1
-	ToolsOptions
-	Call hToolsOptions("STAROFFICE","USERDATA")
-	sFirstName = VorName.GetText
-	sLastName  = ZuName.GetText
-	VorName.SetText sFirstName1
-	ZuName.SetText  sLastName1
-	Kontext "ExtrasOptionenDlg"
-	ExtrasOptionenDlg.OK
-	
-	'/// Print file
-	FilePrint
-	Kontext "Active"
-	if Active.Exists then
-	   	if Active.GetRT = 304 then
-			Active.Ok
-			QAErrorLog "No Default-Printer! The testcase isn't tested !"
-			Kontext "Printing"
-			Sleep 1
-			Printing.Cancel
-			goto NoTest
-	   end if
-	else
-	   Kontext "Printing"
-	   Sleep 1
-	   Printing.OK
-		kontext "active"
-		if active.exists(5) then
-			QaErrorLog "Error Printing..."
-			Active.ok
-		end if
-	end if
-	
-	'/// Check if the Printed field is changed in the document
-	'/// It should be changed in Var
-	'/// It should NOT be changed in Fix
-	Call fFindWord ("Last printed")
-	
-	Call wTypeKeys "<End><Right><Down><Home>"
-	Sleep 1
-	
-	for i = 0 to 1
-	   Call wTypeKeys "<Shift Right>"
-	   if fGetFieldContent() <> sVarResult(i) then
-		   Warnlog "Should get " & sVarResult(i) & " but get " & fGetFieldContent()
-	   end if
-	
-	   Call wTypeKeys "<End><Right>"
-	   Sleep 1
-	   Call wTypeKeys "<Shift Right>"
-	   if fGetFieldContent() <> sFixResult(i) then
-		   Warnlog "Should get " & sFixResult(i) & " but get " & fGetFieldContent()
-	   end if
-	   Call wTypeKeys "<End><Down><Home><Left><Home>"
-	next i
-	
-	Call wTypeKeys "<Shift Right>"
-	if fGetFieldContent() = sVarResult(2) then
-	   Warnlog "Should NOT get " & sFixResult(2)
-	end if
-	
-	Call wTypeKeys "<End><Right>"
-	Call wTypeKeys "<Shift Right>"
-	if fGetFieldContent() <> sFixResult(2) then
-	   Warnlog "Should get " & sFixResult(2) & " but get " & fGetFieldContent()
-	end if
-	
-	'Recover author to default
-	ToolsOptions
-	Call hToolsOptions("STAROFFICE","USERDATA")
-	 VorName.SetText sFirstName
-	 ZuName.SetText  sLastName
-	 Kontext "ExtrasOptionenDlg"
-	ExtrasOptionenDlg.OK
-	NoTest:
-	Call hCloseDocument
-
-endcase
-
-'-----------------------------------------------------------------
-
-testcase tDocInformationRevisionnumber
-
-	Dim sTestFile   as String
-	Dim sSaveasFile as String
-	Dim sFirstName  as String
-	Dim sLastName   as String
-	Dim sFirstName1 as String
-	Dim sLastName1  as String
-	Dim sVarResult  as String
-	Dim sFixResult  as String
-	
-	sFirstName1 = "Test1" : sLastName1 = "Test2"
-	sVarResult  = "17"    : sFixResult = "4"
-
-	sTestFile   = gTesttoolpath + "writer\optional\input\fields\fields_docinfos.sxw"
-	sSaveasFile = ConvertPath (gOfficePath + "user\work\tDocInformationRevisionnumber.sxw" )
-	
-	if FileExists ( sSaveAsFile ) then app.kill ( sSaveAsFile )
-	
-	printlog "Doc Information - Revision number"
-	'/// <b> Doc Information - Revision number</b>
-	
-	Call hNewDocument
-	
-	'/// Open test file fields_docinfos.sxw
-	hFileOpenLocally( sTestFile )
-	
-	'/// Change author to author : Test2 Test1
-	ToolsOptions
-	Call hToolsOptions("STAROFFICE","USERDATA")
-	sFirstName = VorName.GetText
-	sLastName  = ZuName.GetText
-	VorName.SetText sFirstName1
-	ZuName.SetText  sLastName1
-	Kontext "ExtrasOptionenDlg"
-	ExtrasOptionenDlg.OK
-	
-	'/// Save the file as another file
-	Call hFileSaveAsKill(sSaveAsFile)
-	
-	'/// Press F9
-	Call wTypeKeys "<F9>"
-	
-	'/// Save the file
-	FileSave
-	try
-		Kontext "Active"
-		Active.Yes
-	catch
-	endcatch
-	Sleep 3
-	
-	'/// Check if the Revision number field is changed in the document
-	'/// It should be changed in Var
-	'/// It should NOT be changed in Fix
-	Call fFindWord ("Version")
-	
-	Call wTypeKeys "<End><Right>"
-	Sleep 1
-	
-	Call wTypeKeys "<Shift Right>"
-	if fGetFieldContent() <> sVarResult then
-		Warnlog "Should get " & sVarResult & " but get " & fGetFieldContent()
-	end if
-	
-	Call wTypeKeys "<End><Right>"
-	Sleep 1
-	Call wTypeKeys "<Shift Right>"
-	if fGetFieldContent() <> sFixResult then
-		Warnlog "Should get " & sFixResult & " but get " & fGetFieldContent()
-	end if
-	
-	'Recover author to default
-	ToolsOptions
-	Call hToolsOptions("STAROFFICE","USERDATA")
-	VorName.SetText sFirstName
-	ZuName.SetText  sLastName
-	Kontext "ExtrasOptionenDlg"
-	ExtrasOptionenDlg.OK
-	
-	FileClose
-	Sleep 1
-	Kontext "Active"
-	if Active.Exists(2) then
-		try
-			Active.Yes
-		catch
-		endcatch
-	end if
-	
-	if FileExists ( sSaveAsFile ) then app.kill ( sSaveAsFile )
-
-endcase
-
-'-----------------------------------------------------------------
-
-testcase tDocInformationTotaleditingtime
-
-	Dim sTestFile   as String
-	Dim sSaveasFile as String
-	Dim sVarResult  as String
-	Dim sFixResult  as String
-	
-	sFixResult  = "00:29:05"
-	sTestFile   = Convertpath (gTesttoolpath + "writer\optional\input\fields\fields_docinfos.sxw")
-	sSaveasFile = ConvertPath (gOfficePath + "user\work\tDocInformationRevisionnumber.sxw" )
-
-	if FileExists ( sSaveAsFile ) then app.kill ( sSaveAsFile )
-	
-	printlog "Doc Information - Tatal editing time"
-	'/// <b> Doc Information - Tatal editing time </b>
-	
-	Call hNewDocument
-	
-	'/// Open test file fields_docinfos.sxw
-	hFileOpenLocally( sTestFile )
-	
-	'/// Save the file as another file
-	Call hFileSaveAsKill(sSaveAsFile)
-	
-	'/// Press F9
-	Call wTypeKeys "<F9>"
-	
-	Call fFindWord ("Accessed")
-	Call wTypeKeys "<End><Right>"
-	Sleep 1
-	Call wTypeKeys "<Shift Right>"
-	sVarResult = fGetFieldContent()
-	Call wTypeKeys "<MOD1 Home>" , 3
-	
-	'/// Save the file
-	FileSave
-	try
-	   Kontext "Active"
-	   Active.Yes
-	catch
-	endcatch
-	Sleep 3
-	
-	'/// Check if the tatal editing time field is changed in the document
-	'/// It should be changed in Var
-	'/// It should NOT be changed in Fix
-	Call fFindWord ("Accessed")
-	
-	Call wTypeKeys "<End><Right>"
-	Sleep 1
-	
-	Call wTypeKeys "<Shift Right>"
-	if fGetFieldContent() = sVarResult then
-	   Warnlog "Should NOT get " & sVarResult
-	end if
-	
-	Call wTypeKeys "<End><Right>"
-	Sleep 1
-	Call wTypeKeys "<Shift Right>"
-	if fGetFieldContent() <> sFixResult then
-	   Warnlog "Should get " & sFixResult & " but get " & fGetFieldContent()
-	end if
-	
-	FileClose
-	Sleep 1
-	Kontext "Active"
-	if Active.Exists(2) then
-	  try
-		 Active.Yes
-	  catch
-	  endcatch
-	end if
-	
-	if FileExists ( sSaveAsFile ) then app.kill ( sSaveAsFile )
-
-endcase
-
-'-----------------------------------------------------------------
diff --git a/testautomation/writer/optional/includes/fields/w_fields5.inc b/testautomation/writer/optional/includes/fields/w_fields5.inc
deleted file mode 100644
index 6ff7f2c1701d..000000000000
--- a/testautomation/writer/optional/includes/fields/w_fields5.inc
+++ /dev/null
@@ -1,839 +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 : helge.delfs@oracle.com
-'*
-'* short description : Fields - Variables
-'*
-'\***********************************************************************
-
-sub w_fields5
-
-    Call tVariablesSetValueToText
-    Call tVariablesSetValueToNumber
-    Call tVariablesSetFormats
-    Call tVariablesShowVariable1
-    Call tVariablesShowVariable2
-    Call tVariablesInsertFormula
-    Call tVariablesNumberRange	
-    Call tVariablesInputfield
-    Call tVariablesUserfield
-    Call tVariablesDDEFieldManual
-    Call tVariablesDDEFieldAutomatic
-
-end sub
-
-'-----------------------------------------------------------------
-
-testcase tVariablesSetValueToText
-    if bAsianLan = true then
-        QaErrorLog "No testing with Asian language. Aborting."
-        exit sub
-    end if
-
-  Dim sName()   as String
-  Dim sValue    as String
-  Dim sResult() as String
-  Dim i         as Integer
-  Dim j         as Integer
-
-  sValue  = "This is a test!"
-
-  sName   = Array( _
-                   "myTest1" , _
-                   "myTest2" , _
-                   "myTest3" , _
-                   "myTest4" , _
-                   "myTest5" , _
-                   "myTest6" , _
-                  )
-  sResult = Array( _
-                   "This is a test!" , _
-                   "1"               , _
-                   "1"               , _
-                   "1" & gSeperator & "00"            , _
-                   "1"               , _
-                   "1" & gSeperator & "00"            , _
-                  )
-  j = UBound(sResult)
-
-  printlog "Set value to text"
- '/// <b> Set value to text </b>
-
-  Call hNewDocument
-
-  '/// Insert/Fields/Other/Variables / Select "set Variable" ,
-  '/// Set Name and Value(text) , then choose Text , General ,
-  '/// + -1234 , -1234.12 , -1,234 , -1,234,12 separately
-   Call fInsertFieldsOther("TabVariablen")
-     for i = 0 to j
-         Feldtyp.Select 1
-         Sleep 1
-         NameText.SetText sName(i)
-         Wert.SetText sValue
-         Zahlenformat.Select i+1
-         Einfuegen.Click
-         sleep 1
-         Call wTypeKeys "<Return>"
-         Kontext "TabVariablen"
-     next i
-     Kontext "TabVariablen"
-   TabVariablen.Close
-
-  '/// Check if the insertion is correct
-   Call wTypeKeys "<MOD1 Home>"
-
-   for i = 0 to j
-       Call wTypeKeys "<Shift Right>"
-       if fGetFieldContent() <> sResult(i) then
-           Warnlog i & "Should get " & sResult(i) & " but get " & fGetFieldContent()
-       end if
-       Call wTypeKeys "<Down><Home>"
-   next i
-
-  Call hCloseDocument
-
-endcase
-
-'-----------------------------------------------------------------
-
-testcase tVariablesSetValueToNumber
-    if bAsianLan = true then
-        QaErrorLog "No testing with Asian language. Aborting."
-        exit sub
-    end if
-
-  Dim sName()   as String
-  Dim sValue    as String
-  Dim sResult() as String
-  Dim i         as Integer
-  Dim j         as Integer
-
-  sValue  = "1234,567"
-
-  sName   = Array( _
-                   "myTest1" , _
-                   "myTest2" , _
-                   "myTest3" , _
-                   "myTest4" , _
-                   "myTest5" , _
-                   "myTest6" , _
-                  )
-  sResult = Array( _
-                   "1234,567" , _
-                   "1234,57"  , _
-                   "1235"     , _
-                   "1234,57"  , _
-                   "1.235"    , _
-                   "1.234,57" , _
-                  )
-  j = UBound(sResult)
-
-  printlog "Set value to number"
- '/// <b> Set value to number </b>
-
-  Call hNewDocument
-
-  '/// Insert/Fields/Other/Variables / Select "set Variable" ,
-  '/// Set Name and Value(number) , then choose Text , General ,
-  '/// + -1234 , -1234.12 , -1,234 , -1,234,12 separately
-   Call fInsertFieldsOther("TabVariablen")
-     for i = 0 to j
-         Feldtyp.Select 1
-         Sleep 1
-         NameText.SetText sName(i)
-         Wert.SetText sValue
-         Zahlenformat.Select i+1
-         Einfuegen.Click
-         sleep 1
-         Call wTypeKeys "<Return>"
-         Kontext "TabVariablen"
-     next i
-     Kontext "TabVariablen"
-   TabVariablen.Close
-
-  '/// Check if the insertion is correct
-   Call wTypeKeys "<MOD1 Home>"
-
-   for i = 0 to j
-       Call wTypeKeys "<Shift Right>"
-       if fGetFieldContent() <> sResult(i) then
-           Warnlog i & "Should get " & sResult(i) & " but get " & fGetFieldContent()
-       end if
-       Call wTypeKeys "<Down><Home>"
-   next i
-
-  Call hCloseDocument
-
-endcase
-
-'-----------------------------------------------------------------
-
-testcase tVariablesSetFormats
-
-  Dim sName     as String
-  Dim sValue    as String
-  Dim iFormat() as Integer
-  Dim sResult() as String
-  Dim i         as Integer
-  Dim j         as Integer
-  Dim mUnit     as String
-
-  sName   = "myTest"
-  sValue  = "1234.567"
-  
-  iFormat = Array( 8,         10          , 52         , 55       , 56)
-  sResult = Array( _
-                   "123456.70%"  , _
-                   "$1,234.57"   , _
-                   "1.23E+003"   , _
-                   "1234 55/97"  , _
-                   "TRUE"        , _
-                  )
-  j = UBound(sResult)
-
-  printlog "Set format as 'Additional formats...'"
- '/// <b> Set format as 'Additional formats...' </b>
-
-  Call hNewDocument
-  CALL GetLanguageText (01)
-  mUnit = fSetMeasurementToCM()                 ' Set measurement unit to cm
-  
-  '/// Insert/Fields/Other/Variables / Select "set Variable" ,
-  '/// Set Name and Value(number) , then choose format as 'Additional formats...'
-  '/// In the number format dialog , select 'All' in Category
-  '/// + Select some different formats ...
-   Call fInsertFieldsOther("TabVariablen")
-     Feldtyp.Select 1
-     Sleep 1
-     NameText.SetText sName
-     Wert.SetText sValue
-
-     for i = 0 to j
-         Zahlenformat.Select Zahlenformat.GetItemCount
-         Sleep 3
-         Kontext "Zahlenformat"
-           Sprache.Select fGetLanguageName(01)
-           Sleep 2
-           Kategorie.Select 1
-           Sleep 1
-           KategorieFormat.Select iFormat(i)
-           Sleep 1
-         Zahlenformat.OK
-
-         Kontext "TabVariablen"
-           Einfuegen.Click
-           Call wTypeKeys "<Shift Left>"
-           sleep 1
-           if fGetFieldContent() <> sResult(i) then
-	           Warnlog i & ": Should get " & sResult(i) & " but get " & fGetFieldContent()
-           end if
-         Kontext "TabVariablen"
-     next i
-   TabVariablen.Close
-
-  Call hCloseDocument
-
-endcase
-
-'-----------------------------------------------------------------
-
-testcase tVariablesShowVariable1
-
-  Dim sName()   as String
-  Dim sResult() as String
-  Dim i         as Integer
-  Dim j         as Integer
-
-  sName   = Array( _
-                   "myTest1" , _
-                   "myTest2" , _
-                   "myTest3" , _
-                  )
-  sResult = Array( _
-                   "1"     , _
-                   "10"    , _
-                   "100"   , _
-                  )
-  j = UBound(sResult)
-
-  printlog "Show Variable - 1"
- '/// <b> Show Variable - 2</b>
-
-  Call hNewDocument
-
-  '/// Insert/Fields/Other/Variables / Select "set Variable" ,
-  '/// Set Name and Value , then choose General , add 3 variables
-  '/// + then select Show Variable , insert 3 variables
-   Call fInsertFieldsOther("TabVariablen")
-     for i = 0 to j
-         Feldtyp.Select 1
-         Sleep 1
-         NameText.SetText sName(i)
-         Wert.SetText sResult(i)
-         Zahlenformat.Select 2
-         Einfuegen.Click
-         sleep 1
-     next i
-     for i = 0 to j
-         Call wTypeKeys "<Return>"
-         Kontext "TabVariablen"
-         Feldtyp.Select 2
-         Sleep 1
-         Auswahl.Select i+1
-         Einfuegen.Click
-         sleep 1
-     next i
-   TabVariablen.Close
-
-  '/// Check if the insertion is correct
-   Call wTypeKeys "<MOD1 Home>"
-
-   for i = 0 to j
-       Call wTypeKeys "<Down><Home>"
-       Call wTypeKeys "<Shift Right>"
-       if fGetFieldContent() <> sResult(i) then
-           Warnlog "Should get " & sResult(i) & " but get " & fGetFieldContent()
-       end if
-   next i
-
-  '/// Delete the 1st line
-   Call wTypeKeys "<MOD1 Home><Shift End><Delete>"
-
-   Call wTypeKeys "<MOD1 Home>"
-
-   for i = 0 to j
-       Call wTypeKeys "<Down><Home>"
-       Call wTypeKeys "<Shift Right>"
-       if fGetFieldContent() <> "0" then
-           Warnlog i & "Should get 0 but get " & fGetFieldContent()
-       end if
-   next i
-
-  Call hCloseDocument
-
-endcase
-
-'-----------------------------------------------------------------
-
-testcase tVariablesShowVariable2
-
-  Dim sName     as String
-  Dim sValue    as String
-  Dim sResult() as String
-  Dim i         as Integer
-  Dim j         as Integer
-
-  sResult = Array( _
-                   "100"   , _
-                   "100"   , _
-                   "200"   , _
-                   "200"   , _
-                     )
-  j = UBound(sResult)
-
-  sName = "myTest"
-
-  printlog "Show Variable - 2"
- '/// <b> Show Variable - 2 </b>
-
-  Call hNewDocument
-
-  '/// Insert/Fields/Other/Variables / Select "set Variable" ,
-  '/// Set Name and Value , then choose General , insert a variable
-   Call fInsertFieldsOther("TabVariablen")
-     sValue = "100"
-     Feldtyp.Select 1
-     Sleep 1
-     NameText.SetText sName
-     Wert.SetText sValue
-     Zahlenformat.Select 2
-     Einfuegen.Click
-
-    '/// Then select Show Variable , insert this variable
-     Call wTypeKeys "<Return>"
-     Kontext "TabVariablen"
-     Feldtyp.Select 2
-     Sleep 1
-     Auswahl.Select 1
-     Einfuegen.Click
-
-    '/// Insert a same name variable again , but set to another number
-     Call wTypeKeys "<Return>"
-     sValue = "200"
-     Kontext "TabVariablen"
-     Feldtyp.Select 1
-     Sleep 1
-     NameText.SetText sName
-     Wert.SetText sValue
-     Zahlenformat.Select 2
-     Einfuegen.Click
-
-    '/// Then select Show Variable , insert this variable again
-     Call wTypeKeys "<Return>"
-     Kontext "TabVariablen"
-     Feldtyp.Select 2
-     Sleep 1
-     Auswahl.Select 1
-     Einfuegen.Click
-   TabVariablen.Close
-
-  '/// Check if the insertion is correct
-   Call wTypeKeys "<F9><MOD1 Home>"
-
-   for i = 0 to j
-       Call wTypeKeys "<Shift Right>"
-       if fGetFieldContent() <> sResult(i) then
-           Warnlog i & "Should get " & sResult(i) & " but get " & fGetFieldContent()
-       end if
-       Call wTypeKeys "<Down><Home>"
-   next i
-
-  Call hCloseDocument
-
-endcase
-
-'-----------------------------------------------------------------
-
-testcase tVariablesInsertFormula
-
-  Dim sName()   as String
-  Dim sValue()  as String
-  Dim sResult   as String
-  Dim i         as Integer
-  Dim j         as Integer
-
-  sName   = Array( _
-                   "myTest1" , _
-                   "myTest2" , _
-                  )
-  sValue  = Array( _
-                   "10"    , _
-                   "100"   , _
-                  )
-  sResult = "110"
-  j = UBound(sName)
-
-  printlog "Insert formula"
- '/// <b> Insert formula </b>
-
-  Call hNewDocument
-
-  '/// Insert/Fields/Other/Variables / Select "set Variable" , add 2 variables - A and B
-   Call fInsertFieldsOther("TabVariablen")
-     for i = 0 to j
-         Feldtyp.Select 1
-         Sleep 1
-         NameText.SetText sName(i)
-         Wert.SetText sValue(i)
-         Zahlenformat.Select 2
-         Einfuegen.Click
-         sleep 1
-     next i
-
-    '/// Then select 'Insert formula' , A+B
-     Call wTypeKeys "<Return>"
-     Kontext "TabVariablen"
-       Feldtyp.Select 4
-       Wert.SetText (sName(0) & "+" & sName(1))
-       Einfuegen.Click
-   TabVariablen.Close
-
-   Call wTypeKeys "<Shift Left>"
-   if fGetFieldContent() <> sResult then
-       Warnlog "Should get " & sResult & " but get " & fGetFieldContent()
-   end if
-
-  Call hCloseDocument
-
-endcase
-
-'-----------------------------------------------------------------
-
-testcase tVariablesNumberRange
-
-  Dim sResult() as String
-  Dim i         as Integer
-  Dim x         as Integer
-
-  printlog "Number range"
- '/// <b> Number range </b>
-
-  Call hNewDocument
-
-   Call wTypeKeys "<Return>"
-
-  '/// Insert/Fields/Other/Variables / Select "Number range" , insert 4 numbers for
-  '/// + Table , text , drawing and illustration
-   Call fInsertFieldsOther("TabVariablen")
-     for i = 1 to 4
-         Feldtyp.Select 6
-         Sleep 1
-         Auswahl.Select i
-         Einfuegen.Click
-         Call wTypeKeys "<Return>"
-         Kontext "TabVariablen"
-         sleep 1
-     next i
-
-    '/// Then insert Table , text , drawing and illustration separately
-    '/// + Check if the result is correct
-     Call wTypeKeys "<MOD1 Home>"
-     Kontext "TabVariablen"
-
-     for i = 1 to 4
-         Feldtyp.Select 6
-         Sleep 1
-         Auswahl.Select i
-         Einfuegen.Click
-         Sleep 2
-         Call wTypeKeys "<Home>"
-         sResult = Array("1" , "1" , "1" , "1" , "1")
-         sResult(i) = "2"
-         for x = 0 to 4
-             Call wTypeKeys "<Shift Right>"
-             if fGetFieldContent() <> sResult(x) then
-                 Warnlog "Should get " & sResult(x) & " but get " & fGetFieldContent()
-             end if
-             Call wTypeKeys "<Down><Home>"
-         next x
-         Call wTypeKeys "<MOD1 Home><Shift End><Delete>"
-         sleep 1
-         Kontext "TabVariablen"
-     next i
-   TabVariablen.Close
-
-  Call hCloseDocument
-
-endcase
-
-'-----------------------------------------------------------------
-
-testcase tVariablesInputfield
-
-  Dim sName         as String
-  Dim sValue        as String
-  Dim sReference    as String
-  Dim sFieldContent as String
-
-  sName = "myTest" : sValue = "100"
-  sReference    = "NewTest"
-  sFieldContent = "10000"
-
-  printlog "Input field"
- '/// <b> Input field </b>
-
-  Call hNewDocument
-
-  '/// Insert/Fields/Other/Variables / Select "set Variable" , add 1 variable - A
-   Call fInsertFieldsOther("TabVariablen")
-     Feldtyp.Select 1
-     Sleep 1
-     NameText.SetText sName
-     Wert.SetText sValue
-     Zahlenformat.Select 2
-     Einfuegen.Click
-     Call wTypeKeys "<Return>"
-     Sleep 1
-
-  '/// Select "Input field" , set reference , press insert ,
-  '/// + a dialog should pop up , insert field content
-  '/// + Table , text , drawing and illustration
-     Kontext "TabVariablen"
-     Feldtyp.Select 5
-     Wert.SetText sReference
-     Einfuegen.Click
-     Kontext "Eingabefeld"
-       if Titel.GetText <> sReference then
-           Warnlog "Reference should be " & sReference & " but get " & Titel.GetText
-       end if
-       EingabeText.SetText sFieldContent
-     Eingabefeld.OK
-
-     Kontext "TabVariablen"
-   TabVariablen.Close
-
-  '/// Check if the insertion is correct
-     Call wTypeKeys "<MOD1 Home>"
-     Call wTypeKeys "<Shift Right>"
-     if fGetFieldContent() <> sValue then
-         Warnlog "Should get " & sValue & " but get " & fGetFieldContent()
-     end if
-
-     Call wTypeKeys "<Down><Home>"
-     Call wTypeKeys "<Shift Right>"
-     if fGetFieldContent() <> sFieldContent then
-         Warnlog "Should get " & sFieldContent & " but get " & fGetFieldContent()
-     end if
-
-  '/// Delete variable A in the document , Check if the insertion is still correct
-     Call wTypeKeys "<MOD1 Home>"
-     Call wTypeKeys "<Shift Right><Delete>"
-
-     Call wTypeKeys "<Down><Home>"
-     Call wTypeKeys "<Shift Right>"
-     if fGetFieldContent() <> sFieldContent then
-         Warnlog "2-Should get " & sFieldContent & " but get " & fGetFieldContent()
-     end if
-
-  Call hCloseDocument
-
-endcase
-
-'-----------------------------------------------------------------
-
-testcase tVariablesUserfield
-
-  Dim sName()    as String
-  Dim sValue()   as String
-  Dim sResult1() as String
-  Dim sResult2() as String
-  Dim i          as Integer
-  Dim j          as Integer
-
-  sName    = Array("U1" , "UserField" , "U2")
-  sValue   = Array("UserField - 10" , "100" , "UserField + 10")
-  sResult1 = Array("-10" , "100" , "110")
-  sResult2 = Array("90"  , "100" , "110")
-  j = UBound(sResult1)
-
-  printlog "User field"
- '/// <b> User field </b>
-
-  Call hNewDocument
-
-  '/// Insert/Fields/Other/Variables / Select "User Field"
-   Call fInsertFieldsOther("TabVariablen")
-   for i = 0 to j
-       Feldtyp.Select 9
-       Sleep 1
-       NameText.SetText sName(i)
-       Wert.SetText sValue(i)
-       Zahlenformat.Select 3
-       Einfuegen.Click
-       Sleep 2
-       Call wTypeKeys "<Shift Left>"
-       if fGetFieldContent() <> sResult1(i) then
-           Warnlog "Should get " & sResult1(i) & " but get " & fGetFieldContent()
-       end if
-       Call wTypeKeys "<End><Return>"
-       sleep 1
-       Kontext "TabVariablen"
-   next i
-   TabVariablen.Close
-
-  '/// Check if the result is OK.
-   Call wTypeKeys "<F9>"
-   Call wTypeKeys "<MOD1 Home>"
-   Sleep 1
-   for i = 0 to j
-       Call wTypeKeys "<Shift Right>"
-       if fGetFieldContent() <> sResult2(i) then
-           Warnlog "Should get " & sResult2(i) & " but get " & fGetFieldContent()
-       end if
-       Call wTypeKeys "<Down><Left>"
-   next i
-
-   Call hCloseDocument
-
-endcase
-
-'-----------------------------------------------------------------
-
-testcase tVariablesDDEFieldManual
-    qaerrorlog "#i112079#testcase must be reworked"
-    goto endsub
-
-    Dim sDDEFile        as String
-    Dim sContent        as String
-    Dim sName           as String
-    Dim sDDEStatement   as String
-    Dim sSectionName    as String
-
-    sDDEFile = Convertpath ( gOfficePath + "\user\work\dde_test.odt")
-    sContent = "DDE"
-    sName    = "myTest"
-    sSectionName  = "Section1"
-    sDDEStatement = "soffice " & sDDEFile & " " & sSectionName
-
-    printlog "DDE field - manual"
-    '/// <b> DDE field - manual </b>
-
-    if FileExists ( sDDEFile ) then app.kill ( sDDEFile )
-
-    Call hNewDocument
-
-    '/// Input something , insert a section , then save it and close the file
-    Call wTypeKeys sContent
-    Call wTypeKeys "<Shift Home>"
-    Call fInsertSection("TabBereiche")
-    Bereichsliste.Settext sSectionName
-    TabBereiche.OK
-    Sleep 1
-    Call hFileSaveAsKill(sDDEFile)
-    Call hCloseDocument
-
-    '/// Opan a new document
-    Call hNewDocument
-    '/// Insert/Fields/Other/Variables / Select "DDE Field"
-    '/// Set DDE name and DDE statement , select "DDE manual"
-    Call fInsertFieldsOther("TabVariablen")
-    Feldtyp.Select 3
-    Sleep 1
-    NameText.SetText sName
-    Wert.SetText sDDEStatement
-    Formatliste.Select 1
-    Einfuegen.Click
-    Sleep 2
-    TabVariablen.Close
-    Sleep 2
-
-    Call wTypeKeys "<MOD1 Home>"
-    Call wTypeKeys "<Shift End>"
-    if fGetFieldContent() <> sContent then
-        Warnlog "Should get " & sContent & " but get " & fGetFieldContent()
-    end if
-
-    '/// Open the test file which you just closed , add something ,
-    '/// Save the file
-    hFileOpenLocally( sDDEFile)
-    Call wTypeKeys "<MOD1 Home>"
-    Call wTypeKeys "XYZ"
-    FileSave
-    Call hCloseDocument
-
-    '/// Check if the content is changed -- Should NOT
-    Sleep 2
-    Call wTypeKeys "<F9>"
-    Call wTypeKeys "<MOD1 Home><Shift End>"
-    if fGetFieldContent() <> sContent then
-        Warnlog "Should get " & sContent & " but get " & fGetFieldContent()
-    end if
-
-    '/// Edit/Fields , press update button
-    EditFields
-    Kontext "VerknuepfungenBearbeiten"
-    Aktualisieren.Click
-    VerknuepfungenBearbeiten.Close
-
-    '/// Check if the content is changed -- Should NOT
-    Sleep 1
-    Call wTypeKeys "<F9>"
-    Call wTypeKeys "<MOD1 Home><Shift End>"
-    if fGetFieldContent() <> ("XYZ" & sContent) then
-        Warnlog "Should get XYZ" & sContent & " but get " & fGetFieldContent()
-    end if
-
-    Call hCloseDocument
-
-    if FileExists( sDDEFile ) then app.kill ( sDDEFile )
-
-endcase
-
-'-----------------------------------------------------------------
-
-testcase tVariablesDDEFieldAutomatic
-    qaerrorlog "#i112079#testcase must be reworked"
-    goto endsub
-
-    qaerrorlog "#i102792# - tVariablesDDEFieldAutomatic outcommented. Fields not updated."
-    goto endsub
-
-  Dim sDDEFile      as String
-  Dim sContent      as String
-  Dim sName         as String
-  Dim sDDEStatement as String
-  Dim sSectionName  as String
-
-  sDDEFile = Convertpath ( gNetzOfficePath + "dde_test.oxt")
-  sContent = "DDE"
-  sName    = "myTest"
-  sSectionName  = "Section1"
-  sDDEStatement = "soffice " & sDDEFile & " " & sSectionName
-
-  printlog "DDE field - automatic"
- '/// <b> DDE field - automatic </b>
-
-  if FileExists ( sDDEFile ) then app.kill ( sDDEFile )
-
-  Call hNewDocument
-
-  '/// Input something , insert a section , then save it and close the file
-   Call wTypeKeys sContent
-   Call wTypeKeys "<Shift Home>"
-   Call fInsertSection("TabBereiche")
-     Bereichsliste.Settext sSectionName
-   TabBereiche.OK
-   Sleep 1
-   Call hFileSaveAsKill(sDDEFile)
-  Call hCloseDocument
-
-  '/// Opan a new document
-   Call hNewDocument
-
-  '/// Insert/Fields/Other/Variables / Select "DDE Field"
-  '/// Set DDE name and DDE statement , select "DDE automatic"
-   Call fInsertFieldsOther("TabVariablen")
-     Feldtyp.Select 3
-     Sleep 1
-     NameText.SetText sName
-     Wert.SetText     sDDEStatement
-     Formatliste.Select 2
-     Einfuegen.Click
-     Sleep 2
-   TabVariablen.Close
-   Sleep 2
-
-   Call wTypeKeys "<MOD1 Home>"
-   Call wTypeKeys "<Shift End>"
-   if fGetFieldContent() <> sContent then
-       Warnlog "Should get " & sContent & " but get " & fGetFieldContent()
-   end if
-
-  '/// Open the test file which you just closed , add something ,
-  '/// Save the file
-   hFileOpenLocally( sDDEFile)
-    Call wTypeKeys "<MOD1 Home>"
-    Call wTypeKeys "XYZ"
-    FileSave
-   Call hCloseDocument
-
-  '/// Check if the content is changed -- Should
-   Sleep 2
-   Call wTypeKeys "<F9>"
-   Call wTypeKeys "<MOD1 Home><Shift End>"
-   if fGetFieldContent() <> ("XYZ" & sContent) then
-       Warnlog "Should get XYZ" & sContent & " but get " & fGetFieldContent()
-   end if
-
-  Call hCloseDocument
-
-  if FileExists ( sDDEFile ) then app.kill ( sDDEFile )
-
-endcase
-
-'-----------------------------------------------------------------
diff --git a/testautomation/writer/optional/includes/fields/w_fields6.inc b/testautomation/writer/optional/includes/fields/w_fields6.inc
deleted file mode 100644
index f29eff451edb..000000000000
--- a/testautomation/writer/optional/includes/fields/w_fields6.inc
+++ /dev/null
@@ -1,830 +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 : helge.delfs@oracle.com
-'*
-'* short description : Fields - Functions
-'*
-'\***********************************************************************
-
-sub w_fields6
-
-    Call tFunctionsConditionalText
-    Call tFunctionsHiddenText
-    Call tFunctionsHiddenParagraph
-    Call tFunctionsInputField
-    Call tFunctionsPlaceholderText
-    Call tFunctionsPlaceholderTable
-    Call tFunctionsPlaceholderFrame
-    Call tFunctionsPlaceholderGraphics
-    Call tFunctionsPlaceholderObject
-    Call tFunctionsInputlistRemove
-    Call tFunctionsInputlistMoveUp
-    Call tFunctionsInputlistMoveDown
-    Call tFunctionsCombineCharacter
-
-end sub
-
-'-----------------------------------------------------------------
-
-testcase tFunctionsConditionalText
-
-  Dim sName      as String
-  Dim sValue()   as String
-  Dim sCondition as String
-  Dim sElse      as String
-  Dim sThen      as String
-  Dim sResult()  as String
-  Dim iType      as Integer
-  Dim i          as Integer
-  Dim j          as Integer
-
-  sName      = "X"
-  SCondition = "X==" + Chr(34) + "Sun" + Chr(34)
-  SThen      = "Yes"
-  sElse      = "No"
-
-  sValue  = Array( _
-                   "Sun"    , _
-                   "NOTSun" , _
-                  )
-  sResult = Array( _
-                   "Sun"    , _
-                   "Yes"    , _
-                   "NOTSun" , _
-                   "No"     , _
-                  )
-
-  printlog "Conditional text"
- '/// <b> Conditional text </b>
-
-  Call hNewDocument
-
-  '/// Insert/Fields/Other/Variables / Select "set Variable" ,
-  '/// Set 1 Name and set its Value to "Sun" , then goto tabpage function
-  '/// + choose "Conditional text" , set condition like
-  '/// if X="Sun" then "YES" else "NO"
-  '/// Set another value to "NoSun"
-   j = UBound(sValue)
-   for i = 0 to j
-      Call fInsertFieldsOther("TabVariablen")
-        Feldtyp.Select 1
-        Sleep 1
-        NameText.SetText sName
-        Wert.SetText sValue(i)
-        Zahlenformat.Select 1
-        Einfuegen.Click
-      TabVariablen.Close
-      Call wTypeKeys "<Return>"
-      Call fInsertFieldsOther("TabFunktionen")
-        Feldtyp.Select 1
-        Sleep 1
-        Bedingung.SetText sCondition
-        Dann.SetText      sThen
-        Sonst.SetText     sElse
-        Einfuegen.Click
-      TabFunktionen.Close
-      Call wTypeKeys "<Return>"
-   next i
-
-  '/// Check if the insertion is correct
-   Call wTypeKeys "<MOD1 Home>"
-   j = UBound(sResult)
-   for i = 0 to j
-       Call wTypeKeys "<Shift Right>"
-       if fGetFieldContent() <> sResult(i) then
-           Warnlog "Should get " & sResult(i) & " but get " & fGetFieldContent()
-       end if
-       Call wTypeKeys "<Down><Home>"
-   next i
-
-  Call hCloseDocument
-
-endcase
-
-'-----------------------------------------------------------------
-
-testcase tFunctionsHiddenText
-
-  Dim sName       as String
-  Dim sValue()    as String
-  Dim sCondition  as String
-  Dim sHiddenText as String
-  Dim sResult()   as String
-  Dim bHiddenText as Boolean
-  Dim i           as Integer
-  Dim j           as Integer
-
-  sName       = "X"
-  SCondition  = "X==" + Chr(34) + "ABC" + Chr(34)
-  sHiddenText = "HiddenText"
-
-  sValue  = Array( _
-                   "ABC"    , _
-                   "NOTABC" , _
-                  )
-  sResult = Array( _
-                   ""           , _
-                   "HiddenText" , _
-                  )
-
-  printlog "Hidden text"
- '/// <b> Hidden text </b>
-
-  Call hNewDocument
-
-  '/// Tools/Options / StarOffice writer / Formatting Aids
-  '/// Uncheck 'Fields : Hidden text"
-   ToolsOptions
-   Call hToolsOptions("WRITER","FORMATTINGAIDS")
-     bHiddenText = FeldVersteckterText.IsChecked
-     if bHiddenText = TRUE then
-         FeldVersteckterText.UnCheck
-     end if
-   Kontext "ExtrasOptionenDlg"
-   ExtrasOptionenDlg.OK
-
-  '/// Insert/Fields/Other/Variables / Select "set Variable" ,
-  '/// Set Name and set its Value to "ABC" , then goto tabpage function
-  '/// + choose "hidden text" , set condition like
-  '/// if X="ABC" as condition , hidden text is "HiddenText"
-  '/// Set another value to "NoTABC"
-  '/// Check if the insertion is correct
-   j = UBound(sValue)
-   for i = 0 to j
-      Call wTypeKeys "<MOD1 Home><Shift End>"
-      Call fInsertFieldsOther("TabVariablen")
-        Feldtyp.Select 1
-        Sleep 1
-        NameText.SetText sName
-        Wert.SetText sValue(i)
-        Zahlenformat.Select 1
-        Einfuegen.Click
-      TabVariablen.Close
-      Call wTypeKeys "<Return>"
-      Call fInsertFieldsOther("TabFunktionen")
-        Feldtyp.Select 7   'Hidden text
-        Sleep 1
-        Bedingung.SetText sCondition
-        Hinweis.SetText   sHiddenText
-        Einfuegen.Click
-      TabFunktionen.Close
-
-      Call wTypeKeys "<Shift Left>"
-      if fGetFieldContent() <> sResult(i) then
-          Warnlog "Should get " & sResult(i) & " but get " & fGetFieldContent()
-      end if
-   next i
-
-  'Recover to default
-   ToolsOptions
-   Call hToolsOptions("WRITER","FORMATTINGAIDS")
-     if bHiddenText = TRUE then FeldVersteckterText.Check
-   Kontext "ExtrasOptionenDlg"
-   ExtrasOptionenDlg.OK
-
-  Call hCloseDocument
-
-endcase
-
-'-----------------------------------------------------------------
-
-testcase tFunctionsHiddenParagraph
-
-  Dim sName       as String
-  Dim sValue()    as String
-  Dim sCondition  as String
-  Dim sHiddenText as String
-  Dim sResult()   as String
-  Dim bHiddenText as Boolean
-  Dim i           as Integer
-  Dim j           as Integer
-
-  sName       = "X"
-  SCondition  = "X==" + Chr(34) + "ABC" + Chr(34)
-  sHiddenText = "HiddenText"
-
-  sValue  = Array( _
-                   "ABC"    , _
-                   "NOTABC" , _
-                  )
-  sResult = Array( _
-                   "ABC"        , _
-                   "HiddenText" , _
-                  )
-
-  printlog "Hidden paragraph"
- '/// <b> Hidden paragraph </b>
-
-  Call hNewDocument
-
-  '/// Tools/Options / StarOffice writer / Formatting Aids
-  '/// Uncheck 'Fields : Hidden paragraph"
-   ToolsOptions
-   Call hToolsOptions("WRITER","FORMATTINGAIDS")
-     bHiddenText = VersteckteAbsatze.IsChecked
-     if bHiddenText = TRUE then
-         VersteckteAbsatze.UnCheck
-     end if
-   Kontext "ExtrasOptionenDlg"
-   ExtrasOptionenDlg.OK
-
-  '/// Input a paragraph first
-   Call wTypeKeys "<Return>"
-   Call wTypeKeys sHiddenText
-   Call wTypeKeys "<Up>"
-
-  '/// Insert/Fields/Other/Variables / Select "set Variable" ,
-  '/// Set Name and set its Value to "ABC" , then goto tabpage function
-  '/// + choose "hidden paragraph" , set condition like
-  '/// if X="ABC" as condition
-  '/// Check if the paragraph disappear or not
-   j = UBound(sValue)
-   for i = 0 to j
-      Call wTypeKeys "<MOD1 Home><Shift End>"
-      Call fInsertFieldsOther("TabVariablen")
-        Feldtyp.Select 1
-        Sleep 1
-        NameText.SetText sName
-        Wert.SetText sValue(i)
-        Zahlenformat.Select 1
-        Einfuegen.Click
-      TabVariablen.Close
-      Call wTypeKeys "<Down><Home>"
-      Call fInsertFieldsOther("TabFunktionen")
-        Feldtyp.Select 8   'Hidden paragraph
-        Sleep 1
-        Bedingung.SetText sCondition
-        Einfuegen.Click
-      TabFunktionen.Close
-
-      Call wTypeKeys "<MOD1 Home><Down><Shift End>"
-      if fGetFieldContent() <> sResult(i) then
-          Warnlog "Should get " & sResult(i) & " but get " & fGetFieldContent()
-      end if
-   next i
-
-  'Recover to default
-   ToolsOptions
-   Call hToolsOptions("WRITER","FORMATTINGAIDS")
-     if bHiddenText = TRUE then VersteckteAbsatze.Check
-   Kontext "ExtrasOptionenDlg"
-   ExtrasOptionenDlg.OK
-
-  Call hCloseDocument
-
-endcase
-
-'-----------------------------------------------------------------
-
-testcase tFunctionsInputField
-
-  Dim sReference as String
-  Dim sFieldContent as String
-
-  sReference    = "NewTest"
-  sFieldContent = "10000"
-
-  printlog "Input field"
- '/// <b> Input field </b>
-
-  Call hNewDocument
-
-  '/// Insert/Fields/Other/Functions / Select "Input field" ,
-  '/// + set reference , press insert button , input field content
-   Call fInsertFieldsOther("TabFunktionen")
-     Feldtyp.Select 3   'Input field
-     Sleep 1
-     Hinweis.SetText sReference
-     Einfuegen.Click
-     Kontext "Eingabefeld"
-       if Titel.GetText <> sReference then
-           Warnlog "Reference should be " & sReference & " but get " & Titel.GetText
-       end if
-       EingabeText.SetText sFieldContent
-     Eingabefeld.OK
-
-   Kontext "TabFunktionen"
-   TabFunktionen.Close
-
-  '/// Check if the insertion is correct
-   Call wTypeKeys "<MOD1 Home>"
-   Call wTypeKeys "<Shift Right>"
-   if fGetFieldContent() <> sFieldContent then
-       Warnlog "Should get " & sFieldContent & " but get " & fGetFieldContent()
-   end if
-
-  Call hCloseDocument
-
-endcase
-
-'-----------------------------------------------------------------
-
-testcase tFunctionsPlaceholderText
-
-  Dim sPlaceHolder as String
-
-  sPlaceHolder = "Text"
-
-  printlog "Placeholder - Text"
- '/// <b> Placeholder - Text </b>
-
-  Call hNewDocument
-
-  '/// Insert/Fields/Other/Functions / Select "Placeholder" ,
-  '/// + select Text
-   Call fInsertFieldsOther("TabFunktionen")
-     Feldtyp.Select 5   'Placeholder
-     Sleep 1
-     Formatliste.Select 1
-     Platzhalter.SetText  sPlaceHolder
-     Einfuegen.Click
-   TabFunktionen.Close
-
-  '/// Check if the insertion is correct
-   Call wTypeKeys "<MOD1 Home>"
-   Call wTypeKeys "<Shift Right>"
-   if fGetFieldContent() <> ("<" & sPlaceHolder & ">" )then
-       Warnlog "Should get <" & sPlaceHolder & "> but get " & fGetFieldContent()
-   end if
-
-  Call hCloseDocument
-
-endcase
-
-'-----------------------------------------------------------------
-
-testcase tFunctionsPlaceholderTable
-
-    printlog "Placeholder - Table"
-    '/// <b> Placeholder - Table </b>
-
-    Call hNewDocument
-
-    Call fFormatPageWriter("TabSeite")
-    Breite.SetText "15"
-    Hoehe.SetText "15"
-    Links.SetText "0"
-    Rechts.SetText "0"
-    Oben.SetText "0"
-    Unten.SetText "0"
-    TabSeite.OK
-    Sleep 2
-    Kontext "Active"
-    if Active.Exists then
-        if Active.GetRT = 304 then ' is it a messagebox ?
-            Active.Yes
-        else
-            Warnlog "Messagebox is not up "
-        end if
-    else
-        Warnlog "Something wrong !"
-    end if
-
-    '/// Insert/Fields/Other/Functions / Select "Placeholder" ,
-    '/// + select Table
-    Call fInsertFieldsOther("TabFunktionen")
-    Feldtyp.Select 5   'Placeholder
-    Sleep 1
-    Formatliste.Select 2
-    Platzhalter.SetText "TableTableTableTableTable"
-    Einfuegen.Click
-    TabFunktionen.Close
-
-    '/// Check if the insertion is correct
-    Call wTypeKeys "<MOD1 Home>"
-    Call wTypeKeys "<Shift Right>"
-    if fGetFieldContent() <> ("<TableTableTableTableTable>" )then
-        Warnlog "Should get <TableTableTableTableTable> but get " & fGetFieldContent()
-    end if
-
-    Call fSetToBigSize()
-    Call wTypeKeys "<MOD1 Home>"
-    Sleep 1
-
-	Call gMouseMove(0,0,30,25)
-    Call gMouseClick(30,25)
-    Sleep 3
-
-    Kontext "TabelleEinfuegenWriter"
-    if TabelleEinfuegenWriter.Exists then
-        TabelleEinfuegenWriter.Cancel
-    else
-        Warnlog "Insert table dialog isn't up !"
-    end if
-
-    Call hCloseDocument
-
-endcase
-
-'-----------------------------------------------------------------
-
-testcase tFunctionsPlaceholderFrame
-
-    printlog "Placeholder - Frame"
-    '/// <b> Placeholder - Frame </b>
-
-    Call hNewDocument
-
-    fFormatPageWriter("TabSeite")
-    Breite.SetText "15"
-    Hoehe.SetText "15"
-    Links.SetText "0"
-    Rechts.SetText "0"
-    Oben.SetText "0"
-    Unten.SetText "0"
-    TabSeite.OK
-    Kontext "Active"
-    if Active.Exists then
-       if Active.GetRT = 304 then ' is it a messagebox ?
-           Active.Yes
-       else
-           Warnlog "Messagebox is not up "
-       end if
-    else
-       Warnlog "Something wrong !"
-    end if
-
-    '/// Insert/Fields/Other/Functions / Select "Placeholder" ,
-    '/// + select Frame
-    Call fInsertFieldsOther("TabFunktionen")
-    Feldtyp.Select 5   'Placeholder
-    Sleep 1
-    Formatliste.Select 3
-    Platzhalter.SetText "FrameFrameFrameFrameFrameFrame"
-    Einfuegen.Click
-    TabFunktionen.Close
-
-    '/// Check if the insertion is correct
-    Call wTypeKeys "<MOD1 Home>"
-    Call wTypeKeys "<Shift Right>"
-    if fGetFieldContent() <> ("<FrameFrameFrameFrameFrameFrame>" )then
-        Warnlog "Should get <FrameFrameFrameFrameFrameFrame> but get " & fGetFieldContent()
-    end if
-
-    Call fSetToBigSize()
-    Call wTypeKeys "<MOD1 Home>"
-    Sleep 1
-	Call gMouseMove(0,0,30,25)
-    Call gMouseClick(30,25)
-    Sleep 3
-
-    try
-        Kontext
-        Active.SetPage TabType
-        Kontext "TabType"
-        AutoHoehe.UnCheck
-        TabType.Cancel
-    catch
-        Warnlog "Format/Frame dialog isn't up !"
-    endcatch
-
-    Call hCloseDocument
-
-endcase
-
-'-----------------------------------------------------------------
-
-testcase tFunctionsPlaceholderGraphics
-
-    printlog "Placeholder - Graphics"
-    '/// <b> Placeholder - Graphics </b>
-
-    Call hNewDocument
-
-    fFormatPageWriter("TabSeite")
-    Breite.SetText "15"
-    Hoehe.SetText "15"
-    Links.SetText "0"
-    Rechts.SetText "0"
-    Oben.SetText "0"
-    Unten.SetText "0"
-
-    TabSeite.OK
-    Kontext "Active"
-    if Active.Exists then
-        if Active.GetRT = 304 then ' is it a messagebox ?
-            Active.Yes
-        else
-            Warnlog "Messagebox is not up "
-        end if
-    else
-        Warnlog "Something wrong !"
-    end if
-
-    '/// Insert/Fields/Other/Functions / Select "Placeholder" ,
-    '/// + select Graphics
-    Call fInsertFieldsOther("TabFunktionen")
-    Feldtyp.Select 5   'Placeholder
-    Sleep 1
-    Formatliste.Select 4
-    Platzhalter.SetText "GraphicsGraphicsGraphicsGraphicsGraphics"
-    Einfuegen.Click
-    TabFunktionen.Close
-
-    '/// Check if the insertion is correct
-    Call wTypeKeys "<MOD1 Home>"
-    Call wTypeKeys "<Shift Right>"
-    if fGetFieldContent() <> ("<GraphicsGraphicsGraphicsGraphicsGraphics>" )then
-        Warnlog "Should get <GraphicsGraphicsGraphicsGraphicsGraphics> but get " & fGetFieldContent()
-    end if
-
-    Call fSetToBigSize()
-    Call wTypeKeys "<MOD1 Home>"
-    Sleep 1
-	Call gMouseMove(0,0,30,25)
-    Call gMouseClick(30,25)
-    Sleep 3
-
-    try
-        Kontext "GrafikEinfuegenDlg"
-        Oeffnen.Click
-        GrafikEinfuegenDlg.Cancel
-    catch
-            Warnlog "Insert picture dialog isn't up !"
-    endcatch
-
-    Call hCloseDocument
-
-endcase
-
-'-----------------------------------------------------------------
-
-testcase tFunctionsPlaceholderObject
-
-    printlog "Placeholder - Object"
-    '/// <b> Placeholder - Object </b>
-
-    Call hNewDocument
-
-    fFormatPageWriter("TabSeite")
-    Breite.SetText "15"
-    Hoehe.SetText "15"
-    Links.SetText "0"
-    Rechts.SetText "0"
-    Oben.SetText "0"
-    Unten.SetText "0"
-    TabSeite.OK
-    Kontext "Active"
-    if Active.Exists then
-        if Active.GetRT = 304 then ' is it a messagebox ?
-            Active.Yes
-        else
-            Warnlog "Messagebox is not up "
-        end if
-    else
-        Warnlog "Something wrong !"
-    end if
-
-    '/// Insert/Fields/Other/Functions / Select "Placeholder" ,
-    '/// + select object
-    Call fInsertFieldsOther("TabFunktionen")
-    Feldtyp.Select 5   'Placeholder
-    Sleep 1
-    Formatliste.Select 5
-    Platzhalter.SetText "ObjectObjectObjectObjectObjectObject"
-    Einfuegen.Click
-    TabFunktionen.Close
-
-    '/// Check if the insertion is correct
-    Call wTypeKeys "<MOD1 Home>"
-    Call wTypeKeys "<Shift Right>"
-    if fGetFieldContent() <> ("<ObjectObjectObjectObjectObjectObject>" )then
-        Warnlog "Should get <ObjectObjectObjectObjectObjectObject> but get " & fGetFieldContent()
-    end if
-
-    Call fSetToBigSize()
-    Call wTypeKeys "<MOD1 Home>"
-    Sleep 1
-	Call gMouseMove(0,0,30,25)
-    Call gMouseClick(30,25)
-    Sleep 3
-
-    try
-        Kontext "OLEObjektEinfuegen"
-        NeuErstellen.Check
-        OLEObjektEinfuegen.Cancel
-    catch
-        Warnlog "Insert OLE Object dialog isn't up !"
-    endcatch
-
-    Call hCloseDocument
-
-endcase
-
-'-----------------------------------------------------------------
-
-testcase tFunctionsInputlistRemove
-
-  Dim sItem1 as String
-  Dim sItem2 as String
-
-  sItem1 = "First" : sItem2 = "Second"
-
-  printlog "Input list - Remove"
- '/// <b> Input list Remove</b>
-
-  Call hNewDocument
-
-  '/// Insert/Fields/Other/Functions / Select "Input list" ,
-  '/// + insert 2 itmes , remove 1st one
-   Call fInsertFieldsOther("TabFunktionen")
-     Feldtyp.Select 2   'Input list
-     Sleep 1
-     NewListEntry.SetText  sItem1
-     AddListEntry.Click
-     NewListEntry.SetText  sItem2
-     AddListEntry.Click
-     Sleep 1
-     Einfuegen.Click
-     Call wTypeKeys "<Return>"
-     Kontext "TabFunktionen"
-     EntrysList.Select 1
-     RemoveEntry.Click
-     Einfuegen.Click
-   TabFunktionen.Close
-
-  '/// Check if the insertion is correct
-   Call wTypeKeys "<MOD1 Home>"
-   Call wTypeKeys "<Shift Right>"
-   if fGetFieldContent() <> sItem1 then
-       Warnlog "Should get " & sItem1 & " but get " & fGetFieldContent()
-   end if
-   Call wTypeKeys "<Down><Home>"
-   Call wTypeKeys "<Shift Right>"
-   if fGetFieldContent() <> sItem2 then
-       Warnlog "Should get " & sItem2 & " but get " & fGetFieldContent()
-   end if
-
-  Call hCloseDocument
-
-endcase
-
-'-----------------------------------------------------------------
-
-testcase tFunctionsInputlistMoveUp
-
-  Dim sItem1 as String
-  Dim sItem2 as String
-
-  sItem1 = "First" : sItem2 = "Second"
-
-  printlog "Input list - Move up"
- '/// <b> Input list Move up</b>
-
-  Call hNewDocument
-
-  '/// Insert/Fields/Other/Functions / Select "Input list" ,
-  '/// + insert 2 itmes , press move up
-   Call fInsertFieldsOther("TabFunktionen")
-     Feldtyp.Select 2   'Input list
-     Sleep 1
-     NewListEntry.SetText  sItem1
-     AddListEntry.Click
-     NewListEntry.SetText  sItem2
-     AddListEntry.Click
-     Sleep 1
-     Einfuegen.Click
-     Call wTypeKeys "<Return>"
-     Kontext "TabFunktionen"
-     MoveUpEntry.Click
-     Einfuegen.Click
-   TabFunktionen.Close
-
-  '/// Check if the insertion is correct
-   Call wTypeKeys "<MOD1 Home>"
-   Call wTypeKeys "<Shift Right>"
-   if fGetFieldContent() <> sItem1 then
-       Warnlog "Should get " & sItem1 & " but get " & fGetFieldContent()
-   end if
-   Call wTypeKeys "<Down><Home>"
-   Call wTypeKeys "<Shift Right>"
-   if fGetFieldContent() <> sItem2 then
-       Warnlog "Should get " & sItem2 & " but get " & fGetFieldContent()
-   end if
-
-  Call hCloseDocument
-
-endcase
-
-'-----------------------------------------------------------------
-
-testcase tFunctionsInputlistMoveDown
-
-  Dim sItem1 as String
-  Dim sItem2 as String
-
-  sItem1 = "First" : sItem2 = "Second"
-
-  printlog "Input list - Move down"
- '/// <b> Input list Move down</b>
-
-  Call hNewDocument
-
-  '/// Insert/Fields/Other/Functions / Select "Input list" ,
-  '/// + insert 2 itmes , press move down
-   Call fInsertFieldsOther("TabFunktionen")
-     Feldtyp.Select 2   'Input list
-     Sleep 1
-     NewListEntry.SetText  sItem1
-     AddListEntry.Click
-     NewListEntry.SetText  sItem2
-     AddListEntry.Click
-     Sleep 1
-     Einfuegen.Click
-     Call wTypeKeys "<Return>"
-     Kontext "TabFunktionen"
-     EntrysList.Select 1
-     MoveDownEntry.Click
-     Einfuegen.Click
-   TabFunktionen.Close
-
-  '/// Check if the insertion is correct
-   Call wTypeKeys "<MOD1 Home>"
-   Call wTypeKeys "<Shift Right>"
-   if fGetFieldContent() <> sItem1 then
-       Warnlog "Should get " & sItem1 & " but get " & fGetFieldContent()
-   end if
-   Call wTypeKeys "<Down><Home>"
-   Call wTypeKeys "<Shift Right>"
-   if fGetFieldContent() <> sItem2 then
-       Warnlog "Should get " & sItem2 & " but get " & fGetFieldContent()
-   end if
-
-  Call hCloseDocument
-
-endcase
-
-'-----------------------------------------------------------------
-
-testcase tFunctionsCombineCharacter
-
-	Dim sCombineCharacter as String
-    Dim sTestFile as String
-
-    sCombineCharacter = "ABC"
-    sTestFile = Convertpath (gTesttoolpath + "writer\optional\input\fields\CombineTest.sxw")
-
-    printlog "Combine Character"
-    '/// <b> Combine Character </b>
-
-    Call hNewDocument
-
-    '/// Open test file pageTest.sxw
-    hFileOpenLocally( sTestFile )
-    
-    Call wTypeKeys "<MOD1 Home>"
-    Call wTypeKeys "<Right>"
-
-    '/// Insert/Fields/Other/Functions / Select "Combine characters"
-    Call fInsertFieldsOther("TabFunktionen")
-    Feldtyp.Select 6   'Combine characters
-    Sleep 1
-    Namefeld.SetText sCombineCharacter
-    Einfuegen.Click
-    TabFunktionen.Close
-
-    '/// Check if the insertion is correct
-    Call wTypeKeys "<Shift Left>"
-    if fGetFieldContent() <> sCombineCharacter then
-        Warnlog "Should get " & sCombineCharacter & " but get " & fGetFieldContent()
-    end if
-
-    Call wTypeKeys ( "<Shift F4>" )
-    FormatAnchorToPage
-    Sleep 1
-    Call fPositionAndSize("TabPositionAndSizeWriter")
-    if StrToDouble(Horizontalby.Gettext) < 6.5 OR StrToDouble(Horizontalby.Gettext) > 7.5 then
-        Warnlog "Something wrong in combine character"
-    end if
-    TabPositionAndSizeWriter.Cancel
-
-    Call hCloseDocument
-
-endcase
-
-'-----------------------------------------------------------------
diff --git a/testautomation/writer/optional/includes/fields/w_fields7.inc b/testautomation/writer/optional/includes/fields/w_fields7.inc
deleted file mode 100644
index c5b21d00d5eb..000000000000
--- a/testautomation/writer/optional/includes/fields/w_fields7.inc
+++ /dev/null
@@ -1,400 +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 : helge.delfs@oracle.com
-'*
-'* short description : Fields - L10N test
-'*
-'\***********************************************************************
-
-sub w_fields7
-
-    Call tL10NtestAboveBelow
-    Call tL10NtestDate
-    Call tL10NtestTime
-
-end sub
-
-'-----------------------------------------------------------------
-
-testcase tL10NtestAboveBelow
-
-    if iSprache <> 1 then
-        QaErrorLog "Currently no any other language than English. Aborting."
-        exit sub
-    end if
-    
-    Dim sTestFile as String
-    Dim sAbove() as String
-    Dim sBelow() as String
-    Dim iCountry() as Integer
-    Dim i as Integer
-    Dim j as Integer
-    
-    Dim sUILanguage as integer, sLocale as integer
-    Dim sCurrency as integer, sWestern as integer, sAsian as integer, sCTL as integer
-    Dim sAsiancb as boolean, sCTLcb as boolean
-    Dim sAsiancbChecked as boolean, sCTLcbChecked as boolean
-    
-    if iSprache <> 01 then
-        QAErrorlog "This is a English-only testcase"
-    end if
-    
-    Call hNewDocument
-    ' Get current settings on language tabpage and remember
-    ToolsOptions
-    Call hToolsOptions("LANGUAGESETTINGS","LANGUAGES")
-    sUILanguage = UILanguage.GetSelIndex
-    sLocale = Gebietsschema.GetSelIndex
-    sCurrency = StandardWaehrung.GetSelIndex
-    sWestern = Westlich.GetSelIndex
-    if Asiatisch.IsEnabled then sAsian = Asiatisch.GetSelIndex
-    if LanguageComplexScript.IsEnabled then sCTL = LanguageComplexScript.GetSelIndex
-    sAsiancb = Aktivieren.IsEnabled
-    sCTLcb = ComplexScriptEnabled.IsEnabled
-    sAsiancbChecked = Aktivieren.IsChecked
-    sCTLcbChecked = ComplexScriptEnabled.IsChecked
-    Kontext "ExtrasOptionenDlg"
-    ExtrasOptionenDlg.Cancel
-    Call hCloseDocument
-    
-    sTestFile = Convertpath (gTesttoolpath + "writer\optional\input\fields\AboveBelow.sxw")
-    
-    sBelow  = Array( _
-               "below"    , _
-               "infra"    , _
-               "abajo"    , _
-               "sotto"    , _
-               "ovan"     , _
-               "unten"    , _
-               "abaixo"   , _
-               "後述"    , _
-               "아래"    , _
-               "下面"    , _
-               "下面"    , _
-              )
-    sAbove  = Array( _
-               "above"    , _
-               "supra"    , _
-               "arriba"   , _
-               "sopra"    , _
-               "nedan"    , _
-               "oben"     , _
-               "acima"    , _
-               "前述"    , _
-               "위"       , _
-               "上面"    , _
-               "上面"    , _
-              )
-    iCountry = Array ( 1 , 33 , 34 , 39 , 46 , 49 , _
-                 55, 81 , 82 , 86 , 88 )
-    
-    printlog "L10N test - above/below"
-    '/// <b> L10N test - above/below </b>
-    
-    Call hNewDocument
-    
-    '/// Open test file AboveBelow.sxw
-    hFileOpenLocally( sTestFile )
-    
-    
-    '/// Check if reference above/below is changed after language is changed
-    
-    j = UBound(iCountry)
-    for i = 0 to j
-        Call wTypeKeys "<MOD1 Home>"
-        fSetLocale(fGetLanguageName(iCountry(i)))
-        if iCountry(i) < 80 then
-            fSetWestern(fGetLanguageName(iCountry(i)))
-            fSetAsian("Null")
-        else
-            fSetWestern("Null")
-            fSetAsian(fGetLanguageName(iCountry(i)))
-        end if
-    
-        Call wTypeKeys "<F9>"
-        Call wTypeKeys "<Shift Right>"
-        if fGetFieldContent() <> sBelow(i) then
-            Warnlog "Should get " & sBelow(i) & " but get " & fGetFieldContent()
-        end if
-        Call wTypeKeys "<MOD1 End>"
-        Call wTypeKeys "<Shift Left>"
-        if fGetFieldContent() <> sAbove(i) then
-            Warnlog i & " - Should get " & sAbove(i) & " but get " & fGetFieldContent()
-        end if
-    next i
-    
-    ' set back language tabpage values
-    ToolsOptions
-    Call hToolsOptions("LANGUAGESETTINGS","LANGUAGES")
-    UILanguage.Select sUILanguage
-    Gebietsschema.Select sLocale
-    StandardWaehrung.Select sCurrency
-    Westlich.Select sWestern
-    if sAsiancb = true then
-        if sAsiancbChecked = true then Aktivieren.IsChecked
-    end if
-    
-    if sCTLcb = true then
-        if sCTLcbChecked = true then ComplexScriptEnabled.IsChecked
-    end if
-
-    if Asiatisch.IsEnabled and sAsian > 0 then Asiatisch.Select sAsian
-    if LanguageComplexScript.IsEnabled and sCTL > 0 then LanguageComplexScript.Select sCTL
-
-    Kontext "ExtrasOptionenDlg"
-    ExtrasOptionenDlg.Ok
-    
-    Call hCloseDocument
-
-endcase
-
-'-----------------------------------------------------------------
-
-testcase tL10NtestDate
-    if iSprache <> 1 then
-        QaErrorLog "Currently no any other language than English. Aborting."
-        exit sub
-    end if
-    
-    Dim sTestFile    as String
-    Dim sDate()      as String
-    Dim iCountry()   as Integer
-    Dim i , j        as Integer
-
-    Dim sUILanguage as integer, sLocale as integer
-    Dim sCurrency as integer, sWestern as integer, sAsian as integer, sCTL as integer
-    Dim sAsiancb as boolean, sCTLcb as boolean
-    Dim sAsiancbChecked as boolean, sCTLcbChecked as boolean
-    
-    if iSprache <> 01 then
-        QAErrorlog "This is a English-only testcase"
-        goto endsub
-    end if
-    
-    Call hNewDocument
-    ' Get current settings on language tabpage and remember
-    ToolsOptions
-    Call hToolsOptions("LANGUAGESETTINGS","LANGUAGES")
-    sUILanguage = UILanguage.GetSelIndex
-    sLocale = Gebietsschema.GetSelIndex
-    sCurrency = StandardWaehrung.GetSelIndex
-    sWestern = Westlich.GetSelIndex
-    if Asiatisch.IsEnabled then sAsian = Asiatisch.GetSelIndex
-    if LanguageComplexScript.IsEnabled then sCTL = LanguageComplexScript.GetSelIndex
-    sAsiancb = Aktivieren.IsEnabled
-    sCTLcb = ComplexScriptEnabled.IsEnabled
-    sAsiancbChecked = Aktivieren.IsChecked
-    sCTLcbChecked = ComplexScriptEnabled.IsChecked
-    Kontext "ExtrasOptionenDlg"
-    ExtrasOptionenDlg.Cancel
-    Call hCloseDocument
-  
-	sTestFile   = Convertpath (gTesttoolpath + "writer\optional\input\fields\Date.sxw")
-    sDate  = Array( _
-           "Tuesday, August 3, 2004"    , _
-           "mardi 3 août 2004"    , _
-           "martes, 3 de agosto de 2004"    , _
-           "martedì 3 agosto 2004"    , _
-           "tisdag 3 augusti 2004"    , _
-           "Dienstag, 3. August 2004"    , _
-           "Terça-feira, 3 de Agosto de 2004"    , _
-           "2004年8月3日（火曜日）"    , _
-           "04-8-3 화요일"    , _
-           "2004年8月3日 星期二"    , _
-           "中華民國93年8月3日 星期二"    , _
-          )
-    iCountry = Array ( 1 , 33 , 34 , 39 , 46 , 49 , _
-             55, 81 , 82 , 86 , 88 )
-
-    printlog "L10N test - Date"
-    '/// <b> L10N test - Date </b>
-    
-    Call hNewDocument
-    
-    '/// Open test file Date.sxw
-    hFileOpenLocally( sTestFile )
-    
-    '/// Check if Date is changed after language is changed
-    j = UBound(iCountry)
-    for i = 0 to j
-        Call wTypeKeys "<MOD1 Home>"
-        fSetLocale(fGetLanguageName(iCountry(i)))
-        if iCountry(i) < 80 then
-            fSetWestern(fGetLanguageName(iCountry(i)))
-            fSetAsian("Null")
-        else
-            fSetWestern("Null")
-            fSetAsian(fGetLanguageName(iCountry(i)))
-        end if
-    
-        Call wTypeKeys "<F9>"
-        Call wTypeKeys "<Shift Right>"
-        if fGetFieldContent() <> sDate(i) then
-            Warnlog i & " - Should get " & sDate(i) & " but get " & fGetFieldContent()
-        end if
-    next i
-    
-    ' set back language tabpage values
-    ToolsOptions
-    Call hToolsOptions("LANGUAGESETTINGS","LANGUAGES")
-    UILanguage.Select sUILanguage
-    Gebietsschema.Select sLocale
-    StandardWaehrung.Select sCurrency
-    Westlich.Select sWestern
-    if sAsiancb = true then
-        if sAsiancbChecked = true then Aktivieren.IsChecked
-    end if
-    
-    if sCTLcb = true then    
-        if sCTLcbChecked = true then ComplexScriptEnabled.IsChecked
-    end if
-
-    if Asiatisch.IsEnabled and sAsian > 0 then Asiatisch.Select sAsian
-    if LanguageComplexScript.IsEnabled and sCTL > 0 then LanguageComplexScript.Select sCTL
-
-    Kontext "ExtrasOptionenDlg"
-    ExtrasOptionenDlg.Ok
-
-    Call hCloseDocument
-
-endcase
-
-'-----------------------------------------------------------------
-
-testcase tL10NtestTime
-    if iSprache <> 1 then
-        QaErrorLog "Currently no any other language than English. Aborting."
-        goto endsub
-    end if
-
-    Dim sTestFile as String
-    Dim sTime() as String
-    Dim iCountry() as Integer
-    Dim i as Integer
-    Dim j as Integer
-
-    Dim sUILanguage as integer, sLocale as integer
-    Dim sCurrency as integer, sWestern as integer, sAsian as integer, sCTL as integer
-    Dim sAsiancb as boolean, sCTLcb as boolean
-    Dim sAsiancbChecked as boolean, sCTLcbChecked as boolean
-    
-    if iSprache <> 01 then
-        QAErrorlog "This is a English-only testcase"
-        goto endsub
-    end if
-    
-    Call hNewDocument
-    ' Get current settings on language tabpage and remember
-    ToolsOptions
-    Call hToolsOptions("LANGUAGESETTINGS","LANGUAGES")
-    sUILanguage = UILanguage.GetSelIndex
-    sLocale = Gebietsschema.GetSelIndex
-    sCurrency = StandardWaehrung.GetSelIndex
-    sWestern = Westlich.GetSelIndex
-    if Asiatisch.IsEnabled then sAsian = Asiatisch.GetSelIndex
-    if LanguageComplexScript.IsEnabled then sCTL = LanguageComplexScript.GetSelIndex
-    sAsiancb = Aktivieren.IsEnabled
-    sCTLcb = ComplexScriptEnabled.IsEnabled
-    sAsiancbChecked = Aktivieren.IsChecked
-    sCTLcbChecked = ComplexScriptEnabled.IsChecked
-    Kontext "ExtrasOptionenDlg"
-    ExtrasOptionenDlg.Cancel
-    Call hCloseDocument
-  
-
-	sTestFile = gTesttoolpath + "writer\optional\input\fields\Time.sxw"
-    sTime  = Array( _
-               "04:46:08 PM"     , _
-               "04:46:08 PM"     , _
-               "04:46:08 PM"     , _
-               "04.46.08 p."     , _
-               "04:46:08 em"     , _
-               "04:46:08 nachm." , _
-               "04:46:08 PM"     , _
-               "午後 4:46:08"  , _
-               "오후 4시 46분 8초"    , _
-               "下午 04:46:08" , _
-               "下午 04:46:08" , _
-              )
-    iCountry = Array ( 1 , 33 , 34 , 39 , 46 , 49 , _
-                 55, 81 , 82 , 86 , 88 )
-    
-    printlog "L10N test - time"
-    '/// <b> L10N test - time </b>
-    
-    Call hNewDocument
-    
-    '/// Open test file Time.sxw
-    hFileOpenLocally( sTestFile )
-    
-    '/// Check if time is changed after language is changed
-    j = UBound(iCountry)
-    for i = 0 to j
-        Call wTypeKeys "<MOD1 Home>"
-        fSetLocale(fGetLanguageName(iCountry(i)))
-        if iCountry(i) < 80 then
-            fSetWestern(fGetLanguageName(iCountry(i)))
-            fSetAsian("Null")
-        else
-            fSetWestern("Null")
-            fSetAsian(fGetLanguageName(iCountry(i)))
-        end if
-    
-        Call wTypeKeys "<F9>"
-        Call wTypeKeys "<Shift Right>"
-        if fGetFieldContent() <> sTime(i) then
-            Warnlog i & " - Should get " & sTime(i) & " but get " & fGetFieldContent()
-        end if
-    next i
-    
-    ' set back language tabpage values
-    ToolsOptions
-    Call hToolsOptions("LANGUAGESETTINGS","LANGUAGES")
-    UILanguage.Select sUILanguage
-    Gebietsschema.Select sLocale
-    StandardWaehrung.Select sCurrency
-    Westlich.Select sWestern
-    if sAsiancb = true then
-        if sAsiancbChecked = true then Aktivieren.IsChecked
-    end if
-    
-    if sCTLcb = true then    
-        if sCTLcbChecked = true then ComplexScriptEnabled.IsChecked
-    end if
-
-    if Asiatisch.IsEnabled and sAsian > 0 then Asiatisch.Select sAsian
-    if LanguageComplexScript.IsEnabled and sCTL > 0 then LanguageComplexScript.Select sCTL
-
-    Kontext "ExtrasOptionenDlg"
-    ExtrasOptionenDlg.Ok
-
-    Call hCloseDocument
-
-endcase
-
-'-----------------------------------------------------------------
diff --git a/testautomation/writer/optional/includes/filter/w_filter.inc b/testautomation/writer/optional/includes/filter/w_filter.inc
deleted file mode 100644
index 43a47baf0d2a..000000000000
--- a/testautomation/writer/optional/includes/filter/w_filter.inc
+++ /dev/null
@@ -1,608 +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 : helge.delfs@oracle.com
-'*
-'* short description :
-'*
-'*******************************************************************
-' #1 tSammleImportFilter
-' #1 tCollectSaveAsFilter
-' #1 tCollectExportFilters
-' #1 fReadComparePrintLists
-' #1 tGroupNameCheck
-'\******************************************************************
-
-testcase tSammleImportFilter
-'/// compare IST- with SOLL- import filter state ///'
-
- Dim i as Integer
- Dim j as Integer
- Dim x as Integer
- Dim Ende as Integer
- Dim EndeSoll as Integer
-
-' Dim Zaehler as Integer               ' count entries with "(STAROFFICE WRITER)" in IST
- Dim gZaehler  as Integer             ' do the same as 'i' in 'compare for-next' ?
- Dim gZaehler2  as Integer             ' do the same as 'i' in 'compare for-next' ?
-
- Dim lsListe(350) as String           ' IST list gets generated with tested SO and written into
- Dim Eintrag as String                ' during compare: entry (i) from IST list
- Dim lsListeFail(350) as String       ' List that gets set from the compare function, if anny filters are not available, optional parammeter to function
-
-'----new implementation of filter lists
- Dim sPlatform                        as String
- Dim fStandardFilterList              as String
- Dim fStandardLanguageFilterList      as String
- Dim fExceptionLanguageFilterList     as String
- Dim fCompleteDiffFilterList          as String
- Dim fW4WDiffFilterList               as String
- Dim fActualFilterFile                as String
- Dim fSortedFilterFile                as String
- Dim iFilterCount                     as Integer
- Dim a as integer
- Dim b as integer
- Dim c as integer
-'--------------------------------------
-
-' INIT Stuff
-   gZaehler = 0
-   lsListe(0)=0
-
-'/// There are 3 files with filter lists ///'
-'///+ 1. Language independent, System independent, Standard installation                 : if_st_all.txt     ///'
-'///+ 2. Language   dependent, System independent, Standard installation                 : if_st_xx_all.txt ///'
-'///+ 2. Language   dependent, System independent, Standard installation, Exceptions     : if_st_xx_exe.txt ///'
-'///+ 3. Language independent, System dependent, Complete installation diff to 1.) & 2.) : if_cod_xxx.txt  ///'
-'///+ 3. Language independent, System dependent, Standard installation diff to 1.)       : if_w4w_xxx.txt  ///'
-'///+ they are all found in "input\\writer\\la_sp\\" ///'
-'/// System depends on: w95, sol, lin; if system is not regcognizeable: Fallback to lin ///'
-'///+ Path to filter lists: 'input\\writer\\la_sp\\' ///
-'///+ Filter files have to be saved as Unicode UTF8 encoded ///'
-
-' since utf8 encoding isn't supported as list-write-format it doesn't make sense to save the list
-
-   ' set Platform variable
-   'printlog "  + + +  gPCName: "+ gPCName+ " gPlatgroup: "+ gPlatgroup +" gPlatform: "+ gPlatform + " gSYSName: "+gSYSName
-   select case gPlatgroup
-      case "w95"   : sPlatform = "w95"
-      case "unx"   :
-         select case gPlatform
-            case "lin"   : sPlatform = "lin"
-            case "x86"   : sPlatform = "lin" ' i think there were w4w licensing problems
-            case "sol"   : sPlatform = "w95"
-            case else : sPlatform = "lin"  ' minimal filter list
-         end select
-      case else : sPlatform = "lin"  ' minimal filter list
-   end select
-
-   'this one gets hard coded!
-   fStandardFilterList = ConvertPath(gTesttoolPath + "writer\optional\input\filter\if_st_all." + "txt")
-   fStandardLanguageFilterList = ConvertPath(gTesttoolPath + "writer\optional\input\filter\if_st_"+ iSprache+"_all." + "txt")
-   fExceptionLanguageFilterList = ConvertPath(gTesttoolPath + "writer\optional\input\filter\if_st_"+ iSprache+"_exe." + "txt")
-
-   fCompleteDiffFilterList = ConvertPath(gTesttoolPath + "writer\optional\input\filter\if_cod_" + sPlatform + ".txt")
-   fW4WDiffFilterList = ConvertPath(gTesttoolPath + "writer\optional\input\filter\if_w4w_" + sPlatform + ".txt")
-
-   fActualFilterFile = ConvertPath(gTesttoolPath + "writer\optional\input\filter\actual.txt") 'unsorted
-   fSortedFilterFile = ConvertPath(gTesttoolPath + "writer\optional\input\filter\sorted.txt") 'sorted
-
-'' generate IST-list and write to file ///'
-   FileOpen
-   sleep (3)
-   Kontext "OeffnenDlg"
-   sleep (3)
-   iFilterCount = Dateityp.GetItemCount ' have to substract already used ones at the end somewhere...
-   sleep (3)
-   for i=1 to Dateityp.GetItemCount
-      ListAppend ( lsListe(), DateiTyp.GetItemText (i) )
-   next i
-   OeffnenDlg.Cancel
-   'ListWrite(lsListe(),fActualFilterFile, "utf8")
-   'Call ListCopy(lsListe(),lsListeSort())
-   Call ListSort(lsListe())
-   'ListWrite(lsListe(),fSortedFilterFile, "utf8")
-   '   printlog "-------------------------------------------------------------"
-   '         for i=1 to ListCount ( lsListeSort() )
-   '             printlog lsListeSort(i)
-   '         next i
-   '   printlog "-------------------------------------------------------------"
-   'Printlog "- Got Filters from Office; written to: " + fActualFilterFile + "; Count: "+ ListCount (lsListe())
-   'Printlog "- Got Filters from Office; written to: " + fSortedFilterFile + chr(13)
-
-   lsListeFail(0) = 0
-   printlog "'///- comparing ## Language independent ## Standard installation ## filters with existing ones"
-   printlog "----- found : "+ fReadComparePrintLists (fStandardFilterList, lsListe(),lsListeFail()) + chr(13)
-
-   a = ListCount (lsListeFail()) ' not found filters
-   if (a > 0) then ' sort out filters for platforms, where we don't have licenses for OR the translator has good reasons....(swedish)
-      if (iSprache = 46) then
-         b = fReadComparePrintLists (fExceptionLanguageFilterList, lsListeFail())
-         printlog "----- found : "+ b + chr(13)
-         if (ListCount (lsListeFail()) <> 0) then
-            a = ListCount ( lsListeFail() )
-            for i=1 to a
-               Printlog lsListeFail(i)
-            next i
-            printlog "----- NOT found : "+ c + chr(13)
-         else
-            qaErrorLog "--------- EVERYTHING is fine now, ignore every failure above about not found filters! :-) --------------"
-         end if
-      end if
-      if (sPlatform = "lin") then
-         qaErrorLog "ok there are failures, lets check them: sort out filters that are not allowed on this platform! (LINUX) :-)"
-         b = fReadComparePrintLists (fW4WDiffFilterList, lsListeFail())
-         printlog "----- found : "+ b + chr(13)
-         if (ListCount (lsListeFail()) <> 0) then
-            warnlog "By now, there are STILL some Filters realy missing :-("
-            c = ListCount ( lsListeFail() )
-            for i=1 to c
-               Printlog lsListeFail(i)
-            next i
-            printlog "----- NOT found : "+ c + chr(13)
-         else
-            qaErrorLog "--------- EVERYTHING is fine now, ignore every failure above about not found filters! :-) --------------"
-         end if
-      else
-         Warnlog ("The above filters are missing: " + a)
-      end if
-   end if
-
-   printlog "'///- comparing ## Language   dependent ## Standard installation ## filters with existing ones"
-   b = fReadComparePrintLists (fStandardLanguageFilterList, lsListe())
-   printlog "----- found : "+ b + chr(13)
-   if b = 0 then
-      warnlog "         No filters found :-( - maybe because list-file is empty, please create it!"
-      warnlog "         take the file </testtool/input/writer/la_sp/if_st_1.all> and put all filters for this language on the same position into the file: " +fStandardLanguageFilterList
-   end if
-   a = ListCount (lsListeFail()) ' not found filters
-   if (a > 0) then
-      Warnlog ("The above filters are missing: " + a)
-   end if
-
-    '///' delete ------------ filters from IST-list (used filters appear twice) ///'
-    '/// <font color=#ff0000> TBO TODO: select them! nice behaviour i think :-) </FONT> ///'
-         printlog "- remove seperators ----------------------------"
-         gZaehler2 = 0
-         for i=1 to ListCount ( lsListe() )
-            Eintrag = lsListe(i)
-            if instr(Eintrag,"---------") then
-             gZaehler2 = gZaehler2 + 1
-             ListDelete ( lsListe(), i )               ' delete seperator
-             i=i-1                                     ' so the i-counter has to be decremented by one
-            end if
-         next i
-         printlog "   + (" + gZaehler2 + "/8) seperators are available."
-         if gZaehler2 <> 8 then
-            warnlog " there are seperators missing or too much :-("
-            Printlog " check if all groups are available! the groupnames can be found in the tostcase <tGroupNameCheck> later on"
-            warnlog " !!! NO FILTER IS ALLOWED TO HAVE THE SAME NAME AS ANY GROUPNAME !!! because than this group won't show up in the FileOpen Dialog!"
-         end if
-   '///' delete <...> filters from IST-list (used filters appear twice) ///'
-         printlog "- Already used filters in previous tests."
-         gZaehler = 0
-         for i=1 to ListCount ( lsListe() )
-            Eintrag = lsListe(i)
-            if Left$(Eintrag,1) = "<" and Right$(Eintrag,1) = ">" then
-             gZaehler = gZaehler + 1
-              printlog "" + Eintrag
-             ListDelete ( lsListe(), i )               ' delete already used filter (i)
-             i=i-1                                     ' so the i-counter has to be decremented by one
-            end if
-         next i
-         printlog "   + " + gZaehler + " Filters have been used in previous tests."
-         printlog "++++++ this was now : " + (iFilterCount - gZaehler - gZaehler2) +" existing filters in office"
-
-   if ListCount (lsListe()) > 50 then
-      printlog chr(13)+"'/// - this is a COMPLETE Installation ?! (>50 filters still available): "+ListCount (lsListe()) + chr(13)
-      printlog "'///- comparing  ## Language independent ## Complete installation ## filters with existing ones"
-      printlog "----- found : "+ fReadComparePrintLists (fCompleteDiffFilterList, lsListe()) + chr(13)
-   else
-      printlog chr(13)+"'/// - this is a STANDARD Installation ?! (<50 filters still available): "+ListCount (lsListe()) + chr(13)
-   end if
-
-   if ListCount ( lsListe() ) <> 0 then
-      printlog Chr(13)
-      Warnlog "*** The following Filters are available, but nobody wants them??'!" + "; Count: "+ ListCount (lsListe())
-      Warnlog ("please compare them to the missing ones from above!")
-      for i=1 to ListCount ( lsListe() )
-         Printlog lsListe(i)
-      next i
-   end if
-endcase
-
-'------------------------------------------------------------------------------------------------------------------------------
-
-testcase tCollectSaveAsFilter
- Dim i as Integer
- Dim j as Integer
- Dim x as Integer
-
- Dim lsListe(350)      as String           ' IST list gets generated with tested SO and written into
- Dim iFilterCount      as Integer
- Dim fActualFilterFile as String
- Dim fSortedFilterFile as String
-
-   ListAllDelete(lsListe())
-   x = 0
-
-   fActualFilterFile = ConvertPath(gOfficePath + "user/work/sa_actua."+iSprache) 'unsorted
-   fSortedFilterFile = ConvertPath(gOfficePath + "user/work/sa_sorte."+iSprache) 'sorted
-
-'/// go into every application and print out the filters found under 'File -> SaveAs' ///'
-   for j = 1 to 7
-      select case j
-         case 1: gApplication = "WRITER"
-         case 2: gApplication = "CALC"
-         case 3: gApplication = "IMPRESS"
-         case 4: gApplication = "DRAW"
-         case 5: gApplication = "MASTERDOCUMENT"
-         case 6: gApplication = "MATH"
-         case 7: gApplication = "HTML"
-      end select
-      hNewDocument()
-   '' generate IST-list and write to file ///'
-      FileSaveAs
-      sleep (3)
-      Kontext "SpeichernDlg"
-      sleep (3)
-      iFilterCount = Dateityp.GetItemCount ' have to substract already used ones at the end somewhere...
-      x = x + iFilterCount
-      sleep (3)
-      printlog " ---- " + gApplication + " : " + iFilterCount
-      for i=1 to Dateityp.GetItemCount
-         ListAppend ( lsListe(), DateiTyp.GetItemText (i) )
-         Printlog DateiTyp.GetItemText (i)
-      next i
-      Printlog "-----------------------------------------------"
-      SpeichernDlg.Cancel
-      hCloseDocument()
-   next j
-
-   Printlog chr(13)+" This are "+ x + " - from 85 expected." + chr(13)
-   if x <> 85 then warnlog "Somewhere Over the rainbow... there are filters missing / too much :-("
-
-   if (app.dir(fActualFilterFile) = "") then
-      Call ListWrite(lsListe(),fActualFilterFile, "utf8")
-      Printlog "- Got Filters from Office; written to: " + fActualFilterFile + "; Count: "+ ListCount (lsListe())
-   end if
-   if (app.dir(fSortedFilterFile) = "") then
-      Call ListSort(lsListe())
-      Call ListWrite(lsListe(),fSortedFilterFile, "utf8")
-      Printlog "- Got Filters from Office; written to: " + fSortedFilterFile + chr(13)
-   end if
-endcase
-
-'------------------------------------------------------------------------------------------------------------------------------
-
-testcase tCollectExportFilters
- Dim i as Integer
- Dim j as Integer
- Dim x as Integer
-
- Dim lsListe(350)      as String           ' IST list gets generated with tested SO and written into
- Dim iFilterCount      as Integer
- Dim fActualFilterFile as String
- Dim fSortedFilterFile as String
-
-   ListAllDelete(lsListe())
-   x = 0
-
-   fActualFilterFile = ConvertPath(gOfficePath + "user/work/ex_actua."+iSprache) 'unsorted
-   fSortedFilterFile = ConvertPath(gOfficePath + "user/work/ex_sorte."+iSprache) 'sorted
-
-'/// go into every application and print out the filters found under 'File -> SaveAs' ///'
-   for j = 1 to 7
-      select case j
-         case 1: gApplication = "WRITER"
-         case 2: gApplication = "CALC"
-         case 3: gApplication = "IMPRESS"
-         case 4: gApplication = "DRAW"
-         case 5: gApplication = "MASTERDOCUMENT"
-         case 6: gApplication = "MATH"
-         case 7: gApplication = "HTML"
-      end select
-      hNewDocument()
-   '' generate IST-list and write to file ///'
-      FileExport
-      sleep (3)
-      Kontext "SpeichernDlg"
-      sleep (3)
-      iFilterCount = Dateityp.GetItemCount ' have to substract already used ones at the end somewhere...
-      x = x + iFilterCount
-      sleep (3)
-      printlog " ---- " + gApplication + " : " + iFilterCount
-      for i=1 to Dateityp.GetItemCount
-         ListAppend ( lsListe(), DateiTyp.GetItemText (i) )
-         Printlog DateiTyp.GetItemText (i)
-      next i
-      Printlog "-----------------------------------------------"
-      SpeichernDlg.Cancel
-      hCloseDocument()
-   next j
-
-    Printlog chr(13)+" This are "+ x + " - from 65 expected." + chr(13)
-    if x <> 65 then warnlog "Somewhere Over the rainbow... there are filters missing / too much :-("
-
-   if (app.dir(fActualFilterFile) = "") then
-      Call ListWrite(lsListe(),fActualFilterFile, "utf8")
-      Printlog "- Got Filters from Office; written to: " + fActualFilterFile + "; Count: "+ ListCount (lsListe())
-   end if
-   if (app.dir(fSortedFilterFile) = "") then
-      Call ListSort(lsListe())
-      Call ListWrite(lsListe(),fSortedFilterFile, "utf8")
-      Printlog "- Got Filters from Office; written to: " + fSortedFilterFile + chr(13)
-   end if
-' Should look like this:
-' ---- WRITER : 3
-'PDF - Portable Document Format (.pdf)
-'------------------------------------------
-'XHTML (.xhtml)
-'-----------------------------------------------
-' ---- CALC : 3
-'PDF - Portable Document Format (.pdf)
-'------------------------------------------
-'XHTML (.xhtml)
-'-----------------------------------------------
-' ---- IMPRESS : 23
-'HTML Document (StarOffice Impress) (.html;.htm)
-'PDF - Portable Document Format (.pdf)
-'Macromedia Flash (SWF) (.swf)
-'------------------------------------------
-'BMP - Windows Bitmap (.bmp)
-'EMF - Enhanced Metafile (.emf)
-'EPS - Encapsulated PostScript (.eps)
-'GIF - Graphics Interchange Format (.gif)
-'JPEG - Joint Photographic Experts Group (.jpg;.jpeg;.jfif;.jif;.jpe)
-'MET - OS/2 Metafile (.met)
-'PBM - Portable Bitmap (.pbm)
-'PCT - Mac Pict (.pct)
-'PGM - Portable Graymap (.pgm)
-'PNG - Portable Network Graphic (.png)
-'PPM - Portable Pixelmap (.ppm)
-'PWP - PlaceWare (.pwp)
-'RAS - Sun Raster Image (.ras)
-'SVG - Scalable Vector Graphics (.svg)
-'SVM - StarView Metafile (.svm)
-'TIFF - Tagged Image File Format (.tif;.tiff)
-'WMF - Windows Metafile (.wmf)
-'XPM - X PixMap (.xpm)
-'XHTML (.xhtml)
-'-----------------------------------------------
-' ---- DRAW : 22
-'HTML Document (StarOffice Draw) (.html;.htm)
-'PDF - Portable Document Format (.pdf)
-'Macromedia Flash (SWF) (.swf)
-'------------------------------------------
-'BMP - Windows Bitmap (.bmp)
-'EMF - Enhanced Metafile (.emf)
-'EPS - Encapsulated PostScript (.eps)
-'GIF - Graphics Interchange Format (.gif)
-'JPEG - Joint Photographic Experts Group (.jpg;.jpeg;.jfif;.jif;.jpe)
-'MET - OS/2 Metafile (.met)
-'PBM - Portable Bitmap (.pbm)
-'PCT - Mac Pict (.pct)
-'PGM - Portable Graymap (.pgm)
-'PNG - Portable Network Graphic (.png)
-'PPM - Portable Pixelmap (.ppm)
-'RAS - Sun Raster Image (.ras)
-'SVG - Scalable Vector Graphics (.svg)
-'SVM - StarView Metafile (.svm)
-'TIFF - Tagged Image File Format (.tif;.tiff)
-'WMF - Windows Metafile (.wmf)
-'XPM - X PixMap (.xpm)
-'XHTML (.xhtml)
-'-----------------------------------------------
-' ---- GLOBALDOC : 7
-'PDF - Portable Document Format (.pdf)
-'------------------------------------------
-'StarOffice 6.0 Text Document  (.sxw)
-'StarWriter 5.0  (.sdw)
-'StarWriter 4.0  (.sdw)
-'StarWriter 3.0  (.sdw)
-'Open Office Text (.oot)
-'-----------------------------------------------
-' ---- MATH : 1
-'PDF - Portable Document Format (.pdf)
-'-----------------------------------------------
-' ---- HTML : 7
-'PDF - Portable Document Format (.pdf)
-'------------------------------------------
-'StarOffice Text Document (StarOffice Writer/Web) (.sxw)
-'StarWriter 5.0 (StarOffice Writer/Web) (.sdw)
-'StarWriter 4.0 (StarOffice Writer/Web) (.sdw)
-'StarWriter 3.0 (StarOffice Writer/Web) (.sdw)
-'Open Office Text (StarOffice Writer/Web) (.oot)
-'-----------------------------------------------
-endcase
-
-function fReadComparePrintLists (fFilterList as string, gFilterList() as string, optional gFilterListFail() as string) as integer
-'/// input :  filename of the to load list, existing list, return filter list of fails ///'
-'///+ output:  changed existing list, generates file of list, if not available.. sometimes ///'
-'///+          count of found list entries  ///'
-'///+          optional gFilterListFail gets set to the missing filters, for further evaluation! ///
-'///+ function: loads list from file, searches, prints, deletes found listentries from given list ///'
-'///+            prints listentries from loaded list, which were not found ///'
-
- Dim lFilterList(350)     as String
- Dim Eintrag     as String
- Dim i as Integer
- Dim j as Integer
- Dim x as Integer
- Dim Ende as Integer
- Dim EndeSoll as Integer
- Dim gZaehler as Integer             ' do the same as 'i' in 'compare for-next' ?
-
-'----temp stuff only used, if filternames change again :-[
- Dim lsTemp(350) as String
- dim iTemp as integer
- dim sTemp as string
- dim fTempFilterList as string
-'--------------------------------------
-
- lFilterList(0) = 0
- fReadComparePrintLists = -1 ' worst case
-
-'/// read Standard-list ONE from file ///'
-   if Dir ( fFilterList ) <> "" then
-      ListRead ( lFilterList(), fFilterList, "utf8" )
-      Printlog "  - Read Filters-to-find-List from: " + fFilterList + "; Count: "+ ListCount (lFilterList())
-      '------------temp stuff------------- to get the part in braces '()'
-      '   lsTemp(0) = 0
-      '   for iTemp =1 to ListCount (lFilterList())
-      '      sTemp = lFilterList(iTemp)
-      '      ListAppend (lsTemp(), mid (sTemp, inStr(sTemp, "("), len(stemp)+1-inStr(sTemp, "(") ))
-      '      Printlog " " + lsTemp(iTemp)
-      '   next iTemp
-      '   fTempFilterList = ConvertPath(gTesttoolPath + "writer\optional\input\filter\if_st_XX_all_ext.txt")
-      '   ListRead ( lsTemp(), fTempFilterList, "utf8" )
-      '   for iTemp =1 to ListCount (lFilterList())
-      '      sTemp = lFilterList(iTemp) + lsTemp(iTemp)
-      '      Printlog " " + sTemp
-      '      lsTemp(iTemp) = sTemp
-      '   next iTemp
-      '   ListWrite ( lsTemp(), fFilterList+"X", "utf8" )
-      '-----------------------------------
-'/// delete ONE filters from both, IS and ONE, lists and print out found & not found ones ///'
-      Call ListSort(lFilterList())
-      Call ListSort(gFilterList())
-      printlog "  - List Filters which have been found in both Lists:"
-      x=0 ' count found filters
-      Ende = ListCount ( gFilterList() )
-      for i=1 to Ende
-          gZaehler = gZaehler + 1
-          Eintrag = gFilterList(i)
-          for j=1 to ListCount ( lFilterList() )
-             if Eintrag = lFilterList(j) then          ' if entry found -> delete from IST & SOLL list
-                Printlog "    - " + lFilterList(j)
-                x=x+1
-                ListDelete ( lFilterList(), j )
-            ' don't modify the gFilterList, copy the not found entry to new global list !!!!
-                ListDelete ( gFilterList(), i )
-                i=i-1
-         ' here i have to check the function, how a list gets deleted... ! i think evrything from that entry on moves one up
-                j = 1000                               ' goto next entry
-'                Fehler = FALSE                         ' -> found state
-             else
-'                Fehler = TRUE
-             end if
-          next j
-          if gZaehler = Ende then i=1000       ' Abbruch, weil die Schleife einmal druchgegangen ist
-      next i
-      'printlog "+++ these are " + x
-   else
-      warnlog " Missing list file, create empty file: "+fFilterList
-      ListWrite ( lFilterList(), fFilterList, "utf8")
-   end if
-   '/// print filters which were not found from ONE list ///'
-   if ListCount ( lFilterList() ) <> 0 then
-      qaErrorLog "The following filters aren't available in the Office! look what happend to them !!!" + "; Count: "+ ListCount (lFilterList())
-      for i=1 to ListCount ( lFilterList() )
-         Printlog "" + lFilterList(i)
-      next i
-      ListCopy (lFilterList(), gFilterListFail())
-   else
-      ListAllDelete (gFilterListFail())
-   end if
-   fReadComparePrintLists = x
-end function
-
-'------------------------------------------------------------------------------------------------------------------------------
-
-testcase tGroupNameCheck
-    if gPlatGroup = "unx" then
-        Printlog "No testing under Unix/Linux. Exiting testcase."
-        goto endsub
-    end if
-
-'///' inspired from #97305 : 86+88: missing import filters in fileopen dialog ///'
-'///+' -> 97723 97758 ///'
-'///' solution for sucha problem is, that the group name (Webseiten) is the same as a filtername (Webseite) in the translation. ///'
-'///+' so you have to keep an eye on the names in 'UI.xml' & 'TypeDetection.xml' from '\share\config\registry\instance\org\openoffice\Office' ///'
-'///+' they have to be different! ///'
-
-  Dim saGroups (50) as string
-  dim i as integer
-
-'TypeDetection.xml
-   saGroups (0)=0
-' cfg:value; xml:lang = de...
-'   saGroups = TBOXMLGetFirstCharsForElement ( "UI;FilterClassification;GlobalFilters;Classes;FilterClass;DisplayName;cfg:value", UIxml, TRUE )
-   TBOXMLGetListOfFilterGroups (iSprache, saGroups ())
-   for i = 1 to ListCount (saGroups())
-      Printlog " "+i+": '" + saGroups(i)+"'"
-   next i
-endcase
-
-function TBOXMLGetListOfFilterGroups ( iLang as integer, sList() as string  ) as String
-'/// parse xml file for special needs ///'
-  dim sElementLine as String
-  dim sXMLFile as String
-
-  Dim bCloseLocal as Boolean
-  dim i as integer
-  Dim x as integer
-  Dim y as integer
-  dim sLang, sClass as string
-  dim iAttrCount as integer
-
-   sElementLine = "UI;FilterClassification;GlobalFilters;Classes"
-   sXMLFile = gNetzOfficePath & ConvertPath("Basis\share\registry\res\" + gISOLang + "\org\openoffice\Office\UI.xcu")
-
-   if (dir(sXMLFile) = "") then
-       qaErrorLog "File doesn't exist :-( '" + sXMLFile + "'"
-       exit function
-   end if
-   SAXReadFile ( sXMLFile )
-   bCloseLocal = TRUE
-   call hXMLGotoElement ( sElementLine )
-
-   for i = 1 to SAXGetChildCount
-      SAXSeekElement ( i )
-'      if SAXGetNodeType <> NodeTypeCharacter then
-'         Printlog "             '"+SAXGetAttributeName (1) +"' : '"+SAXGetAttributeValue (1) +"' :"
-         for y = 1 to SAXGetChildCount
-            SAXSeekElement ( y )
-            SAXSeekElement ( 1 )
-            sLang = SAXGetAttributeValue (1)
-            SAXSeekElement ( 1 )
-            if (y = 1) then
-'               if SAXGetNodeType = NodeTypeCharacter then Printlog " "+ConvertLanguage2( slang )+":"+slang +":"+i+":"+SAXGetChars
-               if (ConvertLanguage2( slang, TRUE ) = iLang) then ListAppend (sList(),SAXGetChars)
-            else
-'               if SAXGetNodeType = NodeTypeCharacter then Printlog " "+":"+slang +":"+i+":"+SAXGetChars
-            end if
-            SAXSeekElement ( 0 )
-            SAXSeekElement ( 0 )
-            SAXSeekElement ( 0 )
-         next y
-'      end if
-      SAXSeekElement ( 0 )
-   next i
-   if bCloseLocal = TRUE then SAXRelease
-end function
-
diff --git a/testautomation/writer/optional/includes/fontwork/w_fontwork1.inc b/testautomation/writer/optional/includes/fontwork/w_fontwork1.inc
deleted file mode 100644
index 6fff78a962fe..000000000000
--- a/testautomation/writer/optional/includes/fontwork/w_fontwork1.inc
+++ /dev/null
@@ -1,400 +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 : helge.delfs@oracle.com
-'*
-'* short description : Test Format/Fontwork
-'*
-'************************************************************************
-'*
-' #1 tFontWork_1
-' #1 tFontWork_2
-' #1 tFontWork_3
-' #1 tFontWork_4
-' #1 tFontWork_5
-' #1 tFontWork_6
-'*
-'\***********************************************************************
-
-testcase tFontWork_1
-
-    Dim i as Integer
-    
-    printLog Chr(13) + "- Test pre-defined shapes (upper/lower Semicircle,...) to the selected text object"
-    '/// Test pre-defined shapes (upper/lower Semicircle,...) to the selected text object
-    
-    Call hNewDocument
-    
-    Call wZeichenobjektEinfuegen("TEXT", 30, 40, 60, 60)
-    Call wTypeKeys "First Line<Return>"
-    Call wTypeKeys "Second Line<Return>"
-    Call wTypeKeys "Third Line<Return>"
-    Kontext "DocumentWriter"
-    Call wTypeKeys "<ESCAPE>"
-    
-    '/// format/fontwork
-    FormatFontWork
-    Kontext
-    Kontext "Fontwork"
-    
-    '/// test Rotate
-    Drehen.Click
-    For i = 1 to 12
-        kreisAuswahl.TypeKeys "<Right>"
-        Sleep 3
-    next i
-    
-    '/// test Upright
-    Aufrecht.Click
-    For i = 1 to 12
-        kreisAuswahl.TypeKeys "<Right>"
-        Sleep 3
-    next i
-    
-    '/// test Slant Horizontal
-    HorizontalKippen.Click
-    For i = 1 to 12
-        kreisAuswahl.TypeKeys "<Right>"
-        Sleep 3
-    next i
-    
-    '/// test Slant Vertical
-    VertikalKippen.Click
-    For i = 1 to 12
-        kreisAuswahl.TypeKeys "<Right>"
-        Sleep 3
-    next i
-    
-    Fontwork.Close
-    
-    Call hCloseDocument
-
-endcase
-
-'-------------------------------------------------------------------------
-
-testcase tFontWork_2
-
-    Dim i , j as Integer
-    
-    printLog Chr(13) + "- Test Orientation"
-    '/// Test Orientation
-    
-    Call hNewDocument
-    
-    Call wZeichenobjektEinfuegen("TEXT", 30, 40, 60, 60)
-    Call wTypeKeys "Test"
-    Kontext "DocumentWriter"
-    Call wTypeKeys "<ESCAPE>"
-    
-    '/// format/fontwork
-    FormatFontWork
-    Kontext "Fontwork"
-    
-    '/// Test Orientation in Rotate
-    Drehen.Click
-    kreisAuswahl.TypeKeys "<Right>"
-    Laufrichtgung.Click
-    Sleep 2
-    Laufrichtgung.Click
-    
-    '/// Test Orientation in Upright
-    Aufrecht.Click
-    kreisAuswahl.TypeKeys "<Right>"
-    Laufrichtgung.Click
-    Sleep 2
-    Laufrichtgung.Click
-    
-    '/// Test Orientation in Horizontal
-    HorizontalKippen.Click
-    kreisAuswahl.TypeKeys "<Right>"
-    Laufrichtgung.Click
-    Sleep 2
-    Laufrichtgung.Click
-    
-    '/// Test Orientation in Slant Vertical
-    VertikalKippen.Click
-    kreisAuswahl.TypeKeys "<Right>"
-    Laufrichtgung.Click
-    Sleep 2
-    Laufrichtgung.Click
-    
-    Fontwork.Close
-    
-    Call hCloseDocument
-
-endcase
-
-'-------------------------------------------------------------------------
-
-testcase tFontWork_3
-
-    Dim i , j as Integer
-    
-    printLog Chr(13) + "- Test Align , include Left , Center, Right and Autosize ."
-    '/// Test Align , include Left , Center, Right and Autosize
-    
-    Call hNewDocument
-    
-    Call wZeichenobjektEinfuegen("TEXT", 30, 40, 60, 60)
-    Call wTypeKeys "Test"
-    Kontext "DocumentWriter"
-    Call wTypeKeys "<ESCAPE>"
-    
-    '/// format/fontwork
-    FormatFontWork
-    Kontext "Fontwork"
-    
-    '/// Test Align in Rotate
-    Drehen.Click
-    kreisAuswahl.TypeKeys "<Right>"
-    Linksbuendig.Click
-    Sleep 2
-    Zentriert.Click
-    Sleep 2
-    Rechtsbuendig.Click
-    Sleep 2
-    
-    '/// Test Align in Upright
-    Aufrecht.Click
-    kreisAuswahl.TypeKeys "<Right>"
-    Linksbuendig.Click
-    Sleep 2
-    Zentriert.Click
-    Sleep 2
-    Rechtsbuendig.Click
-    Sleep 2
-    
-    '/// Test Align in Horizontal
-    HorizontalKippen.Click
-    kreisAuswahl.TypeKeys "<Right>"
-    Linksbuendig.Click
-    Sleep 2
-    Zentriert.Click
-    Sleep 2
-    Rechtsbuendig.Click
-    Sleep 2
-    
-    '/// Test Align in Slant Vertical
-    VertikalKippen.Click
-    kreisAuswahl.TypeKeys "<Right>"
-    Linksbuendig.Click
-    Sleep 2
-    Zentriert.Click
-    Sleep 2
-    Rechtsbuendig.Click
-    Sleep 2
-    
-    Fontwork.Close
-    
-    Call hCloseDocument
-
-endcase
-
-'-------------------------------------------------------------------------
-
-testcase tFontWork_4
-
-    Dim sDistance , sIndent as String
-    
-    sDistance = "1" + gSeperator + "00" + gMeasurementUnit
-    sIndent   = "1" + gSeperator + "10" + gMeasurementUnit
-    
-    printLog Chr(13) + "- Test distance and indent"
-    '/// Test distance and indent
-    
-    Call hNewDocument
-    
-    Call wZeichenobjektEinfuegen("TEXT", 30, 40, 60, 60)
-    Call wTypeKeys "Test"
-    Kontext "DocumentWriter"
-    Call wTypeKeys "<ESCAPE>"
-    
-    '/// format/fontwork , set distance and indent
-    FormatFontWork
-    Kontext "Fontwork"
-    Drehen.Click
-    Sleep 4
-    kreisAuswahl.TypeKeys "<Right>"
-    Sleep 5
-    Linksbuendig.Click
-    Sleep 5
-    Abstand.SetText   sDistance
-    Sleep 5
-    Einzug.SetText    sIndent
-    Sleep 5
-    Fontwork.Close
-    Sleep 5
-    
-    FormatFontWork
-    Kontext
-    Kontext "Fontwork"
-    Sleep 2
-    if Left$(Abstand.GetText,4) <> Left$(sDistance,4) then Warnlog "Distance should be "+sDistance+"  but -> "+Abstand.GetText
-    Sleep 2
-    if Left$(Einzug.GetText,4) <> Left$(sIndent,4) then Warnlog "Indent should be "+sIndent+"  but -> "+Einzug.GetText
-    Sleep 2
-    Fontwork.Close
-    
-    Call hCloseDocument
-
-endcase
-
-'-------------------------------------------------------------------------
-
-testcase tFontWork_5
-
-    printLog Chr(13) + "- Test Contour - include contour and text contour"
-    '/// Test Contour - include contour and text contour
-    
-    Call hNewDocument
-    
-    Call wZeichenobjektEinfuegen("TEXT", 30, 40, 60, 60)
-    Call wTypeKeys "Test"
-    Kontext "DocumentWriter"
-    Call wTypeKeys "<ESCAPE>"
-    
-    '/// format/fontwork
-    FormatFontWork
-    Kontext
-    Kontext "Fontwork"
-    Drehen.Click
-    kreisAuswahl.TypeKeys "<Right>"
-    Kontur.Click
-    Buchstabenumrandung.Click
-    Sleep 2
-    Kontur.Click
-    Buchstabenumrandung.Click
-    Fontwork.Close
-    
-    Call hCloseDocument
-
-endcase
-
-'-------------------------------------------------------------------------
-
-testcase tFontWork_6
-
-    Dim sDistanceX , sDistanceY                    as String
-    Dim sAngle     , SPercent                      as String
-    Dim iVerticalShadowColor , iSlantedShadowColor as Integer
-    
-    Select case iSprache
-        case 01   : sAngle = "140" + gSeperator + "0 degrees"
-        case 03   : sAngle = "140" + gSeperator + "0 graus"
-        case 31   : sAngle = "140" + gSeperator + "0graden"
-        case 33   : sAngle = "140" + gSeperator + "0 degrés"
-        case 34   : sAngle = "140" + gSeperator + "0Grados"
-        case 39   : sAngle = "140" + gSeperator + "0gradi"
-        case 46   : sAngle = "140" + gSeperator + "0 grader"
-        case 49   : sAngle = "140" + gSeperator + "0 Grad"
-        case 55   : sAngle = "140" + gSeperator + "0 graus"
-        case 81   : sAngle = "140" + gSeperator + "0度"
-        case 82   : sAngle = "140" + gSeperator + "0 도"
-        case 86   : sAngle = "140" + gSeperator + "0度"
-        case 88   : sAngle = "140" + gSeperator + "0度"
-        case else : QAErrorLog "Now, the test does not support for the language " +iSprache
-                 Goto endsub
-    end select
-    
-    sDistanceX = "1" + gSeperator + "00" + gMeasurementUnit
-    sDistanceY = "1" + gSeperator + "50" + gMeasurementUnit
-    SPercent   = "150%"
-    iVerticalShadowColor = 3
-    iSlantedShadowColor  = 4
-    
-    printLog Chr(13) + "- Test shadow - include vertical and slanted"
-    '/// Test shadow - include vertical and slanted
-    
-    Call hNewDocument
-    
-    Call wZeichenobjektEinfuegen("TEXT", 30, 40, 60, 60)
-    Call wTypeKeys "Test"
-    Kontext "DocumentWriter"
-    Call wTypeKeys "<ESCAPE>"
-    
-    '/// format/fontwork
-    FormatFontWork
-    Kontext "Fontwork"
-    Drehen.Click
-    Sleep 2
-    kreisAuswahl.TypeKeys "<Right>"
-    Sleep 2
-    Zentriert.Click                        ' center
-    Sleep 2
-    
-    'vertical shadow
-    Senkrecht.Click
-    Sleep 2
-    AbstandX.SetText sDistanceX
-    Sleep 2
-    AbstandY.SetText sDistanceY
-    Sleep 2
-    Schattenfarbe.Select iVerticalShadowColor
-    Sleep 2
-    FontWork.Close
-    Sleep 2
-    
-    FormatFontWork
-    Kontext "Fontwork"
-    Sleep 2
-    if AbstandX.GetText            <> sDistanceX           then Warnlog "Distance X should be "+sDistanceX+"  but -> "+AbstandX.GetText
-    Sleep 2
-    if AbstandY.GetText            <> sDistanceY           then Warnlog "Distance Y should be "+sDistanceY+"  but -> "+AbstandY.GetText
-    Sleep 2
-    if Schattenfarbe.GetSelIndex   <> iVerticalShadowColor then Warnlog "Vertical shadow color is wrong."
-    Sleep 2
-    'Slanted shadow
-    Kippen.Click
-    Sleep 2
-    
-    printLog "-" + AbstandX.GetText
-    AbstandX.SetText sAngle
-    Sleep 2
-    AbstandY.SetText SPercent
-    Sleep 2
-    Schattenfarbe.Select iSlantedShadowColor
-    Sleep 2
-    Fontwork.Close
-    Sleep 2
-    
-    FormatFontWork
-    Kontext "Fontwork"
-    Sleep 2
-    if AbstandX.GetText <> sAngle then Warnlog "Distance X should be "+sAngle+"  but -> "+AbstandX.GetText
-    Sleep 2
-    if Left$(AbstandY.GetText,3) <> Left$(SPercent,3) then Warnlog "Distance Y should be "+SPercent+"  but -> "+AbstandY.GetText
-    Sleep 2
-    if Schattenfarbe.GetSelIndex <> iSlantedShadowColor then Warnlog "Slanted shadow color is wrong."
-    Sleep 2
-    Fontwork.Close
-    
-    Call hCloseDocument
-
-endcase
-
-'-------------------------------------------------------------------------
diff --git a/testautomation/writer/optional/includes/formatcharacter/w_format_character1.inc b/testautomation/writer/optional/includes/formatcharacter/w_format_character1.inc
deleted file mode 100644
index 9cfd50567a78..000000000000
--- a/testautomation/writer/optional/includes/formatcharacter/w_format_character1.inc
+++ /dev/null
@@ -1,750 +0,0 @@
-'**************************************************************************
-' 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 : helge.delfs@oracle.com
-'*
-'* short description : Standard character formatting. Setting Styles.
-'*
-'\***********************************************************************
-
-testcase tFormatCharacter1
-    printlog "- Check if 'Pair Kerning' is enabled by default!"
-    '/// Format / Character / Tab Position ///
-    Call hNewDocument
-    '/// Open new document
-    FormatCharacter
-    '/// Format / Character => Select Tabpage 'Position'
-    Kontext
-    Active.Setpage TabFontPosition
-    Kontext "TabFontPosition"
-    '/// 'Pair Kerning' should be checked by default
-    if Not PairKerning.IsChecked then
-        warnlog "Pair Kerning should be checked by default !"
-    end if
-    TabFontPosition.Cancel
-    '/// Close dialog and open Stylist
-    Kontext "Stylist"
-    if Not Stylist.Exists then FormatStylist
-    '/// Open context menu on selected style and choose 'Edit'
-    Vorlagenliste.OpenContextMenu
-    Call hMenuSelectNr(2)
-    '///  Select Tabpage 'Position'
-    Kontext
-    Active.Setpage TabFontPosition
-    Kontext "TabFontPosition"
-    '/// 'Pair Kerning' should be checked by default
-    if Not PairKerning.IsChecked then
-        warnlog "Pair Kerning should be checked by default !"
-    end if
-    TabFontPosition.Cancel
-    '/// close Stylist
-    FormatStylist
-    
-    '/// close document
-    Call hCloseDocument
-endcase
-
-'------------------------------------------------------------------------------------------------------------------------------
-
-testcase tFormatCharacter2
-    '/// Format / Default ///
-    '/// New document ///
-    Call hNewDocument
-    Printlog "  - adjust Font- and Paragraph-Format"
-    '/// Insert a word and select it ///
-    Call wTypeKeys "Format<Shift Mod1 Left>"
-    '/// Select Format / Character and adjust Font- and Paragraph-Formats ///
-    FormatCharacter
-    Sleep 5
-    Kontext
-    active.SetPage TabFontEffects
-    kontext "TabFontEffects"
-    Outline.Check
-    Shadow.Check
-    Underline.Select 2
-    StrikeThrough.Select 2
-    TabFontEffects.OK
-    FormatParagraph
-    Kontext
-    active.SetPage TabEinzuegeUndAbstaende
-    kontext "TabEinzuegeUndAbstaende"
-    Automatisch.Check
-    '/// Close dialog ///
-    TabEinzuegeUndAbstaende.OK
-    Wait 500
-    
-    Printlog "  - Format / Default"
-    FormatDefaultWriter
-    Wait 500
-    
-    Printlog "  - check Font- and Paragraph-Formats"
-    
-    '/// Check if Font- and Paragraph-Formats have benn set to default ///
-    FormatCharacter
-    Kontext
-    active.SetPage TabFontEffects
-    kontext "TabFontEffects"
-    if Outline.IsChecked then Warnlog "Outline is checked"
-    if Shadow.IsChecked then Warnlog "Shadow is checked"
-    if Underline.GetSelIndex = 2 then Warnlog "Wrong entry in 'Underline' is selected"
-    if StrikeThrough.GetSelIndex = 2 then Warnlog "Wrong entry in 'StrikeThrough' is selected"
-    TabFontEffects.OK
-    
-    FormatParagraph
-    Kontext
-    active.SetPage TabEinzuegeUndAbstaende
-    kontext "TabEinzuegeUndAbstaende"
-    if Automatisch.IsChecked then Warnlog "Automatic is checked"
-    TabEinzuegeUndAbstaende.OK
-    
-    '/// Close document ///
-    Call hCloseDocument
-endcase
-
-'------------------------------------------------------------------------------------------------------------------------------
-
-testcase tFormatCharacter3
-    Dim Vergleich1 as integer
-    Dim Vergleich2 as string
-    Dim Vergleich3 as string
-    Dim Vergleich4 as string
-    Dim vLink as integer
-
-    printlog "New document"
-    Call hNewDocument
-	printlog "add some text to document => 	'formatted text with hyperlink'"
-	Call wTypeKeys ("formatted text with hyperlink")
-	printlog "select text"
-	Call wTypeKeys ("<Shift Home>")
-
-    FormatCharacter
-    WaitSlot (5)
-    Kontext
-    printlog "On Tabpage 'Font' adjust settings"
-    active.SetPage TabFont
-    kontext "TabFont"
-    try
-        FontWest.Select 1
-        Vergleich2 = FontWest.GetSelText
-        Vergleich1 = StyleWest.GetItemCount
-        StyleWest.Select Vergleich1
-        Vergleich3 = StyleWest.GetSelText
-        SizeWest.Select 24
-    catch
-        Font.Select 1
-        Vergleich2 = Font.GetSelText
-        Vergleich1 = Style.GetItemCount
-        Style.Select Vergleich1
-        Vergleich3 = Style.GetSelText
-        Size.Select 24
-    endcatch
-    wait 100
-    Kontext
-    printlog "On Tabpage 'Font Effects' adjust settings"
-    active.SetPage TabFontEffects
-    kontext "TabFontEffects"
-    Blinking.Check
-    Kontext
-    Active.Setpage TabFontPosition
-    printlog "On Tabpage 'Font Position ' adjust settings"
-    Kontext "TabFontPosition"
-    Spacing.Select 2
-    SpacingBy.More 3
-    Vergleich4 = SpacingBy.GetText
-    if Right ( Vergleich4, 2 ) <> "pt" then Warnlog "Wrong Unit at Spacing by"
-    Kontext
-    printlog "On Tabpage 'Hyperlink' adjust settings"
-    active.SetPage TabHyperlinkZeichen
-    kontext "TabHyperlinkZeichen"
-    URLName.SetText "www.mikeportnoy.com"
-    NameText.SetText "A hyperlink with testtool"
-    TargetFrame.Select 2
-    Select Case iSprache
-        Case 36
-            vLink = 2
-        Case else
-            vLink = 6
-    end select
-    UnbesuchterLink.Select vLink
-    kontext
-    active.SetPage TabHintergrund
-    kontext "TabHintergrund"
-    Sleep 1
-    Hintergrundfarbe.Typekeys "<Down><Left>", 4
-    TabHintergrund.OK
-    printlog "Close dialog"
-
-    printlog "Reopen with Format / Character and check settings made"
-    Call wTypeKeys "<Home><Right>"
-    FormatCharacter
-    Kontext
-    active.SetPage TabFont
-    kontext "TabFont"
-    try
-        if FontWest.GetSelIndex <> 1 then Warnlog "Font should "+ Vergleich2 +" is "+ FontWest.GetSelText
-        if StyleWest.GetSelText <> Vergleich3 then Warnlog "FontStyle should " +Vergleich3+" is "+ StyleWest.GetSelText
-        if SizeWest.GetSelIndex <> 24 then Warnlog "Wrong Font Size : " + SizeWest.GetSelText
-    catch
-        if Font.GetSelIndex <> 1 then Warnlog "Font should "+ Vergleich2 +" is "+ Font.GetSelText
-        if Style.GetSelText <> Vergleich3 then Warnlog "FontStyle should " + Vergleich3 + " is "+ Style.GetSelText
-        if Size.GetSelIndex <> 24 then Warnlog "Wrong Font Size : " + Size.GetSelText
-    endcatch
-    Kontext
-    active.SetPage TabFontEffects
-    kontext "TabFontEffects"
-    if NOT Blinking.IsChecked then Warnlog "Blinking is not checked"
-    Kontext
-    Active.Setpage TabFontPosition
-    Kontext "TabFontPosition"
-    if Spacing.GetSelIndex <> 2 then Warnlog "Wrong Spacing activated, is not the 2. but " + Spacing.GetSelText
-    if SpacingBy.GetText <> Vergleich4 then Warnlog "Wrong Value selected. Not: " + Vergleich4 +" but " + SpacingBy.GetText
-
-    Kontext
-    active.SetPage TabHyperlinkZeichen
-    kontext "TabHyperlinkZeichen"
-    if URLName.GetText <> "http://www.mikeportnoy.com/" then Warnlog "#i105855#Wrong URL : " + URLName.GetText
-    SetClipboard UrlName.Gettext
-    if NameText.GetText <> "A hyperlink with testtool" then Warnlog "#i105855#Wrong Linkname : " + NameText.GetText
-    if TargetFrame.GetSelIndex <> 2 then Warnlog "#i105855#Wrong Target selected : " + TargetFrame.GetSelText
-    if UnbesuchterLink.GetSelIndex <> vLink then Warnlog "#i105855#Wrong Style for unused Link :" + UnbesuchterLink.GetSelIndex
-    TabHyperlinkZeichen.OK
-
-    printlog "Save document as '../user/work/format1.sxw' and close it"
-    if gApplication = "WRITER" then
-        Call hFileSaveAsWithFilterKill ( gOfficePath + "user\work\format1.odt", "writer8")
-    else
-        Call hFileSaveAsWithFilterKill ( gOfficePath + "user\work\format1.odm", "writer8")  'gMasterDocFilter
-    end if    
-
-    printlog "Close document"
-    Call hCloseDocument
-    printlog "reopen previous saved document and check saved character format"    
-    if gApplication = "WRITER" then
-        hFileOpen( gOfficePath & "user\work\format1.odt" )
-    else
-        hFileOpen( gOfficePath & "user\work\format1.odm" )
-    end if
-    Call wTypeKeys "<Mod1 Home><Right>"
-    Wait 500
-    FormatCharacter
-    WaitSlot (3)
-    Kontext
-    active.SetPage TabFont
-    kontext "TabFont"
-    try
-        if FontWest.GetSelIndex <> 1 then Warnlog "Font should "+ Vergleich2 +" is "+ FontWest.GetSelText
-        if StyleWest.GetSelText <> Vergleich3 then Warnlog "FontStyle should " + Vergleich3 + " is "+ StyleWest.GetSelText
-        if SizeWest.GetSelIndex <> 24 then Warnlog "Wrong Font Size : " + SizeWest.GetSelText
-    catch
-        if Font.GetSelIndex <> 1 then Warnlog "Font should "+ Vergleich2 +" is "+ Font.GetSelText
-        if Style.GetSelText <> Vergleich3 then Warnlog "FontStyle should " +Vergleich3+" is "+ Style.GetSelText
-        if Size.GetSelIndex <> 24 then Warnlog "Wrong Font Size : " + Size.GetSelText
-    endcatch
-    Kontext
-    active.SetPage TabFontEffects
-    kontext "TabFontEffects"
-    if NOT Blinking.IsChecked then Warnlog "Blinking is not checked"
-    Kontext
-    Active.Setpage TabFontPosition
-    Kontext "TabFontPosition"
-    if Spacing.GetSelIndex <> 2 then Warnlog "Wrong Spacing selected. Not 2. but " + Spacing.GetSelText
-    if SpacingBy.GetText <> Vergleich4 then Warnlog "Wrong value selectzed. Not " + Vergleich4 +" but " + SpacingBy.GetText
-    Kontext
-    active.SetPage TabHyperlinkZeichen
-    kontext "TabHyperlinkZeichen"
-    if URLName.GetText <> "http://www.mikeportnoy.com/" then Warnlog "#i105855#Wrong URL : " + URLName.GetText
-    if NameText.GetText <> "A hyperlink with testtool" then Warnlog "#i105855#Wrong Linkname : " + NameText.GetText
-    if TargetFrame.GetSelIndex <> 2 then Warnlog "#i105855#Wrong Target selected : " + TargetFrame.GetSelText
-    TabHyperlinkZeichen.OK
-    '/// Close document ///
-    Call hCloseDocument
-endcase
-
-'------------------------------------------------------------------------------------------------------------------------------
-
-testcase tFormatHyperlink
-    ' /// This testcase has been written due to bug #109488
-    '/// Open a new writerdocument
-    Call hNewDocument
-    '/// Enter a URL (www.sun.com) in document
-    Call wTypeKeys "Autocorrect my URL www.sun.com"
-    '/// Enter a space after URL
-    Call wTypeKeys " "
-    '/// URL should have been autocompleted to http://www.sun.com
-    Call wTypeKeys "<Left>",7
-    FormatCharacter
-    Kontext
-    Active.Setpage TabHyperlinkZeichen
-    Kontext "TabHyperlinkZeichen"
-    if URLName.GetText <> "http://www.sun.com/" then
-        Warnlog "Autocorrection for hyperlink does not work!"
-    else
-        printlog "Hyperlink has been auto-corrected"
-    end if
-    TabHyperlinkZeichen.Cancel
-
-    '/// Change URL to www.sauna.com
-    Call wTypeKeys "a"
-    Call wTypeKeys "<Left>" ,2
-    Call wTypeKeys "a"
-
-    '/// Check whether URL has been changed
-    FormatCharacter
-    Kontext
-    Active.Setpage TabHyperlinkZeichen
-    Kontext "TabHyperlinkZeichen"
-    if URLName.GetText <> "http://www.sun.com/" then
-        Warnlog "Autocorrection for hyperlink should not have been affected to URL!"
-    else
-        printlog "Hyperlink has not been auto-corrected"
-    end if
-    TabHyperlinkZeichen.Cancel
-    '/// Close document
-    Call hCloseDocument
-endcase
-
-'------------------------------------------------------------------------------------------------------------------------------
-
-testcase tFormatStyles1
-    Dim iMenuEntry as integer
-
-    if hIsExtensionAlreadyInstalled("SunSearchToolbar.oxt") = true then
-        iMenuEntry = 6
-    else
-        iMenuEntry = 5
-    end if
-    '/// All format styles in context-menu ///
-    '/// Open a new document ///
-    Call hNewDocument
-    printlog "- Style 'Bold' "
-    '/// Write 'Style Bold' - execute Context menu 'Style Bold'
-    Call wTypeKeys "Style Bold"
-    Call wTypeKeys "<Shift Home>"
-    Kontext "DocumentWriter"
-    DocumentWriter.OpenContextMenu
-    Call hMenuFindSelect (".uno:StyleMenu", true, 5, false)   'Find 'Style' and call the slot.
-    if hMenuFindSelect (".uno:Bold", true, 1, false) = true then  'Find 'Bold' and call the slot.
-        '/// Check if changes to style have been made ///
-        Kontext "TextObjectbar"
-        if Fett.Getstate(2) = 0 then
-            Warnlog "Style 'Bold' with context menu has not been set!"
-        end if
-
-        Call wTypeKeys "<End><Mod1 Shift X>"
-        wait 500
-        Call wTypeKeys "<Return>"
-    endif
-
-    printlog "- Style 'Italic' "
-    '/// Write 'Style Italic' - execute Context menu 'Style Italic'
-    Call wTypeKeys "Style Italic"
-    Call wTypeKeys "<Shift Home>"
-    Kontext "DocumentWriter"
-    DocumentWriter.OpenContextMenu
-    Call hMenuFindSelect (".uno:StyleMenu", true, 5, false)   'Find 'Style' and call the slot.
-    if hMenuFindSelect (".uno:Italic", true, 2, false) = true then  'Find 'Italic' and call the slot.
-        ' /// Check if changes to style have been made ///
-        Kontext "TextObjectbar"
-        if Kursiv.Getstate(2) = 0 then
-            Warnlog "#58722#Style 'Italic' with context menu has not been set!"
-        end if
-
-        Call wTypeKeys "<End><Right>"
-        Call wTypeKeys "<Return>"
-    end if
-
-    printlog "- Style 'Underline' "
-    '/// Write 'Style Underline' - execute Context menu 'Style Underline'
-    Call wTypeKeys "Style Underline"
-    Call wTypeKeys "<Shift Home>"
-    Kontext "DocumentWriter"
-    DocumentWriter.OpenContextMenu
-    Call hMenuFindSelect (".uno:StyleMenu", true, 5, false)   'Find 'Style' and call the slot.
-    if hMenuFindSelect (".uno:Underline", true, 4, false) = true then   'Find 'Underline' and call the slot.
-        ' /// Check if changes to style have been made ///
-        FormatCharacter
-        Kontext
-        Active.Setpage TabFontEffects
-        Kontext "TabFontEffects"
-        if Underline.GetSelIndex <> 2 then Warnlog "Style 'Underline' with context menu has not been set!"
-        TabFontEffects.Cancel
-        Call wTypeKeys "<End><Right>"
-        Call wTypeKeys "<Return>"
-    end if
-
-    printlog "- Style 'Overline' "
-    '/// Write 'Style Overline' - execute Context menu 'Style Strikethrough'
-    Call wTypeKeys "Style Overline"
-    Call wTypeKeys "<Shift Home>"
-    Kontext "DocumentWriter"
-    DocumentWriter.OpenContextMenu
-    Call hMenuFindSelect (".uno:StyleMenu", true, 5, false)   'Find 'Style' and call the slot.
-    if hMenuFindSelect (".uno:Overline", true, 3, false) = true then  'Find 'Overline' and call the slot.
-        ' /// Check if changes to style have been made ///
-        FormatCharacter
-        Kontext
-        Active.Setpage TabFontEffects
-        Kontext "TabFontEffects"
-        if Overline.GetSelIndex <> 2 then Warnlog "Style 'Overline' with context menu has not been set!"
-        TabFontEffects.Cancel
-        Call wTypeKeys "<End><Right>"
-        Call wTypeKeys "<Return>"
-    end if
-
-    printlog "- Style 'StrikeThrough' "
-    '/// Write 'Style Strikethrough' - execute Context menu 'Style Strikethrough'
-    Call wTypeKeys "Style Strikethrough"
-    Call wTypeKeys "<Shift Home>"
-    Kontext "DocumentWriter"
-    DocumentWriter.OpenContextMenu
-    Call hMenuFindSelect (".uno:StyleMenu", true, 5, false)   'Find 'Style' and call the slot.
-    if hMenuFindSelect (".uno:Strikeout", true, 5, false) = true then  'Find 'Strikethrough' and call the slot.
-        ' /// Check if changes to style have been made ///
-        FormatCharacter
-        Kontext
-        Active.Setpage TabFontEffects
-        Kontext "TabFontEffects"
-        if StrikeThrough.GetSelIndex <> 2 then Warnlog "Style 'StrikeThrough' with context menu has not been set!"
-        TabFontEffects.Cancel
-        Call wTypeKeys "<End>"
-        Call wTypeKeys "<Right><Return>"
-    end if
-
-    printlog "- Style 'Shadow' "
-    '/// Write 'Style Shadow' - execute Context menu 'Style Shadow'
-    Call wTypeKeys "Style Shadow"
-    Call wTypeKeys "<Shift Home>"
-    Kontext "DocumentWriter"
-    DocumentWriter.OpenContextMenu
-    Call hMenuFindSelect (".uno:StyleMenu", true, 5, false)   'Find 'Style' and call the slot.
-    if hMenuFindSelect (".uno:Shadowed", true, 6, false) = true then  'Find 'Shadowed' and call the slot.
-        ' /// Check if changes to style have been made ///
-        FormatCharacter
-        Kontext
-        Active.Setpage TabFontEffects
-        Kontext "TabFontEffects"
-        if Shadow.IsChecked = False then Warnlog "Style 'Shadow' with context menu has not been set!"
-        TabFontEffects.Cancel
-        Call wTypeKeys "<End><Right>"
-        Call wTypeKeys "<Return>"
-    end if
-
-    printlog "- Style 'Outline' "
-    '/// Write 'Style Outline' - execute Context menu 'Style Outline'
-    Call wTypeKeys "Style Outline"
-    Call wTypeKeys "<Shift Home>"
-    Kontext "DocumentWriter"
-    DocumentWriter.OpenContextMenu
-    Call hMenuFindSelect (".uno:StyleMenu", true, 5, false)   'Find 'Style' and call the slot.
-    if hMenuFindSelect (".uno:OutlineFont", true, 7, false) = true then   'Find 'Outline' and call the slot.
-        ' /// Check if changes to style have been made ///
-        FormatCharacter
-        Kontext
-        Active.Setpage TabFontEffects
-        Kontext "TabFontEffects"
-        if Outline.IsChecked = false then Warnlog "Style 'Outline' with context menu has not been set!"
-        TabFontEffects.Cancel
-    end if
-    
-    printlog "Close Document."
-    Call hCloseDocument
-endcase
-
-'---------------------------------------------------------------------------------------------------------------------
-
-testcase tFormatCharacter
-  	Dim Vergleich1%, Vergleich2$, Vergleich3$, Vergleich4$
-    	
-	PrintLog "- Format / Character"
-	Call hNewDocument
-	
-	printlog "add some text to document => 	'formatted text with hyperlink'"
-	Call wTypeKeys ("formatted text with hyperlink")
-	printlog "select text"
-	Call wTypeKeys ("<Shift Home>")
-	
-	printlog "  - adjust character"
-	printlog "Format->Character"
-	FormatCharacter
-	Sleep 5
-	Kontext
-	printlog "On Tabpage 'Font' adjust settings"
-	active.SetPage TabFont
-	kontext "TabFont"
-	try
-    	FontWest.Select 1
-		Vergleich2$ = FontWest.GetSelText
-		Vergleich1% = StyleWest.GetItemCount
-		StyleWest.Select Vergleich1%
-		Vergleich3$ = StyleWest.GetSelText
-		SizeWest.Select 24
-	catch
-    	Font.Select 1
-		Vergleich2$ = Font.GetSelText
-		Vergleich1% = Style.GetItemCount
-		Style.Select Vergleich1%
-		Vergleich3$ = Style.GetSelText
-		Size.Select 24
-	endcatch
-	wait 100
-	Kontext
-	printlog "On Tabpage 'Font Effects' adjust settings"
-	active.SetPage TabFontEffects
-	kontext "TabFontEffects"
-	Blinking.Check
-	Kontext
-	Active.Setpage TabFontPosition
-	printlog "On Tabpage 'Font Position ' adjust settings"
-	Kontext "TabFontPosition"
-	Spacing.Select 2
-	SpacingBy.More 3
-	Vergleich4$ = SpacingBy.GetText
-	if Right ( Vergleich4$, 2 ) <> "pt" then Warnlog "Wrong Unit at Spacing by"
-	Kontext
-	printlog "On Tabpage 'Hyperlink' adjust settings"
-	active.SetPage TabHyperlinkZeichen
-	kontext "TabHyperlinkZeichen"
-	URLName.SetText "www.mikeportnoy.com"
-	NameText.SetText "Link created by testtool"
-	TargetFrame.Select 2
-
-	UnbesuchterLink.Select 6
-	Kontext
-	active.SetPage TabHintergrund
-	kontext "TabHintergrund"
-	Sleep 1
-	Hintergrundfarbe.Typekeys "<Down><Left>", 4
-	TabHintergrund.OK
-	printlog "Close dialog"
-
-	printlog " Type Home- and Right-Key"
-	Call wTypeKeys "<Home><Right>"	
-	
-	printlog "recheck settings made with opening Format->Character"
-	FormatCharacter
-	Kontext
-	active.SetPage TabFont
-	kontext "TabFont"
-	try
-    	if FontWest.GetSelText <> Vergleich2$ then Warnlog "Font should "+ Vergleich2$ +" is "+ FontWest.GetSelText
-		if StyleWest.GetSelIndex <> Vergleich1% then Warnlog "FontStyle should " +Vergleich3$+" is "+ StyleWest.GetSelText
-		if SizeWest.GetSelIndex <> 24 then Warnlog "Wrong Font Size : " + SizeWest.GetSelText
-	catch
-    	if Font.GetSelText <> Vergleich2$ then Warnlog "Font should "+ Vergleich2$ +" is "+ Font.GetSelText
-		if Style.GetSelIndex <> Vergleich1% then Warnlog "FontStyle should " +Vergleich3$+" is "+ Style.GetSelText
-		if Size.GetSelIndex <> 24 then Warnlog "Wrong Font Size : " + Size.GetSelText
-	endcatch
-	Kontext
-	active.SetPage TabFontEffects
-	kontext "TabFontEffects"
-	if NOT Blinking.IsChecked then Warnlog "Blinking is not checked"
-	Kontext
-	Active.Setpage TabFontPosition
-	Kontext "TabFontPosition"
-	if Spacing.GetSelIndex <> 2 then Warnlog "Wrong Spacing activated, is not the 2. but " + Spacing.GetSelText
-	if SpacingBy.GetText <> Vergleich4$ then Warnlog "Wrong Value selected. Not: " + Vergleich4$ +" but " + SpacingBy.GetText
-
-	Kontext
-	active.SetPage TabHyperlinkZeichen
-	kontext "TabHyperlinkZeichen"
-	if URLName.GetText <> "http://www.mikeportnoy.com/" then Warnlog "#i105855#Wrong URL : " + URLName.GetText + " (#BugID:90982)"
-	SetClipboard UrlName.Gettext
-	if NameText.GetText <> "Link created by testtool" then Warnlog "#i105855#Wrong Linkname : " + NameText.GetText
-	if TargetFrame.GetSelIndex <> 2 then Warnlog "#i105855#Wrong Target selected : " + TargetFrame.GetSelText
-	if UnbesuchterLink.GetSelIndex <> 6 then Warnlog "#i105855#Wrong Style for unused Link :" + UnbesuchterLink.GetSelIndex
-	TabHyperlinkZeichen.OK
-
-	printlog "Save document as '../user/work/format1.sxw' and close it"
-	if gApplication = "WRITER" then
-    	Call hFileSaveAsWithFilterKill ( gOfficePath + "user\work\format1.odt", "writer8" )
-	else
-    	Call hFileSaveAsWithFilterKill ( gOfficePath + "user\work\format1.odm", "writer8" ) 'gMasterDocFilter
-	end if	
-	Call hCloseDocument
-	printlog "re-open previous saved document"
-	if gApplication = "WRITER" then
-    	hFileOpen( gOfficePath & "user\work\format1.odt" )
-	else
-  	    hFileOpen( gOfficePath & "user\work\format1.odm" )
-	end if
-   	Call wTypeKeys "<Mod1 Home><Right>"
-	Wait 500
-
-	printlog "Execute Format->Character and re-check settings made"
-	FormatCharacter
-
-	Sleep 3
-	Kontext
-	active.SetPage TabFont
-	kontext "TabFont"
-	try
-		if FontWest.GetSelText <> Vergleich2$ then Warnlog "Font should "+ Vergleich2$ +" is "+ FontWest.GetSelText
-		if StyleWest.GetSelIndex <> Vergleich1% then Warnlog "FontStyle should " +Vergleich3$+" is "+ StyleWest.GetSelText
-		if SizeWest.GetSelIndex <> 24 then Warnlog "Wrong Font Size : " + SizeWest.GetSelText
-	catch
-		if Font.GetSelText <> Vergleich2$ then Warnlog "Font should "+ Vergleich2$ +" is "+ Font.GetSelText
-		if Style.GetSelIndex <> Vergleich1% then Warnlog "FontStyle should " +Vergleich3$+" is "+ Style.GetSelText
-		if Size.GetSelIndex <> 24 then Warnlog "Wrong Font Size : " + Size.GetSelText
-	endcatch
-	Kontext
-	active.SetPage TabFontEffects
-	kontext "TabFontEffects"
-	if NOT Blinking.IsChecked then Warnlog "Blinking is not checked"
-	Kontext
-	Active.Setpage TabFontPosition
-	Kontext "TabFontPosition"
-	if Spacing.GetSelIndex <> 2 then Warnlog "Wrong Spacing selected. Not 2. but " + Spacing.GetSelText
-	if SpacingBy.GetText <> Vergleich4$ then Warnlog "Wrong value selectzed. Not " + Vergleich4$ +" but " + SpacingBy.GetText
-	Kontext
-	active.SetPage TabHyperlinkZeichen
-	kontext "TabHyperlinkZeichen"
-	if URLName.GetText <> "http://www.mikeportnoy.com/" then Warnlog "#i105855#Wrong URL : " + URLName.GetText
-	if NameText.GetText <> "Link created by testtool" then Warnlog "#i105855#Wrong Linkname : " + NameText.GetText
-	if TargetFrame.GetSelIndex <> 2 then Warnlog "#i105855#Wrong Target selected : " + TargetFrame.GetSelText
-	TabHyperlinkZeichen.OK
-	printlog "Close document"
-	Call hCloseDocument
-endcase
-
-'------------------------------------------------------------------------------------------------------------------------------
-
-testcase tFormatCharacterOverline1
-    Dim iCounter as integer
-    Dim CompareValue1 as string
-    Dim CompareValue2 as string
-    Dim CompareValue3 as string
-    Dim CompareValue4 as string
-    
-    Printlog " New Writer document."
-    Call hNewDocument
-    Printlog " Format Character."
-    FormatCharacter
-    Printlog " Tab 'Font Effects'."
-    Kontext
-    active.SetPage TabFontEffects
-    Kontext "TabFontEffects"
-    Printlog " Select Overline Listbox."
-    Printlog " Default (first) entry is 'Without'."
-    Overline.Select (1)
-    
-    Printlog " Select Colour Listbox."
-    Printlog " Verify that Colour List box is DISABLED."
-    try
-        OverlineColor.Select (1)
-        warnlog "Color-listbox was falsely enabled."
-    catch
-        printlog "Color-listbox is correctly disabled by default."
-    endcatch
-    
-    Printlog " Select Overline Listbox again."
-    Printlog " Select second entry 'Single'."
-    Overline.Select (2)
-    
-    Printlog " Step down all 14 entries (Last: 'Double Wave' in English UI)."
-    for iCounter = 2 to Overline.GetItemCount
-        Overline.Select (iCounter)
-	wait (500)
-    next iCounter
-    
-    Printlog " Select Color Listbox."
-    Printlog " Verify that Color List box is ENABLED."
-    try
-        OverlineColor.Select (OverlineColor.GetItemCount)
-        printlog "Color-listbox is correctly enabled."
-    catch
-        warnlog "Color-listbox was falsely disabled."
-    endcatch
-    
-    'CompareValue2 = OverlineColor.GetSelIndex
-    
-    Printlog " Close dialog."
-    TabFontEffects.Ok
-    Printlog " Close document."
-    Call hCloseDocument
-endcase
-
-'------------------------------------------------------------------------------------------------------------------------------
-
-testcase tFormatCharacterOverline2
-    Dim CompareValue1 as string
-    Dim CompareValue2 as string
-    Dim CompareValue3 as string
-    Dim CompareValue4 as string
-    Dim SaveFilePathAndName as String
-    
-    SaveFilePathAndName = gOfficePath + "user\work\OverlineTest2.odt"
-    
-    Printlog " New Writer document."
-    Call hNewDocument
-    Printlog " Type 'Overline Single Red' (without quotes)."
-    Call wTypeKeys "Overline Single Red"
-    Printlog " Select entire string."
-    Call wTypeKeys "<HOME>"
-    Call wTypeKeys "<SHIFT END>"
-    Printlog " Format Character."
-    FormatCharacter
-    Printlog " Tab 'Font Effects'."
-    Kontext
-    active.SetPage TabFontEffects
-    Kontext "TabFontEffects"
-    Printlog " Select Overline Listbox."
-    Printlog " Select second entry 'Single'."
-    Overline.Select (2)
-    
-    Printlog " Select Color Listbox."
-    Printlog " In Color List box, select Color 'Red', OK."
-    OverlineColor.Select (6)
-    
-    CompareValue1 = Overline.GetSelIndex
-    CompareValue2 = OverlineColor.GetSelIndex
-    
-    Printlog " Close dialog."
-    TabFontEffects.Ok
-    
-    Printlog " Save document."
-    Call hFileSaveAsKill ( SaveFilePathAndName )
-    Printlog " Reload document."
-    FileReload
-    Printlog " Select entire string."
-    Call wTypeKeys "<HOME><SHIFT END>"
-    Printlog " Format Character."
-    FormatCharacter
-    Printlog " Tab 'Font Effects'."
-    Kontext
-    active.SetPage TabFontEffects
-    Kontext "TabFontEffects"
-    Printlog " Verify that 'Overline Single' and Overline Colour 'Red' is set."
-    
-    If Overline.GetSelIndex <> CompareValue1 then warnlog "The Overline-Value wasn't saved after closing the options-dialogue."
-    If OverlineColor.GetSelIndex <> CompareValue2 then warnlog "The Color-Value wasn't saved after closing the options-dialogue."
-    
-    Printlog " Close dialog."
-    TabFontEffects.Ok
-    Printlog " Close document."
-    Call hCloseDocument
-endcase
-
-'------------------------------------------------------------------------------------------------------------------------------
diff --git a/testautomation/writer/optional/includes/formatpage/w_formatpage1.inc b/testautomation/writer/optional/includes/formatpage/w_formatpage1.inc
deleted file mode 100644
index ef6280b51cfd..000000000000
--- a/testautomation/writer/optional/includes/formatpage/w_formatpage1.inc
+++ /dev/null
@@ -1,878 +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 : helge.delfs@oracle.com
-'*
-'* short description : Test the functionality of Page Formatting / Page Styles - 1
-'*
-'************************************************************************
-'*
-' #1 tFormatPage_1       'Open format/page dialog
-' #1 tFormatPage_2       'Test Portrait in tabpage Page
-' #1 tFormatPage_3       'Test Landscape in tabpage Page
-' #1 tFormatPage_4       'Width and Height boxes must change after changing between Portrait and Landscape
-' #1 tFormatPage_5       'The sum of "Left margin" and "Right margin" must always stay below the Paper width.(Same for top/bottom and height)
-' #1 tFormatPage_6       'Test predefined formats
-' #1 tFormatPage_7       'Test user defined formats
-' #1 tFormatPage_8       'Check Listbox Text Direction when Asian language support is enabled
-' #1 tFormatPage_9       'Check Listbox Text Direction when CTL is enabled
-' #1 tFormatPage_10      'when Asian support and CTL are all enabled , 3 entries should be in Text Direction listbox
-' #1 TFormatPage_11      'Test Page layout - Right and left
-' #1 tFormatPage_12      'Test Page layout - Mirrored
-' #1 tFormatPage_13      'Test Page layout - Only right
-' #1 tFormatPage_14      'Test Page layout - Only left
-' #1 tFormatPage_15      'Insertfields / other / Document / Type/Page -> As page Style must be set
-'*
-'\***********************************************************************
-
-testcase tFormatPage_1
-
-	PrintLog "- Open format/page dialog"
-	'/// <b> Open format/page dialog </b> ///
-
-	Call hNewDocument
-
-	'/// 1. via Mouse clicks in Menu: Format-Page
-	try
-		fFormatPageWriter("TabSeite")
-		TabSeite.Cancel
-	catch
-	endcatch
-
-	'/// 2. via shortcuts in menu  (manual test is needed)
-
-	'/// 3. via Context menu when Cursor is in the document
-	try
-		hMenuSelectNr(5)
-		Sleep 2
-		hMenuSelectNr(5)
-		Sleep 2
-		Kontext
-		Active.SetPage TabSeite
-		Kontext "TabSeite"
-		TabSeite.Cancel
-	catch
-	endcatch
-
-	Call hCloseDocument
-
-endcase
-
-'-------------------------------------------------------------------------------------------
-
-testcase tFormatPage_2
-
-  	Dim sTestString   as String
-	Dim iRepectLength as Integer
-	Dim iFormat       as Integer
-
-	sTestString   =  "ABCDEFGHIJKLMNOPQRSTUVWXYZABCDEFGHIJKLMNOPQRSTUVWXYZABCDEFGHIJKLMNOPQRSTUVWXYZABCDEFGHIJKLMNOPQ"
-	iRepectLength =  26
-	iFormat       =  2   'A4 paper
-
-	PrintLog "- Test Portrait in tabpage Page"
-	'/// <b> Test Portrait in tabpage Page </b> ///
-
-	Call hNewDocument
-
-	'/// Input a long test string
-    Call wTypeKeys sTestString
-
-   '/// Format/Page , tabpage page , check 'Portrait'
-    fFormatPageWriter("TabSeite")
-    Papierformat.Select iFormat
-    Wait 500
-    Hoch.Check
-    Wait 500
-    TabSeite.OK
-
-	'/// Check if Checkbox -- Portrait works fine
-    Call wTypeKeys "<Shift Home>"
-    EditCopy
-    wait 500
-    if Len(GetClipboardText) < iRepectLength then Warnlog "Checkbox Portrait doesn't work fine!"
-
-	Call hCloseDocument
-
-endcase
-
-'-------------------------------------------------------------------------------------------
-
-testcase tFormatPage_3
-
-    Dim iTextLength as integer
-
-	PrintLog "- Test Landscape in tabpage Page"
-	'/// Test Landscape in tabpage Page
-
-	Call hNewDocument
-
-	Call wOptionsUndo( "Grundschriften" )
-
-	'/// Input a long test string
-	Call wTypeKeys "ABCDEFGHIJKLMNOPQRSTUVWXYZABCDEFGHIJKLMNOPQRSTUVWXYZABCDEFGHIJKLMNOPQRSTUVWXYZABCDEFGHIJKLMNOPQ"
-    Call wTypeKeys "<Mod1 Home>"
-    Call wTypeKeys "<Shift End>"
-    EditCopy
-    iTextLength = Len(GetClipBoardtext)
-
-	'/// Format/Page , tabpage page , check 'Landscape'
-	fFormatPageWriter("TabSeite")
-	Papierformat.Select 2 ' A4 Paper
-	Wait 500
-	Quer.Check
-	Wait 500
-	TabSeite.OK
-
-	'/// Check if Checkbox -- Landscape works fine
-	Call wTypeKeys "<Mod1 Home>"
-    Call wTypeKeys "<Shift End>"
-	EditCopy
-	wait 500
-	if Len(GetClipboardText) <= iTextLength then Warnlog "Checkbox Landscape doesn't work fine!"
-
-	Call hCloseDocument
-
-endcase
-
-'-------------------------------------------------------------------------------------------
-
-testcase tFormatPage_4
-
-	Dim iFormat as Integer
-	Dim sWidth  as String
-    Dim sHeight as String
-
-	iFormat = 2   'A4 paper
-
-	PrintLog "- Width and Height boxes must change after changing between Portrait and Landscape"
-	'/// Width and Height boxes must change after changing between Portrait and Landscape
-
-	Call hNewDocument
-
-	'/// Format/Page  tabpage page ,
-	'/// + check 'Portrait' first and get width and height ,
-	'/// + then change from Portrait to Landscape
-	'/// + check if the change is effective
-	fFormatPageWriter("TabSeite")
-	Papierformat.Select iFormat
-	Wait 500
-	Hoch.Check
-	Sleep 1
-	sWidth  = Breite.GetText
-	sHeight = Hoehe.GetText
-
-	Quer.Check
-	Sleep 1
-	if Breite.GetText <> sHeight  then Warnlog "Width isn't changed when changing from Portrait to Landscape !"
-	if Hoehe.GetText  <> sWidth   then Warnlog "Height isn't changed when changing from Portrait to Landscape !"
-	TabSeite.Cancel
-
-	'/// Format/Page  tabpage page ,
-	'/// + check 'Landscape' first and get width and height ,
-	'/// + then change from Landscape to Portrait
-	'/// + check if the change is effective
-	fFormatPageWriter("TabSeite")
-	Papierformat.Select iFormat
-	Wait 500
-	Quer.Check
-	Sleep 1
-	sWidth  = Breite.GetText
-	sHeight = Hoehe.GetText
-
-	Hoch.Check
-	Sleep 1
-	if Breite.GetText <> sHeight  then Warnlog "Width isn't changed when changing from Landscape to Portrait !"
-	if Hoehe.GetText  <> sWidth   then Warnlog "Height isn't changed when changing from Landscape to Portrait !"
-	TabSeite.Cancel
-
-	Call hCloseDocument
-
-endcase
-
-'-------------------------------------------------------------------------------------------
-
-testcase tFormatPage_5
-
-	Dim iFormat as Integer
-	Dim sWidth  as String , sHeight as String
-	Dim sLeft   as String , sRight as String   , sUp as String  , sBottom as String  ' set page size
-	Dim sLeft1 as String  , sRight1 as String  ,  sUp1 as String  , sBottom1 as String  ' get page size
-
-	iFormat    = 2   'A4 paper
-	sWidth     = "20" + gSeperator + "00" + gMeasurementUnit
-	sHeight    = "25" + gSeperator + "00" + gMeasurementUnit
-
-	sLeft      = "15" + gSeperator + "00" + gMeasurementUnit
-	sRight     = "15" + gSeperator + "00" + gMeasurementUnit
-	sUp        = "15" + gSeperator + "00" + gMeasurementUnit
-	sBottom    = "15" + gSeperator + "00" + gMeasurementUnit
-
-	sLeft1     = "15" + gSeperator + "00" + gMeasurementUnit
-	sRight1    = "4"  + gSeperator + "50" + gMeasurementUnit
-	sUp1       = "15" + gSeperator + "00" + gMeasurementUnit
-	sBottom1   = "9"  + gSeperator + "50" + gMeasurementUnit
-
-	PrintLog "- The sum of 'Left margin' and 'Right margin' must always stay below the Paper width."
-	PrintLog "  (Same for top/bottom and height)"
-	'/// The sum of "Left margin" and "Right margin" must always stay below the Paper width.
-	'/// (Same for top/bottom and height)
-
-	Call hNewDocument
-
-	'/// Format/Page , tabpage Page , set width and height , close the dialog
-	fFormatPageWriter("TabSeite")
-	Papierformat.Select iFormat
-	Wait 500
-	Hoch.Check
-	Sleep 1
-	Breite.SetText sWidth
-	Wait 500
-	Hoehe.SetText sHeight
-	Wait 500
-	TabSeite.OK
-
-	'/// Format/Page , tabpage Page ,
-	'/// + Set the sum of "Left margin" and "Right margin" more than Width
-	fFormatPageWriter("TabSeite")
-	Links.SetText   sLeft
-	Wait 500
-	Rechts.SetText  sRight
-	Wait 500
-	TabSeite.OK
-
-	'/// Check if the setting is OK
-	fFormatPageWriter("TabSeite")
-	if Left$(Links.GetText,5)   <>  Left$(sLeft1,5)   then Warnlog "The Margin(left) is wrong!"
-	if Left$(Rechts.GetText,4)  <>  Left$(sRight1,4)  then Warnlog "The Margin(right) is wrong!"
-	TabSeite.Cancel
-
-	'/// Format/Page , tabpage Page ,
-	'/// + Set the sum of "Up margin" and "Bottom margin" more than Heigth
-	fFormatPageWriter("TabSeite")
-	Oben.SetText   sUp
-	Wait 500
-	Unten.SetText  sBottom
-	Wait 500
-	TabSeite.OK
-
-	'/// Check if the setting is OK
-	fFormatPageWriter("TabSeite")
-	if Left$(Oben.GetText,5)   <>  Left$(sUp1,5)      then Warnlog "The Margin(Up) is wrong!"
-	if Left$(Unten.GetText,4)  <>  Left$(sBottom1,4)  then Warnlog "The Margin(Bottom) is wrong!"
-	TabSeite.Cancel
-
-	Call hCloseDocument
-
-endcase
-
-'-------------------------------------------------------------------------------------------
-
-testcase tFormatPage_6
-
-	Dim iPaperTray as Integer  ,  iPageLayout as Integer
-	Dim iFormatLayout as Integer  ,  iReferenceStyle as Integer
-	Dim sWidth as String, sHeight as String
-	Dim sLeft as String  ,  sRight as String  ,  sUp as String  ,  sBottom as String
-
-	iPaperTray    = 1 :  iPageLayout     = 2
-	iFormatLayout = 2 :  iReferenceStyle = 5
-
-	sWidth        = "20" + gSeperator + "00" + gMeasurementUnit
-	sHeight       = "25" + gSeperator + "00" + gMeasurementUnit
-	sLeft         = "2"  + gSeperator + "00" + gMeasurementUnit
-	sRight        = "2"  + gSeperator + "00" + gMeasurementUnit
-	sUp           = "2"  + gSeperator + "00" + gMeasurementUnit
-	sBottom       = "2"  + gSeperator + "00" + gMeasurementUnit
-
-	PrintLog "- Test Pre-defined formats"
-	'/// Test Pre-defined formats
-
-	Call hNewDocument
-
-	'/// Format/Page , tabpage page , do some configuration
-	fFormatPageWriter("TabSeite")
-	Hoch.Check
-	Wait 500
-	Breite.SetText       sWidth
-	Wait 500
-	Hoehe.SetText        sHeight
-	Wait 500
-	Schacht.Select       iPaperTray
-	Wait 500
-	Links.SetText        sLeft
-	Wait 500
-	Rechts.SetText       sRight
-	Wait 500
-	Oben.SetText         sUp
-	Wait 500
-	Unten.SetText        sBottom
-	Wait 500
-	Seitenlayout.Select  iPageLayout
-	Wait 500
-	Numerierung.Select   iFormatLayout
-	Wait 500
-	Einschalten.Check
-	Sleep 1
-	AbsatzVorlage.Select iReferenceStyle
-	Wait 500
-	TabSeite.OK
-
-	'/// Save the file  , close the file and reload the file
-    Call hFileSaveAsWithFilterKill (gOfficepath + "user\work\tFormatPage_6.odt", "writer8")
-	Call hCloseDocument
-
-	Call hNewDocument
-
-	hFileOpen( gOfficepath + "user\work\tFormatPage_6.odt")
-
-	'/// Check if Pre-defined formats are correct
-	fFormatPageWriter("TabSeite")
-	if Hoch.IsChecked            <> TRUE             then Warnlog "Portrait should be checked!"
-	if Left$(Breite.GetText,5)   <> Left$(sWidth,5)  then Warnlog "The width is wrong!"
-	if Left$(Hoehe.GetText,5)    <> Left$(sHeight,5) then Warnlog "The height is wrong!"
-	if Schacht.GetSelIndex       <> iPaperTray       then Warnlog "The Paper tray is wrong!"
-	if Left$(Links.GetText,4)    <> Left$(sLeft,4)   then Warnlog "The Margin(left) is wrong!"
-	if Left$(Rechts.GetText,4)   <> Left$(sRight,4)  then Warnlog "The Margin(right) is wrong!"
-	if Left$(Oben.GetText,4)     <> Left$(sUp,4)     then Warnlog "The Margin(top) is wrong!"
-	if Left$(Unten.GetText,4)    <> Left$(sBottom,4) then Warnlog "The Margin(bottom) is wrong!"
-	if Seitenlayout.GetSelIndex  <> iPageLayout      then Warnlog "The paper layout is wrong!"
-	if Numerierung.GetSelIndex   <> iFormatLayout    then Warnlog "The layout settings(format) is wrong!"
-	if Einschalten.IsChecked     <> TRUE             then Warnlog "Portrait should be checked!"
-	if AbsatzVorlage.GetSelIndex <> iReferenceStyle  then Warnlog "The reference style is wrong!"
-	TabSeite.Cancel
-
-	Call hCloseDocument
-
-endcase
-
-'-------------------------------------------------------------------------------------------
-
-testcase tFormatPage_7
-
-	Dim iPaperTray as Integer  ,  iPageLayout as Integer
-	Dim iFormatLayout as Integer  ,  iReferenceStyle as Integer
-	Dim sWidth as String  ,  sHeight as String
-	Dim sLeft as String  ,  sRight as String  ,  sUp as String  ,  sBottom as String
-
-	iPaperTray    = 1 :  iPageLayout     = 2
-	iFormatLayout = 2 :  iReferenceStyle = 5
-
-	sWidth        = "20" + gSeperator + "00" + gMeasurementUnit
-	sHeight       = "25" + gSeperator + "00" + gMeasurementUnit
-	sLeft         = "2"  + gSeperator + "00" + gMeasurementUnit
-	sRight        = "2"  + gSeperator + "00" + gMeasurementUnit
-	sUp           = "2"  + gSeperator + "00" + gMeasurementUnit
-	sBottom       = "2"  + gSeperator + "00" + gMeasurementUnit
-
-	PrintLog "- Test user defined formats"
-	'/// Test user defined formats
-
-	Call hNewDocument
-
-	'/// Format/Page , tabpage page , do some configuration
-	fFormatPageWriter("TabSeite")
-	Hoch.Check
-	Wait 500
-	Breite.SetText       sWidth
-	Wait 500
-	Hoehe.SetText        sHeight
-	Wait 500
-	Schacht.Select       iPaperTray
-	Wait 500
-	Links.SetText        sLeft
-	Wait 500
-	Rechts.SetText       sRight
-	Wait 500
-	Oben.SetText         sUp
-	Wait 500
-	Unten.SetText        sBottom
-	Wait 500
-	Seitenlayout.Select  iPageLayout
-	Wait 500
-	Numerierung.Select   iFormatLayout
-	Wait 500
-	Einschalten.Check
-	Sleep 1
-	AbsatzVorlage.Select iReferenceStyle
-	Wait 500
-	TabSeite.OK
-
-	'/// Check if user defined formats are correct
-	fFormatPageWriter("TabSeite")
-	if Hoch.IsChecked            <> TRUE                then Warnlog "Portrait should be checked!"
-	if Left$(Breite.GetText,5)   <> Left$(sWidth,5)     then Warnlog "The width is wrong!"
-	if left$(Hoehe.GetText,5)    <> Left$(sHeight,5)    then Warnlog "The height is wrong!"
-	if Schacht.GetSelIndex       <> iPaperTray          then Warnlog "The Paper tray is wrong!"
-	if Left$(Links.GetText,4)    <> Left$(sLeft,4)      then Warnlog "The Margin(left) is wrong!"
-	if Left$(Rechts.GetText,4)   <> Left$(sRight,4)     then Warnlog "The Margin(right) is wrong!"
-	if Left$(Oben.GetText,4)     <> Left$(sUp,4)        then Warnlog "The Margin(top) is wrong!"
-	if Left$(Unten.GetText,4)    <> Left$(sBottom,4)    then Warnlog "The Margin(bottom) is wrong!"
-	if Seitenlayout.GetSelIndex  <> iPageLayout         then Warnlog "The paper layout is wrong!"
-	if Numerierung.GetSelIndex   <> iFormatLayout       then Warnlog "The layout settings(format) is wrong!"
-	if Einschalten.IsChecked     <> TRUE                then Warnlog "Portrait should be checked!"
-	if AbsatzVorlage.GetSelIndex <> iReferenceStyle     then Warnlog "The reference style is wrong!"
-	TabSeite.Cancel
-
-	Call hCloseDocument
-endcase
-
-'-------------------------------------------------------------------------------------------
-
-testcase tFormatPage_8
-    Dim RecheckCTLSupport   as string
-    Dim RecheckAsianSupport as string
-    RecheckCTLSupport = gCTLSup
-    RecheckAsianSupport = gAsianSup
-
-    Select Case iSystemSprache
-        Case 81, 82, 86, 88
-            printlog "No test with asian lovale, because checkbox 'Asian language support' is disabled by default!"
-            goto endsub
-    end select
-
-    PrintLog "- Check Listbox Text Direction when Asian language support is enabled"
-    '/// Check Listbox Text Direction when Asian language support is enabled
-
-    Call hNewDocument
-
-   '/// Set CTL unable
-    Call ActiveDeactivateCTLSupport(FALSE)
-    '/// Enable Asian Support
-    Call ActiveDeactivateAsianSupport(TRUE)
-   '/// - the Listbox Text Direction should be visible when Asian language support is enabled
-    Call fFormatPageWriter("TabSeite")
-    if Not Textfluss.IsVisible then
-        Warnlog "Listbox 'Text Direction' isn't visible though asian support is enabled"
-    end if
-    TabSeite.Cancel
-
-    '/// Disable Asian Support
-    Call ActiveDeactivateAsianSupport(FALSE)
-    '/// - the Listbox Text Direction should be invisible when Asian language support is unabled
-    Call fFormatPageWriter("TabSeite")
-    if Textfluss.IsVisible then
-        Warnlog "Listbox 'Text Direction' is visible though asian support is disabled"
-    end if
-    TabSeite.Cancel
-
-    if RecheckCTLSupport = True then
-        Call ActiveDeactivateCTLSupport(TRUE)
-    else
-        Call ActiveDeactivateCTLSupport(FALSE)
-    end if
-    if RecheckAsianSupport = True then
-        Call ActiveDeactivateAsianSupport(TRUE)
-    else
-        Call ActiveDeactivateAsianSupport(FALSE)
-    end if
-
-    Call hCloseDocument
-
-endcase
-
-'-------------------------------------------------------------------------------------------
-
-testcase tFormatPage_9
-
-    Dim RecheckCTLSupport as string
-    Dim RecheckAsianSupport as string
-    RecheckCTLSupport = gCTLSup
-    RecheckAsianSupport = gAsianSup
-
-    PrintLog "- Check Listbox Text Direction when CTL is enabled"
-    '/// Check Listbox Text Direction when CTL is enabled
-
-    Call hNewDocument
-
-    '/// Set CTL enabled
-    Call ActiveDeactivateAsianSupport(FALSE)
-    Call ActiveDeactivateCTLSupport(TRUE)
-    '/// Check if 'Text direction' appears
-    Call fFormatPageWriter("TabSeite")
-    if Textfluss.IsVisible = False then
-        Warnlog "Right to Left (horizontal) should appear when CTL is checked!"
-    end if
-    TabSeite.Cancel
-
-    '/// Set CTL unable
-    Call ActiveDeactivateCTLSupport(FALSE)
-
-    '/// Check if 'Text direction' appears
-    Call fFormatPageWriter("TabSeite")
-    if Textfluss.IsVisible = TRUE then
-        Warnlog "Left to Right (horizontal) appears though CTL is disabled"
-    end if
-    TabSeite.Cancel
-
-    if RecheckCTLSupport = True then
-        Call ActiveDeactivateCTLSupport(TRUE)
-    else
-        Call ActiveDeactivateCTLSupport(FALSE)
-    end if
-    if RecheckAsianSupport = True then
-        Call ActiveDeactivateAsianSupport(TRUE)
-    else
-        Call ActiveDeactivateAsianSupport(FALSE)
-    end if
-
-    Call hCloseDocument
-endcase
-
-'-------------------------------------------------------------------------------------------
-
-testcase tFormatPage_10
-
-    Dim RecheckCTLSupport   as string
-    Dim RecheckAsianSupport as string
-    RecheckCTLSupport = gCTLSup
-    RecheckAsianSupport = gAsianSup
-
-    PrintLog "- when Asian support and CTL are all enabled , 3 entries should be in Text Direction listbox"
-    '/// when Asian support and CTL are all enabled , 3 entries should be in Text Direction listbox
-
-    Call hNewDocument
-
-    '/// Set Asian support enabled and Set CTL enabled
-    Call ActiveDeactivateAsianSupport(TRUE)
-    Call ActiveDeactivateCTLSupport(TRUE)
-
-    '/// Check if there are 3 entires in Text Direction listbox
-    fFormatPageWriter("TabSeite")
-    if Textfluss.GetItemCount <> 3 then
-        Warnlog "There should be 3 entries in Text direction listbox , but get " & Textfluss.GetItemCount
-    end if
-    TabSeite.Cancel
-
-    if RecheckCTLSupport = True then
-        Call ActiveDeactivateCTLSupport(TRUE)
-    else
-        Call ActiveDeactivateCTLSupport(FALSE)
-    end if
-    if RecheckAsianSupport = True then
-        Call ActiveDeactivateAsianSupport(TRUE)
-    else
-        Call ActiveDeactivateAsianSupport(FALSE)
-    end if
-
-    Call hCloseDocument
-endcase
-
-'-------------------------------------------------------------------------------------------
-
-testcase tFormatPage_11
-
-    Dim sTestFile    as String
-    Dim sMarginsLeft as String
-    Dim iPageLayout  as Integer
-
-    sTestFile    = Convertpath (gTesttoolpath + "writer\optional\input\formatpage\pageLayout.sxw")
-    sMarginsLeft = "10" + gSeperator + "00" + gMeasurementUnit
-    iPageLayout  = 1
-
-    PrintLog "- Test Page layout - Right and left"
-    '/// Test Page layout - Right and left
-
-     Call hNewDocument
-
-    '/// Open a test file ,
-    '/// + There are 2 pictures in 2 pages separately ,
-    '/// + and they are anchored as character
-     hFileOpenLocally( sTestFile )
-     
-
-    '/// FormatPage / tabpage Page , Set left margins to 10cm ,
-    '/// + and set page layout to "Right to left"
-     fFormatPageWriter("TabSeite")
-     Links.SetText  sMarginsLeft
-     Sleep 1
-     Seitenlayout.Select iPageLayout
-     Sleep 1
-     TabSeite.OK
-
-    '/// Set focus to first picture , format/anchor to Page
-    Call wTypeKeys ( "<Shift F4>" )
-    Call wTypeKeys "<Tab>"
-
-    FormatAnchorToPage
-    Sleep 1
-
-    '/// Check its position
-     fPositionAndSize("TabPositionAndSizeWriter")
-     if Left$(Horizontalby.Gettext,5) <> Left$(sMarginsLeft,5) then  Warnlog "1-The position X isn't right , should be " &sMarginsLeft & " but get " & Horizontalby.Gettext
-     TabPositionAndSizeWriter.Cancel
-
-    '/// Set focus to second picture , format/anchor to Page
-     Call wTypeKeys "<Tab>"
-
-     FormatAnchorToPage
-     Sleep 1
-
-    '/// Check its position
-     fPositionAndSize("TabPositionAndSizeWriter")
-     if Left$(Horizontalby.Gettext,5) <> Left$(sMarginsLeft,5) then  Warnlog "2-The position X isn't right , should be " &sMarginsLeft & " but get " & Horizontalby.Gettext
-     TabPositionAndSizeWriter.Cancel
-
-   Call hCloseDocument
-
-endcase
-
-'-------------------------------------------------------------------------------------------
-
-testcase tFormatPage_12
-
-    Dim sTestFile    as String
-    Dim sMarginsLeft as String
-    Dim sMarginsRight as String
-    Dim iPageLayout  as Integer
-
-    sTestFile     = Convertpath (gTesttoolpath + "writer\optional\input\formatpage\pageLayout.sxw")
-    sMarginsLeft  = "10" + gSeperator + "00" + gMeasurementUnit
-    sMarginsRight = "4"  + gSeperator + "00" + gMeasurementUnit
-    iPageLayout   = 2
-
-    PrintLog "- Test Page layout - Mirrored"
-    '/// Test Page layout - Mirrored
-
-     Call hNewDocument
-
-    '/// Open a test file ,
-    '/// + there are 2 pictures in 2 pages separately , and they are anchored as character
-     hFileOpenLocally( sTestFile )
-     
-
-    '/// FormatPage / tabpage Page , Set left margins to 10cm ,
-    '/// + and set page layout to "Mirrored"
-     fFormatPageWriter("TabSeite")
-     Links.SetText  sMarginsLeft
-     Sleep 1
-     Rechts.SetText sMarginsRight
-     Sleep 1
-     Seitenlayout.Select iPageLayout
-     Sleep 1
-     TabSeite.OK
-
-    '/// Set focus to first picture , format/anchor to Page
-    Call wTypeKeys ( "<Shift F4>" )
-    Call wTypeKeys "<Tab>"
-
-     FormatAnchorToPage
-     Sleep 1
-
-    '/// Check its position
-     fPositionAndSize("TabPositionAndSizeWriter")
-     if Left$(Horizontalby.Gettext,5) <> Left$(sMarginsLeft,5) then  Warnlog "1-The position X isn't right , should be " &sMarginsLeft & " but get " & Horizontalby.Gettext
-     TabPositionAndSizeWriter.Cancel
-
-    '/// Set focus to second picture , format/anchor to Page
-     Call wTypeKeys "<Tab>"
-
-     FormatAnchorToPage
-     Sleep 1
-
-    '/// Check its position
-     fPositionAndSize("TabPositionAndSizeWriter")
-     if Left$(Horizontalby.Gettext,4) <> Left$(sMarginsRight,4) then  Warnlog "2-The position X isn't right , should be " &sMarginsRight & " but get " & Horizontalby.Gettext
-     TabPositionAndSizeWriter.Cancel
-
-   Call hCloseDocument
-
-endcase
-
-'-------------------------------------------------------------------------------------------
-
-testcase tFormatPage_13
-
-    Dim sTestFile as String
-    Dim sPage1 as String
-    Dim sPage2 as String
-    Dim iPageLayout as Integer
-
-    sTestFile     = Convertpath (gTesttoolpath + "writer\optional\input\formatpage\pageLayout.sxw")
-    sPage1        = "1"
-    sPage2        = "3"
-    iPageLayout   = 3
-
-    PrintLog "- Test Page layout - Only right"
-    '/// Test Page layout - Only right
-
-     Call hNewDocument
-
-    '/// Open a test file ,
-    '/// + there are 2 pictures in 2 pages separately
-     hFileOpenLocally( sTestFile )
-     
-
-    '/// FormatPage / tabpage Page , Set left margins to 10cm ,
-    '/// + and set page layout to "Only right"
-     fFormatPageWriter("TabSeite")
-     Seitenlayout.Select iPageLayout
-     Sleep 1
-     TabSeite.OK
-
-    '/// Set focus to first picture , Check if the picture is in first page
-    Call wTypeKeys ( "<Shift F4>" )
-    Call wTypeKeys "<Tab>"
-
-	Kontext "Navigator"
-	if Not Navigator.Exists then ViewNavigator
-	Kontext "NavigatorWriter"
-	Sleep 1
-	if Seitennummer.GetText <> sPage1 then Warnlog "1st pic isn't in page 1 !"
-	fCloseNavigator
-	Wait 500
-
-    '/// Set focus to second picture , Check if the picture is in third page
-     Call wTypeKeys "<Tab>"
-
-     Kontext "Navigator"
-     if Not Navigator.Exists then ViewNavigator
-     Kontext "NavigatorWriter"
-     Sleep 1
-     if Seitennummer.GetText <> sPage2 then Warnlog "2nd pic isn't in page 3 !"
-     fCloseNavigator
-     Wait 500
-
-    Call hCloseDocument
-
-endcase
-
-'-------------------------------------------------------------------------------------------
-
-testcase tFormatPage_14
-    Dim sTestFile as String
-    Dim sPage1 as String
-    Dim sPage2 as String
-    Dim iPageLayout as Integer
-
-    sTestFile     = Convertpath (gTesttoolpath + "writer\optional\input\formatpage\pageLayout.sxw")
-    sPage1        = "2"
-    sPage2        = "4"
-    iPageLayout   = 4
-
-    PrintLog "- Test Page layout - Only left"
-    '/// Test Page layout - Only left
-
-     Call hNewDocument
-
-    '/// Open a test file ,
-    '/// + there are 2 pictures in 2 pages separately
-     hFileOpenLocally( sTestFile )
-     
-
-    '/// FormatPage / tabpage Page , Set left margins to 10cm ,
-    '/// + and set page layout to "Only left"
-     fFormatPageWriter("TabSeite")
-     Seitenlayout.Select iPageLayout
-     Sleep 1
-     TabSeite.OK
-
-    '/// Set focus to first picture , Check if the picture is in first page
-    Call wTypeKeys ( "<Shift F4>" )
-    Call wTypeKeys "<Tab>"
-
-     Kontext "Navigator"
-     if Not Navigator.Exists then ViewNavigator
-     Kontext "NavigatorWriter"
-     Sleep 1
-     if Seitennummer.GetText <> sPage1 then Warnlog "1st pic isn't in page 2 !"
-     fCloseNavigator
-     Wait 500
-
-    '/// Set focus to second picture , Check if the picture is in third page
-     Call wTypeKeys "<Tab>"
-
-     Kontext "Navigator"
-     if Not Navigator.Exists then ViewNavigator
-     Kontext "NavigatorWriter"
-     Sleep 1
-     if Seitennummer.GetText <> sPage2 then Warnlog "2nd pic isn't in page 4 !"
-     fCloseNavigator
-     Wait 500
-
-    printlog "  Close active document "
-    Do Until GetDocumentCount = 0
-        Call hCloseDocument
-    Loop
-endcase
-
-'-------------------------------------------------------------------------------------------
-
-testcase tFormatPage_15
-    Dim sType as String
-    Dim sFormat as String
-
-    Select case iSprache
-        case 01:    sType   = "Page"
-                    sFormat = "As Page Style"
-        case 03:    sType   = "Página"
-                    sFormat = "Como estilo de página"
-        case 31:    sType = "Pagina"
-                    sFormat = "Zoals paginaopmaakprofiel"
-        case 33   : sType   = "Page"
-                    sFormat = "D'après le style de page"
-        case 34   : sType   = "Página"
-                    sFormat = "Como estilo de página"
-        case 39   : sType   = "Pagina"
-                    sFormat = "Come modello di pagina"
-        case 46:    sType   = "Sida"
-                    sFormat = "Som sidformatmall"
-        case 49:    sType   = "Seite"
-                    sFormat = "Wie Seitenvorlage"
-        case 50:    sType   = "Stran"
-                    sFormat = "Kot predloga za stran"
-        case 55   : sType   = "Estatísticas"
-                    sFormat = "Como Estilo de Página"
-        case 81   : sType   = "ページ"
-                    sFormat = "ページスタイル�?�設定"
-        case 82   : sType   = "통계"
-                    sFormat = "페�?�지 스타�?� 설정"
-        case 86   : sType   = "页"
-                    sFormat = "和页�?�样�?相�?�"
-        case 88   : sType   = "�?"
-                    sFormat = "和�?�?�樣�?相�?�"
-        case else : QAErrorLog "The test does not support the language " + iSprache
-        Goto endsub
-    end select
-
-    PrintLog "- Insertfields / other / Document / Type/Page -> As page Style must be set."
-    '/// Insertfield / other / Document / Type/Page -> As page Style must be set.
-
-    Call hNewDocument
-
-    '/// InsertFields / other , tabpage document , select page ,
-    '/// + check if Page format is right
-    Call fInsertFieldsOther("TabDokumentFeldbefehle")
-    Feldtyp.Select sType
-    Sleep 3
-    if Formatliste.GetSelText <> sFormat then
-        warnlog "the format setting should be " & sFormat & " but get " &Formatliste.GetSelText
-    end if
-    TabDokumentFeldbefehle.Close
-
-    Call hCloseDocument
-endcase
diff --git a/testautomation/writer/optional/includes/formatpage/w_formatpage2.inc b/testautomation/writer/optional/includes/formatpage/w_formatpage2.inc
deleted file mode 100644
index a191efc726cf..000000000000
--- a/testautomation/writer/optional/includes/formatpage/w_formatpage2.inc
+++ /dev/null
@@ -1,986 +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 : helge.delfs@oracle.com
-'*
-'* short description : Test the functionality of Page Formatting / Page Styles - 2
-'*
-'************************************************************************
-'*
-' #1 tFormatPage_16      'AutoFit height - Check (Header,change font size)
-' #1 tFormatPage_17      'AutoFit height - Check (Header,multiline content)
-' #1 tFormatPage_18      'AutoFit height - UnCheck (Header,change font size)
-' #1 tFormatPage_19      'AutoFit height - UnCheck (Header,multiline content)
-' #1 tFormatPage_20      'AutoFit height - Check (Footer,change font size)
-' #1 tFormatPage_21      'AutoFit height - Check (Footer,multiline content)
-' #1 tFormatPage_22      'AutoFit height - UnCheck (Footer,change font size)
-' #1 tFormatPage_23      'AutoFit height - UnCheck (Footer,multiline content)
-' #1 tFormatPage_24      'warning message should appear when turning off header -1
-' #1 tFormatPage_25      'warning message should appear when turning off header -2
-' #1 tFormatPage_26      'warning message should appear when turning off footer -1
-' #1 tFormatPage_27      'warning message should appear when turning off footer -2
-' #1 tFormatPage_28      'Header/footer is limited to 80% of height of page text area
-'*
-'\***********************************************************************
-
-testcase tFormatPage_16
-
-    Dim sTestFile as String
-    Dim sDummy as String
-
-    sTestFile = Convertpath (gTesttoolpath + "writer\optional\input\formatpage\testForAutoFit.sxw")
-
-    PrintLog "- AutoFit height - Check (Header,change font size)"
-    '/// AutoFit height - Check (Header,change font size)
-
-    Call hNewDocument
-
-    '/// Open test file testForAutoFit.sxw
-    hFileOpenLocally( sTestFile )
-    
-
-    '/// Open Navigator and enter as page number 2
-    Kontext "Navigator"
-    if Not Navigator.Exists then ViewNavigator
-    Kontext "NavigatorWriter"
-    Seitennummer.SetText "2"
-    Seitennummer.TypeKeys "<Return>"
-    '/// Close Navigator
-    ViewNavigator
-    
-    '/// Step 3 times up in document
-    Call wTypeKeys "<Up>" , 3
-    Call wTypeKeys "<Home><Shift End>"
-
-    '/// Remember number in line
-    EditCopy
-    sDummy =  GetClipboardText
-
-    '/// Insert a header
-    DocumentWriter.UseMenu
-    MenuSelect(Menugetitemid(4))
-    Sleep 2
-    MenuSelect(Menugetitemid(9))
-    Sleep 2
-    MenuSelect(Menugetitemid(3))
-    Sleep 2
-
-    '/// formatPage , tabpage header
-    fFormatPageWriter("TabKopfzeile")
-
-    '/// AutoFit Height should be checked
-    if Hoehedynamisch.IsChecked <> TRUE then
-        warnlog "AutoFit Height should be checked!"
-        Hoehedynamisch.Check
-    end if
-    TabKopfzeile.OK
-
-    '/// Input some test words and select them
-    Call wTypeKeys "Test"
-    Call wTypeKeys "<End><Shift Home>"
-
-    '/// Set the bigger fonts to selection in the header
-    fFormatCharacter("TabFont")
-    try
-       SizeWest.Select SizeWest.GetItemCount-2
-    catch
-       Size.Select Size.GetItemCount-2
-    endcatch
-    TabFont.OK
-
-    '/// Check if AutoFit Height works well
-    Kontext
-    EditSearchAndReplace
-    Kontext "FindAndReplace"
-    SearchFor.SetText sDummy
-    Sleep 1
-    SearchAll.Click
-    Sleep 1
-    FindAndReplace.Close
-
-    Kontext "Navigator"
-    if Not Navigator.Exists then ViewNavigator
-    Kontext "NavigatorWriter"
-    Sleep 1
-    if Seitennummer.GetText <> "2" then warnlog "Something wrong in AutoFit Height!"
-    Call fCloseNavigator
-
-    printlog "  Close active document "
-    Do Until GetDocumentCount = 0
-        Call hCloseDocument
-    Loop
-endcase
-
-'-------------------------------------------------------------------------------------------
-
-testcase tFormatPage_17
-
-    Dim sTestFile as String
-    Dim sDummy1 as String
-    Dim sDummy2 as String
-
-    sTestFile = Convertpath (gTesttoolpath + "writer\optional\input\formatpage\testForAutoFit.sxw")
-
-    PrintLog "- AutoFit height - Check (Header,multiline content)"
-    '/// AutoFit height - Check (Header,multiline content)
-
-    Call hNewDocument
-
-    '/// Open test file testForAutoFit.sxw
-     hFileOpenLocally( sTestFile )
-     
-
-    '/// Open Navigator and enter as page number 2
-    Kontext "Navigator"
-    if Not Navigator.Exists then ViewNavigator
-    Kontext "NavigatorWriter"
-    Seitennummer.SetText "2"
-    Seitennummer.TypeKeys "<Return>"
-    '/// Close Navigator
-    ViewNavigator
-
-    '/// Step 3 times up in document
-    Call wTypeKeys "<Up>" , 3
-    Call wTypeKeys "<Home><Shift End>"
-    
-    '/// Remember number in line
-    EditCopy
-    sDummy1 =  GetClipboardText
-    
-    Call wTypeKeys "<Up>"
-    Call wTypeKeys "<Home><Shift End>"
-    
-    EditCopy
-    sDummy2 =  GetClipboardText
-    
-    '/// Insert a header
-    DocumentWriter.UseMenu
-    MenuSelect(Menugetitemid(4))
-    Sleep 2
-    MenuSelect(Menugetitemid(9))
-    Sleep 2
-    MenuSelect(Menugetitemid(3))
-    Sleep 2
-    
-    '/// formatPage , tabpage header
-    fFormatPageWriter("TabKopfzeile")
-    
-    '/// AutoFit Height should be checked
-    if Hoehedynamisch.IsChecked <> TRUE then
-       warnlog "AutoFit Height should be checked!"
-       Hoehedynamisch.Check
-    end if
-    TabKopfzeile.OK
-    
-    '/// Input some test words
-    Call wTypeKeys "Test1"
-    Call wTypeKeys "<Return>"
-    Call wTypeKeys "Test2"
-    
-    '/// Check if AutoFit Height works well
-    Kontext
-    EditSearchAndReplace
-    Kontext "FindAndReplace"
-    SearchFor.SetText sDummy1
-    Sleep 1
-    SearchAll.Click
-    Sleep 1
-    FindAndReplace.Close
-    
-    Kontext "Navigator"
-    if Not Navigator.Exists then ViewNavigator
-    Kontext "NavigatorWriter"
-    Sleep 1
-    if Seitennummer.GetText <> "2" then warnlog "Something wrong in AutoFit Height --1 !"
-    fCloseNavigator
-    
-    Kontext
-    EditSearchAndReplace
-    Kontext "FindAndReplace"
-    SearchFor.SetText sDummy2
-    Sleep 1
-    SearchAll.Click
-    Sleep 1
-    FindAndReplace.Close
-    
-    Kontext "Navigator"
-    if Not Navigator.Exists then ViewNavigator
-    Kontext "NavigatorWriter"
-    Sleep 1
-    if Seitennummer.GetText <> "1" then warnlog "Something wrong in AutoFit Height --2 !"
-    fCloseNavigator
-
-    printlog "  Close active document "
-    Do Until GetDocumentCount = 0
-        Call hCloseDocument
-    Loop
-endcase
-
-'-------------------------------------------------------------------------------------------
-
-testcase tFormatPage_18
-
-    Dim sTestFile as String
-    Dim sDummy as String
-
-    sTestFile = Convertpath (gTesttoolpath + "writer\optional\input\formatpage\testForAutoFit.sxw")
-
-    PrintLog "- AutoFit height - UnCheck (Header,change font size)"
-    '/// AutoFit height - UnCheck (Header,change font size)
-
-    Call hNewDocument
-
-    '/// Open test file testForAutoFit.sxw
-     hFileOpenLocally( sTestFile )
-     
-
-    '/// Open Navigator and enter as page number 2
-    Kontext "Navigator"
-    if Not Navigator.Exists then ViewNavigator
-    Kontext "NavigatorWriter"
-    Seitennummer.SetText "2"
-    Seitennummer.TypeKeys "<Return>"
-    '/// Close Navigator
-    ViewNavigator
-
-    '/// Step 3 times up in document
-    Call wTypeKeys "<Up>" , 3
-    Call wTypeKeys "<Home><Shift End>"
-    
-    '/// Remember number in line
-    EditCopy
-    sDummy =  GetClipboardText
-
-    '/// Insert a header
-    DocumentWriter.UseMenu
-    MenuSelect(Menugetitemid(4))
-    Sleep 2
-    MenuSelect(Menugetitemid(9))
-    Sleep 2
-    MenuSelect(Menugetitemid(3))
-    Sleep 2
-    
-    '/// formatPage , tabpage header ,UnCheck AutoFit Height
-    fFormatPageWriter("TabKopfzeile")
-    Hoehedynamisch.UnCheck
-    TabKopfzeile.OK
-    
-    '/// Input some test words
-    Call wTypeKeys "Test"
-    Call wTypeKeys "<End><Shift Home>"
-    
-    '/// Set the bigger fonts to selection in the header
-    fFormatCharacter("TabFont")
-    try
-        SizeWest.Select  SizeWest.GetItemCount-2
-    catch
-        Size.Select      Size.GetItemCount-2
-    endcatch
-    TabFont.OK
-    
-    '/// Check if AutoFit Height works well
-    Kontext
-    EditSearchAndReplace
-    Kontext "FindAndReplace"
-    SearchFor.SetText sDummy
-    Sleep 1
-    SearchAll.Click
-    Sleep 1
-    FindAndReplace.Close
-    
-    Kontext "Navigator"
-    if Not Navigator.Exists then ViewNavigator
-    Kontext "NavigatorWriter"
-    Sleep 1
-    if Seitennummer.GetText <> "1" then warnlog "Something wrong in AutoFit Height!"
-    fCloseNavigator
-
-    printlog "  Close active document "
-    Do Until GetDocumentCount = 0
-        Call hCloseDocument
-    Loop
-endcase
-
-'-------------------------------------------------------------------------------------------
-
-testcase tFormatPage_19
-
-    Dim sTestFile as String
-    Dim sDummy as String
-
-    sTestFile  = Convertpath (gTesttoolpath + "writer\optional\input\formatpage\testForAutoFit.sxw")
-
-    PrintLog "- AutoFit height - UnCheck (Header,multiline content)"
-    '/// AutoFit height - UnCheck (Header,multiline content)
-
-    Call hNewDocument
-
-    '/// Open test file testForAutoFit.sxw
-     hFileOpenLocally( sTestFile )
-     
-
-    '/// Open Navigator and enter as page number 2
-    Kontext "Navigator"
-    if Not Navigator.Exists then ViewNavigator
-    Kontext "NavigatorWriter"
-    Seitennummer.SetText "2"
-    Seitennummer.TypeKeys "<Return>"
-    '/// Close Navigator
-    ViewNavigator
-
-    '/// Step 3 times up in document
-    Call wTypeKeys "<Up>" , 3
-    Call wTypeKeys "<Home><Shift End>"
-    
-    '/// Remember number in line
-    EditCopy
-    sDummy =  GetClipboardText
-
-    '/// Insert a header
-    DocumentWriter.UseMenu
-    MenuSelect(Menugetitemid(4))
-    Sleep 2
-    MenuSelect(Menugetitemid(9))
-    Sleep 2
-    MenuSelect(Menugetitemid(3))
-    Sleep 2
-    
-    '/// formatPage , tabpage header , Uncheck AutoFit Height
-    fFormatPageWriter("TabKopfzeile")
-    Hoehedynamisch.UnCheck
-    TabKopfzeile.OK
-    
-    '/// input some test words
-    Call wTypeKeys "Test1"
-    Call wTypeKeys "<Return>"
-    Call wTypeKeys "Test2"
-    
-    '/// Check if AutoFit Height works well
-    Kontext
-    EditSearchAndReplace
-    Kontext "FindAndReplace"
-    SearchFor.SetText sDummy
-    Sleep 1
-    SearchAll.Click
-    Sleep 1
-    FindAndReplace.Close
-
-    Kontext "Navigator"
-    if Not Navigator.Exists then ViewNavigator
-    Kontext "NavigatorWriter"
-    Sleep 1
-    if Seitennummer.GetText <> "1" then warnlog "Something wrong in AutoFit Height!"
-    fCloseNavigator
-
-    printlog "  Close active document "
-    Do Until GetDocumentCount = 0
-        Call hCloseDocument
-    Loop
-endcase
-
-'-------------------------------------------------------------------------------------------
-
-testcase tFormatPage_20
-
-    Dim sTestFile as String
-    Dim sDummy as String
-
-    sTestFile = Convertpath (gTesttoolpath + "writer\optional\input\formatpage\testForAutoFit.sxw")
-
-    PrintLog "- AutoFit height - Check (Footer,change font size)"
-    '/// AutoFit height - Check (Footer,change font size)
-
-    Call hNewDocument
-
-    '/// Open test file testForAutoFit.sxw
-    hFileOpenLocally( sTestFile )
-    
-
-    '/// Open Navigator and enter as page number 2
-    Kontext "Navigator"
-    if Not Navigator.Exists then ViewNavigator
-    Kontext "NavigatorWriter"
-    Seitennummer.SetText "2"
-    Seitennummer.TypeKeys "<Return>"
-    '/// Close Navigator
-    ViewNavigator
-
-    '/// Step 3 times up in document
-    Call wTypeKeys "<Up>" , 3
-    Call wTypeKeys "<Home><Shift End>"
-    
-    '/// Remember number in line
-    EditCopy
-    sDummy =  GetClipboardText
-
-    '/// Insert a footer
-    DocumentWriter.UseMenu
-    Sleep 2
-    MenuSelect(Menugetitemid(4))
-    Sleep 2
-    MenuSelect(Menugetitemid(10))
-    Sleep 2
-    Call hMenuFindSelect (".uno:InsertPageFooter?PageStyle:string=Default&On:bool=true", true, 3, true)   'Find "Insert:Footer:Default" and call the slot.
-'    MenuSelect(Menugetitemid(3))
-    Sleep 2
-
-    '/// formatPage , tabpage footer
-    fFormatPageWriter("TabFusszeile")
-
-    '/// AutoFit Height should be checked
-    if Hoehedynamisch.IsChecked <> TRUE then
-        warnlog "AutoFit Height should be checked!"
-        Hoehedynamisch.Check
-    end if
-    TabFusszeile.OK
-
-    Call wTypeKeys "Test"
-    Call wTypeKeys "<End><Shift Home>"
-
-    '/// Set the bigger fonts to selection in the footer
-    fFormatCharacter("TabFont")
-    try
-        SizeWest.Select SizeWest.GetItemCount-2
-    catch
-        Size.Select Size.GetItemCount-2
-    endcatch
-    TabFont.OK
-
-    '/// Check if AutoFit Height works well
-    Kontext
-    EditSearchAndReplace
-    Kontext "FindAndReplace"
-    SearchFor.SetText sDummy
-    Sleep 1
-    SearchAll.Click
-    Sleep 1
-    FindAndReplace.Close
-
-    Kontext "Navigator"
-    if Not Navigator.Exists then ViewNavigator
-    Kontext "NavigatorWriter"
-    Sleep 1
-    if Seitennummer.GetText <> "2" then warnlog "Something wrong in AutoFit Height!"
-    fCloseNavigator
-
-    printlog "  Close active document "
-    Do Until GetDocumentCount = 0
-        Call hCloseDocument
-    Loop
-endcase
-
-'-------------------------------------------------------------------------------------------
-
-testcase tFormatPage_21
-
-    Dim sTestFile as String
-    Dim sDummy1 as String
-    Dim sDummy2 as String
-
-    sTestFile = Convertpath (gTesttoolpath + "writer\optional\input\formatpage\testForAutoFit.sxw")
-
-    PrintLog "- AutoFit height - Check (Footer,multiline content)"
-    '/// AutoFit height - Check (Footer,multiline content)
-
-    '/// Open test file testForAutoFit.sxw
-     hFileOpenLocally( sTestFile )
-     
-
-    '/// Open Navigator and enter as page number 2
-    Kontext "Navigator"
-    if Not Navigator.Exists then ViewNavigator
-    Kontext "NavigatorWriter"
-    Seitennummer.SetText "2"
-    Seitennummer.TypeKeys "<Return>"
-    '/// Close Navigator
-    ViewNavigator
-
-    '/// Step 3 times up in document
-    Call wTypeKeys "<Up>" , 3
-    Call wTypeKeys "<Home><Shift End>"
-    
-    '/// Remember number in line
-    EditCopy
-    sDummy1 = GetClipboardText
-
-    '/// Again 1 step up
-    Call wTypeKeys "<Up>"
-    Call wTypeKeys "<Home><Shift End>"
-
-    '/// Remember number in current line
-    EditCopy
-    sDummy2 = GetClipboardText
-
-    printlog " Insert a footer"
-    DocumentWriter.UseMenu
-    MenuSelect(Menugetitemid(4))
-    Sleep 2
-    MenuSelect(Menugetitemid(10))
-    Sleep 2
-    Call hMenuFindSelect (".uno:InsertPageFooter?PageStyle:string=Default&On:bool=true", true, 3, true)   'Find "Insert:Footer:Default" and call the slot.
-    Sleep 2
-    
-    '/// formatPage , tabpage footer
-    fFormatPageWriter("TabFusszeile")
-    
-    '/// AutoFit Height should be checked
-    if Hoehedynamisch.IsChecked <> TRUE then
-        warnlog "AutoFit Height should be checked!"
-        Hoehedynamisch.Check
-    end if
-    TabFusszeile.OK
-    
-    '/// input some test words
-    Call wTypeKeys "Test1"
-    Call wTypeKeys "<Return>"
-    Call wTypeKeys "Test2"
-    
-    '/// Check if AutoFit Height works well
-    Kontext
-    EditSearchAndReplace
-    Kontext "FindAndReplace"
-    SearchFor.SetText sDummy1
-    Sleep 1
-    SearchAll.Click
-    Sleep 1
-    FindAndReplace.Close
-    
-    Kontext "Navigator"
-    if Not Navigator.Exists then ViewNavigator
-    Kontext "NavigatorWriter"
-    Sleep 1
-    if Seitennummer.GetText <> "2" then warnlog "Something wrong in AutoFit Height --1 !"
-    fCloseNavigator
-    
-    Kontext
-    EditSearchAndReplace
-    Kontext "FindAndReplace"
-    SearchFor.SetText sDummy2
-    Sleep 1
-    SearchAll.Click
-    Sleep 1
-    FindAndReplace.Close
-    
-    Kontext "Navigator"
-    if Not Navigator.Exists then ViewNavigator
-    Kontext "NavigatorWriter"
-    Sleep 1
-    if Seitennummer.GetText <> "1" then warnlog "Something wrong in AutoFit Height --2 !"
-    fCloseNavigator
-
-    printlog "  Close active document "
-    Do Until GetDocumentCount = 0
-        Call hCloseDocument
-    Loop
-endcase
-
-'-------------------------------------------------------------------------------------------
-
-testcase tFormatPage_22
-
-    Dim sTestFile as String
-    Dim sDummy as String
-
-    sTestFile = Convertpath (gTesttoolpath + "writer\optional\input\formatpage\testForAutoFit.sxw")
-
-    PrintLog "- AutoFit height - UnCheck (Footer,change font size)"
-    '/// AutoFit height - UnCheck (Footer,change font size)
-
-    Call hNewDocument
-
-    '/// Open test file testForAutoFit.sxw
-    hFileOpenLocally( sTestFile )
-    
-
-    '/// Open Navigator and enter as page number 2
-    Kontext "Navigator"
-    if Not Navigator.Exists then ViewNavigator
-    Kontext "NavigatorWriter"
-    Seitennummer.SetText "2"
-    Seitennummer.TypeKeys "<Return>"
-    '/// Close Navigator
-    ViewNavigator
-
-    '/// Step 3 times up in document
-    Call wTypeKeys "<Up>" , 3
-    Call wTypeKeys "<Home><Shift End>"
-    
-    '/// Remember number in line
-    EditCopy
-    sDummy =  GetClipboardText
-
-    '/// Insert a footer
-    DocumentWriter.UseMenu
-    MenuSelect(Menugetitemid(4))
-    Sleep 2
-    MenuSelect(Menugetitemid(10))
-    Sleep 2
-    Call hMenuFindSelect (".uno:InsertPageFooter?PageStyle:string=Default&On:bool=true", true, 3, true)   'Find "Insert:Footer:Default" and call the slot.
-'    MenuSelect(Menugetitemid(3))
-    Sleep 2
-
-    '/// formatPage , tabpage footer ,UnCheck AutoFit Height
-    fFormatPageWriter("TabFusszeile")
-    Hoehedynamisch.UnCheck
-    TabFusszeile.OK
-    
-    '/// input some test words
-    Call wTypeKeys "Test"
-    Call wTypeKeys "<End><Shift Home>"
-    
-    '/// Set the bigger fonts to selection in the footer
-    fFormatCharacter("TabFont")
-    try
-        SizeWest.Select SizeWest.GetItemCount-2
-    catch
-        Size.Select Size.GetItemCount-2
-    endcatch
-    TabFont.OK
-    
-    '/// Check if AutoFit Height works well
-    Kontext
-    EditSearchAndReplace
-    Kontext "FindAndReplace"
-    SearchFor.SetText sDummy
-    Sleep 1
-    SearchAll.Click
-    Sleep 1
-    FindAndReplace.Close
-    
-    Kontext "Navigator"
-    if Not Navigator.Exists then ViewNavigator
-    Kontext "NavigatorWriter"
-    Sleep 1
-    if Seitennummer.GetText <> "1" then warnlog "Something wrong in AutoFit Height!"
-    fCloseNavigator
-
-    printlog "  Close active document "
-    Do Until GetDocumentCount = 0
-        Call hCloseDocument
-    Loop
-endcase
-
-'-------------------------------------------------------------------------------------------
-
-testcase tFormatPage_23
-
-    Dim sTestFile as String
-    Dim sDummy as String
-
-    sTestFile  = Convertpath (gTesttoolpath + "writer\optional\input\formatpage\testForAutoFit.sxw")
-
-    PrintLog "- AutoFit height - UnCheck (Footer,multiline content)"
-    '/// AutoFit height - UnCheck (Footer,multiline content)
-
-    '/// Open test file testForAutoFit.sxw
-    hFileOpenLocally( sTestFile )
-    
-
-    '/// Open Navigator and enter as page number 2
-    Kontext "Navigator"
-    if Not Navigator.Exists then ViewNavigator
-    Kontext "NavigatorWriter"
-    Seitennummer.SetText "2"
-    Seitennummer.TypeKeys "<Return>"
-    '/// Close Navigator
-    ViewNavigator
-
-    '/// Step 3 times up in document
-    Call wTypeKeys "<Up>" , 3
-    Call wTypeKeys "<Home><Shift End>"
-    
-    '/// Remember number in line
-    EditCopy
-    sDummy =  GetClipboardText
-
-    '/// Insert a footer
-    DocumentWriter.UseMenu
-    MenuSelect(Menugetitemid(4))
-    Sleep 2
-    MenuSelect(Menugetitemid(10))
-    Sleep 2
-    Call hMenuFindSelect (".uno:InsertPageFooter?PageStyle:string=Default&On:bool=true", true, 3, true)   'Find "Insert:Footer:Default" and call the slot.
-'    MenuSelect(Menugetitemid(3))
-    Sleep 2
-    
-    '/// formatPage , tabpage footer ,Uncheck AutoFit Height
-    fFormatPageWriter("TabFusszeile")
-    Hoehedynamisch.UnCheck
-    TabFusszeile.OK
-    
-    '/// input some test words
-    Call wTypeKeys "Test1"
-    Call wTypeKeys "<Return>"
-    Call wTypeKeys "Test2"
-    
-    '/// Check if AutoFit Height works well
-    Kontext
-    EditSearchAndReplace
-    Kontext "FindAndReplace"
-    SearchFor.SetText sDummy
-    Sleep 1
-    SearchAll.Click
-    Sleep 1
-    FindAndReplace.Close
-    
-    Kontext "Navigator"
-    if Not Navigator.Exists then ViewNavigator
-    Kontext "NavigatorWriter"
-    Sleep 1
-    if Seitennummer.GetText <> "1" then warnlog "Something wrong in AutoFit Height!"
-    fCloseNavigator
-    
-    printlog "  Close active document "
-    Do Until GetDocumentCount = 0
-        Call hCloseDocument
-    Loop
-endcase
-
-'-------------------------------------------------------------------------------------------
-
-testcase tFormatPage_24
-
-    PrintLog "- warning message should appear when turning off header -1"
-    '/// warning message should appear when turning off header -1
-
-    Call hNewDocument
-
-    '/// Insert a header
-     DocumentWriter.UseMenu
-     MenuSelect(Menugetitemid(4))
-     Sleep 2
-     MenuSelect(Menugetitemid(9))
-     Sleep 2
-     MenuSelect(Menugetitemid(1))
-     Sleep 2
-
-    '/// formatPage , tabpage header
-     fFormatPageWriter("TabKopfzeile")
-
-    '/// + turn off header (uncheck Header on) ,
-    '/// + a warning message should appear
-       KopfzeileMitAbstand.UnCheck
-
-       Kontext "Active"
-       if Active.Exists then
-           if Active.GetRT = 304 then  Active.No
-       else
-            warnlog "There should be a warning message appear when turn off header !"
-       end if
-
-       Kontext "TabKopfzeile"
-     TabKopfzeile.Cancel
-
-    Call hCloseDocument
-endcase
-
-'-------------------------------------------------------------------------------------------
-
-testcase tFormatPage_25
-
-    PrintLog "- warning message should appear when turning off header -2"
-    '/// warning message should appear when turning off header -2
-
-    Call hNewDocument
-
-    '/// Insert a header
-     DocumentWriter.UseMenu
-     MenuSelect(Menugetitemid(4))
-     Sleep 2
-     MenuSelect(Menugetitemid(9))
-     Sleep 2
-     MenuSelect(Menugetitemid(1))
-     Sleep 2
-
-    '/// turn off header from menu
-     DocumentWriter.UseMenu
-     MenuSelect(Menugetitemid(4))
-     Sleep 2
-     MenuSelect(Menugetitemid(9))
-     Sleep 2
-     MenuSelect(Menugetitemid(1))
-     Sleep 2
-
-     Kontext "Active"
-     if Active.Exists then
-         if Active.GetRT = 304 then  Active.No
-     else
-          warnlog "There should be a warning message appear when turn off header !"
-     end if
-
-    Call hCloseDocument
-endcase
-
-'-------------------------------------------------------------------------------------------
-
-testcase tFormatPage_26
-
-    PrintLog "- warning message should appear when turning off footer -1"
-    '/// warning message should appear when turning off footer -1
-
-    Call hNewDocument
-
-    '/// Insert a footer
-     DocumentWriter.UseMenu
-     MenuSelect(Menugetitemid(4))
-     Sleep 2
-     MenuSelect(Menugetitemid(10))
-     Sleep 2
-     MenuSelect(Menugetitemid(1))
-     Sleep 2
-
-    '/// formatPage , tabpage footer
-     fFormatPageWriter("TabKopfzeile")
-
-    '/// + turn off header (uncheck Header on) ,
-    '/// + a warning message should appear
-       KopfzeileMitAbstand.UnCheck
-
-       Kontext "Active"
-       if Active.Exists then
-           if Active.GetRT = 304 then  Active.No
-       else
-            warnlog "There should be a warning message appear when turn off footer !"
-       end if
-
-       Kontext "TabKopfzeile"
-     TabKopfzeile.Cancel
-
-    Call hCloseDocument
-endcase
-
-'-------------------------------------------------------------------------------------------
-
-testcase tFormatPage_27
-
-    PrintLog "- warning message should appear when turning off footer -2"
-    '/// warning message should appear when turning off footer -2
-
-    Call hNewDocument
-
-    '/// Insert a footer
-     DocumentWriter.UseMenu
-     MenuSelect(Menugetitemid(4))
-     Sleep 2
-     MenuSelect(Menugetitemid(10))
-     Sleep 2
-     MenuSelect(Menugetitemid(1))
-     Sleep 2
-
-    '/// + turn off footer from menu ,
-     DocumentWriter.UseMenu
-     MenuSelect(Menugetitemid(4))
-      Sleep 2
-     MenuSelect(Menugetitemid(10))
-     Sleep 2
-     MenuSelect(Menugetitemid(1))
-     Sleep 2
-
-    '/// + the warning message should appear
-     Kontext "Active"
-     if Active.Exists then
-         if Active.GetRT = 304 then  Active.No
-     else
-          warnlog "There should be a warning message appear when turn off footer !"
-     end if
-
-    Call hCloseDocument
-endcase
-
-'-------------------------------------------------------------------------------------------
-
-testcase tFormatPage_28
-
-    Dim iFormat as Integer
-    Dim sHeightInPage as String  ,  sHeight as String
-
-    iFormat        = 2   'A4 paper
-    sHeightInPage  = "20" + gSeperator + "00" + gMeasurementUnit
-    sHeight        = "18" + gSeperator + "00" + gMeasurementUnit
-
-    PrintLog "- Header/footer is limited to 80% of height of page text area "
-   '/// Header/footer is limited to 80% of height of page text area
-
-    Call hNewDocument
-
-   '/// 1. Header is limited to 80% of height of page text area
-    fFormatPageWriter("TabSeite")
-      Papierformat.Select iFormat
-      Wait 500
-      Hoehe.SetText   sHeightInPage
-      Wait 500
-    TabSeite.OK
-
-    '/// formatPage , tabpage header ,
-    '/// + turn on header , and set header height more
-    '/// + than 80% of page height
-     fFormatPageWriter("TabKopfzeile")
-       KopfzeileMitAbstand.Check
-       Sleep 2
-       Hoehe.SetText  sHeight
-       Sleep 1
-     TabKopfzeile.OK
-
-    '/// Check if Header is limited to 80% of height of page text area
-     fFormatPageWriter("TabKopfzeile")
-       if StrToDouble(Hoehe.GetText) >= 16 then
-           warnlog "Header height is > 16cm ! Get " & StrToDouble(Hoehe.GetText)
-       end if
-     TabKopfzeile.Cancel
-    Call hCloseDocument
-
-    Call hNewDocument
-
-    '/// 2. Footer is limited to 80% of height of page text area
-     fFormatPageWriter("TabSeite")
-       Papierformat.Select iFormat
-       Wait 500
-       Hoehe.SetText   sHeightInPage
-       Wait 500
-     TabSeite.OK
-
-    '/// formatPage , tabpage footer ,
-    '/// + turn on footer , and set footer height more
-    '/// + than 80% of page height
-     fFormatPageWriter("TabFusszeile")
-       FusszeileMitAbstand.Check
-       Sleep 2
-       Hoehe.SetText  sHeight
-       Sleep 1
-     TabFusszeile.OK
-
-    '/// Check if footer is limited to 80% of height of page text area
-     fFormatPageWriter("TabFusszeile")
-       if StrToDouble(Hoehe.GetText) >= 16 then
-           warnlog "Footer height is > 16cm ! Get " & StrToDouble(Hoehe.GetText)
-       end if
-     TabFusszeile.Cancel
-
-    Call hCloseDocument
-endcase
-
-'-------------------------------------------------------------------------------------------
diff --git a/testautomation/writer/optional/includes/formatpage/w_formatpage3.inc b/testautomation/writer/optional/includes/formatpage/w_formatpage3.inc
deleted file mode 100644
index df0f810f9093..000000000000
--- a/testautomation/writer/optional/includes/formatpage/w_formatpage3.inc
+++ /dev/null
@@ -1,1372 +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 : helge.delfs@oracle.com
-'*
-'* short description : Test the functionality of Page Formatting / Page Styles - 3
-'*
-'************************************************************************
-'*
-' #1 tFormatPage_29      'check for same content on left/right pages in header
-' #1 tFormatPage_30      'check for different content on left/right pages in header
-' #1 tFormatPage_31      'check for same content on left/right pages in footer
-' #1 tFormatPage_32      'check for different content on left/right pages in footer
-' #1 tFormatPage_33      'cursor should jump to header when inserting a header via menu
-' #1 tFormatPage_34      'cursor shouldn't jump to header when inserting a header via checking 'Header on'
-' #1 tFormatPage_35      'cursor should jump to footer when inserting a footer via menu
-' #1 tFormatPage_36      'cursor shouldn't jump to footer when inserting a footer via checking 'Footer on'
-' #1 tFormatPage_37      'Header must be applied to the current page style when inserting via menu
-' #1 tFormatPage_38      'Footer must be applied to the current page style when inserting via menu
-' #1 tFormatPage_39      'Set multi column via controls in page dialog
-' #1 tFormatPage_40      'Set multi column via spinfield in page dialog
-' #1 tFormatPage_41      'create columns with different width
-' #1 tFormatPage_42      'vary distance between columns
-' #1 tFormatPage_43      'seperator line between columns - change height/position of seperator
-' #1 tFormatPage_44      'seperator line between columns - different line formats
-' #1 tFormatPage_45      'shouldn't exist spacing after remove separator line
-' #1 tFormatPage_46      'Check if the settings are kept after reopening the file
-' #1 tFormatPage_47      'Test Travel through the 5 columns preset boxes
-'*
-'\***********************************************************************
-
-testcase tFormatPage_29
-
-    Dim sTestFile as String  ,  sNewContent as String
-    Dim sContentInHeaderInPage1 as String  ,  sContentInHeaderInPage2 as String
-
-    sTestFile                = Convertpath (gTesttoolpath + "writer\optional\input\formatpage\testHeaderContent29.sxw")
-    sContentInHeaderInPage1  = "Header1"
-    sContentInHeaderInPage2  = "Header2"
-    sNewContent              = "MyTest"
-
-    PrintLog "- check for same content on left/right pages in header"
-    '/// check for same content on left/right pages in header
-
-    Call hNewDocument
-
-    '/// Open test file testHeaderContent29.sxw
-    '/// + (The test file include 2 pages , and the
-    '/// + content in header are different )
-    hFileOpenLocally( sTestFile )
-    
-
-    '/// formatPage , tabpage header , check 'same content left/right'
-    fFormatPageWriter("TabKopfzeile")
-    InhaltLinksRechtsGleich.Check
-    Sleep 1
-    TabKopfzeile.OK
-
-    Kontext
-    EditSearchAndReplace
-    Kontext "FindAndReplace"
-    SearchFor.SetText sContentInHeaderInPage2
-    Sleep 1
-    SearchAll.Click
-    Sleep 1
-
-    Kontext "Active"
-    if Active.Exists then
-        if Active.GetRT = 304 then  Active.OK
-    else
-        warnlog "The content should be same after checking 'same content left/right' !"
-    end if
-
-    Kontext "FindAndReplace"
-    FindAndReplace.Close
-
-    '/// type some new content in the header in page1
-     Kontext
-     EditSearchAndReplace
-     Kontext "FindAndReplace"
-       SearchFor.SetText sContentInHeaderInPage1
-       Sleep 1
-       SearchAll.Click
-       Sleep 1
-     FindAndReplace.Close
-
-     Call wTypeKeys "<Right>"
-     Call wTypeKeys "<Backspace>" , 7
-     Call wTypeKeys sNewContent
-     Sleep 1
-
-    '/// Check if the content in footer in page2 is changed
-     Kontext
-     EditSearchAndReplace
-     Kontext "FindAndReplace"
-       SearchFor.SetText sContentInHeaderInPage1
-       Sleep 1
-       SearchAll.Click
-       Sleep 1
-
-       Kontext "Active"
-       if Active.Exists then
-           if Active.GetRT = 304 then  Active.OK
-       else
-            warnlog "The content should be same after changing content in header in 1st page!"
-       end if
-
-       Kontext "FindAndReplace"
-     FindAndReplace.Close
-
-    printlog "  Close active document "
-    Do Until GetDocumentCount = 0
-        Call hCloseDocument
-    Loop
-endcase
-
-'-------------------------------------------------------------------------------------------
-
-testcase tFormatPage_30
-
-    Dim sTestFile as String
-    Dim sContentInHeader as String  ,  sNewContent as String
-    Dim sPage2 as String
-
-    sTestFile         = Convertpath (gTesttoolpath + "writer\optional\input\formatpage\testHeaderContent30.sxw")
-    sContentInHeader  = "Header"
-    sNewContent       = "MyTest"
-    sPage2            = "Second"
-
-    PrintLog "- check for different content on left/right pages in header"
-    '/// check for different content on left/right pages in header
-
-    Call hNewDocument
-
-    '/// Open test file testHeaderContent30.sxw
-    '/// + (The test file include 2 pages , and the
-    '/// + content in header is same )
-     hFileOpenLocally( sTestFile )
-     
-
-    '/// formatPage , tabpage header , Uncheck 'same content left/right'
-     fFormatPageWriter("TabKopfzeile")
-       InhaltLinksRechtsGleich.UnCheck
-     TabKopfzeile.OK
-
-    '/// type some new content in the header in page1
-     Kontext
-     EditSearchAndReplace
-     Kontext "FindAndReplace"
-       SearchFor.SetText sContentInHeader
-       Sleep 1
-       SearchAll.Click
-       Sleep 1
-     FindAndReplace.Close
-
-     Call wTypeKeys "<Right>"
-     Call wTypeKeys "<Backspace>" , 6
-     Call wTypeKeys sNewContent
-     Sleep 1
-
-    '/// Check if the content in footer in page2 is changed
-     Kontext
-     EditSearchAndReplace
-     Kontext "FindAndReplace"
-       SearchFor.SetText sContentInHeader
-       Sleep 1
-       SearchAll.Click
-       Sleep 1
-     FindAndReplace.Close
-
-     Kontext "Navigator"
-     if Not Navigator.Exists then ViewNavigator
-     Kontext "NavigatorWriter"
-     Sleep 1
-     if Seitennummer.GetText <> "1" then warnlog "Something wrong in Header in 1st page!"
-     fCloseNavigator
-
-    printlog "  Close active document "
-    Do Until GetDocumentCount = 0
-        Call hCloseDocument
-    Loop
-endcase
-
-'-------------------------------------------------------------------------------------------
-
-
-testcase tFormatPage_31
-
-    Dim sTestFile as String  ,  sNewContent as String
-    Dim sContentInFooterInPage1 as String  ,  sContentInFooterInPage2 as String
-
-    sTestFile                = Convertpath (gTesttoolpath + "writer\optional\input\formatpage\testFooterContent31.sxw")
-    sContentInFooterInPage1  = "Footer1"
-    sContentInFooterInPage2  = "Footer2"
-    sNewContent              = "MyTest"
-
-    PrintLog "- check for same content on left/right pages in footer"
-    '/// check for same content on left/right pages in footer
-
-    Call hNewDocument
-
-    '/// Open test file testFooterContent31.sxw
-    '/// + (The test file include 2 pages , and the content
-    '/// + in footer are different )
-     hFileOpenLocally( sTestFile )
-     
-
-    '/// + formatPage , tabpage footer , check 'same content left/right'
-     fFormatPageWriter("TabFusszeile")
-       InhaltLinksRechtsGleich.Check
-       Sleep 1
-     TabFusszeile.OK
-
-     Kontext
-     EditSearchAndReplace
-     Kontext "FindAndReplace"
-       SearchFor.SetText sContentInFooterInPage2
-       Sleep 1
-       SearchAll.Click
-       Sleep 1
-
-       Kontext "Active"
-       if Active.Exists then
-           if Active.GetRT = 304 then  Active.OK
-       else
-           warnlog "The content should be same after checking 'same content left/right' !"
-       end if
-
-       Kontext "FindAndReplace"
-     FindAndReplace.Close
-
-    '/// type some new content in the footer in page1
-     Kontext
-     EditSearchAndReplace
-     Kontext "FindAndReplace"
-       SearchFor.SetText sContentInFooterInPage1
-       Sleep 1
-       SearchAll.Click
-       Sleep 1
-     FindAndReplace.Close
-
-     Call wTypeKeys "<Right>"
-     Call wTypeKeys "<Backspace>" , 7
-     Call wTypeKeys sNewContent
-     Sleep 1
-
-    '/// Check if the content in footer in page2 is changed
-     Kontext
-     EditSearchAndReplace
-     Kontext "FindAndReplace"
-       SearchFor.SetText sContentInFooterInPage1
-       Sleep 1
-       SearchAll.Click
-       Sleep 1
-
-       Kontext "Active"
-       if Active.Exists then
-           if Active.GetRT = 304 then  Active.OK
-       else
-            warnlog "The content should be same after changing content in footer in 1st page!"
-       end if
-
-       Kontext "FindAndReplace"
-     FindAndReplace.Close
-
-    printlog "  Close active document "
-    Do Until GetDocumentCount = 0
-        Call hCloseDocument
-    Loop
-endcase
-
-'-------------------------------------------------------------------------------------------
-
-testcase tFormatPage_32
-
-    Dim sTestFile as String
-    Dim sContentInFooter as String  ,  sNewContent as String
-    Dim sPage2 as String
-
-    sTestFile         = Convertpath (gTesttoolpath + "writer\optional\input\formatpage\testFooterContent32.sxw")
-    sContentInFooter  = "Footer"
-    sNewContent       = "MyTest"
-    sPage2            = "Second"
-
-    PrintLog "- check for different content on left/right pages in footer"
-    '/// check for different content on left/right pages in footer
-
-    Call hNewDocument
-
-    '/// Open test file testFooterContent32.sxw
-    '/// + (The test file include 2 pages , and the
-    '/// + content in footer is same )
-     hFileOpenLocally( sTestFile )
-     
-
-    '/// formatPage , tabpage footer , Uncheck 'same content left/right'
-     fFormatPageWriter("TabFusszeile")
-       InhaltLinksRechtsGleich.UnCheck
-     TabFusszeile.OK
-
-    '/// type some new content in the footer in page1
-     Kontext
-     EditSearchAndReplace
-     Kontext "FindAndReplace"
-       SearchFor.SetText sContentInFooter
-       Sleep 1
-       SearchAll.Click
-       Sleep 1
-     FindAndReplace.Close
-
-     Call wTypeKeys "<Right>"
-     Call wTypeKeys "<Backspace>" , 6
-     Call wTypeKeys sNewContent
-     Sleep 1
-
-    '/// Check if the content in the footer in page2 is changed
-     Kontext
-     EditSearchAndReplace
-     Kontext "FindAndReplace"
-       SearchFor.SetText sContentInFooter
-       Sleep 1
-       SearchAll.Click
-       Sleep 1
-     FindAndReplace.Close
-
-     Kontext "Navigator"
-     if Not Navigator.Exists then ViewNavigator
-     Kontext "NavigatorWriter"
-     Sleep 1
-     if Seitennummer.GetText <> "1" then warnlog "Something wrong in Footer in 1st page!"
-     fCloseNavigator
-
-    printlog "  Close active document "
-    Do Until GetDocumentCount = 0
-        Call hCloseDocument
-    Loop
-endcase
-
-'-------------------------------------------------------------------------------------------
-
-testcase tFormatPage_33
-
-    Dim sTest as String
-
-    sTest = "Test"
-
-    PrintLog "- cursor should jump to header when inserting a header via menu"
-    '/// cursor should jump to header when inserting a header via menu
-
-    Call hNewDocument
-
-    '/// Input some test words
-     Call wTypeKeys "ABC"
-
-    '/// Insert a header via menu
-     DocumentWriter.UseMenu
-     MenuSelect(Menugetitemid(4))
-     Sleep 2
-     MenuSelect(Menugetitemid(9))
-     Sleep 2
-     MenuSelect(Menugetitemid(1))
-     Sleep 2
-
-    '/// type some test words -- it should be in the header
-     Call wTypeKeys sTest
-
-    '/// check if the text in header is right
-     Kontext
-     EditSearchAndReplace
-     Kontext "FindAndReplace"
-       SearchFor.SetText sTest
-       Sleep 1
-       SearchAll.Click
-       Sleep 1
-     FindAndReplace.Close
-     Sleep 1
-
-     EditSelectAll
-     EditCopy
-
-     if GetClipboardText <> sTest then warnlog "The content in the header isn't right, should be " &sTest &  " but get " & GetClipboardText
-
-    '/// Remove the header
-     Kontext
-     Kontext "DocumentWriter"
-     DocumentWriter.UseMenu
-     MenuSelect(Menugetitemid(4))
-     Sleep 2
-     MenuSelect(Menugetitemid(9))
-     Sleep 2
-     MenuSelect(Menugetitemid(1))
-     Sleep 2
-
-     Kontext "Active"
-     if Active.Exists then
-         if Active.GetRT = 304 then  Active.Yes
-     else
-          warnlog "There should be a warning message appear when turn off header !"
-     end if
-     Sleep 1
-
-    '/// Check if the content in header is removed
-     Kontext
-     EditSearchAndReplace
-     Kontext "FindAndReplace"
-       SearchFor.SetText sTest
-       Sleep 1
-       SearchAll.Click
-       Sleep 1
-
-       Kontext "Active"
-       if Active.Exists then
-           if Active.GetRT = 304 then  Active.OK
-       else
-           warnlog "The content in header should be removed!"
-       end if
-
-       Kontext "FindAndReplace"
-     FindAndReplace.Close
-
-    Call hCloseDocument
-
-endcase
-
-'-------------------------------------------------------------------------------------------
-
-testcase tFormatPage_34
-
-    Dim sTest as String
-
-    sTest = "Test"
-
-    PrintLog "- cursor shouldn't jump to header when inserting a header via checking 'Header on'"
-    '/// cursor shouldn't jump to header when inserting a header via  checking 'Header on'
-
-    Call hNewDocument
-
-     Call wTypeKeys "ABC"
-
-    '/// formatPage , tabpage header
-     fFormatPageWriter("TabKopfzeile")
-
-    '/// + turn on header (check Header on)
-       KopfzeileMitAbstand.Check
-     TabKopfzeile.OK
-     Sleep 1
-
-    '/// type some test words -- it should be in the header
-     Call wTypeKeys sTest
-
-    '/// check if the text in header is right
-     Kontext
-     EditSearchAndReplace
-     Kontext "FindAndReplace"
-        WholeWordsOnly.UnCheck
-       Sleep 1
-       SearchFor.SetText sTest
-       Sleep 1
-       SearchAll.Click
-       Sleep 1
-     FindAndReplace.Close
-     Sleep 1
-
-     EditSelectAll
-     EditCopy
-
-     if GetClipboardText <> "ABC"+sTest then warnlog "The content in the header isn't right, should be null"
-
-    Call hCloseDocument
-
-endcase
-
-'-------------------------------------------------------------------------------------------
-
-testcase tFormatPage_35
-
-    Dim sTest as String
-
-    sTest = "Test"
-
-    PrintLog "- cursor should jump to footer when inserting a footer via menu"
-    '/// cursor should jump to footer when inserting a footer via menu
-
-    Call hNewDocument
-
-     Call wTypeKeys "ABC"
-
-    '/// Insert a footer via menu
-     DocumentWriter.UseMenu
-     MenuSelect(Menugetitemid(4))
-     Sleep 2
-     MenuSelect(Menugetitemid(9))
-     Sleep 2
-     MenuSelect(Menugetitemid(1))
-     Sleep 2
-
-    '/// type some test words - it should be in the footer
-     Call wTypeKeys sTest
-
-    '/// check if the text in footer is right
-     Kontext
-     EditSearchAndReplace
-     Kontext "FindAndReplace"
-       SearchFor.SetText sTest
-       Sleep 1
-       SearchAll.Click
-       Sleep 1
-     FindAndReplace.Close
-     Sleep 1
-
-     EditSelectAll
-     EditCopy
-
-     if GetClipboardText <> sTest then warnlog "The content in the footer isn't right, should be " &sTest &  " but get " & GetClipboardText
-
-    '/// Remove the footer
-     Kontext
-     Kontext "DocumentWriter"
-     DocumentWriter.UseMenu
-     MenuSelect(Menugetitemid(4))
-     Sleep 2
-     MenuSelect(Menugetitemid(9))
-     Sleep 2
-     MenuSelect(Menugetitemid(1))
-     Sleep 2
-
-     Kontext "Active"
-     if Active.Exists then
-         if Active.GetRT = 304 then  Active.Yes
-     else
-          warnlog "There should be a warning message appear when turn off footer !"
-     end if
-     Sleep 1
-
-    '/// Check if the content in footer is removed
-     Kontext
-     EditSearchAndReplace
-     Kontext "FindAndReplace"
-       SearchFor.SetText sTest
-       Sleep 1
-       SearchAll.Click
-       Sleep 1
-
-       Kontext "Active"
-       if Active.Exists then
-           if Active.GetRT = 304 then  Active.OK
-       else
-           warnlog "The content in footer should be removed!"
-       end if
-
-       Kontext "FindAndReplace"
-     FindAndReplace.Close
-
-    Call hCloseDocument
-
-endcase
-
-'-------------------------------------------------------------------------------------------
-
-testcase tFormatPage_36
-
-    Dim sTest as String
-
-    sTest = "Test"
-
-    PrintLog "- cursor shouldn't jump to footer when inserting a footer via checking 'Footer on'"
-    '/// cursor shouldn't jump to footer when inserting a footer via  checking 'Footer on'
-
-    Call hNewDocument
-
-     Call wTypeKeys "ABC"
-
-    '/// formatPage , tabpage footer
-     fFormatPageWriter("TabKopfzeile")
-
-    '/// + turn on footer (check Footer on)
-       KopfzeileMitAbstand.Check
-     TabKopfzeile.OK
-     Sleep 1
-
-    '/// type some test words - it should be in the footer
-     Call wTypeKeys sTest
-
-    '/// check if the text in footer is right
-     Kontext
-     EditSearchAndReplace
-     Kontext "FindAndReplace"
-       WholeWordsOnly.UnCheck
-       Sleep 1
-       SearchFor.SetText sTest
-       Sleep 1
-       SearchAll.Click
-       Sleep 1
-     FindAndReplace.Close
-     Sleep 1
-
-     EditSelectAll
-     EditCopy
-
-     if GetClipboardText <> "ABC"+sTest then warnlog "The content in the footer isn't right, should be null"
-
-    Call hCloseDocument
-
-endcase
-
-'-------------------------------------------------------------------------------------------
-
-testcase tFormatPage_37
-
-    Dim sHeader as String
-
-    Select case iSprache
-        case 01   : sHeader = "Header"
-        case 31   : sHeader = "Koptekst"
-        case 33   : sHeader = "En-tête"
-        case 34   : sHeader = "Encabezamiento"
-        case 39   : sHeader = "Riga d'intestazione"
-        case 46   : sHeader = "Sidhuvud"
-        case 49   : sHeader = "Kopfzeile"
-        case 50   : sHeader = "Glava"
-        case 55   : sHeader = "Cabeçalho"
-        case 81   : sHeader = "ヘッダ"
-        case 82   : sHeader = "머리글"
-        case 86   : sHeader = "页眉"
-        case 88   : sHeader = "頁首"
-        case else : QAErrorLog "The test does not support the language " + iSprache
-                    Goto endsub
-    end select
-
-    PrintLog "- Header must be applied to the current page style when inserting via menu"
-    '/// Header must be applied to the current page style when inserting via menu
-
-    Call hNewDocument
-
-    '/// Insert a header via menu
-     DocumentWriter.UseMenu
-     MenuSelect(Menugetitemid(4))
-     Sleep 2
-     MenuSelect(Menugetitemid(9))
-     Sleep 2
-     MenuSelect(Menugetitemid(1))
-     Sleep 2
-
-    '/// Check if header can be seen in status bar
-     Kontext "TableObjectbar"
-
-     if Vorlage2.GetSelText <> sHeader then
-         warnlog "The header can't be seen in status bar ! "
-     end if
-
-    Call hCloseDocument
-
-endcase
-
-'-------------------------------------------------------------------------------------------
-
-testcase tFormatPage_38
-
-    Dim sFooter as String
-
-    Select case iSprache
-        case 01   : sFooter = "Footer"
-        case 31   : sFooter = "Voettekst"
-        case 33   : sFooter = "Pied de page"
-        case 34   : sFooter = "Pie de página"
-        case 39   : sFooter = "Piè di pagina"
-        case 46   : sFooter = "Sidfot"
-        case 49   : sFooter = "Fußzeile"
-        case 50   : sFooter = "Noga"
-        case 55   : sFooter = "Rodapé"
-        case 81   : sFooter = "フッタ"
-        case 82   : sFooter = "바닥글"
-        case 86   : sFooter = "页脚"
-        case 88   : sFooter = "頁尾"
-        case else : QAErrorLog "The test does not support the language " + iSprache
-                    Goto endsub
-    end select
-
-    PrintLog "- Footer must be applied to the current page style when inserting via menu"
-    '/// Footer must be applied to the current page style when inserting via menu
-
-    Call hNewDocument
-
-    '/// Insert a footer via menu
-     DocumentWriter.UseMenu
-     MenuSelect(Menugetitemid(4))
-     Sleep 2
-     MenuSelect(Menugetitemid(10))
-     Sleep 2
-     MenuSelect(Menugetitemid(1))
-     Sleep 2
-
-    '/// Check if header can be seen in status bar
-     Kontext "TableObjectbar"
-
-     if Vorlage2.GetSelText <> sFooter then
-         warnlog "The footer can't be seen in status bar ! "
-     end if
-
-    Call hCloseDocument
-
-endcase
-
-'-------------------------------------------------------------------------------------------
-
-testcase tFormatPage_39
-
-    Dim sTestFile as String
-    Dim sColumn as String
-
-    sTestFile  = Convertpath (gTesttoolpath + "writer\optional\input\formatpage\testColumnInPage.sxw")
-    sColumn    = "3"
-
-    PrintLog "- Set multi column via controls in page dialog"
-    '/// Set multi column via controls in page dialog
-
-    Call hNewDocument
-
-    '/// Open test file testColumnInPage.sxw
-    '/// + (The test file includes 2 pages , some text
-    '/// + is in 1st page and another is in 2nd page)
-     hFileOpenLocally( sTestFile )
-     
-
-    '/// formatPage , tabpage columns , change column to 3 via controls
-     fFormatPageWriter("TabSpalten")
-       Anzahl.TypeKeys "<Up>", 2
-       Sleep 1
-     TabSpalten.OK
-
-    '/// Check if the text in 1st page in the 1st column
-     Kontext
-     EditSearchAndReplace
-     Kontext "FindAndReplace"
-       SearchFor.SetText "ABCD"
-       Sleep 1
-       SearchAll.Click
-       Sleep 1
-     FindAndReplace.Close
-
-     Call wTypeKeys "<Home>"
-     Call wTypeKeys "<Shift End>"
-     EditCopy
-     if Len(GetClipboardText) = 26 then warnlog "the first column isn't right!"
-
-    '/// Check if the text in 2nd page in the 2nd column
-     Kontext
-     EditSearchAndReplace
-     Kontext "FindAndReplace"
-       SearchFor.SetText "This"
-       Sleep 1
-       SearchAll.Click
-       Sleep 1
-     FindAndReplace.Close
-
-     Kontext "Navigator"
-       if Not Navigator.Exists then ViewNavigator
-       Kontext "NavigatorWriter"
-       Sleep 1
-       if Seitennummer.GetText <> "1" then warnlog "the second column isn't right!"
-     fCloseNavigator
-
-    printlog "  Close active document "
-    Do Until GetDocumentCount = 0
-        Call hCloseDocument
-    Loop
-endcase
-
-'-------------------------------------------------------------------------------------------
-
-testcase tFormatPage_40
-
-    Dim sTestFile as String
-    Dim sColumn as String
-
-    sTestFile  = Convertpath (gTesttoolpath + "writer\optional\input\formatpage\testColumnInPage.sxw")
-    sColumn    = "3"
-
-    PrintLog "- Set multi column via spinfield in page dialog"
-    '/// Set multi column via spinfield in page dialog
-
-    Call hNewDocument
-
-    '/// Open test file testColumnInPage.sxw
-    '/// + (The test file includes 2 pages , some text is
-    '/// + in 1st page and another is in 2nd page)
-     hFileOpenLocally( sTestFile )
-     
-
-    '/// formatPage , tabpage columns , change column to 3 via spinfield
-     fFormatPageWriter("TabSpalten")
-       ColumnValueset.TypeKeys "<Right>"
-       Sleep 1
-       ColumnValueset.TypeKeys "<Right>"
-       Sleep 1
-       ColumnValueset.TypeKeys "<Right>"
-       Sleep 1
-     TabSpalten.OK
-
-    '/// Check if the text in 1st page in the 1st column
-     Kontext
-     EditSearchAndReplace
-     Kontext "FindAndReplace"
-       SearchFor.SetText "ABCD"
-       Sleep 1
-       SearchAll.Click
-       Sleep 1
-     FindAndReplace.Close
-
-     Call wTypeKeys "<Home>"
-     Call wTypeKeys "<Shift End>"
-     EditCopy
-     if Len(GetClipboardText) = 26 then warnlog "the first column isn't right!"
-
-    '/// Check if the text in 2nd page in the 2nd column
-     Kontext
-     EditSearchAndReplace
-     Kontext "FindAndReplace"
-       SearchFor.SetText "This"
-       Sleep 1
-       SearchAll.Click
-       Sleep 1
-     FindAndReplace.Close
-
-     Kontext "Navigator"
-       if Not Navigator.Exists then ViewNavigator
-       Kontext "NavigatorWriter"
-       Sleep 1
-       if Seitennummer.GetText <> "1" then warnlog "the second column isn't right!"
-     fCloseNavigator
-
-    printlog "  Close active document "
-    Do Until GetDocumentCount = 0
-        Call hCloseDocument
-    Loop
-endcase
-
-'-------------------------------------------------------------------------------------------
-
-testcase tFormatPage_41
-
-    Dim sTestFile as String
-    Dim sColumn as String
-    Dim sWidthColumn1 as String
-    Dim sWidthColumn2 as String
-    Dim sWidthColumn3 as String
-
-    sTestFile     = Convertpath (gTesttoolpath + "writer\optional\input\formatpage\testColumnInPage2.sxw")
-    sColumn       = "3"
-    sWidthColumn1 = "2" + gSeperator + "00"
-    sWidthColumn2 = "4" + gSeperator + "00"
-
-    PrintLog "- create columns with different width "
-    '/// create columns with different width
-
-    Call hNewDocument
-
-    '/// Open test file testColumnInPage2.sxw
-    '/// + (The test file includes 2 pages , some text is
-    '/// + in 1st page and another is in 2nd page)
-    hFileOpenLocally( sTestFile )
-    
-
-    '/// Create 3 with different columns . formatPage ,
-    '/// + tabpage columns , set 3 columns
-    Call fFormatPageWriter("TabSpalten")
-    Anzahl.TypeKeys "<Up>", 2
-    Sleep 1
-    AutomBreite.Uncheck
-    Sleep 1
-    Spaltenbreite1.SetText sWidthColumn1
-    wait 500
-    Spaltenbreite2.SetText sWidthColumn2
-    wait 500
-    Art.Select 1
-    wait 500
-    sWidthColumn3 = Spaltenbreite3.GetText
-    wait 500
-    TabSpalten.OK
-
-    '/// Check if columns' width is right
-    fFormatPageWriter("TabSpalten")
-    if Left$(Spaltenbreite1.GetText,4) <> sWidthColumn1 then Warnlog "the column1's width isn't set correctly !"
-    if Left$(Spaltenbreite2.GetText,4) <> sWidthColumn2 then Warnlog "the column2's width isn't set correctly !"
-    if Spaltenbreite3.GetText <> sWidthColumn3 then Warnlog "the column3's width isn't set correctly !"
-    TabSpalten.Cancel
-
-    'detailed check for column1
-    Kontext
-    EditSearchAndReplace
-    Kontext "FindAndReplace"
-    SearchFor.SetText "ABCD"
-    Sleep 1
-    SearchAll.Click
-    Sleep 1
-    FindAndReplace.Close
-
-    Call wTypeKeys "<Home>"
-    Call wTypeKeys "<Shift End>"
-    EditCopy
-    if Len(GetClipboardText) > 8 then Warnlog "Something wrong in the column1"
-
-    'detailed check for column2
-    Kontext
-    EditSearchAndReplace
-    Kontext "FindAndReplace"
-    SearchFor.SetText "ZYXW"
-    Sleep 1
-    SearchAll.Click
-    Sleep 1
-    FindAndReplace.Close
-
-    Call wTypeKeys "<Home>"
-    Call wTypeKeys "<Shift End>"
-    EditCopy
-    if Len(GetClipboardText) > 14 then Warnlog "Something wrong in the column2"
-
-    printlog "  Close active document "
-    Do Until GetDocumentCount = 0
-        Call hCloseDocument
-    Loop
-endcase
-
-'-------------------------------------------------------------------------------------------
-
-testcase tFormatPage_42
-
-    Dim sTestFile as String
-    Dim sColumn as String
-    Dim sWidthColumn1 as String
-    Dim sWidthColumn2 as String
-    Dim sWidthColumn3 as String
-    Dim sSpacing1 as String
-    Dim sSpacing2 as String
-
-    sTestFile     = Convertpath (gTesttoolpath + "writer\optional\input\formatpage\testColumnInPage2.sxw")
-    sColumn       = "3"
-
-    sWidthColumn1 = "2" + gSeperator + "00" + gMeasurementUnit
-    sWidthColumn2 = "4" + gSeperator + "00" + gMeasurementUnit
-    sSpacing1     = "1" + gSeperator + "00" + gMeasurementUnit
-    sSpacing2     = "2" + gSeperator + "00" + gMeasurementUnit
-
-    PrintLog "- vary distance between columns "
-    '/// vary distance between columns
-
-    Call hNewDocument
-
-    '/// Open test file testColumnInPage2.sxw
-    '/// + (The test file includes 2 pages , some text is
-    '/// + in 1st page and another is in 2nd page)
-     hFileOpenLocally( sTestFile )
-     
-
-    '/// formatPage , tabpage columns , set 3 columns
-     fFormatPageWriter("TabSpalten")
-       Anzahl.TypeKeys "<Up>", 2
-       Sleep 1
-     TabSpalten.OK
-
-    '/// vary distance between columns
-     fFormatPageWriter("TabSpalten")
-       AutomBreite.Uncheck
-       Sleep 1
-       Spaltenbreite1.SetText sWidthColumn1
-       wait 500
-       Spaltenbreite2.SetText sWidthColumn2
-       wait 500
-       Abstand12.SetText sSpacing1
-       Sleep 2
-       Abstand23.SetText sSpacing2
-       Sleep 2
-       Art.Select 1
-       Sleep 1
-       sWidthColumn2 = "3" + gSeperator + "00" + gMeasurementUnit
-       sWidthColumn3 = Spaltenbreite3.GetText
-       wait 500
-     TabSpalten.OK
-
-    '/// Check if columns' width and spacing are right
-     fFormatPageWriter("TabSpalten")
-       if Spaltenbreite1.GetText <> sWidthColumn1 then Warnlog "the column1's width isn't set correctly !"
-       if Spaltenbreite2.GetText <> sWidthColumn2 then Warnlog "the column2's width isn't set correctly !"
-       if Spaltenbreite3.GetText <> sWidthColumn3 then Warnlog "the column3's width isn't set correctly !"
-       if Abstand12.GetText      <> sSpacing1     then Warnlog "the spacing1 isn't correct!"
-       if Abstand23.GetText      <> sSpacing2     then Warnlog "the spacing1 isn't correct!"
-     TabSpalten.Cancel
-
-    'detailed check for column2
-     Kontext
-     EditSearchAndReplace
-     Kontext "FindAndReplace"
-       SearchFor.SetText "ZYXW"
-       Sleep 1
-       SearchAll.Click
-       Sleep 1
-     FindAndReplace.Close
-
-     Call wTypeKeys "<Home>"
-     Call wTypeKeys "<Shift End>"
-     EditCopy
-     if Len(GetClipboardText) > 11 then Warnlog "Somthing wrong in the column2"
-
-    printlog "  Close active document "
-    Do Until GetDocumentCount = 0
-        Call hCloseDocument
-    Loop
-endcase
-
-'-------------------------------------------------------------------------------------------
-
-testcase tFormatPage_43
-
-    Dim sColumn as String
-    Dim sHeight as String
-    Dim iLine as Integer
-    Dim iPosition as Integer
-
-    sColumn        = "2"
-    sHeight        = "50%"
-    iLine          = 2
-    iPosition      = 2
-
-    PrintLog "- seperator line between columns - change height/position of seperator"
-    '/// seperator line between columns - change height/position of seperator
-
-    Call hNewDocument
-
-    '/// formatPage , tabpage columns , set 2 columns
-     fFormatPageWriter("TabSpalten")
-       Anzahl.TypeKeys "<Up>"
-       Sleep 1
-     TabSpalten.OK
-
-    '/// + Change height/position of seperator
-     fFormatPageWriter("TabSpalten")
-       Art.Select      iLine
-       Sleep 1
-       Hoehe.SetText   sHeight
-       Sleep 1
-       Position.Select iPosition
-       Sleep 1
-     TabSpalten.OK
-
-    '/// Check if height/position of seperator is changed
-     fFormatPageWriter("TabSpalten")
-       if Hoehe.GetText        <> sHeight    then Warnlog "Height isn't correct!"
-       Sleep 1
-       if Position.GetSelIndex <> iPosition  then Warnlog "Position isn't correct!"
-     TabSpalten.Cancel
-
-    Call hCloseDocument
-
-endcase
-
-'-------------------------------------------------------------------------------------------
-
-testcase tFormatPage_44
-
-    Dim sColumn as String
-    Dim i as Integer
-
-    sColumn = "2"
-
-    PrintLog "- seperator line between columns - different line formats "
-    '/// seperator line between columns - different line formats
-
-    Call hNewDocument
-
-    '/// formatPage , tabpage columns , set 2 columns
-     fFormatPageWriter("TabSpalten")
-       Anzahl.TypeKeys "<Up>"
-       Sleep 1
-     TabSpalten.OK
-
-    '/// + Change seperator line style
-
-    '/// Check if height/position  of seperator is changed
-
-     fFormatPageWriter("TabSpalten")
-     for i = 1 to Art.GetItemCount
-         if i > 1 then fFormatPageWriter("TabSpalten")
-           Art.Select  i
-           Sleep 1
-         TabSpalten.OK
-
-         fFormatPageWriter("TabSpalten")
-           if Art.GetSelIndex <> i  then Warnlog "Seperator line isn't correct!"
-         TabSpalten.Cancel
-     next i
-
-    Call hCloseDocument
-
-endcase
-
-'-------------------------------------------------------------------------------------------
-
-testcase tFormatPage_45
-
-    Dim sTestFile as String
-    Dim sTestText as String
-    Dim iTestTextLength as Integer
-
-    sTestFile     = Convertpath (gTesttoolpath + "writer\optional\input\formatpage\testSeparatorLine.sxw")
-    sTestText     = "llll"
-
-    PrintLog "- shouldn't exist spacing after remove separator line"
-    '/// shouldn't exist spacing after remove separator line
-
-    Call hNewDocument
-
-    '/// Open test file testSeparatorLine.sxw
-    '/// + (The test file includes 6 columns , some
-    '/// + test text lllll... is in 2nd column
-     hFileOpenLocally( sTestFile )
-     
-
-     Kontext
-     EditSearchAndReplace
-     Kontext "FindAndReplace"
-       SearchFor.SetText sTestText
-       Sleep 1
-       SearchAll.Click
-       Sleep 1
-     FindAndReplace.Close
-
-     Call wTypeKeys "<Home>"
-     Call wTypeKeys "<Shift End>"
-     EditCopy
-     iTestTextLength = Len(GetClipboardText)
-
-    '/// formatPage , tabpage columns, set Separator line to 5pt
-     fFormatPageWriter("TabSpalten")
-       Art.Select  Art.GetItemCount
-       Sleep 1
-     TabSpalten.OK
-
-     Kontext
-     EditSearchAndReplace
-     Kontext "FindAndReplace"
-       SearchFor.SetText sTestText
-       Sleep 1
-       SearchAll.Click
-       Sleep 1
-     FindAndReplace.Close
-
-     Call wTypeKeys "<Home>"
-     Call wTypeKeys "<Shift End>"
-     EditCopy
-     if iTestTextLength <= Len(GetClipboardText) then Warnlog "Seperator line isn't correct!"
-
-    '/// + set separator line to null
-     fFormatPageWriter("TabSpalten")
-       Art.Select  1
-       Sleep 1
-     TabSpalten.OK
-
-    '/// Check if column is covered to former
-     Kontext
-     EditSearchAndReplace
-     Kontext "FindAndReplace"
-       SearchFor.SetText sTestText
-       Sleep 1
-       SearchAll.Click
-       Sleep 1
-     FindAndReplace.Close
-
-     Call wTypeKeys "<Home>"
-     Call wTypeKeys "<Shift End>"
-     EditCopy
-     if iTestTextLength <> Len(GetClipboardText) then Warnlog "The column isn't covered to former! #112632"
-
-    printlog "  Close active document "
-    Do Until GetDocumentCount = 0
-        Call hCloseDocument
-    Loop
-endcase
-
-'-------------------------------------------------------------------------------------------
-
-testcase tFormatPage_46
-
-    Dim sColumn as String
-    Dim sWidthColumn1 as String
-    Dim sWidthColumn2 as String
-    Dim sWidthColumn3 as String
-    Dim sSpacing1 as String
-    Dim sSpacing2 as String
-    Dim iLine as Integer
-    Dim sLineHeight as String
-    Dim iLinePosition as Integer
-
-    sColumn       = "3"
-    sWidthColumn1 = "2" + gSeperator + "00" + gMeasurementUnit
-    sWidthColumn2 = "4" + gSeperator + "00" + gMeasurementUnit
-    sSpacing1     = "0" + gSeperator + "30" + gMeasurementUnit
-    sSpacing2     = "0" + gSeperator + "50" + gMeasurementUnit
-    iLine         = 4
-    sLineHeight   = "50%"
-    iLinePosition = 2
-
-    PrintLog "- Check if the settings are kept after reopening the file"
-    '/// Check if the settings are kept after reopening the file
-
-    Call hNewDocument
-
-    '/// Format/Page / columns , do some configurations
-
-    'set 3 columns
-     fFormatPageWriter("TabSpalten")
-       Anzahl.TypeKeys "<Up>", 2
-       Sleep 1
-     TabSpalten.OK
-
-    'UnCheck autowidth , set different width to 3 columns
-     fFormatPageWriter("TabSpalten")
-       AutomBreite.Uncheck
-       Sleep 1
-       Abstand12.SetText      sSpacing1
-       Sleep 1
-       Abstand23.SetText      sSpacing2
-       Sleep 1
-       Spaltenbreite1.SetText sWidthColumn1
-       wait 500
-       Spaltenbreite2.SetText sWidthColumn2
-       wait 500
-       Art.Select             iLine
-       wait 500
-       Hoehe.SetText          sLineHeight
-       Sleep 1
-       Position.Select        iLinePosition
-       Sleep 1
-       sWidthColumn3 = Spaltenbreite3.GetText
-       wait 500
-     TabSpalten.OK
-
-    '/// Save the file , close the file and reopen it
-     Call hFileSaveAsWithFilterKill(gOfficepath + "user\work\tFormatPage_46.odt", "writer8")
-     Call hCloseDocument
-
-     Call hNewDocument
-     hFileOpen( gOfficepath + "user\work\tFormatPage_46.odt")
-
-    '/// Check if the setting are still kept
-     fFormatPageWriter("TabSpalten")
-       if AutomBreite.Ischecked  =  TRUE          then Warnlog "Autowidth shouldn't be checked !"
-       if Abstand12.GetText      <> sSpacing1     then Warnlog "Spacing1 isn't right , should be " &sSpacing1 & " but get " &Abstand12.GetText
-       if Abstand23.GetText      <> sSpacing2     then Warnlog "Spacing2 isn't right , should be " &sSpacing2 & " but get " &Abstand23.GetText
-       if Spaltenbreite1.GetText <> sWidthColumn1 then Warnlog "column1 isn't right , should be " &sWidthColumn1 & " but get " &Spaltenbreite1.GetText
-       if Spaltenbreite2.GetText <> sWidthColumn2 then Warnlog "column1 isn't right , should be " &sWidthColumn2 & " but get " &Spaltenbreite2.GetText
-       if Spaltenbreite3.GetText <> sWidthColumn3 then Warnlog "column1 isn't right , should be " &sWidthColumn2 & " but get " &Spaltenbreite3.GetText
-       if Art.GetSelIndex        <> iLine         then Warnlog "Line style isn't right !"
-       if Hoehe.GetText          <> sLineHeight   then Warnlog "Height isn't correct!"
-       if Position.GetSelIndex   <> iLinePosition then Warnlog "Position isn't correct!"
-     TabSpalten.Cancel
-
-    Call hCloseDocument
-
-endcase
-
-'-------------------------------------------------------------------------------------------
-
-testcase tFormatPage_47
-
-    Dim sWidth as String
-    Dim sLeft as String  ,  sRight as String  ' set margin size
-    Dim sWidth1 as String  ,  sWidth2 as String  ,  sWidth3 as String
-
-    sWidth     = "20" + gSeperator + "00" + gMeasurementUnit
-    sLeft      = "2"  + gSeperator + "00" + gMeasurementUnit
-    sRight     = "3"  + gSeperator + "00" + gMeasurementUnit
-
-    PrintLog "- Test Travel through the 5 columns preset boxes "
-    '/// Test Travel through the 5 columns preset boxes
-
-    Call hNewDocument
-
-    'Set page's width to 20cm and left margin: 3cm , right margin : 2cm
-     fFormatPageWriter("TabSeite")
-       Breite.SetText  sWidth
-       Wait 500
-       Links.SetText   sLeft
-       Wait 500
-       Rechts.SetText  sRight
-       Wait 500
-     TabSeite.OK
-
-    '/// formatPage , tabpage columns
-     fFormatPageWriter("TabSpalten")
-
-      '/// - Select fisrt box ==> only 1 column
-       ColumnValueset.TypeKeys "<Right>"
-       Sleep 1
-       if Len(Spaltenbreite1.GetText) <> 0     then Warnlog "width1 shouldn't be writable when there is only 1 column !"
-       Sleep 1
-
-      '/// - Select second box ==> 2 columns ( 1st = 2rd )
-       ColumnValueset.TypeKeys "<Right>"
-       Sleep 1
-       sWidth1     = "7" + gSeperator + "50" + gMeasurementUnit
-       sWidth2     = "7" + gSeperator + "50" + gMeasurementUnit
-       if Spaltenbreite1.GetText <> sWidth1 then Warnlog "2.width1 should be " &sWidth1 & " but get " &Spaltenbreite1.GetText
-       if Spaltenbreite2.GetText <> sWidth2 then Warnlog "2.width2 should be " &sWidth2 & " but get " &Spaltenbreite2.GetText
-       if AutomBreite.IsChecked  <> TRUE    then Warnlog "2.Autowidth should be checked !"
-
-      '/// - Select third box ==> 3 columns ( 1st = 2rd = third )
-       ColumnValueset.TypeKeys "<Right>"
-       Sleep 1
-       sWidth1     = "5" + gSeperator + "00" + gMeasurementUnit
-       sWidth2     = "5" + gSeperator + "00" + gMeasurementUnit
-       sWidth3     = "5" + gSeperator + "00" + gMeasurementUnit
-       if Spaltenbreite1.GetText <> sWidth1 then Warnlog "3.width1 should be " &sWidth1 & " but get " &Spaltenbreite1.GetText
-       if Spaltenbreite2.GetText <> sWidth2 then Warnlog "3.width2 should be " &sWidth2 & " but get " &Spaltenbreite2.GetText
-       if Spaltenbreite3.GetText <> sWidth3 then Warnlog "3.width3 should be " &sWidth2 & " but get " &Spaltenbreite3.GetText
-       if AutomBreite.IsChecked  <> TRUE    then Warnlog "3.Autowidth should be checked !"
-
-      '/// - Select forth box ==> 2 columns ( 1st : 2rd = 2:1 )
-       ColumnValueset.TypeKeys "<Right>"
-       Sleep 1
-       sWidth1     = "10" + gSeperator + "00" + gMeasurementUnit
-       sWidth2     = "5"  + gSeperator + "00" + gMeasurementUnit
-       if Spaltenbreite1.GetText <> sWidth1 then Warnlog "4.width1 should be " &sWidth1 & " but get " &Spaltenbreite1.GetText
-       if Spaltenbreite2.GetText <> sWidth2 then Warnlog "4.width2 should be " &sWidth2 & " but get " &Spaltenbreite2.GetText
-       if AutomBreite.IsChecked  =  TRUE    then Warnlog "4.Autowidth should be Unchecked !"
-
-      '/// - Select fifth box ==> 2 columns ( 1st : 2rd = 1:2 )
-       ColumnValueset.TypeKeys "<Right>"
-       Sleep 1
-       sWidth1     = "5"  + gSeperator + "00" + gMeasurementUnit
-       sWidth2     = "10" + gSeperator + "00" + gMeasurementUnit
-       if Spaltenbreite1.GetText <> sWidth1 then Warnlog "5.width1 should be " &sWidth1 & " but get " &Spaltenbreite1.GetText
-       if Spaltenbreite2.GetText <> sWidth2 then Warnlog "5.width2 should be " &sWidth2 & " but get " &Spaltenbreite2.GetText
-       if AutomBreite.IsChecked  =  TRUE    then Warnlog "5.Autowidth should be Unchecked !"
-
-      '/// - Press right key again, will get the first box
-       ColumnValueset.TypeKeys "<Right>"
-       Sleep 1
-       if Anzahl.GetText <> "1" then Warnlog "The focus should be in the leftest box !"
-       Sleep 1
-
-     TabSpalten.Cancel
-
-    Call hCloseDocument
-
-endcase
-
-'-------------------------------------------------------------------------------------------
-
diff --git a/testautomation/writer/optional/includes/formatpage/w_formatpage4.inc b/testautomation/writer/optional/includes/formatpage/w_formatpage4.inc
deleted file mode 100644
index 728cd204ed50..000000000000
--- a/testautomation/writer/optional/includes/formatpage/w_formatpage4.inc
+++ /dev/null
@@ -1,788 +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 : helge.delfs@oracle.com
-'*
-'* short description : Test the functionality of Page Formatting / Page Styles - 4
-'*
-'************************************************************************
-'*
-' #1 tFormatPage_48      'Text flow direction test Right to Left (Vertical) - Paragraph
-' #1 tFormatPage_49      'Text flow direction test Right to Left (Vertical) - Section
-' #1 tFormatPage_50      'Text flow direction test Right to Left (Vertical) - Footnotes
-' #1 tFormatPage_51      'Text flow direction test Right to Left (Vertical) - Endnotes
-' #1 tFormatPage_52      'Text flow direction test Right to Left (Vertical) - Table
-' #1 tFormatPage_53      'Text flow direction test Right to Left (Vertical) - Columns
-' #1 tFormatPage_54      'Only when a border is set, "spacing to contents" gets a minimum value of 0.05cm
-' #1 tFormatPage_55      'All "spacing to contents" spin boxes are limited to 5cm
-' #1 tFormatPage_56      'Test Uncheck 'Synchronize'
-' #1 tFormatPage_57      'Test Check 'Synchronize'
-' #1 tFormatPage_58      'Test default shadow color
-' #1 tFormatPage_59      'Test if the shadow settings is OK after closing the dialog
-' #1 tFormatPage_60      'Test if the shadow settings is OK after reopening the file
-'*
-'\***********************************************************************
-
-testcase tFormatPage_48
-
-    Dim sTestText1 as string, sTestText2 as String
-    Dim RecheckAsianSupport as boolean
-    RecheckAsianSupport = gAsianSup
-
-    Select Case iSystemSprache
-        Case 81, 82, 86, 88
-            printlog "No test with asian lovale, because checkbox 'Asian language support' is disabled by default!"
-            goto endsub
-    end select
-
-    sTestText1    = "This is the test!"
-    sTestText2    = "That isn't a test!"
-
-    PrintLog "- Text flow direction test Right to Left (Vertical) - Paragraph"
-    '/// Text flow direction test Right to Left (Vertical) - Paragraph
-
-    Call hNewDocument
-
-    '/// Set Asian language support enabled
-    Call ActiveDeactivateCTLSupport(FALSE)
-    Call ActiveDeactivateAsianSupport(TRUE)
-
-    '/// Input some test words
-    Call wTypeKeys sTestText1
-    Call wTypeKeys "<Return>"
-    Call wTypeKeys sTestText2
-    Sleep 1
-
-    '/// formatPage , tabpage page, select right to left (vertical)
-    fFormatPageWriter("TabSeite")
-    Textfluss.Select 2
-    Sleep 1
-    TabSeite.OK
-    Sleep 2
-
-    '/// Check if the direction of the test words is changed
-    Call wTypeKeys "<MOD1 Home>"
-    Call wTypeKeys "<Shift Down>", 4
-    Sleep 1
-    EditCopy
-    if GetClipboardText <> "This" then
-        Warnlog "Something wrong in first word - get " &GetClipboardText
-    end if
-
-    Call wTypeKeys "<Home><Left>"
-    Call wTypeKeys "<Shift Down>"  , 4
-    Sleep 1
-    EditCopy
-    if GetClipboardText <> "That" then
-        Warnlog "Something wrong in second word - get " &GetClipboardText
-    end if
-
-    if RecheckAsianSupport = False then
-        Call ActiveDeactivateAsianSupport(FALSE)
-    end if
-
-    Call hCloseDocument
-
-endcase
-
-'-------------------------------------------------------------------------------------------
-
-testcase tFormatPage_49
-
-    Dim sTestText as String
-    Dim RecheckAsianSupport as boolean
-    RecheckAsianSupport = gAsianSup
-
-    sTestText     = "This is the test!"
-
-    PrintLog "- Text flow direction test Right to Left (Vertical) - Section"
-    '/// Text flow direction test Right to Left (Vertical) - Section
-
-    Call hNewDocument
-
-    '/// Set Asian language support enabled
-    Call ActiveDeactivateAsianSupport(TRUE)
-
-    '/// Insert a section
-    fInsertSection("TabBereiche")
-    TabBereiche.OK
-
-    '/// insert something in the section
-    Call wTypeKeys "<Up>"
-    Call wTypeKeys sTestText
-
-    '/// formatPage , tabpage page, select right to left (vertical)
-    fFormatPageWriter("TabSeite")
-    Textfluss.Select 2
-    Sleep 1
-    TabSeite.OK
-    Sleep 2
-
-    '/// Check if the direction of the test words is changed
-    Call wTypeKeys "<Home>"
-    Call wTypeKeys "<Shift Down>" , 4
-    EditCopy
-    if GetClipboardText <> "This" then Warnlog "Something wrong in the section - get " &GetClipboardText
-
-    if RecheckAsianSupport = False then
-        Call ActiveDeactivateAsianSupport(FALSE)
-    end if
-
-    Call hCloseDocument
-
-endcase
-
-'-------------------------------------------------------------------------------------------
-
-testcase tFormatPage_50
-
-    Dim RecheckAsianSupport as boolean
-    RecheckAsianSupport = gAsianSup
-
-    PrintLog "- Text flow direction test Right to Left (Vertical) - Footnotes"
-    '/// Text flow direction test Right to Left (Vertical) - Footnotes
-
-    Call hNewDocument
-
-    '/// Set Asian language support enabled
-    Call ActiveDeactivateAsianSupport(TRUE)
-
-    '/// Insert a footnotes
-    InsertFootnote
-    Kontext "FussnoteEinfuegen"
-    Sleep 1
-    Fussnote.Check
-    Sleep 1
-    FussnoteEinfuegen.OK
-    Sleep 1
-
-    Call wTypeKeys "<PageUp>"
-    Sleep 1
-
-    '/// formatPage , tabpage page, select right to left (vertical)
-    Call fFormatPageWriter("TabSeite")
-    Textfluss.Select 2
-    Sleep 1
-    TabSeite.OK
-    Sleep 2
-
-    '/// Check if the direction of the footnote is changed
-    Call wTypeKeys "<Down>"
-    try
-        EditFootnote
-        Kontext "FussnoteBearbeiten"
-        FussnoteBearbeiten.Cancel
-        Warnlog "Should NOT execute edit/footnote  when focus is under the footnote"
-    catch
-    endcatch
-
-    Call wTypeKeys "<Up>"
-    try
-        EditFootnote
-        Kontext "FussnoteBearbeiten"
-        FussnoteBearbeiten.Cancel
-    catch
-        Warnlog "Should execute edit/footnote  when focus is up the footnote"
-    endcatch
-
-    if RecheckAsianSupport = False then
-        Call ActiveDeactivateAsianSupport(FALSE)
-    end if
-
-    Call hCloseDocument
-
-endcase
-
-'-------------------------------------------------------------------------------------------
-
-testcase tFormatPage_51
-
-    Dim RecheckAsianSupport as boolean
-    RecheckAsianSupport = gAsianSup
-
-    PrintLog "- Text flow direction test Right to Left (Vertical) - Endnotes"
-    '/// Text flow direction test Right to Left (Vertical) - Endnotes
-
-    Call hNewDocument
-
-    '/// Set Asian language support enabled
-    Call ActiveDeactivateAsianSupport(TRUE)
-
-    '/// Insert a endnotes
-    InsertFootnote
-    Kontext "FussnoteEinfuegen"
-    Sleep 1
-    Endnote.Check
-    Sleep 1
-    FussnoteEinfuegen.OK
-    Sleep 1
-
-    Call wTypeKeys "<PageUp>"
-    Sleep 1
-
-    '/// formatPage , tabpage page, select right to left (vertical)
-    Call fFormatPageWriter("TabSeite")
-    Textfluss.Select 2
-    Sleep 1
-    TabSeite.OK
-    Sleep 2
-
-    '/// Check if the direction of the endnote is changed
-    Call wTypeKeys "<Down>"
-    try
-        EditFootnote
-        Kontext "FussnoteBearbeiten"
-        FussnoteBearbeiten.Cancel
-        Warnlog "Should NOT execute edit/footnote when focus is under the endnote"
-    catch
-    endcatch
-
-    Call wTypeKeys "<Up>"
-    try
-        EditFootnote
-        Kontext "FussnoteBearbeiten"
-        FussnoteBearbeiten.Cancel
-    catch
-        Warnlog "Should execute edit/footnote  when focus is on the endnote!"
-    endcatch
-
-    if RecheckAsianSupport = False then
-        Call ActiveDeactivateAsianSupport(FALSE)
-    end if
-
-    Call hCloseDocument
-
-endcase
-
-'-------------------------------------------------------------------------------------------
-
-testcase tFormatPage_52
-
-    Dim sTest1 as String  ,  sTest2 as String  ,  sTest3 as String
-    Dim RecheckAsianSupport as boolean
-    RecheckAsianSupport = gAsianSup
-
-    sTest1 = "A1" : sTest2 = "B1" : sTest3 = "A2"
-
-    PrintLog "- Text flow direction test Right to Left (Vertical) - Table"
-    '/// Text flow direction test Right to Left (Vertical) - Table
-
-    Call hNewDocument
-
-    '/// Set Asian language support enabled
-    Call ActiveDeactivateAsianSupport(TRUE)
-
-    '/// Insert a table
-    Call hTabelleEinfuegen
-
-    '/// + input some string in the table , like
-    '/// a1  b1
-    '/// a2
-    Call wTypeKeys sTest1
-    wait 500
-    Call wTypeKeys "<Right>"
-    wait 500
-    Call wTypeKeys sTest2
-    wait 500
-    Call wTypeKeys "<Down><Left>"   'so far, the focus should be in 2nd line of the table
-    wait 500
-    Call wTypeKeys sTest3
-    Call wTypeKeys "<Up><Home>"     'so far, the focus should be in front of A1
-
-    '/// formatPage , tabpage page, select right to left (vertical)
-    Call fFormatPageWriter("TabSeite")
-    Textfluss.Select 2
-    Sleep 1
-    TabSeite.OK
-    Sleep 2
-
-    '/// Check if the direction of the table is changed
-    Call wTypeKeys "<Shift Down>" , 2
-    Sleep 1
-    EditCopy
-    if GetClipboardText <> sTest1 then
-        Warnlog "1st word in table is wrong!"
-    end if
-
-    Call wTypeKeys "<Down>"
-    Call wTypeKeys "<Shift Down>" , 2
-    Sleep 1
-    EditCopy
-    if GetClipboardText <> sTest2 then
-        Warnlog "2nd word in table is wrong!"
-    end if
-
-    Call wTypeKeys "<Left><Up>"
-    Call wTypeKeys "<Shift Home>"
-    Sleep 1
-    EditCopy
-    if GetClipboardText <> sTest3 then
-        Warnlog "2rd word in table is wrong!"
-    end if
-
-    if RecheckAsianSupport = False then
-        Call ActiveDeactivateAsianSupport(FALSE)
-    end if
-
-    Call hCloseDocument
-
-endcase
-
-'-------------------------------------------------------------------------------------------
-
-testcase tFormatPage_53
-
-    Dim sTest as String
-    Dim sTestFile as String
-    Dim RecheckAsianSupport as boolean
-    RecheckAsianSupport = gAsianSup
-
-    sTest         = "Test"
-    sTestFile     = Convertpath (gTesttoolpath + "writer\optional\input\formatpage\testColumnVertical.sxw")
-
-    PrintLog "- Text flow direction test Right to Left (Vertical) - Column"
-    '/// Text flow direction test Right to Left (Vertical) - Column
-
-    Call hNewDocument
-
-    '/// Set Asian language support enabled
-    Call ActiveDeactivateAsianSupport(TRUE)
-
-    '/// Open test file testColumnVertical.sxw
-    '/// + There are 8 columns in the page , and a test
-    '/// + word is in 3rd column
-    hFileOpenLocally( sTestFile )
-    
-
-    '/// formatPage , tabpage page, select right to left (vertical)
-    Call fFormatPageWriter("TabSeite")
-    Textfluss.Select 2
-    Sleep 1
-    TabSeite.OK
-    Sleep 2
-
-    '/// Check if the direction of the column is changed
-    Kontext
-    EditSearchAndReplace
-    Kontext "FindAndReplace"
-    SearchFor.SetText sTest
-    Sleep 1
-    SearchAll.Click
-    Sleep 1
-    FindAndReplace.Close
-    Sleep 1
-
-    Call wTypeKeys "<Down>"
-    Sleep 1
-
-    Call wTypeKeys "<Shift Up>" , 4
-    EditCopy
-    if GetClipboardText <> sTest then
-        Warnlog "the test word is wrong!"
-    end if
-
-    if RecheckAsianSupport = False then
-        Call ActiveDeactivateAsianSupport(FALSE)
-    end if
-
-    printlog "  Close active document "
-    Do Until GetDocumentCount = 0
-        Call hCloseDocument
-    Loop
-endcase
-
-'-------------------------------------------------------------------------------------------
-
-testcase tFormatPage_54
-
-    Dim sSpacingToContentsNoBorder as String   'no border in the page
-    Dim sSpacingToContentsYesBorder as String   'border exists  in the page
-
-    sSpacingToContentsNoBorder  = "0" + gSeperator + "0" '+ gMeasurementUnit
-    sSpacingToContentsYesBorder = "0" + gSeperator + "05" '+ gMeasurementUnit
-
-    PrintLog "- Only when a border is set, 'spacing to contents' gets a minimum value of 0.05cm"
-    '/// Only when a border is set, "spacing to contents" gets a minimum value of 0.05cm
-
-    Call hNewDocument
-
-    PrintLog "Check if 'spacing to contents' is 0.00cm when there is no border in the page"
-    '/// format/Page , tabpage borders ,
-    '/// + Check if "spacing to contents" is 0.00cm when
-    '/// + there is no border in the page
-     fFormatPageWriter("TabUmrandung")
-       if InStr( Links.GetText, sSpacingToContentsNoBorder) = false then Warnlog "Default of left Spacing to contents is wrong !"
-       if InStr( Rechts.GetText, sSpacingToContentsNoBorder) = false then Warnlog "Default of right Spacing to contents is wrong !"
-       if InStr( Oben.GetText, sSpacingToContentsNoBorder) = false then Warnlog "Default of up Spacing to contents is wrong !"
-       if InStr( Unten.GetText, sSpacingToContentsNoBorder) = false then Warnlog "Default of bottom Spacing to contents is wrong !"
-     TabUmrandung.Cancel
-
-    PrintLog "Check if 'spacing to contents' is 0.50cm when there are borders in the page"
-    '/// format/Page , tabpage borders
-    '/// + Check if "spacing to contents" is 0.05cm when
-    '/// + there are borders in the page
-     fFormatPageWriter("TabUmrandung")
-        Vorgaben.TypeKeys "<Right>" , 2
-        Sleep 2
-     TabUmrandung.OK
-
-     fFormatPageWriter("TabUmrandung")
-       if InStr( Links.GetText, sSpacingToContentsYesBorder) = false then Warnlog "Default of left Spacing to contents is wrong !"
-       if InStr( Rechts.GetText, sSpacingToContentsYesBorder) = false then Warnlog "Default of right Spacing to contents is wrong !"
-       if InStr( Oben.GetText, sSpacingToContentsYesBorder) = false then Warnlog "Default of up Spacing to contents is wrong !"
-       if InStr( Unten.GetText, sSpacingToContentsYesBorder) = false then Warnlog "Default of bottom Spacing to contents is wrong !"
-     TabUmrandung.Cancel
-
-    Call hCloseDocument
-
-endcase
-
-'-------------------------------------------------------------------------------------------
-
-testcase tFormatPage_55
-
-    Dim sSpacingToContents   as String   'the max spacing to content
-    Dim sSpacingToContentsL  as String
-    Dim sSpacingToContentsR  as String
-    Dim sSpacingToContentsU  as String
-    Dim sSpacingToContentsB  as String
-
-    sSpacingToContents  = "5" + gSeperator + "0" '+ gMeasurementUnit
-    sSpacingToContentsL = "6" + gSeperator + "0" '+ gMeasurementUnit
-    sSpacingToContentsR = "7" + gSeperator + "0" '+ gMeasurementUnit
-    sSpacingToContentsU = "8" + gSeperator + "0" '+ gMeasurementUnit
-    sSpacingToContentsB = "9" + gSeperator + "0" '+ gMeasurementUnit
-
-    PrintLog "- All 'spacing to contents' spin boxes are limited to 5cm"
-    '/// All "spacing to contents" spin boxes are limited to 5cm
-
-    Call hNewDocument
-
-    'set border exists in the page
-     fFormatPageWriter("TabUmrandung")
-        Vorgaben.TypeKeys "<Right>" , 2
-        Sleep 2
-     TabUmrandung.OK
-
-    '/// format/Page , tabpage borders , set all spacing to content's size
-    '/// + more than 5.00cm
-     fFormatPageWriter("TabUmrandung")
-       Synchronisieren.Uncheck
-       Links.SetText  sSpacingToContentsL
-       Rechts.SetText sSpacingToContentsR
-       Oben.SetText   sSpacingToContentsU
-       Unten.SetText  sSpacingToContentsB
-     TabUmrandung.OK
-
-    '/// Check if all "spacing to contents" is 5.00cm
-     fFormatPageWriter("TabUmrandung")
-
-       if InStr( Links.GetText, sSpacingToContents) = false then Warnlog "left Spacing to contents is wrong !"
-       if InStr( Rechts.GetText, sSpacingToContents) = false then Warnlog "right Spacing to contents is wrong !"
-       if InStr( Oben.GetText, sSpacingToContents) = false then Warnlog "up Spacing to contents is wrong !"
-       if InStr( Unten.GetText, sSpacingToContents) = false then Warnlog "bottom Spacing to contents is wrong !"
-
-     TabUmrandung.Cancel
-
-    Call hCloseDocument
-
-endcase
-
-'-------------------------------------------------------------------------------------------
-
-testcase tFormatPage_56
-
-    Dim sSpacingToContentsL  as String
-    Dim sSpacingToContentsR  as String
-    Dim sSpacingToContentsU  as String
-    Dim sSpacingToContentsB  as String
-
-    sSpacingToContentsL = "0" + gSeperator + "5" '+ gMeasurementUnit
-    sSpacingToContentsR = "0" + gSeperator + "6" '+ gMeasurementUnit
-    sSpacingToContentsU = "0" + gSeperator + "7" '+ gMeasurementUnit
-    sSpacingToContentsB = "0" + gSeperator + "8" '+ gMeasurementUnit
-
-    PrintLog "- Test Uncheck 'Synchronize'"
-    '///  Test Uncheck 'Synchronize'
-
-    Call hNewDocument
-
-    'set border exists in the page
-     fFormatPageWriter("TabUmrandung")
-        Vorgaben.TypeKeys "<Right>" , 2
-        Sleep 2
-     TabUmrandung.OK
-
-    '/// format/Page , tabpage borders
-    '/// + Uncheck synchronize
-    '/// + Set all spacing to contents
-     fFormatPageWriter("TabUmrandung")
-       Synchronisieren.Uncheck
-       Sleep 1
-       Links.SetText  sSpacingToContentsL
-       Rechts.SetText sSpacingToContentsR
-       Oben.SetText   sSpacingToContentsU
-       Unten.SetText  sSpacingToContentsB
-     TabUmrandung.OK
-     Sleep 1
-
-    '/// Check if all "spacing to contents" is correct
-     fFormatPageWriter("TabUmrandung")
-       if InStr( Links.GetText, sSpacingToContentsL) = false then Warnlog "left Spacing to contents is wrong !"
-       if InStr( Rechts.GetText, sSpacingToContentsR) = false then Warnlog "right Spacing to contents is wrong !"
-       if InStr( Oben.GetText, sSpacingToContentsU) = false then Warnlog "up Spacing to contents is wrong !"
-       if InStr( Unten.GetText, sSpacingToContentsB) = false then Warnlog "bottom Spacing to contents is wrong !"
-     TabUmrandung.Cancel
-
-    Call hCloseDocument
-
-endcase
-
-'-------------------------------------------------------------------------------------------
-
-testcase tFormatPage_57
-
-    Dim sSpacingToContentsL  as String
-    Dim sSpacingToContentsR  as String
-    Dim sSpacingToContentsU  as String
-    Dim sSpacingToContentsB  as String
-
-    sSpacingToContentsL = "0" + gSeperator + "5" '+ gMeasurementUnit
-    sSpacingToContentsR = "0" + gSeperator + "6" '+ gMeasurementUnit
-    sSpacingToContentsU = "0" + gSeperator + "7" '+ gMeasurementUnit
-    sSpacingToContentsB = "0" + gSeperator + "8" '+ gMeasurementUnit
-
-    PrintLog "- Test Check 'Synchronize'"
-    '///  Test Check 'Synchronize'
-
-    Call hNewDocument
-
-    'set border exists in the page
-     fFormatPageWriter("TabUmrandung")
-        Vorgaben.TypeKeys "<Right>" , 2
-        Sleep 2
-     TabUmrandung.OK
-
-    '/// format/Page , tabpage borders
-    '/// + Check synchronize
-    '/// + Set all spacing to contents
-     fFormatPageWriter("TabUmrandung")
-       Synchronisieren.Check
-       Sleep 1
-       Links.SetText  sSpacingToContentsL
-       Rechts.SetText sSpacingToContentsR
-       Oben.SetText   sSpacingToContentsU
-       Unten.SetText  sSpacingToContentsB
-     TabUmrandung.OK
-     Sleep 1
-
-    '/// Check if all "spacing to contents" is correct
-     fFormatPageWriter("TabUmrandung")
-       if InStr( Links.GetText, sSpacingToContentsL) = true then Warnlog "left Spacing to contents is wrong !"
-       if InStr( Rechts.GetText, sSpacingToContentsR) = true then Warnlog "right Spacing to contents is wrong !"
-       if InStr( Oben.GetText, sSpacingToContentsU) = true then Warnlog "up Spacing to contents is wrong !"
-       if InStr( Unten.GetText, sSpacingToContentsB) = false then Warnlog "bottom Spacing to contents is wrong !"
-     TabUmrandung.Cancel
-
-    Call hCloseDocument
-
-endcase
-
-'-------------------------------------------------------------------------------------------
-
-testcase tFormatPage_58
-
-    Dim sDefaultShadowColor as String
-
-    Select case iSprache
-        case 01   : sDefaultShadowColor = "Gray"
-        case 31   : sDefaultShadowColor = "Grijs"
-        case 33   : sDefaultShadowColor = "Gris"
-        case 34   : sDefaultShadowColor = "Gris"
-        case 39   : sDefaultShadowColor = "Grigio"
-        case 46   : sDefaultShadowColor = "Grått"
-        case 49   : sDefaultShadowColor = "Grau"
-        case 50   : sDefaultShadowColor = "Siva"
-        case 55   : sDefaultShadowColor = "Cinza"
-        case 81   : sDefaultShadowColor = "灰色"
-        case 82   : sDefaultShadowColor = "회색"
-        case 86   : sDefaultShadowColor = "灰色"
-        case 88   : sDefaultShadowColor = "灰色"
-        case else : QAErrorLog "The test does not support the language " + iSprache
-                    Goto endsub
-    end select
-
-    PrintLog "- Test default shadow color"
-    '///  Test default shadow color
-
-    Call hNewDocument
-
-    '/// format/Page , tabpage borders
-    '/// + Check if the default shadow color is gray
-     fFormatPageWriter("TabUmrandung")
-        if SchattenFarbe.GetSelText <> sDefaultShadowColor then
-            Warnlog "Shadow default color is wrong , get " &SchattenFarbe.GetSelText
-        end if
-     TabUmrandung.Cancel
-
-    Call hCloseDocument
-
-endcase
-
-'-------------------------------------------------------------------------------------------
-
-testcase tFormatPage_59
-
-    Dim iBorderColor as Integer  ,  iShadowColor as Integer
-    Dim sSpacingToContentsL           as String
-    Dim sSpacingToContentsR           as String
-    Dim sSpacingToContentsU           as String
-    Dim sSpacingToContentsB           as String
-    Dim sShadowDistance               as String
-
-    iBorderColor = 5 : iShadowColor = 4
-
-    sSpacingToContentsL = "0" + gSeperator + "5" '+ gMeasurementUnit
-    sSpacingToContentsR = "0" + gSeperator + "6" '+ gMeasurementUnit
-    sSpacingToContentsU = "0" + gSeperator + "7" '+ gMeasurementUnit
-    sSpacingToContentsB = "0" + gSeperator + "8" '+ gMeasurementUnit
-    sShadowDistance     = "2" + gSeperator + "54" '+ gMeasurementUnit
-
-    PrintLog "- Test if the shadow settings is OK after closing the dialog"
-    '///  Test if the shadow settings is OK after closing the dialog
-
-    Call hNewDocument
-
-    '/// format/Page , tabpage borders , do some configuration
-    '/// + and close the dialog
-     fFormatPageWriter("TabUmrandung")
-       Vorgaben.TypeKeys "<Right>" , 2
-       Sleep 2
-       Synchronisieren.UnCheck
-       Sleep 1
-       Links.SetText    sSpacingToContentsL
-       Rechts.SetText   sSpacingToContentsR
-       Oben.SetText     sSpacingToContentsU
-       Unten.SetText    sSpacingToContentsB
-       StilFarbe.Select iBorderColor            'set border color
-
-       Position.TypeKeys "<Right>" , 4
-       Sleep 2
-       Groesse.SetText      sShadowDistance
-       SchattenFarbe.Select iShadowColor        'set shadow color
-       Sleep 1
-     TabUmrandung.OK
-
-    '/// format/Page , check if the configuration is all right
-     fFormatPageWriter("TabUmrandung")
-       if Synchronisieren.IsChecked = TRUE          then Warnlog "Synchronize should be Unchecked !"
-       if InStr( Links.GetText, sSpacingToContentsL) = false then Warnlog "left Spacing to contents is wrong !"
-       if InStr( Rechts.GetText, sSpacingToContentsR) = false then Warnlog "right Spacing to contents is wrong !"
-       if InStr( Oben.GetText, sSpacingToContentsU) = false then Warnlog "up Spacing to contents is wrong !"
-       if InStr( Unten.GetText, sSpacingToContentsB) = false then Warnlog "bottom Spacing to contents is wrong !"
-       if StilFarbe.GetSelIndex <> iBorderColor     then Warnlog "border color is wrong !"
-
-       if InStr( Groesse.GetText, sShadowDistance) = false then Warnlog "shadow distance is wrong !"
-       if SchattenFarbe.GetSelindex <> iShadowColor then Warnlog "shadow color is wrong !"
-     TabUmrandung.Cancel
-
-    Call hCloseDocument
-
-endcase
-
-'-------------------------------------------------------------------------------------------
-
-testcase tFormatPage_60
-
-    Dim iBorderColor as Integer  ,  iShadowColor as Integer
-    Dim sSpacingToContentsL           as String
-    Dim sSpacingToContentsR           as String
-    Dim sSpacingToContentsU           as String
-    Dim sSpacingToContentsB           as String
-    Dim sShadowDistance               as String
-
-    iBorderColor = 5 : iShadowColor = 4
-
-    sSpacingToContentsL = "0" + gSeperator + "5" '+ gMeasurementUnit
-    sSpacingToContentsR = "0" + gSeperator + "6" '+ gMeasurementUnit
-    sSpacingToContentsU = "0" + gSeperator + "7" '+ gMeasurementUnit
-    sSpacingToContentsB = "0" + gSeperator + "8" '+ gMeasurementUnit
-    sShadowDistance     = "2" + gSeperator + "74" '+ gMeasurementUnit
-
-    PrintLog "- Test if the shadow settings is OK after reopening the file"
-    '///  Test if the shadow settings is OK after reopening the file
-
-    Call hNewDocument
-
-    '/// format/Page , tabpage borders , do some configuration
-    '/// + and close the dialog
-    fFormatPageWriter("TabUmrandung")
-    Vorgaben.TypeKeys "<Right>" , 2
-    Sleep 2
-    Synchronisieren.UnCheck
-    Sleep 1
-    Links.SetText    sSpacingToContentsL
-    Rechts.SetText   sSpacingToContentsR
-    Oben.SetText     sSpacingToContentsU
-    Unten.SetText    sSpacingToContentsB
-    StilFarbe.Select iBorderColor            'set border color
-
-    Position.TypeKeys "<Right>" , 4
-    Sleep 2
-    Groesse.SetText      sShadowDistance
-    SchattenFarbe.Select iShadowColor        'set shadow color
-    Sleep 1
-    TabUmrandung.OK
-
-    '/// Save the file , close the file and reopen it
-    Call hFileSaveAsWithFilterKill (gOfficepath + "user\work\tFormatPage_60.odt", "writer8")
-    Call hCloseDocument
-
-    Call hNewDocument
-    hFileOpen( gOfficepath + "user\work\tFormatPage_60.odt")
-    
-
-    '/// check if the configuration is all right
-    fFormatPageWriter("TabUmrandung")
-    if Synchronisieren.IsChecked = TRUE          then Warnlog "Synchronize should be Unchecked !"
-    if InStr( Links.GetText, sSpacingToContentsL) = false then Warnlog "left Spacing to contents is wrong !"
-    if InStr( Rechts.GetText, sSpacingToContentsR) = false then Warnlog "right Spacing to contents is wrong !"
-    if InStr( Oben.GetText, sSpacingToContentsU) = false then Warnlog "up Spacing to contents is wrong !"
-    if InStr( Unten.GetText, sSpacingToContentsB) = false then Warnlog "bottom Spacing to contents is wrong !"
-    if StilFarbe.GetSelIndex <> iBorderColor     then Warnlog "border color is wrong !"
-
-       if InStr( Groesse.GetText, sShadowDistance) = false then Warnlog "shadow distance is wrong !"
-    if SchattenFarbe.GetSelindex <> iShadowColor then Warnlog "shadow color is wrong !"
-    TabUmrandung.Cancel
-
-    printlog "  Close active document "
-    Do Until GetDocumentCount = 0
-        Call hCloseDocument
-    Loop
-endcase
-
-'--------------------------------------------------
diff --git a/testautomation/writer/optional/includes/formatparagraph/w_formatparagraph1.inc b/testautomation/writer/optional/includes/formatparagraph/w_formatparagraph1.inc
deleted file mode 100644
index 686c246d0400..000000000000
--- a/testautomation/writer/optional/includes/formatparagraph/w_formatparagraph1.inc
+++ /dev/null
@@ -1,1263 +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 : helge.delfs@oracle.com
-'*
-'* short description : Test the functionality of Paragraph Formatting - 1
-'*
-'************************************************************************
-'*
-' #1 tFormatParagraph1       'Open format/paragraph dialog
-' #1 tParagraphIndent1       'Set values for Indent - Before text
-' #1 tParagraphIndent2       'Set values for Indent - after text
-' #1 tParagraphIndent3       'Set values for Indent - first line
-' #1 tParagraphIndent4       'Test checkbox - "automatic"
-' #1 tParagraphIndent5       'Set values for "Above paraghraph"
-' #1 tParagraphIndent6       'Set values for "Below paraghraph"
-' #1 tParagraphIndent7       'Test above and below spacing of successive paragraphs are not added up, the biggest one should be displayed
-' #1 tParagraphIndent8       'Test above and below spacing of successive paragraphs are added up
-' #1 tParagraphIndent9       'Test Line spacing - Single
-' #1 tParagraphIndent10      'Test Line spacing - 1.5 lines
-' #1 tParagraphIndent11      'Test Line spacing - Double lines
-' #1 tParagraphIndent12      'Test Line spacing - Proportional
-' #1 tParagraphIndent13      'Test Line spacing - At least
-' #1 tParagraphIndent14      'Test Line spacing - Leading
-' #1 tParagraphIndent15      'Test Line spacing - Fixed
-' #1 tParagraphIndent16      'Test Regester-true Active
-' #1 tParagraphIndent17      'Test "Add spacing between paragarph and talbes" when importing from MS-Word
-' #1 tParagraphIndent18      'Test Negativ indent
-'*
-'\***********************************************************************
-
-testcase tformatparagraph1
-
-  PrintLog "- 'Open format/paragraph dialog"
-  '/// <b>Open format/paragraph dialog</b>
-
-   Call hNewDocument
-
-   '/// via Mouse clicks in Menu: Format-paragraph
-    try
-        Call fFormatParagraph("TabTextfluss")
-        TabTextfluss.Cancel
-    catch
-    endcatch
-
-   '/// via shortcuts in menu  (manual test is needed)
-
-   '/// via Context menu when Cursor is in the document
-    try
-        hMenuSelectNr(8)
-        Sleep 2
-        Kontext
-        Active.SetPage TabTextfluss
-        Kontext "TabTextfluss"
-        TabTextfluss.Cancel
-    catch
-    endcatch
-
-   Call hCloseDocument
-
-endcase
-
-'-------------------------------------------------------------------------------------------
-
-testcase tParagraphIndent1
-
-  Dim sTest                               as String
-  Dim iLenTest                            as Integer
-  Dim iLenHalf                            as Integer
-  Dim sPageWidth                          as String
-  Dim sMarginLeft                         as String
-  Dim sMarginRight                        as String
-  Dim sIndentLeft                         as String
-
-  sTest        = "lllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllll"
-  sPageWidth   = "8" + gSeperator + "00" + gMeasurementUnit
-  sMarginLeft  = "2" + gSeperator + "00" + gMeasurementUnit
-  sMarginRight = "2" + gSeperator + "00" + gMeasurementUnit
-  sIndentLeft  = "2" + gSeperator + "00" + gMeasurementUnit
-
-  PrintLog "- Set values for Indent - Before text"
-  '/// <b>Set values for Indent - Before text</b>
-
-   Call hNewDocument
-
-   'Format/Page , tabpage Page , set page size and margin size
-    Call fFormatPageWriter("TabSeite")
-        Breite.SetText  sPageWidth
-        Links.SetText   sMarginLeft
-        Rechts.SetText  sMarginRight
-    TabSeite.OK
-
-   '/// Input some test words which should be longer than one line
-    Call wTypeKeys sTest
-    Call wTypeKeys "<MOD1 Home>"
-    Call wTypeKeys "<Shift End>"
-    EditCopy
-    iLenTest = Len(getclipboardtext)
-
-   '/// Format/Paragraph / Indents & Spacing , set 2cm in "before Text"
-    Call fFormatParagraph("TabEinzuegeUndAbstaende")
-        Vonlinks.SetText sIndentLeft
-    TabEinzuegeUndAbstaende.OK
-
-    Call wTypeKeys "<MOD1 Home>"
-    Call wTypeKeys "<Shift End>"
-    EditCopy
-    iLenHalf = Len(getclipboardtext)
-
-    if iLenHalf <> Int(iLenTest/2) AND iLenHalf <> Int(iLenTest/2 +1) AND iLenHalf <> Int(iLenTest/2 -1) then
-        Warnlog "1.Indents - before Text is not right !"
-    end if
-
-    Call wTypeKeys "<Right><Home>"
-    Call wTypeKeys "<Shift End>"
-    EditCopy
-    iLenHalf = Len(getclipboardtext)
-
-    if iLenHalf <> Int(iLenTest/2) AND iLenHalf <> Int(iLenTest/2 +1) AND iLenHalf <> Int(iLenTest/2 -1) then
-        Warnlog "2.Indents - before Text is not right !"
-    end if
-
-   Call hCloseDocument
-
-endcase
-
-'-------------------------------------------------------------------------------------------
-
-testcase tParagraphIndent2
-
-  Dim sTest                               as String
-  Dim iLenTest                            as Integer
-  Dim iLenHalf                            as Integer
-  Dim sPageWidth                          as String
-  Dim sMarginLeft                         as String
-  Dim sMarginRight                        as String
-  Dim sIndentRight                        as String
-
-  sTest        = "lllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllll"
-  sPageWidth   = "8" + gSeperator + "00" + gMeasurementUnit
-  sMarginLeft  = "2" + gSeperator + "00" + gMeasurementUnit
-  sMarginRight = "2" + gSeperator + "00" + gMeasurementUnit
-  sIndentRight = "2" + gSeperator + "00" + gMeasurementUnit
-
-  PrintLog "- Set values for Indent - after text"
-  '/// <b>Set values for Indent - after text</b>
-
-   Call hNewDocument
-
-   'Format/Page , tabpage Page , set page size and margin size
-    Call fFormatPageWriter("TabSeite")
-        Breite.SetText  sPageWidth
-        Links.SetText   sMarginLeft
-        Rechts.SetText  sMarginRight
-    TabSeite.OK
-
-   '/// Input some test words which should be longer than one line
-    Call wTypeKeys sTest
-    Call wTypeKeys "<MOD1 Home>"
-    Call wTypeKeys "<Shift End>"
-    EditCopy
-    iLenTest = Len(getclipboardtext)
-
-   '/// Format/Paragraph / Indents & Spacing , set 2cm in "after Text"
-    Call fFormatParagraph("TabEinzuegeUndAbstaende")
-        VonRechts.SetText sIndentRight
-    TabEinzuegeUndAbstaende.OK
-
-    Call wTypeKeys "<MOD1 Home>"
-    Call wTypeKeys "<Shift End>"
-    EditCopy
-    iLenHalf = Len(getclipboardtext)
-
-    if iLenHalf <> Int(iLenTest/2) AND iLenHalf <> Int(iLenTest/2 +1) AND iLenHalf <> Int(iLenTest/2 -1) then
-        Warnlog "1.Indents - after Text is not right !"
-    end if
-
-    Call wTypeKeys "<Right><Home>"
-    Call wTypeKeys "<Shift End>"
-    EditCopy
-    iLenHalf = Len(getclipboardtext)
-
-    if iLenHalf <> Int(iLenTest/2) AND iLenHalf <> Int(iLenTest/2 +1) AND iLenHalf <> Int(iLenTest/2 -1) then
-        Warnlog "2.Indents - after Text is not right !"
-    end if
-
-   Call hCloseDocument
-
-endcase
-
-'-------------------------------------------------------------------------------------------
-
-testcase tParagraphIndent3
-
-  Dim sTest                             as String
-  Dim iLenTest                          as Integer
-  Dim iLenNew                           as Integer
-  Dim sPageWidth                        as String
-  Dim sMarginLeft                       as String
-  Dim sMarginRight                      as String
-  Dim sIndentRight                      as String
-  Dim sIndentFirst                      as String
-
-  sTest        = "lllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllll"
-  sPageWidth   = "8" + gSeperator + "00" + gMeasurementUnit
-  sMarginLeft  = "2" + gSeperator + "00" + gMeasurementUnit
-  sMarginRight = "2" + gSeperator + "00" + gMeasurementUnit
-  sIndentFirst = "2" + gSeperator + "00" + gMeasurementUnit
-
-  PrintLog "- Set values for Indent - First line"
-  '/// <b>Set values for Indent - First line</b>
-
-   Call hNewDocument
-
-   'Format/Page , tabpage Page , set page size and margin size
-    Call fFormatPageWriter("TabSeite")
-        Breite.SetText  sPageWidth
-        Links.SetText   sMarginLeft
-        Rechts.SetText  sMarginRight
-    TabSeite.OK
-
-   '/// Input some test words which should be longer than one line
-    Call wTypeKeys sTest
-    Call wTypeKeys "<MOD1 Home>"
-    Call wTypeKeys "<Shift End>"
-    EditCopy
-    iLenTest = Len(getclipboardtext)
-
-   '/// Format/Paragraph / Indents & Spacing , set 2cm in "first line"
-    Call fFormatParagraph("TabEinzuegeUndAbstaende")
-        ErsteZeile.SetText sIndentFirst
-    TabEinzuegeUndAbstaende.OK
-
-    Call wTypeKeys "<MOD1 Home>"
-    Call wTypeKeys "<Shift End>"
-    EditCopy
-    iLenNew = Len(getclipboardtext)
-
-    if iLenNew <> Int(iLenTest/2) AND iLenNew <> Int(iLenTest/2 +1) AND iLenNew <> Int(iLenTest/2 -1) then
-        Warnlog "1.Indents - First line is not right !"
-    end if
-
-    Call wTypeKeys "<Right><Home>"
-    Call wTypeKeys "<Shift End>"
-    EditCopy
-    iLenNew = Len(getclipboardtext)
-
-    if iLenNew <> iLenTest then
-        Warnlog "2.Indents - first line is not right !"
-    end if
-
-   Call hCloseDocument
-
-endcase
-
-'-------------------------------------------------------------------------------------------
-
-testcase tParagraphIndent4
-
-  Dim sTest                             as String
-  Dim iLenTest                          as Integer
-  Dim iLenNew                           as Integer
-  Dim sPageWidth                        as String
-  Dim sMarginLeft                       as String
-  Dim sMarginRight                      as String
-  Dim sIndentRight                      as String
-  Dim sIndentFirst                      as String
-
-  sTest        = "lllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllll"
-  sPageWidth   = "8" + gSeperator + "00" + gMeasurementUnit
-  sMarginLeft  = "2" + gSeperator + "00" + gMeasurementUnit
-  sMarginRight = "2" + gSeperator + "00" + gMeasurementUnit
-  sIndentFirst = "2" + gSeperator + "00" + gMeasurementUnit
-
-  PrintLog "- Test checkbox - 'automatic'"
-  '/// <b>Test checkbox - "automatic"</b>
-
-   Call hNewDocument
-
-   'Format/Page , tabpage Page , set page size and margin size
-    Call fFormatPageWriter("TabSeite")
-        Breite.SetText  sPageWidth
-        Links.SetText   sMarginLeft
-        Rechts.SetText  sMarginRight
-    TabSeite.OK
-
-   '/// Input some test words which should be longer than one line
-    Call wTypeKeys sTest
-    Call wTypeKeys "<MOD1 Home>"
-    Call wTypeKeys "<Shift End>"
-    EditCopy
-    iLenTest = Len(getclipboardtext)
-
-   '/// Format/Paragraph / Indents & Spacing , Check "automatic"
-    Call fFormatParagraph("TabEinzuegeUndAbstaende")
-        Automatisch.Check
-        Sleep 2
-        if ErsteZeile.IsEnabled = TRUE then Warnlog "The first line shouldn't be enabled when checking automatic !"
-    TabEinzuegeUndAbstaende.OK
-
-    Call wTypeKeys "<MOD1 Home>"
-    Call wTypeKeys "<Shift End>"
-    EditCopy
-    iLenNew = Len(getclipboardtext)
-
-   'the first line should be shorter than before and longer then 1/2 previous length
-    if iLenNew >= iLenTest OR iLenNew < Int(iLenTest/2 -1) then
-        Warnlog "The 1st line length isn't right after checking 'automatic'!"
-    end if
-
-    Call wTypeKeys "<Right><Home>"
-    Call wTypeKeys "<Shift End>"
-    EditCopy
-    iLenNew = Len(getclipboardtext)
-
-   'the 2nd line should be equal the previous length
-    if iLenNew <> iLenTest then
-        Warnlog "The 2nd line length isn't right after checking 'automatic'!"
-    end if
-
-   Call hCloseDocument
-
-endcase
-
-'-------------------------------------------------------------------------------------------
-
-testcase tParagraphIndent5
-
-  Dim sTestFile          as String
-  Dim sTest1             as String
-  Dim sTest2             as String  'the words in 2nd paragraph (sTest1 is head , sTest2 is end)
-  Dim sSpacing           as String
-
-  sTest1    = "He2" : sTest2 = "endof2ndparagraph"
-  sSpacing  = "10" + gSeperator + "00" + gMeasurementUnit
-  sTestFile = Convertpath (gTesttoolpath + "writer\optional\input\formatparagraph\indent.sxw")
-
-  PrintLog "- Set values for 'Above paraghraph'"
-  '/// <b>Set values for "Above paraghraph"</b>
-
-   Call hNewDocument
-
-   '/// Open the test file
-   '/// This file includes 2 paragraphs , and the end of 2nd paragraph is in 1st page
-    hFileOpenLocally( sTestFile )
-    
-
-   'Set the focus to 2nd paragraph
-    Kontext
-    EditSearchAndReplace
-    Kontext "FindAndReplace"
-        SearchFor.SetText sTest1
-        Sleep 1
-        SearchAll.Click
-        Sleep 1
-    FindAndReplace.Close
-
-   '/// Format/Paragraph / Indents & Spacing , set 10cm for "Above paraghraph"
-    Call fFormatParagraph("TabEinzuegeUndAbstaende")
-        Oben.SetText sSpacing
-    TabEinzuegeUndAbstaende.OK
-
-   'Set the focus to the end of the 2nd paragraph
-    Kontext
-    EditSearchAndReplace
-    Kontext "FindAndReplace"
-        SearchFor.SetText sTest2
-        Sleep 1
-        SearchAll.Click
-        Sleep 1
-    FindAndReplace.Close
-
-   '/// check if the 2nd paragraph is in 2nd page
-    Kontext "Navigator"
-        if Not Navigator.Exists then ViewNavigator
-        Kontext "NavigatorWriter"
-        Sleep 1
-        if Seitennummer.GetText <> "2" then warnlog "Something wrong in 'Above paraghraph'! The end of 2nd paragraph should be 2nd page !"
-    fCloseNavigator
-
-   Call hCloseDocument
-
-endcase
-
-'-------------------------------------------------------------------------------------------
-
-testcase tParagraphIndent6
-
-  Dim sTestFile          as String
-  Dim sTest1             as String
-  Dim sTest2             as String  '(sTest1 is head of paragraph 1 , sTest2 is end of paragraph2)
-  Dim sSpacing           as String
-
-  sTest1    = "He1" : sTest2 = "endof2ndparagraph"
-  sSpacing  = "10" + gSeperator + "00" + gMeasurementUnit
-  sTestFile = Convertpath (gTesttoolpath + "writer\optional\input\formatparagraph\indent.sxw")
-
-  PrintLog "- Set values for 'Below paraghraph'"
-  '/// <b>Set values for "Below paraghraph"</b>
-
-   Call hNewDocument
-
-   '/// Open the test file
-   '/// This file includes 2 paragraphs , and the end of 2nd paragraph is in 1st page
-    hFileOpenLocally( sTestFile )
-    
-
-   'Set the focus to 1st paragraph
-    Kontext
-    EditSearchAndReplace
-    Kontext "FindAndReplace"
-        SearchFor.SetText sTest1
-        Sleep 1
-        SearchAll.Click
-        Sleep 1
-    FindAndReplace.Close
-
-   '/// Format/Paragraph / Indents & Spacing , set 10cm for "Below paraghraph"
-    Call fFormatParagraph("TabEinzuegeUndAbstaende")
-        Unten.SetText sSpacing
-    TabEinzuegeUndAbstaende.OK
-
-   'Set the focus to the end of the 2nd paragraph
-    Kontext
-    EditSearchAndReplace
-    Kontext "FindAndReplace"
-        SearchFor.SetText sTest2
-        Sleep 1
-        SearchAll.Click
-        Sleep 1
-    FindAndReplace.Close
-
-   '/// check if the 2nd paragraph is in 2nd page
-    Kontext "Navigator"
-        if Not Navigator.Exists then ViewNavigator
-        Kontext "NavigatorWriter"
-        Sleep 1
-        if Seitennummer.GetText <> "2" then warnlog "Something wrong in 'Above paraghraph'! The end of 2nd paragraph should be 2nd page !"
-    fCloseNavigator
-
-   Call hCloseDocument
-
-endcase
-
-'-------------------------------------------------------------------------------------------
-
-testcase tParagraphIndent7
-
-  Dim sTestFile                as String
-  Dim sEndOfPara1              as String
-  Dim sStartPara2              as String
-  Dim sEndPara2                as String
-  Dim sParagraph2              as String
-
-  sTestFile   = Convertpath (gTesttoolpath + "writer\optional\input\formatparagraph\spacing.sxw")
-  sEndOfPara1 = "endpara1"
-  sStartPara2 = "StartPara2" : sEndPara2 = "endofpara2"
-  sParagraph2 = "StartPara2mmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmendofpara2"
-
-  PrintLog "- Test above and below spacing of successive paragraphs are not added up, the biggest one should be displayed"
-  '/// <b>Test above and below spacing of successive paragraphs are not added up, the biggest one should be displayed"</b>
-
-   Call hNewDocument
-
-   '/// Open the test file
-   '/// This file includes 1 paragraph which is design like
-   '/// spacing above : 1cm , spacing below : 2cm
-   '/// the checkbox ��Add spacing between paragraphs and tables�� in
-   '///      Tools -> Options... -> Text Document -> Compatibility  is checked
-   '/// if the spacing is adopted 1cm ,2nd paragrahp will be in 1st page
-   '/// if the spacing is adopted 2cm ,2nd paragrahp part will be in 1st page , part will be in 2nd page
-   '/// if the spacing is adopted 3cm ,2nd paragrahp will be in 2nd page
-    hFileOpenLocally( sTestFile )
-    
-
-   'Set the focus to the end of the 1st paragraph
-    Kontext
-    EditSearchAndReplace
-    Kontext "FindAndReplace"
-        SearchFor.SetText sEndOfPara1
-        Sleep 1
-        SearchAll.Click
-        Sleep 1
-    FindAndReplace.Close
-
-    Call wTypeKeys "<End>"
-    Sleep 1
-
-    Call wTypeKeys "<Return>"
-    Sleep 1
-
-   '/// insert 2nd paragraph
-    Call wTypeKeys sParagraph2
-    Sleep 1
-
-   '/// check if the head of paragraph2 is in 1st page and
-   '/// + the end of paragraph2 is in 2nd page
-    Kontext
-    EditSearchAndReplace
-    Kontext "FindAndReplace"
-        SearchFor.SetText sStartPara2
-        Sleep 1
-        SearchAll.Click
-        Sleep 1
-    FindAndReplace.Close
-
-    Kontext "Navigator"
-        if Not Navigator.Exists then ViewNavigator
-        Kontext "NavigatorWriter"
-        Sleep 1
-        if Seitennummer.GetText <> "1" then warnlog "The start of paragraph2 should be in 1st page !"
-    fCloseNavigator
-
-    Kontext
-    EditSearchAndReplace
-    Kontext "FindAndReplace"
-        SearchFor.SetText sEndPara2
-        Sleep 1
-        SearchAll.Click
-        Sleep 1
-    FindAndReplace.Close
-
-    Kontext "Navigator"
-        if Not Navigator.Exists then ViewNavigator
-        Kontext "NavigatorWriter"
-        Sleep 1
-        if Seitennummer.GetText <> "2" then warnlog "The end of paragraph2 should be in 2nd page !"
-    fCloseNavigator
-
-   Call hCloseDocument
-
-endcase
-
-'-------------------------------------------------------------------------------------------
-
-testcase tParagraphIndent8
-
-  Dim sTestFile                as String
-  Dim sEndOfPara1              as String
-  Dim sStartPara2              as String
-  Dim sParagraph2              as String
-
-  sTestFile   = Convertpath (gTesttoolpath + "writer\optional\input\formatparagraph\spacing1.sxw")
-  sEndOfPara1 = "endpara1"
-  sStartPara2 = "StartPara2"
-  sParagraph2 = "StartPara2mmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmendofpara2"
-
-  PrintLog "- Test above and below spacing of successive paragraphs are added up"
-  '/// <b>Test above and below spacing of successive paragraphs are added up</b>
-
-   Call hNewDocument
-
-   '/// Open the test file
-   '/// This file includes 1 paragraph which is design like
-   '/// spacing above : 1cm , spacing below : 2cm
-   '/// the checkbox "Add spacing between paragraphs and tables" in
-   '///      Tools -> Options... -> Text Document -> Compatibility  is Unchecked
-   '/// if the spacing is adopted 1cm ,2nd paragrahp will be in 1st page
-   '/// if the spacing is adopted 2cm ,2nd paragrahp part will be in 1st page , part will be in 2nd page
-   '/// if the spacing is adopted 3cm ,2nd paragrahp will be in 2nd page
-    hFileOpenLocally( sTestFile )
-    
-
-   'Set the focus to the end of the 1st paragraph
-    Kontext
-    EditSearchAndReplace
-    Kontext "FindAndReplace"
-        SearchFor.SetText sEndOfPara1
-        Sleep 1
-        SearchAll.Click
-        Sleep 1
-    FindAndReplace.Close
-
-    Call wTypeKeys "<End>"
-    Sleep 1
-
-    Call wTypeKeys "<Return>"
-    Sleep 1
-
-   '/// insert 2nd paragraph
-    Call wTypeKeys sParagraph2
-    Sleep 1
-
-   '/// check if the paragraph2 is in 2nd page
-    Kontext
-    EditSearchAndReplace
-    Kontext "FindAndReplace"
-        SearchFor.SetText sStartPara2
-        Sleep 1
-        SearchAll.Click
-        Sleep 1
-    FindAndReplace.Close
-
-    Kontext "Navigator"
-        if Not Navigator.Exists then ViewNavigator
-        Kontext "NavigatorWriter"
-        Sleep 1
-        if Seitennummer.GetText <> "2" then warnlog "The start of paragraph2 should be in 2nd page !"
-    fCloseNavigator
-
-   Call hCloseDocument
-
-endcase
-
-'-------------------------------------------------------------------------------------------
-
-testcase tParagraphIndent9
-
-  Dim sTestFile as String
-
-  sTestFile = Convertpath (gTesttoolpath + "writer\optional\input\formatparagraph\eightline.sxw")
-
-  PrintLog "- Test Line spacing - Single"
-  '/// <b>Test Line spacing - Single</b>
-
-   Call hNewDocument
-
-   '/// Open the test file
-   '/// This file includes 8 lines ,
-   '/// + when the spacing is single line , the 8 lines should be in 1 page as design.
-    hFileOpenLocally( sTestFile )
-    
-
-   '/// Format/Paragraph / Indents & Spacing , select single line in Line spacing
-    Call fFormatParagraph("TabEinzuegeUndAbstaende")
-        Zeilenabstand.Select 1
-    TabEinzuegeUndAbstaende.OK
-
-   'Set the focus to the end of the paragraph
-    Call wTypeKeys "<MOD1 End>"
-    Sleep 1
-
-   '/// check if the last line is in 1 page (it should be)
-    Kontext "Navigator"
-        if Not Navigator.Exists then ViewNavigator
-        Kontext "NavigatorWriter"
-        Sleep 1
-        if Seitennummer.GetText <> "1" then warnlog "The end of paragraph should be in 1st page !"
-    fCloseNavigator
-
-   Call hCloseDocument
-
-endcase
-
-'-------------------------------------------------------------------------------------------
-
-testcase tParagraphIndent10
-
-  Dim sTestFile as String
-
-  sTestFile = Convertpath (gTesttoolpath + "writer\optional\input\formatparagraph\eightline.sxw")
-
-  PrintLog "- Test Line spacing - 1.5 lines"
-  '/// <b>Test Line spacing - 1.5 lines</b> ///
-
-   Call hNewDocument
-
-   '/// Open the test file
-   '/// This file includes 8 lines
-   '/// when the spacing is 1.5 lines ,
-   '/// + the last 2(or 3) lines should be in 2nd page.
-    hFileOpenLocally( sTestFile )
-    
-
-   '/// Format/Paragraph / Indents & Spacing , select 1.5 lines in Line spacing
-    Call fFormatParagraph("TabEinzuegeUndAbstaende")
-        Zeilenabstand.Select 2
-        Sleep 1
-    TabEinzuegeUndAbstaende.OK
-
-   'Set the focus to the end of the paragraph
-    Call wTypeKeys "<MOD1 End>"
-    Sleep 1
-
-    Call wTypeKeys "<Home>"
-    Sleep 1
-
-   '/// check if the last 2 lines(7th and 8th) is in 2nd page (it should be)
-    Kontext "Navigator"
-        if Not Navigator.Exists then ViewNavigator
-        Kontext "NavigatorWriter"
-        Sleep 1
-        if Seitennummer.GetText <> "2" then warnlog "The 8th line should be in 2nd page !"
-    fCloseNavigator
-
-    Call wTypeKeys "<Up>"
-    Sleep 1
-    Call wTypeKeys "<Home>"
-    Sleep 1
-
-    Kontext "Navigator"
-        if Not Navigator.Exists then ViewNavigator
-        Kontext "NavigatorWriter"
-        Sleep 1
-        if Seitennummer.GetText <> "2" then warnlog "The 7th line should be in 2nd page !"
-    fCloseNavigator
-
-    Call wTypeKeys "<Up>" , 2
-    Sleep 1
-    Call wTypeKeys "<Home>"
-    Sleep 1
-
-   '/// check if the 5th lines is in 1st page (it should be)
-    Kontext "Navigator"
-        if Not Navigator.Exists then ViewNavigator
-        Kontext "NavigatorWriter"
-        Sleep 1
-        if Seitennummer.GetText <> "1" then warnlog "The 5th line should be in 1st page !"
-    fCloseNavigator
-
-   Call hCloseDocument
-
-endcase
-
-'-------------------------------------------------------------------------------------------
-
-testcase tParagraphIndent11
-
-    Dim sTestFile as String
-    
-    sTestFile = Convertpath (gTesttoolpath + "writer\optional\input\formatparagraph\eightline.sxw")
-    
-    PrintLog "- Test Line spacing - Double lines"
-    '/// <b>Test Line spacing - Double lines</b>
-    
-    Call hNewDocument
-    Call wOptionsUndo ( "Grundschriften" )
-    '/// Open the test file
-    '/// This file includes 8 lines
-    '/// when the spacing is Double lines , the first 4 lines should be in 1st page
-    '/// + the last 4 lines should be in 2nd page.
-    hFileOpenLocally( sTestFile )
-    
-    
-    '/// Format/Paragraph / Indents & Spacing , select Double lines in Line spacing
-    Call fFormatParagraph("TabEinzuegeUndAbstaende")
-    Zeilenabstand.Select 3
-    TabEinzuegeUndAbstaende.OK
-    
-    'Set the focus to the end of the paragraph
-    Call wTypeKeys "<MOD1 End>"
-    Sleep 1
-    
-    Call wTypeKeys "<Home>"
-    Sleep 1
-    
-    '/// check if the last 4 lines is in 2nd page (it should be)
-    Kontext "Navigator"
-    if Not Navigator.Exists then ViewNavigator
-    Kontext "NavigatorWriter"
-    Sleep 1
-    if Seitennummer.GetText <> "2" then warnlog "The 8th line should be in 2nd page !"
-    fCloseNavigator
-    
-    Call wTypeKeys "<Up>" , 3
-    Sleep 1
-    
-    Kontext "Navigator"
-    if Not Navigator.Exists then ViewNavigator
-    Kontext "NavigatorWriter"
-    Sleep 1
-    if Seitennummer.GetText <> "2" then warnlog "The 5th line should be in 2nd page !"
-    fCloseNavigator
-    
-    Call wTypeKeys "<Up>"
-    Sleep 1
-    
-    '/// check if the first 4 lines is in 1st page (it should be)
-    Kontext "Navigator"
-    if Not Navigator.Exists then ViewNavigator
-    Kontext "NavigatorWriter"
-    Sleep 1
-    if Seitennummer.GetText <> "1" then warnlog "The 4th line should be in 1st page !"
-    fCloseNavigator
-    
-    'Set the focus to the end of the paragraph
-    Call wTypeKeys "<MOD1 End>"
-    Sleep 1
-    
-    Call wTypeKeys "m"
-    Kontext "Navigator"
-    if Not Navigator.Exists then ViewNavigator
-    Kontext "NavigatorWriter"
-    Sleep 1
-    if Seitennummer.GetText <> "3" then warnlog "The 9th line should be in 3rd page !"
-    fCloseNavigator
-    
-    Call hCloseDocument
-
-endcase
-
-'-------------------------------------------------------------------------------------------
-
-testcase tParagraphIndent12
-
-  Dim sTestFile     as String
-  Dim sProportional as String
-
-  sTestFile     = Convertpath (gTesttoolpath + "writer\optional\input\formatparagraph\eightline.sxw")
-  sProportional = "130%"
-
-  PrintLog "- Test Line spacing - Proportional"
-  '/// <b>Test Line spacing - Proportional</b>
-
-   Call hNewDocument
-
-   '/// 1.Test the max of Proportional is 200%
-   '/// Open the test file
-   '/// This file includes 8 lines
-   '/// when the spacing Proportional is more than 200% ,
-   '/// + then it will change to be Double line automatically
-    hFileOpenLocally( sTestFile )
-    
-
-   '/// Format/Paragraph / Indents & Spacing ,
-   '/// + select Proportional in Line spacing , and input 300%
-    Call fFormatParagraph("TabEinzuegeUndAbstaende")
-        Zeilenabstand.Select 4
-        Sleep 2
-        Um.SetText "300%"
-    TabEinzuegeUndAbstaende.OK
-
-    Call fFormatParagraph("TabEinzuegeUndAbstaende")
-        if Zeilenabstand.GetSelIndex <> 3 then warnlog "should get double line, but get " & Zeilenabstand.GetSelText(Zeilenabstand.GetSelIndex)
-    TabEinzuegeUndAbstaende.Cancel
-
-   '/// 2.Test when Proportional is 130%
-
-   '/// Format/Paragraph / Indents & Spacing ,
-   '/// + select Proportional in Line spacing , and input 130%
-    Call fFormatParagraph("TabEinzuegeUndAbstaende")
-        Zeilenabstand.Select 4
-        Sleep 2
-        Um.SetText sProportional
-    TabEinzuegeUndAbstaende.OK
-
-   'Set the focus to the end of the paragraph
-    Call wTypeKeys "<MOD1 End>"
-    Sleep 1
-
-    Call wTypeKeys "<Home>"
-    Sleep 1
-
-   '/// check if the last 2 lines is in 2nd page (it should be)
-    Kontext "Navigator"
-        if Not Navigator.Exists then ViewNavigator
-        Kontext "NavigatorWriter"
-        Sleep 1
-        if Seitennummer.GetText <> "2" then warnlog "The 8th line should be in 2nd page !"
-    fCloseNavigator
-
-    Call wTypeKeys "<Up>" , 2
-    Sleep 1
-
-    Kontext "Navigator"
-        if Not Navigator.Exists then ViewNavigator
-        Kontext "NavigatorWriter"
-        Sleep 1
-        if Seitennummer.GetText <> "1" then warnlog "The 6th line should be in 2nd page !"
-    fCloseNavigator
-
-   Call hCloseDocument
-
-endcase
-
-'-------------------------------------------------------------------------------------------
-
-testcase tParagraphIndent13
-
-  Dim sTestFile  as String
-  Dim sAtLeast   as String
-  Dim sPositionY as String
-
-  sTestFile = Convertpath (gTesttoolpath + "writer\optional\input\formatparagraph\eightLineAdd1Pic.sxw")
-  sAtLeast  = "4" + gSeperator + "00" + gMeasurementUnit
-
-  PrintLog "- Test Line spacing - At least"
-  '/// <b>Test Line spacing - At least</b>
-
-   Call hNewDocument
-
-   '/// Open the test file
-   '/// This file includes 8 lines and 1 pic is anchored as character in 1st line
-   '/// when the spacing is At least to 4cm, there should be 1 line/page
-   '/// + and the pic should move down
-    hFileOpenLocally( sTestFile )
-    
-
-   'Get the original coordinate-Y
-   Call wTypeKeys ( "<Shift F4>" )
-   Sleep 1
-   FormatAnchorToPage
-   Sleep 1
-   Call fPositionAndSize("TabPositionAndSizeWriter")
-   sPositionY = Verticalby.Gettext
-    TabPositionAndSizeWriter.Cancel
-    FormatAnchorAsCharacter
-    Sleep 1
-    Call wTypeKeys "<ESCAPE>"
-    Sleep 1
-
-   '/// Format/Paragraph / Indents & Spacing , select At least in Line spacing and set 4cm
-    Call fFormatParagraph("TabEinzuegeUndAbstaende")
-        Zeilenabstand.Select 5
-        Sleep 1
-        Von.SetText sAtLeast
-    TabEinzuegeUndAbstaende.OK
-
-   'Set the focus to the end of the paragraph
-    Call wTypeKeys "<MOD1 End>"
-    Sleep 1
-
-   '/// check if it is 1 line /page
-    Kontext "Navigator"
-        if Not Navigator.Exists then ViewNavigator
-        Kontext "NavigatorWriter"
-        Sleep 1
-        if Seitennummer.GetText <> "8" then Warnlog "The 8th line should be in 8th page !"
-    fCloseNavigator
-
-   '/// check if the pic moves
-    Call wTypeKeys ( "<Shift F4>" )
-    Sleep 1
-    FormatAnchorToPage
-    Sleep 1
-
-    Call fPositionAndSize("TabPositionAndSizeWriter")
-        if sPositionY = Verticalby.Gettext then warnlog "The pic should move !"
-    TabPositionAndSizeWriter.Cancel
-
-   Call hCloseDocument
-
-endcase
-
-'-------------------------------------------------------------------------------------------
-
-testcase tParagraphIndent14
-
-  Dim sTestFile  as String
-  Dim sAtLeast   as String
-  Dim sPositionY as String
-
-  sTestFile = Convertpath (gTesttoolpath + "writer\optional\input\formatparagraph\eightLineAdd1Pic.sxw")
-  sAtLeast  = "4" + gSeperator + "00" + gMeasurementUnit
-
-  PrintLog "- Test Line spacing - leading"
-  '/// <b>Test Line spacing - leading</b>
-
-   Call hNewDocument
-
-   '/// Open the test file
-   '/// This file includes 8 lines and 1 pic is anchored as character in 1st line
-   '/// when the spacing is leading to 4cm, there should be 1 line/page
-   '/// + and the pic should NOT move
-    hFileOpenLocally( sTestFile )
-    
-
-   'Get the original coordinate-Y
-    Call wTypeKeys ( "<Shift F4>" )
-    Sleep 1
-    FormatAnchorToPage
-    Sleep 1
-    Call fPositionAndSize("TabPositionAndSizeWriter")
-        sPositionY = Verticalby.Gettext
-    TabPositionAndSizeWriter.Cancel
-    FormatAnchorAsCharacter
-    Sleep 1
-    Call wTypeKeys "<ESCAPE>"
-    Sleep 1
-
-   '/// Format/Paragraph / Indents & Spacing , select leading in Line spacing and set 4cm
-    Call fFormatParagraph("TabEinzuegeUndAbstaende")
-        Zeilenabstand.Select 6
-        Sleep 1
-        Von.SetText sAtLeast
-    TabEinzuegeUndAbstaende.OK
-
-   'Set the focus to the end of the paragraph
-    Call wTypeKeys "<MOD1 End>"
-    Sleep 1
-
-   '/// check if it is 1 line /page
-    Kontext "Navigator"
-        if Not Navigator.Exists then ViewNavigator
-        Kontext "NavigatorWriter"
-        Sleep 1
-        if Seitennummer.GetText <> "8" then Warnlog "The 8th line should be in 8th page !"
-    fCloseNavigator
-
-   '/// check if the pic moves
-    Call wTypeKeys ( "<Shift F4>" )
-    Sleep 1
-    FormatAnchorToPage
-    Sleep 1
-
-    Call fPositionAndSize("TabPositionAndSizeWriter")
-        if sPositionY <> Verticalby.Gettext then warnlog "The pic should NOT move !"
-    TabPositionAndSizeWriter.Cancel
-
-   Call hCloseDocument
-
-endcase
-
-'-------------------------------------------------------------------------------------------
-
-testcase tParagraphIndent15
-
-  Dim sTestFile  as String
-  Dim sFixed     as String
-
-  sTestFile = Convertpath (gTesttoolpath + "writer\optional\input\formatparagraph\eightline.sxw")
-  sFixed    = "0" + gSeperator + "50" + gMeasurementUnit
-
-  PrintLog "- Test Line spacing - Fixed lines"
-  '/// <b>Test Line spacing - Fixed lines</b>
-
-   Call hNewDocument
-
-   '/// Open the test file
-   '/// + This file includes 8 lines , and font size is 12
-    hFileOpenLocally( sTestFile )
-    
-
-   '/// Format/Paragraph / Indents & Spacing ,
-   '/// + select Fixed lines in Line spacing
-   '/// + set 0.5cm
-    Call fFormatParagraph("TabEinzuegeUndAbstaende")
-        Zeilenabstand.Select 7
-        sleep 1
-        Von.SetText sFixed
-    TabEinzuegeUndAbstaende.OK
-
-   '/// Format/Character / Font ,Change font size to 24
-    Call wTypeKeys "<MOD1 a>"
-    Sleep 1
-    Call fFormatCharacter("TabFont")
-        try
-            SizeWest.Select "24"
-        catch
-            Size.Select "24"
-        endcatch
-    TabFont.OK
-
-   '/// check if there are still 8 lines/page and there
-   '/// + should be 2 pages
-    Call wTypeKeys "<MOD1 Home>"
-    Call wTypeKeys "<Down>" , 7
-
-    Kontext "Navigator"
-        if Not Navigator.Exists then ViewNavigator
-        Kontext "NavigatorWriter"
-        Sleep 1
-        if Seitennummer.GetText <> "1" then warnlog "The 8th line should be in 1st page !"
-    Call fCloseNavigator
-
-    Call wTypeKeys "<Down>"
-
-    Kontext "Navigator"
-        if Not Navigator.Exists then ViewNavigator
-        Kontext "NavigatorWriter"
-        Sleep 1
-        if Seitennummer.GetText <> "2" then warnlog "The 9th line should be in 2nd page !"
-    Call fCloseNavigator
-
-   Call hCloseDocument
-
-endcase
-
-'-------------------------------------------------------------------------------------------
-
-testcase tParagraphIndent16
-
-  Dim sTestFile    as String
-  Dim sPositionX as String
-  Dim sPositionY as String
-
-  sTestFile = Convertpath (gTesttoolpath + "writer\optional\input\formatparagraph\registerTrue.sxw")
-
-  PrintLog "- Test Regester-true Active"
-  '/// <b>Test Regester-true Active</b>
-
-   Call hNewDocument
-
-   '/// Open the test file .
-   '/// This file includes 2 paragraphs ,
-   '/// + and 2 columns , in format/page / page ,
-   '/// + regester-true has been checked as text body.
-   '/// + You will find out the "He2 heard quiet steps"
-   '/// + isn't at the same line with the context left it .
-   '/// + There is a pic anchored "He2" .
-    hFileOpenLocally( sTestFile )
-    
-
-   'Get the original location for the pic
-    Call wTypeKeys ( "<Shift F4>" )
-    Sleep 1
-    FormatAnchorToPage
-    Sleep 1
-    Call fPositionAndSize("TabPositionAndSizeWriter")
-        sPositionX = Horizontalby.Gettext
-        sPositionY = Verticalby.Gettext
-    TabPositionAndSizeWriter.Cancel
-
-    FormatAnchorAsCharacter
-    Sleep 1
-    Call wTypeKeys "<ESCAPE>"
-    Sleep 1
-    Call wTypeKeys "<MOD1 A>"
-
-   '/// Format/Paragraph / Indents & Spacing ,
-   '/// + check Regester-true Active
-    Call fFormatParagraph("TabEinzuegeUndAbstaende")
-        Registerhaltigkeit.Check
-        Sleep 1
-    TabEinzuegeUndAbstaende.OK
-
-   '/// Check if  "He2 heard quiet steps" is at the same line with the context left it.
-    Call wTypeKeys ( "<Shift F4>" )
-    Sleep 1
-    FormatAnchorToPage
-    Sleep 1
-    Call fPositionAndSize("TabPositionAndSizeWriter")
-        if sPositionX <> Horizontalby.Gettext then warnlog "Position X should NOT be changed !"
-        if sPositionY =  Verticalby.Gettext then warnlog "Position Y should be changed !"
-    TabPositionAndSizeWriter.Cancel
-
-   Call hCloseDocument
-
-endcase
-
-'-------------------------------------------------------------------------------------------
-
-testcase tParagraphIndent17
-
-	Dim sTestFile1 as String
-	Dim sTestFile2 as String
-	
-	sTestFile1 = Convertpath (gTesttoolpath + "writer\optional\input\formatparagraph\AddSpacingShouldCheck.doc")
-	sTestFile2 = Convertpath (gTesttoolpath + "writer\optional\input\formatparagraph\AddSpacingShouldNotCheck.doc")
-	
-	PrintLog "- Test 'Add spacing between paragarph and talbes' when importing from MS-Word"
-	'/// <b>Test 'Add spacing between paragarph and talbes' when importing from MS-Word</b>
-	
-	Call hNewDocument
-	
-	'/// 1.Open the test file - AddSpacingShouldCheck.doc
-	'///   In Tools/Optionis/Text Document/Compatibility,
-	'/// + the 'Add spacing between paragarph and talbes'
-	'/// + should be checked
-	hFileOpenLocally( sTestFile1)
-	
-	
-	ToolsOptions
-	Call hToolsOptions("WRITER","COMPATIBILITY")
-	Kontext "TabCompatibility"
-	Sleep 2
-	Options.TypeKeys "<Down>"
-	if Options.IsChecked <> TRUE then
-		warnlog "'Add spacing between paragarph and talbes' should be checked"
-	end if
-	Kontext "ExtrasOptionenDlg"
-	ExtrasOptionenDlg.OK
-	
-	Call hCloseDocument
-	
-	Call hNewDocument
-	
-	'/// 2.Open the test file - AddSpacingShouldNotCheck.doc
-	'///   In Tools/Optionis/Text Document/Compatibility,
-	'/// + the 'Add spacing between paragarph and talbes'
-	'/// + should NOT be checked
-	hFileOpenLocally( sTestFile2)
-	
-	
-	ToolsOptions
-	Call hToolsOptions("WRITER","COMPATIBILITY")
-	Kontext "TabCompatibility"
-	Sleep 2
-	Options.TypeKeys "<Down>"
-	if Options.IsChecked = TRUE then
-		warnlog "'Add spacing between paragarph and talbes' should NOT be checked"
-	end if
-	Kontext "ExtrasOptionenDlg"
-	ExtrasOptionenDlg.OK
-	
-	Do Until GetDocumentCount = 0
-        Call hCloseDocument
-    Loop
-
-endcase
-
-'-------------------------------------------------------------------------------------------
-
-testcase tParagraphIndent18
-
-  Dim sPageWidth                          as String
-  Dim sMarginLeft                         as String
-  Dim sMarginRight                        as String
-  Dim sBeforeText                         as String
-  Dim sAfterText                          as String
-
-  sPageWidth   = "8"   + gSeperator + "00" + gMeasurementUnit
-  sMarginLeft  = "2"   + gSeperator + "00" + gMeasurementUnit
-  sMarginRight = "2"   + gSeperator + "00" + gMeasurementUnit
-  sBeforeText  = "-10" + gSeperator + "00" + gMeasurementUnit
-  sAfterText   = "-12" + gSeperator + "00" + gMeasurementUnit
-
-  PrintLog "- Test Negativ indent"
-  '/// <b>Test Negativ indent</b> ///
-
-   Call hNewDocument
-
-   '/// Format/Page , tabpage Page , set page size and margin size ///
-    Call fFormatPageWriter("TabSeite")
-        Breite.SetText  sPageWidth
-        Links.SetText   sMarginLeft
-        Rechts.SetText  sMarginRight
-    TabSeite.OK
-
-   '/// Format/Paragraph / Indents & Spacing , ///
-   '/// + set -10cm in 'before text' ///
-   '/// + set -12cm in 'after text'  ///
-    Call fFormatParagraph("TabEinzuegeUndAbstaende")
-        Vonlinks.SetText  sBeforeText
-        VonRechts.SetText sAfterText
-    TabEinzuegeUndAbstaende.OK
-
-   '/// Check if the configuration is right ///
-    Call fFormatParagraph("TabEinzuegeUndAbstaende")
-        if Vonlinks.GetText  <> sBeforeText then warnlog "Before text is wrong , get :" &Vonlinks.GetText
-        if VonRechts.GetText <> sAfterText  then warnlog "After text is wrong , get :" &VonRechts.SetText
-    TabEinzuegeUndAbstaende.Cancel
-
-   Call hCloseDocument
-
-endcase
-
-'-------------------------------------------------------------------------------------------
-
diff --git a/testautomation/writer/optional/includes/formatparagraph/w_formatparagraph2.inc b/testautomation/writer/optional/includes/formatparagraph/w_formatparagraph2.inc
deleted file mode 100644
index 7d34b25d886a..000000000000
--- a/testautomation/writer/optional/includes/formatparagraph/w_formatparagraph2.inc
+++ /dev/null
@@ -1,1412 +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 : helge.delfs@oracle.com
-'*
-'* short description : Test the functionality of Paragraph Formatting - 2
-'*
-'\***********************************************************************
-
-testcase tParagraphAlignment1
-
-  Dim sTestFile as String
-  Dim sPositionX as String
-
-  sTestFile = Convertpath (gTesttoolpath + "writer\optional\input\formatparagraph\alignmentTest.sxw")
-
-  PrintLog "- Test 'Left' alignment"
-  '/// Test 'Left' alignment
-
-   Call hNewDocument
-
-   '/// + Open the test file
-   '/// + This file includes 1 paragraphs , and a pic is anchored to the character
-    hFileOpenLocally( sTestFile )
-
-   'Get the original coordinate-X
-    Call wTypeKeys ( "<Shift F4>" )
-    Sleep 1
-    FormatAnchorToPage
-    Sleep 1
-    Call fPositionAndSize("TabPositionAndSizeWriter")
-        sPositionX = Horizontalby.Gettext
-    TabPositionAndSizeWriter.Cancel
-    FormatAnchorAsCharacter
-    Sleep 1
-    Call wTypeKeys "<ESCAPE>"
-
-   '/// + Format/Paragraph / Alignment , choose Left/Top option
-    Call fFormatParagraph("TabAusrichtungAbsatz")
-        Links.Check
-    TabAusrichtungAbsatz.OK
-
-   '/// + check if the alignment is moved to left
-    Call wTypeKeys ( "<Shift F4>" )
-    Sleep 1
-    FormatAnchorToPage
-    Sleep 1
-    Call fPositionAndSize("TabPositionAndSizeWriter")
-        if sPositionX <> Horizontalby.Gettext then warnlog "Alignment Left doesn't work !"
-    TabPositionAndSizeWriter.Cancel
-
-   Call hCloseDocument
-endcase
-
-'-------------------------------------------------------------------------------------------
-
-testcase tParagraphAlignment2
-
-  Dim sTestFile as String
-  Dim sPositionX as String
-
-  sTestFile  = Convertpath (gTesttoolpath + "writer\optional\input\formatparagraph\alignmentTestRight.sxw")
-  sPositionX = "11" + gSeperator + "00" + gMeasurementUnit
-
-  PrintLog "- Test 'Right' alignment"
-  '/// Test 'Right' alignment
-
-   Call hNewDocument
-
-   '/// + Open the test file
-   '/// + This file includes 1 paragraphs , and a pic is anchored to the laste character
-    hFileOpenLocally( sTestFile )
-
-   '/// + Format/Paragraph / Alignment , choose Right/Bottom option
-    Call fFormatParagraph("TabAusrichtungAbsatz")
-        Rechts.Check
-    TabAusrichtungAbsatz.OK
-
-   '/// + check if the alignment is moved to Right
-    Call wTypeKeys ( "<Shift F4>" )
-    Sleep 1
-    FormatAnchorToPage
-    Sleep 1
-    Call fPositionAndSize("TabPositionAndSizeWriter")
-        if fCalculateTolerance(Horizontalby.Gettext , sPositionX) > 0.02 then
-            warnlog "Alignment Right doesn't work !"
-        end if
-    TabPositionAndSizeWriter.Cancel
-
-   Call hCloseDocument
-endcase
-
-'-------------------------------------------------------------------------------------------
-
-testcase tParagraphAlignment3
-
-	Dim sTestFile as String
-
-	sTestFile = Convertpath (gTesttoolpath + "writer\optional\input\formatparagraph\alignmentTest.sxw")
-
-  PrintLog "- Test 'Center' alignment"
-  '/// Test 'Center' alignment
-
-   Call hNewDocument
-
-   '/// + Open the test file
-   '/// + This file includes 1 paragraphs , and a pic is anchored to the character
-    hFileOpenLocally( sTestFile )
-
-   '/// + Format/Paragraph / Alignment , choose Center option
-    Call fFormatParagraph("TabAusrichtungAbsatz")
-        Zentriert.Check
-    TabAusrichtungAbsatz.OK
-
-   '/// + check if the alignment is moved to Center
-    Call wTypeKeys ( "<Shift F4>" )
-    Sleep 1
-    FormatAnchorToPage
-    Sleep 1
-    Call fPositionAndSize("TabPositionAndSizeWriter")
-        if Int( Left(Horizontalby.Gettext , 1) ) > 7 OR Int( Left(Horizontalby.Gettext , 1) ) < 4 then
-            warnlog "Alignment Center doesn't work !"
-        end if
-    TabPositionAndSizeWriter.Cancel
-
-   Call hCloseDocument
-endcase
-
-'-------------------------------------------------------------------------------------------
-
-testcase tParagraphAlignment4
-
-  Dim sTestFile as String
-  Dim sPositionX1 as String
-  Dim sPositionX2 as String
-
-  sTestFile   = Convertpath (gTesttoolpath + "writer\optional\input\formatparagraph\alignmentTestJustified.sxw")
-  sPositionX1 = "12" + gSeperator + "84" + gMeasurementUnit
-
-  PrintLog "- Test 'Justified' alignment - Default"
-  '/// Test 'Justified' alignment - Default
-
-   Call hNewDocument
-
-   '/// Open the test file
-   '/// + This file includes 1 paragraphs , and a pic is anchored to the last character
-    hFileOpenLocally( sTestFile )
-
-    Call wTypeKeys ( "<Shift F4>" )
-    Sleep 1
-    FormatAnchorToPage
-    Sleep 1
-
-    Call fPositionAndSize("TabPositionAndSizeWriter")
-        sPositionX2 = Horizontalby.Gettext
-    TabPositionAndSizeWriter.Cancel
-    Call wTypeKeys "<ESCAPE>"
-
-   '/// Format/Paragraph / Alignment , choose Justified option , and select default in last line
-    Call fFormatParagraph("TabAusrichtungAbsatz")
-        Blocksatz.Check
-        Sleep 1
-        LetzteZeile.Select 1
-    TabAusrichtungAbsatz.OK
-
-   '/// check if the alignment is moved as Justified
-    Call wTypeKeys ( "<Shift F4>" )
-    Call wTypeKeys "<Tab>"
-    Sleep 1
-    FormatAnchorToPage
-    Sleep 1
-
-    Call fPositionAndSize("TabPositionAndSizeWriter")
-        if fCalculateTolerance(Horizontalby.Gettext , sPositionX1) > 0.02 then
-            if gPlatGroup = "unx" then
-                Warnlog "Different font-sizes under Linux/Unix compared with windows."
-            else
-                Warnlog "Alignment Justified doesn't work -1 !"
-            end if
-        end if
-    TabPositionAndSizeWriter.Cancel
-
-    Call wTypeKeys "<Tab>"
-    FormatAnchorToPage
-    Sleep 1
-    Call fPositionAndSize("TabPositionAndSizeWriter")
-        if Horizontalby.Gettext <> sPositionX2 then 
-            if gPlatGroup = "unx" then
-                Warnlog "Different font-sizes under Linux/Unix compared with windows."
-            else
-                warnlog "Alignment Justified doesn't work -2 !"
-            end if
-        end if
-    TabPositionAndSizeWriter.Cancel
-
-   Call hCloseDocument
-endcase
-
-'-------------------------------------------------------------------------------------------
-
-testcase tParagraphAlignment5
-
-  Dim sTestFile as String
-
-  sTestFile   = Convertpath (gTesttoolpath + "writer\optional\input\formatparagraph\alignmentTestJustified.sxw")
-
-  PrintLog "- Test 'Justified' alignment - Centered"
-  '/// Test 'Justified' alignment - Centered
-
-   Call hNewDocument
-
-   '/// Open the test file
-   '/// + This file includes 1 paragraphs , and a pic is anchored to the last character
-    hFileOpenLocally( sTestFile )
-
-   '/// Format/Paragraph / Alignment ,
-   '/// + choose Justified option , and select centered in last line
-    Call fFormatParagraph("TabAusrichtungAbsatz")
-        Blocksatz.Check
-        Sleep 1
-        LetzteZeile.Select 2
-    TabAusrichtungAbsatz.OK
-
-   '/// check if the alignment is moved as Justified
-    Call wTypeKeys ( "<Shift F4>" )
-    FormatAnchorToPage
-    Sleep 1
-    Call fPositionAndSize("TabPositionAndSizeWriter")
-        if StrToDouble(Horizontalby.Gettext) < 7.5 OR StrToDouble(Horizontalby.Gettext) > 8.8 then
-            warnlog "Alignment Justified - Centered doesn't work !"
-        end if
-    TabPositionAndSizeWriter.Cancel
-
-   Call hCloseDocument
-endcase
-
-'-------------------------------------------------------------------------------------------
-
-testcase tParagraphAlignment6
-
-  Dim sTestFile as String
-  Dim sPositionX1 as String
-  Dim sPositionX2 as String
-
-  sTestFile   = Convertpath (gTesttoolpath + "writer\optional\input\formatparagraph\alignmentTestJustifiedCentered.sxw")
-  sPositionX2 = "11" + gSeperator + "15" + gMeasurementUnit
-
-  PrintLog "- Test 'Justified' alignment - Justified"
-  '/// Test 'Justified' alignment - Justified
-
-   Call hNewDocument
-
-   '/// Open the test file
-   '/// + This file includes 1 paragraphs,
-   '/// + and 2 pics are in 2nd line
-    hFileOpenLocally( sTestFile )
-
-    Call wTypeKeys ( "<Shift F4>" )
-    Call wTypeKeys "<TAB>"
-    Sleep 1
-    FormatAnchorToPage
-    Sleep 1
-
-    Call fPositionAndSize("TabPositionAndSizeWriter")
-        sPositionX1 = Horizontalby.Gettext
-    TabPositionAndSizeWriter.Cancel
-    FormatAnchorAsCharacter
-    Sleep 1
-    Call wTypeKeys "<ESCAPE>"
-
-   '/// Format/Paragraph / Alignment ,
-   '/// + choose Justified option , and select Justified in last line
-    Call fFormatParagraph("TabAusrichtungAbsatz")
-        Blocksatz.Check
-        Sleep 1
-        LetzteZeile.Select 3
-    TabAusrichtungAbsatz.OK
-
-   '/// check if the alignment is moved as Justified
-    Call wTypeKeys "<MOD1 Home>"
-    Call wTypeKeys ( "<Shift F4>" )
-    Sleep 1
-    FormatAnchorToPage
-    Sleep 1
-
-    Call fPositionAndSize("TabPositionAndSizeWriter")
-        if Horizontalby.Gettext <> sPositionX1 then 
-            if gPlatGroup = "unx" then
-                Warnlog "Different font-sizes under Linux/Unix compared with windows."
-            else
-                warnlog "Alignment Justified doesn't work -1 !"
-            end if
-        end if
-    TabPositionAndSizeWriter.Cancel
-
-    Call wTypeKeys "<Tab>"
-    FormatAnchorToPage
-    Sleep 1
-    Call fPositionAndSize("TabPositionAndSizeWriter")
-        if fCalculateTolerance(Horizontalby.Gettext , sPositionX2) > 0.02 then Warnlog "Alignment Justified doesn't work -2 !"
-    TabPositionAndSizeWriter.Cancel
-
-   Call hCloseDocument
-endcase
-
-'--------------------------------------------------------------------------
-
-testcase tParagraphAlignment7
-
-  Dim sTestFile as String
-  Dim sPositionX as String
-
-  sTestFile   = Convertpath (gTesttoolpath + "writer\optional\input\formatparagraph\testExpand.sxw")
-
-  Printlog "- Test 'Expand single word'"
-  Call hNewDocument
-
-    '/// Open the test file
-    '/// + This file includes 1 paragraphs ,
-    '/// + there is only 1 word - "That" in last line ,
-    '/// + and a drawring object is anchored as character after "That"
-    hFileOpenLocally( sTestFile )
-
-    printlog "Select the object."
-    Sleep 1
-    Call wTypeKeys ( "<Shift F4>" )
-    Sleep 1
-
-    printlog "Note the position of the drawing object"
-    Call fPositionAndSize("TabPositionAndSizeWriter")
-    sPositionX = Horizontalby.Gettext
-    TabPositionAndSizeWriter.Cancel
-
-    printlog "Deselect the object"
-    Sleep 1
-    Call wTypeKeys ( "<ESCAPE>" )
-
-    '/// Format/Paragraph / Alignment ,
-    '/// + choose Justified option , select Justified in 'last line'
-    '/// + check 'expand single word'
-    Call fFormatParagraph("TabAusrichtungAbsatz")
-        Blocksatz.Check
-        Sleep 1
-        LetzteZeile.Select 3
-        Sleep 1
-        EinzelnesWortAustreiben.Check
-        Sleep 1
-    TabAusrichtungAbsatz.OK
-
-    printlog "Select the drawing object , Format/Anchor / To page"
-    Call wTypeKeys ( "<Shift F4>" )
-
-    Sleep 1
-    FormatAnchorToPage
-    Sleep 1
-
-    printlog "Check if the drawing object has moved from where it was before."
-    Call fPositionAndSize("TabPositionAndSizeWriter")
-        if Horizontalby.Gettext = sPositionX then QAErrorLog "#114314# Expand single word doesn't work"
-    TabPositionAndSizeWriter.Cancel
-
-    Call hCloseDocument
-endcase
-
-'--------------------------------------------------------------------------
-
-testcase tParagraphAlignment8
-
-  Dim bAsianLanguage as Boolean
-  Dim sTestFile as String
-  Dim sPositionX as String
-  Dim sPositionY as String
-
-  sTestFile   = Convertpath (gTesttoolpath + "writer\optional\input\formatparagraph\testExpand.sxw")
-  sPositionY  = "2" + gSeperator + "80" + gMeasurementUnit
-
-  PrintLog "- Test Uncheck 'Snap to text grid'"
-  '/// <b> Test Uncheck 'Snap to text grid' </b> ///
-
-   Call hNewDocument
-
-   '/// Set 'Asian Language support' on ///
-    bAsianLanguage = ActiveDeactivateAsianSupport(TRUE)
-
-   '/// Open the test file
-   '/// + This file includes 1 paragraphs ,
-   '/// + and a drawring object is anchored as character after "That"
-    hFileOpenLocally( sTestFile )
-
-   '/// Get the drawing object original position ///
-    Call wTypeKeys ( "<Shift F4>" )
-    Sleep 1
-    FormatAnchorToPage
-    Sleep 1
-    Call fPositionAndSize("TabPositionAndSizeWriter")
-         sPositionX = Horizontalby.Gettext
-    TabPositionAndSizeWriter.Cancel
-    FormatAnchorAsCharacter
-    Sleep 1
-    Call wTypeKeys "<ESCAPE>"
-
-   '/// Format/Paragraph / Alignment ,
-   '/// + Uncheck 'Snap to text grid'
-    Call fFormatParagraph("TabAusrichtungAbsatz")
-        TextrasterFangen.UnCheck
-        Sleep 1
-    TabAusrichtungAbsatz.OK
-
-   '/// Format/page / Text Grid
-   '/// + Check 'Grid (lines only)
-   '/// + close the dialog
-    Call fFormatPageWriter("TabGrid")
-        LinesGrid.Check
-        Sleep 1
-    TabGrid.OK
-
-   '/// Check if the drawing object is in the same position
-    Call wTypeKeys ( "<Shift F4>" )
-    Sleep 1
-    FormatAnchorToPage
-    Sleep 1
-    Call fPositionAndSize("TabPositionAndSizeWriter")
-        if Horizontalby.Gettext <> sPositionX then warnlog "Uncheck 'Snap to text grid' doesn't work - x position!"
-        if fCalculateTolerance(Verticalby.Gettext , sPositionY) > 0.1 then Warnlog "Uncheck 'Snap to text grid' doesn't work - y position!"
-    TabPositionAndSizeWriter.Cancel
-
-   '/// Set the 'Asian Language support' to default
-    if bAsianLanguage = FALSE then
-        Call ActiveDeactivateAsianSupport(FALSE)
-    end if
-
-   Call hCloseDocument
-endcase
-
-'--------------------------------------------------------------------------
-
-testcase tParagraphAlignment9
-
-  Dim bAsianLanguage as Boolean
-  Dim sTestFile as String
-  Dim sPositionX as String
-  Dim sPositionY as String
-
-  sTestFile   = Convertpath (gTesttoolpath + "writer\optional\input\formatparagraph\testExpand.sxw")
-  sPositionY  = "3" + gSeperator + "61" + gMeasurementUnit
-
-  PrintLog "- Test check 'Snap to text grid'"
-  '/// <b> Test check 'Snap to text grid' </b> ///
-
-   Call hNewDocument
-
-   '/// Set 'Asian Language support' on ///
-    bAsianLanguage = ActiveDeactivateAsianSupport(TRUE)
-
-   '/// Open the test file
-   '/// + This file includes 1 paragraphs ,
-   '/// + and a drawring object is anchored as character after "That"
-    hFileOpenLocally( sTestFile )
-
-   '/// Get the drawing object original position ///
-    Call wTypeKeys ( "<Shift F4>" )
-    Sleep 1
-    FormatAnchorToPage
-    Sleep 1
-    Call fPositionAndSize("TabPositionAndSizeWriter")
-         sPositionX = Horizontalby.Gettext
-    TabPositionAndSizeWriter.Cancel
-    FormatAnchorAsCharacter
-    Sleep 1
-    Call wTypeKeys "<ESCAPE>"
-
-   '/// Format/Paragraph / Alignment ,
-   '/// + check 'Snap to text grid'
-    Call fFormatParagraph("TabAusrichtungAbsatz")
-        TextrasterFangen.Check
-        Sleep 1
-    TabAusrichtungAbsatz.OK
-
-   '/// Format/page / Text Grid
-   '/// + Check 'Grid (lines only)
-   '/// + close the dialog
-    Call fFormatPageWriter("TabGrid")
-        LinesGrid.Check
-        Sleep 1
-    TabGrid.OK
-
-   '/// Check if the drawing object is in the same position
-    Call wTypeKeys ( "<Shift F4>" )
-    Sleep 1
-    FormatAnchorToPage
-    Sleep 1
-    Call fPositionAndSize("TabPositionAndSizeWriter")
-        if Horizontalby.Gettext <> sPositionX then warnlog "check 'Snap to text grid' doesn't work - x position!"
-        if fCalculateTolerance(Verticalby.Gettext , sPositionY) > 0.1 then Warnlog "check 'Snap to text grid' doesn't work - y position!"
-    TabPositionAndSizeWriter.Cancel
-
-   '/// Set the 'Asian Language support' to default
-    if bAsianLanguage = FALSE then
-        Call ActiveDeactivateAsianSupport(FALSE)
-    end if
-
-   Call hCloseDocument
-endcase
-
-'--------------------------------------------------------------------------
-
-testcase tParagraphTextFlow1
-    
-    Dim sTestFile as String
-    Dim sTestText as String
-    Dim i as Integer
-    
-    sTestFile = Convertpath (gTesttoolpath + "writer\optional\input\formatparagraph\hyphenation.sxw")
-    sTestText = "h"
-    
-    PrintLog "- Hyphenation must be processed while entering text WITHOUT inquiry"
-    '/// Hyphenation must be processed while entering text WITHOUT inquiry
-    
-    Call hNewDocument
-    
-    '/// Open the test file
-    '/// + This file includes 2 words : AAA and Kilometerhigh
-    hFileOpenLocally( sTestFile )
-    
-    'the focus is in front of Kilometerhigh
-    Call wTypeKeys "<Home>"
-    
-    '/// 1. Test there is no Hyphenation configuratioin
-    For i = 1 to 10
-        Call wTypeKeys "M"
-        Call wTypeKeys "<End>"
-        Call wTypeKeys "<Shift Left>"
-        EditCopy
-        if GetClipboardText <> sTestText then
-            if GetClipboardText = "A" then
-                Goto GoON
-            else
-                warnlog "no Hyphenation configuratioin doesn't work !"
-            end if
-        end if
-        Call wTypeKeys "<Home>"
-    next i
-    
-    warnlog "1.Something wrong in Hyphenation test !"
-    
-    GoON:
-    
-    Call hCloseDocument
-    
-    Call hNewDocument
-    hFileOpenLocally( sTestFile )
-    
-    '/// 2. Test there is the Hyphenation configuratioin
-    '/// + Format/Paragraph / Text Flow ,
-    '/// + Check Hyphenation 'Automatically'
-    Call fFormatParagraph("TabTextfluss")
-    Automatisch.Check
-    TabTextfluss.OK
-    
-    Call wTypeKeys "<Home>"
-    
-    For i = 1 to 10
-        Call wTypeKeys "M"
-        Call wTypeKeys "<End>"
-        Call wTypeKeys "<Shift Left>"
-        EditCopy
-        if GetClipboardText <> sTestText then
-            if GetClipboardText = "t" then
-                Goto GoON1
-            else
-                warnlog "Hyphenation configuratioin doesn't work !"
-            end if
-        end if
-        Call wTypeKeys "<Home>"
-    next i
-    warnlog "2.Something wrong in Hyphenation test !"
-    
-    GoON1:
-    Call hCloseDocument
-endcase
-
-'-------------------------------------------------------------------------------------------
-
-testcase tParagraphTextFlow2
-
-    Dim sTestFile as String
-    Dim sTestText as String
-    Dim i as Integer
-    
-    sTestFile  = Convertpath (gTesttoolpath + "writer\optional\input\formatparagraph\hyphenation.sxw")
-    sTestText  = "Kilomet"
-    
-    PrintLog "- Hyphenation - Characters at line end"
-    '/// Hyphenation - Characters at line end
-    
-    Call hNewDocument
-    
-    '/// Open the test file
-    '/// + This file includes 2 words : AAA and Kilometerhigh
-    hFileOpenLocally( sTestFile )
-    
-    '/// 1.Test Characters at line end ==> 6
-    '/// + Format/Paragraph / Text Flow ,
-    '/// + Check Hyphenation 'Automatically'
-    '/// + Set 6 in 'Characters at line end'
-    Call fFormatParagraph("TabTextfluss")
-    Automatisch.Check
-    Sleep 1
-    AbZeichenende.SetText "6"
-    TabTextfluss.OK
-    
-    'the focus is in front of Kilometerhigh
-    Call wTypeKeys "<Home>"
-    
-    For i = 1 to 10
-        Call wTypeKeys "M"
-        Call wTypeKeys "<End>"
-        Call wTypeKeys "<Shift Left>" , 7
-
-        EditCopy
-        if GetClipboardText = sTestText then Goto GoON1
-        Call wTypeKeys "<Home>"
-    next i
-    warnlog "Something wrong in Characters at line end = > 6"
-    
-    GoON1:
-    Call hCloseDocument
-    
-    Call hNewDocument
-    
-    hFileOpenLocally( sTestFile )
-    
-    '/// 2.Test Characters at line end ==> 8
-    '/// + Format/Paragraph / Text Flow ,
-    '/// + Check Hyphenation 'Automatically'
-    '/// + Set 8 in 'Characters at line end'
-    Call fFormatParagraph("TabTextfluss")
-    Automatisch.Check
-    Sleep 1
-    AbZeichenende.SetText "8"
-    TabTextfluss.OK
-    
-    'the focus is in front of Kilometerhigh
-    Call wTypeKeys "<Home>"
-    
-    For i = 1 to 10
-        Call wTypeKeys "M"
-        Call wTypeKeys "<End>"
-        Call wTypeKeys "<Shift Left>" , 6
-        EditCopy
-        if GetClipboardText = sTestText then  warnlog "Something wrong in Characters at line end = > 8"
-        Call wTypeKeys "<Home>"
-    next i
-    
-    Call hCloseDocument
-endcase
-
-'--------------------------------------------------------------------------
-
-testcase tParagraphTextFlow3
-
-    Dim sTestFile      as String
-    Dim sTestText     as String
-    Dim i                   as Integer
-
-    sTestFile  = Convertpath (gTesttoolpath + "writer\optional\input\formatparagraph\hyphenation.sxw")
-    sTestText  = "lomet"
-    
-    PrintLog "- Hyphenation - Characters at line begin"
-    '/// Hyphenation - Characters at line begin
-    
-    Call hNewDocument
-    
-    '/// Open the test file
-    '/// + This file includes 2 words : AAA and Kilometerhigh
-    hFileOpenLocally( sTestFile )
-    
-    '/// 1.Test Characters at line begin ==> 4
-    '/// + Format/Paragraph / Text Flow ,
-    '/// + Check Hyphenation 'Automatically'
-    '/// + Set 4 in 'Characters at line begin'
-    Call fFormatParagraph("TabTextfluss")
-    Automatisch.Check
-    Sleep 1
-    AbZeichenAnfang.SetText "4"
-    TabTextfluss.OK
-    
-    'the focus is in front of Kilometerhigh
-    Call wTypeKeys "<Home>"
-    
-    For i = 1 to 10
-        Call wTypeKeys "M"
-        Call wTypeKeys "<End>"
-        Call wTypeKeys "<Shift Left>" , 5
-        EditCopy
-        if GetClipboardText = sTestText then Goto GoON1
-        Call wTypeKeys "<Home>"
-    next i
-    warnlog "Something wrong in Characters at line end = > 4"
-    
-    GoON1:
-    Call hCloseDocument
-    
-    Call hNewDocument
-    
-    hFileOpenLocally( sTestFile )
-
-    
-    '/// 2.Test Characters at line end ==> 6
-    '/// + Format/Paragraph / Text Flow ,
-    '/// + Check Hyphenation 'Automatically'
-    '/// + Set 8 in 'Characters at line end'
-    Call fFormatParagraph("TabTextfluss")
-    Automatisch.Check
-    Sleep 1
-    AbZeichenAnfang.SetText "6"
-    TabTextfluss.OK
-    
-    'the focus is in front of Kilometerhigh
-    Call wTypeKeys "<Home>"
-    
-    For i = 1 to 10
-        Call wTypeKeys "M"
-        Call wTypeKeys "<End>"
-        Call wTypeKeys "<Shift Left>" , 5
-
-        EditCopy
-        if GetClipboardText = sTestText then Goto GoON2
-        Call wTypeKeys "<Home>"
-
-    next i
-    warnlog "Something wrong in Characters at line end = > 6"
-    
-    GoON2:
-    Call hCloseDocument
-endcase
-
-'--------------------------------------------------------------------------
-
-testcase tParagraphTextFlow4
-
-  Dim sTestFile as String
-  Dim i as Integer
-  Dim j as Integer
-  Dim sTestText()  as Variant
-
-  sTestFile  = Convertpath (gTesttoolpath + "writer\optional\input\formatparagraph\hyphenationNew.odt")
-
-  PrintLog "- Hyphenation - maxinum number of consecutive typhens"
-  '/// Hyphenation - maxinum number of consecutive typhens
-
-   Call hNewDocument
-
-   '/// Open the test file
-   '/// + This file includes 4 words : KiloAmterhigh1 kiloAmeterhigh2 kiloAmeterhigh3 kiloAmeterhigh4
-   '/// + the words' length is longer then page length
-    hFileOpenLocally( sTestFile )
-
-   '/// 1.Test maxinum number of consecutive typhens (default => 0)
-   '/// + Format/Paragraph / Text Flow ,
-   '/// + Check Hyphenation 'Automatically'
-   '/// + Set 0 in 'maxinum number of consecutive typhens'
-    sTestText = Array( _
-                      "Amet"    , _
-                      "1 kilo"    , _
-                      "erhigh"    , _
-                      "Amet"    , _
-                      )
-
-    j = UBound(sTestText)
-
-    Call fFormatParagraph("TabTextfluss")
-        Automatisch.Check
-        Sleep 1
-        Trennstellen.SetText "0"
-    TabTextfluss.OK
-
-    Call wTypeKeys "<MOD1 Home>"
-    Call wTypeKeys "<Down>"
-    For i = 0 to j
-        Call wTypeKeys "<Down>" , i*2
-        Call wTypeKeys "<Shift End>"
-        EditCopy
-        if GetClipboardText <> sTestText(i) then
-            warnlog " Something wrong in Consecutive typhens 0 : " &i
-            exit for
-        end if
-        Call wTypeKeys "<MOD1 Home>"
-        Call wTypeKeys "<Down>"
-    Next i
-
-   '/// 2.Test maxinum number of consecutive typhens = >1
-   '/// + Format/Paragraph / Text Flow ,
-   '/// + Check Hyphenation 'Automatically'
-   '/// + Set 0 in 'maxinum number of consecutive typhens'
-    sTestText = Array( _
-                      "Amete"    , _
-                      "kilo"         , _
-                      "rhigh2"    , _
-                      "Amete"    , _
-                      )
-
-    Call fFormatParagraph("TabTextfluss")
-        Automatisch.Check
-        Sleep 1
-        Trennstellen.SetText "1"
-    TabTextfluss.OK
-
-    Call wTypeKeys "<MOD1 Home>"
-    Call wTypeKeys "<Down>"
-    For i = 0 to j
-        Call wTypeKeys "<Down>" , i*2
-        Call wTypeKeys "<Shift End>"
-        EditCopy
-        if GetClipboardText <> sTestText(i) then 
-            warnlog " Something wrong in Consecutive typhens 1 : " &i
-            exit for
-        end if
-        Call wTypeKeys "<MOD1 Home>"
-        Call wTypeKeys "<Down>"
-    Next i
-
-   '/// 3.Test maxinum number of consecutive typhens = >2
-   '/// + Format/Paragraph / Text Flow ,
-   '/// + Check Hyphenation 'Automatically'
-   '/// + Set 0 in 'maxinum number of consecutive typhens'
-    sTestText = Array( _
-                      "Amet"      , _
-                      "1 kilo"      , _
-                      "erhigh"     , _
-                      "Amet"      , _
-                      )
-
-    Call fFormatParagraph("TabTextfluss")
-        Automatisch.Check
-        Sleep 1
-        Trennstellen.SetText "2"
-    TabTextfluss.OK
-
-    Call wTypeKeys "<MOD1 Home>"
-    Call wTypeKeys "<Down>"
-    For i = 0 to j
-        Call wTypeKeys "<Down>" , i*2
-        Call wTypeKeys "<Shift End>"
-        EditCopy
-        if GetClipboardText <> sTestText(i) then
-            warnlog " Something wrong in Consecutive typhens 2 : " &i
-            exit for
-        end if
-        Call wTypeKeys "<MOD1 Home>"
-        Call wTypeKeys "<Down>"
-    Next i
-
-   Call hCloseDocument
-endcase
-
-'--------------------------------------------------------------------------
-
-testcase tParagraphTextFlow5
-
-  Dim sTestFile as String
-
-  sTestFile  = Convertpath (gTesttoolpath + "writer\optional\input\formatparagraph\columnBreakParagraphBefore.sxw")
-
-  PrintLog "- Paragraph break before Column"
-  '/// Paragraph break before Column
-
-   Call hNewDocument
-
-   '/// Open the test file
-   '/// + There are 2 columns/page ,includes  2 paragraph
-   '/// + the 1st paragraph is in 1st and 2nd column
-   '/// + the 2nd paragraph is is 2nd and 3rd column
-    hFileOpenLocally( sTestFile )
-
-   '/// Set the focus to 2nd paragraph
-    Kontext
-    EditSearchAndReplace
-    Kontext "FindAndReplace"
-        SearchFor.SetText "She"
-        Sleep 1
-        SearchAll.Click
-        Sleep 1
-    FindAndReplace.Close
-
-   '/// Format/Paragraph / Text Flow
-   '/// + Set 'Breaks' enable
-   '/// + Select column in Type' and select Before in 'Position'
-    Call fFormatParagraph("TabTextfluss")
-        Umbruch.Check
-        Sleep 1
-        UmbruchTyp.Select 2
-        Sleep 1
-        UmbruchPosition.Select 1
-    TabTextfluss.OK
-
-   '/// + check if the 2nd paragraph is in 2nd page
-    Kontext "Navigator"
-        if Not Navigator.Exists then ViewNavigator
-        Kontext "NavigatorWriter"
-        Sleep 1
-        if Seitennummer.GetText <> "2" then warnlog "Something wrong in 'Paragraph break before Column'!"
-    fCloseNavigator
-
-   Call hCloseDocument
-endcase
-
-'--------------------------------------------------------------------------
-
-testcase tParagraphTextFlow6
-
-  Dim sTestFile as String
-
-  sTestFile  = Convertpath (gTesttoolpath + "writer\optional\input\formatparagraph\columnBreakParagraphAfter.sxw")
-
-  PrintLog "- Paragraph break after Column"
-  '/// Paragraph break after Column
-
-   Call hNewDocument
-
-   '/// Open the test file
-   '/// + There are 2 columns/page ,includes  1 paragraph
-   '/// + the paragraph is in 1st and 2nd column
-   '/// + and it is NOT full of 2nd column
-    hFileOpenLocally( sTestFile )
-
-   '/// Format/Paragraph / Text Flow
-   '/// + Set 'Breaks' enable
-   '/// + Select column in Type' and select After in 'Position'
-    Call fFormatParagraph("TabTextfluss")
-        Umbruch.Check
-        Sleep 1
-        UmbruchTyp.Select 2
-        Sleep 1
-        UmbruchPosition.Select 2
-    TabTextfluss.OK
-
-   '/// Set the focus to the end of the paragraph
-    Call wTypeKeys "<MOD1 End>"
-    Call wTypeKeys "<Return>"
-
-   '/// + check if the 2nd paragraph is in 2nd page
-    Kontext "Navigator"
-        if Not Navigator.Exists then ViewNavigator
-        Kontext "NavigatorWriter"
-        Sleep 1
-        if Seitennummer.GetText <> "2" then warnlog "Something wrong in 'Paragraph break after Column'! "
-    fCloseNavigator
-
-   Call hCloseDocument
-endcase
-
-'--------------------------------------------------------------------------
-
-testcase tParagraphTextFlow7
-
-  Dim sTestFile as String
-
-  sTestFile  = Convertpath (gTesttoolpath + "writer\optional\input\formatparagraph\pageBreakBefore.sxw")
-
-  PrintLog "- Paragraph break before Page"
-  '/// Paragraph break before Page
-
-   Call hNewDocument
-
-   '/// Open the test file
-   '/// + There are 2 paragraphs in 1 page
-    hFileOpenLocally( sTestFile )
-
-   '/// Set the focus to 2nd paragraph
-    Kontext
-    EditSearchAndReplace
-    Kontext "FindAndReplace"
-        SearchFor.SetText "She"
-        Sleep 1
-        SearchAll.Click
-        Sleep 1
-    FindAndReplace.Close
-
-   '/// Format/Paragraph / Text Flow
-   '/// + Set 'Breaks' enable
-   '/// + Select page in 'Type' and select Before in 'Position'
-   '/// + Select 3rd in 'with page style' and set 4 in 'page number'
-    Call fFormatParagraph("TabTextfluss")
-        Umbruch.Check
-        Sleep 1
-        UmbruchTyp.Select 1
-        Sleep 1
-        UmbruchPosition.Select 1
-        Sleep 1
-        MitSeitenvorlage.Check
-        Sleep 1
-        Vorlage.Select 3
-        Seitenzahl.SetText "4"
-    TabTextfluss.OK
-
-   '/// + check if the 2nd paragraph is in 4th page
-    Kontext "Navigator"
-        if Not Navigator.Exists then ViewNavigator
-        Kontext "NavigatorWriter"
-        Sleep 1
-        if Seitennummer.GetText <> "2" then warnlog "Something wrong in ' Column break after paragraph'! "
-    fCloseNavigator
-
-    Call fFormatParagraph("TabTextfluss")
-        if Vorlage.GetSelIndex <> 3   then  warnlog "Should select the 3rd in with page style , but get " &Vorlage.GetSelIndex
-        if Seitenzahl.GetText  <> "4" then  warnlog "Should get 4 in with page number , but get " &Seitenzahl.GetText
-    TabTextfluss.OK
-
-   Call hCloseDocument
-endcase
-
-'--------------------------------------------------------------------------
-
-testcase tParagraphTextFlow8
-
-  Dim sTestFile as String
-
-  sTestFile  = Convertpath (gTesttoolpath + "writer\optional\input\formatparagraph\pageBreakAfter.sxw")
-
-  PrintLog "-  Paragraph break after page"
-  '/// Paragraph break after page
-
-   Call hNewDocument
-
-   '/// Open the test file
-   '/// + There is 1 paragraph in the file
-    hFileOpenLocally( sTestFile )
-
-   '/// Format/Paragraph / Text Flow
-   '/// + Set 'Breaks' enable
-   '/// + Select page in Type' and select After in 'Position'
-    Call fFormatParagraph("TabTextfluss")
-        Umbruch.Check
-        Sleep 1
-        UmbruchTyp.Select 1
-        Sleep 1
-        UmbruchPosition.Select 2
-    TabTextfluss.OK
-
-   '/// Set the focus to the end of the paragraph
-    Call wTypeKeys "<MOD1 End>"
-    Call wTypeKeys "<Return>"
-
-   '/// + check if the 2nd paragraph is in 2nd page
-    Kontext "Navigator"
-        if Not Navigator.Exists then ViewNavigator
-        Kontext "NavigatorWriter"
-        Sleep 1
-        if Seitennummer.GetText <> "2" then warnlog "Something wrong in 'Paragraph break after page'! "
-    fCloseNavigator
-
-   Call hCloseDocument
-endcase
-
-'--------------------------------------------------------------------------
-
-testcase tParagraphTextFlow9
-
-  Dim sTestFile as String
-  Dim sPage1   as String
-  Dim sPage2   as String
-  Dim i              as Integer
-
-  sTestFile  = Convertpath (gTesttoolpath + "writer\optional\input\formatparagraph\textFlowOptions.sxw")
-
-  PrintLog "-  Don't split paragraph"
-  '/// Don't split paragraph
-
-   Call hNewDocument
-
-   '/// Open the test file
-   '/// + There is 1 paragraph which cross 2 pages
-    hFileOpenLocally( sTestFile )
-    Call wTypeKeys "<MOD1 Home>"
-
-    Call fFindWord("She")
-    Call wTypeKeys "<Home>"
-
-    PrintLog "-  Uncheck Don't split paragraph"
-   '/// 1. Test unchecking "Don't split paragraph"
-   '/// Format/Paragraph / Text Flow
-   '/// + UnCheck "Don't split paragraph"
-    Call fFormatParagraph("TabTextfluss")
-        AbsatzNichtTrennen.UnCheck
-    TabTextfluss.OK
-
-    Kontext "Navigator"
-       if Not Navigator.Exists then ViewNavigator
-       Kontext "NavigatorWriter"
-       Sleep 1
-       if Seitennummer.GetText <> "1" then warnlog "The head of the paragraph should be in 1st page !"
-    fCloseNavigator
-
-    Call wTypeKeys "<MOD1 End>"
-    Kontext "Navigator"
-        if Not Navigator.Exists then ViewNavigator
-        Kontext "NavigatorWriter"
-        Sleep 1
-        if Seitennummer.GetText <> "2" then warnlog "The end of the paragraph should be in 2nd page !"
-    fCloseNavigator
-
-   Call hCloseDocument
-
-   PrintLog "-  Check Don't split paragraph"
-   Call hNewDocument
-    hFileOpenLocally( sTestFile )
-
-    Call wTypeKeys "<MOD1 Home>"
-
-    Call fFindWord("She")
-    Call wTypeKeys "<Home>"
-
-   '/// 2. Test checking "Don't split paragraph"
-   '/// Format/Paragraph / Text Flow
-   '/// + Check "Don't split paragraph"
-    Call fFormatParagraph("TabTextfluss")
-        AbsatzNichtTrennen.Check
-    TabTextfluss.OK
-
-    Kontext "Navigator"
-       if Not Navigator.Exists then ViewNavigator
-       Kontext "NavigatorWriter"
-       Sleep 1
-       if Seitennummer.GetText <> "2" then warnlog "The head of the paragraph should be in 2nd page !"
-    fCloseNavigator
-
-    Call wTypeKeys "<MOD1 End>"
-    Kontext "Navigator"
-        if Not Navigator.Exists then ViewNavigator
-        Kontext "NavigatorWriter"
-        Sleep 1
-        if Seitennummer.GetText <> "2" then warnlog "The end of the paragraph should be in 2nd page !"
-    fCloseNavigator
-
-   Call hCloseDocument
-endcase
-
-'--------------------------------------------------------------------------
-
-testcase tParagraphTextFlow10
-
-  Dim sTestFile as String
-  Dim sPage1 as String
-  Dim sPage2 as String
-  Dim i as Integer
-
-  sTestFile  = Convertpath (gTesttoolpath + "writer\optional\input\formatparagraph\textFlowOptions1.sxw")
-
-  PrintLog "-  Keep with next paragraph"
-  '/// Keep with next paragraph
-
-   Call hNewDocument
-
-   '/// Open the test file
-   '/// There are 2 paragraphes in the file , 1st one crosses
-   '/// + 1st and 2nd page , 2nd one is in 2nd page
-    hFileOpenLocally( sTestFile )
-    EditSearchAndReplace
-    Kontext "FindAndReplace"
-        SearchFor.SetText "He1"
-        Sleep 1
-        SearchAll.Click
-        Sleep 1
-    FindAndReplace.Close
-    Call wTypeKeys "<Home>"
-
-    PrintLog "-  Uncheck Keep with next paragraph"
-   '/// 1. Test unchecking "Keep with next paragraph"
-   '/// Format/Paragraph / Text Flow
-   '/// + UnCheck "Keep with next paragraph"
-    Call fFormatParagraph("TabTextfluss")
-        AbsaetzeZusammenhalten.UnCheck
-    TabTextfluss.OK
-
-    Kontext "Navigator"
-        if Not Navigator.Exists then ViewNavigator
-        Kontext "NavigatorWriter"
-        Sleep 1
-        if Seitennummer.GetText <> "1" then warnlog "The head of the 1st paragraph should be in 1st page ! == " &i
-    fCloseNavigator
-
-    EditSearchAndReplace
-    Kontext "FindAndReplace"
-        SearchFor.SetText "He2"
-        Sleep 1
-        SearchAll.Click
-        Sleep 1
-    FindAndReplace.Close
-    Kontext "Navigator"
-        if Not Navigator.Exists then ViewNavigator
-        Kontext "NavigatorWriter"
-        Sleep 1
-        if Seitennummer.GetText <> "2" then warnlog "The head of the 2nd paragraph should be in 2nd page !"
-    fCloseNavigator
-
-   Call hCloseDocument
-
-   Call hNewDocument
-
-    hFileOpenLocally( sTestFile )
-
-    PrintLog "-  Check Keep with next paragraph"
-   '/// 2. Test checking "Keep with next paragraph"
-   '/// Set focus to first paragraph ,Format/Paragraph / Text Flow
-   '/// + Check "Keep with next paragraph"
-    EditSearchAndReplace
-    Kontext "FindAndReplace"
-        SearchFor.SetText "He1"
-        Sleep 1
-        SearchAll.Click
-        Sleep 1
-    FindAndReplace.Close
-    Call wTypeKeys "<Home>"
-    Call fFormatParagraph("TabTextfluss")
-        AbsaetzeZusammenhalten.Check
-    TabTextfluss.OK
-
-    Kontext "Navigator"
-        if Not Navigator.Exists then ViewNavigator
-        Kontext "NavigatorWriter"
-        Sleep 1
-        if Seitennummer.GetText <> "2" then warnlog "The head of the 1st paragraph should be in 2nd page !"
-    fCloseNavigator
-
-   'Get the head of 2nd paragarph's location
-    EditSearchAndReplace
-    Kontext "FindAndReplace"
-        SearchFor.SetText "He2"
-        Sleep 1
-        SearchAll.Click
-        Sleep 1
-    FindAndReplace.Close
-
-    Kontext "Navigator"
-        if Not Navigator.Exists then ViewNavigator
-        Kontext "NavigatorWriter"
-        Sleep 1
-        if Seitennummer.GetText <> "2" then warnlog "The head of the 2nd paragraph should be in 2nd page !"
-    fCloseNavigator
-
-   Call hCloseDocument
-endcase
-
-'--------------------------------------------------------------------------
-
-testcase tParagraphTextFlow11
-
-  Dim sTestFile as String
-  Dim sLines as String
-
-  sTestFile = Convertpath (gTesttoolpath + "writer\optional\input\formatparagraph\eightline.sxw")
-  sLines    = "3"
-
-  PrintLog "- Orphan control"
-  '/// 'Orphan control
-
-   Call hNewDocument
-
-   '/// Open the test file
-   '/// + There is 1 paragraph (8 lines) in the file
-    hFileOpenLocally( sTestFile )
-
-   '/// Format/Paragraph / Text Flow
-   '/// + Check 'Orphan control' , set 3 in 'Lines'
-    Call fFormatParagraph("TabTextfluss")
-        Hurenkinderregelung.Check
-        Sleep 1
-        HurenkinderZeilen.SetText sLines
-    TabTextfluss.OK
-
-   '/// Press return 5 times to let only 3 lines are in 1st page
-    Call wTypeKeys "<MOD1 Home>"
-    Call wTypeKeys "<Return>" , 5
-
-   '/// + check if the 1st line is in 1st page
-    Kontext "Navigator"
-        if Not Navigator.Exists then ViewNavigator
-        Kontext "NavigatorWriter"
-        Sleep 1
-        if Seitennummer.GetText <> "1" then warnlog "The 1st line should be in 1st page!"
-    fCloseNavigator
-
-   '/// Press Return again
-    Call wTypeKeys "<Return>"
-
-   '/// + check if the 1st line is in 2nd page
-    Kontext "Navigator"
-        if Not Navigator.Exists then ViewNavigator
-        Kontext "NavigatorWriter"
-        Sleep 1
-        if Seitennummer.GetText <> "2" then warnlog "The 1st line should be in 2nd page!"
-    fCloseNavigator
-
-   Call hCloseDocument
-endcase
-
-'--------------------------------------------------------------------------
-
-testcase tParagraphTextFlow12
-
-  Dim sTestFile as String
-  Dim sLines as String
-
-  sTestFile = Convertpath (gTesttoolpath + "writer\optional\input\formatparagraph\eightline.sxw")
-  sLines    = "3"
-
-  PrintLog "- Widow control"
-  '/// 'Widow control
-
-   Call hNewDocument
-
-   '/// Open the test file
-   '/// + There is 1 paragraph (8 lines) in the file
-    hFileOpenLocally( sTestFile )
-
-   '/// Format/Paragraph / Text Flow
-   '/// + Check 'Widow control' , set 3 in 'Lines'
-    Call fFormatParagraph("TabTextfluss")
-        Schusterjungenregelung.Check
-        Sleep 1
-        SchusterZeilen.SetText sLines
-    TabTextfluss.OK
-
-   '/// Press return to let the lastest line into 2nd page
-    Call wTypeKeys "<MOD1 Home><Return>"
-
-   '/// + check if the lastest 3rd line(6th line) is in 2nd page
-    Call wTypeKeys "<Down>"  , 5
-    Kontext "Navigator"
-        if Not Navigator.Exists then ViewNavigator
-        Kontext "NavigatorWriter"
-        Sleep 1
-        if Seitennummer.GetText <> "2" then warnlog "The 6th line should be in 2nd page!"
-    fCloseNavigator
-
-   '/// + check if the 5th line is in 1st page
-    Call wTypeKeys "<Up>"
-    Kontext "Navigator"
-        if Not Navigator.Exists then ViewNavigator
-        Kontext "NavigatorWriter"
-        Sleep 1
-        if Seitennummer.GetText <> "1" then warnlog "The 5th line should be in 1st page!"
-    fCloseNavigator
-
-   Call hCloseDocument
-endcase
-
-'--------------------------------------------------------------------------
-
-testcase tParagraphTextFlow13
-
-  Dim sTestFile as String
-  Dim i as Integer
-
-  sTestFile = Convertpath (gTesttoolpath + "writer\optional\input\formatparagraph\specialHyphenation.sxw")
-
-  PrintLog "- Special test for Hyphenation"
-  '/// <b> 'Widow control </b> ///
-
-   Call hNewDocument
-
-   '/// Open the test file
-   '/// + There is 1 word TABC in the end of the first line
-    hFileOpenLocally( sTestFile )
-
-   '/// Press spaces in the head of the first line , we hope
-   '/// + the whole word - 'TABC' will go to 2nd line at one time
-    For i = 1 to 30
-        Call wTypeKeys "<Home>"
-        Call wTypeKeys " "
-        Call wTypeKeys "<End>"
-        Call wTypeKeys "<Shift Left>"
-        EditCopy
-        if GetClipboardText = "B" then
-            QAErrorLog "#114094#"
-            Exit for
-        else
-            if GetClipboardText <> "C" then
-                Exit for
-            end if
-        end if
-    next i
-
-   Call hCloseDocument
-endcase
-
-'--------------------------------------------------------------------------
diff --git a/testautomation/writer/optional/includes/formatparagraph/w_formatparagraph3.inc b/testautomation/writer/optional/includes/formatparagraph/w_formatparagraph3.inc
deleted file mode 100644
index 37c79948a1cc..000000000000
--- a/testautomation/writer/optional/includes/formatparagraph/w_formatparagraph3.inc
+++ /dev/null
@@ -1,1199 +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 : helge.delfs@oracle.com
-'*
-'* short description : Test the functionality of Paragraph Formatting - 3
-'*
-'************************************************************************
-'*
-' #1 tParagraphTabs1         'Test Tab stops - Left
-' #1 tParagraphTabs2         'Test Tab stops - Right
-' #1 tParagraphTabs3         'Test Tab stops - Centered
-' #1 tParagraphTabs4         'Test Tab stops - Decimal
-' #1 tParagraphTabs5         'Delete a selected tab stop
-' #1 tParagraphTabs6         'Delete all tab stops
-' #1 tParagraphDropCaps1     'Test Drop Caps - Default
-' #1 tParagraphDropCaps2     'Test Drop Caps - select a word
-' #1 tParagraphDropCaps3     'Test Drop Caps - select different Number of characters
-' #1 tParagraphDropCaps4     'Test Drop Caps - select different number of Lines
-' #1 tParagraphDropCaps5     'Test Drop Caps - Set different 'Space to text'
-' #1 tParagraphDropCaps6     'Test max 'Space to text'
-' #1 tParagraphDropCaps7     'Test text in Contents "Text" field
-' #1 tParagraphDropCaps8     'Test 'Character Style' with given template
-' #1 tParagraphDropCaps9     'Test 'Character Style' with user-defined template
-' #1 tParagraphNumbering1    'Test Numbering
-' #1 tParagraphBorder1       'Test Default borders
-' #1 tParagraphBorder2       'All 'spacing to contents' spin boxes are limited to 5cm
-' #1 tParagraphBorder3       'Test Uncheck 'Synchronize'
-' #1 tParagraphBorder4       'Test check 'Synchronize'
-' #1 tParagraphBorder5       'Test default shadow color
-' #1 tParagraphBorder6       'Test shadow setting
-'*
-'\***********************************************************************
-
-testcase tParagraphTabs1
-
-  Dim sTestFile as String
-  Dim sTabs      as String
-  Dim sPosition as String
-
-  sTestFile = Convertpath (gTesttoolpath + "writer\optional\input\formatparagraph\TabsTest.sxw")
-  sTabs     = "3" + gSeperator + "00" + gMeasurementUnit
-  sPosition = "5" + gSeperator + "00" + gMeasurementUnit
-
-  PrintLog "- Test Tab stops - Left"
-  '/// Test Tab stops - Left
-
-   Call hNewDocument
-
-   '/// Open the test file
-   '/// + There is 1 pic which is anchored as character in the file
-    hFileOpenLocally( sTestFile )
-    
-
-   '/// Format/Paragraph / Tabs ,
-   '/// + check Left in the type area , and input 3cm in Position
-    Call fFormatParagraph("TabTabulatoren")
-        TypLinks.Check
-        Position.SetText sTabs
-    TabTabulatoren.OK
-
-    Call wTypeKeys "<MOD1 Home>"
-
-   '/// Press TAB
-    Call wTypeKeys "<TAB>"
-
-   '/// Check if TAB is configurated correctly
-    Call wTypeKeys ( "<Shift F4>" )
-    FormatAnchorToPage
-    Sleep 1
-    Call fPositionAndSize("TabPositionAndSizeWriter")
-        if fCalculateTolerance(Horizontalby.Gettext , sPosition) > 0.02 then Warnlog "Tab type (left) doesn't work !"
-    TabPositionAndSizeWriter.Cancel
-
-   Call hCloseDocument
-
-endcase
-
-'-------------------------------------------------------------------------------------------
-
-testcase tParagraphTabs2
-
-  Dim sTestFile  as String
-  Dim sTabs       as String
-  Dim sPosition  as String
-
-  sTestFile = Convertpath (gTesttoolpath + "writer\optional\input\formatparagraph\TabsTest.sxw")
-  sTabs     = "3" + gSeperator + "00" + gMeasurementUnit
-  sPosition = "4" + gSeperator + "00" + gMeasurementUnit
-
-  PrintLog "- Test Tab stops - Right"
-  '/// Test Tab stops - Right
-
-   Call hNewDocument
-
-   '/// Open the test file
-   '/// + There is 1 pic which is anchored as character in the file
-    hFileOpenLocally( sTestFile )
-    
-
-   '/// Format/Paragraph / Tabs ,
-   '/// + check Right in the type area , and input 3cm in Position
-    Call fFormatParagraph("TabTabulatoren")
-        TypRechts.Check
-        Position.SetText sTabs
-    TabTabulatoren.OK
-
-    Call wTypeKeys "<MOD1 Home>"
-
-   '/// Press TAB
-    Call wTypeKeys "<TAB>"
-
-   '/// Check if TAB is configurated correctly
-    Call wTypeKeys ( "<Shift F4>" )
-    FormatAnchorToPage
-    Sleep 1
-    Call fPositionAndSize("TabPositionAndSizeWriter")
-        if fCalculateTolerance(Horizontalby.Gettext , sPosition) > 0.02 then Warnlog "Tab type (Right) doesn't work !"
-    TabPositionAndSizeWriter.Cancel
-
-   Call hCloseDocument
-
-endcase
-
-'-------------------------------------------------------------------------------------------
-
-testcase tParagraphTabs3
-
-  Dim sTestFile    as String
-  Dim sTabs        as String
-  Dim sPosition    as String
-
-  sTestFile = Convertpath (gTesttoolpath + "writer\optional\input\formatparagraph\TabsTest.sxw")
-  sTabs     = "3" + gSeperator + "00" + gMeasurementUnit
-  sPosition = "4" + gSeperator + "50" + gMeasurementUnit
-
-  PrintLog "- Test Tab stops - Centered"
-  '/// Test Tab stops - Centered
-
-   Call hNewDocument
-
-   '/// Open the test file
-   '/// + There is 1 pic which is anchored as character in the file
-    hFileOpenLocally( sTestFile )
-    
-
-   '/// Format/Paragraph / Tabs ,
-   '/// + check Centered in the type area , and input 3cm in Position
-    Call fFormatParagraph("TabTabulatoren")
-        TypZentriert.Check
-        Position.SetText sTabs
-    TabTabulatoren.OK
-
-    Call wTypeKeys "<MOD1 Home>"
-
-   '/// Press TAB
-    Call wTypeKeys "<TAB>"
-
-   '/// Check if TAB is configurated correctly
-    Call wTypeKeys ( "<Shift F4>" )
-    FormatAnchorToPage
-    Sleep 1
-    Call fPositionAndSize("TabPositionAndSizeWriter")
-        if fCalculateTolerance(Horizontalby.Gettext , sPosition) > 0.02 then Warnlog "Tab type (Centered) doesn't work !"
-    TabPositionAndSizeWriter.Cancel
-
-   Call hCloseDocument
-
-endcase
-
-'-------------------------------------------------------------------------------------------
-
-testcase tParagraphTabs4
-
-  Dim sTestFile    as String
-  Dim sTabs        as String
-  Dim sPosition    as String
-
-  sTestFile = Convertpath (gTesttoolpath + "writer\optional\input\formatparagraph\TabsDecimal.sxw")
-  sTabs     = "5" + gSeperator + "00" + gMeasurementUnit
-  sPosition = "7" + gSeperator + "11" + gMeasurementUnit
-
-  PrintLog "- Test Tab stops - Decimal"
-  '/// Test Tab stops - Decimal
-
-   Call hNewDocument
-
-   '/// Open the test file
-   '/// + There is 1 pic which is anchored as character in the file ,
-   '/// + and there are 1 "." seperator in front of the pic
-    hFileOpenLocally( sTestFile )
-    
-
-   '/// Format/Paragraph / Tabs ,
-   '/// + check Decimal in the type area ,
-   '/// + input "." in 'character' and input 5cm in 'Position'
-    Call fFormatParagraph("TabTabulatoren")
-        TypDezimal.Check
-        Sleep 1
-        TypZeichen.SetText "."   'I use seperator as '.' in this case
-        Position.SetText sTabs
-    TabTabulatoren.OK
-
-    Call wTypeKeys "<MOD1 Home>"
-
-   '/// Press TAB
-    Call wTypeKeys "<TAB>"
-
-   '/// Check if TAB is configurated correctly
-   '/// + [Check . should be at distance 5.00cm]
-    Call wTypeKeys ( "<Shift F4>" )
-    FormatAnchorToPage
-    Sleep 1
-    Call fPositionAndSize("TabPositionAndSizeWriter")
-        if fCalculateTolerance(Horizontalby.Gettext , sPosition) > 0.03 then Warnlog "Tab type (Decimal) doesn't work !"
-    TabPositionAndSizeWriter.Cancel
-
-   Call hCloseDocument
-
-endcase
-
-'-------------------------------------------------------------------------------------------
-
-testcase tParagraphTabs5
-
-  Dim sTab1 , sTab2 , sTab3   as String
-
-  sTab1 = "1" + gSeperator + "00" + gMeasurementUnit
-  sTab2 = "2" + gSeperator + "00" + gMeasurementUnit
-  sTab3 = "3" + gSeperator + "00" + gMeasurementUnit
-
-  PrintLog "- Delete a selected tab stop"
-  '/// Delete a selected tab stop
-
-   Call hNewDocument
-
-   '/// Format/Paragraph / Tabs ,
-   '/// + insert 3 new tab stops
-    Call fFormatParagraph("TabTabulatoren")
-        Position.SetText sTab1
-        Neu.Click
-        Sleep 1
-        Position.SetText sTab2
-        Neu.Click
-        Sleep 1
-        Position.SetText sTab3
-        Neu.Click
-        Sleep 1
-    TabTabulatoren.OK
-
-   '/// Delete the selected tab stop
-   '/// + Select 2.00cm , and press delete key
-    Call fFormatParagraph("TabTabulatoren")
-        Position.Select 2
-        Sleep 2
-        Loeschen.Click
-        Sleep 2
-        Position.Select 1
-        if Position.GetSelText   <>  sTab1 then warnlog "should get " &sTab1 & " but get " &Position.GetSelText
-        Position.Select 2
-        if Position.GetSelText   <>  sTab3 then warnlog "should get " &sTab3 & " but get " &Position.GetSelText
-
-        if Position.GetItemCount <>  2     then warnlog "should only be 2 items in the listbox !"
-    TabTabulatoren.Cancel
-
-   Call hCloseDocument
-
-endcase
-
-'-------------------------------------------------------------------------------------------
-
-testcase tParagraphTabs6
-
-  Dim sTab1 , sTab2 , sTab3   as String
-
-  sTab1 = "1" + gSeperator + "00" + gMeasurementUnit
-  sTab2 = "2" + gSeperator + "00" + gMeasurementUnit
-  sTab3 = "3" + gSeperator + "00" + gMeasurementUnit
-
-  PrintLog "- Delete all tab stops"
-  '/// Delete all tab stops
-
-   Call hNewDocument
-
-   '/// Format/Paragraph / Tabs ,
-   '/// + insert 3 new tab stops
-    Call fFormatParagraph("TabTabulatoren")
-        Position.SetText sTab1
-        Neu.Click
-        Sleep 1
-        Position.SetText sTab2
-        Neu.Click
-        Sleep 1
-        Position.SetText sTab3
-        Neu.Click
-        Sleep 1
-    TabTabulatoren.OK
-
-   '/// Delete all tab stops
-   '/// + Press 'Delete All' Key
-    Call fFormatParagraph("TabTabulatoren")
-        AlleLoeschen.Click
-        Sleep 2
-        if Position.GetItemCount <>  0  then warnlog "should be no items in the listbox !"
-    TabTabulatoren.Cancel
-
-   Call hCloseDocument
-
-endcase
-
-'-------------------------------------------------------------------------------------------
-
-testcase tParagraphDropCaps1
-
-  Dim sTestFile     as String
-  Dim sPositionX    as String
-  Dim sPositionY    as String
-
-  sTestFile  = Convertpath (gTesttoolpath + "writer\optional\input\formatparagraph\DropCapsTest.sxw")
-  sPositionX = "4" + gSeperator + "00" + gMeasurementUnit
-  sPositionY = "3" + gSeperator + "00" + gMeasurementUnit
-
-  PrintLog "- Test Drop Caps - Default"
-  '/// Test Drop Caps - Default
-
-   Call hNewDocument
-
-   '/// Open the test file
-   '/// + There is 1 pic which is anchored as character in the file
-    hFileOpenLocally( sTestFile )
-    
-
-   '/// Format/Paragraph / Drop Caps ,
-   '/// + Check 'Display Drop Caps' , close the dialog
-    Call fFormatParagraph("TabInitialen")
-        Anzeigen.Check
-        Sleep 1
-        if Initialentext.GetText <> "H" then
-            warnlog "The text is wrong : should be H , but get " &Initialentext.GetText
-            TabInitialen.OK
-            goto endsub
-        end if
-        if Zeilen.GetText <> "3" then
-            warnlog "The default number should be 3 lines , but get " &Zeilen.GetText
-            TabInitialen.OK
-            goto endsub
-        end if
-    TabInitialen.OK
-
-   '/// Set focus to the pic , check if its position is changed correctly
-    Call wTypeKeys ( "<Shift F4>" )
-    FormatAnchorToPage
-    Sleep 1
-    Call fPositionAndSize("TabPositionAndSizeWriter")
-        if fCalculateTolerance(Horizontalby.Gettext , sPositionX) > 0.4 then Warnlog "X position isn't right !"
-        if fCalculateTolerance(Verticalby.Gettext , sPositionY) > 0.4 then Warnlog "Y position isn't right !"
-    TabPositionAndSizeWriter.Cancel
-
-   Call hCloseDocument
-
-endcase
-
-'-------------------------------------------------------------------------------------------
-
-testcase tParagraphDropCaps2
-
-  Dim sTestFile     as String
-  Dim sPositionX    as String
-  Dim sPositionY    as String
-
-  sTestFile  = Convertpath (gTesttoolpath + "writer\optional\input\formatparagraph\DropCapsTest.sxw")
-  sPositionX = "6" + gSeperator + "00" + gMeasurementUnit
-  sPositionY = "3" + gSeperator + "00" + gMeasurementUnit
-
-  PrintLog "- Test Drop Caps - select a word"
-  '/// Test Drop Caps - select a word
-
-   Call hNewDocument
-
-   '/// Open the test file
-   '/// + There is 1 pic which is anchored as character in the file
-    hFileOpenLocally( sTestFile )
-    
-
-   '/// Format/Paragraph / Drop Caps ,
-   '/// + Check 'Display Drop Caps' , then check 'whole word' , then close the dialog
-    Call fFormatParagraph("TabInitialen")
-        Anzeigen.Check
-        Sleep 1
-        GanzesWort.Check
-        Sleep 1
-        if Initialentext.GetText <> "He" then
-            warnlog "The text is wrong : should be He , but get " &Initialentext.GetText
-            TabInitialen.OK
-            goto endsub
-        end if
-        if Zeilen.GetText <> "3" then
-            warnlog "The default number should be 3 lines , but get " &Zeilen.GetText
-            TabInitialen.OK
-            goto endsub
-        end if
-    TabInitialen.OK
-
-   '/// Set focus to the pic , check if its position is changed correctly
-    Call wTypeKeys ( "<Shift F4>" )
-    FormatAnchorToPage
-    Sleep 1
-    Call fPositionAndSize("TabPositionAndSizeWriter")
-        if fCalculateTolerance(Horizontalby.Gettext , sPositionX) > 0.4 then Warnlog "X position isn't right !"
-        if fCalculateTolerance(Verticalby.Gettext , sPositionY) > 0.4 then Warnlog "Y position isn't right !"
-    TabPositionAndSizeWriter.Cancel
-
-   Call hCloseDocument
-
-endcase
-
-'-------------------------------------------------------------------------------------------
-
-testcase tParagraphDropCaps3
-
-  Dim sTestFile     as String
-  Dim sPositionX    as String
-  Dim sPositionY    as String
-
-  sTestFile  = Convertpath (gTesttoolpath + "writer\optional\input\formatparagraph\DropCapsTest.sxw")
-  sPositionX = "4" + gSeperator + "50" + gMeasurementUnit
-  sPositionY = "4" + gSeperator + "00" + gMeasurementUnit
-
-  PrintLog "- Test Drop Caps - select different Number of characters"
-  '/// Test Drop Caps - select different Number of characters
-
-   Call hNewDocument
-
-   '/// Open the test file
-   '/// + There is 1 pic which is anchored as character in the file
-    hFileOpenLocally( sTestFile )
-    
-
-   '/// Format/Paragraph / Drop Caps ,
-   '/// + Check 'Display Drop Caps' , then set '6' in 'number of characters' ,then close the dialog
-    Call fFormatParagraph("TabInitialen")
-        Anzeigen.Check
-        Sleep 1
-        Anzahl.SetText "6"
-        Sleep 1
-        if Initialentext.GetText <> "He hea" then
-            warnlog "The text is wrong : should be 'He hea' , but get " &Initialentext.GetText
-            TabInitialen.OK
-            goto endsub
-        end if
-        if Zeilen.GetText <> "3" then
-            warnlog "The default number should be 3 lines , but get " &Zeilen.GetText
-            TabInitialen.OK
-            goto endsub
-        end if
-    TabInitialen.OK
-
-   '/// Set focus to the pic , check if its position is changed correctly
-    Call wTypeKeys ( "<Shift F4>" )
-    FormatAnchorToPage
-    Sleep 1
-    Call fPositionAndSize("TabPositionAndSizeWriter")
-        if fCalculateTolerance(Horizontalby.Gettext , sPositionX) > 0.4 then Warnlog "X position isn't right !"
-        if fCalculateTolerance(Verticalby.Gettext , sPositionY) > 0.4 then Warnlog "Y position isn't right !"
-    TabPositionAndSizeWriter.Cancel
-
-   Call hCloseDocument
-
-endcase
-
-'-------------------------------------------------------------------------------------------
-
-testcase tParagraphDropCaps4
-
-  Dim sTestFile     as String
-  Dim sPositionX    as String
-  Dim sPositionY    as String
-
-  sTestFile  = Convertpath (gTesttoolpath + "writer\optional\input\formatparagraph\DropCapsTest.sxw")
-  sPositionX = "7" + gSeperator + "50" + gMeasurementUnit
-  sPositionY = "2" + gSeperator + "80" + gMeasurementUnit
-
-  PrintLog "- Test Drop Caps - select different number of Lines"
-  '/// Test Drop Caps - select different number of Lines
-
-   Call hNewDocument
-
-   '/// Open the test file
-   '/// + There is 1 pic which is anchored as character in the file
-    hFileOpenLocally( sTestFile )
-    
-
-   '/// Format/Paragraph / Drop Caps ,
-   '/// + Check 'Display Drop Caps' , then set '6' in 'Lines' ,then close the dialog
-    Call fFormatParagraph("TabInitialen")
-        Anzeigen.Check
-        Sleep 1
-        Zeilen.SetText "6"
-        Sleep 1
-        if Initialentext.GetText <> "H" then
-            warnlog "The text is wrong : should be 'H' , but get " &Initialentext.GetText
-            TabInitialen.OK
-            goto endsub
-        end if
-    TabInitialen.OK
-
-   '/// Set focus to the pic , check if its position is changed correctly
-    Call wTypeKeys ( "<Shift F4>" )
-    FormatAnchorToPage
-    Sleep 1
-    Call fPositionAndSize("TabPositionAndSizeWriter")
-        if fCalculateTolerance(Horizontalby.Gettext , sPositionX) > 0.5 then Warnlog "X position isn't right !"
-        if fCalculateTolerance(Verticalby.Gettext , sPositionY) > 0.5 then Warnlog "Y position isn't right !"
-    TabPositionAndSizeWriter.Cancel
-
-   Call hCloseDocument
-
-endcase
-
-'-------------------------------------------------------------------------------------------
-
-testcase tParagraphDropCaps5
-
-  Dim sTestFile     as String
-  Dim sSpace        as String
-  Dim sPositionX    as String
-  Dim sPositionY    as String
-
-  sTestFile  = Convertpath (gTesttoolpath + "writer\optional\input\formatparagraph\DropCapsTest.sxw")
-  sSpace     = "1" + gSeperator + "00" + gMeasurementUnit
-  sPositionX = "6" + gSeperator + "00" + gMeasurementUnit
-  sPositionY = "3" + gSeperator + "00" + gMeasurementUnit
-
-  PrintLog "- Test Drop Caps - Set different 'Space to text'"
-  '/// Test Drop Caps - Set different 'Space to text'
-
-   Call hNewDocument
-
-   '/// Open the test file
-   '/// + There is 1 pic which is anchored as character in the file
-    hFileOpenLocally( sTestFile )
-    
-
-   '/// Format/Paragraph / Drop Caps ,
-   '/// +  Check 'Display Drop Caps' ,then set 'Space to text' to be 1cm , close the dialog
-    Call fFormatParagraph("TabInitialen")
-        Anzeigen.Check
-        Sleep 1
-        AbstandZumText.SetText sSpace
-        if Initialentext.GetText <> "H" then
-            warnlog "The text is wrong : should be H , but get " &Initialentext.GetText
-            TabInitialen.OK
-            goto endsub
-        end if
-        if Zeilen.GetText <> "3" then
-            warnlog "The default number should be 3 lines , but get " &Zeilen.GetText
-            TabInitialen.OK
-            goto endsub
-        end if
-    TabInitialen.OK
-
-   '/// Set focus to the pic , check if its position is changed correctly
-    Call wTypeKeys ( "<Shift F4>" )
-    FormatAnchorToPage
-    Sleep 1
-    Call fPositionAndSize("TabPositionAndSizeWriter")
-        if fCalculateTolerance(Horizontalby.Gettext , sPositionX) > 0.4 then Warnlog "X position isn't right !"
-        if fCalculateTolerance(Verticalby.Gettext , sPositionY) > 0.4 then Warnlog "Y position isn't right !"
-    TabPositionAndSizeWriter.Cancel
-
-   Call hCloseDocument
-
-endcase
-
-'-------------------------------------------------------------------------------------------
-
-testcase tParagraphDropCaps6
-
-  Dim sSpace  , sMaxSpace   as String
-
-  sSpace  = "3" + gSeperator + "00" + gMeasurementUnit
-  sSpace  = "2" + gSeperator + "00" + gMeasurementUnit
-
-  PrintLog "- Test max 'Space to text'"
-  '/// Test max 'Space to text'
-
-   Call hNewDocument
-
-   '/// Format/Paragraph / Drop Caps ,
-   '/// + Check 'Display Drop Caps' ,then set 'Space to text' to be 3cm , close the dialog
-    Call fFormatParagraph("TabInitialen")
-        Anzeigen.Check
-        Sleep 1
-        AbstandZumText.SetText sSpace
-        Sleep 1
-    TabInitialen.OK
-
-   '/// Reopen Format/Paragraph / Drop Caps ,
-   '/// + 'Space to text' should be 2cm
-    Call fFormatParagraph("TabInitialen")
-        if AbstandZumText.GetText <> sSpace then Warnlog "Max 'Space to text' should be 2cm!"
-    TabInitialen.Cancel
-
-   Call hCloseDocument
-
-endcase
-
-'-------------------------------------------------------------------------------------------
-
-testcase tParagraphDropCaps7
-
-  Dim sTestFile     as String
-  Dim sTestText     as String
-  Dim sHopeResult   as String
-
-  sTestFile   = Convertpath (gTesttoolpath + "writer\optional\input\formatparagraph\DropCapsTest.sxw")
-  sTestText   = "Xyz"
-  sHopeResult = "Xyzhe"
-
-  PrintLog "- Test text in Contents 'Text' field"
-  '/// Test text in Contents "Text" field
-
-   Call hNewDocument
-
-   '/// Open the test file
-   '/// + There is 1 pic which is anchored as character in the file
-    hFileOpenLocally( sTestFile )
-    
-
-   '/// Format/Paragraph / Drop Caps ,
-   '/// + Check 'Display Drop Caps' ,then set Xyz in Contents 'Text' field , close the dialog
-    Call fFormatParagraph("TabInitialen")
-        Anzeigen.Check
-        Sleep 1
-        Initialentext.SetText sTestText
-        Sleep 1
-    TabInitialen.OK
-
-   '/// Check if the head of the artile is changed to be "Xyzhe"
-    Call wTypeKeys "<MOD1 Home>"
-    Call wTypeKeys "<Shift Right>" , 5
-
-    EditCopy
-    if GetClipboardText <> sHopeResult then
-        warnlog "Get the wrong result : " &  GetClipboardText
-    end if
-
-   Call hCloseDocument
-
-endcase
-
-'-------------------------------------------------------------------------------------------
-
-testcase tParagraphDropCaps8
-
-  Dim iCharacterStyle  as Integer
-
-  iCharacterStyle = 3
-
-  PrintLog "- Test 'Character Style' with given template"
-  '/// Test 'Character Style' with given template
-
-   Call hNewDocument
-
-   '/// Format/Paragraph / Drop Caps ,
-   '/// + Check 'Display Drop Caps' ,then select 3rd in Contents 'Character Style' field , close the dialog
-    Call fFormatParagraph("TabInitialen")
-        Anzeigen.Check
-        Sleep 1
-        Zeichenvorlage.Select  iCharacterStyle
-        Sleep 1
-    TabInitialen.OK
-
-   '/// Check if the set is OK
-    Call fFormatParagraph("TabInitialen")
-        if Zeichenvorlage.GetSelIndex <> iCharacterStyle then
-            warnlog "Get the wrong result : " & iCharacterStyle
-        end if
-    TabInitialen.OK
-
-   Call hCloseDocument
-
-endcase
-
-'-------------------------------------------------------------------------------------------
-
-testcase tParagraphDropCaps9
-
-    Dim sCharacterStyle  as String
-    Dim i                as Integer
-
-    sCharacterStyle = "aNewTestStyle"
-
-    PrintLog "- Test 'Character Style' with user-defined template"
-    '/// Test 'Character Style' with user-defined template
-
-    Call hNewDocument
-
-    '/// Make a user-defined template
-    '/// Stylist , select 'Character Styles'
-    '/// Press New button to add a new character style
-    Call wStyleCreate ( sCharacterStyle, "Character" )
-
-    '/// Format/Paragraph / Drop Caps ,
-    '/// + Check 'Display Drop Caps' ,then select the character style which you just inserted
-    '/// + in Contents 'Character Style' field , close the dialog
-    Call fFormatParagraph("TabInitialen")
-    Anzeigen.Check
-    Sleep 1
-    Zeichenvorlage.Select  sCharacterStyle
-    Sleep 1
-    TabInitialen.OK
-
-   '/// Check if the set is OK
-    Call fFormatParagraph("TabInitialen")
-    if Zeichenvorlage.GetSelText <> sCharacterStyle then
-        Warnlog "Get the wrong result : " & Zeichenvorlage.GetSelText
-    end if
-    TabInitialen.Cancel
-
-    '/// Delete Style
-    Call wStyleDelete( sCharacterStyle, "Character" )    
-
-    Call hCloseDocument
-
-endcase
-
-'-------------------------------------------------------------------------------------------
-
-testcase tParagraphNumbering1
-
-  Dim sTestFile                 as String
-  Dim sTest1 , sTest2           as String
-  Dim iNumberingStyle1          as Integer
-  Dim sNumberingStartWith1      as String
-  Dim sLineNumberingStartWith1  as String
-  Dim iNumberingStyle2          as Integer
-  Dim sNumberingStartWith2      as String
-  Dim sLineNumberingStartWith2  as String
-
-  sTestFile  = Convertpath (gTesttoolpath + "writer\optional\input\formatparagraph\paragraphNumbering.sxw")
-  sTest1                    = "He1"
-  iNumberingStyle1          = 3
-  sNumberingStartWith1      = "2"
-  sLineNumberingStartWith1  = "3"
-  sTest2                    = "He2"
-  iNumberingStyle2          = 8
-  sNumberingStartWith2      = "4"
-  sLineNumberingStartWith2  = "5"
-
-  PrintLog "- Test Numbering"
-  '/// Test Numbering
-
-   Call hNewDocument
-
-   '/// Open the test file ,
-   '/// + there are 2 paragraphes in the file
-    hFileOpenLocally( sTestFile )
-    
-
-   '/// Find the test word , set the focus to 1st paragraph
-    Call fFindWord( sTest1 )
-
-   '/// Format/Paragraph / Numbering , select 3rd in Numbering Style ,
-   '/// + Check "Restart at this paragraph" ,
-   '/// + check "Start with" in Numbering area , input 2
-   '/// + check "include this paragraph in line numbering" ,
-   '/// + check "Restart at this paragraph" in Line numbering area ,
-   '/// + check "Start with" in Line Numbering area , input 3
-    Call fFormatParagraph("TabNumerierungAbsatz")
-        Vorlage.Select iNumberingStyle1
-        Sleep 1
-        NumerierungNeuBeginnen.Check
-        Sleep 1
-        StartWith.Check
-        Sleep 1
-        NumerierungBeginnenBei.SetText sNumberingStartWith1
-        ZeilenumerierungZeilenMitzaehlen.Check
-        Sleep 1
-        ZeilenumerierungNeuBeginnen.Check
-        Sleep 1
-        ZeilenumerierungBeginnenBei.SetText sLineNumberingStartWith1
-    TabNumerierungAbsatz.OK
-
-   '/// Find the test word , set the focus to 2nd paragraph
-    Call fFindWord( sTest2 )
-
-   '/// Format/Paragraph / Numbering , select 8th in Numbering Style ,
-   '/// + Check "Restart at this paragraph" ,
-   '/// + check "Start with" in Numbering area , input 4
-   '/// + check "include this paragraph in line numbering" ,
-   '/// + check "Restart at this paragraph" in Line numbering area ,
-   '/// + check "Start with" in Line Numbering area , input 5
-    Call fFormatParagraph("TabNumerierungAbsatz")
-        Vorlage.Select iNumberingStyle2
-        Sleep 1
-        NumerierungNeuBeginnen.Check
-        Sleep 1
-        StartWith.Check
-        Sleep 1
-        NumerierungBeginnenBei.SetText sNumberingStartWith2
-        ZeilenumerierungZeilenMitzaehlen.Check
-        Sleep 1
-        ZeilenumerierungNeuBeginnen.Check
-        Sleep 1
-        ZeilenumerierungBeginnenBei.SetText sLineNumberingStartWith2
-    TabNumerierungAbsatz.OK
-
-   '/// Check if the configuration in paragraph1 is correct
-    PrintLog "- Check if the configuration in paragraph1 is correct"
-    Call fFindWord( sTest1 )
-
-    Call fFormatParagraph("TabNumerierungAbsatz")
-        if Vorlage.GetSelIndex                         <> iNumberingStyle1 then
-            Warnlog "The numbering Style is wrong , get " & Vorlage.GetSelIndex
-        end if
-        if NumerierungNeuBeginnen.IsChecked            <> TRUE then
-            Warnlog "'Restart at this paragraph' should be checked !"
-        end if
-        if StartWith.IsChecked                         <> TRUE then
-            Warnlog "'Start with' in Numbering area should be checked !"
-        end if
-        if NumerierungBeginnenBei.GetText              <> sNumberingStartWith1 then
-            Warnlog "'Start with' in Numbering area is wrong , get " & NumerierungBeginnenBei.GetText
-        end if
-        if ZeilenumerierungZeilenMitzaehlen.IsChecked  <> TRUE  then
-            Warnlog "'include this paragraph in line numbering' should be checked!"
-        end if
-        if ZeilenumerierungNeuBeginnen.IsChecked       <> TRUE  then
-            Warnlog "'Restart at this paragraph' in Line numbering area should be checked!"
-        end if
-        if ZeilenumerierungBeginnenBei.GetText         <> sLineNumberingStartWith1 then
-            Warnlog "'Restart at this paragraph' in Line numbering area is wrong , get " & ZeilenumerierungBeginnenBei.GetText
-        end if
-    TabNumerierungAbsatz.Cancel
-
-   '/// Check if the configuration in paragraph2 is correct
-    PrintLog "- Check if the configuration in paragraph2 is correct"
-    Call fFindWord( sTest2 )
-
-    Call fFormatParagraph("TabNumerierungAbsatz")
-        if Vorlage.GetSelIndex                         <> iNumberingStyle2 then
-            Warnlog "The numbering Style is wrong , get " & Vorlage.GetSelIndex
-        end if
-        if NumerierungNeuBeginnen.IsChecked            <> TRUE then
-            Warnlog "'Restart at this paragraph' should be checked !"
-        end if
-        if StartWith.IsChecked                         <> TRUE then
-            Warnlog "'Start with' in Numbering area should be checked !"
-        end if
-        if NumerierungBeginnenBei.GetText              <> sNumberingStartWith2 then
-            Warnlog "'Start with' in Numbering area is wrong , get " & NumerierungBeginnenBei.GetText
-        end if
-        if ZeilenumerierungZeilenMitzaehlen.IsChecked  <> TRUE  then
-            Warnlog "'include this paragraph in line numbering' should be checked!"
-        end if
-        if ZeilenumerierungNeuBeginnen.IsChecked       <> TRUE  then
-            Warnlog "'Restart at this paragraph' in Line numbering area should be checked!"
-        end if
-        if ZeilenumerierungBeginnenBei.GetText         <> sLineNumberingStartWith2 then
-            Warnlog "'Restart at this paragraph' in Line numbering area is wrong , get " & ZeilenumerierungBeginnenBei.GetText
-        end if
-    TabNumerierungAbsatz.Cancel
-
-   Call hCloseDocument
-
-endcase
-
-'-------------------------------------------------------------------------------------------
-
-testcase tParagraphBorder1
-
-    Dim sSpacingToContentsNoBorder   as String   'no border in the page
-    Dim sSpacingToContentsYesBorder  as String   'border exists  in the page
-
-    sSpacingToContentsNoBorder  = "0" + gSeperator + "00" + gMeasurementUnit
-    sSpacingToContentsYesBorder = "0" + gSeperator + "05" + gMeasurementUnit
-
-    PrintLog "Test Default borders"
-    '/// <b> Test Default borders </b> ///
-
-    PrintLog "- when no border is set, 'spacing to contents'"
-    '/// 1. When no border is set ///
-
-    Call hNewDocument
-
-    '/// Check if "spacing to contents" is unable ///
-    '/// format/Paragraph , tabpage borders
-     Call fFormatParagraph("TabUmrandung")
-         if Links.GetText  <> sSpacingToContentsNoBorder then
-             Warnlog "Default of left Spacing to contents is wrong !"
-         end if
-         if Rechts.GetText <> sSpacingToContentsNoBorder then
-             Warnlog "Default of right Spacing to contents is wrong !"
-         end if
-         if Oben.GetText   <> sSpacingToContentsNoBorder then
-             Warnlog "Default of up Spacing to contents is wrong !"
-         end if
-         if Unten.GetText  <> sSpacingToContentsNoBorder then
-             Warnlog "Default of bottom Spacing to contents is wrong !"
-         end if
-     TabUmrandung.Cancel
-
-    PrintLog "Check if 'spacing to contents' is 0.05cm when there are borders in the paragraph"
-    '/// 2. Check if "spacing to contents" is 0.05cm when there are borders in the paragraph ///
-    '/// format/Paragraph , tabpage borders ///
-    '/// + select 2nd in Default area ///
-     Call fFormatParagraph("TabUmrandung")
-         Vorgaben.TypeKeys "<Right>" , 2
-         Sleep 2
-
-         if Links.GetText  <> sSpacingToContentsYesBorder then
-             Warnlog "Default of left Spacing to contents is wrong !"
-         end if
-         if Rechts.GetText <> sSpacingToContentsYesBorder then
-             Warnlog "Default of right Spacing to contents is wrong !"
-         end if
-         if Oben.GetText   <> sSpacingToContentsYesBorder then
-             Warnlog "Default of up Spacing to contents is wrong !"
-         end if
-         if Unten.GetText  <> sSpacingToContentsYesBorder then
-             Warnlog "Default of bottom Spacing to contents is wrong !"
-         end if
-     TabUmrandung.Cancel
-
-    Call hCloseDocument
-
-endcase
-
-'-------------------------------------------------------------------------------------------
-
-testcase tParagraphBorder2
-
-    Dim sSpacingToContents   as String   'the max spacing to content
-    Dim sSpacingToContentsL  as String
-    Dim sSpacingToContentsR  as String
-    Dim sSpacingToContentsU  as String
-    Dim sSpacingToContentsB  as String
-
-    sSpacingToContents  = "5" + gSeperator + "00" + gMeasurementUnit
-    sSpacingToContentsL = "6" + gSeperator + "00" + gMeasurementUnit
-    sSpacingToContentsR = "7" + gSeperator + "00" + gMeasurementUnit
-    sSpacingToContentsU = "8" + gSeperator + "00" + gMeasurementUnit
-    sSpacingToContentsB = "9" + gSeperator + "00" + gMeasurementUnit
-
-    PrintLog "- All 'spacing to contents' spin boxes are limited to 5cm"
-    '///<b> All "spacing to contents" spin boxes are limited to 5cm </b>///
-
-    Call hNewDocument
-
-    '/// format/Page , tabpage borders ,  ///
-    '/// + set border exists in the paragraph ///
-    '/// + set all spacing to content's size ///
-    '/// + more than 5.00cm ///
-     Call fFormatParagraph("TabUmrandung")
-         Vorgaben.TypeKeys "<Right>" , 2
-         Sleep 2
-         Synchronisieren.Uncheck
-         Sleep 1
-         Links.SetText  sSpacingToContentsL
-         Rechts.SetText sSpacingToContentsR
-         Oben.SetText   sSpacingToContentsU
-         Unten.SetText  sSpacingToContentsB
-     TabUmrandung.OK
-
-    '/// Check if all "spacing to contents" is 5.00cm ///
-     Call fFormatParagraph("TabUmrandung")
-         if Links.GetText  <> sSpacingToContents then
-             Warnlog "left Spacing to contents is wrong !"
-         end if
-         if Rechts.GetText <> sSpacingToContents then
-             Warnlog "right Spacing to contents is wrong !"
-         end if
-         if Oben.GetText   <> sSpacingToContents then
-             Warnlog "up Spacing to contents is wrong !"
-         end if
-         if Unten.GetText  <> sSpacingToContents then
-             Warnlog "bottom Spacing to contents is wrong !"
-         end if
-     TabUmrandung.Cancel
-
-    Call hCloseDocument
-
-endcase
-
-'-------------------------------------------------------------------------------------------
-
-testcase tParagraphBorder3
-
-    Dim sSpacingToContentsL  as String
-    Dim sSpacingToContentsR  as String
-    Dim sSpacingToContentsU  as String
-    Dim sSpacingToContentsB  as String
-
-    sSpacingToContentsL = "0" + gSeperator + "50" + gMeasurementUnit
-    sSpacingToContentsR = "0" + gSeperator + "60" + gMeasurementUnit
-    sSpacingToContentsU = "0" + gSeperator + "70" + gMeasurementUnit
-    sSpacingToContentsB = "0" + gSeperator + "80" + gMeasurementUnit
-
-    PrintLog "- Test Uncheck 'Synchronize'"
-    '///<b> Test Uncheck 'Synchronize' </b>///
-
-    Call hNewDocument
-
-    '/// format/Page , tabpage borders ,  ///
-    '/// + set border exists in the paragraph ///
-    '/// + Uncheck synchronize ///
-    '/// + Set all spacing to contents ///
-     Call fFormatParagraph("TabUmrandung")
-         Vorgaben.TypeKeys "<Right>" , 2
-         Sleep 2
-         Synchronisieren.Uncheck
-         Sleep 1
-         Links.SetText  sSpacingToContentsL
-         Rechts.SetText sSpacingToContentsR
-         Oben.SetText   sSpacingToContentsU
-         Unten.SetText  sSpacingToContentsB
-     TabUmrandung.OK
-
-    '/// + Check if all "spacing to contents" is correct
-     Call fFormatParagraph("TabUmrandung")
-         if Links.GetText  <> sSpacingToContentsL then
-             Warnlog "left Spacing to contents is wrong !"
-         end if
-         if Rechts.GetText <> sSpacingToContentsR then
-             Warnlog "right Spacing to contents is wrong !"
-         end if
-         if Oben.GetText   <> sSpacingToContentsU then
-             Warnlog "up Spacing to contents is wrong !"
-         end if
-         if Unten.GetText  <> sSpacingToContentsB then
-             Warnlog "bottom Spacing to contents is wrong !"
-         end if
-     TabUmrandung.Cancel
-
-    Call hCloseDocument
-
-endcase
-
-'-------------------------------------------------------------------------------------------
-
-testcase tParagraphBorder4
-
-    Dim sSpacingToContentsL  as String
-    Dim sSpacingToContentsR  as String
-    Dim sSpacingToContentsU  as String
-    Dim sSpacingToContentsB  as String
-
-    sSpacingToContentsL = "0" + gSeperator + "50" + gMeasurementUnit
-    sSpacingToContentsR = "0" + gSeperator + "60" + gMeasurementUnit
-    sSpacingToContentsU = "0" + gSeperator + "70" + gMeasurementUnit
-    sSpacingToContentsB = "0" + gSeperator + "80" + gMeasurementUnit
-
-    PrintLog "- Test Check 'Synchronize'"
-    '/// <b> Test Check 'Synchronize' </b> ///
-
-    Call hNewDocument
-
-    '/// format/Page , tabpage borders ,  ///
-    '/// + set border exists in the paragraph ///
-    '/// + check synchronize ///
-    '/// + Set all spacing to contents ///
-     Call fFormatParagraph("TabUmrandung")
-         Vorgaben.TypeKeys "<Right>" , 2
-         Sleep 2
-         Synchronisieren.Check
-         Sleep 1
-         Links.SetText  sSpacingToContentsL
-         Rechts.SetText sSpacingToContentsR
-         Oben.SetText   sSpacingToContentsU
-         Unten.SetText  sSpacingToContentsB
-     TabUmrandung.OK
-
-    '/// + Check if all "spacing to contents" is correct
-     Call fFormatParagraph("TabUmrandung")
-         if Links.GetText  <> sSpacingToContentsB then
-             Warnlog "left Spacing to contents is wrong !"
-         end if
-         if Rechts.GetText <> sSpacingToContentsB then
-             Warnlog "right Spacing to contents is wrong !"
-         end if
-         if Oben.GetText   <> sSpacingToContentsB then
-             Warnlog "up Spacing to contents is wrong !"
-         end if
-         if Unten.GetText  <> sSpacingToContentsB then
-             Warnlog "bottom Spacing to contents is wrong !"
-         end if
-     TabUmrandung.Cancel
-
-    Call hCloseDocument
-
-endcase
-
-'-------------------------------------------------------------------------------------------
-
-testcase tParagraphBorder5
-
-    Dim sDefaultShadowColor as String
-    
-    Select case iSprache
-        case 01   : sDefaultShadowColor = "Gray"
-        case 31:    sDefaultShadowColor = "Grijs"
-        case 33   : sDefaultShadowColor = "Gris"
-        case 34   : sDefaultShadowColor = "Gris"
-        case 39   : sDefaultShadowColor = "Grigio"
-        case 46   : sDefaultShadowColor = "Grått"
-        case 49   : sDefaultShadowColor = "Grau"
-        case 55   : sDefaultShadowColor = "Cinza"
-        case 81   : sDefaultShadowColor = "灰色"
-        case 82   : sDefaultShadowColor = "회색"
-        case 86   : sDefaultShadowColor = "灰色"
-        case 88   : sDefaultShadowColor = "灰色"
-        case else : QAErrorLog "The test does not support the language " + iSprache
-                    Goto endsub
-    end select
-    
-    PrintLog "- Test default shadow color"
-    '/// <b> Test default shadow color </b>///
-    
-    Call hNewDocument
-    
-    '/// + format/Paragraph , tabpage borders
-    '/// + Check if the default shadow color is gray
-    Call fFormatParagraph("TabUmrandung")
-    if SchattenFarbe.GetSelText <> sDefaultShadowColor then
-        Warnlog "Shadow default color is wrong , get " & SchattenFarbe.GetSelText
-    end if
-    TabUmrandung.Cancel
-    
-    Call hCloseDocument
-
-endcase
-
-'-------------------------------------------------------------------------------------------
-
-testcase tParagraphBorder6
-
-    Dim iBorderColor , iShadowColor   as Integer
-    Dim sShadowDistance               as String
-
-    iBorderColor = 5 : iShadowColor = 4
-    sShadowDistance     = "0" + gSeperator + "40" + gMeasurementUnit
-
-    PrintLog "- Test shadow setting"
-    '/// <b> Test shadow setting </b>///
-
-    Call hNewDocument
-
-    '/// Format/Paragraph , tabpage borders , do some configuration => ///
-    '/// + select 2nd border in default , select 5th border color ,///
-    '/// + select 5th shadow , select 4th shadow color , set shadow distance to 0.40cm ///
-    '/// + and close the dialog ///
-     Call fFormatParagraph("TabUmrandung")
-         Vorgaben.TypeKeys "<Right>" , 2
-         Sleep 2
-         StilFarbe.Select iBorderColor            'set border color
-         Position.TypeKeys "<Right>" , 4
-         Sleep 2
-         Groesse.SetText      sShadowDistance
-         SchattenFarbe.Select iShadowColor        'set shadow color
-         Sleep 1
-     TabUmrandung.OK
-
-    '/// + format/Page , check if the configuration is all right
-     Call fFormatParagraph("TabUmrandung")
-         if StilFarbe.GetSelIndex     <> iBorderColor     then Warnlog "border color is wrong !"
-         if Groesse.GetText           <> sShadowDistance  then Warnlog "shadow distance is wrong !"
-         if SchattenFarbe.GetSelindex <> iShadowColor     then Warnlog "shadow color is wrong !"
-     TabUmrandung.Cancel
-
-    Call hCloseDocument
-
-endcase
-
-
diff --git a/testautomation/writer/optional/includes/hangulhanjaonversion/hhConversion1.inc b/testautomation/writer/optional/includes/hangulhanjaonversion/hhConversion1.inc
deleted file mode 100644
index a16949d37851..000000000000
--- a/testautomation/writer/optional/includes/hangulhanjaonversion/hhConversion1.inc
+++ /dev/null
@@ -1,698 +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 : helge.delfs@oracle.com
-'*
-'* short description : Test of Hangul/Hanja Conversion - 1
-'*
-'************************************************************************
-'*
-' #1 tHHNoSelction_1         'No selection
-' #1 tHHNoSelction_2         'Multi languages -1 (Korean before Chinese)
-' #1 tHHNoSelction_3         'Multi languages -2 (Chinese before Korean)
-' #1 tHHNoSelction_4         'Multi languages -3 (no Chinese and Korean)
-' #1 tHHNoSelction_5         'Cursor's position is in the end of the document
-' #1 tHHNoSelction_6         'Notconvertible Hangul character
-' #1 tHHNoSelction_7         'Notconvertible Hanja character
-' #1 tHHSingleSelction_1     'Single selection
-' #1 tHHMultiSelction_1      'Multi selection
-' #1 tHHTextBox_1            'Hangul character in text box
-' #1 tHHDrawBox_1            'Hangul character in draw box
-'*
-'\***********************************************************************
-
-testcase tHHNoSelction_1
-
-    warnlog( "#i111911# - Test is broken beyond repait, please rewrite" )
-    goto endsub
-
-    Dim  sTestFile  as String
-    Dim  sResult    as String
-
-    sTestFile = Convertpath (gTesttoolpath + "writer\optional\input\hangulhanjaonversion\hangul.sxw")
-    sResult = "漢字"
-
-    GetClipboardText = ""
-
-    printlog "- No Selection "
-    '/// <b> If no selection is made in the document , </b>
-    '/// + <b> the Hangul/Hanja conversion will start </b>
-    '/// + <b> exactly at the cursor's location.  </b>
-
-    Call hNewDocument
-
-    '/// Open a test file , which includes some Korean characters
-    '/// + and some Chinese characters
-    hFileOpenLocally(sTestFile)
-
-    '/// Set focus before the 3rd character
-    Call wTypeKeys "<MOD1 Home>"
-    Call wTypeKeys "<Down>"
-
-    '/// Tools / HangulHanjaConversion
-    ToolsLanguageHangulHanjaConversion : WaitSlot
-    Kontext "HangulHanjaConversion"
-
-    '/// Press Peplace button
-    if ReplaceBtn.IsEnabled then
-        ReplaceBtn.Click
-    else
-        Warnlog "Replace button is disabled !"
-        HangulHanjaConversion.Close
-        Call hCloseDocument
-        goto endsub
-    end if    
-    Sleep 1
-
-    HangulHanjaConversion.Close
-
-    '/// Check if conversion really happens at cursor's location
-    Call wTypeKeys "<Home>"
-    Call wTypeKeys "<Shift Right>",2
-    try
-        EditCopy
-    catch
-        Warnlog "#116346#Hangul/Hanja selection to begin of line impossible after closing hhc dialog"
-        Call wTypeKeys "<MOD1 Home>"
-        Call wTypeKeys "<Right>" , 4
-        Call wTypeKeys "<Shift Home>"
-        EditCopy
-        Sleep 1
-    endcatch
-
-    if GetClipboardText <> sResult then
-        Warnlog "Conversion result not: " & sResult & " but: " & GetClipboardText
-    end if
-
-    Call hCloseDocument
-
-endcase
-
-'-----------------------------------------------------------------
-
-testcase tHHNoSelction_2
-    warnlog( "#i111911# - Test is broken beyond repait, please rewrite" )
-    goto endsub
-
-
-    Dim  sTestFile  as String
-    Dim  sResult    as String
-    
-    sTestFile = Convertpath (gTesttoolpath + "writer\optional\input\hangulhanjaonversion\multiLanguage_K.sxw")    
-    sResult = "English sèction säction ピンイン Numérico 書翰中"
-
-    GetClipboardText = ""
-    
-    printlog "- Multi languages -1 (Korean before Chinese) "
-    '/// <b> In multiple-script/language selections/words, </b>
-    '/// + <b> only the Korean and Chinese part will be selected for conversion.</b>
-    
-    Call hNewDocument
-    
-    '/// Open a test file , which includes some English ,
-    '/// + Germany , French , Korean and Chinese characters
-    '/// + (Korean is before Chinese)
-    Call hFileOpenLocally(sTestFile)
-    
-    '/// Set focus to the beginning
-    Call wTypeKeys "<MOD1 Home>"
-    
-    '/// Tools / HangulHanjaConversion
-    ToolsLanguageHangulHanjaConversion : WaitSlot
-    Kontext "HangulHanjaConversion"
-
-    '/// Press Peplace button
-    if ReplaceBtn.IsEnabled then
-        ReplaceBtn.Click
-    else
-        Ignore.Click
-        Sleep 1
-        ReplaceBtn.Click
-    end if
-
-    if HangulHanjaConversion.Exists then HangulHanjaConversion.Close
-
-    '/// Check if Korean is converted
-    Call wTypeKeys "<Home>"
-    Call wTypeKeys "<Shift End>"
-    EditCopy
-    Sleep 1
-    if GetClipboardText <> sResult then
-        Warnlog "Conversion result not: " & sResult & " but: " & GetClipboardText
-    end if
-
-    Call hCloseDocument
-
-endcase
-
-'-----------------------------------------------------------------
-
-testcase tHHNoSelction_3
-    warnlog( "#i111911# - Test is broken beyond repait, please rewrite" )
-    goto endsub
-
-
-    Dim  sTestFile  as String
-    Dim  sResult    as String
-    
-    sTestFile = Convertpath (gTesttoolpath + "writer\optional\input\hangulhanjaonversion\multiLanguage_C.sxw")
-    sResult = "English sèction säction ピンイン Numérico 중서한"
-
-    GetClipboardText = ""
-    
-    printlog "- Multi languages -2 (Chinese before Korean) "
-    '/// <b> In multiple-script/language selections/words, </b>
-    '/// + <b> only the Korean and Chinese part will be selected for conversion.</b>
-    
-    Call hNewDocument
-    
-    '/// Open a test file , which includes some English ,
-    '/// + Germany , French , Korean and Chinese characters
-    '/// + (Chinese is before Korean)
-    Call hFileOpenLocally( sTestFile )
-    ()
-    
-    '/// Set focus to the beginning
-    Call wTypeKeys "<MOD1 Home>"
-    
-    '/// Tools / HangulHanjaConversion
-    ToolsLanguageHangulHanjaConversion : WaitSlot
-    Kontext "HangulHanjaConversion"
-    
-    '/// Press Peplace button
-    if ReplaceBtn.IsEnabled then
-        ReplaceBtn.Click
-    else
-        Sleep 1
-        Ignore.Click
-        Sleep 1
-        ReplaceBtn.Click
-        Sleep 1
-        HangulHanjaConversion.Close
-    end if
-    
-    '/// Check if Chinese is converted
-    Call wTypeKeys "<Home>"
-    Call wTypeKeys "<Shift End>"
-    EditCopy
-    Sleep 1
-    if GetClipboardText <> sResult then
-       Warnlog "Conversion result not: " & sResult & " but: " & GetClipboardText
-    end if
-    
-    Call hCloseDocument
-    
-endcase
-
-'-----------------------------------------------------------------
-
-testcase tHHNoSelction_4
-    warnlog( "#i111911# - Test is broken beyond repait, please rewrite" )
-    goto endsub
-
-
-  Dim  sTestFile  as String
-
-  sTestFile = Convertpath (gTesttoolpath + "writer\optional\input\hangulhanjaonversion\noKoreanAndChinese.sxw")
-
-  printlog "- Multi languages -3 (no Chinese and Korean) "
-  '/// <b> In multiple-script/language selections/words, </b>
-  '/// + <b> only the Korean and Chinese part will be selected for conversion.</b>
-
-  Call hNewDocument
-
-  '/// Open a test file , which includes some English ,
-  '/// + Germany , French characters .
-  '/// + There are no Chinese and Korean
-   Call hFileOpenLocally( sTestFile )
-   ()
-
-  '/// Set focus to the beginning
-   Call wTypeKeys "<MOD1 Home>"
-
-  '/// Tools / HangulHanjaConversion ,
-  '/// + nothing should happen
-   ToolsLanguageHangulHanjaConversion : WaitSlot
-   Kontext "HangulHanjaConversion"
-
-   if HangulHanjaConversion.Exists then
-       HangulHanjaConversion.Close
-       QAErrorlog "#i39017#Conversion dialog should NOT appear !"
-   end if
-
-  Call hCloseDocument
-
-endcase
-
-'-----------------------------------------------------------------
-
-testcase tHHNoSelction_5
-    warnlog( "#i111911# - Test is broken beyond repait, please rewrite" )
-    goto endsub
-
-
-  Dim  sTestFile  as String
-  Dim  sResult    as String
-
-  sTestFile = Convertpath (gTesttoolpath + "writer\optional\input\hangulhanjaonversion\hangul.sxw")
-  sResult = "書翰"
-
-  printlog "- Cursor's position is in the end of the document "
-  '/// <b> If the cursor resides at the end of a paragraph </b>
-  '/// + <b> the first available word/character in the file </b>
-  '/// + <b> will be chosen. </b>
-
-  Call hNewDocument
-
-  '/// Open a test file , which includes some Chinese and Korean
-   Call hFileOpenLocally( sTestFile )
-   ()
-
-  '/// Set focus to the end of the file
-   Call wTypeKeys "<MOD1 End>"
-
-  '/// Tools / HangulHanjaConversion ,
-   ToolsLanguageHangulHanjaConversion : WaitSlot
-   Kontext "HangulHanjaConversion"
-     Sleep 1
-     if Word.GetText <> sResult then
-         Warnlog "Hope to get "  & sResult & " but get  " & Word.GetText
-     end if
-   HangulHanjaConversion.Close
-
-  Call hCloseDocument
-
-endcase
-
-'-----------------------------------------------------------------
-
-testcase tHHNoSelction_6
-    warnlog( "#i111911# - Test is broken beyond repait, please rewrite" )
-    goto endsub
-
-
-    Dim  sTestFile  as String
-    Dim  sResult    as String
-
-    sTestFile = Convertpath (gTesttoolpath + "writer\optional\input\hangulhanjaonversion\notConvertHangulHanja.sxw")
-    sResult   = "入力를入力를入力"
-
-    printlog "- notconvertible Hangul character"
-    '/// <b> When the Hangul conversion is invoked on </b>
-    '/// + <b> a notconvertible Hangul character , the </b>
-    '/// + <b> dialogue will start with with an empty suggestion </b>
-    '/// + <b> and the buttons "Replace" and "Always Replace" will be disabled </b>
-
-    Call hNewDocument
-
-    '/// Open a test file , which includes some Chinese and Korean,
-    '/// + the 3rd character in 1st line isn't convertible
-    Call hFileOpenLocally( sTestFile )
-    ()
-
-    '/// Set focus to the 3rd character (korean)
-    Call wTypeKeys "<MOD1 Home>"
-    Call wTypeKeys "<Right>" , 2
-
-    '/// Tools / HangulHanjaConversion , Replace and Always Replace
-    '/// + should be disabled , "suggestion" should be empty .
-    '/// + Press Ignore button will jump to the next convertible Hangul/Hanja character
-    ToolsLanguageHangulHanjaConversion : WaitSlot
-    Kontext "HangulHanjaConversion"
-    if Suggestions.GetItemCount <> 0 then
-        Warnlog "Suggestion should be empty !"
-    end if
-    try
-        ReplaceBtn.Click
-        Warnlog "Replace button should NOT work !"
-        AlwaysReplace.Click
-        Warnlog "Always Replace button should NOT work !"
-    catch
-        Ignore.Click
-    endcatch
-    ReplaceBtn.Click
-    Sleep 1
-    ReplaceBtn.Click
-    Sleep 1    
-    if HangulHanjaConversion.Exists then HangulHanjaConversion.Close
-
-    '/// Check if the result is correct
-    Call wTypeKeys "<MOD1 Home>"
-    Call wTypeKeys "<Shift End>"
-    EditCopy
-    Sleep 1
-    if GetClipboardText <> sResult then
-        Warnlog "Conversion doesn't work well !"
-    end if
-
-    Call hCloseDocument
-
-endcase
-
-'-----------------------------------------------------------------
-
-testcase tHHNoSelction_7
-    warnlog( "#i111911# - Test is broken beyond repait, please rewrite" )
-    goto endsub
-
-
-  Dim  sTestFile  as String
-  Dim  sResult    as String
-
-  sTestFile = Convertpath (gTesttoolpath + "writer\optional\input\hangulhanjaonversion\notConvertHangulHanja.sxw")
-  sResult   = "중문奖중문奖중문"
-
-  printlog "- notconvertible Hangul character"
-  '/// <b> When the Hanja conversion is invoked on </b>
-  '/// + <b> a notconvertible Hanja character the </b>
-  '/// + <b> dialogue will start with with an empty suggestion </b>
-  '/// + <b> and the buttons "Replace" and "Always Replace" will be disabled </b>
-
-  Call hNewDocument
-
-  '/// Open a test file , which includes some Chinese and Korean,
-  '/// + the 3rd character in 2nd line isn't convertible
-   Call hFileOpenLocally( sTestFile )
-   ()
-
-  '/// Set focus to the 3rd chinese character
-   Call wTypeKeys "<MOD1 Home><Down><Home>"
-   Call wTypeKeys "<Right>" , 2
-
-  '/// Tools / HangulHanjaConversion ,
-  '/// + Press Peplace button
-  '/// Tools / HangulHanjaConversion , Replace and Always Replace
-  '/// + should be disabled , "suggestion" should be empty .
-  '/// + Press Ignore button will jump to the next convertible Hangul/Hanja character
-   ToolsLanguageHangulHanjaConversion : WaitSlot
-   Kontext "HangulHanjaConversion"
-     if Suggestions.GetItemCount <> 0 then
-         Warnlog "Suggestion should be empty !"
-     end if
-     try
-         ReplaceBtn.Click
-         Warnlog "Replace button should NOT work !"
-         AlwaysReplace.Click
-         Warnlog "Always Replace button should NOT work !"
-     catch
-         Ignore.Click
-     endcatch
-     ReplaceBtn.Click
-     Sleep 1
-     ReplaceBtn.Click
-     Sleep 1
-   HangulHanjaConversion.Close
-
-  '/// Check if the result is correct
-   Call wTypeKeys "<Home>"
-   Call wTypeKeys "<Shift End>"
-   EditCopy
-   Sleep 1
-   if GetClipboardText <> sResult then
-       Warnlog "Conversion doesn't work well !"
-   end if
-
-  Call hCloseDocument
-
-endcase
-
-'-----------------------------------------------------------------
-
-testcase tHHSingleSelction_1
-    warnlog( "#i111911# - Test is broken beyond repait, please rewrite" )
-    goto endsub
-
-    
-    Dim  sTestFile  as String
-    Dim  sResult    as String
-    
-    sTestFile = Convertpath (gTesttoolpath + "writer\optional\input\hangulhanjaonversion\notConvertHangulHanja.sxw")
-	sResult = "入力를入力를입력"
-
-    
-    printlog "- Single selection"
-    '/// <b> Single selection </b>
-    '/// <b> Depending on the replacement setting </b>
-    '/// + <b>(by word or by character) progressing </b>
-    '/// + <b>(step by step) suggestions will be made </b>
-    '/// + <b> until the end of selection. </b>
-    
-    Call hNewDocument
-    
-    '/// Open a test file , which includes some Chinese and Korean
-    Call hFileOpenLocally( sTestFile )
-    ()
-    
-    '/// Select from 4th to 7th character
-    Call wTypeKeys "<MOD1 Home>"
-    Call wTypeKeys "<Right>" , 3
-    Call wTypeKeys "<Shift Right>" , 4
-    
-    '/// Tools / HangulHanjaConversion ,
-    '/// + Press Peplace button
-    ToolsLanguageHangulHanjaConversion : WaitSlot
-    Kontext "HangulHanjaConversion"
-    if ReplaceBtn.IsEnabled then 
-        ReplaceBtn.Click
-        Sleep 1
-        try
-            ReplaceBtn.Click
-            Sleep 1
-        catch
-        endcatch
-
-       '/// Check if the result is correct
-       Call wTypeKeys "<MOD1 Home>"
-       Call wTypeKeys "<Shift End>"
-       EditCopy
-       Sleep 1
-       if GetClipboardText <> sResult then
-            Warnlog "Conversion result not: " & sResult & " but: " & GetClipboardText           
-       end if
-    else
-        Warnlog "Replace-Button is disabled!"
-    end if
-
-
-    Call hCloseDocument
-
-endcase
-
-'----------------------------------------------------------------
-
-testcase tHHMultiSelction_1
-    warnlog( "#i111911# - Test is broken beyond repait, please rewrite" )
-    goto endsub
-
-
-  Dim  sTestFile  as String
-  Dim  sResult    as String
-  Dim  sMultiWord as String
-
-  sTestFile  = Convertpath (gTesttoolpath + "writer\optional\input\hangulhanjaonversion\multiSelection.sxw")
-  sResult    = "를入力를에서한자와기호를入力"
-  sMultiWord =  "입력"
-
-  printlog "- Multi selection"
-  '/// <b> Multi selection </b>
-  '/// <b> conversion will jump after finishing </b>
-  '/// + <b> selection to next selection until end. </b>
-
-  Call hNewDocument
-
-  '/// Open a test file , which includes some Korean chacters
-   Call hFileOpenLocally( sTestFile )
-   ()
-
-  '/// Do a multi Selectiong to the charcters -- 입력
-   Call fFindWord(sMultiWord)
-
-  '/// Tools / HangulHanjaConversion ,
-  '/// + Press Peplace button
-   ToolsLanguageHangulHanjaConversion : WaitSlot
-   Kontext "HangulHanjaConversion"
-     ReplaceBtn.Click
-     Sleep 1
-     ReplaceBtn.Click
-     Sleep 1
-
-  '/// Check if the result is correct
-   Call wTypeKeys "<MOD1 Home>"
-   Call wTypeKeys "<Shift End>"
-   EditCopy
-   Sleep 1
-   if GetClipboardText <> sResult then
-       Warnlog "Conversion doesn't work well !"
-   end if
-
-  Call hCloseDocument
-
-endcase
-
-'----------------------------------------------------------------
-
-testcase tHHTextBox_1
-    warnlog( "#i111911# - Test is broken beyond repait, please rewrite" )
-    goto endsub
-
-
-  Dim  sTestFile  as String
-
-  sTestFile  = Convertpath (gTesttoolpath + "writer\optional\input\hangulhanjaonversion\textBox.sxw")
-
-  printlog "- Hangul character in text box"
-  '/// <b> Hangul character in text box </b>
-
-  Call hNewDocument
-
-  '/// Open a test file , which includes a text box and
-  '/// + some Korean chacters in the text box
-   Call hFileOpenLocally( sTestFile )
-   ()
-
-  '/// Tools / HangulHanjaConversion , the below 4 checkboxes ralated
-  '/// + ruby should be disabled .
-  '/// -> 'Hanja As Ruby Above Hangul'
-  '/// -> 'Hanja As Ruby Below Hangul'
-  '/// -> 'Hangul As Ruby Above Hanja'
-  '/// -> 'Hangul As Ruby Below Hanja'
-   try
-       ToolsLanguageHangulHanjaConversion : WaitSlot
-       Kontext "HangulHanjaConversion"
-       if NOT HangulHanjaConversion.Exists then
-           Warnlog "Hangul/Hanja Conversion dialogue isn't poped up !"
-           Call hCloseDocument
-           goto endsub
-       end if
-   catch
-       Warnlog "- Format / HangulHanjaConversion is disabled or hidden!"
-       Call hCloseDocument
-       goto endsub
-   endcatch
-
-   try
-       HanjaAsRubyAbove.Check
-       Warnlog "'Hanja As Ruby Above Hangul' should be disabled!"
-   catch
-   endcatch
-
-   try
-       HanjaAsRubyBelow.Check
-       Warnlog "'Hanja As Ruby Below Hangul' should be disabled!"
-   catch
-   endcatch
-
-   try
-       HangulAsRubyAbove.Check
-       Warnlog "'Hangul As Ruby Above Hanja' should be disabled!"
-   catch
-   endcatch
-
-   try
-       HangulAsRubyBelow.Check
-       Warnlog "'Hangul As Ruby Below Hanja' should be disabled!"
-   catch
-   endcatch
-
-   HangulHanjaConversion.Close
-   Sleep 1
-
-  Call hCloseDocument
-
-endcase
-
-'----------------------------------------------------------------
-
-testcase tHHDrawBox_1
-    warnlog( "#i111911# - Test is broken beyond repait, please rewrite" )
-    goto endsub
-
-
-  Dim  sTestFile  as String
-
-  sTestFile  = Convertpath (gTesttoolpath + "writer\optional\input\hangulhanjaonversion\drawBox.sxw")
-
-  printlog "- Hangul character in draw box"
-  '/// <b> Hangul character in draw box </b>
-
-  Call hNewDocument
-
-  '/// Open a test file , which includes a draw box and
-  '/// + some Korean chacters in the text box
-   Call hFileOpenLocally( sTestFile )
-   ()
-  '/// Tools / HangulHanjaConversion , the below 4 checkboxes ralated
-  '/// + ruby should be disabled .
-  '/// -> 'Hanja As Ruby Above Hangul'
-  '/// -> 'Hanja As Ruby Below Hangul'
-  '/// -> 'Hangul As Ruby Above Hanja'
-  '/// -> 'Hangul As Ruby Below Hanja'
-   try
-       ToolsLanguageHangulHanjaConversion : WaitSlot
-       Kontext "HangulHanjaConversion"
-       if NOT HangulHanjaConversion.Exists then
-           Warnlog "Hangul/Hanja Conversion dialogue isn't poped up !"
-           Call hCloseDocument
-           goto endsub
-       end if
-   catch
-       Warnlog "- Format / HangulHanjaConversion is disabled or hidden!"
-       Call hCloseDocument
-       goto endsub
-   endcatch
-
-   try
-       HanjaAsRubyAbove.Check
-       Warnlog "'Hanja As Ruby Above Hangul' should be disabled!"
-   catch
-   endcatch
-
-   try
-       HanjaAsRubyBelow.Check
-       Warnlog "'Hanja As Ruby Below Hangul' should be disabled!"
-   catch
-   endcatch
-
-   try
-       HangulAsRubyAbove.Check
-       Warnlog "'Hangul As Ruby Above Hanja' should be disabled!"
-   catch
-   endcatch
-
-   try
-       HangulAsRubyBelow.Check
-       Warnlog "'Hangul As Ruby Below Hanja' should be disabled!"
-   catch
-   endcatch
-
-   HangulHanjaConversion.Close
-   Sleep 1
-
-  Call hCloseDocument
-
-endcase
-
diff --git a/testautomation/writer/optional/includes/hangulhanjaonversion/hhConversion2.inc b/testautomation/writer/optional/includes/hangulhanjaonversion/hhConversion2.inc
deleted file mode 100644
index dface018692f..000000000000
--- a/testautomation/writer/optional/includes/hangulhanjaonversion/hhConversion2.inc
+++ /dev/null
@@ -1,1618 +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 : helge.delfs@oracle.com
-'*
-'* short description : Test of Hangul/Hanja Conversion - 2
-'*
-'************************************************************************
-'*
-' #1 tHHConversion_1         'Hanja/Hangul (Korean -> Chinese)
-' #1 tHHConversion_2         'Hanja/Hangul (Chinese -> Korean)
-' #1 tHHConversion_3         'Hanja(Hangul) (Korean -> Chinese)
-' #1 tHHConversion_4         'Hanja(Hangul) (Chinese -> Korean)
-' #1 tHHConversion_5         'Hangul(Hanja) (Korean -> Chinese)
-' #1 tHHConversion_6         'Hangul(Hanja) (Chinese -> Korean)
-' #1 tHHConversion_7         ''Hanja As Ruby Above Hangul' (Korean -> Chinese)
-' #1 tHHConversion_8         ''Hanja As Ruby Above Hangul' (Chinese -> Korean)
-' #1 tHHConversion_9         ''Hanja As Ruby Below Hangul' (Korean -> Chinese)
-' #1 tHHConversion_10        ''Hanja As Ruby Below Hangul' (Chinese -> Korean)
-' #1 tHHConversion_11        ''Hangul As Ruby Above Hanja' (Korean -> Chinese)
-' #1 tHHConversion_12        ''Hangul As Ruby Above Hanja' (Chinese -> Korean)
-' #1 tHHConversion_13        ''Hangul As Ruby Below Hanja' (Korean -> Chinese)
-' #1 tHHConversion_14        ''Hangul As Ruby Below Hanja' (Chinese -> Korean)
-' #1 tHHConversion_15        'Hangul Only
-' #1 tHHConversion_16        'Hanja Only
-' #1 tHHConversion_17        'Ignore
-' #1 tHHConversion_18        'Always Ignore -1
-' #1 tHHConversion_19        'Always Ignore -2
-' #1 tHHConversion_20        'Replace
-' #1 tHHConversion_21        'Always Replace -1
-' #1 tHHConversion_22        'Always Replace -2
-' #1 tHHConversion_23        'Always Replace -3
-' #1 tHHConversion_24        'Replace by character -1
-' #1 tHHConversion_25        'Replace by character -2(Always Ignore)
-' #1 tHHConversion_26        'Replace by character -3(Always Replace)
-'*
-'\***********************************************************************
-
-testcase tHHConversion_1
-    warnlog( "#i111911# - Test is broken beyond repait, please rewrite" )
-    goto endsub
-
-
-  Dim  sTestFile  as String
-  Dim  sResult    as String
-  Dim  i          as Integer
-
-  sTestFile  = Convertpath (gTesttoolpath + "writer\optional\input\hangulhanjaonversion\KoreanToChinese.sxw") 
-  sResult    = "漢字入力은該當하入力하中文信息"
-
-
-  printlog "- Hanja/Hangul (Korean -> Chinese)"
-  '/// <b> Simple convert from Hangul into Hanja </b>
-
-  Call hNewDocument
-
-  '/// Open a test file , which includes some
-  '/// + Korean chacters and chinese character
-   hFileOpenLocally( sTestFile )
-   Call wTypeKeys "<MOD1 Home>"
-
-  '/// Tools / HangulHanjaConversion ,
-  '/// + Press Peplace button
-   ToolsLanguageHangulHanjaConversion : WaitSlot
-   Kontext "HangulHanjaConversion"
-     For i = 1 to 15
-         if NOT HangulHanjaConversion.Exists then
-             Exit for
-         end if
-         ReplaceBtn.Click
-         Sleep 1
-     next i
-
-  '/// Check if the result is correct
-   Call wTypeKeys "<MOD1 Home>"
-   Call wTypeKeys "<Shift End>"
-   EditCopy
-   Sleep 1
-   if GetClipboardText <> sResult then
-       Warnlog "Conversion result not: " & sResult & " but: " & GetClipboardText
-   end if
-
-  Call hCloseDocument
-
-endcase
-
-'-----------------------------------------------------------------
-
-testcase tHHConversion_2
-    warnlog( "#i111911# - Test is broken beyond repait, please rewrite" )
-    goto endsub
-
-
-  Dim  sTestFile  as String
-  Dim  sResult    as String
-  Dim  i          as Integer
-
-  sTestFile  = Convertpath (gTesttoolpath + "writer\optional\input\hangulhanjaonversion\ChineseToKorean.sxw")
-  sResult    = "상산하乡황하长강력은해당"
-
-  printlog "- Hanja/Hangul (Chinese -> Korean)"
-  '/// <b> Simple convert from Hanja into Hangul </b>
-
-  Call hNewDocument
-
-  '/// Open a test file , which includes some
-  '/// + Chinese character and Korean chacters
-   hFileOpenLocally( sTestFile )
-   Call wTypeKeys "<MOD1 Home>"
-
-  '/// Tools / HangulHanjaConversion , check hanja only .
-  '/// + Press Peplace button
-   ToolsLanguageHangulHanjaConversion
-   Kontext "HangulHanjaConversion"
-     HanjaOnly.Check
-     For i = 1 to 15
-         if NOT HangulHanjaConversion.Exists then
-             Exit for
-         end if
-         ReplaceBtn.Click
-         Sleep 1
-     next i
-
-  '/// Check if the result is correct
-   Call wTypeKeys "<MOD1 Home>"
-   Call wTypeKeys "<Shift End>"
-   EditCopy
-   Sleep 1
-   if GetClipboardText <> sResult then
-       Warnlog "Conversion doesn't work well !"
-   end if
-
-  Call hCloseDocument
-
-endcase
-
-'-----------------------------------------------------------------
-
-testcase tHHConversion_3
-    warnlog( "#i111911# - Test is broken beyond repait, please rewrite" )
-    goto endsub
-
-
-  Dim  sTestFile  as String
-  Dim  sResult    as String
-  Dim  i          as Integer
-
-  sTestFile  = Convertpath (gTesttoolpath + "writer\optional\input\hangulhanjaonversion\KoreanToChinese.sxw")
-  sResult = "漢字(한자)入力(입력)은該當(해당)하入力(입력)하中文信息"
-
-
-  printlog "- Hanja(Hangul) (Korean -> Chinese)"
-  '/// <b> Test Hanja(Hangul) - Simple convert from Hangul into Hanja </b>
-
-  Call hNewDocument
-
-  '/// Open a test file , which includes some
-  '/// + Korean chacters and chinese character
-   hFileOpenLocally( sTestFile )
-   Call wTypeKeys "<MOD1 Home>"
-
-  '/// Tools / HangulHanjaConversion , check Hanja(Hangul)
-  '/// + Press Peplace button
-   ToolsLanguageHangulHanjaConversion
-   Kontext "HangulHanjaConversion"
-     HanjaHangul.Check
-     Sleep 1
-     For i = 1 to 15
-         if NOT HangulHanjaConversion.Exists then
-             Exit for
-         end if
-         ReplaceBtn.Click
-         Sleep 1
-     next i
-
-  '/// Check if the result is correct
-   Call wTypeKeys "<MOD1 Home>"
-   Call wTypeKeys "<Shift End>"
-   EditCopy
-   Sleep 1
-   if GetClipboardText <> sResult then
-        Warnlog "Conversion result not: " & sResult & " but: " & GetClipboardText
-   end if
-
-  Call hCloseDocument
-
-endcase
-
-'-----------------------------------------------------------------
-
-testcase tHHConversion_4
-    warnlog( "#i111911# - Test is broken beyond repait, please rewrite" )
-    goto endsub
-
-
-  Dim  sTestFile  as String
-  Dim  sResult    as String
-  Dim  i          as Integer
-
-  sTestFile  = Convertpath (gTesttoolpath + "writer\optional\input\hangulhanjaonversion\ChineseToKorean.sxw")
-  sResult = "上山下(상산하)乡黄河(황하)长江(강)력은該當(해당)"
-
-
-  printlog "- Hanja(Hangul) (Chinese -> Korean)"
-  '/// <b> Test Hanja(Hangul) - Simple convert from Hanja into Hangul </b>
-
-  Call hNewDocument
-
-  '/// Open a test file , which includes some
-  '/// + Chinese character and Korean chacters
-   hFileOpenLocally( sTestFile )
-   Call wTypeKeys "<MOD1 Home>"
-
-  '/// Tools / HangulHanjaConversion , check Hanja(Hangul).
-  '/// + Press Peplace button
-   ToolsLanguageHangulHanjaConversion
-   Kontext "HangulHanjaConversion"
-     HanjaHangul.Check
-     Sleep 1
-     For i = 1 to 15
-         if NOT HangulHanjaConversion.Exists then
-             Exit for
-         end if
-         ReplaceBtn.Click
-         Sleep 1
-     next i
-
-  '/// Check if the result is correct
-   Call wTypeKeys "<MOD1 Home>"
-   Call wTypeKeys "<Shift End>"
-   EditCopy
-   Sleep 1
-   if GetClipboardText <> sResult then
-        Warnlog "Conversion result not: " & sResult & " but: " & GetClipboardText
-   end if
-
-  Call hCloseDocument
-
-endcase
-
-'-----------------------------------------------------------------
-
-testcase tHHConversion_5
-    warnlog( "#i111911# - Test is broken beyond repait, please rewrite" )
-    goto endsub
-
-
-  Dim  sTestFile  as String
-  Dim  sResult    as String
-  Dim  i          as Integer
-
-  sTestFile  = Convertpath (gTesttoolpath + "writer\optional\input\hangulhanjaonversion\KoreanToChinese.sxw")
-  sResult    = "한자(漢字)입력(入力)은해당(該當)하입력(入力)하中文信息"
-
-
-  printlog "- Hangul(Hanja) (Korean -> Chinese)"
-  '/// <b> Test Hangul(Hanja) - Simple convert from Hangul into Hanja </b>
-
-  Call hNewDocument
-
-  '/// Open a test file , which includes some
-  '/// + Korean chacters and chinese character
-   hFileOpenLocally( sTestFile )
-   Call wTypeKeys "<MOD1 Home>"
-
-  '/// Tools / HangulHanjaConversion , check Hangul(Hanja) ,
-  '/// + Press Peplace button
-   ToolsLanguageHangulHanjaConversion
-   Kontext "HangulHanjaConversion"
-     HangulHanja.Check
-     Sleep 1
-     For i = 1 to 15
-         if NOT HangulHanjaConversion.Exists then
-             Exit for
-         end if
-         ReplaceBtn.Click
-         Sleep 1
-     next i
-
-  '/// Check if the result is correct
-   Call wTypeKeys "<MOD1 Home>"
-   Call wTypeKeys "<Shift End>"
-   EditCopy
-   Sleep 1
-   if GetClipboardText <> sResult then
-        Warnlog "Conversion result not: " & sResult & " but: " & GetClipboardText
-   end if
-
-  Call hCloseDocument
-
-endcase
-
-'-----------------------------------------------------------------
-
-testcase tHHConversion_6
-    warnlog( "#i111911# - Test is broken beyond repait, please rewrite" )
-    goto endsub
-
-
-  Dim  sTestFile  as String
-  Dim  sResult    as String
-  Dim  i          as Integer
-
-  sTestFile  = Convertpath (gTesttoolpath + "writer\optional\input\hangulhanjaonversion\ChineseToKorean.sxw")
-  sResult = "상산하(上山下)乡황하(黄河)长강(江)력은해당(該當)"
-
-
-
-  printlog "- Hangul(Hanja) (Chinese -> Korean)"
-  '/// <b> Test Hangul(Hanja) - Simple convert from Hanja into Hangul </b>
-
-  Call hNewDocument
-
-  '/// Open a test file , which includes some
-  '/// + Chinese character and Korean chacters
-   hFileOpenLocally( sTestFile )
-   Call wTypeKeys "<MOD1 Home>"
-
-  '/// Tools / HangulHanjaConversion , check Hangul(Hanja),
-  '/// + Press Peplace button
-   ToolsLanguageHangulHanjaConversion
-   Kontext "HangulHanjaConversion"
-     HangulHanja.Check
-     Sleep 1
-     For i = 1 to 15
-         if NOT HangulHanjaConversion.Exists then
-             Exit for
-         end if
-         ReplaceBtn.Click
-         Sleep 1
-     next i
-
-  '/// Check if the result is correct
-   Call wTypeKeys "<MOD1 Home>"
-   Call wTypeKeys "<Shift End>"
-   EditCopy
-   Sleep 1
-   if GetClipboardText <> sResult then
-        Warnlog "Conversion result not: " & sResult & " but: " & GetClipboardText
-   end if
-
-  Call hCloseDocument
-
-endcase
-
-'-----------------------------------------------------------------
-
-testcase tHHConversion_7
-    warnlog( "#i111911# - Test is broken beyond repait, please rewrite" )
-    goto endsub
-
-
-  Dim  sTestFile                as String
-  Dim  sHangulText , sHanjaText as String
-  Dim  iAlignment  , iPosition  as Integer
-
-  sHangulText =  "한자"
-  sHanjaText  =  "漢字"
-  iAlignment  =  2  'Center
-  iPosition   =  1  'Top
-  sTestFile   =  Convertpath (gTesttoolpath + "writer\optional\input\hangulhanjaonversion\KoreanToChinese.sxw")
-
-  printlog "- 'Hanja As Ruby Above Hangul' (Korean -> Chinese)"
-  '/// <b> Test 'Hanja As Ruby Above Hangul' - Simple convert from Hangul into Hanja </b>
-
-  Call hNewDocument
-
-  '/// Open a test file , which includes some Korean chacters
-   hFileOpenLocally( sTestFile )
-   Call wTypeKeys "<Home>"
-
-  '/// Tools / HangulHanjaConversion , check 'Hanja As Ruby Above Hangul' ,
-  '/// + press Peplace button
-   ToolsLanguageHangulHanjaConversion
-   Kontext "HangulHanjaConversion"
-     HanjaAsRubyAbove.Check
-     Sleep 1
-     ReplaceBtn.Click
-     Sleep 1
-   HangulHanjaConversion.Close
-
-   Call wTypeKeys "<Home>"
-  '/// Format/Ruby , check if the result is correct
-   FormatRuby
-   Kontext "RubyDialog"
-     Sleep 4
-     if BasisText1.GetText <> sHangulText then
-         Warnlog "Base text : hope to get " & sHangulText & " but get " & BasisText1.GetText
-     end if
-     if RubyText1.GetText  <> sHanjaText then
-         Warnlog "Ruby text : hope to get " & sHanjaText & " but get " & RubyText1.GetText
-     end if
-     if Adjust.GetSelIndex <> iAlignment  then
-         Warnlog "Alignment : hope to get " & Adjust.GeTSelText(iAlignment) & " but get " & Adjust.GeTSelText
-     end if
-     if RubyPosition.GetSelIndex <> iPosition then
-         Warnlog "Position: hope to get " & RubyPosition.GeTSelText(iPosition) & " but get " & RubyPosition.GeTSelText
-     end if
-   RubyDialog.Close
-   Sleep 2
-
-  Call hCloseDocument
-
-endcase
-
-'-----------------------------------------------------------------
-
-testcase tHHConversion_8
-    warnlog( "#i111911# - Test is broken beyond repait, please rewrite" )
-    goto endsub
-
-
-  Dim  sTestFile                as String
-  Dim  sHangulText , sHanjaText as String
-  Dim  iAlignment  , iPosition  as Integer
-
-  sHangulText =  "상산하"
-  sHanjaText  =  "上山下"
-  iAlignment  =  2  'Center
-  iPosition   =  1  'Top
-  sTestFile   =  Convertpath (gTesttoolpath + "writer\optional\input\hangulhanjaonversion\ChineseToKorean.sxw")
-
-  printlog "- 'Hanja As Ruby Above Hangul' (Chinese -> Korean)"
-  '/// <b> Test 'Hanja As Ruby Above Hangul' - Simple convert from Hanja into Hangul </b>
-
-  Call hNewDocument
-
-  '/// Open a test file , which includes some Chinese chacters
-   hFileOpenLocally( sTestFile )
-   Call wTypeKeys "<Home>"
-
-  '/// Tools / HangulHanjaConversion , check 'Hanja As Ruby Above Hangul' ,
-  '/// + press Peplace button
-   ToolsLanguageHangulHanjaConversion
-   Kontext "HangulHanjaConversion"
-     HanjaAsRubyAbove.Check
-     Sleep 1
-     ReplaceBtn.Click
-     Sleep 1
-   HangulHanjaConversion.Close
-
-   Call wTypeKeys "<Home>"
-  '/// Format/Ruby , check if the result is correct
-   FormatRuby
-   Kontext "RubyDialog"
-     Sleep 4
-     if BasisText1.GetText <> sHangulText then
-         Warnlog "#i39186# Base text : hope to get " & sHangulText & " but get " & BasisText1.GetText
-     end if
-     if RubyText1.GetText  <> sHanjaText then
-         Warnlog "#i39186# Ruby text : hope to get " & sHanjaText & " but get " & RubyText1.GetText
-     end if
-     if Adjust.GetSelIndex <> iAlignment  then
-         Warnlog "Alignment : hope to get " & Adjust.GeTSelText(iAlignment) & " but get " & Adjust.GeTSelText
-     end if
-     if RubyPosition.GetSelIndex <> iPosition then
-         Warnlog "Position: hope to get " & RubyPosition.GeTSelText(iPosition) & " but get " & RubyPosition.GeTSelText
-     end if
-   RubyDialog.Close
-   Sleep 2
-
-  Call hCloseDocument
-
-endcase
-
-'-----------------------------------------------------------------
-
-testcase tHHConversion_9
-    warnlog( "#i111911# - Test is broken beyond repait, please rewrite" )
-    goto endsub
-
-
-  Dim  sTestFile                as String
-  Dim  sHangulText , sHanjaText as String
-  Dim  iAlignment  , iPosition  as Integer
-
-  sHangulText =  "한자"
-  sHanjaText  =  "漢字"
-  iAlignment  =  2  'Center
-  iPosition   =  2  'Bottom
-  sTestFile   =  Convertpath (gTesttoolpath + "writer\optional\input\hangulhanjaonversion\KoreanToChinese.sxw")
-
-  printlog "- 'Hanja As Ruby Below Hangul' (Korean -> Chinese)"
-  '/// <b> Test 'Hanja As Ruby Below Hangul' - Simple convert from Hangul into Hanja </b>
-
-  Call hNewDocument
-
-  '/// Open a test file , which includes some Korean chacters
-   hFileOpenLocally( sTestFile )
-   Call wTypeKeys "<Home>"
-
-  '/// Tools / HangulHanjaConversion , check 'Hanja As Ruby Below Hangul' ,
-  '/// + press Peplace button
-   ToolsLanguageHangulHanjaConversion
-   Kontext "HangulHanjaConversion"
-     HanjaAsRubyBelow.Check
-     Sleep 1
-     ReplaceBtn.Click
-     Sleep 1
-   HangulHanjaConversion.Close
-
-   Call wTypeKeys "<Home>"
-  '/// Format/Ruby , check if the result is correct
-   FormatRuby
-   Kontext "RubyDialog"
-     Sleep 4
-     if BasisText1.GetText <> sHangulText then
-         Warnlog "Base text : hope to get " & sHangulText & " but get " & BasisText1.GetText
-     end if
-     if RubyText1.GetText  <> sHanjaText then
-         Warnlog "Ruby text : hope to get " & sHanjaText & " but get " & RubyText1.GetText
-     end if
-     if Adjust.GetSelIndex <> iAlignment  then
-         Warnlog "Alignment : hope to get " & Adjust.GeTSelText(iAlignment) & " but get " & Adjust.GeTSelText
-     end if
-     if RubyPosition.GetSelIndex <> iPosition then
-         Warnlog "Position: hope to get " & RubyPosition.GeTSelText(iPosition) & " but get " & RubyPosition.GeTSelText
-     end if
-   RubyDialog.Close
-   Sleep 2
-
-  Call hCloseDocument
-
-endcase
-
-'-----------------------------------------------------------------
-
-testcase tHHConversion_10
-    warnlog( "#i111911# - Test is broken beyond repait, please rewrite" )
-    goto endsub
-
-
-  Dim  sTestFile                as String
-  Dim  sHangulText , sHanjaText as String
-  Dim  iAlignment  , iPosition  as Integer
-
-  sHangulText =  "상산하"
-  sHanjaText  =  "上山下"
-  iAlignment  =  2  'Center
-  iPosition   =  2  'Bottom
-  sTestFile   =  Convertpath (gTesttoolpath + "writer\optional\input\hangulhanjaonversion\ChineseToKorean.sxw")
-
-  printlog "- 'Hanja As Ruby Below Hangul' (Chinese -> Korean)"
-  '/// <b> Test 'Hanja As Ruby Below Hangul' - Simple convert from Hanja into Hangul </b>
-
-  Call hNewDocument
-
-  '/// Open a test file , which includes some Chinese chacters
-   hFileOpenLocally( sTestFile )
-   Call wTypeKeys "<Home>"
-
-  '/// Tools / HangulHanjaConversion , check 'Hanja As Ruby Below Hangul' ,
-  '/// + press Peplace button
-   ToolsLanguageHangulHanjaConversion
-   Kontext "HangulHanjaConversion"
-     HanjaAsRubyBelow.Check
-     Sleep 1
-     ReplaceBtn.Click
-     Sleep 1
-   HangulHanjaConversion.Close
-
-   Call wTypeKeys "<Home>"
-  '/// Format/Ruby , check if the result is correct
-   FormatRuby
-   Kontext "RubyDialog"
-     Sleep 4
-     if BasisText1.GetText <> sHangulText then
-         Warnlog "#i39186# Base text : hope to get " & sHangulText & " but get " & BasisText1.GetText
-     end if
-     if RubyText1.GetText  <> sHanjaText then
-         Warnlog "#i39186# Ruby text : hope to get " & sHanjaText & " but get " & RubyText1.GetText
-     end if
-     if Adjust.GetSelIndex <> iAlignment  then
-         Warnlog "Alignment : hope to get " & Adjust.GeTSelText(iAlignment) & " but get " & Adjust.GeTSelText
-     end if
-     if RubyPosition.GetSelIndex <> iPosition then
-         Warnlog "Position: hope to get " & RubyPosition.GeTSelText(iPosition) & " but get " & RubyPosition.GeTSelText
-     end if
-   RubyDialog.Close
-   Sleep 2
-
-  Call hCloseDocument
-
-endcase
-
-'-----------------------------------------------------------------
-
-testcase tHHConversion_11
-    warnlog( "#i111911# - Test is broken beyond repait, please rewrite" )
-    goto endsub
-
-
-  Dim  sTestFile                as String
-  Dim  sHangulText , sHanjaText as String
-  Dim  iAlignment  , iPosition  as Integer
-
-  sHangulText =  "한자"
-  sHanjaText  =  "漢字"
-  iAlignment  =  2  'Center
-  iPosition   =  1  'Top
-  sTestFile   =  Convertpath (gTesttoolpath + "writer\optional\input\hangulhanjaonversion\KoreanToChinese.sxw")
-
-  printlog "- 'Hangul As Ruby Above Hanja' (Korean -> Chinese)"
-  '/// <b> Test 'Hangul As Ruby Above Hanja' - Simple convert from Hangul into Hanja </b>
-
-  Call hNewDocument
-
-  '/// Open a test file , which includes some Korean chacters
-   hFileOpenLocally( sTestFile )
-   Call wTypeKeys "<Home>"
-
-  '/// Tools / HangulHanjaConversion , check 'Hangul As Ruby Above Hanja' ,
-  '/// + press Peplace button
-   ToolsLanguageHangulHanjaConversion
-   Kontext "HangulHanjaConversion"
-     HangulAsRubyAbove.Check
-     Sleep 1
-     ReplaceBtn.Click
-     Sleep 1
-   HangulHanjaConversion.Close
-
-   Call wTypeKeys "<Home>"
-  '/// Format/Ruby , check if the result is correct
-   FormatRuby
-   Kontext "RubyDialog"
-     Sleep 4
-     if BasisText1.GetText <> sHanjaText then
-         Warnlog "Base text : hope to get " & sHangulText & " but get " & BasisText1.GetText
-     end if
-     if RubyText1.GetText  <> sHangulText then
-         Warnlog "Ruby text : hope to get " & sHanjaText & " but get " & RubyText1.GetText
-     end if
-     if Adjust.GetSelIndex <> iAlignment  then
-         Warnlog "Alignment : hope to get " & Adjust.GeTSelText(iAlignment) & " but get " & Adjust.GeTSelText
-     end if
-     if RubyPosition.GetSelIndex <> iPosition then
-         Warnlog "Position: hope to get " & RubyPosition.GeTSelText(iPosition) & " but get " & RubyPosition.GeTSelText
-     end if
-   RubyDialog.Close
-   Sleep 2
-
-  Call hCloseDocument
-
-endcase
-
-'-----------------------------------------------------------------
-
-testcase tHHConversion_12
-    warnlog( "#i111911# - Test is broken beyond repait, please rewrite" )
-    goto endsub
-
-
-  Dim  sTestFile                as String
-  Dim  sHangulText , sHanjaText as String
-  Dim  iAlignment  , iPosition  as Integer
-
-  sHangulText =  "상산하"
-  sHanjaText  =  "上山下"
-  iAlignment  =  2  'Center
-  iPosition   =  1  'Top
-  sTestFile   =  Convertpath (gTesttoolpath + "writer\optional\input\hangulhanjaonversion\ChineseToKorean.sxw")
-
-  printlog "- 'Hangul As Ruby Above Hanja' (Chinese -> Korean)"
-  '/// <b> Test 'Hangul As Ruby Above Hanja' - Simple convert from Hanja into Hangul </b>
-
-  Call hNewDocument
-
-  '/// Open a test file , which includes some Chinese chacters
-   hFileOpenLocally( sTestFile )
-   Call wTypeKeys "<Home>"
-
-  '/// Tools / HangulHanjaConversion , check 'Hangul As Ruby Above Hanja' ,
-  '/// + press Peplace button
-   ToolsLanguageHangulHanjaConversion
-   Kontext "HangulHanjaConversion"
-     HangulAsRubyAbove.Check
-     Sleep 1
-     ReplaceBtn.Click
-     Sleep 1
-   HangulHanjaConversion.Close
-
-   Call wTypeKeys "<Home>"
-  '/// Format/Ruby , check if the result is correct
-   FormatRuby
-   Kontext "RubyDialog"
-     Sleep 4
-     if BasisText1.GetText <> sHanjaText then
-         Warnlog "#i39186# Base text : hope to get " & sHangulText & " but get " & BasisText1.GetText
-     end if
-     if RubyText1.GetText  <> sHangulText then
-         Warnlog "#i39186# Ruby text : hope to get " & sHanjaText & " but get " & RubyText1.GetText
-     end if
-     if Adjust.GetSelIndex <> iAlignment  then
-         Warnlog "Alignment : hope to get " & Adjust.GeTSelText(iAlignment) & " but get " & Adjust.GeTSelText
-     end if
-     if RubyPosition.GetSelIndex <> iPosition then
-         Warnlog "Position: hope to get " & RubyPosition.GeTSelText(iPosition) & " but get " & RubyPosition.GeTSelText
-     end if
-   RubyDialog.Close
-   Sleep 2
-
-  Call hCloseDocument
-
-endcase
-
-'-----------------------------------------------------------------
-
-testcase tHHConversion_13
-    warnlog( "#i111911# - Test is broken beyond repait, please rewrite" )
-    goto endsub
-
-
-  Dim  sTestFile                as String
-  Dim  sHangulText , sHanjaText as String
-  Dim  iAlignment  , iPosition  as Integer
-
-  sHangulText =  "한자"
-  sHanjaText  =  "漢字"
-  iAlignment  =  2  'Center
-  iPosition   =  2  'Bottom
-  sTestFile   =  Convertpath (gTesttoolpath + "writer\optional\input\hangulhanjaonversion\KoreanToChinese.sxw")
-
-  printlog "- 'Hangul As Ruby Below Hanja' (Korean -> Chinese)"
-  '/// <b> Test 'Hangul As Ruby Below Hanja' - Simple convert from Hangul into Hanja </b>
-
-  Call hNewDocument
-
-  '/// Open a test file , which includes some Korean chacters
-   hFileOpenLocally( sTestFile )
-   Call wTypeKeys "<Home>"
-
-  '/// Tools / HangulHanjaConversion , check 'Hangul As Ruby Below Hanja' ,
-  '/// + press Peplace button
-   ToolsLanguageHangulHanjaConversion
-   Kontext "HangulHanjaConversion"
-     HangulAsRubyBelow.Check
-     Sleep 1
-     ReplaceBtn.Click
-     Sleep 1
-   HangulHanjaConversion.Close
-
-   Call wTypeKeys "<Home>"
-  '/// Format/Ruby , check if the result is correct
-   FormatRuby
-   Kontext "RubyDialog"
-     Sleep 4
-     if BasisText1.GetText <> sHanjaText then
-         Warnlog "Base text : hope to get " & sHangulText & " but get " & BasisText1.GetText
-     end if
-     if RubyText1.GetText  <> sHangulText then
-         Warnlog "Ruby text : hope to get " & sHanjaText & " but get " & RubyText1.GetText
-     end if
-     if Adjust.GetSelIndex <> iAlignment  then
-         Warnlog "Alignment : hope to get " & Adjust.GeTSelText(iAlignment) & " but get " & Adjust.GeTSelText
-     end if
-     if RubyPosition.GetSelIndex <> iPosition then
-         Warnlog "Position: hope to get " & RubyPosition.GeTSelText(iPosition) & " but get " & RubyPosition.GeTSelText
-     end if
-   RubyDialog.Close
-   Sleep 2
-
-  Call hCloseDocument
-
-endcase
-
-'-----------------------------------------------------------------
-
-testcase tHHConversion_14
-    warnlog( "#i111911# - Test is broken beyond repait, please rewrite" )
-    goto endsub
-
-
-  Dim  sTestFile                as String
-  Dim  sHangulText , sHanjaText as String
-  Dim  iAlignment  , iPosition  as Integer
-
-  sHangulText =  "상산하"
-  sHanjaText  =  "上山下"
-  iAlignment  =  2  'Center
-  iPosition   =  2  'Bottom
-  sTestFile   =  Convertpath (gTesttoolpath + "writer\optional\input\hangulhanjaonversion\ChineseToKorean.sxw")
-
-  printlog "- 'Hangul As Ruby Below Hanja' (Chinese -> Korean)"
-  '/// <b> Test 'Hangul As Ruby Below Hanja' - Simple convert from Hanja into Hangul </b>
-
-  Call hNewDocument
-
-  '/// Open a test file , which includes some Chinese chacters
-   hFileOpenLocally( sTestFile )
-   Call wTypeKeys "<Home>"
-
-  '/// Tools / HangulHanjaConversion , check 'Hangul As Ruby Below Hanja' ,
-  '/// + press Peplace button
-   ToolsLanguageHangulHanjaConversion
-   Kontext "HangulHanjaConversion"
-     HangulAsRubyBelow.Check
-     Sleep 1
-     ReplaceBtn.Click
-     Sleep 1
-   HangulHanjaConversion.Close
-
-   Call wTypeKeys "<Home>"
-  '/// Format/Ruby , check if the result is correct
-   FormatRuby
-   Kontext "RubyDialog"
-     Sleep 4
-     if BasisText1.GetText <> sHanjaText then
-         Warnlog "#i39186# Base text : hope to get " & sHangulText & " but get " & BasisText1.GetText
-     end if
-     if RubyText1.GetText  <> sHangulText then
-         Warnlog "#i39186# Ruby text : hope to get " & sHanjaText & " but get " & RubyText1.GetText
-     end if
-     if Adjust.GetSelIndex <> iAlignment  then
-         Warnlog "Alignment : hope to get " & Adjust.GeTSelText(iAlignment) & " but get " & Adjust.GeTSelText
-     end if
-     if RubyPosition.GetSelIndex <> iPosition then
-         Warnlog "Position: hope to get " & RubyPosition.GeTSelText(iPosition) & " but get " & RubyPosition.GeTSelText
-     end if
-   RubyDialog.Close
-   Sleep 2
-
-  Call hCloseDocument
-
-endcase
-
-'-----------------------------------------------------------------
-
-testcase tHHConversion_15
-    warnlog( "#i111911# - Test is broken beyond repait, please rewrite" )
-    goto endsub
-
-
-  Dim  sTestFile  as String
-
-  sTestFile   =  Convertpath (gTesttoolpath + "writer\optional\input\hangulhanjaonversion\KoreanToChinese.sxw")
-
-  printlog "- Hangul Only"
-  '/// <b> Test 'Hangul Only' </b>
-
-  Call hNewDocument
-
-  '/// Open a test file , which includes some Korean chacters .
-  '/// + Set focus before Korean character
-   hFileOpenLocally( sTestFile )
-   Call wTypeKeys "<Home>"
-
-  '/// Tools / HangulHanjaConversion ,
-  '/// + 'Hangul Only' should be active and Unchecked,
-  '/// + 'Hanja Only' should be inactive
-   ToolsLanguageHangulHanjaConversion
-   Kontext "HangulHanjaConversion"
-     if HangulOnly.IsChecked = TRUE then
-         Warnlog "The default of Hangul Only should be Unchecked ! Bug#116320"
-     end if
-
-     try
-         HangulOnly.UnCheck
-         HangulOnly.Check
-     catch
-         Warnlog "'Hangul Only' Should be active !"
-     endcatch
-
-     try
-         HanjaOnly.Check
-         Warnlog "'Hanja Only' should be inactive !"
-     catch
-     endcatch
-   HangulHanjaConversion.Close
-
-  Call hCloseDocument
-
-endcase
-
-'-----------------------------------------------------------------
-
-testcase tHHConversion_16
-    warnlog( "#i111911# - Test is broken beyond repait, please rewrite" )
-    goto endsub
-
-
-  Dim  sTestFile  as String
-
-  sTestFile   =  Convertpath (gTesttoolpath + "writer\optional\input\hangulhanjaonversion\ChineseToKorean.sxw")
-
-  printlog "- Hanja Only"
-  '/// <b> Test 'Hanja Only' </b>
-
-  Call hNewDocument
-
-  '/// Open a test file , which includes some Chinese chacters .
-  '/// + Set focus before Chinese character
-   hFileOpenLocally( sTestFile )
-   Call wTypeKeys "<Home>"
-
-  '/// Tools / HangulHanjaConversion ,
-  '/// + 'Hanja Only' should be active and Unchecked,
-  '/// + 'Hangul Only' should be inactive
-   ToolsLanguageHangulHanjaConversion
-   Kontext "HangulHanjaConversion"
-     if HanjaOnly.IsChecked = TRUE then
-         Warnlog "The default of Hanja Only should be Unchecked ! Bug#116320"
-     end if
-
-     try
-         HanjaOnly.UnCheck
-         HanjaOnly.Check
-     catch
-         Warnlog "'Hanja Only' Should be active !"
-     endcatch
-
-     try
-         HangulOnly.Check
-         Warnlog "'Hangul Only' should be inactive !"
-     catch
-     endcatch
-   HangulHanjaConversion.Close
-
-  Call hCloseDocument
-
-endcase
-
-'-----------------------------------------------------------------
-
-testcase tHHConversion_17
-    warnlog( "#i111911# - Test is broken beyond repait, please rewrite" )
-    goto endsub
-
-
-  Dim  sTestFile            as String
-  Dim  sResult   , sWord    as String
-
-  sTestFile = Convertpath (gTesttoolpath + "writer\optional\input\hangulhanjaonversion\KoreanToChinese.sxw")
-  sResult   = "한자入力"
-  sWord     = "入力"
-  GetClipboardText = ""
-
-  printlog "- Ignore"
-  '/// <b> Test 'Ignore' </b>
-
-  Call hNewDocument
-
-  '/// Open a test file , which includes some Korean chacters .
-   hFileOpenLocally( sTestFile )
-   Call wTypeKeys "<Home>"
-
-  '/// Tools / HangulHanjaConversion , press Ignore ,
-  '/// + next word should be selected for conversion.
-   ToolsLanguageHangulHanjaConversion
-   Kontext "HangulHanjaConversion"
-     Ignore.Click
-     Sleep 1
-     if Word.GetText <> sWord then
-         Warnlog "Hope get " & sWord & " in Word" & " but get " & Word.GetText
-     end if
-     ReplaceBtn.Click
-     Sleep 1
-   HangulHanjaConversion.Close
-
-   Call wTypeKeys "<Home>"
-   Call wTypeKeys "<Shift Right>" , 4
-   EditCopy
-   if GetClipboardText <> sResult then
-       Warnlog "Should get " & sResult & " but get " & GetClipboardText
-   end if
-
-  Call hCloseDocument
-
-endcase
-
-'-----------------------------------------------------------------
-
-testcase tHHConversion_18
-    warnlog( "#i111911# - Test is broken beyond repait, please rewrite" )
-    goto endsub
-
-
-  Dim  sTestFile   as String
-  Dim  sResult     as String
-  Dim  sWord       as String
-  Dim  i           as Integer
-
-  sTestFile    = Convertpath (gTesttoolpath + "writer\optional\input\hangulhanjaonversion\alwayIgnore.sxw")
-  GetClipboardText = "" 
-  sWord = "산하"
-  sResult = "산하  황하 상산하乡   산하"
-
-  printlog "- Always Ignore -1"
-  '/// <b> Test 'Always Ignore' -1 </b>
-
-  Call hNewDocument
-
-  '/// Open a test file , which includes some Chinese chacters =>.
-  '/// + 山下  上山下乡   山下
-   hFileOpenLocally( sTestFile )
-   Call wTypeKeys "<Home>"
-
-  '/// Tools / HangulHanjaConversion , press Always Ignore ,
-  '/// + (here, 山下 should be selected) , then press Replace
-   ToolsLanguageHangulHanjaConversion
-   Kontext "HangulHanjaConversion"
-     AlwaysIgnore.Click
-     Sleep 1
-     For i = 1 to 4
-         if NOT HangulHanjaConversion.Exists then
-             Exit for
-         end if
-         ReplaceBtn.Click
-         Sleep 1
-     next i
-
-  '/// The result should be only 黄河 and 上山下 are converted
-   Call wTypeKeys "<Home>"
-   Call wTypeKeys "<Shift End>"
-   EditCopy
-   if GetClipboardText <> sResult then
-       Warnlog "Should get " & sResult & " but get " & GetClipboardText
-   end if
-
-  '/// Close this active document
-  Call hCloseDocument
-
-  '/// So far , there is still a StarOffice session exists .
-
-  '/// Reopen the test file
-   hFileOpenLocally( sTestFile )
-   Call wTypeKeys "<Home>"
-
-  '/// Tools / HangulHanjaConversion ,
-  '/// + ,(here,  黄河 should be selected)
-   ToolsLanguageHangulHanjaConversion
-   Kontext "HangulHanjaConversion"
-     if Word.GetText <>  sWord then
-         Warnlog "#i39308# Don't get " &  sWord & " but get " & Word.GetText
-     end if
-
-     For i = 1 to 4
-         if NOT HangulHanjaConversion.Exists then
-             Exit for
-         end if
-         ReplaceBtn.Click
-         Sleep 1
-     next i
-
-  '/// The result should be only 黄河 and 上山下 are converted
-   Call wTypeKeys "<Home>"
-   Call wTypeKeys "<Shift End>"
-   EditCopy
-   if GetClipboardText <> sResult then
-       QAErrorlog "#i39308# Should get " & sResult & " but get " & GetClipboardText
-   end if
-
-  Call hCloseDocument
-
-endcase
-
-'-----------------------------------------------------------------
-
-testcase tHHConversion_19
-    warnlog( "#i111911# - Test is broken beyond repait, please rewrite" )
-    goto endsub
-
-
-  Dim  sTestFile  as String
-  Dim  sWord      as String
-
-  sTestFile = Convertpath (gTesttoolpath + "writer\optional\input\hangulhanjaonversion\alwayIgnore.sxw")
-  sWord     = "산하"
-
-  printlog "- Always Ignore -2"
-  '/// <b> Test 'Always Ignore' -2 </b>
-
-  Call hNewDocument
-
-  '/// Open a test file , which includes some Chinese chacters =>.
-  '/// + 山下  上山下乡   山下
-   hFileOpenLocally( sTestFile )
-   Call wTypeKeys "<Home>"
-
-  '/// Tools / HangulHanjaConversion , press Always Ignore ,
-  '/// + (here, 山下 should be selected)
-   ToolsLanguageHangulHanjaConversion
-   Kontext "HangulHanjaConversion"
-     AlwaysIgnore.Click
-     Sleep 1
-   HangulHanjaConversion.Close
-
-  Call hCloseDocument
-
- '/// Close all Office session
-  try
-      Call hCloseDocument
-      Call hCloseDocument
-  catch
-  endcatch
-  Sleep 2
-
-  Call hNewDocument
-  '/// Reopen the test file
-   hFileOpenLocally( sTestFile )
-   Call wTypeKeys "<Home>"
-
-  '/// Tools / HangulHanjaConversion , 山下 should be selcted
-   ToolsLanguageHangulHanjaConversion
-   Kontext "HangulHanjaConversion"
-     if Word.GetText <>  sWord then
-         Warnlog "Don't get " &  sWord & " but get " & Word.GetText
-     end if
-   HangulHanjaConversion.Close
-
-  Call hCloseDocument
-
-endcase
-
-'-----------------------------------------------------------------
-
-testcase tHHConversion_20
-    warnlog( "#i111911# - Test is broken beyond repait, please rewrite" )
-    goto endsub
-
-
-  Dim  sTestFile  as String
-  Dim  sWord      as String
-  Dim  sResult    as String
-  Dim  i          as Integer
-
-  sTestFile = Convertpath (gTesttoolpath + "writer\optional\input\hangulhanjaonversion\Replace.sxw")
-  sWord     = "書翰"
-  sResult   = "書翰자  와"
-
-  GetClipboardText = ""
-
-  printlog "- Replace"
-  '/// <b> Test Replace </b>
-
-  Call hNewDocument
-
-  '/// Open a test file , which includes some Korean chacters
-   hFileOpenLocally( sTestFile )
-   Call wTypeKeys "<Home>"
-
-  '/// Tools / HangulHanjaConversion , select a word in selection
-  '/// + then press Replace button
-   ToolsLanguageHangulHanjaConversion
-   Kontext "HangulHanjaConversion"
-
-    try
-        Suggestions.Select   sWord
-    catch
-        Warnlog "No suggestion made in Hangul/Hanja converter"
-        HangulHanjaConversion.Close
-        Call hCloseDocument
-        goto endsub
-    endcatch
-        
-    Sleep 1
-    For i = 1 to 4
-        if NOT HangulHanjaConversion.Exists then
-            Exit for
-        end if
-        ReplaceBtn.Click
-        Sleep 1
-    next i
-
-    '/// Check if the result is right
-    Call wTypeKeys "<Home>"
-    Call wTypeKeys "<Shift End>"
-    EditCopy
-    if GetClipboardText <> sResult then
-        Warnlog "Should get " & sResult & " but get " & GetClipboardText
-    end if
-
-    Call hCloseDocument
-
-endcase
-
-'-----------------------------------------------------------------
-
-testcase tHHConversion_21
-    warnlog( "#i111911# - Test is broken beyond repait, please rewrite" )
-    goto endsub
-
-
-  Dim  sTestFile  as String
-  Dim  sWord1      as String
-  Dim  sWord2      as String
-  Dim  sResult    as String
-  Dim  i          as Integer
-
-  sTestFile = Convertpath (gTesttoolpath + "writer\optional\input\hangulhanjaonversion\Replace.sxw")
-  sWord1     = "書翰"  :    sWord2     = "書翰"
-  sResult = "書翰자  와"
-  GetClipboardText = ""
-  
-
-
-
-  printlog "- Replace All -1"
-  '/// <b> Test 'Replace All' -1</b>
-  '/// <b> replace list will be active for the office session  </b>
-
-  Call hNewDocument
-
-  '/// Open a test file , which includes some Korean chacters
-   hFileOpenLocally( sTestFile )
-   Call wTypeKeys "<Home>"
-
-  '/// Tools / HangulHanjaConversion , select a word in selection,
-  '/// + press 'always replace' , then press Replace button
-   ToolsLanguageHangulHanjaConversion
-   Kontext "HangulHanjaConversion"
-    try
-        Suggestions.Select   sWord1
-    catch
-        Warnlog "No suggestion made in Hangul/Hanja converter"
-        HangulHanjaConversion.Close
-        Call hCloseDocument
-        goto endsub
-    endcatch
-
-    Sleep 2
-    AlwaysReplace.Click
-    Sleep 1
-    For i = 1 to 2
-        if NOT HangulHanjaConversion.Exists then
-            Exit for
-        end if
-        ReplaceBtn.Click
-        Sleep 1
-    next i
-
-    '/// Check if the result is right
-    Call wTypeKeys "<Home>"
-    Call wTypeKeys "<Shift End>"
-    EditCopy
-    Sleep 1
-    if GetClipboardText <> sResult then
-        Warnlog "1st:Should get " & sResult & " but get " & GetClipboardText
-    end if
-
-    '/// Close the file , so far , there is still a StarOffice session
-    Call hCloseDocument
-
-    Call hNewDocument
-
-    '/// Reopen this test file
-    hFileOpenLocally( sTestFile )
-    Call wTypeKeys "<Home>"
-
-    '/// Tools / HangulHanjaConversion
-    ToolsLanguageHangulHanjaConversion
-    Kontext "HangulHanjaConversion"
-    if Word.GetText <> sWord2 then
-        Warnlog "#i39308# Should get " & sWord2 & " but get " & Word.GetText
-        HangulHanjaConversion.Close
-        Call hCloseDocument
-        goto endsub
-    end if
-    For i = 1 to 2
-        if NOT HangulHanjaConversion.Exists then
-            Exit for
-        end if
-        ReplaceBtn.Click
-        Sleep 1
-    next i
-
-    '/// Check if the result is right
-    Call wTypeKeys "<Home>"
-    Call wTypeKeys "<Shift End>"
-    GetClipboardText = ""
-    EditCopy
-    Sleep 1
-    if GetClipboardText <> sResult then
-        Warnlog "2nd:Should get " & sResult & " but get " & GetClipboardText
-    end if
-    
-    Call hCloseDocument
-    
-endcase
-
-'-----------------------------------------------------------------
-
-testcase tHHConversion_22
-    warnlog( "#i111911# - Test is broken beyond repait, please rewrite" )
-    goto endsub
-
-
-    Dim  sTestFile  as String
-    Dim  i          as Integer
-
-    sTestFile = Convertpath (gTesttoolpath + "writer\optional\input\hangulhanjaonversion\Replace.sxw")
-    GetClipboardText = ""
-
-    printlog "- Replace All -2"
-    '/// <b> Test 'Replace All' -2</b>
-    '/// <b> replace list will NOT be active  when office session is deleted </b>
-
-    Call hNewDocument
-
-    '/// Open a test file , which includes some Korean chacters
-    hFileOpenLocally( sTestFile )
-    Call wTypeKeys "<Home>"
-
-    '/// Tools / HangulHanjaConversion , select a word in selection,
-    '/// + press 'always replace' , then press Replace button
-    ToolsLanguageHangulHanjaConversion
-    Kontext "HangulHanjaConversion"
-    try
-        Suggestions.Select 1
-    catch
-        Warnlog "No suggestion made in Hangul/Hanja converter"
-        HangulHanjaConversion.Close
-        Call hCloseDocument
-        goto endsub
-    endcatch
-    
-    Sleep 1
-    AlwaysReplace.Click
-    if HangulHanjaConversion.Exists then HangulHanjaConversion.Close
-
-    '/// Close all documents
-    For i = 1 to GetDocumentCount - 1
-        Call hCloseDocument
-    next i
-
-    '/// Restart the office
-    Call hStartTheOffice
-    Call hNewDocument
-  	'/// Reopen this test file
-   	hFileOpenLocally( sTestFile )
-   	Call wTypeKeys "<Home>"
-
-	'/// Tools / HangulHanjaConversion
-    ToolsLanguageHangulHanjaConversion
-    Kontext "HangulHanjaConversion"
-	if HangulHanjaConversion.Exists then
-	   	HangulHanjaConversion.Close
-	else
-		Warnlog "Replace list is active after office-restart"	
-	end if
-
-    Call hCloseDocument
-
-endcase
-
-'-----------------------------------------------------------------
-
-testcase tHHConversion_23
-    warnlog( "#i111911# - Test is broken beyond repait, please rewrite" )
-    goto endsub
-
-
-    Dim  sTestFile  as String
-    Dim  sWord      as String
-    Dim  sResult    as String
-    Dim  i          as Integer
-    
-    sTestFile = Convertpath (gTesttoolpath + "writer\optional\input\hangulhanjaonversion\replaceAll.sxw")
-	sResult = "은력銀河"
-    GetClipboardText = ""
-    
-    printlog "- Replace All -3"
-    '/// <b> Test 'Replace All' -3 </b>
-    '/// <b> Replacing AF must not lead to replace the AF within CAFE </b>
-    
-    Call hNewDocument
-    
-    '/// Open a test file , which includes some Korean chacters
-    hFileOpenLocally( sTestFile )
-    Call wTypeKeys "<Home>"
-
-    '/// Tools / HangulHanjaConversion , select a word in selection,
-    '/// + press 'always replace' , then press Replace button
-    ToolsLanguageHangulHanjaConversion
-    Kontext "HangulHanjaConversion"
-	for i = 1 to 2
-	    if ReplaceBtn.IsEnabled then    
-		    try
- 	  	 	    Suggestions.Select 1
-		    catch
-    		    Warnlog "No suggestion made in Hangul/Hanja converter"
-        		HangulHanjaConversion.Close
-		        Call hCloseDocument
-    		    goto endsub
-	    	endcatch
-		else
-			Ignore.Click
-		end if
-	next i
-    Sleep 1
-    AlwaysReplace.Click
-    Sleep 1
-    For i = 1 to 2
-        if NOT HangulHanjaConversion.Exists then
-            Exit for
-        end if
-        ReplaceBtn.Click
-        Sleep 1
-    next i
-
-    '/// Check if the result is right
-    Call wTypeKeys "<Home>"
-    Call wTypeKeys "<Shift End>"
-    EditCopy
-    if GetClipboardText <> sResult then
-        Warnlog "Should get " & sResult & " but get " & GetClipboardText
-    end if
-
-    Call hCloseDocument
-
-endcase
-
-'-----------------------------------------------------------------
-
-testcase tHHConversion_24
-    warnlog( "#i111911# - Test is broken beyond repait, please rewrite" )
-    goto endsub
-
-
-  Dim  sTestFile  as String
-  Dim  sResult    as String
-  Dim  i          as Integer
-
-  sTestFile = Convertpath (gTesttoolpath + "writer\optional\input\hangulhanjaonversion\replaceAll.sxw")
-  sResult   = "垠力垠下"
-  GetClipboardText = ""
-
-  printlog "- Replace by character -1"
-  '/// <b> Test 'Replace by character' -1 </b>
-
-  Call hNewDocument
-
-  '/// Open a test file , which includes some Korean chacters
-   hFileOpenLocally( sTestFile )
-   Call wTypeKeys "<Home>"
-
-  '/// Tools / HangulHanjaConversion , the default for 'Replace by character'
-  '/// + is OFF . Check 'Replace by character' , then press Replace button
-   ToolsLanguageHangulHanjaConversion
-   Kontext "HangulHanjaConversion"
-     if ReplaceByCharacter.IsChecked = TRUE then
-         Warnlog "The default for 'Replace By Character' should be OFF !"
-     end if
-     ReplaceByCharacter.Check
-     Sleep 1
-     For i = 1 to 4
-         if NOT HangulHanjaConversion.Exists then
-             Exit for
-         end if
-         ReplaceBtn.Click
-         Sleep 1
-     next i
-
-  '/// Check if the result is right
-   Call wTypeKeys "<Home>"
-   Call wTypeKeys "<Shift End>"
-   EditCopy
-   if GetClipboardText <> sResult then
-       Warnlog "Should get " & sResult & " but get " & GetClipboardText
-   end if
-
-  Call hCloseDocument
-
-endcase
-
-'-----------------------------------------------------------------
-
-testcase tHHConversion_25
-    warnlog( "#i111911# - Test is broken beyond repait, please rewrite" )
-    goto endsub
-
-
-  Dim  sTestFile   as String
-  Dim  sResult     as String
-  Dim  i           as Integer
-
-  sTestFile    = Convertpath (gTesttoolpath + "writer\optional\input\hangulhanjaonversion\alwayIgnore.sxw")
-  sResult      = "山하  황하 상山하乡   山하"
-  GetClipboardText = ""
-
-  printlog "- Replace by character -2"
-  '/// <b> Test 'Replace by character' -2 </b>
-  '/// <b> Test Always Ignore when 'Replace by character' is checked </b>
-
-  Call hNewDocument
-
-  '/// Open a test file , which includes some Chinese chacters =>.
-  '/// + 山下  上山下乡   山下
-   hFileOpenLocally( sTestFile )
-   Call wTypeKeys "<Home>"
-
-  '/// Tools / HangulHanjaConversion , Check 'Replace by character' ,
-  '/// + press Always Ignore ,  then press Replace
-   ToolsLanguageHangulHanjaConversion
-   Kontext "HangulHanjaConversion"
-     ReplaceByCharacter.Check
-     Sleep 1
-     AlwaysIgnore.Click
-     Sleep 1
-     For i = 1 to 10
-         if NOT HangulHanjaConversion.Exists then
-             Exit for
-         end if
-         ReplaceBtn.Click
-         Sleep 1
-     next i
-
-  '/// The result should be only 黄河 and 上山下 are converted
-   Call wTypeKeys "<Home>"
-   Call wTypeKeys "<Shift End>"
-   EditCopy
-   if GetClipboardText <> sResult then
-       Warnlog "Should get " & sResult & " but get " & GetClipboardText
-   end if
-
-  '/// Close this active document
-  Call hCloseDocument
-
- 'The purpose is to delete Office session
-  try
-      Call hCloseDocument
-      Call hCloseDocument
-  catch
-  endcatch
-  Sleep 2
-
-endcase
-
-'-----------------------------------------------------------------
-
-testcase tHHConversion_26
-    warnlog( "#i111911# - Test is broken beyond repait, please rewrite" )
-    goto endsub
-
-
-  Dim  sTestFile  as String
-  Dim  sWord      as String
-  Dim  sResult    as String
-  Dim  i          as Integer
-
-  sTestFile = Convertpath (gTesttoolpath + "writer\optional\input\hangulhanjaonversion\replaceAll.sxw")
-  sWord     = "恩"
-  sResult   = "恩力恩下"
-  GetClipboardText = ""
-
-  printlog "- Replace by character -3"
-  '/// <b> Test 'Replace by character' -3 </b>
-  '/// <b> Test Always Replace when 'Replace by character' is checked </b>
-
-  Call hNewDocument
-
-  '/// Open a test file , which includes some Korean chacters
-   hFileOpenLocally( sTestFile )
-   Call wTypeKeys "<Home>"
-
-  '/// Tools / HangulHanjaConversion ,  Check 'Replace by character' ,
-  '/// + select a word in selection, press 'always replace' ,
-  '/// + then press Replace button
-   ToolsLanguageHangulHanjaConversion
-   Kontext "HangulHanjaConversion"
-     ReplaceByCharacter.Check
-     Sleep 1
-     Grid.Typekeys "<Right>"
-     Sleep 1
-     AlwaysReplace.Click
-     Sleep 1
-     For i = 1 to 4
-         if NOT HangulHanjaConversion.Exists then
-             Exit for
-         end if
-         ReplaceBtn.Click
-         Sleep 1
-     next i
-
-  '/// Check if the result is right
-   Call wTypeKeys "<Home>"
-   Call wTypeKeys "<Shift End>"
-   EditCopy
-   if GetClipboardText <> sResult then
-       Warnlog "Should get " & sResult & " but get " & GetClipboardText
-   end if
-
-  Call hCloseDocument
-
- 'Close all Office session
-  try
-      Call hCloseDocument
-      Call hCloseDocument
-  catch
-  endcatch
-
-endcase
-
-'-----------------------------------------------------------------
-
diff --git a/testautomation/writer/optional/includes/hangulhanjaonversion/hhConversion3.inc b/testautomation/writer/optional/includes/hangulhanjaonversion/hhConversion3.inc
deleted file mode 100644
index e7b89b0accf0..000000000000
--- a/testautomation/writer/optional/includes/hangulhanjaonversion/hhConversion3.inc
+++ /dev/null
@@ -1,1022 +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 : helge.delfs@oracle.com
-'*
-'* short description : Test of Hangul/Hanja Conversion - 3
-'*
-'\***********************************************************************
-
-testcase tHHOptions_1
-    warnlog( "#i111911# - Test is broken beyond repait, please rewrite" )
-    goto endsub
-
-
-  Dim  sTestFile  as String
-
-  sTestFile = Convertpath (gTesttoolpath + "writer\optional\input\hangulhanjaonversion\hangul.sxw")
-
-  printlog "- User defined dictionaries"
-  '/// <b> User defined dictionaries </b>
-
-  Call hNewDocument
-
-  '/// Open a test file , which includes some
-  '/// + Korean chacters and chinese character
-   hFileOpenLocally( sTestFile )
-
-   Call wTypeKeys "<MOD1 Home>"
-
-  '/// Tools / HangulHanjaConversion , Press Options button ,
-  '/// + there should be no entries in User defined dictionaries
-   ToolsLanguageHangulHanjaConversion : WaitSlot
-   Kontext "HangulHanjaConversion"
-
-     Options.Click
-     Kontext "HangulHanjaOptions"
-       if UserDefineDictionary.GetItemCount <> 0 then
-           Warnlog "With a standard installation the will be no entry here !"
-       end if
-     HangulHanjaOptions.Cancel
-
-   Kontext "HangulHanjaConversion"
-   HangulHanjaConversion.Close
-
-  Call hCloseDocument
-
-endcase
-
-'-----------------------------------------------------------------
-
-testcase tHHOptions_2
-    warnlog( "#i111911# - Test is broken beyond repait, please rewrite" )
-    goto endsub
-
-
-  Dim  sTestFile        as String
-  Dim  sDictionaryName1 as String
-  Dim  sDictionaryName2 as String
-
-  sTestFile = Convertpath (gTesttoolpath + "writer\optional\input\hangulhanjaonversion\hangul.sxw")
-  sDictionaryName1 = "myDictionary1"
-  sDictionaryName2 = "myDictionary2"
-
-  printlog "- Options - New -1"
-  '/// <b> Options - New (more than 2 dictionaries) </b>
-
-  Call hNewDocument
-
-  '/// Open a test file , which includes some
-  '/// + Korean chacters and chinese character
-   hFileOpenLocally( sTestFile )
-   Call wTypeKeys "<MOD1 Home>"
-
-  '/// Tools / HangulHanjaConversion , Press Options button ,
-  '/// + then press new button , enter 1 new dictionar name ,
-  '/// + close the new dictionary dialog , and add another new
-  '/// + dictionary name
-   ToolsLanguageHangulHanjaConversion: WaitSlot
-   Kontext "HangulHanjaConversion"
-
-     Options.Click
-     Kontext "HangulHanjaOptions"
-       NewDictionary.Click
-       Kontext "HangulHanjaNewDictionary"
-       if NOT HangulHanjaNewDictionary.Exists then
-           Warnlog "The window isn't up!"
-           Kontext "HangulHanjaOptions"
-           goto NOTest
-       end if
-       DictionaryName.SetText sDictionaryName1
-       HangulHanjaNewDictionary.OK
-
-     Kontext "HangulHanjaOptions"
-       NewDictionary.Click
-       Kontext "HangulHanjaNewDictionary"
-       DictionaryName.SetText sDictionaryName2
-       HangulHanjaNewDictionary.OK
-
-    '/// Test if the new dictionaries' name exist and are checked
-     Kontext "HangulHanjaOptions"
-       UserDefineDictionary.typekeys "<Home>"
-       if UserDefineDictionary.GetSelText <> sDictionaryName1 then
-           Warnlog "The dictionary1 name should be " & sDictionaryName & " but get " & UserDefineDictionary.GetSelText
-       end if
-       if UserDefineDictionary.IsChecked <> TRUE then
-           Warnlog "The dictionary1 entry should be checked!"
-       end if
-
-       UserDefineDictionary.typekeys "<Down>"
-       if UserDefineDictionary.GetSelText <> sDictionaryName2 then
-           Warnlog "The dictionary2 name should be " & sDictionaryName2 & " but get " & UserDefineDictionary.GetSelText
-       end if
-       if UserDefineDictionary.IsChecked <> TRUE then
-           Warnlog "The dictionary2 entry should be checked!"
-       end if
-
-      'remove the dictionary you just insert .
-       UserDefineDictionary.typekeys "<Home>"
-       DeleteDictionary.Click
-       Sleep 1
-       DeleteDictionary.Click
-       Sleep 1
-NOTest:
-     HangulHanjaOptions.Cancel
-
-   Kontext "HangulHanjaConversion"
-   HangulHanjaConversion.Close
-
-  Call hCloseDocument
-
-endcase
-
-'-----------------------------------------------------------------
-
-testcase tHHOptions_3
-    warnlog( "#i111911# - Test is broken beyond repait, please rewrite" )
-    goto endsub
-
-
-  Dim  sTestFile       as String
-  Dim  sDictionaryName as String
-
-  sTestFile = Convertpath (gTesttoolpath + "writer\optional\input\hangulhanjaonversion\hangul.sxw")
-  sDictionaryName = "myDictionary"
-
-  printlog "- Options - New -2"
-  '/// <b> Options - New (duplicate dictionaries) </b>
-
-  Call hNewDocument
-
-  '/// Open a test file , which includes some
-  '/// + Korean chacters and chinese characters
-   hFileOpenLocally( sTestFile )
-   Call wTypeKeys "<MOD1 Home>"
-
-  '/// Tools / HangulHanjaConversion , Press Options button ,
-  '/// + then press new button , enter 1 new dictionary name ,
-  '/// + close the new dictionary dialog , and add this dictionary again
-  '/// + there should be a error message dialog pop up
-   ToolsLanguageHangulHanjaConversion
-   Kontext "HangulHanjaConversion"
-
-     Options.Click
-     Kontext "HangulHanjaOptions"
-       NewDictionary.Click
-       Kontext "HangulHanjaNewDictionary"
-       DictionaryName.SetText sDictionaryName
-       HangulHanjaNewDictionary.OK
-
-     Kontext "HangulHanjaOptions"
-       NewDictionary.Click
-       Kontext "HangulHanjaNewDictionary"
-       DictionaryName.SetText sDictionaryName
-       HangulHanjaNewDictionary.OK
-       Kontext "Active"
-         if Active.Exists then
-             if Active.GetRT = 304 then
-                 Active.Ok
-             end if
-         else
-             QAErrorLog "#i39920# The warning message box doesn't pup up ! "
-         end if
-     Kontext "HangulHanjaOptions"
-      'remove the dictionary you just insert .
-       UserDefineDictionary.typekeys "<Home>"
-       DeleteDictionary.Click
-       Sleep 1
-     HangulHanjaOptions.Cancel
-
-   Kontext "HangulHanjaConversion"
-   HangulHanjaConversion.Close
-
-  Call hCloseDocument
-
-endcase
-
-'-----------------------------------------------------------------
-
-testcase tHHOptions_4
-warnlog( "#i111911# - Test is broken beyond repait, please rewrite" )
-    goto endsub
-
-
-
-  Dim  sTestFile       as String
-  Dim  sDictionaryName as String
-
-  sTestFile = Convertpath (gTesttoolpath + "writer\optional\input\hangulhanjaonversion\hangul.sxw")
-  sDictionaryName = "myDictionary"
-
-  printlog "- Options - New -3"
-  '/// <b> Options - New (checkbox) </b>
-
-  Call hNewDocument
-
-  '/// Open a test file , which includes some
-  '/// + Korean chacters and chinese character
-   hFileOpenLocally( sTestFile )
-   Call wTypeKeys "<MOD1 Home>"
-
-  '/// Tools / HangulHanjaConversion , Press Options button ,
-  '/// + then press new button , enter 1 new dictionar name ,
-  '/// + close the new dictionary dialog
-   ToolsLanguageHangulHanjaConversion
-   Kontext "HangulHanjaConversion"
-
-     Options.Click
-     Kontext "HangulHanjaOptions"
-       NewDictionary.Click
-       Kontext "HangulHanjaNewDictionary"
-       DictionaryName.SetText sDictionaryName
-       HangulHanjaNewDictionary.OK
-
-     Kontext "HangulHanjaOptions"
-
-    '/// Uncheck the new dictionary and close the dialog
-     Kontext "HangulHanjaOptions"
-       UserDefineDictionary.typekeys "<Home>"
-       UserDefineDictionary.UnCheck
-     HangulHanjaOptions.OK
-
-  '/// Press options button , check if the dictionary isn't checked
-   Kontext "HangulHanjaConversion"
-     Options.Click
-     Kontext "HangulHanjaOptions"
-       if UserDefineDictionary.IsChecked = TRUE then
-           Warnlog "The dictionary entry should NOT be checked!"
-       end if
-
-      'remove the dictionary you just insert .
-       DeleteDictionary.Click
-       Sleep 1
-
-     HangulHanjaOptions.Cancel
-
-   Kontext "HangulHanjaConversion"
-   HangulHanjaConversion.Close
-
-  Call hCloseDocument
-
-endcase
-
-'-----------------------------------------------------------------
-
-testcase tHHOptions_5
-    warnlog( "#i111911# - Test is broken beyond repait, please rewrite" )
-    goto endsub
-
-
-  Dim  sTestFile        as String
-  Dim  sDictionaryName1 as String
-  Dim  sDictionaryName2 as String
-
-  sTestFile = Convertpath (gTesttoolpath + "writer\optional\input\hangulhanjaonversion\hangul.sxw")
-  sDictionaryName1 = "nDictionary1"
-  sDictionaryName2 = "mDictionary2"
-
-  printlog "- Options - Edit (Book)"
-  '/// <b> Options - Edit </b>
-
-  Call hNewDocument
-
-  '/// Open a test file , which includes some
-  '/// + Korean chacters and chinese character
-   hFileOpenLocally( sTestFile )
-   Call wTypeKeys "<MOD1 Home>"
-
-  '/// Tools / HangulHanjaConversion , Press Options button ,
-  '/// + then press new button , insert 2 new dictionaries
-   ToolsLanguageHangulHanjaConversion
-   Kontext "HangulHanjaConversion"
-
-     Options.Click
-     Kontext "HangulHanjaOptions"
-       NewDictionary.Click
-       Kontext "HangulHanjaNewDictionary"
-       DictionaryName.SetText sDictionaryName1
-       HangulHanjaNewDictionary.OK
-
-     Kontext "HangulHanjaOptions"
-       NewDictionary.Click
-       Kontext "HangulHanjaNewDictionary"
-       DictionaryName.SetText sDictionaryName2
-       HangulHanjaNewDictionary.OK
-
-    '/// Press Edit button
-     Kontext "HangulHanjaOptions"
-       EditDictionary.Click
-       Kontext "HangulHanjaEditDictionary"
-         if Book.GetItemText(1) <> sDictionaryName1 then
-             Warnlog "The dictionary name should be " & sDictionaryName1 & " but get " & Book.GetItemText(1)
-         end if
-         if Book.GetItemText(2) <> sDictionaryName2 then
-             Warnlog "The dictionary name should be " & sDictionaryName2 & " but get " & Book.GetItemText(2)
-         end if
-       HangulHanjaEditDictionary.Close
-
-     Kontext "HangulHanjaOptions"
-      'remove the dictionary you just insert .
-       DeleteDictionary.Click
-       Sleep 1
-       DeleteDictionary.Click
-       Sleep 1
-     HangulHanjaOptions.Cancel
-
-   Kontext "HangulHanjaConversion"
-   HangulHanjaConversion.Close
-
-  Call hCloseDocument
-
-endcase
-
-'-----------------------------------------------------------------
-
-testcase tHHOptions_6
-    warnlog( "#i111911# - Test is broken beyond repait, please rewrite" )
-    goto endsub
-
-
-  Dim  sTestFile                      as String
-  Dim  sDictionaryName                as String
-  Dim  sHangul1 , sHanja1a , sHanja1b as String
-  Dim  sHangul2 , sHanja2a , sHanja2b as String
-
-  sTestFile = Convertpath (gTesttoolpath + "writer\optional\input\hangulhanjaonversion\hangul.sxw")
-  sDictionaryName = "myDictionary"
-  sHangul1 = "에" : sHanja1a = "里" : sHanja1b = "梨"
-  sHangul2 = "를" : sHanja2a = "力" : sHanja2b = "求"
-
-  printlog "- Options - Edit (Original) -1"
-  '/// <b> Options - Edit (Original) -2 </b>
-  '/// <b> insert 2 entries in original, </b>
-  '/// <b> check if the result is correct when inputing </b>
-  '/// <b> the hangul character in original </b>
-
-  Call hNewDocument
-
-  '/// Open a test file , which includes some
-  '/// + Korean chacters and chinese character
-   hFileOpenLocally( sTestFile )
-   Call wTypeKeys "<MOD1 Home>"
-
-  '/// Tools / HangulHanjaConversion , Press Options button ,
-  '/// + then press new button , insert 1 new dictionary
-   ToolsLanguageHangulHanjaConversion
-   Kontext "HangulHanjaConversion"
-
-     Options.Click
-     Kontext "HangulHanjaOptions"
-       NewDictionary.Click
-       Kontext "HangulHanjaNewDictionary"
-       DictionaryName.SetText sDictionaryName
-       HangulHanjaNewDictionary.OK
-
-    '/// Press Edit button
-     Kontext "HangulHanjaOptions"
-       EditDictionary.Click
-       Kontext "HangulHanjaEditDictionary"
-        '/// Test new button . It should NOT active when no entry in suggestion
-         try
-             NewEntry.Click
-             Warnlog "New button should NOT be active when no entry in suggestion !"
-         catch
-         endcatch
-
-        '/// Input 1 Hangul character in original
-        '/// + and 2 Hanja character in suggestion , then click new
-         Original.SetText    sHangul1
-         Sleep 1
-         Suggestion1.SetText sHanja1a
-         Sleep 1
-         Suggestion2.SetText sHanja1b
-         Sleep 1
-         NewEntry.Click
-         Sleep 1
-        '/// Input another Hangul character in original
-        '/// + and 2 Hanja character in suggestion , then click new
-         Original.SetText    sHangul2
-         Sleep 1
-         Suggestion1.SetText sHanja2a
-         Sleep 1
-         Suggestion2.SetText sHanja2b
-         Sleep 1
-         NewEntry.Click
-         Sleep 1
-
-        '/// Input 1st Hangul character in original ,
-        '/// + check if 2 Hanja character are in suggestion
-         Original.SetText sHangul1
-         Sleep 1
-         if Suggestion1.GetText <> sHanja1a then
-             Warnlog "Don't get " & sHanja1a
-         end if
-         if Suggestion2.GetText <> sHanja1b then
-             Warnlog "Don't get " & sHanja1b
-         end if
-
-        '/// Input 2nd Hangul character in original ,
-        '/// + check if 2 Hanja character are in suggestion
-         Original.SetText sHangul2
-         Sleep 1
-         if Suggestion1.GetText <> sHanja2a then
-             Warnlog "Don't get " & sHanja2a
-         end if
-         if Suggestion2.GetText <> sHanja2b then
-             Warnlog "Don't get " & sHanja2b
-         end if
-
-       HangulHanjaEditDictionary.Close
-
-     Kontext "HangulHanjaOptions"
-      'remove the dictionary you just insert .
-       DeleteDictionary.Click
-       Sleep 1
-     HangulHanjaOptions.Cancel
-
-   Kontext "HangulHanjaConversion"
-   HangulHanjaConversion.Close
-
-  Call hCloseDocument
-
-endcase
-
-'-----------------------------------------------------------------
-
-testcase tHHOptions_7
-    warnlog( "#i111911# - Test is broken beyond repait, please rewrite" )
-    goto endsub
-
-
-  Dim  sTestFile                      as String
-  Dim  sDictionaryName                as String
-  Dim  sHangul1 , sHanja1a , sHanja1b as String
-  Dim  sHangul2 , sHanja2a , sHanja2b as String
-
-  sTestFile = Convertpath (gTesttoolpath + "writer\optional\input\hangulhanjaonversion\hangul.sxw")
-  sDictionaryName = "myDictionary"
-  sHangul1 = "에" : sHanja1a = "里" : sHanja1b = "梨"
-  sHangul2 = "를" : sHanja2a = "力" : sHanja2b = "求"
-
-  printlog "- Options - Edit (Original) -2"
-  '/// <b> Options - Edit (Original) -2 </b>
-  '/// <b> insert 2 entries in original, </b>
-  '/// <b> check if the result is correct when selecting </b>
-  '/// <b> the hangul character in original </b>
-
-  Call hNewDocument
-
-  '/// Open a test file , which includes some
-  '/// + Korean chacters and chinese character
-   hFileOpenLocally( sTestFile )
-   Call wTypeKeys "<MOD1 Home>"
-
-  '/// Tools / HangulHanjaConversion , Press Options button ,
-  '/// + then press new button , insert 1 new dictionary
-   ToolsLanguageHangulHanjaConversion
-   Kontext "HangulHanjaConversion"
-
-     Options.Click
-     Kontext "HangulHanjaOptions"
-       NewDictionary.Click
-       Kontext "HangulHanjaNewDictionary"
-       DictionaryName.SetText sDictionaryName
-       HangulHanjaNewDictionary.OK
-
-    '/// Press Edit button
-     Kontext "HangulHanjaOptions"
-       EditDictionary.Click
-       Kontext "HangulHanjaEditDictionary"
-
-        '/// Input 1 Hangul character in original
-        '/// + and 2 Hanja character in suggestion , then click new
-         Original.SetText    sHangul1
-         Sleep 1
-         Suggestion1.SetText sHanja1a
-         Sleep 1
-         Suggestion2.SetText sHanja1b
-         Sleep 1
-         NewEntry.Click
-         Sleep 1
-        '/// Input another Hangul character in original
-        '/// + and 2 Hanja character in suggestion , then click new
-         Original.SetText    sHangul2
-         Sleep 1
-         Suggestion1.SetText sHanja2a
-         Sleep 1
-         Suggestion2.SetText sHanja2b
-         Sleep 1
-         NewEntry.Click
-         Sleep 1
-
-         if Original.GetItemCount <> 2 then
-             Warnlog "#i39936# There should be only 2 items , but get " & Original.GetItemCount
-             Goto NoTest
-         end if
-
-        '/// Select 1st Hangul character in original ,
-        '/// + check if 2 Hanja character are in suggestion
-         Original.Select sHangul1
-         Sleep 1
-         if Suggestion1.GetText <> sHanja1a then
-             Warnlog "Don't get " & sHanja1a
-         end if
-         if Suggestion2.GetText <> sHanja1b then
-             Warnlog "Don't get " & sHanja1b
-         end if
-
-        '/// Input 2nd Hangul character in original ,
-        '/// + check if 2 Hanja character are in suggestion
-         Original.Select sHangul2
-         Sleep 1
-         if Suggestion1.GetText <> sHanja2a then
-             Warnlog "Don't get " & sHanja2a
-         end if
-         if Suggestion2.GetText <> sHanja2b then
-             Warnlog "Don't get " & sHanja2b
-         end if
-NoTest:
-       HangulHanjaEditDictionary.Close
-
-     Kontext "HangulHanjaOptions"
-      'remove the dictionary you just insert .
-       DeleteDictionary.Click
-       Sleep 1
-     HangulHanjaOptions.Cancel
-
-   Kontext "HangulHanjaConversion"
-   HangulHanjaConversion.Close
-
-  Call hCloseDocument
-
-endcase
-
-'-----------------------------------------------------------------
-
-testcase tHHOptions_8
-    warnlog( "#i111911# - Test is broken beyond repait, please rewrite" )
-    goto endsub
-
-
-  Dim  sTestFile           as String
-  Dim  sDictionaryName     as String
-  Dim  sHangul1 , sHanja1  as String
-  Dim  sHangul2 , sHanja2  as String
-
-  sTestFile = Convertpath (gTesttoolpath + "writer\optional\input\hangulhanjaonversion\hangul.sxw")
-  sDictionaryName = "myDictionary"
-  sHangul1 = "에" : sHanja1 = "里"
-  sHangul2 = "를" : sHanja2 = "力"
-
-  printlog "- Options - Edit (Original) -3"
-  '/// <b> Options - Edit (Original)-3 </b>
-  '/// <b> Test delele in Edit custom Dictionary dialog </b>
-
-  Call hNewDocument
-
-  '/// Open a test file , which includes some
-  '/// + Korean chacters and chinese character
-   hFileOpenLocally( sTestFile )
-   Call wTypeKeys "<MOD1 Home>"
-
-  '/// Tools / HangulHanjaConversion , Press Options button ,
-  '/// + then press new button , insert 1 new dictionary
-   ToolsLanguageHangulHanjaConversion
-   Kontext "HangulHanjaConversion"
-
-     Options.Click
-     Kontext "HangulHanjaOptions"
-       NewDictionary.Click
-       Kontext "HangulHanjaNewDictionary"
-       DictionaryName.SetText sDictionaryName
-       HangulHanjaNewDictionary.OK
-
-    '/// Press Edit button
-     Kontext "HangulHanjaOptions"
-       EditDictionary.Click
-       Kontext "HangulHanjaEditDictionary"
-
-        '/// Insert 2 entries
-         Original.SetText sHangul1
-         Sleep 1
-         Suggestion1.SetText sHanja1
-         Sleep 1
-         NewEntry.Click
-         Sleep 1
-         Original.SetText sHangul2
-         Sleep 1
-         Suggestion1.SetText sHanja2
-         Sleep 1
-         NewEntry.Click
-
-        '/// Select 2nd Hangul character in original
-         Original.Select sHangul2
-         Sleep 1
-
-        '/// Press Delete button
-         DeleteEntry.Click
-         Sleep 1
-
-        '/// Check if 2nd entry is really deleted
-         if Original.GetItemCount <> 1 then
-             Warnlog "There should be only 1 item , but get " & Original.GetItemCount
-         end if
-
-         Original.SetText sHangul1
-         Sleep 1
-         if Suggestion1.GetText <> sHanja1 then
-             Warnlog "Don't get " & sHanja1
-         end if
-
-       HangulHanjaEditDictionary.Close
-
-     Kontext "HangulHanjaOptions"
-      'remove the dictionary you just insert .
-       DeleteDictionary.Click
-       Sleep 1
-     HangulHanjaOptions.Cancel
-
-   Kontext "HangulHanjaConversion"
-   HangulHanjaConversion.Close
-
-  Call hCloseDocument
-
-endcase
-
-'-----------------------------------------------------------------
-
-testcase tHHOptions_9
-    warnlog( "#i111911# - Test is broken beyond repait, please rewrite" )
-    goto endsub
-
-
-  Dim  sTestFile                     as String
-  Dim  sDictionaryName               as String
-  Dim  sHangul , sHanja1 , sHanja2   as String
-
-  sTestFile = Convertpath (gTesttoolpath + "writer\optional\input\hangulhanjaonversion\hangul.sxw")
-  sDictionaryName = "myDictionary"
-  sHangul = "에" : sHanja1 = "里" : sHanja2 = "力"
-
-  printlog "- Options - Edit (Original) -4"
-  '/// <b> Options - Edit (Original)-4 </b>
-  '/// <b> Add a suggestion </b>
-
-  Call hNewDocument
-
-  '/// Open a test file , which includes some
-  '/// + Korean chacters and chinese character
-   hFileOpenLocally( sTestFile )
-   Call wTypeKeys "<MOD1 Home>"
-
-  '/// Tools / HangulHanjaConversion , Press Options button ,
-  '/// + then press new button , insert 1 new dictionary
-   ToolsLanguageHangulHanjaConversion
-   Kontext "HangulHanjaConversion"
-
-     Options.Click
-     Kontext "HangulHanjaOptions"
-       NewDictionary.Click
-       Kontext "HangulHanjaNewDictionary"
-       DictionaryName.SetText sDictionaryName
-       HangulHanjaNewDictionary.OK
-
-    '/// Press Edit button
-     Kontext "HangulHanjaOptions"
-       EditDictionary.Click
-       Kontext "HangulHanjaEditDictionary"
-
-        '/// Insert 1 original and 1 suggestion
-         Original.SetText sHangul
-         Sleep 1
-         Suggestion1.SetText sHanja1
-         Sleep 1
-         NewEntry.Click
-         Sleep 1
-
-        '/// Input 1st Hangul character in original
-         Original.SetText sHangul
-         Sleep 1
-
-        '/// Add a new suggestion , and press NEW again
-         Suggestion2.SetText sHanja2
-         Sleep 1
-         NewEntry.Click
-         Sleep 1
-
-        '/// Check if 2nd entry is really added
-         Original.SetText sHangul
-         Sleep 1
-         if Suggestion1.GetText <> sHanja1 then
-             Warnlog "Don't get " & sHanja1
-         end if
-         if Suggestion2.GetText <> sHanja2 then
-             Warnlog "Don't get " & sHanja2
-         end if
-
-       HangulHanjaEditDictionary.Close
-
-     Kontext "HangulHanjaOptions"
-      'remove the dictionary you just insert .
-       DeleteDictionary.Click
-       Sleep 1
-     HangulHanjaOptions.Cancel
-
-   Kontext "HangulHanjaConversion"
-   HangulHanjaConversion.Close
-
-  Call hCloseDocument
-
-endcase
-
-'-----------------------------------------------------------------
-
-testcase tHHOptions_10
-    warnlog( "#i111911# - Test is broken beyond repait, please rewrite" )
-    goto endsub
-
-
-  Dim  sTestFile                     as String
-  Dim  sDictionaryName               as String
-  Dim  sHangul , sHanja1 , sHanja2   as String
-
-  sTestFile = Convertpath (gTesttoolpath + "writer\optional\input\hangulhanjaonversion\hangul.sxw")
-  sDictionaryName = "myDictionary"
-  sHangul = "에" : sHanja1 = "里" : sHanja2 = "力"
-
-  printlog "- Options - Edit (Original) -5"
-  '/// <b> Options - Edit (Original)-5 </b>
-  '/// <b> Delete a suggestion </b>
-
-  Call hNewDocument
-
-  '/// Open a test file , which includes some
-  '/// + Korean chacters and chinese character
-   hFileOpenLocally( sTestFile )
-   Call wTypeKeys "<MOD1 Home>"
-
-  '/// Tools / HangulHanjaConversion , Press Options button ,
-  '/// + then press new button , insert 1 new dictionary
-   ToolsLanguageHangulHanjaConversion
-   Kontext "HangulHanjaConversion"
-
-     Options.Click
-     Kontext "HangulHanjaOptions"
-       NewDictionary.Click
-       Kontext "HangulHanjaNewDictionary"
-       DictionaryName.SetText sDictionaryName
-       HangulHanjaNewDictionary.OK
-
-    '/// Press Edit button
-     Kontext "HangulHanjaOptions"
-       EditDictionary.Click
-       Kontext "HangulHanjaEditDictionary"
-
-        '/// Insert 1 original and 2 suggestions , click NEW
-         Original.SetText sHangul
-         Sleep 1
-         Suggestion1.SetText sHanja1
-         Sleep 1
-         Suggestion2.SetText sHanja2
-         Sleep 1
-         NewEntry.Click
-         Sleep 1
-
-        '/// Input 1st Hangul character in original
-         Original.SetText sHangul
-         Sleep 1
-
-        '/// Delete 2nd suggestion , and press NEW again
-         Suggestion2.SetText ""
-         Sleep 1
-         NewEntry.Click
-         Sleep 1
-
-        '/// Check if 2nd suggestion is really deleted
-         Original.SetText sHangul
-         Sleep 1
-         if Suggestion1.GetText <> sHanja1 then
-             Warnlog "Don't get " & sHanja1
-         end if
-         if Suggestion2.GetText <> "" then
-             Warnlog "#i39319# Something wrong in 2nd suggestion , get " & Suggestion2.GetText
-         end if
-
-       HangulHanjaEditDictionary.Close
-
-     Kontext "HangulHanjaOptions"
-      'remove the dictionary you just insert .
-       DeleteDictionary.Click
-       Sleep 1
-     HangulHanjaOptions.Cancel
-
-   Kontext "HangulHanjaConversion"
-   HangulHanjaConversion.Close
-
-  Call hCloseDocument
-
-endcase
-
-'-----------------------------------------------------------------
-
-testcase tHHOptions_11
-    warnlog( "#i111911# - Test is broken beyond repait, please rewrite" )
-    goto endsub
-
-
-  Dim  sTestFile                     as String
-  Dim  sDictionaryName               as String
-  Dim  sHangul , sHanja1 , sHanja2   as String
-
-  sTestFile = Convertpath (gTesttoolpath + "writer\optional\input\hangulhanjaonversion\hangul.sxw")
-  sDictionaryName = "myDictionary"
-  sHangul = "에" : sHanja1 = "里" : sHanja2 = "力"
-
-  printlog "- Options - Edit (Original) -6"
-  '/// <b> Options - Edit (Original)-6 </b>
-  '/// <b> Update a suggestion </b>
-
-  Call hNewDocument
-
-  '/// Open a test file , which includes some
-  '/// + Korean chacters and chinese character
-   hFileOpenLocally( sTestFile )
-   Call wTypeKeys "<MOD1 Home>"
-
-  '/// Tools / HangulHanjaConversion , Press Options button ,
-  '/// + then press new button , insert 1 new dictionary
-   ToolsLanguageHangulHanjaConversion
-   Kontext "HangulHanjaConversion"
-
-     Options.Click
-     Kontext "HangulHanjaOptions"
-       NewDictionary.Click
-       Kontext "HangulHanjaNewDictionary"
-       DictionaryName.SetText sDictionaryName
-       HangulHanjaNewDictionary.OK
-
-    '/// Press Edit button
-     Kontext "HangulHanjaOptions"
-       EditDictionary.Click
-       Kontext "HangulHanjaEditDictionary"
-
-        '/// Insert 1 original and 1 suggestion , click NEW
-         Original.SetText sHangul
-         Sleep 1
-         Suggestion1.SetText sHanja1
-         Sleep 1
-         NewEntry.Click
-         Sleep 1
-
-        '/// Input 1st Hangul character in original
-         Original.SetText sHangul
-         Sleep 1
-
-        '/// Update 1st suggestion , and press NEW again
-         Suggestion1.SetText sHanja2
-         Sleep 1
-         NewEntry.Click
-         Sleep 1
-
-        '/// Check if 1st suggestion is really updated
-         Original.SetText sHangul
-         Sleep 1
-         if Suggestion1.GetText <> sHanja2 then
-             Warnlog "#i39319# Don't get " & sHanja2 & " but get " & Suggestion1.GetText
-         end if
-
-       HangulHanjaEditDictionary.Close
-
-     Kontext "HangulHanjaOptions"
-      'remove the dictionary you just insert .
-       DeleteDictionary.Click
-       Sleep 1
-     HangulHanjaOptions.Cancel
-
-   Kontext "HangulHanjaConversion"
-   HangulHanjaConversion.Close
-
-  Call hCloseDocument
-
-endcase
-
-'-----------------------------------------------------------------
-
-testcase tHHOptions_12
-    warnlog( "#i111911# - Test is broken beyond repait, please rewrite" )
-    goto endsub
-
-
-  Dim  sTestFile             as String
-  Dim  sDictionaryName       as String
-  Dim  sHangul , sHanja      as String
-
-  sTestFile = Convertpath (gTesttoolpath + "writer\optional\input\hangulhanjaonversion\hangul.sxw")
-  sDictionaryName = "myDictionary"
-  sHangul = "에" : sHanja = "里力"
-
-  printlog "- Options - Edit (Original) -7"
-  '/// <b> Options - Edit (Original)-7 </b>
-  '/// <b> Original length isn't same as suggestion length </b>
-
-  Call hNewDocument
-
-  '/// Open a test file , which includes some
-  '/// + Korean chacters and chinese character
-   hFileOpenLocally( sTestFile )
-   Call wTypeKeys "<MOD1 Home>"
-
-  '/// Tools / HangulHanjaConversion , Press Options button ,
-  '/// + then press new button , insert 1 new dictionary
-   ToolsLanguageHangulHanjaConversion
-   Kontext "HangulHanjaConversion"
-
-     Options.Click
-     Kontext "HangulHanjaOptions"
-       NewDictionary.Click
-       Kontext "HangulHanjaNewDictionary"
-       DictionaryName.SetText sDictionaryName
-       HangulHanjaNewDictionary.OK
-
-    '/// Press Edit button
-     Kontext "HangulHanjaOptions"
-       EditDictionary.Click
-       Kontext "HangulHanjaEditDictionary"
-
-        '/// Insert 1 original and 1 suggestion which is 2
-        '/// + hanja character , click NEW
-         Original.SetText sHangul
-         Sleep 1
-         Suggestion1.SetText sHanja
-         Sleep 1
-         NewEntry.Click
-         Sleep 1
-
-        '/// Check if a warning message appears
-         Kontext "Active"
-         if Active.Exists then
-             if Active.GetRT = 304 then
-                 Active.Ok
-             else
-                Warnlog "The warning message box doesn't pop up ! "
-             end if
-         end if
-
-       Kontext "HangulHanjaEditDictionary"
-       HangulHanjaEditDictionary.Close
-
-     Kontext "HangulHanjaOptions"
-       EditDictionary.Click
-
-       Kontext "HangulHanjaEditDictionary"
-
-        '/// Check if the suggestion is added (should NOT)
-        '/// Input 1st Hangul character in original
-         Original.SetText sHangul
-         Sleep 1
-
-         if Suggestion1.GetText <> "" then
-             Warnlog "Should get nothing , but get " & Suggestion1.GetText
-         end if
-
-       HangulHanjaEditDictionary.Close
-
-     Kontext "HangulHanjaOptions"
-      'remove the dictionary you just insert .
-       DeleteDictionary.Click
-       Sleep 1
-     HangulHanjaOptions.Cancel
-
-   Kontext "HangulHanjaConversion"
-   HangulHanjaConversion.Close
-
-  Call hCloseDocument
-
-endcase
-
-'-----------------------------------------------------------------
-
diff --git a/testautomation/writer/optional/includes/hyphenation/w_hyphenation.inc b/testautomation/writer/optional/includes/hyphenation/w_hyphenation.inc
deleted file mode 100644
index 560265c301e8..000000000000
--- a/testautomation/writer/optional/includes/hyphenation/w_hyphenation.inc
+++ /dev/null
@@ -1,380 +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 : helge.delfs@oracle.com
-'*
-'* short description : hyphenation functionality test
-'*
-'************************************************************************
-'*
-' #1 tHyphenation_1
-' #1 tHyphenation_2
-' #1 tHyphenation_3
-' #1 tHyphenation_4
-'*
-'\***********************************************************************
-
-testcase tHyphenation_1
-
-	Dim testFile as String
-	Dim testWord as String
-	Dim PartOfTestWord as String
-	
-	testFile             =  "tHyphenation.odt"
-	testWord             =  "following"
-	PartOfTestWord  =  "fol"
-	
-	printlog "Test Hyphenation  using ctrl and -"
-	
-	printlog "open a test file"
-	hFileOpenLocally(  gTesttoolPath + "writer\optional\input\hyphenation\" + testFile )
-	
-		
-	' we must assure the word 'following' is the first word in second line
-	' otherwise the test will not work correctly	
-	if fPrepareHyphenationDocument(testWord) = false then
-		Warnlog "Unable to prepare document for hyphenation. Check testcase"
-		Call hCloseDocument
-	end if
-	
-	printlog "add '-' between 'fol' and 'lowing'"
-	printlog "+ check if fol in the end of the line"
-	
-	Call wTypeKeys "<Home>"
-	Call wTypeKeys "<Right>" , 3
-	Call wTypeKeys "<Mod1 SUBTRACT>"
-	Call wTypeKeys "<Mod1 Home>"
-	Call wTypeKeys "<End>"
-	Call wTypeKeys "<Delete>"
-	
-	Call wTypeKeys "<End><Left>"
-	Call wTypeKeys "<Mod1 Shift Left>"
-	EditCopy
-	
-	if GetClipboardText <> PartOfTestWord then
-	 	Warnlog "The hyphenation does NOT work ! Found '" & GetClipboardText & "' and not '" & PartOfTestWord & "'"
-	end if
-	
-	Call hCloseDocument
-
-endcase	
-
-'-------------------------------------------------------------------------
-
-testcase tHyphenation_2
-
-	Dim testFile as String
-	Dim testWord as String
-	Dim PartOfTestWord as String
-	
-	testFile       	=  "tHyphenation.odt"
-	testWord       	=  "following"
-	PartOfTestWord  =  "follow"
-	
-	printlog "Test Hyphenation using ctrl and -"
-	
-	printlog "open a test file"
-	hFileOpenLocally(  gTesttoolPath + "writer\optional\input\hyphenation\" + testFile )
-	
-		
-	' we must assure the word 'following' is the first word in second line
-	' otherwise the test will not work correctly	
-	if fPrepareHyphenationDocument(testWord) = false then
-		Warnlog "Unable to prepare document for hyphenation. Check testcase"
-		Call hCloseDocument
-	end if
-	
-	printlog "add '-' between 'follow' and 'ing'"
-	printlog "+ check if 'follow' in the end of the line"
-	
-	Call wTypeKeys "<Home>"
-	Call wTypeKeys "<Right>" , 6
-	Call wTypeKeys "<Mod1 SUBTRACT>"
-	Call wTypeKeys "<Mod1 Home>"
-	Call wTypeKeys "<End>"
-	if gPlatgroup = "unx" then
-		Call wTypeKeys "<Delete>", 6
-	else
-		Call wTypeKeys "<Delete>", 7
-	end if
-	
-	Call wTypeKeys "<End><Left>"
-	Call wTypeKeys "<Mod1 Shift Left>"
-	EditCopy
-	
-	if GetClipboardText <> PartOfTestWord then
-	 	Warnlog "The hyphenation does NOT work ! Found '" & GetClipboardText & "' and not '" & PartOfTestWord & "'"
-	end if
-	
-	Call hCloseDocument
-
-endcase	
-
-'-------------------------------------------------------------------------
-
-testcase tHyphenation_3
-
-	Dim testFile as String
-	Dim testWord as String
-	Dim firstPartOfTestWord as String
-	Dim secondPartOfTestWord as String
-	Dim testWordInHyphenationDlg as String
-	
-	testFile                 =  "tHyphenation.odt"
-	testWord                 =  "following"
-	testWordInHyphenationDlg =  "fol=low-ing"
-	firstPartOfTestWord      =  "fol"
-	secondPartOfTestWord     =  "follow"
-	
-	printlog "Test Hyphenation  using Tools/Hyphenation ,test like fol-lowing"
-	
-	printlog "open a test file"
-	hFileOpenLocally(  gTesttoolPath + "writer\optional\input\hyphenation\" + testFile )
-	
-
-	' we must assure the word 'following' is the first word in second line
-	' otherwise the test will not work correctly	
-	if fPrepareHyphenationDocument(testWord) = false then
-		Warnlog "Unable to prepare document for hyphenation. Check testcase"
-		Call hCloseDocument
-	end if
-	
-	Call wTypeKeys "<Mod1 Home>"
-	Call wTypeKeys "<End>"
-	if gPlatgroup = "unx" then
-		Call wTypeKeys "<Delete>", 6
-	else
-		Call wTypeKeys "<Delete>", 7
-	end if
-	
-	printlog "Tools/Hyphenation"
-	ToolsLanguageHyphenate
-	Kontext "Hyphenation"
-	
-	if Not Hyphenation.Exists then	
-		Warnlog "Unable to bring up Dialog 'Hyphenation'!"
-		Call hCloseDocument
-		goto endsub
-	end if
-	
-	printlog "check if get 'fol=low-ing'"
-	if Wort.Gettext <> testWordInHyphenationDlg then
-		Warnlog "Expected " & testWordInHyphenationDlg & " but found " & Wort.Gettext 
-		Hyphenation.Cancel
-		Call hCloseDocument
-		goto endsub
-	end if
-	
-	if NOT Vor.IsEnabled then
-		Warnlog "the 'Vor' button is Not enabled, or something wrong!"
-		Hyphenation.Cancel
-		Call hCloseDocument
-		goto endsub
-	end if
-	
-	printlog "add '-' between 'fol' and 'lowing' using left arrow key"
-	Vor.Click
-	Hyphenation.OK
-	
-	' Messagebox 'Start hypheantion from the beginning ?
-	Kontext "Active"
-	if Active.Exists then
-		if Active.GetRT = 304 then
-			try
-				Active.Yes
-			catch
-				Active.ok
-			endcatch
-		else
-			Warnlog "No messagebox asking for hyphenate at beginning of document"
-		end if
-	end if
-
-	' End of hyphenation message
-	if Active.Exists then
-		if Active.GetRT = 304 then
-			try
-				Active.Ok
-			catch
-				Active.yes
-			endcatch
-		else
-			Warning "No 'end of hyphenation' messagebox"
-		end if
-	end if
-				
-	printlog "Press 3 times 'space bar' in front of the line"
-	Call wTypeKeys "<Mod1 Home>"
-	Call wTypeKeys "<End>"
-	Call wTypeKeys "<Left>"	
-	Call wTypeKeys "<Shift Mod1 Left>"
-	EditCopy
-	
-	printlog "Check if get 'fol'"
-	if GetClipboardText <> firstPartOfTestWord then
-		Warnlog "The hyphenation does NOT work ! Found '" & GetClipboardText & "' and not '" & PartOfTestWord & "'"
-	end if
-	
-	Call hCloseDocument
-	
-endcase
-
-'-------------------------------------------------------------------------
-
-testcase tHyphenation_4
-
-	Dim testFile as String
-	Dim testWord as String
-	Dim firstPartOfTestWord as string
-	Dim secondPartOfTestWord as String
-	Dim testWordInHyphenationDlg1 as String
-	Dim testWordInHyphenationDlg2 as String
-	
-	testFile                  =  "tHyphenation.odt"
-	testWord                  =  "following"
-	firstPartOfTestWord       =  "fol"
-	secondPartOfTestWord      =  "follow"
-	testWordInHyphenationDlg1 =  "fol=low-ing"
-	testWordInHyphenationDlg2 =  "fol-low=ing"
-	
-	printLog "- Test Hyphenation  using Tools/Hyphenation ,test like follow-ing"
-	printlog "Test Hyphenation  using Tools/Hyphenation ,test like follow-ing"
-	
-	printlog "open a test file"
-	hFileOpenLocally(  gTesttoolPath + "writer\optional\input\hyphenation\" + testFile )
-	
-	
-	' we must assure the word 'following' is the first word in second line
-	' otherwise the test will not work correctly	
-	if fPrepareHyphenationDocument(testWord) = false then
-		Warnlog "Unable to prepare document for hyphenation. Check testcase"
-		Call hCloseDocument
-	end if
-	
-	Call wTypeKeys "<Mod1 Home>"
-	Call wTypeKeys "<End>"
-	if gPlatgroup = "unx" then
-		Call wTypeKeys "<Delete>", 6
-	else
-		Call wTypeKeys "<Delete>", 7
-	end if
-	
-	printlog "Tools/Hyphenation"
-	ToolsLanguageHyphenate
-	Kontext "Hyphenation"
-	
-	if Not Hyphenation.Exists then
-		Call hCloseDocument
-		goto endsub
-	end if
-	
-	printlog "check if get 'fol=low-ing'"
-	if Wort.Gettext <> testWordInHyphenationDlg1 then
-		Warnlog "Expected " & testWordInHyphenationDlg1 & " but found " & Wort.Gettext
-		Hyphenation.Cancel
-		Call hCloseDocument
-		goto endsub
-	end if
-	
-	printlog "click left arrow key"
-	if NOT Vor.IsEnabled then
-		Warnlog "the Vor button is Not enabled, or something wrong!"
-		Hyphenation.Cancel
-		Call hCloseDocument
-		goto endsub
-	end if
-	Vor.Click
-	
-	printlog "check if get ''fol-low=ing'"
-	if Wort.Gettext <> testWordInHyphenationDlg2 then
-		Warnlog "Expected " & testWordInHyphenationDlg2 & " but found " & Wort.Gettext
-		Call hCloseDocument
-		goto endsub
-	end if
-	
-	printlog "add '-' between 'follow' and 'ing' pressing right arrow key"
-	if NOT Zurueck.IsEnabled then
-		Warnlog "the 'Back' button is Not enabled, or something wrong!"
-		Call hCloseDocument
-		goto endsub	
-	end if
-	Zurueck.Click
-	
-	printlog "check if get 'fol-low=ing'"
-	if Wort.Gettext <> testWordInHyphenationDlg1 then
-		Warnlog "The test  word should be changed after clicking Zurueck!"
-		Call hCloseDocument
-		goto endsub
-	end if
-	
-	Sleep 1
-	
-	printlog "close all dialogs"
-	Hyphenation.OK
-	
-	' Messagebox 'Start hypheantion from the beginning ?
-	Kontext "Active"
-	if Active.Exists then
-		if Active.GetRT = 304 then
-			try
-				Active.Yes
-			catch
-				Active.ok
-			endcatch
-		else
-			Warnlog "No messagebox asking for hyphenate at beginning of document"
-		end if
-	end if
-
-	' End of hyphenation message
-	if Active.Exists then
-		if Active.GetRT = 304 then
-			try
-				Active.Ok
-			catch
-				Active.yes
-			endcatch
-		else
-			Warning "No 'end of hyphenation' messagebox"
-		end if
-	end if
-	
-	printlog "Press 3 times 'space bar' in front of the line"
-	Call wTypeKeys "<Mod1 Home>"
-	Call wTypeKeys "<End>"
-	Call wTypeKeys "<Left>"	
-	Call wTypeKeys "<Shift Mod1 Left>"
-	EditCopy
-	
-	printlog "Check if get 'follow'"
-	if GetClipboardText <> secondPartOfTestWord then
-		Warnlog "The hyphenation does NOT work ! Found '" & GetClipboardText & "' and not '" & secondPartOfTestWord & "'"
-	end if
-
-	Call hCloseDocument
-	
-endcase
diff --git a/testautomation/writer/optional/includes/insertgraphic/w_insertgraphic1.inc b/testautomation/writer/optional/includes/insertgraphic/w_insertgraphic1.inc
deleted file mode 100644
index 1def138817b4..000000000000
--- a/testautomation/writer/optional/includes/insertgraphic/w_insertgraphic1.inc
+++ /dev/null
@@ -1,958 +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 : helge.delfs@oracle.com
-'*
-'* short description : Test of the insert graphic function - 1
-'*
-'************************************************************************
-'*
-' #1 tInsertGraphic_1        'Test default directory of inserting graphic -1
-' #1 tInsertGraphic_2        'Test default directory of inserting graphic -2
-' #1 tInsertGraphic_3        'Call up dialog Insert / Graphic via Menu ?Insert - Graphics - From File...
-' #1 tInsertGraphic_4        'Call up dialog Insert / Graphic via button from Insert-Toolbox of the Toolbar
-' #1 tInsertGraphic_5        'Insert a graphic with open button
-' #1 tInsertGraphic_6        'Insert a graphic with double click (Return)
-' #1 Tinsertgraphic_7        'Default setting in insert/graphic dialog
-' #1 tInsertGraphic_8        'Test preselect Filter (Format <All>)
-' #1 tInsertGraphic_9        'Test preselect Filter excepte for (Format <All>)
-' #1 tInsertGraphic_10       'Insert linked graphics and break the links via Menu Edit - Link
-' #1 tInsertGraphic_11       'Insert graphics from clipboard -- Edit/Paste
-' #1 tInsertGraphic_12       'Insert graphics from clipboard -- Edit/Paste special
-' #1 fInsertGraphics         'This function will insert a graphic with Link checked
-'*
-'\***********************************************************************
-
-testcase tInsertGraphic_1
-    
-    Dim iJump     as Integer
-    Dim sPathName as String
-    Dim i as integer
-    
-    PrintLog "- Test default dirtory of inserting graphic -1"
-    '/// Test default directory of inserting graphic -1
-    select case iSprache
-        case 01: iJump =  5
-        case 31: iJump =  1
-        case 33: iJump = 14
-        case 34: iJump = 12
-        case 36: iJump = 10
-        case 39: iJump = 5
-        case 46: iJump = 11
-        case 49: iJump = 11
-        case 55: iJump =  9
-        case 81: iJump = 16
-        case 82: iJump =  4
-        case 86: iJump =  7
-        case 88: iJump =  5
-        case else : QAErrorLog "The test does not support the language " + iSprache
-        Goto endsub
-    end select
-    
-    Call hNewDocument
-    
-    '/// Tools / Options / StarOffice / Paths
-    ToolsOptions
-    call hToolsOptions ("StarOffice", "Paths")
-        
-    Typ.TypeKeys "<HOME><SPACE>"
-    Sleep 1
-    if iJump-1 > 0 then Typ.TypeKeys "<DOWN>", iJump-1
-    Sleep 1
-    Bearbeiten.Click
-    
-    Kontext "OeffnenDlg"
-    '/// Set a new path to Graphic
-    Pfad.SetText (ConvertPath (gTesttoolpath + "writer\optional\input\insertgraphic\"))
-    Sleep 1
-    Oeffnen.Click
-    Sleep 1
-    
-    Kontext "ExtrasOptionenDlg"
-    ExtrasOptionenDlg.OK
-    Sleep 1
-    
-    '/// Insert / Graphic / From file
-    InsertGraphicsFromFile
-    Kontext "GrafikEinfuegenDlg"
-    
-    '/// Input the jpg file's name which exists in the graphic dirtory , then press open button
-    Dateiname.Settext "Bughunter.jpg"
-    Sleep 1
-    
-    Oeffnen.Click
-    Sleep 2
-    
-    Kontext "Active"
-    if Active.Exists then
-        if Active.GetRT = 304 then
-            Active.OK
-            QAErrorLog "#112220#The graphic directory in Tools/options doesn't work"
-        end if
-    end if
-    
-    Kontext "GrafikEinfuegenDlg"
-    if GrafikEinfuegenDlg.Exists then GrafikEinfuegenDlg.Cancel
-    
-    '/// Reset to default path
-    ToolsOptions
-    call hToolsOptions ("StarOffice", "Paths")
-    Typ.TypeKeys "<HOME>"
-    Sleep 1
-    if iJump-1 > 0 then Typ.TypeKeys "<DOWN>", iJump-1
-    Sleep 1
-    Standard.Click
-
-    Kontext "ExtrasOptionenDlg"
-    ExtrasOptionenDlg.OK
-    
-    Call hCloseDocument
-
-endcase
-
-'-------------------------------------------------------------------------------------------
-
-testcase tInsertGraphic_2
-
-  PrintLog "- Test default dirtory of inserting graphic -2"
- '/// Test default dirtory of inserting graphic -2
-
-  Call hNewDocument
-
-  '/// Input the 1st picture which exists in the dirtory1(full path) ,
-  '/// +  then press open button
-   InsertGraphicsFromFile
-   Kontext "GrafikEinfuegenDlg"
-   Dateiname.Settext ConvertPath(gTesttoolpath + "writer\optional\input\insertgraphic\Bughunter.jpg")
-   Sleep 1
-   Oeffnen.Click
-   Sleep 2
-
-   Kontext "Active"
-   if Active.Exists then
-      if Active.GetRT = 304 then
-         Active.OK
-         Sleep 1
-         Warnlog "1 - the file isn't in the dirtory " + ConvertPath(gTesttoolpath + "writer\optional\input\insertgraphic\")
-      end if
-
-      Kontext "GrafikEinfuegenDlg"
-      GrafikEinfuegenDlg.Cancel
-   end if
-
-   Call wTypeKeys "<ESCAPE>"
-
-  '/// Input the 2nd picture which exists in the dirtory2(only file name) ,
-  '/// + then press open button
-   InsertGraphicsFromFile
-   Kontext "GrafikEinfuegenDlg"
-   Dateiname.Settext "jolink.jpg"
-   Sleep 1
-   Oeffnen.Click
-   Sleep 2
-
-   Kontext "Active"
-   if Active.Exists then
-      if Active.GetRT = 304 then
-         Active.OK
-         Sleep 1
-      else
-         Warnlog "2 - Should get the warning messagebox"
-      end if
-
-      Kontext "GrafikEinfuegenDlg"
-      GrafikEinfuegenDlg.Cancel
-   end if
-
-   Call wTypeKeys "<ESCAPE>"
-
-  '/// Input the 3rd picture which exists in the dirtory2(full path) ,
-  '/// + then press open button
-   InsertGraphicsFromFile
-   Kontext "GrafikEinfuegenDlg"
-   Dateiname.Settext ConvertPath(gTesttoolpath + "writer\optional\input\graphics\bild.jpg")
-   Sleep 1
-   Oeffnen.Click
-   Sleep 2
-
-   Kontext "Active"
-   if Active.Exists then
-      if Active.GetRT = 304 then
-         Active.OK
-         Sleep 1
-         Warnlog "3 - the file isn't in the dirtory " + ConvertPath(gTesttoolpath + "writer\optional\input\grafik")
-      end if
-
-      Kontext "GrafikEinfuegenDlg"
-      GrafikEinfuegenDlg.Cancel
-   end if
-
-   Call wTypeKeys "<ESCAPE>"
-
-  '/// Input the 2nd picture which exists in the dirtory2(only file name) again,
-  '/// + then press open button
-   InsertGraphicsFromFile
-   Kontext "GrafikEinfuegenDlg"
-   Dateiname.Settext "jolink.jpg"
-   Sleep 1
-   Oeffnen.Click
-   Sleep 2
-
-   Kontext "Active"
-   if Active.Exists then
-      if Active.GetRT = 304 then
-         Active.OK
-         Sleep 1
-         Warnlog "2 - the file isn't in the dirtory " + ConvertPath(gTesttoolpath + "writer\optional\input\grafik")
-      end if
-
-      Kontext "GrafikEinfuegenDlg"
-      GrafikEinfuegenDlg.Cancel
-   end if
-
-   Call hCloseDocument
-
-endcase
-
-'-------------------------------------------------------------------------------------------
-
-testcase tInsertGraphic_3
-
-  PrintLog "- Call up dialog Insert / Graphic via Menu ?Insert - Graphics - From File..."
- '/// Call up dialog Insert / Graphic via Menu ?Insert - Graphics - From File
-
-  Call hNewDocument
-
-  try
-     InsertGraphicsFromFile
-     Kontext "GrafikEinfuegenDlg"
-
-     if GrafikEinfuegenDlg.Exists then
-        GrafikEinfuegenDlg.Cancel
-     else
-        Warnlog "The dialogue can't be opened from Menu Insert - Graphics - From File..."
-     end if
-  catch
-     Warnlog "Something wrong when calling up dialogue from Menu Insert - Graphics - From File..."
-  endcatch
-
-  Call hCloseDocument
-
-endcase
-
-'-------------------------------------------------------------------------------------------
-
-testcase tInsertGraphic_X
-    Dim sShortcut as string
-    PrintLog "- Call up dialog Insert / Picture via Alt+I+U+F ..."
-    '/// Call up dialog Insert / Graphic via Alt+I+G+F
- 
-    Select case iSprache
-        case 01: sShortcut = "<MOD2 I U F>"
-        case else
-            QAErrorlog "Please add shortcut for Insert->Picture"
-            goto endsub
-    end select
-    
-    Call hNewDocument
-    
-    try
-        Call wTypeKeys sShortcut
-        Kontext "GrafikEinfuegenDlg"
-    
-        if GrafikEinfuegenDlg.Exists then
-            GrafikEinfuegenDlg.Cancel
-        else
-            Warnlog "The dialogue can't be opened from Menu Insert - Picture - From File..."
-        end if
-    catch
-        Warnlog "Something wrong when calling up dialogue from Menu Insert - Picture - From File..."
-    endcatch
-    
-    Call hCloseDocument
-
-endcase
-
-'-------------------------------------------------------------------------------------------
-
-testcase tInsertGraphic_4
-
-  PrintLog "- Call up dialog Insert / Graphic via button from Insert-Toolbox of the Toolbar "
- '/// Call up dialog Insert / Graphic via button from Insert-Toolbox of the Toolbar
-
-  Call hNewDocument
-
-  Call hToolbarSelect("INSERT", true )
-  Sleep 2
-  Grafik.Click
-  Sleep 3
-
-  Kontext "GrafikEinfuegenDlg"
-
-  if GrafikEinfuegenDlg.Exists then
-     GrafikEinfuegenDlg.Cancel
-  else
-     Warnlog "The dialogue can't be opened from Insert-Toolbox of the Toolbar"
-  end if
-
-  Call hCloseDocument
-
-endcase
-
-'-------------------------------------------------------------------------------------------
-
-testcase tInsertGraphic_5
-
-  PrintLog "- Insert a graphic with open button"
- '/// Insert a graphic with open button
-
-  Call hNewDocument
-
-  '/// Insert a Graphic , Insert/Graphics/From file
-   InsertGraphicsFromFile
-   Kontext "GrafikEinfuegenDlg"
-   Dateiname.Settext (ConvertPath (gTesttoolpath + "writer\optional\input\insertgraphic") )
-   Sleep 1
-   Oeffnen.Click
-
-   if NOT GrafikEinfuegenDlg.Exists then  Warnlog "The insert graphic dialog should be still there!"
-
-   Dateiname.Settext ("boy.gif")
-
-  '/// check if open button can insert a graphic or not
-   Oeffnen.Click
-   Sleep 2
-
-   if GrafikEinfuegenDlg.Exists then  Warnlog "The insert graphic dialog should NOT be there!"
-
-   try
-      fFormatGraphic("TabZusaetze")
-      Kontext "TabZusaetze"
-      TabZusaetze.Cancel
-   catch
-      Warnlog "The graphic is NOT inserted correctly !"
-   endcatch
-
-  Call hCloseDocument
-
-endcase
-
-'-------------------------------------------------------------------------------------------
-
-testcase tInsertGraphic_6
-
-  PrintLog "- Insert a graphic with double click (Return)"
- '/// Insert a graphic with double click (Return)
-
-  Call hNewDocument
-
-  '/// Insert a Graphic , Insert/Graphics/From file
-   InsertGraphicsFromFile
-   Kontext "GrafikEinfuegenDlg"
-   Dateiname.Settext (ConvertPath (gTesttoolpath + "writer\optional\input\insertgraphic") )
-   Sleep 1
-   Oeffnen.Click
-
-   if NOT GrafikEinfuegenDlg.Exists then  Warnlog "The insert graphic dialog should be still there!"
-
-   Dateiname.Settext ("boy.gif")
-
-  '/// check if double click (return) can insert a graphic or not
-  '/// [Note : the first is CVS directory]
-   DateiAuswahl.Select 2
-   Sleep 1
-
-   DateiAuswahl.TypeKeys "<Return>"
-   Sleep 2
-
-   if GrafikEinfuegenDlg.Exists then  Warnlog "The insert graphic dialog should NOT be there!"
-
-   try
-      fFormatGraphic("TabZusaetze")
-      Kontext "TabZusaetze"
-      TabZusaetze.Cancel
-   catch
-      Warnlog "The graphic is NOT inserted correctly !"
-   endcatch
-
-  Call hCloseDocument
-
-endcase
-
-'-------------------------------------------------------------------------------------------
-
-testcase tInsertGraphic_7
-
-  Dim iFileType   as Integer
-  Dim sStyle      as String
-
-  iFileType = 1
-
-  select case iSprache
-      case 01   : sStyle = "Graphics"
-      case 31   : sStyle = "Afbeeldingen"
-      case 33   : sStyle = "Image"
-      case 34   : sStyle = "Imagen"
-      case 39   : sStyle = "Immagine"
-      case 46   : sStyle = "Grafik"
-      case 49   : sStyle = "Grafik"
-      case 55   : sStyle = "Figuras"
-      case 81   : sStyle = "図"
-      case 82   : sStyle = "그래픽"
-      case 86   : sStyle = "图形"
-      case 88   : sStyle = "圖形"
-      case else : QAErrorLog "Now, this testcase does not support for the language " +iSprache
-                  exit sub
-  end select
-
-  PrintLog "- Default setting in insert/graphic dialog"
- '/// Default setting in insert/graphic dialog
-
-  Call hNewDocument
-
-  '/// Insert a Graphic , Insert/Graphics/From file
-   InsertGraphicsFromFile
-   Kontext "GrafikEinfuegenDlg"
-    if Stil.GetItemText(Stil.GetSelIndex) <> sStyle    then Warnlog "The default setting for Style is wrong ! should be "+ sStyle + " but get " + Stil.GetItemText(Stil.GetSelIndex)
-    if Dateityp.GetSelIndex               <> iFileType then Warnlog "The default setting for file type is wrong ! should be "+ Dateityp.GetItemText(iFileType) + " but get " + Dateityp.GetItemText(Dateityp.GetSelIndex)
-   GrafikEinfuegenDlg.Cancel
-
-  Call hCloseDocument
-
-endcase
-
-'-------------------------------------------------------------------------------------------
-
-testcase tInsertGraphic_8
-
-	Dim iFileType      as Integer
-	Dim iFileNumber as Integer
-	
-	iFileType = 1  'filter (Format <All>)	
-	iFileNumber = 4
-	
-	PrintLog "- Test preselect Filter (Format <All>)"
-	'/// Test preselect Filter (Format <All>)
-	
-	Call hNewDocument
-	
-	'/// Insert a Graphic , Insert/Graphics/From file
-	InsertGraphicsFromFile
-	
-	'/// Select filter (Format <All>)
-	Kontext "GrafikEinfuegenDlg"
-	Dateiname.Settext (ConvertPath (gTesttoolpath + "writer\optional\input\insertgraphic") )
-	Sleep 1
-	Oeffnen.Click
-	
-	Dateityp.Select iFileType
-	Sleep 1
-	
-	'/// Check if Filter (Format <All>) works well
-	if DateiAuswahl.GetItemCount <> iFileNumber then Warnlog "Filter (Format <All>) does NOT work well"
-	GrafikEinfuegenDlg.Cancel
-	
-	Call hCloseDocument
-
-endcase
-
-'-------------------------------------------------------------------------------------------
-
-testcase tInsertGraphic_9
-
-	Dim iFileType      as Integer
-	Dim iFileNumber as Integer
-	
-	iFileType   = 2  'another filter except for (Format <All>) -- bmp	
-	iFileNumber = 1
-	
-	PrintLog "- Test preselect Filter excepte for (Format <All>)"
-	'/// Test preselect Filter excepte for (Format <All>)
-	
-	Call hNewDocument
-	
-	'/// Insert a Graphic , Insert/Graphics/From file
-	InsertGraphicsFromFile
-	
-	'/// Select filter 'BMP'
-	Kontext "GrafikEinfuegenDlg"
-	Dateiname.Settext (ConvertPath (gTesttoolpath + "writer\optional\input\insertgraphic") )
-	Sleep 1
-	Oeffnen.Click
-	
-	Dateityp.Select iFileType
-	Sleep 1
-	
-	'/// Check if Filter BMP works well
-	if DateiAuswahl.GetItemCount <> iFileNumber then Warnlog "Filter BMP does NOT work well"
-	GrafikEinfuegenDlg.Cancel
-	
-	Call hCloseDocument
-
-endcase
-
-'-------------------------------------------------------------------------------------------
-
-testcase tInsertGraphic_10
-
-    Dim sTestFile as String
-    dim sOutFile as string
-
-    sTestFile = ConvertPath(gOfficepath + "user\work\tInsertGraphic_5.sxw")
-    sOutFile  = gOfficepath + "user\work\tInsertGraphic_5.odt"
-
-    PrintLog "- Insert linked graphics and break the links via Menu Edit - Link"
-    '/// Insert linked graphics and break the links via Menu Edit - Link
-
-    Call hNewDocument
-
-    Call wTypeKeys "<Return>" , 2
-
-    '/// Insert a jpg  Graphic
-    Call fInsertGraphics("Bughunter.jpg")
-
-    '/// + and set name as TEST1
-    Call fFormatGraphic("TabZusaetze")
-     sleep(1)
-     Kontext "TabZusaetze"
-     ObjektName.SetText "TEST1"
-    TabZusaetze.OK
-    sleep(1)
-
-    Kontext "DocumentWriter"
-    Call wTypeKeys "<ESCAPE>"
-    Call wTypeKeys "<Return>" , 2
-    sleep(2)
-
-    '/// Insert a gif  Graphic  (animated)
-    Call fInsertGraphics("boy.gif")
-
-    '/// + and set name as TEST2
-    Call fFormatGraphic("TabZusaetze")
-     sleep(1)
-     Kontext "TabZusaetze"
-     ObjektName.SetText "TEST2"
-    TabZusaetze.OK
-    sleep(1)
-
-    Kontext "DocumentWriter"
-    Call wTypeKeys "<ESCAPE>"
-    Call wTypeKeys "<Return>" , 2
-    sleep(2)
-
-    '/// Insert a bmp Graphic
-    Call fInsertGraphics("game.bmp")
-
-    '/// + and set name as TEST3
-    Call fFormatGraphic("TabZusaetze")
-     sleep(2)
-     Kontext "TabZusaetze"
-     ObjektName.SetText "TEST3"
-    TabZusaetze.OK
-    sleep(1)
-
-    Kontext "DocumentWriter"
-    Call wTypeKeys "<ESCAPE>"
-    Call wTypeKeys "<Return>" , 2
-    sleep(2)
-
-    '/// Edit / Links
-    EditLinksWriter
-    Kontext "VerknuepfungenBearbeiten"
-
-    '/// Select all graphics
-    Liste.TypeKeys "<Shift End>"
-    sleep(1)
-
-    '/// Remove link
-     Loesen.Click
-     sleep(1)
-     Kontext "Active"
-     if Active.Exists(1) then
-        Active.YES
-     else
-        warnlog "Messagebox should appear!"
-     end if
-     sleep(2)
-
-    '/// Close the edit/link dialogue
-    Kontext "VerknuepfungenBearbeiten"
-    VerknuepfungenBearbeiten.Close
-    sleep(1)
-
-    '/// Check if the inserted graphics are still there
-    Kontext "DocumentWriter"
-    Call wTypeKeys ( "<Shift F4>" )
-    sleep(1)
-    fFormatGraphic("TabZusaetze")
-    sleep(1)
-    Kontext "TabZusaetze"
-    if ObjektName.GetText <> "TEST1" then  warnlog "The first graphic isn't right!"
-    TabZusaetze.OK
-    sleep(1)
-
-    Kontext "DocumentWriter"
-    Call wTypeKeys "<Tab>"
-    Call fFormatGraphic("TabZusaetze")
-    sleep(1)
-    Kontext "TabZusaetze"
-    if ObjektName.GetText <> "TEST2" then  Warnlog "The second graphic isn't right!"
-    TabZusaetze.OK
-    sleep(1)
-
-    Kontext "DocumentWriter"
-    Call wTypeKeys "<Tab>"
-    Call fFormatGraphic("TabZusaetze")
-    sleep(1)
-    Kontext "TabZusaetze"
-    if ObjektName.GetText <> "TEST3" then  Warnlog "The third graphic isn't right!"
-    TabZusaetze.OK
-    sleep(1)
-
-    Kontext "DocumentWriter"
-    Call wTypeKeys "<ESCAPE><Home>"
-    PrintLog "- Save and Reload the file"
-
-    '/// Save the file and close the file
-    Call hFileSaveAsWithFilterKill( sOutFile, "writer8")
-    sleep(2)
-    Call hCloseDocument
-    sleep(2)
-
-    '/// Reload the file
-    hFileOpen( sOutFile )
-    sleep(2)
-    
-
-    '/// Check if the inserted graphics are still there
-    Kontext "DocumentWriter"
-    Call wTypeKeys ( "<Shift F4>" )
-    sleep(1)
-    if fFormatGraphic("TabZusaetze") = false then
-        Warnlog "#linked JPEG pictures will disappear when doc is modified."
-
-        kontext "TabZusatze"
-        if ( TabZusaetze.exists() ) then TabZusaetze.close()
-        kontext "DocumentWriter"
-        Call hCloseDocument
-        goto endsub
-    end if
-    sleep(1)
-    Kontext "TabZusaetze"
-    if ObjektName.GetText <> "TEST1" then  Warnlog "The first graphic isn't right!"
-    TabZusaetze.OK
-    sleep(1)
-
-    Kontext "DocumentWriter"
-    Call wTypeKeys "<Tab>"
-    sleep(1)
-    Call fFormatGraphic("TabZusaetze")
-    sleep(1)
-    Kontext "TabZusaetze"
-    if ObjektName.GetText <> "TEST2" then  Warnlog "The second graphic isn't right!"
-    TabZusaetze.OK
-    sleep(2)
-
-    Kontext "DocumentWriter"
-    Call wTypeKeys "<Tab>"
-    sleep(1)
-    Call fFormatGraphic("TabZusaetze")
-    sleep(1)
-    Kontext "TabZusaetze"
-    if ObjektName.GetText <> "TEST3" then  Warnlog "The third graphic isn't right!"
-    TabZusaetze.OK
-    sleep(1)
-
-    Call hCloseDocument
-endcase
-
-'-------------------------------------------------------------------------------------------
-
-testcase tInsertGraphic_11
-
-  Dim sGraphicName  as String
-  Dim sWidth as String
-  Dim sHeight as String
-  Dim sLeft as String
-  Dim sUp as String
-  Dim iFromLeft as Integer
-  Dim iFromUp as Integer
-  Dim sURL as String
-
-  sGraphicName = "TEST1"
-  sWidth       = "5"+ gSeperator + "00" + gMeasurementUnit
-  sHeight      = "4"+ gSeperator + "00" + gMeasurementUnit
-  sLeft        = "2"+ gSeperator + "00" + gMeasurementUnit
-  sUp          = "3"+ gSeperator + "00" + gMeasurementUnit
-
-  iFromLeft = 4
-  iFromUp   = 4
-
-  sURL      = "http://www.sun.com/"
-
-  PrintLog "- Insert graphics from clipboard -- Edit/Paste"
- '/// Insert graphics from clipboard -- Edit/Paste
-
-  Call hNewDocument
-
-  '/// Insert a jpg  Graphic and do some configuration
-   fInsertGraphics("Bughunter.jpg")
-
-   fFormatGraphic("TabZusaetze")
-   Sleep 1
-   Kontext "TabZusaetze"
-   ObjektName.SetText sGraphicName
-   TabZusaetze.OK
-   sleep(2)
-   fFormatGraphic("TabType")
-   Kontext "TabType"
-   KeepRatio.UnCheck
-   Sleep 1
-   Width.SetText        sWidth
-   wait 500
-   Height.SetText       sHeight
-   wait 500
-   Horizontal.Select    iFromLeft
-   wait 500
-   Vertical.Select      iFromUp
-   wait 500
-   HorizontalBy.SetText sLeft
-   wait 500
-   VerticalBy.SetText   sUp
-   wait 500
-   TabType.OK
-   sleep(1)
-   Call fFormatGraphic("TabHyperlinkRahmen")
-   Kontext "TabHyperlinkRahmen"
-   Sleep 1
-   URL.SetText  sURL
-   wait 500
-   TabHyperlinkRahmen.OK
-
-   '/// copy graphic to clipboard
-   EditCopy
-   Sleep 1
-
-  Call hCloseDocument
-
-  Call hNewDocument
-
-   '/// paste the graphic from clipboard
-   EditPaste
-   Sleep 1
-
-  '/// Check if the pasted graphic is correct
-   Call fFormatGraphic("TabZusaetze")
-   Sleep 1
-   Kontext "TabZusaetze"
-   if ObjektName.GetText <> sGraphicName   then Warnlog "The graphic's name is not correct ! "
-   TabZusaetze.Cancel
-   sleep(1)
-   Call fFormatGraphic("TabType")
-   Sleep 1
-   Kontext "TabType"
-   if Width.GetText          <> sWidth     then Warnlog "The graphic's width is not correct ! "
-   wait 500
-   if Height.GetText         <> sHeight    then Warnlog "The graphic's height is not correct ! "
-   wait 500
-   if Horizontal.GetSelIndex <> iFromLeft  then Warnlog "The graphic's Horizontal option is not correct ! "
-   wait 500
-   if Vertical.GetSelIndex   <> iFromUp    then Warnlog "The graphic's vertical option is not correct ! "
-   wait 500
-   if HorizontalBy.GetText   <> sLeft      then Warnlog "The graphic's Horizontal is not correct ! "
-   wait 500
-   if VerticalBy.GetText     <> sUp        then Warnlog "The graphic's vertical is not correct ! "
-   wait 500
-   TabType.Cancel
-
-   Call fFormatGraphic("TabHyperlinkRahmen")
-   Sleep 1
-   Kontext "TabHyperlinkRahmen"
-   if URL.GetText <>  sURL  then Warnlog "The graphic's URL is not correct ! "
-   wait 500
-   TabHyperlinkRahmen.Cancel
-   sleep(1)
-  Call hCloseDocument
-endcase
-
-'-------------------------------------------------------------------------------------------
-
-testcase tInsertGraphic_12
-
-    Dim sGraphicName as String
-    Dim sOriginalGraphicName as String
-    Dim sWidth as String
-    Dim sHeight as String
-    Dim sLeft as String
-    Dim sUp as String
-    Dim sOriginalWidth as String
-    Dim sOriginalHeight as String
-    Dim sOriginalLeft as String
-    Dim sOriginalUp as String
-    Dim iFromLeft as Integer
-    Dim iFromUp as Integer
-    Dim iOriginalFromLeft as Integer
-    Dim iOriginalFromUp as Integer
-    Dim sURL as String
-    Dim i as integer
-    
-    sGraphicName = "TEST1"
-    sWidth       = "5"+ gSeperator + "00" + gMeasurementUnit
-    sHeight      = "4"+ gSeperator + "00" + gMeasurementUnit
-    sLeft        = "2"+ gSeperator + "00" + gMeasurementUnit
-    sUp          = "3"+ gSeperator + "00" + gMeasurementUnit
-    
-    iFromLeft = 4
-    iFromUp   = 4
-    
-    sURL      = "http://www.sun.com/"
-    
-    PrintLog "- Insert graphics from clipboard -- Edit/Paste special"
-    '/// Insert graphics from clipboard -- Edit/Paste special
-    
-    Call hNewDocument
-    
-    '/// Insert a jpg  Graphic and do some configuration
-    fInsertGraphics("Bughunter.jpg")
-    
-    fFormatGraphic("TabZusaetze")
-    Sleep 1
-    sOriginalGraphicName = ObjektName.GetText
-    wait 500
-    ObjektName.SetText sGraphicName
-    wait 500
-    TabZusaetze.OK
-    
-    fFormatGraphic("TabType")
-    KeepRatio.UnCheck
-    
-    sOriginalWidth    =  Width.GetText
-    sOriginalHeight   =  Height.GetText
-    iOriginalFromLeft =  Horizontal.GetSelIndex
-    iOriginalFromUp   =  Vertical.GetSelIndex
-    sOriginalLeft     =  HorizontalBy.GetText
-    sOriginalUp       =  VerticalBy.GetText
-    
-    Sleep 1
-    Width.SetText        sWidth
-    wait 500
-    Height.SetText       sHeight
-    wait 500
-    Horizontal.Select    iFromLeft
-    wait 500
-    Vertical.Select      iFromUp
-    wait 500
-    HorizontalBy.SetText sLeft
-    wait 500
-    VerticalBy.SetText   sUp
-    wait 500
-    TabType.OK
-    
-    fFormatGraphic("TabHyperlinkRahmen")
-    Sleep 1
-    URL.SetText  sURL
-    wait 500
-    TabHyperlinkRahmen.OK
-    
-    '/// copy graphic to clipboard
-    EditCopy
-    Sleep 1
-    
-    '/// delete the graphic
-    Call wTypeKeys "<Delete>"
-    Sleep 1
-    
-    '/// 1. Edit/Paste special the graphic from
-    '/// +  Graphic [StarOffice Writer]
-    EditPasteSpecialWriter
-    Sleep 1
-    Kontext "InhaltEinfuegen"
-    if Auswahl.GetItemCount < 4 then
-        QAErrorlog "#i47320#Only " & Auswahl.GetItemCount & " graphic formats available"
-        InhaltEinfuegen.Cancel
-    else
-        Auswahl.Select 1
-        PrintLog "- " & Auswahl.GetSelText
-        InhaltEinfuegen.OK
-        Sleep 1
-
-        '/// Check if the pasted graphic properties are correct
-        FormatGraphics
-        Kontext
-        Active.Setpage TabZusaetze
-        Kontext "TabZusaetze"
-        Sleep 1
-        if ObjektName.GetText     <> sGraphicName  then Warnlog "The graphic's name is not correct ! "
-
-        Kontext
-        Active.Setpage TabType
-        Kontext "TabType"
-        Sleep 1
-        if Width.GetText          <> sWidth        then Warnlog "The graphic's width is not correct ! "
-        wait 500
-        if Height.GetText         <> sHeight       then Warnlog "The graphic's height is not correct ! "
-        wait 500
-        if Horizontal.GetSelIndex <> iFromLeft     then Warnlog "The graphic's Horizontal option is not correct ! "
-        wait 500
-        if Vertical.GetSelIndex   <> iFromUp       then Warnlog "The graphic's vertical option is not correct ! "
-        wait 500
-        if HorizontalBy.GetText   <> sLeft         then Warnlog "The graphic's Horizontal is not correct ! "
-        wait 500
-        if VerticalBy.GetText     <> sUp           then Warnlog "The graphic's vertical is not correct ! "
-        wait 500
-
-        Kontext
-        Active.Setpage TabHyperlinkRahmen
-        Kontext "TabHyperlinkRahmen"
-        Sleep 1
-        if URL.GetText <> sURL then Warnlog "The graphic's URL is not correct ! "
-        wait 500
-        TabHyperlinkRahmen.Ok
-
-        'delete the graphic
-        Call wTypeKeys "<Delete>"
-        Sleep 1
-    end if
-
-    Call hCloseDocument
-endcase
-
-'-------------------------------------------------------------------------------------------
-
-function fInsertGraphics (sFileName as String)
-   'This function will insert a graphic with Link checked
-
-   InsertGraphicsFromFile
-   Kontext "GrafikEinfuegenDlg"
-   Dateiname.Settext (ConvertPath (gTesttoolpath + "writer\optional\input\insertgraphic\" + sFileName) )
-   Sleep 1
-   Link.Check
-   Sleep 1
-   Oeffnen.Click
-   Sleep 2
-
-end function
diff --git a/testautomation/writer/optional/includes/insertgraphic/w_insertgraphic2.inc b/testautomation/writer/optional/includes/insertgraphic/w_insertgraphic2.inc
deleted file mode 100644
index c6c38ddfe934..000000000000
--- a/testautomation/writer/optional/includes/insertgraphic/w_insertgraphic2.inc
+++ /dev/null
@@ -1,985 +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 : helge.delfs@oracle.com
-'*
-'* short description : Test of the insert graphic function - 2
-'*
-'************************************************************************
-'*
-' #1 tInsertGraphic_13      'Test Set different attributes via dialog Arrange (send to back)
-' #1 tInsertGraphic_14      'Test Set different attributes via dialog Arrange (send backward)
-' #1 tInsertGraphic_15      'Test Set different attributes via dialog Arrange (bring to front)
-' #1 tInsertGraphic_16      'Test Set different attributes via dialog Arrange (bring forward)
-' #1 tInsertGraphic_17      'Test Set different attributes via Contextmenu Arrange (send to back)
-' #1 tInsertGraphic_18      'Test Set different attributes via Contextmenu Arrange (send backward)
-' #1 tInsertGraphic_19      'Test Set different attributes via Contextmenu Arrange (bring to front)
-' #1 tInsertGraphic_20      'Test Set different attributes via Contextmenu Arrange (bring forward)
-'*
-'\***********************************************************************
-
-testcase tInsertGraphic_13
-
-  Dim sGraphicName1 as String
-  Dim sGraphicName2 as String
-  Dim sGraphicName3 as String
-  Dim sWidth as String
-  Dim sHeight as String
-
-  sGraphicName1 = "TEST1"
-  sGraphicName2 = "TEST2"
-  sGraphicName3 = "TEST3"
-
-  sWidth       = "7"+ gSeperator + "00" + gMeasurementUnit
-  sHeight      = "6"+ gSeperator + "00" + gMeasurementUnit
-
-  PrintLog "- Test Set different attributes via dialog Arrange (send to back)"
- '/// Test Set different attributes via dialog Arrange (send to back)
-
-   Call hNewDocument
-
-   Call wTypeKeys "<Return>"
-
-  '/// Insert three Graphics at the same place , and named in series
-
-   'the 1st graphic
-   fInsertGraphics("Bughunter.jpg")
-
-   fFormatGraphic("TabZusaetze")
-   Sleep 1
-   ObjektName.SetText sGraphicName1
-   TabZusaetze.OK
-
-   fFormatGraphic("TabType")
-   KeepRatio.UnCheck
-   Sleep 1
-   Width.SetText    sWidth
-   wait 500
-   Height.SetText   sHeight
-   wait 500
-   TabType.OK
-
-   Call wTypeKeys "<ESCape>"
-
-   'the 2nd graphic
-   fInsertGraphics("flowers.gif")
-
-   fFormatGraphic("TabZusaetze")
-   Sleep 1
-   ObjektName.SetText sGraphicName2
-   TabZusaetze.OK
-
-   fFormatGraphic("TabType")
-   KeepRatio.UnCheck
-   Sleep 1
-   Width.SetText    sWidth
-   wait 500
-   Height.SetText   sHeight
-   wait 500
-   TabType.OK
-
-   Call wTypeKeys "<ESCape>"
-
-   'the 3rd graphic
-   fInsertGraphics("game.bmp")
-
-   fFormatGraphic("TabZusaetze")
-   Sleep 1
-   ObjektName.SetText sGraphicName3
-   TabZusaetze.OK
-
-   fFormatGraphic("TabType")
-   KeepRatio.UnCheck
-   Sleep 1
-   Width.SetText    sWidth
-   wait 500
-   Height.SetText   sHeight
-   wait 500
-   TabType.OK
-
-   '/// Format / Arrange / Send to back
-   FormatArrangeSendToBack
-   Sleep 1
-
-   Call wTypeKeys "<ESCape>"
-   Sleep 1
-
-   '/// Check if the attributes Arrange (send to back) works well
-   Call wNavigatorAuswahl(4,1)
-   Sleep 1
-   fFormatGraphic("TabZusaetze")
-   Sleep 1
-   if ObjektName.GetText <> sGraphicName1  then Warnlog "The graphic's name is not correct ,should be "+sGraphicName1 + " but get " +ObjektName.GetText
-   TabZusaetze.Cancel
-
-   Call wNavigatorAuswahl(4,2)
-   Sleep 1
-   fFormatGraphic("TabZusaetze")
-   Sleep 1
-   if ObjektName.GetText <> sGraphicName2  then Warnlog "The graphic's name is not correct ,should be "+sGraphicName2 + " but get " +ObjektName.GetText
-   TabZusaetze.Cancel
-
-   Call wNavigatorAuswahl(4,3)
-   Sleep 1
-   fFormatGraphic("TabZusaetze")
-   Sleep 1
-   if ObjektName.GetText <> sGraphicName3  then Warnlog "The graphic's name is not correct ,should be "+sGraphicName3 + " but get " +ObjektName.GetText
-   TabZusaetze.Cancel
-
-   Call hCloseDocument
-
-endcase
-
-'-------------------------------------------------------------------------------------------
-
-testcase tInsertGraphic_14
-
-  Dim sGraphicName1 as String
-  Dim sGraphicName2 as String
-  Dim sGraphicName3 as String
-  Dim sWidth as String
-  Dim sHeight as String
-
-  sGraphicName1 = "TEST1"
-  sGraphicName2 = "TEST2"
-  sGraphicName3 = "TEST3"
-
-  sWidth       = "7"+ gSeperator + "00" + gMeasurementUnit
-  sHeight      = "6"+ gSeperator + "00" + gMeasurementUnit
-
-  PrintLog "- Test Set different attributes via dialog Arrange (send backward)"
- '/// Test Set different attributes via dialog Arrange (send backward)
-
-   Call hNewDocument
-
-   Call wTypeKeys "<Return>"
-
-  '/// Insert three Graphics at the same place , and named in series
-
-   'the 1st graphic
-   fInsertGraphics("Bughunter.jpg")
-
-   fFormatGraphic("TabZusaetze")
-   Sleep 1
-   ObjektName.SetText sGraphicName1
-   TabZusaetze.OK
-
-   fFormatGraphic("TabType")
-   KeepRatio.UnCheck
-   Sleep 1
-   Width.SetText    sWidth
-   wait 500
-   Height.SetText   sHeight
-   wait 500
-   TabType.OK
-
-   Call wTypeKeys "<ESCape>"
-
-   'the 2nd graphic
-   fInsertGraphics("flowers.gif")
-
-   fFormatGraphic("TabZusaetze")
-   Sleep 1
-   ObjektName.SetText sGraphicName2
-   TabZusaetze.OK
-
-   fFormatGraphic("TabType")
-   KeepRatio.UnCheck
-   Sleep 1
-   Width.SetText    sWidth
-   wait 500
-   Height.SetText   sHeight
-   wait 500
-   TabType.OK
-
-   Call wTypeKeys "<ESCape>"
-
-   'the 3rd graphic
-   fInsertGraphics("game.bmp")
-
-   fFormatGraphic("TabZusaetze")
-   Sleep 1
-   ObjektName.SetText sGraphicName3
-   TabZusaetze.OK
-
-   fFormatGraphic("TabType")
-   KeepRatio.UnCheck
-   Sleep 1
-   Width.SetText    sWidth
-   wait 500
-   Height.SetText   sHeight
-   wait 500
-   TabType.OK
-
-   '/// Format / Arrange / Send backward
-   FormatArrangeSetBackward
-   Sleep 1
-
-   Call wTypeKeys "<ESCape>"
-   Sleep 1
-
-   '/// Check if the attributes Arrange (send to back) works well
-   Call wNavigatorAuswahl(4,1)
-   Sleep 1
-   fFormatGraphic("TabZusaetze")
-   Sleep 1
-   if ObjektName.GetText <> sGraphicName1  then Warnlog "The graphic's name is not correct ,should be "+sGraphicName1 + " but get " +ObjektName.GetText
-   TabZusaetze.Cancel
-
-   Call wNavigatorAuswahl(4,2)
-   Sleep 1
-   fFormatGraphic("TabZusaetze")
-   Sleep 1
-   if ObjektName.GetText <> sGraphicName2  then Warnlog "The graphic's name is not correct ,should be "+sGraphicName2 + " but get " +ObjektName.GetText
-   TabZusaetze.Cancel
-
-   Call wNavigatorAuswahl(4,3)
-   Sleep 1
-   fFormatGraphic("TabZusaetze")
-   Sleep 1
-   if ObjektName.GetText <> sGraphicName3  then Warnlog "The graphic's name is not correct ,should be "+sGraphicName3 + " but get " +ObjektName.GetText
-   TabZusaetze.Cancel
-
-   Call hCloseDocument
-
-endcase
-
-'-------------------------------------------------------------------------------------------
-
-testcase tInsertGraphic_15
-
-  Dim sGraphicName1 as String
-  Dim sGraphicName2 as String
-  Dim sGraphicName3 as String
-  Dim sWidth as String
-  Dim sHeight as String
-
-  sGraphicName1 = "TEST1"
-  sGraphicName2 = "TEST2"
-  sGraphicName3 = "TEST3"
-
-  sWidth       = "7"+ gSeperator + "00" + gMeasurementUnit
-  sHeight      = "6"+ gSeperator + "00" + gMeasurementUnit
-
-  PrintLog "- Test Set different attributes via dialog  Arrange (bring to front)"
- '/// Test Set different attributes via dialog Arrange (bring to front)
-
-  Call hNewDocument
-
-  Call wTypeKeys "<Return>"
-
-  '/// Insert three Graphics at the same place , and named in series
-
-   'the 1st graphic
-   fInsertGraphics("Bughunter.jpg")
-
-   fFormatGraphic("TabZusaetze")
-   Sleep 1
-   ObjektName.SetText sGraphicName1
-   TabZusaetze.OK
-
-   fFormatGraphic("TabType")
-   KeepRatio.UnCheck
-   Sleep 1
-   Width.SetText    sWidth
-   wait 500
-   Height.SetText   sHeight
-   wait 500
-   TabType.OK
-
-   Call wTypeKeys "<ESCape>"
-
-   'the 2nd graphic
-   fInsertGraphics("flowers.gif")
-
-   fFormatGraphic("TabZusaetze")
-   Sleep 1
-   ObjektName.SetText sGraphicName2
-   TabZusaetze.OK
-
-   fFormatGraphic("TabType")
-   KeepRatio.UnCheck
-   Sleep 1
-   Width.SetText    sWidth
-   wait 500
-   Height.SetText   sHeight
-   wait 500
-   TabType.OK
-
-   Call wTypeKeys "<ESCape>"
-
-   'the 3rd graphic
-   fInsertGraphics("game.bmp")
-
-   fFormatGraphic("TabZusaetze")
-   Sleep 1
-   ObjektName.SetText sGraphicName3
-   TabZusaetze.OK
-
-   fFormatGraphic("TabType")
-   KeepRatio.UnCheck
-   Sleep 1
-   Width.SetText    sWidth
-   wait 500
-   Height.SetText   sHeight
-   wait 500
-   TabType.OK
-
-   '/// Format / Arrange / Send to back
-   FormatArrangeSendToBack
-   Sleep 2
-
-   '/// Format / Arrange / bring to front
-   FormatArrangeBringToFront
-   Sleep 1
-
-   Call wTypeKeys "<ESCape>"
-   Sleep 1
-
-   '/// Check if the attributes Arrange (send to back) works well
-   Call wNavigatorAuswahl(4,1)
-   Sleep 1
-   fFormatGraphic("TabZusaetze")
-   Sleep 1
-   if ObjektName.GetText <> sGraphicName1  then Warnlog "The graphic's name is not correct ,should be "+sGraphicName1 + " but get " +ObjektName.GetText
-   TabZusaetze.Cancel
-
-   Call wNavigatorAuswahl(4,2)
-   Sleep 1
-   fFormatGraphic("TabZusaetze")
-   Sleep 1
-   if ObjektName.GetText <> sGraphicName2  then Warnlog "The graphic's name is not correct ,should be "+sGraphicName2 + " but get " +ObjektName.GetText
-   TabZusaetze.Cancel
-
-   Call wNavigatorAuswahl(4,3)
-   Sleep 1
-   fFormatGraphic("TabZusaetze")
-   Sleep 1
-   if ObjektName.GetText <> sGraphicName3  then Warnlog "The graphic's name is not correct ,should be "+sGraphicName3 + " but get " +ObjektName.GetText
-   TabZusaetze.Cancel
-
-   Call hCloseDocument
-
-endcase
-
-'-------------------------------------------------------------------------------------------
-
-testcase tInsertGraphic_16
-
-  Dim sGraphicName1 as String
-  Dim sGraphicName2 as String
-  Dim sGraphicName3 as String
-  Dim sWidth as String
-  Dim sHeight as String
-
-  sGraphicName1 = "TEST1"
-  sGraphicName2 = "TEST2"
-  sGraphicName3 = "TEST3"
-
-  sWidth       = "7"+ gSeperator + "00" + gMeasurementUnit
-  sHeight      = "6"+ gSeperator + "00" + gMeasurementUnit
-
-  PrintLog "- Test Set different attributes via dialog  Arrange (bring forward)"
- '/// Test Set different attributes via dialog Arrange (bring forward)
-
-   Call hNewDocument
-
-   Call wTypeKeys "<Return>"
-
-  '/// Insert three Graphics at the same place , and named in series
-
-   'the 1st graphic
-   fInsertGraphics("Bughunter.jpg")
-
-   fFormatGraphic("TabZusaetze")
-   Sleep 1
-   ObjektName.SetText sGraphicName1
-   TabZusaetze.OK
-
-   fFormatGraphic("TabType")
-   KeepRatio.UnCheck
-   Sleep 1
-   Width.SetText        sWidth
-   wait 500
-   Height.SetText       sHeight
-   wait 500
-   TabType.OK
-
-   Call wTypeKeys "<ESCape>"
-
-   'the 2nd graphic
-   fInsertGraphics("flowers.gif")
-
-   fFormatGraphic("TabZusaetze")
-   Sleep 1
-   ObjektName.SetText sGraphicName2
-   TabZusaetze.OK
-
-   fFormatGraphic("TabType")
-   KeepRatio.UnCheck
-   Sleep 1
-   Width.SetText        sWidth
-   wait 500
-   Height.SetText       sHeight
-   wait 500
-   TabType.OK
-
-   Call wTypeKeys "<ESCape>"
-
-   'the 3rd graphic
-   fInsertGraphics("game.bmp")
-
-   fFormatGraphic("TabZusaetze")
-   Sleep 1
-   ObjektName.SetText sGraphicName3
-   TabZusaetze.OK
-
-   fFormatGraphic("TabType")
-   KeepRatio.UnCheck
-   Sleep 1
-   Width.SetText        sWidth
-   wait 500
-   Height.SetText       sHeight
-   wait 500
-   TabType.OK
-
-   '/// Format / Arrange / Send to back
-   FormatArrangeSendToBack
-   Sleep 1
-
-   '/// Format / Arrange / bring forward
-   FormatArrangeBringForward
-   Sleep 1
-
-   Call wTypeKeys "<ESCape>"
-   Sleep 1
-
-   '/// Check if the attributes Arrange (send to back) works well
-   Call wNavigatorAuswahl(4,1)
-   Sleep 1
-   fFormatGraphic("TabZusaetze")
-   Sleep 1
-   if ObjektName.GetText <> sGraphicName1  then Warnlog "The graphic's name is not correct ,should be "+sGraphicName1 + " but get " +ObjektName.GetText
-   TabZusaetze.Cancel
-
-   Call wNavigatorAuswahl(4,2)
-   Sleep 1
-   fFormatGraphic("TabZusaetze")
-   Sleep 1
-   if ObjektName.GetText <> sGraphicName2  then Warnlog "The graphic's name is not correct ,should be "+sGraphicName2 + " but get " +ObjektName.GetText
-   TabZusaetze.Cancel
-
-   Call wNavigatorAuswahl(4,3)
-   Sleep 1
-   fFormatGraphic("TabZusaetze")
-   Sleep 1
-   if ObjektName.GetText <> sGraphicName3  then Warnlog "The graphic's name is not correct ,should be "+sGraphicName3 + " but get " +ObjektName.GetText
-   TabZusaetze.Cancel
-
-   Call hCloseDocument
-
-endcase
-
-'-------------------------------------------------------------------------------------------
-
-testcase tInsertGraphic_17
-
-  Dim sGraphicName1 as String
-  Dim sGraphicName2 as String
-  Dim sGraphicName3 as String
-  Dim sWidth as String
-  Dim sHeight as String
-
-  sGraphicName1 = "TEST1"
-  sGraphicName2 = "TEST2"
-  sGraphicName3 = "TEST3"
-
-  sWidth       = "7"+ gSeperator + "00" + gMeasurementUnit
-  sHeight      = "6"+ gSeperator + "00" + gMeasurementUnit
-
-  PrintLog "- Test Set different attributes via Contextmenu Arrange (send to back)"
- '/// Test Set different attributes via Contextmenu Arrange (send to back)
-
-   Call hNewDocument
-
-   Call wTypeKeys "<Return>"
-
-  '/// Insert three Graphics at the same place , and named in series
-
-   'the 1st graphic
-   fInsertGraphics("Bughunter.jpg")
-
-   fFormatGraphic("TabZusaetze")
-   Sleep 1
-   ObjektName.SetText sGraphicName1
-   TabZusaetze.OK
-
-   fFormatGraphic("TabType")
-   KeepRatio.UnCheck
-   Sleep 1
-   Width.SetText        sWidth
-   wait 500
-   Height.SetText       sHeight
-   wait 500
-   TabType.OK
-
-   Call wTypeKeys "<ESCape>"
-
-   'the 2nd graphic
-   fInsertGraphics("flowers.gif")
-
-   fFormatGraphic("TabZusaetze")
-   Sleep 1
-   ObjektName.SetText sGraphicName2
-   TabZusaetze.OK
-
-   fFormatGraphic("TabType")
-   KeepRatio.UnCheck
-   Sleep 1
-   Width.SetText        sWidth
-   wait 500
-   Height.SetText       sHeight
-   wait 500
-   TabType.OK
-
-   Call wTypeKeys "<ESCape>"
-
-   'the 3rd graphic
-   fInsertGraphics("game.bmp")
-
-   fFormatGraphic("TabZusaetze")
-   Sleep 1
-   ObjektName.SetText sGraphicName3
-   TabZusaetze.OK
-
-   fFormatGraphic("TabType")
-   KeepRatio.UnCheck
-   Sleep 1
-   Width.SetText        sWidth
-   wait 500
-   Height.SetText       sHeight
-   wait 500
-   TabType.OK
-
-   '/// ContextMenu  Arrange / Send to back
-   Call wOpenContextMenu
-    hMenuSelectNr(1)
-    Sleep 2
-    hMenuSelectNr(4)
-    Sleep 1
-
-   Call wTypeKeys "<ESCape>"
-   Sleep 1
-
-   '/// Check if the attributes Arrange (send to back) works well
-   Call wNavigatorAuswahl(4,1)
-   Sleep 1
-   fFormatGraphic("TabZusaetze")
-   Sleep 1
-   if ObjektName.GetText <> sGraphicName1  then Warnlog "The graphic's name is not correct ,should be "+sGraphicName1 + " but get " +ObjektName.GetText
-   TabZusaetze.Cancel
-
-   Call wNavigatorAuswahl(4,2)
-   Sleep 1
-   fFormatGraphic("TabZusaetze")
-   Sleep 1
-   if ObjektName.GetText <> sGraphicName2  then Warnlog "The graphic's name is not correct ,should be "+sGraphicName2 + " but get " +ObjektName.GetText
-   TabZusaetze.Cancel
-
-   Call wNavigatorAuswahl(4,3)
-   Sleep 1
-   fFormatGraphic("TabZusaetze")
-   Sleep 1
-   if ObjektName.GetText <> sGraphicName3  then Warnlog "The graphic's name is not correct ,should be "+sGraphicName3 + " but get " +ObjektName.GetText
-   TabZusaetze.Cancel
-
-   Call hCloseDocument
-
-endcase
-
-'-------------------------------------------------------------------------------------------
-
-testcase tInsertGraphic_18
-
-    Dim sGraphicName1 as String
-    Dim sGraphicName2 as String
-    Dim sGraphicName3 as String
-    Dim sWidth as String
-    Dim sHeight as String
-
-    sGraphicName1 = "TEST1"
-    sGraphicName2 = "TEST2"
-    sGraphicName3 = "TEST3"
-
-    sWidth       = "7"+ gSeperator + "00" + gMeasurementUnit
-    sHeight      = "6"+ gSeperator + "00" + gMeasurementUnit
-
-    PrintLog "- Test Set different attributes via Contextmenu Arrange (send backward)"
-    '/// Test Set different attributes via Contextmenu Arrange (send backward)
-
-    Call hNewDocument
-
-    Call wTypeKeys "<Return>"
-
-    '/// Insert three Graphics at the same place , and named in series
-
-    'the 1st graphic
-    fInsertGraphics("Bughunter.jpg")
-
-    fFormatGraphic("TabZusaetze")
-    Sleep 1
-    ObjektName.SetText sGraphicName1
-    Kontext
-    Active.Setpage TabType
-    Kontext "TabType"
-    KeepRatio.UnCheck
-    Sleep 1
-    Width.SetText        sWidth
-    wait 500
-    Height.SetText       sHeight
-    wait 500
-    TabType.OK
-
-    Call wTypeKeys "<ESCape>"
-
-    'the 2nd graphic
-    fInsertGraphics("flowers.gif")
-
-    fFormatGraphic("TabZusaetze")
-    Sleep 1
-    ObjektName.SetText sGraphicName2
-    TabZusaetze.OK
-
-    fFormatGraphic("TabType")
-    KeepRatio.UnCheck
-    Sleep 1
-    Width.SetText        sWidth
-    wait 500
-    Height.SetText       sHeight
-    wait 500
-    TabType.OK
-
-    Call wTypeKeys "<ESCape>"
-
-    'the 3rd graphic
-    fInsertGraphics("game.bmp")
-
-    fFormatGraphic("TabZusaetze")
-    Sleep 1
-    ObjektName.SetText sGraphicName3
-    TabZusaetze.OK
-
-    fFormatGraphic("TabType")
-    KeepRatio.UnCheck
-    Sleep 1
-    Width.SetText        sWidth
-    wait 500
-    Height.SetText       sHeight
-    wait 500
-    TabType.OK
-
-    '/// ContextMenu  Arrange / Send backward
-    Call wOpenContextMenu
-    hMenuSelectNr(1)
-    Sleep 2
-    hMenuSelectNr(3)
-    Sleep 1
-
-    Call wTypeKeys "<ESCape>"
-    Sleep 1
-
-    '/// Check if the attributes Arrange (send to back) works well
-    Call wNavigatorAuswahl(4,1)
-    Sleep 1
-    fFormatGraphic("TabZusaetze")
-    Sleep 1
-    if ObjektName.GetText <> sGraphicName1  then Warnlog "The graphic's name is not correct ,should be "+sGraphicName1 + " but get " +ObjektName.GetText
-    TabZusaetze.Cancel
-
-    Call wNavigatorAuswahl(4,2)
-    Sleep 1
-    fFormatGraphic("TabZusaetze")
-    Sleep 1
-    if ObjektName.GetText <> sGraphicName2  then Warnlog "The graphic's name is not correct ,should be "+sGraphicName2 + " but get " +ObjektName.GetText
-    TabZusaetze.Cancel
-
-    Call wNavigatorAuswahl(4,3)
-    Sleep 1
-    fFormatGraphic("TabZusaetze")
-    Sleep 1
-    if ObjektName.GetText <> sGraphicName3  then Warnlog "The graphic's name is not correct ,should be "+sGraphicName3 + " but get " +ObjektName.GetText
-    TabZusaetze.Cancel
-
-    Call hCloseDocument
-
-endcase
-
-'-------------------------------------------------------------------------------------------
-
-testcase tInsertGraphic_19
-
-    Dim sGraphicName1 as String
-    Dim sGraphicName2 as String
-    Dim sGraphicName3 as String
-    Dim sWidth as String
-    Dim sHeight as String
-
-    sGraphicName1 = "TEST1"
-    sGraphicName2 = "TEST2"
-    sGraphicName3 = "TEST3"
-
-    sWidth       = "7"+ gSeperator + "00" + gMeasurementUnit
-    sHeight      = "6"+ gSeperator + "00" + gMeasurementUnit
-
-    PrintLog "- Test Set different attributes via Contextmenu Arrange (bring to front)"
-    '/// Test Set different attributes via Contextmenu Arrange (bring to front)
-
-    Call hNewDocument
-
-    Call wTypeKeys "<Return>"
-
-    '/// Insert three Graphics at the same place , and named in series
-
-    'the 1st graphic
-    fInsertGraphics("Bughunter.jpg")
-
-    fFormatGraphic("TabZusaetze")
-    Sleep 1
-    ObjektName.SetText sGraphicName1
-
-    Kontext
-    Active.Setpage TabType
-    Kontext "TabType"
-
-    KeepRatio.UnCheck
-    Sleep 1
-    Width.SetText        sWidth
-    wait 500
-    Height.SetText       sHeight
-    wait 500
-    TabType.OK
-
-    Call wTypeKeys "<ESCape>"
-
-    'the 2nd graphic
-    fInsertGraphics("flowers.gif")
-
-    fFormatGraphic("TabZusaetze")
-    Sleep 1
-    ObjektName.SetText sGraphicName2
-    TabZusaetze.OK
-
-    fFormatGraphic("TabType")
-    KeepRatio.UnCheck
-    Sleep 1
-    Width.SetText        sWidth
-    wait 500
-    Height.SetText       sHeight
-    wait 500
-    TabType.OK
-
-    Call wTypeKeys "<ESCape>"
-
-    'the 3rd graphic
-    fInsertGraphics("game.bmp")
-
-    fFormatGraphic("TabZusaetze")
-    Sleep 1
-    ObjektName.SetText sGraphicName3
-    TabZusaetze.OK
-
-    fFormatGraphic("TabType")
-    KeepRatio.UnCheck
-    Sleep 1
-    Width.SetText        sWidth
-    wait 500
-    Height.SetText       sHeight
-    wait 500
-    TabType.OK
-
-    '/// Format / Arrange / Send to back
-    FormatArrangeSendToBack
-    Sleep 2
-
-    '/// ContextMenu Arrange / bring to front
-    Call wOpenContextMenu
-    hMenuSelectNr(1)
-    Sleep 2
-    hMenuSelectNr(1)
-    Sleep 1
-
-    Call wTypeKeys "<ESCape>"
-    Sleep 1
-
-    '/// Check if the attributes Arrange (send to back) works well
-    Call wNavigatorAuswahl(4,1)
-    Sleep 1
-    fFormatGraphic("TabZusaetze")
-    Sleep 1
-    if ObjektName.GetText <> sGraphicName1  then Warnlog "The graphic's name is not correct ,should be "+sGraphicName1 + " but get " +ObjektName.GetText
-    TabZusaetze.Cancel
-
-    Call wNavigatorAuswahl(4,2)
-    Sleep 1
-    fFormatGraphic("TabZusaetze")
-    Sleep 1
-    if ObjektName.GetText <> sGraphicName2  then Warnlog "The graphic's name is not correct ,should be "+sGraphicName2 + " but get " +ObjektName.GetText
-    TabZusaetze.Cancel
-
-    Call wNavigatorAuswahl(4,3)
-    Sleep 1
-    fFormatGraphic("TabZusaetze")
-    Sleep 1
-    if ObjektName.GetText <> sGraphicName3  then Warnlog "The graphic's name is not correct ,should be "+sGraphicName3 + " but get " +ObjektName.GetText
-    TabZusaetze.Cancel
-
-    Call hCloseDocument
-
-endcase
-
-'-------------------------------------------------------------------------------------------
-
-testcase tInsertGraphic_20
-
-  Dim sGraphicName1 as String
-  Dim sGraphicName2 as String
-  Dim sGraphicName3 as String
-  Dim sWidth as String
-  Dim sHeight as String
-
-  sGraphicName1 = "TEST1"
-  sGraphicName2 = "TEST2"
-  sGraphicName3 = "TEST3"
-
-  sWidth       = "7"+ gSeperator + "00" + gMeasurementUnit
-  sHeight      = "6"+ gSeperator + "00" + gMeasurementUnit
-
-  PrintLog "- Test Set different attributes via Contextmenu Arrange (bring forward)"
- '/// Test Set different attributes via Contextmenu Arrange (bring forward)
-
-   Call hNewDocument
-
-   Call wTypeKeys "<Return>"
-
-  '/// Insert three Graphics at the same place , and named in series
-
-   'the 1st graphic
-   fInsertGraphics("Bughunter.jpg")
-
-   fFormatGraphic("TabZusaetze")
-   Sleep 1
-   ObjektName.SetText sGraphicName1
-   TabZusaetze.OK
-
-   fFormatGraphic("TabType")
-   KeepRatio.UnCheck
-   Sleep 1
-   Width.SetText        sWidth
-   wait 500
-   Height.SetText       sHeight
-   wait 500
-   TabType.OK
-
-   Call wTypeKeys "<ESCape>"
-
-   'the 2nd graphic
-   fInsertGraphics("flowers.gif")
-
-   fFormatGraphic("TabZusaetze")
-   Sleep 1
-   ObjektName.SetText sGraphicName2
-   TabZusaetze.OK
-
-   fFormatGraphic("TabType")
-   KeepRatio.UnCheck
-   Sleep 1
-   Width.SetText        sWidth
-   wait 500
-   Height.SetText       sHeight
-   wait 500
-   TabType.OK
-
-   Call wTypeKeys "<ESCape>"
-
-   'the 3rd graphic
-   fInsertGraphics("game.bmp")
-
-   fFormatGraphic("TabZusaetze")
-   Sleep 1
-   ObjektName.SetText sGraphicName3
-   TabZusaetze.OK
-
-   fFormatGraphic("TabType")
-   KeepRatio.UnCheck
-   Sleep 1
-   Width.SetText        sWidth
-   wait 500
-   Height.SetText       sHeight
-   wait 500
-   TabType.OK
-
-   '/// Format / Arrange / Send to back
-   FormatArrangeSendToBack
-   Sleep 1
-
-   '/// ContextMenu Arrange / bring forward
-   Call wOpenContextMenu
-    hMenuSelectNr(1)
-    Sleep 2
-    hMenuSelectNr(2)
-    Sleep 1
-
-   Call wTypeKeys "<ESCape>"
-   Sleep 1
-
-   '/// Check if the attributes Arrange (send to back) works well
-   Call wNavigatorAuswahl(4,1)
-   Sleep 1
-   fFormatGraphic("TabZusaetze")
-   Sleep 1
-   if ObjektName.GetText <> sGraphicName1  then Warnlog "The graphic's name is not correct ,should be "+sGraphicName1 + " but get " +ObjektName.GetText
-   TabZusaetze.Cancel
-
-   Call wNavigatorAuswahl(4,2)
-   Sleep 1
-   fFormatGraphic("TabZusaetze")
-   Sleep 1
-   if ObjektName.GetText <> sGraphicName2  then Warnlog "The graphic's name is not correct ,should be "+sGraphicName2 + " but get " +ObjektName.GetText
-   TabZusaetze.Cancel
-
-   Call wNavigatorAuswahl(4,3)
-   Sleep 1
-   fFormatGraphic("TabZusaetze")
-   Sleep 1
-   if ObjektName.GetText <> sGraphicName3  then Warnlog "The graphic's name is not correct ,should be "+sGraphicName3 + " but get " +ObjektName.GetText
-   TabZusaetze.Cancel
-
-   Call hCloseDocument
-
-endcase
-
-'-------------------------------------------------------------------------------------------
diff --git a/testautomation/writer/optional/includes/insertgraphic/w_insertgraphic3.inc b/testautomation/writer/optional/includes/insertgraphic/w_insertgraphic3.inc
deleted file mode 100644
index 2a161b2200d1..000000000000
--- a/testautomation/writer/optional/includes/insertgraphic/w_insertgraphic3.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 : helge.delfs@oracle.com
-'*
-'* short description : Test of the insert graphic function - 3
-'*
-'************************************************************************
-'*
-' #1 tInsertGraphic_21     'Test Alignment via dialog: anchor to paragraph -> Left, centered, right, top, center, bottom
-' #1 tInsertGraphic_22     'Test Alignment via dialog: anchor to page -> Left, centered, right, top, center, bottom
-' #1 tInsertGraphic_23     'Test Alignment via dialog: anchor to character -> Left, centered, right, top, center, bottom
-' #1 tInsertGraphic_24     'Test Alignment via dialog: anchor as character -> top, center, bottom of baseline
-' #1 tInsertGraphic_25     'Test Alignment via Contextmenu: anchor to paragraph -> Left, centered, right, top, center, bottom
-' #1 tInsertGraphic_26     'Test Alignment via Contextmenu: anchor to page -> Left, centered, right, top, center, bottom
-' #1 tInsertGraphic_27     'Test Alignment via Contextmenu: anchor to character -> Left, centered, right, top, center, bottom
-' #1 tInsertGraphic_28     'Test Alignment via Contextmenu: anchor as character -> top, center, bottom of baseline
-' #1 tInsertGraphic_29     'Test Wrap via dialog : none, Page Wrap, Optimal Page Wrap, Contour Wrap ,Wrap through, in Background , first paragraph
-' #1 tInsertGraphic_30     'Test Wrap via ContextMenuTest : none, Page Wrap, Optimal Page Wrap, Contour Wrap ,Wrap through, in Background , first paragraph
-'*
-'\***********************************************************************
-
-testcase tInsertGraphic_21
-
-  Dim iLeft as Integer , iRight as Integer  , iCenterHorizontal as Integer
-  Dim iTop  as Integer , iBottom as Integer , iCenterVertical   as Integer
-
-  iLeft = 1 : iRight  = 2  : iCenterHorizontal = 3
-  iTop  = 1 : iBottom = 2  : iCenterVertical   = 3
-
-  PrintLog "- Test Alignment via dialog: anchor to paragraph -> Left, centered, right, top, center, bottom"
- '/// Test Alignment via dialog: anchor to paragraph -> Left, centered, right, top, center, bottom
-
-   Call hNewDocument
-
-  '/// Insert a graphics
-   fInsertGraphics("Bughunter.jpg")
-
-  '/// Format / anchor / to paragraph
-   FormatAnchorToParagraph
-   Sleep 1
-
-   PrintLog "  Left:"
-  '/// Format / Alignment / Left
-   FormatAlignmentLeft
-   Sleep 1
-
-  '/// - Check the graphic position
-   fFormatGraphic("TabType")
-    Sleep 1
-    if AnchorAtparagraph.IsChecked <> TRUE  then Warnlog "Anchor should be checked to 'to paragraph' !"
-    if Horizontal.GetSelIndex      <> iLeft then Warnlog "The graphic's Horizontal option is not correct ! "
-    if Vertical.GetSelIndex        <> iTop  then Warnlog "The graphic's Vertical option is not correct ! "
-   TabType.Cancel
-
-   PrintLog "  Centered:"
-  '/// Format / Alignment / Centered
-   FormatAlignmentCentered
-   Sleep 1
-
-  '/// - Check the graphic position
-   fFormatGraphic("TabType")
-    Sleep 1
-    if Horizontal.GetSelIndex <> iCenterHorizontal then Warnlog "The graphic's Horizontal option is not correct ! "
-    if Vertical.GetSelIndex   <> iTop              then Warnlog "The graphic's Vertical option is not correct ! "
-   TabType.Cancel
-
-   PrintLog "  Right:"
-  '/// Format / Alignment / Right
-   FormatAlignmentRight
-   Sleep 1
-
-  '/// - Check the graphic position
-   fFormatGraphic("TabType")
-    Sleep 1
-    if Horizontal.GetSelIndex <> iRight  then Warnlog "The graphic's Horizontal option is not correct ! "
-    if Vertical.GetSelIndex   <> iTop    then Warnlog "The graphic's Vertical option is not correct ! "
-   TabType.Cancel
-
-   PrintLog "  Top:"
-  '/// Format / Alignment / Top
-   FormatAlignmentTop
-   Sleep 1
-
-  '/// - Check the graphic position
-   fFormatGraphic("TabType")
-    Sleep 1
-    if Horizontal.GetSelIndex <> iRight   then Warnlog "The graphic's Horizontal option is not correct ! "
-    if Vertical.GetSelIndex   <> iTop     then Warnlog "The graphic's Vertical option is not correct ! "
-   TabType.Cancel
-
-   PrintLog "  Center:"
-  '/// Format / Alignment / Center
-   FormatAlignmentCenter
-   Sleep 1
-
-  '/// - Check the graphic position
-   fFormatGraphic("TabType")
-    Sleep 1
-    if Horizontal.GetSelIndex <> iRight            then Warnlog "The graphic's Horizontal option is not correct ! "
-    if Vertical.GetSelIndex   <> iCenterVertical   then Warnlog "#110281# The graphic's Vertical option is not correct ! "
-   TabType.Cancel
-
-   PrintLog "  Bottom:"
-  '/// Format / Alignment / Bottom
-   FormatAlignmentBottom
-   Sleep 1
-
-  '/// - Check the graphic position
-   fFormatGraphic("TabType")
-    Sleep 1
-    if Horizontal.GetSelIndex <> iRight   then Warnlog "The graphic's Horizontal option is not correct ! "
-    if Vertical.GetSelIndex   <> iBottom  then Warnlog "The graphic's Vertical option is not correct ! "
-   TabType.Cancel
-
-   Call hCloseDocument
-
-endcase
-
-'-------------------------------------------------------------------------------------------
-
-testcase tInsertGraphic_22
-
-  Dim iLeft as Integer , iRight  as Integer , iCenterHorizontal as Integer
-  Dim iTop  as Integer , iBottom as Integer , iCenterVertical   as Integer
-
-  iLeft = 1 : iRight  = 2  : iCenterHorizontal = 3
-  iTop  = 1 : iBottom = 2  : iCenterVertical   = 3
-
-  PrintLog "- Test Alignment via dialog: anchor to page -> Left, centered, right, top, center, bottom"
- '/// Test Alignment via dialog: anchor to page -> Left, centered, right, top, center, bottom
-
-   Call hNewDocument
-
-  '/// Insert a graphics
-   fInsertGraphics("Bughunter.jpg")
-
-  '/// Format / anchor / To Page
-   FormatAnchorToPage
-   Sleep 1
-
-   PrintLog "  Left:"
-  '/// Format / Alignment / Left
-   FormatAlignmentLeft
-   Sleep 1
-
-  '/// - Check the graphic position
-   fFormatGraphic("TabType")
-    Sleep 1
-    if AnchorAtPage.IsChecked <> TRUE  then Warnlog "Anchor should be checked to 'To Page' !"
-    if Horizontal.GetSelIndex <> iLeft then Warnlog "The graphic's Horizontal option is not correct ! "
-    if Vertical.GetSelIndex   <> iTop  then Warnlog "The graphic's Vertical option is not correct ! "
-   TabType.Cancel
-
-   PrintLog "  Centered:"
-  '/// Format / Alignment / Centered
-   FormatAlignmentCentered
-   Sleep 1
-
-  '/// - Check the graphic position
-   fFormatGraphic("TabType")
-    Sleep 1
-    if Horizontal.GetSelIndex <> iCenterHorizontal then Warnlog "The graphic's Horizontal option is not correct ! "
-    if Vertical.GetSelIndex   <> iTop              then Warnlog "The graphic's Vertical option is not correct ! "
-   TabType.Cancel
-
-   PrintLog "  Right:"
-  '/// Format / Alignment / Right
-   FormatAlignmentRight
-   Sleep 1
-
-  '/// - Check the graphic position
-   fFormatGraphic("TabType")
-    Sleep 1
-    if Horizontal.GetSelIndex <> iRight  then Warnlog "The graphic's Horizontal option is not correct ! "
-    if Vertical.GetSelIndex   <> iTop    then Warnlog "The graphic's Vertical option is not correct ! "
-   TabType.Cancel
-
-   PrintLog "  Top:"
-  '/// Format / Alignment / Top
-   FormatAlignmentTop
-   Sleep 1
-
-  '/// - Check the graphic position
-   fFormatGraphic("TabType")
-    Sleep 1
-    if Horizontal.GetSelIndex <> iRight   then Warnlog "The graphic's Horizontal option is not correct ! "
-    if Vertical.GetSelIndex   <> iTop     then Warnlog "The graphic's Vertical option is not correct ! "
-   TabType.Cancel
-
-   PrintLog "  Center:"
-  '/// Format / Alignment / Center
-   FormatAlignmentCenter
-   Sleep 1
-
-  '/// - Check the graphic position
-   fFormatGraphic("TabType")
-    Sleep 1
-    if Horizontal.GetSelIndex <> iRight            then Warnlog "The graphic's Horizontal option is not correct ! "
-    if Vertical.GetSelIndex   <> iCenterVertical   then Warnlog "The graphic's Vertical option is not correct ! "
-   TabType.Cancel
-
-   PrintLog "  Bottom:"
-  '/// Format / Alignment / Bottom
-   FormatAlignmentBottom
-   Sleep 1
-
-  '/// - Check the graphic position
-   fFormatGraphic("TabType")
-    Sleep 1
-    if Horizontal.GetSelIndex <> iRight   then Warnlog "The graphic's Horizontal option is not correct ! "
-    if Vertical.GetSelIndex   <> iBottom  then Warnlog "The graphic's Vertical option is not correct ! "
-   TabType.Cancel
-
-   Call hCloseDocument
-
-endcase
-
-'-------------------------------------------------------------------------------------------
-
-testcase tInsertGraphic_23
-
-  Dim iLeft as Integer , iRight  as Integer , iCenterHorizontal as Integer
-  Dim iTop  as Integer , iBottom as Integer , iCenterVertical   as Integer
-
-  iLeft = 1 : iRight  = 2  : iCenterHorizontal = 3
-  iTop  = 1 : iBottom = 2  : iCenterVertical   = 3
-
-  PrintLog "- Test Alignment via dialog: anchor to character -> Left, centered, right, top, center, bottom"
- '/// Test Alignment via dialog: anchor to character -> Left, centered, right, top, center, bottom
-
-   Call hNewDocument
-
-  '/// Insert a graphics
-   fInsertGraphics("Bughunter.jpg")
-
-  '/// Format / anchor / To character
-   FormatAnchorTocharacter
-   Sleep 1
-
-   PrintLog "  Left:"
-  '/// Format / Alignment / Left
-   FormatAlignmentLeft
-   Sleep 1
-
-  '/// - Check the graphic position
-   fFormatGraphic("TabType")
-    Sleep 1
-    if AnchorAtCharacter.IsChecked <> TRUE   then Warnlog "Anchor should be checked to 'to paragraph' !"
-    if Horizontal.GetSelIndex <> iLeft then Warnlog "The graphic's Horizontal option is not correct ! "
-    if Vertical.GetSelIndex   <> iTop  then Warnlog "The graphic's Vertical option is not correct ! "
-   TabType.Cancel
-
-   PrintLog "  Centered:"
-  '/// Format / Alignment / Centered
-   FormatAlignmentCentered
-   Sleep 1
-
-  '/// - Check the graphic position
-   fFormatGraphic("TabType")
-    Sleep 1
-    if Horizontal.GetSelIndex <> iCenterHorizontal then Warnlog "The graphic's Horizontal option is not correct ! "
-    if Vertical.GetSelIndex   <> iTop              then Warnlog "The graphic's Vertical option is not correct ! "
-   TabType.Cancel
-
-   PrintLog "  Right:"
-  '/// Format / Alignment / Right
-   FormatAlignmentRight
-   Sleep 1
-
-  '/// - Check the graphic position
-   fFormatGraphic("TabType")
-    Sleep 1
-    if Horizontal.GetSelIndex <> iRight  then Warnlog "The graphic's Horizontal option is not correct ! "
-    if Vertical.GetSelIndex   <> iTop    then Warnlog "The graphic's Vertical option is not correct ! "
-   TabType.Cancel
-
-   PrintLog "  Top:"
-  '/// Format / Alignment / Top
-   FormatAlignmentTop
-   Sleep 1
-
-  '/// - Check the graphic position
-   fFormatGraphic("TabType")
-    Sleep 1
-    if Horizontal.GetSelIndex <> iRight   then Warnlog "The graphic's Horizontal option is not correct ! "
-    if Vertical.GetSelIndex   <> iTop     then Warnlog "The graphic's Vertical option is not correct ! "
-   TabType.Cancel
-
-   PrintLog "  Center:"
-  '/// Format / Alignment / Center
-   FormatAlignmentCenter
-   Sleep 1
-
-  '/// - Check the graphic position
-   fFormatGraphic("TabType")
-    Sleep 1
-    if Horizontal.GetSelIndex <> iRight            then Warnlog "The graphic's Horizontal option is not correct ! "
-    if Vertical.GetSelIndex   <> iCenterVertical   then qaErrorLog "#111962# The graphic's Vertical option is not correct ! "
-   TabType.Cancel
-
-   PrintLog "  Bottom:"
-  '/// Format / Alignment / Bottom
-   FormatAlignmentBottom
-   Sleep 1
-
-  '/// - Check the graphic position
-   fFormatGraphic("TabType")
-    Sleep 1
-    if Horizontal.GetSelIndex <> iRight   then Warnlog "The graphic's Horizontal option is not correct ! "
-    if Vertical.GetSelIndex   <> iBottom  then Warnlog "The graphic's Vertical option is not correct ! "
-   TabType.Cancel
-
-   Call hCloseDocument
-
-endcase
-
-'-------------------------------------------------------------------------------------------
-
-testcase tInsertGraphic_24
-
-  Dim iTop as Integer  , iBottom as Integer , iCenterVertical as Integer
-
-  iTop  = 1 : iBottom = 2  : iCenterVertical   = 3
-
-  PrintLog "- Test Alignment via dialog: anchor as character -> top, center, bottom of baseline"
- '/// Test Alignment via dialog: anchor as character -> top, center, bottom of baseline
-
-   Call hNewDocument
-
-  '/// Insert a graphics
-   fInsertGraphics("Bughunter.jpg")
-
-  '/// Format / anchor / As character
-   FormatAnchorAsCharacter
-   Sleep 1
-
-   PrintLog "  Base line at top:"
-  '/// Format / Alignment / Base line at top
-   FormatAlignmentTop
-   Sleep 1
-
-  '/// - Check the graphic position
-   fFormatGraphic("TabType")
-    Sleep 1
-    if Horizontal.IsEnabled  =  TRUE  then Warnlog "The Horizontal listbox should not be enabled ! "
-    if Vertical.GetSelIndex  <> iTop  then Warnlog "The graphic's Vertical option is not correct ! "
-   TabType.Cancel
-
-   PrintLog "  Base line at center:"
-  '/// Format / Alignment / Base line at center
-   FormatAlignmentCenter
-   Sleep 1
-
-  '/// - Check the graphic position
-   fFormatGraphic("TabType")
-    Sleep 1
-    if Horizontal.IsEnabled  =  TRUE            then Warnlog "The Horizontal listbox should not be enabled ! "
-    if Vertical.GetSelIndex  <> iCenterVertical then Warnlog "The graphic's Vertical option is not correct ! "
-   TabType.Cancel
-
-   PrintLog "  Base line at bottom:"
-  '/// Format / Alignment / Base line at bottom
-   FormatAlignmentBottom
-   Sleep 1
-
-  '/// - Check the graphic position
-   fFormatGraphic("TabType")
-    Sleep 1
-    if Horizontal.IsEnabled  =  TRUE     then Warnlog "The Horizontal listbox should not be enabled ! "
-    if Vertical.GetSelIndex  <> iBottom  then Warnlog "The graphic's Vertical option is not correct ! "
-   TabType.Cancel
-
-   Call hCloseDocument
-
-endcase
-
-'-------------------------------------------------------------------------------------------
-
-testcase tInsertGraphic_25
-
-  Dim iLeft as Integer , iRight  as Integer , iCenterHorizontal as Integer
-  Dim iTop  as Integer , iBottom as Integer , iCenterVertical   as Integer
-
-  iLeft = 1 : iRight  = 2 : iCenterHorizontal = 3
-  iTop  = 1 : iBottom = 2 : iCenterVertical   = 3
-
-  PrintLog "- Test Alignment via Contextmenu: anchor to paragraph -> Left, centered, right, top, center, bottom"
- '/// Test Alignment via Contextmenu: anchor to paragraph -> Left, centered, right, top, center, bottom
-
-   Call hNewDocument
-
-  '/// Insert a graphics
-   fInsertGraphics("Bughunter.jpg")
-
-  '/// ContextMenu anchor / to paragraph
-   Call wOpenContextMenu
-    hMenuSelectNr(3)
-    Sleep 2
-    hMenuSelectNr(2)
-    Sleep 1
-
-   PrintLog "  Left:"
-  '/// ContextMenu Alignment / Left
-   Call wOpenContextMenu
-    hMenuSelectNr(2)
-    Sleep 2
-    hMenuSelectNr(1)
-    Sleep 1
-
-  '/// - Check the graphic position
-   fFormatGraphic("TabType")
-    Sleep 1
-    if AnchorAtparagraph.IsChecked <> TRUE  then Warnlog "Anchor should be checked to 'to paragraph' !"
-    if Horizontal.GetSelIndex      <> iLeft then Warnlog "The graphic's Horizontal option is not correct ! "
-    if Vertical.GetSelIndex        <> iTop  then Warnlog "The graphic's Vertical option is not correct ! "
-   TabType.Cancel
-
-   PrintLog "  Centered:"
-  '/// ContextMenu Alignment / Centered
-   Call wOpenContextMenu
-    hMenuSelectNr(2)
-    Sleep 2
-    hMenuSelectNr(2)
-    Sleep 1
-
-  '/// - Check the graphic position
-   fFormatGraphic("TabType")
-    Sleep 1
-    if Horizontal.GetSelIndex <> iCenterHorizontal then Warnlog "The graphic's Horizontal option is not correct ! "
-    if Vertical.GetSelIndex   <> iTop              then Warnlog "The graphic's Vertical option is not correct ! "
-   TabType.Cancel
-
-   PrintLog "  Right:"
-  '/// ContextMenu Alignment / Right
-   Call wOpenContextMenu
-    hMenuSelectNr(2)
-    Sleep 2
-    hMenuSelectNr(3)
-    Sleep 1
-
-  '/// - Check the graphic position
-   fFormatGraphic("TabType")
-    Sleep 1
-    if Horizontal.GetSelIndex <> iRight  then Warnlog "The graphic's Horizontal option is not correct ! "
-    if Vertical.GetSelIndex   <> iTop    then Warnlog "The graphic's Vertical option is not correct ! "
-   TabType.Cancel
-
-   PrintLog "  Top:"
-  '/// ContextMenu Alignment / Top
-   Call wOpenContextMenu
-    hMenuSelectNr(2)
-    Sleep 2
-    hMenuSelectNr(4)
-    Sleep 1
-
-  '/// - Check the graphic position
-   fFormatGraphic("TabType")
-    Sleep 1
-    if Horizontal.GetSelIndex <> iRight   then Warnlog "The graphic's Horizontal option is not correct ! "
-    if Vertical.GetSelIndex   <> iTop     then Warnlog "The graphic's Vertical option is not correct ! "
-   TabType.Cancel
-
-   PrintLog "  Center:"
-  '/// ContextMenu Alignment / Center
-   Call wOpenContextMenu
-    hMenuSelectNr(2)
-    Sleep 2
-    hMenuSelectNr(5)
-    Sleep 1
-
-  '/// - Check the graphic position
-   fFormatGraphic("TabType")
-    Sleep 1
-    if Horizontal.GetSelIndex <> iRight            then Warnlog "The graphic's Horizontal option is not correct ! "
-    if Vertical.GetSelIndex   <> iCenterVertical   then Warnlog "#110281# The graphic's Vertical option is not correct ! "
-   TabType.Cancel
-
-   PrintLog "  Bottom:"
-  '/// ContextMenu Alignment / Bottom
-   Call wOpenContextMenu
-    hMenuSelectNr(2)
-    Sleep 2
-    hMenuSelectNr(6)
-    Sleep 1
-
-  '/// - Check the graphic position
-   fFormatGraphic("TabType")
-    Sleep 1
-    if Horizontal.GetSelIndex <> iRight   then Warnlog "The graphic's Horizontal option is not correct ! "
-    if Vertical.GetSelIndex   <> iBottom  then Warnlog "The graphic's Vertical option is not correct ! "
-   TabType.Cancel
-
-   Call hCloseDocument
-
-endcase
-
-'-------------------------------------------------------------------------------------------
-
-testcase tInsertGraphic_26
-
-  Dim iLeft as Integer , iRight  as Integer , iCenterHorizontal as Integer
-  Dim iTop  as Integer , iBottom as Integer , iCenterVertical   as Integer
-
-  iLeft = 1 : iRight  = 2  : iCenterHorizontal = 3
-  iTop  = 1 : iBottom = 2  : iCenterVertical   = 3
-
-  PrintLog "- Test Alignment via Contextmenu: anchor to page -> Left, centered, right, top, center, bottom"
- '/// Test Alignment via dialog: Contextmenu to page -> Left, centered, right, top, center, bottom
-
-   Call hNewDocument
-
-  '/// Insert a graphics
-   fInsertGraphics("Bughunter.jpg")
-
-  '/// ContextMenu anchor / To Page
-   Call wOpenContextMenu
-    hMenuSelectNr(3)
-    Sleep 2
-    hMenuSelectNr(1)
-    Sleep 1
-
-   PrintLog "  Left:"
-  '/// ContextMenu Alignment / Left
-   Call wOpenContextMenu
-    hMenuSelectNr(2)
-    Sleep 2
-    hMenuSelectNr(1)
-    Sleep 1
-
-  '/// - Check the graphic position
-   fFormatGraphic("TabType")
-    Sleep 1
-    if AnchorAtPage.IsChecked <> TRUE  then Warnlog "Anchor should be checked to 'To Page' !"
-    if Horizontal.GetSelIndex <> iLeft then Warnlog "The graphic's Horizontal option is not correct ! "
-    if Vertical.GetSelIndex   <> iTop  then Warnlog "The graphic's Vertical option is not correct ! "
-   TabType.Cancel
-
-   PrintLog "  Centered:"
-  '/// ContextMenu Alignment / Centered
-   Call wOpenContextMenu
-    hMenuSelectNr(2)
-    Sleep 2
-    hMenuSelectNr(2)
-    Sleep 1
-
-  '/// - Check the graphic position
-   fFormatGraphic("TabType")
-    Sleep 1
-    if Horizontal.GetSelIndex <> iCenterHorizontal then Warnlog "The graphic's Horizontal option is not correct ! "
-    if Vertical.GetSelIndex   <> iTop              then Warnlog "The graphic's Vertical option is not correct ! "
-   TabType.Cancel
-
-   PrintLog "  Right:"
-  '/// ContextMenu Alignment / Right
-   Call wOpenContextMenu
-    hMenuSelectNr(2)
-    Sleep 2
-    hMenuSelectNr(3)
-    Sleep 1
-
-  '/// - Check the graphic position
-   fFormatGraphic("TabType")
-    Sleep 1
-    if Horizontal.GetSelIndex <> iRight  then Warnlog "The graphic's Horizontal option is not correct ! "
-    if Vertical.GetSelIndex   <> iTop    then Warnlog "The graphic's Vertical option is not correct ! "
-   TabType.Cancel
-
-   PrintLog "  Top:"
-  '/// ContextMenu Alignment / Top
-   Call wOpenContextMenu
-    hMenuSelectNr(2)
-    Sleep 2
-    hMenuSelectNr(4)
-    Sleep 1
-
-  '/// - Check the graphic position
-   fFormatGraphic("TabType")
-    Sleep 1
-    if Horizontal.GetSelIndex <> iRight   then Warnlog "The graphic's Horizontal option is not correct ! "
-    if Vertical.GetSelIndex   <> iTop     then Warnlog "The graphic's Vertical option is not correct ! "
-   TabType.Cancel
-
-   PrintLog "  Center:"
-  '/// ContextMenu Alignment / Center
-   Call wOpenContextMenu
-    hMenuSelectNr(2)
-    Sleep 2
-    hMenuSelectNr(5)
-    Sleep 1
-
-  '/// - Check the graphic position
-   fFormatGraphic("TabType")
-    Sleep 1
-    if Horizontal.GetSelIndex <> iRight            then Warnlog "The graphic's Horizontal option is not correct ! "
-    if Vertical.GetSelIndex   <> iCenterVertical   then Warnlog "The graphic's Vertical option is not correct ! "
-   TabType.Cancel
-
-   PrintLog "  Bottom:"
-  '/// ContextMenu Alignment / Bottom
-   Call wOpenContextMenu
-    hMenuSelectNr(2)
-    Sleep 2
-    hMenuSelectNr(6)
-    Sleep 1
-
-  '/// - Check the graphic position
-   fFormatGraphic("TabType")
-    Sleep 1
-    if Horizontal.GetSelIndex <> iRight   then Warnlog "The graphic's Horizontal option is not correct ! "
-    if Vertical.GetSelIndex   <> iBottom  then Warnlog "The graphic's Vertical option is not correct ! "
-   TabType.Cancel
-
-   Call hCloseDocument
-
-endcase
-
-'-------------------------------------------------------------------------------------------
-
-testcase tInsertGraphic_27
-
-  Dim iLeft as Integer , iRight  as Integer , iCenterHorizontal as Integer
-  Dim iTop  as Integer , iBottom as Integer , iCenterVertical   as Integer
-
-  iLeft = 1 : iRight  = 2  : iCenterHorizontal = 3
-  iTop  = 1 : iBottom = 2  : iCenterVertical   = 3
-
-  PrintLog "- Test Alignment via Contextmenu: anchor to character -> Left, centered, right, top, center, bottom"
- '/// Test Alignment via Contextmenu: anchor to character -> Left, centered, right, top, center, bottom
-
-   Call hNewDocument
-
-  '/// Insert a graphics
-   fInsertGraphics("Bughunter.jpg")
-
-  '/// ContextMenu anchor / To character
-   Call wOpenContextMenu
-    hMenuSelectNr(3)
-    Sleep 2
-    hMenuSelectNr(3)
-    Sleep 1
-
-   PrintLog "  Left:"
-  '/// ContextMenu Alignment / Left
-   Call wOpenContextMenu
-    hMenuSelectNr(2)
-    Sleep 2
-    hMenuSelectNr(1)
-    Sleep 1
-
-  '/// - Check the graphic position
-   fFormatGraphic("TabType")
-    Sleep 1
-    if AnchorAtCharacter.IsChecked <> TRUE  then Warnlog "Anchor should be checked to 'to paragraph' !"
-    if Horizontal.GetSelIndex      <> iLeft then Warnlog "The graphic's Horizontal option is not correct ! "
-    if Vertical.GetSelIndex        <> iTop  then Warnlog "The graphic's Vertical option is not correct ! "
-   TabType.Cancel
-
-   PrintLog "  Centered:"
-  '/// ContextMenu Alignment / Centered
-   Call wOpenContextMenu
-    hMenuSelectNr(2)
-    Sleep 2
-    hMenuSelectNr(2)
-    Sleep 1
-
-  '/// - Check the graphic position
-   fFormatGraphic("TabType")
-    Sleep 1
-    if Horizontal.GetSelIndex <> iCenterHorizontal then Warnlog "The graphic's Horizontal option is not correct ! "
-    if Vertical.GetSelIndex   <> iTop              then Warnlog "The graphic's Vertical option is not correct ! "
-   TabType.Cancel
-
-   PrintLog "  Right:"
-  '/// ContextMenu Alignment / Right
-   Call wOpenContextMenu
-    hMenuSelectNr(2)
-    Sleep 2
-    hMenuSelectNr(3)
-    Sleep 1
-
-  '/// - Check the graphic position
-   fFormatGraphic("TabType")
-    Sleep 1
-    if Horizontal.GetSelIndex <> iRight  then Warnlog "The graphic's Horizontal option is not correct ! "
-    if Vertical.GetSelIndex   <> iTop    then Warnlog "The graphic's Vertical option is not correct ! "
-   TabType.Cancel
-
-   PrintLog "  Top:"
-  '/// ContextMenu Alignment / Top
-   Call wOpenContextMenu
-    hMenuSelectNr(2)
-    Sleep 2
-    hMenuSelectNr(4)
-    Sleep 1
-
-  '/// - Check the graphic position
-   fFormatGraphic("TabType")
-    Sleep 1
-    if Horizontal.GetSelIndex <> iRight   then Warnlog "The graphic's Horizontal option is not correct ! "
-    if Vertical.GetSelIndex   <> iTop     then Warnlog "The graphic's Vertical option is not correct ! "
-   TabType.Cancel
-
-   PrintLog "  Center:"
-  '/// ContextMenu Alignment / Center
-   Call wOpenContextMenu
-    hMenuSelectNr(2)
-    Sleep 2
-    hMenuSelectNr(5)
-    Sleep 1
-
-  '/// - Check the graphic position
-   fFormatGraphic("TabType")
-    Sleep 1
-    if Horizontal.GetSelIndex <> iRight            then Warnlog "The graphic's Horizontal option is not correct ! "
-    if Vertical.GetSelIndex   <> iCenterVertical   then QAErrorlog "#111962#The graphic's Vertical option is not correct ! "
-   TabType.Cancel
-
-   PrintLog "  Bottom:"
-  '/// ContextMenu Alignment / Bottom
-   Call wOpenContextMenu
-    hMenuSelectNr(2)
-    Sleep 2
-    hMenuSelectNr(6)
-    Sleep 1
-
-  '/// - Check the graphic position
-   fFormatGraphic("TabType")
-    Sleep 1
-    if Horizontal.GetSelIndex <> iRight   then Warnlog "The graphic's Horizontal option is not correct ! "
-    if Vertical.GetSelIndex   <> iBottom  then Warnlog "The graphic's Vertical option is not correct ! "
-   TabType.Cancel
-
-   Call hCloseDocument
-
-endcase
-
-'-------------------------------------------------------------------------------------------
-
-testcase tInsertGraphic_28
-
-  Dim iTop as Integer , iBottom as Integer , iCenterVertical as Integer
-
-  iTop  = 1 : iBottom = 2  : iCenterVertical   = 3
-
-  PrintLog "- Test Alignment via Contextmenu: anchor as character -> top, center, bottom of baseline"
- '/// Test Alignment via Contextmenu: anchor as character -> top, center, bottom of baseline
-
-   Call hNewDocument
-
-  '/// Insert a graphics
-   fInsertGraphics("Bughunter.jpg")
-
-  '/// ContextMenu anchor / As character
-   Call wOpenContextMenu
-    hMenuSelectNr(3)
-    Sleep 2
-    hMenuSelectNr(4)
-    Sleep 1
-
-   PrintLog "  Base line at top:"
-  '/// ContextMenu Alignment / Base line at top
-   Call wOpenContextMenu
-    hMenuSelectNr(2)
-    Sleep 2
-    hMenuSelectNr(1)
-    Sleep 1
-
-  '/// - Check the graphic position
-   fFormatGraphic("TabType")
-    Sleep 1
-    if Horizontal.IsEnabled  = TRUE  then Warnlog "The Horizontal listbox should not be enabled ! "
-    if Vertical.GetSelIndex <> iTop  then Warnlog "The graphic's Vertical option is not correct ! "
-   TabType.Cancel
-
-   PrintLog "  Base line at center:"
-  '/// ContextMenu Alignment / Base line at center
-   Call wOpenContextMenu
-    hMenuSelectNr(2)
-    Sleep 2
-    hMenuSelectNr(2)
-    Sleep 1
-
-  '/// - Check the graphic position
-   fFormatGraphic("TabType")
-    Sleep 1
-    if Horizontal.IsEnabled  =  TRUE           then Warnlog "The Horizontal listbox should not be enabled ! "
-    if Vertical.GetSelIndex <> iCenterVertical then Warnlog "The graphic's Vertical option is not correct ! "
-   TabType.Cancel
-
-   PrintLog "  Base line at bottom:"
-  '/// ContextMenu Alignment / Base line at bottom
-   Call wOpenContextMenu
-    hMenuSelectNr(2)
-    Sleep 2
-    hMenuSelectNr(3)
-    Sleep 1
-
-  '/// - Check the graphic position
-   fFormatGraphic("TabType")
-    Sleep 1
-    if Horizontal.IsEnabled  =  TRUE    then Warnlog "The Horizontal listbox should not be enabled ! "
-    if Vertical.GetSelIndex <> iBottom  then Warnlog "The graphic's Vertical option is not correct ! "
-   TabType.Cancel
-
-   Call hCloseDocument
-
-endcase
-
-'-------------------------------------------------------------------------------------------
-
-testcase tInsertGraphic_29
-
-  PrintLog "- Test Wrap via dialog : none, Page Wrap, Optimal Page Wrap, Contour Wrap ,Wrap through, in Background , first paragraph"
- '/// <b> Test Wrap via dialog , including </b>
- '/// + </b> none, Page Wrap, Optimal Page Wrap, Contour Wrap, </b>
- '/// + </b> Wrap through, in Background, first paragraph </b>
-
-   Call hNewDocument
-
-  '/// Insert a graphics
-   fInsertGraphics("Bughunter.jpg")
-
-   PrintLog "  1. No Wrap:"
-  '/// Format / Wrap / No Wrap
-   FormatWrapNoWrap
-   Sleep 1
-
-   fFormatGraphic("TabUmlauf")
-    Sleep 1
-    if Kein.IsChecked <> TRUE then Warnlog "Graphic wrapping situation is wrong !"
-   TabUmlauf.Cancel
-
-   PrintLog "  2. Page Wrap:"
-  '/// Format / Wrap / Page Wrap
-   FormatWrapPageWrap
-   Sleep 1
-
-   fFormatGraphic("TabUmlauf")
-    Sleep 1
-    if Parallel.IsChecked <> TRUE then Warnlog "Graphic wrapping situation is wrong !"
-   TabUmlauf.Cancel
-
-   PrintLog "  3. Optimal Page Wrap:"
-  '/// Format / Wrap / Optimal Page Wrap
-   FormatWrapOptimalPageWrap
-   Sleep 1
-
-   fFormatGraphic("TabUmlauf")
-    Sleep 1
-    if Dynamisch.IsChecked <> TRUE then Warnlog "Graphic wrapping situation is wrong !"
-   TabUmlauf.Cancel
-
-   PrintLog "  4. Wrap through:"
-  '/// Format / Wrap / Wrap through
-   FormatWrapThrough
-   Sleep 1
-
-   fFormatGraphic("TabUmlauf")
-    Sleep 1
-    if Durchlauf.IsChecked <> TRUE then Warnlog "Graphic wrapping situation is wrong !"
-   TabUmlauf.Cancel
-
-   PrintLog "  5. In Background:"
-  '/// Format / Wrap / in Background
-   FormatWrapInBackground
-   Sleep 1
-
-   fFormatGraphic("TabUmlauf")
-    Sleep 1
-    if Durchlauf.IsChecked     <> TRUE then Warnlog "Graphic wrapping situation is wrong !"
-    if ImHintergrund.IsChecked <> TRUE then Warnlog "Background configuration is wrong !"
-   TabUmlauf.Cancel
-
-   PrintLog "  6. first paragraph:"
-  '/// Format / Wrap / first paragraph
-   FormatWrapFirstparagraph
-   Sleep 1
-
-   fFormatGraphic("TabUmlauf")
-    Sleep 1
-    if Parallel.IsChecked      <> TRUE then Warnlog "Graphic wrapping situation is wrong !"
-    if ErsterAbsatz.IsChecked  <> TRUE then Warnlog "first paragraph configuration is wrong !"
-   TabUmlauf.Cancel
-
-   PrintLog "  7. Contour:"
-  '/// Format / Wrap / Contour
-   FormatWrapPageWrap
-   Sleep 1
-   FormatWrapContour
-   Sleep 1
-
-   fFormatGraphic("TabUmlauf")
-    Sleep 1
-    if Kontur.IsChecked  <> TRUE then Warnlog "Contour configuration is wrong !"
-   TabUmlauf.Cancel
-
-   Call hCloseDocument
-
-endcase
-
-'-------------------------------------------------------------------------------------------
-
-testcase tInsertGraphic_30
-
-  PrintLog "- Test Wrap via Contextmenu : none, Page Wrap, Optimal Page Wrap, Contour Wrap ,Wrap through, in Background , first paragraph"
- '/// <b> Test Wrap via Contextmenu , including </b>
- '/// + <b> none, Page Wrap, Optimal Page Wrap, Contour Wrap, </b>
- '/// + <b> Wrap through, in Background, first paragraph   </b>
-
-   Call hNewDocument
-
-  '/// + Insert a graphics
-   fInsertGraphics("Bughunter.jpg")
-
-   PrintLog "  1. No Wrap:"
-  '/// Contextmenu Wrap / No Wrap
-   Call wOpenContextMenu
-    hMenuSelectNr(4)
-    Sleep 2
-    hMenuSelectNr(1)
-    Sleep 1
-
-   fFormatGraphic("TabUmlauf")
-    Sleep 1
-    if Kein.IsChecked <> TRUE then Warnlog "Graphic wrapping situation is wrong !"
-   TabUmlauf.Cancel
-
-   PrintLog "  2. Page Wrap:"
-  '/// Contextmenu Wrap / Page Wrap
-   Call wOpenContextMenu
-    hMenuSelectNr(4)
-    Sleep 2
-    hMenuSelectNr(2)
-    Sleep 1
-
-   fFormatGraphic("TabUmlauf")
-    Sleep 1
-    if Parallel.IsChecked <> TRUE then Warnlog "Graphic wrapping situation is wrong !"
-   TabUmlauf.Cancel
-
-   PrintLog "  3. Optimal Page Wrap:"
-  '/// Contextmenu Wrap / Optimal Page Wrap
-   Call wOpenContextMenu
-    hMenuSelectNr(4)
-    Sleep 2
-    hMenuSelectNr(3)
-    Sleep 1
-
-   fFormatGraphic("TabUmlauf")
-    Sleep 1
-    if Dynamisch.IsChecked <> TRUE then Warnlog "Graphic wrapping situation is wrong !"
-   TabUmlauf.Cancel
-
-   PrintLog "  4. Wrap through:"
-  '/// Contextmenu Wrap / Wrap through
-   Call wOpenContextMenu
-    hMenuSelectNr(4)
-    Sleep 2
-    hMenuSelectNr(4)
-    Sleep 1
-
-   fFormatGraphic("TabUmlauf")
-    Sleep 1
-    if Durchlauf.IsChecked <> TRUE then Warnlog "Graphic wrapping situation is wrong !"
-   TabUmlauf.Cancel
-
-   PrintLog "  5. In Background:"
-  '/// Contextmenu Wrap / in Background
-   Call wOpenContextMenu
-    hMenuSelectNr(4)
-    Sleep 2
-    hMenuSelectNr(5)
-    Sleep 1
-
-   fFormatGraphic("TabUmlauf")
-    Sleep 1
-    if Durchlauf.IsChecked     <> TRUE then Warnlog "Graphic wrapping situation is wrong !"
-    if ImHintergrund.IsChecked <> TRUE then Warnlog "Background configuration is wrong !"
-   TabUmlauf.Cancel
-
-   PrintLog "  6. first paragraph:"
-  '/// Contextmenu Wrap / first paragraph
-   Call wOpenContextMenu
-    hMenuSelectNr(4)
-    Sleep 2
-    hMenuSelectNr(7)
-    Sleep 1
-
-   fFormatGraphic("TabUmlauf")
-    Sleep 1
-    if Parallel.IsChecked      <> TRUE then Warnlog "Graphic wrapping situation is wrong !"
-    if ErsterAbsatz.IsChecked  <> TRUE then Warnlog "first paragraph configuration is wrong !"
-   TabUmlauf.Cancel
-
-   PrintLog "  7. Contour:"
-  '/// Contextmenu Wrap / Contour
-   Call wOpenContextMenu
-    hMenuSelectNr(4)
-    Sleep 2
-    hMenuSelectNr(2)
-    Sleep 1
-
-   Call wOpenContextMenu
-    hMenuSelectNr(4)
-    Sleep 2
-    hMenuSelectNr(6)
-    Sleep 1
-
-   fFormatGraphic("TabUmlauf")
-    Sleep 1
-    if Kontur.IsChecked  <> TRUE then Warnlog "Contour configuration is wrong !"
-   TabUmlauf.Cancel
-
-   Call hCloseDocument
-
-endcase
diff --git a/testautomation/writer/optional/includes/insertgraphic/w_insertgraphic4.inc b/testautomation/writer/optional/includes/insertgraphic/w_insertgraphic4.inc
deleted file mode 100644
index 561768ee8320..000000000000
--- a/testautomation/writer/optional/includes/insertgraphic/w_insertgraphic4.inc
+++ /dev/null
@@ -1,831 +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 : helge.delfs@oracle.com
-'*
-'* short description : Test of the insert graphic function - 4
-'*
-'************************************************************************
-'*
-' #1 tInsertGraphic_31      'Test Alignment via format/graphic: Anchor to paragraph -> Left, centered, right, top, center, bottom
-' #1 tInsertGraphic_32      'Test Alignment via format/graphic: Anchor to page -> Left, centered, right, top, center, bottom
-' #1 tInsertGraphic_33      'Test Alignment via format/graphic: Anchor to character -> Left, centered, right, top, center, bottom
-' #1 tInsertGraphic_34      'Test Alignment via format/graphic: Anchor as character -> top, center, bottom of baseline
-' #1 tInsertGraphic_35      'Test Wrap via format/graphic : none, Page Wrap, Optimal Page Wrap, Contour Wrap ,Wrap through, in Background , first paragraph
-' #1 tInsertGraphic_36      'Test original size
-' #1 tInsertGraphic_37      'Test keep ratio
-' #1 tInsertGraphic_38      'Check the graphic name in Navigator
-' #1 tInsertGraphic_39      'Test checkbox 'Position' in protect area
-' #1 tInsertGraphic_40      'Test checkbox 'Print' in Property area"
-' #1 tInsertGraphic_41      'Test checkbox 'Keep image size'
-' #1 tInsertGraphic_42      'Test checkbox 'Keep scale'
-'*
-'\***********************************************************************
-
-testcase tInsertGraphic_31
-
-  Dim iLeft as Integer
-  Dim iRight as Integer
-  Dim iCenterHorizontal as Integer
-  Dim iTop as Integer
-  Dim iBottom as Integer
-  Dim iCenterVertical as Integer
-
-  iLeft = 1 : iRight  = 2  : iCenterHorizontal = 3
-  iTop  = 1 : iBottom = 2  : iCenterVertical   = 3
-
-  PrintLog "- Test Alignment via format/graphic: Anchor to paragraph -> Left, centered, right, top, center, bottom"
- '/// Test Alignment via format/graphic: Anchor to paragraph -> Left, centered, right, top, center, bottom
-
-   Call hNewDocument
-
-  '/// Insert a graphics
-   fInsertGraphics("Bughunter.jpg")
-
-   PrintLog "  Left:"
-  '/// Format / Graphic tabpage Type ,
-  '/// + Anchor to paragraph , and set Horizontal to left
-   fFormatGraphic("TabType")
-    Kontext "TabType"
-    AnchorAtparagraph.Check
-    Horizontal.Select iLeft
-   TabType.OK
-
-  '/// Check the graphic position
-   fFormatGraphic("TabType")
-    Kontext "TabType"
-    Sleep 1
-    if AnchorAtparagraph.IsChecked <> TRUE  then Warnlog "Anchor should be checked to 'to paragraph' !"
-    if Horizontal.GetSelIndex      <> iLeft then Warnlog "The graphic's Horizontal option is not correct ! "
-   TabType.Cancel
-
-   PrintLog "  Centered:"
-  '/// Format / Graphic tabpage Type
-  '/// + Anchor to paragraph , and set Horizontal to Centered
-   fFormatGraphic("TabType")
-    Kontext "TabType"
-    AnchorAtparagraph.Check
-    Horizontal.Select iCenterHorizontal
-   TabType.OK
-
-  '/// Check the graphic position
-   fFormatGraphic("TabType")
-    Sleep 1
-    Kontext "TabType"
-    if AnchorAtparagraph.IsChecked <> TRUE              then Warnlog "Anchor should be checked to 'to paragraph' !"
-    if Horizontal.GetSelIndex      <> iCenterHorizontal then Warnlog "The graphic's Horizontal option is not correct ! "
-   TabType.Cancel
-
-   PrintLog "  Right:"
-  '/// Format / Graphic tabpage Type
-  '/// + Anchor to paragraph , and set Horizontal to Right
-   fFormatGraphic("TabType")
-    Kontext "TabType"
-    AnchorAtparagraph.Check
-    Horizontal.Select iRight
-   TabType.OK
-   sleep(1)
-
-  '/// Check the graphic position
-   fFormatGraphic("TabType")
-    Sleep 1
-    Kontext "TabType"
-    if AnchorAtparagraph.IsChecked <> TRUE    then Warnlog "Anchor should be checked to 'to paragraph' !"
-    if Horizontal.GetSelIndex      <> iRight  then Warnlog "The graphic's Horizontal option is not correct ! "
-   TabType.Cancel
-
-   PrintLog "  Top:"
-  '/// Format / Graphic tabpage Type
-  '/// + Anchor to paragraph , and set Vertical to top
-   fFormatGraphic("TabType")
-    Kontext "TabType"
-    AnchorAtparagraph.Check
-    Vertical.Select iTop
-   TabType.OK
-
-  '/// Check the graphic position
-   fFormatGraphic("TabType")
-    Sleep 1
-    Kontext "TabType"
-    if AnchorAtparagraph.IsChecked <> TRUE  then Warnlog "Anchor should be checked to 'to paragraph' !"
-    if Vertical.GetSelIndex        <> iTop  then Warnlog "The graphic's Vertical option is not correct ! "
-   TabType.Cancel
-
-   PrintLog "  Center:"
-  '/// Format / Graphic tabpage Type
-  '/// + Anchor to paragraph , and set Vertical to Center
-   fFormatGraphic("TabType")
-    Kontext "TabType"
-    AnchorAtparagraph.Check
-    Vertical.Select iCenterVertical
-   TabType.OK
-
-  '/// Check the graphic position
-   fFormatGraphic("TabType")
-    Sleep 1
-    if AnchorAtparagraph.IsChecked <> TRUE             then Warnlog "Anchor should be checked to 'to paragraph' !"
-    if Vertical.GetSelIndex        <> iCenterVertical  then Warnlog "The graphic's Vertical option is not correct ! #bug110281"
-   TabType.Cancel
-
-   PrintLog "  Bottom:"
-  '/// Format / Graphic tabpage Type
-  '/// + Anchor to paragraph , and set Vertical to Bottom
-   fFormatGraphic("TabType")
-    AnchorAtparagraph.Check
-    Vertical.Select iBottom
-   TabType.OK
-
-  '/// Check the graphic position
-   fFormatGraphic("TabType")
-    Sleep 1
-    if AnchorAtparagraph.IsChecked <> TRUE     then Warnlog "Anchor should be checked to 'to paragraph' !"
-    if Vertical.GetSelIndex        <> iBottom  then Warnlog "The graphic's Vertical option is not correct ! "
-   TabType.Cancel
-
-   Call hCloseDocument
-
-endcase
-
-'-------------------------------------------------------------------------------------------
-
-testcase tInsertGraphic_32
-
-  Dim iLeft as Integer
-  Dim iRight as Integer
-  Dim iCenterHorizontal as Integer
-  Dim iTop as Integer
-  Dim iBottom as Integer
-  Dim iCenterVertical as Integer
-
-  iLeft = 1 : iRight  = 2  : iCenterHorizontal = 3
-  iTop  = 1 : iBottom = 2  : iCenterVertical   = 3
-
-  PrintLog "- Test Alignment via format/graphic: Anchor to page -> Left, centered, right, top, center, bottom"
- '/// Test Alignment via format/graphic: Anchor to page -> Left, centered, right, top, center, bottom
-
-   Call hNewDocument
-
-  '/// Insert a graphics
-   fInsertGraphics("Bughunter.jpg")
-
-   PrintLog "  Left:"
-  '/// Format / Graphic tabpage Type
-  '/// + Anchor to page , and set Horizontal to left
-   fFormatGraphic("TabType")
-    AnchorAtPage.Check
-    Horizontal.Select iLeft
-   TabType.OK
-
-  '/// Check the graphic position
-   fFormatGraphic("TabType")
-    Sleep 1
-    if AnchorAtPage.IsChecked <> TRUE  then Warnlog "Anchor should be checked to 'At Page' !"
-    if Horizontal.GetSelIndex <> iLeft then Warnlog "The graphic's Horizontal option is not correct ! "
-   TabType.Cancel
-
-   PrintLog "  Centered:"
-  '/// Format / Graphic tabpage Type
-  '/// + Anchor to page , and set Horizontal to Centered
-   fFormatGraphic("TabType")
-    AnchorAtPage.Check
-    Horizontal.Select iCenterHorizontal
-   TabType.OK
-
-  '/// Check the graphic position
-   fFormatGraphic("TabType")
-    Sleep 1
-    if AnchorAtPage.IsChecked <> TRUE              then Warnlog "Anchor should be checked to 'At Page' !"
-    if Horizontal.GetSelIndex <> iCenterHorizontal then Warnlog "The graphic's Horizontal option is not correct ! "
-   TabType.Cancel
-
-   PrintLog "  Right:"
-  '/// Format / Graphic tabpage Type
-  '/// + Anchor to page , and set Horizontal to Right
-   fFormatGraphic("TabType")
-    AnchorAtPage.Check
-    Horizontal.Select iRight
-   TabType.OK
-
-  '/// Check the graphic position
-   fFormatGraphic("TabType")
-    Sleep 1
-    if AnchorAtPage.IsChecked <> TRUE    then Warnlog "Anchor should be checked to 'At Page' !"
-    if Horizontal.GetSelIndex <> iRight  then Warnlog "The graphic's Horizontal option is not correct ! "
-   TabType.Cancel
-
-   PrintLog "  Top:"
-  '/// Format / Graphic tabpage Type
-  '/// + Anchor to page , and set Vertical to top
-   fFormatGraphic("TabType")
-    AnchorAtPage.Check
-    Vertical.Select iTop
-   TabType.OK
-
-  '/// Check the graphic position
-   fFormatGraphic("TabType")
-    Sleep 1
-    if AnchorAtPage.IsChecked <> TRUE  then Warnlog "Anchor should be checked to 'At Page' !"
-    if Vertical.GetSelIndex   <> iTop  then Warnlog "The graphic's Vertical option is not correct ! "
-   TabType.Cancel
-
-   PrintLog "  Center:"
-  '/// Format / Graphic tabpage Type
-  '/// + Anchor to page , and set Vertical to Center
-   fFormatGraphic("TabType")
-    AnchorAtPage.Check
-    Vertical.Select iCenterVertical
-   TabType.OK
-
-  '/// Check the graphic position
-   fFormatGraphic("TabType")
-    Sleep 1
-    if AnchorAtPage.IsChecked <> TRUE             then Warnlog "Anchor should be checked to 'At Page' !"
-    if Vertical.GetSelIndex   <> iCenterVertical  then Warnlog "The graphic's Vertical option is not correct ! "
-   TabType.Cancel
-
-   PrintLog "  Bottom:"
-  '/// Format / Graphic tabpage Type
-  '/// + Anchor to page , and set Vertical to Bottom
-   fFormatGraphic("TabType")
-    AnchorAtPage.Check
-    Vertical.Select iBottom
-   TabType.OK
-
-  '/// Check the graphic position
-   fFormatGraphic("TabType")
-    Sleep 1
-    if AnchorAtPage.IsChecked <> TRUE     then Warnlog "Anchor should be checked to 'At Page' !"
-    if Vertical.GetSelIndex   <> iBottom  then Warnlog "The graphic's Vertical option is not correct ! "
-   TabType.Cancel
-
-   Call hCloseDocument
-
-endcase
-
-'-------------------------------------------------------------------------------------------
-
-testcase tInsertGraphic_33
-
-    Dim iLeft as Integer
-    Dim iRight as Integer
-    Dim iCenterHorizontal as Integer
-    Dim iTop as Integer
-    Dim iBottom as Integer
-    Dim iCenterVertical as Integer
-    
-    iLeft = 1 : iRight  = 2  : iCenterHorizontal = 3
-    iTop  = 1 : iBottom = 2  : iCenterVertical   = 4
-    
-    PrintLog "- Test Alignment via format/graphic: Anchor to character -> Left, centered, right, top, center, bottom"
-    '/// Test Alignment via format/graphic: Anchor to character -> Left, centered, right, top, center, bottom
-    
-    Call hNewDocument
-    
-    '/// Insert a graphics
-    fInsertGraphics("Bughunter.jpg")
-    
-    PrintLog "  Left:"
-    '/// Format / Graphic tabpage Type
-    '/// + Anchor At Character , and set Horizontal to left
-    fFormatGraphic("TabType")
-    AnchorAtCharacter.Check
-    Horizontal.Select iLeft
-    TabType.OK
-    
-    '/// Check the graphic position
-    fFormatGraphic("TabType")
-    Sleep 1
-    if AnchorAtCharacter.IsChecked <> TRUE  then Warnlog "Anchor should be checked to 'At Character' !"
-    if Horizontal.GetSelIndex      <> iLeft then Warnlog "The graphic's Horizontal option is not correct ! "
-    TabType.Cancel
-    
-    PrintLog "  Centered:"
-    '/// Format / Graphic tabpage Type
-    '/// + Anchor At Character , and set Horizontal to Centered
-    fFormatGraphic("TabType")
-    AnchorAtCharacter.Check
-    Horizontal.Select iCenterHorizontal
-    TabType.OK
-    
-    '/// Check the graphic position
-    fFormatGraphic("TabType")
-    Sleep 1
-    if AnchorAtCharacter.IsChecked <> TRUE              then Warnlog "Anchor should be checked to 'At Character' !"
-    if Horizontal.GetSelIndex      <> iCenterHorizontal then Warnlog "The graphic's Horizontal option is not correct ! "
-    TabType.Cancel
-    
-    PrintLog "  Right:"
-    '/// Format / Graphic tabpage Type
-    '/// + Anchor At Character , and set Horizontal to Right
-    fFormatGraphic("TabType")
-    AnchorAtCharacter.Check
-    Horizontal.Select iRight
-    TabType.OK
-    
-    '/// Check the graphic position
-    fFormatGraphic("TabType")
-    Sleep 1
-    if AnchorAtCharacter.IsChecked <> TRUE    then Warnlog "Anchor should be checked to 'At Character' !"
-    if Horizontal.GetSelIndex      <> iRight  then Warnlog "The graphic's Horizontal option is not correct ! "
-    TabType.Cancel
-    
-    PrintLog "  Top:"
-    '/// Format / Graphic tabpage Type
-    '/// + Anchor At Character , and set Vertical to top
-    fFormatGraphic("TabType")
-    AnchorAtCharacter.Check
-    Vertical.Select iTop
-    TabType.OK
-    
-    '/// Check the graphic position
-    fFormatGraphic("TabType")
-    Sleep 1
-    if AnchorAtCharacter.IsChecked <> TRUE  then Warnlog "Anchor should be checked to 'At Character' !"
-    if Vertical.GetSelIndex        <> iTop  then Warnlog "The graphic's Vertical option is not correct ! "
-    TabType.Cancel
-    
-    PrintLog "  Center:"
-    '/// Format / Graphic tabpage Type
-    '/// + Anchor At Character , and set Vertical to Center
-    fFormatGraphic("TabType")
-    AnchorAtCharacter.Check
-    Vertical.Select iCenterVertical
-    TabType.OK
-    
-    '/// Check the graphic position
-    fFormatGraphic("TabType")
-    Sleep 1
-    if AnchorAtCharacter.IsChecked <> TRUE             then Warnlog "Anchor should be checked to 'At Character' !"
-    if Vertical.GetSelIndex        <> iCenterVertical  then
-        if iSprache = 82 then
-            QAErrorlog "#i59378#Missing vertical position in in Format-Picture-dialog"
-        else
-            if Vertical.GetItemCount <> 6 then
-                QAErrorlog "#i59378#Missing vertical position in in Format-Picture-dialog"
-            else
-                Warnlog "The graphic's Vertical option is not correct ! "
-            end if
-        end if
-    end if
-    TabType.Cancel
-    
-    PrintLog "  Bottom:"
-    '/// Format / Graphic tabpage Type
-    '/// + Anchor At Character , and set Vertical to Bottom
-    fFormatGraphic("TabType")
-    AnchorAtCharacter.Check
-    Vertical.Select iBottom
-    TabType.OK
-    
-    '/// Check the graphic position
-    fFormatGraphic("TabType")
-    Sleep 1
-    if AnchorAtCharacter.IsChecked <> TRUE     then Warnlog "Anchor should be checked to 'At Character' !"
-    if Vertical.GetSelIndex        <> iBottom  then Warnlog "The graphic's Vertical option is not correct ! "
-    TabType.Cancel
-    
-    Call hCloseDocument
-
-endcase
-
-'-------------------------------------------------------------------------------------------
-
-testcase tInsertGraphic_34
-
-  Dim iTop as Integer
-  Dim iBottom as Integer
-  Dim iCenterVertical as Integer
-
-  iTop  = 1 : iBottom = 2  : iCenterVertical   = 3
-
-  PrintLog "- Test Alignment via format/graphic: Anchor as character -> top, center, bottom of baseline"
- '/// Test Alignment via format/graphic: Anchor as character -> top, center, bottom of baseline
-
-   Call hNewDocument
-
-  '/// Insert a graphics
-   fInsertGraphics("Bughunter.jpg")
-
-   PrintLog "  Base line at top:"
-  '/// Format / Graphic tabpage Type
-  '/// + Anchor as character , and set Base line at top
-   fFormatGraphic("TabType")
-    Sleep 1
-    AnchorAsCharacter.Check
-    Vertical.Select iTop
-   TabType.OK
-
-  '/// Check the graphic position
-   fFormatGraphic("TabType")
-    Sleep 1
-    if AnchorAsCharacter.IsChecked <> TRUE  then Warnlog "Anchor should be checked to 'As character' !"
-    if Horizontal.IsEnabled        =  TRUE  then Warnlog "The Horizontal listbox should not be enabled ! "
-    if Vertical.GetSelIndex        <> iTop  then Warnlog "The graphic's Vertical option is not correct ! "
-   TabType.Cancel
-
-   PrintLog "  Base line at center:"
-  '/// Format / Graphic tabpage Type
-  '/// + Anchor as character , and set Base line at center
-   fFormatGraphic("TabType")
-    Sleep 1
-    AnchorAsCharacter.Check
-    Vertical.Select iCenterVertical
-   TabType.OK
-
-  '/// Check the graphic position
-   fFormatGraphic("TabType")
-    Sleep 1
-    if AnchorAsCharacter.IsChecked <> TRUE            then Warnlog "Anchor should be checked to 'As character' !"
-    if Horizontal.IsEnabled        =  TRUE            then Warnlog "The Horizontal listbox should not be enabled ! "
-    if Vertical.GetSelIndex        <> iCenterVertical then Warnlog "The graphic's Vertical option is not correct ! "
-   TabType.Cancel
-
-   PrintLog "  Base line at bottom:"
-  '/// Format / Graphic tabpage Type
-  '/// + Anchor as character , and set Base line at bottom
-   fFormatGraphic("TabType")
-    Sleep 1
-    AnchorAsCharacter.Check
-    Vertical.Select iBottom
-   TabType.OK
-
-  '/// Check the graphic position
-   fFormatGraphic("TabType")
-    Sleep 1
-    if AnchorAsCharacter.IsChecked <> TRUE     then Warnlog "Anchor should be checked to 'As character' !"
-    if Horizontal.IsEnabled        =  TRUE     then Warnlog "The Horizontal listbox should not be enabled ! "
-    if Vertical.GetSelIndex        <> iBottom  then Warnlog "The graphic's Vertical option is not correct ! "
-   TabType.Cancel
-
-   Call hCloseDocument
-
-endcase
-
-'-------------------------------------------------------------------------------------------
-
-testcase tInsertGraphic_35
-
-  PrintLog "- Test Wrap via dialog : none, Page Wrap, Optimal Page Wrap, Contour Wrap ,Wrap through, in Background , first paragraph"
- '/// <b> Test Wrap via dialog , including </b>
- '/// +<b> none, Page Wrap, Optimal Page Wrap, Contour Wrap, </b>
- '/// +<b> Wrap through, in Background, first paragraph  </b>
-
-   Call hNewDocument
-
-  '/// Insert a graphics
-   fInsertGraphics("Bughunter.jpg")
-
-   PrintLog "  1. No Wrap:"
-  '/// Format / Graphic / tabpage Wrap - No page
-   fFormatGraphic("TabUmlauf")
-    Sleep 1
-    Kein.Check
-   TabUmlauf.OK
-
-   fFormatGraphic("TabUmlauf")
-    Sleep 1
-    if Kein.IsChecked <> TRUE then Warnlog "Graphic wrapping situation is wrong !"
-   TabUmlauf.Cancel
-
-   PrintLog "  2. Page Wrap:"
-  '/// Format / Graphic / tabpage Wrap - Page Wrap
-   fFormatGraphic("TabUmlauf")
-    Sleep 1
-    Parallel.Check
-   TabUmlauf.OK
-
-   fFormatGraphic("TabUmlauf")
-    Sleep 1
-    if Parallel.IsChecked <> TRUE then Warnlog "Graphic wrapping situation is wrong !"
-   TabUmlauf.Cancel
-
-   PrintLog "  3. Optimal Page Wrap:"
-  '/// Format / Graphic / tabpage Wrap - Optimal Page Wrap
-   fFormatGraphic("TabUmlauf")
-    Sleep 1
-    Dynamisch.Check
-   TabUmlauf.OK
-
-   fFormatGraphic("TabUmlauf")
-    Sleep 1
-    if Dynamisch.IsChecked <> TRUE then Warnlog "Graphic wrapping situation is wrong !"
-   TabUmlauf.Cancel
-
-   PrintLog "  4. Wrap through:"
-  '/// Format / Graphic / tabpage Wrap - Wrap through
-   fFormatGraphic("TabUmlauf")
-    Sleep 1
-    Durchlauf.Check
-   TabUmlauf.OK
-
-   fFormatGraphic("TabUmlauf")
-    Sleep 1
-    if Durchlauf.IsChecked <> TRUE then Warnlog "Graphic wrapping situation is wrong !"
-   TabUmlauf.Cancel
-
-   PrintLog "  5. In Background:"
-  '/// Format / Graphic / tabpage Wrap - In Background
-   fFormatGraphic("TabUmlauf")
-    Sleep 1
-    Durchlauf.Check
-    ImHintergrund.Check
-   TabUmlauf.OK
-
-   fFormatGraphic("TabUmlauf")
-    Sleep 1
-    if Durchlauf.IsChecked     <> TRUE then Warnlog "Graphic wrapping situation is wrong !"
-    if ImHintergrund.IsChecked <> TRUE then Warnlog "Background configuration is wrong !"
-   TabUmlauf.Cancel
-
-   PrintLog "  6. first paragraph:"
-  '/// Format / Graphic / tabpage Wrap - first paragraph
-   fFormatGraphic("TabUmlauf")
-    Sleep 1
-    Parallel.Check
-    ErsterAbsatz.Check
-   TabUmlauf.OK
-
-   fFormatGraphic("TabUmlauf")
-    Sleep 1
-    if Parallel.IsChecked      <> TRUE then Warnlog "Graphic wrapping situation is wrong !"
-    if ErsterAbsatz.IsChecked  <> TRUE then Warnlog "first paragraph configuration is wrong !"
-   TabUmlauf.Cancel
-
-   PrintLog "  7. Contour:"
-  '/// Format / Graphic / tabpage Wrap - first paragraph
-   FormatWrapPageWrap
-   Sleep 1
-   fFormatGraphic("TabUmlauf")
-    Sleep 1
-    Kontur.Check
-   TabUmlauf.OK
-
-   fFormatGraphic("TabUmlauf")
-    Sleep 1
-    if Kontur.IsChecked  <> TRUE then Warnlog "Contour configuration is wrong !"
-   TabUmlauf.Cancel
-
-   Call hCloseDocument
-
-endcase
-
-'-------------------------------------------------------------------------------------------
-
-testcase tInsertGraphic_36
-
-  Dim sOriginalWidth as String
-  Dim sOriginalHeight as String
-  Dim sNewWidth as String
-  Dim sNewHeight as String
-
-  sNewWidth  = "7"+ gSeperator + "00" + gMeasurementUnit
-  sNewHeight = "5"+ gSeperator + "00" + gMeasurementUnit
-
-  PrintLog "- Test original size "
- '/// Test original size
-
-   Call hNewDocument
-
-  '/// Insert a graphics
-   fInsertGraphics("Bughunter.jpg")
-
-  '/// Format / Graphic tabpage Type , change the graphic's size
-   fFormatGraphic("TabType")
-    sOriginalWidth  = Width.GetText
-    sOriginalHeight = Height.GetText
-    KeepRatio.UnCheck
-    wait 500
-    Width.SetText  sNewWidth
-    wait 500
-    Height.SetText sNewHeight
-    wait 500
-   TabType.OK
-
-  '/// Check if original size works well
-   fFormatGraphic("TabType")
-    if Width.GetText  <> sNewWidth       then Warnlog "The graphic's width is wrong !"
-    wait 500
-    if Height.GetText <> sNewHeight      then Warnlog "The graphic's height is wrong !"
-    wait 500
-    OriginalSize.Click
-    Sleep 1
-    if Width.GetText  <> sOriginalWidth  then Warnlog "The graphic's width isn't recovered to before!"
-    wait 500
-    if Height.GetText <> sOriginalHeight then Warnlog "The graphic's height isn't recovered to before !"
-    wait 500
-   TabType.Cancel
-
-   Call hCloseDocument
-
-endcase
-
-'-------------------------------------------------------------------------------------------
-
-testcase tInsertGraphic_37
-
-  Dim sWidth as String
-  Dim sHeight as String
-  Dim sNewWidth as String
-  Dim sNewHeight as String
-
-  sWidth  = "4"+ gSeperator + "00" + gMeasurementUnit
-  sHeight = "3"+ gSeperator + "00" + gMeasurementUnit
-
-  sNewWidth  = "8"+ gSeperator + "00" + gMeasurementUnit
-  sNewHeight = "6"+ gSeperator + "00" + gMeasurementUnit
-
-  PrintLog "- Test keep ratio"
- '/// Test keep ratio
-
-   Call hNewDocument
-
-  '/// Insert a graphics and check 'keep ratio'
-   fInsertGraphics("Bughunter.jpg")
-
-   fFormatGraphic("TabType")
-    KeepRatio.UnCheck
-    wait 500
-    Width.SetText  sWidth
-    wait 500
-    Height.SetText sHeight
-    wait 500
-    KeepRatio.Check
-    wait 500
-   TabType.OK
-   Sleep 1
-
-  '/// Format / Graphic tabpage Type , change the graphic's width
-  '/// + Check if keep ratio works well
-   fFormatGraphic("TabType")
-    Kontext "TabType"
-    Width.SetText sNewWidth
-    Sleep 1
-    if Height.GetText <> sNewHeight then Warnlog "The graphic's height is wrong !"
-   TabType.Cancel
-
-   Call hCloseDocument
-
-endcase
-
-'-------------------------------------------------------------------------------------------
-
-testcase tInsertGraphic_38
-
-    Dim sGraphicName as String
-    Dim sNavActualItemName as string
-
-    sGraphicName = "TEST1"
-
-    PrintLog "- Check the graphic name in Navigator"
-    '/// Check the graphic name in Navigator
-
-    Call hNewDocument
-
-    '/// Insert a graphics
-    Call fInsertGraphics("Bughunter.jpg")
-
-    '/// Format / Graphic / Options , set a new name
-    Call fFormatGraphic("TabZusaetze")
-    sleep(3)
-    Kontext "TabZusaetze"
-    ObjektName.SetText sGraphicName
-    sleep(3)
-    TabZusaetze.OK
-    sleep(1)
-
-    '/// Active navigator to check the graphic name
-    Call fStartupNavigator( "Graphics" , 2 )
-    sleep(2)
-    Kontext "NavigatorWriter"
-        sNavActualItemName = Auswahlliste.GetitemText(2)
-        if sNavActualItemName <> sGraphicName then
-            warnlog "The graphic name should be " + sGraphicName & " but get " & sNavActualItemName & "!"
-        end if
-    Call fCloseNavigator
-
-    Call hCloseDocument
-endcase
-
-'-------------------------------------------------------------------------------------------
-
-testcase tInsertGraphic_39
-
-  Dim sHorizontalBy as String
-  Dim sVerticalBy as String
-
-  PrintLog "- Test checkbox 'Position' in protect area"
- '/// Test checkbox 'Position' in protect area
-
-   Call hNewDocument
-
-  '/// Insert a graphics
-   fInsertGraphics("Bughunter.jpg")
-
-  '/// Format / Graphic / Options , check 'Position'
-   fFormatGraphic("TabZusaetze")
-    wait 500
-    if PositionSchuetzen.IsChecked = TRUE then warnlog "The default situation of checkbox - position should be unchecked"
-    wait 500
-    PositionSchuetzen.Check
-    wait 500
-   TabZusaetze.OK
-
-  'Check the original position
-   fFormatGraphic("TabType")
-    wait 500
-    sHorizontalBy = HorizontalBy.GetText
-    sVerticalBy   = VerticalBy.GetText
-   TabType.Cancel
-
-  '/// move the picture with keyboard
-   Call wTypeKeys "<Down><Down><Right><Right>"
-
-  '/// + Check if the position is changed
-   fFormatGraphic("TabType")
-     if HorizontalBy.GetText <> sHorizontalBy then warnlog "The position Horizontal should be " +sHorizontalBy + " but get " + HorizontalBy.GetText
-     if VerticalBy.GetText   <> sVerticalBy   then warnlog "The position Vertical should be " +sVerticalBy + " but get " + VerticalBy.GetText
-   TabType.Cancel
-
-   Call hCloseDocument
-
-endcase
-
-'-------------------------------------------------------------------------------------------
-
-testcase tInsertGraphic_40
-    
-    Dim sHorizontalBy as String
-    Dim sVerticalBy as String
-    
-    PrintLog "- Test checkbox 'Print' in Property area"
-    '/// Test checkbox 'Print' in Property area
-    
-    Call hNewDocument
-    
-    '/// Insert a graphics
-    fInsertGraphics("Bughunter.jpg")
-    
-    '/// Format / Graphic / Options , check Position
-    fFormatGraphic("TabZusaetze")
-    wait 500
-    if Drucken.IsChecked <> TRUE then warnlog "The default situation of checkbox - print should be checked"
-    wait 500
-    PositionSchuetzen.UnCheck
-    wait 500
-    TabZusaetze.OK
-    
-    '/// Print to Printer
-    PrintLog "-   Please go to printer to check if you get a blank paper!"
-    FilePrint
-    Kontext "Active"
-    if Active.Exists then
-        if Active.GetRT = 304 then
-            Active.Ok
-            QAErrorLog "No Default-Printer!"
-            Kontext "Printing"
-            Sleep 1
-            Printing.Cancel
-        end if
-    else
-        Kontext "Printing"
-        Sleep 1
-        Printing.OK
-        Sleep 5
-    end if
-    
-    Kontext "Active"
-    if Active.Exists then
-        if Active.GetRT = 304 then
-            Active.Ok
-        end if
-    end if
-    
-    Call hCloseDocument
-    
-endcase
-
-'-------------------------------------------------------------------------------------------
diff --git a/testautomation/writer/optional/includes/insertgraphic/w_insertgraphic5.inc b/testautomation/writer/optional/includes/insertgraphic/w_insertgraphic5.inc
deleted file mode 100644
index 23ec4e96ff06..000000000000
--- a/testautomation/writer/optional/includes/insertgraphic/w_insertgraphic5.inc
+++ /dev/null
@@ -1,755 +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 : helge.delfs@oracle.com
-'*
-'* short description : Test of the insert graphic function - 4
-'*
-'************************************************************************
-'*
-' #1 tInsertGraphic_41         'Test checkbox 'Keep image size'
-' #1 tInsertGraphic_42         'Test checkbox 'Keep scale'
-' #1 tInsertGraphic_43         'Test spacing in tabpage 'wrap'
-' #1 tInsertGraphic_44         'Set the possible Options for the different Wrap types
-' #1 tInsertGraphic_45         'Test Scale in Corp tabpage
-' #1 tInsertGraphic_46         'Test Image size in Corp tabpage
-' #1 tInsertGraphic_47         'Test Restore via "Original Size" button
-' #1 tInsertGraphic_48         'Test link area via a embeded file
-' #1 tInsertGraphic_49         'Test link area via a linked file
-'*
-'\***********************************************************************
-
-testcase tInsertGraphic_41
-
-  Dim sLeft as String
-  Dim sRight as String
-  Dim sUp as String
-  Dim sBottom as String
-  Dim sScaleWidth as String
-  Dim sScaleHeight as String
-  Dim sImageWidth as String
-  Dim sImageHeight as String
-  Dim dDummy1 as double
-  Dim dDummy2 as double
-
-  sLeft    = "1"+ gSeperator + "00" + gMeasurementUnit
-  sRight   = "1"+ gSeperator + "00" + gMeasurementUnit
-  sUp      = "1"+ gSeperator + "00" + gMeasurementUnit
-  sBottom  = "1"+ gSeperator + "00" + gMeasurementUnit
-
-  PrintLog "- Test checkbox 'Keep image size'"
- '/// Test checkbox 'Keep image size'
-
-   Call hNewDocument
-
-  '/// Insert a graphics
-   fInsertGraphics("game.bmp")
-
-  '/// Format / Graphic / Crop , check 'Keep image size' ,
-  '/// - increase the value , check if "keep image size" is efficient
-   fFormatGraphic("TabZuschneiden")
-    wait 500
-    GroesseBeibehalten.Check
-    wait 500
-
-    sScaleWidth  = MassstabBreite.GetText
-    sScaleHeight = MassstabHoehe.GetText
-    sImageWidth  = GroesseBreite.GetText
-    sImageHeight = GroesseHoehe.GetText
-
-   PrintLog "- increase Left "
-    Links.SetText sLeft
-    Sleep 2
-
-    if StrToDouble(MassstabBreite.GetText) <= StrToDouble(sScaleWidth)  then warnlog "Scale Width  isn't right !"
-    if StrToDouble(MassstabHoehe.GetText)  <> StrToDouble(sScaleHeight) then warnlog "Scale Height isn't right !"
-    if StrToDouble(GroesseBreite.GetText)  <> StrToDouble(sImageWidth)  then warnlog "Image Width  isn't right !"
-    if StrToDouble(GroesseHoehe.GetText)   <> StrToDouble(sImageHeight) then warnlog "Image Height isn't right !"
-
-    sScaleWidth  = MassstabBreite.GetText
-
-   PrintLog "- increase Right"
-    Rechts.SetText sRight
-    Sleep 2
-
-    if StrToDouble(MassstabBreite.GetText) <= StrToDouble(sScaleWidth)  then warnlog "Scale Width  isn't right !"
-    if StrToDouble(MassstabHoehe.GetText)  <> StrToDouble(sScaleHeight) then warnlog "Scale Height isn't right !"
-    if StrToDouble(GroesseBreite.GetText)  <> StrToDouble(sImageWidth)  then warnlog "Image Width  isn't right !"
-    if StrToDouble(GroesseHoehe.GetText)   <> StrToDouble(sImageHeight) then warnlog "Image Height isn't right !"
-
-    sScaleWidth  = MassstabBreite.GetText
-
-   PrintLog "- increase Top "
-    Oben.SetText sUp
-    Sleep 2
-
-    if StrToDouble(MassstabBreite.GetText) <> StrToDouble(sScaleWidth)  then warnlog "Scale Width  isn't right !"
-    if StrToDouble(MassstabHoehe.GetText)  <= StrToDouble(sScaleHeight) then warnlog "Scale Height isn't right !"
-    if StrToDouble(GroesseBreite.GetText)  <> StrToDouble(sImageWidth)  then warnlog "Image Width  isn't right !"
-    if StrToDouble(GroesseHoehe.GetText)   <> StrToDouble(sImageHeight) then warnlog "Image Height isn't right !"
-
-    sScaleHeight  = MassstabHoehe.GetText
-
-   PrintLog "- increase Bottom "
-    Unten.SetText sBottom
-    Sleep 2
-
-    if StrToDouble(MassstabBreite.GetText) <> StrToDouble(sScaleWidth)  then warnlog "Scale Width  isn't right !"
-    if StrToDouble(MassstabHoehe.GetText)  <= StrToDouble(sScaleHeight) then warnlog "Scale Height isn't right !"
-    if StrToDouble(GroesseBreite.GetText)  <> StrToDouble(sImageWidth)  then warnlog "Image Width  isn't right !"
-    if StrToDouble(GroesseHoehe.GetText)   <> StrToDouble(sImageHeight) then warnlog "Image Height isn't right !"
-
-   TabZuschneiden.Cancel
-
-   '/// - decrease value , check if "keep image size" is efficient
-   fFormatGraphic("TabZuschneiden")
-    wait 500
-    GroesseBeibehalten.Check
-    wait 500
-
-    sScaleWidth  = MassstabBreite.GetText
-    sScaleHeight = MassstabHoehe.GetText
-    sImageWidth  = GroesseBreite.GetText
-    sImageHeight = GroesseHoehe.GetText
-
-   PrintLog "- decrease Left "
-    Links.SetText "-" + sLeft
-    Sleep 2
-
-    if StrToDouble(MassstabBreite.GetText) >= StrToDouble(sScaleWidth)  then warnlog "Scale Width  isn't right !"
-    if StrToDouble(MassstabHoehe.GetText)  <> StrToDouble(sScaleHeight) then warnlog "Scale Height isn't right !"
-    if StrToDouble(GroesseBreite.GetText)  <> StrToDouble(sImageWidth)  then warnlog "Image Width  isn't right !"
-    if StrToDouble(GroesseHoehe.GetText)   <> StrToDouble(sImageHeight) then warnlog "Image Height isn't right !"
-
-    sScaleWidth  = MassstabBreite.GetText
-
-   PrintLog "- decrease Right"
-    Rechts.SetText "-" + sRight
-    Sleep 2
-
-    if StrToDouble(MassstabBreite.GetText) >= StrToDouble(sScaleWidth)  then warnlog "Scale Width  isn't right !"
-    if StrToDouble(MassstabHoehe.GetText)  <> StrToDouble(sScaleHeight) then warnlog "Scale Height isn't right !"
-    if StrToDouble(GroesseBreite.GetText)  <> StrToDouble(sImageWidth)  then warnlog "Image Width  isn't right !"
-    if StrToDouble(GroesseHoehe.GetText)   <> StrToDouble(sImageHeight) then warnlog "Image Height isn't right !"
-
-    sScaleWidth  = MassstabBreite.GetText
-
-   PrintLog "- decrease Top "
-    Oben.SetText "-" + sUp
-    Sleep 2
-
-    if StrToDouble(MassstabBreite.GetText) <> StrToDouble(sScaleWidth)  then warnlog "Scale Width  isn't right !"
-    if StrToDouble(MassstabHoehe.GetText)  >= StrToDouble(sScaleHeight) then warnlog "Scale Height isn't right !"
-    if StrToDouble(GroesseBreite.GetText)  <> StrToDouble(sImageWidth)  then warnlog "Image Width  isn't right !"
-    if StrToDouble(GroesseHoehe.GetText)   <> StrToDouble(sImageHeight) then warnlog "Image Height isn't right !"
-
-    sScaleHeight  = MassstabHoehe.GetText
-
-   PrintLog "- decrease Bottom "
-    Unten.SetText "-" + sBottom
-    Sleep 2
-
-    if StrToDouble(MassstabBreite.GetText) <> StrToDouble(sScaleWidth)  then warnlog "Scale Width  isn't right !"
-    if StrToDouble(MassstabHoehe.GetText)  >= StrToDouble(sScaleHeight) then warnlog "Scale Height isn't right !"
-    if StrToDouble(GroesseBreite.GetText)  <> StrToDouble(sImageWidth)  then warnlog "Image Width  isn't right !"
-    if StrToDouble(GroesseHoehe.GetText)   <> StrToDouble(sImageHeight) then warnlog "Image Height isn't right !"
-
-   TabZuschneiden.Cancel
-
-   Call hCloseDocument
-
-endcase
-
-'-------------------------------------------------------------------------------------------
-
-testcase tInsertGraphic_42
-
-  Dim sLeft as String
-  Dim sRight as String
-  Dim sUp as String
-  Dim sBottom as String
-  Dim sScaleWidth as String
-  Dim sScaleHeight as String
-  Dim sImageWidth as String
-  Dim sImageHeight as String
-  Dim dDummy1 as double
-  Dim dDummy2 as double
-
-  sLeft    = "1"+ gSeperator + "00" + gMeasurementUnit
-  sRight   = "1"+ gSeperator + "00" + gMeasurementUnit
-  sUp      = "1"+ gSeperator + "00" + gMeasurementUnit
-  sBottom  = "1"+ gSeperator + "00" + gMeasurementUnit
-
-  PrintLog "- Test checkbox 'Keep scale'"
- '/// Test checkbox 'Keep scale'
-
-   Call hNewDocument
-
-  '/// Insert a graphics
-   fInsertGraphics("game.bmp")
-
-  '/// Format / Graphic / Crop , check Keep scale
-  '/// - increase the value
-   fFormatGraphic("TabZuschneiden")
-    wait 500
-    MassstabBeibehalten.Check
-    wait 500
-
-    sScaleWidth  = MassstabBreite.GetText
-    sScaleHeight = MassstabHoehe.GetText
-    sImageWidth  = GroesseBreite.GetText
-    sImageHeight = GroesseHoehe.GetText
-
-   PrintLog "- increase Left "
-    Links.SetText sLeft
-    Sleep 2
-
-    if StrToDouble(MassstabBreite.GetText) <> StrToDouble(sScaleWidth)  then warnlog "Scale Width  isn't right !"
-    if StrToDouble(MassstabHoehe.GetText)  <> StrToDouble(sScaleHeight) then warnlog "Scale Height isn't right !"
-    if StrToDouble(GroesseBreite.GetText)  >= StrToDouble(sImageWidth)  then warnlog "Image Width  isn't right !"
-    if StrToDouble(GroesseHoehe.GetText)   <> StrToDouble(sImageHeight) then warnlog "Image Height isn't right !"
-
-    sImageWidth  = GroesseBreite.GetText
-
-   PrintLog "- increase Right"
-    Rechts.SetText sRight
-    Sleep 2
-
-    if StrToDouble(MassstabBreite.GetText) <> StrToDouble(sScaleWidth)  then warnlog "Scale Width  isn't right !"
-    if StrToDouble(MassstabHoehe.GetText)  <> StrToDouble(sScaleHeight) then warnlog "Scale Height isn't right !"
-    if StrToDouble(GroesseBreite.GetText)  >= StrToDouble(sImageWidth)  then warnlog "Image Width  isn't right !"
-    if StrToDouble(GroesseHoehe.GetText)   <> StrToDouble(sImageHeight) then warnlog "Image Height isn't right !"
-
-    sImageWidth  = GroesseBreite.GetText
-
-   PrintLog "- increase Top "
-    Oben.SetText sUp
-    Sleep 2
-
-    if StrToDouble(MassstabBreite.GetText) <> StrToDouble(sScaleWidth)  then warnlog "Scale Width  isn't right !"
-    if StrToDouble(MassstabHoehe.GetText)  <> StrToDouble(sScaleHeight) then warnlog "Scale Height isn't right !"
-    if StrToDouble(GroesseBreite.GetText)  <> StrToDouble(sImageWidth)  then warnlog "Image Width  isn't right !"
-    if StrToDouble(GroesseHoehe.GetText)   >= StrToDouble(sImageHeight) then warnlog "Image Height isn't right !"
-
-    sImageHeight = GroesseHoehe.GetText
-
-   PrintLog "- increase Bottom "
-    Unten.SetText sBottom
-    Sleep 2
-
-    if StrToDouble(MassstabBreite.GetText) <> StrToDouble(sScaleWidth)  then warnlog "Scale Width  isn't right !"
-    if StrToDouble(MassstabHoehe.GetText)  <> StrToDouble(sScaleHeight) then warnlog "Scale Height isn't right !"
-    if StrToDouble(GroesseBreite.GetText)  <> StrToDouble(sImageWidth)  then warnlog "Image Width  isn't right !"
-    if StrToDouble(GroesseHoehe.GetText)   >= StrToDouble(sImageHeight) then warnlog "Image Height isn't right !"
-
-   TabZuschneiden.Cancel
-
-   '/// - decrease value
-   fFormatGraphic("TabZuschneiden")
-    wait 500
-    MassstabBeibehalten.Check
-    wait 500
-
-    sScaleWidth  = MassstabBreite.GetText
-    sScaleHeight = MassstabHoehe.GetText
-    sImageWidth  = GroesseBreite.GetText
-    sImageHeight = GroesseHoehe.GetText
-
-   PrintLog "- decrease Left "
-    Links.SetText "-" + sLeft
-    Sleep 2
-
-    if StrToDouble(MassstabBreite.GetText) <> StrToDouble(sScaleWidth)  then warnlog "Scale Width  isn't right !"
-    if StrToDouble(MassstabHoehe.GetText)  <> StrToDouble(sScaleHeight) then warnlog "Scale Height isn't right !"
-    if StrToDouble(GroesseBreite.GetText)  <= StrToDouble(sImageWidth)  then warnlog "Image Width  isn't right !"
-    if StrToDouble(GroesseHoehe.GetText)   <> StrToDouble(sImageHeight) then warnlog "Image Height isn't right !"
-
-    sImageWidth  = GroesseBreite.GetText
-
-   PrintLog "- decrease Right"
-    Rechts.SetText "-" + sRight
-    Sleep 2
-
-    if StrToDouble(MassstabBreite.GetText) <> StrToDouble(sScaleWidth)  then warnlog "Scale Width  isn't right !"
-    if StrToDouble(MassstabHoehe.GetText)  <> StrToDouble(sScaleHeight) then warnlog "Scale Height isn't right !"
-    if StrToDouble(GroesseBreite.GetText)  <= StrToDouble(sImageWidth)  then warnlog "Image Width  isn't right !"
-    if StrToDouble(GroesseHoehe.GetText)   <> StrToDouble(sImageHeight) then warnlog "Image Height isn't right !"
-
-    sImageWidth  = GroesseBreite.GetText
-
-   PrintLog "- decrease Top "
-    Oben.SetText "-" + sUp
-    Sleep 2
-
-    if StrToDouble(MassstabBreite.GetText) <> StrToDouble(sScaleWidth)  then warnlog "Scale Width  isn't right !"
-    if StrToDouble(MassstabHoehe.GetText)  <> StrToDouble(sScaleHeight) then warnlog "Scale Height isn't right !"
-    if StrToDouble(GroesseBreite.GetText)  <> StrToDouble(sImageWidth)  then warnlog "Image Width  isn't right !"
-    if StrToDouble(GroesseHoehe.GetText)   <= StrToDouble(sImageHeight) then warnlog "Image Height isn't right !"
-
-    sImageHeight = GroesseHoehe.GetText
-
-   PrintLog "- decrease Bottom "
-    Unten.SetText "-" + sBottom
-    Sleep 2
-
-    if StrToDouble(MassstabBreite.GetText) <> StrToDouble(sScaleWidth)  then warnlog "Scale Width  isn't right !"
-    if StrToDouble(MassstabHoehe.GetText)  <> StrToDouble(sScaleHeight) then warnlog "Scale Height isn't right !"
-    if StrToDouble(GroesseBreite.GetText)  <> StrToDouble(sImageWidth)  then warnlog "Image Width  isn't right !"
-    if StrToDouble(GroesseHoehe.GetText)   <= StrToDouble(sImageHeight) then warnlog "Image Height isn't right !"
-
-   TabZuschneiden.Cancel
-
-   Call hCloseDocument
-
-endcase
-
-'-------------------------------------------------------------------------------------------
-
-testcase tInsertGraphic_43
-
-  Dim sLeft as String
-  Dim sRight as String
-  Dim sUp as String
-  Dim sBottom as String
-
-  sLeft    = "1"+ gSeperator + "00" + gMeasurementUnit
-  sRight   = "2"+ gSeperator + "00" + gMeasurementUnit
-  sUp      = "3"+ gSeperator + "00" + gMeasurementUnit
-  sBottom  = "4"+ gSeperator + "00" + gMeasurementUnit
-
-  PrintLog "- Test spacing in tabpage 'wrap'"
- '/// Test spacing in tabpage 'wrap'
-
-   Call hNewDocument
-
-  '/// Insert a graphics
-   fInsertGraphics("game.bmp")
-
-  '/// Format / Graphic / Wrap , set value in spacing area
-   fFormatGraphic("TabUmlauf")
-    Sleep 1
-    Kein.Check
-    wait 500
-    AbstaendeLinks.SetText  sLeft
-    wait 500
-    AbstaendeRechts.SetText sRight
-    wait 500
-    AbstaendeOben.SetText   sUp
-    wait 500
-    AbstaendeUnten.SetText  sBottom
-    wait 500
-   TabUmlauf.OK
-
-  '/// Check if the set value is correct
-   fFormatGraphic("TabUmlauf")
-    if AbstaendeLinks.GetText  <> sLeft   then  warnlog "Spacing - Lefe isn't correct!"
-    if AbstaendeRechts.GetText <> sRight  then  warnlog "Spacing - Right isn't correct!"
-    if AbstaendeOben.GetText   <> sUp     then  warnlog "Spacing - Top isn't correct!"
-    if AbstaendeUnten.GetText  <> sBottom then  warnlog "Spacing - Bottom isn't correct!"
-   TabUmlauf.Cancel
-
-   Call hCloseDocument
-
-endcase
-
-'-------------------------------------------------------------------------------------------
-
-testcase tInsertGraphic_44
-
-  PrintLog "- Set the possible Options for the different Wrap types"
- '/// Set the possible Options for the different Wrap types
-
-  Call hNewDocument
-
-  '/// Insert a graphics
-   fInsertGraphics("Bughunter.jpg")
-
-   PrintLog "  1. No Wrap:"
-  '/// Format / Graphic / tabpage Wrap - No page , check possible options
-   fFormatGraphic("TabUmlauf")
-    Sleep 1
-    Kein.Check
-    Sleep 1
-    if ErsterAbsatz.IsEnabled   = TRUE then Warnlog "Checkbox - First paragraph should be unenabled!"
-    if ImHintergrund.IsEnabled  = TRUE then Warnlog "Checkbox - In background should be unenabled!"
-    if Kontur.IsEnabled         = TRUE then Warnlog "Checkbox - Contour should be unenabled!"
-    if NurAussen.IsEnabled      = TRUE then Warnlog "Checkbox - Outside only should be unenabled!"
-   TabUmlauf.Cancel
-
-   PrintLog "  2. Before:"
-  '/// Format / Graphic / tabpage Wrap - Before , check possible options
-   fFormatGraphic("TabUmlauf")
-    Sleep 1
-    Links.Check
-    Sleep 1
-    if ErsterAbsatz.IsEnabled   <> TRUE then Warnlog "Checkbox - First paragraph should be enabled!"
-    if ImHintergrund.IsEnabled  =  TRUE then Warnlog "Checkbox - In background should be unenabled!"
-    if Kontur.IsEnabled         <> TRUE then Warnlog "Checkbox - Contour should be enabled!"
-    if NurAussen.IsEnabled      =  TRUE then Warnlog "Checkbox - Outside only should be unenabled!"
-
-    Kontur.Check
-    wait 500
-    if NurAussen.IsEnabled      <> TRUE then Warnlog "Checkbox - Outside only should be enabled after checking contour!"
-   TabUmlauf.Cancel
-
-   PrintLog "  3. After:"
-  '/// Format / Graphic / tabpage Wrap - After , check possible options
-   fFormatGraphic("TabUmlauf")
-    Sleep 1
-    Rechts.Check
-    Sleep 1
-    if ErsterAbsatz.IsEnabled   <> TRUE then Warnlog "Checkbox - First paragraph should be enabled!"
-    if ImHintergrund.IsEnabled  =  TRUE then Warnlog "Checkbox - In background should be unenabled!"
-    if Kontur.IsEnabled         <> TRUE then Warnlog "Checkbox - Contour should be enabled!"
-    if NurAussen.IsEnabled      =  TRUE then Warnlog "Checkbox - Outside only should be unenabled!"
-
-    Kontur.Check
-    wait 500
-    if NurAussen.IsEnabled      <> TRUE then Warnlog "Checkbox - Outside only should be enabled after checking contour!"
-   TabUmlauf.Cancel
-
-   PrintLog "  4. Parallel:"
-  '/// Format / Graphic / tabpage Wrap - Parallel , check possible options
-   fFormatGraphic("TabUmlauf")
-    Sleep 1
-    Parallel.Check
-    Sleep 1
-    if ErsterAbsatz.IsEnabled   <> TRUE then Warnlog "Checkbox - First paragraph should be enabled!"
-    if ImHintergrund.IsEnabled  =  TRUE then Warnlog "Checkbox - In background should be unenabled!"
-    if Kontur.IsEnabled         <> TRUE then Warnlog "Checkbox - Contour should be enabled!"
-    if NurAussen.IsEnabled      =  TRUE then Warnlog "Checkbox - Outside only should be unenabled!"
-
-    Kontur.Check
-    wait 500
-    if NurAussen.IsEnabled      <> TRUE then Warnlog "Checkbox - Outside only should be enabled after checking contour!"
-   TabUmlauf.Cancel
-
-   PrintLog "  5. Through:"
-  '/// Format / Graphic / tabpage Wrap - Through , check possible options
-   fFormatGraphic("TabUmlauf")
-    Sleep 1
-    Durchlauf.Check
-    Sleep 1
-    if ErsterAbsatz.IsEnabled   <> TRUE then Warnlog "Checkbox - First paragraph should be enabled!"
-    if ImHintergrund.IsEnabled  <> TRUE then Warnlog "Checkbox - In background should be enabled!"
-    if Kontur.IsEnabled         =  TRUE then Warnlog "Checkbox - Contour should be unenabled!"
-    if NurAussen.IsEnabled      =  TRUE then Warnlog "Checkbox - Outside only should be unenabled!"
-   TabUmlauf.Cancel
-
-   PrintLog "  6. Optimal:"
-  '/// Format / Graphic / tabpage Wrap - Optimal , check possible options
-   fFormatGraphic("TabUmlauf")
-    Sleep 1
-    Dynamisch.Check
-    Sleep 1
-    if ErsterAbsatz.IsEnabled   <> TRUE then Warnlog "Checkbox - First paragraph should be enabled!"
-    if ImHintergrund.IsEnabled  =  TRUE then Warnlog "Checkbox - In background should be unenabled!"
-    if Kontur.IsEnabled         <> TRUE then Warnlog "Checkbox - Contour should be enabled!"
-    if NurAussen.IsEnabled      =  TRUE then Warnlog "Checkbox - Outside only should be unenabled!"
-
-    Kontur.Check
-    wait 500
-    if NurAussen.IsEnabled      <> TRUE then Warnlog "Checkbox - Outside only should be enabled after checking contour!"
-   TabUmlauf.Cancel
-
-   Call hCloseDocument
-
-endcase
-
-'-------------------------------------------------------------------------------------------
-
-testcase tInsertGraphic_45
-
-  Dim sScaleWidth as String
-  Dim sScaleHeight as String
-  Dim sImageWidth as String
-  Dim sImageHeight as String
-
-  sScaleWidth  = "100%"
-  sScaleHeight = "100%"
-
-  PrintLog "- Test Scale in Corp tabpage"
- '/// Test Scale in Corp tabpage
-
-  Call hNewDocument
-
-  '/// Insert a graphics
-   fInsertGraphics("game.bmp")
-   Sleep 1
-
-  '/// Format/Graphic tabpage corp , double Scale (width and height)
-   fFormatGraphic("TabZuschneiden")
-    wait 500
-    MassstabBreite.SetText sScaleWidth
-    MassstabHoehe.SetText  sScaleHeight
-   TabZuschneiden.OK
-
-   fFormatGraphic("TabZuschneiden")
-    wait 500
-    sImageWidth  = GroesseBreite.GetText
-    sImageHeight = GroesseHoehe.GetText
-
-    sScaleWidth  = "200%"
-    sScaleHeight = "200%"
-
-    MassstabBreite.SetText sScaleWidth
-    wait 500
-    MassstabHoehe.SetText  sScaleHeight
-    wait 500
-
-    sImageWidth  = Str(StrToDouble(sImageWidth) *2) + gMeasurementUnit
-    sImageHeight = Str(StrToDouble(sImageHeight)*2) + gMeasurementUnit
-
-   '/// Check if the image size (width and height) are changed corresponding
-    if fCalculateTolerance(GroesseBreite.GetText , sImageWidth) > 0.03 then
-       Warnlog "Image Width is wrong, should be " + sImageWidth + " but get " + GroesseBreite.GetText
-    end if
-
-    if fCalculateTolerance(GroesseHoehe.GetText , sImageHeight) > 0.03 then
-       Warnlog "Image Height is wrong, should be " + sImageHeight + " but get " + GroesseHoehe.GetText
-    end if
-   TabZuschneiden.Cancel
-
-   Call hCloseDocument
-
-endcase
-
-'-------------------------------------------------------------------------------------------
-
-testcase tInsertGraphic_46
-
-  Dim sScaleWidth as String
-  Dim sScaleHeight as String
-  Dim sImageWidth as String
-  Dim sImageHeight as String
-
-  sImageWidth  = "4"+ gSeperator + "00" + gMeasurementUnit
-  sImageHeight = "2"+ gSeperator + "80" + gMeasurementUnit
-
-  PrintLog "- Test Image size in Corp tabpage"
- '/// Test Image size in Corp tabpage
-
-  Call hNewDocument
-
-  '/// Insert a graphics
-   fInsertGraphics("game.bmp")
-   Sleep 1
-
-  '/// Format/Graphic tabpage corp , double Imagin size (width and height)
-   fFormatGraphic("TabZuschneiden")
-    wait 500
-    GroesseBreite.SetText  sImageWidth
-    GroesseHoehe.SetText   sImageHeight
-   TabZuschneiden.OK
-
-   fFormatGraphic("TabZuschneiden")
-    wait 500
-    sScaleWidth  = MassstabBreite.GetText
-    sScaleHeight = MassstabHoehe.GetText
-
-    sImageWidth  = "8"+ gSeperator + "00" + gMeasurementUnit
-    sImageHeight = "5"+ gSeperator + "60" + gMeasurementUnit
-
-    GroesseBreite.SetText  sImageWidth
-    wait 500
-    GroesseHoehe.SetText   sImageHeight
-    wait 500
-
-   '/// Check if the Scale(width and height) are changed corresponding
-    if Abs(StrToDouble(sScaleWidth) *2 - StrToDouble(MassstabBreite.GetText) ) > 2 then
-       Warnlog "Scale Width is wrong, should be " + Str(StrToDouble(sScaleWidth) *2) + "%" + " but get " + MassstabBreite.GetText
-    end if
-
-    if Abs(StrToDouble(sScaleHeight) *2 - StrToDouble(MassstabHoehe.GetText) ) > 2 then
-       Warnlog "Scale Height is wrong, should be " + Str(StrToDouble(sScaleHeight)*2) + "%" + " but get " + MassstabHoehe.GetText
-    end if
-   TabZuschneiden.Cancel
-
-   Call hCloseDocument
-
-endcase
-
-'-------------------------------------------------------------------------------------------
-
-testcase tInsertGraphic_47
-
-  Dim sScaleWidth as String
-  Dim sScaleHeight as String
-  Dim sImageWidth as String
-  Dim sImageHeight as String
-  Dim sNewImageWidth as String
-  Dim sNewImageHeight as String
-
-  sNewImageWidth  = "8"+ gSeperator + "00" + gMeasurementUnit
-  sNewImageHeight = "5"+ gSeperator + "60" + gMeasurementUnit
-
-  PrintLog "- Test Restore via 'Original Size' button"
- '/// Test Restore via "Original Size" button
-
-  Call hNewDocument
-
-  '/// Insert a graphics
-   fInsertGraphics("game.bmp")
-   Sleep 1
-
-  '/// Format/Graphic tabpage corp , double Image size (width and height)
-   fFormatGraphic("TabZuschneiden")
-    wait 500
-    sScaleWidth  = MassstabBreite.GetText
-    sScaleHeight = MassstabHoehe.GetText
-    sImageWidth  = GroesseBreite.GetText
-    sImageHeight = GroesseHoehe.GetText
-
-    GroesseBreite.SetText  sNewImageWidth
-    wait 500
-    GroesseHoehe.SetText   sNewImageHeight
-    wait 500
-
-   '/// + Click 'Original size' button
-    Originalgroesse.Click
-    Sleep 1
-
-   '/// Check if the Scale and Image size are recovered to the original size
-    if MassstabBreite.GetText <> sScaleWidth  then warnlog "Scale Width  isn't right !"
-    if MassstabHoehe.GetText  <> sScaleHeight then warnlog "Scale Height isn't right !"
-    if GroesseBreite.GetText  <> sImageWidth  then warnlog "Image Width  isn't right !"
-    if GroesseHoehe.GetText   <> sImageHeight then warnlog "Image Height isn't right !"
-   TabZuschneiden.Cancel
-
-   Call hCloseDocument
-
-endcase
-
-'-------------------------------------------------------------------------------------------
-
-testcase tInsertGraphic_48
-
-  Dim sFileName as String
-
-  sFileName = "game.bmp"
-
-  PrintLog "- Test link area via a embedded file"
- '/// Test link area via a embedded file
-
-  Call hNewDocument
-
-  '/// Insert a graphics (embeded)
-   InsertGraphicsFromFile
-   Kontext "GrafikEinfuegenDlg"
-   Dateiname.Settext (ConvertPath (gTesttoolpath + "writer\optional\input\insertgraphic\" + sFileName) )
-   Sleep 1
-   Link.UnCheck
-   Sleep 1
-   Oeffnen.Click
-   Sleep 2
-
-  '/// Format/Graphic tabpage Graphics , check if we can get [None] in file name in Link area
-   fFormatGraphic("TabGrafik")
-    wait 500
-    if left(Dateiname.GetText , 1) <> "["  then warnlog "Should be none in file name, but get " + Dateiname.GetText
-    if Durchsuchen.IsEnabled       =  TRUE then Warnlog "Button should be unEnabled!"
-   TabGrafik.Cancel
-
-   Call hCloseDocument
-
-endcase
-
-'-------------------------------------------------------------------------------------------
-
-testcase tInsertGraphic_49
-
-  Dim sFileName   as String
-  Dim sHopeResult as String
-
-  sFileName   = "game.bmp"
-  sHopeResult = fConvertBacklashToSlash(gTesttoolpath + "writer\optional\input\insertgraphic\" + sFileName)
-
-  if gPlatGroup <> "unx" then
-     sHopeResult = "file:///" + sHopeResult
-  else
-     sHopeResult = "file://"  + sHopeResult
-  end if
-
-  PrintLog "- Test link area via a linked file"
- '/// Test link area via a linked file
-
-  Call hNewDocument
-
-  '/// Insert a graphics (linked)
-   fInsertGraphics(sFileName)
-
-  '/// Format/Graphic tabpage Graphics , check if we can get
-  '/// + the correct name in 'file name' in Link area
-   fFormatGraphic("TabGrafik")
-    wait 500
-    if Dateiname.GetText <> sHopeResult  then warnlog "linked file name is wrong, should be " + sHopeResult + " but get " + Dateiname.GetText
-    try
-       Durchsuchen.Click
-       Kontext
-       Kontext "GrafikEinfuegenDlg"
-       if Dateiname.GetSelText <> sFileName then warnlog "file name is wrong, should be " + sFileName + " but get " + Dateiname.GetText
-       if Link.IsChecked       <> TRUE      then warnlog "The linked checkbox should be checked!"
-       GrafikEinfuegenDlg.Cancel
-    catch
-       warnlog "Button should be enabled!"
-    endcatch
-
-   Kontext "TabGrafik"
-   TabGrafik.Cancel
-
-   Call hCloseDocument
-
-endcase
-
-'-------------------------------------------------------------------------------------------
-
-function fCalculateTolerance( sNumber1 , sNumber2 )
-
-'/// change 2 parameters to number , then Compare them and return the result.
-
-   Dim dNumber1 as Single
-   dim dNumber2 as Single
-   Dim iCommaLocation1 as integer
-   Dim iCommaLocation2 as Integer
-
-  'the code below 4 lines is set "2,00cm" to "2.00"cm if needed
-   iCommaLocation1 = InStr(sNumber1 , ",")
-   if iCommaLocation1 > 0 then
-      sNumber1 = Left(sNumber1 , iCommaLocation1-1) + "." + Right(sNumber1,Len(sNumber1) - iCommaLocation1)
-   end if
-
-   iCommaLocation2 = InStr(sNumber2 , ",")
-   if iCommaLocation2 > 0 then
-      sNumber2 = Left(sNumber2 , iCommaLocation2-1) + "." + Right(sNumber2,Len(sNumber2) - iCommaLocation2)
-   end if
-
-   dNumber1 = Val( Left(sNumber1, Len(sNumber1)-Len(gMeasurementUnit) ))
-   dNumber2 = Val( Left(sNumber2, Len(sNumber2)-Len(gMeasurementUnit) ))
-  fCalculateTolerance = Abs( dNumber1 - dNumber2 )
-
-end function
-
diff --git a/testautomation/writer/optional/includes/loadsave/w_loadsave.inc b/testautomation/writer/optional/includes/loadsave/w_loadsave.inc
deleted file mode 100644
index 2598c2b5f912..000000000000
--- a/testautomation/writer/optional/includes/loadsave/w_loadsave.inc
+++ /dev/null
@@ -1,447 +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 : helge.delfs@oracle.com
-'*
-'* short description : Checks the export to all available Filters from
-'*
-'\***********************************************************************
-
-testcase tExportAllReadableFormatsIntoODF
-
-    if iSprache <> 1 then
-        QAErrorlog "#100970#test only support english language"
-        goto endsub
-    end if
-
-    Dim AvailableFilters( 35 ) as String
-    Dim ImportFileList ( 300 ) as String
-    Dim ExportFileList ( 300 ) as String
-    Dim WorkDirectory as String
-    Dim ImportDir as String
-    Dim SavedCorrectly as Boolean
-	Dim sExportFilter as string
-	Dim sExportFile as string
-    Dim sExceptionFile as string
-    Dim i as Integer
-
-    WorkDirectory = ( ConvertPath ( gOfficePath + "user\work\" + gPlatgroup + "\export\"))
-    ImportDir = ConvertPath ( gTesttoolPath + "writer\optional\input\import\")
-
-    if gSamePC = TRUE then ' delete export directory
-        GetFileList ( WorkDirectory, "*.*", ExportFileList() )
-        if KillFileList ( ExportFileList() ) <> TRUE then
-            Warnlog "Couldn't delete all Files in Output-Directory, the followings are still there:"
-            for i=1 to FehlerListe(0)
-                printlog "  <> " & FehlerListe(i)
-            next i
-            goto endsub
-        end if
-    end if
-    app.Mkdir WorkDirectory
-
-    Printlog "- Read the directory with files we wish to import."
-    GetFileList ( ImportDir, "*.*", ImportFileList() )
-    printlog "-  Done."
-
-    ' Create local copies of all files to be imported
-    hFileListCopyLocal( ImportFileList() )
-
-    printlog "- Start loading files in list"
-	For i = 1 to listCount(ImportFileList())
-		printlog "- " & i & ". load: " & ImportFileList(i)
-		sExportFile = ImportFileList(i)
-        sExceptionFile  = DateiExtract ( sExportFile )
-        printlog sExceptionFile
-		if GetExtention ( sExportFile ) = "psw" then
-            QAErrorlog "#i102221#Pocket Word filter puts General I/O Error"
-        elseif LCase( sExceptionFile ) = "swdos.txt" then
-            Warnlog "General I/O error loading StarWriter DOS file"
-		else
-			Call hFileOpenLocally( ImportFileList(i) )
-			printlog "-  done"
-	
-			Kontext "TextImport"
-			if TextImport.Exists then
-				TextImport.Ok
-				printlog "-  Text import dialog passed"
-			end if
-	
-			Kontext "Filterauswahl"
-			if Filterauswahl.Exists then
-				Filterauswahl.Cancel
-				printlog "-  Filterdialog passed"
-			end if
-	
-			Kontext "AsciiFilterOptionen"
-			if AsciiFilterOptionen.Exists then
-				AsciiFilterOptionen.Ok
-				printlog "-  ASCII-Filter dialog passed"
-			end if
-	
-			Kontext "SecurityWarning"
-			if SecurityWarning.Exists(3) then
-				SecurityWarning.Ok
-				printlog "-  Security warning passed"
-			end if
-	
-			Kontext "DocumentWriter"
-			if DocumentWriter.Exists(3) then
-				Do until DocumentWriter.StatusIsProgress = false
-					wait 500
-				Loop
-			else
-				Kontext "DocumentCalc"
-				if DocumentCalc.Exists(3) then
-					Do until DocumentCalc.StatusIsProgress = false
-						wait 500
-					Loop
-				else
-					Warnlog "Neither DocumentWriter or DocumentCalc existed? Some other dialogue in focus?"
-				end if
-			end if
-	
-			' Check for macro alert
-			Kontext "SecurityWarning"
-			if SecurityWarning.Exists then
-				if inStr(ImportFileList(i),"sw40") = false then
-					QAErrorlog "Macro-Security Warning is up though document should have no macro! Macro disabled"
-				end if
-				SecurityWarning.Cancel
-			end if
-			Sleep 1
-	
-			Kontext "AlienWarning"
-			if AlienWarning.Exists then
-				AlienWarning.Ok
-				printlog "-  Alien warning passed"
-			end if
-	
-			' HTML-File can't be exported as odf this way
-			if GetExtention(ImportFileList(i)) <> "html" then		
-			
-				sExportFile = WorkDirectory & "ExportedFile" & i & ".odf"
-				Printlog "-  Save as : " & ConvertPath ( sExportFile )
-				if hFileSaveAsWithFilterKill (sExportFile, "writer8") = true then
-					printlog "-  done"
-					printlog "-  close file"
-					Call hCloseDocument
-		
-					Printlog "-  Open previous saved file"
-					Call hFileOpenWithFilter (sExportFile, "writer8")
-					printlog "-  done"
-					' Check for macro alert
-					Kontext "SecurityWarning"
-					if SecurityWarning.Exists then
-						if inStr(ImportFileList(i),"sw40")  = false then
-							QAErrorlog "Macro-Security Warning is up though document should have no macro! Macro disabled"
-						end if
-						SecurityWarning.Cancel
-					end if
-					Sleep 1
-				else
-					Warnlog "Unable to save file: " & sExportFile
-				end if
-			else
-				printlog "-  HTML-file is not exported this way"
-			end if
-	
-			printlog "-  Close all open files."
-			Do Until GetDocumentCount = 0
-				Call hCloseDocument
-			Loop		
-		endif
-    next i 'File
-
-endcase
-
-'---------------------------------------------------------------------------------------------------------------------
-
-testcase tExportAllReadableFormatsIntoThemselves
-
-    if iSprache <> 1 then
-        QAErrorlog "#100970#test only support english language"
-        goto endsub
-    end if
-
-    Dim AvailableFilters( 35 ) as String
-    Dim SavedCorrectly as Boolean
-    Dim ImportFileList ( 300 ) as String
-    Dim ExportFileList ( 300 ) as String
-    'Used - below
-    Dim sLoadFile as String
-    Dim sSaveFile as String
-    Dim sCurrentFile as String
-    Dim sCurrentFilter as String
-    Dim sWorkDirectory as String
-    Dim sImportDir as String
-    Dim iCurrentFileIndex as Integer
-    Dim iCounter as integer
-    Dim DocumentCount as integer
-
-    sWorkDirectory = ( ConvertPath ( gOfficePath + "user\work\" + gPlatgroup + "\export\"))
-    sImportDir = ConvertPath ( gTesttoolPath + "writer\optional\input\import\")
-
-    if gSamePC = TRUE then ' delete export directory
-        GetFileList ( sWorkDirectory, "*.*", ExportFileList() )
-        if KillFileList ( ExportFileList() ) <> TRUE then
-            Warnlog "Couldn't delete all Files in Output-Directory, the followings are still there:"
-            for iCounter=1 to FileList(0)
-                printlog "  <> " & FileList(i)
-            next iCounter
-        end if
-    end if
-    app.Mkdir sWorkDirectory
-
-    For iCurrentFileIndex = 1 to 7
-        select case iCurrentFileIndex
-        case 1 :   sCurrentFile = "xml2.odt"
-            sCurrentFilter = "writer8"
-        case 2 :   sCurrentFile = "wpsfile.wps"
-            sCurrentFilter = "Text (encoded)"
-        case 3 :   sCurrentFile = "dostext.txt"
-            sCurrentFilter = "Text (encoded)"
-        case 4 :  sCurrentFile = "html.html"
-            sCurrentFilter = "HTML (StarWriter)"
-        case 5 :  sCurrentFile = "rtf.rtf"
-            sCurrentFilter = "Rich Text Format"
-        case 6 :  sCurrentFile = "sw60.sxw"
-            sCurrentFilter = "StarOffice XML (Writer)"
-        case 7 :  sCurrentFile = "winw97.doc"
-            sCurrentFilter = "MS Word 97"
-        case 8 :  sCurrentFile = "winword6.doc"
-            sCurrentFilter = "MS Word 95"
-        case 9 :  sCurrentFile = "wintext.txt"
-            sCurrentFilter = "Text (encoded)"
-        end select
-
-        sLoadFile = sImportDir & sCurrentFile
-        sSaveFile = sWorkDirectory & "filenr_" & iCurrentFileIndex & "." & GetExtention ( sCurrentFile )
-        printlog "- Export of File nr " + iCurrentFileIndex + " started"
-        printlog " - Save file: " & sLoadFile
-        printlog " - to file: " & sSaveFile
-
-
-        ' Load In-file
-        Call hFileOpenWithFilter(sLoadFile, sCurrentFilter, false)
-
-        kontext "active"
-        if active.exists(2) then
-            active.ok
-            warnlog "Error with file " + sLoadFile + " as " + sSaveFile + "."
-        end if
-
-        Kontext "TextImport"
-        if TextImport.Exists then
-            TextImport.Ok
-        end if
-
-        Kontext "Filterauswahl"
-        if Filterauswahl.Exists then
-            Filterauswahl.Cancel
-        end if
-
-        Kontext "AsciiFilterOptionen"
-        if AsciiFilterOptionen.Exists then AsciiFilterOptionen.Ok
-        Kontext "SecurityWarning"
-        if SecurityWarning.Exists(3) then SecurityWarning.Ok
-        Kontext "DocumentWriter"
-        if DocumentWriter.Exists(3) then
-            Do until DocumentWriter.StatusIsProgress = false
-                wait 500
-            Loop
-        else
-            Kontext "DocumentCalc"
-            if DocumentCalc.Exists(3) then
-                Do until DocumentCalc.StatusIsProgress = false
-                    wait 500
-                Loop
-            else
-                Warnlog "Neither DocumentWriter or DocumentCalc existed? Some other dialogue in focus?"
-            end if
-        end if
-
-        ' Check for macro alert
-        Kontext "SecurityWarning"
-        if SecurityWarning.Exists then
-            if inStr(currentfile,"sw40") = false then
-                QAErrorlog "Macro-Security Warning is up though document should have no macro! Macro disabled"
-            end if
-            SecurityWarning.Cancel
-        end if
-        Sleep 1
-
-        Kontext "AlienWarning"
-        if AlienWarning.Exists then AlienWarning.Ok
-
-        ' Save Out-file
-        Call hFileSaveAsWithFilterKill(sSaveFile, sCurrentFilter)
-
-        kontext "active"
-        if active.exists(2) then
-            active.ok
-            warnlog "Error saving file " + sLoadFile + " as " + sSaveFile + "."
-            goto Cleanup
-        end if
-
-        ' Load Out-file again
-        Call hFileOpenWithFilter(sSaveFile, sCurrentFilter, false)
-
-        ' Check for macro alert
-        Kontext "SecurityWarning"
-        if SecurityWarning.Exists then
-            if inStr(currentfile,"sw40") > 0 then
-                QAErrorlog "Macro-Security Warning is up though document should have no macro! Macro disabled"
-            end if
-            SecurityWarning.Cancel
-        end if
-        Sleep 1
-
-        Cleanup:
-        kontext "active"
-        if active.exists(2) then
-            active.ok
-            Select Case iCurrentFileIndex
-            case 7: QAErrorlog "#i106758#Saving StarWriter 3 template corrupts file"
-            case else
-                warnlog "Error with file " + sLoadFile + " as " + sSaveFile + "."
-            end select
-        end if
-
-        printlog "   Close all open files."
-        hFileCloseAll()
-
-        printlog " - File nr " + iCurrentFileIndex + " completed."
-    Next iCurrentFileIndex
-
-endcase
-
-'---------------------------------------------------------------------------------------------------------------------
-
-testcase tExportTop5FormatsIntoTop5
-
-    if iSprache <> 1 then
-        QAErrorlog "#100970#test only support english language"
-        goto endsub
-    end if
-
-    Dim ExportFileList(300) as String
-    Dim sWorkDirectory as String
-    Dim sImportDir as String
-    Dim iCurrentLoadFileIndex as Integer
-    Dim sCurrentLoadFile as String
-    Dim sCurrentLoadFilter as String
-    Dim iCurrentSaveFileIndex as Integer
-    Dim sCurrentSaveFile as String
-    Dim sCurrentSaveFilter as String
-    Dim iCounter as Integer
-    Dim DocumentCount as Integer
-    Dim FileList as String
-
-    sWorkDirectory = ( ConvertPath ( gOfficePath + "user\work\" + gPlatgroup + "\loadsavetop5\"))
-    sImportDir = ConvertPath ( gTesttoolPath + "writer\optional\input\import\")
-
-    if gSamePC = TRUE then ' delete export directory
-        GetFileList ( sWorkDirectory, "*.*", ExportFileList() )
-        if KillFileList ( ExportFileList() ) <> TRUE then
-            Warnlog "Couldn't delete all Files in Output-Directory, the followings are still there:"
-            for iCounter=1 to FileList(0)
-                printlog "  <> " & FileList(i)
-            next iCounter
-        end if
-    end if
-    app.Mkdir sWorkDirectory
-
-    '// Start of the LOAD-Loop
-    For iCurrentLoadFileIndex = 1 to 4
-        Select case iCurrentLoadFileIndex
-        case 1 : sCurrentLoadFile = sImportDir & "xml2.odt"
-            sCurrentLoadFilter = "writer8"
-        case 2 : sCurrentLoadFile = sImportDir & "sw60.sxw"
-            sCurrentLoadFilter = "StarOffice XML (Writer)"
-        case 3 : sCurrentLoadFile = sImportDir & "winw97.doc"
-            sCurrentLoadFilter = "MS Word 97"
-        case 4 : sCurrentLoadFile = sImportDir & "rtf.rtf"
-            sCurrentLoadFilter = "Rich Text Format"
-        case 5 : sCurrentLoadFile = sImportDir & "html.html"
-            sCurrentLoadFilter = "HTML (StarWriter)"
-        End select
-
-        printlog "- Export of File nr " + iCurrentLoadFileIndex + " started."
-        printlog " - Save file: " & sCurrentLoadFile
-
-        '///  Here comes the SAVE-Loop
-        For iCurrentSaveFileIndex = 1 to 5
-            if hFileOpenWithFilter((sCurrentLoadFile), sCurrentLoadFilter) = true then
-                Select case iCurrentSaveFileIndex
-                case 1 : sCurrentSaveFile = sWorkDirectory & "SavedFile_l" + iCurrentLoadFileIndex + "_s1.odt"
-                    sCurrentSaveFilter = "writer8"
-                case 2 : sCurrentSaveFile = sWorkDirectory & "SavedFile_l" + iCurrentLoadFileIndex + "_s2.sxw"
-                    sCurrentSaveFilter = "StarOffice XML (Writer)"
-                case 3 : sCurrentSaveFile = sWorkDirectory & "SavedFile_l" + iCurrentLoadFileIndex + "_s3.doc"
-                    sCurrentSaveFilter = "MS Word 97"
-                case 4 : sCurrentSaveFile = sWorkDirectory & "SavedFile_l" + iCurrentLoadFileIndex + "_s4.rtf"
-                    sCurrentSaveFilter = "Rich Text Format"
-                case 5 : sCurrentSaveFile = sWorkDirectory & "SavedFile_l" + iCurrentLoadFileIndex + "_s5.html"
-                    sCurrentSaveFilter = "HTML (StarWriter)"
-                End select
-
-                printlog " - " & iCurrentSaveFileIndex & ". to file: " & sCurrentSaveFile
-                if hFileSaveAsWithFilterKill(sCurrentSaveFile, sCurrentSaveFilter) = true then
-                    printlog " - close all open documents"
-                    hFileCloseAll()
-                    printlog " - check if file exists"
-                    if FileExists (sCurrentSaveFile) then
-                        printlog "  - success"
-                        printlog " - reload previously saved file"
-                        if hFileOpenWithFilter(sCurrentSaveFile, sCurrentSaveFilter) = true then
-                            printlog "  - success"
-                        else
-                            Warnlog "error loading file: " & sCurrentSaveFile
-                        end if
-                        hFileCloseAll()
-                    else
-                        Warnlog "Saved file doesn't exist"
-                        'Close the opened file
-                        hFileCloseAll()
-                    end if
-                else
-                    Warnlog "Error saving file: " & sCurrentLoadFile
-                    'Close the opened file
-                    hFileCloseAll()
-                end if
-            else
-                Warnlog "Error loading file: " & sCurrentLoadFile
-                'Close the opened file
-                hFileCloseAll()
-            end if
-
-        Next iCurrentSaveFileIndex
-        printlog "- Export of File nr " + iCurrentLoadFileIndex + " completed."
-    Next iCurrentLoadFileIndex
-    '// End of the LOAD-Loop.
-endcase
diff --git a/testautomation/writer/optional/includes/navigator/w_navigator.inc b/testautomation/writer/optional/includes/navigator/w_navigator.inc
deleted file mode 100644
index 1750b4de3950..000000000000
--- a/testautomation/writer/optional/includes/navigator/w_navigator.inc
+++ /dev/null
@@ -1,807 +0,0 @@
-'**************************************************************************
-' 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 : helge.delfs@oracle.com
-'*
-'* short description : Navigator test
-'*
-'\***********************************************************************
-
-sub w_navigator
-    printLog Chr(13) + "---------   Navigator Functions -   ----------"
-
-    Call tViewNavigator1                ' alle Methoden am Dockingwindow  - Navigator
-    Call tViewNavigator2            ' dokument?bergreifenden Methoden am Dockingwindow
-    Call tViewNavigator3            ' Funktionen testen
-    Call tViewNavigator4            ' Inhaltsansicht des Navigators ?berpr?fen
-    Call tViewNavigator5            ' Anspringen von Punkten im Dokument ?ber die Inhaltsansicht
-    Call tViewNavigator6            ' Umbenennen von Objekten aus dem Navigator
-
-end sub
-
-' **********************************************************************
-
-testcase tViewNavigator1
-    Dim xPos as long : Dim yPos as long: Dim xSize% : Dim ySize%
-
-    '/// Edit / Navigator ( all methods from Navigator as Window ) ///
-    printlog "- Edit / Navigator : all methods from Navigator as Window"
-    '/// New document ///
-    Call hNewDocument
-    '/// Call Navigator with 'F5' ///
-    printlog "  - Call Navigator with F5"
-    call wTypeKeys "<F5>"
-
-    Kontext "Navigator"
-    if Navigator.NotExists then
-        Warnlog "No Navigator with F5"
-        ViewNavigator
-    end if
-
-    '/// Move Navigator ///
-    printlog "  - move Navigator"
-    Navigator.Move 300, 400
-    Sleep 1
-    Navigator.Move 590, 790
-    Sleep 1
-    Navigator.Move 10, 10
-    Sleep 1
-
-    xPos = Navigator.GetPosX
-    yPos = Navigator.GetPosY
-    xSize% = Navigator.GetSizeX
-    ySize% = Navigator.GetSizeY
-
-    '/// Size Navigator ///
-    printlog "  - size Navigator"
-    try
-		Navigator.Size (300, 400)
-	catch
-		Warnlog "Sizen Navigator doesn't work"
-	endcatch
-    Sleep 1
-    try
-		Navigator.Size (xSize%, ySize%)
-	catch
-		Printlog "Sizen Navigator doesn't work"
-	endcatch
-
-    Sleep 1
-
-    '/// Close and reopen Navigator, size should not change ///
-    printlog "  - Close Navigator and reopen, the size has to be the same"
-    xPos = Navigator.GetPosX
-    yPos = Navigator.GetPosY
-    xSize% = Navigator.GetSizeX
-    ySize% = Navigator.GetSizeY
-    ViewNavigator
-    Sleep 1
-    ViewNavigator
-    if xPos <> Navigator.GetPosX then Warnlog "X-Pos. has been changed : Should -> "+ xPos + "  Is -> "+ Navigator.GetPosX
-    if yPos <> Navigator.GetPosY then Warnlog "Y-Pos. has been changed : Should -> "+ yPos + "  Is -> "+ Navigator.GetPosY
-    if xSize% <> Navigator.GetSizeX then Warnlog "X-Size has been changed : Should -> "+ xSize% + "  Is -> "+ Navigator.GetSizeX
-    if ySize% <> Navigator.GetSizeY then Warnlog "Y-Size has been changed : Should -> "+ ySize% + "  Is -> "+ Navigator.GetSizeY
-
-    '/// Close Navigator ///
-    try
-        Navigator.Close
-    catch
-        Warnlog "Unable to close Navigator!"
-    endcatch
-    '/// Close document ///
-    Call hCloseDocument
-endcase
-
-' **********************************************************************
-
-testcase tViewNavigator2
-    Dim xPos% : Dim yPos% : Dim xSize% : Dim ySize%
-    Dim datgeht as boolean
-    if gApplication <> "WRITER" then
-        goto endsub
-    endif
-    '/// Edit / Navigator ( document-spreading methods with Navigator as Window ) ///
-    printlog "- Edit / Navigator : document-spreading methods with Navigator as Window"
-    '/// New document ///
-    Call hNewDocument
-    printlog "  - Call Navigator in Document and check in another"
-    '/// Insert some text in first document ///
-	call wTypeKeys "Navigator test document 1"	
-
-	'///  Edit / Navigator ///
-    Kontext "Navigator"
-    if Navigator.NotExists then ViewNavigator
-    '/// New document ///
-    Call hNewDocument
-	'/// Insert some text in second document ///
-	call wTypeKeys "Navigator test document 1"
-
-    Kontext "Navigator"
-    '/// Check if Navigator has been opened in new document ///
-    if Navigator.NotExists then Warnlog "In new Document is no Navigator"
-
-    '/// Close both documents and reopen one ///
-    printlog "  - Close all documents and reopen one"
-    Call hCloseDocument
-    Sleep 2
-    Call hCloseDocument
-    Sleep 2
-    Call hNewDocument
-    '/// Check if Navigator has been opened with document ///
-    Kontext "NavigatorWriter"
-    if NavigatorWriter.NotExists then Warnlog "In new Document is no Navigator"
-	call wTypeKeys "This is a navigator test!"
-
-    '/// Dock Navigator ///
-    printlog "  - dock Navigator in Document and check in another"
-    Kontext "Navigator"
-    Navigator.Dock
-    Sleep 1
-    '/// New Document ///
-    Call hNewDocument
-    '/// Check if Navigator is in new document docked ///
-    Kontext "Navigator"
-    if NOT Navigator.IsDocked then Warnlog "In new Document Navigator is not docked"
-
-    '/// Close all documents reopen a new and check if Navigator is docked ///
-    printlog "  - Close all documents reopen a new and check if Navigator is docked"
-    hFileCloseAll()
-
-    '/// New document ///
-    Call hNewDocument
-    hSetDocumentContext()
-    try
-        DocumentWriter.FadeOut
-    catch
-        Warnlog "Unable to Fade out Navigator!"
-    endcatch  
-    try
-        DocumentWriter.FadeIn
-    catch
-        Warnlog "Unable to Fade out Navigator!"
-    endcatch
-
-    Kontext "Navigator"
-    if NOT Navigator.IsDocked then Warnlog "In new Document Navigator is not docked"
-
-    printlog "  - Close Navigator with <F5>"
-    Navigator.Undock
-    Sleep 1
-    '/// Undock Navigator and close with 'F5' ///
-    call wTypeKeys "<F5>"
-
-    Kontext "Navigator"
-    if NOT Navigator.NotExists then
-        Warnlog "Navigator is already open"
-        try
-            Navigator.Close
-        catch
-            Warnlog "Could not close Navigator!"
-        endcatch
-    end if
-    '/// Close document ///
-    Call hCloseDocument
-endcase
-
-' **********************************************************************
-
-testcase tViewNavigator3
-    QAErrorlog "#i94614# - tViewNavigator3 outcommented"
-    goto endsub
-
-    Dim NavigationTearOff as boolean
-	'/// Edit / Navigator : check some Navigator-Functions ///
-    printlog "- Edit / Navigator : check some Navigator-Functions"
-    '/// Open document ( navigator.odt ) ///
-    hFileOpenLocally(  gTesttoolpath + "writer\optional\input\navigator\navigator.odt" )
-    
-    '/// Open Navigator ///
-    Kontext "Navigator"
-    if Navigator.NotExists then ViewNavigator
-    Kontext "NavigatorWriter"
-	'/// Enter Pagenumber '5' in Navigator
-	Seitennummer.Settext "5"
-    printlog "  - Navigation"
-    '/// Tear Off Navigation Window ///
-    NavigationTearOff = False
-	try
-		Navigation.TearOff
-		NavigationTearOff = true
-	catch
-		Warnlog "Unable to tear off Navigation Toolbar!"
-	endcatch
-	if NavigationTearOff = true then
-		Sleep 1
-		Kontext "NavigationsFenster"
-		'/// Move Navigation Window ///
-		NavigationsFenster.Move 300, 400
-		sleep 1
-		'/// Minimize Navigation Window ///
-		NavigationsFenster.Minimize
-		sleep 1
-		'/// Maximize Navigation Window ///
-		NavigationsFenster.Maximize
-		sleep 1
-		Auswahl.MouseDoubleClick ( 45, 20 )
-		sleep 1
-		'/// Close Navigation Window ///
-		NavigationsFenster.Close
-	end if
-    
-	'/// Functions in Navigator ///
-    printlog "  - next Page"
-    Kontext "NavigatorWriter"
-
-    '/// previous page ///
-    printlog "  - previous page"
-	VorherigeSeite.Click
-	wait 200
-	Call gMouseClick ( 20, 30 )
-	call wTypeKeys "   <Left>"
-
-	InsertFieldsPageNumbers
-	call wTypeKeys "+0<Shift Left><Shift Left><Shift Left>"
-
-	wait 200
-	ToolsCalculate
-	Sleep 1
-	if GetClipboardText <> "4" then QAErrorlog "#i94614#Previous Page isn't  4 but " & GetClipboardText
-    Kontext "NavigatorWriter"
-
-    '/// Click Next page 2 times ///
-    NaechsteSeite.Click
-    wait 200
-	NaechsteSeite.Click
-	wait 200
-    Call gMouseClick 20, 60
-    call wTypeKeys "   <Left>"
-
-    InsertFieldsPageNumbers
-    call wTypeKeys "+0<Shift Left><Shift Left><Shift Left>"
-
-    wait 200
-    ToolsCalculate
-    if GetClipboardText <> "6" then QAErrorlog "#i94614#Next Page isn't 6 but " & GetClipboardText
-    Kontext "NavigatorWriter"
-
-    printlog "  - switch Selectbox off and on"
-    '/// Switsch Select box off and on ///
-    if Auswahlliste.Exists then Auswahlbox.Click
-    wait 500
-    Auswahlbox.Click
-    wait 500
-    if Auswahlliste.NotExists then
-        Warnlog "Navigator hasn't been sized to default size"
-        Auswahlbox.Click
-    end if
-    Kontext "NavigatorWriter"
-
-    printlog "  - Set Reminder"
-    '/// Set Reminder ///
-    Merker.Click
-    wait 500
-
-    printlog "  - jump to header"
-    '/// Select Jump to header ///
-    Kopfzeile.Click
-    wait 500
-    call wTypeKeys "<Home><Shift End>"
-
-    EditCopy
-    if GetClipboardText <> "Kopfzeile" then Warnlog "Cursorposition wrong: Not in Header"
-    Kontext "NavigatorWriter"
-
-    '/// Select Jump to Footer ///
-    printlog "  - jump to footer"
-    Fusszeile.Click
-    wait 500
-    call wTypeKeys "<Home><Shift End>"
-
-    EditCopy
-    if GetClipboardText <> "Fusszeile" then Warnlog "Cursorposition wrong: Not in Footer"
-    Kontext "NavigatorWriter"
-
-    printlog "  - to Anchor <-> Text"
-    '/// Select Anchor to Text ///
-    AnkerText.Click
-    wait 500
-    call wTypeKeys "<Right><Shift Mod1 Right><Shift Left>"
-
-    EditCopy
-    if GetClipboardText <> "sed" then Warnlog "Cursorposition wrong: Not in Footer"
-    wait 500
-    Kontext "NavigatorWriter"
-    AnkerText.Click
-    wait 200
-    call wTypeKeys "<Home><Shift End>"
-
-    EditCopy
-    if GetClipboardText <> "Fussnote" then Warnlog "Cursorposition wrong: Not in Footer"
-
-    '/// Close Navigator ///
-    Kontext "Navigator"
-    try
-        Navigator.Close
-    catch
-        Warnlog "Could not close Navigator!"
-    endcatch
-    '/// Close document ///
-    Call hCloseDocument
-endcase
-
-' **********************************************************************
-
-testcase tViewNavigator4
-    Dim i : Dim j : Dim Ende : Dim k
-    Dim AlteGruppe$ : Dim AlterUnterwert$
-    Ende=1000
-    if gApplication <> "WRITER" then
-        goto endsub
-    endif
-    printlog "- Edit / Navigator : check entry's in Navigator Index"
-    '/// File / Open / 'gTesttoolpath + "writer\optional\input\navigator\navigator.odt"' ///
-    hFileOpenLocally(  gTesttoolpath + "writer\optional\input\navigator\navigator.odt" )
-    
-    '/// Open Navigator through Edit / Navigator ///
-    ViewNavigator
-    Kontext "NavigatorWriter"
-    '/// Check all entrys in Navigator and notice the name ///
-    for i= 1 to 12
-        Call wNavigatorAuswahl(i,0)   ' Gruppe im Navigator
-        Kontext "NavigatorWriter"
-        printlog "-  " + Auswahlliste.Gettext
-        AlteGruppe$ = Auswahlliste.Gettext    ' Gruppe merken
-        select case i
-            case 1  : Ende = 7          ' Headings does not work ( Testtoolproblem )
-            case 2  : Ende = 4          ' Tables
-            case 3  : Ende = 1          ' text frame
-            case 4  : Ende = 3          ' Graphics
-            case 5  : Ende = 0          ' OLE-Objects
-            case 6  : Ende = 3          ' Bookmarks
-            case 7  : Ende = 0          ' Sections
-            case 8  : Ende = 2          ' Hyperlinks
-            case 9  : Ende = 0          ' References
-            case 10 : Ende = 0          ' Indexes
-            case 11 : Ende = 0          ' Notes
-            case 12 : Ende = 0          ' Drawing objects
-        end select
-
-        Call wNavigatorAuswahl(i,Ende)   ' Eintrag im Navigator
-        Kontext "NavigatorWriter"
-        '/// Switch in Navigator to Index View ///
-        AlterUnterwert$ = Auswahlliste.Gettext   ' Eintrag merken
-        Inhaltsansicht.Click
-        Auswahlliste.TypeKeys "<Up>", 12
-        if Auswahlliste.Gettext <>AlteGruppe$ then
-            if i <> 1 then Warnlog "- Wrong group with switching to Index View"
-        else
-            Auswahlliste.TypeKeys "<Down>",Ende + 1
-            if Auswahlliste.Gettext <> AlterUnterwert$ then Warnlog "Not all Subpoints in Index View are visible"
-        end if
-    next i
-    '/// Compare entrys in index view with entrys in Navigator///
-
-    Kontext "Navigator"
-    try
-        Navigator.Close
-    catch
-        Warnlog "Could not close Navigator!"
-    endcatch
-    '/// Close Navigator ///
-    Call hCloseDocument
-    '/// Close document ///
-endcase
-
-' **********************************************************************
-
-testcase tViewNavigator5
-    QaErrorLog "#i94614# - tViewNavigator5 outcommented"
-    goto endsub
-    
-    if gApplication <> "WRITER" then
-        goto endsub
-    endif
-
-    Dim j as integer
-    Dim Dummy as String
-    Dim Bildname as string
-    Dim Abbild as String
-
-    printlog "- Edit / Navigator : Check Jumpmark from Index in Navigator"
-    '/// File / Open / 'gTesttoolpath + "writer\optional\input\navigator\navigator.odt"'  ///
-    hFileOpenLocally(  gTesttoolpath + "writer\optional\input\navigator\navigator.odt" )
-    
-    '/// Open Navigator ///
-    Kontext "NavigatorWriter"
-    if Not NavigatorWriter.Exists then
-        ViewNavigator
-        Kontext "NavigatorWriter"
-    end if
-
-    printlog "  - Header"
-    '/// In Navigator switch to Index view ///
-	Call wNavigatorAuswahl(1,0)
-    Kontext "NavigatorWriter"
-	wait 500
-	Inhaltsansicht.Click
-    '/// In Navigator select 'Headings' and jump to headers in document ///
-	wait 500
-    Auswahlliste.TypeKeys "<Home>"
-	Auswahlliste.TypeKeys "<+>"
-    if Auswahlliste.GetItemCount = 8 then
-        for j=2 to 6
-            Auswahlliste.Select j
-            Auswahlliste.TypeKeys "<return>"
-            Sleep 1
-            call wTypeKeys "<Home><Shift End>"
-
-            EditCopy
-            Sleep 1
-            '/// Check if the correct header has been selected ///
-            if GetClipboardText <> "Heading " & j - 1 then Warnlog "Wrong Jumppoint: Should -> Heading " & j - 1 & "  Is ->  " & GetClipboardText
-            Kontext "NavigatorWriter"
-        next j
-        for j=2 to 3
-            Auswahlliste.TypeKeys "<down>"
-            Dummy = Auswahlliste.GetText
-            Auswahlliste.TypeKeys "<return>"
-            wait 200
-            call wTypeKeys "<Home><Shift End>"
-
-            EditCopy
-            wait 100
-            Kontext "NavigatorWriter"
-        next j
-    else
-        Warnlog "There are not 7 but " & Auswahlliste.GetItemCount & " headings in navigator list"
-    end if
-    '/// Select in Navigator entry 'Tables' and jump via Navigator to tables in document ///
-    printlog "  - Tables"
-	Call wNavigatorAuswahl(2,0)
-	Kontext "NavigatorWriter"
-	wait 500
-	Inhaltsansicht.Click
-	wait 500
-	Auswahlliste.TypeKeys "<Home>"
-    wait 500
-    for j=1 to 4
-        Auswahlliste.TypeKeys "<down><return>"
-        Sleep 2
-        call wTypeKeys "<Home>"
-        call wTypeKeys "<Mod1 A>"
-
-        EditCopy
-        '/// Check if correct tables has been selected ///
-        if GetClipboardText <> "Tabelle" + j then Warnlog "Wrong Cursorposition: Should -> Tabelle" + j + "  Is ->  " + GetClipboardText
-        Kontext "NavigatorWriter"
-    next j
-
-    '/// Select in Navigator entry 'Text frames' and jump via Navigator to text frames in document ///
-    printlog "  - Text frames"
-    Call wNavigatorAuswahl(3,0)
-	Kontext "NavigatorWriter"
-	wait 500
-	Inhaltsansicht.Click
-	wait 500
-    Auswahlliste.TypeKeys "<Home>"
-    Auswahlliste.TypeKeys "<Down><Return>"
-    Sleep 2
-    call wTypeKeys "<Home><Shift End>"
-
-    '/// Check if correct text frames have been selected ///
-    try
-        EditCopy
-        if Left$(GetClipboardText,6) <> "Figura" then Warnlog "Wrong Cursorposition: Should -> Figura" + "  Is ->  "+ Left(GetClipboardText,6)
-    catch
-        Printlog "Unable to go into the Text frame with testtool"
-    endcatch
-    Kontext "NavigatorWriter"
-
-    '/// Select in Navigator entry 'Graphics' and jump via Navigator to graphics in document ///
-    printlog "  - Graphics"
-	Call wNavigatorAuswahl(4,0)
-    Kontext "NavigatorWriter"
-	wait 500	
-	Inhaltsansicht.Click
-	wait 500
-	Auswahlliste.TypeKeys "<Home>"
-    '/// Check if correct graphic have been selected ///
-    for j=1 to 3
-        Auswahlliste.TypeKeys "<down><return>"
-        Sleep 2
-        FormatGraphics
-        Kontext
-        Active.SetPage TabZusaetze
-        Kontext "TabZusaetze"
-        Bildname = ObjektName.GetText
-        select case j
-            case 1 : if Bildname <> "Der Baer" then Warnlog "Wrong Graphicname: Not -> 'Der B�r'   But -> "+ Bildname
-            case 2 : if Bildname <> "Star Division" then Warnlog "Wrong Graphicname: Not -> 'Star Division'   But -> "+ Bildname
-            case 3 : if Bildname <> "Der Hase" then Warnlog "Wrong Graphicname: Not -> 'Der Hase'   But -> "+ Bildname
-        end select
-        TabZusaetze.Cancel
-        Kontext "NavigatorWriter"
-    next j
-
-    '/// Select in Navigator entry 'Bookmarks' and jump via Navigator to references in document ///
-    printlog "  - Bookmarks"
-	Call wNavigatorAuswahl(6,0)
-    Kontext "NavigatorWriter"
-	wait 500
-	Inhaltsansicht.Click
-	wait 500
-    Auswahlliste.TypeKeys "<Home>"
-    for j=1 to 3
-        Auswahlliste.TypeKeys "<down><return>"
-        Sleep 2
-        call wTypeKeys "<Shift Mod1 Right>"
-
-        wait 200
-        EditCopy
-        '/// Check if correct reference have been selected ///
-        select case j
-            case 1 : if GetClipboardText <> "rerum" then Warnlog "Wrong Bookmark: Should -> 'rerum'   Is -> "+ GetClipboardText
-            case 2 : if GetClipboardText <> "non " then Warnlog "Wrong Bookmark: Should -> 'non'   Is -> "+ GetClipboardText
-            case 3 : if GetClipboardText <> "invenietur" then Warnlog "Wrong Bookmark: Should -> 'invenietur'   Is -> "+ GetClipboardText
-        end select
-        Kontext "NavigatorWriter"
-    next j
-    wait 500
-
-    '/// Select in Navigator entry 'Hyperlinks' and jump via Navigator to hyperlinks in document ///
-    printlog "  - Hyperlinks"
-	Call wNavigatorAuswahl(8,0)
-    Kontext "NavigatorWriter"
-	wait 500
-	Inhaltsansicht.Click
-	wait 500
-    Auswahlliste.TypeKeys "<Home>"
-    wait 500
-    for j=1 to 2
-        Auswahlliste.TypeKeys "<down><return>"
-        Sleep 2
-        wait 200
-        EditCopy
-        '/// Check if correct hyperlinks have been selected ///
-        select case j
-            case 1 : if GetClipboardText <> "offensantes" then Warnlog "Wrong Hyperlink: Should -> 'offensantes'   Is -> "+ GetClipboardText
-            case 2 : if GetClipboardText <> "decreverint" then Warnlog "Wrong Hyperlink: Should -> 'decreverint'   Is -> "+ GetClipboardText
-        end select
-        Kontext "NavigatorWriter"
-    next j
-    Inhaltsansicht.Click
-
-    '/// Close Navigator ///
-    Kontext "Navigator"
-    try
-        Navigator.Close
-    catch
-        Warnlog "Could not close Navigator!"
-    endcatch
-    '/// Close document ///
-    Call hCloseDocument
-endcase
-
-' **********************************************************************
-
-testcase tViewNavigator6
-    Dim j as integer
-    Dim datIsderAlte(4) as string
-
-    if gApplication <> "WRITER" then
-        goto endsub
-    endif
-    
-    printlog "- Edit / Navigator : Rename Objects"
-    '/// File / Open / 'gTesttoolpath + "writer\optional\input\navigator\st1_1.sxw" ' ///
-    hFileOpenLocally(  gTesttoolpath + "writer\optional\input\navigator\st1_1.sxw" )
-    
-    Kontext "Navigator"
-    '/// Open Navigator ///
-    if Navigator.NotExists then ViewNavigator
-    Kontext "NavigatorWriter"
-    Call wNavigatorAuswahl(1,0)
-
-    printlog "- rename Objects"
-    '/// Rename Objects in Navigator through context menue (4 Objects) ///
-
-    Kontext "NavigatorWriter"
-    for j= 1 to 4
-        Auswahlliste.Select j + 1
-        printlog "-  Now "+ Auswahlliste.GetItemText(j+1) +" is selected!"
-        Auswahlliste.TypeKeys "+"
-        Auswahlliste.Select j + 2
-
-        datIsderAlte(j) = Auswahlliste.GetitemText(j+2)
-
-        Auswahlliste.OpenContextMenu
-        Call hMenuSelectNr(4)  ' Object nmenu
-        Sleep 2
-        Call hMenuSelectNr(3)  ' Rename entry
-        Sleep 2
-
-        Kontext "ObjekteUmbenennen"
-        if Not ObjekteUmbenennen.Exists then
-            Warnlog "- Dialog to rename object isn't up!"
-        else
-            Objektname.Settext "RenamingObjects" + j
-            Sleep 1
-            try
-                ObjekteUmbenennen.Ok
-            catch
-                Warnlog "- Object could not be renamed!"
-                ObjekteUmbenennen.Cancel
-            endcatch
-        end if
-
-        '/// Check in Navigator if Object has been renamed ///
-        Sleep 1
-        Kontext "NavigatorWriter"
-        if Auswahlliste.GetItemText(j+2) = datIsderAlte(j) then Warnlog "- Entry " + datIsderAlte(j) + " wasn't renamed in Navigator!"
-
-        Auswahlliste.Select j+1
-        Auswahlliste.TypeKeys "-"
-    next j
-    wait 500
-    Call gMouseDoubleClick(99,50)
-    '/// Save document///
-    Call hFileSaveAsWithFilterKill (gOfficePath + "user\work\uvobj.odt", "writer8")
-    '/// Close document and reopen previous saved document ///
-    Call hCloseDocument
-    Sleep 2
-
-    printlog "- Saving and Loading the document, check settings"
-    hFileOpen( gOfficePath & "user\work\uvobj.odt")
-    '/// Navigator has to be opened with document ///
-    Kontext "Navigator"
-    if Navigator.NotExists then
-        Warnlog "- The Navigator should have been opened!"
-        ViewNavigator
-    end if
-    Kontext "NavigatorWriter"
-
-    For j= 1 to 12
-        Auswahlliste.Select j
-        Auswahlliste.TypeKeys "-"
-    next j
-
-    '/// Check table names in Navigator ///
-    printlog  "-  Table"
-    Auswahlliste.Select 2
-    Auswahlliste.TypeKeys "+"
-    Auswahlliste.Select 3
-    Auswahlliste.OpenContextMenu
-    Sleep 1
-    try
-        Call hMenuSelectNr(4)
-        Sleep 1
-        Call hMenuSelectNr(1)
-        Sleep 4
-    catch
-        Warnlog "Unable to open Context-menu!"
-        FormatTable
-    endcatch
-    Kontext
-
-    Kontext
-    Active.Setpage TabTabelle
-    Kontext "TabTabelle"
-    if Tabellenname.Gettext<>"RenamingObjects1" then Warnlog "- Name of Table in Properties is wrong!"
-    Sleep 1
-    TabTabelle.Cancel
-    Kontext "NavigatorWriter"
-    Auswahlliste.Select 2
-    Auswahlliste.TypeKeys "-"
-
-    '/// Check Text frames names in Navigator ///
-    printlog  "-  Text Frames"
-    Auswahlliste.Select 3
-    Auswahlliste.TypeKeys "+"
-    Auswahlliste.Select 4
-    Auswahlliste.OpenContextMenu
-    Sleep 1
-    Call hMenuSelectNr(4)
-    Sleep 1
-    Call hMenuSelectNr(1)
-    Sleep 2
-    Kontext
-    try
-        Active.Setpage TabZusaetze
-    catch
-        FormatFrame
-        Sleep 2
-        Kontext
-        Active.Setpage TabZusaetze
-    endcatch
-    Kontext "TabZusaetze"
-    if Objektname.Gettext<>"RenamingObjects2" then Warnlog "- Name of textframe in Properties is wrong!"
-    Sleep 1
-    TabZusaetze.Cancel
-    Kontext "NavigatorWriter"
-    Auswahlliste.Select 3
-    Auswahlliste.TypeKeys "-"
-
-    '/// Check graphic names in Navigator ///
-    printlog  "-  Graphic"
-    Auswahlliste.Select 4
-    Auswahlliste.TypeKeys "+"
-    Auswahlliste.Select 5
-    Auswahlliste.OpenContextMenu
-    Call hMenuSelectNr(4)
-    Sleep 1
-    Call hMenuSelectNr(1)
-    Sleep 2
-    Kontext
-    try
-        Active.Setpage TabZusaetze
-    catch
-        FormatGraphics
-        Kontext
-        Active.Setpage TabZusaetze
-    endcatch
-    Kontext "TabZusaetze"
-    if Objektname.Gettext<>"RenamingObjects3" then Warnlog "- Name of graphic in Properties is wrong!"
-    Sleep 1
-    TabZusaetze.Cancel
-    Kontext "NavigatorWriter"
-    Auswahlliste.Select 4
-    Auswahlliste.TypeKeys "-"
-
-	'/// Check OLE-Objects names in Navigator ///
-	printlog  "-  Ole-Object"
-	Auswahlliste.Select 5
-	Auswahlliste.TypeKeys "+"
-	Auswahlliste.Select 6
-	Auswahlliste.OpenContextMenu
-	try
-		Call hMenuSelectNr(4)
-		Sleep 1
-		Call hMenuSelectNr(1)
-		Sleep 5
-	catch
-		Warnlog "Unable to open context menu!"
-		FormatFrame
-	endcatch
-	Kontext
-	try
-		Active.Setpage TabZusaetze
-	catch
-		FormatFrame
-		Kontext
-		Active.Setpage TabZusaetze
-	endcatch
-
-	Kontext "TabZusaetze"
-	if Objektname.Gettext<>"RenamingObjects4" then Warnlog "- Name of OLE-Oblect is wrong!"
-	Sleep 1
-	TabZusaetze.Cancel
-    Kontext
-    '/// Close Navigator ///
-    ViewNavigator
-    Sleep 1
-    '/// Close document ///
-    Call hCloseDocument
-endcase
diff --git a/testautomation/writer/optional/includes/number/w_205_.inc b/testautomation/writer/optional/includes/number/w_205_.inc
deleted file mode 100644
index 2d9c844ff922..000000000000
--- a/testautomation/writer/optional/includes/number/w_205_.inc
+++ /dev/null
@@ -1,731 +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 : helge.delfs@oracle.com
-'*
-'* short description : Testing Number and Bullets
-'*
-'\***********************************************************************
-
-sub w_205_
-
-    Call tNumberingBullets_1
-    Call tFormatNumberingBullets
-    Call tFormatNumberingPosition
-    Call tFormatNumberingOptions
-    Call tFormatNumberingAll
-
-end sub
-
-testcase tNumberingBullets_1
-
-    printlog "Turn several selected paragraphs into numbered list"
-	'/// Open a new text document
-    Call hNewDocument()
-    '/// Insert 3 times dummy text
-    Call wBlindTextEinfuegen()
-    Call wBlindTextEinfuegen()
-    Call wBlindTextEinfuegen()
-    '/// Select all inserted text 
-    call wTypeKeys "<shift mod1 home>"
-
-    '/// Choose 'Numbering' on 'Objectbar'
-    Kontext "TextObjectbar"
-    try
-        Numerierung.Click
-	catch
-      	warnlog "Objectbar is not accessible for numbering bullets"
-	endcatch
-    '/// Check if numbering has been created
-    if (hIsNumberingBullets () <> True) then
-        Warnlog " - Seems numbering has not been created"
-    else
-      	printlog " - Numbering has been created"
-	end if
-
-    '/// Turn numbereing off via Toolbar
-    Printlog "Turn Numbering off"
-    OL_Writer_Numerierung
-    '/// Check if numbering has been turned off
-    if (hIsNumberingBullets () <> False) then
-        warnlog " - Seems numbering is still available"
-    else
-        printlog " - Numbering has been turned off"
-    end if
-
-    Printlog "'/// Restart counting via Format->Paragraph->Numbering ///"
-    Call hFormatParagraphNumbering ("",1,-1)
-    if (hIsNumberingBullets () <> True) then
-      	Warnlog "Seems numbering has not been created"
-    else
-      printlog "Numbering has been created"
-    end if
-
-    Printlog "'/// +O+ restart numbering enable///"
-    ' checked 'restart numbering' on tabpage toggles icon at Objectbar
-    Kontext "NumObjectbar"
-    if Not NumObjectBar.Exists then Call hToolbarSelect ( "BULLETSANDNUMBERING", true )
-    
-    ' Button in objectbar has to be checked
-    if NeuStarten.GetState(2) <> 1 then
-        warnlog "Button 'Restart Numbering' not pressed!"
-        NeuStarten.Click
-        sleep (1)
-        if NeuStarten.GetState(2) <> 1 then
-            warnlog "doesn't work"
-        else
-            printlog "     --- worked :-)"
-        end if
-    else
-        ' Undo 'restart numbering'
-        Printlog "'                          disable"
-        NeuStarten.Click
-        sleep (1)
-        if NeuStarten.GetState(2) <> 0 then
-            warnlog "doesn't work "
-        else
-            printlog "     --- worked :-)"
-        end if
-    end if
-    
-    Call hCloseDocument
-
-endcase
-
-'--------------------------------------------------
-
-testcase tFormatNumberingBullets
-	Dim i as Integer :
-	PrintLog "- Format / Numbering and Bullets"
-	
-	'/// New document ///
-	Call hNewDocument
-	
-	printlog "  - All bullet entries"
-	'/// Insert all bullet entries ///
-	for i=1 to 8
-		FormatNumberingBullets
-		Kontext
-		Active.SetPage TabBullet
-		Kontext "TabBullet"
-		Auswahl.TypeKeys "<Right>", i
-		TabBullet.OK
-		call wTypeKeys "Bullet <Return><Return>"
-	next i
-	
-	printlog "  - All Numbering entries"
-	'/// Insert all numbering entries ///
-	for i=1 to 8
-		FormatNumberingBullets
-		Kontext
-		Active.SetPage TabNumerierungsart
-		Kontext "TabNumerierungsart"
-		Auswahl.TypeKeys "<Right>", i
-		TabNumerierungsart.OK
-		call wTypeKeys "Nummerierungsart <Return><Return>"
-		Sleep 1
-	next i
-	
-	printlog "  - All entries in Level"
-	'/// Insert all level entries ///
-	for i=1 to 8
-		FormatNumberingBullets
-		Kontext
-		Active.SetPage TabGliederung
-		Kontext "TabGliederung"
-		Auswahl.TypeKeys "<Right>", i
-		TabGliederung.OK
-		call wTypeKeys "Gliederung <Return><Return>"
-		Sleep 1
-	next i
-	
-	printlog "  - All entries in graphic"
-	'/// Insert all graphic entries ///
-	for i=1 to 29
-		FormatNumberingBullets
-		Kontext
-		Active.SetPage TabGrafiken
-		Kontext "TabGrafiken"
-		wait 500
-		Auswahl.TypeKeys "<Right>", i
-		TabGrafiken.OK
-		call wTypeKeys "Grafik <Return><Return>"
-		Sleep 1
-	next i
-	
-	printlog "  - Save document and reload"
-	'/// Save document, close and reopen previous saved document ///
-	Call hFileSaveAsKill ( gOfficePath + "user\work\format4." & WriterFilterExtension(0) )
-	Sleep 2
-	Call hCloseDocument
-	Sleep 2
-	hFileOpen( gOfficePath & "user\work\format4." & WriterFilterExtension(0) )
-	Sleep 2
-	'/// Close document ///
-	Call hCloseDocument
-endcase
-
-'--------------------------------------------------
-testcase tFormatNumberingPosition
-    Dim V1 : Dim V2 :  Dim V3 : Dim V4 :  Dim V5 : Dim V6 :  Dim V7 : Dim V8 : Dim V9 : Dim V10
-    Dim V11 : Dim V12 :  Dim V13 : Dim V14 :  Dim V15 : Dim V16
-
-    printlog "  - adjust position of Numbering"
-    '/// New document ///
-    Call hNewDocument
-    '/// Select Format / Numbering Bullets and adjust position for each level ///
-    FormatNumberingBullets
-    Kontext
-    Active.SetPage TabPositionNumerierung
-    Kontext "TabPositionNumerierung"
-    Level.Select 1
-    Alignment.Select 2         ' Zentriert
-'    if Relativ.IsEnabled then Warnlog "Relativ is enabled with level1!"
-    AlignedAt.More 5
-    V1 = AlignedAt.GetText
-    IndentAt.More 1
-    V2 = IndentAt.GetText
-    Level.Select 3
-    Alignment.Select 3         ' Rechts
-'    Relativ.Check
-    AlignedAt.Less 5
-    V3 = AlignedAt.GetText
-'    AbstandTextNumerierung.More 2
-'    V4 = AbstandTextNumerierung.GetText
-    Level.Select 4
-    Alignment.Select 1         ' Links
-'    Relativ.Check
-    V5 = AlignedAt.GetText
- '   V6 = AbstandTextNumerierung.GetText
-    V7 = IndentAt.GetText
-    Level.Select 6
-    Alignment.Select 3         ' Rechts
-'    Relativ.Check
-    AlignedAt.More 4
-    V8 = AlignedAt.GetText
-'    AbstandTextNumerierung.Less 3
-'    V9 = AbstandTextNumerierung.GetText
-    IndentAt.Less 3
-    V10 = IndentAt.GetText
-    Level.Select 9
-    Alignment.Select 1
-'    Relativ.Check
-    AlignedAt.Less 2
-    V11 = AlignedAt.GetText
-'    AbstandTextNumerierung.More 2
-'    V12 = AbstandTextNumerierung.GetText
-    IndentAt.More 3
-    V13 = IndentAt.GetText
-    Level.Select 10
-    Alignment.Select 3
-'    Relativ.Check
-    AlignedAt.More 4
-    V14 = AlignedAt.GetText
-'    AbstandTextNumerierung.Less 3
-'    V15 = AbstandTextNumerierung.GetText
-    IndentAt.Less 3
-    V16 = IndentAt.GetText
-    TabPositionNumerierung.OK
-
-    printlog "  - write down numbering"
-    '/// write down the numbering ///
-    call wTypeKeys "Nummerierung 1. Ebene<Return>"
-    call wTypeKeys "<Tab>Nummerierung 2. Ebene<Return>"
-    call wTypeKeys "<Tab>Nummerierung 3. Ebene<Return>"
-    call wTypeKeys "<Tab>Nummerierung 4. Ebene<Return>"
-    call wTypeKeys "<Tab>Nummerierung 5. Ebene<Return>"
-    call wTypeKeys "<Tab>Nummerierung 6. Ebene<Return>"
-    call wTypeKeys "<Tab>Nummerierung 7. Ebene<Return>"
-    call wTypeKeys "<Tab>Nummerierung 8. Ebene<Return>"
-    call wTypeKeys "<Tab>Nummerierung 9. Ebene<Return>"
-    call wTypeKeys "<Tab>Nummerierung  10. Ebene<Return>"
-    call wTypeKeys "<Tab>Immer noch 10. Ebene<Return>"
-    call wTypeKeys "<Return><Return>Ende der Nummerierung"
-    call wTypeKeys "<Up>", 5
-
-    printlog "  - check numbering-position"
-    '/// reopen Format / NumberingBullets and check settings made ///
-    FormatNumberingBullets
-    Kontext
-    Active.SetPage TabPositionNumerierung
-    Kontext "TabPositionNumerierung"
-    Level.Select 1
-'    if Alignment.GetSelIndex <> 2 then Warnlog "Level 1: Wrong alignment:  Should = 2   Ist = "+ Alignment.GetSelIndex
-    if V1 <> AlignedAt.GetText then Warnlog "Level 1: Wrong Text <-> Rand:  Should = "+ V1+ "  Is = "+ AlignedAt.GetText
-    if V2 <> IndentAt.GetText then Warnlog "Level 1: Wrong indent:  Should = "+ V2+ "  Is = "+ IndentAt.GetText
-    Level.Select 3
-'    if Not Relativ.IsChecked then Warnlog "Relativ is checked in Level 3!"
-    if Alignment.GetSelIndex <> 3 then Warnlog "Level 3: Wrong alignment:  Should = 3   Is = "+ Alignment.GetSelIndex
-    if V3 <> AlignedAt.GetText then Warnlog "Level 3: Wrong Text <-> Spacing to text:  Should = "+ V3+ "  Is = "+ AlignedAt.GetText
-'    if V4 <> AbstandTextNumerierung.GetText then Warnlog "Level 3: Wrong indent:  Should = "+ V4+ "  Is = "+ AbstandTextNumerierung.GetText
-    Level.Select 4
-'    if Not Relativ.IsChecked then Warnlog "Relativ is checked in Level 4!"
-    if Alignment.GetSelIndex <> 1 then Warnlog "Level 4: Wrong alignment:  Should = 1   Is = "+ Alignment.GetSelIndex
-    if V5 <> AlignedAt.GetText then Warnlog "Level 4: Wrong Text <-> Spacing to text:  Should = "+ V5+ "  Is = "+ AlignedAt.GetText
-'    if V6 <> AbstandTextNumerierung.GetText then Warnlog "Level 4: Wrong indent:  Should = "+ V6+ "  Is = "+ AbstandTextNumerierung.GetText
-    if V7 <> IndentAt.GetText then Warnlog "Level 4: Wrong indent:  Should = "+ V7+ "  Is = "+ IndentAt.GetText
-    Level.Select 6
-'    if Not Relativ.IsChecked then Warnlog "Relativ is checked in Level 6!"
-    if Alignment.GetSelIndex <> 3 then Warnlog "Level 6: Wrong alignment:  Should = 3   Is = "+ Alignment.GetSelIndex
-    if V8 <> AlignedAt.GetText then Warnlog "Level 6: Wrong Text <-> Spacing to text:  Should = "+ V8+ "  Is = "+ AlignedAt.GetText
-'    if V9 <> AbstandTextNumerierung.GetText then Warnlog "Level 6: Wrong indent:  Should = "+ V9+ "  Is = "+ AbstandTextNumerierung.GetText
-    if V10 <> IndentAt.GetText then Warnlog "Level 6: Wrong indent:  Should = "+ V10+ "  Is = "+ IndentAt.GetText
-    Level.Select 9
-'    if Not Relativ.IsChecked then Warnlog "Relativ is checked in Level 9!"
-    if Alignment.GetSelIndex <> 1 then Warnlog "Level 9: Wrong alignment:  Should = 1   Is = "+ Alignment.GetSelIndex
-    if V11 <> AlignedAt.GetText then Warnlog "Level 9: Wrong Text <-> Spacing to text:  Should = "+ V11+ "  Is = "+ AlignedAt.GetText
-'    if V12 <> AbstandTextNumerierung.GetText then Warnlog "Level 9: Wrong indent:  Should = "+ V12+ "  Is = "+ AbstandTextNumerierung.GetText
-    if V13 <> IndentAt.GetText then Warnlog "Level 9: Wrong indent:  Should = "+ V13+ "  Is = "+ IndentAt.GetText
-    Level.Select 10
-'    if Not Relativ.IsChecked then Warnlog "Relativ is checked in Level 10!"
-    if Alignment.GetSelIndex <> 3 then Warnlog "Level 10: Wrong alignment:  Should = 3   Is = "+ Alignment.GetSelIndex
-    if V14 <> AlignedAt.GetText then Warnlog "Level 10: Wrong Text <-> Spacing to text:  Should = "+ V14+ "  Is = "+ AlignedAt.GetText
-'    if V15 <> AbstandTextNumerierung.GetText then Warnlog "Level 10: Wrong indent:  Should = "+ V15+ "  Is = "+ AbstandTextNumerierung.GetText
-    if V16 <> IndentAt.GetText then Warnlog "Level 10: Wrong indent:  Should = "+ V16+ "  Is = "+ IndentAt.GetText
-    TabPositionNumerierung.Ok
-
-    printlog "  - check previous saved numbering"
-    '/// save document, close it and reload previous saved document ///
-    Sleep 1
-    Call hFileSaveAsKill ( gOfficePath + "user\work\tFormatNumberingPosition." & WriterFilterExtension(0) )
-    Sleep 2
-    Call hCloseDocument
-    Sleep 2
-    hFileOpen( gOfficePath & "user\work\tFormatNumberingPosition." & WriterFilterExtension(0) )
-
-    '/// check settings on Format / NumberingBullets ///
-    FormatNumberingBullets
-    Kontext
-    Active.SetPage TabPositionNumerierung
-    Kontext "TabPositionNumerierung"
-    Level.Select 1
-    
-    if Alignment.GetSelIndex <> 2 then Warnlog "Level 1: Wrong alignment:  Should = 2   Ist = "+ Alignment.GetSelIndex
-    if V1 <> AlignedAt.GetText then Warnlog "Level 1: Wrong Text <-> Rand:  Should = "+ V1+ "  Is = "+ AlignedAt.GetText
-    if V2 <> IndentAt.GetText then Warnlog "Level 1: Wrong indent:  Should = "+ V2+ "  Is = "+ IndentAt.GetText
-    Level.Select 3
-'    if Not Relativ.IsChecked then Relativ.Check
-    if Alignment.GetSelIndex <> 3 then Warnlog "Level 3: Wrong alignment:  Should = 3   Is = "+ Alignment.GetSelIndex
-    if V3 <> AlignedAt.GetText then Warnlog "Level 3: Wrong Text <-> Spacing to text:  Should = "+ V3+ "  Is = "+ AlignedAt.GetText
-'    if V4 <> AbstandTextNumerierung.GetText then Warnlog "Level 3: Wrong indent:  Should = "+ V4+ "  Is = "+ AbstandTextNumerierung.GetText
-    Level.Select 4
-'    if Not Relativ.IsChecked then Relativ.Check
-    if Alignment.GetSelIndex <> 1 then Warnlog "Level 4: Wrong alignment:  Should = 1   Is = "+ Alignment.GetSelIndex
-    if V5 <> AlignedAt.GetText then Warnlog "Level 4: Wrong Text <-> Spacing to text:  Should = "+ V5+ "  Is = "+ AlignedAt.GetText
-'    if V6 <> AbstandTextNumerierung.GetText then Warnlog "Level 4: Wrong indent:  Should = "+ V6+ "  Is = "+ AbstandTextNumerierung.GetText
-    if V7 <> IndentAt.GetText then Warnlog "Level 4: Wrong indent:  Should = "+ V7+ "  Is = "+ IndentAt.GetText
-    Level.Select 6
-'    if Not Relativ.IsChecked then Relativ.Check
-    if Alignment.GetSelIndex <> 3 then Warnlog "Level 6: Wrong alignment:  Should = 3   Is = "+ Alignment.GetSelIndex
-    if V8 <> AlignedAt.GetText then Warnlog "Level 6: Wrong Text <-> Spacing to text:  Should = "+ V8+ "  Is = "+ AlignedAt.GetText
-'    if V9 <> AbstandTextNumerierung.GetText then Warnlog "Level 6: Wrong indent:  Should = "+ V9+ "  Is = "+ AbstandTextNumerierung.GetText
-    if V10 <> IndentAt.GetText then Warnlog "Level 6: Wrong indent:  Should = "+ V10+ "  Is = "+ IndentAt.GetText
-    Level.Select 9
-'    if Not Relativ.IsChecked then Relativ.Check
-    if Alignment.GetSelIndex <> 1 then Warnlog "Level 9: Wrong alignment:  Should = 1   Is = "+ Alignment.GetSelIndex
-    if V11 <> AlignedAt.GetText then Warnlog "Level 9: Wrong Text <-> Spacing to text:  Should = "+ V11+ "  Is = "+ AlignedAt.GetText
-'    if V12 <> AbstandTextNumerierung.GetText then Warnlog "Level 9: Wrong indent:  Should = "+ V12+ "  Is = "+ AbstandTextNumerierung.GetText
-    if V13 <> IndentAt.GetText then Warnlog "Level 9: Wrong indent:  Should = "+ V13+ "  Is = "+ IndentAt.GetText
-    Level.Select 10
-'    if Not Relativ.IsChecked then Relativ.Check
-    if Alignment.GetSelIndex <> 3 then Warnlog "Level 10: Wrong alignment:  Should = 3   Is = "+ Alignment.GetSelIndex
-    if V14 <> AlignedAt.GetText then Warnlog "Level 10: Wrong Text <-> Spacing to text:  Should = "+ V14+ "  Is = "+ AlignedAt.GetText
-'    if V15 <> AbstandTextNumerierung.GetText then Warnlog "Level 10: Wrong indent:  Should = "+ V15+ "  Is = "+ AbstandTextNumerierung.GetText
-    if V16 <> IndentAt.GetText then Warnlog "Level 10: Wrong indent:  Should = "+ V16+ "  Is = "+ IndentAt.GetText
-    TabPositionNumerierung.Cancel
-    Sleep 1
-    '/// Close document ///
-    Call hCloseDocument
-endcase
-
-'--------------------------------------------------
-
-testcase tFormatNumberingOptions
-    Dim V1 : Dim V2 : Dim V3 : Dim V4 : Dim V5 : Dim V6 : Dim V7 : Dim V8 : Dim V9 : Dim V10
-    Dim i as integer
-
-    printlog "  - adjust numbering properties"
-    '/// New document ///
-    Call hNewDocument
-    '/// Select Format / Numbering Bullets and adjust properties for each level ///
-    FormatNumberingBullets
-
-    Kontext
-    Active.SetPage TabOptionenNumerierung
-    Kontext "TabOptionenNumerierung"
-
-    Ebene.Select 1
-    Numerierung.Select 11           ' Keine
-    Davor.SetText "Vorher "
-    Dahinter.SetText "sp�ter "
-
-    Ebene.Select 3
-    Numerierung.Select 2            ' A,B,C,...
-    Davor.SetText "��� "
-    Dahinter.SetText "��� "
-    Zeichenvorlage.Select 2
-    V9 = Zeichenvorlage.GetSelText
-    Vollstaendig.Less 1
-    V1 = Vollstaendig.GetText
-    BeginnBei.More 4
-    V2 = BeginnBei.GetText
-
-    Ebene.Select 5
-    Numerierung.Select 8            ' Bullets
-    if Davor.IsVisible then Warnlog "'Before' is visible on Bullet-Options"
-    if Dahinter.IsVisible then Warnlog "'After' is visible on Bullet-Options"
-    Zeichenvorlage.Select 1
-
-    Ebene.Select 7
-    Numerierung.Select 9            ' Grafik
-    if Davor.IsVisible then Warnlog "'Before' is visible on Graphic-Options"
-    if Dahinter.IsVisible then Warnlog "'After' is visible on Graphic-Options"
-    Auswahl.Click
-    Call hMenuSelectNr (1)
-    Kontext "OeffnenDlg"
-    Dateiname.Settext Convertpath(gtesttoolpath + "writer\optional\input\graphics\bullet.gif")
-    Oeffnen.Click
-    wait 500
-    Kontext "Active"
-    if Active.Exists then
-        if Active.GetRT = 304 then
-            Warnlog Active.Gettext
-            Active.Ok
-        end if
-    end if
-
-    Kontext "TabOptionenNumerierung"
-    Breite.More 4
-    V3 = Breite.GetText
-    Hoehe.More 3
-    V4 = Hoehe.GetText
-    Ausrichtung.Select 4
-
-    Ebene.Select 9
-    Numerierung.Select 1            ' 1,2,3,...
-    Zeichenvorlage.Select 3
-    V10 = Zeichenvorlage.GetSelText
-
-    Ebene.Select 10
-    Numerierung.Select 3            ' a,b,c,...
-    V5 = Davor.GetText
-    V6 = Dahinter.GetText
-    Vollstaendig.More 9
-    V7 = Vollstaendig.GetText
-    BeginnBei.More 3
-    V8 = BeginnBei.GetText
-    TabOptionenNumerierung.OK
-
-    printlog "  - write down numbering"
-    '/// write down numbering ///
-    call wTypeKeys "Hallo 1. Ebene<Return>"
-    call wTypeKeys "<Tab>Hallo 2. Ebene<Return>"
-    call wTypeKeys "<Tab>Hallo 3. Ebene<Return>"
-    call wTypeKeys "<Tab>Hallo 4. Ebene<Return>"
-    call wTypeKeys "<Tab>Hallo 5. Ebene<Return>"
-    call wTypeKeys "<Tab>Hallo 6. Ebene<Return>"
-    call wTypeKeys "<Tab>Hallo 7. Ebene<Return>"
-    call wTypeKeys "<Tab>Hallo 8. Ebene<Return>"
-    call wTypeKeys "<Tab>Hallo 9. Ebene<Return>"
-    call wTypeKeys "<Tab>Hallo 10. Ebene<Return>"
-    call wTypeKeys "<Tab>Immer noch 10. Ebene<Return>"
-    call wTypeKeys "<Return><Return>Ende der Numerierung"
-    call wTypeKeys "<Up>", 5
-
-    FormatNumberingBullets
-    Kontext
-    Active.SetPage TabOptionenNumerierung
-    Kontext "TabOptionenNumerierung"
-    Ebene.Select 1
-    if Numerierung.GetSelIndex <> 11 then Warnlog "Level 1: Wrong Numbering type : Should 11     Is " + Numerierung.GetSelIndex
-    if Davor.GetText <> "Vorher " then Warnlog "Level 1: Wrong Text in 'After': Should 'Vorher '    Is " + Davor.GetText
-    if Dahinter.GetText <> "sp�ter " then Warnlog "Level 1: Wrong Text in 'Before': Should 'sp�ter '    Is " + Dahinter.GetText
-    Ebene.Select 3
-    if Numerierung.GetSelIndex <> 2 then Warnlog "Level 3: Wrong Numbering type : Should 2     Is " + Numerierung.GetSelIndex
-    if Davor.GetText <> "��� " then Warnlog "Level 3: Wrong Text in 'Before': Should '��� '    Is " + Davor.GetText
-    if Dahinter.GetText <> "��� " then Warnlog "Level 3: Wrong Text in 'After': Should '��� '    Is " + Dahinter.GetText
-    if Zeichenvorlage.GetSelText <> V9 then Warnlog "Level 3: Wrong Character Style: Should " + V9 + "    Is " + Zeichenvorlage.GetSelText
-    if V1 <> Vollstaendig.GetText then Warnlog "Level 3: 'Show Sublevels' Is wrong: Should " + V1 + "   Is: " + Vollstaendig.GetText
-    if V2 <> BeginnBei.GetText then Warnlog "Level 3: 'Start at'  Is wrong: Should " + V2 + "   Is: " + BeginnBei.GetText
-    Ebene.Select 5
-    if Numerierung.GetSelIndex <> 8 then Warnlog "Level 5: Wrong Numbering type : Should 8     Is " + Numerierung.GetSelIndex
-    if Zeichenvorlage.GetSelIndex <> 1 then Warnlog "Level 5: Wrong Character Style: Should 1    Is " + Zeichenvorlage.GetSelIndex
-    Ebene.Select 7
-    if Numerierung.GetSelIndex <> 9 then
-        Warnlog "Level 7: Wrong Numbering type : Should 9     Is " + Numerierung.GetSelIndex
-    else
-        if V3 <> Breite.GetText then Warnlog "Level 7: Wrong graphic width: Should " + V3 + "   Is: " + Breite.GetText
-        if V4 <> Hoehe.GetText then Warnlog "Level 7: Wrong graphic height: Should " + V4 + "   Is: " + Hoehe.GetText
-        if Ausrichtung.GetSelIndex <> 4 then Warnlog "Level 7: Alignment Is not 4 but " + Ausrichtung.GetSelIndex
-    end if
-    Ebene.Select 9
-    if Numerierung.GetSelIndex <> 1 then Warnlog "Level 9: Wrong Numbering type : Should 1     Is " + Numerierung.GetSelIndex
-    if Zeichenvorlage.GetSelText <> V10 then Warnlog "Level 9: Wrong Character Style: Should " + V10 +"    Is " + Zeichenvorlage.GetSelText
-    Ebene.Select 10
-    if Numerierung.GetSelIndex <> 3 then Warnlog "Level 10: Wrong Numbering type : Should 3     Is " + Numerierung.GetSelIndex
-    if Davor.GetText <> V5 then Warnlog "Level 10: Wrong Text in 'Before': Should "+ V5 + "    Is " + Davor.GetText
-    if Dahinter.GetText <> V6 then Warnlog "Level 10: Wrong Text in 'After': Should "+ V6 + "    Is " + Dahinter.GetText
-    if V7 <> Vollstaendig.GetText then Warnlog "Level 10: 'Show Sublevels' Is wrong: Should " + V7 + "   Is: " + Vollstaendig.GetText
-    if V8 <> BeginnBei.GetText then Warnlog "Level 10: 'Start at'  Is wrong: Should " + V8 + "   Is: " + BeginnBei.GetText
-    TabOptionenNumerierung.Cancel
-
-    printlog "  - check previous saved numbering"
-    '/// save document, close it and reload previous saved document ///
-    Call hFileSaveAsKill ( gOfficePath + "user\work\format6." & WriterFilterExtension(0) )
-    Sleep 2
-    Call hCloseDocument
-    Sleep 2
-    hFileOpen( gOfficePath & "user\work\format6." & WriterFilterExtension(0) )
-    For i = 1 to 15
-        call wTypeKeys "<Up>"
-        Wait 500
-    next i
-    call wTypeKeys "<Home>"
-
-    '/// check settings in Format / Numbering Bullets ///
-    FormatNumberingBullets
-    Kontext
-    Active.SetPage TabOptionenNumerierung
-    Kontext "TabOptionenNumerierung"
-    Ebene.Select 1
-    if Numerierung.GetSelIndex <> 11 then Warnlog "Level 1: Wrong Numbering type : Should 11     Is " + Numerierung.GetSelIndex
-    if Davor.GetText <> "Vorher " then Warnlog "Level 1: Wrong Text in 'After': Should 'Vorher '    Is " + Davor.GetText
-    if Dahinter.GetText <> "sp�ter " then Warnlog "Level 1: Wrong Text in 'Before': Should 'sp�ter '    Is " + Dahinter.GetText
-    Ebene.Select 3
-    if Numerierung.GetSelIndex <> 2 then Warnlog "Level 3: Wrong Numbering type : Should 2     Is " + Numerierung.GetSelIndex
-    if Davor.GetText <> "��� " then Warnlog "Level 3: Wrong Text in 'Before': Should '��� '    Is " + Davor.GetText
-    if Dahinter.GetText <> "��� " then Warnlog "Level 3: Wrong Text in 'After': Should '��� '    Is " + Dahinter.GetText
-    if Zeichenvorlage.GetSelText <> V9 then Warnlog "Level 3: Wrong Character Style: Should " + V9 + "    Is " + Zeichenvorlage.GetSelText
-    if V1 <> Vollstaendig.GetText then Warnlog "Level 3: 'Show Sublevels' Is wrong: Should " + V1 + "   Is: " + Vollstaendig.GetText
-    if V2 <> BeginnBei.GetText then Warnlog "Level 3: 'Start at'  Is wrong: Should " + V2 + "   Is: " + BeginnBei.GetText
-    Ebene.Select 5
-    if Numerierung.GetSelIndex <> 8 then Warnlog "Level 5: Wrong Numbering type : Should 8     Is " + Numerierung.GetSelIndex
-    if Zeichenvorlage.GetSelIndex <> 1 then Warnlog "Level 5: Wrong Character Style: Should 1    Is " + Zeichenvorlage.GetSelIndex
-    Ebene.Select 7
-    if Numerierung.GetSelIndex <> 9 then
-        Warnlog "Level 7: Wrong Numbering type : Should 9     Is " + Numerierung.GetSelIndex
-    else
-        if V3 <> Breite.GetText then Warnlog "Level 7: Wrong graphic width: Should " + V3 + "   Is: " + Breite.GetText
-        if V4 <> Hoehe.GetText then Warnlog "Level 7: Wrong graphic height: Should " + V4 + "   Is: " + Hoehe.GetText
-        if Ausrichtung.GetSelIndex <> 4 then Warnlog "Level 7: Alignment Is not 4 but " + Ausrichtung.GetSelIndex
-    end if
-    Ebene.Select 9
-    if Numerierung.GetSelIndex <> 1 then Warnlog "Level 9: Wrong Numbering type : Should 1     Is " + Numerierung.GetSelIndex
-    if Zeichenvorlage.GetSelText <> V10 then Warnlog "Level 9: Wrong Character Style: Should " + V10 +"    Is " + Zeichenvorlage.GetSelText
-    Ebene.Select 10
-    if Numerierung.GetSelIndex <> 3 then Warnlog "Level 10: Wrong Numbering type : Should 3     Is " + Numerierung.GetSelIndex
-    if Davor.GetText <> V5 then Warnlog "Level 10: Wrong Text in 'Before': Should "+ V5 + "    Is " + Davor.GetText
-    if Dahinter.GetText <> V6 then Warnlog "Level 10: Wrong Text in 'After': Should "+ V6 + "    Is " + Dahinter.GetText
-    if V7 <> Vollstaendig.GetText then Warnlog "Level 10: 'Show Sublevels' Is wrong: Should " + V7 + "   Is: " + Vollstaendig.GetText
-    if V8 <> BeginnBei.GetText then Warnlog "Level 10: 'Start at'  Is wrong: Should " + V8 + "   Is: " + BeginnBei.GetText
-    TabOptionenNumerierung.Cancel
-
-    '/// Close document ///
-    Call hCloseDocument
-endcase
-
-'--------------------------------------------------
-testcase tFormatNumberingAll
-	Dim i as Integer
-	Dim Wert( 20 ) as Integer
-	printlog "- Format / Numbering -Bullets in detail"
-	printlog "  - adjust different Numbering and check the properties"
-	'/// New document ///
-	Call hNewDocument
-	'/// Select Format / NumberingBullets and adjust different numbering ///
-	FormatNumberingBullets
-	
-	Kontext
-	Active.SetPage TabBullet
-	Kontext "TabBullet"
-	Sleep 1
-	Auswahl.TypeKeys "<Right><Down>"
-	Kontext
-	Active.SetPage TabOptionenNumerierung
-	Kontext "TabOptionenNumerierung"
-	'/// Level 1 select a bullet ///
-	Ebene.Select 1                                               ' 1. Ebene ein Bullet einstellen
-	
-	Kontext
-	Active.SetPage TabOptionenNumerierung
-	Kontext "TabOptionenNumerierung"
-	'/// Level 2 select a numbering ///
-	Ebene.Select 2                                               ' 2. Ebene eine Numerierungsart einstellen
-	
-	Kontext
-	Active.SetPage TabNumerierungsart
-	Kontext "TabNumerierungsart"
-	Sleep 1
-	Auswahl.TypeKeys "<Down>", 2
-	
-	Kontext
-	Active.SetPage TabOptionenNumerierung
-	Kontext "TabOptionenNumerierung"
-	'/// Level 3 select a numbering ///
-	Ebene.Select 3                                               ' 3. Ebene eine Numerierungsart einstellen
-	
-	Kontext
-	Active.SetPage TabNumerierungsart
-	Kontext "TabNumerierungsart"
-	Sleep 1
-	Auswahl.TypeKeys "<Down><Right>", 2
-	
-	Kontext
-	Active.SetPage TabOptionenNumerierung
-	Kontext "TabOptionenNumerierung"
-	'/// Level 4 select a graphic ///
-	Ebene.Select 4                                               ' 4. Ebene eine Grafik einstellen
-	
-	Kontext
-	Active.SetPage TabGrafiken
-	Kontext "TabGrafiken"
-	Sleep 1
-	Auswahl.TypeKeys "<Right>"
-															' 5. und 6. Ebene werden nicht besonders eingestellt
-	Kontext
-	Active.SetPage TabOptionenNumerierung
-	Kontext "TabOptionenNumerierung"
-	'/// Level 7 select a graphic ///
-	Ebene.Select 7                                               ' 7. Ebene eine Grafik einstellen
-	
-	Kontext
-	Active.SetPage TabGrafiken
-	Kontext "TabGrafiken"
-	Sleep 1
-	Auswahl.TypeKeys "<Right><Down>"
-	
-	Kontext
-	Active.SetPage TabOptionenNumerierung
-	Kontext "TabOptionenNumerierung"
-	'/// Level 8 select a graphic ///
-	Ebene.Select 8                                               ' 8. Ebene eine Grafik einstellen
-	
-	Kontext
-	Active.SetPage TabGrafiken
-	Kontext "TabGrafiken"
-	Sleep 1
-	Auswahl.TypeKeys "<Right>", 5
-	
-	Kontext
-	Active.SetPage TabOptionenNumerierung
-	Kontext "TabOptionenNumerierung"
-	'/// Level 9 select a bullet ///
-	Ebene.Select 9                                               ' 9. Ebene ein Bullet einstellen
-	
-	Kontext
-	Active.SetPage TabBullet
-	Kontext "TabBullet"
-	Sleep 1
-	Auswahl.TypeKeys "<Down>"
-	
-	Kontext
-	Active.SetPage TabOptionenNumerierung
-	Kontext "TabOptionenNumerierung"
-	'/// Level 10 select a numbering ///
-	Ebene.Select 10                                              ' 10. Ebene eine Numerierungsart einstellen
-	
-	Kontext
-	Active.SetPage TabNumerierungsart
-	Kontext "TabNumerierungsart"
-	Sleep 1
-	Auswahl.TypeKeys "<Right>", 2
-	
-	Kontext
-	Active.SetPage TabOptionenNumerierung
-	Kontext "TabOptionenNumerierung"
-	
-	for i=1 to 10
-		Ebene.Select i
-		Wert (i) = Numerierung.GetSelIndex
-	next i
-	'/// check settings made ///
-	
-	if Wert(1)  <> 8 then Warnlog "Selected entry => 1. Level Is not Bullets (8. Entry) but entry " + Wert(1)
-	if Wert(2)  <> 2 then Warnlog "Selected entry => 2. Level Is not Numbering 1 but entry " + Wert(2)
-	if Wert(3)  <> 3 then Warnlog "Selected entry => 3. Level Is not Numbering 2 but entry " + Wert(3)
-	if Wert(4)  <> 9 then Warnlog "Selected entry => 4. Level Is not Graphic (9. Entry) but entry " + Wert(4)
-	if Wert(5)  <> 8 then Warnlog "Selected entry => 5. Level Is not Bullets (8. Entry) but entry " + Wert(5)
-	if Wert(6)  <> 8 then Warnlog "Selected entry => 6. Level Is not Bullets (8. Entry) but entry " + Wert(6)
-	if Wert(7)  <> 9 then Warnlog "Selected entry => 7. Level Is not Graphic (9. Entry) but entry " + Wert(7)
-	if Wert(8)  <> 9 then Warnlog "Selected entry => 8. Level Is not Graphic (9. Entry) but entry " + Wert(8)
-	if Wert(9)  <> 8 then Warnlog "Selected entry => 9. Level Is not Bullets (8. Entry) but entry " + Wert(9)
-	if Wert(10) <> 1 then Warnlog "Selected entry => 10. Level Is not Numbering 1 but entry " + Wert(10)
-	
-	TabOptionenNumerierung.OK
-	
-	printlog "  - create numbering and check them"
-	'/// create numbering and check it ///
-	call wTypeKeys "Hallo 1. Ebene<Return>"
-	call wTypeKeys "<Tab>Hallo 2. Ebene<Return>"
-	call wTypeKeys "<Tab>Hallo 3. Ebene<Return>"
-	call wTypeKeys "<Tab>Hallo 4. Ebene<Return>"
-	call wTypeKeys "<Tab>Hallo 5. Ebene<Return>"
-	call wTypeKeys "<Tab>Hallo 6. Ebene<Return>"
-	call wTypeKeys "<Tab>Hallo 7. Ebene<Return>"
-	call wTypeKeys "<Tab>Hallo 8. Ebene<Return>"
-	call wTypeKeys "<Tab>Hallo 9. Ebene<Return>"
-	call wTypeKeys "<Tab>Hallo 10. Ebene<Return>"
-	call wTypeKeys "<Tab>Immer noch 10. Ebene<Return>"
-	call wTypeKeys "<Return><Return>Ende der Numerierung"
-	call wTypeKeys "<Up>", 5
-	
-	FormatNumberingBullets
-	'/// reopen dialog and check settings ///
-	Kontext
-	Active.SetPage TabOptionenNumerierung
-	Kontext "TabOptionenNumerierung"
-	for i=1 to 10
-		Ebene.Select i
-		if Numerierung.GetSelIndex <> Wert(i) then 
-			Warnlog "After creating: => Level " + i + " has not numbering " + Wert (i) + " but " + Numerierung.GetSelIndex
-		end if
-	next i
-	TabOptionenNumerierung.Cancel
-	
-	printlog "  - check previous saved numbering"
-	'/// save document, close and reload previous saved document ///
-	Sleep 2
-	Call hFileSaveAsKill ( gOfficePath + "user\work\format7." & WriterFilterExtension(0) )
-	Sleep 2
-	Call hCloseDocument
-	Sleep 2
-	hFileOpen( gOfficePath & "user\work\format7." & WriterFilterExtension(0) )
-	Sleep 2
-	FormatNumberingBullets
-	'/// reopen Format / NumberingBullets and check saved settings ///
-	Kontext
-	Active.SetPage TabOptionenNumerierung
-	Kontext "TabOptionenNumerierung"
-	for i=1 to 10
-		Ebene.Select i
-		if Numerierung.GetSelIndex <> Wert(i) then Warnlog "After saving: => Level " + i + " has not Numbering " + Wert (i) + " but " + Numerierung.GetSelIndex
-	next i
-	TabOptionenNumerierung.Cancel
-	
-	'/// close document ///
-	Call hCloseDocument
-endcase
diff --git a/testautomation/writer/optional/includes/number/w_205a_.inc b/testautomation/writer/optional/includes/number/w_205a_.inc
deleted file mode 100644
index 579ea242c635..000000000000
--- a/testautomation/writer/optional/includes/number/w_205a_.inc
+++ /dev/null
@@ -1,875 +0,0 @@
-'**************************************************************************
-' 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 : helge.delfs@oracle.com
-'*
-'* short description :
-'*
-'\***********************************************************************
-
-sub w_205a_
-    printLog Chr(13) + "---------   Level 1 - Tools - Menu (3)   ----------"
-
-    Call tToolsOutlineNumbering1                ' Numerierungtabpage f�r Kapitelnumerierung
-    Call tToolsOutlineNumbering2                ' Positionstabpage f�r Kapitelnumerierung
-    Call tToolsOutlineNumbering3                ' Gesamtes f�r Kapitelnumerierung
-    Call tToolsFootnoteEndnote                  ' Fu�- + Endnoten formatieren
-
-end sub
-
-' *******************************************************************
-
-testcase tToolsOutlineNumbering1
-    Dim VorlagenLst(11) as String : Dim Zaehler as Integer
-    Dim i as integer
-    PrintLog "- Tools / Outline Numbering: Part 1 - Numbering"
-
-    hFileOpenLocally(  gTesttoolPath + "writer\optional\input\number\numbering1.sxw" )
-    
-    
-    ToolsOutlineNumbering
-    Kontext
-    Active.SetPage TabKapitelnumerierung
-    Kontext "TabKapitelnumerierung"
-
-    PrintLog "   - adjust level"
-    Ebene.Select 1
-    ' I need to know the name of entry (none), depends on language, for checking the results
-    Absatzvorlage.Select 1
-    VorlagenLst(11)= Absatzvorlage.GetSelText
-    Sleep 2
-    ' Select next paragraph style
-    Absatzvorlage.Select 2
-    Nummer.Select 1
-    if Vollstaendig.IsEnabled then Warnlog "On 1. Level 'Show Sublevels' is active -> Bug"
-    BeginBei.SetText "7"
-    Davor.SetText "Ha "
-    Dahinter.SetText " aH"
-
-    Ebene.Select 2
-    Absatzvorlage.Select 3
-    Nummer.Select 2
-    Vollstaendig.SetText "0"
-    BeginBei.SetText "4"
-    Davor.SetText "Q "
-    Dahinter.SetText " Q"
-
-    Ebene.Select 3
-    Absatzvorlage.Select 4
-    Nummer.Select 3
-    Vollstaendig.SetText "3"
-    BeginBei.SetText "2"
-    Davor.SetText "A "
-    Dahinter.SetText " s"
-
-    Ebene.Select 4
-    Absatzvorlage.Select 5
-    Nummer.Select 4
-    Vollstaendig.SetText "1"
-    Davor.SetText "Ups "
-    Dahinter.SetText " spU"
-
-    Ebene.Select 5
-    Absatzvorlage.Select 6
-    Nummer.Select 5
-    Vollstaendig.SetText "0"
-    Davor.SetText "*. "
-    Dahinter.SetText " @�"
-
-    Ebene.Select 6
-    Absatzvorlage.Select 7
-    Nummer.Select 6
-    Vollstaendig.SetText "5"
-    Davor.SetText "    "
-    Sleep 1
-
-    Ebene.Select 7
-    Absatzvorlage.Select 8
-    Nummer.Select 5
-    Vollstaendig.SetText "9"
-    Sleep 1
-
-    Ebene.Select 8
-    Absatzvorlage.Select 9
-    Nummer.Select 4
-    Vollstaendig.SetText "9"
-    Sleep 1
-
-    Ebene.Select 9
-    Absatzvorlage.Select 10
-    Nummer.Select 3
-    Vollstaendig.SetText "9"
-    Dahinter.SetText "Hallo dies ist ein langer Text"
-    Sleep 1
-
-    Ebene.Select 10
-    Absatzvorlage.Select 11
-    Nummer.Select 3
-    Vollstaendig.SetText "9"
-    Davor.SetText "Hallo dies ist ein langer Text"
-    Sleep 1
-
-    ' remember the paragraph style
-    For i = 1 to 10
-        Ebene.Select i
-        VorlagenLst(i) = Absatzvorlage.GetSelText
-    next i
-
-    TabKapitelnumerierung.Ok
-
-    printlog "- format document"
-    call wTypeKeys "<Up>", 25
-
-    for Zaehler = 1 to 10
-        call wTypeKeys "<Shift End>"
-        if wStyleSet ( VorlagenLst(Zaehler) ) = false then
-            Warnlog "- Style '" & VorlagenLst(Zaehler) & "' could not be set!"
-        end if
-        call wTypeKeys "<Down>", 8
-        call wTypeKeys "<Home>"
-        wait 500
-    next Zaehler
-
-    printlog "- check properties"
-    ToolsOutlineNumbering
-    Kontext
-    Active.SetPage TabKapitelnumerierung
-    Kontext "TabKapitelnumerierung"
-    Ebene.Select 1
-    if Absatzvorlage.GetSelText <> VorlagenLst(1) then Warnlog "Level 1: wrong Paragraph Style"
-    if Nummer.GetSelIndex <> 1 then Warnlog "Level 1: wrong Character Style -> " + Nummer.GetSeltext + "instead of 1 !"
-    if BeginBei.GetText <> "7" then Warnlog "7 is not selected at 'Start at' but " + BeginBei.Gettext
-    if Davor.GetText <> "Ha " then Warnlog "Level 1: Seperator before not 'Ha ' but " + Davor.Gettext
-    if Dahinter.GetText <> " aH" then Warnlog "Level 1: Seperator after not ' aH' but " + Dahinter.Gettext
-
-    Ebene.Select 2
-    if Absatzvorlage.GetSelText <> VorlagenLst(2) then Warnlog "Level 2: Paragraph Style not " + VorlagenLst(2) + " but " + Absatzvorlage.GetSelText
-    if Nummer.GetSelIndex <> 2 then Warnlog "Level 2: wrong Character Style"
-    if Vollstaendig.GetText <> "1" then Warnlog "Level 2: 'Show Sublevels' is not 1 but " + Vollstaendig.GetText
-    if Davor.GetText <> "Q " then Warnlog "Level 2: Seperator before is wrong"
-    if Dahinter.GetText <> " Q" then Warnlog "Level 2: Seperator after is wrong"
-
-    Ebene.Select 3
-    if Absatzvorlage.GetSelText <> VorlagenLst(3) then Warnlog "Level 3: Paragraph Style" + VorlagenLst(3) + " but " + Absatzvorlage.GetSelText
-    if Nummer.GetSelIndex <> 3 then Warnlog "Level 3: wrong Character Style"
-    if Vollstaendig.GetText <> "3" then Warnlog "Level 3: 'Show Sublevels' is not 3 but " + Vollstaendig.GetText
-    if Davor.GetText <> "A " then Warnlog "Level 3: Seperator before is wrong"
-    if Dahinter.GetText <> " s" then Warnlog "Level 3: Seperator after is wrong"
-
-    Ebene.Select 4
-    if Absatzvorlage.GetSelText <> VorlagenLst(4) then Warnlog "Level 4: Paragraph Style" + VorlagenLst(4) + " but " + Absatzvorlage.GetSelText
-    if Nummer.GetSelIndex <> 4 then Warnlog "Level 4: wrong Character Style"
-    if Vollstaendig.GetText <> "1" then Warnlog "Level 4: 'Show Sublevels' is not 1 but " + Vollstaendig.GetText
-    if Davor.GetText <> "Ups " then Warnlog "Level 4: Seperator before is wrong"
-    if Dahinter.GetText <> " spU" then Warnlog "Level 4: Seperator after is wrong"
-
-    Ebene.Select 5
-    if Absatzvorlage.GetSelText <> VorlagenLst(5) then Warnlog "Level 5: Paragraph Style" + VorlagenLst(5) + " but " + Absatzvorlage.GetSelText
-    if Nummer.GetSelIndex <> 5 then Warnlog "Level 5: wrong Character Style"
-    if Vollstaendig.GetText <> "1" then Warnlog "Level 5: 'Show Sublevels' is not 1 but " + Vollstaendig.GetText
-    if Davor.GetText <> "*. " then Warnlog "Level 5: Seperator before is wrong"
-    if Dahinter.GetText <> " @�" then Warnlog "Level 5: Seperator after is wrong"
-
-    Ebene.Select 6
-    if Absatzvorlage.GetSelText <> VorlagenLst(6) then Warnlog "Level 6: Paragraph Style" + VorlagenLst(6) + " but " + Absatzvorlage.GetSelText
-    if Nummer.GetSelIndex <> 6 then Warnlog "Level 6: wrong Character Style"
-    if Vollstaendig.GetText <> "5" then Warnlog "Level 6: 'Show Sublevels' is not 5 but " + Vollstaendig.GetText
-    if Davor.GetText <> "    " then Warnlog "Level 6: Seperator before is wrong"
-
-    Ebene.Select 7
-    if Absatzvorlage.GetSelText <> VorlagenLst(7) then Warnlog "Level 7: Paragraph Style" + VorlagenLst(7) + " but " + Absatzvorlage.GetSelText
-    if Nummer.GetSelIndex <> 5 then Warnlog "Level 7: wrong Character Style"
-    if Vollstaendig.GetText <> "7" then Warnlog "Level 7: 'Show Sublevels' is not 7 but " + Vollstaendig.GetText
-
-    Ebene.Select 8
-    if Absatzvorlage.GetSelText <> VorlagenLst(8) then Warnlog "Level 8: Paragraph Style" + VorlagenLst(8) + " but " + Absatzvorlage.GetSelText
-    if Nummer.GetSelIndex <> 4 then Warnlog "Level 8: wrong Character Style"
-    if Vollstaendig.GetText <> "8" then Warnlog "Level 8: 'Show Sublevels' is not 8 but " + Vollstaendig.GetText
-
-    Ebene.Select 9
-    if Absatzvorlage.GetSelText <> VorlagenLst(9) then Warnlog "Level 9: Paragraph Style not " + VorlagenLst(9) + " but " + Absatzvorlage.GetSelText
-    if Nummer.GetSelIndex <> 3 then Warnlog "Level 9: wrong Character Style"
-    if Vollstaendig.GetText <> "9" then Warnlog "Level 9: 'Show Sublevels' is not 9 but " + Vollstaendig.GetText
-    if Dahinter.GetText <> "Hallo dies ist ein langer Text" then Warnlog "Level 9: Seperator after is wrong"
-
-    Ebene.Select 10
-    if Absatzvorlage.GetSelText <> VorlagenLst(10) then 
-        QAErrorlog "#125998#Level 10: Paragraph Style not " + VorlagenLst(10) + " but " + Absatzvorlage.GetSelText
-    end if    
-    if Nummer.GetSelIndex <> 3 then Warnlog "Level 10: wrong Character Style"
-    if Vollstaendig.GetText <> "9" then Warnlog "Level 10: 'Show Sublevels' is not 9 but " + Vollstaendig.GetText
-    if Davor.GetText <> "Hallo dies ist ein langer Text" then Warnlog "Level 10: Seperator before is wrong"
-    TabKapitelnumerierung.Ok
-    
-    for i = 1 to 2
-        Select Case i 
-            Case 1
-                printlog "- Save as sxw"
-                Call hFileSaveAsKill ( gOfficePath + "user\work\tToolsOutlineNumbering1.sxw" )
-            Case 2
-                printlog "- Save as odt"
-                Call hFileSaveAsWithFilterKill ( gOfficePath + "user\work\tToolsOutlineNumbering1.odt", "writer8")
-        end select
-    next i            
-    Call hCloseDocument
-
-    for i = 1 to 2
-        Select Case i
-            Case 1
-                printlog "- Load sxw and check formatting"
-                hFileOpen( gOfficePath & "user\work\tToolsOutlineNumbering1.sxw" )
-            Case 2
-                printlog "- Load odt and check formatting"
-                hFileOpen( gOfficePath & "user\work\tToolsOutlineNumbering1.odt" )
-        end select
-        call wTypeKeys "<PageUp>", 8
-        call wTypeKeys "<Up>", 10
-    
-        for Zaehler = 1 to 10
-            call wTypeKeys "<Shift End>"
-            if wStyleGet(VorlagenLst(Zaehler)) = false then Warnlog "Wrong Style for Outline Numbering " + Zaehler
-            call wTypeKeys "<Down>", 8
-            call wTypeKeys "<Home>"
-        next Zaehler
-    
-        printlog "   - check saved properties"
-        ToolsOutlineNumbering
-        Kontext
-        Active.SetPage TabKapitelnumerierung
-        Kontext "TabKapitelnumerierung"
-        Ebene.Select 1
-        if Absatzvorlage.GetSelText <> VorlagenLst(1) then Warnlog "   - Level 1: wrong Paragraph Style"
-        if Nummer.GetSelIndex <> 1 then Warnlog "   - Level 1: wrong Character Style -> " + Nummer.GetSeltext + "instead of 1 !"
-        if BeginBei.GetText <> "7" then Warnlog "   - 7 is not selected at 'Start at' but " + BeginBei.Gettext
-        if Davor.GetText <> "Ha " then Warnlog "   - Level 1: Seperator before not 'Ha ' but " + Davor.Gettext
-        if Dahinter.GetText <> " aH" then Warnlog "   - Level 1: Seperator after not ' aH' but " + Dahinter.Gettext
-    
-        Ebene.Select 2
-        if Absatzvorlage.GetSelText <> VorlagenLst(2) then Warnlog "   - Level 2: Paragraph Style not " + VorlagenLst(2) + " but " + Absatzvorlage.GetSelText
-        if Nummer.GetSelIndex <> 2 then Warnlog "   - Level 2: wrong Character Style"
-        if Vollstaendig.GetText <> "1" then Warnlog "   - Level 2: 'Show Sublevels' is not 1 but " + Vollstaendig.GetText
-        if Davor.GetText <> "Q " then Warnlog "   - Level 2: Seperator before is wrong"
-        if Dahinter.GetText <> " Q" then Warnlog "   - Level 2: Seperator after is wrong"
-    
-        Ebene.Select 3
-        if Absatzvorlage.GetSelText <> VorlagenLst(3) then 
-            QAErrorlog "   - #125998#Level 3: Paragraph Style not " + VorlagenLst(3) + " but " + Absatzvorlage.GetSelText
-        end if
-        if Nummer.GetSelIndex <> 3 then Warnlog "   - Level 3: wrong Character Style"
-        if Vollstaendig.GetText <> "3" then Warnlog "   - Level 3: 'Show Sublevels' is not 3 but " + Vollstaendig.GetText
-        if Davor.GetText <> "A " then Warnlog "   - Level 3: Seperator before is wrong"
-        if Dahinter.GetText <> " s" then Warnlog "   - Level 3: Seperator after is wrong"
-    
-        Ebene.Select 4
-        if Absatzvorlage.GetSelText <> VorlagenLst(4) then Warnlog "   - Level 4: Paragraph Style not " + VorlagenLst(4) + " but " + Absatzvorlage.GetSelText
-        if Nummer.GetSelIndex <> 4 then Warnlog "   - Level 4: wrong Character Style"
-        if Vollstaendig.GetText <> "1" then Warnlog "   - Level 4: 'Show Sublevels' is not 1 but " + Vollstaendig.GetText
-        if Davor.GetText <> "Ups " then Warnlog "   - Level 4: Seperator before is wrong"
-        if Dahinter.GetText <> " spU" then Warnlog "   - Level 4: Seperator after is wrong"
-    
-        Ebene.Select 5
-        if Absatzvorlage.GetSelText <> VorlagenLst(5) then Warnlog "   - Level 5: Paragraph Style not " + VorlagenLst(5) + " but " + Absatzvorlage.GetSelText
-        if Nummer.GetSelIndex <> 5 then Warnlog "   - Level 5: wrong Character Style"
-        if Vollstaendig.GetText <> "1" then Warnlog "   - Level 5: 'Show Sublevels' is not 1 but " + Vollstaendig.GetText
-        if Davor.GetText <> "*. " then Warnlog "   - Level 5: Seperator before is wrong"
-        if Dahinter.GetText <> " @�" then Warnlog "   - Level 5: Seperator after is wrong"
-    
-        Ebene.Select 6
-        if Absatzvorlage.GetSelText <> VorlagenLst(6) then Warnlog "   - Level 6: Paragraph Style not " + VorlagenLst(6) + " but " + Absatzvorlage.GetSelText
-        if Nummer.GetSelIndex <> 6 then Warnlog "   - Level 6: wrong Character Style"
-        if Vollstaendig.GetText <> "5" then Warnlog "   - Level 6: 'Show Sublevels' is not 5 but " + Vollstaendig.GetText
-        if Davor.GetText <> "    " then Warnlog "   - Level 6: Seperator before is wrong"
-    
-        Ebene.Select 7
-        if Absatzvorlage.GetSelText <> VorlagenLst(7) then Warnlog "   - Level 7: Paragraph Style not " + VorlagenLst(7) + " but " + Absatzvorlage.GetSelText
-        if Nummer.GetSelIndex <> 5 then Warnlog "   - Level 7: wrong Character Style"
-        if Vollstaendig.GetText <> "7" then Warnlog "   - Level 7: 'Show Sublevels' is not 7 but " + Vollstaendig.GetText
-    
-        Ebene.Select 8
-        if Absatzvorlage.GetSelText <> VorlagenLst(8) then Warnlog "   - Level 8: Paragraph Style not " + VorlagenLst(8) + " but " + Absatzvorlage.GetSelText
-        if Nummer.GetSelIndex <> 4 then Warnlog "   - Level 8: wrong Character Style"
-        if Vollstaendig.GetText <> "8" then Warnlog "   - Level 8: 'Show Sublevels' is not 8 but " + Vollstaendig.GetText
-    
-        Ebene.Select 9
-        if Absatzvorlage.GetSelText <> VorlagenLst(9) then Warnlog "   - Level 9: Paragraph Style not " + VorlagenLst(9) + " but " + Absatzvorlage.GetSelText
-        if Nummer.GetSelIndex <> 3 then Warnlog "   - Level 9: wrong Character Style"
-        if Vollstaendig.GetText <> "9" then Warnlog "   - Level 9: 'Show Sublevels' is not 9 but " + Vollstaendig.GetText
-        if Dahinter.GetText <> "Hallo dies ist ein langer Text" then Warnlog "   - Level 9: Seperator after is wrong"
-    
-        Ebene.Select 10
-        if Absatzvorlage.GetSelText <> VorlagenLst(10) then 
-            QAErrorlog "   - #125998#Level 10: Paragraph Style not " + VorlagenLst(10) + " but " + Absatzvorlage.GetSelText
-        end if    
-        if Nummer.GetSelIndex <> 3 then Warnlog "   - Level 10: wrong Character Style"
-        if Vollstaendig.GetText <> "9" then Warnlog "   - Level 10: 'Show Sublevels' is not 9 but " + Vollstaendig.GetText
-        if Davor.GetText <> "Hallo dies ist ein langer Text" then Warnlog "   - Level 10: Seperator before is wrong"
-        TabKapitelnumerierung.Cancel
-    
-        Call hCloseDocument
-    next i
-    
-endcase
-
-'--------------------------------------------------
-
-testcase tToolsOutlineNumbering2
-    Dim i as Integer
-    Dim VorlagenLst (11) as String
-    Dim V1 : Dim V2 :  Dim V3 : Dim V4 :  Dim V5 : Dim V6 :  Dim V7 : Dim V8 : Dim V9 : Dim V10
-    Dim V11 : Dim V12 :  Dim V13 : Dim V14 :  Dim V15 : Dim V16
-
-    PrintLog "- Tools / Outline Numbering: Part 2 - Tabpage Position"
-
-    hFileOpenLocally(  gTesttoolPath + "writer\optional\input\number\numbering1.sxw" )
-    
-    
-    ToolsOutlineNumbering
-    Kontext
-    Active.SetPage TabKapitelnumerierung
-    Kontext "TabKapitelnumerierung"
-    for i=1 to 10
-        if iSprache = 01 then
-            VorlagenLst (i) = Absatzvorlage.GetItemText ( i+1 )
-        else
-            VorlagenLst (i) = Absatzvorlage.GetItemText ( i+2 )
-        end if
-    next i
-    Kontext
-    Active.SetPage TabPositionKapitelnumerierung
-    Kontext "TabPositionKapitelnumerierung"
-
-    Level.Select 1
-    NumberAlignment.Select 2
-    if relativ.IsEnabled then Warnlog "'Relative' is enabled when selecting 'Level 1' -> Bug"
-    IndentAt.More 5
-    V1 = IndentAt.GetText
-    AlignedAt.More 1
-    V2 = AlignedAt.GetText
-
-    Level.Select 3
-    NumberAlignment.Select 3
-    Relativ.Check
-    IndentAt.Less 5
-    V3 = IndentAt.GetText
-    AbstandTextNumerierung.More 2
-    V4 = AbstandTextNumerierung.GetText
-
-    Level.Select 4
-    NumberAlignment.Select 1
-    Relativ.Check
-    V5 = IndentAt.GetText
-    V6 = AbstandTextNumerierung.GetText
-    V7 = AlignedAt.GetText
-
-    Level.Select 6
-    NumberAlignment.Select 3
-    Relativ.Check
-    IndentAt.More 4
-    V8 = IndentAt.GetText
-    AbstandTextNumerierung.Less 3
-    V9 = AbstandTextNumerierung.GetText
-    AlignedAt.Less 3
-    V10 = AlignedAt.GetText
-
-    Level.Select 9
-    NumberAlignment.Select 1
-    Relativ.Check
-    IndentAt.Less 2
-    V11 = IndentAt.GetText
-    AbstandTextNumerierung.More 2
-    V12 = AbstandTextNumerierung.GetText
-    AlignedAt.More 3
-    V13 = AlignedAt.GetText
-
-    Level.Select 10
-    NumberAlignment.Select 3
-    Relativ.Check
-    IndentAt.More 4
-    V14 = IndentAt.GetText
-    AbstandTextNumerierung.Less 3
-    V15 = AbstandTextNumerierung.GetText
-    AlignedAt.Less 3
-    V16 = AlignedAt.GetText
-    TabPositionKapitelnumerierung.OK
-
-    printlog "  - create Numbering"
-    for i = 1 to 10
-        call wTypeKeys "<Shift End>"
-        if wStyleSet ( VorlagenLst(i) ) = false then
-            Warnlog "- Style '" & VorlagenLst(i) & "' could not be set!"
-        end if
-        call wTypeKeys "<Down>", 8
-        call wTypeKeys "<Home>"
-    next i
-
-    printlog "  - check Numbering-Position"
-    ToolsOutlineNumbering
-    Kontext
-    Active.SetPage TabPositionKapitelnumerierung
-    Kontext "TabPositionKapitelnumerierung"
-    Level.Select 1
-    if NumberAlignment.GetSelIndex <> 2 then Warnlog "Level 1: Wrong Numbering Alignment:  Not = 2   But = "+ NumberAlignment.GetSelIndex
-    if V1 <> IndentAt.GetText then Warnlog "Level 1: Wrong Indent:  Not = "+ V1+ "  But = "+ IndentAt.GetText
-    if V2 <> AlignedAt.GetText then Warnlog "Level 1: Space to Text  Not = "+ V2+ "  But = "+ AlignedAt.GetText
-    Level.Select 3
-    if NumberAlignment.GetSelIndex <> 3 then Warnlog "Level 3: Wrong Numbering Alignment:  Not = 3   But = "+ NumberAlignment.GetSelIndex
-    if V3 <> IndentAt.GetText then Warnlog "Level 3: Wrong Indent:  Not = "+ V3+ "  But = "+ IndentAt.GetText
-    if V4 <> AbstandTextNumerierung.GetText then Warnlog "Level 3: Minimum Space numbering <> Text  Not = "+ V4+ "  But = "+ AbstandTextNumerierung.GetText
-    Level.Select 4
-    if NumberAlignment.GetSelIndex <> 1 then Warnlog "Level 4: Wrong Numbering Alignment:  Not = 1   But = "+ NumberAlignment.GetSelIndex
-    if V5 <> IndentAt.GetText then Warnlog "Level 4: Wrong Indent:  Not = "+ V5+ "  But = "+ IndentAt.GetText
-    if V6 <> AbstandTextNumerierung.GetText then Warnlog "Level 4: Minimum Space numbering <> Text  Not = "+ V6+ "  But = "+ AbstandTextNumerierung.GetText  
-    if V7 <> AlignedAt.GetText then Warnlog "Level 4: Space to Text  Not = "+ V7+ "  But = "+ AlignedAt.GetText
-    Level.Select 6
-    if NumberAlignment.GetSelIndex <> 3 then Warnlog "Level 6: Wrong Numbering Alignment:  Not = 3   But = "+ NumberAlignment.GetSelIndex
-    if V8 <> IndentAt.GetText then Warnlog "Level 6: Wrong Indent:  Not = "+ V8+ "  But = "+ IndentAt.GetText
-    if V9 <> AbstandTextNumerierung.GetText then Warnlog "Level 6: Minimum Space numbering <> Text  Not = "+ V9+ "  But = "+ AbstandTextNumerierung.GetText
-    if V10 <> AlignedAt.GetText then Warnlog "Level 6: Space to Text  Not = "+ V10+ "  But = "+ AlignedAt.GetText
-    Level.Select 9
-    if NumberAlignment.GetSelIndex <> 1 then Warnlog "Level 9: Wrong Numbering Alignment:  Not = 1   But = "+ NumberAlignment.GetSelIndex
-    if V11 <> IndentAt.GetText then Warnlog "Level 9: Wrong Indent:  Not = "+ V11+ "  But = "+ IndentAt.GetText
-    if V12 <> AbstandTextNumerierung.GetText then Warnlog "Level 9: Minimum Space numbering <> Text  Not = "+ V12+ "  But = "+ AbstandTextNumerierung.GetText
-    if V13 <> AlignedAt.GetText then Warnlog "Level 9: Space to Text  Not = "+ V13+ "  But = "+ AlignedAt.GetText
-    Level.Select 10
-    if NumberAlignment.GetSelIndex <> 3 then Warnlog "Level 10: Wrong Numbering Alignment:  Not = 3   But = "+ NumberAlignment.GetSelIndex
-    if V14 <> IndentAt.GetText then Warnlog "Level 10: Wrong Indent:  Not = "+ V14+ "  But = "+ IndentAt.GetText
-    if V15 <> AbstandTextNumerierung.GetText then Warnlog "Level 10: Minimum Space numbering <> Text  Not = "+ V15+ "  But = "+ AbstandTextNumerierung.GetText
-    if V16 <> AlignedAt.GetText then Warnlog "Level 10: Space to Text  Not = "+ V16+ "  But = "+ AlignedAt.GetText
-    TabPositionKapitelnumerierung.Cancel
-
-    printlog "  - check saved Numbering"
-    Call hFileSaveAsWithFilterKill ( gOfficePath + "user\work\tToolsOutlineNumbering2.odt", "writer8" )
-    Call hCloseDocument
-    hFileOpen( gOfficePath & "user\work\tToolsOutlineNumbering2.odt" )
-
-    ToolsOutlineNumbering
-    Kontext
-    Active.SetPage TabPositionKapitelnumerierung
-    Kontext "TabPositionKapitelnumerierung"
-    Level.Select 1
-    if NumberAlignment.GetSelIndex <> 2 then Warnlog "Level 1: Wrong Numbering Alignment:  Not = 2   But = "+ NumberAlignment.GetSelIndex
-    if V1 <> IndentAt.GetText then Warnlog "Level 1: Wrong Indent:  Not = "+ V1+ "  But = "+ IndentAt.GetText
-    if V2 <> AlignedAt.GetText then Warnlog "Level 1: Space to Text  Not = "+ V2+ "  But = "+ AlignedAt.GetText
-    Level.Select 3
-    if NumberAlignment.GetSelIndex <> 3 then Warnlog "Level 3: Wrong Numbering Alignment:  Not = 3   But = "+ NumberAlignment.GetSelIndex
-    if V3 <> IndentAt.GetText then Warnlog "Level 3: Wrong Indent:  Not = "+ V3+ "  But = "+ IndentAt.GetText
-    if V4 <> AbstandTextNumerierung.GetText then Warnlog "Level 3: Minimum Space numbering <> Text  Not = "+ V4+ "  But = "+ AbstandTextNumerierung.GetText
-    Level.Select 4
-    if NumberAlignment.GetSelIndex <> 1 then Warnlog "Level 4: Wrong Numbering Alignment:  Not = 1   But = "+ NumberAlignment.GetSelIndex
-    if V5 <> IndentAt.GetText then Warnlog "Level 4: Wrong Indent:  Not = "+ V5+ "  But = "+ IndentAt.GetText
-    if V6 <> AbstandTextNumerierung.GetText then Warnlog "Level 4: Minimum Space numbering <> Text  Not = "+ V6+ "  But = "+ AbstandTextNumerierung.GetText
-    if V7 <> AlignedAt.GetText then Warnlog "Level 4: Space to Text  Not = "+ V7+ "  But = "+ AlignedAt.GetText
-    Level.Select 6
-    if NumberAlignment.GetSelIndex <> 3 then Warnlog "Level 6: Wrong Numbering Alignment:  Not = 3   But = "+ NumberAlignment.GetSelIndex
-    if V8 <> IndentAt.GetText then Warnlog "Level 6: Wrong Indent:  Not = "+ V8+ "  But = "+ IndentAt.GetText
-    if V9 <> AbstandTextNumerierung.GetText then Warnlog "Level 6: Minimum Space numbering <> Text  Not = "+ V9+ "  But = "+ AbstandTextNumerierung.GetText
-    if V10 <> AlignedAt.GetText then Warnlog "Level 6: Space to Text  Not = "+ V10+ "  But = "+ AlignedAt.GetText
-    Level.Select 9
-    if NumberAlignment.GetSelIndex <> 1 then Warnlog "Level 9: Wrong Numbering Alignment:  Not = 1   But = "+ NumberAlignment.GetSelIndex
-    if V11 <> IndentAt.GetText then Warnlog "Level 9: Wrong Indent:  Not = "+ V11+ "  But = "+ IndentAt.GetText
-    if V12 <> AbstandTextNumerierung.GetText then Warnlog "Level 9: Minimum Space numbering <> Text  Not = "+ V12+ "  But = "+ AbstandTextNumerierung.GetText
-    if V13 <> AlignedAt.GetText then Warnlog "Level 9: Space to Text  Not = "+ V13+ "  But = "+ AlignedAt.GetText
-    Level.Select 10
-    if NumberAlignment.GetSelIndex <> 3 then Warnlog "Level 10: Wrong Numbering Alignment:  Not = 3   But = "+ NumberAlignment.GetSelIndex
-    if V14 <> IndentAt.GetText then Warnlog "Level 10: Wrong Indent:  Not = "+ V14+ "  But = "+ IndentAt.GetText
-    if V15 <> AbstandTextNumerierung.GetText then Warnlog "Level 10: Minimum Space numbering <> Text  Not = "+ V15+ "  But = "+ AbstandTextNumerierung.GetText
-    if V16 <> AlignedAt.GetText then Warnlog "Level 10: Space to Text  Not = "+ V16+ "  But = "+ AlignedAt.GetText
-    TabPositionKapitelnumerierung.Cancel
-
-    Call hCloseDocument
-endcase
-
-' *******************************************************************
-
-testcase tToolsOutlineNumbering3
-    Dim V1 : Dim V2 : Dim V3 : Dim V4 : Dim V5 : Dim V6 : Dim V7 : Dim V8 : Dim V9 : Dim V10
-
-    PrintLog "- Tools / Outline Numbering: Part 3 - Total"
-
-    Call hNewDocument
-    ToolsOutlineNumbering
-    Kontext
-    Active.SetPage TabKapitelnumerierung
-    Kontext "TabKapitelnumerierung"
-
-    PrintLog "   - Same Formatting from 1-10"
-    Ebene.Select 11
-    if Absatzvorlage.IsEnabled then Warnlog "Able to adjust Paragraph Style for all Levels -> Bug"
-    Nummer.Select 4
-    Davor.SetText "HoHo "
-    Dahinter.SetText " HiHi "
-    BeginBei.SetText "4"
-
-    Ebene.Select 1
-    Nummer.Select 3
-    Davor.SetText "Anders 1 "
-    Dahinter.SetText " 1 Anders"
-    BeginBei.SetText "1"
-
-    Ebene.Select 5
-    Nummer.Select 2
-    Davor.SetText "Anders 5 "
-    Dahinter.SetText " 5 Anders"
-    BeginBei.SetText "2"
-
-    Kontext
-    Active.SetPage TabPositionKapitelnumerierung
-    Kontext "TabPositionKapitelnumerierung"
-
-    Level.Select 1
-    NumberingAlignment.Select 2
-    if relativ.IsEnabled then Warnlog "Relative is enabled when selecting Level 1 -> Bug!"
-    AlignedAt2.More 5
-    V1 = AlignedAt2.GetText
-    IndentAt2.More 1
-    V2 = IndentAt2.GetText
-
-    Level.Select 3
-    NumberingAlignment.Select 3
-    AlignedAt2.More 5
-    V3 = AlignedAt2.GetText
-    AbstandTextNumerierung2.More 2
-    V4 = AbstandTextNumerierung2.GetText
-
-    Level.Select 7
-    NumberingAlignment.Select 1
-    IndentAt2.More 4
-    Sleep 1
-    V5 = AlignedAt2.GetText
-    V6 = AbstandTextNumerierung2.GetText
-    V7 = IndentAt2.GetText
-
-    Level.Select 8
-    NumberingAlignment.Select 3
-    AlignedAt2.More 1
-    AbstandTextNumerierung2.Less 4
-    IndentAt2.More 4
-    V8 = AlignedAt2.GetText
-    V9 = AbstandTextNumerierung2.GetText
-    V10 = IndentAt2.GetText
-
-    TabPositionKapitelnumerierung.OK
-    Sleep 1
-
-    PrintLog "   - check the Levels"
-    ToolsOutlineNumbering
-    Kontext
-    Active.SetPage TabKapitelnumerierung
-    Kontext "TabKapitelnumerierung"
-    printlog "        - Tabpage Numbering"
-    Ebene.Select 1
-    if Nummer.GetSelIndex <> 3 then Warnlog "Level 1: Wrong number selected, not  3 but " + Nummer.GetSelIndex
-    if Davor.GetText <> "Anders 1 " then Warnlog "Level 1:Seperator before is wrong.. Not 'Anders 1 '   But " + Davor.GetText
-    if Dahinter.GetText <> " 1 Anders" then Warnlog "Level 1: Seperator after text is wrong. Not ' Anders 1'   But " + Dahinter.GetText
-    if BeginBei.GetText <> "1" then Warnlog "Level 1: Start at is not 1 but " + BeginnBei.GetText
-
-    Ebene.Select 2
-    if Nummer.GetSelIndex <> 4 then Warnlog "Level 2: Wrong number selected, not  4 but " + Nummer.GetSelIndex
-    if Davor.GetText <> "HoHo " then Warnlog "Level 2:Seperator before is wrong.. Not 'Hoho '   But " + Davor.GetText
-    if Dahinter.GetText <> " HiHi " then Warnlog "Level 2: Seperator after text is wrong. Not ' HiHi '   But " + Dahinter.GetText
-    if BeginBei.GetText <> "4" then Warnlog "Level 2: Start at is not 4 but " + BeginnBei.GetText
-
-    Ebene.Select 5
-    if Nummer.GetSelIndex <> 2 then Warnlog "Level 5: Wrong number selected, not  2 but " + Nummer.GetSelIndex
-    if Davor.GetText <> "Anders 5 " then Warnlog "Level 5:Seperator before is wrong.. Not 'Anders 5 '   But " + Davor.GetText
-    if Dahinter.GetText <> " 5 Anders" then Warnlog "Level 5: Seperator after text is wrong. Not ' 5 Anders'   But " + Dahinter.GetText
-    if BeginBei.GetText <> "2" then Warnlog "Level 1: Start at is not 1 but " + BeginnBei.GetText
-
-    Ebene.Select 7
-    if Nummer.GetSelIndex <> 4 then Warnlog "Level 7: Wrong number selected, not  4 but " + Nummer.GetSelIndex
-    if Davor.GetText <> "HoHo " then Warnlog "Level 7:Seperator before is wrong.. Not 'Hoho '   But " + Davor.GetText
-    if Dahinter.GetText <> " HiHi " then Warnlog "Level 7: Seperator after text is wrong. Not ' HiHi '   But " + Dahinter.GetText
-    if BeginBei.GetText <> "4" then Warnlog "Level 7: Start at is not 4 but " + BeginnBei.GetText
-
-    Ebene.Select 11
-    if Nummer.GetSelIndex <> 0 then Warnlog "Level 1-10: Setting for 'Number' is not 'keine Selektion' but  " + Nummer.GetSelIndex
-    if Davor.GetText <> "" then Warnlog "Level 1-10: Seperator before is not 'keine Selektion' but " + Davor.GetText
-    if Dahinter.GetText <> "" then Warnlog "Level 1-10: Seperator after is not 'keine Selektion' but " + Dahinter.GetText
-    if BeginBei.GetText <> "" then Warnlog "Level 1-10: Start at is not 'keine Selektion' but " + BeginBei.GetText
-
-    Kontext
-    Active.SetPage TabPositionKapitelnumerierung
-    Kontext "TabPositionKapitelnumerierung"
-    printlog "        - Tabpage Position"
-    Level.Select 1
-    if NumberingAlignment.GetSelIndex <> 2 then Warnlog "Level 1: Wrong Numbering Alignment:  Not = 2   But = "+ NumberingAlignment.GetSelIndex
-    if V1 <> AlignedAt2.GetText then Warnlog "Level 1: Wrong Indent:  Not = "+ V1+ "  But = "+ AlignedAt2.GetText
-    if V2 <> IndentAt2.GetText then Warnlog "Level 1: Space to Text  Not = "+ V2+ "  But = "+ IndentAt2.GetText
-    Level.Select 3
-    if NumberingAlignment.GetSelIndex <> 3 then Warnlog "Level 3: Wrong Numbering Alignment:  Not = 3   But = "+ NumberingAlignment.GetSelIndex
-    if V3 <> AlignedAt2.GetText then Warnlog "Level 3: Wrong Indent:  Not = "+ V3+ "  But = "+ AlignedAt2.GetText
-    if V4 <> AbstandTextNumerierung2.GetText then Warnlog "Level 3: Space to Text  Not = "+ V4+ "  But = "+ AbstandTextNumerierung2.GetText
-    Level.Select 7
-    if NumberingAlignment.GetSelIndex <> 1 then Warnlog "Level 7: Wrong Numbering Alignment:  Not = 1   But = "+ NumberingAlignment.GetSelIndex
-    if V5 <> AlignedAt2.GetText then Warnlog "Level 7: Wrong Indent:  Not = "+ V5+ "  But = "+ AlignedAt2.GetText
-    if V6 <> AbstandTextNumerierung2.GetText then Warnlog "Level 7: Space to Text  Not = "+ V6+ "  But = "+ AbstandTextNumerierung2.GetText
-    if V7 <> IndentAt2.GetText then Warnlog "Level 7: Space to Text  Not = "+ V7+ "  But = "+ IndentAt2.GetText
-    Level.Select 8
-    if NumberingAlignment.GetSelIndex <> 3 then Warnlog "Level 8: Wrong Numbering Alignment:  Not = 3   But = "+ NumberingAlignment.GetSelIndex
-    if V8 <> AlignedAt2.GetText then Warnlog "Level 8: Wrong Indent:  Not = "+ V8+ "  But = "+ AlignedAt2.GetText
-    if V9 <> AbstandTextNumerierung2.GetText then Warnlog "Level 8: Space to Text  Not = "+ V9+ "  But = "+ AbstandTextNumerierung2.GetText
-    if V10 <> IndentAt2.GetText then Warnlog "Level 8: Space to Text  Not = "+ V10+ "  But = "+ IndentAt2.GetText
-
-    TabPositionKapitelnumerierung.Cancel
-
-    printlog "  - check saved Numbering"
-    Call hFileSaveAsWithFilterKill ( gOfficePath + "user\work\tToolsOutlineNumbering3.odt", "writer8" )
-    Call hCloseDocument
-    hFileOpen( gOfficePath & "user\work\tToolsOutlineNumbering3.odt" )
-    ToolsOutlineNumbering
-    Kontext
-    Active.SetPage TabKapitelnumerierung
-    Kontext "TabKapitelnumerierung"
-    printlog "        - Tabpage Numbering"
-    Ebene.Select 1
-    if Nummer.GetSelIndex <> 3 then Warnlog "Level 1: Wrong number selected, not  3 but " + Nummer.GetSelIndex
-    if Davor.GetText <> "Anders 1 " then Warnlog "Level 1:Seperator before is wrong.. Not 'Anders 1 '   But " + Davor.GetText
-    if Dahinter.GetText <> " 1 Anders" then Warnlog "Level 1: Seperator after text is wrong. Not ' Anders 1'   But " + Dahinter.GetText
-    if BeginBei.GetText <> "1" then Warnlog "Level 1: Start at is not 1 but " + BeginnBei.GetText
-
-    Ebene.Select 2
-    if Nummer.GetSelIndex <> 4 then Warnlog "Level 2: Wrong number selected, not  4 but " + Nummer.GetSelIndex
-    if Davor.GetText <> "HoHo " then Warnlog "Level 2:Seperator before is wrong.. Not 'Hoho '   But " + Davor.GetText
-    if Dahinter.GetText <> " HiHi " then Warnlog "Level 2: Seperator after text is wrong. Not ' HiHi '   But " + Dahinter.GetText
-    if BeginBei.GetText <> "4" then Warnlog "Level 2: Start at is not 4 but " + BeginnBei.GetText
-
-    Ebene.Select 5
-    if Nummer.GetSelIndex <> 2 then Warnlog "Level 5: Wrong number selected, not  2 but " + Nummer.GetSelIndex
-    if Davor.GetText <> "Anders 5 " then Warnlog "Level 5:Seperator before is wrong.. Not 'Anders 5 '   But " + Davor.GetText
-    if Dahinter.GetText <> " 5 Anders" then Warnlog "Level 5: Seperator after text is wrong. Not ' 5 Anders'   But " + Dahinter.GetText
-    if BeginBei.GetText <> "2" then Warnlog "Level 1: Start at is not 1 but " + BeginnBei.GetText
-
-    Ebene.Select 7
-    if Nummer.GetSelIndex <> 4 then Warnlog "Level 7: Wrong number selected, not  4 but " + Nummer.GetSelIndex
-    if Davor.GetText <> "HoHo " then Warnlog "Level 7:Seperator before is wrong.. Not 'Hoho '   But " + Davor.GetText
-    if Dahinter.GetText <> " HiHi " then Warnlog "Level 7: Seperator after text is wrong. Not ' HiHi '   But " + Dahinter.GetText
-    if BeginBei.GetText <> "4" then Warnlog "Level 7: Start at is not 4 but " + BeginnBei.GetText
-
-    Ebene.Select 11
-    if Nummer.GetSelIndex <> 0 then Warnlog "Level 1-10: Setting for 'Number' is not 'keine Selektion' but  " + Nummer.GetSelIndex
-    if Davor.GetText <> "" then Warnlog "Level 1-10: Seperator before is not 'keine Selektion' but " + Davor.GetText
-    if Dahinter.GetText <> "" then Warnlog "Level 1-10: Seperator after is not 'keine Selektion' but " + Dahinter.GetText
-    if BeginBei.GetText <> "" then Warnlog "Level 1-10: Start at is not 'keine Selektion' but " + BeginBei.GetText
-
-    Kontext
-    Active.SetPage TabPositionKapitelnumerierung
-    Kontext "TabPositionKapitelnumerierung"
-    printlog "        - Tabpage Position"
-    Level.Select 1
-    if NumberingAlignment.GetSelIndex <> 2 then Warnlog "Level 1: Wrong Numbering Alignment:  Not = 2   But = "+ NumberingAlignment.GetSelIndex
-    if V1 <> AlignedAt2.GetText then Warnlog "Level 1: Wrong Indent:  Not = "+ V1+ "  But = "+ AlignedAt2.GetText
-    if V2 <> IndentAt2.GetText then Warnlog "Level 1: Space to Text  Not = "+ V2+ "  But = "+ IndentAt2.GetText
-    Level.Select 3
-    if NumberingAlignment.GetSelIndex <> 3 then Warnlog "Level 3: Wrong Numbering Alignment:  Not = 3   But = "+ NumberingAlignment.GetSelIndex
-    if V3 <> AlignedAt2.GetText then Warnlog "Level 3: Wrong Indent:  Not = "+ V3+ "  But = "+ AlignedAt2.GetText
-    if V4 <> AbstandTextNumerierung2.GetText then Warnlog "Level 3: Space to Text  Not = "+ V4+ "  But = "+ AbstandTextNumerierung2.GetText
-    Level.Select 7
-    if NumberingAlignment.GetSelIndex <> 1 then Warnlog "Level 7: Wrong Numbering Alignment:  Not = 1   But = "+ NumberingAlignment.GetSelIndex
-    if V5 <> AlignedAt2.GetText then Warnlog "Level 7: Wrong Indent:  Not = "+ V5+ "  But = "+ AlignedAt2.GetText
-    if V6 <> AbstandTextNumerierung2.GetText then Warnlog "Level 7: Space to Text  Not = "+ V6+ "  But = "+ AbstandTextNumerierung2.GetText
-    if V7 <> IndentAt2.GetText then Warnlog "Level 7: Space to Text  Not = "+ V7+ "  But = "+ IndentAt2.GetText
-    Level.Select 8
-    if NumberingAlignment.GetSelIndex <> 3 then Warnlog "Level 8: Wrong Numbering Alignment:  Not = 3   But = "+ NumberingAlignment.GetSelIndex
-    if V8 <> AlignedAt2.GetText then Warnlog "Level 8: Wrong Indent:  Not = "+ V8+ "  But = "+ AlignedAt2.GetText
-    if V9 <> AbstandTextNumerierung2.GetText then Warnlog "Level 8: Space to Text  Not = "+ V9+ "  But = "+ AbstandTextNumerierung2.GetText
-    if V10 <> IndentAt2.GetText then Warnlog "Level 8: Space to Text  Not = "+ V10+ "  But = "+ IndentAt2.GetText
-
-    TabPositionKapitelnumerierung.Cancel
-
-    Call hCloseDocument
-endcase
-
-' *******************************************************************
-
-testcase tToolsFootnoteEndnote
-    PrintLog "- Tools / Format Footnote- and Endnote"
-
-    Call hNewDocument
-    ToolsFootnote
-    Printlog "  - adjust Footnote-properties"
-    Kontext
-    Active.SetPage TabFussnoten
-    Kontext "TabFussnoten"
-    Numerierung.Select 2
-    Pro.Select 1
-    if BeginnBei.IsEnabled then Warnlog "On Numbering 'per page' 'Start at' is active. Bug!"
-    Pro.Select 2
-    if BeginnBei.IsEnabled then Warnlog "On Numbering 'per Chaper' 'Start at' is active. Bug!"
-    Pro.Select 3
-    BeginnBei.SetText "3"
-    Davor.SetText "Vorher "
-    Dahinter.SetText " Hinterher"
-    Absatz.Select 4
-    ZeichenvorlageTextbereich.Select 1
-    ZeichenvorlageFussnotenbereich.Select 1
-    SeitenEnde.Check
-    FolgeSeite.SetText "Aha"
-    Beginn.SetText "oHo"
-
-    Printlog "  - adjust Endnote-properties"
-    Kontext
-    Active.SetPage TabEndnoten
-    Kontext "TabEndnoten"
-    Numerierung.Select 1
-    BeginnBei.SetText "8"
-    Absatz.Select 3
-    Seite.Select 2
-    Davor.SetText "Hihi "
-    Dahinter.SetText " HaHa"
-    ZeichenvorlageTextbereich.Select 4
-    ZeichenvorlageEndnotenbereich.Select 5
-    TabEndnoten.OK
-
-    call wTypeKeys "Footnote bound to this text"
-    InsertFootnote
-    Kontext "FussnoteEinfuegen"
-    Fussnote.Check
-    FussnoteEinfuegen.OK
-
-    call wTypeKeys "Wassup<PageUp><Return>Followed by an endnote."
-    InsertFootnote
-    Kontext "FussnoteEinfuegen"
-    Endnote.Check
-    FussnoteEinfuegen.OK
-
-    call wTypeKeys "Wassup<PageUp><Return>And again a footnote"
-    InsertFootnote
-    Kontext "FussnoteEinfuegen"
-    Fussnote.Check
-    FussnoteEinfuegen.OK
-    InsertFieldsPageNumbers
-    call wTypeKeys "+0"
-    call wTypeKeys "<Shift Home>"
-    Sleep 1
-    try
-        ToolsCalculate
-    catch
-        ' Workaround for bug.
-        call wTypeKeys "<End>"
-        call wTypeKeys "<Shift Home>"
-        try
-            ToolsCalculate
-            Warnlog "Selecting text in footnote with <Shift Home> works only at the second time (bug#101047)"
-        catch
-            Warnlog "Tools/Calculate is disabled!"
-        endcatch
-    endcatch
-    if GetClipboardText <> "1" then Warnlog "2. Footnote has not been inserted on 1. Page."
-
-    call wTypeKeys "<PageUp><Return>Again followed by an endnote"
-    InsertFootnote
-    Kontext "FussnoteEinfuegen"
-    Endnote.Check
-    FussnoteEinfuegen.OK
-    InsertFieldsPageNumbers
-    call wTypeKeys "+0"
-    call wTypeKeys "<Shift Home>"
-    Sleep 1
-    try
-        ToolsCalculate
-    catch
-        ' Workaround for bug.
-        call wTypeKeys "<End>"
-        call wTypeKeys "<Shift Home>"
-        try
-            ToolsCalculate
-        catch
-            Warnlog "Tools/Calculate is disabled!"
-        endcatch
-    endcatch
-    Sleep 1
-    ToolsCalculate
-    if GetClipboardText <> "2" then Warnlog "2. Footnote has not been inserted on 2. page"
-
-    call wTypeKeys "<PageUp><Return>That's it!"
-
-    printlog "    - check properties"
-    ToolsFootnote
-    Kontext
-    Active.SetPage TabFussnoten
-    Kontext "TabFussnoten"
-    if Numerierung.GetSelIndex <> 2 then Warnlog "Footnote: Numbering not the 2. entry selected, but " + Numerierung.GetSelIndex
-    if Pro.GetSelIndex <> 3 then Warnlog "Footnote: 'Per document (3. entry) is not selected but " + Pro.GetSelIndex
-    if BeginnBei.GetText <> "3" then Warnlog "Footnote: Start at is not 3 but " + BeginnBei.GetText
-    if Davor.GetText <> "Vorher " then Warnlog "Footnote: Text 'Before' is wrong. Not 'Vorher ' but " +  Davor.GetText
-    if Dahinter.GetText <> " Hinterher" then Warnlog "Footnote: Text 'After' is wrong. Not ' Hinterher' but " +  Dahinter.GetText
-    if Absatz.GetSelIndex <> 4 then Warnlog "Footnote: Wrong entry selected in paragraph. Not 4 but " + Absatz.GetSelIndex
-    if ZeichenvorlageTextbereich.GetSelIndex <> 1 then Warnlog "Footnote: Text area has been changed!"
-    if ZeichenvorlageFussnotenbereich.GetSelIndex <> 1 then Warnlog "Footnote: Footnote area has been changed!"
-    if NOT SeitenEnde.IsChecked then Warnlog "Footnote: End of page is not checked anymore."
-    if FolgeSeite.GetText <> "Aha" then Warnlog "Footnote: End of footnote is not 'Aha' but " + FolgeSeite.GetText
-    if Beginn.GetText <> "oHo" then Warnlog "Footnote: Start of next page is not 'oHo' but " + Beginn.GetText
-
-    Kontext
-    Active.SetPage TabEndnoten
-    Kontext "TabEndnoten"
-    if Numerierung.GetSelIndex <> 1 then Warnlog "Endnote: Numbering not 1. entry but " + Numerierung.GetSelIndex
-    if BeginnBei.GetText <> "8" then Warnlog "Endnote: Strat at is not 8 but " + BeginnBei.GetText
-    if Davor.GetText <> "Hihi " then Warnlog "Endnote: 'Before' is wrong. Not 'Hihi ' but " +  Davor.GetText
-    if Dahinter.GetText <> " HaHa" then Warnlog "Endnote: Text after is wrong. Not ' HaHa' but " +  Dahinter.GetText
-    if Absatz.GetSelIndex <> 3 then Warnlog "Endnote: Wrong entry selected in paragraph. Not 3 but " + Absatz.GetSelIndex
-    if Seite.GetSelIndex <> 2 then Warnlog "Endnote: Wrong Page entry selected. Not 2 but " + Seite.GetSelIndex
-    if ZeichenvorlageTextbereich.GetSelIndex <> 4 then Warnlog "Endnote: Text area has been changed!"
-    if ZeichenvorlageEndnotenbereich.GetSelIndex <> 5 then Warnlog "Endnote: Endnote area has been changed!"
-
-    TabEndnoten.Cancel
-
-    printlog "  - Save and reload"
-    Call hFileSaveAsWithFilterKill ( gOfficePath + "user\work\tToolsFootnoteEndnote.odt", "writer8" )
-    Call hCloseDocument
-    hFileOpen( gOfficePath & "user\work\tToolsFootnoteEndnote.odt" )
-    printlog "    - check saved properties"
-    ToolsFootnote
-    Kontext
-    Active.SetPage TabFussnoten
-    Kontext "TabFussnoten"
-    if Numerierung.GetSelIndex <> 2 then Warnlog "Footnote: Numbering not the 2. entry selected, but " + Numerierung.GetSelIndex
-    if Pro.GetSelIndex <> 3 then Warnlog "Footnote: 'Per document (3. entry) is not selected but " + Pro.GetSelIndex
-    if BeginnBei.GetText <> "3" then Warnlog "Footnote: Start at is not 3 but " + BeginnBei.GetText
-    if Davor.GetText <> "Vorher " then Warnlog "Footnote: Text 'Before' is wrong. Not 'Vorher ' but " +  Davor.GetText
-    if Dahinter.GetText <> " Hinterher" then Warnlog "Footnote: Text 'After' is wrong. Not ' Hinterher' but " +  Dahinter.GetText
-    if Absatz.GetSelIndex <> 4 then Warnlog "Footnote: Wrong entry selected in paragraph. Not 4 but " + Absatz.GetSelIndex
-    if ZeichenvorlageTextbereich.GetSelIndex <> 1 then Warnlog "Footnote: Text area has been changed!"
-    if ZeichenvorlageFussnotenbereich.GetSelIndex <> 1 then Warnlog "Footnote: Footnote area has been changed!"
-    if NOT SeitenEnde.IsChecked then Warnlog "Footnote: End of page is not checked anymore."
-    if FolgeSeite.GetText <> "Aha" then Warnlog "Footnote: End of footnote is not 'Aha' but " + FolgeSeite.GetText
-    if Beginn.GetText <> "oHo" then Warnlog "Footnote: Start of next page is not 'oHo' but " + Beginn.GetText
-
-    Kontext
-    Active.SetPage TabEndnoten
-    Kontext "TabEndnoten"
-    if Numerierung.GetSelIndex <> 1 then Warnlog "Endnote: Numbering not 1. entry but " + Numerierung.GetSelIndex
-    if BeginnBei.GetText <> "8" then Warnlog "Endnote: Strat at is not 8 but " + BeginnBei.GetText
-    if Davor.GetText <> "Hihi " then Warnlog "Endnote: 'Before' is wrong. Not 'Hihi ' but " +  Davor.GetText
-    if Dahinter.GetText <> " HaHa" then Warnlog "Endnote: Text after is wrong. Not ' HaHa' but " +  Dahinter.GetText
-    if Absatz.GetSelIndex <> 3 then Warnlog "Endnote: Wrong entry selected in paragraph. Not 3 but " + Absatz.GetSelIndex
-    if Seite.GetSelIndex <> 2 then Warnlog "Endnote: Wrong Page entry selected. Not 2 but " + Seite.GetSelIndex
-    if ZeichenvorlageTextbereich.GetSelIndex <> 4 then Warnlog "Endnote: Text area has been changed!"
-    if ZeichenvorlageEndnotenbereich.GetSelIndex <> 5 then Warnlog "Endnote: Endnote area has been changed!"
-    TabEndnoten.Cancel
-
-    Call hCloseDocument
-endcase
diff --git a/testautomation/writer/optional/includes/number/w_206_.inc b/testautomation/writer/optional/includes/number/w_206_.inc
deleted file mode 100644
index 92958c2d9b18..000000000000
--- a/testautomation/writer/optional/includes/number/w_206_.inc
+++ /dev/null
@@ -1,726 +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 : helge.delfs@oracle.com
-'*
-'* short description : Testing Number and Bullets
-'*
-'\***********************************************************************
-
-sub w_206_
-
-	Call tToolsNumbering1
-    Call tToolsNumbering2
-    Call tToolsNumbering3
-    Call tToolsNumbering4
-    Call tToolsNumbering5
-    Call tToolsNumbering6
-    Call tToolsNumbering7
-    Call tToolsNumbering8
-    Call tToolsNumbering9
-    Call tToolsNumbering10
-    Call tToolsNumbering11
-
-end sub
-
-testcase tToolsNumbering1
-    printlog "Create a simple numbering without selection"
-	'/// Create a simple numbering without selection
-	Dim i as integer
-
-	'/// Open a new text document
-	Call hNewDocument
-
-	'/// Activate Numbering/Bullets via Objectbar
-	Call hToolbarSelect("BulletsAndNumbering", true)
-
-	'/// Create a numbering
-	Kontext "NumObjectbar"
-	if Not NumObjectbar.Exists then
-		Warnlog "Numbering/Bullets objectbar not accessible"
-		Call hCloseDocument
-		goto endsub
-	end if
-
-	NumberingOnOff.Click
-	For i = 1 to 5
-		call wTypeKeys ( "Numbering Level " & i )
-		call wTypeKeys ( "<RETURN>" )
-	next i
-
-	'/// Check if numbering has been created
-	For i = 1 to 5
-		call wTypeKeys ( "<UP>" )
-		if hIsNumberingBullets() = false then
-			Warnlog "Seems numbering has not been completely created"
-		end if
-	next i
-
-	'/// CloseDocument
-	Call hCloseDocument
-
-endcase
-
-testcase tToolsNumbering2
-	printlog "Create simple bullets without selection"
-    '/// Create simple bullets without selection	
-    Dim i as integer
-
-	'/// Open a new text document
-	Call hNewDocument
-	
-	'/// Activate Numbering/Bullets via Objectbar
-	Call hToolbarSelect("BulletsAndNumbering", true)
-	
-	'/// Create bullets
-	Kontext "NumObjectbar"
-	if Not NumObjectbar.Exists then
-		Warnlog "Numbering/Bullets objectbar not accessible"
-		Call hCloseDocument
-		goto endsub
-	end if
-		
-	BulletsOnOff.Click
-	For i = 1 to 5
-		call wTypeKeys ( "Numbering Level " & i )
-		call wTypeKeys ( "<RETURN>" )
-	next i
-
-	'/// Check if numbering has been created
-	For i = 1 to 5
-		call wTypeKeys ( "<UP>" )
-		if hIsNumberingBullets() = false then
-			Warnlog "Seems numbering has not been completely created"
-		end if
-	next i
-
-	'/// CloseDocument
-	Call hCloseDocument
-	
-endcase
-
-
-testcase tToolsNumbering3
-    printlog "Turn several selected paragraphs into numbering"	
-    '/// Turn several selected paragraphs into numbering	
-	Dim i as integer
-
-	'/// Open a new text document  
-	Call hNewDocument
-
-	'/// Insert autotext 'Dummy text' 3 times
-	for i = 1 to 3
-		Call wBlindtextEinfuegen
-	next i
-	
-	'///  Point cursor to beginning of document
-	call wTypeKeys ( "<Mod1 Home>" )
-	'/// Select all text inserted
-	call wTypeKeys ( "<Mod1 A>" )
-		
-	'/// Activate Numbering/Bullets via Objectbar
-	Call hToolbarSelect("BulletsAndNumbering", true)
-	
-	Kontext "NumObjectbar"
-	if Not NumObjectbar.Exists then
-		Warnlog "Numbering/Bullets objectbar not accessible"
-		Call hCloseDocument
-		goto endsub
-	end if
-		
-	NumberingOnOff.Click
-	'/// Check if numbering has been created
-	call wTypeKeys ( "<Mod1 Home>" )	
-	
-	For i = 1 to 2
-		if hIsNumberingBullets() = false then
-			Warnlog "Seems numbering has not been completely created"
-		end if
-		call wTypeKeys ( "<Mod1 Down>" )
-	next i
-
-	'/// CloseDocument
-	Call hCloseDocument
-	
-endcase
-
-
-testcase tToolsNumbering4
-	printlog "Turn several selected paragraphs into bullets"
-    '/// Turn several selected paragraphs into bullets	
-	Dim i as integer
-
-	'/// Open a new text document  
-	Call hNewDocument
-
-	'/// Insert autotext 'Dummy text' 3 times
-	for i = 1 to 3
-		Call wBlindtextEinfuegen
-	next i
-	
-	'///  Point cursor to beginning of document
-	call wTypeKeys ( "<Mod1 Home>" )
-	'/// Select all text inserted
-	call wTypeKeys ( "<Mod1 A>" )
-		
-	'/// Activate Numbering/Bullets via Objectbar
-	Call hToolbarSelect("BulletsAndNumbering", true)
-	
-	Kontext "NumObjectbar"
-	if Not NumObjectbar.Exists then
-		Warnlog "Numbering/Bullets objectbar not accessible"
-		Call hCloseDocument
-		goto endsub
-	end if
-		
-	BulletsOnOff.Click
-	'/// Check if numbering has been created
-	call wTypeKeys ( "<Mod1 Home>" )	
-	
-	For i = 1 to 2
-		if hIsNumberingBullets() = false then
-			Warnlog "Seems bullets have not been completely created"
-		end if
-		call wTypeKeys ( "<Mod1 Down>" )
-	next i
-
-	'/// CloseDocument
-	Call hCloseDocument
-	
-endcase
-
-
-testcase tToolsNumbering5
-    printlog "create numbering via autoformat"
-    '/// create numbering via autoformat
-	Dim i as integer, sClipBrd() as string
-
-	For i = 1 to 8
-		'/// Open a new text document
-		Call hNewDocument
-		
-		'/// Insert '1.' // 'I.' // 'a.' followed by text
-		Select Case i
-			Case 1
-				printlog "- Enter numbering starting with 1)"
-				call wTypeKeys ( "1) " )
-			Case 2
-				call wTypeKeys ( "1. " )
-				printlog "- Enter numbering starting with 1."
-			Case 3
-				call wTypeKeys ( "(1) " )
-				printlog "- Enter numbering starting with (1)"
-			Case 4
-				call wTypeKeys ( "I. " )
-				printlog "- Enter numbering starting with I."
-			Case 5
-				call wTypeKeys ( "i. " )
-				printlog "- Enter numbering starting with i."
-			Case 6
-                call wTypeKeys ( "A) " )
-				printlog "- Enter numbering starting with A)"
-			Case 7
-				call wTypeKeys ( "a) " )
-				printlog "- Enter numbering starting with a)"
-			Case 8
-				call wTypeKeys ( "(a) " )
-				printlog "- Enter numbering starting with (a)"
-		end select
-		
-		'/// + 'my new numbering'
-		'/// + followed by return (creats the numbering)
-		'/// + followed by text 'my newer numbering'
-		call wTypeKeys "my new numbering<Return>"
-		call wTypeKeys "my newer numbering"
-		
-		'/// check if numbering has been created
-		call wTypeKeys ( "<MOD1 A>" )
-		EditCopy
-		Select Case gPlatGroup
-			Case "unx"
-				sClipBrd() = Split (GetClipboardText, CHR$(10))
-			Case else
-				sClipBrd() = Split (GetClipboardText, CHR$(13) & CHR$(10))
-		end select
-		if Ubound(sClipBrd()) = 1 then
-			Select Case i
-				Case 1
-					if Left$(sClipBrd(1), 2) <> "2)" then
-						Warnlog "Seems numbering 1) has not been correctly created"
-					end if
-				Case 2
-					if Left$(sClipBrd(1), 2) <> "2." then
-						Warnlog "Seems numbering 1. has not been correctly created"
-					end if
-				Case 3
-					if Left$(sClipBrd(1), 3) <> "(2)" then
-						Warnlog "Seems numbering (1) has not been correctly created"
-					end if
-				Case 4
-					if Left$(sClipBrd(1), 3) <> "II." then
-						Warnlog "Seems numbering I. has not been correctly created"
-					end if
-				Case 5
-					if Left$(sClipBrd(1), 3) <> "ii." then
-                        QaErrorLog "#i78524#Auto-capitalisation of letter i hinders Automatic numbering"    'Warnlog "Seems numbering i. has not been correctly created"
-					end if
-				Case 6
-                    if Left$(sClipBrd(1), 2) <> "B)" then
-					    QaErrorLog "#i71136# - Autocorrect won't start numbering by 'A)'"   'warnlog "Seems numbering A) has not been correctly created"
-					end if
-				Case 7
-                    if Left$(sClipBrd(1), 2) <> "b)" then
-						QaErrorLog "#i71136# - Autocorrect won't start numbering by 'a)'"   'warnlog "Seems numbering a) has not been correctly created"
-					end if
-				Case 8
-					if Left$(sClipBrd(1), 2) <> "(b)" then
-						QaErrorLog "#i71136# - Autocorrect won't start numbering by '(a)'"   'warnlog "Seems numbering (a) has not been correctly created"
-					end if
-			end select
-		else
-			Warnlog "Error in clipboard content! " & Ubound(sClipBrd())
-		end if
-	
-		'/// CloseDocument
-		Call hCloseDocument
-	next i		
-	
-endcase
-
-
-testcase tToolsNumbering6
-	printlog "Remove numbering from paragraph by pressing <DEL> key (normal numbering)"
-	Dim j as integer
-	Dim i as integer, sClipBrd() as string
-	
-	'/// Remove numbering from paragraph by pressing "DEL" key (normal numbering)
-	'/// Open a new text document
-	Call hNewDocument
-	'/// Insert some text '1. This is the first' followed by a return
-	call wTypeKeys ( "1. This is the first<Return>" )
-	'/// Insert some text 'This is the second' followed by a return
-	call wTypeKeys ( "This is the second<Return>" )
-	'/// Insert some text 'This is the third'
-	call wTypeKeys ( "This is the third" )
-	
-	'/// Press key <STRG HOME> to go to first
-	call wTypeKeys ( "<MOD1 Home>" )
-	'/// Press <HOME> to highlight numbering
-	call wTypeKeys ( "<Home>" )
-	'/// Press <DELETE> to remove first paragraph numbering
-	call wTypeKeys ( "<DELETE>" )
-	'/// Check if numbering of the following paragraphs has been adapted even after save and reload
-	For j = 1 to 2 
-		if j = 2 then
-			'/// Save document
-			Call hFileSaveAsKill ( gOfficepath & "user\work\tToolsNumbering6.odt" )
-			'/// Close and reload document
-			Call hCloseDocument
-			hFileOpen( gOfficepath & "user\work\tToolsNumbering6.odt" )
-		end if
-		call wTypeKeys ( "<MOD1 A>" )	
-		EditCopy
-		Select Case gPlatGroup
-			Case "unx"
-				sClipBrd() = Split (GetClipboardText, CHR$(10))
-			Case else
-				sClipBrd() = Split (GetClipboardText, CHR$(13) & CHR$(10))
-		end select
-		
-		For i = 1 to 3
-			Select Case i	
-				Case 1
-					if sClipBrd(0) <> "This is the first" then
-						Warnlog "First paragraph not 'This is the first' but: " & sClipBrd(0)
-					end if
-				Case 2
-					if sClipBrd(1) <> "1. This is the second" then
-						Warnlog "First paragraph not '1.This is the second' but: " & sClipBrd(1)
-					end if		
-				Case 3
-					if sClipBrd(2) <> "2. This is the third" then
-						Warnlog "First paragraph not '2.This is the third' but: " & sClipBrd(2)
-					end if
-			end select
-		next i	
-	next j
-	'/// Close document
-	Call hCloseDocument
-	
-endcase
-
-
-testcase tToolsNumbering7
-    printlog "Remove numbering from paragraph by pressing <DEL> key (outlined numbering)"
-	Dim j as integer, sVorlage as string
-	Dim i as integer, sClipBrd() as string		
-	'/// Remove numbering from paragraph by pressing "DEL" key (outlined numbering)
-	'/// Open a new text document
-	Call hNewDocument
-	'/// Tools / Outline Numbering
-	ToolsOutlineNumbering
-	Kontext
-	Active.SetPage TabKapitelnumerierung
-	Kontext "TabKapitelnumerierung"
-	sVorlage = Absatzvorlage.GetSelText
-	'/// Select as Numbering Number 1 in list
-	Nummer.Select 2
-	'///  Set as Seperator (After) a `.`
-	Dahinter.Settext "."
-	'/// Close 'Outline Numbering' dialog
-	TabKapitelnumerierung.Ok
-
-    ' Numbering of outlines will not be copied to clipboard
-    ' so we use the Field 'Chapter' which does
-    for i = 1 to 3
-        InsertFieldsOther
-        Kontext
-        Active.Setpage TabDokumentFeldbefehle
-        Kontext "TabDokumentFeldbefehle"
-        try
-            Feldtyp.Select fGetType("Chapter")
-            wait 500
-            Select Case iSprache
-                Case 7      :Formatliste.Select 3    'Chapternumber
-                Case 34     :Formatliste.Select 3    'Chapternumber
-                Case else   :Formatliste.Select 2    'Chapternumber
-            end select
-        catch
-            Warnlog "Unable to select field 'chapter'"
-            TabDokumentFeldbefehle.Close
-            Call hCloseDocument
-            goto endsub
-        endcatch    
-        Einfuegen.Click
-        TabDokumentFeldbefehle.Close
-        
-        Select Case i
-            Case 1
-                '/// Insert some text 'My first number' followed by a return
-                call wTypeKeys ( "My first number<RETURN>" )
-            Case 2
-                '/// Insert some text 'My second number' followed by a return
-                call wTypeKeys ( "My second number<RETURN>" )
-            Case 3            
-                '/// Insert some text 'My third number'
-                call wTypeKeys ( "My third number" )
-        end select
-    next i
-	'/// Select all text
-    call wTypeKeys ( "<MOD1 A>" )
-    '/// Set Style 'Heading 1'
-	Call wStyleSet ( sVorlage )	
-	
-	'/// Press key <STRG HOME> to go to first
-	call wTypeKeys ( "<MOD1 Home>" )
-	'/// Press <HOME> to highlight numbering
-	call wTypeKeys ( "<Home>" )
-	'/// Press <DELETE> to remove first paragraph numbering
-	call wTypeKeys ( "<DELETE>" )
-	'/// Check if numbering of the following paragraphs has been adapted even after save and reload
-	For j = 1 to 2 
-		if j = 2 then
-			'/// Save document
-			Call hFileSaveAsKill ( gOfficepath & "user\work\tToolsNumbering7.odt" )
-			'/// Close and reload document
-			Call hCloseDocument
-			hFileOpen( gOfficepath & "user\work\tToolsNumbering7.odt" )
-		end if
-        
-		call wTypeKeys ( "<MOD1 A>" )	
-		EditCopy
-		Select Case gPlatGroup
-			Case "unx"
-				sClipBrd() = Split (GetClipboardText, CHR$(10))
-			Case else
-				sClipBrd() = Split (GetClipboardText, CHR$(13) & CHR$(10))
-		end select
-		
-		For i = 1 to 3
-			Select Case i	
-				Case 1
-					if sClipBrd(0) <> "My first number" then
-						if Left$(sClipBrd(0), 2) = "1." then
-                            Warnlog "Outline Numbering cannot be deleted pressing '<DELETE>' key"
-                            exit for
-                        else
-                            Warnlog "First paragraph not 'My first number' but: " & sClipBrd(0)
-                        end if
-					end if
-				Case 2
-					if sClipBrd(1) <> "1. 1.My second number" then
-						Warnlog "#128041#Second paragraph not '1. 1.My second number' but: " & sClipBrd(1)
-					end if		
-				Case 3
-					if sClipBrd(2) <> "2. 2.My third number" then
-						Warnlog "#128041#Third paragraph not '2. 2.My third number' but: " & sClipBrd(2)
-					end if
-			end select
-		next i	
-	next j
-	'/// Close document
-	Call hCloseDocument
-
-endcase
-
-
-testcase tToolsNumbering8
-    printlog "Take care that numbering can be activated within tables"    
-    Dim i as integer
-    '/// Take care that numbering can be activated within tables
-    '/// Open a new text document
-    Call hNewDocument
-    '/// Insert a table with 6 rows and 3 columns
-    TableInsertTable
-    Kontext "TabelleEinfuegenWriter"
-    Spalten.Settext "3"
-    Zeilen.Settext "6"
-    TabelleEinfuegenWriter.Ok
-    
-    '/// Select 2nd to 6th row in first column
-    call wTypeKeys ( "<Mod1 Home>" )
-    call wTypeKeys ( "<Down>" )
-    call wTypeKeys ( "<Shift Down>", 4 )
-    
-	'/// Activate Numbering/Bullets via Objectbar
-	Call hToolbarSelect("BulletsAndNumbering", true)
-    Kontext "NumObjectbar"
-	if Not NumObjectbar.Exists then
-		Warnlog "Numbering/Bullets objectbar not accessible"
-		Call hCloseDocument
-		goto endsub
-	end if
-
-    '/// Enable numbering
-	NumberingOnOff.Click
-	'/// Check if numbering has been created in table
-	call wTypeKeys ( "<Mod1 Home>" )		
-	For i = 1 to 5
-		if i = 1 then
-            if hIsNumberingBullets() = true then
-			    Warnlog "Seems numbering has been created in first row"
-            end if
-        else
-            if hIsNumberingBullets() = false then
-			    Warnlog "Seems numbering has not been created correctly"
-                exit for
-            end if        
-		end if
-		call wTypeKeys ( "<Down>" )
-	next i
-    
-    '/// Close document
-    Call hCloseDocument
-endcase
-
-
-testcase tToolsNumbering9
-    Dim i as integer
-    printlog "Turn off a numbered list"
-    '/// Turn off a numbered list via toolbar
-    '/// Open a new text docoument
-    Call hNewDocument
-    '/// Create a numbering
-    '/// Write in document '1. This numbering' followed by a return
-    call wTypeKeys "1. This numbering<Return>"
-    '/// +  write 'that will be automatically created' followed by a return
-    call wTypeKeys "that will be automatically created<RETURN>"
-    '/// + write 'and be turned off via toolbar'
-    call wTypeKeys ( "and turned off via toolbar" )
-    '/// Select all
-    call wTypeKeys ( "<Mod1 A>" )
-  	'/// Activate Numbering/Bullets via Objectbar
-	Call hToolbarSelect("BulletsAndNumbering", true)
-    Kontext "NumObjectbar"
-	if Not NumObjectbar.Exists then
-		Warnlog "Numbering/Bullets objectbar not accessible"
-		Call hCloseDocument
-		goto endsub
-	end if
-    '/// Turn numbering off by clicking 'Numbering' symbol
-	NumberingOnOff.Click
-
-    '/// Check if numbering has been turned off
-    call wTypeKeys ( "<Mod1 Home>" )
-    For i = 1 to 3
-        call wTypeKeys ( "<Shift End>" )
-        EditCopy
-        Select Case i
-            Case 1
-                if GetClipboardtext <> "This numbering" then
-                    Warnlog "It seems numbering isn't turned off"
-                    exit for
-                end if
-            Case 2
-                if GetClipboardtext <> "that will be automatically created" then
-                    Warnlog "It seems numbering isn't turned off"
-                    exit for
-                end if
-            Case 3
-                if GetClipboardtext <> "and turned off via toolbar" then
-                    Warnlog "It seems numbering isn't turned off"
-                end if
-        end select
-        call wTypeKeys ( "<Down><Home>" )
-    next i
-    '/// Close document
-    Call hCloseDocument
-endcase
-
-
-testcase tToolsNumbering10
-    Dim i as integer
-    printlog "Pressing <ENTER> key in an empty paragraph turns off numbering"
-    '/// Press <ENTER> key in an empty paragraph turns off numbering
-    '/// Open a new text docoument
-    Call hNewDocument
-    '/// Create a numbering
-    '/// Write in document '1. This numbering' followed by a return
-    call wTypeKeys "1. This numbering<Return>"
-    '/// +  write 'that will be automatically created' followed by a return
-    call wTypeKeys "that will be automatically created<RETURN>"
-    '/// + write 'and be turned off via return' followed by a return
-    call wTypeKeys ( "and turned off via return<RETURN>" )
-    '/// + enter <Return> to create an empty paragraph
-    call wTypeKeys ( "<Return>" )    
-    '/// Hit <Return> again should leave a numbering with 3 paragraphs
-    call wTypeKeys ( "No numbering anymore" )
-    call wTypeKeys ( "<Shift Home>" )
-    EditCopy
-    if GetClipboardtext <> "No numbering anymore" then
-        Warnlog "Seems numbering wasn't turned off !"
-    else
-        call wTypeKeys ( "<Mod1 Home>" )
-        For i = 1 to 3
-            if hIsNumberingBullets() = false then
-			    Warnlog "Seems numbering has been completely turned off"
-                exit for
-            end if
-            call wTypeKeys ( "<Down>" )
-        next i
-    end if
-
-    '/// Close document
-    Call hCloseDocument
-endcase
-
-
-testcase tToolsNumbering11
-    Dim i as integer, sVorlage as string
-    Dim sClipBrd() as string
-    printlog "Create an empty heading (Ouline numbering)"
-    '/// Create an empty heading (Ouline numbering)
-    '/// Open a new text document
-    Call hNewDocument
-	' Get name of 'Heading' (language dependent)
-    ToolsOutlineNumbering
-	Kontext
-	Active.SetPage TabKapitelnumerierung
-	Kontext "TabKapitelnumerierung"
-	sVorlage = Absatzvorlage.GetSelText
-	TabKapitelnumerierung.Cancel
-    
-    '/// Create a outline numbering
-    ' Numbering of outlines will not be copied to clipboard
-    ' so we use the Field 'Chapter' which does
-    for i = 1 to 3
-        InsertFieldsOther
-        Kontext
-        Active.Setpage TabDokumentFeldbefehle
-        Kontext "TabDokumentFeldbefehle"
-        try
-            Feldtyp.Select fGetType("Chapter")
-            wait 500
-            Select Case iSprache
-                Case 7      :Formatliste.Select 3    'Chapternumber
-                Case else   :Formatliste.Select 2    'Chapternumber
-            end select
-        catch
-            Warnlog "Unable to select field 'chapter'"
-            TabDokumentFeldbefehle.Close
-            Call hCloseDocument
-            goto endsub
-        endcatch
-        Einfuegen.Click
-        TabDokumentFeldbefehle.Close
-        
-        Select Case i
-            Case 1
-                '/// Insert some text 'A new first paragraph' followed by a return
-                call wTypeKeys ( "A new first paragraph<RETURN>" )
-            Case 2
-                '/// Insert an empty paragraph
-                call wTypeKeys ( "<RETURN>" )
-            Case 3
-                '/// Insert some text 'A new third paragraph'
-                call wTypeKeys ( "A new third paragraph" )
-        end select
-    next i
-	'/// Select all text
-    call wTypeKeys ( "<MOD1 A>" )
-    '/// Set Style 'Heading 1'
-	Call wStyleSet ( sVorlage )
-	'/// Activate Numbering/Bullets via Objectbar
-	Call hToolbarSelect("BulletsAndNumbering", true)
-	'/// Create a numbering
-	Kontext "NumObjectbar"
-	if Not NumObjectbar.Exists then
-		Warnlog "Numbering/Bullets objectbar not accessible"
-		Call hCloseDocument
-		goto endsub
-	end if
-	NumberingOnOff.Click
-    '/// Check if second paragraph is empty but numbered
-    
-    EditCopy
-    Select Case gPlatGroup
-        Case "unx"
-            sClipBrd() = Split (GetClipboardText, CHR$(10))
-        Case else
-            sClipBrd() = Split (GetClipboardText, CHR$(13) & CHR$(10))
-    end select
-    
-    For i = 1 to 3
-        Select Case i
-            Case 1
-                if sClipBrd(0) <> "1 1A new first paragraph" then
-                    Warnlog "First Heading not: '1 1A new first paragraph' but: " &  sClipBrd(0)
-                end if
-            Case 2
-                if sClipBrd(1) <> "2 2" then
-                    Warnlog "First paragraph not '2 2' but: " & sClipBrd(1)
-                end if
-            Case 3
-                if sClipBrd(2) <> "3 3A new third paragraph" then
-                    Warnlog "First paragraph not '3 3A new third paragraph' but: " & sClipBrd(2)
-                end if
-        end select
-    next i
-    
-    '/// Close document
-    Call hCloseDocument
-endcase
diff --git a/testautomation/writer/optional/includes/number/w_207_.inc b/testautomation/writer/optional/includes/number/w_207_.inc
deleted file mode 100644
index 1836987718e1..000000000000
--- a/testautomation/writer/optional/includes/number/w_207_.inc
+++ /dev/null
@@ -1,178 +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 : helge.delfs@oracle.com
-'*
-'* short description : Testing Number and Bullets
-'*
-'\***********************************************************************
-
-sub w_207_
-
-    Call tToolsNumbering12
-    Call tToolsNumbering13
-
-end sub
-
-'------------------------------------------------------------------------------------------------------------------------
-
-testcase tToolsNumbering12
-
-    printlog "Import / Export Regression Test"
-    '/// Import / Export Regression-Test
-    Dim DocFileList( 30 ) as String, sCurrentFilter as string
-    Dim sSourcePath as String, sCurrentFilterExt as string
-    Dim iCurrentDocument as Integer
-    Dim iDocumentType as Integer
-    Dim ExportFileName as string
-
-    ReDim DocFileList( 30 ) as String
-    
-    '/// load all documents from  "sun_writer\optional\input\number\regression"
-    sSourcePath = convertpath( gTesttoolPath & "writer\optional\input\number\regression\" )
-    GetFileList ( sSourcePath, "*.*", DocFileList() )
-    hListPrint( DocFileList(), "Files to be loaded" ) 
-
-    printlog( "Start loading and exporting files" )
-    for iCurrentDocument = 1 to ListCount ( DocFileList() )
-        printlog( "File: " & DocFileList( iCurrentDocument ) )
-		For iDocumentType = 1 to 3
-			Select Case iDocumentType
-				Case 1
-					sCurrentFilter = "writer8" 'gWriterFilter
-                    sCurrentFilterExt = "odt" 'WriterFilterExtension(0)
-				Case 2
-					sCurrentFilter = "StarOffice XML (Writer)" 'hGetUIFiltername("StarOffice XML (Writer)") & " (.sxw)"
-					sCurrentFilterExt = "sxw"
-                Case 3
-					sCurrentFilter = "StarWriter 5.0" 'StarWriter 5.0 (.sdw)
-					sCurrentFilterExt = "sdw"
-            end select
-
-            printlog( "Open file: " & DocFileList( iCurrentDocument ) )
-			hFileOpenLocally(  DocFileList( iCurrentDocument ) )
-
-            printlog( "Make a copy if the file is write protected" )
-            
-
-            printlog( "Test for unexpected dialog: Filter Selection" )
-			Kontext "Filterauswahl"
-			if ( Filterauswahl.Exists( 1 ) ) then
-				Warnlog "  - Filter Selection dialog is up !"
-				Filterauswahl.Cancel
-				hFileCloseAll()
-				goto endsub
-			endif
-
-            printlog( "Test for unexpected dialog: ASCII Filter Options" )
-			Kontext "AsciiFilterOptionen"
-			if ( AsciiFilterOptionen.Exists() ) then 
-				AsciiFilterOptionen.Ok
-				hFileCloseAll()
-				goto endsub
-		    endif
-			
-			printlog( "Allow macro execution (if general setting permit" )
-			hAllowMacroExecution()
-
-			'/// check if loaded
-			if ( GetDocumentCount <= 2 ) then
-				ExportFileName = ConvertPath ( gOfficePath & "user\work\" & _
-				                 DateiOhneExt(DateiExtract ( DocFileList( iCurrentDocument )  ) ) & _
-				                 "." & sCurrentFilterExt )
-				hDeleteFile( ExportFileName ) ' There should never be a reason to overwrite 
-
-                ' Binary export filter was removed
-                if iDocumentType < 3 then
-                    printlog "  - export as: " & ExportFileName
-                    Call hFileSaveAsWithFilter( ExportFileName, sCurrentFilter )
-                    Call hCloseDocument
-
-                    printlog "  - load previous saved document"
-                    hFileOpen(  ExportFileName )
-                endif
-
-				printlog "  - close document"
-				hFileCloseAll()
-			else
-            	Warnlog "  - Doc probably didn't get loaded !!!"
-			end if
-		next iDocumentType
-    next iCurrentDocument
-    
-endcase
-
-'------------------------------------------------------------------------------------------------------------------------
-
-testcase tToolsNumbering13
-
-    Dim i as integer, iCounter as integer
-    '/// #i73790 Regression testing 
-    '/// This testcase loads a Worddocument that lost all formatting
-    printlog "#i73790 regression testing"
-    '/// Load document 'writer\\optional\\input\\number\\regression\\73790.doc'
-    hFileOpenLocally(  gTesttoolPath + "writer\optional\input\number\regression\73790.doc" )
-    
-    '/// Document has Heading1-Heading3 formatted, be sure it is
-    call wTypeKeys ("<Mod1 Home>")
-    '/// Point cursor to top of document with <STRG HOME>
-    Select Case iSprache
-		case 01 : iCounter = 2
-		case 03 : iCounter = 1
-		case 07 : iCounter = 2
-		case 31 : iCounter = 1
-		case 33 : iCounter = 3
-		case 34 : iCounter = 2
-		case 36 : iCounter = 2
-		case 39 : iCounter = 2
-		case 45 : iCounter = 1
-		case 46 : iCounter = 2
-		case 48 : iCounter = 2
-		case 49 : iCounter = 3
-		case 55 : iCounter = 3
-		case 81 : iCounter = 3
-		case 82 : iCounter = 1
-		case 86 : iCounter = 1
-		case 88 : iCounter = 3
-		case else : iCounter = 2
-	end select
-	For i = 1 to 3
-        call wTypeKeys ("<Shift End>")
-        '/// Select first to third entry and check it i formatted with 'Heading1','Heading2','Heading3'
-        Kontext "Textobjectbar"
-        if Vorlage.GetSelIndex <> ( i + iCounter ) then
-            Warnlog "Heading " & i & " not " & ( i + iCounter ) & " but " & Vorlage.GetSelIndex
-        end if
-        call wTypeKeys ( "<Home>" )
-        call wTypeKeys ( "<Down>" )
-    next i
-
-    printlog "  Close active document "
-    Do Until GetDocumentCount = 0
-        Call hCloseDocument
-    Loop
-endcase
diff --git a/testautomation/writer/optional/includes/option/wh_o_1.inc b/testautomation/writer/optional/includes/option/wh_o_1.inc
deleted file mode 100644
index 4eb667c7dc19..000000000000
--- a/testautomation/writer/optional/includes/option/wh_o_1.inc
+++ /dev/null
@@ -1,642 +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 : helge.delfs@oracle.com
-'*
-'* short description : HTML-Options
-'*
-'\***********************************************************************
-
-sub wh_o_1
-
-    printLog Chr(13) + "---------    Options   - Tools HTML -    ----------"
-
-    Call tToolsOptionsHTMLContent
-    Call tToolsOptionsHTMLLayout  'wrn:1
-    Call tToolsOptionsHTMLGrid    'wrn:4
-
-end sub
-
-'------------------------------------------------------------------------------
-testcase tToolsOptionsHTMLContent
-
-    Dim bCheckboxStatus(17) as boolean
-
-    printlog "tToolsOptionsHTMLContent datei erstellen zum laden"
-    '/// uses "input\\writer\\optional\\options\\options1.sxw"  ///
-    '///+ Created Dokument with everything on ///'
-    Call hNewDocument
-
-    printlog "'///- Tools/Options/HTML: Content ///"
-
-    printlog ("'/// - save states ///")
-    ToolsOptions
-    Call hToolsOptions ("HTML","View")
-
-    bCheckboxStatus(1) = GrafikenUndObjekte.IsChecked
-    bCheckboxStatus(3) = Zeichnungen.IsChecked
-    bCheckboxStatus(4) = Feldnamen.IsChecked
-    bCheckboxStatus(5) = Notizen.IsChecked
-
-    'bCheckboxStatus(9) = Felder.IsChecked
-
-    printlog ("'/// - all states inverting ///")
-
-    if bCheckboxStatus(1) Then GrafikenUndObjekte.UnCheck Else GrafikenUndObjekte.Check
-    if bCheckboxStatus(3) Then Zeichnungen.UnCheck Else Zeichnungen.Check
-    if bCheckboxStatus(4) Then Feldnamen.UnCheck Else Feldnamen.Check
-    if bCheckboxStatus(5) Then Notizen.UnCheck Else Notizen.Check
-    
-    'if bCheckboxStatus(9) Then Felder.UnCheck Else Felder.Check
-    
-    Kontext "ExtrasOptionenDlg"
-    ExtrasOptionenDlg.OK
-    
-    printlog ("'/// - SO quit - start ///")
-    
-    Call wOfficeRestart
-    
-    printlog ("'/// - checking states ///")
-    ToolsOptions
-    Call hToolsOptions ( "HTML","View" )
-    
-    if ( bCheckboxStatus(1) = GrafikenUndObjekte.IsChecked ) Then WarnLog "Grafiken state changed"
-    if ( bCheckboxStatus(3) = Zeichnungen.IsChecked  ) Then WarnLog "Zeichnungen state changed"
-    if ( bCheckboxStatus(4) = Feldnamen.IsChecked  ) Then  WarnLog "Feldnamen state changed"
-    if ( bCheckboxStatus(5) = Notizen.IsChecked  ) Then  WarnLog "Notizen state changed"
-    
-    printlog ("'/// - all UnCheck -> o ///")
-    
-    GrafikenUndObjekte.UnCheck
-    Zeichnungen.UnCheck
-    Feldnamen.UnCheck
-    Notizen.UnCheck
-    
-    'Felder.UnCheck
-    
-    Kontext "ExtrasOptionenDlg"
-    ExtrasOptionenDlg.OK
-    
-    printlog ("'/// - check if all UnChecked ///")
-    ToolsOptions
-    hToolsOptions ( "HTML","View" )
-    
-    if GrafikenUndObjekte.IsChecked Then WarnLog "Grafiken x"
-    if Zeichnungen.IsChecked Then WarnLog "Zeichnungen x"
-    if Feldnamen.IsChecked Then  WarnLog "Feldnamen x"
-    if Notizen.IsChecked Then  WarnLog "Notizen x"
-    
-    Printlog ("'/// - all Check -> x ///")
-    GrafikenUndObjekte.Check
-    Zeichnungen.Check
-    Feldnamen.Check
-    Notizen.Check
-    
-    Kontext "ExtrasOptionenDlg"
-    ExtrasOptionenDlg.OK
-    
-    printlog ("'/// - check if all Checked ///")
-    ToolsOptions
-    Call hToolsOptions ( "HTML","View" )
-    
-    if true <> GrafikenUndObjekte.IsChecked Then WarnLog "Grafiken o"
-    if True <> Zeichnungen.IsChecked Then WarnLog "Zeichnungen o"
-    if True <> Feldnamen.IsChecked Then  WarnLog "Feldnamen o"
-    if True <> Notizen.IsChecked Then  WarnLog "Notizen o"
-    
-    printlog ("'/// - restore states ///")    
-    if ( bCheckboxStatus(1) = TRUE ) Then  GrafikenUndObjekte.Check Else GrafikenUndObjekte.UnCheck
-    if ( bCheckboxStatus(3) = TRUE ) Then  Zeichnungen.Check Else Zeichnungen.UnCheck
-    if ( bCheckboxStatus(4) = TRUE ) Then  Feldnamen.Check Else Feldnamen.UnCheck
-    if ( bCheckboxStatus(5) = TRUE ) Then  Notizen.Check Else Notizen.UnCheck
-    
-    Kontext "ExtrasOptionenDlg"
-    ExtrasOptionenDlg.OK
-    
-    Do Until GetDocumentCount = 0
-        Call hCloseDocument
-    Loop
-endcase
-
-'------------------------------------------------------------------------------
-testcase tToolsOptionsHTMLLayout
-    Dim bCheckboxStatus(11) as boolean
-    Dim iMasseinheit(3) as integer
-    Dim iTemp(3) as integer
-    '///Open "writer\\optional\\input\\options\\options1.sxw ///
-    hFileOpenLocally(  gTesttoolPath + "writer\optional\input\options\options1.sxw" )
-    
-    
-    printlog "'///- Tools/Options/Writer: View ///"
-    ToolsOptions
-    Call hToolsOptions ( "HTML" , "VIEW" ) '*TabLayoutHTML/ (1)
-    
-    bCheckboxStatus(1) = Hilfslinien.IsChecked
-    bCheckboxStatus(2) = FarbigeHandles.IsChecked
-    bCheckboxStatus(3) = GrosseHandles.IsChecked
-    bCheckboxStatus(4) = HorizontaleBildlaufleiste.IsChecked
-    bCheckboxStatus(5) = VertikaleBildlaufleiste.IsChecked
-    bCheckboxStatus(10) = Lineal.IsChecked
-    bCheckboxStatus(6) = HorizontalesLineal.IsChecked
-    bCheckboxStatus(7) = VertikalesLineal.IsChecked
-    bCheckboxStatus(8) = WeichesScrollen.IsChecked
-    
-    iMasseinheit(2) = HorizontalesLinealMasseinheit.GetSelIndex
-    iMasseinheit(3) = VertikalesLinealMasseinheit.GetSelIndex
-    
-    printlog ("'/// - all states inverting ///")
-    
-    'this one has 2 places:  ViewTextBoundaries
-    if bCheckboxStatus(1) Then Hilfslinien.UnCheck               Else Hilfslinien.Check
-    if bCheckboxStatus(2) Then FarbigeHandles.UnCheck            Else FarbigeHandles.Check
-    if bCheckboxStatus(3) Then GrosseHandles.UnCheck             Else GrosseHandles.Check
-    
-    'this one has 2 places:   ViewRuler
-    if bCheckboxStatus(4) Then HorizontaleBildlaufleiste.UnCheck Else HorizontaleBildlaufleiste.Check
-    if bCheckboxStatus(5) Then VertikaleBildlaufleiste.UnCheck   Else VertikaleBildlaufleiste.Check
-    if bCheckboxStatus(10) then Lineal.UnCheck  Else Lineal.Check ' has to be checked to enable Horizontal and Vertical Ruler
-    if Lineal.IsChecked then
-        if bCheckboxStatus(6) Then HorizontalesLineal.UnCheck        Else HorizontalesLineal.Check
-        if bCheckboxStatus(7) Then VertikalesLineal.UnCheck          Else VertikalesLineal.Check
-        if ( HorizontalesLinealMasseinheit.GetItemCount <> iMasseinheit(2) ) Then HorizontalesLinealMasseinheit.Select (HorizontalesLinealMasseinheit.GetItemCount) Else HorizontalesLinealMasseinheit.Select (1)
-        if ( VertikalesLinealMasseinheit.GetItemCount <> iMasseinheit(3) ) Then VertikalesLinealMasseinheit.Select (VertikalesLinealMasseinheit.GetItemCount) Else VertikalesLinealMasseinheit.Select (1)
-        iTemp(2) = HorizontalesLinealMasseinheit.GetSelIndex
-        iTemp(3) = VertikalesLinealMasseinheit.GetSelIndex
-        '/// if Asian Language enabled there has to be a checkbox 'Right-aligned' for 'Vertical-Ruler' ///
-        if gAsianSup = True and VertikalesLineal.IsChecked = True then
-            if RechtsAusgerichtet.IsVisible = True then
-                if bCheckboxStatus(9) Then RechtsAusgerichtet.Uncheck  Else RechtsAusgerichtet.Check
-            else
-                Warnlog "- Checkbox 'Right-aligned' is not visible !"
-            end if
-        end if
-    end if
-    if bCheckboxStatus(8) Then WeichesScrollen.UnCheck           Else WeichesScrollen.Check
-    
-    Kontext "ExtrasOptionenDlg"
-    ExtrasOptionenDlg.OK
-    
-    printlog ("'/// - SO quit - start ///")
-    
-    Call wOfficeRestart
-    
-    printlog ("'/// - checking states ///" )
-    ToolsOptions
-    Call hToolsOptions ( "HTML" , "VIEW" ) '*TabLayoutHTML/ (1)
-    
-    if ( bCheckboxStatus(1) = Hilfslinien.IsChecked               ) Then WarnLog "Hilfslinien state changed"
-    if ( bCheckboxStatus(2) = FarbigeHandles.IsChecked            ) Then WarnLog "FarbigeHandles state changed"
-    if ( bCheckboxStatus(3) = GrosseHandles.IsChecked             ) Then WarnLog "GrosseHandles state changed"
-    if ( bCheckboxStatus(4) = HorizontaleBildlaufleiste.IsChecked ) Then WarnLog "HorizontaleBildlaufleiste state changed"
-    if ( bCheckboxStatus(5) = VertikaleBildlaufleiste.IsChecked   ) Then WarnLog "VertikaleBildlaufleiste state changed"
-    if ( bCheckboxStatus(8) = WeichesScrollen.IsChecked          ) Then WarnLog "WeichesScrollen state changed"
-    if ( bCheckboxStatus(10) = Lineal.IsChecked ) Then
-        WarnLog "Ruler state changed"
-        if ( bCheckboxStatus(6) = HorizontalesLineal.IsChecked        ) Then WarnLog "HorizontalesLineal state changed"
-        if ( bCheckboxStatus(7) = VertikalesLineal.IsChecked         ) Then WarnLog "VertikalesLineal state changed"
-        if ( HorizontalesLinealMasseinheit.GetSelIndex <> iTemp(2) ) Then WarnLog "HorizontalesLinealMasseinheit state changed"
-        if ( VertikalesLinealMasseinheit.GetSelIndex <> iTemp(3) ) Then WarnLog "VertikalesLinealMasseinheit   state changed"
-    
-        if gAsianSup = True and VertikalesLineal.IsChecked = True then
-            if RechtsAusgerichtet.IsVisible = True then
-                if bCheckboxStatus(9) = RechtsAusgerichtet.IsChecked then WarnLog "Right-aligned state changed"
-            else
-                Warnlog "- Checkbox 'Right-aligned' is not visible !"
-            end if
-        end if
-    end if
-    
-    printlog ("'/// - all UnCheck -> o ///")
-    Hilfslinien.UnCheck
-    FarbigeHandles.UnCheck
-    GrosseHandles.UnCheck
-    
-    HorizontaleBildlaufleiste.UnCheck
-    VertikaleBildlaufleiste.UnCheck
-    Lineal.Check
-    HorizontalesLineal.UnCheck
-    if gAsianSup = True then
-        VertikalesLineal.Check
-        RechtsAusgerichtet.Uncheck
-    end if
-    VertikalesLineal.Uncheck
-    HorizontalesLinealMasseinheit.Select (1)
-    VertikalesLinealMasseinheit.Select (1)
-    Lineal.Uncheck
-    WeichesScrollen.Uncheck
-    
-    Kontext "ExtrasOptionenDlg"
-    ExtrasOptionenDlg.OK
-    
-    ViewTextBoundaries
-    ViewRuler
-   
-    printlog ("'/// - check if all UnChecked ///")
-    ToolsOptions
-    Call hToolsOptions ( "HTML" , "VIEW" ) '*TabLayoutHTML/ (1)
-    if Hilfslinien.IsChecked               Then WarnLog "Hilfslinien x"
-    if FarbigeHandles.IsChecked            Then WarnLog "FarbigeHandles x"
-    if GrosseHandles.IsChecked             Then WarnLog "GrosseHandles x"
-    
-    if HorizontaleBildlaufleiste.IsChecked Then WarnLog "HorizontaleBildlaufleiste x"
-    if VertikaleBildlaufleiste.IsChecked   Then WarnLog "VertikaleBildlaufleiste x"
-    if HorizontalesLineal.IsChecked        Then WarnLog "HorizontalesLineal x/ ViewRuler"
-    if VertikalesLineal.IsChecked          Then WarnLog "VertikalesLineal x"
-    if WeichesScrollen.IsChecked           Then WarnLog "WeichesScrollen x"
-    if gAsianSup=True then
-        if RechtsAusgerichtet.IsVisible = True then
-            if RechtsAusgerichtet.IsEnabled = True then WarnLog "Right-aligned checkbox is enabled"
-        else
-            Warnlog "- Checkbox 'Right-aligned' is not visible !"
-        end if
-    end if
-    
-    if ( HorizontalesLinealMasseinheit.GetSelIndex <> 1 ) Then WarnLog "HorizontalesLinealMasseinheit is not item 1"
-    if ( VertikalesLinealMasseinheit.GetSelIndex <> 1 ) Then WarnLog "VertikalesLinealMasseinheit   is not item 1"
-    
-    Printlog ("'/// - all Check -> x ///")
-    Hilfslinien.Check
-    FarbigeHandles.Check
-    GrosseHandles.Check
-    Lineal.Check
-    HorizontaleBildlaufleiste.Check
-    VertikaleBildlaufleiste.Check
-    HorizontalesLineal.Check
-    VertikalesLineal.Check
-    WeichesScrollen.Check
-    
-    HorizontalesLinealMasseinheit.Select (2)
-    VertikalesLinealMasseinheit.Select (2)
-    itemp(2) = HorizontalesLinealMasseinheit.GetSelIndex
-    itemp(3) = VertikalesLinealMasseinheit.GetSelIndex
-    
-    Kontext "ExtrasOptionenDlg"
-    ExtrasOptionenDlg.OK
-    
-    ViewTextBoundaries   ' see here :-)
-    ViewRuler
-    
-    printlog ("'/// - check if all Checked ///")
-    ToolsOptions
-    Call hToolsOptions ( "HTML" , "VIEW" ) '*TabLayoutHTML/ (1)
-    if True <> Hilfslinien.IsChecked               Then WarnLog "Hilfslinien o"
-    if True <> FarbigeHandles.IsChecked            Then WarnLog "FarbigeHandles o"
-    if True <> GrosseHandles.IsChecked             Then WarnLog "GrosseHandles o"
-    
-    if True <> HorizontaleBildlaufleiste.IsChecked Then WarnLog "HorizontaleBildlaufleiste o"
-    if True <> VertikaleBildlaufleiste.IsChecked   Then WarnLog "VertikaleBildlaufleiste o"
-    if True <> HorizontalesLineal.IsChecked        Then WarnLog "HorizontalesLineal o/      ViewRuler"
-    if True <> VertikalesLineal.IsChecked          Then WarnLog "VertikalesLineal o"
-    if True <> WeichesScrollen.IsChecked           Then WarnLog "WeichesScrollen o"
-    
-    if ( HorizontalesLinealMasseinheit.GetSelIndex <> iTemp(2) ) Then WarnLog "HorizontalesLinealMasseinheit is not item " + iTemp(2) + " it's: " + HorizontalesLinealMasseinheit.GetSelIndex
-    if ( VertikalesLinealMasseinheit.GetSelIndex <> iTemp(3) ) Then WarnLog "VertikalesLinealMasseinheit   is not item " + iTemp(3) + " it's: " + VertikalesLinealMasseinheit.GetSelIndex
-    
-    Kontext "ExtrasOptionenDlg"
-    ExtrasOptionenDlg.Cancel
-    
-    '------------------------------------------------------------------
-    printlog "'/// Lines Visibility Test ///'"
-    Call hNewDocument
-    
-    ' Table insert
-    InsertTableWriter
-    Kontext "TabelleEinfuegenWriter"
-    TabelleEinfuegenWriter.OK
-    
-    ' changing linewidth to 0
-    FormatTable
-    Kontext
-    active.SetPage TabUmrandung
-    Kontext "TabUmrandung"
-    Stil.Select 1
-    'Stil.Typekeys "<home>"
-    TabUmrandung.Ok
-    sleep (3)
-    
-    ' insert graphic
-    Kontext "DocumentWriter"
-    DocumentWriter.TypeKeys "<down>"
-    DocumentWriter.TypeKeys "<down>"
-    
-    Call hGrafikEinfuegen gTesttoolPath + "writer\optional\input\options\ga000907.gif"
-    
-    ' see everything
-    ToolsOptions
-    Call hToolsOptions ( "HTML" , "VIEW" )
-    
-    '///' Hilfslinien.Check only, when graphic's in motion! ///'
-    FarbigeHandles.Check
-    GrosseHandles.Check
-    Kontext "ExtrasOptionenDlg"
-    ExtrasOptionenDlg.Ok
-    
-    ToolsOptions
-    Call hToolsOptions ( "HTML" , "VIEW" )
-    FarbigeHandles.UnCheck
-    GrosseHandles.UnCheck
-    Kontext "ExtrasOptionenDlg"
-    ExtrasOptionenDlg.Ok
-    
-    Call hCloseDocument
-    
-    ToolsOptions
-    Call hToolsOptions ( "HTML" , "VIEW" )
-    
-    if ( bCheckboxStatus(1) =  TRUE ) Then  Hilfslinien.Check               Else Hilfslinien.UnCheck
-    if ( bCheckboxStatus(2) =  TRUE ) Then  FarbigeHandles.Check            Else FarbigeHandles.UnCheck
-    if ( bCheckboxStatus(3) =  TRUE ) Then  GrosseHandles.Check             Else GrosseHandles.UnCheck
-    
-    if ( bCheckboxStatus(4) =  TRUE ) Then  HorizontaleBildlaufleiste.Check Else HorizontaleBildlaufleiste.UnCheck
-    if ( bCheckboxStatus(5) =  TRUE ) Then  VertikaleBildlaufleiste.Check   Else VertikaleBildlaufleiste.UnCheck
-    Lineal.Check
-    if ( bCheckboxStatus(6) =  TRUE ) Then  HorizontalesLineal.Check        Else HorizontalesLineal.UnCheck
-    if ( bCheckboxStatus(7) = TRUE ) Then  VertikalesLineal.Check          Else VertikalesLineal.UnCheck
-    HorizontalesLinealMasseinheit.Select (iMasseinheit(2))
-    VertikalesLinealMasseinheit.Select (iMasseinheit(3))
-    
-    if ( bCheckboxStatus(8) = TRUE ) Then  WeichesScrollen.Check           Else WeichesScrollen.UnCheck
-    
-    Kontext "ExtrasOptionenDlg"
-    ExtrasOptionenDlg.OK
-    
-    Do Until GetDocumentCount = 0
-        Call hCloseDocument
-    Loop
-endcase
-
-'------------------------------------------------------------------------------
-testcase tToolsOptionsHTMLGrid
-
-    Dim bCheckboxStatus(3) as boolean
-    Dim sMetricField(4) as string      ' MetricField
-    Dim sTempMetricField(4) as string
-        
-    '/// uses: "writer\\optional\\input\\options\\options1.sxw" ///
-    hFileOpenLocally(  gTesttoolPath + "writer\optional\input\options\options1.sxw" )
-    
-   
-    printlog "'///- Tools/Options/HTML: Grid ///"
-    printlog ("'/// - save states ///")
-    
-    ToolsOptions
-    Call hToolsOptions ( "HTML","Grid" )
-    
-    printlog ("'///TabRaster all UnCheck ! ///")
-    
-    bCheckboxStatus(1) = FangrasterBenutzen.IsChecked
-    bCheckboxStatus(2) = RasterSichtbar.IsChecked
-    bCheckboxStatus(3) = AchsenSynchronisieren.IsChecked
-    
-    sMetricField(1) = RasterAufloesungXAchse.GetText
-    sMetricField(2) = RasterAufloesungYAchse.GetText
-    sMetricField(3) = RasterUnterteilungXAchse.GetText
-    sMetricField(4) = RasterUnterteilungYAchse.GetText
-    
-    printlog ("'/// - all states inverting ///")
-    
-    if bCheckboxStatus(1) Then FangrasterBenutzen.UnCheck    Else FangrasterBenutzen.Check
-    if bCheckboxStatus(2) Then RasterSichtbar.UnCheck        Else RasterSichtbar.Check
-    '      if bCheckboxStatus(3) Then AchsenSynchronisieren.UnCheck Else AchsenSynchronisieren.Check
-    '   this CheckBox interacts with the MetricBoxes:
-    AchsenSynchronisieren.UnCheck
-    
-    sTempMetricField(1) = RasterAufloesungXAchse.GetText
-    sTempMetricField(2) = RasterAufloesungYAchse.GetText
-    sTempMetricField(3) = RasterUnterteilungXAchse.GetText
-    sTempMetricField(4) = RasterUnterteilungYAchse.GetText
-    RasterAufloesungXAchse.ToMax
-    RasterAufloesungYAchse.ToMin
-    RasterUnterteilungXAchse.ToMin
-    RasterUnterteilungYAchse.ToMax
-    if ( RasterAufloesungXAchse.GetText =   sTempMetricField(1) ) Then RasterAufloesungXAchse.ToMin
-    if ( RasterAufloesungYAchse.GetText =   sTempMetricField(2) ) Then RasterAufloesungYAchse.ToMax
-    if ( RasterUnterteilungXAchse.GetText = sTempMetricField(3) ) Then RasterUnterteilungXAchse.ToMax
-    if ( RasterUnterteilungYAchse.GetText = sTempMetricField(4) ) Then RasterUnterteilungYAchse.ToMin
-    sTempMetricField(1) = RasterAufloesungXAchse.GetText
-    sTempMetricField(2) = RasterAufloesungYAchse.GetText
-    sTempMetricField(3) = RasterUnterteilungXAchse.GetText
-    sTempMetricField(4) = RasterUnterteilungYAchse.GetText
-    
-    Kontext "ExtrasOptionenDlg"
-    ExtrasOptionenDlg.OK
-    
-    printlog ("'/// - SO quit - start///" )
-    
-    Call wOfficeRestart
-    
-    printlog ("'/// - checking states ///")
-    ToolsOptions
-    Call hToolsOptions ( "HTML","Grid" )
-    
-    if (bCheckboxStatus(1) = FangrasterBenutzen.IsChecked    ) Then WarnLog "FangrasterBenutzen state changed BugID: 82944 "
-    if (bCheckboxStatus(2) = RasterSichtbar.IsChecked        ) Then WarnLog "RasterSichtbar state changed"
-    if ( AchsenSynchronisieren.IsChecked = TRUE ) Then WarnLog "AchsenSynchronisieren state changed"
-    if ( RasterAufloesungXAchse.GetText <>   sTempMetricField(1) ) Then WarnLog "RasterAufloesungXAchse state changed"
-    if ( RasterAufloesungYAchse.GetText <>   sTempMetricField(2) ) Then WarnLog "RasterAufloesungYAchse state changed"
-    if ( RasterUnterteilungXAchse.GetText <> sTempMetricField(3) ) Then WarnLog "RasterUnterteilungXAchse state changed"
-    if ( RasterUnterteilungYAchse.GetText <> sTempMetricField(4) ) Then WarnLog "RasterUnterteilungYAchse state changed"
-    
-    Kontext "ExtrasOptionenDlg"
-    ExtrasOptionenDlg.OK
-    
-    printlog ("'/// - all UnCheck -> o ///")
-    ToolsOptions
-    Call hToolsOptions ( "HTML","Grid" )
-    
-    FangrasterBenutzen.UnCheck
-    RasterSichtbar.UnCheck
-    AchsenSynchronisieren.UnCheck
-    RasterAufloesungXAchse.ToMin
-    RasterAufloesungYAchse.ToMin
-    RasterUnterteilungXAchse.ToMin
-    RasterUnterteilungYAchse.ToMin
-    sTempMetricField(1) = RasterAufloesungXAchse.GetText
-    sTempMetricField(2) = RasterAufloesungYAchse.GetText
-    sTempMetricField(3) = RasterUnterteilungXAchse.GetText
-    sTempMetricField(4) = RasterUnterteilungYAchse.GetText
-    printlog ("'/// More test ///'")
-    RasterAufloesungXAchse.More
-    RasterAufloesungYAchse.More
-    RasterUnterteilungXAchse.More
-    RasterUnterteilungYAchse.More
-    if ( sTempMetricField(1) = RasterAufloesungXAchse.GetText   ) Then WarnLog "RasterAufloesungXAchse  More-Button not working"
-    if ( sTempMetricField(2) = RasterAufloesungYAchse.GetText   ) Then WarnLog "RasterAufloesungYAchse  More-Button not working"
-    if ( sTempMetricField(3) = RasterUnterteilungXAchse.GetText ) Then WarnLog "RasterUnterteilungXAchse More-Button not working"
-    if ( sTempMetricField(4) = RasterUnterteilungYAchse.GetText ) Then WarnLog "RasterUnterteilungYAchse More-Button not working"
-    sTempMetricField(1) = RasterAufloesungXAchse.GetText
-    sTempMetricField(2) = RasterAufloesungYAchse.GetText
-    sTempMetricField(3) = RasterUnterteilungXAchse.GetText
-    sTempMetricField(4) = RasterUnterteilungYAchse.GetText
-    
-    Kontext "ExtrasOptionenDlg"
-    ExtrasOptionenDlg.OK
-    
-    printlog ("'/// - check if all UnChecked ///")
-    ToolsOptions
-    Call hToolsOptions ( "HTML","Grid" )
-    
-    if FangrasterBenutzen.IsChecked     Then WarnLog "FangrasterBenutzen x"
-    if RasterSichtbar.IsChecked         Then WarnLog "RasterSichtbar x"
-    if AchsenSynchronisieren.IsChecked  Then WarnLog "AchsenSynchronisieren x"
-    if ( RasterAufloesungXAchse.GetText <>   sTempMetricField(1) ) Then WarnLog "RasterAufloesungXAchse is not min."
-    if ( RasterAufloesungYAchse.GetText <>   sTempMetricField(2) ) Then WarnLog "RasterAufloesungYAchse is not min."
-    if ( RasterUnterteilungXAchse.GetText <> sTempMetricField(3) ) Then WarnLog "RasterUnterteilungXAchse is not min."
-    if ( RasterUnterteilungYAchse.GetText <> sTempMetricField(4) ) Then WarnLog "RasterUnterteilungYAchse is not min."
-    
-    Printlog (" - all Check -> x")
-    
-    FangrasterBenutzen.Check
-    RasterSichtbar.Check
-    AchsenSynchronisieren.Check
-    
-    '///' Synchronize axes check -------------------- ///'
-    RasterAufloesungXAchse.ToMax
-    wait 500
-    sTempMetricField(1) = RasterAufloesungXAchse.GetText
-    if RasterAufloesungYAchse.GetText <> sTempMetricField(1) then Warnlog "Y-axis res. differs from X-axis"
-    RasterUnterteilungXAchse.ToMax
-    wait 500
-    sTempMetricField(3) = RasterUnterteilungXAchse.GetText
-    if RasterUnterteilungYAchse.GetText <> sTempMetricField(3) then Warnlog "Y-axis sub. differs from X-axis"
-    '--------------------------------------------
-    sTempMetricField(2) = RasterAufloesungYAchse.GetText
-    sTempMetricField(4) = RasterUnterteilungYAchse.GetText
-    
-    Kontext "ExtrasOptionenDlg"
-    ExtrasOptionenDlg.OK
-    
-    printlog ("'/// - check if all Checked ///")
-    ToolsOptions
-    Call hToolsOptions ( "HTML","Grid" )
-    
-    if True <> FangrasterBenutzen.IsChecked     Then WarnLog "FangrasterBenutzen o"
-    if True <> RasterSichtbar.IsChecked         Then WarnLog "RasterSichtbar o"
-    if True <> AchsenSynchronisieren.IsChecked  Then WarnLog "AchsenSynchronisieren o"
-    if ( RasterAufloesungXAchse.GetText <>   sTempMetricField(1) ) Then WarnLog "RasterAufloesungXAchse is not max.Bug 54934 in 01:"
-    if ( RasterAufloesungYAchse.GetText <>   sTempMetricField(2) ) Then WarnLog "RasterAufloesungYAchse is not max."
-    if ( RasterUnterteilungXAchse.GetText <> sTempMetricField(3) ) Then WarnLog "RasterUnterteilungXAchse is not max."
-    if ( RasterUnterteilungYAchse.GetText <> sTempMetricField(4) ) Then WarnLog "RasterUnterteilungYAchse is not max."
-    
-    Kontext "ExtrasOptionenDlg"
-    ExtrasOptionenDlg.Cancel
-	
-	sleep (4)
-    
-    '-------------------------------------------------------------------------------
-    printlog ("'/// Function Test: Grid Resolution ///'")
-    '///  ( gTesttoolPath + "writer\optional\input\options\gridtst.sxw" ) ///'
-    '/// NOT Possible Without <ALT> + <cursor> stuff :-((((( BugID: 84741 ///'
-    '/// uses"writer\optional\input\options\htmltag.html" ///
-    hFileOpenLocally(  gTesttoolPath + "writer\optional\input\options\htmltag.html" )
-    
-    
-    '/// check if writeable!///'
-    try
-        FormatStylist
-        FormatStylist
-    catch
-        '/// make writeable :-)///'
-        Kontext "Funktionsleiste"
-        Bearbeiten.click
-    endcatch
-    sleep (3)
-    
-    ' select grafik element
-    Call wNavigatorAuswahl(4,1)
-    ViewNavigator
-    sleep (2)
-    FormatGraphics
-    Kontext
-    Active.Setpage TabType
-    Kontext "TabType"
-    AnchorAtPage.Check
-    sleep (1)
-    if ( 0 <> StrToDouble (HorizontalBy.GetText)) Then WarnLog "HorizontalBy wrong presupposition != 0"
-    if ( 0 <> StrToDouble (VerticalBy.GetText)) Then WarnLog   "VerticalBy   wrong presupposition != 0"
-    TabType.OK
-    
-    ' change Grid Resolution
-    ToolsOptions
-    Call hToolsOptions ( "HTML","Grid" )
-    RasterAufloesungXAchse.SetText("2")
-    RasterAufloesungYAchse.SetText("3")
-    RasterUnterteilungXAchse.SetText("2")
-    RasterUnterteilungYAchse.SetText("3")
-    Kontext "ExtrasOptionenDlg"
-    ExtrasOptionenDlg.OK
-    
-    '/// move grafik with <Alt> + <up/down> ///'
-    '/// resulting step = resolution / subdivision ///'
-    Kontext "DocumentWriter"
-    DocumentWriter.TypeKeys "<Mod2 Down>"
-    DocumentWriter.TypeKeys "<Mod2 Right>"
-    DocumentWriter.TypeKeys "<Mod2 Up>"
-    DocumentWriter.TypeKeys "<Mod2 Left>"
-    DocumentWriter.TypeKeys "<Mod2 Right>"
-    DocumentWriter.TypeKeys "<Mod2 Down>"
-    
-    ' check if @ (1,1) Current-Measure-Unit :-)
-    Call wNavigatorAuswahl(4,1)
-    ViewNavigator
-    sleep (2)
-    FormatGraphics
-    Kontext
-    Active.Setpage TabType
-    Kontext "TabType"
-    AnchorAtPage.Check
-    sleep (1)
-    if ( 0 = StrToDouble (HorizontalBy.GetText)) Then
-        QAErrorLog "RasterAufloesungXAchse should be 1 is: " + HorizontalBy.GetText
-    end if
-    if ( 0 = StrToDouble (VerticalBy.GetText)) Then
-        QAErrorLog "RasterAufloesungYAchse should be 1 is: " + VerticalBy.GetText
-    end if
-    TabType.Cancel
-    Call hCloseDocument
-    '--------------------------------------------------
-    
-    printlog ("'/// - restore states ///")
-    ToolsOptions
-    Call hToolsOptions ( "HTML","Grid" )
-    
-    if ( bCheckboxStatus(1) =  TRUE ) Then FangrasterBenutzen.Check    Else FangrasterBenutzen.UnCheck
-    if ( bCheckboxStatus(2) =  TRUE ) Then RasterSichtbar.Check        Else RasterSichtbar.UnCheck
-    if ( bCheckboxStatus(3) =  TRUE ) Then AchsenSynchronisieren.Check Else AchsenSynchronisieren.UnCheck
-    RasterAufloesungXAchse.SetText   (sMetricField(1))
-    RasterAufloesungYAchse.SetText   (sMetricField(2))
-    RasterUnterteilungXAchse.SetText (sMetricField(3))
-    RasterUnterteilungYAchse.SetText (sMetricField(4))
-    
-    Kontext "ExtrasOptionenDlg"
-    ExtrasOptionenDlg.OK
-    
-    Do Until GetDocumentCount = 0
-        Call hCloseDocument
-    Loop
-endcase
-
diff --git a/testautomation/writer/optional/includes/option/wh_o_2.inc b/testautomation/writer/optional/includes/option/wh_o_2.inc
deleted file mode 100644
index 841af13dafec..000000000000
--- a/testautomation/writer/optional/includes/option/wh_o_2.inc
+++ /dev/null
@@ -1,485 +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 : helge.delfs@oracle.com
-'*
-'* short description : Functional-Tests for Tools - Options - Html - Print & Table
-'*
-'\***********************************************************************
-
-sub wh_o_2
-
-   Call tToolsOptionsHTMLPrint 'wrn:2
-   Call tToolsOptionsHTMLTable
-   Call tToolsOptionsHTMLTable1
-
-end sub
-
-'------------------------------------------------------------------------------
-testcase tToolsOptionsHTMLPrint
-
-    dim bCheckboxStatus(12) as boolean    ' Checkbox states
-    dim iListBox(1) as integer         ' ListBox
-    dim iTempListBox(1) as integer
-    dim bRadioBut(4) as boolean         ' RadioButtons
-    dim bTempRadioBut(4) as boolean
-
-    hFileOpenLocally(  gTesttoolPath + "writer\optional\input\options\test.html" )
-    
-    printlog "- Tools/Options/HTML: PrintHTML "
-
-    printlog (" - save states ")
-    ToolsOptions
-    Call hToolsOptions ("HTML","PRINT")
-
-    bCheckboxStatus(1) = Grafiken.IsChecked
-    bCheckboxStatus(2) = Kontrollfelder.IsChecked
-    bCheckboxStatus(3) = Hintergrund.IsChecked
-    bCheckboxStatus(4) = SchwarzDrucken.IsChecked
-
-    bCheckboxStatus(5)= Prospekt.IsChecked
-
-    bCheckboxStatus(6)= AusDruckereinstellung.IsChecked
-
-    iListBox(1) = Fax.GetSelIndex
-
-    bRadioBut(1) = Keine.IsChecked
-    bRadioBut(2) = NurNotizen.IsChecked
-    bRadioBut(3) = Dokumentende.IsChecked
-    bRadioBut(4) = Seitenende.IsChecked
-
-    printlog (" - all states inverting ")
-
-    if bCheckboxStatus(1) Then Grafiken.UnCheck               Else Grafiken.Check
-    if bCheckboxStatus(2) Then Kontrollfelder.UnCheck         Else Kontrollfelder.Check
-    if bCheckboxStatus(3) Then Hintergrund.UnCheck            Else Hintergrund.Check
-    if bCheckboxStatus(4) Then SchwarzDrucken.UnCheck         Else SchwarzDrucken.Check
-
-    if bCheckboxStatus(5) Then Prospekt.UnCheck               Else Prospekt.Check
-
-    if bCheckboxStatus(6) Then AusDruckereinstellung.UnCheck  Else AusDruckereinstellung.Check
-
-    if ( Keine.IsEnabled) then
-        if (Keine.IsChecked = True) Then
-            NurNotizen.Check
-        Else
-            Keine.Check
-        end if
-    end if
-
-    bTempRadioBut(1) = Keine.IsChecked
-    bTempRadioBut(2) = NurNotizen.IsChecked
-    bTempRadioBut(3) = Dokumentende.IsChecked
-    bTempRadioBut(4) = Seitenende.IsChecked
-
-    if ( Fax.GetItemCount <> iListBox(1) ) Then Fax.Select (Fax.GetItemCount) _
-    Else Fax.Select(1)
-    iTempListBox(1) = Fax.GetSelIndex
-
-    Kontext "ExtrasOptionenDlg"
-    ExtrasOptionenDlg.OK
-	sleep (4)
-    Call hFileSaveAsKill(gOfficepath + "user\work\printtest.html")
-    Call hCloseDocument
-
-    printlog (" - SO quit - start ")
-
-    Call wOfficeRestart
-
-    printlog (" - checking states ")
-    ToolsOptions
-    Call hToolsOptions ( "HTML" , "PRINT" )
-
-    if ( bCheckboxStatus(1) = Grafiken.IsChecked               ) Then WarnLog "'Graphics' state changed"
-    if ( bCheckboxStatus(2) = Kontrollfelder.IsChecked         ) Then WarnLog "'Controls' state changed"
-    if ( bCheckboxStatus(3) = Hintergrund.IsChecked            ) Then WarnLog "'Background' state changed"
-    if ( bCheckboxStatus(4) = SchwarzDrucken.IsChecked         ) Then WarnLog "'Print black' state changed"
-
-    if ( bCheckboxStatus(5)= Prospekt.IsChecked               ) Then WarnLog "'Brochure' state changed"
-
-    if ( bCheckboxStatus(6)= AusDruckereinstellung.IsChecked  ) Then WarnLog "'Paper tray from printer settings' state changed"
-
-    if ( bTempRadioBut(1) <> Keine.IsChecked       ) Then WarnLog "'None' state changed (Bug#99202)"
-    if ( bTempRadioBut(2) <> NurNotizen.IsChecked  ) Then WarnLog "'Notes only' state changed (Bug#99202)"
-    if ( bTempRadioBut(3) <> Dokumentende.IsChecked) Then WarnLog "'End of document' state changed"
-    if ( bTempRadioBut(4) <> Seitenende.IsChecked  ) Then WarnLog "'End of page' state changed"
-
-    if ( Fax.GetSelIndex <> iTempListBox(1) ) Then warnlog "Fax state changed"
-
-    printlog (" - all UnCheck -> o ")
-
-    Grafiken.UnCheck
-    Kontrollfelder.UnCheck
-    Hintergrund.UnCheck
-    SchwarzDrucken.UnCheck
-
-    Prospekt.UnCheck
-
-    AusDruckereinstellung.UnCheck
-
-    if (NurNotizen.IsChecked = True) Then Dokumentende.Check Else NurNotizen.Check
-
-    bTempRadioBut(1) = Keine.IsChecked
-    bTempRadioBut(2) = NurNotizen.IsChecked
-    bTempRadioBut(3) = Dokumentende.IsChecked
-    bTempRadioBut(4) = Seitenende.IsChecked
-
-    Fax.Select(1)
-
-    Kontext "ExtrasOptionenDlg"
-    ExtrasOptionenDlg.OK
-
-    printlog (" - check if all UnChecked ")
-    ToolsOptions
-    Call hToolsOptions ( "HTML" , "PRINT" )
-
-    if Grafiken.IsChecked       Then WarnLog "'Graphics' x"
-    if Kontrollfelder.IsChecked Then WarnLog "'Controls' x"
-    if Hintergrund.IsChecked    Then WarnLog "'Background' x"
-    if SchwarzDrucken.IsChecked Then WarnLog "'Print black' x"
-
-    if Prospekt.IsChecked       Then WarnLog "'Brochure' x"
-
-    if AusDruckereinstellung.IsChecked  Then WarnLog "'Paper tray from printer settings' x"
-
-    ' Is saved with document
-    Kontext "ExtrasOptionenDlg"
-    ExtrasOptionenDlg.OK
-    hFileOpen( gOfficePath & "user\work\printtest.html")
-    ToolsOptions
-    Call hToolsOptions ( "HTML" , "PRINT" )
-
-    if ( bTempRadioBut(1) <> Keine.IsChecked       ) Then WarnLog "'None' state changed"
-    if ( bTempRadioBut(2) <> NurNotizen.IsChecked  ) Then WarnLog "'Notes only' state changed"
-    if ( bTempRadioBut(3) <> Dokumentende.IsChecked) Then WarnLog "'End of document' state changed"
-    if ( bTempRadioBut(4) <> Seitenende.IsChecked  ) Then WarnLog "'end of page' state changed"
-
-    if ( Fax.GetSelIndex <> 1 ) Then WarnLog "Fax is not item 1"
-
-    Printlog (" - all Check -> x ")
-
-    Grafiken.Check
-    Kontrollfelder.Check
-    Hintergrund.Check
-    SchwarzDrucken.Check
-
-    Prospekt.Check
-
-    AusDruckereinstellung.Check
-
-    if ( Dokumentende.IsEnabled ) then
-        if (Dokumentende.IsChecked = True) Then
-            Seitenende.Check
-        Else
-            Dokumentende.Check
-        end if
-    end if
-
-    bTempRadioBut(1) = Keine.IsChecked
-    bTempRadioBut(2) = NurNotizen.IsChecked
-    bTempRadioBut(3) = Dokumentende.IsChecked
-    bTempRadioBut(4) = Seitenende.IsChecked
-
-    Fax.Select(Fax.GetItemCount)
-
-    Kontext "ExtrasOptionenDlg"
-    ExtrasOptionenDlg.OK
-
-    printlog (" - check if all Checked ")
-    ToolsOptions
-    Call hToolsOptions ( "HTML" , "PRINT" )
-
-    if not Grafiken.IsChecked                Then WarnLog "'Graphics' o"
-    if not Kontrollfelder.IsChecked          Then WarnLog "'Controls' o"
-    if not Hintergrund.IsChecked             Then WarnLog "'Background' o"
-    if not SchwarzDrucken.IsChecked          Then WarnLog "'Print black' o"
-
-    if not Prospekt.IsChecked                Then WarnLog "'Brochure' o"
-
-    if not AusDruckereinstellung.IsChecked   Then WarnLog "'Paper tray from printer settings' o"
-
-    if ( bTempRadioBut(1) <> Keine.IsChecked       ) Then WarnLog "'None' state changed"
-    if ( bTempRadioBut(2) <> NurNotizen.IsChecked  ) Then WarnLog "'Notes only' state changed"
-    if ( bTempRadioBut(3) <> Dokumentende.IsChecked) Then WarnLog "'End of document' state changed"
-    if ( bTempRadioBut(4) <> Seitenende.IsChecked  ) Then WarnLog "'End of page' state changed"
-
-    if ( Fax.GetSelIndex <> Fax.GetItemCount ) Then WarnLog "Fax is not item (GetItemCount)"
-
-    Kontext "ExtrasOptionenDlg"
-    ExtrasOptionenDlg.Cancel
-
-    printlog (" - restore states ")
-    ToolsOptions
-    Call hToolsOptions ( "HTML" , "PRINT" )
-
-    if ( bCheckboxStatus(1) =  TRUE ) Then  Grafiken.Check                Else Grafiken.UnCheck
-    if ( bCheckboxStatus(2) =  TRUE ) Then  Kontrollfelder.Check          Else Kontrollfelder.UnCheck
-    if ( bCheckboxStatus(3) =  TRUE ) Then  Hintergrund.Check             Else Hintergrund.UnCheck
-    if ( bCheckboxStatus(4) =  TRUE ) Then  SchwarzDrucken.Check          Else SchwarzDrucken.UnCheck
-
-    if ( bCheckboxStatus(5) = TRUE ) Then  Prospekt.Check                Else Prospekt.UnCheck
-
-    if ( bCheckboxStatus(7) = TRUE ) Then  AusDruckereinstellung.Check   Else AusDruckereinstellung.UnCheck
-
-    try
-        Fax.Select (iListBox(1))
-    catch
-        warnlog "restore fax doesn't work"
-    endcatch
-
-    if ( bRadioBut(1) = TRUE ) Then Keine.Check
-    if ( bRadioBut(2) = TRUE ) Then NurNotizen.Check
-    if ( bRadioBut(3) = TRUE ) Then Dokumentende.Check
-    if ( bRadioBut(4) = TRUE ) Then Seitenende.Check
-
-    Fax.Select (iListBox(1))
-    Kontext "ExtrasOptionenDlg"
-    ExtrasOptionenDlg.OK
-
-    Do Until GetDocumentCount = 0
-        Call hCloseDocument
-    Loop
-endcase
-
-'------------------------------------------------------------------------------
-
-testcase tToolsOptionsHTMLTable
-    '/ Table                     ///'
-    '/ -----                     ///'
-    '/ tToolsOptionsHTMLTable    ///'
-    '/ normal                         ///'
-    '/ Function:  ///'
-    '/                                ///'
-
-    dim sMetricField(4) as string      ' MetricField
-    dim sTempMetricField(4) as string
-    dim bRadioBut(3) as boolean    ' RadioButton states
-    dim bTempRadioBut(3) as boolean
-
-    ' sMetricField(i) and sTempMetricField(i)
-    '(1) = VerschiebenZeile
-    '(2) = VerschiebenSpalte
-    '(3) = EinfuegenZeile
-    '(4) = EinfuegenSpalte
-
-    ' bRadioBut(i) and bTempRadioBut(i)
-    '(1) = VerhaltenFix
-    '(2) = FixProportional
-    '(3) = Variabel
-
-    Call hNewDocument
-    printlog ("- Tools/Options/HTML: Table ")
-
-    printlog (" - save states ")
-    ToolsOptions
-    Call hToolsOptions ("HTML","Table")
-
-    sMetricField(1) = VerschiebenZeile.GetText
-    sMetricField(2) = VerschiebenSpalte.GetText
-    sMetricField(3) = EinfuegenZeile.GetText
-    sMetricField(4) = EinfuegenSpalte.GetText
-
-    bRadioBut(1) = VerhaltenFix.IsChecked
-    bRadioBut(2) = FixProportional.IsChecked
-    bRadioBut(3) = Variabel.IsChecked
-
-    if ((bRadioBut(1) Xor bRadioBut(2) Xor bRadioBut(3)) = False) Then Warnlog (" RadioButtons have NO init state: " + bRadioBut(1) +", BugID: 83097")
-
-    printlog (" - all states inverting ")
-
-    VerschiebenZeile.ToMax
-    VerschiebenSpalte.ToMax
-    EinfuegenZeile.ToMax
-    EinfuegenSpalte.ToMax
-    if ( VerschiebenZeile.GetText  = sMetricField(1) ) Then VerschiebenZeile.ToMin
-    if ( VerschiebenSpalte.GetText = sMetricField(2) ) Then VerschiebenSpalte.ToMin
-    if ( EinfuegenZeile.GetText    = sMetricField(3) ) Then EinfuegenZeile.ToMin
-    if ( EinfuegenSpalte.GetText   = sMetricField(4) ) Then EinfuegenSpalte.ToMin
-    sTempMetricField(1) = VerschiebenZeile.GetText
-    sTempMetricField(2) = VerschiebenSpalte.GetText
-    sTempMetricField(3) = EinfuegenZeile.GetText
-    sTempMetricField(4) = EinfuegenSpalte.GetText
-
-    FixProportional.Check
-
-    bTempRadioBut(1) = VerhaltenFix.IsChecked
-    bTempRadioBut(2) = FixProportional.IsChecked
-    bTempRadioBut(3) = Variabel.IsChecked
-
-    Kontext "ExtrasOptionenDlg"
-    ExtrasOptionenDlg.OK
-
-    printlog (" - SO quit - start ")
-
-    Call wOfficeRestart
-
-    printlog (" - checking states ")
-    ToolsOptions
-    Call hToolsOptions ( "HTML" , "Table" )
-
-    if ( VerschiebenZeile.GetText  <> sTempMetricField(1) ) Then WarnLog "Move cells:  'Rows' state changed BugID: 82990 "
-    if ( VerschiebenSpalte.GetText <> sTempMetricField(2) ) Then WarnLog "Move cells:  'Column' state changed"
-    if ( EinfuegenZeile.GetText    <> sTempMetricField(3) ) Then WarnLog "Insert Cell: 'Row' state changed"
-    if ( EinfuegenSpalte.GetText   <> sTempMetricField(4) ) Then WarnLog "Insert Cell: 'Column' state changed"
-
-    if ( bTempRadioBut(1) <> VerhaltenFix.IsChecked   ) Then WarnLog "Behaviour of rows/columns : 'Fixed' state changed"
-    if ( bTempRadioBut(2) <> FixProportional.IsChecked) Then WarnLog "Behaviour of rows/columns : 'Fixed, proportional' state changed"
-    if ( bTempRadioBut(3) <> Variabel.IsChecked       ) Then WarnLog "Behaviour of rows/columns : 'Variable' state changed"
-
-    Kontext "ExtrasOptionenDlg"
-    ExtrasOptionenDlg.OK
-
-    printlog (" - all UnCheck -> o ")
-    ToolsOptions
-    Call hToolsOptions ( "HTML" , "Table" )
-
-    VerschiebenZeile.ToMin
-    VerschiebenSpalte.ToMin
-    EinfuegenZeile.ToMin
-    EinfuegenSpalte.ToMin
-    sTempMetricField(1) = VerschiebenZeile.GetText
-    sTempMetricField(2) = VerschiebenSpalte.GetText
-    sTempMetricField(3) = EinfuegenZeile.GetText
-    sTempMetricField(4) = EinfuegenSpalte.GetText
-    printlog (" More test ///'")
-    VerschiebenZeile.More
-    VerschiebenSpalte.More
-    EinfuegenZeile.More
-    EinfuegenSpalte.More
-    if ( sTempMetricField(1) = VerschiebenZeile.GetText  ) Then WarnLog "'Move Cells Row' :     More-Button not working"
-    if ( sTempMetricField(2) = VerschiebenSpalte.GetText ) Then WarnLog "'Move Cells Column' :  More-Button not working"
-    if ( sTempMetricField(3) = EinfuegenZeile.GetText    ) Then WarnLog "'Insert Cell Row'   :  More-Button not working"
-    if ( sTempMetricField(4) = EinfuegenSpalte.GetText   ) Then WarnLog "'Insert Cell Column' : More-Button not working"
-    sTempMetricField(1) = VerschiebenZeile.GetText
-    sTempMetricField(2) = VerschiebenSpalte.GetText
-    sTempMetricField(3) = EinfuegenZeile.GetText
-    sTempMetricField(4) = EinfuegenSpalte.GetText
-
-    Variabel.Check
-
-    bTempRadioBut(1) = VerhaltenFix.IsChecked
-    bTempRadioBut(2) = FixProportional.IsChecked
-    bTempRadioBut(3) = Variabel.IsChecked
-
-    Kontext "ExtrasOptionenDlg"
-    ExtrasOptionenDlg.OK
-
-    printlog (" - check if all UnChecked ")
-    ToolsOptions
-    Call hToolsOptions ( "HTML" , "Table" )
-
-    if ( VerschiebenZeile.GetText  <> sTempMetricField(1) ) Then WarnLog "Move Cells : 'Row' is not min."
-    if ( VerschiebenSpalte.GetText <> sTempMetricField(2) ) Then WarnLog "Move Cells : 'Column' is not min."
-    if ( EinfuegenZeile.GetText    <> sTempMetricField(3) ) Then WarnLog "Insert Cells : 'Row' is not min."
-    if ( EinfuegenSpalte.GetText   <> sTempMetricField(4) ) Then WarnLog "Insert Cells : 'Column' is not min."
-
-    if ( bTempRadioBut(1) <> VerhaltenFix.IsChecked   ) Then WarnLog "Behaviour of rows/columns : 'Fixed' state changed"
-    if ( bTempRadioBut(2) <> FixProportional.IsChecked) Then WarnLog "Behaviour of rows/columns : 'Fixed, proportional' state changed"
-    if ( bTempRadioBut(3) <> Variabel.IsChecked       ) Then WarnLog "Behaviour of rows/columns : 'Variable' state changed"
-
-    Printlog (" - all Check -> x ")
-
-    VerschiebenZeile.ToMax
-    VerschiebenSpalte.ToMax
-    EinfuegenZeile.ToMax
-    EinfuegenSpalte.ToMax
-    sTempMetricField(1) = VerschiebenZeile.GetText
-    sTempMetricField(2) = VerschiebenSpalte.GetText
-    sTempMetricField(3) = EinfuegenZeile.GetText
-    sTempMetricField(4) = EinfuegenSpalte.GetText
-    printlog (" Less test ///'")
-    VerschiebenZeile.Less
-    VerschiebenSpalte.Less
-    EinfuegenZeile.Less
-    EinfuegenSpalte.Less
-    if ( sTempMetricField(1) = VerschiebenZeile.GetText  ) Then WarnLog "'Move Cells Row' :     Less-Button not working"
-    if ( sTempMetricField(2) = VerschiebenSpalte.GetText ) Then WarnLog "'Move Cells Column' :  Less-Button not working"
-    if ( sTempMetricField(3) = EinfuegenZeile.GetText    ) Then WarnLog "'Insert Cell Row'   :  Less-Button not working"
-    if ( sTempMetricField(4) = EinfuegenSpalte.GetText   ) Then WarnLog "'Insert Cell Column' : Less-Button not working"
-    sTempMetricField(1) = VerschiebenZeile.GetText
-    sTempMetricField(2) = VerschiebenSpalte.GetText
-    sTempMetricField(3) = EinfuegenZeile.GetText
-    sTempMetricField(4) = EinfuegenSpalte.GetText
-
-    VerhaltenFix.Check
-
-    bTempRadioBut(1) = VerhaltenFix.IsChecked
-    bTempRadioBut(2) = FixProportional.IsChecked
-    bTempRadioBut(3) = Variabel.IsChecked
-
-    Kontext "ExtrasOptionenDlg"
-    ExtrasOptionenDlg.OK
-
-    printlog (" - check if all Checked ")
-    ToolsOptions
-    Call hToolsOptions ( "HTML" , "Table" )
-
-    if ( VerschiebenZeile.GetText  <> sTempMetricField(1) ) Then WarnLog "Move Cells : 'Row' is not max."
-    if ( VerschiebenSpalte.GetText <> sTempMetricField(2) ) Then WarnLog "Move Cells : 'Column' is not min."
-    if ( EinfuegenZeile.GetText    <> sTempMetricField(3) ) Then WarnLog "Insert Cells : 'Row' is not max."
-    if ( EinfuegenSpalte.GetText   <> sTempMetricField(4) ) Then WarnLog "Insert Cells : 'Column' is not min."
-
-    if ( bTempRadioBut(1) <> VerhaltenFix.IsChecked   ) Then WarnLog "Behaviour of rows/columns : 'Fixed' state changed"
-    if ( bTempRadioBut(2) <> FixProportional.IsChecked) Then WarnLog "Behaviour of rows/columns : 'Fixed, proportional' state changed"
-    if ( bTempRadioBut(3) <> Variabel.IsChecked       ) Then WarnLog "Behaviour of rows/columns : 'Variable' state changed"
-
-    printlog (" - restore states ")
-
-    VerschiebenZeile.SetText  (sMetricField(1))
-    VerschiebenSpalte.SetText (sMetricField(2))
-    EinfuegenZeile.SetText    (sMetricField(3))
-    EinfuegenSpalte.SetText   (sMetricField(4))
-
-    Kontext "ExtrasOptionenDlg"
-    ExtrasOptionenDlg.OK
-
-    Do Until GetDocumentCount = 0
-        Call hCloseDocument
-    Loop
-endcase
-
-'------------------------------------------------------------------------------
-
-testcase tToolsOptionsHTMLTable1
-
-    '/// There was a bug from OpenOffice where the Office crashed ///
-    '/// This testcase check for this bug ///
-
-    Call hNewDocument
-    printlog ("- Tools/Options/Text document: Table ")
-
-    ToolsOptions
-    Call hToolsOptions ("WRITER","Table")
-    VerhaltenFix.Check
-
-    Kontext "ExtrasOptionenDlg"
-    ExtrasOptionenDlg.OK
-
-    Do Until GetDocumentCount = 0
-        Call hCloseDocument
-    Loop
-endcase
diff --git a/testautomation/writer/optional/includes/option/wh_o_3.inc b/testautomation/writer/optional/includes/option/wh_o_3.inc
deleted file mode 100644
index 58b87a72ea08..000000000000
--- a/testautomation/writer/optional/includes/option/wh_o_3.inc
+++ /dev/null
@@ -1,389 +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 : helge.delfs@oracle.com
-'*
-'* short description : Funcitonal-Test for Tools -Options - HTML - Cursor.
-'*
-'\***********************************************************************
-
-sub wh_o_3
-   Call tToolsOptionsHTMLInsert
-
-' on view2 with ex content
-   Call tToolsOptionsHTMLCursor
-end sub
-
-'------------------------------------------------------------------------------
-testcase tToolsOptionsHTMLInsert
-
-'/ Insert                     ///'
-'/ ------                     ///'
-'/ tToolsOptionsHTMLInsert    ///'
-'/ normal                         ///'
-'/ Function:  ///'
-'/ Function:  not yet: Tables ///'
-'/                                ///'
-
-   dim irgendwas(8) as boolean    ' Checkbox states
-
-'(1) = Automatisch
-'
-'(2) = Ueberschrift
-'(3) = Wiederholen                       depends on Ueberschrift
-'(4) = NichtTrennen
-'(5) = Umrandung
-'
-'(6) = AutomatischeZahlenerkennung
-'(7) = Zahlenformaterkennung             depends on AutomatischeZahlenerkennung
-'(8) = AutomatischeAusrichtung           depends on AutomatischeZahlenerkennung
-
-   call hNewDocument
-    printlog "'///- Tools/Options/HTML: Insert ///"
-
-    printlog ("'/// - save states ///")
-    ToolsOptions
-    hToolsOptions ("HTML","Table")
-
-    irgendwas(2) = Ueberschrift.IsChecked
-    irgendwas(3) = Wiederholen.IsChecked
-    irgendwas(5) = Umrandung.IsChecked
-
-    irgendwas(6) = AutomatischeZahlenerkennung.IsChecked
-    irgendwas(7) = Zahlenformaterkennung.IsChecked
-    irgendwas(8) = AutomatischeAusrichtung.IsChecked
-
-    printlog ("'/// - all states inverting ///")
-
-'      if irgendwas(2) Then Ueberschrift.UnCheck                Else Ueberschrift.Check
-    Ueberschrift.Check
-    if irgendwas(3) Then Wiederholen.UnCheck                 Else Wiederholen.Check
-    if irgendwas(5) Then Umrandung.UnCheck                   Else Umrandung.Check
-
-'      if irgendwas(6) Then AutomatischeZahlenerkennung.UnCheck Else AutomatischeZahlenerkennung.Check
-    AutomatischeZahlenerkennung.Check
-    if irgendwas(7) Then Zahlenformaterkennung.UnCheck       Else Zahlenformaterkennung.Check
-    if irgendwas(8) Then AutomatischeAusrichtung.UnCheck     Else AutomatischeAusrichtung.Check
-
-    Kontext "ExtrasOptionenDlg"
-    ExtrasOptionenDlg.OK
-
-    printlog ("'/// - SO quit - start ///")
-
-    call wOfficeRestart
-
-    printlog ("'/// - checking states ///")
-    ToolsOptions
-    hToolsOptions ( "HTML" , "Table" )
-
-'      If ( irgendwas(2) = Ueberschrift.IsChecked                ) Then WarnLog "Ueberschrift state changed"
-      If ( Ueberschrift.IsChecked                = False ) Then WarnLog "Ueberschrift state changed"
-      If ( irgendwas(3) = Wiederholen.IsChecked                 ) Then WarnLog "Wiederholen state changed"
-      If ( irgendwas(5) = Umrandung.IsChecked                   ) Then WarnLog "Umrandung state changed"
-
-'      If ( irgendwas(6) = AutomatischeZahlenerkennung.IsChecked ) Then WarnLog "AutomatischeZahlenerkennung state changed"
-      If ( AutomatischeZahlenerkennung.IsChecked = False ) Then WarnLog "AutomatischeZahlenerkennung state changed"
-      If ( irgendwas(7) = Zahlenformaterkennung.IsChecked       ) Then WarnLog "Zahlenformaterkennung state changed"
-      If ( irgendwas(8) = AutomatischeAusrichtung.IsChecked     ) Then WarnLog "AutomatischeAusrichtung state changed"
-
-    Kontext "ExtrasOptionenDlg"
-    ExtrasOptionenDlg.OK
-
-    printlog ("'/// - all UnCheck -> o ///")
-    ToolsOptions
-    hToolsOptions ( "HTML" , "Table" )
-
-    Ueberschrift.UnCheck
-'      Wiederholen.UnCheck
-    Umrandung.UnCheck
-
-    AutomatischeZahlenerkennung.UnCheck
-'      Zahlenformaterkennung.UnCheck
-'      AutomatischeAusrichtung.UnCheck
-
-    Kontext "ExtrasOptionenDlg"
-    ExtrasOptionenDlg.OK
-
-'These Options also have another location
-
-'/// 2.Location of Options: InsertTableWriter get's checked too ///'
-
-  Printlog "'///    - check in InsertTableHTML ///"
-   Call hNewDocument
-   InsertTableWriter
-   Kontext "TabelleEinfuegenWriter"
-
-      If ( Ueberschrift.IsChecked          ) Then WarnLog "Ueberschrift x"
-'      If ( UeberschriftWiederholen.IsChecked ) Then WarnLog "Wiederholen x"
-      If ( Umrandung.IsChecked           ) Then WarnLog "Umrandung x"
-
-   TabelleEinfuegenWriter.OK
-
-'/// Function: Input in tables ///'
-
-   Kontext "DocumentWriter"
-
-    DocumentWriter.TypeKeys "<Down>1<Tab><Left>"
-
-    FormatParagraph
-
-    Kontext
-   Active.SetPage TabAusrichtungAbsatz
-   Kontext "TabAusrichtungAbsatz"
-   if NOT Links.IsChecked then Warnlog "Die automatische Ausrichtung der Zahl wurde trotzdem durchgeführt!"
-
-    TabAusrichtungAbsatz.Cancel
-
-
-   FormatNumberFormat
-
-    Kontext "Zahlenformat"
-   If Kategorie.GetSelIndex <> 11 then Warnlog "Das Zahlenformat ist nicht Text geblieben!"
-
-    Zahlenformat.Cancel
-
-
-   Call hCloseDocument
-
-'.................
-
-  printlog ("'/// - check if all UnChecked ///")
-
-  ' Workaround issue i48383 Slot get's executed on backing window
-  Kontext "DocumentWriter"
-  DocumentWriter.typekeys ("a")
-
-    ToolsOptions
-   hToolsOptions ( "HTML" , "Table" )
-
-      If Ueberschrift.IsChecked                Then WarnLog "Ueberschrift x"
-'      If Wiederholen.IsChecked                 Then WarnLog "Wiederholen x"
-      If Umrandung.IsChecked                   Then WarnLog "Umrandung x"
-
-      If AutomatischeZahlenerkennung.IsChecked Then WarnLog "AutomatischeZahlenerkennung x"
-'      If Zahlenformaterkennung.IsChecked       Then WarnLog "Zahlenformaterkennung x"
-'      If AutomatischeAusrichtung.IsChecked     Then WarnLog "AutomatischeAusrichtung x"
-
-      Printlog ("'/// - all Check -> x ///")
-
-      Ueberschrift.Check
-      Wiederholen.Check
-      Umrandung.Check
-
-      AutomatischeZahlenerkennung.Check
-      Zahlenformaterkennung.Check
-      AutomatischeAusrichtung.Check
-
-    Kontext "ExtrasOptionenDlg"
-    ExtrasOptionenDlg.OK
-
-'These Options also have another location
-
-  Printlog "'///    - check in InsertTableWriter ///"
-   hNewDocument
-   InsertTableWriter
-   Kontext "TabelleEinfuegenWriter"
-
-      If ( Ueberschrift.IsChecked                = FALSE ) Then WarnLog "Ueberschrift o"
-      If ( UeberschriftWiederholen.IsChecked                 = FALSE ) Then WarnLog "Wiederholen o"
-      If ( Umrandung.IsChecked                   = FALSE ) Then WarnLog "Umrandung o"
-
-   TabelleEinfuegenWriter.Ok
-
-   Kontext "DocumentWriter"
-   DocumentWriter.TypeKeys "<Down>1<Tab><Left>"
-   FormatParagraph
-   Kontext
-   Active.SetPage TabAusrichtungAbsatz
-   Kontext "TabAusrichtungAbsatz"
-   if NOT Rechts.IsChecked then Warnlog "Alignment of number didn't change to: right!"
-   TabAusrichtungAbsatz.Cancel
-
-   FormatNumberFormat
-   Kontext "Zahlenformat"
-   If Kategorie.GetSelIndex <> 3 then Warnlog "numberformat didn't get changed!"
-   Zahlenformat.Cancel
-
-   Call hCloseDocument
-
-'.......................
-
-  printlog ("'/// - check if all Checked ///")
-
-  ' Workaround issue i48383 Slot get's executed on backing window
-  Kontext "DocumentWriter"
-  DocumentWriter.typekeys ("a")
-  
-    ToolsOptions
-    hToolsOptions ( "HTML" , "Table" )
-
-      If ( Ueberschrift.IsChecked                = FALSE ) Then WarnLog "Ueberschrift o"
-      If ( Wiederholen.IsChecked                 = FALSE ) Then WarnLog "Wiederholen o"
-      If ( Umrandung.IsChecked                   = FALSE ) Then WarnLog "Umrandung o"
-
-      If ( AutomatischeZahlenerkennung.IsChecked = FALSE ) Then WarnLog "AutomatischeZahlenerkennung o"
-      If ( Zahlenformaterkennung.IsChecked       = FALSE ) Then WarnLog "Zahlenformaterkennung o"
-      If ( AutomatischeAusrichtung.IsChecked     = FALSE ) Then WarnLog "AutomatischeAusrichtung o"
-
-  printlog ("'/// - restore states ///")
-
-      If ( irgendwas(2) = TRUE ) Then Ueberschrift.Check                Else Ueberschrift.UnCheck
-      If ( irgendwas(3) = TRUE ) Then Wiederholen.Check                 Else _
-      if Ueberschrift.IsChecked Then Wiederholen.UnCheck
-      If ( irgendwas(5) = TRUE ) Then Umrandung.Check                   Else Umrandung.UnCheck
-
-      AutomatischeZahlenerkennung.Check
-    if AutomatischeZahlenerkennung.IsChecked then
-        if ( irgendwas(7) = TRUE ) Then Zahlenformaterkennung.Check
-        if ( irgendwas(8) = TRUE ) Then AutomatischeAusrichtung.Check
-    end if
-    if ( irgendwas(6) = TRUE ) Then AutomatischeAusrichtung.Check
-
-    Kontext "ExtrasOptionenDlg"
-    ExtrasOptionenDlg.OK
-
-    Do Until GetDocumentCount = 0
-        Call hCloseDocument
-    Loop
-endcase
-
-'------------------------------------------------------------------------------------------------------------------------
-
-testcase tToolsOptionsHTMLCursor
-
-   dim irgendwas(17) as boolean    ' Checkbox states
-
-'(10) = Absatzenden
-'(11) = WeicheTrenner
-'(12) = Leerzeichen
-'(13) = GeschLeerzeichen
-'(14) = Tabulatoren
-'(15) = Umbrueche
-'(16) = VersteckterText
-'(17) = VersteckteAbsatze
-
-   hNewDocument
-  printlog "'///- Tools/Options/Writer: View 2 ///"
-
-  printlog ("'/// - save states ///")
-    ToolsOptions
-    hToolsOptions ("HTML","FORMATTINGAIDS")
-
-      irgendwas(10) = Absatzenden.IsChecked
-      irgendwas(11) = WeicheTrenner.IsChecked
-      irgendwas(12) = Leerzeichen.IsChecked
-      irgendwas(13) = GeschLeerzeichen.IsChecked
-      irgendwas(15) = Umbrueche.IsChecked
-
-      printlog ("'/// - all states inverting ///")
-
-      if irgendwas(10) Then Absatzenden.UnCheck Else Absatzenden.Check
-      if irgendwas(11) Then WeicheTrenner.UnCheck Else WeicheTrenner.Check
-      if irgendwas(12) Then Leerzeichen.UnCheck Else Leerzeichen.Check
-      if irgendwas(13) Then GeschLeerzeichen.UnCheck Else GeschLeerzeichen.Check
-      if irgendwas(15) Then Umbrueche.UnCheck Else Umbrueche.Check
-
-    Kontext "ExtrasOptionenDlg"
-    ExtrasOptionenDlg.OK
-
-    printlog ("'/// - SO quit - start ///")
-
-    call wOfficeRestart
-
-    printlog ("'/// - checking states ///")
-    ToolsOptions
-    hToolsOptions ( "HTML" , "FORMATTINGAIDS" )
-
-      If ( irgendwas(10) = Absatzenden.IsChecked  ) Then  WarnLog "Absatzenden state changed"
-      If ( irgendwas(11) = WeicheTrenner.IsChecked  ) Then  WarnLog "WeicheTrenner state changed"
-      If ( irgendwas(12) = Leerzeichen.IsChecked  ) Then  WarnLog "Leerzeichen state changed"
-      If ( irgendwas(13) = GeschLeerzeichen.IsChecked  ) Then  WarnLog "GeschLeerzeichen state changed (Bug#99202)"
-      If ( irgendwas(15) = Umbrueche.IsChecked  ) Then  WarnLog "Umbrueche state changed (Bug#99202)"
-
-    Kontext "ExtrasOptionenDlg"
-    ExtrasOptionenDlg.OK
-
-    printlog ("'/// - all UnCheck -> o ///")
-    ToolsOptions
-    hToolsOptions ( "HTML" , "FORMATTINGAIDS" )
-
-      Absatzenden.UnCheck
-      WeicheTrenner.UnCheck
-      Leerzeichen.UnCheck
-      GeschLeerzeichen.UnCheck
-      Umbrueche.UnCheck
-
-    Kontext "ExtrasOptionenDlg"
-    ExtrasOptionenDlg.OK
-
-  printlog ("'/// - check if all UnChecked ///")
-    ToolsOptions
-    hToolsOptions ( "HTML" , "FORMATTINGAIDS" )
-
-      If Absatzenden.IsChecked Then  WarnLog "Absatzenden x"
-      If WeicheTrenner.IsChecked Then  WarnLog "WeicheTrenner x"
-      If Leerzeichen.IsChecked Then  WarnLog "Leerzeichen x"
-      If GeschLeerzeichen.IsChecked Then  WarnLog "GeschLeerzeichen x"
-      If Umbrueche.IsChecked Then  WarnLog "Umbrueche x"
-
-      Printlog ("'/// - all Check -> x ///")
-
-      Absatzenden.Check
-      WeicheTrenner.Check
-      Leerzeichen.Check
-      GeschLeerzeichen.Check
-      Umbrueche.Check
-
-    Kontext "ExtrasOptionenDlg"
-    ExtrasOptionenDlg.OK
-
-  printlog ("'/// - check if all Checked ///")
-    ToolsOptions
-    hToolsOptions ( "HTML" , "FORMATTINGAIDS" )
-
-      If True <> Absatzenden.IsChecked Then  WarnLog "Absatzenden o BugID: 82942 OS"
-      If True <> WeicheTrenner.IsChecked Then  WarnLog "WeicheTrenner o"
-      If True <> Leerzeichen.IsChecked Then  WarnLog "Leerzeichen o"
-      If True <> GeschLeerzeichen.IsChecked Then  WarnLog "GeschLeerzeichen o"
-      If True <> Umbrueche.IsChecked Then  WarnLog "Umbrueche o"
-
-  printlog ("'/// - restore states ///")
-
-      If ( irgendwas(10) = TRUE ) Then  Absatzenden.Check Else Absatzenden.UnCheck
-      If ( irgendwas(11) = TRUE ) Then  WeicheTrenner.Check Else WeicheTrenner.UnCheck
-      If ( irgendwas(12) = TRUE ) Then  Leerzeichen.Check Else Leerzeichen.UnCheck
-      If ( irgendwas(13) = TRUE ) Then  GeschLeerzeichen.Check Else GeschLeerzeichen.UnCheck
-      If ( irgendwas(15) = TRUE ) Then  Umbrueche.Check Else Umbrueche.UnCheck
-
-    Kontext "ExtrasOptionenDlg"
-    ExtrasOptionenDlg.OK
-
-    Do Until GetDocumentCount = 0
-        Call hCloseDocument
-    Loop
-endcase
-
diff --git a/testautomation/writer/optional/includes/option/wr_o_1.inc b/testautomation/writer/optional/includes/option/wr_o_1.inc
deleted file mode 100644
index 6ca437431ec4..000000000000
--- a/testautomation/writer/optional/includes/option/wr_o_1.inc
+++ /dev/null
@@ -1,937 +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 : helge.delfs@oracle.com
-'*
-'* short description : Functional-Tests for Tools-Options-Writer -View & Grid
-'*
-'\***********************************************************************
-
-sub wr_o_1
-    printLog Chr(13) + "---------    Options   - Tools Writer -    ----------"
-
-    Call tToolsOptionsWriterView1
-    Call tToolsOptionsWriterView2
-    Call tToolsOptionsWriterView3
-    Call tToolsOptionsWriterView4
-    Call tToolsOptionsWriterView5
-    Call tToolsOptionsWriterView6
-    Call tToolsOptionsWriterView7
-    Call tToolsOptionsWriterGrid1
-    Call tToolsOptionsWriterGrid2
-    Call tToolsOptionsWriterGrid3
-    Call tToolsOptionsWriterGrid4
-
-end sub
-
-'------------------------------------------------------------------------------
-
-testcase tToolsOptionsWriterView1
-    dim option_value(11) as boolean
-    dim measurement_unit(3) as integer
-    dim iTemp(3) as integer
-    '/// new writerdocument
-    Call hNewDocument
-
-    '///- Tools/Options/Writer: View
-    ToolsOptions
-    Call hToolsOptions ( "WRITER" , "VIEW" )
-
-    option_value(1) = Hilfslinien.IsChecked
-    option_value(2) = FarbigeHandles.IsChecked
-    option_value(3) = GrosseHandles.IsChecked
-    option_value(4) = HorizontaleBildlaufleiste.IsChecked
-    option_value(5) = VertikaleBildlaufleiste.IsChecked
-    option_value(10) = Lineal.IsChecked
-    option_value(6) = HorizontalesLineal.IsChecked
-    option_value(7) = VertikalesLineal.IsChecked
-    option_value(8) = WeichesScrollen.IsChecked
-
-    measurement_unit(2) = HorizontalesLinealMasseinheit.GetSelIndex
-    measurement_unit(3) = VertikalesLinealMasseinheit.GetSelIndex
-
-    '/// - all states inverting
-    if option_value(1) = true then Hilfslinien.UnCheck      else Hilfslinien.Check
-    if option_value(2) = true then FarbigeHandles.UnCheck   else FarbigeHandles.Check
-    if option_value(3) = true then GrosseHandles.UnCheck    else GrosseHandles.Check
-    if option_value(4) = true then HorizontaleBildlaufleiste.UnCheck else HorizontaleBildlaufleiste.Check
-    if option_value(5) = true then VertikaleBildlaufleiste.UnCheck   else VertikaleBildlaufleiste.Check
-    ' has to be checked to enable Horizontal and Vertical Ruler
-    if option_value(10) = true then Lineal.UnCheck else Lineal.Check
-    if Lineal.IsChecked = true then
-        if option_value(6) = true then HorizontalesLineal.UnCheck   else HorizontalesLineal.Check
-        if option_value(7) = true then VertikalesLineal.UnCheck     else VertikalesLineal.Check
-        if ( HorizontalesLinealMasseinheit.GetItemCount <> measurement_unit(2) ) then
-            HorizontalesLinealMasseinheit.Select (HorizontalesLinealMasseinheit.GetItemCount)
-        else
-            HorizontalesLinealMasseinheit.Select (1)
-        end if
-        if ( VertikalesLinealMasseinheit.GetItemCount <> measurement_unit(3) ) then
-            VertikalesLinealMasseinheit.Select (VertikalesLinealMasseinheit.GetItemCount)
-        else
-            VertikalesLinealMasseinheit.Select (1)
-        end if
-        iTemp(2) = HorizontalesLinealMasseinheit.GetSelIndex
-        iTemp(3) = VertikalesLinealMasseinheit.GetSelIndex
-        '/// if Asian Language enabled there has to be a checkbox 'Right-aligned' for 'Vertical-Ruler' ///
-        if bAsianLan=true and VertikalesLineal.IsChecked = true then
-            if RechtsAusgerichtet.IsVisible = true then
-                if option_value(9)= true then
-                    RechtsAusgerichtet.Uncheck
-                else
-                    RechtsAusgerichtet.Check
-                end if
-            else
-                Warnlog "- Checkbox 'Right-aligned' is not visible !"
-            end if
-        end if
-    end if
-    if option_value(8)= true then WeichesScrollen.UnCheck else WeichesScrollen.Check
-
-    '/// close options dialog
-    Kontext "ExtrasOptionenDlg"
-    ExtrasOptionenDlg.OK
-
-    '/// - SO quit - restart
-    Call wOfficeRestart
-    '///- Tools/Options/Writer: View
-    '/// - checking states
-    ToolsOptions
-    Call hToolsOptions ( "WRITER" , "VIEW" )
-    if ( option_value(1) = Hilfslinien.IsChecked               ) then WarnLog "Hilfslinien state changed"
-    if ( option_value(2) = FarbigeHandles.IsChecked            ) then WarnLog "FarbigeHandles state changed"
-    if ( option_value(3) = GrosseHandles.IsChecked             ) then WarnLog "GrosseHandles state changed"
-    if ( option_value(4) = HorizontaleBildlaufleiste.IsChecked ) then WarnLog "HorizontaleBildlaufleiste state changed"
-    if ( option_value(5) = VertikaleBildlaufleiste.IsChecked   ) then WarnLog "VertikaleBildlaufleiste state changed"
-    if ( option_value(8) = WeichesScrollen.IsChecked           ) then WarnLog "WeichesScrollen state changed"
-    if ( option_value(10) = Lineal.IsChecked ) then
-        WarnLog "Ruler state changed"
-        if ( option_value(6) = HorizontalesLineal.IsChecked        ) then WarnLog "HorizontalesLineal state changed"
-        if ( option_value(7) = VertikalesLineal.IsChecked         ) then WarnLog "VertikalesLineal state changed"
-        if ( HorizontalesLinealMasseinheit.GetSelIndex <> iTemp(2) ) then WarnLog "HorizontalesLinealMasseinheit state changed"
-        if ( VertikalesLinealMasseinheit.GetSelIndex <> iTemp(3) ) then WarnLog "VertikalesLinealMasseinheit   state changed"
-
-        if bAsianLan=true and VertikalesLineal.IsChecked = true then
-            if RechtsAusgerichtet.IsVisible = true then
-                if option_value(9) = RechtsAusgerichtet.IsChecked then WarnLog "Right-aligned state changed"
-            else
-                Warnlog "- Checkbox 'Right-aligned' is not visible !"
-            end if
-        end if
-    end if
-
-    Kontext "ExtrasOptionenDlg"
-    ExtrasOptionenDlg.OK
-    '/// restore default values
-    Call wOptionsUndo( "All" )
-
-    '/// close document
-    Do Until GetDocumentCount = 0
-        Call hCloseDocument
-    Loop
-endcase
-
-'------------------------------------------------------------------------------
-
-testcase tToolsOptionsWriterView2
-    dim option_value(11) as boolean
-    dim measurement_unit(3) as integer
-    dim iTemp(3) as integer
-    '/// new writerdocument 
-    Call hNewDocument
-
-    '///- Tools/Options/Writer: View
-    ToolsOptions
-    Call hToolsOptions ( "WRITER" , "VIEW" )
-
-    '/// remember settings
-    option_value(1) = Hilfslinien.IsChecked
-    option_value(2) = FarbigeHandles.IsChecked
-    option_value(3) = GrosseHandles.IsChecked
-    option_value(4) = HorizontaleBildlaufleiste.IsChecked
-    option_value(5) = VertikaleBildlaufleiste.IsChecked
-    option_value(10) = Lineal.IsChecked
-    option_value(6) = HorizontalesLineal.IsChecked
-    option_value(7) = VertikalesLineal.IsChecked
-    option_value(8) = WeichesScrollen.IsChecked
-    
-    measurement_unit(2) = HorizontalesLinealMasseinheit.GetSelIndex
-    measurement_unit(3) = VertikalesLinealMasseinheit.GetSelIndex
-
-    '/// - uncheck all checkboxes
-    Hilfslinien.UnCheck
-    FarbigeHandles.UnCheck
-    GrosseHandles.UnCheck
-
-    HorizontaleBildlaufleiste.UnCheck
-    VertikaleBildlaufleiste.UnCheck
-    Lineal.Check
-    HorizontalesLineal.UnCheck
-    if bAsianLan = true then
-        VertikalesLineal.Check
-        RechtsAusgerichtet.Uncheck
-    end if
-    VertikalesLineal.Uncheck
-    HorizontalesLinealMasseinheit.Select (1)
-    VertikalesLinealMasseinheit.Select (1)
-    Lineal.Uncheck
-    WeichesScrollen.Uncheck
-
-    '/// close options-dialog
-    Kontext "ExtrasOptionenDlg"
-    ExtrasOptionenDlg.OK
-
-    '/// check if ViewRuler is disabled
-    ViewTextBoundaries
-    try
-        ViewRuler
-        Warnlog "View / Ruler should be disabled !"
-    catch
-    endcatch
-
-    '/// - SO quit - restart
-    Call wOfficeRestart
-    '///- Tools/Options/Writer: View
-    '/// - checking states
-    ToolsOptions
-    Call hToolsOptions ( "WRITER" , "VIEW" )
-    if Hilfslinien.IsChecked = true                 then WarnLog "Hilfslinien x"
-    if FarbigeHandles.IsChecked = true              then WarnLog "FarbigeHandles x"
-    if GrosseHandles.IsChecked = true               then WarnLog "GrosseHandles x"
-    
-    if HorizontaleBildlaufleiste.IsChecked = true   then WarnLog "HorizontaleBildlaufleiste x"
-    if VertikaleBildlaufleiste.IsChecked = true     then WarnLog "VertikaleBildlaufleiste x"
-    if HorizontalesLineal.IsChecked = true          then WarnLog "HorizontalesLineal x/ ViewRuler"
-    if VertikalesLineal.IsChecked = true            then WarnLog "VertikalesLineal x"
-    if WeichesScrollen.IsChecked = true             then WarnLog "WeichesScrollen x"
-    if bAsianLan=true then
-        if RechtsAusgerichtet.IsVisible = true then
-            if RechtsAusgerichtet.IsEnabled = true then WarnLog "Right-aligned checkbox is enabled"
-        else
-            Warnlog "- Checkbox 'Right-aligned' is not visible !"
-        end if
-    end if
-
-    if ( HorizontalesLinealMasseinheit.GetSelIndex <> 1 ) then WarnLog "HorizontalesLinealMasseinheit is not item 1"
-    if ( VertikalesLinealMasseinheit.GetSelIndex <> 1 ) then WarnLog "VertikalesLinealMasseinheit   is not item 1"
-
-    Kontext "ExtrasOptionenDlg"
-    ExtrasOptionenDlg.OK
-    '/// restore default values
-    Call wOptionsUndo( "All" )
-
-    '/// close writer document
-    Do Until GetDocumentCount = 0
-        Call hCloseDocument
-    Loop
-endcase
-
-'------------------------------------------------------------------------------
-
-testcase tToolsOptionsWriterView3
-    dim option_value(11) as boolean
-    dim measurement_unit(3) as integer
-    dim iTemp(3) as integer
-
-    '/// new writer document
-    Call hNewDocument
-
-    '///- Tools/Options/Writer: View
-    ToolsOptions
-    Call hToolsOptions ( "WRITER" , "VIEW" )
-
-    '/// remember all settings
-    option_value(1) = Hilfslinien.IsChecked
-    option_value(2) = FarbigeHandles.IsChecked
-    option_value(3) = GrosseHandles.IsChecked
-    option_value(4) = HorizontaleBildlaufleiste.IsChecked
-    option_value(5) = VertikaleBildlaufleiste.IsChecked
-    option_value(10) = Lineal.IsChecked
-    option_value(6) = HorizontalesLineal.IsChecked
-    option_value(7) = VertikalesLineal.IsChecked
-    option_value(8) = WeichesScrollen.IsChecked
-    
-    measurement_unit(2) = HorizontalesLinealMasseinheit.GetSelIndex
-    measurement_unit(3) = VertikalesLinealMasseinheit.GetSelIndex
-
-    '/// - check all checkboxes
-    Hilfslinien.Check
-    FarbigeHandles.Check
-    GrosseHandles.Check
-    Lineal.Check
-    HorizontaleBildlaufleiste.Check
-    VertikaleBildlaufleiste.Check
-    HorizontalesLineal.Check
-    VertikalesLineal.Check
-    WeichesScrollen.Check
-
-    HorizontalesLinealMasseinheit.Select (2)
-    VertikalesLinealMasseinheit.Select (2)
-    itemp(2) = HorizontalesLinealMasseinheit.GetSelIndex
-    itemp(3) = VertikalesLinealMasseinheit.GetSelIndex
-
-    '/// close options dialog
-    Kontext "ExtrasOptionenDlg"
-    ExtrasOptionenDlg.OK
-
-    ViewTextBoundaries
-    ViewRuler
-
-    '/// - SO quit - restart
-    Call wOfficeRestart
-    '///- Tools/Options/Writer: View
-    ToolsOptions
-    Call hToolsOptions ( "WRITER" , "VIEW" )
-    
-    '/// - check if all checked
-    if Hilfslinien.IsChecked = false     then WarnLog "Hilfslinien o"
-    if FarbigeHandles.IsChecked = false  then WarnLog "FarbigeHandles o"
-    if GrosseHandles.IsChecked = false   then WarnLog "GrosseHandles o"
-
-    if HorizontaleBildlaufleiste.IsChecked  = false then WarnLog "HorizontaleBildlaufleiste o"
-    if VertikaleBildlaufleiste.IsChecked = false    then WarnLog "VertikaleBildlaufleiste o"
-    if HorizontalesLineal.IsChecked = false         then WarnLog "HorizontalesLineal o/      ViewRuler"
-    if VertikalesLineal.IsChecked = false           then WarnLog "VertikalesLineal o"
-    if WeichesScrollen.IsChecked = false            then WarnLog "WeichesScrollen o"
-
-    if ( HorizontalesLinealMasseinheit.GetSelIndex <> iTemp(2) ) then WarnLog "HorizontalesLinealMasseinheit is not item " + iTemp(2) + " it's: " + HorizontalesLinealMasseinheit.GetSelIndex
-    if ( VertikalesLinealMasseinheit.GetSelIndex <> iTemp(3) ) then WarnLog "VertikalesLinealMasseinheit   is not item " + iTemp(3) + " it's: " + VertikalesLinealMasseinheit.GetSelIndex
-
-    Kontext "ExtrasOptionenDlg"
-    ExtrasOptionenDlg.OK
-    '/// restore default values
-    Call wOptionsUndo( "All" )
-
-    '/// close document
-    Do Until GetDocumentCount = 0
-        Call hCloseDocument
-    Loop
-endcase
-
-'------------------------------------------------------------------------------
-
-testcase tToolsOptionsWriterView4
-    dim option_value(11) as boolean
-    dim measurement_unit(3) as integer
-    dim iTemp(3) as integer
-    '/// new writer document
-    printlog "- new writer document"
-    Call hNewDocument
-
-    '///- Tools/Options/Writer: View
-    ToolsOptions
-    Call hToolsOptions ( "WRITER" , "VIEW" )
-
-    '/// remember all values
-    printlog "- remember all values"
-    option_value(1) = Hilfslinien.IsChecked
-    option_value(2) = FarbigeHandles.IsChecked
-    option_value(3) = GrosseHandles.IsChecked
-    option_value(4) = HorizontaleBildlaufleiste.IsChecked
-    option_value(5) = VertikaleBildlaufleiste.IsChecked
-    option_value(10) = Lineal.IsChecked
-    option_value(6) = HorizontalesLineal.IsChecked
-    option_value(7) = VertikalesLineal.IsChecked
-    option_value(8) = WeichesScrollen.IsChecked
-    
-    measurement_unit(2) = HorizontalesLinealMasseinheit.GetSelIndex
-    measurement_unit(3) = VertikalesLinealMasseinheit.GetSelIndex
-
-    '/// close options dialog
-    printlog "- close options dialog"
-    Kontext "ExtrasOptionenDlg"
-    ExtrasOptionenDlg.OK
-    
-    '/// Insert a table
-    printlog "- insert a table"
-    InsertTableWriter
-    Kontext "TabelleEinfuegenWriter"
-    TabelleEinfuegenWriter.OK
-
-    '/// changing linewidth to 0
-    printlog "- changing linewidth to 0"
-    FormatTable
-    Kontext
-    active.SetPage TabUmrandung
-    Kontext "TabUmrandung"
-    Stil.Select 1
-    TabUmrandung.Ok
-    sleep (3)
-
-    '/// insert a graphic
-    printlog "- insert a graphic"
-    Kontext "DocumentWriter"
-    DocumentWriter.TypeKeys "<down>"
-    DocumentWriter.TypeKeys "<down>"
-
-    Call hGrafikEinfuegen ( gTesttoolPath + "writer\optional\input\options\ga000907.gif" )
-
-    ' see everything
-    ToolsOptions
-    Call hToolsOptions ( "WRITER" , "VIEW" )
-
-    '///' Hilfslinien.Check only, when graphic's in motion! ///'
-    printlog "- check values"
-    FarbigeHandles.Check
-    GrosseHandles.Check
-    Kontext "ExtrasOptionenDlg"
-    ExtrasOptionenDlg.Ok
-
-    ToolsOptions
-    Call hToolsOptions ( "WRITER" , "VIEW" )
-    printlog "- uncheck values"
-    FarbigeHandles.UnCheck
-    GrosseHandles.UnCheck
-
-    Kontext "ExtrasOptionenDlg"
-    ExtrasOptionenDlg.OK
-    '/// restore default values
-    printlog "- set defaultsvalues in options"
-    Call wOptionsUndo( "All" )
-
-    '/// close document
-    Do Until GetDocumentCount = 0
-        Call hCloseDocument
-    Loop
-endcase
-
-'------------------------------------------------------------------------------
-
-testcase tToolsOptionsWriterView5
-    dim option_value(17) as boolean
-
-    Call hNewDocument
-    '/// open document: writer\\optional\\input\\options\\options1.sxw
-    hFileOpenLocally(  gTesttoolPath + "writer\optional\input\options\options1.sxw" )
-    
-    '///- Tools/Options/Writer: View
-
-    printlog ("'/// - save states ///")
-    ToolsOptions
-    Call hToolsOptions ("WRITER","VIEW")
-
-    option_value(1) = GrafikenUndObjekte.IsChecked
-    option_value(2) = Zeichnungen.IsChecked
-    option_value(3) = Feldname.IsChecked
-    option_value(4) = Notizen.IsChecked
-
-    printlog ("'/// - all states inverting ///")
-
-    if option_value(1) then GrafikenUndObjekte.UnCheck else GrafikenUndObjekte.Check
-    if option_value(2) then Zeichnungen.UnCheck else Zeichnungen.Check
-    if option_value(3) then Feldname.UnCheck else Feldname.Check
-    if option_value(4) then Notizen.UnCheck else Notizen.Check
-
-    Kontext "ExtrasOptionenDlg"
-    ExtrasOptionenDlg.OK
-
-    printlog ("'/// - SO quit - start ///")
-
-    CALL wOfficeRestart
-
-    printlog ("'/// - checking states ///")
-    ToolsOptions
-    Call hToolsOptions ( "WRITER" , "VIEW" )
-
-    if ( option_value(1) = GrafikenUndObjekte.IsChecked ) then WarnLog "Graphics and objects state changed"
-    if ( option_value(2) = Zeichnungen.IsChecked  ) then WarnLog "Zeichnungen state changed"
-    if ( option_value(3) = Feldname.IsChecked  ) then  WarnLog "Feldname state changed"
-    if ( option_value(4) = Notizen.IsChecked  ) then  WarnLog "Notizen state changed"
-
-    Kontext "ExtrasOptionenDlg"
-    ExtrasOptionenDlg.OK
-    '/// restore default values
-    printlog "- set defaultsvalues in options"
-    Call wOptionsUndo( "All" )
-
-    '/// close document
-    Do Until GetDocumentCount = 0
-        Call hCloseDocument
-    Loop
-endcase
-
-'------------------------------------------------------------------------------
-
-testcase tToolsOptionsWriterView6
-    dim option_value(17) as boolean
-
-    Call hNewDocument
-    '/// open document: writer\\optional\\input\\options\\options1.sxw
-    hFileOpenLocally(  gTesttoolPath + "writer\optional\input\options\options1.sxw" )
-    
-    '///- Tools/Options/Writer: View
-
-    printlog ("'/// - save states ///")
-    ToolsOptions
-    Call hToolsOptions ("WRITER","VIEW")
-
-    option_value(1) = GrafikenUndObjekte.IsChecked
-    option_value(2) = Zeichnungen.IsChecked
-    option_value(3) = Feldname.IsChecked
-    option_value(4) = Notizen.IsChecked
-
-    printlog ("'/// - all states unchecked ///")
-
-    GrafikenUndObjekte.UnCheck
-    Zeichnungen.UnCheck
-    Feldname.UnCheck
-    Notizen.UnCheck
-
-    Kontext "ExtrasOptionenDlg"
-    ExtrasOptionenDlg.OK
-
-    printlog ("'/// - SO quit - start ///")
-
-    CALL wOfficeRestart
-
-    printlog ("'/// - checking states ///")
-    ToolsOptions
-    Call hToolsOptions ( "WRITER" , "VIEW" )
-
-    if GrafikenUndObjekte.IsChecked then WarnLog "Graphics and objects x"
-    if Zeichnungen.IsChecked then WarnLog "Zeichnungen x"
-    if Feldname.IsChecked then  WarnLog "Feldname x"
-    if Notizen.IsChecked then  WarnLog "Notizen x"
-    
-    printlog ("'/// - restore states ///")
-    if ( option_value(1) = TRUE ) Then  GrafikenUndObjekte.Check Else GrafikenUndObjekte.UnCheck
-    if ( option_value(2) = TRUE ) Then  Zeichnungen.Check Else Zeichnungen.UnCheck
-    if ( option_value(3) = TRUE ) Then  Feldname.Check Else Feldname.UnCheck
-    if ( option_value(4) = TRUE ) Then  Notizen.Check Else Notizen.UnCheck
-
-    Kontext "ExtrasOptionenDlg"
-    ExtrasOptionenDlg.OK
-    '/// restore default values
-    printlog "- set defaultsvalues in options"
-    Call wOptionsUndo( "All" )
-
-    '/// close document
-    Do Until GetDocumentCount = 0
-        Call hCloseDocument
-    Loop
-endcase
-
-'------------------------------------------------------------------------------
-
-testcase tToolsOptionsWriterView7
-    dim option_value(17) as boolean
-
-    Call hNewDocument
-    '/// open document: writer\\optional\\input\\options\\options1.sxw
-    hFileOpenLocally(  gTesttoolPath + "writer\optional\input\options\options1.sxw" )
-    
-    '///- Tools/Options/Writer: View
-
-    printlog ("'/// - save states ///")
-    ToolsOptions
-    Call hToolsOptions ("WRITER","VIEW")
-
-    option_value(1) = GrafikenUndObjekte.IsChecked
-    option_value(2) = Zeichnungen.IsChecked
-    option_value(3) = Feldname.IsChecked
-    option_value(4) = Notizen.IsChecked
-
-    printlog ("'/// - all Check -> x ///")
-
-    GrafikenUndObjekte.Check
-    Zeichnungen.Check
-    Feldname.Check
-    Notizen.Check
-
-    Kontext "ExtrasOptionenDlg"
-    ExtrasOptionenDlg.OK
-
-    printlog ("'/// - SO quit - start ///")
-
-    CALL wOfficeRestart
-
-    printlog ("'/// - check if all Checked ///")
-    ToolsOptions
-    hToolsOptions ( "WRITER" , "VIEW" )
-
-    if true <> GrafikenUndObjekte.IsChecked then WarnLog "Graphics and objects o"
-    if true <> Zeichnungen.IsChecked then WarnLog "Zeichnungen o"
-    if true <> Feldname.IsChecked then  WarnLog "Feldname o"
-    if true <> Notizen.IsChecked then  WarnLog "Notizen o"
-
-    Kontext "ExtrasOptionenDlg"
-    ExtrasOptionenDlg.OK
-
-    '/// restore default values
-'    printlog "- set defaultsvalues in options"
-'    Call wOptionsUndo( "All" )
-
-    '/// close document
-    Do Until GetDocumentCount = 0
-        Call hCloseDocument
-    Loop
-endcase
-
-'------------------------------------------------------------------------------
-
-testcase tToolsOptionsWriterGrid1
-    dim option_value(3) as boolean
-    dim sMetricField(4) as string      ' MetricField
-    dim sTempMetricField(4) as string
-
-    '/// new writer document
-
-    Call hNewDocument
-
-    '/// Tools/Options/Writer: Grid
-    printlog "- Tools/Options/Writer: Grid"
-
-    '/// remember values
-    ToolsOptions
-    Call hToolsOptions ( "WRITER" , "GRID" )
-    printlog "- remember values"
-    option_value(1) = FangrasterBenutzen.IsChecked
-    option_value(2) = RasterSichtbar.IsChecked
-    option_value(3) = AchsenSynchronisieren.IsChecked
-    
-    sMetricField(1) = RasterAufloesungXAchse.GetText
-    sMetricField(2) = RasterAufloesungYAchse.GetText
-    sMetricField(3) = RasterUnterteilungXAchse.GetText
-    sMetricField(4) = RasterUnterteilungYAchse.GetText
-
-    '/// - all states inverting
-    printlog "- all states inverting"
-    
-    if option_value(1) then FangrasterBenutzen.UnCheck    else FangrasterBenutzen.Check
-    if option_value(2) then RasterSichtbar.UnCheck        else RasterSichtbar.Check
-    'if option_value(3) then AchsenSynchronisieren.UnCheck else AchsenSynchronisieren.Check
-    'this CheckBox interacts with the MetricBoxes:
-    AchsenSynchronisieren.UnCheck
-
-    sTempMetricField(1) = RasterAufloesungXAchse.GetText
-    sTempMetricField(2) = RasterAufloesungYAchse.GetText
-    sTempMetricField(3) = RasterUnterteilungXAchse.GetText
-    sTempMetricField(4) = RasterUnterteilungYAchse.GetText
-    RasterAufloesungXAchse.ToMax
-    RasterAufloesungYAchse.ToMin
-    RasterUnterteilungXAchse.ToMin
-    RasterUnterteilungYAchse.ToMax
-    if ( RasterAufloesungXAchse.GetText =   sTempMetricField(1) ) then RasterAufloesungXAchse.ToMin
-    if ( RasterAufloesungYAchse.GetText =   sTempMetricField(2) ) then RasterAufloesungYAchse.ToMax
-    if ( RasterUnterteilungXAchse.GetText = sTempMetricField(3) ) then RasterUnterteilungXAchse.ToMax
-    if ( RasterUnterteilungYAchse.GetText = sTempMetricField(4) ) then RasterUnterteilungYAchse.ToMin
-    sTempMetricField(1) = RasterAufloesungXAchse.GetText
-    sTempMetricField(2) = RasterAufloesungYAchse.GetText
-    sTempMetricField(3) = RasterUnterteilungXAchse.GetText
-    sTempMetricField(4) = RasterUnterteilungYAchse.GetText
-
-    Kontext "ExtrasOptionenDlg"
-    ExtrasOptionenDlg.OK
-
-    '/// - SO quit - start
-    printlog "'- SO quit - start"
-    Call wOfficeRestart
-    '/// - checking states
-    printlog "- checking states"
-    ToolsOptions
-    Call hToolsOptions ( "WRITER" , "GRID" )
-
-    if (option_value(1) = FangrasterBenutzen.IsChecked    ) then WarnLog "FangrasterBenutzen state changed BugID: 82944 "
-    if (option_value(2) = RasterSichtbar.IsChecked        ) then WarnLog "RasterSichtbar state changed"
-    'if (option_value(3)=  AchsenSynchronisieren.IsChecked ) then WarnLog "AchsenSynchronisieren state changed"
-    if ( AchsenSynchronisieren.IsChecked = true ) then WarnLog "AchsenSynchronisieren state changed"
-    if ( RasterAufloesungXAchse.GetText <>   sTempMetricField(1) ) then WarnLog "RasterAufloesungXAchse state changed"
-    if ( RasterAufloesungYAchse.GetText <>   sTempMetricField(2) ) then WarnLog "RasterAufloesungYAchse state changed"
-    if ( RasterUnterteilungXAchse.GetText <> sTempMetricField(3) ) then WarnLog "RasterUnterteilungXAchse state changed"
-    if ( RasterUnterteilungYAchse.GetText <> sTempMetricField(4) ) then WarnLog "RasterUnterteilungYAchse state changed"
-
-    Kontext "ExtrasOptionenDlg"
-    ExtrasOptionenDlg.OK        
-    '/// restore default values 
-    printlog "- set defaultsvalues in options"
-    Call wOptionsUndo( "Grid" )
-
-    '/// close document
-    Do Until GetDocumentCount = 0
-        Call hCloseDocument
-    Loop
-endcase
-
-'------------------------------------------------------------------------------
-
-testcase tToolsOptionsWriterGrid2
-    dim option_value(3) as boolean
-    dim sMetricField(4) as string      ' MetricField
-    dim sTempMetricField(4) as string
-
-    '/// new writer document
-    Call hNewDocument
-    '/// Tools/Options/Writer: Grid
-    ToolsOptions
-    Call hToolsOptions ( "WRITER" , "GRID" )
-
-    '/// remember values set
-    option_value(1) = FangrasterBenutzen.IsChecked
-    option_value(2) = RasterSichtbar.IsChecked
-    option_value(3) = AchsenSynchronisieren.IsChecked
-
-    sMetricField(1) = RasterAufloesungXAchse.GetText
-    sMetricField(2) = RasterAufloesungYAchse.GetText
-    sMetricField(3) = RasterUnterteilungXAchse.GetText
-    sMetricField(4) = RasterUnterteilungYAchse.GetText
-
-    printlog "- uncheck all checkboxes and set metric fields to min"
-    '/// - uncheck all checkboxes and set metric fields to min
-    FangrasterBenutzen.UnCheck
-    RasterSichtbar.UnCheck
-    AchsenSynchronisieren.UnCheck
-    
-    RasterAufloesungXAchse.ToMin
-    RasterAufloesungYAchse.ToMin
-    RasterUnterteilungXAchse.ToMin
-    RasterUnterteilungYAchse.ToMin
-    sTempMetricField(1) = RasterAufloesungXAchse.GetText
-    sTempMetricField(2) = RasterAufloesungYAchse.GetText
-    sTempMetricField(3) = RasterUnterteilungXAchse.GetText
-    sTempMetricField(4) = RasterUnterteilungYAchse.GetText
-
-    RasterAufloesungXAchse.More
-    RasterAufloesungYAchse.More
-    RasterUnterteilungXAchse.More
-    RasterUnterteilungYAchse.More
-    if ( sTempMetricField(1) = RasterAufloesungXAchse.GetText   ) then WarnLog "RasterAufloesungXAchse  More-Button not working"
-    if ( sTempMetricField(2) = RasterAufloesungYAchse.GetText   ) then WarnLog "RasterAufloesungYAchse  More-Button not working"
-    if ( sTempMetricField(3) = RasterUnterteilungXAchse.GetText ) then WarnLog "RasterUnterteilungXAchse More-Button not working"
-    if ( sTempMetricField(4) = RasterUnterteilungYAchse.GetText ) then WarnLog "RasterUnterteilungYAchse More-Button not working"
-    sTempMetricField(1) = RasterAufloesungXAchse.GetText
-    sTempMetricField(2) = RasterAufloesungYAchse.GetText
-    sTempMetricField(3) = RasterUnterteilungXAchse.GetText
-    sTempMetricField(4) = RasterUnterteilungYAchse.GetText
-    
-    Kontext "ExtrasOptionenDlg"
-    ExtrasOptionenDlg.OK
-
-    '/// SO quit - start
-    printlog "- SO quit - start"
-
-    Call wOfficeRestart
-
-    printlog ("'/// - checking states ///")
-    ToolsOptions
-    Call hToolsOptions ( "WRITER" , "GRID" )
-
-    if FangrasterBenutzen.IsChecked     then WarnLog "FangrasterBenutzen x"
-    if RasterSichtbar.IsChecked         then WarnLog "RasterSichtbar x"
-    if AchsenSynchronisieren.IsChecked  then WarnLog "AchsenSynchronisieren x"
-    if ( RasterAufloesungXAchse.GetText <>   sTempMetricField(1) ) then WarnLog "RasterAufloesungXAchse is not min."
-    if ( RasterAufloesungYAchse.GetText <>   sTempMetricField(2) ) then WarnLog "RasterAufloesungYAchse is not min."
-    if ( RasterUnterteilungXAchse.GetText <> sTempMetricField(3) ) then WarnLog "RasterUnterteilungXAchse is not min."
-    if ( RasterUnterteilungYAchse.GetText <> sTempMetricField(4) ) then WarnLog "RasterUnterteilungYAchse is not min."
-
-    Kontext "ExtrasOptionenDlg"
-    ExtrasOptionenDlg.OK
-    '/// restore default values
-    printlog "- set defaultsvalues in options"
-    Call wOptionsUndo( "Grid" )
-
-    '/// close document
-    Do Until GetDocumentCount = 0
-        Call hCloseDocument
-    Loop
-endcase
-
-'------------------------------------------------------------------------------
-
-testcase tToolsOptionsWriterGrid3
-    dim option_value(3) as boolean
-    dim sMetricField(4) as string      ' MetricField
-    dim sTempMetricField(4) as string
-
-    '/// New document
-    Call hNewDocument
-    printlog "'///- Tools/Options/Writer: Grid ///"
-    '/// Tools/Options/Writer: Grid
-    printlog ("'/// - save states ///")
-    '/// remember values
-
-    ToolsOptions
-    Call hToolsOptions ( "WRITER" , "GRID" )
-    option_value(1) = FangrasterBenutzen.IsChecked
-    option_value(2) = RasterSichtbar.IsChecked
-    option_value(3) = AchsenSynchronisieren.IsChecked
-    
-    sMetricField(1) = RasterAufloesungXAchse.GetText
-    sMetricField(2) = RasterAufloesungYAchse.GetText
-    sMetricField(3) = RasterUnterteilungXAchse.GetText
-    sMetricField(4) = RasterUnterteilungYAchse.GetText
-
-    printlog "- all Check"
-    '/// check all values
-    FangrasterBenutzen.Check
-    RasterSichtbar.Check
-    AchsenSynchronisieren.Check
-
-    '///' Synchronize axes check -------------------- ///'
-    RasterAufloesungXAchse.ToMax
-    wait 500
-    sTempMetricField(1) = RasterAufloesungXAchse.GetText
-    if RasterAufloesungYAchse.GetText <> sTempMetricField(1) then Warnlog "Y-axis res. differs from X-axis"
-    RasterUnterteilungXAchse.ToMax
-    wait 500
-    sTempMetricField(3) = RasterUnterteilungXAchse.GetText
-    if RasterUnterteilungYAchse.GetText <> sTempMetricField(3) then Warnlog "Y-axis sub. differs from X-axis"
-    sTempMetricField(2) = RasterAufloesungYAchse.GetText
-    sTempMetricField(4) = RasterUnterteilungYAchse.GetText
-    
-    Kontext "ExtrasOptionenDlg"
-    ExtrasOptionenDlg.OK
-
-    printlog ("'/// - SO quit - start ///")
-    Call wOfficeRestart
-
-    printlog ("'/// - checking states ///")
-    ToolsOptions
-    Call hToolsOptions ( "WRITER" , "GRID" )
-
-    if FangrasterBenutzen.IsChecked = false     then WarnLog "FangrasterBenutzen o"
-    if RasterSichtbar.IsChecked = false         then WarnLog "RasterSichtbar o"
-    if AchsenSynchronisieren.IsChecked = false  then WarnLog "AchsenSynchronisieren o"
-    if ( RasterAufloesungXAchse.GetText <>   sTempMetricField(1) ) then WarnLog "RasterAufloesungXAchse is not max.Bug 54934 in 01:"
-    if ( RasterAufloesungYAchse.GetText <>   sTempMetricField(2) ) then WarnLog "RasterAufloesungYAchse is not max."
-    if ( RasterUnterteilungXAchse.GetText <> sTempMetricField(3) ) then WarnLog "RasterUnterteilungXAchse is not max."
-    if ( RasterUnterteilungYAchse.GetText <> sTempMetricField(4) ) then WarnLog "RasterUnterteilungYAchse is not max."
-
-    Kontext "ExtrasOptionenDlg"
-    ExtrasOptionenDlg.OK
-    '/// restore default values
-    printlog "- set defaultsvalues in options"
-    Call wOptionsUndo( "Grid" )
-
-    '/// close document
-    Do Until GetDocumentCount = 0
-        Call hCloseDocument
-    Loop
-endcase
-
-'------------------------------------------------------------------------------
-
-testcase tToolsOptionsWriterGrid4
-    dim option_value(3) as boolean
-    dim sMetricField(4) as string      ' MetricField
-    dim sTempMetricField(4) as string
-
-    '/// new writer document
-
-    Call hNewDocument
-
-    printlog "'///- Tools/Options/Writer: Grid ///"
-
-    printlog ("'/// - save states ///")
-
-    ToolsOptions
-    Call hToolsOptions ( "WRITER" , "GRID" )
-
-    printlog ("'///TabRaster all UnCheck ! ///")
-
-    option_value(1) = FangrasterBenutzen.IsChecked
-    option_value(2) = RasterSichtbar.IsChecked
-    option_value(3) = AchsenSynchronisieren.IsChecked
-    
-    sMetricField(1) = RasterAufloesungXAchse.GetText
-    sMetricField(2) = RasterAufloesungYAchse.GetText
-    sMetricField(3) = RasterUnterteilungXAchse.GetText
-    sMetricField(4) = RasterUnterteilungYAchse.GetText
-
-    Kontext "ExtrasOptionenDlg"
-    ExtrasOptionenDlg.Cancel
-
-    printlog ("'/// Function Test: Grid Resolution ///'")
-    '///  ( gTesttoolPath + "writer\optional\input\options\gridtst.sxw" ) ///'
-
-    hFileOpenLocally(  gTesttoolPath + "writer\optional\input\options\gridtst.sxw", False )
-    
-
-    ' select grafik element
-    Call wNavigatorAuswahl(4,1)
-
-    ' check if @ (0,0) Pineapples ;-)
-    wait 500
-    ViewNavigator
-    wait 500
-    FormatGraphics
-    wait 500
-    Kontext
-    Active.SetPage TabType
-    Kontext "TabType"
-    wait 500
-    if ( StrToDouble (HorizontalBy.GetText) <> 0 ) then WarnLog "HorizontalBy wrong presupposition != 0"
-    if ( StrToDouble (VerticalBy.GetText) <> 0 ) then WarnLog   "VerticalBy   wrong presupposition != 0"
-    TabType.Cancel
-    sleep (3)
-
-    ' change Grid Resolution
-    ToolsOptions
-    Call hToolsOptions ( "WRITER" , "GRID" )
-    AchsenSynchronisieren.Uncheck
-    RasterAufloesungXAchse.SetText("2")
-    RasterAufloesungYAchse.SetText("3")
-    RasterUnterteilungXAchse.SetText("2")
-    RasterUnterteilungYAchse.SetText("3")
-    Kontext "ExtrasOptionenDlg"
-    ExtrasOptionenDlg.OK
-
-    '/// move grafik with <Alt> + <up/down> ///'
-    '/// resulting step = 1 Step = 0.10cm ///'
-    Kontext "DocumentWriter"
-    DocumentWriter.TypeKeys "<Mod2 Down>", 45
-    sleep (3)
-    DocumentWriter.TypeKeys "<Mod2 Right>", 45
-
-    ' check if @ (1,1) Current-Measure-Unit :-)
-    Call wNavigatorAuswahl(4,1)
-    ViewNavigator
-    sleep (3)
-    try
-        FormatGraphics
-    catch
-        printlog "why is formatgraphics not enabled ????!!! wrong focus??"
-    endcatch
-    Kontext "TabType"
-    ' This value depends on the current screensize, so I check only if value have changed!!
-    if ( 0 = StrToDouble (HorizontalBy.GetText)) then WarnLog "RasterAufloesungXAchse has not been changed !"
-    if ( 0 = StrToDouble (VerticalBy.GetText)) then WarnLog   "RasterAufloesungYAchse has not been changed!"
-    TabType.Cancel
-
-    Call hCloseDocument
-    Call hNewDocument
-
-    '/// restore default values 
-    printlog "- set defaultsvalues in options"
-    Call wOptionsUndo( "Grid" )
-
-    '/// close document
-    Do Until GetDocumentCount = 0
-        Call hCloseDocument
-    Loop
-endcase
-
-'------------------------------------------------------------------------------
diff --git a/testautomation/writer/optional/includes/option/wr_o_2.inc b/testautomation/writer/optional/includes/option/wr_o_2.inc
deleted file mode 100644
index 4c5cdc95391f..000000000000
--- a/testautomation/writer/optional/includes/option/wr_o_2.inc
+++ /dev/null
@@ -1,990 +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 : helge.delfs@oracle.com
-'*
-'* short description : Functional-Tests for Tools-Options-Writer-DefaultFont, Print, Table
-'*
-'\***********************************************************************
-
-sub wr_o_2
-    Dim temp as boolean
-
-    Call tToolsOptionsWriterDefaultfont("BASICFONTS")
-    Call tToolsOptionsWriterPrint
-    ' is located in wr_o_a.inc
-    Call tToolsOptionsWriterPrint1
-    Call tToolsOptionsWriterTable
-    Call tToolsOptionsWriterTable1
-    ' is located in wr_o_a.inc
-    Call tToolsOptionsWriterTableMove
-    Call tToolsOptionsWriterTableInsert
-    Call tToolsOptionsWriterTableEffects
-    Call tToolsOptionsWriterTableEffects2
-end sub
-
-'------------------------------------------------------------------------------
-
-testcase tToolsOptionsWriterDefaultfont (WestOrEast as string)
-
-    Dim bCheckboxes(1) as boolean    ' Checkbox states
-    Dim iListBox(5) as integer         ' ListBox
-    Dim sListBox(5) as String
-    Dim iListBoxSize(5) as integer         ' ListBox
-    Dim sListBoxSize(5) as String
-    Dim iTempListBox(5) as integer
-    Dim sTempListBox(5) as String
-    Dim iTempListBoxSize(5) as integer
-    Dim sTempListBoxSize(5) as String
-    Dim sInitFont(5) as String
-    Dim sInitFontSize(5) as String
-    Dim i as integer
-    Dim x as integer
-    Dim sFileName as string
-    Dim sTempS as String
-
-    '/// Got called two times ///'
-    '///+ 1. for the western- ///'
-    '///+ 2. for the asian    font page ///'
-
-    Call hNewDocument
-    ' Remember the init-font directly after installation
-    ToolsOptions
-    Call hToolsOptions ("WRITER",WestOrEast)
-    Standard.Click
-    sInitFont(1) = StandardSchrift.GetSelText
-    sInitFont(2) = Ueberschrift.GetSelText
-    sInitFont(3) = Liste.GetSelText
-    sInitFont(4) = Beschriftung.GetSelText
-    sInitFont(5) = Verzeichnis.GetSelText
-    sInitFontSize(1) = StandardSchriftGroesse.GetSelText
-    sInitFontSize(2) = UeberschriftGroesse.GetSelText
-    sInitFontSize(3) = ListeGroesse.GetSelText
-    sInitFontSize(4) = BeschriftungGroesse.GetSelText
-    sInitFontSize(5) = VerzeichnisGroesse.GetSelText
-    Kontext "ExtrasOptionenDlg"
-    ExtrasOptionenDlg.OK
-    WaitSlot (2)
-
-    if (Ucase(WestOrEast) = "BASICFONTSASIAN") then
-        printlog "------------ ASIAN FONTS -------------"
-        warnlog "TBO: don't know how it get's handeld, so don't pay ANY attention to warnlogs :-)"
-        sFileName = gTesttoolPath + "writer\optional\input\options\options2.sxw"
-    else
-        printlog "------------ WESTERN FONTS -------------"
-        Call ActiveDeactivateAsianSupport(False)
-        sFileName = gTesttoolPath + "writer\optional\input\options\options2.sxw"
-    end if
-
-    '/// use a document to check the font with styles///'
-    '///+ use 'input\\writer\\optional\\options\\options2.sxw' ///
-    hFileOpenLocally(  sFileName )
-    
-    printlog "- Tools/Options/Writer: DefaultFont"
-
-    printlog ("/// - save states ///")
-    ToolsOptions
-    Call hToolsOptions ("WRITER",WestOrEast)
-
-    bCheckboxes(1) = AktuellesDokument.IsChecked
-    iListBox(1) = StandardSchrift.GetSelIndex
-    iListBox(2) = Ueberschrift.GetSelIndex
-    iListBox(3) = Liste.GetSelIndex
-    iListBox(4) = Beschriftung.GetSelIndex
-    iListBox(5) = Verzeichnis.GetSelIndex
-    sListBox(1) = StandardSchrift.GetSelText
-    sListBox(2) = Ueberschrift.GetSelText
-    sListBox(3) = Liste.GetSelText
-    sListBox(4) = Beschriftung.GetSelText
-    sListBox(5) = Verzeichnis.GetSelText
-
-    iListBoxSize(1) = StandardSchriftGroesse.GetSelIndex
-    iListBoxSize(2) = UeberschriftGroesse.GetSelIndex
-    iListBoxSize(3) = ListeGroesse.GetSelIndex
-    iListBoxSize(4) = BeschriftungGroesse.GetSelIndex
-    iListBoxSize(5) = VerzeichnisGroesse.GetSelIndex
-    sListBoxSize(1) = StandardSchriftGroesse.GetSelText
-    sListBoxSize(2) = UeberschriftGroesse.GetSelText
-    sListBoxSize(3) = ListeGroesse.GetSelText
-    sListBoxSize(4) = BeschriftungGroesse.GetSelText
-    sListBoxSize(5) = VerzeichnisGroesse.GetSelText
-
-    printlog ("'/// - all states inverting ///")
-
-    AktuellesDokument.UnCheck
-    if ( StandardSchrift.GetItemCount > iListBox(1) ) then StandardSchrift.Select(iListBox(1) + 2) else StandardSchrift.Select(iListBox(1)-1)
-    if ( Ueberschrift.GetItemCount    > iListBox(2) and iListBox(2) > 1 ) then Ueberschrift.Select(iListBox(2)-1) else Ueberschrift.Select(iListBox(2)+1)
-    if ( Liste.GetItemCount           > iListBox(3) ) then Liste.Select          (iListBox(3) + 1) else Liste.Select(iListBox(3)-1)
-    if ( Beschriftung.GetItemCount    > iListBox(4) and iListBox(4) > 1 ) then Beschriftung.Select   (iListBox(4)-1) else Beschriftung.Select(iListBox(4)+1)
-    if ( Verzeichnis.GetItemCount     > iListBox(5) ) then Verzeichnis.Select    (iListBox(5) + 1) else Verzeichnis.Select(iListBox(5)-1)
-
-    if ( StandardSchriftGroesse.GetItemCount > iListBoxSize(1) ) then StandardSchriftGroesse.Select(iListBoxSize(1) + 2) else StandardSchriftGroesse.Select(iListBox(1)-1)
-    if ( UeberschriftGroesse.GetItemCount    > iListBoxSize(2) and iListBoxSize(2) > 1 ) then UeberschriftGroesse.Select(iListBoxSize(2)-1) else UeberschriftGroesse.Select(iListBoxSize(2)+1)
-    if ( ListeGroesse.GetItemCount           > iListBoxSize(3) ) then ListeGroesse.Select          (iListBoxSize(3) + 1) else ListeGroesse.Select(iListBoxSize(3)-1)
-    if ( BeschriftungGroesse.GetItemCount    > iListBoxSize(4) and iListBoxSize(4) > 1 ) then BeschriftungGroesse.Select   (iListBoxSize(4)-1) else BeschriftungGroesse.Select(iListBoxSize(4)+1)
-    if ( VerzeichnisGroesse.GetItemCount     > iListBoxSize(5) ) then VerzeichnisGroesse.Select    (iListBoxSize(5) + 1) else VerzeichnisGroesse.Select(iListBoxSize(5)-1)
-
-    iTempListBox(1) = StandardSchrift.GetSelIndex
-    iTempListBox(2) = Ueberschrift.GetSelIndex
-    iTempListBox(3) = Liste.GetSelIndex
-    iTempListBox(4) = Beschriftung.GetSelIndex
-    iTempListBox(5) = Verzeichnis.GetSelIndex
-
-    sTempListBox(1) = StandardSchrift.GetSelText
-    sTempListBox(2) = Ueberschrift.GetSelText
-    sTempListBox(3) = Liste.GetSelText
-    sTempListBox(4) = Beschriftung.GetSelText
-    sTempListBox(5) = Verzeichnis.GetSelText
-
-    iTempListBoxSize(1) = StandardSchriftGroesse.GetSelIndex
-    iTempListBoxSize(2) = UeberschriftGroesse.GetSelIndex
-    iTempListBoxSize(3) = ListeGroesse.GetSelIndex
-    iTempListBoxSize(4) = BeschriftungGroesse.GetSelIndex
-    iTempListBoxSize(5) = VerzeichnisGroesse.GetSelIndex
-
-    sTempListBoxSize(1) = StandardSchriftGroesse.GetSelText
-    sTempListBoxSize(2) = UeberschriftGroesse.GetSelText
-    sTempListBoxSize(3) = ListeGroesse.GetSelText
-    sTempListBoxSize(4) = BeschriftungGroesse.GetSelText
-    sTempListBoxSize(5) = VerzeichnisGroesse.GetSelText
-
-    Kontext "ExtrasOptionenDlg"
-    ExtrasOptionenDlg.OK
-    WaitSlot (2)
-
-    Printlog "'/// - check whether fonts get changed in doc. ///"
-    Kontext "DocumentWriter"
-    DocumentWriter.TypeKeys "<Up>", 5
-    Call wTypeKeys "<Home><Right>"
-    sTempS = wGetCharacterFont()
-    if sTempS <> sTempListBox(1) then Warnlog "Default font: state changed  is: "+sTempS+" ;should: "+sTempListBox(1)+" : "+iTempListBox(1)
-    Call wTypeKeys "<Down>"
-    sTempS = wGetCharacterFont()
-    if sTempS <> sTempListBox(2) then Warnlog "Heading font: state changed  is: "+sTempS+" ;should: "+sTempListBox(2)+" : "+iTempListBox(2)
-    Call wTypeKeys "<Down>"
-    sTempS = wGetCharacterFont()
-    if sTempS <> sTempListBox(3) then Warnlog "List font: state changed  is: "+sTempS+" ;should: "+sTempListBox(3)+" : "+iTempListBox(3)
-    Call wTypeKeys "<Down>"
-    sTempS = wGetCharacterFont()
-    if sTempS <> sTempListBox(4) then Warnlog "Caption font: state changed  is: "+sTempS+" ;should: "+sTempListBox(4)+" : "+iTempListBox(4)
-    Call wTypeKeys "<Down>"
-    sTempS = wGetCharacterFont()
-    if sTempS <> sTempListBox(5) then Warnlog "Index font: state changed  is: "+sTempS+" ;should: "+sTempListBox(5)+" : "+iTempListBox(5)
-
-    Call wTypeKeys "<Mod1 Home><Right>"
-    sTempS = wGetCharacterFontSize()
-    if sTempS <> sTempListBoxSize(1) then Warnlog "Default fontsize: state changed  is: "+sTempS+" ;should: "+sTempListBoxSize(1)+" : "+iTempListBoxSize(1)
-    Call wTypeKeys "<Down>"
-    sTempS = wGetCharacterFontSize()
-    if sTempS <> sTempListBoxSize(2) then Warnlog "Heading fontsize: state changed  is: "+sTempS+" ;should: "+sTempListBoxSize(2)+" : "+iTempListBoxSize(2)
-    Call wTypeKeys "<Down>"
-    sTempS = wGetCharacterFontSize()
-    if sTempS <> sTempListBoxSize(3) then Warnlog "List fontsize: state changed  is: "+sTempS+" ;should: "+sTempListBoxSize(3)+" : "+iTempListBoxSize(3)
-    Call wTypeKeys "<Down>"
-    sTempS = wGetCharacterFontSize()
-    if sTempS <> sTempListBoxSize(4) then Warnlog "Caption fontsize: state changed  is: "+sTempS+" ;should: "+sTempListBoxSize(4)+" : "+iTempListBoxSize(4)
-    Call wTypeKeys "<Down>"
-    sTempS = wGetCharacterFontSize()
-    if sTempS <> sTempListBoxSize(5) then Warnlog "Index fontsize: state changed  is: "+sTempS+" ;should: "+sTempListBoxSize(5)+" : "+iTempListBoxSize(5)
-
-    printlog (" - SO quit - start"   )
-
-    Call wOfficeRestart
-    WaitSlot (2)
-
-    printlog ("'/// - checking states ///")
-    ToolsOptions
-    Call hToolsOptions ( "WRITER" , WestOrEast )
-
-    if ( AktuellesDokument.IsChecked = TRUE ) then WarnLog "Current document only state changed"
-    if ( StandardSchrift.GetSelIndex <> iTempListBox(1) ) then WarnLog "Default font state changed"
-    if ( Ueberschrift.GetSelIndex    <> iTempListBox(2) ) then WarnLog "Heading font    state changed"
-    if ( Liste.GetSelIndex           <> iTempListBox(3) ) then WarnLog "List font           state changed"
-    if ( Beschriftung.GetSelIndex    <> iTempListBox(4) ) then WarnLog "Caption font    state changed"
-    if ( Verzeichnis.GetSelIndex     <> iTempListBox(5) ) then WarnLog "Index     state changed"
-
-    if ( StandardSchriftGroesse.GetSelIndex <> iTempListBoxSize(1) ) then WarnLog "Default fontsize state changed"
-    if ( UeberschriftGroesse.GetSelIndex    <> iTempListBoxSize(2) ) then WarnLog "Heading fontsize    state changed"
-    if ( ListeGroesse.GetSelIndex           <> iTempListBoxSize(3) ) then WarnLog "List fontsize           state changed"
-    if ( BeschriftungGroesse.GetSelIndex    <> iTempListBoxSize(4) ) then WarnLog "Caption fontsize    state changed"
-    if ( VerzeichnisGroesse.GetSelIndex     <> iTempListBoxSize(5) ) then WarnLog "Index fontsize     state changed"
-
-    Kontext "ExtrasOptionenDlg"
-    ExtrasOptionenDlg.OK
-    WaitSlot (2)
-
-    Printlog "'///  - verify global settings don't affect saved Document ///"
-    '///+ use input\\writer\\optional\\options\\options2.sxw ///
-    hFileOpenLocally(  sFileName )
-    
-    Kontext "DocumentWriter"
-    DocumentWriter.TypeKeys "<Up>", 5
-    Call wTypeKeys "<Home><Right>"
-
-    sTempS = wGetCharacterFont()
-    if sTempS <> sListBox(1) then Warnlog "Default font: Writer changed  Font !?! is: "+sTempS+" ;should: "+sListBox(1)+" : "+iListBox(1)
-    Call wTypeKeys "<Down>"
-    sTempS = wGetCharacterFont()
-    if sTempS <> sListBox(2) then Warnlog "Heading font: Writer changed  Font !?! is: "+sTempS+" ;should: "+sListBox(2)+" : "+iListBox(2)
-    Call wTypeKeys "<Down>"
-    sTempS = wGetCharacterFont()
-    if sTempS <> sListBox(3) then Warnlog "List font: Writer changed  Font !?! is: "+sTempS+" ;should: "+sListBox(3)+" : "+iListBox(3)
-    Call wTypeKeys "<Down>"
-    sTempS = wGetCharacterFont()
-    if sTempS <> sListBox(4) then Warnlog "Caption font: Writer changed  Font !?! is: "+sTempS+" ;should: "+sListBox(4)+" : "+iListBox(4)
-    Call wTypeKeys "<Down>"
-    sTempS = wGetCharacterFont()
-    if sTempS <> sListBox(5) then Warnlog "Index font: Writer changed  Font !?! is: "+sTempS+" ;should: "+sListBox(5)+" : "+iListBox(5)
-
-    Call wTypeKeys "<Mod1 Home><Right>"
-    sTempS = wGetCharacterFontSize()
-    if sTempS <> sListBoxSize(1) then Warnlog "Default font: Writer changed  Font !?! is: "+sTempS+" ;should: "+sListBoxSize(1)+" : "+iListBoxSize(1)
-    Call wTypeKeys "<Down>"
-    sTempS = wGetCharacterFontSize()
-    if sTempS <> sListBoxSize(2) then Warnlog "Heading font: Writer changed  Font !?! is: "+sTempS+" ;should: "+sListBoxSize(2)+" : "+iListBoxSize(2)
-    Call wTypeKeys "<Down>"
-    sTempS = wGetCharacterFontSize()
-    if sTempS <> sListBoxSize(3) then Warnlog "List font: Writer changed  Font !?! is: "+sTempS+" ;should: "+sListBoxSize(3)+" : "+iListBoxSize(3)
-    Call wTypeKeys "<Down>"
-    sTempS = wGetCharacterFontSize()
-    if sTempS <> sListBoxSize(4) then Warnlog "Caption font: Writer changed  Font !?! is: "+sTempS+" ;should: "+sListBoxSize(4)+" : "+iListBoxSize(4)
-    Call wTypeKeys "<Down>"
-    sTempS = wGetCharacterFontSize()
-    if sTempS <> sListBoxSize(5) then Warnlog "Index font: Writer changed  Font !?! is: "+sTempS+" ;should: "+sListBoxSize(5)+" : "+iListBoxSize(5)
-
-    Call hCloseDocument
-    Call hNewDocument
-
-    printlog ("'/// - all UnCheck -> o ///")
-    ToolsOptions
-    Call hToolsOptions ( "WRITER" , WestOrEast )
-
-    if AktuellesDokument.IsEnabled = true then
-        AktuellesDokument.Check
-    else
-        ' Workraound: Sometimes checkbox is disabled...don't know why
-        Kontext "ExtrasOptionenDlg"
-        ExtrasOptionenDlg.Cancel
-        WaitSlot (1)
-        ToolsOptions
-        Call hToolsOptions ( "WRITER" , WestOrEast )
-        AktuellesDokument.Check
-    end if
-
-    StandardSchrift.Select(1)
-    Ueberschrift.Select(1)
-    Liste.Select(1)
-    Beschriftung.Select(1)
-    Verzeichnis.Select(1)
-
-    StandardSchriftGroesse.Select(1)
-    UeberschriftGroesse.Select(1)
-    ListeGroesse.Select(1)
-    BeschriftungGroesse.Select(1)
-    VerzeichnisGroesse.Select(1)
-    
-    Kontext "ExtrasOptionenDlg"
-    ExtrasOptionenDlg.OK
-    WaitSlot (2)
-
-    printlog ("'/// - check if all UnChecked ///")
-    ToolsOptions
-    Call hToolsOptions ( "WRITER" , WestOrEast )
-
-    if ( AktuellesDokument.IsChecked <> True ) then WarnLog "Current document only is not checked anymore"
-    if ( StandardSchrift.GetSelIndex <> 1 ) then WarnLog "Default font is not item 1"
-    if ( Ueberschrift.GetSelIndex    <> 1 ) then WarnLog "Heading font    is not item 1"
-    if ( Liste.GetSelIndex           <> 1 ) then WarnLog "List font           is not item 1"
-    if ( Beschriftung.GetSelIndex    <> 1 ) then WarnLog "Caption font    is not item 1"
-    if ( Verzeichnis.GetSelIndex     <> 1 ) then WarnLog "Index font     is not item 1"
-
-    if ( StandardSchriftGroesse.GetSelIndex <> 1 ) then WarnLog "Default fontsize is not item 1"
-    if ( UeberschriftGroesse.GetSelIndex    <> 1 ) then WarnLog "Heading fontsize    is not item 1"
-    if ( ListeGroesse.GetSelIndex           <> 1 ) then WarnLog "List fontsize           is not item 1"
-    if ( BeschriftungGroesse.GetSelIndex    <> 1 ) then WarnLog "Caption fontsize    is not item 1"
-    if ( VerzeichnisGroesse.GetSelIndex     <> 1 ) then WarnLog "Index fontsize     is not item 1"
-
-    Printlog ("'/// - all Check -> x ///")
-
-    Sleep 1
-    AktuellesDokument.Check
-    StandardSchrift.Select(StandardSchrift.GetItemCount)
-    Ueberschrift.Select   (Ueberschrift.GetItemCount   )
-    Liste.Select          (Liste.GetItemCount          )
-    Beschriftung.Select   (Beschriftung.GetItemCount   )
-    Verzeichnis.Select    (Verzeichnis.GetItemCount    )
-
-    StandardSchriftGroesse.Select(StandardSchriftGroesse.GetItemCount)
-    UeberschriftGroesse.Select   (UeberschriftGroesse.GetItemCount   )
-    ListeGroesse.Select          (ListeGroesse.GetItemCount          )
-    BeschriftungGroesse.Select   (BeschriftungGroesse.GetItemCount   )
-    VerzeichnisGroesse.Select    (VerzeichnisGroesse.GetItemCount    )
-    
-    Kontext "ExtrasOptionenDlg"
-    ExtrasOptionenDlg.OK
-    WaitSlot (2)
-
-    printlog ("'/// - check if all Checked ///")
-    ToolsOptions
-    Call hToolsOptions ( "WRITER" , WestOrEast )
-
-    if not AktuellesDokument.IsChecked then WarnLog "AktuellesDokument o"
-    if ( StandardSchrift.GetSelIndex <> StandardSchrift.GetItemCount ) then WarnLog "Default font is not item (GetItemCount):"+StandardSchrift.GetSelIndex
-    if ( Ueberschrift.GetSelIndex    <> Ueberschrift.GetItemCount    ) then WarnLog "Heading font    is not item (GetItemCount)"
-    if ( Liste.GetSelIndex           <> Liste.GetItemCount           ) then WarnLog "List font           is not item (GetItemCount)"
-    if ( Beschriftung.GetSelIndex    <> Beschriftung.GetItemCount    ) then WarnLog "Caption font    is not item (GetItemCount)"
-    if ( Verzeichnis.GetSelIndex     <> Verzeichnis.GetItemCount     ) then WarnLog "Index font     is not item (GetItemCount)"
-
-    if ( StandardSchriftGroesse.GetSelIndex <> StandardSchriftGroesse.GetItemCount ) then WarnLog "Default fontsize is not item (GetItemCount):"+StandardSchrift.GetSelIndex
-    if ( UeberschriftGroesse.GetSelIndex    <> UeberschriftGroesse.GetItemCount    ) then WarnLog "Heading fontsize    is not item (GetItemCount)"
-    if ( ListeGroesse.GetSelIndex           <> ListeGroesse.GetItemCount           ) then WarnLog "List fontsize           is not item (GetItemCount)"
-    if ( BeschriftungGroesse.GetSelIndex    <> BeschriftungGroesse.GetItemCount    ) then WarnLog "Caption fontsize    is not item (GetItemCount)"
-    if ( VerzeichnisGroesse.GetSelIndex     <> VerzeichnisGroesse.GetItemCount     ) then WarnLog "Index fontsize     is not item (GetItemCount)"
-
-    printlog ("'/// - check Default Button ///")
-    Standard.Click ' mal schauen, ob vorhanden...
-
-    if ( StandardSchrift.GetSelText <> sInitFont(1) ) then WarnLog "Default not init font!"
-    if ( Ueberschrift.GetSelText    <> sInitFont(2) ) then WarnLog "Heading    not init font! BUGID: 89816"
-    if ( Liste.GetSelText           <> sInitFont(3) ) then WarnLog "List           not init font!"
-    if ( Beschriftung.GetSelText    <> sInitFont(4) ) then WarnLog "Caption    not init font!"
-    if ( Verzeichnis.GetSelText     <> sInitFont(5) ) then WarnLog "Index     not init font!"
-
-    if ( StandardSchriftGroesse.GetSelText <> sInitFontSize(1) ) then WarnLog "Default fontsize not init font!"
-    if ( UeberschriftGroesse.GetSelText    <> sInitFontSize(2) ) then WarnLog "Heading fontsize    not init font! BUGID: 89816"
-    if ( ListeGroesse.GetSelText           <> sInitFontSize(3) ) then WarnLog "List fontsize           not init font!"
-    if ( BeschriftungGroesse.GetSelText    <> sInitFontSize(4) ) then WarnLog "Caption fontsize    not init font!"
-    if ( VerzeichnisGroesse.GetSelText     <> sInitFontSize(5) ) then WarnLog "Index fontsize     not init font!"
-    AktuellesDokument.Uncheck
-
-    Kontext "ExtrasOptionenDlg"
-    ExtrasOptionenDlg.Ok
-
-    '/// Open a new docuent and check fonts for default
-    Call hNewDocument
-    ToolsOptions
-    Call hToolsOptions ( "WRITER" , WestOrEast )
-
-    if ( StandardSchrift.GetSelText <> sInitFont(1) ) then warnlog "Default not init font!"
-    if ( Ueberschrift.GetSelText    <> sInitFont(2) ) then warnlog "Heading    not init font! BUGID: 89816"
-    if ( Liste.GetSelText           <> sInitFont(3) ) then warnlog "List           not init font!"
-    if ( Beschriftung.GetSelText    <> sInitFont(4) ) then warnlog "Caption    not init font!"
-    if ( Verzeichnis.GetSelText     <> sInitFont(5) ) then warnlog "Index    not init font!"
-
-    if ( StandardSchriftGroesse.GetSelText <> sInitFontSize(1) ) then warnlog "Default fontsize not init font!"
-    if ( UeberschriftGroesse.GetSelText    <> sInitFontSize(2) ) then warnlog "Heading fontsize    not init font! BUGID: 89816"
-    if ( ListeGroesse.GetSelText           <> sInitFontSize(3) ) then warnlog "List fontsize           not init font!"
-    if ( BeschriftungGroesse.GetSelText    <> sInitFontSize(4) ) then warnlog "Caption fontsize    not init font!"
-    if ( VerzeichnisGroesse.GetSelText     <> sInitFontSize(5) ) then warnlog "Index fontsize     not init font!"
-    Kontext "ExtrasOptionenDlg"
-    ExtrasOptionenDlg.Cancel
-    Call hCloseDocument
-    Call hNewDocument
-
-    printlog ("'/// - restore states ///")
-    ToolsOptions
-    Call hToolsOptions ( "WRITER" , WestOrEast )
-
-    if ( bCheckboxes(1) = TRUE ) then  AktuellesDokument.Check else AktuellesDokument.UnCheck
-    StandardSchrift.SetText (sListBox(1))
-    Ueberschrift.SetText    (sListBox(2))
-    Liste.SetText           (sListBox(3))
-    Beschriftung.SetText    (sListBox(4))
-    Verzeichnis.SetText     (sListBox(5))
-
-    StandardSchriftGroesse.SetText (sListBoxSize(1))
-    UeberschriftGroesse.SetText    (sListBoxSize(2))
-    ListeGroesse.SetText           (sListBoxSize(3))
-    BeschriftungGroesse.SetText    (sListBoxSize(4))
-    VerzeichnisGroesse.SetText     (sListBoxSize(5))
-
-    Kontext "ExtrasOptionenDlg"
-    ExtrasOptionenDlg.OK
-
-    Do Until GetDocumentCount = 0
-        Call hCloseDocument
-    Loop
-endcase
-
-'------------------------------------------------------------------------------
-
-testcase tToolsOptionsWriterPrint1
-    Dim bCheckboxes(13) as boolean    ' Checkbox states
-    Dim iListBox(1) as string         ' ListBox
-    Dim iTempListBox(1) as string
-    Dim bRadioBut(4) as boolean         ' RadioButtons
-    Dim bTempRadioBut(4) as boolean
-    Dim i as integer, sWriterFilter as string
-    Dim WriterFilterExtension(10) as string
-        WriterFilterExtension() = hGetFilternameExtension ( "writer8" )
-
-    ' sMetricField(i) and sTempMetricField(i)
-    '(1) = Grafiken
-    '(2) = Tabellen
-    '(4) = Kontrollfelder
-    '(5) = Hintergrund
-    '(6) = SchwarzDrucken
-    '
-    '(7) = LinkeSeiten
-    '(8) = RechteSeiten
-    '(10)= Prospekt
-    '
-    '(11)= EinzelneDruckauftraege
-    '(12)= AusDruckereinstellung
-
-    ' bRadioBut(i) and bTempRadioBut(i) / RadioButton
-    '(1) = Keine
-    '(2) = NurNotizen
-    '(3) = Dokumentende
-    '(4) = Seitenende
-
-    '/// uses "input\\writer\\optional\\options\\options3.sxw" ///
-    hFileOpenLocally(  gTesttoolPath + "writer\optional\input\options\options3.sxw" )
-    
-    printlog "'///- Tools/Options/Writer: PrintWriter ///"
-
-    printlog ("'/// - save states ///")
-    ToolsOptions
-    Call hToolsOptions ("WRITER","PRINT")
-
-    bCheckboxes(1) = Grafiken.IsChecked
-    bCheckboxes(2) = Kontrollfelder.IsChecked
-    bCheckboxes(3) = Hintergrund.IsChecked
-    bCheckboxes(4) = SchwarzDrucken.IsChecked
-    bCheckboxes(5) = HiddenText.IsChecked
-    bCheckboxes(6) = TextPlaceholder.IsChecked
-
-    bCheckboxes(7) = LinkeSeiten.IsChecked
-    bCheckboxes(8) = RechteSeiten.IsChecked
-    bCheckboxes(9)= Prospekt.IsChecked
-
-    bCheckboxes(10)= LeereSeitenDrucken.IsChecked
-    bCheckboxes(11)= AusDruckereinstellung.IsChecked
-
-    iListBox(1) = Fax.GetSelText
-
-    bRadioBut(1) = Keine.IsChecked
-    bRadioBut(2) = NurNotizen.IsChecked
-    bRadioBut(3) = Dokumentende.IsChecked
-    bRadioBut(4) = Seitenende.IsChecked
-
-    printlog ("'/// - all states inverting ///")
-
-    if bCheckboxes(1) then Grafiken.UnCheck             else Grafiken.Check
-    if bCheckboxes(2) then Kontrollfelder.UnCheck       else Kontrollfelder.Check
-    if bCheckboxes(3) then Hintergrund.UnCheck          else Hintergrund.Check
-    if bCheckboxes(4) then SchwarzDrucken.UnCheck       else SchwarzDrucken.Check
-    if bCheckboxes(5) then HiddenText.UnCheck           else HiddenText.Check
-    if bCheckboxes(6) then TextPlaceholder.UnCheck      else TextPlaceholder.Check
-
-    if bCheckboxes(7) then LinkeSeiten.UnCheck          else LinkeSeiten.Check
-    if bCheckboxes(8) then RechteSeiten.UnCheck         else RechteSeiten.Check
-    if bCheckboxes(9) then Prospekt.UnCheck            else Prospekt.Check
-
-    if bCheckboxes(10) then LeereSeitenDrucken.UnCheck else LeereSeitenDrucken.Check
-    if bCheckboxes(11) then AusDruckereinstellung.UnCheck  else AusDruckereinstellung.Check
-
-    if Keine.IsEnabled then
-        if (Keine.IsChecked = True) then
-            NurNotizen.Check
-        else
-            Keine.Check
-        endif
-    endif
-
-    bTempRadioBut(1) = Keine.IsChecked
-    bTempRadioBut(2) = NurNotizen.IsChecked
-    bTempRadioBut(3) = Dokumentende.IsChecked
-    bTempRadioBut(4) = Seitenende.IsChecked
-
-    try
-        if (NO_REAL_PRINT = False) then FL_Drucken
-        for i = 1 to 10
-            Kontext "Druckbestaetigung"
-            if Druckbestaetigung.Exists then
-                Sleep 1
-            else
-                i = 100
-            end if
-        next i
-    catch
-        print " :::::::::::::::wr2::::::test d1"
-    endcatch
-
-    Kontext "Active"
-    if Active.Exists then
-        if Active.GetRT = 304 then
-            printlog Active.Gettext
-            try
-                Active.Ok
-            catch
-                Active.Yes
-            endcatch
-        end if
-    end if
-    Kontext "TabDruckenWriter"
-    wait 500
-    if Fax.GetSelText <> iListBox(1) then
-        Fax.Select (Fax.GetItemCount)
-    else
-        Fax.Select(1)
-    end if
-    iTempListBox(1) = Fax.GetSelIndex
-
-    Kontext "ExtrasOptionenDlg"
-    ExtrasOptionenDlg.OK
-    WaitSlot (2)
-    Call hFileSaveAsWithFilterKill(gOfficepath + "user\work\printtest." & WriterFilterExtension(0) , "writer8")
-
-    printlog ("'/// - SO quit - start ///")
-
-    Call wOfficeRestart
-
-    printlog ("'/// - checking states ///")
-    ToolsOptions
-    Call hToolsOptions ( "WRITER" , "PRINT" )
-
-    if ( bCheckboxes(1) = Grafiken.IsChecked        ) then WarnLog "Grafiken state changed"
-    if ( bCheckboxes(2) = Kontrollfelder.IsChecked  ) then WarnLog "Kontrollfelder state changed"
-    if ( bCheckboxes(3) = Hintergrund.IsChecked     ) then WarnLog "Hintergrund state changed"
-    if ( bCheckboxes(4) = SchwarzDrucken.IsChecked  ) then WarnLog "SchwarzDrucken state changed"
-    if ( bCheckboxes(5) = HiddenText.IsChecked      ) then WarnLog "HiddenText state changed"
-    if ( bCheckboxes(6) = TextPlaceholder.IsChecked ) then WarnLog "TextPlaceholder state changed"
-
-    if ( bCheckboxes(7) = LinkeSeiten.IsChecked            ) then WarnLog "LinkeSeiten state changed"
-    if ( bCheckboxes(8) = RechteSeiten.IsChecked           ) then WarnLog "RechteSeiten state changed"
-    if ( bCheckboxes(9)= Prospekt.IsChecked               ) then WarnLog "Prospekt state changed"
-
-    if ( bCheckboxes(10)= LeereSeitenDrucken.IsChecked  ) then WarnLog "'Print automatically inserted blank pages' state changed"
-    if ( bCheckboxes(11)= AusDruckereinstellung.IsChecked  ) then WarnLog "AusDruckereinstellung state changed"
-
-    if ( Fax.GetSelIndex <> iTempListBox(1) ) Then warnlog "Fax state changed"
-
-    if ( bTempRadioBut(1) <> Keine.IsChecked       ) then WarnLog "Keine state changed"
-    if ( bTempRadioBut(2) <> NurNotizen.IsChecked  ) then WarnLog "NurNotizen state changed"
-    if ( bTempRadioBut(3) <> Dokumentende.IsChecked) then WarnLog "Dokumentende state changed"
-    if ( bTempRadioBut(4) <> Seitenende.IsChecked  ) then WarnLog "Seitenende state changed"
-
-    Kontext "ExtrasOptionenDlg"
-    ExtrasOptionenDlg.OK
-    WaitSlot (2)
-	' Notify is saved with document
-    hFileOpen( gOfficePath & "user\work\printtest." & WriterFilterExtension(0) )
-    ToolsOptions
-    Call hToolsOptions ( "WRITER" , "PRINT" )
-
-    if ( bTempRadioBut(1) <> Keine.IsChecked       ) then WarnLog "Keine state changed (Not saved with document)"
-    if ( bTempRadioBut(2) <> NurNotizen.IsChecked  ) then WarnLog "NurNotizen state changed (Not saved with document)"
-    if ( bTempRadioBut(3) <> Dokumentende.IsChecked) then WarnLog "Dokumentende state changed (Not saved with document)"
-    if ( bTempRadioBut(4) <> Seitenende.IsChecked  ) then WarnLog "Seitenende state changed (Not saved with document)"
-
-    printlog ("'/// - all UnCheck -> o ///")
-
-    Grafiken.UnCheck
-    Kontrollfelder.UnCheck
-    Hintergrund.UnCheck
-    SchwarzDrucken.UnCheck
-    HiddenText.UnCheck
-    TextPlaceholder.UnCheck
-
-    LinkeSeiten.UnCheck
-    RechteSeiten.UnCheck
-    Prospekt.UnCheck
-
-    LeereSeitenDrucken.UnCheck
-    AusDruckereinstellung.UnCheck
-
-    if NurNotizen.IsEnabled then
-        if (NurNotizen.IsChecked = True) then
-            Dokumentende.Check
-        else
-            NurNotizen.Check
-        endif
-    endif
-
-    bTempRadioBut(1) = Keine.IsChecked
-    bTempRadioBut(2) = NurNotizen.IsChecked
-    bTempRadioBut(3) = Dokumentende.IsChecked
-    bTempRadioBut(4) = Seitenende.IsChecked
-
-    Fax.Select(1)
-
-    Kontext "ExtrasOptionenDlg"
-    ExtrasOptionenDlg.OK
-    WaitSlot (2)
-
-    printlog ("'/// - check if all UnChecked ///")
-    ToolsOptions
-    Call hToolsOptions ( "WRITER" , "PRINT" )
-
-    if Grafiken.IsChecked           then WarnLog "Grafiken is checked"
-    if Kontrollfelder.IsChecked     then WarnLog "Kontrollfelder is checked"
-    if Hintergrund.IsChecked        then WarnLog "Hintergrund is checked"
-    if SchwarzDrucken.IsChecked     then WarnLog "SchwarzDrucken is checked"
-    if HiddenText.IsChecked         then WarnLog "HiddenText is checked"
-    if TextPlaceholder.IsChecked    then WarnLog "TextPlaceholder is checked"
-
-    if LinkeSeiten.IsChecked    then WarnLog "LinkeSeiten is checked"
-    if RechteSeiten.IsChecked   then WarnLog "RechteSeiten is checked"
-    if Prospekt.IsChecked       then WarnLog "Prospekt is checked"
-
-    if LeereSeitenDrucken.IsChecked then WarnLog "LeereSeitenDrucken is checked"
-    if AusDruckereinstellung.IsChecked  then WarnLog "AusDruckereinstellung is checked"
-
-    if ( bTempRadioBut(1) <> Keine.IsChecked       ) then WarnLog "Keine state changed"
-    if ( bTempRadioBut(2) <> NurNotizen.IsChecked  ) then WarnLog "NurNotizen state changed"
-    if ( bTempRadioBut(3) <> Dokumentende.IsChecked) then WarnLog "Dokumentende state changed"
-    if ( bTempRadioBut(4) <> Seitenende.IsChecked  ) then WarnLog "Seitenende state changed"
-
-    if ( Fax.GetSelIndex <> 1 ) then WarnLog "Fax is not item 1"
-
-    Printlog ("'/// - all Check -> x ///")
-
-    Grafiken.Check
-    Kontrollfelder.Check
-    Hintergrund.Check
-    SchwarzDrucken.Check
-    HiddenText.Check
-    TextPlaceholder.Check
-
-    LinkeSeiten.Check
-    RechteSeiten.Check
-    Prospekt.Check
-
-    LeereSeitenDrucken.Check
-    AusDruckereinstellung.Check
-
-    if Dokumentende.IsEnabled then
-        if (Dokumentende.IsChecked = True) then
-            Seitenende.Check
-        else
-            Dokumentende.Check
-        endif
-    endif
-
-    bTempRadioBut(1) = Keine.IsChecked
-    bTempRadioBut(2) = NurNotizen.IsChecked
-    bTempRadioBut(3) = Dokumentende.IsChecked
-    bTempRadioBut(4) = Seitenende.IsChecked
-
-    Fax.Select(Fax.GetItemCount)
-
-    Kontext "ExtrasOptionenDlg"
-    ExtrasOptionenDlg.OK
-    WaitSlot (2)
-
-    printlog ("'/// - check if all Checked ///")
-    ToolsOptions
-    Call hToolsOptions ( "WRITER" , "PRINT" )
-
-    if not Grafiken.IsChecked           then WarnLog "Grafiken is unchecked"
-    if not Kontrollfelder.IsChecked     then WarnLog "Kontrollfelder is unchecked"
-    if not Hintergrund.IsChecked        then WarnLog "Hintergrund is unchecked"
-    if not SchwarzDrucken.IsChecked     then WarnLog "SchwarzDrucken is unchecked"
-    if not HiddenText.IsChecked         then WarnLog "HiddenText is unchecked "
-    if not TextPlaceholder.IsChecked    then WarnLog "TextPlaceholder is unchecked"
-
-    if not LinkeSeiten.IsChecked             then WarnLog "LinkeSeiten is unchecked"
-    if not RechteSeiten.IsChecked            then WarnLog "RechteSeiten is unchecked"
-    if not Prospekt.IsChecked                then WarnLog "Prospekt is unchecked"
-
-    if not LeereSeitenDrucken.IsChecked  then WarnLog "LeereSeitenDrucken is unchecked"
-    if not AusDruckereinstellung.IsChecked   then WarnLog "AusDruckereinstellung is unchecked"
-
-    ' This state will be saved with the document
-    if ( bTempRadioBut(1) <> Keine.IsChecked       ) then WarnLog "Keine state changed"
-    if ( bTempRadioBut(2) <> NurNotizen.IsChecked  ) then WarnLog "NurNotizen state changed"
-    if ( bTempRadioBut(3) <> Dokumentende.IsChecked) then WarnLog "Dokumentende state changed"
-    if ( bTempRadioBut(4) <> Seitenende.IsChecked  ) then WarnLog "Seitenende state changed"
-
-    if ( Fax.GetSelIndex <> Fax.GetItemCount ) then WarnLog "Fax is not item (GetItemCount)"
-
-    Kontext "ExtrasOptionenDlg"
-    ExtrasOptionenDlg.Cancel
-
-    printlog ("'/// - restore states ///")
-    ToolsOptions
-    Call hToolsOptions ( "WRITER" , "PRINT" )
-
-    if ( bCheckboxes(1) = TRUE ) then Grafiken.Check else Grafiken.Uncheck
-    if ( bCheckboxes(2) = TRUE ) then Kontrollfelder.Check else Kontrollfelder.UnCheck
-    if ( bCheckboxes(3) = TRUE ) then Hintergrund.Check else Hintergrund.Uncheck
-    if ( bCheckboxes(4) = TRUE ) then SchwarzDrucken.Check else  SchwarzDrucken.UnCheck
-    if ( bCheckboxes(5) = TRUE ) then HiddenText.check else HiddenText.Uncheck
-    if ( bCheckboxes(6) = TRUE ) then TextPlaceholder.check else TextPlaceholder.Uncheck
-
-    if ( bCheckboxes(7) = TRUE ) then LinkeSeiten.Check else LinkeSeiten.Uncheck
-    if ( bCheckboxes(8) = TRUE ) then RechteSeiten.Check else RechteSeiten.Uncheck
-    if ( bCheckboxes(9) = TRUE ) then Prospekt.Check else Prospekt.Uncheck
-
-    if ( bCheckboxes(10) = TRUE ) then LeereSeitenDrucken.Check else LeereSeitenDrucken.UnCheck
-    if ( bCheckboxes(11) = TRUE ) then AusDruckereinstellung.Check else AusDruckereinstellung.UnCheck
-
-    try
-        Fax.Select (iListBox(1))
-    catch
-        warnlog "restore fax doesn't work"
-    endcatch
-
-    if ( bRadioBut(1) = TRUE ) then Keine.Check
-    if ( bRadioBut(2) = TRUE ) then NurNotizen.Check
-    if ( bRadioBut(3) = TRUE ) then Dokumentende.Check
-    if ( bRadioBut(4) = TRUE ) then Seitenende.Check
-
-    Kontext "ExtrasOptionenDlg"
-    ExtrasOptionenDlg.OK
-    WaitSlot (2)
-
-    Do Until GetDocumentCount = 0
-        Call hCloseDocument
-    Loop
-endcase
-
-'------------------------------------------------------------------------------
-
-testcase tToolsOptionsWriterTable
-    Dim sMetricField(4) as string      ' MetricField
-    Dim sTempMetricField(4) as string
-    Dim bRadioBut(3) as boolean    ' RadioButton states
-    Dim bTempRadioBut(3) as boolean
-
-    ' sMetricField(i) and sTempMetricField(i)
-    '(1) = VerschiebenZeile
-    '(2) = VerschiebenSpalte
-    '(3) = EinfuegenZeile
-    '(4) = EinfuegenSpalte
-
-    ' bRadioBut(i) and bTempRadioBut(i)
-    '(1) = VerhaltenFix
-    '(2) = FixProportional
-    '(3) = Variabel
-
-    Call hNewDocument
-    printlog ("'///- Tools/Options/Writer: Table ///")
-
-    printlog ("'/// - save states ///")
-    ToolsOptions
-    Call hToolsOptions ("WRITER","Table")
-
-    sMetricField(1) = VerschiebenZeile.GetText
-    sMetricField(2) = VerschiebenSpalte.GetText
-    sMetricField(3) = EinfuegenZeile.GetText
-    sMetricField(4) = EinfuegenSpalte.GetText
-
-    bRadioBut(1) = VerhaltenFix.IsChecked
-    bRadioBut(2) = FixProportional.IsChecked
-    bRadioBut(3) = Variabel.IsChecked
-
-    if ((bRadioBut(1) Xor bRadioBut(2) Xor bRadioBut(3)) = False) then Warnlog (" RadioButtons have NO init state: " + bRadioBut(1) +", BugID: 83097")
-
-    printlog ("'/// - all states inverting ///")
-
-    VerschiebenZeile.ToMax
-    VerschiebenSpalte.ToMax
-    EinfuegenZeile.ToMax
-    EinfuegenSpalte.ToMax
-    if ( VerschiebenZeile.GetText  = sMetricField(1) ) then VerschiebenZeile.ToMin
-    if ( VerschiebenSpalte.GetText = sMetricField(2) ) then VerschiebenSpalte.ToMin
-    if ( EinfuegenZeile.GetText    = sMetricField(3) ) then EinfuegenZeile.ToMin
-    if ( EinfuegenSpalte.GetText   = sMetricField(4) ) then EinfuegenSpalte.ToMin
-    sTempMetricField(1) = VerschiebenZeile.GetText
-    sTempMetricField(2) = VerschiebenSpalte.GetText
-    sTempMetricField(3) = EinfuegenZeile.GetText
-    sTempMetricField(4) = EinfuegenSpalte.GetText
-
-    if (VerhaltenFix.IsChecked = True) then FixProportional.Check else VerhaltenFix.Check
-
-    bTempRadioBut(1) = VerhaltenFix.IsChecked
-    bTempRadioBut(2) = FixProportional.IsChecked
-    bTempRadioBut(3) = Variabel.IsChecked
-
-    Kontext "ExtrasOptionenDlg"
-    ExtrasOptionenDlg.OK
-    printlog ("'/// - SO quit - start ///")
-
-    Call wOfficeRestart
-
-    printlog ("'/// - checking states ///")
-    ToolsOptions
-    Call hToolsOptions ( "WRITER" , "Table" )
-
-    if ( VerschiebenZeile.GetText  <> sTempMetricField(1) ) then WarnLog "VerschiebenZeile state changed BugID: 82990 "
-    if ( VerschiebenSpalte.GetText <> sTempMetricField(2) ) then WarnLog "VerschiebenSpalte state changed"
-    if ( EinfuegenZeile.GetText    <> sTempMetricField(3) ) then WarnLog "EinfuegenZeile state changed"
-    if ( EinfuegenSpalte.GetText   <> sTempMetricField(4) ) then WarnLog "EinfuegenSpalte state changed"
-
-    if ( bTempRadioBut(1) <> VerhaltenFix.IsChecked   ) then WarnLog "VerhaltenFix state changed"
-    if ( bTempRadioBut(2) <> FixProportional.IsChecked) then WarnLog "FixProportional state changed"
-    if ( bTempRadioBut(3) <> Variabel.IsChecked       ) then WarnLog "Variabel state changed"
-
-    Kontext "ExtrasOptionenDlg"
-    ExtrasOptionenDlg.OK
-    WaitSlot (2)
-
-    printlog ("'/// - all UnCheck -> o ///")
-    ToolsOptions
-    Call hToolsOptions ( "WRITER" , "Table" )
-
-    VerschiebenZeile.ToMin
-    VerschiebenSpalte.ToMin
-    EinfuegenZeile.ToMin
-    EinfuegenSpalte.ToMin
-    sTempMetricField(1) = VerschiebenZeile.GetText
-    sTempMetricField(2) = VerschiebenSpalte.GetText
-    sTempMetricField(3) = EinfuegenZeile.GetText
-    sTempMetricField(4) = EinfuegenSpalte.GetText
-    printlog ("'/// More test ///'")
-    VerschiebenZeile.More
-    VerschiebenSpalte.More
-    EinfuegenZeile.More
-    EinfuegenSpalte.More
-
-    if ( sTempMetricField(1) = VerschiebenZeile.GetText  ) then WarnLog "VerschiebenZeile.  More-Button not working"
-    if ( sTempMetricField(2) = VerschiebenSpalte.GetText ) then WarnLog "VerschiebenSpalte. More-Button not working"
-    if ( sTempMetricField(3) = EinfuegenZeile.GetText    ) then WarnLog "EinfuegenZeile.     More-Button not working"
-    if ( sTempMetricField(4) = EinfuegenSpalte.GetText   ) then WarnLog "EinfuegenSpalte.    More-Button not working"
-
-    sTempMetricField(1) = VerschiebenZeile.GetText
-    sTempMetricField(2) = VerschiebenSpalte.GetText
-    sTempMetricField(3) = EinfuegenZeile.GetText
-    sTempMetricField(4) = EinfuegenSpalte.GetText
-
-    if (FixProportional.IsChecked = True) then Variabel.Check else FixProportional.Check
-    bTempRadioBut(1) = VerhaltenFix.IsChecked
-    bTempRadioBut(2) = FixProportional.IsChecked
-    bTempRadioBut(3) = Variabel.IsChecked
-
-    Kontext "ExtrasOptionenDlg"
-    ExtrasOptionenDlg.OK
-    WaitSlot (2)
-
-    printlog ("'/// - check if all UnChecked ///")
-    ToolsOptions
-    Call hToolsOptions ( "WRITER" , "Table" )
-
-    if ( VerschiebenZeile.GetText  <> sTempMetricField(1) ) then WarnLog "VerschiebenZeile is not min."
-    if ( VerschiebenSpalte.GetText <> sTempMetricField(2) ) then WarnLog "VerschiebenSpalte is not min."
-    if ( EinfuegenZeile.GetText    <> sTempMetricField(3) ) then WarnLog "EinfuegenZeile is not min."
-    if ( EinfuegenSpalte.GetText   <> sTempMetricField(4) ) then WarnLog "EinfuegenSpalte is not min."
-
-    if ( bTempRadioBut(1) <> VerhaltenFix.IsChecked   ) then WarnLog "VerhaltenFix state changed"
-    if ( bTempRadioBut(2) <> FixProportional.IsChecked) then WarnLog "FixProportional state changed"
-    if ( bTempRadioBut(3) <> Variabel.IsChecked       ) then WarnLog "Variabel state changed"
-
-    Printlog ("'/// - all Check -> x ///")
-
-    VerschiebenZeile.ToMax
-    VerschiebenSpalte.ToMax
-    EinfuegenZeile.ToMax
-    EinfuegenSpalte.ToMax
-    sTempMetricField(1) = VerschiebenZeile.GetText
-    sTempMetricField(2) = VerschiebenSpalte.GetText
-    sTempMetricField(3) = EinfuegenZeile.GetText
-    sTempMetricField(4) = EinfuegenSpalte.GetText
-    printlog ("'/// Less test ///'")
-    VerschiebenZeile.Less
-    VerschiebenSpalte.Less
-    EinfuegenZeile.Less
-    EinfuegenSpalte.Less
-    if ( sTempMetricField(1) = VerschiebenZeile.GetText  ) then WarnLog "VerschiebenZeile.  Less-Button not working"
-    if ( sTempMetricField(2) = VerschiebenSpalte.GetText ) then WarnLog "VerschiebenSpalte. Less-Button not working"
-    if ( sTempMetricField(3) = EinfuegenZeile.GetText    ) then WarnLog "EinfuegenZeile.     Less-Button not working"
-    if ( sTempMetricField(4) = EinfuegenSpalte.GetText   ) then WarnLog "EinfuegenSpalte.    Less-Button not working"
-    sTempMetricField(1) = VerschiebenZeile.GetText
-    sTempMetricField(2) = VerschiebenSpalte.GetText
-    sTempMetricField(3) = EinfuegenZeile.GetText
-    sTempMetricField(4) = EinfuegenSpalte.GetText
-
-    if (Variabel.IsChecked = True) then VerhaltenFix.Check else Variabel.Check
-    bTempRadioBut(1) = VerhaltenFix.IsChecked
-    bTempRadioBut(2) = FixProportional.IsChecked
-    bTempRadioBut(3) = Variabel.IsChecked
-
-    Kontext "ExtrasOptionenDlg"
-    ExtrasOptionenDlg.OK
-    WaitSlot (2)
-
-    printlog ("'/// - check if all Checked ///")
-    ToolsOptions
-    Call hToolsOptions ( "WRITER" , "Table" )
-
-    if ( VerschiebenZeile.GetText  <> sTempMetricField(1) ) then WarnLog "VerschiebenZeile is not max."
-    if ( VerschiebenSpalte.GetText <> sTempMetricField(2) ) then WarnLog "VerschiebenSpalte is not max."
-    if ( EinfuegenZeile.GetText    <> sTempMetricField(3) ) then WarnLog "EinfuegenZeile is not max."
-    if ( EinfuegenSpalte.GetText   <> sTempMetricField(4) ) then WarnLog "EinfuegenSpalte is not max."
-
-    if ( bTempRadioBut(1) <> VerhaltenFix.IsChecked   ) then WarnLog "VerhaltenFix state changed"
-    if ( bTempRadioBut(2) <> FixProportional.IsChecked) then WarnLog "FixProportional state changed"
-    if ( bTempRadioBut(3) <> Variabel.IsChecked       ) then WarnLog "Variabel state changed"
-
-    printlog ("'/// - restore states ///")
-
-    VerschiebenZeile.SetText  (sMetricField(1))
-    VerschiebenSpalte.SetText (sMetricField(2))
-    EinfuegenZeile.SetText    (sMetricField(3))
-    EinfuegenSpalte.SetText   (sMetricField(4))
-
-    Kontext "ExtrasOptionenDlg"
-    ExtrasOptionenDlg.OK
-
-    Do Until GetDocumentCount = 0
-        Call hCloseDocument
-    Loop
-endcase
-
-'------------------------------------------------------------------------------
-
-testcase tToolsOptionsWriterTable1
-
-    '/// There was a bug from OpenOffice where the Office crashed ///
-    '/// This testcase check for this bug ///
-
-    Call hNewDocument
-    printlog ("'///- Tools/Options/HTML: Table ///")
-    ToolsOptions
-    Call hToolsOptions ("HTML","Table")
-    '/// Check fixed and choose 'OK' ///
-    VerhaltenFix.Check
-
-    Kontext "ExtrasOptionenDlg"
-    ExtrasOptionenDlg.OK
-    WaitSlot (2)
-
-    '/// ///
-    ToolsOptions
-    Call hToolsOptions ("HTML","Table")
-    '/// Reset radiobutton to 'Variable' in Options ///
-    Variabel.Check
-
-    Kontext "ExtrasOptionenDlg"
-    ExtrasOptionenDlg.OK
-
-    Do Until GetDocumentCount = 0
-        Call hCloseDocument
-    Loop
-endcase
-'------------------------------------------------------------------------------
diff --git a/testautomation/writer/optional/includes/option/wr_o_3.inc b/testautomation/writer/optional/includes/option/wr_o_3.inc
deleted file mode 100644
index 0a047499d9f8..000000000000
--- a/testautomation/writer/optional/includes/option/wr_o_3.inc
+++ /dev/null
@@ -1,1403 +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 : helge.delfs@oracle.com
-'*
-'* short description : Writer options tests
-'*
-'\***********************************************************************
-'*
-'*  tToolsOptionsWriterCursor
-'*  tToolsOptionsWriterChanges
-'*  tToolsOptionsWriterInsert
-'*  tToolsOptionsAutocaption
-'*  tToolsOptionsWriterCompatibility1
-'*  tToolsOptionsWriterCompatibility2
-'*  tToolsOptionsWriterCompatibility3
-'*
-'\***********************************************************************
-
-sub wr_o_3
-
-    Call tToolsOptionsWriterCursor
-    Call tToolsOptionsWriterChanges
-    Call tToolsOptionsWriterInsert
-    Call tToolsOptionsAutocaption
-    Call tToolsOptionsWriterCompatibility1
-    Call tToolsOptionsWriterCompatibility2
-    Call tToolsOptionsWriterCompatibility3
-
-end sub
-
-'------------------------------------------------------------------------------
-testcase tToolsOptionsWriterCursor
-
-    Dim irgendwas(17) as boolean        ' Checkbox states
-    Dim bRadioBut(4) as boolean         ' RadioButtons
-    Dim bTempRadioBut(4) as boolean
-    Dim iListBox(1) as integer          ' ListBox
-    Dim iTempListBox(1) as integer
-
-    Call hNewDocument
-    printlog "'///- Tools/Options/Writer: View 2 ///"
-
-    printlog ("'/// - save states ///")
-    ToolsOptions
-    Call hToolsOptions ("WRITER","FORMATTINGAIDS")
-
-    irgendwas(1) = DirektCursor.IsChecked
-    irgendwas(2) = Zonen_Cursor.IsChecked
-
-    bRadioBut(1) = Absatzausrichtung.IsChecked
-    bRadioBut(2) = LinkerAbsatzrand.IsChecked
-    bRadioBut(3) = Tabulator.IsChecked
-    bRadioBut(4) = TabulatorUndLeerzeichen.IsChecked
-
-    if ((bRadioBut(1) Xor bRadioBut(2) Xor bRadioBut(3) Xor bRadioBut(4)) = False) then Warnlog (" RadioButtons have NO init state: " + bRadioBut(1) +", BugID: Not Yet l.f.?")
-
-    irgendwas(10) = Absatzenden.IsChecked
-    irgendwas(11) = WeicheTrenner.IsChecked
-    irgendwas(12) = Leerzeichen.IsChecked
-    irgendwas(13) = GeschLeerzeichen.IsChecked
-    irgendwas(14) = Tabulatoren.IsChecked
-    irgendwas(15) = Umbrueche.IsChecked
-    irgendwas(16) = VersteckterText.IsChecked
-    irgendwas(17) = VersteckteAbsatze.IsChecked
-
-    printlog ("'/// - all states inverting ///")
-
-    if irgendwas(1) then DirektCursor.UnCheck Else DirektCursor.Check
-    if irgendwas(2) then Zonen_Cursor.UnCheck Else Zonen_Cursor.Check
-
-    if (Absatzausrichtung.IsChecked = True) then LinkerAbsatzrand.Check Else Absatzausrichtung.Check
-    bTempRadioBut(1) = Absatzausrichtung.IsChecked
-    bTempRadioBut(2) = LinkerAbsatzrand.IsChecked
-    bTempRadioBut(3) = Tabulator.IsChecked
-    bTempRadioBut(4) = TabulatorUndLeerzeichen.IsChecked
-
-    if irgendwas(10) then Absatzenden.UnCheck Else Absatzenden.Check
-    if irgendwas(11) then WeicheTrenner.UnCheck Else WeicheTrenner.Check
-    if irgendwas(12) then Leerzeichen.UnCheck Else Leerzeichen.Check
-    if irgendwas(13) then GeschLeerzeichen.UnCheck Else GeschLeerzeichen.Check
-    if irgendwas(14) then Tabulatoren.UnCheck Else Tabulatoren.Check
-    if irgendwas(15) then Umbrueche.UnCheck Else Umbrueche.Check
-    if irgendwas(16) then VersteckterText.UnCheck Else VersteckterText.Check
-    if irgendwas(17) then VersteckteAbsatze.UnCheck Else VersteckteAbsatze.Check
-
-    Kontext "ExtrasOptionenDlg"
-    ExtrasOptionenDlg.OK
-    WaitSlot (2)
-
-    printlog ("'/// - SO quit - start ///")
-
-    Call wOfficeRestart
-
-    printlog ("'/// - checking states ///")
-    ToolsOptions
-    Call hToolsOptions ( "WRITER" , "FORMATTINGAIDS" )
-
-    if ( irgendwas(1) = DirektCursor.IsChecked ) then WarnLog "DirektCursor state changed BugID: 82955"
-    if ( irgendwas(2) = Zonen_Cursor.IsChecked ) then WarnLog "Zonen_Cursor state changed"
-    
-    if ( bTempRadioBut(1) <> Absatzausrichtung.IsChecked       ) then WarnLog "Absatzausrichtung state changed"
-    if ( bTempRadioBut(2) <> LinkerAbsatzrand.IsChecked        ) then WarnLog "LinkerAbsatzrand state changed"
-    if ( bTempRadioBut(3) <> Tabulator.IsChecked               ) then WarnLog "Tabulator state changed"
-    if ( bTempRadioBut(4) <> TabulatorUndLeerzeichen.IsChecked ) then WarnLog "TabulatorUndLeerzeichen state changed"
-    
-    if ( irgendwas(10) = Absatzenden.IsChecked  ) then  WarnLog "Absatzenden state changed"
-    if ( irgendwas(11) = WeicheTrenner.IsChecked  ) then  WarnLog "WeicheTrenner state changed"
-    if ( irgendwas(12) = Leerzeichen.IsChecked  ) then  WarnLog "Leerzeichen state changed"
-    if ( irgendwas(13) = GeschLeerzeichen.IsChecked  ) then  WarnLog "GeschLeerzeichen state changed"
-    if ( irgendwas(14) = Tabulatoren.IsChecked  ) then  WarnLog "Tabulatoren state changed"
-    if ( irgendwas(15) = Umbrueche.IsChecked  ) then  WarnLog "Umbrueche state changed"
-    if ( irgendwas(16) = VersteckterText.IsChecked  ) then  WarnLog "VersteckterText state changed"
-    if ( irgendwas(17) = VersteckteAbsatze.IsChecked  ) then  WarnLog "VersteckteAbsatze state changed"
-    
-    Kontext "ExtrasOptionenDlg"
-    ExtrasOptionenDlg.OK
-
-    printlog ("'/// - all UnCheck -> o ///")
-    ToolsOptions
-    Call hToolsOptions ( "WRITER" , "FORMATTINGAIDS" )
-
-    DirektCursor.UnCheck
-    Zonen_Cursor.UnCheck
-
-    if (LinkerAbsatzrand.IsChecked = True) then Tabulator.Check Else LinkerAbsatzrand.Check
-    bTempRadioBut(1) = Absatzausrichtung.IsChecked
-    bTempRadioBut(2) = LinkerAbsatzrand.IsChecked
-    bTempRadioBut(3) = Tabulator.IsChecked
-    bTempRadioBut(4) = TabulatorUndLeerzeichen.IsChecked
-    
-    Absatzenden.UnCheck
-    WeicheTrenner.UnCheck
-    Leerzeichen.UnCheck
-    GeschLeerzeichen.UnCheck
-    Tabulatoren.UnCheck
-    Umbrueche.UnCheck
-    VersteckterText.UnCheck
-    VersteckteAbsatze.UnCheck
-    
-    Kontext "ExtrasOptionenDlg"
-    ExtrasOptionenDlg.OK
-    
-    printlog ("'/// - check if all UnChecked ///")
-    ToolsOptions
-    Call hToolsOptions ( "WRITER" , "FORMATTINGAIDS" )
-    
-    if DirektCursor.IsChecked then WarnLog "DirektCursor x"
-    if Zonen_Cursor.IsChecked then WarnLog "Zonen_Cursor x"
-       
-    if ( bTempRadioBut(1) <> Absatzausrichtung.IsChecked       ) then WarnLog "Absatzausrichtung state changed"
-    if ( bTempRadioBut(2) <> LinkerAbsatzrand.IsChecked        ) then WarnLog "LinkerAbsatzrand state changed"
-    if ( bTempRadioBut(3) <> Tabulator.IsChecked               ) then WarnLog "Tabulator state changed"
-    if ( bTempRadioBut(4) <> TabulatorUndLeerzeichen.IsChecked ) then WarnLog "TabulatorUndLeerzeichen state changed"
-    
-    if Absatzenden.IsChecked then  WarnLog "Absatzenden x"
-    if WeicheTrenner.IsChecked then  WarnLog "WeicheTrenner x"
-    if Leerzeichen.IsChecked then  WarnLog "Leerzeichen x"
-    if GeschLeerzeichen.IsChecked then  WarnLog "GeschLeerzeichen x"
-    if Tabulatoren.IsChecked then  WarnLog "Tabulatoren x"
-    if Umbrueche.IsChecked then  WarnLog "Umbrueche x"
-    if VersteckterText.IsChecked then  WarnLog "VersteckterText x"
-    if VersteckteAbsatze.IsChecked then  WarnLog "VersteckteAbsatze x"
-    
-    Printlog ("'/// - all Check -> x ///")
-    
-    DirektCursor.Check
-    Zonen_Cursor.Check
-    
-    if (Tabulator.IsChecked = True) then TabulatorUndLeerzeichen.Check Else Tabulator.Check
-    bTempRadioBut(1) = Absatzausrichtung.IsChecked
-    bTempRadioBut(2) = LinkerAbsatzrand.IsChecked
-    bTempRadioBut(3) = Tabulator.IsChecked
-    bTempRadioBut(4) = TabulatorUndLeerzeichen.IsChecked
-    
-    Absatzenden.Check
-    WeicheTrenner.Check
-    Leerzeichen.Check
-    GeschLeerzeichen.Check
-    Tabulatoren.Check
-    Umbrueche.Check
-    VersteckterText.Check
-    VersteckteAbsatze.Check
-    
-    Kontext "ExtrasOptionenDlg"
-    ExtrasOptionenDlg.OK
-    
-    printlog ("'/// - check if all Checked ///")
-    ToolsOptions
-    Call hToolsOptions ( "WRITER" , "FORMATTINGAIDS" )
-    
-    if not DirektCursor.IsChecked then WarnLog "DirektCursor o"
-    if not Zonen_Cursor.IsChecked then WarnLog "Zonen_Cursor o"
-    
-    if ( bTempRadioBut(1) <> Absatzausrichtung.IsChecked       ) then WarnLog "Absatzausrichtung state changed"
-    if ( bTempRadioBut(2) <> LinkerAbsatzrand.IsChecked        ) then WarnLog "LinkerAbsatzrand state changed"
-    if ( bTempRadioBut(3) <> Tabulator.IsChecked               ) then WarnLog "Tabulator state changed"
-    if ( bTempRadioBut(4) <> TabulatorUndLeerzeichen.IsChecked ) then WarnLog "TabulatorUndLeerzeichen state changed"
-    
-    if Not Absatzenden.IsChecked then  WarnLog "Absatzenden o BugID: 82942 OS"
-    if Not WeicheTrenner.IsChecked then  WarnLog "WeicheTrenner o"
-    if Not Leerzeichen.IsChecked then  WarnLog "Leerzeichen o"
-    if Not GeschLeerzeichen.IsChecked then  WarnLog "GeschLeerzeichen o"
-    if Not Tabulatoren.IsChecked then  WarnLog "Tabulatoren o"
-    if Not Umbrueche.IsChecked then  WarnLog "Umbrueche o"
-    if Not VersteckterText.IsChecked then  WarnLog "VersteckterText o"
-    if Not VersteckteAbsatze.IsChecked then  WarnLog "VersteckteAbsatze o"
-    
-    printlog ("'/// - restore states ///")
-    
-    if ( irgendwas(1) = TRUE ) then  DirektCursor.Check Else DirektCursor.UnCheck
-    if ( irgendwas(2) = TRUE ) then  Zonen_Cursor.Check Else Zonen_Cursor.UnCheck
-    
-    if ( bRadioBut(1) = TRUE ) then Absatzausrichtung.Check
-    if ( bRadioBut(2) = TRUE ) then LinkerAbsatzrand.Check
-    if ( bRadioBut(3) = TRUE ) then Tabulator.Check
-    if ( bRadioBut(4) = TRUE ) then TabulatorUndLeerzeichen.Check
-    
-    if ( irgendwas(10) = TRUE ) then  Absatzenden.Check Else Absatzenden.UnCheck
-    if ( irgendwas(11) = TRUE ) then  WeicheTrenner.Check Else WeicheTrenner.UnCheck
-    if ( irgendwas(12) = TRUE ) then  Leerzeichen.Check Else Leerzeichen.UnCheck
-    if ( irgendwas(13) = TRUE ) then  GeschLeerzeichen.Check Else GeschLeerzeichen.UnCheck
-    if ( irgendwas(14) = TRUE ) then  Tabulatoren.Check Else Tabulatoren.UnCheck
-    if ( irgendwas(15) = TRUE ) then  Umbrueche.Check Else Umbrueche.UnCheck
-    if ( irgendwas(16) = TRUE ) then  VersteckterText.Check Else VersteckterText.UnCheck
-    if ( irgendwas(17) = TRUE ) then  VersteckteAbsatze.Check Else VersteckteAbsatze.UnCheck
-    
-    Kontext "ExtrasOptionenDlg"
-    ExtrasOptionenDlg.OK
-    
-    Do Until GetDocumentCount = 0
-        Call hCloseDocument
-    Loop
-endcase
-
-'------------------------------------------------------------------------------
-testcase tToolsOptionsWriterChanges
-   Dim iListBox(2) as integer            ' ListBox
-   Dim iTempListBox(2) as integer
-   Dim iListBox2(3,2) as integer         ' ListBox
-   Dim iTempListBox2(3,2) as integer
-
-    Call hNewDocument
-    Call wBlindtextEinfuegen
-    Kontext "DocumentWriter"
-    DocumentWriter.TypeKeys "<Return>"
-    Call hTabelleEinfuegen
-    
-    Call wTypeKeys ("<Up>" , 2)
-    
-    printlog ("'///- Tools/Options/Writer: Changes ///")
-    
-    printlog ("'/// - save states ///")
-    ToolsOptions
-    Call hToolsOptions ("WRITER","CHANGES")
-    
-    iListBox2(1,1) = EinfuegenAttribute.GetSelIndex
-    iListBox2(1,2) = EinfuegenFarbe.GetSelIndex
-    iListBox2(2,1) = LoeschenAttribute.GetSelIndex
-    iListBox2(2,2) = LoeschenFarbe.GetSelIndex
-    iListBox2(3,1) = AendernAttribute.GetSelIndex
-    iListBox2(3,2) = AendernFarbe.GetSelIndex
-    
-    iListBox(1) = ZeilenMarkierung.GetSelIndex
-    iListBox(2) = ZeilenFarbe.GetSelIndex
-    
-    printlog ("'///   - Change states ///")
-    EinfuegenAttribute.Select 1
-    EinfuegenFarbe.Select 15
-    LoeschenAttribute.Select 5
-    LoeschenFarbe.Select 4
-    AendernAttribute.Select 8
-    AendernFarbe.Select 65
-    ZeilenMarkierung.Select 4
-    ZeilenFarbe.Select 19
-    
-    Kontext "ExtrasOptionenDlg"
-    ExtrasOptionenDlg.OK
-    
-    printlog "'///   - changes record with current formats  ///"
-    UseBindings
-    EditChangesRecord
-    
-    Call wTypeKeys "<Return> Here are some changes"
-    DocumentWriter.TypeKeys "<Up>", 8
-    DocumentWriter.TypeKeys "<Backspace>", 10
-    DocumentWriter.TypeKeys "<Down>", 2
-    DocumentWriter.TypeKeys "<Delete>", 10
-    DocumentWriter.TypeKeys "<Shift End>"
-    FormatCharacter
-    Kontext
-    Active.SetPage TabFontEffects
-    Kontext "TabFontEffects"
-    Outline.Check
-    Shadow.Check
-    TabFontEffects.OK
-    
-    Kontext "DocumentWriter"
-    DocumentWriter.TypeKeys "<Down>", 20
-    DocumentWriter.TypeKeys "<Up>Die ﾎnderung in einer Tabelle"
-    DocumentWriter.TypeKeys "<Tab>", 10
-    
-    printlog ("'/// - all states inverting ///")
-    
-    ToolsOptions
-    Call hToolsOptions ("WRITER","CHANGES")
-    
-    if ( EinfuegenAttribute.GetItemCount <> iListBox2(1,1) ) then EinfuegenAttribute.Select (iListBox2(1,1)+1) Else EinfuegenAttribute.Select(iListBox2(1,1)-1)
-    if ( EinfuegenFarbe.GetItemCount     <> iListBox2(1,2) ) then EinfuegenFarbe.Select     (EinfuegenFarbe.GetItemCount    ) Else EinfuegenFarbe.Select    (1)
-    iTempListBox2(1,1) = EinfuegenAttribute.GetSelIndex
-    iTempListBox2(1,2) = EinfuegenFarbe.GetSelIndex
-    if ( LoeschenAttribute.GetItemCount <> iListBox2(2,1) ) then LoeschenAttribute.Select (LoeschenAttribute.GetItemCount) Else LoeschenAttribute.Select(1)
-    if ( LoeschenFarbe.GetItemCount     <> iListBox2(2,2) ) then LoeschenFarbe.Select     (LoeschenFarbe.GetItemCount    ) Else LoeschenFarbe.Select    (1)
-    iTempListBox2(2,1) = LoeschenAttribute.GetSelIndex
-    iTempListBox2(2,2) = LoeschenFarbe.GetSelIndex
-    if ( AendernAttribute.GetItemCount <> iListBox2(3,1) ) then AendernAttribute.Select (AendernAttribute.GetItemCount) Else AendernAttribute.Select(1)
-    if ( AendernFarbe.GetItemCount     <> iListBox2(3,2) ) then AendernFarbe.Select     (AendernFarbe.GetItemCount    ) Else AendernFarbe.Select    (1)
-    iTempListBox2(3,1) = AendernAttribute.GetSelIndex
-    iTempListBox2(3,2) = AendernFarbe.GetSelIndex    
-    if ( ZeilenMarkierung.GetItemCount   <> iListBox(1) ) then ZeilenMarkierung.Select   (ZeilenMarkierung.GetItemCount  ) Else ZeilenMarkierung.Select  (1)
-    if ( ZeilenFarbe.GetItemCount        <> iListBox(2) ) then ZeilenFarbe.Select        (ZeilenFarbe.GetItemCount       ) Else ZeilenFarbe.Select       (1)
-    iTempListBox(1) = ZeilenMarkierung.GetSelIndex
-    iTempListBox(2) = ZeilenFarbe.GetSelIndex
-    
-    Kontext "ExtrasOptionenDlg"
-    ExtrasOptionenDlg.OK
-
-    printlog ("'/// - SO quit - start ///")
-
-    Call wOfficeRestart
-    WaitSlot (2)
-
-    printlog ("'/// - checking states ///")
-    ToolsOptions
-    Call hToolsOptions ( "WRITER" , "CHANGES" )
-
-    if ( EinfuegenAttribute.GetSelIndex <> iTempListBox2(1,1) ) then WarnLog "EinfuegenAttribute state changed; is: "+EinfuegenAttribute.GetSelIndex +"; should: "+ iTempListBox2(1,1)
-    if ( EinfuegenFarbe.GetSelIndex     <> iTempListBox2(1,2) ) then WarnLog "EinfuegenFarbe state changed"
-    if ( LoeschenAttribute.GetSelIndex <> iTempListBox2(2,1) ) then WarnLog "LoeschenAttribute state changed"
-    if ( LoeschenFarbe.GetSelIndex     <> iTempListBox2(2,2) ) then WarnLog "LoeschenFarbe state changed"
-    if ( AendernAttribute.GetSelIndex <> iTempListBox2(3,1) ) then WarnLog "AendernAttribute state changed"
-    if ( AendernFarbe.GetSelIndex     <> iTempListBox2(3,2) ) then WarnLog "AendernFarbe state changed"
-    if ( ZeilenMarkierung.GetSelIndex   <> iTempListBox(1) ) then WarnLog "ZeilenMarkierung state changed"
-    if ( ZeilenFarbe.GetSelIndex        <> iTempListBox(2) ) then WarnLog "ZeilenFarbe state changed"
-    
-    Kontext "ExtrasOptionenDlg"
-    ExtrasOptionenDlg.OK
-    
-    printlog ("'/// - all UnCheck -> o ///")
-    ToolsOptions
-    Call hToolsOptions ( "WRITER" , "CHANGES" )
-    
-    EinfuegenAttribute.Select(1)
-    EinfuegenFarbe.Select    (1)
-    LoeschenAttribute.Select (LoeschenAttribute.GetItemCount)
-    LoeschenFarbe.Select     (LoeschenFarbe.GetItemCount    )
-    AendernAttribute.Select(1)
-    AendernFarbe.Select    (1)
-    
-    ZeilenMarkierung.Select  (1)
-    ZeilenFarbe.Select       (1)
-    
-    Kontext "ExtrasOptionenDlg"
-    ExtrasOptionenDlg.OK
-    
-    printlog ("'/// - check if all UnChecked ///")
-    ToolsOptions
-    Call hToolsOptions ( "WRITER" , "CHANGES" )
-    
-    if (EinfuegenAttribute.GetSelIndex <> 1 ) then WarnLog "EinfuegenAttribute is not item 1"
-    if (EinfuegenFarbe.GetSelIndex     <> 1 ) then WarnLog "EinfuegenFarbe is not item 1"
-    if (LoeschenAttribute.GetSelIndex <> LoeschenAttribute.GetItemCount ) then WarnLog "LoeschenAttribute is not item (GetItemCount)"
-    if (LoeschenFarbe.GetSelIndex     <> LoeschenFarbe.GetItemCount     ) then WarnLog "LoeschenFarbe is not item (GetItemCount)"
-    if (AendernAttribute.GetSelIndex <> 1 ) then WarnLog "AendernAttribute is not item 1"
-    if (AendernFarbe.GetSelIndex     <> 1 ) then WarnLog "AendernFarbe is not item 1"
-    if (ZeilenMarkierung.GetSelIndex   <> 1 ) then WarnLog "ZeilenMarkierung is not item 1"
-    if (ZeilenFarbe.GetSelIndex        <> 1 ) then WarnLog "ZeilenFarbe is not item 1"
-    
-    Printlog ("'/// - all Check -> x ///")
-    EinfuegenAttribute.Select (EinfuegenAttribute.GetItemCount)
-    EinfuegenFarbe.Select     (EinfuegenFarbe.GetItemCount    )
-    LoeschenAttribute.Select(1)
-    LoeschenFarbe.Select    (1)
-    AendernAttribute.Select (AendernAttribute.GetItemCount)
-    AendernFarbe.Select     (AendernFarbe.GetItemCount    )
-    
-    ZeilenMarkierung.Select   (ZeilenMarkierung.GetItemCount  )
-    ZeilenFarbe.Select        (ZeilenFarbe.GetItemCount       )
-    
-    Kontext "ExtrasOptionenDlg"
-    ExtrasOptionenDlg.OK
-    
-    printlog ("'/// - check if all Checked ///")
-    ToolsOptions
-    Call hToolsOptions ( "WRITER" , "CHANGES" )
-    
-    if (EinfuegenAttribute.GetSelIndex <> EinfuegenAttribute.GetItemCount ) then WarnLog "EinfuegenAttribute is not item (GetItemCount)"
-    if (EinfuegenFarbe.GetSelIndex     <> EinfuegenFarbe.GetItemCount     ) then WarnLog "EinfuegenFarbe is not item (GetItemCount)"
-    if (LoeschenAttribute.GetSelIndex <> 1 ) then WarnLog "LoeschenAttribute is not item 1"
-    if (LoeschenFarbe.GetSelIndex     <> 1 ) then WarnLog "LoeschenFarbe is not item 1"
-    if (AendernAttribute.GetSelIndex <> AendernAttribute.GetItemCount ) then WarnLog "AendernAttribute is not item (GetItemCount)"
-    if (AendernFarbe.GetSelIndex     <> AendernFarbe.GetItemCount     ) then WarnLog "AendernFarbe is not item (GetItemCount)"
-    
-    if (ZeilenMarkierung.GetSelIndex   <> ZeilenMarkierung.GetItemCount   ) then WarnLog "ZeilenMarkierung is not item (GetItemCount)"
-    if (ZeilenFarbe.GetSelIndex        <> ZeilenFarbe.GetItemCount        ) then WarnLog "ZeilenFarbe is not item (GetItemCount)"
-    
-    Kontext "ExtrasOptionenDlg"
-    ExtrasOptionenDlg.Cancel
-    
-    '--------------------------------------------------------------------------
-    'new document starts with unchecked edit changes record!? (i hope always ;-))
-    printlog ("'/ Function test: color-real-print / screenshot also possible///'")
-    Call hNewDocument
-
-    Kontext "DocumentWriter"
-    DocumentWriter.TypeKeys "This is normal text"
-    DocumentWriter.TypeKeys "<return>"
-    DocumentWriter.TypeKeys "The quick brown fox jumps over the lazy dog"
-    DocumentWriter.TypeKeys "<return>"
-
-    ToolsOptions
-    Call hToolsOptions ( "WRITER" , "CHANGES" )
-    EinfuegenAttribute.Select (2) 'bold
-    EinfuegenFarbe.Select     (8) 'mangenta
-    LoeschenAttribute.Select  (4) 'strikethrough
-    LoeschenFarbe.Select      (92)  ' sun3
-    AendernAttribute.Select   (8) 'smallcaps
-    AendernFarbe.Select       (30)'red4
-
-    ZeilenMarkierung.Select   (4) 'outer margins
-    ZeilenFarbe.Select        (52)'turquise4
-    Kontext "ExtrasOptionenDlg"
-    ExtrasOptionenDlg.Ok
-
-    Kontext "DocumentWriter"
-    DocumentWriter.TypeKeys "This is inserted text"
-    DocumentWriter.TypeKeys "<return>"
-    EditChangesRecord
-    DocumentWriter.TypeKeys "The quick brown fox jumps over the lazy dog"
-    DocumentWriter.TypeKeys "<return>"
-    EditChangesRecord
-    DocumentWriter.TypeKeys "This is attribut-changed text"
-    DocumentWriter.TypeKeys "<return>"
-    DocumentWriter.TypeKeys "The quick brown fox jumps over the lazy dog"
-    EditChangesRecord
-    DocumentWriter.TypeKeys "<shift home>"
-    DocumentWriter.TypeKeys "<mod1 i><end>"
-    DocumentWriter.TypeKeys "<return>"
-    EditChangesRecord
-    DocumentWriter.TypeKeys "This is backspaced text"
-    DocumentWriter.TypeKeys "<return>"
-    DocumentWriter.TypeKeys "The quick brown fox jumps over the lazy dog"
-    DocumentWriter.TypeKeys "<shift home>"
-    EditChangesRecord
-    DocumentWriter.TypeKeys "<backspace>"
-    EditChangesRecord
-    DocumentWriter.TypeKeys "<end><return>"
-    DocumentWriter.TypeKeys "This is deleted text"
-    DocumentWriter.TypeKeys "<return>"
-    DocumentWriter.TypeKeys "The quick brown fox jumps over the lazy dog"
-    EditChangesRecord
-    DocumentWriter.TypeKeys "<shift home>"
-    DocumentWriter.TypeKeys "<delete><end>"
-    DocumentWriter.TypeKeys "<return>"
-    EditChangesRecord
-    Call hCloseDocument
-
-    '--------------------------------------------------------------------------
-    printlog ("'/// - restore states ///")
-    ToolsOptions
-    Call hToolsOptions ( "WRITER" , "CHANGES" )
-
-    try
-        EinfuegenAttribute.Select (iListBox2(1,1))
-    catch
-        EinfuegenAttribute.Select (1)
-        Warnlog ("EinfuegenAttribute has wrong initialvalue: " + iListBox2(1,1) + ", BugID: 83097")
-    endcatch
-    try
-        EinfuegenFarbe.Select     (iListBox2(1,2))
-    catch
-        EinfuegenFarbe.Select (1)
-        WarnLog ("EinfuegenFarbe has wrong initialvalue: " + iListBox2(1,2))
-    endcatch
-
-    try
-        printlog       iListBox2(2,1)
-        LoeschenAttribute.Select (iListBox2(2,1))
-    catch
-        LoeschenAttribute.Select (1)
-        WarnLog ("LoeschenAttribute has wrong initialvalue: " + iListBox2(2,1) )
-    endcatch
-
-    try
-        LoeschenFarbe.Select     (iListBox2(2,2))
-    catch
-        LoeschenFarbe.Select (1)
-        WarnLog ("LoeschenFarbe has wrong initialvalue: " + iListBox2(2,2))
-    endcatch
-
-    try
-        AendernAttribute.Select (iListBox2(3,1))
-    catch
-        AendernAttribute.Select (1)
-        WarnLog ("AendernAttribute has wrong initialvalue: " + iListBox2(3,1) )
-    endcatch
-
-    try
-        AendernFarbe.Select     (iListBox2(3,2))
-    catch
-        AendernFarbe.Select (1)
-        WarnLog ("AendernFarbe has wrong initialvalue: " + iListBox2(3,2))
-    endcatch
-
-    try
-        ZeilenMarkierung.Select   (iListBox(1))
-    catch
-        ZeilenMarkierung.Select (1)
-        WarnLog ("ZeilenMarkierung has wrong initialvalue: " + iListBox(3))
-    endcatch
-
-    try
-        ZeilenFarbe.Select        (iListBox(2))
-    catch
-        ZeilenFarbe.Select (1)
-        WarnLog ("ZeilenFarbe has wrong initialvalue: " + iListBox(4))
-    endcatch
-
-    Kontext "ExtrasOptionenDlg"
-    ExtrasOptionenDlg.OK
-
-    Do Until GetDocumentCount = 0
-        Call hCloseDocument
-    Loop
-endcase
-
-'------------------------------------------------------------------------------
-testcase tToolsOptionsWriterInsert
-
-    Dim irgendwas(8) as boolean    ' Checkbox states
-
-    Call hNewDocument
-    printlog "'///- Tools/Options/Writer: Table ///"
-
-    printlog ("'/// - save states ///")
-    ToolsOptions
-    Call hToolsOptions ("WRITER","Table")
-
-    irgendwas(2) = Ueberschrift.IsChecked
-    irgendwas(3) = Wiederholen.IsChecked
-    irgendwas(4) = NichtTrennen.IsChecked
-    irgendwas(5) = Umrandung.IsChecked
-
-    irgendwas(6) = AutomatischeZahlenerkennung.IsChecked
-    irgendwas(7) = Zahlenformaterkennung.IsChecked
-    irgendwas(8) = AutomatischeAusrichtung.IsChecked
-
-    printlog ("'/// - all states inverting ///")
-
-    Ueberschrift.Check
-    if irgendwas(3) then Wiederholen.UnCheck                 Else Wiederholen.Check
-    if irgendwas(4) then NichtTrennen.UnCheck                Else NichtTrennen.Check
-    if irgendwas(5) then Umrandung.UnCheck                   Else Umrandung.Check
-    AutomatischeZahlenerkennung.Check
-    if irgendwas(7) then Zahlenformaterkennung.UnCheck       Else Zahlenformaterkennung.Check
-    if irgendwas(8) then AutomatischeAusrichtung.UnCheck     Else AutomatischeAusrichtung.Check
-
-    Kontext "ExtrasOptionenDlg"
-    ExtrasOptionenDlg.OK
-
-    printlog ("'/// - SO quit - start ///")
-
-    Call wOfficeRestart
-
-    printlog ("'/// - checking states ///")
-    ToolsOptions
-    Call hToolsOptions ( "WRITER" , "Table" )
-
-    if ( Ueberschrift.IsChecked                = False ) then WarnLog "Ueberschrift state changed"
-    if ( irgendwas(3) = Wiederholen.IsChecked                 ) then WarnLog "Wiederholen state changed"
-    if ( irgendwas(4) = NichtTrennen.IsChecked                ) then WarnLog "NichtTrennen state changed"
-    if ( irgendwas(5) = Umrandung.IsChecked                   ) then WarnLog "Umrandung state changed"
-
-    if ( AutomatischeZahlenerkennung.IsChecked = False ) then WarnLog "AutomatischeZahlenerkennung state changed"
-    if ( irgendwas(7) = Zahlenformaterkennung.IsChecked       ) then WarnLog "Zahlenformaterkennung state changed"
-    if ( irgendwas(8) = AutomatischeAusrichtung.IsChecked     ) then WarnLog "AutomatischeAusrichtung state changed"
-
-    Kontext "ExtrasOptionenDlg"
-    ExtrasOptionenDlg.OK
-
-    printlog ("'/// - all UnCheck -> o ///")
-    ToolsOptions
-    Call hToolsOptions ( "WRITER" , "Table" )
-
-    Ueberschrift.UnCheck
-    NichtTrennen.UnCheck
-    Umrandung.UnCheck
-    AutomatischeZahlenerkennung.UnCheck
-
-    Kontext "ExtrasOptionenDlg"
-    ExtrasOptionenDlg.OK
-
-    Printlog "'///    - check in InsertTableWriter ///"
-    InsertTableWriter
-    Kontext "TabelleEinfuegenWriter"
-
-    if ( Ueberschrift.IsChecked          ) then WarnLog "Ueberschrift x"
-    if ( TabelleNichtTrennen.IsChecked ) then WarnLog "NichtTrennen x"
-    if ( Umrandung.IsChecked           ) then WarnLog "Umrandung x"
-
-    TabelleEinfuegenWriter.OK
-
-    Kontext "DocumentWriter"
-    DocumentWriter.TypeKeys "<Down>1<Tab><Left>"
-    FormatParagraph
-    Kontext
-    Active.SetPage TabAusrichtungAbsatz
-    Kontext "TabAusrichtungAbsatz"
-    if NOT Links.IsChecked then Warnlog "Die automatische Ausrichtung der Zahl wurde trotzdem durchgefﾁhrt!"
-    TabAusrichtungAbsatz.Cancel
-
-    FormatNumberFormat
-    Kontext "Zahlenformat"
-    if Kategorie.GetSelIndex <> 11 then Warnlog "Das Zahlenformat ist nicht Text geblieben!"
-    Zahlenformat.Cancel
-    Call hCloseDocument
-    Call hNewDocument
-
-    printlog ("'/// - check if all UnChecked ///")
-	Call hNewDocument
-    ToolsOptions
-    Call hToolsOptions ( "WRITER" , "Table" )
-
-    if Ueberschrift.IsChecked                then WarnLog "Ueberschrift x"
-    if NichtTrennen.IsChecked                then WarnLog "NichtTrennen x"
-    if Umrandung.IsChecked                   then WarnLog "Umrandung x"
-
-    if AutomatischeZahlenerkennung.IsChecked then WarnLog "AutomatischeZahlenerkennung x"
-
-    Printlog ("'/// - all Check -> x ///")
-
-    Ueberschrift.Check
-    Wiederholen.Check
-    NichtTrennen.Check
-    Umrandung.Check
-
-    AutomatischeZahlenerkennung.Check
-    Zahlenformaterkennung.Check
-    AutomatischeAusrichtung.Check
-
-    Kontext "ExtrasOptionenDlg"
-    ExtrasOptionenDlg.OK
-
-    Printlog "'///    - check in InsertTableWriter ///"
-    Call hNewDocument
-    InsertTableWriter
-    Kontext "TabelleEinfuegenWriter"
-
-    if ( Ueberschrift.IsChecked                = FALSE ) then WarnLog "Ueberschrift o"
-    if ( UeberschriftWiederholen.IsChecked                 = FALSE ) then WarnLog "Wiederholen o"
-    if ( TabelleNichtTrennen.IsChecked                = FALSE ) then WarnLog "NichtTrennen o"
-    if ( Umrandung.IsChecked                   = FALSE ) then WarnLog "Umrandung o"
-
-    TabelleEinfuegenWriter.Ok
-
-    Kontext "DocumentWriter"
-    DocumentWriter.TypeKeys "<Down>1<Tab><Left>"
-    FormatParagraph
-    Kontext
-    Active.SetPage TabAusrichtungAbsatz
-    Kontext "TabAusrichtungAbsatz"
-    if NOT Rechts.IsChecked then Warnlog "Alignment of number didn't change to: right!"
-    TabAusrichtungAbsatz.Cancel
-
-    FormatNumberFormat
-    Kontext "Zahlenformat"
-    if Kategorie.GetSelIndex <> 3 then Warnlog "numberformat didn't get changed!"
-    Zahlenformat.Cancel
-
-    Call hCloseDocument
-    Call hNewDocument
-
-    printlog ("'/// - check if all Checked ///")
-    ToolsOptions
-    Call hToolsOptions ( "WRITER" , "Table" )
-
-    if ( Ueberschrift.IsChecked                = FALSE ) then WarnLog "Ueberschrift o"
-    if ( Wiederholen.IsChecked                 = FALSE ) then WarnLog "Wiederholen o"
-    if ( NichtTrennen.IsChecked                = FALSE ) then WarnLog "NichtTrennen o"
-    if ( Umrandung.IsChecked                   = FALSE ) then WarnLog "Umrandung o"
-
-    if ( AutomatischeZahlenerkennung.IsChecked = FALSE ) then WarnLog "AutomatischeZahlenerkennung o"
-    if ( Zahlenformaterkennung.IsChecked       = FALSE ) then WarnLog "Zahlenformaterkennung o"
-    if ( AutomatischeAusrichtung.IsChecked     = FALSE ) then WarnLog "AutomatischeAusrichtung o"
-
-    Kontext "ExtrasOptionenDlg"
-    ExtrasOptionenDlg.OK
-
-    printlog ("'/// - restore states ///")
-
-    Call wOptionsUndo("Table")
-
-    Do Until GetDocumentCount = 0
-        Call hCloseDocument
-    Loop
-endcase
-
-' ********************************************************************
-
-testcase tToolsOptionsAutocaption
-
-    Dim Auswahl(20) as String
-    Dim i as Integer
-    Dim SplitString as string
-    Dim ObjectTmp() as string
-    printlog "- Tools/Options/StarOffice Writer/AutoCaption"
-
-    Call hNewDocument
-    Call wOptionsUndo( "All" )
-
-    ToolsOptions
-    Call hToolsOptions("WRITER","AutoCaption")
-    Kontext "TabAutocaption"
-    Select Case iSprache
-        case 36     :   SplitString = "-"
-        case else   :   SplitString = " "
-    end select
-    for i=1 to ObjectList.GetItemCount
-        ObjectList.Select i
-        ObjectList.Check
-        ObjectTmp() = Split(ObjectList.GetSelText, SplitString)
-        Auswahl(i) = ObjectTmp(Ubound(ObjectTmp()))
-        Category.SetText Auswahl(i)
-    next i
-
-    ObjectList.Select 1
-    Position.Select Position.GetItemCount   'Select "Caption: Below"
-
-    Kontext "ExtrasOptionenDlg"
-    ExtrasOptionenDlg.OK
-
-    printlog "   - Check table caption"
-    ViewZoom
-    Kontext "Massstab"
-    Seitenbreite.Check
-    Massstab.OK
-    InsertTableWriter
-    Kontext "TabelleEinfuegenWriter"
-    TabelleEinfuegenWriter.OK
-    Kontext "DocumentWriter"
-    Call wTypeKeys ("<MOD1 Home>")
-    Call wTypeKeys ("<DOWN>", 2)
-    Call wTypeKeys ("<HOME>")
-    Select Case iSprache
-        Case 31:
-            Call wTypeKeys ("<Mod1 Shift Right>") ', 3
-        Case else
-            Call wTypeKeys ("<Mod1 Shift Right>")
-    end select
-    EditCopy
-    wait 500
-    if Trim$(GetClipboardText) <> Auswahl ( 1 ) then Warnlog "Table caption is wrong. Not " & Auswahl(1) & " but: " & GetClipboardtext
-    EditUndo
-
-    printlog "'///   - Check frame caption ///"
-    InsertFrame
-    Kontext
-    Active.SetPage TabType
-    Kontext "TabType"
-'    if gPlatGroup = "unx" then
-    Width.SetText "2"
-    TabType.OK
-    Call wTypeKeys ("<Return>")
-    sleep (1)
-    Call wTypeKeys ("<Down><Home>")
-    Select Case iSprache
-        Case 31:
-            Call wTypeKeys ("<Mod1 Shift Right>", 3)
-        Case else
-            Call wTypeKeys ("<Mod1 Shift Right>")
-    end select
-    EditCopy
-    Wait 500
-    if Trim$(GetClipboardText) <> Auswahl (2) then 
-        Warnlog "Caption of a frame is wrong.  Not " & Auswahl(2) & " but: " & GetClipboardtext
-    endif
-    Call wTypeKeys ("<Escape>")
-    sleep(1)
-    Call wTypeKeys ("<Home><SHIFT END><Delete>")
-
-    printlog "'///   - Check graphics caption ///"
-    '///+ "writer\optional\input\graphics\jolink.jpg" ///
-    Call hGrafikEinfuegen ( gTesttoolPath + "writer\optional\input\graphics\jolink.jpg" )
-        Call wTypeKeys ("<Return>")
-        sleep (1)
-        Call wTypeKeys ("<MOD1 Home>")
-    Select Case iSprache
-        Case 31:
-            Call wTypeKeys ("<Mod1 Shift Right>", 3)
-        Case 82:
-            Call wTypeKeys ("<Down><Shift End>")
-        Case else
-            Call wTypeKeys ("<Mod1 Shift Right>")
-    end select
-    EditCopy
-    if Trim$(GetClipboardText) <> Auswahl (3) then 
-        Warnlog "Caption of a graphic is wrong. Not " & Auswahl(3) & " but: " & GetClipboardtext
-    endif
-    Call hCloseDocument
-    
-    printlog "'///   - Check caption of all other objects ///"
-    for i=1 to 5
-        Call hNewDocument
-        InsertObjectOLEObject
-        Kontext "OLEObjektEinfuegen"
-        Objekttyp.Select i
-        printlog " - " & Objekttyp.GetSelText
-        OLEObjektEinfuegen.OK
-
-        Kontext "DocumentWriter"
-        Call gMouseClick ( 90, 90 )
-        Sleep 2
-        Call wTypeKeys ("<Return>")
-        sleep (2)
-        Call wTypeKeys ("<MOD1 Home>")
-        Select Case i
-            Case 1,3,4,5
-                Select Case iSprache
-                    Case 31
-                        Call wTypeKeys ("<Mod1 Shift Right>",3)
-                    Case else
-                        Call wTypeKeys ("<Mod1 Shift Right>")
-                end select
-            Case else
-                Call wTypeKeys ("<Mod1 Shift Right>")
-        end select
-        EditCopy
-        if Trim$(GetClipboardText) <> Auswahl (i+3) then Warnlog "Caption of a " & Auswahl(i+3) & " is wrong. Not " & Auswahl(i+3) & " but: " & GetClipboardtext
-        sleep (1)
-        Call hCloseDocument
-    next i
-    Call hNewDocument
-    printlog "'///   - Set defaults ///"
-    ViewZoom
-    Kontext "Massstab"
-    Vergroesserung100.Check
-    Massstab.OK
-
-    ToolsOptions
-    Call hToolsOptions("WRITER","AutoCaption")
-    Kontext "TabAutocaption"
-    for i=1 to ObjectList.GetItemCount
-        ObjectList.Select i
-        ObjectList.Uncheck
-    next i
-
-    Kontext "ExtrasOptionenDlg"
-    ExtrasOptionenDlg.OK
-    sleep (1)
-    Do Until GetDocumentCount = 0
-        Call hCloseDocument
-    Loop
-endcase
-
-'-------------------------------------------------------------------
-
-testcase tToolsOptionsWriterCompatibility1
-
-    Dim i as integer
-
-    printlog "Check status change of all checkboxes in StarOffice Writer->Compatibility options" 
-    printlog " Test of option 'Use StarOffice 6.0/7 tabstop formatting'"
-    Call hNewDocument
-    ToolsOptions
-    Call hToolsOptions("WRITER","COMPATIBILITY")
-    printlog " Check defaults of checkboxes. if default is wrong then set to default"
-    Kontext "TabCompatibility"
-    For i = 1 to Options.GetItemCount
-        Options.Select i
-        Select case i
-            Case 2,3,7,11
-                if Not Options.IsChecked then
-                    Warnlog "Default for checkbox " & i & " is wrong (not checked)"
-                    Options.Check
-                end if
-            Case else
-                if Options.IsChecked then
-                    Warnlog "Default for checkbox " & i & " is wrong (checked)"
-                    Options.UnCheck
-                end if
-        end select
-    next i
-    printlog " - check all checkboxes"
-    For i = 1 to Options.GetItemCount
-        Options.Select i
-        Options.Check
-    next i
-    Default.Click
-    Kontext "Active"
-    if Active.Exists then
-        if Active.GetRT = 304 then
-            Active.Yes
-        end if
-    end if
-    Kontext "ExtrasOptionenDlg"
-    ExtrasOptionenDlg.Ok
-
-    printlog "- save document"
-    Call hFileSaveAsKill (gOfficePath + "user\work\tToolsOptionsWriterCompatibility1.odt")
-    Call hCloseDocument
-
-    printlog "- restart the office"
-    Call wOfficeRestart
-
-    printlog "- load previously saved document"
-    Call hNewDocument
-    hFileOpen( gOfficePath & "user\work\tToolsOptionsWriterCompatibility1.odt")
-
-    Printlog "check state of all checkboxes and uncheck all checkboxes"
-    ToolsOptions
-    Call hToolsOptions("WRITER","COMPATIBILITY")
-    Kontext "TabCompatibility"
-    For i = 1 to Options.GetItemCount
-        Options.Select i
-        if Not Options.IsChecked then
-            Warnlog "Checkbox " & i & " looses state after restart"
-        else
-            Options.Uncheck
-        end if
-    next i
-    Default.Click
-    Kontext "Active"
-    if Active.Exists then
-        if Active.GetRT = 304 then
-            Active.Yes
-        end if
-    end if
-    Kontext "ExtrasOptionenDlg"
-    ExtrasOptionenDlg.Ok
-
-    Call hCloseDocument
-
-    '/// restart the office
-    Call wOfficeRestart
-    WaitSlot (2)
-
-    printlog "check state of all checkboxes and set defaults"
-    ToolsOptions
-    Call hToolsOptions("WRITER","COMPATIBILITY")
-    Kontext "TabCompatibility"
-    For i = 1 to Options.GetItemCount
-        Options.Select i
-        if Options.IsChecked then
-            Warnlog "Checkbox " & i & " looses state after restart"
-        end if
-        Select Case i
-            Case 2,3,7,11
-                Options.Check
-            Case else
-                Options.UnCheck
-        end select
-    next i
-    Default.Click
-    Kontext "Active"
-    if Active.Exists then
-        if Active.GetRT = 304 then
-            Active.Yes
-        end if
-    end if
-    Kontext "ExtrasOptionenDlg"
-    ExtrasOptionenDlg.Ok
-
-    Do Until GetDocumentCount = 0
-        Call hCloseDocument
-    Loop
-endcase
-
-'-------------------------------------------------------------------
-
-testcase tToolsOptionsWriterCompatibility2
-
-    Dim i as integer
-    Dim DefaultFailed as boolean
-    printlog "Test of option 'Use StarOffice 6.0/7 tabstop formatting'"
-    
-    Call hNewDocument
-    printlog "open document  ./writer/leve11/input/options/compatibility1.doc"
-    printlog "check formatting of current opened document"
-    hFileOpenLocally(  gTesttoolpath & "writer\optional\input\options\compatibility1.doc" )
-    
-
-    Call wTypeKeys ("<Mod1 Home>")
-    Call wTypeKeys ("<Down>")
-    Call wTypeKeys ("<Shift Right>")
-
-    try
-        EditCopy
-        if GetClipboardtext <> "A" then
-            Warnlog "Seems document has been formatted wrong"
-            DefaultFailed = true
-        end if
-    catch
-        Warnlog "Seems document has been formatted wrong"
-        DefaultFailed = true
-    endcatch
-
-    Call wTypeKeys ("<Home>")
-    Call wTypeKeys ("<Down>" ,3)
-    Call wTypeKeys ("<Shift Right>")
-    try
-        EditCopy
-        if GetClipboardtext <> "A" then
-            Warnlog "Seems document has been formatted wrong"
-            DefaultFailed = true
-        end if
-    catch
-        Warnlog "Seems document has been formatted wrong"
-        DefaultFailed = true
-    endcatch
-
-    if DefaultFailed = false then
-        printlog " in Tools->Options->StarOffice Writer->Compatitibility check option 'Use StarOffice 6.0/7 tabstop formatting'"
-        ToolsOptions
-        Call hToolsOptions("WRITER","COMPATIBILITY")
-        printlog " Check defaults of checkboxes. if default is wrong then set to default"
-        Kontext "TabCompatibility"
-        Options.Select 4
-        Options.Check
-        Kontext "ExtrasOptionenDlg"
-        ExtrasOptionenDlg.Ok
-        printlog " Now check if document has been reformatted"
-        Call wTypeKeys ("<Mod1 Home>")
-        Call wTypeKeys ("<Down>" , 2)
-        Call wTypeKeys ("<Shift Right>")
-        try
-            EditCopy
-            if GetClipboardtext <> "A" then
-                Warnlog "Seems document has been formatted wrong"
-            end if
-        catch
-            Warnlog "Seems document has been formatted wrong"
-        endcatch
-
-        Call wTypeKeys ("<Home>")
-        Call wTypeKeys ("<Down>" , 4)
-        Call wTypeKeys ("<Shift Right>")
-        try
-            EditCopy
-            if GetClipboardtext <> "A" then
-                Warnlog "Seems document has been formatted wrong"
-            end if
-        catch
-            Warnlog "Seems document has been formatted wrong"
-        endcatch
-
-        printlog "in Tools->Options->StarOffice Writer->Compatitibility uncheck option 'Use StarOffice 6.0/7 tabstop formatting'"
-        ToolsOptions
-        Call hToolsOptions("WRITER","COMPATIBILITY")
-        printlog "Check defaults of checkboxes. if default is wrong then set to default"
-        Kontext "TabCompatibility"
-        Options.Select 4
-        Options.UnCheck
-        Kontext "ExtrasOptionenDlg"
-        ExtrasOptionenDlg.Ok
-    end if
-
-    printlog "Close document"
-    Do Until GetDocumentCount = 0
-        Call hCloseDocument
-    Loop
-endcase
-
-'------------------------------------------------------------------------------------------------------------
-testcase tToolsOptionsWriterCompatibility3
-
-    DIM iWords_to_right     AS integer 'variable for counting word-steps
-    DIM iOptionsCount       AS integer 'variable for counting options on cmopatibility page
-    DIM sDocument           AS string  'variable for saving the doc
-    DIM sFoundWord          AS string  'variable for word found one line below
-
-    printlog ">>> Configuration of behavior when a line break is inserted <<<"
-    '/// New Writer Doc
-    Call hNewDocument
-    sleep (1)
-    printlog "New writer doc opened"
-    ToolsOptions
-    Kontext "ExtrasOptionenDLG"
-    printlog "Checking Options settings"
-
-    printlog "Tools-Options-OOo Writer-Compatibility"
-    Call hToolsOptions("WRITER","COMPATIBILITY")
-    Kontext "TabCompatibility"
-
-    printlog "Verify that the entry 'Expand word space on lines with manual line breaks in justified paragraphs' is checked by default"
-    iOptionsCount = Options.GetItemCount
-    Options.Select iOptionsCount
-    if Options.isChecked then
-        printlog "Expand word space on lines... is checked"
-    else
-        warnlog "Warning: Expand word space on lines...is not checked as default!"
-        Options.Check
-    end if
-
-    printlog " Close dialog with OK"
-    Kontext "ExtrasOptionenDLG"
-    ExtrasOptionenDLG.OK
-    sleep (1)
-
-    printlog " Insert a paragraph with several lines of text"
-    Kontext "DocumentWriter"
-    DocumentWriter.typekeys ("one two three four five six seven eight nine ten eleven twelve thirteen fourteen fifteen sixteen seventeen eighteen nineteen twenty twentyone twentytwo twentythree twentyfour twentyfive twentysix")
-    printlog "Inserting text"
-    Kontext "DocumentWriter"
-
-    DocumentWriter.UseMenu 'use menu to select all
-    Call hMenuSelectNr (2) 'edit
-    CALL hMenuFindSelect (".uno:SelectAll", true, 11, true)   'Find "Select All" and call the slot.
-
-    printlog "Click the 'Justified icon in the toolbar"
-    sleep (1)
-    Kontext "TextObjectbar"
-    Blocksatz.Click 'setting to justified
-    Kontext "DocumentWriter"
-
-    printlog "(Now the paragraph adjustment is 'justified')"
-    printlog "Setting text to justified."
-    sleep (1)
-
-    printlog " Click into the middle of a line"
-    DocumentWriter.TypeKeys "<MOD1 HOME>" 'jumping to beginning of text
-    DocumentWriter.TypeKeys "<MOD1 RIGHT>",9,true '9 times to the right
-    sleep (1)
-
-    printlog " Insert a line break by pressing <SHIFT>+<ENTER>"
-    DocumentWriter.TypeKeys "<SHIFT RETURN>"
-    sleep (1)
-
-    printlog " Verify that the remaining words are aligned justified"
-    DocumentWriter.TypeKeys "<MOD1 LEFT>" 'going back into remaining text
-    Kontext "DocumentWriter"
-    DocumentWriter.TypeKeys "<DOWN>" 'one line down
-    sleep (1)
-    DocumentWriter.TypeKeys "<MOD1 LEFT>" 'one word to the left
-    sleep (1)
-    DocumentWriter.TypeKeys "<MOD1 SHIFT RIGHT>" 'selecting complete word
-    sleep (1)
-    DocumentWriter.TypeKeys "<SHIFT LEFT>" 'deleting space
-    EditCopy
-    if (GetClipboardText = "twenty") OR (GetClipboardText = "nineteen") OR (GetClipboardText = "eighteen") then  'one word or the other, because the system-font might differ from system to system...
-        printlog "Correct word found."
-    else
-        warnlog "wrong word found, formatting broken. Found word was: '" + GetClipboardText + "'."
-    end if
-    sleep (1)
-
-    printlog "Tools-Options-OOo Writer-Compatibility"
-    ToolsOptions
-    Kontext "ExtrasOptionenDLG"
-
-    printlog "Uncheck the entry 'Expand word space [...]'"
-    Call hToolsOptions("WRITER","COMPATIBILITY")
-    Kontext "TabCompatibility"
-    iOptionsCount = Options.GetItemCount
-    Options.Select iOptionsCount
-    if Options.isChecked then
-        printlog "Unchecking expand word space... settings now."
-        Options.Uncheck 'unchecking
-    else
-        warnlog "Warning: Expand word space on lines...is not checked anymore!"
-    end if
-    Kontext "ExtrasOptionenDLG"
-
-    printlog " Close dialog with OK"
-    ExtrasOptionenDLG.OK
-
-    printlog " Verify that the remainig words are aligned left"
-    Kontext "DocumentWriter"
-    DocumentWriter.TypeKeys "<UP>" 'one up
-    sleep (1)
-    DocumentWriter.TypeKeys "<MOD1 LEFT>" 'one word left to the same starting position as before
-    sleep (1)
-    DocumentWriter.TypeKeys "<DOWN>" ' one line down
-    sleep (1)
-    DocumentWriter.TypeKeys "<MOD1 LEFT>" 'one word left
-    sleep (1)
-    DocumentWriter.TypeKeys "<MOD1 SHIFT RIGHT>" ' selecting the complete word
-    sleep (1)
-    DocumentWriter.TypeKeys "<SHIFT LEFT>" 'deleting space
-    EditCopy
-    if (GetClipboardText = "fifteen") OR (GetClipboardText = "fourteen") then
-        printlog "Correct word found, alignment ok"
-    else
-        warnlog "Wrong word found, formatting broken"
-    end if
-    sleep (1)
-
-    printlog " Save document"
-    sDocument = ConvertPath ( gOfficePath + "user\work\test1.odt")
-    'deleting old Docs in the directory
-    if Dir (sDocument) <> "" then kill sDocument 'deleting old docs
-    Call hFileSaveAsKill (sDocument)
-    printlog "Document saved"
-
-    printlog "close Document"
-    Call hCloseDocument
-    printlog "Document Closed"
-
-    printlog "New document"
-    Call hNewDocument
-    printlog "New Doc opened"
-
-    printlog "Tools-Options-OOo Writer-Compatibility"
-    ToolsOptions
-    Kontext "ExtrasOptionenDLG"
-    Call hToolsOptions("WRITER","COMPATIBILITY")
-    Kontext "TabCompatibility"
-
-    printlog "Verify that the entry 'Expand word space [...]' is checked"
-    iOptionsCount = Options.GetItemCount
-    Options.Select iOptionsCount
-    if Options.isChecked then
-        printlog "Expand word space on lines... is checked"
-    else
-        warnlog "Warning: Expand word space on lines...is not checked as default!"
-    end if
-
-    printlog "Close dialog with 'Cancel'"
-    Kontext "ExtrasOptionenDLG"
-    ExtrasOptionenDLG.Cancel
-
-    printlog "Reload recently saved document"
-    hFileOpen( sDocument)
-
-    printlog "Tools-Options-OOo Writer-Compatibility"
-    ToolsOptions
-    Kontext "ExtrasOptionenDLG"
-    Call hToolsOptions("WRITER","COMPATIBILITY")
-    Kontext "TabCompatibility"
-
-    printlog "Verify that the entry 'Expand word space [...]' is unchecked"
-    iOptionsCount = Options.GetItemCount
-    Options.Select iOptionsCount
-    if Options.isChecked then
-        warnlog "Warning: should not be checked in saved file!"
-    else
-        printlog "Ok, Expand word space on lines... in saved file is checked."
-    end if
-    sleep (1)
-
-    printlog "Click 'Default'"
-    Default.Click
-
-    printlog "In upcoming dialog 'Do you want to change the default template', click 'Yes'"
-    sleep (1)
-    Kontext "Active"
-    if Active.Exists then
-        Active.Yes
-        printlog "Changing to defaults"
-    else
-        warnlog "Warning: Messagebox is not up!"
-    end if
-    sleep (1)
-    Kontext "ExtrasOptionenDLG"
-    ExtrasOptionenDLG.OK
-
-    printlog " Close document"
-    Kontext "DocumentWriter"
-    Call hCloseDocument
-
-    printlog " New Writer document"
-    Call hNewDocument
-
-    printlog " Insert a paragraph with several lines of text"
-    DocumentWriter.typekeys ("one two three four five six seven eight nine ten eleven twelve thirteen fourteen fifteen sixteen seventeen eighteen nineteen twenty twentyone twentytwo twentythree twentyfour twentyfive twentysix")
-    printlog "Inserting text"
-    Kontext "DocumentWriter"
-    DocumentWriter.UseMenu 'use menu to select all
-    Call hMenuSelectNr (2) 'edit
-    CALL hMenuFindSelect (".uno:SelectAll", true, 11, true)   'Find "Select All" and call the slot.
-
-    printlog " Format-Paragraph-Tab 'Alignment' Click the 'Justified' radio button" 
-    DocumentWriter.UseMenu 'use menu to call format/paragraph
-    Call hMenuSelectNr (5) 'Format
-    Call hMenuSelectNr (3) 'Paragraph
-    sleep (1)
-    Kontext
-    Active.SetPage TabAusrichtungAbsatz 'changing to correct tabpage
-    sleep (1)
-    Kontext "TabAusrichtungAbsatz"
-    Blocksatz.Check 'checking option for justified
-
-    printlog " Close dialog with 'OK'"
-    TabAusrichtungAbsatz.OK
-
-    printlog " Now the paragraph adjustment is 'justified'"
-    Kontext "TextObjectbar"
-    if Blocksatz.GetState(2) = 1 then
-        printlog "Text is justified now" 'this is ok
-    else
-        warnlog "Warning: Text is not justified!" 'this should not happen
-    end if
-     Kontext "DocumentWriter"
-
-    printlog " Click into the middle of a line"
-    DocumentWriter.TypeKeys "<MOD1 HOME>" 'jumping to beginning of text
-    DocumentWriter.TypeKeys "<MOD1 RIGHT>",9,true '9 times to the right
-    sleep (1)
-
-    printlog " [via menu]: Insert-Manual Break, select 'Line break', OK"
-    DocumentWriter.UseMenu 'use menu to call insert/line break
-    Call hMenuSelectNr (4) 'Insert
-    Call hMenuSelectNr (1) 'Manual Break
-    Kontext "UmbruchEinfuegen"
-    Zeilenumbruch.Check
-    UmbruchEinfuegen.OK
-    printlog "Manual Linebreak inserted"
-    Kontext "DocumentWriter"
-
-    printlog " Tools-Options-OOo Writer-Compatibility"
-    ToolsOptions 'calling options
-    Kontext "ExtrasOptionenDLG"
-    Call hToolsOptions("WRITER","COMPATIBILITY")
-    Kontext "TabCompatibility"
-
-    printlog " Check the entry 'Expand word space [...]"
-    iOptionsCount = Options.GetItemCount
-    Options.Select iOptionsCount
-    if Options.isChecked then
-        printlog "Expand word space.. is checked "
-    else
-        printlog "Expand word space.. is not checked."
-        Options.Check
-    end if
-
-    printlog " Click 'Default'"
-    Default.Click
-
-    printlog "  In upcoming dialog 'Do you want to change the default template', click 'Yes'"
-    sleep (1)
-    Kontext "Active"
-    if Active.Exists then
-        Active.Yes 'Closing dialog clicking yes
-        printlog "Changing to defaults"
-    else
-        warnlog "Warning: Messagebox is not up!"
-    end if
-    sleep (1)
-    Kontext "ExtrasOptionenDLG"
-    ExtrasOptionenDLG.OK 'Closing the options
-
-    printlog " Close document"
-    Call hCloseDocument
-
-    printlog " New Writer document"
-    Call hNewDocument
-
-    printlog " Tools-Options-OOo Writer-Compatibility"
-    ToolsOptions 'calling options 
-    Kontext "ExtrasOptionenDLG"
-    Call hToolsOptions("WRITER","COMPATIBILITY")
-    Kontext "TabCompatibility"
-
-    printlog " Verify that the entry 'Expand word space [...]' is checked"
-    iOptionsCount = Options.GetItemCount
-    Options.Select iOptionsCount
-    if Options.isChecked then
-        printlog "Expand word space on lines... is checked" ' ok
-    else
-        warnlog "Warning: Expand word space on lines...is not checked as default!" 'should not happen!
-    end if
-    Kontext "ExtrasOptionenDLG"
-    ExtrasOptionenDLG.Cancel 'leaving the options
-
-    printlog " Close document"
-    Do Until GetDocumentCount = 0
-        Call hCloseDocument
-    Loop
-endcase
-' -------------------------------------------------------
diff --git a/testautomation/writer/optional/includes/option/wr_o_4.inc b/testautomation/writer/optional/includes/option/wr_o_4.inc
deleted file mode 100644
index d5516718ee66..000000000000
--- a/testautomation/writer/optional/includes/option/wr_o_4.inc
+++ /dev/null
@@ -1,988 +0,0 @@
-'**************************************************************************
-' 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 : helge.delfs@oracle.com
-'*
-'* short description :
-'*
-'\***********************************************************************
-
-sub wr_o_4
-
-    Call tToolsOptionsWriterOther
-    Call tToolsOptionsWriterAutoCaption
-    Call tToolsOptionsWriterGeneral
-    Call tToolsOptionsWriterMailMerge
-
-end sub
-
-'------------------------------------------------------------------------------
-testcase tToolsOptionsWriterOther
-    dim irgendwas(7) as boolean    ' Checkbox states
-    dim bRadioBut(3) as boolean    ' RadioButton states
-    dim bTempRadioBut(3) as boolean
-    dim iMasseinheit as integer
-    dim sTabAbstand as string
-    dim sTemp as string
-    dim iTemp as integer
-    dim sTemp2 as string
-
-
-    ' irgendwas(i)
-    '-(1) = NurFuerAktuellesDokument
-
-    '(2) = Feldbefehle
-    '(3) = Diagramme
-    '-(4) = FelderUndDiagrammeAktuellesDokument
-
-    '(5) = Abstaende
-    '(6) = AbstaendeSeitenanfang
-    '(7) = TabulatorpositionAusrichten
-
-    ' bRadioBut(i) and bTempRadioBut(i)
-    '(1) = Immer
-    '(2) = AufNachfrage
-    '(3) = Nie
-
-    ' !!! -Feldbefehle- has to be checked, to get -Diagramme- enabeld !!!
-
-    '- !!! -Current Document only- ist bei office beenden zu beachten!!!
-
-    Call hNewDocument
-    printlog ("- Tools/Options/Writer: General ")
-
-    printlog (" - save states ")
-    ToolsOptions
-    Call hToolsOptions ("WRITER","GENERAL")
-
-    irgendwas(2) = Feldbefehle.IsChecked
-    irgendwas(3) = Diagramme.IsChecked
-
-    bRadioBut(1) = Immer.IsChecked
-    bRadioBut(2) = AufNachfrage.IsChecked
-    bRadioBut(3) = Nie.IsChecked
-
-    iMasseinheit = Masseinheit.GetSelIndex
-    sTabAbstand = Tabulatorenabstand.GetText
-
-    printlog ("- all states inverting ")
-
-    if irgendwas(2) Then Feldbefehle.UnCheck Else Feldbefehle.Check
-    if Feldbefehle.IsChecked  Then if irgendwas(3) Then Diagramme.UnCheck Else Diagramme.Check
-
-    if (Immer.IsChecked = True) Then AufNachfrage.Check Else Immer.Check
-
-    bTempRadioBut(1) = Immer.IsChecked
-    bTempRadioBut(2) = AufNachfrage.IsChecked
-    bTempRadioBut(3) = Nie.IsChecked
-
-    Tabulatorenabstand.ToMax
-    sTemp = Tabulatorenabstand.GetText
-    Tabulatorenabstand.More
-
-    if (LiberalMeasurement (sTemp,Tabulatorenabstand.GetText) <> TRUE) Then Warnlog ("BugID: 82740: Tab stops max. isn't max.")
-    Tabulatorenabstand.SetText (sTabAbstand)
-
-    if ( Masseinheit.GetItemCount <> iMasseinheit ) Then Masseinheit.Select (Masseinheit.GetItemCount) _
-    Else Masseinheit.Select (1)
-    iTemp = Masseinheit.GetSelIndex
-
-    sTemp = Tabulatorenabstand.GetText
-    Tabulatorenabstand.ToMax
-    if ( Tabulatorenabstand.GetText = sTemp ) Then Tabulatorenabstand.ToMin
-    sTemp = Tabulatorenabstand.GetText
-
-    Kontext "ExtrasOptionenDlg"
-    ExtrasOptionenDlg.OK
-
-    printlog ("- SO quit - start ")
-
-    Call wOfficeRestart
-
-    printlog ("- checking states ")
-    ToolsOptions
-    Call hToolsOptions ( "WRITER" , "GENERAL" )
-
-    if ( irgendwas(2) = Feldbefehle.IsChecked                         ) Then WarnLog "Feldbefehle state changed"
-    if Feldbefehle.IsChecked Then if ( irgendwas(3) = Diagramme.IsChecked ) Then WarnLog "Diagramme state changed"
-    if ( bTempRadioBut(1) <> Immer.IsChecked       ) Then WarnLog "Immer state changed"
-    if ( bTempRadioBut(2) <> AufNachfrage.IsChecked) Then WarnLog "AufNachfrage state changed"
-    if ( bTempRadioBut(3) <> Nie.IsChecked         ) Then WarnLog "Nie state changed"
-
-    if ( Masseinheit.GetSelIndex <> iTemp ) Then WarnLog "Masseinheit state changed"
-    if (LiberalMeasurement (sTemp,Tabulatorenabstand.GetText) <> TRUE ) Then WarnLog "Tabulatorenabstand state changed - watch BugID: 82744 for Status"
-
-    Kontext "ExtrasOptionenDlg"
-    ExtrasOptionenDlg.OK
-
-    printlog ("- all UnCheck -> o ")
-    ToolsOptions
-    Call hToolsOptions ( "WRITER" , "GENERAL" )
-
-    Feldbefehle.UnCheck
-
-    if (AufNachfrage.IsChecked = True) Then Nie.Check Else AufNachfrage.Check
-
-    bTempRadioBut(1) = Immer.IsChecked
-    bTempRadioBut(2) = AufNachfrage.IsChecked
-    bTempRadioBut(3) = Nie.IsChecked
-
-    Masseinheit.Select (1)
-    Tabulatorenabstand.ToMin
-    sTemp = Tabulatorenabstand.GetText
-    printlog ("More test ///'")
-    Tabulatorenabstand.More
-    if ( sTemp = Tabulatorenabstand.GetText ) Then WarnLog "Tabulatorenabstand More-Button not working; stemp1: "+sTemp + " =? (2) " +Tabulatorenabstand.GetText
-    sTemp = Tabulatorenabstand.GetText
-
-    Kontext "ExtrasOptionenDlg"
-    ExtrasOptionenDlg.OK
-
-    printlog ("- check if all UnChecked ")
-    ToolsOptions
-    Call hToolsOptions ( "WRITER" , "GENERAL" )
-
-    if Feldbefehle.IsChecked                         Then WarnLog "Feldbefehle x"
-
-    if ( bTempRadioBut(1) <> Immer.IsChecked       ) Then WarnLog "Immer state changed"
-    if ( bTempRadioBut(2) <> AufNachfrage.IsChecked) Then WarnLog "AufNachfrage state changed"
-    if ( bTempRadioBut(3) <> Nie.IsChecked         ) Then WarnLog "Nie state changed"
-
-    if ( Masseinheit.GetSelIndex <> 1 ) Then WarnLog "Masseinheit is not item 1"
-    sTemp2 = Tabulatorenabstand.GetText
-    if (LiberalMeasurement (sTemp, sTemp2) <> TRUE ) Then WarnLog "Tabulatorenabstand is not min. is: " +Tabulatorenabstand.GetText + " should: " +sTemp
-
-    Kontext "ExtrasOptionenDlg"
-    ExtrasOptionenDlg.OK
-
-'---------------------------------------------------------------------------------
-
-    printlog ("- check if tab stops get saved in document ")
-    Call hNewDocument
-
-    ' set Default Tab Stop to 2,5cm
-    ToolsOptions
-    Call hToolsOptions ("WRITER","GENERAL")
-    Masseinheit.Select (2) ' cm
-'   printlog "before " + Tabulatorenabstand.GetText
-    Tabulatorenabstand.SetText ("2" + GetDecimalSeperator(Tabulatorenabstand.GetText) + "50" + mUnit)
-'   printlog "after " + Tabulatorenabstand.GetText
-'   printlog "seperator: " + GetDecimalSeperator(Tabulatorenabstand.GetText)
-'   printlog "generated string: " + "2" + GetDecimalSeperator(Tabulatorenabstand.GetText) + "50cm"
-    Kontext "ExtrasOptionenDlg"
-    ExtrasOptionenDlg.OK
-
-'   creating document with tabstops and save it
-    Kontext "DocumentWriter"
-    DocumentWriter.TypeKeys "a<Tab>b<Tab>c<Tab>d<Tab>e<Tab>f<Tab>g<Tab>h<Tab>i<Tab>j"
-    Call hFileSaveAsWithFilterKill ( gOfficePath + "user\work\tab25cm.odt", "Writer8")
-    Call hCloseDocument
-    sleep (2)
-
-'   change tab stops
-    Call hNewDocument
-'   set Default Tab Stop to 2,9cm
-    ToolsOptions
-    Call hToolsOptions ("WRITER","GENERAL")
-    Masseinheit.Select (2) ' cm
-'   printlog "before " + Tabulatorenabstand.GetText
-    Tabulatorenabstand.SetText ( "2" + GetDecimalSeperator(Tabulatorenabstand.GetText) + "90" + mUnit )
-'   printlog "after " + Tabulatorenabstand.GetText
-    Kontext "ExtrasOptionenDlg"
-    ExtrasOptionenDlg.OK
-    sleep (2)
-
-'   load file in this environment
-    '///use "output\\writer\\w95\\tab25cm.odt" ///
-    hFileOpen( gOfficePath & "user\work\tab25cm.odt")
-    sleep (2)
-'   check TabStops, have to be the ones this file was saved with
-    ToolsOptions
-    Call hToolsOptions ("WRITER","GENERAL")
-    Masseinheit.Select (2) ' cm
-'   printlog "before " + Tabulatorenabstand.GetText
-    if Tabulatorenabstand.GetText <> ("2" + GetDecimalSeperator(Tabulatorenabstand.GetText) + "50" + mUnit) Then
-        warnlog "the tab stops didn't get saved in the document !!!"
-        printlog "should be 2,.50" + mUnit + ", is" + Tabulatorenabstand.GetText
-    end if
-    Kontext "ExtrasOptionenDlg"
-    ExtrasOptionenDlg.OK
-    Call hCloseDocument
-    Call hCloseDocument
-
-'---------------------------------------------------------------------------------
-    Printlog ("- all Check -> x ")
-
-    ToolsOptions
-    Call hToolsOptions ("WRITER","GENERAL")
-
-'   NurFuerAktuellesDokument.Check
-    Feldbefehle.Check
-    Diagramme.Check
-'   FelderUndDiagrammeAktuellesDokument.Check
-
-    if (Nie.IsChecked = True) Then Immer.Check Else Nie.Check
-
-    bTempRadioBut(1) = Immer.IsChecked
-    bTempRadioBut(2) = AufNachfrage.IsChecked
-    bTempRadioBut(3) = Nie.IsChecked
-
-    Masseinheit.Select (2)
-    itemp = Masseinheit.GetSelIndex
-    sTemp = "3" + GetDecimalSeperator(Tabulatorenabstand.GetText) + "21" + mUnit
-    Tabulatorenabstand.SetText (sTemp)
-
-    Kontext "ExtrasOptionenDlg"
-    ExtrasOptionenDlg.OK
-
-    printlog ("- check if all Checked ")
-    ToolsOptions
-    Call hToolsOptions ( "WRITER" , "GENERAL" )
-
-'   if not NurFuerAktuellesDokument.IsChecked            Then WarnLog "NurFuerAktuellesDokument o"
-    if not Feldbefehle.IsChecked                         Then WarnLog "Feldbefehle o"
-    if not Diagramme.IsChecked                           Then WarnLog "Diagramme o"
-'   if not FelderUndDiagrammeAktuellesDokument.IsChecked Then WarnLog "FelderUndDiagrammeAktuellesDokument o"
-
-    if ( bTempRadioBut(1) <> Immer.IsChecked       ) Then WarnLog "Immer state changed"
-    if ( bTempRadioBut(2) <> AufNachfrage.IsChecked) Then WarnLog "AufNachfrage state changed"
-    if ( bTempRadioBut(3) <> Nie.IsChecked         ) Then WarnLog "Nie state changed"
-
-    if ( Masseinheit.GetSelIndex <> iTemp ) Then WarnLog "Masseinheit is not item " + iTemp + " it's: " + Masseinheit.GetSelIndex
-    if (LiberalMeasurement (sTemp,Tabulatorenabstand.GetText) <> TRUE ) Then WarnLog "Tabulatorenabstand is not " + sTemp + " it's: " + Tabulatorenabstand.GetText
-
-    printlog ("- restore states ")
-
-'   if ( irgendwas(1) =  TRUE ) Then NurFuerAktuellesDokument.Check            Else NurFuerAktuellesDokument.UnCheck
-    if ( irgendwas(2) =  TRUE ) Then Feldbefehle.Check                         Else Feldbefehle.UnCheck
-    if ( irgendwas(3) =  TRUE ) Then Diagramme.Check                           Else _
-    if Feldbefehle.IsChecked Then Diagramme.UnCheck
-'   if Diagramme.IsVisible Then Diagramme.UnCheck
-'   if ( irgendwas(4) =  TRUE ) Then FelderUndDiagrammeAktuellesDokument.Check Else FelderUndDiagrammeAktuellesDokument.UnCheck
-
-    if ( bRadioBut(1) = TRUE ) Then Immer.Check
-    if ( bRadioBut(2) = TRUE ) Then AufNachfrage.Check
-    if ( bRadioBut(3) = TRUE ) Then Nie.Check
-
-    Masseinheit.Select (iMasseinheit) 'sw:ListBox:TP_LAYOUT_O
-    Tabulatorenabstand.SetText (sTabAbstand) '     sw:MetricField:TP_LAYOUT_OPT:MF_TAB
-
-    Kontext "ExtrasOptionenDlg"
-    ExtrasOptionenDlg.OK
-
-    hFileCloseAll()
-    
-endcase
-
-'------------------------------------------------------------------------------
-sub hGetAllOptionsWriterGeneralCaption
-    Dim fHoleTabPage as String
-    Dim fHoleTabPage2 as String
-    Dim lsHoleTabPage(100) as String
-    Dim lsHoleTabPage2(100) as String
-    dim i as integer
-    dim x as integer
-    dim y as integer ' for schleifen stuff
-
-    '/// usually there are 4 entries in the list for Options->Writer->General->Caption->Categorie ///'
-    '///+ if not, this routine is called ///'
-    '///+ The error only appears, if the wrong listItem is not called yet! ///'
-
-    lsHoleTabPage(0)=0
-    lsHoleTabPage2(0)=0
-
-    '/// on error, save before selecting entries to "output\\writer\\opt__" + iSprache + "." + gPlatGroup) ///
-    '/// on error, save entries after selecting all to "output\\writer\\opt2__" + iSprache + "." + gPlatGroup) ///
-    fHoleTabPage = ConvertPath(gOfficePath + "user\work\opt__" + iSprache + "." + gPlatGroup)
-    fHoleTabPage2 = ConvertPath(gOfficePath + "user\work\opt2_" + iSprache + "." + gPlatGroup)
-
-    '------------------------
-    Printlog "(1/3) Get all items before selecting smth. "
-    ' put them in lsHoleTabPage and write them to 'user\work\opt__...'
-
-    Call hNewDocument
-
-    ToolsOptions
-    Call hToolsOptions ("WRITER","AutoCaption")
-    Kontext "TabAutoCaption"
-
-    for x=1 to ObjectList.GetItemCount
-'       Printlog x
-        ObjectList.Select (x)
-        ListAppend ( lsHoleTabPage(), ObjectList.GetText + " " + Category.GetItemCount)
-        for y=1 to Category.GetItemCount
-            Category.Select (y)
-            sleep (1)
-            ListAppend ( lsHoleTabPage(), "   " + Category.GetSelText )
-        next y
-    next x
-
-    Kontext "ExtrasOptionenDlg"
-    ExtrasOptionenDlg.OK
-
-    Call ListWrite(lsHoleTabPage(),fHoleTabPage, "utf8")
-    Printlog "list with all entries written to: "+fHoleTabPage
-
-'   ------------------------
-
-    Printlog "(2/3) Select every ListItem & exit with OK "
-    ToolsOptions
-    Call hToolsOptions ("WRITER","AutoCaption")
-    Kontext "TabAutoCaption"
-
-    for x=1 to ObjectList.GetItemCount
-'       Printlog "-" + x
-        ObjectList.Select (x)
-        i=0
-        while ( i < Category.GetItemCount )
-            try
-                Category.Select (i+1)
-            catch
-                Category.Select (i)
-            endcatch
-            i = Category.GetSelIndex
-'           Printlog i
-            sleep (2)
-            Kontext "TabAutoCaption"
-        Wend
-    next x
-
-    Kontext "ExtrasOptionenDlg"
-    ExtrasOptionenDlg.OK
-
-    '------------------------
-    Printlog "(3/3) Get all items after selecting all "
-    ' put them in lsHoleTabPage2 and write them to 'user\work\opt2_...'
-
-    ToolsOptions
-    Call hToolsOptions ("WRITER","AutoCaption")
-    Kontext "TabAutoCaption"
-    for x=1 to ObjectList.GetItemCount
-'       Printlog x
-        ObjectList.Select (x)
-        ListAppend ( lsHoleTabPage2(), ObjectList.GetText + " " + Category.GetItemCount)
-        for y=1 to Category.GetItemCount
-            Category.Select (y)
-            sleep (1)
-            ListAppend ( lsHoleTabPage2(), "   " + Category.GetSelText )
-        next y
-    next x
-
-    Call ListWrite(lsHoleTabPage2(),fHoleTabPage2, "utf8")
-    Printlog "list with all entries after selecting every entry written to: "+fHoleTabPage2
-
-end sub
-
-'------------------------------------------------------------------------------
-
-testcase tToolsOptionsWriterAutoCaption
-
-    '/// look if properties get saved for each list item ///
-    '///+ take "Numbering" ListBox to verify this ///
-
-    ' checking Listentry '(7) = StarOffice 6.0 Impress' completely
-
-    dim vObjectList(10) as integer
-    dim vObjectListDescription(10) as string
-    Dim vCategory(10) as integer
-    Dim vCategoryTmp(10) as string
-    Dim vNumbering(10) as integer
-    Dim vCaptionSeparator(10) as string
-    Dim vPosition(10) as integer
-    Dim vLevel(10) as integer
-    Dim vChapterSeparator(10) as string
-    Dim vCharacterStyle(10) as integer
-    Dim vApplyBorderAndShadow(10) as boolean 
-    Dim NumberOfObjects as integer
-    dim i as integer
-    dim y as integer ' for schleifen stuff
-
-    '/// !no more Listentries than 9, you have to update the allocation for the var's! ///'
-    Call hNewDocument
-    printlog "- Tools/Options/Writer: AutoCaption "
-
-    printlog ("- save states ")
-    ToolsOptions
-    Call hToolsOptions ("WRITER","AutoCaption")
-    Kontext "TabAutoCaption"
-
-    NumberOfObjects = ObjectList.GetItemCount
-    Select Case gPlatGroup
-        Case "w95"
-            if (NumberOfObjects <> 9) then
-                warnlog "Number of Object List is not correct"
-            end if
-        Case else
-            if (NumberOfObjects <> 8) then
-                warnlog "Number of Object List is not correct"
-            end if
-    end select
-
-    for i=1 to NumberOfObjects
-        ObjectList.Select (i)
-        vObjectList(i) = ObjectList.IsChecked
-        vObjectListDescription(i) = ObjectList.GetText
-        vCategory(i) = Category.GetSelIndex
-        vNumbering(i) = Numbering.GetSelIndex
-        vCaptionSeparator(i) = CaptionSeparator.GetText
-        vPosition(i) = Position.GetSelIndex
-        vLevel(i) = Level.GetSelIndex
-        vChapterSeparator(i) = ChapterSeparator.GetText
-        vCharacterStyle(i) = CharacterStyle.GetSelIndex
-        vApplyBorderAndShadow(i) = ApplyBorderAndShadow.IsChecked
-    next i
-
-    '-- just checking the checkboxes of 'ObjectList'
-    printlog ("- uncheck all object - checkboxes ")
-    for i=1 to NumberOfObjects
-        ObjectList.Select (i)
-        ObjectList.UnCheck
-    next i
-    Kontext "ExtrasOptionenDlg"
-    ExtrasOptionenDlg.OK
-    
-    printlog ("- verify if all unchecked and check all ")
-    ToolsOptions
-    Call hToolsOptions ("WRITER","AutoCaption")
-    Kontext "TabAutoCaption"
-    for i=1 to NumberOfObjects
-        ObjectList.Select (i)
-        if ObjectList.IsChecked Then
-            WarnLog ObjectList.GetText & " is checked though it had been unchecked before"
-        else
-            ObjectList.Check
-        end if
-    next i
-    Kontext "ExtrasOptionenDlg"
-    ExtrasOptionenDlg.OK
-
-    printlog ("- verify all checkboxes are checked ")
-    ToolsOptions
-    Call hToolsOptions ("WRITER","AutoCaption")
-    Kontext "TabAutoCaption"
-    for i=1 to NumberOfObjects
-        ObjectList.Select (i)
-        if ( ObjectList.IsChecked = FALSE ) Then
-            WarnLog ObjectList.GetText & " is unchecked though it had been checked before"
-            ObjectList.Check
-        end if
-    next i
-
-    printlog ("- change states ")
-    '/// look if properties get saved for each list item
-    for i=1 to NumberOfObjects
-        ObjectList.Select (i)
-        printlog " - " & ObjectList.GetText
-        if ObjectList.IsChecked Then
-            if i <= 7 then Numbering.Select i
-            CaptionSeparator.Settext "Caption Separator " & cstr(i)
-            ChapterSeparator.Settext cstr(i)
-            Level.Select i
-            CharacterStyle.Select i
-            Select Case i
-                case 1:
-                    Category.Select 2 
-                    Position.Select 1
-                case 2:
-                    Category.Select 3
-                    Position.Select 2
-                case 3:
-                    Category.Select 4
-                    ApplyBorderAndShadow.Check
-                case 4:
-                    Category.Select 5
-                case 5:
-                    Category.Select 2
-                case 6:
-                    Category.Select 3
-                case 7:
-                    Category.Select 4
-                case 8:
-                    Category.Select 5
-                    if Numbering.GetItemCount > 7 then
-                        Numbering.Select Numbering.GetItemCount
-                    else
-                        Numbering.Select 4
-                    end if
-                case 9:
-                    Category.Select 2
-                    if Numbering.GetItemCount > 7 then
-                        Numbering.Select Numbering.GetItemCount
-                    else
-                        Numbering.Select 5
-                    end if
-
-                end select
-                vCategoryTmp(i) = Category.GetSelText
-        else
-            Warnlog ObjectList.GetText & " is not checked: Verify test script"
-        end if
-    next i
-    Kontext "ExtrasOptionenDlg"
-    ExtrasOptionenDlg.OK
-
-    printlog ("- SO quit - start")
-
-    Call wOfficeRestart
-
-    printlog ("- checking states ")
-    ToolsOptions
-    Call hToolsOptions ("WRITER","AutoCaption")
-    Kontext "TabAutoCaption"
-    for i=1 to NumberOfObjects
-        ObjectList.Select (i)
-        printlog " - " & ObjectList.GetText
-		wait 500
-        if ObjectList.IsChecked Then
-            if i <= 7 then
-                if Numbering.GetSelIndex <> i then
-                    Warnlog "-    'Numbering' changed after restart"
-                else
-                    printlog "-   'Numbering' => ok"
-                end if
-            end if
-            if CaptionSeparator.Gettext <> "Caption Separator " & cstr(i) then
-                Warnlog "-    'Caption Separator' changed after restart"
-            else
-                printlog "-    'Caption Separator' => ok"
-            end if
-            if ChapterSeparator.Gettext <>  cstr(i) then
-                Warnlog "-    'Chapter Separator' changed after restart"
-            else
-                printlog "-    'Chapter Separator' => ok"
-            end if
-            if Level.GetSelIndex <> i then 
-                Warnlog "-    'Level' changed after restart"
-            else
-                Printlog "-    'Level' => ok"
-            end if
-            if CharacterStyle.GetSelIndex <> i then
-                Warnlog "-    'Character Style' changed after restart"
-            else
-                printlog "-    'Character Style' => ok"
-            end if
-
-            if Category.GetSelText <> vCategoryTmp(i) then
-                Warnlog "-    'Category' changed after restart. Not " & vCategoryTmp(i) & " but " & Category.GetSelText
-            else
-                printlog "-    'Category' => ok"
-            end if
-
-            Select Case i
-                case 1:
-                    if Position.GetSelIndex <> 1 then
-                        Warnlog "-    'Position' changed after restart"
-                    else
-                        printlog "-    'Position' => ok"
-                    end if
-
-                case 2:
-                    if Position.GetSelIndex <> 2 then
-                        Warnlog "-    'Position' changed after restart"
-                    else
-                        printlog "-    'Position' => ok"
-                    end if
-
-                case 3:
-                    if Position.IsEnabled = true then
-                        Warnlog "-    'Position' should be disabled"
-                    else
-                        printlog "-    'Position' disabled => ok"
-                    end if
-                    
-                    if ApplyBorderAndShadow.IsChecked = false then
-                        Warnlog "-    'Apply Border and Shadow' changed after restart"
-                    else
-                        printlog "-    'Apply Border and Shadow => ok"
-                    end if
-
-                case 4:
-                    if Position.IsEnabled = true then
-                        Warnlog "-    'Position' should be disabled"
-                    else
-                        printlog "-    'Position' disabled => ok"
-                    end if
-
-                case 5:
-                    if Position.IsEnabled = true then
-                        Warnlog "-    'Position' should be disabled"
-                    else
-                        printlog "-    'Position' disabled => ok"
-                    end if
-
-                case 6:
-                    if Position.IsEnabled = true then
-                        Warnlog "-    'Position' should be disabled"
-                    else
-                        printlog "-    'Position' disabled => ok"
-                    end if
-
-                case 7:
-                    if Position.IsEnabled = true then
-                        Warnlog "-    'Position' should be disabled"
-                    else
-                        printlog "-    'Position' disabled => ok"
-                    end if
-
-                case 8:
-                    if Numbering.GetItemCount > 7 then
-                        if Numbering.GetSelIndex <> Numbering.GetItemCount then
-                            Warnlog "-    'Numbering' changed after restart"
-                        else
-                            printlog "-    'Numbering' => ok"
-                        end if
-                    else
-                        if Numbering.GetSelIndex <> 4 then
-                            Warnlog "-    'Numbering' changed after restart"
-                        else
-                            printlog "-    'Numbering' => ok"
-                        end if
-                    end if
-
-                    if Position.IsEnabled = true then
-                        Warnlog "-    'Position' should be disabled"
-                    else
-                        printlog "-    'Position' disabled => ok"
-                    end if
-
-                case 9:
-                    if Numbering.GetItemCount > 7 then
-                        if Numbering.GetSelIndex <> Numbering.GetItemCount then
-                            Warnlog "-    Numbering changed after restart"
-                        else
-                            printlog "-    Numbering => ok"
-                        end if
-                    else
-                        if Numbering.GetSelIndex <> 5 then
-                            Warnlog "-    'Numbering changed after restart"
-                        else
-                            printlog "-    'Numbering' => ok"
-                        end if
-                    end if
-
-                    if Position.IsEnabled = true then
-                        Warnlog "-    'Position' should be disabled"
-                    else
-                        printlog "-    'Position' disabled => ok"
-                    end if
-
-            end select
-        else
-            Warnlog "-   " & ObjectList.GetText & " is not checked"
-        end if
-    next i
-
-    Kontext "ExtrasOptionenDlg"
-    ExtrasOptionenDlg.OK
-
-    printlog ("- restore states ")
-
-    ToolsOptions
-    Call hToolsOptions ("WRITER","AutoCaption")
-    Kontext "TabAutoCaption"
-
-    for i=1 to NumberOfObjects
-        ObjectList.Select (i)
-        if ObjectList.IsChecked then
-            if vCategory(i) > Category.GetItemCount then
-                Category.Select Category.GetItemCount
-            else
-                Category.Select vCategory(i)
-            end if
-            Numbering.Select vNumbering(i)
-            CaptionSeparator.SetText vCaptionSeparator(i)
-            if Position.IsEnabled then Position.Select vPosition(i)
-            Level.Select vLevel(i)
-            ChapterSeparator.Settext vChapterSeparator(i)
-            CharacterStyle.Select vCharacterStyle(i)
-            if ApplyBorderAndShadow.IsEnabled then
-                Select Case vApplyBorderAndShadow(i)
-                    Case true
-                        ApplyBorderAndShadow.Check
-                    case false
-                        ApplyBorderAndShadow.Uncheck
-                end select
-            end if
-        end if
-        Select case vObjectList(i)
-            Case true
-                ObjectList.Check
-            case false
-                ObjectList.Uncheck
-        end select
-    next i
-
-
-    Kontext "ExtrasOptionenDlg"
-    ExtrasOptionenDlg.OK
-
-    hFileCloseAll()
-    
-endcase
-
-'------------------------------------------------------------------------------
-
-testcase tToolsOptionsWriterGeneral
-    Dim i as integer
-    Dim ist_aktualisiert as boolean
-    Dim CompareThis as string
-
-    ' State is saved with document. Thats why I use 3 docs
-    Call hNewDocument
-    printlog "- Extras / Optionen / Sonstiges / Verkn?pfungen aktualisieren "
-    ToolsOptions
-    Call hToolsOptions("WRITER","GENERAL")
-    printlog "- Update links when loading -> always "
-    Immer.Check
-    Kontext "ExtrasOptionenDlg"
-    ExtrasOptionenDlg.OK
-    FileOpen
-    Kontext "OeffnenDlg"
-    Dateiname.SetText ConvertPath(gtesttoolpath + "writer\optional\input\masterdoc\update1.sxg")
-    Oeffnen.Click
-    Kontext "Active"
-    if active.exists then
-        if Active.GetRT = 304 then
-            Warnlog Active.Gettext
-            Warnlog "Update all links should not appear!"
-            wait 500
-            try
-                Active.yes
-            catch
-                Active.Ok
-            endcatch
-        end if
-    end if
-    Sleep 2
-    Call hCloseDocument
-    Sleep 2
-
-    ToolsOptions
-    Call hToolsOptions("WRITER","GENERAL")
-    if not Immer.IsChecked then Warnlog "Option 'always' has not been changed"
-    printlog "- Update links when loading -> On request "
-    AufNachfrage.Check
-    Kontext "ExtrasOptionenDlg"
-    ExtrasOptionenDlg.OK
-    FileOpen
-    Kontext "OeffnenDlg"
-    Dateiname.SetText ConvertPath(gtesttoolpath + "writer\optional\input\masterdoc\update2.sxg")
-    Oeffnen.Click
-    Sleep 2
-    Kontext "Active"
-    if active.exists then
-        if Active.GetRT = 304 then
-            Active.yes
-        else
-            Warnlog "Update all links should appear!"
-        end if
-    end if
-    Sleep 2
-    Call hCloseDocument
-    Sleep 2
-
-    ToolsOptions
-    Call hToolsOptions("WRITER","GENERAL")
-    if not AufNachfrage.IsChecked then Warnlog "Option 'On request' has been changed"
-    printlog "- Update links when loading -> Never "
-    Nie.Check
-    Kontext "ExtrasOptionenDlg"
-    ExtrasOptionenDlg.OK
-    FileOpen
-    Kontext "OeffnenDlg"
-    Dateiname.SetText ConvertPath(gtesttoolpath + "writer\optional\input\masterdoc\update3.sxg")
-    Oeffnen.Click
-    Kontext "Active"
-    if active.exists then
-        if Active.GetRT = 304 then
-            Warnlog "Update all links should not appear!"
-            Active.yes
-         end if
-    end if
-    Sleep 3
-    Kontext "DocumentWriter"
-    DocumentWriter.TypeKeys "<Up>",10
-    DocumentWriter.TypeKeys "<Mod1 Home>", 4
-    for i=1 to 4
-        DocumentWriter.TypeKeys "<Shift End>"
-        try
-            EditCopy
-            if i <> 4 and GetClipboardtext <> "Dies ist der Text" then ist_aktualisiert = true
-        catch
-            ist_aktualisiert=false
-        endcatch
-        DocumentWriter.TypeKeys "<Mod1 End>"
-        wait 500
-        DocumentWriter.TypeKeys "<Down><Home>"
-    next i
-    if ist_aktualisiert=true then Warnlog " Document has been updated !"
-    Sleep 2
-    Call hCloseDocument
-    Sleep 2
-
-    ToolsOptions
-    Call hToolsOptions("WRITER","GENERAL")
-    if Nie.IsChecked = false then Warnlog "Option 'Never' is not checked"
-    AufNachfrage.Check
-    Kontext "ExtrasOptionenDlg"
-    ExtrasOptionenDlg.OK
-
-    hFileCloseAll()
-    
-endcase
-
-'------------------------------------------------------------------------------
-
-testcase tToolsOptionsWriterMailMerge
-
-    Call hNewDocument
-    printlog ("- Tools/Options/Writer: Mail Merge ")
-    Kontext "Navigator"
-    if Navigator.Exists then ViewNavigator
-    ToolsOptions
-    Call hToolsOptions ("WRITER","MailMergeEMail")
-
-    '/// Fill out all fields
-    printlog " - fill out Mail Settings"
-    Kontext "TabMailMergeEmail"
-    YourName.Settext "Fredrik Haegg"
-    EmailAddress.Settext "helge.delfs@oracle.com"
-    SendReplies.Check
-    ReplyAddress.Settext "fredrikh@openoffice.org"
-    ServerName.Settext "MySMTP-Server"
-    UseSecure.Check
-    
-    '/// Change details for Server Authentication
-    printlog " - fill out Authentication Settings"
-    ServerAuthentication.Click
-    wait 500
-    Kontext "ServerAuthentication"
-    SMTPauthentication.Check
-    
-    IncomingMailServer.Check
-    Server.Settext "MySMTP-Server"
-    Port.Settext "111"
-    IMAP.Check
-    User.Settext "MyAuthenticationUserName"
-    Password.Settext "MyAuthenticationPassword"
-    ServerAuthentication.Ok
-    
-    '/// Close 'Server Authentication dialog, reopen and check values set
-    printlog " - check settings"
-    Kontext "TabMailMergeEmail"
-    ServerAuthentication.Click
-    wait 500
-    Kontext "ServerAuthentication"
-    if Not SMTPauthentication.IsChecked then Warnlog "SMTP Authentication is not checked anymore"
-    if Not IncomingMailServer.IsChecked then Warnlog "Incoming Mail Server has been changed"
-    if Server.Gettext <> "MySMTP-Server" then Warnlog "Servername has been changed"
-    if Port.Gettext <> "111" then Warnlog "Server Port has been changed"
-    if Not IMAP.IsChecked then Warnlog "IMAP-state has been changed"
-    if User.Gettext <> "MyAuthenticationUserName" then Warnlog "Authentication username has been changed"
-    if Password.Gettext <> "MyAuthenticationPassword" then Warnlog "Authentication password has been changed"
-    
-    '/// Change settings for SMTP outgoing
-    SMTPOutgoing.Check
-    OutgoingUsername.Settext "MyOutgoingUsername"
-    OutgoingPassword.Settext "MyOutgoingPassword"
-    ServerAuthentication.Ok
-    
-    '/// Close options dialog and restart the office
-    Kontext "ExtrasOptionenDlg"
-    ExtrasOptionenDlg.Ok
-    printlog " - restart office"
-    Call wOfficeRestart
-
-    '/// Reopen Tools/Options and check settings
-    printlog " - check settings"
-    ToolsOptions
-    Call hToolsOptions ("WRITER","MailMergeEMail")
-
-    Kontext "TabMailMergeEmail"
-    if YourName.Gettext <> "Fredrik Haegg" then Warnlog "'Your Name' has been changed after a restart"
-    if EmailAddress.Gettext <> "helge.delfs@oracle.com" then Warnlog "'Email Address' has been changed after a restart"
-    if Not SendReplies.IsChecked then Warnlog "'Send replies' has been changed after a restart"
-    if ReplyAddress.Gettext <> "fredrikh@openoffice.org" then Warnlog "'Reply adresses' has been changed after a restart"
-    if ServerName.Gettext <> "MySMTP-Server" then Warnlog "'Server name' has been changed after a restart"
-    if UseSecure.IsChecked = false then Warnlog "'Secure' has been changed after a restart"
-
-    ServerAuthentication.Click
-    wait 500
-    Kontext "ServerAuthentication"
-    if Not SMTPOutgoing.IsChecked then Warnlog "'SMTP Server' has been changed after a restart"
-    if OutgoingUsername.Gettext <> "MyOutgoingUsername" then Warnlog "'Username' has been changed after a restart"
-    if OutgoingPassword.Gettext <> "MyOutgoingPassword" then Warnlog "'Password' has been changed after a restart"
-    
-    ServerAuthentication.Ok
-
-    '/// Check 'Test Settings' button
-    Kontext "TabMailMergeEmail"
-    TestSettings.Click
-    
-    Kontext "TestAccountSettings"
-    Do
-        if TaskStatusListBox.GetItemCount > 0 then
-            TestAccountSettings.Cancel
-            exit do
-        end if
-        wait 500
-    Loop
-    if TestAccountSettings.Exists then TestAccountSettings.Cancel
-    
-    '/// Reset all states
-    Kontext "TabMailMergeEmail"
-    ServerAuthentication.Click
-    
-    Kontext "ServerAuthentication"
-    IncomingMailServer.Check
-    Server.Settext ""
-    Port.Settext "110"
-    User.Settext ""
-    Password.Settext ""
-
-    SMTPOutgoing.Check
-    OutgoingUsername.Settext ""
-    OutgoingPassword.Settext ""
-
-    SMTPauthentication.UnCheck
-    ServerAuthentication.Ok
-
-    Kontext "TabMailMergeEmail"
-    YourName.Settext ""
-    EmailAddress.Settext = ""
-    ReplyAddress.Settext ""
-    ServerName.Settext ""
-    SendReplies.UnCheck
-    UseSecure.Uncheck
-
-    '/// Close options dialog and restart the office
-    Kontext "ExtrasOptionenDlg"
-    ExtrasOptionenDlg.Ok
-
-    hFileCloseAll()
-    
-endcase
-'------------------------------------------------------------------------------
diff --git a/testautomation/writer/optional/includes/option/wr_o_5.inc b/testautomation/writer/optional/includes/option/wr_o_5.inc
deleted file mode 100644
index c8676fb164f2..000000000000
--- a/testautomation/writer/optional/includes/option/wr_o_5.inc
+++ /dev/null
@@ -1,200 +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 : helge.delfs@oracle.com
-'*
-'* short description : This testcase is for thai issues only
-'*
-'\***********************************************************************
-
-sub wr_o_5
-
-    Call tLanguageSettingsComplexTextLayout
-
-end sub
-
-testcase tLanguageSettingsComplexTextLayout
-
-    Dim i as integer
-    Dim j as integer
-    Dim iNumeralsCounter as integer
-    Dim iNumeralsCount as integer
-    Dim bAsianLanguage as boolean
-    Dim bCTLLanguage as boolean
-    Dim sCTLLan() as string
-    Dim sCurrentDocumentLanguage as string
-    Dim sCurrentCTLLanguage as string
-    Dim bSequenceChecking as boolean
-
-    '/// Open new writerdocument
-    Call hNewDocument
-    '/// Activate Asian support
-    bAsianLanguage = ActiveDeactivateAsianSupport(True)
-    '/// Activate CTL support 
-    bCTLLanguage = ActiveDeactivateCTLSupport(True)
-
-	ToolsOptions
-        '/// Goto 'Tools->Options->Language settings->Languages
-	Call hToolsOptions ("LanguageSettings","Languages")
-        sCurrentCTLLanguage = LanguageComplexScript.GetSelText
-	Kontext "TabSprachen"
-    For i = 1 to LanguageComplexScript.GetItemCount
-        '/// Select CTL-Language
-        LanguageComplexScript.Select i
-        sCurrentDocumentLanguage = LanguageComplexScript.GetSelText
-        printlog "- Current selected CTL Language: " & sCurrentDocumentLanguage
-        '/// close options dialog with 'ok'
-        Kontext "ExtrasOptionenDlg"
-        ExtrasOptionenDlg.Ok
-        '/// Reopen options and go to Tabpage 'Complex Text Layout'
-        ToolsOptions
-        Call hToolsOptions ("LanguageSettings","ComplexTextLayout")
-
-        Kontext "TabComplexTextLayout"
-            bSequenceChecking = FALSE
-            Select Case iSprache
-                '/// Checkboxes under 'Sequence checking' should all be checked for CTL languages
-                '/// + like "Thai", "Lao", "Khmer", "Vietnamese"
-                Case 01
-                    sCTLLan = Array("Thai", "Lao", "Khmer", "Burmese", "Vietnamese")
-                Case 49
-                    sCTLLan = Array("Thai", "Lao", "Khmer", "Birmanisch", "Vietnamesisch")
-                Case else
-                    QAErrorlog "Please adapt testcase for this language"
-                    Kontext "ExtrasOptionenDlg"
-                        ExtrasOptionenDlg.Ok
-                    goto IfNoSupport
-		end select
-
-        for j = 0 to 4
-            if sCTLLan(j) = sCurrentDocumentLanguage then
-                bSequenceChecking = TRUE
-                exit for
-            end if
-        next j
-
-        Select Case bSequenceChecking
-            Case TRUE
-                if UseSequenceChecking.IsChecked = False then
-                    Warnlog "'Sequence Checking' should be checked for language: " & sCurrentDocumentLanguage
-                end if
-                if Restricted.IsEnabled = False or Restricted.IsChecked = False then
-                    Warnlog "'Restricted' should be enabled and checked for language: " & sCurrentDocumentLanguage
-                end if
-                if TypeAndReplace.IsEnabled = False or TypeAndReplace.IsChecked = False then
-                    Warnlog "'Type And Replace' should be enabled and checked for language: " & sCurrentDocumentLanguage
-                end if
-
-            Case FALSE
-                if UseSequenceChecking.IsChecked = True then
-                    QAErrorlog "'Sequence Checking' should not be checked for language: " & sCurrentDocumentLanguage
-                end if
-                if Restricted.IsEnabled = True AND Restricted.IsChecked = True then
-                    QAErrorlog "'Restricted' should not be checked for language: " & sCurrentDocumentLanguage
-                end if
-                if TypeAndReplace.IsEnabled = True AND TypeAndReplace.IsChecked = True then
-                    QAErrorlog "'Type And Replace' should not checked for language: " & sCurrentDocumentLanguage
-                end if
-        end select
-
-        'Get the number of Numerals-entries.
-        iNumeralsCount = Numerals.GetItemCount
-
-        Kontext "ExtrasOptionenDlg"
-            ExtrasOptionenDlg.Ok
-        ToolsOptions
-        Call hToolsOptions ("LanguageSettings","Languages")
-        Kontext "TabSprachen"
-    next i
-
-    Kontext "ExtrasOptionenDlg"
-        if ExtrasOptionenDlg.Exists then ExtrasOptionenDlg.Ok
-
-    printlog "Check the Numerals-menu."
-    ToolsOptions
-    Call hToolsOptions ("LanguageSettings","ComplexTextLayout")
-
-    Printlog " Select every entry in the list, then press OK to close the dialogue, then open it again and check if the value got saved."
-    for iNumeralsCounter = 1 to iNumeralsCount
-        Numerals.Select iNumeralsCounter
-        Printlog " Numerals nr: " + iNumeralsCounter + " = " + Numerals.GetSelText
-
-        'Press ok, and open the dialogue again.
-        Kontext "ExtrasOptionenDlg"
-	    if ExtrasOptionenDlg.Exists then ExtrasOptionenDlg.Ok
-        ToolsOptions
-        Call hToolsOptions ("LanguageSettings","ComplexTextLayout")
-
-        if Numerals.GetSelIndex <> iNumeralsCounter then Warnlog "The Numeral-Entry number: " + iNumeralsCounter + " didn't get saved when pressing OK in the FormatCharacter-dialogue."
-    next iNumeralsCounter
-
-    Kontext "ExtrasOptionenDlg"
-    ExtrasOptionenDlg.Ok
-
-    '/// Choose Thai as CTL language
-    ToolsOptions
-    Call hToolsOptions ("LanguageSettings","Languages")
-    Kontext "TabSprachen"
-    LanguageComplexScript.Select sCTLLan(0)
-    Kontext "ExtrasOptionenDlg"
-    ExtrasOptionenDlg.Ok
-
-    '/// Restart office
-    Call wOfficeRestart
-
-    '/// Reopen options and go to Tabpage 'Complex Text Layout'
-    ToolsOptions
-    Call hToolsOptions ("LanguageSettings","ComplexTextLayout")
-    '/// Check if all checkboxes under 'Sequence checking' are checked 
-    if UseSequenceChecking.IsChecked = False then
-        Warnlog "'Sequence Checking' should be checked for language: " & sCTLLan(0)
-    end if
-    if Restricted.IsEnabled = False or Restricted.IsChecked = False then
-        Warnlog "'Restricted' should be enabled and checked for language: " & sCTLLan(0)
-    end if
-    if TypeAndReplace.IsEnabled = False or TypeAndReplace.IsChecked = False then
-        Warnlog "'Type And Replace' should be enabled and checked for language: " & sCTLLan(0)
-    end if
-
-    '/// Reset CTL Language
-    Kontext "ExtrasOptionenDlg"
-    ExtrasOptionenDlg.Ok
-    ToolsOptions
-    Call hToolsOptions ("LanguageSettings","Languages")
-    Kontext "TabSprachen"
-    LanguageComplexScript.Select sCurrentCTLLanguage
-    Kontext "ExtrasOptionenDlg"
-    ExtrasOptionenDlg.Ok
-
-IfNoSupport:
-    Call ActiveDeactivateAsianSupport(bAsianLanguage)
-    Call ActiveDeactivateCTLSupport(bCTLLanguage)
-
-    Do Until GetDocumentCount = 0
-        Call hCloseDocument
-    Loop
-endcase
diff --git a/testautomation/writer/optional/includes/option/wr_o_a.inc b/testautomation/writer/optional/includes/option/wr_o_a.inc
deleted file mode 100644
index 64f60fa7e0f9..000000000000
--- a/testautomation/writer/optional/includes/option/wr_o_a.inc
+++ /dev/null
@@ -1,663 +0,0 @@
-'**************************************************************************
-' 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 : helge.delfs@oracle.com
-'*
-'* short description : Writer options test
-'*
-'************************************************************************
-'*
-' #1 tToolsOptionsWriterPrint
-' #1 tToolsOptionsWriterTableMove
-' #1 tToolsOptionsWriterTableInsert
-' #1 tToolsOptionsWriterTableEffects
-' #1 tToolsOptionsWriterTableEffects2
-' #1 tToolsOptionsWriterDirectCursor2
-'*
-'\***********************************************************************
-
-testcase tToolsOptionsWriterPrint
-    ' called after my save/restart testing
-    ' The real print with paper to touch - and to get from the printer :-(
-
-    Dim i as integer
-    printlog "- Tools/Options/Writer: PrintWriter (real print)"
-    hFileOpenLocally(  gTesttoolPath + "writer\optional\input\options\options3.sxw" )
-    
-
-    Printlog "  - check all (real print)"
-    ToolsOptions
-    Call hToolsOptions("WRITER","PRINT")
-
-    Grafiken.Check
-    Kontrollfelder.Check
-    Hintergrund.Check
-    SchwarzDrucken.Check
-    LinkeSeiten.Check
-    RechteSeiten.Check
-    Prospekt.UnCheck
-
-    Seitenende.Check
-    AusDruckereinstellung.Check
-
-    Kontext "ExtrasOptionenDlg"
-    ExtrasOptionenDlg.OK
-
-    if (NO_REAL_PRINT = False) Then
-        Printlog "   - print 1"
-        kontext "funktionsleiste"
-        Drucken
-        for i=1 to 10
-            Kontext "Druckbestaetigung"
-            if Druckbestaetigung.Exists then
-                sleep 1
-            else
-                i=100
-            end if
-        next i
-        Sleep 3
-    end if
-
-    ToolsOptions
-    Call hToolsOptions("WRITER","PRINT")
-
-    Printlog "  - uncheck everything"
-
-    Grafiken.UnCheck
-    Kontrollfelder.UnCheck
-    Hintergrund.UnCheck
-    SchwarzDrucken.UnCheck
-    LinkeSeiten.Check               ' that's so, otherwise there will be no printing
-    RechteSeiten.Check              ' that's so, otherwise there will be no printing
-    Prospekt.UnCheck
-    Keine.Check
-    AusDruckereinstellung.UnCheck
-
-    Kontext "ExtrasOptionenDlg"
-    ExtrasOptionenDlg.OK
-    Sleep 10
-
-    if (NO_REAL_PRINT = False) Then
-        Printlog "   - print 2"
-        kontext "funktionsleiste"
-        Drucken
-        for i=1 to 10
-            Kontext "Druckbestaetigung"
-            if Druckbestaetigung.Exists then
-                sleep 1
-            else
-                i=100
-            end if
-        next i
-        Sleep 3
-    end if
-
-    Do Until GetDocumentCount = 0
-        Call hCloseDocument
-    Loop
-    Call wOptionsUndo ( "Drucken" )
-endcase
-
-'------------------------------------------------------------------------------
-
-testcase tToolsOptionsWriterTableMove
-    Dim sLager$
-    Dim Spalte1 as Double
-    Dim Spalte2 as Double
-    Dim Zeile1 as Double
-    Dim Zeile2 as Double
-    Dim Abstaende(3) as Double
-    Dim AbLi as Double
-    Dim AbRe as Double
-    Dim VerschubZeile as Double
-    Dim VerschubSpalte as Double
-    Dim sSeparator as string
-    Dim sRow1 as string
-
-    ' Hints if there are some errors:
-    ' win2000: Start::Systemsteuerung::Laendereinstellungen::Gebietsschema
-    ' winXP  : Sart::ControlPanel::Regional and Language Options:: Region Options:: Standards&formats
-
-    '/// New writerdocument
-    Call hNewDocument
-    ToolsOptions     ' Measurement unit should be set to cm
-    Call hToolsOptions("WRITER","GENERAL")
-    '/// Set measurement unit to cm in options
-    Masseinheit.Select 2
-    sSeparator = GetDecimalSeperator ( Tabulatorenabstand.GetText )
-    Kontext "ExtrasOptionenDlg"
-    ExtrasOptionenDlg.OK
-    printlog "'///- Tools / Options / Table: Move"
-    '/// Tools / Options / Table
-    ToolsOptions
-    Call hToolsOptions("WRITER","TABLE")
-
-    Printlog "'///  - check minimum settings"
-    '/// check minimum settings
-    if gPlatform="solaris" then
-        sLager$ = sSeparator + "25" + mUnit
-    else
-        sLager$ = "0" + sSeparator + "25" + mUnit
-    end if
-    VerschiebenZeile.ToMin
-    if sLager$ <> VerschiebenZeile.GetText then Warnlog "Move cells: Row isn't min ( " + sLager$ + " ) but " +VerschiebenZeile.GetText
-    VerschiebenSpalte.ToMin
-    if sLager$ <> VerschiebenSpalte.GetText then Warnlog "Move cells: Column isn't min ( " + sLager$ + " ) but " +VerschiebenZeile.GetText
-
-    Printlog "- make settings"
-    '/// make the following settings
-    '/// set move cells: row to 1.00
-    '/// set move cells: column to 1.25
-    VerschiebenZeile.SetText "1" + sSeparator + "00"
-    VerschiebenSpalte.SetText "1" + sSeparator + "25"
-    VerschubZeile = 1.00
-    VerschubSpalte = 1.25
-
-    '/// check radiobutton 'Variable'
-    Variabel.Check
-    Sleep 1
-    Kontext "ExtrasOptionenDlg"
-    ExtrasOptionenDlg.OK
-
-    Printlog "- Insert table"
-    '/// Insert a table
-    InsertTableWriter
-    Kontext "TabelleEinfuegenWriter"
-    '///  set rows an columns to 2
-    Spalten.SetText "2"
-    Zeilen.SetText "2"
-    TabelleEinfuegenWriter.OK
-
-    Printlog "remember column width of inserted table"
-    Call wTypeKeys "<Left><Mod2 Down>"
-    Call wTypeKeys "<Left><Mod2 Up>"
-
-    ' **   Grundwerte der Tabelle holen ( alles schon in Double und rechenbar ) since 05.02.2001 ;-)
-    Spalte1 = SpaltenBreiteHolen
-
-    FormatRowHeight
-    Kontext "Zellenhoehe"
-    sRow1 = Hoehe.GetText
-    Zellenhoehe.OK
-
-    Zeile1  = ZeilenHoeheHolen
-    Call wTypeKeys "<Right>"
-    Spalte2 = SpaltenBreiteHolen
-    Call wTypeKeys "<Down>"
-    Zeile2  = Zeile1
-    Call wTypeKeys "<Up><Left>"
-    SeitenAbstaendeHolen ( Abstaende() )
-    AbLi = Abstaende(1)
-    AbRe = Abstaende(2)
-
-    Printlog "Startwerte"
-    Printlog "Width   :   Column 1: " & Spalte1 & " Column 2: " & Spalte2
-    Printlog "Height  :   Row 1: " & Zeile1 & " Row 2: " & Zeile2 & Chr(13)
-
-    Printlog "- with <Alt Left> downsize 1. column from right side"
-    Call wTypeKeys "<Mod2 Left>"
-    Call SpaltenBreiteTesten ( Spalte1-VerschubZeile )
-    Call SeitenAbstaendeTesten ( 0.00, VerschubZeile )
-
-    Printlog "- with <Shift Alt Right> downsize 1. column from left side"
-    Call wTypeKeys "<Shift Mod2 Right>"
-    Call SpaltenBreiteTesten ( Spalte1 - VerschubZeile *2 )
-    Call SeitenAbstaendeTesten ( VerschubZeile, VerschubZeile )
-
-    Printlog "- with <Alt Right> upsize 1. column to the right 2 times"
-    Call wTypeKeys "<Mod2 Right>"
-    Call wTypeKeys "<Mod2 Right>"
-    Call SpaltenBreiteTesten ( Spalte1 )
-    Call SeitenAbstaendeTesten ( VerschubZeile, 0 )
-
-    Printlog "- check size of 2. column"
-    Call wTypeKeys "<Right>"
-    Call SpaltenBreiteTesten ( Spalte2 - VerschubZeile )
-    Call SeitenAbstaendeTesten ( VerschubZeile, 0 )
-
-    Printlog "- with <Alt Left> upsize 2. column from left"
-    Call wTypeKeys "<Mod2 Left>"
-    wait 100
-    Call SpaltenBreiteTesten ( Spalte2 - VerschubZeile*2 )
-    Call SeitenAbstaendeTesten ( VerschubZeile, VerschubZeile )
-
-    Printlog "- with <Shift Alt Right> downsize 2. column from left"
-    Call wTypeKeys "<Shift Mod2 Right>"
-    Call SpaltenBreiteTesten ( Spalte2 - VerschubZeile*3 )
-    Call SeitenAbstaendeTesten ( VerschubZeile*2, VerschubZeile )
-
-    Printlog "- with <Shift Alt Left> upsize 2. column to the left 2 times"
-    Call wTypeKeys "<Shift Mod2 Left>"
-    Call wTypeKeys "<Shift Mod2 Left>"
-    Call SpaltenBreiteTesten ( Spalte2-VerschubZeile )
-    Call SeitenAbstaendeTesten ( 0, VerschubZeile )
-
-    Printlog "- with <Shift Alt Left> upsize 2. column to the right"
-    Call wTypeKeys "<Shift Mod2 Left>"
-    Call SpaltenBreiteTesten ( Spalte2 )
-    Call SeitenAbstaendeTesten ( 0, 0 )
-
-    Printlog "- with <Alt Down> upsize 1. column down"
-    Call wTypeKeys "<Left><Mod2 Down>"
-    Call ZeilenHoeheTesten ( Zeile1+VerschubSpalte )
-    Call SeitenAbstaendeTesten ( 0, 0 )
-
-    Printlog "- with <Alt Up> downsize 1. column up"
-    Call wTypeKeys "<Mod2 Up>"
-    Call ZeilenHoeheTesten ( ( Zeile1 ) )
-    Call SeitenAbstaendeTesten ( 0, 0 )
-
-    FormatRowHeight
-    Kontext "Zellenhoehe"
-    if (StrToDouble ( Hoehe.Gettext ) <> Zeile1 ) then
-        Hoehe.More
-        printlog "  from now on, there is an offset to the original of 10mm"
-        Zeile2 = Zeile2 + ( StrToDouble ( Hoehe.Gettext ) - Zeile2 )
-    end if
-    Zellenhoehe.OK
-
-    Printlog "- with <Alt Down> upsize 2. column down"
-    Call wTypeKeys "<Right><Mod2 Down>"
-    Call ZeilenHoeheTesten ( Zeile2+VerschubSpalte*2/2 )
-    Call SeitenAbstaendeTesten ( 0, 0 )
-
-    Printlog "- with <Alt Up> downsize 2. column up"
-    Call wTypeKeys "<Mod2 Up>"
-    Call ZeilenHoeheTesten ( Zeile2 )
-    Call SeitenAbstaendeTesten ( 0, 0 )
-
-    Do Until GetDocumentCount = 0
-        Call hCloseDocument
-    Loop
-    Call wOptionsUndo "Tabelle"
-endcase
-
-'------------------------------------------------------------------------------
-
-testcase tToolsOptionsWriterTableInsert
-    Dim sLager$
-    Dim Spalte1 as Double
-    Dim Spalte2 as Double
-    Dim Zeile as Double
-    Dim VerschubZeile as Double
-    Dim VerschubSpalte as Double
-    Dim sSeparator as string
-
-    Call hNewDocument
-
-    printlog "- Tools / Options / Table"
-    ToolsOptions
-    Call hToolsOptions("WRITER","TABLE")
-
-    Printlog "- make settings"
-    sSeparator = GetDecimalSeperator(EinfuegenZeile.GetText)
-    EinfuegenZeile.SetText "0" + sSeparator + "73"
-    VerschubZeile = 0.73
-    EinfuegenSpalte.SetText "3" + sSeparator + "15"
-    VerschubSpalte = 3.15
-    Variabel.Check
-    Sleep 1
-    Kontext "ExtrasOptionenDlg"
-    ExtrasOptionenDlg.OK
-
-    Printlog "- Insert a table"
-    Call hNewDocument
-    InsertTableWriter
-    Kontext "TabelleEinfuegenWriter"
-    Spalten.SetText "2"
-    Zeilen.SetText "2"
-    TabelleEinfuegenWriter.OK
-
-    ' **   Grundwerte der Tabelle holen ( alles schon in Double und rechenbar )
-    Spalte1 = SpaltenBreiteHolen
-    Zeile  = ZeilenHoeheHolen
-    Call wTypeKeys "<Right>"
-    Spalte2 = SpaltenBreiteHolen
-    ' **
-
-    Printlog "- with <Alt Insert><Up> insert a row from top"
-    Call wTypeKeys "<Mod2 Insert><Up>"
-    Call ZeilenHoeheTesten ( VerschubZeile )
-    Call SeitenAbstaendeTesten ( 0.00, 0.00 )
-    Call ZeilenTesten ( 3 )
-    Call SpaltenTesten ( 2 )
-
-    Printlog "- with <Alt Insert><Down> insert a row from downside"
-    Call wTypeKeys "<Down><Mod2 Insert><Down>"
-    Call ZeilenHoeheTesten ( VerschubZeile )
-    Call ZeilenTesten ( 4 )
-    Call SpaltenTesten ( 2 )
-
-    Printlog "- with <Alt Delete><Up> delete 1. row from top"
-    Call wTypeKeys "<Mod2 Delete><Up>"
-    Call ZeilenHoeheTesten ( 0.01 )
-    Call ZeilenTesten ( 3 )
-    Call SpaltenTesten ( 2 )
-
-    Printlog "- with <Alt Delete><Down> delete 1. row from the button"
-    Call wTypeKeys "<Mod2 Delete><Down>"
-    Call ZeilenHoeheTesten ( VerschubZeile )
-    Call ZeilenTesten ( 2 )
-    Call SpaltenTesten ( 2 )
-
-    Printlog "- with <Alt Insert><Left> insert a column from left side"
-    Call wTypeKeys "<Mod2 Insert><Left>"
-    Call SpaltenBreiteTesten ( VerschubSpalte )
-    Call SeitenAbstaendeTesten ( 0.00, 0.00 )
-    Call ZeilenTesten ( 2 )
-    Call SpaltenTesten ( 3 )
-
-    Printlog "- with <Alt Insert><Right> insert a rown from right side"
-    Call wTypeKeys "<Right><Right><Mod2 Insert><Right>"
-    Call SpaltenBreiteTesten ( VerschubSpalte )
-    Call ZeilenTesten ( 2 )
-    Call SpaltenTesten ( 4 )
-
-    Printlog "- with <Alt Delete><Left> delete 1. Column from left side"
-    Call wTypeKeys "<Mod2 Delete><Left>"
-    DocumentWriter.TypeKeys "<Up>"
-    Call SpaltenBreiteTesten ( Spalte1-VerschubSpalte )
-    Call ZeilenTesten ( 2 )
-    Call SpaltenTesten ( 3 )
-    Call wTypeKeys "<Right>"
-    Call SeitenAbstaendeTesten ( VerschubSpalte, 0.00 )
-
-    Printlog "- with <Alt Delete><Right> delete last column from right side"
-    Call wTypeKeys "<Right><Right><Mod2 Delete><Right>"
-    Call SpaltenBreiteTesten ( Spalte2-VerschubSpalte )
-    Call ZeilenTesten ( 2 )
-    Call SpaltenTesten ( 2 )
-    Call SeitenAbstaendeTesten ( VerschubSpalte, Spalte2 -VerschubSpalte )
-
-    Do Until GetDocumentCount = 0
-        Call hCloseDocument
-    Loop
-    Call wOptionsUndo "Tabelle"
-endcase
-
-' ************************************************************************
-
-testcase tToolsOptionsWriterTableEffects
-    Dim Spalte1 as Double
-    Dim Spalte2 as Double
-    Dim Spalte3 as Double
-    Dim VerschubZeile as Double
-
-    Call hNewDocument
-
-    printlog "- Tools / Options / Table"
-    ToolsOptions
-    Call hToolsOptions("WRITER","TABLE")
-    VerschubZeile = ZahlAusSpinnfield ( VerschiebenZeile.GetText )
-    VerhaltenFix.Check
-    Kontext "ExtrasOptionenDlg"
-    ExtrasOptionenDlg.OK
-
-    printlog "- Fixed: changes affect the adjacent area only"
-    Call hNewDocument
-    InsertTableWriter
-    Kontext "TabelleEinfuegenWriter"
-    Spalten.SetText "3"
-    Zeilen.SetText "2"
-    TabelleEinfuegenWriter.OK
-
-    Spalte1 = SpaltenBreiteHolen
-    Call wTypeKeys "<Right>"
-    Spalte2 = SpaltenBreiteHolen
-    Call wTypeKeys "<Right>"
-    Spalte3 = SpaltenBreiteHolen
-    Kontext "DocumentWriter"
-    DocumentWriter.TypeKeys "<Left>", 3
-
-    Printlog "- with <Alt Left> downsize 1. Column from right side"
-    Call wTypeKeys "<Mod2 Left>"
-    Call SpaltenBreiteTesten ( Spalte1-VerschubZeile )
-    Call wTypeKeys "<Right>"
-    Call SpaltenBreiteTesten ( Spalte2+VerschubZeile )
-    Call wTypeKeys "<Right>"
-    Call SpaltenBreiteTesten ( Spalte3 )
-    Call SeitenAbstaendeTesten ( 0.00, 0.00 )
-
-    Kontext "DocumentWriter"
-    DocumentWriter.TypeKeys "<Left>", 3
-    Printlog "- with <Alt Shift Right> no changes should be happen"
-    Call wTypeKeys "<Mod2 Shift Left>"
-    Call SpaltenBreiteTesten ( Spalte1-VerschubZeile )
-    Call wTypeKeys "<Right>"
-    Call SpaltenBreiteTesten ( Spalte2+VerschubZeile )
-    Call wTypeKeys "<Right>"
-    Call SpaltenBreiteTesten ( Spalte3 )
-    Call SeitenAbstaendeTesten ( 0.00, 0.00 )
-
-    Kontext "DocumentWriter"
-    DocumentWriter.TypeKeys "<Left>", 3
-    Printlog "- with <Alt Right> re-establish initial state ///"
-    Call wTypeKeys "<Mod2 Right>"
-    Call SpaltenBreiteTesten ( Spalte1 )
-    Call wTypeKeys "<Right>"
-    SpaltenBreiteTesten ( Spalte2 )
-    Call wTypeKeys "<Right>"
-    SpaltenBreiteTesten ( Spalte3 )
-    SeitenAbstaendeTesten ( 0.00, 0.00 )
-
-    Printlog "- with <Alt Down> row will be upsized ///"
-    Call wTypeKeys "<Mod2 Down>"
-    Call ZeilenHoeheTesten ( 1.17 )
-    Call SeitenAbstaendeTesten ( 0.00, 0.00 )
-
-    if iSprache <> 01 then
-        Printlog "- with <Alt Up> row gets initial state"
-        Call wTypeKeys "<Mod2 Up>"
-        Call ZeilenHoeheTesten ( 0.7 )
-        Call SeitenAbstaendeTesten ( 0.00, 0.00 )
-
-        Printlog "- with <Alt Shift Up> row will be upsized"
-        Call wTypeKeys "<Mod2 Shift Up>"
-        Call ZeilenHoeheTesten ( 1.17 )
-        Call SeitenAbstaendeTesten ( 0.00, 0.00 )
-
-        Printlog "- with <Alt Shift Down> column gets initial state"
-        Call wTypeKeys "<Mod2 Shift Down>"
-        Call ZeilenHoeheTesten ( 0.7 )
-        Call SeitenAbstaendeTesten ( 0.00, 0.00 )
-    end if
-    Call hCloseDocument
-    Call hNewDocument
-    
-    printlog "- Fixed, proportional: Changes affect the entire table"
-    ToolsOptions
-    Call hToolsOptions("WRITER","TABLE"
-    FixProportional.Check
-    Kontext "ExtrasOptionenDlg"
-    ExtrasOptionenDlg.OK
-
-    InsertTableWriter
-    Kontext "TabelleEinfuegenWriter"
-    Spalten.SetText "3"
-    Zeilen.SetText "2"
-    TabelleEinfuegenWriter.OK
-
-    Printlog "- with <Alt Left> downsize 1. column from right"
-    Call wTypeKeys "<Mod2 Left>"
-    Call SpaltenBreiteTesten ( Spalte1-VerschubZeile )
-    Call wTypeKeys "<Right>"
-    Call SpaltenBreiteTesten ( Spalte2+VerschubZeile/2 )
-    Call wTypeKeys "<Right>"
-    Call SpaltenBreiteTesten ( Spalte3+VerschubZeile/2 )
-    Call SeitenAbstaendeTesten ( 0.00, 0.00 )
-
-    Kontext "DocumentWriter"
-    DocumentWriter.TypeKeys "<Left>", 3
-    Printlog "- with <Alt Shift Right> nothing should happen"
-    Call wTypeKeys "<Mod2 Shift Left>"
-    Call SpaltenBreiteTesten ( Spalte1-VerschubZeile )
-    Call wTypeKeys "<Right>"
-    Call SpaltenBreiteTesten ( Spalte2+VerschubZeile/2 )
-    Call wTypeKeys "<Right>"
-    Call SpaltenBreiteTesten ( Spalte3+VerschubZeile/2 )
-    Call SeitenAbstaendeTesten ( 0.00, 0.00 )
-
-    Kontext "DocumentWriter"
-    DocumentWriter.TypeKeys "<Left>", 3
-    Printlog "- with <Alt Right> reach initial state"
-    Call wTypeKeys "<Mod2 Right>"
-    Call SpaltenBreiteTesten ( Spalte1 )
-    Call wTypeKeys "<Right>"
-    Call SpaltenBreiteTesten ( Spalte2 )
-    Call wTypeKeys "<Right>"
-    Call SpaltenBreiteTesten ( Spalte3 )
-    Call SeitenAbstaendeTesten ( 0.00, 0.00 )
-
-    if iSprache <> 01 then
-        Printlog "- with <Alt Down> row will be upsized"
-        Call wTypeKeys "<Mod2 Down>"
-        Call ZeilenHoeheTesten ( 1.2 )
-        Call SeitenAbstaendeTesten ( 0.00, 0.00 )
-
-        Printlog "- with <Alt Up> column gets intitial state"
-        Call wTypeKeys "<Mod2 Up>"
-        Call ZeilenHoeheTesten ( 0.7 )
-        Call SeitenAbstaendeTesten ( 0.00, 0.00 )
-
-        Printlog "- with <Alt Shift Up> column will be upsized"
-        Call wTypeKeys "<Mod2 Shift Up>"
-        Call ZeilenHoeheTesten ( 1.2 )
-        Call SeitenAbstaendeTesten ( 0.00, 0.00 )
-
-        Printlog "- with <Alt Shift Down> column gets initial state"
-        Call wTypeKeys "<Mod2 Shift Down>"
-        Call ZeilenHoeheTesten ( 0.7 )
-        Call SeitenAbstaendeTesten ( 0.00, 0.00 )
-    end if
-    Call wOptionsUndo "Tabelle"
-
-    Do Until GetDocumentCount = 0
-        Call hCloseDocument
-    Loop
-endcase
-
-'------------------------------------------------------------------------------
-
-testcase tToolsOptionsWriterTableEffects2
-    Dim Spalte1 as Double
-    Dim vSeparator as string
-    Dim VerschubZeile as Double
-
-    vSeparator = GetDecimalSeperator
-
-    printlog "- Tools / Options / Table"
-    printlog "- Effect options should work immediately"
-
-    Call hNewDocument
-
-    InsertTableWriter
-    Kontext "TabelleEinfuegenWriter"
-    Spalten.SetText "3"
-    Zeilen.SetText "2"
-    TabelleEinfuegenWriter.OK
-
-    Spalte1 = SpaltenBreiteHolen
-
-    ToolsOptions
-    Call hToolsOptions("WRITER","TABLE")
-    VerschubZeile = ZahlAusSpinnfield ( VerschiebenZeile.GetText )
-    if NOT Variabel.IsChecked then
-        Warnlog "Variable is not checked so test will be interrupted here"
-        goto endsub
-    else
-        printlog "- change 'Behaviour of columns/rows to 'Fix'"
-        VerhaltenFix.Check
-    end if
-    Kontext "ExtrasOptionenDlg"
-    ExtrasOptionenDlg.OK
-
-    printlog "- resize cell with <Alt Left>"
-    Call wTypeKeys "<Mod2 Left>"
-    Call SpaltenBreiteTesten ( ( Spalte1-VerschubZeile ) )
-
-    FormatTable
-    Kontext
-    Active.SetPage TabTabelle
-    Kontext "TabTabelle"
-    if ZahlAusSpinnfield ( NachRechts.GetText ) <> "0" then
-        Warnlog "Table size has been changed though 'Behaviour of rows/columns has been set to 'Fix'"
-    end if
-    TabTabelle.Cancel
-
-    Do Until GetDocumentCount = 0
-        Call hCloseDocument
-    Loop
-    Call wOptionsUndo "Tabelle"
-endcase
-
-'------------------------------------------------------------------------------
-
-testcase tToolsOptionsWriterDirectCursor2
-    printlog "- Tools / Options / Direct Cursor / Left paragraph margin"
-
-    Call hNewDocument
-    ViewZoom
-    Kontext "Massstab"
-    Optimal.Check
-    Massstab.OK
-
-    Printlog "- set left paragraph margin"
-    ToolsOptions
-    Call hToolsOptions("WRITER","FORMATTINGAIDS")
-    DirektCursor.Check
-    LinkerAbsatzrand.Check
-    Kontext "ExtrasOptionenDlg"
-    ExtrasOptionenDlg.OK
-    Printlog "- set cursor to the right"
-    Kontext "DocumentWriter"
-    DocumentWriter.MouseDoubleClick 80, 60
-    DocumentWriter.Mousemove 20, 50
-    DocumentWriter.TypeKeys "Right"
-    FormatParagraph
-    Kontext
-    Active.SetPage TabAusrichtungAbsatz
-    Kontext "TabAusrichtungAbsatz"
-    if NOT Links.IsChecked then Warnlog "Cursor set to right but it isn't left aligned"
-    TabAusrichtungAbsatz.Cancel
-    Kontext "DocumentWriter"
-    DocumentWriter.TypeKeys "<Shift Home>"
-    Sleep 1
-    EditCopy
-    if GetClipboardText = "" then Warnlog "Maybe tabs or spaces inserted"
-
-    ViewZoom
-    Kontext "Massstab"
-    Vergroesserung100.Check
-    Massstab.OK
-
-    Do Until GetDocumentCount = 0
-        Call hCloseDocument
-    Loop
-    Call wOptionsUndo "Cursor"
-endcase
-
-'------------------------------------------------------------------------------
-
diff --git a/testautomation/writer/optional/includes/redlining/w_redlining1.inc b/testautomation/writer/optional/includes/redlining/w_redlining1.inc
deleted file mode 100644
index f84205c34021..000000000000
--- a/testautomation/writer/optional/includes/redlining/w_redlining1.inc
+++ /dev/null
@@ -1,1233 +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 : helge.delfs@oracle.com
-'*
-'* short description : Test of the Redlinig function - 1
-'*
-'************************************************************************
-'*
-' #1 tRedlining_1      'Test Default settings
-' #1 tRedlining_2      'Inserted text : from Typing
-' #1 tRedlining_3      'Inserted text : from Clipboard
-' #1 tRedlining_4      'Inserted text : from another file
-' #1 tRedlining_5      'Inserted text : from Autotext
-' #1 tRedlining_6      'Deleteed text
-' #1 tRedlining_7      'sorted text
-' #1 tRedlining_8      'Searched and replaced text
-' #1 tRedlining_9      'text attributs
-' #1 tRedlining_10     'Inserted Section
-' #1 tRedlining_11     'Inserted Table
-' #1 tRedlining_12     'Inserted field (Date)
-' #1 tRedlining_13     'Inserted footnotes
-' #1 tRedlining_14     'Inserted headers
-' #1 tRedlining_15     'Inserted footers
-' #1 tRedlining_16     'moved paragraphs/chapters
-'*
-'\***********************************************************************
-
-testcase tRedlining_1
-
-  Dim iInsertionAttr as Integer
-  Dim iInsertionColor as Integer
-  Dim iDeletionAttr as Integer
-  Dim iDeletionColor as Integer
-  Dim iChangedAttr as Integer
-  Dim iChangedColor as Integer
-  Dim iLineChangedMark as Integer
-  Dim iLineChangedColor as Integer
-
-  iInsertionAttr   = 4  :  iInsertionColor   = 2
-  iDeletionAttr    = 4  :  iDeletionColor    = 2
-  iChangedAttr     = 2  :  iChangedColor     = 2
-  iLineChangedMark = 2  :  iLineChangedColor = 1
-
-  Call hNewDocument
-
-  PrintLog "- Test Default settings"
-  '/// Test Default settings
-
-  '/// The default setting for Redlining is Off
-   Call wTypeKeys "Redlining test"
-   Call wTypeKeys "<Backspace>",2
-   Sleep 1
-   Call wTypeKeys "<End>"
-   Call wTypeKeys "<Shift Left>" , 4
-   EditCopy
-   if GetClipboardText <> "g te" then Warnlog "The default setting for Redlining is NO Off"
-
-  '/// Tools / Options / Textdocument / Changes
-   ToolsOptions
-   Call hToolsOptions("WRITER","CHANGES")
-
-  '/// Check default settings
-
-  '/// 1) Insertion Attributes , Insertion color
-   if EinfuegenAttribute.GetSelIndex <> iInsertionAttr  then
-      warnlog "The default settings for Insertion Attribute isn't correct, should be " +  EinfuegenAttribute.GetItemText(iInsertionAttr) + " but get " +EinfuegenAttribute.GetItemText(EinfuegenAttribute.GetSelIndex)
-   end if
-   if EinfuegenFarbe.GetSelIndex <> iInsertionColor  then
-      warnlog "The default settings for Insertion color isn't correct, should be " +  EinfuegenFarbe.GetItemText(iInsertionColor) + " but get " +EinfuegenFarbe.GetItemText(EinfuegenFarbe.GetSelIndex)
-   end if
-
-  '/// 2) Deletion Attribute , Deletion color
-   if LoeschenAttribute.GetSelIndex <> iDeletionAttr  then
-      warnlog "The default settings for Deletion Attribute isn't correct, should be " +  LoeschenAttribute.GetItemText(iDeletionAttr) + " but get " +LoeschenAttribute.GetItemText(LoeschenAttribute.GetSelIndex)
-   end if
-   if LoeschenFarbe.GetSelIndex <> iDeletionColor  then
-      warnlog "The default settings for Deletion color isn't correct, should be " +  LoeschenFarbe.GetItemText(iDeletionColor) + " but get " +LoeschenFarbe.GetItemText(LoeschenFarbe.GetSelIndex)
-   end if
-
-  '/// 3) Changed Attribute  , Changed  color
-   if AendernAttribute.GetSelIndex <> iChangedAttr  then
-      warnlog "The default settings for Changed Attribute isn't correct, should be " +  AendernAttribute.GetItemText(iChangedAttr) + " but get " +AendernAttribute.GetItemText(AendernAttribute.GetSelIndex)
-   end if
-   if AendernFarbe.GetSelIndex <> iChangedColor  then
-      warnlog "The default settings for Changed color isn't correct, should be " +  AendernFarbe.GetItemText(iChangedColor) + " but get " +AendernFarbe.GetItemText(AendernFarbe.GetSelIndex)
-   end if
-
-  '/// 4) Lines changed Mark  , Lines changed color
-   if ZeilenMarkierung.GetSelIndex <> iLineChangedMark  then
-      warnlog "The default settings for Lines Changed Mark isn't correct, should be " +  ZeilenMarkierung.GetItemText(iLineChangedMark) + " but get " +ZeilenMarkierung.GetItemText(ZeilenMarkierung.GetSelIndex)
-   end if
-   if ZeilenFarbe.GetSelIndex <> iLineChangedColor  then
-      warnlog "The default settings for Lines Changed color isn't correct, should be " +  ZeilenFarbe.GetItemText(iLineChangedColor) + " but get " +ZeilenFarbe.GetItemText(ZeilenFarbe.GetSelIndex)
-   end if
-
-  '/// Close the tools/option dialogue
-    Kontext "ExtrasOptionenDlg"
-   ExtrasOptionenDlg.Cancel
-
-   Call hCloseDocument
-
-endcase
-
-'-------------------------------------------------------------------------------------------
-
-testcase tRedlining_2
-
-  '/// Test Inserted text : from Typing
-  printlog "Inserted text : from Typing"
-
-   '/// New document
-   Call hNewDocument
-
-   '/// Insert any sentence into document
-   Call wTypeKeys "Redlining test => OK_1<Return>"
-
-   UseBindings
-   '/// Edit / Changes / Record
-   EditChangesRecord
-
-   '/// Insert some new sentence
-   Call wTypeKeys "Redlining test => OK_2<Return>"
-
-   '/// Edit / Changes / Accept or Reject
-   EditChangesAcceptOrReject
-   Kontext "Redlining"
-   '/// + Select tabpage 'List' ///
-   TabControl.SetPage TabListe
-   '/// + Select 'Accept All'///
-   AlleAkzeptieren.Click
-   Sleep 2
-   '/// + Close Redlining dialog
-   Redlining.Close
-
-   '/// Check if the changes have been accepted
-   Call wTypeKeys "<Up>", 2
-   Call wTypeKeys "<Down>"
-   Call wTypeKeys "<End>"
-   Call wTypeKeys "<Shift Left>"
-   EditCopy
-   Sleep 1
-   if GetClipboardText <> "2" then Warnlog "The 2nd line is incorrect!"
-
-   '/// Close the document
-   Call hCloseDocument
-
-endcase
-
-'--------------------------------------------------------------------------
-
-testcase tRedlining_3
-
-  '/// Test Inserted text : from Clipboard
-  printlog "Inserted text : from Clipboard"
-
-   '/// New document
-   Call hNewDocument
-
-   '/// Insert any sentence into document , and copy it to clipboard
-   Call wTypeKeys "Redlining test => OK_2<Return>"
-   EditSelectAll
-   EditCopy
-   Sleep 1
-
-   '/// Insert a new sentence into document
-   Call wTypeKeys "Redlining test => OK_1<Return>"
-
-   UseBindings
-   '/// Edit / Changes / Record
-   EditChangesRecord
-
-   '/// copy the clipboard into the document
-   EditPaste
-   Sleep 1
-
-   '/// Edit / Changes / Accept or Reject
-   EditChangesAcceptOrReject
-   Kontext "Redlining"
-   '/// + Select tabpage 'List' ///
-   TabControl.SetPage TabListe
-   '/// + Select 'Accept All'///
-   AlleAkzeptieren.Click
-   Sleep 2
-   '/// + Close Redlining dialog
-   Redlining.Close
-
-   '/// Check if the changes have been accepted
-   Call wTypeKeys "<Up>", 2
-   Call wTypeKeys "<Down>"
-   Call wTypeKeys "<End>"
-   Call wTypeKeys "<Shift Left>"
-   EditCopy
-   Sleep 1
-   if GetClipboardText <> "2" then Warnlog "The 2nd Line is incorrect!"
-
-   '/// Close the document
-   Call hCloseDocument
-
-endcase
-
-'----------------------------------------------------------------------------
-
-testcase tRedlining_4
-
-  '/// Test Inserted text : from another file
-  printlog "Inserted text : from another file"
-
-   '/// New document
-   Call hNewDocument
-
-   '/// Insert a sentence into document
-   Call wTypeKeys "Redlining test => OK_1<Return>"
-
-   UseBindings
-   '/// Edit / Changes / Record
-   EditChangesRecord
-
-   '/// insert a file - Insert/File
-   InsertFileWriter
-   Kontext "OeffnenDlg"
-   Dateiname.Settext Convertpath (gTesttoolpath + "writer\optional\input\redlining\tRedlining_4.sxw")
-   Oeffnen.Click
-   Sleep 2
-
-   '/// Edit / Changes / Accept or Reject
-   EditChangesAcceptOrReject
-   Kontext "Redlining"
-   '/// + Select tabpage 'List' ///
-   TabControl.SetPage TabListe
-   '/// + Select 'Accept All'///
-   AlleAkzeptieren.Click
-   Sleep 2
-   '/// + Close Redlining dialog
-   Redlining.Close
-
-   '/// Check if the changes have been accepted
-   Call wTypeKeys "<Up>", 2
-   Call wTypeKeys "<Down>"
-   Call wTypeKeys "<End>"
-   Call wTypeKeys "<Shift Left>"
-   EditCopy
-   Sleep 1
-   if GetClipboardText <> "2" then Warnlog "i35222 - The 2nd Line is incorrect!"
-
-   '/// Close the document
-   Call hCloseDocument
-
-endcase
-
-'----------------------------------------------------------------------------
-
-testcase tRedlining_5
-
-    Dim j as Integer
-    Dim iAll as Integer
-
-    '/// Test Inserted text : from Autotext
-    printlog "Inserted text : from Autotext"
-
-    '/// New document
-    Call hNewDocument
-
-    'insert a category
-    Call wCreateAutotextCategory("1-MyTest")
-    
-    Kontext "Autotext"
-    Autotext.Close
-
-    'insert a autotext
-    '-----------------------------------------------------
-    Call wTypeKeys "Redlining test => OK_2<Return>"
-    Sleep 1
-    EditSelectAll
-    Sleep 1
-
-    EditAutotext
-    Sleep 2
-    Kontext "Autotext"
-    Sleep 1
-    Liste.Select 1   '1-MyTest'
-    Sleep 1
-
-    'Insert a name for the Autotext and a Shortcut
-    NameText.Settext "AutotextForRedlininggTest"
-    Sleep 1
-    Kuerzel.Settext "AFT"
-
-    'Select 'New' in Menubutton 'Autotext'
-    Sleep 2
-    Menue.Click
-    Sleep 2
-    Call hMenuSelectNr ( 1 )
-    Sleep 2
-
-    Autotext.Close
-    '-----------------------------------------------------
-
-    '/// Insert a sentence into document
-    Kontext "DocumentWriter"
-    EditSelectAll
-    Call wTypeKeys "Redlining test => OK_1<Return>"
-
-    UseBindings
-    '/// Edit / Changes / Record
-    EditChangesRecord
-
-    '/// Insert autotext
-    Call wTypeKeys "AFT"
-    Call wTypeKeys "<F3>"
-    Sleep 1
-
-    '/// Edit / Changes / Accept or Reject
-    EditChangesAcceptOrReject
-    Kontext "Redlining"
-    '/// Select tabpage 'List' ///
-    TabControl.SetPage TabListe
-    '/// Select 'Accept All'///
-    AlleAkzeptieren.Click
-    Sleep 2
-    '/// Close Redlining dialog
-    Redlining.Close
-
-    '/// Check if the changes have been accepted
-    Call wTypeKeys "<Up>", 2
-    Call wTypeKeys "<Down>"
-    Call wTypeKeys "<End>"
-    Call wTypeKeys "<Shift Left>"
-    EditCopy
-    Sleep 1
-    if GetClipboardText <> "2" then Warnlog "The 2nd Line is incorrect!"
-    
-    ' Delete the new category
-    ' ------------------------------------------------
-    EditAutotext
-    Sleep 2
-    Kontext "Autotext"
-    Sleep 1
-    Bereiche.Click
-    Sleep 5
-    Kontext "BereicheBearbeitenAutoText"
-    Liste.Select 1
-    Sleep 2
-    Loeschen.Click
-    Sleep 5
-    BereicheBearbeitenAutoText.OK
-    Sleep 2
-    Kontext "Active"
-    if Active.Exists then Active.Yes
-    Kontext "Autotext"
-    Autotext.Close
-    '-------------------------------------------------
-    
-    '/// Close the document
-    Call hCloseDocument
-
-endcase
-
-'----------------------------------------------------------------------------
-
-testcase tRedlining_6
-
-  '/// Test Deleted text
-  printlog "Deleted text"
-
-   '/// New document
-   Call hNewDocument
-
-   '/// Insert a sentence into document
-   Call wTypeKeys "Redlining test => OK_1"
-
-   UseBindings
-   '/// Edit / Changes / Record
-   EditChangesRecord
-
-   '/// Delete the last 2 characters
-   Call wTypeKeys "<Backspace>",2
-   Sleep 1
-
-   '/// Check if the changes is OK => The characters are deleted ,
-   '/// + but their location exists
-   Call wTypeKeys "<End>"
-   Sleep 1
-   Call wTypeKeys "<Shift Left>" , 2
-   Sleep 1
-
-   Editcopy
-   if Len(GetClipboardText)>0 then Warnlog "Something is wrong in deleting text before accepting the changes!"
-
-   '/// Edit / Changes / Accept or Reject
-   EditChangesAcceptOrReject
-   Sleep 2
-   Kontext "Redlining"
-   Sleep 1
-   '/// + Select tabpage 'List' ///
-   TabControl.SetPage TabListe
-   Sleep 2
-   '/// + Select 'Accept All'///
-   AlleAkzeptieren.Click
-   Sleep 2
-   '/// + Close Redlining dialog
-   Redlining.Close
-
-   '/// Check if the changes have been accepted => The
-   '/// + characters are deleted , and their location doesn't exist
-   Call wTypeKeys "<End>"
-   Sleep 1
-   Call wTypeKeys "<Shift Left>" , 2
-   Sleep 1
-
-   EditCopy
-   Sleep 1
-   if GetClipboardText <> "OK" then Warnlog "Something is wrong in deleting text after accepting the changes! Getting " + GetClipboardText
-
-   '/// Close the document
-   Call hCloseDocument
-
-endcase
-
-'----------------------------------------------------------------------------
-
-testcase tRedlining_7
-
-    '/// Test sorted text
-    printlog "sorted text"
-    
-    '/// New document
-    Call hNewDocument
-    
-    '/// Insert some test text
-    Call wTypeKeys "XYZ<Return>"
-    Call wTypeKeys "ABC"
-    
-    UseBindings
-    '/// Edit / Changes / Record
-    EditChangesRecord
-    
-    '/// Select Tools / Sort , Language (English USA) , Alphanumeric
-    EditSelectAll
-    ToolsSort
-    Kontext "Sortieren"
-    Schluesseltyp1.Select 1
-    Aufsteigend1.Check
-    Sortieren.OK
-    
-    '/// Check if the changes is OK => The characters are changed ,
-    '/// + but their location exists
-    Call wTypeKeys "<Down>" , 4
-    Call wTypeKeys "<End>"
-    Call wTypeKeys "<Shift Home>"
-    EditCopy
-    if Len(GetClipboardText)>0 then Warnlog "Something is wrong in sorting text before accepting the changes!"
-    
-    Call wTypeKeys "<Up>" , 4
-    Call wTypeKeys "<End>"
-    Call wTypeKeys "<Shift Home>"
-    EditCopy
-    if GetClipboardText <> "ABC" then Warnlog "Should get ABC in the first line, but get " +GetClipboardText + "  before accepting the changes!"
-    
-    '/// Edit / Changes / Accept or Reject
-    EditChangesAcceptOrReject
-    Sleep 2
-    Kontext "Redlining"
-    '/// + Select tabpage 'List' ///
-    TabControl.SetPage TabListe
-    Sleep 2
-    '/// + Select 'Accept All'///
-    AlleAkzeptieren.Click
-    Sleep 2
-    '/// + Close Redlining dialog
-    Redlining.Close
-    
-    '/// Check if the changes have been accepted => The characters
-    '/// + are changed , and their location doesn't exist
-    Call wTypeKeys "<Down>" , 4
-    Call wTypeKeys "<End><Backspace>"
-    Call wTypeKeys "<Shift Home>"
-    EditCopy
-    if Len(GetClipboardText) <> 3 then Warnlog "Something is wrong in sorting text after accepting the changes!"
-    
-    Call wTypeKeys "<Up>" , 4
-    Call wTypeKeys "<End>"
-    Call wTypeKeys "<Shift Home>"
-    EditCopy
-    if GetClipboardText <> "ABC" then Warnlog "Should get ABC in the first line, but get " +GetClipboardText + "  after accepting the changes!"
-    
-    '/// Close the document
-    Call hCloseDocument
-    
-endcase
-
-'----------------------------------------------------------------------------
-
-testcase tRedlining_8
-
-  '/// Test searched and replaced text
-  printlog "searched and replaced text"
-
-   '/// New document
-   Call hNewDocument
-
-   '/// Insert a sentence into document
-   Call wTypeKeys "Redlining test => OK_1"
-
-   UseBindings
-   '/// Edit / Changes / Record
-   EditChangesRecord
-
-   '/// Select Edit / Find & Replace
-   EditSearchAndReplace
-   Kontext "FindAndReplace"
-
-   '/// + Set OK_1 in search for editbox
-   SearchFor.SetText "OK_1"
-   Sleep 2
-
-   '/// + set OK_2 in replace with editbox
-   ReplaceWith.SetText "OK_2"
-   Sleep 2
-
-   '/// + Replace all and close the dialogue
-   ReplaceAll.Click
-   sleep 2
-   Kontext "Active"
-   if Active.Exists then
-      if Active.GetRT = 304 then
-         Active.OK
-         Sleep 1
-      else
-         Warnlog "Messagebox, how often replaced, not up !"
-      end if
-   end if
-
-   Kontext "FindAndReplace"
-   FindAndReplace.close
-
-   '/// Check if the changes is OK => The characters are changed ,
-   '/// + but their location exists
-   Call wTypeKeys "<End>"
-   wait 500
-   Call wTypeKeys "<Shift Left>"
-   wait 500
-   Editcopy
-   wait 500
-   if GetClipboardText <> "2" then Warnlog "Something is wrong in changing text before accepting the changes!"
-
-   Call wTypeKeys "<Left>" , 3
-   Sleep 1
-   Call wTypeKeys "<Shift Left>" , 4
-   Sleep 1
-   Editcopy
-   wait 500
-   if Len(GetClipboardText) > 0 then Warnlog "Something is wrong in changing text before accepting the changes!"
-
-   '/// Edit / Changes / Accept or Reject
-   EditChangesAcceptOrReject
-   Sleep 2
-   Kontext "Redlining"
-   Sleep 2
-   '/// + Select tabpage 'List' ///
-   TabControl.SetPage TabListe
-   Sleep 2
-   '/// + Select 'Accept All'///
-   AlleAkzeptieren.Click
-   Sleep 2
-   '/// + Close Redlining dialog
-   Redlining.Close
-
-   '/// Check if the changes have been accepted => The characters
-   '/// + are changed , and their location doesn't exist
-   Call wTypeKeys "<End>"
-   Call wTypeKeys "<Shift Left>"
-
-   EditCopy
-   Sleep 1
-   if GetClipboardText <> "2" then Warnlog "Something is wrong in changing text after accepting the changes!"
-
-   Call wTypeKeys "<Left>" , 3
-   Sleep 1
-   Call wTypeKeys "<Shift Left>" , 4
-   Sleep 1
-   Editcopy
-   if Len(GetClipboardText) <> 4 then Warnlog "Something is wrong in changing text after accepting the changes!"
-
-   '/// Close the document
-   Call hCloseDocument
-
-endcase
-
-'----------------------------------------------------------------------------
-
-testcase tRedlining_9
-
-	Dim iComparison1$,iComparison2$,iComparison3$,iComparison4$
-	
-	'/// Test text attributs
-	printlog "Test text attributs"
-	
-	'/// New document
-	Call hNewDocument
-	
-	'/// Insert a sentence into document
-	Call wTypeKeys "Redlining test => OK_1<Home>"
-	Call wTypeKeys "<Shift Right>" , 9
-	Sleep 1
-	
-	UseBindings
-	'/// Edit / Changes / Record
-	EditChangesRecord
-	
-	'/// Select Format / Character , changes some font Attributes
-	FormatCharacter
-	Kontext
-	Active.SetPage TabFont
-	kontext "TabFont"
-	
-	if gAsianSup = True then
-		FontWest.Select  5
-		iComparison1$ = FontWest.GetSelText
-		try
-            StyleWest.Select 3
-        catch
-            StyleWest.Select StyleWest.GetItemCount
-        endcatch            
-		iComparison2$ = StyleWest.GetSelText
-		SizeWest.Select  5
-		iComparison3$ = SizeWest.GetSelText
-	else
-		Font.Select  5
-		iComparison1$ = Font.GetSelText
-		try
-            Style.Select 3
-        catch
-            Style.Select Style.GetItemCount
-        endcatch
-		iComparison2$ = Style.GetSelText
-		Size.Select  5
-		iComparison3$ = Size.GetSelText
-	end if
-	wait 100
-	Kontext
-	Active.Setpage TabHyperlinkZeichen
-	Kontext "TabHyperlinkZeichen"
-	UrlName.Settext "http://www.sun.com/"
-	Sleep 1
-	TargetFrame.Select 2
-	Sleep 1
-	iComparison4$ = TargetFrame.GetSelText
-	wait 500
-	TabHyperlinkZeichen.Ok
-	
-	Sleep 1
-	Call wTypeKeys "<Left>"  , 2
-	Sleep 1
-	
-	'/// Check if the Attribute changes id OK before accepting the changes
-	printlog "Check if the Attribute changes id OK before accepting the changes"
-	FormatCharacter
-	Kontext
-	Active.SetPage TabFont
-	Kontext "TabFont"
-	if gAsianSup = True then
-		if iComparison1$ <> FontWest.GetSelText  then Warnlog "Wrong Font in Autotext!"
-		if iComparison2$ <> StyleWest.GetSelText then Warnlog "Wrong Fontstyle in Autotext!"
-		if iComparison3$ <> SizeWest.GetSelText  then QAErrorlog "#108881#Wrong Fontsize in Autotext!"
-	else
-		if iComparison1$ <> Font.GetSelText  then Warnlog "Wrong Font in Autotext!"
-		if iComparison2$ <> Style.GetSelText then Warnlog "Wrong Fontstyle in Autotext!"
-		if iComparison3$ <> Size.GetSelText  then Warnlog "Wrong Fontsize in Autotext!"
-	end if
-	wait 100
-	Kontext
-	Active.Setpage TabHyperlinkZeichen
-	Kontext "TabHyperlinkZeichen"
-	if UrlName.Gettext <> "http://www.sun.com/"  then Warnlog "Wrong hyperlink has been added to text!"
-	if iComparison4$   <> TargetFrame.GetSelText then Warnlog "Wrong targetFrame has been added to text!"
-	TabHyperlinkZeichen.Cancel
-	
-	'/// Edit / Changes / Accept or Reject
-	EditChangesAcceptOrReject
-	Kontext "Redlining"
-	'/// + Select tabpage 'List' ///
-	TabControl.SetPage TabListe
-	'/// + Select 'Accept All'///
-	AlleAkzeptieren.Click
-	Sleep 2
-	'/// + Close Redlining dialog
-	Redlining.Close
-	
-	'/// Check if the Attribute changes id OK after accepting the changes
-	printlog "Check if the Attribute changes id OK after accepting the changes"
-	FormatCharacter
-	Kontext
-	Active.SetPage TabFont
-	Kontext "TabFont"
-	if gAsianSup = True then
-		if iComparison1$ <> FontWest.GetSelText  then Warnlog "Wrong Font in Autotext!"
-		if iComparison2$ <> StyleWest.GetSelText then Warnlog "Wrong Fontstyle in Autotext!"
-		if iComparison3$ <> SizeWest.GetSelText  then QAErrorlog "#108881#Wrong Fontsize in Autotext!"
-	else
-		if iComparison1$ <> Font.GetSelText  then Warnlog "Wrong Font in Autotext!"
-		if iComparison2$ <> Style.GetSelText then Warnlog "Wrong Fontstyle in Autotext!"
-		if iComparison3$ <> Size.GetSelText  then Warnlog "Wrong Fontsize in Autotext!"
-	end if
-	wait 100
-	Kontext
-	Active.Setpage TabHyperlinkZeichen
-	Kontext "TabHyperlinkZeichen"
-	if UrlName.Gettext <> "http://www.sun.com/"   then Warnlog "Wrong hyperlink has been added to text!"
-	if iComparison4$   <> TargetFrame.GetSelText  then Warnlog "Wrong targetFrame has been added to text!"
-	TabHyperlinkZeichen.Cancel
-	
-	'/// Close the document
-	Call hCloseDocument
-endcase
-
-'----------------------------------------------------------------------------
-
-testcase tRedlining_10
-
-  Dim sSectionName as String
-
-  sSectionName = "testForRedlining"
-
-  '/// Test inserted sections
-  printlog "inserted sections"
-
-   '/// New document
-   Call hNewDocument
-
-   '/// Insert a sentence into document
-   Call wTypeKeys "Redlining test => OK_1<Shift Home>"
-
-   UseBindings
-   '/// Edit / Changes / Record
-   EditChangesRecord
-
-   '/// Insert a section in the testing sentence , insert / section
-   InsertSection
-   wait 500
-   Kontext
-   Active.Setpage TabBereiche
-   Kontext "TabBereiche"
-   Bereichsliste.Settext sSectionName
-   TabBereiche.OK
-   wait 500
-
-   '/// Check if the section is inserted correctly before accepting the changes , format / sections
-   FormatSections
-   Kontext "BereicheBearbeiten"
-   if BereichsName.GetText <> sSectionName then warnlog "the section is NOt inserted correctly before accepting the changes "
-   BereicheBearbeiten.Cancel
-
-   '/// Edit / Changes / Accept or Reject
-   EditChangesAcceptOrReject
-   Kontext "Redlining"
-   '/// + Select tabpage 'List' ///
-   TabControl.SetPage TabListe
-   '/// + Select 'Accept All'///
-   AlleAkzeptieren.Click
-   Sleep 2
-   '/// + Close Redlining dialog
-   Redlining.Close
-
-   '/// Check if the section is inserted correctly after accepting the changes , format / sections
-   FormatSections
-   Kontext "BereicheBearbeiten"
-   if BereichsName.GetText <> sSectionName then warnlog "the section is NOt inserted correctly after accepting the changes "
-   BereicheBearbeiten.Cancel
-
-   '/// Close the document
-   Call hCloseDocument
-endcase
-
-'----------------------------------------------------------------------------
-
-testcase tRedlining_11
-
-  '/// Test inserted tables
-  printlog "inserted tables"
-
-   '/// New document
-   Call hNewDocument
-
-   UseBindings
-   '/// Edit / Changes / Record
-   EditChangesRecord
-
-   '/// Insert a table
-   Call hTabelleEinfuegen
-
-   '/// Check if the table is inserted correctly before accepting the changes
-   Call wOpenContextMenu
-   hMenuSelectNr(10)
-
-   try
-      Kontext
-      Active.Setpage TabTabelle
-      Kontext "TabTabelle"
-      if Right(TabellenName.GetText , 1) <> "1"  then warnlog "the table is NOt inserted correctly before accepting the changes "
-      TabTabelle.Cancel
-   catch
-      Warnlog "Something wrong in inserting table  before accepting the changes!"
-   endcatch
-
-   '/// Edit / Changes / Accept or Reject
-   EditChangesAcceptOrReject
-   Kontext "Redlining"
-   '/// + Select tabpage 'List' ///
-   TabControl.SetPage TabListe
-   '/// + Select 'Accept All'///
-   AlleAkzeptieren.Click
-   Sleep 2
-   '/// + Close Redlining dialog
-   Redlining.Close
-
-   '/// Check if the table is inserted correctly after accepting the changes
-   Call wOpenContextMenu
-   hMenuSelectNr(10)
-
-   try
-      Kontext
-      Active.Setpage TabTabelle
-      Kontext "TabTabelle"
-      if Right(TabellenName.GetText , 1) <> "1"  then warnlog "the table is NOt inserted correctly after accepting the changes "
-      TabTabelle.Cancel
-   catch
-      Warnlog "Something wrong in inserting table  after accepting the changes!"
-   endcatch
-
-   '/// Close the document
-   Call hCloseDocument
-endcase
-
-'----------------------------------------------------------------------------
-
-testcase tRedlining_12
-
-  '/// Test inserted field (date)
-  printlog "inserted field (date)"
-
-   '/// New document
-   Call hNewDocument
-
-   UseBindings
-   '/// Edit / Changes / Record
-   EditChangesRecord
-
-   '/// Insert a date , insert / field / date
-   InsertFieldsDate
-
-   Call wTypeKeys "<Home>"
-   Sleep 1
-
-   '/// Check if the date is inserted correctly before accepting the changes
-   try
-      EditFields
-      Kontext "FeldbefehlBearbeitenDokument"
-      FeldbefehlBearbeitenDokument.Cancel
-   catch
-      Warnlog "Something wrong in inserting date  before accepting the changes!"
-   endcatch
-
-   '/// Edit / Changes / Accept or Reject
-   EditChangesAcceptOrReject
-   Kontext "Redlining"
-   '/// + Select tabpage 'List' ///
-   TabControl.SetPage TabListe
-   '/// + Select 'Accept All'///
-   AlleAkzeptieren.Click
-   Sleep 2
-   '/// + Close Redlining dialog
-   Redlining.Close
-   Sleep 1
-
-   Call wTypeKeys "<Home>"
-
-   '/// Check if the date is inserted correctly after accepting the changes
-   try
-      EditFields
-      Kontext "FeldbefehlBearbeitenDokument"
-      FeldbefehlBearbeitenDokument.Cancel
-   catch
-      Warnlog "Something wrong in inserting date after accepting the changes!"
-   endcatch
-
-   '/// Close the document
-   Call hCloseDocument
-endcase
-
-'----------------------------------------------------------------------------
-
-testcase tRedlining_13
-
-  '/// Test inserted footnotes
-  printlog "inserted footnotes"
-
-   '/// New document
-   Call hNewDocument
-
-   UseBindings
-   '/// Edit / Changes / Record
-   EditChangesRecord
-
-   '/// Insert a footnote , insert / footnotes
-   InsertFootnote
-   Kontext "FussnoteEinfuegen"
-   Sleep 1
-   FussnoteEinfuegen.OK
-
-   Call wTypeKeys "<PageUp><Home>"
-
-   '/// Check if the footnote is inserted correctly before
-   '/// + accepting the changes
-   try
-      EditFootnote
-      Kontext "FussnoteBearbeiten"
-      FussnoteBearbeiten.Cancel
-   catch
-      Warnlog "Something wrong in inserting footnote before accepting the changes!"
-   endcatch
-
-   '/// Edit / Changes / Accept or Reject
-   EditChangesAcceptOrReject
-   Kontext "Redlining"
-   '/// + Select tabpage 'List' ///
-   TabControl.SetPage TabListe
-   '/// + Select 'Accept All'///
-   AlleAkzeptieren.Click
-   Sleep 2
-   '/// + Close Redlining dialog
-   Redlining.Close
-
-   Call wTypeKeys "<Home>"
-
-   '/// Check if the footnote is inserted correctly after accepting the changes
-   try
-      EditFootnote
-      Kontext "FussnoteBearbeiten"
-      FussnoteBearbeiten.Cancel
-   catch
-      Warnlog "Something wrong in inserting footnote after accepting the changes!"
-   endcatch
-
-   '/// Close the document
-   Call hCloseDocument
-
-endcase
-
-'----------------------------------------------------------------------------
-
-testcase tRedlining_14
-
-  '/// Test inserted header
-  printlog "inserted header"
-
-  '/// New document
-  Call hNewDocument
-
-  '/// Edit / Changes / Record
-  EditChangesRecord
-
-  '/// Insert a header , insert / header
-  DocumentWriter.UseMenu
-  MenuSelect(Menugetitemid(4))
-  Sleep 2
-  MenuSelect(Menugetitemid(9))
-  Sleep 2
-  MenuSelect(Menugetitemid(1))
-  Sleep 2
-
-  '/// input some test words in the header
-  Call wTypeKeys "Header Test"
-
-  '/// Check if the header is inserted correctly before
-  '/// + accepting the changes
-  FormatPageWriter
-  Kontext
-  Active.SetPage TabKopfzeile
-  Kontext "TabKopfzeile"
-  if Not KopfzeileMitAbstand.IsChecked then Warnlog "The header is NOT inserted correctly before accepting the changes!"
-  TabKopfzeile.Cancel
-
-  '/// Edit / Changes / Accept or Reject
-  EditChangesAcceptOrReject
-  Kontext "Redlining"
-  '/// + Select tabpage 'List' ///
-  TabControl.SetPage TabListe
-  '/// + Select 'Accept All'///
-  AlleAkzeptieren.Click
-  Sleep 2
-  '/// + Close Redlining dialog
-  Redlining.Close
-
-  '/// Check if the header is inserted correctly after accepting the changes
-  FormatPageWriter
-  Kontext
-  Active.SetPage TabKopfzeile
-  Kontext "TabKopfzeile"
-  if Not KopfzeileMitAbstand.IsChecked then Warnlog "The header is NOT inserted correctly after accepting the changes!"
-  TabKopfzeile.Cancel
-
-  '/// Close the document
-  Call hCloseDocument
-
-endcase
-
-'----------------------------------------------------------------------------
-
-testcase tRedlining_15
-
-  '/// Test inserted footer
-  printlog "inserted footer"
-
-  '/// New document
-  Call hNewDocument
-
-  '/// Edit / Changes / Record
-  EditChangesRecord
-
-  '/// Insert a footer , insert / footer
-  DocumentWriter.UseMenu
-  MenuSelect(Menugetitemid(4))
-  Sleep 2
-  MenuSelect(Menugetitemid(10))
-  Sleep 2
-  MenuSelect(Menugetitemid(1))
-  Sleep 2
-
-  Call wTypeKeys "Footer Test"
-
-  '/// Check if the footer is inserted correctly before
-  '/// + accepting the changes
-  FormatPageWriter
-  Kontext
-  Active.SetPage TabFusszeile
-  Kontext "TabFusszeile"
-  if Not FusszeileMitAbstand.IsChecked then Warnlog "The footer is NOT inserted correctly before accepting the changes!"
-  TabFusszeile.Cancel
-
-  '/// Edit / Changes / Accept or Reject
-  EditChangesAcceptOrReject
-  Kontext "Redlining"
-  '/// + Select tabpage 'List' ///
-  TabControl.SetPage TabListe
-  '/// + Select 'Accept All'///
-  AlleAkzeptieren.Click
-  Sleep 2
-  '/// + Close Redlining dialog
-  Redlining.Close
-
-  '/// Check if the footer is inserted correctly after accepting the changes
-  FormatPageWriter
-  Kontext
-  Active.SetPage TabFusszeile
-  Kontext "TabFusszeile"
-  if Not FusszeileMitAbstand.IsChecked then Warnlog "The footer is NOT inserted correctly after accepting the changes!"
-  TabFusszeile.Cancel
-
-  '/// Close the document
-  Call hCloseDocument
-
-endcase
-
-'----------------------------------------------------------------------------
-
-testcase tRedlining_16
-
-  Dim iComparison1$ , iComparison2$
-
-  '/// Test moved paragraphs/chapters
-  printlog "moved paragraphs/chapters"
-
-   '/// New document
-   Call hNewDocument
-
-   '/// Insert a paragraph ( Open the test file )
-   '/// + There are 3 lines
-   '/// + Redlining test => OK_1  <--  No numbering
-   '/// + Redlining test => OK_2  <--  Numbering style : list 2
-   '/// + Redlining test => OK_3  <--  Numbering style : list 3
-
-   hFileOpenLocally(  gTesttoolPath + "writer\optional\input\redlining\tRedlining_15.sxw" )
-   
-
-   Call wTypeKeys "<Up>" , 3
-
-   Call wTypeKeys "<Down>"
-   FormatParagraph
-   Kontext
-   Active.SetPage TabNumerierungAbsatz
-   Kontext "TabNumerierungAbsatz"
-   iComparison1$ = Vorlage.GetSelText
-   TabNumerierungAbsatz.Cancel
-
-   Call wTypeKeys "<Down>"
-   FormatParagraph
-   Kontext
-   Active.SetPage TabNumerierungAbsatz
-   Kontext "TabNumerierungAbsatz"
-   iComparison2$ = Vorlage.GetSelText
-   TabNumerierungAbsatz.Cancel
-
-   UseBindings
-   '/// Edit / Changes / Record
-   EditChangesRecord
-
-   Call wTypeKeys "<Up><End>"
-   Call wTypeKeys "<Shift Down Right>"
-   '/// Cut the selection
-   EditCut
-
-   Call wTypeKeys "<Up>" , 3
-   Call wTypeKeys "<End><Return>"
-   '/// paste under the first line
-   EditPaste
-
-   Call wTypeKeys "<Up><Up><End><Delete>"
-
-   '/// Check if the paragraph is moved correctly before
-   '/// + accepting the changes
-   Call wTypeKeys "<Up>" , 3
-   Call wTypeKeys "<Down><End>"
-   Call wTypeKeys "<Shift Left>"
-   try
-       EditCopy
-   catch
-       Warnlog "Bullets cannot be removed by Del key"
-       Call wTypeKeys "<Down><End>"
-       Call wTypeKeys "<Shift Left>"
-       EditCopy
-   endcatch
-
-   if GetClipboardText <> "3" then Warnlog "A.The paragraph is moved incorrect before accepting the changes - 2nd line"
-
-   FormatParagraph
-   Kontext
-   Active.SetPage TabNumerierungAbsatz
-   Kontext "TabNumerierungAbsatz"
-   if iComparison2$ <> Vorlage.GetSelText then Warnlog "B.The paragraph is moved incorrect before accepting the changes - 2nd line"
-   TabNumerierungAbsatz.Cancel
-
-   Call wTypeKeys "<Down><End>"
-   Call wTypeKeys "<Shift Left>"
-   EditCopy
-   if GetClipboardText <> "2" then Warnlog "A. The paragraph is moved incorrect before accepting the changes - 3rd line"
-
-   FormatParagraph
-   Kontext
-   Active.SetPage TabNumerierungAbsatz
-   Kontext "TabNumerierungAbsatz"
-   if iComparison1$ <> Vorlage.GetSelText then Warnlog "B . The paragraph is moved incorrect before accepting the changes - 3rd line"
-   TabNumerierungAbsatz.Cancel
-
-   '/// Edit / Changes / Accept or Reject
-   EditChangesAcceptOrReject
-   Sleep 2
-   Kontext "Redlining"
-   Sleep 2
-   '/// + Select tabpage 'List' ///
-   TabControl.SetPage TabListe
-   Sleep 2
-   '/// + Select 'Accept All'///
-   AlleAkzeptieren.Click
-   Sleep 2
-   '/// + Close Redlining dialog
-   Redlining.Close
-   Sleep 2
-
-   '/// Check if the footnote is inserted correctly after
-   '/// + accepting the changes
-   Call wTypeKeys "<Up>" , 3
-   Call wTypeKeys "<Down><End>"
-   Call wTypeKeys "<Shift Left>"
-   try
-       EditCopy
-   catch
-       Warnlog "Bullets cannot be removed by Del key"
-       Call wTypeKeys "<Down><End>"
-       Call wTypeKeys "<Shift Left>"
-       EditCopy
-   endcatch
-   if GetClipboardText <> "3" then Warnlog "A.The paragraph is moved incorrect after accepting the changes - 2nd line"
-
-   FormatParagraph
-   Kontext
-   Active.SetPage TabNumerierungAbsatz
-   Kontext "TabNumerierungAbsatz"
-   if iComparison2$ <> Vorlage.GetSelText then Warnlog "B.The paragraph is moved incorrect after accepting the changes - 2nd line"
-   TabNumerierungAbsatz.Cancel
-
-   Call wTypeKeys "<Down><End>"
-   Call wTypeKeys "<Shift Left>"
-   EditCopy
-   if GetClipboardText <> "2" then Warnlog "A. The paragraph is moved incorrect after accepting the changes - 3rd line"
-
-   FormatParagraph
-   Kontext
-   Active.SetPage TabNumerierungAbsatz
-   Kontext "TabNumerierungAbsatz"
-   if iComparison1$ <> Vorlage.GetSelText then Warnlog "The paragraph is moved incorrect after accepting the changes - 3rd line"
-   TabNumerierungAbsatz.Cancel
-
-    PrintLog "Close active documents"
-    Do Until GetDocumentCount = 0
-        Call hCloseDocument
-    Loop
-endcase
-
diff --git a/testautomation/writer/optional/includes/redlining/w_redlining2.inc b/testautomation/writer/optional/includes/redlining/w_redlining2.inc
deleted file mode 100644
index f3930b8db721..000000000000
--- a/testautomation/writer/optional/includes/redlining/w_redlining2.inc
+++ /dev/null
@@ -1,1267 +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 : helge.delfs@oracle.com
-'*
-'* short description : Test of the Redlinig function - 2
-'*
-'************************************************************************
-'*
-' #1 tAcceptReject_1           'Test Default settings
-' #1 tAcceptReject_2           'Test Accept in  Edit / Changes / Accept or Reject
-' #1 tAcceptReject_3           'Test Reject in  Edit / Changes / Accept or Reject
-' #1 tAcceptReject_4           'Test Accept All in  Edit / Changes / Accept or Reject
-' #1 tAcceptReject_5           'Test Reject All in  Edit / Changes / Accept or Reject
-' #1 tAcceptReject_6           'Test filter changes by author
-' #1 tAcceptReject_7           'Test filter changes by time
-' #1 tAcceptReject_8           'Test filter changes by action
-' #1 tAcceptReject_9           'Test filter changes by comment
-' #1 tAcceptReject_10          'Adding a comment to a change over the context menu
-' #1 tAcceptReject_11          'Sort the list of changes  over context menu -- action
-' #1 tAcceptReject_12          'Sort the list of changes  over context menu -- author
-' #1 tAcceptReject_13          'Sort the list of changes  over context menu -- date
-' #1 tAcceptReject_14          'Sort the list of changes  over context menu -- comment
-' #1 tAcceptReject_15          'Sort the list of changes  over context menu -- document position
-'*
-'\***********************************************************************
-
-testcase tAcceptReject_1
-
-  '/// Test focus -- the focus must be set in the document on the change pointed in the dialog.
-  printlog "Test focus -- the focus must be set in the document on the change pointed in the dialog"
-
-   '/// New document
-   Call hNewDocument
-
-   'Insert some test sentences
-   Call wTypeKeys "Redlining test => OK_1<Return><Return>"
-   Call wTypeKeys "Redlining test => OK_2"
-
-   UseBindings
-   '/// Edit / Changes / Record
-   EditChangesRecord
-
-   '/// Multi operations : Insert a new sentence , and delete some test text
-   Call wTypeKeys "<Up>"
-   Call wTypeKeys "Focus Test"
-   Call wTypeKeys "<Down><End>"
-   Call wTypeKeys "<Backspace>" , 3
-
-   '/// Set the focus to the Start
-   Call wTypeKeys "<Up>" , 3
-   Call wTypeKeys "<Home>"
-
-   '/// Edit / Changes / Accept or Reject
-   EditChangesAcceptOrReject
-   Sleep 2
-   Kontext "Redlining"
-   Sleep 2
-
-   '/// + Select tabpage 'List' ///
-   TabControl.SetPage TabListe
-   Sleep 2
-
-   '/// Select the 1st -- insertion
-   ListItem.TypeKeys "<Up>"
-   Sleep 2
-
-   Kontext "DocumentWriter"
-   Call wTypeKeys "<Shift Home>"
-   EditCopy
-   Sleep 1
-   if GetClipboardText <> "Focus Test" then Warnlog "The inserted focus location is incorrect! Getting " +GetClipboardText
-
-   Kontext "Redlining"
-   '/// Select the 2nd -- deletion
-   ListItem.TypeKeys "<Down>"
-   Sleep 2
-
-   Kontext "DocumentWriter"
-   Call wTypeKeys "<End>"
-   Call wTypeKeys "<Shift Left>" , 4
-   Sleep 1
-   EditCopy
-   Sleep 1
-   if GetClipboardText <> "O" then Warnlog "The deleted focus location is incorrect! Getting " +GetClipboardText
-
-   '/// Close Redlining dialog
-   Kontext "Redlining"
-   Redlining.Close
-
-   '/// Close the document
-   Call hCloseDocument
-
-endcase
-
-'----------------------------------------------------------------------------
-
-testcase tAcceptReject_2
-
-  '/// Test Accept in  Edit / Changes / Accept or Reject
-  printlog "Test Accept in  Edit / Changes / Accept or Reject "
-
-   '/// New document
-   Call hNewDocument
-
-   'Insert some test sentences
-   Call wTypeKeys "Redlining test => OK_1<Return><Return>"
-   Call wTypeKeys "Redlining test => OK_2"
-
-   UseBindings
-   '/// Edit / Changes / Record
-   EditChangesRecord
-
-   '/// Multi operations : Insert a new sentence , and
-   '/// + delete some test text
-   Call wTypeKeys "<Up>"
-   Call wTypeKeys "Focus Test"
-   Call wTypeKeys "<Down><End>"
-   Call wTypeKeys "<Backspace>" , 1
-   Call wTypeKeys "<Up>"
-
-   '/// Edit / Changes / Accept or Reject
-   EditChangesAcceptOrReject
-   Sleep 2
-   Kontext "Redlining"
-   Sleep 2
-   '/// + Select tabpage 'List' ///
-   TabControl.SetPage TabListe
-   Sleep 2
-   '/// + Select 'Accept'
-   Akzeptieren.Click
-   Sleep 2
-   '/// + Close Redlining dialog
-   Redlining.Close
-   Sleep 2
-
-   '/// Check if the configuration is all right
-   Call wTypeKeys "<Up>" , 3
-   Sleep 1
-   Call wTypeKeys "<Down><Home><Shift End>"
-   Sleep 1
-   EditCopy
-   Sleep 1
-   if GetClipboardText <> "Focus Test" then Warnlog "The inserted text is incorrect! Getting" + GetClipboardText
-
-   Call wTypeKeys "<Down><End>"
-   Sleep 1
-   Call wTypeKeys "<Shift Left>" , 4
-   Sleep 1
-   EditCopy
-   Sleep 1
-   if GetClipboardText <> " OK_" then Warnlog "The deleted text is incorrect! Getting" + GetClipboardText
-
-   '/// Close the document
-   Call hCloseDocument
-
-endcase
-
-'----------------------------------------------------------------------------
-
-testcase tAcceptReject_3
-
-  '/// Test Reject in  Edit / Changes / Accept or Reject
-  printlog "Test Reject in  Edit / Changes / Accept or Reject "
-
-   '/// New document
-   Call hNewDocument
-
-   'Insert some test sentences
-   Call wTypeKeys "Redlining test => OK_1<Return><Return>"
-   Call wTypeKeys "Redlining test => OK_2"
-
-   UseBindings
-   '/// Edit / Changes / Record
-   EditChangesRecord
-
-   '/// Multi operations : Insert a new sentence , and delete some test text
-   Call wTypeKeys "<Up>"
-   Call wTypeKeys "Focus Test"
-   Call wTypeKeys "<Down><End>"
-   Call wTypeKeys "<Backspace>" , 3
-   Call wTypeKeys "<Up>" , 3
-   Call wTypeKeys "<Home>"
-
-   '/// Edit / Changes / Accept or Reject
-   EditChangesAcceptOrReject
-   Kontext "Redlining"
-
-   '/// + Select tabpage 'List' ///
-   TabControl.SetPage TabListe
-   Sleep 1
-
-   ListItem.TypeKeys "<Up>"
-   Sleep 2
-
-   '/// + Select 'Reject'
-   Ablehnen.Click
-   Sleep 2
-
-   '/// + Close Redlining dialog
-   Redlining.Close
-
-   '/// Check if the configuration is all right
-   Call wTypeKeys "<Up>" , 3
-   Call wTypeKeys "<Down><Home><Shift End>"
-
-   try
-      EditCopy
-      Warnlog "The inserted text should be rejected , so EditCopy shouldn't be actived!"
-   catch
-   endcatch
-
-   Call wTypeKeys "<Down><End>"
-   Call wTypeKeys "<Shift Left>" , 4
-   EditCopy
-   if GetClipboardText <> "O" then Warnlog "The deleted text should be deleted and their location should be still reserved! Getting " + GetClipboardText
-
-   '/// Close the document
-   Call hCloseDocument
-
-endcase
-
-'----------------------------------------------------------------------------
-
-testcase tAcceptReject_4
-
-  '/// Test Accept All in  Edit / Changes / Accept or Reject
-  printlog "Test Accept All in  Edit / Changes / Accept or Reject "
-
-   '/// + New document
-   Call hNewDocument
-
-   'Insert some test sentences
-   Call wTypeKeys "Redlining test => OK_1<Return><Return>"
-   Call wTypeKeys "Redlining test => OK_2"
-
-   UseBindings
-   '/// Edit / Changes / Record
-   EditChangesRecord
-
-   '/// Multi operations : Insert a new sentence , and delete some test text
-   Call wTypeKeys "<Up>"
-   Sleep 1
-   Call wTypeKeys "Focus Test"
-   Sleep 1
-   Call wTypeKeys "<Down><End>"
-   Sleep 1
-   Call wTypeKeys "<Backspace>" , 3
-   Sleep 2
-   Call wTypeKeys "<Up>" , 3
-   Sleep 2
-   Call wTypeKeys "<Home>"
-   Sleep 1
-
-   '/// Edit / Changes / Accept or Reject
-   EditChangesAcceptOrReject
-   Kontext "Redlining"
-   Sleep 1
-   '/// + Select tabpage 'List' ///
-   TabControl.SetPage TabListe
-   Sleep 1
-   '/// + Select 'Accept All'
-   AlleAkzeptieren.Click
-   Sleep 2
-   '/// + Close Redlining dialog
-   Redlining.Close
-   Sleep 1
-
-   '/// Check if the configuration is all right
-   Call wTypeKeys "<Up>" , 3
-   Sleep 1
-   Call wTypeKeys "<Down><Home><Shift End>"
-   Sleep 1
-   EditCopy
-   Sleep 1
-   if GetClipboardText <> "Focus Test" then Warnlog "The inserted text is incorrect! Getting " + GetClipboardText
-
-   Call wTypeKeys "<Down><End>"
-   Sleep 2
-   Call wTypeKeys "<Shift Left>" , 4
-   Sleep 2
-   EditCopy
-   if GetClipboardText <> "=> O" then Warnlog "The deleted text is incorrect! Getting " + GetClipboardText
-
-   '/// Close the document
-   Call hCloseDocument
-
-endcase
-
-'----------------------------------------------------------------------------
-
-testcase tAcceptReject_5
-
-  '/// Test Reject all in  Edit / Changes / Accept or Reject
-  printlog "Test Reject all in  Edit / Changes / Accept or Reject "
-
-   '/// New document
-   Call hNewDocument
-
-   'Insert some test sentences
-   Call wTypeKeys "Redlining test => OK_1<Return><Return>"
-   Call wTypeKeys "Redlining test => OK_2"
-
-   UseBindings
-   '/// Edit / Changes / Record
-   EditChangesRecord
-
-   '/// Multi operations : Insert a new sentence , and delete some test text
-   Call wTypeKeys "<Up>"
-   Call wTypeKeys "Focus Test"
-   Call wTypeKeys "<Down><End>"
-   Call wTypeKeys "<Backspace>" , 3
-   wait 500
-   Call wTypeKeys "<Up>" , 3
-   wait 500
-   Call wTypeKeys "<Home>"
-
-   '/// Edit / Changes / Accept or Reject
-   EditChangesAcceptOrReject
-   Kontext "Redlining"
-   '/// + Select tabpage 'List' ///
-   TabControl.SetPage TabListe
-   Sleep 1
-   '/// + Select 'Reject All'
-   AlleAblehnen.Click
-   Sleep 2
-   '/// + Close Redlining dialog
-   Redlining.Close
-
-   '/// Check if the configuration is all right
-   Call wTypeKeys "<Up>" , 3
-   wait 500
-   Call wTypeKeys "<Down><Home><Shift End>"
-   wait 500
-   try
-      EditCopy
-      Warnlog "The inserted text should be rejected , so EditCopy shouldn't be actived!"
-   catch
-   endcatch
-
-   Call wTypeKeys "<Down><End>"
-   Call wTypeKeys "<Shift Left>" , 4
-   EditCopy
-   if GetClipboardText <> "OK_2" then Warnlog "The deleted text should not be deleted! Getting " + GetClipboardText
-
-   '/// Close the document
-   Call hCloseDocument
-
-endcase
-
-'----------------------------------------------------------------------------
-
-testcase tAcceptReject_6
-
-  Dim sFirstName  , sLastName  as String
-  Dim sFirstName1 , sLastName1 as String
-  Dim sFirstName2 , sLastName2 as String
-
-  sFirstName1 = "Test1" : sLastName1 = "Test1"
-  sFirstName2 = "Test2" : sLastName2 = "Test2"
-
-  '/// Test filter changes by author
-  printlog "Test filter changes by author"
-
-   '/// New document
-   Call hNewDocument
-
-   'Insert some test sentences
-   Call wTypeKeys "Redlining test => OK_1<Return>"
-   Call wTypeKeys "Redlining test => OK_2"
-
-   '/// Change author to author1 :Test1 Test1
-   ToolsOptions
-   Call hToolsOptions("STAROFFICE","USERDATA")
-   sFirstName = VorName.GetText
-   sLastName  = ZuName.GetText
-   VorName.SetText sFirstName1
-   ZuName.SetText  sLastName1
-   Kontext "ExtrasOptionenDlg"
-   ExtrasOptionenDlg.OK
-
-   UseBindings
-   '/// Edit / Changes / Record
-   EditChangesRecord
-
-   '/// author1 : delete some text
-   Call wTypeKeys "<Up><End>"
-   Sleep 1
-   Call wTypeKeys "<Backspace>" , 3
-   Sleep 1
-
-   '/// Change author to author2 :Test2 Test2
-   ToolsOptions
-   Call hToolsOptions("STAROFFICE","USERDATA")
-   VorName.SetText sFirstName2
-   ZuName.SetText  sLastName2
-   Kontext "ExtrasOptionenDlg"
-   ExtrasOptionenDlg.OK
-
-   '/// author2 : delete some other text
-   Call wTypeKeys "<Down><End>"
-   Sleep 1
-   Call wTypeKeys "<Backspace>" , 4
-   Sleep 1
-
-   '/// Edit / Changes / Accept or Reject
-   EditChangesAcceptOrReject
-   Kontext "Redlining"
-   '/// + Select tabpage 'Filter' ///
-   TabControl.SetPage TabFilter
-   Sleep 1
-   '/// + Check 'Author'
-   Autor.Check
-   Sleep 2
-   '/// + Select Author2
-   	try
-   		AutoListe.Select 2
-    catch
-    	Warnlog "Change of author (User name) disregarded when changed during Office session"
-		Redlining.Close
-		Call hCloseDocument
-		goto endsub
-	endcatch
-	Sleep 2
-	'/// + Select tabpage 'List' ///
-	TabControl.SetPage TabListe
-	Sleep 2
-	'/// + Select 'Accept All'///
-	AlleAkzeptieren.Click
-	Sleep 2
-
-   '/// + Close Redlining dialog
-   Redlining.Close
-   Sleep 1
-
-   '/// + Check if Filter works well
-   Call wTypeKeys "<Up>" , 2
-   Sleep 1
-   Call wTypeKeys "<End>"
-   Sleep 1
-   Call wTypeKeys "<Shift Left>" , 6
-   Sleep 1
-   EditCopy
-   Sleep 1
-   if GetClipboardText <>  "> O" then Warnlog "The deleted text by author1 is incorrect! Getting " + GetClipboardText
-
-   Call wTypeKeys "<Down><End>"
-   Sleep 1
-   Call wTypeKeys "<Shift Left>" , 6
-   Sleep 1
-   EditCopy
-   Sleep 1
-   if GetClipboardText <> "st => " then Warnlog "The deleted text by author2 is incorrect! Getting " + GetClipboardText
-
-   'Change author to default
-   ToolsOptions
-   Call hToolsOptions("STAROFFICE","USERDATA")
-   VorName.SetText sFirstName
-   ZuName.SetText  sLastName
-   Kontext "ExtrasOptionenDlg"
-   ExtrasOptionenDlg.OK
-
-   '/// + Close the document
-   Call hCloseDocument
-
-endcase
-
-'----------------------------------------------------------------------------
-
-testcase tAcceptReject_7
-
-  Dim sTime as String
-
-  '/// Test filter changes by date
-  printlog "Test filter changes by date"
-
-   '/// New document
-   Call hNewDocument
-
-   '/// Insert some test sentences
-   Call wTypeKeys "Redlining test => OK_1<Return>"
-   Call wTypeKeys "Redlining test => OK_2"
-
-   UseBindings
-   '/// Edit / Changes / Record
-   EditChangesRecord
-
-   '/// delete some text in first line
-   Call wTypeKeys "<Up><End>"
-   Call wTypeKeys "<Backspace>" , 3
-
-   sTime = Str ( Format( Now  ) )
-   sTime = Mid ( sTime , 12 , 5 )
-
-   '/// wait 70 seconds
-   Sleep 70
-
-   '/// delete some text in second line
-   Call wTypeKeys "<Down><End>"
-   Call wTypeKeys "<Backspace>" , 2
-
-   '/// Edit / Changes / Accept or Reject
-   EditChangesAcceptOrReject
-   Kontext "Redlining"
-   '/// + Select tabpage 'Filter' ///
-   TabControl.SetPage TabFilter
-   Sleep 1
-   '/// + Check 'Date'
-   Datum.Check
-   Sleep 1
-   '/// + Select earlier than
-   DatumListe.Select 1
-   Sleep 1
-   '/// + insert time
-   Zeit1.SetText sTime
-   Sleep 1
-   '/// + Select tabpage 'List' ///
-   TabControl.SetPage TabListe
-   Sleep 1
-   '/// + Select 'Accept All'///
-   AlleAkzeptieren.Click
-   Sleep 2
-   '/// + Close Redlining dialog
-   Redlining.Close
-
-   '/// + Check if Filter works well
-   Call wTypeKeys "<Up>" , 2
-   Call wTypeKeys "<End>"
-   Call wTypeKeys "<Shift Left>" , 4
-   EditCopy
-   if GetClipboardText <>  "=> O" then Warnlog "The deleted text in first line is incorrect!"
-
-   Call wTypeKeys "<Down><End>"
-   Call wTypeKeys "<Shift Left>" , 4
-   EditCopy
-   if GetClipboardText <> "OK" then Warnlog "The deleted text in second line is incorrect!"
-
-   '/// + Close the document
-   Call hCloseDocument
-
-endcase
-
-'----------------------------------------------------------------------------
-
-testcase tAcceptReject_8
-
-	Dim iComparison1$,iComparison2$,iComparison3$,iComparison4$
-	
-	'/// Test filter changes by action
-	printlog "Test filter changes by action"
-	
-	'/// New document
-	Call hNewDocument
-	
-	'Insert some test sentences
-	Call wTypeKeys "Redlining test => OK_1<Return>"
-	Call wTypeKeys "Redlining test => OK_2"
-	
-	UseBindings
-	'/// Edit / Changes / Record
-	EditChangesRecord
-	
-	'/// Change the first line's attribute .
-	Call wTypeKeys "<Up><Home><Shift End>"
-	
-	FormatCharacter
-	Kontext
-	Active.SetPage TabFont
-	kontext "TabFont"
-	
-	if gAsianSup = True then
-		FontWest.Select  5
-		iComparison1$ = FontWest.GetSelText
-		try
-            StyleWest.Select 3
-        catch
-            StyleWest.Select StyleWest.GetItemCount
-        endcatch
-		iComparison2$ = StyleWest.GetSelText
-		SizeWest.Select  5
-		iComparison3$ = SizeWest.GetSelText
-	else
-		Font.Select  5
-		iComparison1$ = Font.GetSelText
-		try
-            Style.Select 3
-        catch
-            Style.Select Style.GetItemCount
-        endcatch
-		iComparison2$ = Style.GetSelText
-		Size.Select  5
-		iComparison3$ = Size.GetSelText
-	end if
-	
-	wait 100
-	Kontext
-	Active.Setpage TabHyperlinkZeichen
-	Kontext "TabHyperlinkZeichen"
-	UrlName.Settext "http://www.sun.com/"
-	Sleep 1
-	TargetFrame.Select 2
-	Sleep 1
-	iComparison4$ = TargetFrame.GetSelText
-	Sleep 1
-	TabHyperlinkZeichen.Ok
-	
-	'/// Delete some text in second line
-	Call wTypeKeys "<Down><End>"
-	Call wTypeKeys "<Backspace>" , 3
-	
-	'/// Edit / Changes / Accept or Reject
-	EditChangesAcceptOrReject
-	Kontext "Redlining"
-	'/// + Select tabpage 'Filter' ///
-	TabControl.SetPage TabFilter
-	Sleep 1
-	'/// + Check 'Action' , select format
-	Aktion.Check
-	Sleep 1
-	Aktionsliste.Select 3
-	Sleep 1
-	'/// + Select tabpage 'List' ///
-	TabControl.SetPage TabListe
-	Sleep 1
-	'/// + Select 'Accept All'///
-	AlleAkzeptieren.Click
-	Sleep 2
-	'/// + Close Redlining dialog
-	Redlining.Close
-	
-	'/// Check if Filter works well
-	Call wTypeKeys "<Up><Home><Right>"
-	FormatCharacter
-	Kontext
-	Active.SetPage TabFont
-	Kontext "TabFont"
-	if gAsianSup = True then
-		if iComparison1$ <> FontWest.GetSelText  then Warnlog "Wrong Font in first line!"
-		if iComparison2$ <> StyleWest.GetSelText then Warnlog "Wrong Fontstyle in first line!"
-		if iComparison3$ <> SizeWest.GetSelText  then QAErrorlog "#108881#Wrong Fontsize in first line!"
-	else
-		if iComparison1$ <> Font.GetSelText  then Warnlog "Wrong Font in first line!"
-		if iComparison2$ <> Style.GetSelText then Warnlog "Wrong Fontstyle in first line!"
-		if iComparison3$ <> Size.GetSelText  then Warnlog "Wrong Fontsize in first line!"
-	end if
-	wait 100
-	Kontext
-	Active.Setpage TabHyperlinkZeichen
-	Kontext "TabHyperlinkZeichen"
-	if UrlName.Gettext <> "http://www.sun.com/"  then Warnlog "Wrong hyperlink has been added to text!"
-	if iComparison4$   <> TargetFrame.GetSelText then Warnlog "Wrong targetFrame has been added to text!"
-	TabHyperlinkZeichen.Cancel
-	
-	Call wTypeKeys "<Down><End>"
-	Call wTypeKeys "<Shift Left>" , 4
-	EditCopy
-	if GetClipboardText <> "O" then Warnlog "The deleted text is incorrect!"
-	
-	'/// Close the document
-	Call hCloseDocument
-
-endcase
-
-'----------------------------------------------------------------------------
-
-testcase tAcceptReject_9
-
-  '/// Test filter changes by comments
-  printlog "Test filter changes by comments"
-
-   '/// New document
-   Call hNewDocument
-
-   '/// Insert some test sentences
-   Call wTypeKeys "Redlining test => OK_1<Return>"
-   Call wTypeKeys "Redlining test => OK_2"
-
-   UseBindings
-   '/// Edit / Changes / Record
-   EditChangesRecord
-
-   '/// delete some text in first line .
-   Call wTypeKeys "<Up><End>"
-   Call wTypeKeys "<Backspace>" , 3
-
-   '/// insert comment1: Edit / Changes / Comment
-   EditChangesComment
-   Kontext "Kommentar"
-    KommentarText.SetText "Comment1"
-   Kommentar.OK
-
-   '/// delete some text in second line .
-   Call wTypeKeys "<Down><End>"
-   Call wTypeKeys "<Backspace>" , 2
-
-   '/// insert comment2: Edit / Changes / Comment
-   EditChangesComment
-   Kontext "Kommentar"
-    KommentarText.SetText "Comment2"
-   Kommentar.OK
-
-   '/// Edit / Changes / Accept or Reject
-   EditChangesAcceptOrReject
-   Kontext "Redlining"
-   '/// + Select tabpage 'Filter' ///
-   TabControl.SetPage TabFilter
-   Sleep 1
-   '/// + Check 'comment' , and input comment1 in the relevant editbox
-   Comment.Check
-   CommentText.SetText "Comment1"
-   '/// + Select tabpage 'List' ///
-   TabControl.SetPage TabListe
-   Sleep 1
-   '/// + Select 'Accept All'///
-   AlleAkzeptieren.Click
-   Sleep 1
-   '/// + Close Redlining dialog
-   Redlining.Close
-
-   '/// Check if the configuration is all right
-   Call wTypeKeys "<Up><End>"
-   Call wTypeKeys "<Shift Left>" , 4
-   EditCopy
-   if GetClipboardText <>  "=> O" then Warnlog "The deleted text in first line is incorrect!"
-
-   Call wTypeKeys "<Down><End>"
-   Call wTypeKeys "<Shift Left>" , 4
-   EditCopy
-   if GetClipboardText <> "OK" then Warnlog "The deleted text in second line is incorrect!"
-
-   '/// Close the document
-   Call hCloseDocument
-
-endcase
-
-'----------------------------------------------------------------------------
-
-testcase tAcceptReject_10
-
-  '/// Adding a comment to a change over the context menu.
-  printlog "Adding a comment to a change over the context menu."
-
-   '/// New document
-   Call hNewDocument
-
-   '/// Insert some test sentences
-   Call wTypeKeys "Redlining test => O1<Return>"
-   Call wTypeKeys "Redlining test => K2"
-
-   UseBindings
-   '/// Edit / Changes / Record
-   EditChangesRecord
-
-   '/// delete some text in first line .
-   Call wTypeKeys "<Up><End>"
-   Call wTypeKeys "<Backspace>"
-
-   '/// delete some text in second line .
-   Call wTypeKeys "<Down><End>"
-   Call wTypeKeys "<Backspace>"
-
-   '/// Edit / Changes / Accept or Reject
-   EditChangesAcceptOrReject
-   Kontext "Redlining"
-
-   '/// + Select tabpage 'List'
-   TabControl.SetPage TabListe
-   Sleep 1
-
-   '/// + insert comment with context menu
-   '/// + insert comment for first line
-   ListItem.TypeKeys "<Up>"
-   ListItem.OpenContextMenu
-   hMenuSelectNr(1)
-   Sleep 1
-
-   Kontext "NotizBearbeiten"
-    Texteingabe.SetText "Comment1"
-   NotizBearbeiten.OK
-
-   '/// + insert comment for second line
-   Kontext "Redlining"
-   ListItem.TypeKeys "<Down>"
-   ListItem.OpenContextMenu
-   hMenuSelectNr(1)
-
-   Kontext "NotizBearbeiten"
-    Texteingabe.SetText "Comment2"
-   NotizBearbeiten.OK
-
-   Kontext "Redlining"
-
-   '/// + Select tabpage 'Filter' ///
-   TabControl.SetPage TabFilter
-   Sleep 1
-   '/// + Check 'comment' , and input comment1 in the relevant editbox
-   Comment.Check
-   CommentText.SetText "Comment1"
-   '/// + Select tabpage 'List' ///
-   TabControl.SetPage TabListe
-   Sleep 1
-   '/// + Select 'Accept All'///
-   AlleAkzeptieren.Click
-   Sleep 1
-   '/// + Close Redlining dialog
-   Redlining.Close
-
-   '/// Check if the configuration is all right
-   Call wTypeKeys "<Up><End>"
-   Call wTypeKeys "<Shift Left>" , 2
-   EditCopy
-   if GetClipboardText <>  " O" then Warnlog "The deleted text in first line is incorrect!"
-
-   Call wTypeKeys "<Down><End>"
-   Call wTypeKeys "<Shift Left>" , 2
-   EditCopy
-   if GetClipboardText <> "K" then Warnlog "The deleted text in second line is incorrect!"
-
-   '/// Close the document
-   Call hCloseDocument
-
-endcase
-
-'----------------------------------------------------------------------------
-
-testcase tAcceptReject_11
-
-    '/// Sort the list of changes  over context menu -- action.
-    '/// Action sort depends on not only StarOffice/StarSuite , but also system language.
-    printlog "Sort the list of changes  over context menu -- action."
-    
-    '/// New document
-    Call hNewDocument
-    
-    '/// Insert some test sentences
-    Call wTypeKeys "Redlining_11_test<Return>"
-    
-    UseBindings
-    '/// Edit / Changes / Record
-    EditChangesRecord
-    
-    '/// Insert some test sentences
-    Call wTypeKeys "A"
-    
-    '/// delete some text in first line .
-    Call wTypeKeys "<Up><End>"
-    Call wTypeKeys "<Backspace>"
-    
-    'This step to ensure the 1st list is deletion , the 2nd list is insertion
-    Call wTypeKeys "<Home>"
-    
-    '/// Edit / Changes / Accept or Reject
-    EditChangesAcceptOrReject
-    Kontext "Redlining"
-    
-    '/// + Select tabpage 'List'
-    TabControl.SetPage TabListe
-    Sleep 1
-    
-    'Sort the list of changes  with their position
-    ListItem.TypeKeys "<Up>"
-    ListItem.OpenContextMenu
-    Call hMenuSelectNr(2)
-    Sleep 1
-    Call hMenuSelectNr(5)
-    Sleep 1
-    
-    '/// + Sort the list of changes  over context menu -- action
-    ListItem.TypeKeys "<Up>"
-    ListItem.OpenContextMenu
-    Call hMenuSelectNr(2)
-    Sleep 1
-    Call hMenuSelectNr(1)
-    Sleep 1   
-    
-    '/// + Click accept
-    Akzeptieren.Click
-    Sleep 1
-    
-    '/// + Close Redlining dialog
-    Redlining.Close
-    
-    '/// Check if the configuration is all right
-    Call wTypeKeys "<Up><End>"
-    Call wTypeKeys "<Shift Left>"
-    EditCopy
-    if GetClipboardText <> "s" then Warnlog "The deleted text in first line is incorrect!"
-    
-    Call wTypeKeys "<Down><End>"
-    Call wTypeKeys "<Shift Home>"
-    EditCopy
-    if GetClipboardText <> "A" then Warnlog "The inserted text in second line is incorrect!"
-    
-    Call hCloseDocument
-
-endcase
-
-'----------------------------------------------------------------------------
-
-testcase tAcceptReject_12
-
-  Dim sFirstName  , sLastName  as String
-  Dim sFirstName1 , sLastName1 as String
-  Dim sFirstName2 , sLastName2 as String
-
-  sFirstName1 = "ATest1" : sLastName1 = "ATest1"
-  sFirstName2 = "BTest2" : sLastName2 = "BTest2"
-
-  '/// Sort the list of changes  over context menu -- author.
-  printlog "Sort the list of changes  over context menu -- author."
-
-   '/// New document
-   Call hNewDocument
-
-   'Insert some test sentences
-   Call wTypeKeys "Redlining test => O1<Return>"
-   Call wTypeKeys "Redlining test => K2"
-
-   '/// Change author to author1 :ATest1 ATest1
-   ToolsOptions
-   Call hToolsOptions("STAROFFICE","USERDATA")
-    sFirstName = VorName.GetText
-    sLastName  = ZuName.GetText
-    VorName.SetText sFirstName1
-    ZuName.SetText  sLastName1
-    Kontext "ExtrasOptionenDlg"
-   ExtrasOptionenDlg.OK
-
-   UseBindings
-   '/// Edit / Changes / Record
-   EditChangesRecord
-
-   '/// author1 : delete some text in 2nd line
-   Call wTypeKeys "<Backspace>"
-
-   '/// Change author to author2 :BTest2 BTest2
-   ToolsOptions
-   Call hToolsOptions("STAROFFICE","USERDATA")
-    VorName.SetText sFirstName2
-    ZuName.SetText  sLastName2
-    Kontext "ExtrasOptionenDlg"
-   ExtrasOptionenDlg.OK
-
-   '/// author2 : delete some text in 1st line
-   Call wTypeKeys "<Up><End>"
-   Call wTypeKeys "<Backspace>"
-   Sleep 1
-   Call wTypeKeys "<Home>"
-
-   '/// Edit / Changes / Accept or Reject
-   EditChangesAcceptOrReject
-   Kontext "Redlining"
-
-   '/// + Select tabpage 'List'
-   TabControl.SetPage TabListe
-   Sleep 1
-
-   'Sort the list of changes  with their position
-   ListItem.TypeKeys "<Up>"
-   ListItem.OpenContextMenu
-   hMenuSelectNr(2)
-   Sleep 1
-   hMenuSelectNr(5)
-   Sleep 1
-
-   '/// + Sort the list of changes  over context menu  - author
-   ListItem.TypeKeys "<Up>"
-   ListItem.OpenContextMenu
-   hMenuSelectNr(2)
-   Sleep 1
-   hMenuSelectNr(2)
-   Sleep 1
-
-   '/// + Select author 1
-   ListItem.TypeKeys "<Up>"
-   Sleep 1
-
-   '/// + Click accept
-   Akzeptieren.Click
-   Sleep 1
-
-   '/// + Close Redlining dialog
-   Redlining.Close
-
-   '/// Check if Filter works well
-   Call wTypeKeys "<Up>" , 2
-   Call wTypeKeys "<End>"
-   Call wTypeKeys "<Shift Left>" , 2
-   EditCopy
-   if GetClipboardText <>  "O" then Warnlog "The deleted text by author1 is incorrect!"
-
-   Call wTypeKeys "<Down><End>"
-   Call wTypeKeys "<Shift Left>" , 2
-   EditCopy
-   if GetClipboardText <> " K" then Warnlog "The deleted text by author2 is incorrect!"
-
-   'Change author to default
-   ToolsOptions
-    Call hToolsOptions("STAROFFICE","USERDATA")
-    VorName.SetText sFirstName
-    ZuName.SetText  sLastName
-    Kontext "ExtrasOptionenDlg"
-   ExtrasOptionenDlg.OK
-
-   '/// + Close the document
-   Call hCloseDocument
-
-endcase
-
-'----------------------------------------------------------------------------
-
-testcase tAcceptReject_13
-
-  '/// Sort the list of changes  over context menu -- date.
-  printlog "Sort the list of changes  over context menu -- date."
-
-   '/// New document
-   Call hNewDocument
-
-   '/// Insert some test sentences
-   Call wTypeKeys "Redlining test => O1<Return>"
-   Call wTypeKeys "Redlining test => K2"
-
-   UseBindings
-   '/// Edit / Changes / Record
-   EditChangesRecord
-
-   '/// delete some text in 2nd line .
-   Call wTypeKeys "<Backspace>"
-
-   '/// wait 70 seconds
-   Sleep 70
-
-   '/// delete some text in 1st line .
-   Call wTypeKeys "<Up><End>"
-   Call wTypeKeys "<Backspace>"
-
-   '/// Edit / Changes / Accept or Reject
-   EditChangesAcceptOrReject
-   Kontext "Redlining"
-
-   '/// + Select tabpage 'List'
-   TabControl.SetPage TabListe
-   Sleep 1
-
-   'Sort the list of changes  with their position
-   ListItem.TypeKeys "<Up>"
-   ListItem.OpenContextMenu
-   hMenuSelectNr(2)
-   Sleep 1
-   hMenuSelectNr(5)
-   Sleep 1
-
-   '/// + Sort the list of changes  over context menu -- date
-   ListItem.TypeKeys "<Up>"
-   ListItem.OpenContextMenu
-   hMenuSelectNr(2)
-   Sleep 1
-   hMenuSelectNr(3)
-   Sleep 1
-
-   '/// + Select 2nd item (it should be the 2nd deletion operation)
-   ListItem.TypeKeys "<Down>"
-
-   '/// + Click accept
-   Akzeptieren.Click
-   Sleep 1
-
-   '/// + Close Redlining dialog
-   Redlining.Close
-
-   '/// Check if the configuration is all right
-   Call wTypeKeys "<Up><End>"
-   Call wTypeKeys "<Shift Left>" , 2
-   EditCopy
-   if GetClipboardText <> " O" then Warnlog "The deleted text in first line is incorrect!"
-
-   Call wTypeKeys "<Down><End>"
-   Call wTypeKeys "<Shift Left>" , 2
-   EditCopy
-   if GetClipboardText <>  "K" then Warnlog "The deleted text in second line is incorrect!"
-
-   '/// + Close the document
-   Call hCloseDocument
-
-endcase
-
-'----------------------------------------------------------------------------
-
-testcase tAcceptReject_14
-
-  '/// Sort the list of changes  over context menu -- comment.
-  printlog "Sort the list of changes  over context menu -- comment"
-
-   '/// New document
-   Call hNewDocument
-
-   '/// Insert some test sentences
-   Call wTypeKeys "Redlining test => O1<Return>"
-   Call wTypeKeys "Redlining test => K2"
-
-   UseBindings
-   '/// Edit / Changes / Record
-   EditChangesRecord
-
-   '/// delete some text in 2nd line .
-   Call wTypeKeys "<Backspace>"
-
-   '/// insert comment1: Edit / Changes / Comment
-   EditChangesComment
-    Kontext "Kommentar"
-    KommentarText.SetText "Comment1"
-   Kommentar.OK
-
-   '/// delete some text in 1st line .
-   Call wTypeKeys "<Up><End>"
-   Call wTypeKeys "<Backspace>"
-
-   '/// insert comment2: Edit / Changes / Comment
-   EditChangesComment
-    Kontext "Kommentar"
-    KommentarText.SetText "Comment2"
-   Kommentar.OK
-
-   '/// Edit / Changes / Accept or Reject
-   EditChangesAcceptOrReject
-   Kontext "Redlining"
-
-   '/// + Select tabpage 'List'
-   TabControl.SetPage TabListe
-   Sleep 1
-
-   'Sort the list of changes  with their position
-   ListItem.TypeKeys "<Up>"
-   ListItem.OpenContextMenu
-   hMenuSelectNr(2)
-   Sleep 1
-   hMenuSelectNr(5)
-   Sleep 1
-
-   '/// + Sort the list of changes  over context menu -- comment
-   ListItem.TypeKeys "<Up>"
-   ListItem.OpenContextMenu
-   hMenuSelectNr(2)
-   Sleep 1
-   hMenuSelectNr(4)
-   Sleep 1
-
-   '/// + Select 2nd item
-   ListItem.TypeKeys "<Down>"
-
-   '/// + Click accept
-   Akzeptieren.Click
-   Sleep 1
-
-   '/// + Close Redlining dialog
-   Redlining.Close
-
-   '/// Check if the configuration is all right
-   Call wTypeKeys "<Up><End>"
-   Call wTypeKeys "<Shift Left>" , 2
-   EditCopy
-   if GetClipboardText <>  " O" then Warnlog "The deleted text in first line is incorrect!"
-
-   Call wTypeKeys "<Down><End>"
-   Call wTypeKeys "<Shift Left>" , 2
-   EditCopy
-   if GetClipboardText <>  "K" then Warnlog "The deleted text in second line is incorrect!"
-
-   '/// + Close the document
-   Call hCloseDocument
-
-endcase
-
-'----------------------------------------------------------------------------
-
-testcase tAcceptReject_15
-
-  '/// Sort the list of changes  over context menu -- document position.
-  printlog "Sort the list of changes  over context menu -- document position"
-
-   '/// New document
-   Call hNewDocument
-
-   '/// Insert some test sentences
-   Call wTypeKeys "Redlining test => O1<Return>"
-   Call wTypeKeys "Redlining test => K2"
-
-   UseBindings
-   '/// Edit / Changes / Record
-   EditChangesRecord
-
-   '/// delete some text in 2nd line .
-   Call wTypeKeys "<Backspace>"
-
-   '/// delete some text in 1st line .
-   Call wTypeKeys "<Up><End>"
-   Call wTypeKeys "<Backspace>"
-
-   Call wTypeKeys "<Home>"
-
-   '/// Edit / Changes / Accept or Reject
-   EditChangesAcceptOrReject
-   Kontext "Redlining"
-
-   '/// + Select tabpage 'List'
-   TabControl.SetPage TabListe
-   Sleep 1
-
-   '/// + Sort the list of changes  over context menu -- document position
-   ListItem.TypeKeys "<Up>"
-   ListItem.OpenContextMenu
-   hMenuSelectNr(2)
-   Sleep 1
-   hMenuSelectNr(5)
-   Sleep 1
-
-   '/// + Select 2nd item
-   ListItem.TypeKeys "<Down>"
-   Sleep 1
-
-   '/// + Click accept
-   Akzeptieren.Click
-   Sleep 1
-
-   '/// + Close Redlining dialog
-   Redlining.Close
-
-   '/// Check if the configuration is all right
-   Call wTypeKeys "<Up><End>"
-   Call wTypeKeys "<Shift Left>" , 2
-   EditCopy
-   if GetClipboardText <>  "O" then Warnlog "The deleted text in first line is incorrect!"
-
-   Call wTypeKeys "<Down><End>"
-   Call wTypeKeys "<Shift Left>" , 2
-   EditCopy
-   if GetClipboardText <>  " K" then Warnlog "The deleted text in second line is incorrect!"
-
-   '/// Close the document
-   Call hCloseDocument
-
-endcase
diff --git a/testautomation/writer/optional/includes/regexp/regular.inc b/testautomation/writer/optional/includes/regexp/regular.inc
deleted file mode 100644
index d53277085b13..000000000000
--- a/testautomation/writer/optional/includes/regexp/regular.inc
+++ /dev/null
@@ -1,974 +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 : helge.delfs@oracle.com
-'*
-'* short description : Search for regular expressions
-'*
-'\***********************************************************************
-
-sub regular
-    call tAny_Character
-    call tWord_At_Paragraph_Beginning
-    call tWord_At_Paragraph_End
-    call tNone_Or_Several_Between
-    call tAtLeast_One_Between
-    call tText_At_WordBeginning
-    call tText_At_WordEnd
-    call tDolar
-    call tTabulator
-    call tOr_Search
-    call tEmpty_Paragraph
-    call tLineBreak
-    call tSingle_Selected
-    call tOne_Area_Selected
-    call tTwo_Areas_Selected
-    call tHexadecimal_Code
-    call tHexadecimal_Code_NEW
-    call tAttach_Behind_WordToFind
-    Call tWord_At_Beginning_With_Empty_Field
-    Call tWord_At_Beginning_With_Frame
-    Call tWord_At_End_With_Empty_Field
-    Call tWord_At_End_With_Frame
-'---------New------------
-   call tChartype_digit
-   call tChartype_space
-   call tChartype_print
-   call tChartype_alnum
-   call tChartype_alpha
-   call tChartype_cntrl
-
-   call tChartype_lower
-   call tChartype_upper
-end sub
-
-'---------------------------------------------------------
-' Wort mit einem beliebigen Zeichen im Wort Search : geht mit '.'
-'
-testcase tAny_Character
-   call Ausgangszustand_herstellen
-   '/// <B>Set to default values</B> ///
-   '///+ Open file "..\writer\optional\input\search\regu_aus.sxw" ///
-   '///+ Close 'Find&Replace' dialog if open ///
-   '///+ Point cursor to beginning of document ///
-   '///+ Open 'Find&Replace' dialog ///
-   '///+ Clear Editfield 'Search for' ///
-   '///+ Uncheck 'Whole words only' ///
-   '///+ Uncheck 'Backwards' ///
-   '///+ Uncheck 'Match Case' ///
-   '///+ Uncheck 'Current selection only' ///
-   '///+ Uncheck 'Search for Styles' ///
-   '///+ Uncheck 'Similarity Search' ///
-   '///+ Check 'Regular Expressions' ///
-   RegularExpressions.Check '/// hmmm, one time set, evry time work : just here gets regexp checked ?!///
-   '/// Start Search & Compare ///
-   Such_Text = "M.ller"             'beliebiges Zeichen im Wort
-   '///+ Enter RegExp in Field Search for : 'M.ller'  ///
-   Vergleichstext = "MöllerMüller"
-   '/// Compare string found with: 'M�llerM�ller' ///
-   call Search_Und_Vergleichen
-endcase
-
-'---------------------------------------------------------
-'///' Wort am Absatzanfang Search : geht mit '^' ///
-'
-testcase tWord_At_Paragraph_Beginning
-   call Ausgangszustand_herstellen
-   '/// <B>Set to default values</B> ///
-   '///+ Open file "..\writer\optional\input\search\regu_aus.sxw" ///
-   '///+ Close 'Find&Replace' dialog if open ///
-   '///+ Point cursor to beginning of document ///
-   '///+ Open 'Find&Replace' dialog ///
-   '///+ Clear Editfield 'Search for' ///
-   '///+ Uncheck 'Whole words only' ///
-   '///+ Uncheck 'Backwards' ///
-   '///+ Uncheck 'Match Case' ///
-   '///+ Uncheck 'Current selection only' ///
-   '///+ Uncheck 'Search for Styles' ///
-   '///+ Uncheck 'Similarity Search' ///
-   '///+ Check 'Regular Expressions' ///
-
-   '/// Start Search & Compare ///
-   Such_Text = "^Anfang"               'Wort am Absatzanfang
-   '///+ Enter RegExp in Field Search for : '^Anfang'  ///
-   Vergleichstext = "Anfang"
-   '/// Compare string found with: 'Anfang' ///
-   call Search_Und_Vergleichen
-endcase
-
-'---------------------------------------------------------
-' Wort am Absatzende Search : geht mit 'xxx$' - Dollarzeichen
-'
-testcase tWord_At_Paragraph_End
-   call Ausgangszustand_herstellen
-   '/// <B>Set to default values</B> ///
-   '///+ Open file "..\writer\optional\input\search\regu_aus.sxw" ///
-   '///+ Close 'Find&Replace' dialog if open ///
-   '///+ Point cursor to beginning of document ///
-   '///+ Open 'Find&Replace' dialog ///
-   '///+ Clear Editfield 'Search for' ///
-   '///+ Uncheck 'Whole words only' ///
-   '///+ Uncheck 'Backwards' ///
-   '///+ Uncheck 'Match Case' ///
-   '///+ Uncheck 'Current selection only' ///
-   '///+ Uncheck 'Search for Styles' ///
-   '///+ Uncheck 'Similarity Search' ///
-   '///+ Check 'Regular Expressions' ///
-
-   '/// Start Search & Compare ///
-   Such_Text = "Ende$"              'Wort am Absatzende
-   '///+ Enter RegExp in Field Search for : 'Ende$'  ///
-   Vergleichstext = "Ende"
-   '/// Compare string found with: 'Ende' ///
-   call Search_Und_Vergleichen
-endcase
-
-'---------------------------------------------------------
-' Wort oder Satzteile Search. Zwischen den Worten mit dem Suchbegriff darf kein oder mehrere Buchstaben stehen : geht mit '.*'
-'
-testcase tNone_Or_Several_Between
-   call Ausgangszustand_herstellen
-   '/// <B>Set to default values</B> ///
-   '///+ Open file "..\writer\optional\input\search\regu_aus.sxw" ///
-   '///+ Close 'Find&Replace' dialog if open ///
-   '///+ Point cursor to beginning of document ///
-   '///+ Open 'Find&Replace' dialog ///
-   '///+ Clear Editfield 'Search for' ///
-   '///+ Uncheck 'Whole words only' ///
-   '///+ Uncheck 'Backwards' ///
-   '///+ Uncheck 'Match Case' ///
-   '///+ Uncheck 'Current selection only' ///
-   '///+ Uncheck 'Search for Styles' ///
-   '///+ Uncheck 'Similarity Search' ///
-   '///+ Check 'Regular Expressions' ///
-
-   '/// Start Search & Compare ///
-   Such_Text      = "Peter.*Haus"               'Kein oder mehrere Zeichen dazwischen
-   '///+ Enter RegExp in Field Search for : 'Peter.*Haus'  ///
-   Vergleichstext = "Peter ist im HausPeter liebt dieses HausPeters HausPeterhaus"
-   '/// Compare string found with: 'Peter ist im HausPeter liebt dieses HausPeters HausPeterhaus' ///
-   call Search_Und_Vergleichen
-endcase
-
-'---------------------------------------------------------
-' Wort oder Satzteile Search. Zwischen den Worten mit dem Suchbegriff mu├ö├Â┬úÔö£├é├ö├Â┬úÔö£├®├ö├Â┬╝Ôö£Ôòæ├ö├Â┬úÔö£Ôòæ├ö├Â┬úÔö£├æ mindestens ein Buchstabe stehen : geht mit '.+'
-'
-testcase tAtLeast_One_Between
-   call Ausgangszustand_herstellen
-   '/// <B>Set to default values</B> ///
-   '///+ Open file "..\writer\optional\input\search\regu_aus.sxw" ///
-   '///+ Close 'Find&Replace' dialog if open ///
-   '///+ Point cursor to beginning of document ///
-   '///+ Open 'Find&Replace' dialog ///
-   '///+ Clear Editfield 'Search for' ///
-   '///+ Uncheck 'Whole words only' ///
-   '///+ Uncheck 'Backwards' ///
-   '///+ Uncheck 'Match Case' ///
-   '///+ Uncheck 'Current selection only' ///
-   '///+ Uncheck 'Search for Styles' ///
-   '///+ Uncheck 'Similarity Search' ///
-   '///+ Check 'Regular Expressions' ///
-
-   '/// Start Search & Compare ///
-   Such_Text      = "Peter.+Haus"
-   '///+ Enter RegExp in Field Search for : 'Peter.+Haus'  ///
-   Vergleichstext = "Peter ist im HausPeter liebt dieses HausPeters Haus"
-   '/// Compare string found with: 'Peter ist im HausPeter liebt dieses HausPeters Haus' ///
-   call Search_Und_Vergleichen
-endcase
-
-'---------------------------------------------------------
-' Worte mit Vergleichtext am Wortanfang Search : geht mit '\<'
-'
-testcase tText_At_WordBeginning
-   call Ausgangszustand_herstellen
-   '/// <B>Set to default values</B> ///
-   '///+ Open file "..\writer\optional\input\search\regu_aus.sxw" ///
-   '///+ Close 'Find&Replace' dialog if open ///
-   '///+ Point cursor to beginning of document ///
-   '///+ Open 'Find&Replace' dialog ///
-   '///+ Clear Editfield 'Search for' ///
-   '///+ Uncheck 'Whole words only' ///
-   '///+ Uncheck 'Backwards' ///
-   '///+ Uncheck 'Match Case' ///
-   '///+ Uncheck 'Current selection only' ///
-   '///+ Uncheck 'Search for Styles' ///
-   '///+ Uncheck 'Similarity Search' ///
-   '///+ Check 'Regular Expressions' ///
-
-   '/// Start Search & Compare ///
-   Such_Text      = "\<aaa"
-   '///+ Enter RegExp in Field Search for : '\<aaa'  ///
-   Vergleichstext = "aaa"
-   '/// Compare string found with: 'aaa' ///
-   call Search_Und_Vergleichen
-endcase
-
-'---------------------------------------------------------
-' Worte mit Vergleichtext am Wortende Search : geht mit '\>'
-'
-testcase tText_At_WordEnd
-   call Ausgangszustand_herstellen
-   '/// <B>Set to default values</B> ///
-   '///+ Open file "..\writer\optional\input\search\regu_aus.sxw" ///
-   '///+ Close 'Find&Replace' dialog if open ///
-   '///+ Point cursor to beginning of document ///
-   '///+ Open 'Find&Replace' dialog ///
-   '///+ Clear Editfield 'Search for' ///
-   '///+ Uncheck 'Whole words only' ///
-   '///+ Uncheck 'Backwards' ///
-   '///+ Uncheck 'Match Case' ///
-   '///+ Uncheck 'Current selection only' ///
-   '///+ Uncheck 'Search for Styles' ///
-   '///+ Uncheck 'Similarity Search' ///
-   '///+ Check 'Regular Expressions' ///
-
-   '/// Start Search & Compare ///
-   Such_Text      = "eee\>"               'Text am Wortende
-   '///+ Enter RegExp in Field Search for : 'eee\>'  ///
-   Vergleichstext = "eee"
-   '/// Compare string found with: 'eee' ///
-   call Search_Und_Vergleichen
-endcase
-
-'---------------------------------------------------------
-' Normale mit regulren Ausdrcke Search, hier das Dollarzeichen geht mit \$
-
-testcase tDolar
-   call Ausgangszustand_herstellen
-   '/// <B>Set to default values</B> ///
-   '///+ Open file "..\writer\optional\input\search\regu_aus.sxw" ///
-   '///+ Close 'Find&Replace' dialog if open ///
-   '///+ Point cursor to beginning of document ///
-   '///+ Open 'Find&Replace' dialog ///
-   '///+ Clear Editfield 'Search for' ///
-   '///+ Uncheck 'Whole words only' ///
-   '///+ Uncheck 'Backwards' ///
-   '///+ Uncheck 'Match Case' ///
-   '///+ Uncheck 'Current selection only' ///
-   '///+ Uncheck 'Search for Styles' ///
-   '///+ Uncheck 'Similarity Search' ///
-   '///+ Check 'Regular Expressions' ///
-
-   '/// Start Search & Compare ///
-   Such_Text      = "\$"                  'Sonderzeichen ($)
-   '///+ Enter RegExp in Field Search for : '\$'  ///
-   Vergleichstext = "$$"
-   '/// Compare string found with: '$$' ///
-   call Search_Und_Vergleichen
-endcase
-
-'---------------------------------------------------------
-' sucht nach Tabulatoren : geht mit \t
-'
-testcase tTabulator
-   call Ausgangszustand_herstellen
-   '/// <B>Set to default values</B> ///
-   '///+ Open file "..\writer\optional\input\search\regu_aus.sxw" ///
-   '///+ Close 'Find&Replace' dialog if open ///
-   '///+ Point cursor to beginning of document ///
-   '///+ Open 'Find&Replace' dialog ///
-   '///+ Clear Editfield 'Search for' ///
-   '///+ Uncheck 'Whole words only' ///
-   '///+ Uncheck 'Backwards' ///
-   '///+ Uncheck 'Match Case' ///
-   '///+ Uncheck 'Current selection only' ///
-   '///+ Uncheck 'Search for Styles' ///
-   '///+ Uncheck 'Similarity Search' ///
-   '///+ Check 'Regular Expressions' ///
-
-   '/// Start Search & Compare ///
-   Such_Text      = "\t"                  'Tabulatoren
-   '///+ Enter RegExp in Field Search for : '\t'  ///
-   Vergleichstext = Chr$(9)+Chr$(9)+Chr$(9)
-   '/// Compare string found with: '            ' ///
-   call Search_Und_Vergleichen
-' findet nun t
-endcase
-
-'---------------------------------------------------------
-' entweder das eine Wort oder das andere Wort Search : geht mit 'aaa|bbb'
-'
-testcase tOr_Search
-   call Ausgangszustand_herstellen
-   '/// <B>Set to default values</B> ///
-   '///+ Open file "..\writer\optional\input\search\regu_aus.sxw" ///
-   '///+ Close 'Find&Replace' dialog if open ///
-   '///+ Point cursor to beginning of document ///
-   '///+ Open 'Find&Replace' dialog ///
-   '///+ Clear Editfield 'Search for' ///
-   '///+ Uncheck 'Whole words only' ///
-   '///+ Uncheck 'Backwards' ///
-   '///+ Uncheck 'Match Case' ///
-   '///+ Uncheck 'Current selection only' ///
-   '///+ Uncheck 'Search for Styles' ///
-   '///+ Uncheck 'Similarity Search' ///
-   '///+ Check 'Regular Expressions' ///
-
-   '/// Start Search & Compare ///
-   Such_Text      = "Erstes|Zweites"            'ODER-Suche
-   '///+ Enter RegExp in Field Search for : 'Erstes|Zweites'  ///
-   Vergleichstext = "ZweitesErstesZweites"
-   '/// Compare string found with: 'ZweitesErstesZweites' ///
-   call Search_Und_Vergleichen
-endcase
-
-'---------------------------------------------------------
-' sucht leere Abstze : geht mit '^$'
-'
-testcase tEmpty_Paragraph
-   call Ausgangszustand_herstellen
-   '/// <B>Set to default values</B> ///
-   '///+ Open file "..\writer\optional\input\search\regu_aus.sxw" ///
-   '///+ Close 'Find&Replace' dialog if open ///
-   '///+ Point cursor to beginning of document ///
-   '///+ Open 'Find&Replace' dialog ///
-   '///+ Clear Editfield 'Search for' ///
-   '///+ Uncheck 'Whole words only' ///
-   '///+ Uncheck 'Backwards' ///
-   '///+ Uncheck 'Match Case' ///
-   '///+ Uncheck 'Current selection only' ///
-   '///+ Uncheck 'Search for Styles' ///
-   '///+ Uncheck 'Similarity Search' ///
-   '///+ Check 'Regular Expressions' ///
-
-   '/// Start Search & Compare ///
-   Such_Text      = "^$"
-   '///+ Enter RegExp in Field Search for : '^$'  ///
-   if gPlatgroup = "unx" then
-        Vergleichstext = Chr$(10)
-   else
-        Vergleichstext = Chr$(13) + Chr$(10)
-   end if
-   '/// Compare string found with: 'An empty paragraph' ///
-   call Search_Und_Vergleichen
-endcase
-
-'---------------------------------------------------------
-' sucht nach einem weichen Zeilenumbruch ( linefeed, newline ): geht mit '\n'
-'
-testcase tLineBreak
-   call Ausgangszustand_herstellen
-   '/// <B>Set to default values</B> ///
-   '///+ Open file "..\writer\optional\input\search\regu_aus.sxw" ///
-   '///+ Close 'Find&Replace' dialog if open ///
-   '///+ Point cursor to beginning of document ///
-   '///+ Open 'Find&Replace' dialog ///
-   '///+ Clear Editfield 'Search for' ///
-   '///+ Uncheck 'Whole words only' ///
-   '///+ Uncheck 'Backwards' ///
-   '///+ Uncheck 'Match Case' ///
-   '///+ Uncheck 'Current selection only' ///
-   '///+ Uncheck 'Search for Styles' ///
-   '///+ Uncheck 'Similarity Search' ///
-   '///+ Check 'Regular Expressions' ///
-
-   '/// Start Search & Compare ///
-   Such_Text      = "\n"                  'Zeilenumbruch
-   '///+ Enter RegExp in Field Search for : '\n'  ///
-   Vergleichstext = Chr$(10)
-   '/// Compare string found with: a line break ///
-   call Search_Und_Vergleichen
-endcase
-
-'---------------------------------------------------------
-' sucht alle ausgewlten Zeichen  : geht mit '[xyz]'
-'
-testcase tSingle_Selected
-   call Ausgangszustand_herstellen
-   '/// <B>Set to default values</B> ///
-   '///+ Open file "..\writer\optional\input\search\regu_aus.sxw" ///
-   '///+ Close 'Find&Replace' dialog if open ///
-   '///+ Point cursor to beginning of document ///
-   '///+ Open 'Find&Replace' dialog ///
-   '///+ Clear Editfield 'Search for' ///
-   '///+ Uncheck 'Whole words only' ///
-   '///+ Uncheck 'Backwards' ///
-   '///+ Uncheck 'Match Case' ///
-   '///+ Uncheck 'Current selection only' ///
-   '///+ Uncheck 'Search for Styles' ///
-   '///+ Uncheck 'Similarity Search' ///
-   '///+ Check 'Regular Expressions' ///
-
-   '/// Start Search & Compare ///
-   Such_Text      = "[xyz]"               'Einzelne ausgewhlte Zeichen
-   '///+ Enter RegExp in Field Search for : '[xyz]'  ///
-   Vergleichstext = "xZzzZzxxzzZZzZzXxYyZz"
-   '/// Compare string found with: 'xZzzZzxxzzZZzZzXxYyZz' ///
-   call Search_Und_Vergleichen
-endcase
-
-'---------------------------------------------------------
-' sucht alle Zeichen im Bereich zwischen zwei Buchstaben : geht mit '[x-z]'
-'
-testcase tOne_Area_Selected
-   call Ausgangszustand_herstellen
-   '/// <B>Set to default values</B> ///
-   '///+ Open file "..\writer\optional\input\search\regu_aus.sxw" ///
-   '///+ Close 'Find&Replace' dialog if open ///
-   '///+ Point cursor to beginning of document ///
-   '///+ Open 'Find&Replace' dialog ///
-   '///+ Clear Editfield 'Search for' ///
-   '///+ Uncheck 'Whole words only' ///
-   '///+ Uncheck 'Backwards' ///
-   '///+ Uncheck 'Match Case' ///
-   '///+ Uncheck 'Current selection only' ///
-   '///+ Uncheck 'Search for Styles' ///
-   '///+ Uncheck 'Similarity Search' ///
-   '///+ Check 'Regular Expressions' ///
-
-   '/// Start Search & Compare ///
-   Such_Text      = "[w-z]"               'Bereich ausgewhlter Zeichen
-   '///+ Enter RegExp in Field Search for : '[w-z]'  ///
-   Vergleichstext = "xZWWzWzZzwWWxWwxWwzzZwWWwZwWzZzWwXxYyZz"
-   '/// Compare string found with: 'xZWWzWzZzwWWxWwxWwzzZwWWwZwWzZzWwXxYyZz' ///
-   call Search_Und_Vergleichen
-endcase
-
-'---------------------------------------------------------
-' sucht alle Zeichen aus zwei angegebenen Buchstabenbereichen : geht mit '[a-cg-h]'
-'
-testcase tTwo_Areas_Selected
-   call Ausgangszustand_herstellen
-   '/// <B>Set to default values</B> ///
-   '///+ Open file "..\writer\optional\input\search\regu_aus.sxw" ///
-   '///+ Close 'Find&Replace' dialog if open ///
-   '///+ Point cursor to beginning of document ///
-   '///+ Open 'Find&Replace' dialog ///
-   '///+ Clear Editfield 'Search for' ///
-   '///+ Uncheck 'Whole words only' ///
-   '///+ Uncheck 'Backwards' ///
-   '///+ Uncheck 'Match Case' ///
-   '///+ Uncheck 'Current selection only' ///
-   '///+ Uncheck 'Search for Styles' ///
-   '///+ Uncheck 'Similarity Search' ///
-   '///+ Check 'Regular Expressions' ///
-
-   '/// Start Search & Compare ///
-   Such_Text = "[B-Dx-z]"              'Zwei Bereiche ausgewhlter Zeichen
-   '///+ Enter RegExp in Field Search for : '[B-Dx-z]'  ///
-   Vergleichstext = "xdcbbZcddcddbzddcbddbzddcbddZczcdbdcDccxddcxddddzcbdbzZDddZbzZcbdzcBbCcDdXxYyZzcddDd"
-   '/// Compare string found with: 'xdcbbZcddcddbzddcbddbzddcbddZczcdbdcDccxddcxddddzcbdbzZDddZbzZcbdzcBbCcDdXxYyZzcddDd' ///
-   call Search_Und_Vergleichen
-endcase
-
-'---------------------------------------------------------
-' sucht alle Zeichen mit dem Hexadezimalcode .. : geht mit '\x..'
-'
-testcase tHexadecimal_Code_NEW
-   call Ausgangszustand_herstellen
-   '/// <B>Set to default values</B> ///
-   '///+ Open file "..\writer\optional\input\search\regu_aus.sxw" ///
-   '///+ Close 'Find&Replace' dialog if open ///
-   '///+ Point cursor to beginning of document ///
-   '///+ Open 'Find&Replace' dialog ///
-   '///+ Clear Editfield 'Search for' ///
-   '///+ Uncheck 'Whole words only' ///
-   '///+ Uncheck 'Backwards' ///
-   '///+ Uncheck 'Match Case' ///
-   '///+ Uncheck 'Current selection only' ///
-   '///+ Uncheck 'Search for Styles' ///
-   '///+ Uncheck 'Similarity Search' ///
-   '///+ Check 'Regular Expressions' ///
-
-   '/// Start Search & Compare ///
-   Such_Text      = "\x3E"             'Zeichen mit Hexadezimal-Code finden
-   '///+ Enter RegExp in Field Search for : '\x3E'  ///
-   Vergleichstext = ">"
-   '/// Compare string found with: '>' ///
-   call Search_Und_Vergleichen
-endcase
-
-'---------------------------------------------------------
-' sucht alle Zeichen mit dem Hexadezimalcode .. : geht mit '\x..'
-'
-testcase tHexadecimal_Code
-   call Ausgangszustand_herstellen
-   '/// <B>Set to default values</B> ///
-   '///+ Open file "..\writer\optional\input\search\regu_aus.sxw" ///
-   '///+ Close 'Find&Replace' dialog if open ///
-   '///+ Point cursor to beginning of document ///
-   '///+ Open 'Find&Replace' dialog ///
-   '///+ Clear Editfield 'Search for' ///
-   '///+ Uncheck 'Whole words only' ///
-   '///+ Uncheck 'Backwards' ///
-   '///+ Uncheck 'Match Case' ///
-   '///+ Uncheck 'Current selection only' ///
-   '///+ Uncheck 'Search for Styles' ///
-   '///+ Uncheck 'Similarity Search' ///
-   '///+ Check 'Regular Expressions' ///
-
-   '/// Start Search & Compare ///
-   Such_Text      = "\x003E"             'Zeichen mit Hexadezimal-Code finden
-   '///+ Enter RegExp in Field Search for : '\x003E'  ///
-   Vergleichstext = ">"
-   '/// Compare string found with: '>' ///
-   call Search_Und_Vergleichen
-endcase
-
-'---------------------------------------------------------
-' sucht Wort am Anfang eines Absatzes mit leerem Feldbefehl davor : geht mit '^'
-'
-testcase tWord_At_Beginning_With_Empty_Field
-   call Ausgangszustand_herstellen
-   '/// <B>Set to default values</B> ///
-   '///+ Open file "..\writer\optional\input\search\regu_aus.sxw" ///
-   '///+ Close 'Find&Replace' dialog if open ///
-   '///+ Point cursor to beginning of document ///
-   '///+ Open 'Find&Replace' dialog ///
-   '///+ Clear Editfield 'Search for' ///
-   '///+ Uncheck 'Whole words only' ///
-   '///+ Uncheck 'Backwards' ///
-   '///+ Uncheck 'Match Case' ///
-   '///+ Uncheck 'Current selection only' ///
-   '///+ Uncheck 'Search for Styles' ///
-   '///+ Uncheck 'Similarity Search' ///
-   '///+ Check 'Regular Expressions' ///
-
-   '/// Start Search & Compare ///
-   Such_Text      = "^Halloo"
-   '///+ Enter RegExp in Field Search for : '^Halloo'  ///
-   Vergleichstext = "Halloo"
-   '/// Compare string found with: 'Halloo' ///
-   call Search_Und_Vergleichen
-endcase
-
-'---------------------------------------------------------
-' sucht Wort am Anfang eines Absatzes mit zeichengebundenen Rahmen davor : geht mit '^'
-'
-testcase tWord_At_Beginning_With_Frame
-   call Ausgangszustand_herstellen
-   '/// <B>Set to default values</B> ///
-   '///+ Open file "..\writer\optional\input\search\regu_aus.sxw" ///
-   '///+ Close 'Find&Replace' dialog if open ///
-   '///+ Point cursor to beginning of document ///
-   '///+ Open 'Find&Replace' dialog ///
-   '///+ Clear Editfield 'Search for' ///
-   '///+ Uncheck 'Whole words only' ///
-   '///+ Uncheck 'Backwards' ///
-   '///+ Uncheck 'Match Case' ///
-   '///+ Uncheck 'Current selection only' ///
-   '///+ Uncheck 'Search for Styles' ///
-   '///+ Uncheck 'Similarity Search' ///
-   '///+ Check 'Regular Expressions' ///
-
-   '/// Start Search & Compare ///
-   Such_Text      = "^Rahmen"
-   '///+ Enter RegExp in Field Search for : '^Rahmen'  ///
-   Vergleichstext = "Rahmen"
-   '/// Compare string found with: 'Rahmen' ///
-   call Search_Und_Vergleichen
-endcase
-
-'---------------------------------------------------------
-' sucht Wort am Ende eines Absatzes mit leerem Feldbefehl davor : geht mit '^'
-'
-testcase tWord_At_End_With_Empty_Field
-   call Ausgangszustand_herstellen
-   '/// <B>Set to default values</B> ///
-   '///+ Open file "..\writer\optional\input\search\regu_aus.sxw" ///
-   '///+ Close 'Find&Replace' dialog if open ///
-   '///+ Point cursor to beginning of document ///
-   '///+ Open 'Find&Replace' dialog ///
-   '///+ Clear Editfield 'Search for' ///
-   '///+ Uncheck 'Whole words only' ///
-   '///+ Uncheck 'Backwards' ///
-   '///+ Uncheck 'Match Case' ///
-   '///+ Uncheck 'Current selection only' ///
-   '///+ Uncheck 'Search for Styles' ///
-   '///+ Uncheck 'Similarity Search' ///
-   '///+ Check 'Regular Expressions' ///
-
-   '/// Start Search & Compare ///
-   Such_Text      = "hhallo$"
-   '///+ Enter RegExp in Field Search for : 'hhallo$'  ///
-   Vergleichstext = "hhallo"
-   '/// Compare string found with: 'hhallo' ///
-   call Search_Und_Vergleichen
-endcase
-
-'---------------------------------------------------------
-' sucht Wort am Ende eines Absatzes mit zeichengebundenen Rahmen davor : geht mit '^'
-'
-testcase tWord_At_End_With_Frame
-   call Ausgangszustand_herstellen
-   '/// <B>Set to default values</B> ///
-   '///+ Open file "..\writer\optional\input\search\regu_aus.sxw" ///
-   '///+ Close 'Find&Replace' dialog if open ///
-   '///+ Point cursor to beginning of document ///
-   '///+ Open 'Find&Replace' dialog ///
-   '///+ Clear Editfield 'Search for' ///
-   '///+ Uncheck 'Whole words only' ///
-   '///+ Uncheck 'Backwards' ///
-   '///+ Uncheck 'Match Case' ///
-   '///+ Uncheck 'Current selection only' ///
-   '///+ Uncheck 'Search for Styles' ///
-   '///+ Uncheck 'Similarity Search' ///
-   '///+ Check 'Regular Expressions' ///
-
-   '/// Start Search & Compare ///
-   Such_Text      = "Rahmenend$"
-   '///+ Enter RegExp in Field Search for : 'Rahmenend$'  ///
-   Vergleichstext = "Rahmenend"
-   '/// Compare string found with: 'Rahmenend' ///
-   call Search_Und_Vergleichen
-endcase
-
-'---------------------------------------------------------
-testcase tAttach_Behind_WordToFind
-   call Ausgangszustand_herstellen
-   '/// <B>Set to default values</B> ///
-   '///+ Open file "..\writer\optional\input\search\regu_aus.sxw" ///
-   '///+ Close 'Find&Replace' dialog if open ///
-   '///+ Point cursor to beginning of document ///
-   '///+ Open 'Find&Replace' dialog ///
-   '///+ Clear Editfield 'Search for' ///
-   '///+ Uncheck 'Whole words only' ///
-   '///+ Uncheck 'Backwards' ///
-   '///+ Uncheck 'Match Case' ///
-   '///+ Uncheck 'Current selection only' ///
-   '///+ Uncheck 'Search for Styles' ///
-   '///+ Uncheck 'Similarity Search' ///
-   '///+ Check 'Regular Expressions' ///
-
-   '/// look for 'Sonderzeichen' replace with '& sind toll' ///'
-   '/// Start Search & Compare ///
-   Such_Text = "Sonderzeichen"               'Anh├ö├Â┬úÔö£├é├ö├Â┬úÔö£├®├ö├Â┬╝Ôö£ÔòæÔö£├ÂÔö£├éÔö¼├║Ôö£├ÂÔö£ÔòùÔö£├Ñngen an gesuchtes Wort
-   '///+ Enter RegExp in Field Search for : 'Sonderzeichen'  ///
-   SearchFor.SetText Such_Text
-   ReplaceWith.SetText "& sind toll"
-   ReplaceAll.Click
-   sleep 1
-   Kontext "Active"
-   if Active.Exists then
-    if Active.GetRT = 304 then
-     Active.OK                     'MSG-Box (... x ersetzt) schlie�en
-    else
-     Warnlog "Messagebox, how often replaced, not up !"
-    end if
-   end if
-   Kontext "FindAndReplace"
-   FindAndReplace.Close
-   kontext "DocumentWriter"
-   DocumentWriter.Typekeys "<PAGEUP>"
-   DocumentWriter.Typekeys "<MOD1 HOME>"
-   EditSearchAndReplace
-   kontext "FindAndReplace"            'Search&Replace-Fenster ├ö├Â┬úÔö£├é├ö├Â┬úÔö£├®├ö├Â┬╝Ôö£ÔòæÔö£├ÂÔö£├éÔö¼├║├ö├Â┬úÔö¼┬½ffnen
-   if RegularExpressions.IsVisible = False then More.Click
-   RegularExpressions.Uncheck
-   Such_Text      = "Sonderzeichen sind toll"
-   Vergleichstext = "Sonderzeichen sind tollSonderzeichen sind toll"
-   call Search_Und_Vergleichen
-endcase
-
-'--------------NEW ONES from TBO; to SO 6.0---------------------------------
-
-testcase tChartype_digit
-   call Ausgangszustand_herstellen
-   '/// <B>Set to default values</B> ///
-   '///+ Open file "..\writer\optional\input\search\regu_aus.sxw" ///
-   '///+ Close 'Find&Replace' dialog if open ///
-   '///+ Point cursor to beginning of document ///
-   '///+ Open 'Find&Replace' dialog ///
-   '///+ Clear Editfield 'Search for' ///
-   '///+ Uncheck 'Whole words only' ///
-   '///+ Uncheck 'Backwards' ///
-   '///+ Uncheck 'Match Case' ///
-   '///+ Uncheck 'Current selection only' ///
-   '///+ Uncheck 'Search for Styles' ///
-   '///+ Uncheck 'Similarity Search' ///
-   '///+ Check 'Regular Expressions' ///
-
-   '/// Start Search & Compare ///
-   Such_Text      = "[:digit:]*"
-   '///+ Enter RegExp in Field Search for : '[:digit:]*'  ///
-   Vergleichstext = "²³¹¼½¾"
-   '/// Compare string found with: '' ///
-   call Search_Und_Vergleichen
-endcase
-
-testcase tChartype_space
-   call Ausgangszustand_herstellen
-   '/// <B>Set to default values</B> ///
-   '///+ Open file "..\writer\optional\input\search\regu_aus.sxw" ///
-   '///+ Close 'Find&Replace' dialog if open ///
-   '///+ Point cursor to beginning of document ///
-   '///+ Open 'Find&Replace' dialog ///
-   '///+ Clear Editfield 'Search for' ///
-   '///+ Uncheck 'Whole words only' ///
-   '///+ Uncheck 'Backwards' ///
-   '///+ Uncheck 'Match Case' ///
-   '///+ Uncheck 'Current selection only' ///
-   '///+ Uncheck 'Search for Styles' ///
-   '///+ Uncheck 'Similarity Search' ///
-   '///+ Check 'Regular Expressions' ///
-
-   '/// Start Search & Compare ///
-   Such_Text      = "[:space:]*"
-   '///+ Enter RegExp in Field Search for : '[:space:]*'  ///
-   Vergleichstext = "                                                                                                                     "
-   '/// Compare string found with: 'All spaces in document' ///
-   call Search_Und_Vergleichen
-endcase
-
-testcase tChartype_print
-   call Ausgangszustand_herstellen
-   '/// <B>Set to default values</B> ///
-   '///+ Open file "..\writer\optional\input\search\regu_aus.sxw" ///
-   '///+ Close 'Find&Replace' dialog if open ///
-   '///+ Point cursor to beginning of document ///
-   '///+ Open 'Find&Replace' dialog ///
-   '///+ Clear Editfield 'Search for' ///
-   '///+ Uncheck 'Whole words only' ///
-   '///+ Uncheck 'Backwards' ///
-   '///+ Uncheck 'Match Case' ///
-   '///+ Uncheck 'Current selection only' ///
-   '///+ Uncheck 'Search for Styles' ///
-   '///+ Uncheck 'Similarity Search' ///
-   '///+ Check 'Regular Expressions' ///
-
-   '/// Start Search & Compare ///
-   Such_Text      = "[:print:]*"
-   '///+ Enter RegExp in Field Search for : '[:print:]*'  ///
-   Vergleichstext = "HuhuhuHuhuhuTest-Text für "+chr$(34)+"Reguläre Ausdrücke"+chr$(34)+"Ein beliebiges Zeichen in einem WortFinde Möller und Müller, nicht Mller und Mueller !Wort am Anfang des AbsatzesAnfang Quaeramus tum aliarum rerum, quae vitam instruunt, diligens sine admiratione cuiusquam, usura fortunae muneribus, non servitura.Wort am Ende des AbsatzesQuaeramus tum aliarum rerum, quae vitam instruunt, diligens sine admiratione cuiusquam, usura fortunae muneribus, non servitura EndeKein oder mehrere Zeichen zwischen den WörternPeter ist im Haus. - Aha !Peter liebt dieses Haus. - Warum?Es ist Peters Haus. Ach so.Das Peterhaus. - Natürlich!Suchtext am Anfang des Wortesaaahier kommt das wortaaaSuchtext am Ende des Worteseeehier kommt das worteeeSonderzeichen$TabulatorenHiersindTabsgesetzt !AlternativgruppenErst kam ein Zweites WortDann kam ein Erstes WortUnd wieder ein Zweites WortLeerer AbsatzZeilenvorschubSonderzeichen@`Àà!Aa¡Áá"+chr$(34)+"Bb¢Ââ#Cc£Ãã$Dd¤Ää%Ee¥Åå&FfÆæ'Gg§Çç(Hh¨Èè)Ii©ÉéJjªÊê+KkËë,Ll¬ÌìMmÍí.®Îî/Oo¯ÏïPp°ÐðQq±ÑñRr²ÒòSs³ÓóTt´ÔôUuÕõVv¶ÖöWw·×÷Xx¸ØøYy¹Ùù:ZzºÚú;[{Ûû<\|¼Üü=]}½Ýý>^~¾Þþ?_¿ßÿ-RahmenHalloo kikiriki kirikeircidkvvdn hhalloDer Rahmen ist hier hinten Rahmenend" 'Test-Text für "+chr$(34)+"Reguläre Ausdrücke"+chr$(34)
-   '/// Compare string found with: '' ///
-   call Search_Und_Vergleichen
-endcase
-
-testcase tChartype_alnum
-   call Ausgangszustand_herstellen
-   '/// <B>Set to default values</B> ///
-   '///+ Open file "..\writer\optional\input\search\regu_aus.sxw" ///
-   '///+ Close 'Find&Replace' dialog if open ///
-   '///+ Point cursor to beginning of document ///
-   '///+ Open 'Find&Replace' dialog ///
-   '///+ Clear Editfield 'Search for' ///
-   '///+ Uncheck 'Whole words only' ///
-   '///+ Uncheck 'Backwards' ///
-   '///+ Uncheck 'Match Case' ///
-   '///+ Uncheck 'Current selection only' ///
-   '///+ Uncheck 'Search for Styles' ///
-   '///+ Uncheck 'Similarity Search' ///
-   '///+ Check 'Regular Expressions' ///
-
-   '/// Start Search & Compare ///
-   Such_Text      = "[:alnum:]*"
-   '///+ Enter RegExp in Field Search for : '[:alnum:]*'  ///
-   Vergleichstext = "HuhuhuHuhuhuTestTextfürReguläreAusdrückeEinbeliebigesZeichenineinemWortFindeMöllerundMüllernichtMllerundMuellerWortamAnfangdesAbsatzesAnfangQuaeramustumaliarumrerumquaevitaminstruuntdiligenssineadmirationecuiusquamusurafortunaemuneribusnonservituraWortamEndedesAbsatzesQuaeramustumaliarumrerumquaevitaminstruuntdiligenssineadmirationecuiusquamusurafortunaemuneribusnonservituraEndeKeinodermehrereZeichenzwischendenWörternPeteristimHausAhaPeterliebtdiesesHausWarumEsistPetersHausAchsoDasPeterhausNatürlichSuchtextamAnfangdesWortesaaahierkommtdaswortaaaSuchtextamEndedesWorteseeehierkommtdasworteeeSonderzeichenTabulatorenHiersindTabsgesetztAlternativgruppenErstkameinZweitesWortDannkameinErstesWortUndwiedereinZweitesWortLeererAbsatzZeilenvorschubSonderzeichenÀàAaÁáBbÂâCcÃãDdÄäEeÅåFfÆæGgÇçHhÈèIiÉéJjªÊêKkËëLlÌìMmÍíÎîOoÏïPpÐðQqÑñRr²ÒòSs³ÓóTtÔôUuÕõVvÖöWwXxØøYy¹ÙùZzºÚúÛû¼Üü½Ýý¾ÞþßÿRahmenHallookikirikikirikeircidkvvdnhhalloDerRahmenisthierhintenRahmenend" 'Test
-   '/// Compare string found with: '' ///
-   call Search_Und_Vergleichen
-endcase
-
-testcase tChartype_alpha
-   call Ausgangszustand_herstellen
-   '/// <B>Set to default values</B> ///
-   '///+ Open file "..\writer\optional\input\search\regu_aus.sxw" ///
-   '///+ Close 'Find&Replace' dialog if open ///
-   '///+ Point cursor to beginning of document ///
-   '///+ Open 'Find&Replace' dialog ///
-   '///+ Clear Editfield 'Search for' ///
-   '///+ Uncheck 'Whole words only' ///
-   '///+ Uncheck 'Backwards' ///
-   '///+ Uncheck 'Match Case' ///
-   '///+ Uncheck 'Current selection only' ///
-   '///+ Uncheck 'Search for Styles' ///
-   '///+ Uncheck 'Similarity Search' ///
-   '///+ Check 'Regular Expressions' ///
-
-   '/// Start Search & Compare ///
-   Such_Text      = "[:alpha:]*"
-   '///+ Enter RegExp in Field Search for : '[:alpha:]*'  ///
-   Vergleichstext = "HuhuhuHuhuhuTestTextfürReguläreAusdrückeEinbeliebigesZeichenineinemWortFindeMöllerundMüllernichtMllerundMuellerWortamAnfangdesAbsatzesAnfangQuaeramustumaliarumrerumquaevitaminstruuntdiligenssineadmirationecuiusquamusurafortunaemuneribusnonservituraWortamEndedesAbsatzesQuaeramustumaliarumrerumquaevitaminstruuntdiligenssineadmirationecuiusquamusurafortunaemuneribusnonservituraEndeKeinodermehrereZeichenzwischendenWörternPeteristimHausAhaPeterliebtdiesesHausWarumEsistPetersHausAchsoDasPeterhausNatürlichSuchtextamAnfangdesWortesaaahierkommtdaswortaaaSuchtextamEndedesWorteseeehierkommtdasworteeeSonderzeichenTabulatorenHiersindTabsgesetztAlternativgruppenErstkameinZweitesWortDannkameinErstesWortUndwiedereinZweitesWortLeererAbsatzZeilenvorschubSonderzeichenÀàAaÁáBbÂâCcÃãDdÄäEeÅåFfÆæGgÇçHhÈèIiÉéJjªÊêKkËëLlÌìMmÍíÎîOoÏïPpÐðQqÑñRrÒòSsÓóTtÔôUuÕõVvÖöWwXxØøYyÙùZzºÚúÛûÜüÝýÞþßÿRahmenHallookikirikikirikeircidkvvdnhhalloDerRahmenisthierhintenRahmenend" 'Test"
-   '/// Compare string found with: '' ///
-   call Search_Und_Vergleichen
-endcase
-
-testcase tChartype_cntrl
-   call Ausgangszustand_herstellen
-   '/// <B>Set to default values</B> ///
-   '///+ Open file "..\writer\optional\input\search\regu_aus.sxw" ///
-   '///+ Close 'Find&Replace' dialog if open ///
-   '///+ Point cursor to beginning of document ///
-   '///+ Open 'Find&Replace' dialog ///
-   '///+ Clear Editfield 'Search for' ///
-   '///+ Uncheck 'Whole words only' ///
-   '///+ Uncheck 'Backwards' ///
-   '///+ Uncheck 'Match Case' ///
-   '///+ Uncheck 'Current selection only' ///
-   '///+ Uncheck 'Search for Styles' ///
-   '///+ Uncheck 'Similarity Search' ///
-   '///+ Check 'Regular Expressions' ///
-
-   '/// Start Search & Compare ///
-   Such_Text      = "[:cntrl:]*"
-   '///+ Enter RegExp in Field Search for : '[:cntrl:]*'  ///
-   Vergleichstext = Chr(9) + Chr(9) + Chr(9)
-   '/// Compare string found with: '' ///
-   call Search_Und_Vergleichen
-endcase
-
-testcase tChartype_lower
-   call Ausgangszustand_herstellen
-   '/// <B>Set to default values</B> ///
-   '///+ Open file "..\writer\optional\input\search\regu_aus.sxw" ///
-   '///+ Close 'Find&Replace' dialog if open ///
-   '///+ Point cursor to beginning of document ///
-   '///+ Open 'Find&Replace' dialog ///
-   '///+ Clear Editfield 'Search for' ///
-   '///+ Uncheck 'Whole words only' ///
-   '///+ Uncheck 'Backwards' ///
-   '///+ Uncheck 'Match Case' ///
-   '///+ Uncheck 'Current selection only' ///
-   '///+ Uncheck 'Search for Styles' ///
-   '///+ Uncheck 'Similarity Search' ///
-   '///+ Check 'Regular Expressions' ///
-
-   '/// Start Search & Compare ///
-   Such_Text      = "[:lower:]*"
-   '///+ Enter RegExp in Field Search for : '[:lower:]*'  ///
-   Vergleichstext = "uhuhuuhuhuestextfüreguläreusdrückeinbeliebigeseichenineinemortindeöllerundüllernichtllerunduellerortamnfangdesbsatzesnfanguaeramustumaliarumrerumquaevitaminstruuntdiligenssineadmirationecuiusquamusurafortunaemuneribusnonservituraortamndedesbsatzesuaeramustumaliarumrerumquaevitaminstruuntdiligenssineadmirationecuiusquamusurafortunaemuneribusnonserviturandeeinodermehrereeichenzwischendenörterneteristimaushaeterliebtdiesesausarumsistetersauschsoaseterhausatürlichuchtextamnfangdesortesaaahierkommtdaswortaaauchtextamndedesorteseeehierkommtdasworteeeonderzeichenabulatoreniersindabsgesetztlternativgruppenrstkameinweitesortannkameinrstesortndwiedereinweitesorteererbsatzeilenvorschubonderzeichenàaábâcãdäeåfægçhèiéjªêkëlìmíîoïpðqñròsótôuõvöwxøyùzºúûüýþßÿahmenallookikirikikirikeircidkvvdnhhalloerahmenisthierhintenahmenend" 'est"
-   '/// Compare string found with: '' ///
-   MatchCase.Check
-   call Search_Und_Vergleichen
-endcase
-
-testcase tChartype_upper
-   call Ausgangszustand_herstellen
-   '/// <B>Set to default values</B> ///
-   '///+ Open file "..\writer\optional\input\search\regu_aus.sxw" ///
-   '///+ Close 'Find&Replace' dialog if open ///
-   '///+ Point cursor to beginning of document ///
-   '///+ Open 'Find&Replace' dialog ///
-   '///+ Clear Editfield 'Search for' ///
-   '///+ Uncheck 'Whole words only' ///
-   '///+ Uncheck 'Backwards' ///
-   '///+ Uncheck 'Match Case' ///
-   '///+ Uncheck 'Current selection only' ///
-   '///+ Uncheck 'Search for Styles' ///
-   '///+ Uncheck 'Similarity Search' ///
-   '///+ Check 'Regular Expressions' ///
-
-   '/// Start Search & Compare ///
-   Such_Text      = "[:upper:]*"
-   '///+ Enter RegExp in Field Search for : '[:upper:]*'  ///
-   Vergleichstext = "HHTTRAEZWFMMMMWAAAQWEAQEKZWPHAPHWEPHADPNSAWSEWSTHTAEZWDEWUZWLAZSÀAÁBÂCÃDÄEÅFÆGÇHÈIÉJÊKËLÌMÍÎOÏPÐQÑRÒSÓTÔUÕVÖWXØYÙZÚÛÜÝÞRHDRR"
-   '/// Compare string found with: '' ///
-   MatchCase.Check
-   call Search_Und_Vergleichen
-endcase
-
-'---------------------------------------------------------
-'---------------------------------------------------------
-'---------------   Unterprogramme   ----------------------
-'---------------------------------------------------------
-sub Ausgangszustand_herstellen
-   '/// <B>Set to default values</B> ///
-   '///+ Open file "..\writer\optional\input\search\regu_aus.sxw" ///
-   '///+ Close 'Find&Replace' dialog if open ///
-   '///+ Point cursor to beginning of document ///
-   '///+ Open 'Find&Replace' dialog ///
-   '///+ Clear Editfield 'Search for' ///
-   '///+ Uncheck 'Whole words only' ///
-   '///+ Uncheck 'Backwards' ///
-   '///+ Uncheck 'Match Case' ///
-   '///+ Uncheck 'Current selection only' ///
-   '///+ Uncheck 'Search for Styles' ///
-   '///+ Uncheck 'Similarity Search' ///
-   '///+ Check 'Regular Expressions' ///
-   hFileOpenLocally(  gtesttoolpath + "writer\optional\input\search\regu_aus.sxw")
-   
-   kontext
-   if FindAndReplace.Exists then FindAndReplace.Close
-   kontext "DocumentWriter"
-   DocumentWriter.Typekeys "<PAGEUP>", 2          'an den Anfang des Textes gehen
-   DocumentWriter.Typekeys "<MOD1 HOME>"
-   EditSearchAndReplace
-   kontext "FindAndReplace"            'Search&Replace-Fenster ├ö├Â┬úÔö£├é├ö├Â┬úÔö£├®├ö├Â┬╝Ôö£ÔòæÔö£├ÂÔö£├éÔö¼├║├ö├Â┬úÔö¼┬½ffnen
-   try
-    SearchFor.Settext ""
-   catch
-   endcatch
-   if SimilaritySearch.IsVisible = False then More.Click
-   if SimilaritySearch.IsEnabled then SimilaritySearch.Uncheck
-   if SearchForStyles.IsEnabled then SearchForStyles.Uncheck
-   if RegularExpressions.IsEnabled then RegularExpressions.Uncheck
-   if NoFormat.IsEnabled then NoFormat.Click
-   if CurrentSelectionOnly.IsEnabled then CurrentSelectionOnly.Uncheck
-   WholeWordsOnly.Uncheck                'Im Suchdialog alles unchecken,
-   Backwards.Uncheck                    'damit ein definierter Anfangs-
-   MatchCase.Uncheck                    'zustand erreicht wird.
-   RegularExpressions.Check                  'Regul├ö├Â┬úÔö£├é├ö├Â┬úÔö£├®├ö├Â┬╝Ôö£ÔòæÔö£├ÂÔö£├éÔö¼├║Ôö£├ÂÔö£ÔòùÔö£├Ñrer Ausdruck mu├ö├Â┬úÔö£├é├ö├Â┬úÔö£├®├ö├Â┬╝Ôö£Ôòæ├ö├Â┬úÔö£Ôòæ├ö├Â┬úÔö£├æ gecheckt sein
-end sub
-
-'-------------------------------------------------------
-sub Search_Und_Vergleichen
-  dim dummy as string            'Sucht den Ausdruck und vergleicht
-                                    'Such_Text mit dem Text, der nach
-   SearchFor.SetText Such_Text     'nach der Suche markiert ist und
-   if Such_Text = "$" then
-      SearchNow.Click
-   else
-      SearchAll.Click
-   end if
-   Kontext "Active"
-   if Active.Exists then
-    if Active.GetRT = 304 then ' MESSBOX
-     Warnlog "active: " + Active.Gettext
-     Active.Ok
-    end if
-   end if
-   kontext "FindAndReplace"
-   if FindAndReplace.Exists then
-     FindAndReplace.Close
-    else
-     Warnlog "Dialog 'Find & Replace' not open anymore!"
-   end if
-   Kontext "DocumentWriter"
-    try
-     EditCopy
-    catch
-     Warnlog "Edit /Copy disabled!"
-     DocumentWriter.Typekeys "<MOD1 HOME>"
-     hCloseDocument
-     exit sub
-    endcatch
-
-    Sleep 1
-    if Vergleichstext = chr(13)+chr(10) OR Vergleichstext = chr(10) OR Vergleichstext = chr(13) then
-       dummy = GetClipboard
-    else
-       dummy = GetClipboardText
-    end if
-    if Vergleichstext <> dummy then
-       Warnlog "'",dummy,"' has been found, and not '",Vergleichstext,"'"
-    else
-       printlog "'Find' found correct word!"
-    end if
-    DocumentWriter.Typekeys "<MOD1 HOME>"
-
-   hCloseDocument
-end sub
diff --git a/testautomation/writer/optional/includes/regexp/search.inc b/testautomation/writer/optional/includes/regexp/search.inc
deleted file mode 100644
index e5fe3b4f267f..000000000000
--- a/testautomation/writer/optional/includes/regexp/search.inc
+++ /dev/null
@@ -1,1697 +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 : helge.delfs@oracle.com
-'*
-'* short description : Search & Replace
-'*
-'\***********************************************************************
-
-sub search
-
-   if bAsianLan = false then Call ActiveDeactivateAsianSupport(False)
-   call tCheckDialog
-   call tCallDialog
-   call tFree_Text
-
-   call tAlle_Suchen
-   call tSelection
-   call tPart_of_a_word
-   call tWhole_Word
-   call tMatch_Case
-
-   call tItalic_Search
-
-   call tItalic_Replace
-   call tUnderline_Search
-   call tUnderline_Replace
-   call tAll_Replace
-
-   call tReplace_Arial_with_TmsRmn
-   call tBackwards_Search
-   call tSeveral_Times
-   call tFurther_Look_up_At_The_Beginning
-   call tParagraphStyle_Search
-   call tText_In_Table
-   call tText_In_Frame
-   call tSimilarity_Search
-
-end sub
-
-'---------------------------------------------------------
-testcase tCheckDialog
-    
-    Dim Checkboxtitel
-   Call hNewDocument
-   EditSearchAndReplace
-   Sleep 2
-   Kontext "FindAndReplace"
-   if FindAndReplace.NotExists then EditSearchAndReplace
-
-  printlog "Check Find-and-Replace-Dialog"
-  printlog "- Dependencies of Buttons in Search-for-Entry"
-   SearchFor.SetText ""
-   if Not Backwards.IsVisible then More.Click
-   if SimilaritySearch.IsEnabled and SimilaritySearch.IsChecked then SimilaritySearch.Uncheck
-   if SearchAll.IsEnabled then Warnlog "Without Search-for-entry Find-All is active!"
-   if SearchNow.IsEnabled then Warnlog "Without Search-for-entry Find is active!"
-   if ReplaceAll.IsEnabled then Warnlog "Without Search-for-entry Replace-All is active!"
-   if ReplaceBtn.IsEnabled then Warnlog "Without Search-for-entry Replace is active!"
-   if NoFormat.IsEnabled then Warnlog "Without selecting Formats , No-Format is active!"
-   SearchFor.SetText "Hallo"
-   if NOT SearchAll.IsEnabled then Warnlog "Containing Search-for-entry Find-All is inactive!"
-   if NOT SearchNow.IsEnabled then Warnlog "Containing Search-for-entry Find inactive!"
-   if NOT ReplaceAll.IsEnabled then Warnlog "Containing Search-for-entry Replace-All is inactive!"
-   if NOT ReplaceBtn.IsEnabled then Warnlog "Containing Search-for-entry Replace is inactive!"
-
-   Sleep 5
-  printlog "- Dependencies of Format-Properties"
-   Kontext "FindAndReplace"
-   Formats.Click
-   wait 500
-   Kontext
-    Active.SetPage TabFontEffects
-   Kontext "TabFontEffects"
-    Outline.Check
-    TabFontEffects.OK
-   wait 500
-   kontext "FindAndReplace"
-    if NOT NoFormat.IsEnabled then Warnlog "Containing Formats, No-Formats is inactive!"
-    NoFormat.Click
-   wait 500
-
-  printlog "- Dependencies of Checkboxes"
-   RegularExpressions.Check
-   wait 500
-   if WholeWordsOnly.IsEnabled then Warnlog "Regular expressions: 'Whoole words only' is active => BUG!"
-   if NOT Backwards.IsEnabled then Warnlog "Regular expressions: 'Backwards' is inactive => BUG!"
-   if NOT MatchCase.IsEnabled then Warnlog "Regular expressions: 'Match case' is inactive => BUG!"
-   if CurrentSelectionOnly.IsEnabled then Warnlog "Regular expressions: 'Current selection only' is active => BUG!"
-   if NOT SearchForStyles.IsEnabled then Warnlog "Regular expressions: 'Search for Styles' is inactive => BUG!"
-   if SimilaritySearch.IsEnabled then Warnlog "Regular expressions: 'Similarity search' is active => BUG!"
-   if SimilaritySearchFor.IsEnabled then Warnlog "Regular expressions: Button for 'Similarity search' - dialog is active => BUG!"
-   RegularExpressions.UnCheck
-
-   wait 500
-   SearchForStyles.Check
-   if WholeWordsOnly.IsEnabled then Warnlog "Search for Styles: 'Whole words only' is active => BUG!"
-   if NOT Backwards.IsEnabled then Warnlog "Search for Styles: 'Backwards' is inactive => BUG!"
-   if RegularExpressions.IsEnabled then Warnlog "Search for Styles: 'Regular expressions' is active => BUG!"
-   if MatchCase.IsEnabled then Warnlog "Search for Styles: 'Match case' is active => BUG!"
-   if CurrentSelectionOnly.IsEnabled then Warnlog "Regular expressions: 'Current selection only' is active => BUG!"
-   if SimilaritySearch.IsEnabled then Warnlog "Search for Styles: 'Similarity search' is active => BUG!"
-   if SimilaritySearchFor.IsEnabled then Warnlog "Search for Styles: Button for 'Similarity search' - dialog is active => BUG! "
-   SearchForStyles.UnCheck
-
-   wait 500
-   SimilaritySearch.Check
-   if NOT WholeWordsOnly.IsEnabled then Warnlog "Similarity Search: 'Whole words only' is active => BUG!"
-   if NOT Backwards.IsEnabled then Warnlog "Similarity Search: 'Backwards' is inactive => BUG!"
-   if RegularExpressions.IsEnabled then Warnlog "Similarity Search: 'Regular expressions' is active => BUG!"
-   if NOT MatchCase.IsEnabled then Warnlog "Similarity Search: 'Match case' is active => BUG!"
-   if CurrentSelectionOnly.IsEnabled then Warnlog "Regular expressions: 'Current selection only' is active => BUG!"
-   if SearchForStyles.IsEnabled then Warnlog "Regular expressions: 'Search for Styles' is active => BUG!"
-   if NOT SimilaritySearchFor.IsEnabled then Warnlog "Similarity Search: Button for 'Similarity search' - dialog is active => BUG! "
-   SimilaritySearch.UnCheck
-   Sleep 2
-   FindAndReplace.Close
-
-   Kontext "DocumentWriter"
-   DocumentWriter.TypeKeys "hallo <Shift Home>"
-   EditSearchAndReplace
-   kontext "FindAndReplace"
-   if NOT CurrentSelectionOnly.IsEnabled then Warnlog "WIth a selected entry, 'Current selection only' isn't active! => BUG"
-   Sleep 2
-   FindAndReplace.Close
-   wait 500
-   Call hCloseDocument
-endcase
-
-'---------------------------------------------------------
-testcase tCallDialog
- Dim Shortcut as String
-   Call hNewDocument
-   '/// Open new document ///
-   kontext "FindAndReplace"
-   Sleep 2
-   if FindAndReplace.Exists then FindAndReplace.Close
-   '/// Close Search&Replace dialog if open ///
-   Kontext "DocumentWriter"
-   select case iSprache
-      case 01 : Shortcut = "<Mod1 f>"
-      case 03 : Shortcut = "<Mod1 g>"
-      case 07 : Shortcut = "<Mod1 f>"
-      case 31 : Shortcut = "<Mod1 f>"
-      case 33 : Shortcut = "<Mod1 f>"
-      case 34 : Shortcut = "<Mod1 b>"
-      case 39 : Shortcut = "<Mod1 f>"
-      case 46 : Shortcut = "<Mod1 f>"
-      case 49 : Shortcut = "<Mod1 f>"
-      case 50 : Shortcut = "<Mod1 f>"
-      case 55 : Shortcut = "<Mod1 f>"
-	  case 81 : Shortcut = "<Mod1 f>"
-      case 82 : Shortcut = "<Mod1 f>"
-      case 86 : Shortcut = "<Mod1 f>"
-      case 88 : Shortcut = "<Mod1 f>"
-      case else : QAErrorLog "Shortcut to call Find&Replace-Dialog has to be included!"
-                  Call hCloseDocument
-                  goto endsub
-   end select
-   '/// Open Search and Replace dialog with Shortcut depending on current language ///
-   DocumentWriter.TypeKeys Shortcut
-   kontext "FindAndReplace"
-   if FindAndReplace.NotExists then
-      Warnlog "Shortcut " + Shortcut + " didn't call the Find dialog"
-   else
-      printlog "- Dialog has been called with Shortcut: " + Shortcut
-   end if
-   Call hCloseDocument
-   '/// Close active document ///
-   Call hNewDocument
-   '/// Open new document ///
-   Kontext "Navigator"
-   If Navigator.Exists then ViewNavigator
-  printlog "- Check, if dialog is not present in a new document"
-   '/// Check, if dialog is not present in a new document ///
-   kontext "FindAndReplace"
-   if FindAndReplace.Exists then
-      Warnlog "Search-For-Dialog has been opened in a new document"
-      EditSearchAndReplace
-   end if
-   Call hCloseDocument
-   '/// Close active document ///
-endcase
-
-'---------------------------------------------------------
-testcase tFree_Text
-   Call wSetFindAndReplaceToDefault(1)
-   Such_Text = "non"                               'Suchen in freiem Text
-   Meldungs_Text = "Suchen in freiem Text"
-   SearchFor.SetText Such_Text
-   ReplaceWith.SetText Meldungs_Text
-   SearchNow.Click
-   call Vergleichen_und_ausgeben
-   EditSearchAndReplace
-   kontext "FindAndReplace"            'Suchen&Replace-Fenster "ffnen
-   SearchNow.Click
-   call Vergleichen_und_ausgeben
-   Call hCloseDocument
-endcase
-
-'---------------------------------------------------------
-testcase tSelection
-   Call wSetFindAndReplaceToDefault(1)
-   Such_Text = "d n"
-   Meldungs_Text = "Suchen in selektiertem Text"              'Suchen in selektiertem Text
-   Sleep 2
-   FindAndReplace.Close
-   kontext "DocumentWriter"
-   DocumentWriter.TypeKeys "<Shift PageDown>"
-   EditSearchAndReplace
-   kontext "FindAndReplace"
-   SearchFor.SetText Such_Text
-   if CurrentSelectionOnly.IsVisible = False then More.Click
-   if not CurrentSelectionOnly.ischecked then                        'Sollte automatisch
-   Warnlog "   'Current selection only' has not been checked automatically"       'gecheckt sein, wenn
-   CurrentSelectionOnly.check                                     'Text markiert ist
-   else
-      printlog "OK: Only in Selection is checked automatically"
-   end if
-   ReplaceWith.SetText Meldungs_Text
-   SearchNow.Click
-    call Vergleichen_und_ausgeben
-
-   EditSearchAndReplace
-   kontext "FindAndReplace"            'Suchen&Replace-Fenster "ffnen
-   SearchNow.Click
-   call Vergleichen_und_ausgeben
-   Call hCloseDocument
-endcase
-
-'---------------------------------------------------------
-testcase tPart_of_a_word
-   Call wSetFindAndReplaceToDefault(1)
-   Such_Text = "te"
-   Meldungs_Text = "Suchen Teil eines Wortes"         'Suchen  Teil eines Wortes
-   SearchFor.SetText Such_Text
-   ReplaceWith.SetText Meldungs_Text
-   SearchNow.Click
-   call Vergleichen_und_ausgeben
-   Call hCloseDocument
-endcase
-
-'---------------------------------------------------------
-testcase tWhole_Word
-   call wSetFindAndReplaceToDefault(1)
-   Such_Text = "illa"
-   Meldungs_Text = "Suchen nur ganzes Wort"        'Suchen  nur ganzes Wort
-   SearchFor.SetText Such_Text
-   ReplaceWith.SetText Meldungs_Text
-   WholeWordsOnly.Check
-   SearchNow.Click                     '"te" ist Teil eines Wortes, "Te" als
-   call Vergleichen_und_ausgeben
-   Call hCloseDocument
-endcase
-
-'---------------------------------------------------------
-testcase tMatch_Case
-   call wSetFindAndReplaceToDefault(1)
-   Such_Text = "Be"                 'Exakte Suche
-   Meldungs_Text = "Exakte Suche"
-   ReplaceWith.SetText Meldungs_Text
-   'sleep 1
-   MatchCase.check
-   SearchFor.SetText Such_Text
-   SearchAll.Click
-   call Vergleichen_und_ausgeben
-   Call hCloseDocument
-endcase
-
-'---------------------------------------------------------
-testcase tItalic_Search
-   call wSetFindAndReplaceToDefault(1)
-   Such_Text = "k"                     'Suche nach Format "kursiv"
-   Meldungs_Text = "Suchen Format kursiv"
-   SearchFor.SetText Such_Text
-   try
-    Formats.Click
-    wait 500
-   catch
-    Warnlog "Button 'Format is disabled !"
-    Call hCloseDocument
-    goto endsub
-   endcatch
-
-   Kontext
-   Active.Setpage TabFont
-   Kontext "TabFont"
-   if gAsianSup = True or gCTLSup = True then
-      try
-         StyleWest.Select 2
-      catch
-         Warnlog "Style has not been found ! -> Asian-Support: " + gAsianSup + "CTL-Support: " + gCTLSup
-         Style.Select 2
-      endcatch
-   else
-      Style.Select 2
-   end if
-   wait 500
-   TabFont.Ok
-   ' Workaround
-   Kontext "FindAndReplace"
-   NoFormat.Click
-   wait 500
-   Formats.Click
-   sleep  1
-   kontext
-   Active.SetPage TabFont
-   kontext "TabFont"
-   sleep  1
-   if gAsianSup = True or gCTLSup = True then
-     StyleWest.Select 2
-   else
-     Style.Select 2
-   end if
-   sleep  1
-   TabFont.OK
-   sleep  1
-   ' Workaround ends here
-   Kontext "FindAndReplace"
-   ReplaceWith.SetText Meldungs_Text
-   sleep  1
-   SearchAll.Click                     'wenn auf Format geachtet wird,
-   sleep  1
-   call Vergleichen_und_ausgeben             'darf nur ein "k" gefunden werden
-   sleep  1
-   Call hCloseDocument
-endcase
-
-'---------------------------------------------------------
-testcase tItalic_Replace
-   call wSetFindAndReplaceToDefault(1)
-   Such_Text = "kursiv"                'Suche Format "kursiv", ersetze
-   Meldungs_Text = "Ersetzte kursiv mit durchgestrichen"    'mit Format "durchgestrichen"
-   SearchFor.SetText Such_Text
-   wait 500
-   try
-    NoFormat.Click
-   catch
-   endcatch
-   wait 500
-   Formats.Click
-   sleep  1
-   kontext
-   Active.SetPage TabFont
-   kontext "TabFont"
-   sleep  1
-   if gAsianSup = True or gCTLSup = True then
-      try
-         StyleWest.Select 2
-      catch
-         Warnlog "Style has not been found ! -> Asian-Support: " + gAsianSup + "CTL-Support: " + gCTLSup
-         Style.Select 2
-      endcatch
-   else
-     Style.Select 2
-   end if
-   sleep  1
-   TabFont.OK
-   sleep  1
-   kontext "FindAndReplace"
-   NoFormat.Click
-   ' Tried a workaround, because sometimes, searchstring ends with ','. Dont know why !?
-   Formats.Click
-   sleep  1
-   kontext
-   Active.SetPage TabFont
-   kontext "TabFont"
-   sleep  1
-   if gAsianSup = True or gCTLSup = True then
-     StyleWest.Select 2
-   else
-     Style.Select 2
-   end if
-   sleep  1
-   TabFont.OK
-   sleep  1
-   kontext "FindAndReplace"
-
-
-   ReplaceWith.SetText "durchgestrichen"
-   sleep  1
-   Formats.Click
-   kontext
-   sleep  1
-   Active.SetPage TabFontEffects
-   kontext "TabFontEffects"
-   sleep  1
-   StrikeThrough.Select 2
-   sleep  1
-   TabFontEffects.OK
-   sleep  1
-   kontext "FindAndReplace"
-   sleep  1
-   ReplaceAll.Click
-   sleep  1
-   kontext
-   sleep  1
-   Kontext "Active"
-   if Active.Exists then
-    if Active.GetRT = 304 then
-     Active.OK                     'MSG-Box (... x ersetzt) schließen
-    else
-     Warnlog "Messagebox, how often replaced, not up !"
-    end if
-   end if
-   sleep  2
-   kontext "FindAndReplace"
-   FindAndReplace.Close
-   sleep  1
-   Kontext "DocumentWriter"
-   DocumentWriter.Typekeys "<MOD1 HOME>"
-   EditSearchAndReplace
-   kontext "FindAndReplace"
-   Such_Text = "durchgestrichen"
-   SearchFor.SetText Such_Text
-   sleep  1
-   if NoFormat.IsVisible = False then More.Click
-   NoFormat.Click
-   sleep  1
-   ReplaceWith.SetText "durchgestrichen suchen"
-   sleep  1
-   NoFormat.Click
-   sleep  1
-   SearchAll.Click
-   sleep  1
-   call Vergleichen_und_ausgeben
-   FormatCharacter
-   Kontext
-   active.SetPage TabFontEffects
-   Kontext "TabFontEffects"
-   if StrikeThrough.GetSelIndex <> 2 then Warnlog "Format 'Strikethrough' has not been overtaken!"
-   TabFontEffects.Cancel
-   Call hCloseDocument
-endcase
-
-'---------------------------------------------------------
-testcase tUnderline_Search
-    if gCTLSup = True then
-        QAErrorlog "No Check for attributes if CTL enabled!"
-        goto endsub
-    end if        
-    call wSetFindAndReplaceToDefault(1)
-    Such_Text = "U"                     'search for Attributes underlined
-    Meldungs_Text = "search Attribut Underlined"
-    if gAsianSup = false then
-        Select Case iSprache
-            case 01: ToggleAttribute(30,"True")             'Check Attributes underlined
-            case 07: ToggleAttribute(16,"True")             'Check Attributes underlined
-            case 31: ToggleAttribute(12,"True")             'Check Attributes underlined
-            case 33: ToggleAttribute(27,"True")
-            case 34: ToggleAttribute(28,"True")
-            case 39: ToggleAttribute(27,"True")
-            case 46: ToggleAttribute(30,"True")            
-            case 49: ToggleAttribute(28,"True")
-            case 50: ToggleAttribute(15,"True")
-            case 55: ToggleAttribute(29,"True")
-            case 88: ToggleAttribute(13,"True")
-            case else : QAErrorlog "Please adapt test for this language!"
-                    Call hCloseDocument
-                    goto endsub
-        end select
-    else
-        Select Case iSprache
-            case 01: ToggleAttribute(39,"True")             'Check Attributes underlined
-            case 07: ToggleAttribute(22,"True")             
-            case 31: ToggleAttribute(17,"True")             'Onderstrepen
-            case 33: ToggleAttribute(36,"True")             ' Soulignage
-            case 34: ToggleAttribute(37,"True")             ' Subrayado
-            case 39: ToggleAttribute(35,"True")             ' Sottolineato
-            case 46: ToggleAttribute(40,"True")             ' Understruken
-            case 49: ToggleAttribute(37,"True")             ' Unterstrichen
-            case 50: ToggleAttribute(24,"True")             ' Podčrtano
-            case 55: ToggleAttribute(38,"True")             ' Sublinhado
-            case 88: ToggleAttribute(13,"True")
-            case else : QAErrorlog "Please adapt test for this language!"
-                    Call hCloseDocument
-                    goto endsub
-        end select   
-    end if
-   
-   SearchFor.SetText Such_Text
-   ReplaceWith.SetText Meldungs_Text
-   SearchAll.Click                     'if looking for the Attributes,
-   call Vergleichen_und_ausgeben
-   Call hCloseDocument
-endcase
-
-'---------------------------------------------------------
-testcase tUnderline_Replace
-    if gCTLSup = True then
-        QAErrorlog "No Check for attributes if CTL enabled!"
-        goto endsub
-    end if        
-    call wSetFindAndReplaceToDefault(1)
-    Such_Text = "Unterstrichen"                  'search for Attributes underlined
-    Meldungs_Text = "search underlined, replace shadow"      'replace with 'shadow'
-    SearchFor.SetText Such_Text
-    if gAsianSup = false then
-        Select Case iSprache
-            case 01: ToggleAttribute(30,"True")             'Check Attributes underlined
-            case 07: ToggleAttribute(16,"True")
-            case 31: ToggleAttribute(12,"True")
-            case 33: ToggleAttribute(27,"True")
-            case 34: ToggleAttribute(28,"True")
-            case 39: ToggleAttribute(27,"True")
-            case 46: ToggleAttribute(30,"True")            
-            case 49: ToggleAttribute(28,"True")
-            case 50: ToggleAttribute(15,"True")
-            case 55: ToggleAttribute(29,"True")
-            case 88: ToggleAttribute(13,"True")
-            case else : QAErrorlog "Please adapt test for this language!"
-                    Call hCloseDocument
-                    goto endsub
-        end select
-    else
-        Select Case iSprache
-            case 01: ToggleAttribute(39,"True")             'Check Attributes underlined
-            case 07: ToggleAttribute(22,"True")
-            case 31: ToggleAttribute(17,"True")             ' Onderstrepen
-            case 33: ToggleAttribute(36,"True")             ' Soulignage
-            case 34: ToggleAttribute(37,"True")             ' Subrayado
-            case 39: ToggleAttribute(35,"True")             ' Sottolineato
-            case 46: ToggleAttribute(40,"True")             ' Understruken
-            case 49: ToggleAttribute(37,"True")             ' Unterstrichen
-            case 50: ToggleAttribute(24,"True")             ' Podčrtano
-            case 55: ToggleAttribute(38,"True")             ' Sublinhado
-            case 88: ToggleAttribute(13,"True")
-            case else : QAErrorlog "Please adapt test for this language!"
-                    Call hCloseDocument
-                    goto endsub
-        end select   
-    end if
-    ReplaceWith.SetText "Schatten"
-    Formats.Click
-    kontext
-    Active.SetPage TabFontEffects
-    kontext "TabFontEffects"
-    Shadow.Check
-    TabFontEffects.OK
-    kontext "FindAndReplace"
-    ReplaceAll.Click
-    Kontext "Active"
-    if Active.Exists then
-        if Active.GetRT = 304 then
-            Active.OK                     'MSG-Box (... x ersetzt) schließen
-        end if
-    end if
-    kontext "FindAndReplace"
-    Such_Text = "Schatten"
-    SearchFor.SetText Such_Text
-    NoFormat.Click
-    'ReplaceWith.SetText Meldungs_Text
-    SearchAll.Click
-    call Vergleichen_und_ausgeben
-    FormatCharacter
-    Kontext
-    active.SetPage TabFontEffects
-    Kontext "TabFontEffects"
-    if NOT Shadow.IsChecked then Warnlog "Attribute 'Shadow' has not been overtaken!"
-    TabFontEffects.Cancel
-    Call hCloseDocument
-endcase
-
-'---------------------------------------------------------
-testcase tAll_Replace
-   call wSetFindAndReplaceToDefault(1)
-   Such_Text = "x"                     'Replace alle
-   Meldungs_Text = "Replace alle"
-   SearchFor.SetText Such_Text
-   ReplaceWith.SetText Meldungs_Text
-   ReplaceWith.SetText "y"
-   ReplaceAll.Click
-   Kontext "Active"
-   if Active.Exists then
-    if Active.GetRT = 304 then
-     Active.OK                     'MSG-Box (... x ersetzt) schließen
-    end if
-   end if
-   Such_Text = "y"                     'Suchen  aller "y", um die Ersetzung
-   kontext "FindAndReplace"            'zu pruefen
-   SearchFor.SetText Such_Text
-   ReplaceWith.SetText Meldungs_Text
-   SearchAll.Click
-   Such_Text = "yyyy"                  '4 mal wurde ersetzt
-   call Vergleichen_und_ausgeben
-   Call hCloseDocument
-endcase
-
-'---------------------------------------------------------
-testcase tReplace_Arial_with_TmsRmn
-   call wSetFindAndReplaceToDefault(1)
-   Such_Text = "opus"                  'Suche Arial, 16 pt, ersetze
-   Meldungs_Text = "Ers. Arial mit Times Roman"       'mit Times New Roman, normal 24pt
-   SearchFor.SetText Such_Text
-
-   Formats.Click
-   kontext
-   Active.SetPage TabFont
-   kontext "TabFont"
-   try
-      FontWest.SetText "Arial"
-   catch
-      Font.SetText "Arial"
-   endcatch
-   sleep 2
-   try
-      SizeWest.SetText "16"
-   catch
-      Size.SetText "16"
-   endcatch
-   sleep 2
-   TabFont.OK
-   kontext "FindAndReplace"
-   ReplaceWith.SetText "Ersetzungstext"
-   sleep 2
-
-   Formats.Click
-   kontext
-   Active.SetPage TabFont
-   kontext "TabFont"
-   if gAsianSup = True or gCTLSup = True then
-   		try
-			FontWest.SetText "Times New Roman"
-		catch
-        	Warnlog "Control: 'FontWest' has not been found ! -> Asian-Support: " + gAsianSup + "CTL-Support: " + gCTLSup
-			Font.SetText "Times New Roman"
-		endcatch
-	else
-		Font.SetText "Times New Roman"
-	end if
-   sleep 2
-   if gAsianSup = True or gCTLSup = True then
-     StyleWest.Select 1
-   else
-     Style.Select 1
-   end if
-   sleep 2
-   try
-      SizeWest.SetText "20"
-   catch
-      Size.SetText "20"
-   endcatch
-   sleep 2
-   TabFont.OK
-   sleep 2
-   kontext "FindAndReplace"
-   ReplaceAll.Click
-
-   sleep 2
-   kontext
-   Kontext "Active"
-   if Active.Exists then
-    if Active.GetRT = 304 then
-     Active.OK                     'MSG-Box (... x ersetzt) schließen
-    else
-     Warnlog "Messagebox, how often replaced, not up !"
-    end if
-   end if
-   Sleep 2
-   kontext "FindAndReplace"
-   FindAndReplace.Close
-   Kontext "DocumentWriter"
-   DocumentWriter.Typekeys "<MOD1 HOME>"
-
-   EditSearchAndReplace
-   kontext "FindAndReplace"
-   Such_Text = "Ersetzungstext"
-   SearchFor.SetText Such_Text
-   if NoFormat.IsVisible = False then More.Click
-   NoFormat.Click
-   ReplaceWith.SetText "Ersetzungstext suchen"
-   NoFormat.Click
-   SearchAll.Click
-   call Vergleichen_und_ausgeben
-   Call hCloseDocument
-endcase
-
-'---------------------------------------------------------
-testcase tBackwards_Search
-   call wSetFindAndReplaceToDefault(1)
-   Sleep 2
-   FindAndReplace.Close
-   kontext "DocumentWriter"               'Suchen  rückwärts, dafür an
-   DocumentWriter.Typekeys "<PAGEDOWN>"            'das Ende des Dokuments gehen
-   DocumentWriter.Typekeys "<MOD1 END>"
-   Such_Text = "no"
-   Meldungs_Text = "Suchen rückwärts"
-   EditSearchAndReplace
-   kontext "FindAndReplace"
-   if Backwards.IsVisible = False then More.Click
-   Backwards.Check
-   if WholeWordsOnly.ischecked then
-      Warnlog "   'Match case' is checked"
-      WholeWordsOnly.uncheck
-   end if
-   SearchFor.SetText Such_Text
-   ReplaceWith.SetText Meldungs_Text
-   SearchNow.Click
-   call Vergleichen_und_ausgeben
-   Call hCloseDocument
-endcase
-
-'---------------------------------------------------------
-testcase tSeveral_Times
-  dim Zaehler as integer
-
-   call wSetFindAndReplaceToDefault(1)
-   Such_Text = "m"                     'Suchen  mehrmals
-   Meldungs_Text = "Suchen mehrmals"
-   SearchFor.SetText Such_Text
-   ReplaceWith.SetText Meldungs_Text
-   for Zaehler = 1 to 10
-      SearchNow.Click
-   next Zaehler
-   call Vergleichen_und_ausgeben
-   Call hCloseDocument
-endcase
-
-'---------------------------------------------------------
-testcase tAlle_Suchen
-   call wSetFindAndReplaceToDefault(1)
-   Such_Text = "x"                     'Suchen  alle
-   Meldungs_Text = "Suchen alle"
-   SearchFor.SetText Such_Text
-   ReplaceWith.SetText Meldungs_Text
-   SearchAll.Click
-   Such_Text = "xxxx"                  'im Beispieltext kommt "x" 4 mal vor
-   call Vergleichen_und_ausgeben
-   Call hCloseDocument
-endcase
-
-'---------------------------------------------------------
-testcase tFurther_Look_up_At_The_Beginning
-   call wSetFindAndReplaceToDefault(1)
-   Sleep 2
-   FindAndReplace.Close             'Meldung am Dokumentende
-   kontext "DocumentWriter"
-   DocumentWriter.Typekeys "<MOD1 END>"            'and Ende des Dokuments gehen
-   Such_Text = "o"
-   Meldungs_Text = "Am Dokumentanfang weitersuchen"
-   EditSearchAndReplace
-   kontext "FindAndReplace"
-   SearchFor.SetText Such_Text
-   ReplaceWith.SetText Meldungs_Text
-   SearchNow.Click
-   Kontext "Active"
-   if Active.Exists (1) then
-      dummy_text = Active.GetText               'Auslesen der Meldung (dt/engl/frz)
-      call Meldungs_Test (dummy_text)           'in der Query-Box und Schließen
-      Active.Yes                 'mit JA
-   end if
-   call Vergleichen_und_ausgeben
-   Call hCloseDocument
-endcase
-
-'---------------------------------------------------------
-testcase tParagraphStyle_Search
-    call wSetFindAndReplaceToDefault(1)
-    ' print "the base for the dialog isn't reached!???? before"
-    if Not SearchForStyles.IsVisible then More.Click
-    SearchForStyles.Check    
-    ' <font color=#ff0000> TBO TODO : insert global LOCALE routine for text : 'Heading' </FONT>
-    Select Case iSprache
-        Case 01 : Such_Text = "Heading"
-        Case 03 : Such_Text = "Título"
-        Case 07 : Such_Text = "Заголовок"
-        Case 31 : Such_Text = "Kop"
-        Case 33 : Such_Text = "Titre"
-        Case 34 : Such_Text = "Encabezado"
-        Case 39 : Such_Text = "Intestazione"
-        Case 46 : Such_Text = "Överskrift"
-        Case 49 : Such_Text = "Überschrift"          'Suchen  Absatzformat "Überschrift"
-        Case 50 : Such_Text = "Naslov"
-        Case 55 : Such_Text = "Título Principal"
-        Case 81 : Such_Text = "見出し"
-        Case 86 : Such_Text = "标题"
-        Case 88 : Such_Text = "標題"
-        case else:  QAErrorlog "Insert heading-name (" + wGetHeadingName + ") for language: " + iSprache
-                    Call hCloseDocument
-                    goto endsub
-    end select
-    Meldungs_Text = "Suchen Absatzformat"
-    Sleep 2
-    FindAndReplace.Close
-    kontext "DocumentWriter"
-    DocumentWriter.Typekeys "<RIGHT>"
-    DocumentWriter.Typekeys "<LEFT>"
-    EditSearchAndReplace
-    kontext "FindAndReplace"
-    if SearchForStyles.IsVisible = False then More.Click
-    SearchForStyles.Check
-    sleep 1                       'Vorlagen muessen erst gelesen werden
-    SearchForStyle.Select Such_Text
-    SearchNow.Click
-    Such_Text = chr(9) + "Absatzformat: Überschrift"
-    call Vergleichen_und_ausgeben
-    Call hCloseDocument
-endcase
-
-'---------------------------------------------------------
-testcase tText_In_Table
-    call wSetFindAndReplaceToDefault(1)
-'warnlog "WorkAround beginn-----------------"
-'   kontext "FindAndReplace"
-'   Sleep 2
-'   if FindAndReplace.Exists then            'Evtl. offenes Fenster schließen
-'      FindAndReplace.Close
-'   end if
-'   kontext "DocumentWriter"
-'   EditSearchAndReplace
-'   kontext "FindAndReplace"           'Suchen&Replace-Fenster öffnen
-'   sleep 2
-'warnlog "WorkAround ending!-----------------"
-
- 'print "the base for the dialog isn't reached!???? after!"
-   Such_Text = "Tabelle"                  'Suchen Text in Tabelle
-   Meldungs_Text = "Text in Tabelle"
-   try
-      SearchFor.SetText Such_Text
-   catch
-      print "Text in table not enabled"
-   endcatch
-   ReplaceWith.SetText Meldungs_Text
-   SearchNow.Click
-   call Vergleichen_und_ausgeben
-   Call hCloseDocument
-endcase
-
-'---------------------------------------------------------
-testcase tText_In_Frame
-   call wSetFindAndReplaceToDefault(1)
-   Such_Text = "Rahmen"                'Suchen  Text in Rahmen
-   Meldungs_Text = "Suchen Text in Rahmen"   '
-   SearchFor.SetText Such_Text
-   ReplaceWith.SetText Meldungs_Text
-   SearchNow.Click
-   call Vergleichen_und_ausgeben
-   Call hCloseDocument
-endcase
-
-'---------------------------------------------------------
-
-testcase tSimilarity_Search
-  dim Zaehler as integer
-  dim Zaehler2 as integer
-  dim Zeichen_Tauschen as integer
-  dim Zeichen_Hinzufuegen as integer
-  dim Zeichen_Entfernen as integer
-
-   call wSetFindAndReplaceToDefault(1)
-   Such_Text = "Ähnlichkeit"              'Ähnlichkeitssuche
-   SearchFor.SetText Such_Text
-   if SimilaritySearch.IsVisible = False then More.Click
-   SimilaritySearch.check
-   for Zaehler2 = 1 to 4                  'Es werden die Optionen
-      for Zaehler = 1 to 3                'Tauschen, Hinzufuegen und Entfernen
-         Zeichen_Tauschen = 0             '1 bis 3 mal angechewählt
-         Zeichen_Hinzufuegen = 0
-         Zeichen_Entfernen = 0
-         if SimilaritySearch.IsVisible = False then More.Click
-         SimilaritySearchFor.click
-         kontext "Aehnlichkeitssuche"
-         Kombinieren.check
-         ZeichenTauschen.ToMin
-         ZeichenHinzufuegen.ToMin
-         ZeichenEntfernen.ToMin
-         ZeichenTauschen.Less
-         ZeichenHinzufuegen.Less
-         ZeichenEntfernen.Less
-         select case Zaehler2
-            Case 1 : Zeichen_Tauschen = Zaehler
-            Case 2 : Zeichen_Hinzufuegen = Zaehler
-            Case 3 : Zeichen_Entfernen = Zaehler
-            Case 4 : Zaehler = 3             'Die 3 Optionen werden gleichzeitig
-                     Zeichen_Tauschen = Zaehler       'angewählt.
-                     Zeichen_Hinzufuegen = Zaehler
-                     Zeichen_Entfernen = Zaehler
-         end select
-         ZeichenTauschen.More (Zeichen_Tauschen)
-         ZeichenHinzufuegen.More (Zeichen_Hinzufuegen)
-         ZeichenEntfernen.More (Zeichen_Entfernen)
-         Aehnlichkeitssuche.OK
-         kontext "FindAndReplace"
-         SearchAll.Click
-         select case Zeichen_Tauschen
-            Case 1 : Such_Text = "Ähnlechkiit"
-                     Meldungs_Text = "Ähnlichkeitssuche Tauschen 1x"
-            Case 2 : Such_Text = "ÄhnlechkiitÄhnilchkiet"
-                     Meldungs_Text = "Ähnlichkeitssuche Tauschen 2x"
-            Case 3 : Such_Text = "ÄhnlechkiitÄhnilchkiethänilchkiet"
-                     Meldungs_Text = "Ähnlichkeitssuche Tauschen 3x"
-         end select
-         select case Zeichen_Hinzufuegen
-            Case 1 : Such_Text = "Ähnnlichkeit"
-                     Meldungs_Text = "Ähnlichkeitssuche Hinzufuegen 1x"
-            Case 2 : Such_Text = "ÄhnnlichkeitÄhnnliichkeit"
-                     Meldungs_Text = "Ähnlichkeitssuche Hinzufuegen 2x"
-            Case 3 : Such_Text = "ÄhnnlichkeitÄhnnliichkeitÄhnliichhkeeit"
-                     Meldungs_Text = "Ähnlichkeitssuche Hinzufuegen 3x"
-         end select
-         select case Zeichen_Entfernen
-            Case 1 : Such_Text = "Ähnlichkei"
-                     Meldungs_Text = "Ähnlichkeitssuche Entfernen 1x"
-            Case 2 : Such_Text = "ÄhnlichkeiÄhnlichke"
-                     Meldungs_Text = "Ähnlichkeitssuche Entfernen 2x"
-            Case 3 : Such_Text = "ÄhnlichkeiÄhnlichkeÄhnlichk"
-                     Meldungs_Text = "Ähnlichkeitssuche Entfernen 3x"
-         end select
-         if Zaehler2 = 4 then
-            Such_Text = "ÄhnlechkiitÄhnilchkiethänilchkietÄhnnlichkeitÄhnnliichkeitÄhnliichhkeeitÄhnlichkeiÄhnlichkeÄhnlichkÄnhliikheeii"
-            Meldungs_Text ="Ähnlichkeitssuche Hinzu+Entfern+Tausch, je3x"
-         end if
-         call Vergleichen_und_ausgeben
-         kontext "DocumentWriter"
-         DocumentWriter.Typekeys "<PAGEUP>",          'an den Anfang des Textes gehen
-         DocumentWriter.Typekeys "<MOD1 HOME>"
-         EditSearchAndReplace
-         kontext "FindAndReplace"            'Suchen&Replace-Fenster öffnen
-      next Zaehler
-   next Zaehler2
-   Call hCloseDocument
-endcase
-
-' ----------------------------------------------------------------------------------
-
-function wCountNumberOfAttributes() as Integer
-   Dim i as integer, AttributeCount as integer
-   Attribute.Click
-   Kontext "Attribute"
-   wait 500
-   ' Count how much Attributes are in the list
-   For i = 1 to 200
-    try
-       Auswahl.Select i
-       printlog Auswahl.GetSelText
-       AttributeCount = AttributeCount + 1
-    catch
-      wCountNumberOfAttributes = AttributeCount
-      i = 202
-    endcatch
-   next i
-   Attribute.Close
-end function
-
-' ----------------------------------------------------------------------------------
-
-function wSelectAttributeName(aNumber as integer, AsianSupport as boolean, SetState as integer) as string
- 'This function checks for the Attribute name depending on the given number (aNumber).
- 'SetState is given to check or uncheck the Attribute in list
- 'Returns the Attribute name if found and successfully checked in list.
- 'Default for this test is given from the german office-Version (easier for me:-))
- Dim i as integer, aSelectIt as String
- Kontext "FindAndReplace"
- Attributes.Click
- Kontext "Attribute"
-
- Select Case aNumber
-  Case 1
-   Select Case iSprache
-    Case 49: aSelectIt = "Absatz trennen"
-    Case else: Warnlog "Language not supported. No test"
-               exit function
-   end select
-
-  Case 2
-   Select Case iSprache
-    Case 49: aSelectIt = "Absätze zusammenhalten"
-    Case else: Warnlog "Language not supported. No test"
-               exit function
-   end select
-
-  Case 3
-   Select Case iSprache
-    Case 49: aSelectIt = "Abstand"
-    Case else: Warnlog "Language not supported. No test"
-               exit function
-   end select
-
-  Case 4
-   Select Case iSprache
-    Case 49: aSelectIt = "Asiatische Schrift"
-    Case else: Warnlog "Language not supported. No test"
-               exit function
-   end select
-
-  Case 5
-   Select Case iSprache
-    Case 49: aSelectIt = "Ausrichtung"
-    Case else: Warnlog "Language not supported. No test"
-               exit function
-   end select
-
-  Case 6
-   Select Case iSprache
-    Case 49: aSelectIt = "Auszeichnung"
-    Case else: Warnlog "Language not supported. No test"
-               exit function
-   end select
-
-  Case 7
-   Select Case iSprache
-    Case 49: aSelectIt = "Betonungszeichen"
-    Case else: Warnlog "Language not supported. No test"
-               exit function
-   end select
-
-  Case 8
-   Select Case iSprache
-    Case 49: aSelectIt = "Blinkend"
-    Case else: Warnlog "Language not supported. No test"
-               exit function
-   end select
-
-  Case 9
-   Select Case iSprache
-    Case 49: aSelectIt = "Doppelzeilig"
-    Case else: Warnlog "Language not supported. No test"
-               exit function
-   end select
-
-  Case 10
-   Select Case iSprache
-    Case 49: aSelectIt = "Durchgestrichen"
-    Case else: Warnlog "Language not supported. No test"
-               exit function
-   end select
-
-  Case 11
-   Select Case iSprache
-    Case 49: aSelectIt = "Einzug"
-    Case else: Warnlog "Language not supported. No test"
-               exit function
-   end select
-
-  Case 12
-   Select Case iSprache
-    Case 49: aSelectIt = "Hängende Interpunktion"
-    Case else: Warnlog "Language not supported. No test"
-               exit function
-   end select
-
-  Case 13
-   Select Case iSprache
-    Case 49: aSelectIt = "Hurenkinder"
-    Case else: Warnlog "Language not supported. No test"
-               exit function
-   end select
-
-  Case 14
-   Select Case iSprache
-    Case 49: aSelectIt = "Kerning"
-    Case else: Warnlog "Language not supported. No test"
-               exit function
-   end select
-
-  Case 15
-   Select Case iSprache
-    Case 49: aSelectIt = "Kontur"
-    Case else: Warnlog "Language not supported. No test"
-               exit function
-   end select
-
-  Case 16
-   Select Case iSprache
-    Case 49: aSelectIt = "Position"
-    Case else: Warnlog "Language not supported. No test"
-               exit function
-   end select
-
-  Case 17
-   Select Case iSprache
-    Case 49: aSelectIt = "Registerhaltigkeit"
-    Case else: Warnlog "Language not supported. No test"
-               exit function
-   end select
-
-  Case 18
-   Select Case iSprache
-    Case 49: aSelectIt = "Relief"
-    Case else: Warnlog "Language not supported. No test"
-               exit function
-   end select
-
-  Case 19
-   Select Case iSprache
-    Case 49: aSelectIt = "Rotation"
-    Case else: Warnlog "Language not supported. No test"
-               exit function
-   end select
-
-  Case 20
-   Select Case iSprache
-    Case 49: aSelectIt = "Schattiert"
-    Case else: Warnlog "Language not supported. No test"
-               exit function
-   end select
-
-  Case 21
-   Select Case iSprache
-    Case 49: aSelectIt = "Schrift"
-    Case else: Warnlog "Language not supported. No test"
-               exit function
-   end select
-
-  Case 22
-   Select Case iSprache
-    Case 49: aSelectIt = "Schriftfarbe"
-    Case else: Warnlog "Language not supported. No test"
-               exit function
-   end select
-
-  Case 23
-   Select Case iSprache
-    Case 49: aSelectIt = "Schriftgrad"
-    Case else: Warnlog "Language not supported. No test"
-               exit function
-   end select
-
-  Case 24
-   Select Case iSprache
-    Case 49: aSelectIt = "Schriftgrad asiatische Schrift"
-    Case else: Warnlog "Language not supported. No test"
-               exit function
-   end select
-
-  Case 25
-   Select Case iSprache
-    Case 49: aSelectIt = "Schriftstärke"
-    Case else: Warnlog "Language not supported. No test"
-               exit function
-   end select
-
-  Case 26
-   Select Case iSprache
-    Case 49: aSelectIt = "Schriftstärke asiatische Schrift"
-    Case else: Warnlog "Language not supported. No test"
-               exit function
-   end select
-
-  Case 27
-   Select Case iSprache
-    Case 49: aSelectIt = "Schriftstellung"
-    Case else: Warnlog "Language not supported. No test"
-               exit function
-   end select
-
-  Case 28
-   Select Case iSprache
-    Case 49: aSelectIt = "Schriftstellung asiatische Schrift"
-    Case else: Warnlog "Language not supported. No test"
-               exit function
-   end select
-
-  Case 29
-   Select Case iSprache
-    Case 49: aSelectIt = "Schusterjungen"
-    Case else: Warnlog "Language not supported. No test"
-               exit function
-   end select
-
-  Case 30
-   Select Case iSprache
-    Case 49: aSelectIt = "Seitenvorlage"
-    Case else: Warnlog "Language not supported. No test"
-               exit function
-   end select
-
-  Case 31
-   Select Case iSprache
-    Case 49: aSelectIt = "Hyphenation"
-    Case else: Warnlog "Language not supported. No test"
-               exit function
-   end select
-
-  Case 32
-   Select Case iSprache
-    Case 49: aSelectIt = "Skalierung"
-    Case else: Warnlog "Language not supported. No test"
-               exit function
-   end select
-
-  Case 33
-   Select Case iSprache
-    Case 49: aSelectIt = "Sprache"
-    Case else: Warnlog "Language not supported. No test"
-               exit function
-   end select
-
-  Case 34
-   Select Case iSprache
-    Case 49: aSelectIt = "Sprache asiatische Schrift"
-    Case else: Warnlog "Language not supported. No test"
-               exit function
-   end select
-
-  Case 35
-   Select Case iSprache
-    Case 49: aSelectIt = "Tabulatoren"
-    Case else: Warnlog "Language not supported. No test"
-               exit function
-   end select
-
-  Case 36
-   Select Case iSprache
-    Case 49: aSelectIt = "Text Abstand"
-    Case else: Warnlog "Language not supported. No test"
-               exit function
-   end select
-
-  Case 37
-   Select Case iSprache
-    Case 49: aSelectIt = "Unterstrichen"
-    Case else: Warnlog "Language not supported. No test"
-               exit function
-   end select
-
-  Case 38
-   Select Case iSprache
-    Case 49: aSelectIt = "Verbotene Zeichen"
-    Case else: Warnlog "Language not supported. No test"
-               exit function
-   end select
-
-  Case 39
-   Select Case iSprache
-    Case 49: aSelectIt = "Vertikale Textausrichtung"
-    Case else: Warnlog "Language not supported. No test"
-               exit function
-   end select
-
-  Case 40
-   Select Case iSprache
-    Case 49: aSelectIt = "Wortweise"
-    Case else: Warnlog "Language not supported. No test"
-               exit function
-   end select
-
-  Case 41
-   Select Case iSprache
-    Case 49: aSelectIt = "Zeichenhintergrund"
-    Case else: Warnlog "Language not supported. No test"
-               exit function
-   end select
-
-  Case 42
-   Select Case iSprache
-    Case 49: aSelectIt = "Zeilenabstand"
-    Case else: Warnlog "Language not supported. No test"
-               exit function
-   end select
-
- end select
-
- ' Searches for selected Attribute in Attributes list
-  For i = 1 to 42
-   try
-    Auswahl.Select i
-    if Ucase(Auswahl.GetSelText) = Ucase(aSelectIt) then
-     Select Case SetState
-      Case 1
-        Auswahl.UnCheck
-      Case 2
-        Auswahl.Check
-     end select
-     wSelectAttributeName = aSelectIt
-     i = 50
-    end if
-   catch
-     i = 50
-   endcatch
-  next i
-  'if Attributes not found
-  if i = 42 then
-   if AsianSupport = True then Warnlog "Unable to locate Attribute in list!"
-   wSelectAttributeName = ""
-  end if
-  Attribute.Ok
-end function
-
-
-sub wCheckAttribute(aNumber as integer)
- Dim i as integer
- Kontext "FindAndReplace"
- SearchNow.Click
- if wCheckActiveMessageboxes = False then
-  Warnlog "Search for Attributes has failed!"
-  exit sub
- end if
- Select Case aNumber
-  Case 1   ' "Absatz trennen"
-    EditCopy
-    if Left$(GetClipboardtext,15) <> "First Paragraph" then
-     Warnlog "-  Wrong paragraph has been found!"
-    end if
-  Case 2    '"Absätze zusammenhalten"
-    EditCopy
-    if Left$(GetClipboardtext,25) <> "Keep with next paragraph1" then
-     Warnlog "-  Wrong paragraph has been found!"
-    end if
-  Case 3    '"Abstand"
-    EditCopy
-    if Left$(GetClipBoardText,15) <> "Spacing between" then
-     Warnlog "- Wrong paragraph has been found!"
-    end if
-  Case 4    '"Asiatische Schrift"
-  Case 5    '"Ausrichtung"
-     EditCopy
-     if Left$(GetClipBoardtext,20) <> "Wow, Alignment right" then
-      Warnlog "- Wrong paragraph has been found!"
-     else
-      printlog "-  'Alignment right' found!"
-     end if
-     For i = 1 to 2
-      Kontext "FindAndReplace"
-      SearchNow.Click
-      if wCheckActiveMessageboxes = False then
-       Warnlog "Search for Attributes has failed!"
-       exit sub
-      end if
-      EditCopy
-      Select Case i
-       Case 1
-         if Left$(GetClipBoardtext,23) <> "Wow, Alignment centered" then
-          Warnlog "- Wrong paragraph has been found!"
-          exit sub
-         else
-          printlog "-  'Alignment centered' found!"
-         end if
-       Case 2
-         if Left$(GetClipBoardtext,24) <> "Wow, Alignment justified" then
-          Warnlog "- Wrong paragraph has been found!"
-         exit sub
-         else
-          printlog "-  'Alignment justified' found!"
-         end if
-      end select
-     next i
-  Case 6    '"Auszeichnung"
-     EditCopy
-     If Ucase(GetClipBoardtext) <> "CAPITALS" then
-      Warnlog "Wrong effect has been found"
-      exit sub
-     end if
-     For i = 1 to 3
-      Kontext "FindAndReplace"
-      SearchNow.Click
-      if wCheckActiveMessageboxes = False then
-       Warnlog "Search for effects has failed!"
-       exit sub
-      end if
-      EditCopy
-      Select Case i
-       Case 1
-        If Ucase(GetClipBoardtext) <> "LOWERCASE" then
-         Warnlog "Wrong effect has been found"
-         exit sub
-        end if
-       Case 2
-        If Ucase(GetClipBoardtext) <> "TITLE" then
-         Warnlog "Wrong effect has been found"
-         exit sub
-        end if
-       Case 3
-        If Ucase(GetClipBoardtext) <> "SMALL CAPITALS" then
-         Warnlog "Wrong effect has been found"
-         exit sub
-        end if
-      end select
-     next i
-  Case 7    '"Betonungszeichen"
-  Case 8    '"Blinkend"
-    EditCopy
-    if Left$(GetClipBoardText,13) <> "Blinking text" then
-     Warnlog "- Wrong Attribute has been found!"
-    end if
-  Case 9     '"Doppelzeilig"
-  Case 10    '"Durchgestrichen"
-    EditCopy
-    if Left$(GetClipBoardText,14) <> "Strike through" then
-     Warnlog "- Wrong Attribute has been found!"
-    end if
-    For i = 1 to 4
-     Kontext "FindAndReplace"
-     SearchNow.Click
-     EditCopy
-     if Left$(GetClipBoardText,14) <> "Strike through" then
-      Warnlog "- Wrong Attribute has been found!"
-     end if
-    next i
-  Case 11    '"Einzug"
-    EditCopy
-    if Left$(GetClipBoardText,6) <> "Indent" then
-     Warnlog "- Wrong Attribute has been found!"
-    end if
-  Case 12    '"Hängende Interpunktion"
-  Case 13    '"Hurenkinder"
-    EditCopy
-    if Left$(GetClipBoardText, 9) <> "Hurenkind" then
-     Warnlog "- Wrong Attribute has been found!"
-    end if
-    Kontext "FindAndReplace"
-    SearchNow.Click
-    EditCopy
-    if Left$(GetClipBoardText, 8) <> "tstststs" then
-     Warnlog "- Wrong Attribute has been found!"
-    end if
-  Case 14    '"Kerning"
-    EditCopy
-    if Left$(GetClipBoardText, 8) <> "Kerning1" then
-     Warnlog "- Wrong Attribute has been found!"
-    end if
-    Kontext "FindAndReplace"
-    SearchNow.Click
-    EditCopy
-    if Left$(GetClipBoardText, 8) <> "Kerning2" then
-     Warnlog "- Wrong Attribute has been found!"
-    end if
-  Case 15    '"Kontur"
-    EditCopy
-    if Left$(GetClipBoardText, 6) <> "Kontur" then
-     Warnlog "- Wrong Attribute has been found!"
-    end if
-  Case 16    '"Position"
-    EditCopy
-    if Left$(GetClipBoardText, 4) <> "Hoch" then
-     Warnlog "- Wrong Attribute has been found!"
-    end if
-    Kontext "FindAndReplace"
-    SearchNow.Click
-    EditCopy
-    if Left$(GetClipBoardText, 4) <> "Tief" then
-     Warnlog "- Wrong Attribute has been found!"
-    end if
-  Case 17    '"Registerhaltigkeit"
-
-  Case 18    '"Relief"
-  Case 19    '"Rotation"
-  Case 20    '"Schattiert"
-  Case 21    '"Schrift"
-  Case 22    '"Schriftfarbe"
-  Case 23    '"Schriftgrad"
-  Case 24    '"Schriftgrad asiatische Schrift"
-  Case 25    '"Schriftstärke"
-  Case 26    '"Schriftstärke asiatische Schrift"
-  Case 27    '"Schriftstellung"
-  Case 28    '"Schriftstellung asiatische Schrift"
-  Case 29    '"Schusterjungen"
-  Case 30    '"Seitenvorlage"
-  Case 31    '"Hyphenation"
-  Case 32    '"Skalierung"
-  Case 33    '"Sprache"
-  Case 34    '"Sprache asiatische Schrift"
-  Case 35    '"Tabulatoren"
-  Case 36    '"Text Abstand"
-  Case 37    '"Unterstrichen"
-  Case 38    '"Verbotene Zeichen"
-  Case 39    '"Vertikale Textausrichtung"
-  Case 40    '"Wortweise"
-  Case 41    '"Zeichenhintergrund"
-  Case 42    '"Zeilenabstand"
- end select
-  Kontext "FindAndReplace"
-end sub
-
-function wCheckActiveMessageboxes() as boolean
-   wCheckActiveMessageboxes=True
-   Kontext "Active"
-   if Active.Exists then
-    if Active.GetRT = 304 then
-     try  ' Question if StarOffice should search at start of document
-      Active.yes
-      ' Exit when search has again failed
-      if Active.Exists then
-       if Active.GetRT = 304 then
-        wCheckActiveMessageboxes = False
-        Warnlog Active.Gettext
-        Active.Ok
-       end if
-      end if
-     catch
-      wCheckActiveMessageboxes = False
-      Warnlog Active.Gettext
-      Active.Ok
-     endcatch
-    end if
-   end if
-end function
-
-'---------------------------------------------------------
-'            Unterprogramme
-'---------------------------------------------------------
-'---------------------------------------------------------
-sub wSetFindAndReplaceToDefault(WhichDocument as integer)
-    '/// <font color=#ff0000> TODO: translate this test ///'
-    '/// file "input\\writer\\such_u_e.sxw" will be used <FONT> ///
-    Dim i as integer
-    Select Case WhichDocument
-        Case 0
-            Call hNewDocument  ' empty Document
-        Case 1
-            hFileOpenLocally(  gTesttoolPath +"writer\optional\input\search\such_u_e.sxw")
-            
-        case 2
-            hFileOpenLocally(  gTesttoolPath +"writer\optional\input\search\attrib.sxw")
-            
-    end select
-    kontext "FindAndReplace"
-    Sleep 2
-    if FindAndReplace.Exists then          'Evtl. offenes Fenster schließen
-        FindAndReplace.Close
-    end if
-    kontext "DocumentWriter"
-    DocumentWriter.Typekeys "<PAGEUP>",          'an den Anfang des Textes gehen
-    DocumentWriter.Typekeys "<MOD1 HOME>"
-    EditSearchAndReplace
-    kontext "FindAndReplace"            'Suchen&Replace-Fenster öffnen
-    if Not SearchForStyles.IsVisible then More.Click
-    if SearchForStyles.IsEnabled then SearchForStyles.Uncheck
-    try
-        SearchFor.SetText ""
-    catch
-        warnlog "in 'grundzustand' writing a text to search for is not possible :-("
-    endcatch
-    if SimilaritySearch.IsEnabled then SimilaritySearch.Uncheck
-    ' Column 1
-    WholeWordsOnly.Uncheck
-    Backwards.Uncheck
-    RegularExpressions.Uncheck
-    ' Column 2
-    MatchCase.Uncheck
-    if CurrentSelectionOnly.IsEnabled then CurrentSelectionOnly.Uncheck
-    'Column 3
-    Attributes.Click
-    Kontext "Attribute"
-    ' List has 32 Attributes
-    For i = 1 to 32
-        Auswahl.Select i
-        Auswahl.Uncheck
-    Next i
-    Attribute.OK
-    kontext "FindAndReplace"
-    if NoFormat.IsEnabled then NoFormat.Click
-    Kontext "FindAndReplace"
-end sub
-
-'---------------------------------------------------------
-sub Vergleichen_und_ausgeben
-                              'ht Such_Text mit dem,
-    dim i as integer           
-    dim Boxen_RT as integer    
-    
-    kontext
-    for i = 1 to 2                      'Close all Message-, Info-, and Query-Boxes
-      if active.exists (1) then           
-         Boxen_RT = Active.GetRT
-         select case Boxen_RT
-            Case 304, 305 : Active.OK
-            Case 308 : Active.Yes
-         end select
-    end if
-    next i
-    kontext "FindAndReplace"
-    Sleep 2
-    try
-        FindAndReplace.Close
-    catch
-        Warnlog "Dialog is not present. Should be open!"
-    endcatch
-    
-    wait 500
-    Kontext "DocumentWriter"
-    try
-        BearbeitenKopieren               
-    catch                     
-        DocumentWriter.Typekeys "<PAGEUP>"
-        DocumentWriter.Typekeys "<MOD1 END>"
-        DocumentWriter.Typekeys "<SHIFT LEFT>", 15
-        EditCopy
-    endcatch
-    wait 500
-    dummy_Text = GetClipboardText
-    if dummy_Text = Such_Text then
-        Printlog "OK   ",Meldungs_Text
-    else
-        warnlog "'",Such_Text,"' was not found, but '", Dummy_Text, "' " '"With '" + Meldungs_Text+ "'
-    end if
-    Sleep 2
-end sub
-
-'---------------------------------------------------------  'abhängig von der Sprache wird die
-sub Meldungs_Test
-                     'Meldung "...bis zum Dokumentende
-    dim Text_In_Meldung as string, sProduct as string
-
-    if gOOO = true then
-        sProduct = "OpenOffice.org"
-    else
-        sProduct = "Oracle Open Office"
-    end if
-    
-    select case iSprache
-        Case 01 : Text_In_Meldung = sProduct & " Writer has searched to the end of the document. Do you want to continue at the beginning?"
-        Case 07 : Text_In_Meldung = sProduct & " Writer осуществил поиск к концу документа. Продолжить поиск с начала документа?"
-        Case 03 : Text_In_Meldung = "O " & sProduct & " Writer procurou até ao fim do documento. Deseja continuar a procura no início do documento?"
-        Case 31 : Text_In_Meldung = sProduct & " Writer heeft tot aan het einde van het document gezocht. Wilt u doorgaan met zoeken vanaf het begin?"
-        Case 33 : Text_In_Meldung = sProduct & " Writer a atteint la fin du document. Souhaitez-vous reprendre la recherche au début du document ?"
-        Case 34 : Text_In_Meldung = sProduct & " Writer ha buscado hasta el final del documento. ¿Desea continuar la búsqueda desde el principio?"
-        Case 39 : Text_In_Meldung = sProduct & " Writer ha cercato fino alla fine del documento. Volete continuare dall'inizio del documento?"
-        Case 46 : Text_In_Meldung = sProduct & " Writer har sökt till slutet av dokument. Vill du fortsätta sökningen i början av dokumentet?"
-        Case 49 : Text_In_Meldung = sProduct & " Writer hat bis zum Ende des Dokumentes gesucht. Möchten Sie die Suche am Dokumentanfang fortsetzen?"
-        Case 50 : Text_In_Meldung = sProduct & " Writer je preiskal do konca dokumenta. Ali želite nadaljevati na začetku?"
-		Case 55 : Text_In_Meldung = sProduct & " Writer pesquisou até o final do documento. Deseja continuar do início?"
-        Case 81 : Text_In_Meldung = sProduct & " Writer は、文書末まで検索しました。文書の始めに戻って続行しますか。"
-        Case 82 : Text_In_Meldung = sProduct & " Writer가 문서의 끝까지 검색했습니다. 문서의 시작부분에서 검색을 계속하겠습니까?"
-        Case 88 : Text_In_Meldung = sProduct & " Writer 已經搜尋至文件的結束位置。要從文件的起始位置繼續搜尋？"
-    end select
-
-    if Dummy_text = Text_In_Meldung then
-        printlog "OK   Correct Message at end of document"
-    else
-        if Text_In_Meldung > "" then
-            Warnlog "   No correct message at end of document"
-            printlog Dummy_text
-        else
-            QAErrorlog "Please adapt test for this language!"
-            printlog Dummy_text
-        end if
-    end if
-end sub
-
-
-function ToggleAttribute(sNumber as integer, sCheck as boolean)
-    Kontext "FindAndReplace"
-    Attributes.Click
-    Kontext "Attribute"
-    Auswahl.Select sNumber             'Check Attributes underlined
-    wait 500
-    if sCheck = "True" then
-        Auswahl.Check
-    else
-        Auswahl.Uncheck
-    end if
-    wait 500
-    Attribute.OK
-    Kontext "FindAndReplace"
-end function
-
-
-function wGetHeadingName() as string
-   ' This function gets the name 'Heading' from Stylist
-   ' Needed this function for additional languages !
-   FormatStylist
-   Kontext "Stylist"
-   if Stylist.NotExists then FormatStylist
-   Absatzvorlagen.Click
-
-   ' "Heading" should always be the 9th entry
-   Gruppenliste.Select 5 ' Automatic
-   wait 500
-   Vorlagenliste.Select 9 ' Heading
-   wGetHeadingName = Vorlagenliste.GetSeltext
-   Call SetClipboard (wGetHeadingName)
-   printlog "- Name of 'heading' for this language has been pasted to clipboard!"
-   Stylist.Close
-end function
-
-'---------------------------------------------------------
-sub   LoadIncludeFiles
-   use "inc\master.inc"
-   use "inc\gvariabl.inc"
-   gApplication = "WRITER"
-   Call GetUseFiles
-end sub
diff --git a/testautomation/writer/optional/includes/regression/issuezilla/w_issuezilla_regression.inc b/testautomation/writer/optional/includes/regression/issuezilla/w_issuezilla_regression.inc
deleted file mode 100644
index aa5cc4672277..000000000000
--- a/testautomation/writer/optional/includes/regression/issuezilla/w_issuezilla_regression.inc
+++ /dev/null
@@ -1,515 +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 : helge.delfs@oracle.com
-'*
-'* short description : Avoid regression (issuezilla tasks)
-'*
-'\***********************************************************************
-
-sub w_issuezilla_regression
-
-    Call i64991
-    Call i65094
-    Call i69045
-    Call i69521
-    Call i75027
-    Call i76637
-    Call i88656
-	Call i103265
-
-end sub
-
-'--------------------------------------------------------------------------
-
-testcase i64991
-    Dim PrevMacroSetting as integer
-    Dim sDocName as string, i as integer, j as integer
-
-    sDocName = ConvertPath(gtesttoolpath & "writer\optional\input\regression\issuezilla\i64991.odt")
-    '/// New writer document
-    Call hNewDocument
-    '/// Set macro security to 'Medium' to activate Macros
-    PrevMacroSetting = hSetMacroSecurity(1)
-    '/// Open file \\writer\\optional\\input\\regression\\issuezilla\\i64991.odt
-    printlog "- Open file: " & sDocName 
-    call hFileOpen (sDocName,false)
-    Kontext "SecurityWarning"
-    if SecurityWarning.Exists(2) then
-        SecurityWarning.OK
-    else
-        Warnlog "Security Warning not up. Test interrupted!"
-        Call hCloseDocument
-        goto endsub
-    end if
-    
-	printlog "Save document to be able to find macro module later"    
-    Call hFileSaveAsKill (gOfficepath + "user\work\i64991.odt")
-	
-	printlog "- execute macro"
-    ToolsMacrosRunMacro
-    ' Sometimes it lasts long until dialog is shown
-    For i = 1 to 15
-        Sleep(i)
-        Kontext "ScriptSelector"
-        if ScriptSelector.Exists then exit for
-    next i
-    printlog " - select 'i64991' in Library list"
-    Kontext "ScriptSelector"
-    For i = 1 to LibraryTreeList.GetItemCount
-        LibraryTreeList.Select i
-        if InStr(LibraryTreeList.GetSelText,"i64991") then
-            printlog " - open node 'i64991' in Library list"
-            i = LibraryTreeList.GetItemCount + 1
-            LibraryTreeList.TypeKeys "+"
-            wait 500
-            printlog " - select 'Standard' in Library list"
-            LibraryTreeList.TypeKeys "<Down>"            
-            wait 500
-            printlog " - open node 'Standard' in Library list"
-            LibraryTreeList.TypeKeys "+"
-            wait 500
-            LibraryTreeList.TypeKeys "<Down>"
-            printlog " - select 'check_page_style' in Library list"
-            if LibraryTreeList.GetSelText <> "check_page_style" then
-                Warnlog "Unable to find macro. Test interrupted!"
-                ScriptSelector.Cancel
-                Call hCloseDocument
-                goto endsub
-            end if
-            printlog "- Now select script 'Main'"
-            for j = 1 to ScriptList.GetItemCount
-                ScriptList.Select j
-                if ScriptList.GetSelText = "Main" then
-                    printlog " - execute Script 'Main'"
-                    ScriptSelector.Ok
-                    exit for
-                end if
-            next j
-        end if
-    next i
-    Kontext "ScriptSelector"
-    if ScriptSelector.Exists then
-        Warnlog "Something failed executing macro. Test interrupted"
-        ScriptSelector.Cancel
-    else
-        '/// check if page layout on first page is landscape
-        printlog "Check layout on first page"
-        FormatPageWriter
-        Kontext
-        Active.Setpage TabSeite
-        Kontext "TabSeite"
-        if Not Quer.IsChecked then Warnlog "Setting a printer make the page styles to be lost"
-        TabSeite.Cancel
-
-        Call wTypeKeys ("<Down>")
-
-        '/// check if page layout on second page is still portrait
-        printlog "Check layout on second page"
-        FormatPageWriter
-        Kontext
-        Active.Setpage TabSeite
-        Kontext "TabSeite"
-        if Not Hoch.IsChecked then Warnlog "Setting a printer make the page styles to be lost"
-        TabSeite.Cancel
-    end if
-
-    '/// Set macro setting to previous value
-    Call hSetMacroSecurity(PrevMacroSetting)
-
-    '/// Close document
-    Call hCloseDocument
-
-endcase
-'--------------------------------------------------------------------------
-
-testcase i65094
-
-    '/// New writer document
-    Call hNewDocument
-    '/// Open file \\writer\\optional\\input\\regression\\issuezilla\\i65094a.odt
-    printlog "- Open file: i65094a.odt" 
-    hFileOpenLocally(  gTesttoolPath + "writer\optional\input\regression\issuezilla\i65094a.odt" )
-    
-    '/// Compare document with other version \\writer\\optional\\input\\regression\\issuezilla\\i65094b.odt
-'    UseBindings
-    printlog "- Compare document with other version"
-    EditCompareDocument
-    Kontext "OeffnenDlg"
-    '/// Open document ( i65094b.odt )
-    Dateiname.SetText ConvertPath( gTesttoolPath + "writer\optional\input\regression\issuezilla\i65094b.odt" )
-'    Sleep 2
-    Oeffnen.Click
-    Sleep 5
-    
-    printlog "- Accept all"
-    '/// In Redlining dialog select 'Accept all'
-    Kontext "Redlining"
-    if Redlining.exists then
-        try
-            AlleAkzeptieren.Click
-            Sleep 1
-        catch
-            warnlog "accept button is disabled"
-        endcatch
-        '/// Close Redlining dialog
-        Redlining.Close
-        '/// Save document as "..\user\work\i65094compare.odt
-        Call hFileSaveAsKill (gOfficepath + "user\work\i65094compare.odt")
-        '/// Save document as "..\user\work\i65094compare.odt" 
-        Wait 500
-        printlog "- Compare done and document saved"
-    else
-        warnlog "Redlining dialog does not exist"
-    end if
-    Call hCloseDocument
-    
-endcase
-'--------------------------------------------------------------------------
-
-testcase i69045
-
-    '/// New writer document
-    Call hNewDocument
-    printlog "- Open new dokument, enable redlining and make some changes"
-    '/// Enable redlining
-    EditChangesRecord
-    '/// Change document
-    Call wTypeKeys "Here are some changes"
-    '/// Save document as "..\user\work\i65094compare.odt and close it
-    Call hFileSaveAsKill (gOfficepath & "user\work\i69045.odt")
-    Call hCloseDocument
-    printlog "- Save, close and load document"
-    '/// Open saved document
-    hFileOpen( gOfficepath & "user\work\i69045.odt" )
-    '/// Check 
-    try
-        EditChangesAcceptOrReject
-    catch
-        warnlog "Redlining has not been saved or does not work"
-    endcatch
-    Kontext "Redlining"
-    if Redlining.exists then
-        try
-            AlleAkzeptieren.Click
-            Sleep 1
-            printlog "- Edit changes has been saved and accepted"
-        catch
-            warnlog "AcceptAll is not enabled"
-        endcatch    
-        '/// Close Redlining dialog
-        Redlining.Close
-    end if
-    Call hCloseDocument
-
-endcase
-'--------------------------------------------------------------------------
-
-testcase i69521
-
-    Dim iItems as integer
-
-    '/// New writer document
-    Call hNewDocument
-    '/// Load document: \\writer\\optional\\input\\regression\\issuezilla\\i69521.odt
-    hFileOpenLocally( gTesttoolpath & "writer\optional\input\regression\issuezilla\i69521.odt")
-    
-    '/// Loaded document should have 5 EPS Graphics
-    iItems = CountItemsInNavigatorGroup(4)
-    if iItems <> 5 then
-        Warnlog "Initially there are not 5 Grahics in document but: " & iItems
-        Call hCloseDocument
-        goto endsub
-    end if
-
-    '/// save document as OfficePath\\user\work\\i96521-1.odt"
-    Call hFileSaveAsKill (gOfficePath & "user\work\i96521-1.odt")
-    '/// close document
-    Call hCloseDocument
-    '/// reload previous saved document
-    hFileOpen( gOfficePath & "user\work\i96521-1.odt")
-    '/// Check if all 5 Graphics are still in document
-    iItems = CountItemsInNavigatorGroup(4)
-    if iItems <> 5 then
-        Warnlog "After save and reload there are not 5 Grahics in document but: " & iItems
-    end if
-
-    Call hCloseDocument
-
-endcase
-'--------------------------------------------------------------------------
-
-testcase i75027
-
-    Dim i as integer
-    Dim j as integer
-    Dim sClipBrd() as string
-    Dim bNumberingError as boolean
-
-    gApplication   = "HTML"
-    '/// New HTML Document
-    Call hNewDocument
-    '/// type 'This<BR>is<BR>a numbering<BR>test'
-    Call wTypeKeys ("This<Return>is<Return>a numbering<Return>test")
-    '/// Select all paragraphs
-    Call wTypeKeys ("<Mod1 A>")     
-    '/// Format with simple numbering
-    Kontext "TextObjectbar"
-    if Not TextObjectbar.Exists then Call hToolbarSelect ( "FORMATTING", true )
-    '/// Select 'Numbering' in object bar ///
-    Numerierung.Click        
-    '/// move "is" to numbering level 2
-    '/// move "a numbering" to numbering level 3
-    '/// move "test" to numbering level 4  
-    printlog "- create numbering"
-    Call wTypeKeys ("<Mod1 Home>"    
-    for i = 1 to 3    
-        Call wTypeKeys ("<Down>")
-        Kontext "NumObjectbar"
-        if Not NumObjectbar.Exists then Call hToolbarSelect("BULLETSANDNUMBERING", true)
-        for j = 1 to 1 + i
-            Hinunterstufen.Click
-        next j
-    next i
-    '/// should look like:
-    '/// 1. this
-    '///    1. is 
-    '///        1. a numbering
-    '///            1. test
-    printlog "- check numbering"
-    Call wTypeKeys ( "<MOD1 A>" )
-    EditCopy
-    Select Case gPlatGroup
-        Case "unx"
-            sClipBrd() = Split (GetClipboardText, CHR$(10))
-        Case else
-            sClipBrd() = Split (GetClipboardText, CHR$(13) & CHR$(10))
-    end select
-    if Ubound(sClipBrd()) = 3 then
-        if Left$(sClipBrd(0), 2) <> "1." then bNumberingError = true
-        if Left$(sClipBrd(1), 2) <> "1." then bNumberingError = true
-        if Left$(sClipBrd(2), 2) <> "1." then bNumberingError = true
-        if Left$(sClipBrd(3), 2) <> "1." then bNumberingError = true
-    else
-        Warnlog "Error in clipboard content! " & Ubound(sClipBrd())
-    end if
-    if bNumberingError = true then
-        Warnlog "Seems numbering I. has not been correctly created"
-    end if
-    bNumberingError = false
-    '/// save as HTML-file i75027.html
-    Call hFileSaveAsKill (gOfficepath & "user\work\i75027.html")    
-    '/// Reload previous saved document
-    Call hCloseDocument
-    hFileOpen( gOfficepath & "user\work\i75027.html")
-    '/// Check that the numbering is still the same.
-    printlog "- check numbering (previous saved)"
-    Call wTypeKeys ( "<MOD1 A>" )
-    EditCopy
-    Select Case gPlatGroup
-        Case "unx"
-            sClipBrd() = Split (GetClipboardText, CHR$(10))
-        Case else
-            sClipBrd() = Split (GetClipboardText, CHR$(13) & CHR$(10))
-    end select
-    if Ubound(sClipBrd()) = 3 then
-        if Left$(sClipBrd(0), 2) <> "1." then bNumberingError = true
-        if Left$(sClipBrd(1), 2) <> "1." then bNumberingError = true
-        if Left$(sClipBrd(2), 2) <> "1." then bNumberingError = true
-        if Left$(sClipBrd(3), 2) <> "1." then bNumberingError = true
-    else
-        Warnlog "Error in clipboard content! " & Ubound(sClipBrd())
-    end if
-    if bNumberingError = true then
-        Warnlog "Seems numbering I. has not been correctly created"
-    end if    
-    '/// Close Document
-    Call hCloseDocument
-    gApplication   = "WRITER"
-
-endcase
-'--------------------------------------------------------------------------
-
-testcase i76637
-
-    'Variables:
-    DIM sDocument           AS String 'variable for saving the doc
-
-    gApplication   = "WRITER"
-    
-    '/// open a swriter
-    Call hNewDocument 'NewDocument
-    Kontext "DocumentWriter"
-    printlog "New writer doc"
-    
-    '/// [Insert]-[Envelope]
-    InsertEnvelope
-    printlog "inserting envelope.."
-    
-    '/// click "New Doc" button in Envelope_Dlg
-    Kontext
-    active.SetPage TabEnvelope 'setting correct Tabpage
-    Kontext "TabEnvelope"
-    TabEnvelope.OK 'clicking on NewDoc button, which is OK button with another name
-    
-    '/// Save document
-    sDocument = ConvertPath ( gOfficePath + "user\work\test1.odt")
-    'deleting old Docs in the directory
-    if Dir (sDocument) <> "" then kill sDocument 'deleting old docs
-    Call hFileSaveAsKill (sDocument)
-    printlog "Document saved"
-    
-    '/// click [File]-[Reload]
-    Kontext "DocumentWriter"
-    FileReload
-    printlog "reloading ..here the crash happened in i76637."
-    '///crash occurred here
-
-    Call hCloseDocument
-    Call hCloseDocument
-endcase
-
-'--------------------------------------------------------------------------
-
-testcase i88656
-    printlog "Test Format - AutoFormat - Apply And Edit Changes."
-
-    printlog " Open a new writerdocument."
-    Call hNewDocument
-    printlog "Write the forrlowing text into the document: This is a test-text to be autoformatted."
-    wTypeKeys ("This is a test-text to be autoformatted.")
-
-    'Without text selected.
-    printlog "Use the menu: Format - Autoformat - Apply and Edit Changes."
-    FormatAutoformatApplyAndEditChanges
-
-    kontext "active"
-    if active.exists(2) then
-       printlog " In the dialog: choose 'Accept."
-       active.Ok
-    end if
-
-    printlog "Press SHIFT + HOME. To select the text we just wrote."
-    wTypeKeys ("<SHIFT HOME>")
-
-    'with text selected
-    printlog "Again, but with the text selected; use the menu: Format - Autoformat - Apply and Edit Changes."
-    FormatAutoformatApplyAndEditChanges
-
-    kontext "active"
-    if active.exists(3) then
-       printlog " In the dialog: choose 'no'."
-       active.Cancel
-    end if
-
-    kontext "active"
-    if active.exists(3) then
-       printlog " In the dialog: choose 'no'."
-       active.No
-    end if
-
-    Call hCloseDocument
-endcase
-
-'--------------------------------------------------------------------------
-
-testcase i103265
-
-	Dim i as integer
-
-	printlog "ODF Hyperlinks in TOCs"
-	Call hNewDocument
-    printlog "- Open test document"
-	hFileOpenLocally(  gTesttoolPath + "writer\optional\input\regression\issuezilla\i103265.odt" )
-    
-    printlog "- Update TOC"
-	ToolsUpdateAllIndexes
-	
-	printlog "Check that every hyperlink jumps correctly to its target"
-	For i = 1 to 3
-		' point cursor to beginning of document
-		Call wTypeKeys "<MOD1 HOME>"
-		' point cursor to index entry
-		Call wTypeKeys "<DOWN>", 4 + i
-		'execute Hyperlink
-		ContextOpenHyperlink
-		' check if it jumps to correct target
-		Call wTypeKeys "<SHIFT END>"
-		EditCopy
-		Select Case i
-			Case 1:
-				if GetClipboardText <> "# 1 Test" then
-					Warnlog "First hyperlink not correctly jumped to. Not '# 1 Test' but " & GetClipboardtext
-				end if
-			Case 2:
-				if GetClipboardText <> "1. Test" then
-					Warnlog "Second hyperlink not correctly jumped to. Not '# 1. Test' but " & GetClipboardtext
-				end if
-			Case 3:
-				if GetClipboardText <> "1 Test " then
-					Warnlog "Third hyperlink not correctly jumped to. Not '1 Test' but " & GetClipboardtext
-				end if
-		end select
-	next i
-
-	printlog "- Save as HTML"
-	gApplication = "HTML"	
-	Call hFileSaveAsWithFilterKill ( gOfficePath + "user\work\ODFHyperlinksInTOCs.html", "HTML (StarWriter)" )
-    Call hCloseDocument
-	
-    printlog "- Reload"
-	hFileOpen( gOfficePath & "user\work\ODFHyperlinksInTOCs.html" )
-	printlog "Check that every hyperlink jumps correctly to its target"
-	For i = 1 to 3
-		' point cursor to beginning of document
-		Call wTypeKeys "<MOD1 HOME>"
-		' point cursor to index entry
-		Call wTypeKeys "<DOWN>", 5 + i
-		'execute Hyperlink
-		ContextOpenHyperlink
-		' check if it jumps to correct target
-		Call wTypeKeys "<SHIFT END>"
-		EditCopy
-		Select Case i
-			Case 1:
-				if GetClipboardText <> "# 1 Test" then
-					Warnlog "First hyperlink not correctly jumped to. Not '# 1 Test' but " & GetClipboardtext
-				end if
-			Case 2:
-				if GetClipboardText <> "1. Test" then
-					Warnlog "First hyperlink not correctly jumped to. Not '# 1. Test' but " & GetClipboardtext
-				end if
-			Case 3:
-				if GetClipboardText <> "1Test " then
-					Warnlog "First hyperlink not correctly jumped to. Not 'Test ' but " & GetClipboardtext
-				end if
-		end select
-	next i
-	
-	Call hCloseDocument
-
-endcase
\ No newline at end of file
diff --git a/testautomation/writer/optional/includes/section/w_section_1.inc b/testautomation/writer/optional/includes/section/w_section_1.inc
deleted file mode 100644
index da7417779401..000000000000
--- a/testautomation/writer/optional/includes/section/w_section_1.inc
+++ /dev/null
@@ -1,620 +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 : helge.delfs@oracle.com
-'*
-'* short description : Section test(Insert/Section Format/Section)
-'*
-'************************************************************************
-'*
-' #1  tInsertSection_1      'test for insert a section
-' #1  tInsertSection_2      'test for the default section name and automatic numbering
-' #1  tInsertSection_3      'Need to check section name
-' #1  tInsertSection_4      'check if the layout in section is not destroyed
-' #1  tInsertSection_5      'Linked Section test
-' #1  tInsertSection_6      'Insert Section should be disabled in the follow opeation
-'*
-'\***********************************************************************
-
-sub w_section_1
-    printLog Chr(13) + "---------   Insert Section   ----------"
-    Call tInsertSection_1
-    Call tInsertSection_2
-    Call tInsertSection_3
-    Call tInsertSection_4
-    Call tInsertSection_5
-    Call tInsertSection_6
-end sub
-
-'-------------------------------------------------------------------------
-
-testcase tInsertSection_1
-
-    Call hNewDocument
-    Call fInsertSection("Section Test")
-    sleep(1)
-    Call wTypeKeys "<RETURN>"
-    '/// Test for insert a section with western words ///
-    Call fInsertSection("Western Test")
-    sleep(1)
-    Call wTypeKeys "<UP>" , 1
-    Call wTypeKeys "Section : western test"
-
-    'If Asian office...
-    if bAsianLan = TRUE then
-        Call wTypeKeys "<DOWN>" , 1
-        Call wTypeKeys "<RETURN>"
-        '///+... test for insert a section with asian character -- Simplified Chinese ///
-        Call fInsertSection("Asian Test")
-        sleep(1)
-        Call wTypeKeys "<UP>" , 1
-        Call wTypeKeys "简体中文"
-    end if
-
-    Call wTypeKeys "<DOWN>" , 1
-    Call wTypeKeys "<RETURN>"
-
-    '/// Test for insert a section with a graphic object
-    Call fInsertSection("Graphic Test")
-    Call wTypeKeys "<UP>" , 1
-    Call hGrafikEinfuegen(gTesttoolPath + "writer\optional\input\graphics\jolink.jpg")
-    sleep(1)
-    gMouseClick(6,1)
-    Call wTypeKeys "<DOWN>" , 10
-    Call wTypeKeys "<RETURN>"
-    '/// Test for insert a section with a draw object ///
-    Call fInsertSection("Draw Test")
-    sleep(1)
-    Call wTypeKeys "<UP>" , 1
-    InsertObjectOLEObject
-    sleep(1)
-    Kontext "OLEObjektEinfuegen"
-    AusDateiErstellen.Check
-    oleDatei.Settext ConvertPath(gTesttoolpath + "writer\optional\input\section\section_test.sxd")
-    OLEObjektEinfuegen.OK
-    sleep(4)
-    'Close document
-    Call hCloseDocument
-    sleep(1)
-
-    Call hNewDocument
-
-    '/// Test for insert a section with combination of different objects///
-    Call fInsertSection("combination of different objects test")
-    sleep(1)
-
-    '/// -- western words  ///
-    Call wTypeKeys "<UP>" , 1
-    Call wTypeKeys "Section : western test<return>"
-    '/// -- Graphic  ///
-    Call hGrafikEinfuegen(gTesttoolPath & "writer\optional\input\graphics\jolink.jpg")
-    sleep(1)
-    gMouseClick(1,1)
-    Call wTypeKeys "<DOWN>" , 1
-    Call wTypeKeys "<RETURN>"
-    '/// -- drawing object ///
-    InsertObjectOLEObject
-    sleep(1)
-    Kontext "OLEObjektEinfuegen"
-    AusDateiErstellen.Check
-    oleDatei.Settext ConvertPath(gTesttoolpath & "writer\optional\input\section\section_test.sxd")
-    OLEObjektEinfuegen.OK
-    sleep(3)
-
-    Call hCloseDocument
-
-endcase
-
-'----------------------------------------------------------
-
-testcase tInsertSection_2
-
-    Dim SectionName as String
-    Dim j
-    
-    '/// Test for the default section name and automatic numbering
-    '///+<b>Only Big 10 languages!</b>
-    '///+ Automatic numbering test is from 1-3.
-    
-    Call hNewDocument
-    for j=1 to 3
-        SectionName = gDefaultSectionName + j
-        InsertSection
-        sleep(2)
-        Kontext "TabBereiche"
-        TabBereiche.OK
-        sleep(2)
-        Call wTypeKeys "<UP>"
-        'Check the section name is correct or NOT (Format/Section)
-        FormatSections
-        sleep(1)
-        Kontext "BereicheBearbeiten"
-        if BereichsName.GetText <> SectionName then
-            QAErrorLog "The default Section Name may be changed or wrong wrong : " & BereichsName.Gettext
-        end if
-        BereicheBearbeiten.Cancel
-        sleep(1)
-        Call wTypeKeys "<DOWN>"
-    next j
-    Call hCloseDocument
-endcase
-
-'----------------------------------------------------------
-
-testcase tInsertSection_3
-
-    Dim SectionName() as Variant
-    Dim i,j as Integer
-
-    '*************************************************************
-    '/// Need to check section name, include :                ///
-    '///   SectionTest   --- normal name                      ///
-    '///   Section Test  --- devided by space                 ///
-    '///   Section-Test  --- devided by dash                  ///
-    '///   Section*Test  --- devided by asterisk              ///
-    '///   sèction      --- include German umlaut character  ///
-    '///   säction      --- include French character         ///
-    '                                                         ///
-    '/// *** maybe need add more testcases here  ***          ///
-    '*************************************************************
-
-    SectionName = Array( _
-                       "SectionTest"     , _
-                       "Section Test"    , _
-                       "Section-Test"    , _
-                       "Section*Test"    , _
-                       "sèction"        , _
-                       "säction"        , _
-                       )
-
-    j = UBound(SectionName)
-
-    Call hNewDocument
-
-    For i = 0 to j
-        try
-            fInsertSection(SectionName(i))
-            Call wTypeKeys "<Up>" , 1
-
-            FormatSections
-            Kontext "BereicheBearbeiten"
-            if BereichsName.GetText <> SectionName(i) then warnlog "    The Section Name is wrong, it should be :" +SectionName(i) +", but: "+BereichsName.GetText
-            BereicheBearbeiten.Cancel
-
-            Call wTypeKeys "<Down>" , 1
-        catch
-            Warnlog "   Insert Section is failed , the section name should be " +SectionName(i)
-        endcatch
-    next i
-    
-    Call hCloseDocument
-endcase
-
-'----------------------------------------------------------
-
-testcase tInsertSection_4
-
-    Dim Message1 as String
-    Dim j
-
-    '/// Check if the layout in section is not destroyed.
-
-    '/// 1. Test for a section includes more than 1 line of text.
-    printlog "     Section includes more than 1 line of text"
-    Call hNewDocument
-    sleep(2)
-    Call wTypeKeys "This is first line<return>"
-    Call wTypeKeys "This is Second line"
-    EditSelectAll
-    sleep(1)
-    EditCopy
-    sleep(1)
-    Message1 = GetClipboardText
-    InsertSection
-    sleep(2)
-    Kontext "TabBereiche"
-    TabBereiche.OK
-    sleep(1)
-    EditSelectAll
-    sleep(1)
-    EditCopy
-    sleep(1)
-    if Message1 <> GetClipboardText then Warnlog "     Layout is destroyed"
-    Call hCloseDocument
-
-    '/// 2. test for a section includes more than 1 graphic///
-    printlog "     Section includes more than 1 graphic"
-    Call hNewDocument
-    sleep(2)
-    Call hGrafikEinfuegen ( gTesttoolPath & "writer\optional\input\graphics\jolink.jpg" )
-    sleep(2)
-    FormatGraphics
-    sleep(2)
-    Kontext
-    Active.SetPage TabZusaetze
-    Kontext "TabZusaetze"
-    ObjektName.SetText "jolink"
-    sleep(2)
-    TabZusaetze.OK
-    sleep(1)
-    Call wTypeKeys "<ESCAPE>"
-    Call wTypeKeys "<RETURN>" , 2
-    sleep(1)
-    Call hGrafikEinfuegen ( gTesttoolPath + "writer\optional\input\graphics\bild.jpg" )
-    sleep(2)
-    FormatGraphics
-    sleep(2)
-    Kontext
-    Active.SetPage TabZusaetze
-    Kontext "TabZusaetze"
-    ObjektName.SetText "bild"
-    TabZusaetze.OK
-    sleep(1)
-    Call wTypeKeys "<ESCAPE>"
-    Call wTypeKeys "<RETURN>" , 4
-    sleep(1)
-    EditSelectAll
-    sleep(2)
-    InsertSection
-    sleep(2)
-    Kontext
-    Active.Setpage TabBereiche
-    Kontext "TabBereiche"
-    TabBereiche.OK
-    'Check if correct graphic have been selected
-    for j=1 to 2
-        Call wNavigatorAuswahl(4,j)
-        FormatGraphics
-        sleep(2)
-        Kontext
-        Active.SetPage TabZusaetze
-        Kontext "TabZusaetze"
-        sleep(1)
-        Message1 = ObjektName.GetText
-        select case j
-            case 1 : if Message1 <> "jolink"   then Warnlog "Wrong Graphicname: Not -> 'jolink'   But -> "+ Message1
-            case 2 : if Message1 <> "bild" then Warnlog "Wrong Graphicname: Not -> 'bild'  But -> "+ Message1
-        end select
-        TabZusaetze.Cancel
-        sleep(1)
-    next j
-    Call fCloseNavigator
-    sleep(1)
-    Call hCloseDocument
-
-    '/// 3. test for a section across page breaks ///
-    printlog "      Section across page breaks"
-    Call hNewDocument
-
-    ' Call dialog with Insert/ManualBreak and in dialog check 'page break'
-    Call wTypeKeys "Page Break"
-    Call wTypeKeys "<LEFT>" , 5
-    Kontext
-    InsertManualBreak
-    sleep(1)
-    Kontext "UmbruchEinfuegen"
-    Seitenumbruch.Check
-    UmbruchEinfuegen.OK
-    sleep(1)
-    EditSelectAll
-    sleep(1)
-    InsertSection
-    sleep(2)
-    Kontext "TabBereiche"
-    TabBereiche.OK
-    sleep(1)
-    Kontext
-    ViewNavigator
-    sleep(1)
-    Kontext "NavigatorWriter"
-    Seitennummer.SetText "2"
-    sleep(2)
-    'set page number to 2
-    if Seitennummer.GetText <> "2" then
-        warnlog "Something wrong in a section across page breaks, perhaps due to bug #101873."
-    end if
-    Call fCloseNavigator
-    Call hCloseDocument
-endcase
-
-'----------------------------------------------------------
-
-testcase tInsertSection_5
-
-    Dim Message1
-    Dim Message2
-    Dim Message3
-    
-    if Dir (gOfficePath + "user\work\link_of_section_test.oot") <> "" then
-        kill (gOfficePath + "user\work\link_of_section_test.oot")
-    end if
-    
-    '/// Linked Section test ///
-    
-    Call hNewDocument
-    
-    '/// 1. Check option 'Link' in dialogue Insert-Section  ///
-    printlog "   - Check option 'Link' in dialogue Insert-Section"
-    InsertSection
-    sleep 2
-    Kontext
-    Active.Setpage TabBereiche
-    Kontext "TabBereiche"
-    sleep 1
-    
-    Geschuetzt.UnCheck
-    Verknuepfung.Check
-    if Geschuetzt.IsChecked <>TRUE then warnlog "The checkbox 'protect' is NOT checked"
-    
-    '/// 2. Check Link from other sections ///
-    printlog "   - Check Link from other sections "
-    
-    '/// - Check if the link document contains no sections"
-    printlog "       - Check if the link document contains no sections"
-    
-    DateiVerknuepfung.Settext ConvertPath(gTesttoolpath + "writer\optional\input\section\bt.sxw")
-    
-    if Bereich.GetItemCount <> 0 then warnlog "Should NO entry in the section listbox"
-    TabBereiche.Cancel
-    
-    Call wTypeKeys "Hello World!"
-    EditSelectAll
-    
-    FormatCharacter
-    sleep 2
-    Kontext
-    
-    ' On Tabpage 'Font' adjust settings
-    active.SetPage TabFont
-    kontext "TabFont"
-    try
-        FontWest.Select 1
-        Message2 = FontWest.GetSelText
-        Message1 = StyleWest.GetItemCount
-        StyleWest.Select Message1
-        Message3 = StyleWest.GetSelText
-        SizeWest.Select 24
-    catch
-        Font.Select 1
-        Message2 = Font.GetSelText
-        Message1 = Style.GetItemCount
-        Style.Select Message1
-        Message3 = Style.GetSelText
-        Size.Select 24
-    endcatch
-    wait 100
-    
-    TabFont.OK
-    
-    Call fInsertSection("Section-Test-link")
-    
-    ' Save document
-    if gApplication = "WRITER" then
-        Call hFileSaveAsKill (gOfficePath + "user\work\link_of_section_test.odt")
-    end if
-    
-    Call hCloseDocument
-    
-    Call hNewDocument
-    
-    InsertSection
-    sleep 2
-    Kontext
-    Active.Setpage TabBereiche
-    Kontext "TabBereiche"
-    Verknuepfung.Check
-
-    Auswaehlen.Click
-    Kontext "OeffnenDlg"
-    Dateiname.Settext ConvertPath(gOfficePath + "user\work\link_of_section_test.odt")
-    Auswaehlen.Click
-    sleep 4
-    
-    Kontext
-    Active.Setpage TabBereiche
-    Kontext "TabBereiche"
-    Geschuetzt.UnCheck
-    
-    try
-        Bereich.Select 1
-    catch
-        Warnlog "Something wrong in Section name . Bug i35168"
-    endcatch
-    
-    if Bereich.GetSelText <> "Section-Test-link" then warnlog "the section name is wrong" + Bereich.GetSelText
-    
-    Bereichsliste.Settext "SectionLink"
-    
-    TabBereiche.OK
-    sleep 2
-    
-    Call wTypeKeys "<up>" , 2
-    
-    FormatSections
-    Kontext "BereicheBearbeiten"
-    if BereichsName.GetText <> "SectionLink" then warnlog "The Section Name is wrong : " + BereichsName.Gettext
-    BereicheBearbeiten.Cancel
-    
-    FormatCharacter
-    sleep 2
-    Kontext
-    'On Tabpage 'Font' adjust settings
-    active.SetPage TabFont
-    kontext "TabFont"
-    try
-        if FontWest.GetSelIndex <> 1 then Warnlog "Font should "+ Message2 +" is "+ FontWest.GetSelText
-        if StyleWest.GetSelIndex <> Message1 then Warnlog "FontStyle should " +Message3+" is "+ StyleWest.GetSelText
-        if SizeWest.GetSelIndex <> 24 then Warnlog "Wrong Font Size : " + SizeWest.GetSelText
-    catch
-        if Font.GetSelIndex <> 1 then Warnlog "Font should "+ Message2 +" is "+ Font.GetSelText
-        if Style.GetSelIndex <> Message1 then Warnlog "FontStyle should " +Message3+" is "+ Style.GetSelText
-        if Size.GetSelIndex <> 24 then Warnlog "Wrong Font Size : " + Size.GetSelText
-    endcatch
-    wait 100
-    TabFont.Cancel
-    Call hCloseDocument
-    
-    '/// 3. Check simple link from file ///
-    printlog "   - Check simple link from file"
-    
-    '/// test for entering path/name directly ///
-    Call hNewDocument
-    
-    InsertSection
-    sleep 2
-    Kontext
-    Active.Setpage TabBereiche
-    Kontext "TabBereiche"
-    Verknuepfung.Check
-    
-    DateiVerknuepfung.Settext ConvertPath(gTesttoolpath + "writer\optional\input\section\bt.sxw")
-    TabBereiche.OK
-    sleep 4
-    
-    Call hCloseDocument
-    
-    '/// 4. test via browse - button ///
-    Call hNewDocument
-    
-    InsertSection
-    sleep 2
-    Kontext
-    Active.Setpage TabBereiche
-    Kontext "TabBereiche"
-    sleep 1
-    Verknuepfung.Check
-    
-    Auswaehlen.Click   
-    Kontext "OeffnenDlg"
-    Dateiname.Settext ConvertPath(gTesttoolpath + "writer\optional\input\section\bt.sxw")
-    Auswaehlen.Click
-    sleep 4
-    
-    Kontext
-    Active.Setpage TabBereiche
-    Kontext "TabBereiche"
-    TabBereiche.OK
-    sleep 4
-    
-    Call hCloseDocument
-endcase
-
-'----------------------------------------------------------
-
-testcase tInsertSection_6
-
-    '/// Insert Section should be disabled in the follow opeations///
-    printlog "  - Insert Section should be disabled in the follow opeations"
-    
-    Call hNewDocument
-    
-    '/// 1. Multiselection  ///
-    printlog "  - Multiselection "
-    
-    Call wTypeKeys "Multiselection test , Multiselection test !"
-    Call fMultiSelection("Multiselection")
-    
-    try
-        InsertSection
-        sleep 2
-        Warnlog "Menu Insert / Section should be disabled !"
-    catch
-    endcatch
-    
-    Call hCloseDocument
-    
-    Call hNewDocument
-    
-    '/// 2. cell selection in table ///
-    printlog "  - Check cell selection in table "
-    InsertTableWriter
-    
-    Kontext "TabelleEinfuegenWriter"
-    TabelleEinfuegenWriter.OK
-    sleep 1
-    
-    Call wTypeKeys "<Shift Right>"
-    
-    try
-        InsertSection
-        sleep 2
-        Warnlog "Menu Insert / Section should be disabled !"
-    catch
-    endcatch
-    
-    Call hCloseDocument
-    
-    '/// 3. insert a frame  ///
-    printlog "  - Check after insert a frame "
-    Call hNewDocument
-    InsertFrame
-    Kontext
-    active.SetPage TabType
-    Kontext "TabType"
-    TabType.OK
-    
-    try
-        InsertSection
-        sleep 2
-        Warnlog "Menu Insert / Section should be disabled !"
-    catch
-    endcatch
-    
-    Call hCloseDocument
-    
-    '/// 4. insert a graphic  ///
-    printlog "  - Check after insert a graphic "
-    Call hNewDocument
-    Call hGrafikEinfuegen ( gTesttoolPath + "writer\optional\input\graphics\jolink.jpg" )
-    
-    try
-        InsertSection
-        sleep 2
-        Warnlog "Menu Insert / Section should be disabled !"
-    catch
-    endcatch
-    
-    Call hCloseDocument
-    
-    '/// 5. insert a OLE object  ///
-    printlog "  - Check after insert a OLE-object (drawing) "
-    Call hNewDocument
-    InsertObjectOLEObject
-    Kontext "OLEObjektEinfuegen"
-    AusDateiErstellen.Check
-    oleDatei.Settext ConvertPath(gTesttoolpath + "writer\optional\input\section\section_test.sxd")
-    OLEObjektEinfuegen.OK
-    sleep 3
-    try
-        InsertSection
-        sleep 2
-        Warnlog "Menu Insert / Section should be disabled !"
-    catch
-    endcatch
-    
-    Call hCloseDocument
-endcase
diff --git a/testautomation/writer/optional/includes/section/w_section_2.inc b/testautomation/writer/optional/includes/section/w_section_2.inc
deleted file mode 100644
index 92aa69bff1d5..000000000000
--- a/testautomation/writer/optional/includes/section/w_section_2.inc
+++ /dev/null
@@ -1,1055 +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 : helge.delfs@oracle.com
-'*
-'* short description : Hide section / Protect section / Display of dialogues
-'*
-'************************************************************************
-'*
-' #1  tHideSection_1
-' #1  tHideSection_2
-' #1  tHideSection_3
-' #1  tProtectSection_1
-' #1  tDisplaySection_1
-' #1  tDisplaySection_2
-' #1  tDisplaySection_3
-' #1  tDisplaySection_4
-' #1  tDisplaySection_5
-' #1  tDisplaySection_6
-' #1  tDisplaySection_7
-' #1  tDisplaySection_8
-' #1  tDisplaySection_9
-'*
-'\***********************************************************************
-
-sub w_section_2
-
-    printLog Chr(13) + "---------   Hide Section   ----------"
-    Call tHideSection_1          'Hide Section without condition
-    Call tHideSection_2          'Hide Section with condition
-    Call tHideSection_3          'Headings and index entries in hidden section should disappear from an index (after actualizing the index)
-    
-    printLog Chr(13) + "---------   Protect Section   ----------"
-    Call tProtectSection_1       'Protect Section
-    
-    printLog Chr(13) + "---------   Display of dialogues  (Insert - Section)   ----------"
-    Call tDisplaySection_1       'Check display of dialogues -- Insert Section
-    
-    printLog Chr(13) + "---------   Display of dialogues  (Format - Section)   ----------"
-    Call tDisplaySection_2       'Check display of dialogues -- Format Section -1
-    Call tDisplaySection_3       'Check display of dialogues -- Format Section -2
-    Call tDisplaySection_4       'hiding a section hierarchy hides all subsections
-    
-    printLog Chr(13) + "---------   Display of dialogues  (Navigator)   ----------"
-    Call tDisplaySection_5       'Sections are displayed in row of their insertion in Navigator
-    Call tDisplaySection_6       'Jump to a section by double-clicking it in navigator
-    Call tDisplaySection_7       'Activate Navigator, insert a section , it must be displayed
-    Call tDisplaySection_8       'Select a section in the Navigator, call context menu, choose "Edit"
-    Call tDisplaySection_9       'Check to insert a paragraph before and after a section
-
-end sub
-
-'***********************************************************************
-
-testcase tHideSection_1
-    '/// <b>Hide Section without condition </b>
-    printlog "Hide Section without condition "
-    
-    '/// 1. Test from insert/section
-    '/// Open a new document.
-    Call hNewDocument
-    
-    '/// Press Return and then input some test words
-    Call wTypeKeys "<Return>"
-    Call wTypeKeys "Section: hidden without condition"
-    
-    '/// Select the test words with SHIFT and HOME keys.
-    Call wTypeKeys "<Shift Home>"
-    
-    '/// Insert/Section / Section, check 'Hide' in Hide area
-    InsertSection
-    Kontext
-    Active.Setpage TabBereiche
-    Kontext "TabBereiche"
-    Ausblenden.check
-    TabBereiche.OK
-    sleep(2)
-    
-    '/// Edit / SelectAll
-    EditSelectAll
-    
-    '/// Edit / Copy
-    'Edit / Copy should NOT be available because the words in the section are hidden.
-    try
-        EditCopy
-        warnlog "Hide Section without condition doesn't work in insert/section!"
-    catch
-    endcatch
-    
-    Call hCloseDocument
-    
-    '/// 2.Test from format/section
-    Call hNewDocument
-    
-    '/// Press Return and then input some test words
-    Call wTypeKeys "<Return>"
-    Call wTypeKeys "Section: hidden without condition"
-    
-    '/// Select the test words with SHIFT and HOME keys.
-    Call wTypeKeys "<Shift Home>"
-    
-    '/// Insert a section
-    Call fInsertSection("HideSection")
-    
-    '/// Format/Section and check 'Hide' in Hide area
-    FormatSections
-    Kontext "BereicheBearbeiten"
-    Ausblenden.check
-    BereicheBearbeiten.OK
-    
-    '/// Edit / SelectAll
-    EditSelectAll
-    
-    '/// Edit / Copy
-    'Edit / Copy should NOT be available , because the words in the section are hided
-    try
-        EditCopy
-        warnlog "Hide Section without condition doesn't work in format/section!"
-    catch
-    endcatch
-    '///Close the document.
-    Call hCloseDocument
-endcase
-
-'----------------------------------------------------------
-
-testcase tHideSection_2
-    Dim rightCondition as String
-    Dim wrongCondition as String
-    '/// <b> Hide Section with condition </b>
-    printlog "Hide Section with condition "
-    '/// Open a new document. 
-    Call hNewDocument
-    '/// Press RETURN and then input some test words.
-    Call wTypeKeys "<Return>"
-    Call wTypeKeys "Section: hidden with condition<return>"
-    
-    '/// Select test words with UP- then HOME-key. Press SHIFT- and END-keys together.
-    Call wTypeKeys "<Up><Home><Shift End>"
-    
-    '/// Insert a section.
-    Call fInsertSection("HideSection")
-    
-    '/// Place the cursor out of the section with DOWN key.
-    Call wTypeKeys "<Down>"
-    
-    '/// Insert a user field
-    '/// Insert/Fields/Others , Tabpage Variables ,
-    '/// + select 'User field' in 'Type' area ,
-    '/// + then select 'Text' in 'Format' area ,
-    '/// + input 'myTest' in Name and 'a' in Value ,
-    '/// + click insert button , and close the dialog
-    InsertFieldsOther
-    Kontext
-    Active.SetPage TabVariablen
-    Kontext "TabVariablen"
-    Feldtyp.Select Feldtyp.GetItemCount        'User Field
-    Zahlenformat.Select(1)                     'Text
-    NameText.SetText "myTest"
-    Formel.SetText "a"
-    Einfuegen.Click                            '--insert button
-    sleep(1)
-    TabVariablen.Close
-    
-    '/// Format/Section, click Hide and enter condition
-    FormatSections
-    Kontext "BereicheBearbeiten"
-    Ausblenden.check
-    '/// -- enter wrong condition should NOT hide section
-    '/// => wrong Condition is  (myTest eq "B")
-    wrongCondition = "myTest eq " + String(1,34) + "B" + String(1,34)
-    Bedingung.SetText wrongCondition
-    BereicheBearbeiten.OK
-    sleep(2)
-    
-    'Tools/Update/Fields to ensure to hide the section if the section can be hided
-    ToolsUpdateFields
-    sleep(2)
-    
-    '/// Use UP-, then HOME-keys, then SHIFT- and END-keys together to 
-    '///+ check if the test words in section is hidden.
-    Call wTypeKeys "<Up><Home><Shift End>"
-    try
-        EditCopy
-    catch
-        warnlog "Hide Section with wrong condition should NOT hide the section!"
-        Goto endsub
-    endcatch
-    
-    if GetClipboardText = "Section: hidden with condition" then
-        '/// Press DOWN key.
-        Call wTypeKeys "<Down>"
-        Kontext
-        '/// Format / Sections
-        FormatSections
-        Kontext "BereicheBearbeiten"
-        '/// Check 'Hide'-checkbox.
-        Ausblenden.check
-        '/// -- enter right condition should hide section
-        '/// => rightCondition is (myTest eq "A")
-        rightCondition = "myTest eq " + String(1,34) + "a" + String(1,34)
-        Bedingung.SetText rightCondition
-        '/// Close the dialogue with OK.
-        BereicheBearbeiten.OK
-        sleep(2)
-        '/// Tools / Update / Fields
-        ToolsUpdateFields
-        sleep(1)
-        
-        '/// Check if the test words in section are hidden.
-        Call wTypeKeys "<Up><Home><Shift End>"
-        try
-            EditCopy
-            if GetClipboardText = "Section: hidden with condition" then
-                warnlog "Hide Section with wrong condition should NOT hide the section!"
-            else
-                warnlog "Something wrong, need to check! -- II"
-            end if
-        catch
-        endcatch
-    else
-        warnlog "Something wrong, need to check! -- I"
-    end if
-    '///Close the document. 
-    Call hCloseDocument
-endcase
-
-'----------------------------------------------------------
-
-testcase tHideSection_3
-
-   '/// Headings and index entries in hidden section should disappear from an index (after actualizing the index)
-   printlog "  -- Headings and index entries in hidden section should disappear from an index (after actualizing the index)"
-
-    Call hNewDocument
-
-    '/// Insert some test words
-    Call wTypeKeys "Test for Heading and Index in section<Return>"
-    Call wTypeKeys "<Up>"
-    Call wTypeKeys "<Home><Shift End>"
-
-    '/// Insert a section
-    fInsertSection("HeadAndIndexInSection")
-
-    '/// select part in the section.
-    Call wTypeKeys "<Home><Shift Mod1 Right>"
-
-    '/// Select Insert/Indexes and Tables/Entrys and add this part to an index
-    InsertIndexesEntry
-    Sleep 4
-    Kontext "VerzeichniseintragEinfuegen"
-
-    '/// generate testing index - myTest
-    EintragNeu.Click
-    Kontext
-    Kontext "BenutzerverzeichnisDefinieren"
-    NameBenutzerverzeichnis.Settext "myTest"
-    BenutzerverzeichnisDefinieren.Ok
-
-    Kontext
-    Kontext "VerzeichniseintragEinfuegen"
-    EintragOk.Click
-    Sleep 1
-    VerzeichniseintragEinfuegen.close
-
-    '/// Move the cursor out of the section
-    Call wTypeKeys "<down>"
-
-    '/// Insert/Indexes and Tables/Indexes and Tables ...
-    InsertIndexes
-    Sleep 2
-    Kontext
-    Active.SetPage TabVerzeichnisseVerzeichnis
-    Kontext "TabVerzeichnisseVerzeichnis"
-    Verzeichnistyp.Select "myTest"
-    '/// protected against manual changes UNcheck
-    VerzeichnisGeschuetzt.UnCheck
-    TabVerzeichnisseVerzeichnis.OK
-
-    '/// Edit section with Format/Section and choose 'Hide'
-    Call wTypeKeys "<Up>"
-    Kontext
-    FormatSections
-    Kontext "BereicheBearbeiten"
-    Ausblenden.check
-    BereicheBearbeiten.OK
-
-    ToolsUpdateAllIndexes
-
-    EditSelectAll
-    EditCopy
-
-    if InStr( GetClipboardText , "Test" ) <> 0 then warnlog "Headings and index entries in hidden section don't disappear from an index:" + GetClipboardText
-
-    Call hCloseDocument
-
-endcase
-
-'----------------------------------------------------------
-
-testcase tProtectSection_1
-
-   printlog "   - Protect Section"
-   '/// Protect Section ///
-
-   Call hNewDocument
-
-   '/// Open options and check 'Direct-Cursor' in options ///
-   fCheckDirectCursor
-
-   Call wTypeKeys "Should be edited<return>"
-   Call wTypeKeys "Section: protected"
-   Call wTypeKeys "<Shift Home>"
-
-   '/// Insert a protected section  in the bottom ///
-
-   InsertSection
-   Sleep 2
-   Kontext
-   Active.Setpage TabBereiche
-   Kontext "TabBereiche"
-   Bereichsliste.Settext "protect section"
-   Geschuetzt.Check
-   TabBereiche.OK
-   sleep 1
-
-   EditCopy
-
-   '/// 1) Warning should appear when trying to write in protected area! ///
-   if GetClipBoardtext = "Section: protected" then
-     Call wTypeKeys "<Home>"
-     Call wTypeKeys "<Space>"
-     Kontext "Active"
-     If Active.Exists then
-      Active.ok
-     else
-      warnlog "-  No warning when trying to write in protected area!"
-     end if
-   else
-     warnlog "Testtool couldn't find the protected area!"
-   end if
-
-   Call wTypeKeys "<Up>"
-   Call wTypeKeys "<Home><Shift End>"
-
-   EditCopy
-
-   '/// 2) Warning should NOT appear when trying to write in un-protected area
-   '/// +  even the protected section at the end of document
-   if GetClipBoardtext = "Should be edited" then
-
-     Call wTypeKeys "<Home>"
-     Call wTypeKeys "Can you see what I am doing?"
-     Call wTypeKeys "<Home><Shift End>"
-     EditCopy
-     If GetClipBoardtext <> "Can you see what I am doing?Should be edited" then warnlog "Should edit in the no-protected area"
-
-   else
-      warnlog "Testtool couldn't find the edited area!"
-   end if
-
-   Call hCloseDocument
-endcase
-
-'----------------------------------------------------------
-
-testcase tDisplaySection_1
-
-   '/// Check display of dialogues -- Insert Section
-   printlog "   - Check display of dialogues -- Insert Section"
-
-   Dim SectionName() as String
-   Dim correctSequence() as String
-   Dim selectName as String
-   Dim i as Integer
-   Dim j as Integer
-
-   SectionName = Array( _
-                       "a1","b2","c3","d4","e5","f6","g7", _
-                       "h1","i2","j3","k4","l5","m6","n7", _
-                       "H1","I2","J3","K4","L5","M6","N7", _
-                       "A1","B2","C3","D4","E5","F6","G7", _
-                      )
-
-   Select case iSystemSprache
-          case 81,82,86,88 : correctSequence = Array( _
-                       "a1","A1","b2","B2","c3","C3","d4","D4", _
-                       "e5","E5","f6","F6","g7","G7", _
-                       "h1","H1","i2","I2","j3","J3","k4","K4", _
-                       "l5","L5","m6","M6","n7","N7", _
-                       )
-          case else :        correctSequence = Array( _
-                       "a1","A1","b2","B2","c3","C3","d4","D4", _
-                       "e5","E5","f6","F6","g7","G7", _
-                       "h1","H1","i2","I2","j3","J3","k4","K4", _
-                       "l5","L5","m6","M6","n7","N7", _
-                       )
-          end select
-
-'  correctSequence = Array( _
-'                       "A1","a1","B2","b2","C3","c3","D4","d4", _
-'                       "E5","e5","F6","f6","G7","g7", _
-'                       "H1","h1","I2","i2","J3","j3","K4","k4", _
-'                       "L5","l5","M6","m6","N7","n7", _
-'                       )
-
-   j = UBound(SectionName)
-
-   Call hNewDocument
-
-   '/// insert a lot of sections
-   For i = 0 to j
-     fInsertSection(SectionName(i))
-   next i
-
-   InsertSection
-   Sleep 1
-   Kontext
-   Active.Setpage TabBereiche
-   Kontext "TabBereiche"
-
-   '/// Check if Section name display alphabetically
-   For i = 1 to j+1
-     Bereichsliste.Select i
-     selectName = Bereichsliste.GetSelText
-     if  selectName <> correctSequence(i-1) then warnlog "Section name displays alphabetically wrong! Getting section name:"+ selectName +"  The section name should be: "+ correctSequence(i-1)
-   next i
-
-   '/// check if vertical scrollbar display
-   if (Bereichsliste.HasScrollbar (AlignRight)) = FALSE then warnlog "Vertical scrollbar should be displayed !"
-
-   TabBereiche.Cancel
-   sleep 1
-
-   Call hCloseDocument
-
-   Call hNewDocument
-
-   '/// Insert a section with a long name
-   fInsertSection("a loooooooooooooooooooooooooooooooooooooooooooooooong name section")
-
-   InsertSection
-   Sleep 1
-   Kontext
-   Active.Setpage TabBereiche
-   Kontext "TabBereiche"
-
-   '/// check if horizontal scrollbar display
-   if (Bereichsliste.HasScrollbar (AlignBottom)) = FALSE then warnlog "horizontal scrollbar should be displayed"
-
-   TabBereiche.Cancel
-   sleep 1
-
-   Call hCloseDocument
-
-endcase
-
-'----------------------------------------------------------
-
-testcase tDisplaySection_2
-
-   Dim SectionName() as String
-   Dim i , j         as Integer
-
-   if Dir (gOfficePath + "user\work\testlink1.odt") <> "" then kill (gOfficePath + "user\work\testlink1.odt")
-   if Dir (gOfficePath + "user\work\testlink2.odt") <> "" then kill (gOfficePath + "user\work\testlink2.odt")
-
-   '///  Check display of dialogues -- Format Section -1
-   printlog "   - Check display of dialogues -- Format Section"
-   '/// -- Section names are displayed in row of their insertion
-   SectionName = Array("a2","A1","a4","A5")
-   j = UBound(SectionName)
-
-   Call hNewDocument
-
-   For i = 0 to j
-     fInsertSection(SectionName(i))
-   next i
-
-   Kontext
-   FormatSections
-   Kontext "BereicheBearbeiten"
-   Bereich.TypeKeys "<Up>",4
-
-   For i = 0 to j
-     if  BereichsName.GetText <> SectionName(i) then warnlog "Section names are NOT displayed in row of their insertion"
-     Bereich.TypeKeys "<Down>"
-   next i
-
-   BereicheBearbeiten.Cancel
-   sleep 2
-
-   Call hCloseDocument
-
-   '/// -- An exception is the hierarchical order; this is diplayed by an indentation
-   SectionName = Array("A2","testlink1","A1","testlink2")
-   j = UBound(SectionName)
-
-   Call hNewDocument
-   fInsertSection("testlink1")
-   Call hFileSaveAsKill (gOfficePath + "user\work\testlink1.odt")
-   Call hCloseDocument
-
-   Call hNewDocument
-   fInsertSection("testlink2")
-   Call hFileSaveAsKill (gOfficePath + "user\work\testlink2.odt")
-   Call hCloseDocument
-
-   '/// insert fisrt section linked a test file which include a section
-   Call hNewDocument
-   InsertSection
-   Sleep 2
-   Kontext
-   Active.Setpage TabBereiche
-   Kontext "TabBereiche"
-   Bereichsliste.Settext "A2"
-   Verknuepfung.Check
-
-   DateiVerknuepfung.Settext ConvertPath(gOfficePath + "user\work\testlink1.odt")
-   TabBereiche.OK
-
-  '/// insert another section linked another test file which include another section
-   InsertSection
-   Sleep 2
-   Kontext
-   Active.Setpage TabBereiche
-   Kontext "TabBereiche"
-   Bereichsliste.Settext "A1"
-   Verknuepfung.Check
-
-   DateiVerknuepfung.Settext ConvertPath(gOfficePath + "user\work\testlink2.odt")
-   TabBereiche.OK
-
-   Kontext
-   FormatSections
-   Kontext "BereicheBearbeiten"
-
-   Bereich.TypeKeys "<Up>",4
-
-   For i = 0 to j
-     if  BereichsName.GetText <> SectionName(i) then warnlog "Section names are NOT displayed in row of their insertion"
-     Bereich.TypeKeys "<Down>"
-   next i
-
-   BereicheBearbeiten.Cancel
-   sleep 2
-
-   Call hCloseDocument
-
-endcase
-
-'----------------------------------------------------------
-
-testcase tDisplaySection_3
-
-   '/// Check display of dialogues -- Format Section -2
-   '/// + double clicking a section with subsections hides the subsections,
-   '/// + another double-click displays them again
-
-   if Dir (gOfficePath + "user\work\DisplaySection_3.odt") <> "" then kill (gOfficePath + "user\work\DisplaySection_3.odt")
-
-   printlog "   - Check display of dialogues -- Format Section -2"
-
-   Call hNewDocument
-   fInsertSection("testlink1")
-   Call hFileSaveAsKill (gOfficePath + "user\work\DisplaySection_3.odt")
-   Call hCloseDocument
-
-   '/// insert a section(A2) linked a test file which include a section(testlink1)
-   Call hNewDocument
-   InsertSection
-   Sleep 2
-   Kontext
-   Active.Setpage TabBereiche
-   Kontext "TabBereiche"
-   Bereichsliste.Settext "A2"
-   Verknuepfung.Check
-
-   DateiVerknuepfung.Settext ConvertPath(gOfficePath + "user\work\DisplaySection_3.odt")
-   TabBereiche.OK
-
-   Kontext
-   FormatSections
-   Kontext "BereicheBearbeiten"
-
-   Bereich.TypeKeys "+"
-   if Bereich.GetItemCount < 2 then warnlog "Should be 2 sections in the list tree, now get " +Bereich.GetItemCount
-   Bereich.TypeKeys "-"
-   if Bereich.GetItemCount > 1 then warnlog "Should be 1 section in the list tree, get " +Bereich.GetItemCount
-   Bereich.TypeKeys "+"
-   if Bereich.GetItemCount < 2 then warnlog "Should be 2 sections in the list tree, now get " +Bereich.GetItemCount
-   Bereich.TypeKeys "-"
-   if Bereich.GetItemCount > 1 then warnlog "Should be 1 section in the list tree, get " +Bereich.GetItemCount
-
-   BereicheBearbeiten.Cancel
-   sleep 2
-
-   Call hCloseDocument
-
-endcase
-
-'----------------------------------------------------------
-
-testcase tDisplaySection_4
-    Dim mMessage as String
-    Dim allMessage as String
-    '///<u>Goal</u>: Hiding a section hierarchy hides all subsections.
-    '///+(Except if the section which should be hided is the whole document - than this feature is disabled!)
-    '///+<u>Note</u>: The display in the dialog should not affected by changes in the document view.
-    printlog "   - Check hiding a section hierarchy hides all subsections -- Format Section -3"
-    Call hNewDocument
-    '/// Creating a new document.
-    Call wTypeKeys "This is Section_s<Shift Home>"
-    '/// Writing This is Section_s, marking it and use Insert / Section to create a <i>Section_s</i>.
-    Call fInsertSection("Section_s")
-    '/// Saving it as DisplaySection_4.odt in the user-work-dir.
-    Call hFileSaveAsKill (gOfficePath & "user\work\DisplaySection_4.odt")
-    '/// Closing the document.
-    Call hCloseDocument
-    '/// Creating a new document.
-    Call hNewDocument
-    '/// <b>Entering a RETURN at the beginning of the new document</b>!
-    Call wTypeKeys "<RETURN>"
-    '/// Writing <i>This is Section_m</i> and marking it.
-    '/// Insert a section named <i>Section_m</i>.
-    Call wTypeKeys "This is Section_m<Shift Home>"
-    Call fInsertSection("Section_m")
-    '/// Create a new line with END and RETURN in the actual section.
-    Call wTypeKeys "<END><RETURN>"
-    '/// Write <i>This Section should be Section_s</i> and mark it.
-    Call wTypeKeys "This Section should be Section_s<Shift Home>"
-    Kontext
-    '/// Insert / Section
-    InsertSection
-    Kontext
-    Active.Setpage TabBereiche
-    Kontext "TabBereiche"
-        '/// Name it <i>Section_u</i>.
-        Bereichsliste.Settext "Section_u"
-        '/// <b>Link it</b> to the first created document and the section in it.
-        '///+ There should be pop up a warning! Press OK on it!
-        Verknuepfung.Check
-        Kontext "Active"
-        if Active.Exists then
-            if Active.GetRT = 304 then
-                Active.Yes
-            else
-                warnlog "No messagebox warns of deleting content of the current section!"
-            end if
-        end if
-        Kontext "TabBereiche"
-        Dateiverknuepfung.Settext ConvertPath(gOfficePath & "user\work\DisplaySection_4.odt")
-        '/// Unprotect it if it is protected.
-        Geschuetzt.UnCheck
-        '/// be sure that it is visible.
-        Ausblenden.UnCheck
-        '/// OK on the <i>section</i> dialog.
-    TabBereiche.OK
-    sleep(2)
-
-    Call wTypeKeys "<MOD1 HOME>",2
-    '/// Type the keys <CTRL HOME> together and twice.
-    Call wTypeKeys "<SHIFT END>"
-    '/// Type the keys <SHIFT END> together.
-    EditCopy
-    '/// Copy it to the clipboard (Edit / Copy).
-    '/// <i>This is Section_m</i> should be now in the clipboard.
-    if GetClipboardText = "This is Section_m" then
-        '/// Type keys <DOWN> and then <HOME>
-        Call wTypeKeys "<DOWN><HOME>"
-        '/// Type keys <SHIFT END> together
-        Call wTypeKeys "<SHIFT END>"
-        EditCopy
-        '/// Copy it to the clipboard (Edit / Copy).
-        if GetClipboardText = "This is Section_s" then
-            '/// <i>This is Section_s</i> should be visible/in the clipboard because the top section should not be affected if a lower section has been hided.
-            Kontext
-                '/// Format / Sections
-                FormatSections
-            Kontext "BereicheBearbeiten"
-                '/// Hide the <i>Section_s</i> (Middle section).
-                Bereich.TypeKeys "<Down>"
-                Ausblenden.Check
-                '/// OK on the dialog.
-                BereicheBearbeiten.OK
-                sleep(2)
-
-                Call wTypeKeys "<HOME>"
-                '/// Type key <HOME>
-                Call wTypeKeys "<SHIFT END>"
-                '/// Type key <SHIFT END> together
-                EditCopy
-                '/// Copy it to the clipboard (Edit / Copy).
-                if GetClipboardText <> "This is Section_m" then warnlog "Should only display the content in section_m, but '" & GetClipboardText & "' is visible."
-                '/// <i>This is Section_m</i> should be in the clipboard, nothing more.
-                Kontext
-                    '/// Format / Sections
-                    FormatSections
-                Kontext "BereicheBearbeiten"
-                    '/// Verify that all sections we have created are visible in the dialog.
-                    Bereich.TypeKeys "<Up>" , 2
-                    if BereichsName.GetText <> "Section_m" then warnlog "The display in dialogue is affected: '" & BereichsName.GetText & "'."
-                    Bereich.TypeKeys "<Down>"
-                    if BereichsName.GetText <> "Section_u" then warnlog "The display in dialogue is affected: '" & BereichsName.GetText & "'."
-                    Bereich.TypeKeys "<Down>"
-                    if BereichsName.GetText <> "Section_s" then warnlog "The display in dialogue is affected: '" & BereichsName.GetText & "'."
-                    '/// Unhide all Sections.
-                    Ausblenden.UnCheck
-                    '/// Go to the top section (<i>Section_m</i>
-                    Bereich.TypeKeys "<UP>" , 2
-                    '/// Hide the top section.
-                    Ausblenden.Check
-                    '/// OK on the dialog.
-                    BereicheBearbeiten.OK
-                    sleep(2)
-                    '/// Edit / Select all
-                    EditSelectAll
-                    try
-                        '/// Verify that Edit / Copy is NOT usable! There is nothing selected because all sections should be hided!
-                        EditCopy
-                        warnlog "It was possible to use Edit / Copy but it should be an empty document and the menu item should be disabled!"
-                    catch
-                        printlog "Edit / Copy was disabled because there should be nothing in the document which could be copied."
-                    endcatch
-                    Kontext
-                        '/// Format / Sections
-                        FormatSections
-                        '///+ Verify that hidintg <i>section_m</i> in the document does not affect the dialog:
-                        Kontext "BereicheBearbeiten"
-                        Bereich.TypeKeys "<UP>" , 3
-                        if BereichsName.GetText <> "Section_m" then warnlog "the display in dialogue is affected" +BereichsName.GetText
-                        Bereich.TypeKeys "<DOWN>"
-                        if BereichsName.GetText <> "Section_u" then warnlog "the display in dialogue is affected" +BereichsName.GetText
-                        Bereich.TypeKeys "<DOWN>"
-                        if BereichsName.GetText <> "Section_s" then warnlog "the display in dialogue is affected" +BereichsName.GetText
-                        BereicheBearbeiten.Cancel
-                        '/// Cancel the dialog.
-        else
-            warnlog "Don't get the correct content of Section_s"
-        end if
-    else
-        warnlog "Don't get the correct content of Section_m"
-    end if
-
-   Call hCloseDocument
-endcase
-
-'----------------------------------------------------------
-
-testcase tDisplaySection_5
-
-   Dim sectionName() as String
-   Dim correctSequence() as String
-   Dim i as Integer
-   Dim j as Integer
-
-   if Dir (gOfficePath + "user\work\NavigatorSection_1.odt") <> "" then kill (gOfficePath + "user\work\NavigatorSection_1.odt")
-
-   '/// Sections are displayed in row of their insertion in Navigator.
-   '///+Hierarchies, protected and hidden sections have no special mark.
-   printlog "   - Check Section name display in navigator"
-
-   'Generate a .odt file which include a section
-   Call hNewDocument
-   fInsertSection("Section_S")
-   Call wTypeKeys "<up>This is section_S"
-   Call hFileSaveAsKill (gOfficePath + "user\work\NavigatorSection_1.odt")
-   Call hCloseDocument
-
-   Call hNewDocument
-
-   '/// Input some test words
-   Call wTypeKeys "Test is in sectionNormal<return>"
-   Call wTypeKeys "Test is in sectionHide<return>"
-   Call wTypeKeys "Test is in sectionProtect<return>"
-
-   sectionName = Array( _
-                         "sectionNormal",  _
-                         "sectionHide",    _
-                         "sectionProtect", _
-                         "sectionLink",    _
-                         "Section_S",      _
-                        )
-
-   correctSequence = Array( _
-                         "sectionHide",    _
-                         "sectionNormal",  _
-                         "sectionProtect", _
-                         "sectionLink",    _
-                         "Section_S",      _
-                        )
-
-   j = UBound(sectionName)
-
-   Call wTypeKeys "<Up>",4
-
-   For i = 0 to j-1
-     Call wTypeKeys "<Home><Shift End>"
-     fInsertSection(sectionName(i))
-     Call wTypeKeys "<Down>"
-   next i
-
-   Kontext
-   FormatSections
-   Kontext "BereicheBearbeiten"
-
-   '/// insert a normal section
-   Bereich.TypeKeys "<Up>",4
-
-   '/// insert a section with hide option
-   Bereich.TypeKeys "<Down>"
-   if BereichsName.GetText = sectionName(1) then
-       Ausblenden.check
-   else
-       warnlog "The second section should be " +sectionName(1) +" bug get" +BereichsName.GetText
-   end if
-
-   '/// insert a section with protect option
-   Bereich.TypeKeys "<Down>"
-   if BereichsName.GetText = sectionName(2) then
-       Geschuetzt.Check
-   else
-       warnlog "The second section should be " +sectionName(2) +" bug get" +BereichsName.GetText
-   end if
-
-   '/// insert a section with Link option
-   Bereich.TypeKeys "<Down>"
-   if BereichsName.GetText = sectionName(3) then
-       Verknuepfung.Check
-       Dateiname.Settext ConvertPath(gOfficePath + "user\work\NavigatorSection_1.odt")
-   else
-       warnlog "The second section should be " +sectionName(3) +" bug get" +BereichsName.GetText
-   end if
-
-   BereicheBearbeiten.OK
-   Sleep 1
-
-   'start up Navigator
-   Call wNavigatorAuswahl(7,1, true)
-
-   printlog "  -- check if the section name in navigator is right "
-   for i= 0 to j
-      if Auswahlliste.GetitemText(8+i) <> correctSequence(i) then QAErrorLog "The Section Name may be wrong, should be " + sectionName(i) +" but get " & Auswahlliste.GetitemText(i+2)
-   next i
-
-   'Close Navigator before close the document
-   fCloseNavigator
-
-   Call hCloseDocument
-
-endcase
-
-'----------------------------------------------------------
-
-testcase tDisplaySection_6
-
-   Dim sectionContent() as String
-   Dim j as Integer
-
-   '/// Jump to a section by double-clicking it in navigator
-   '/// +instead of 'double-click', we choose return
-   printlog "   - Check Jump to a section by double-clicking it in navigator"
-
-   Call hNewDocument
-
-   sectionContent = Array( _
-                         "Test is in Section1", _
-                         "Test is in Section2", _
-                         )
-
-   '/// Input some test words
-   Call wTypeKeys sectionContent(0)
-   Call wTypeKeys "<return>"
-   Call wTypeKeys sectionContent(1)
-
-   Call wTypeKeys "<up><home><Shift End>"
-   fInsertSection("section1")
-
-   Call wTypeKeys "<down><home><Shift End>"
-   fInsertSection("section2")
-
-   'start up Navigator
-   Call wNavigatorAuswahl(7,1, true)
-
-   'Jump to a section by double-clicking it
-   printlog "  -- check Jump to a section by double-clicking it "
-   for j=1 to 2
-      Auswahlliste.TypeKeys "<return>"
-      Sleep 2
-      Call wTypeKeys "<home><Shift End>"
-      EditCopy
-      if GetClipboardText <> sectionContent(j-1) then  warnlog "The focus is NOT in the correct location"
-      Kontext "NavigatorWriter"
-      Auswahlliste.TypeKeys "<down>"
-   next j
-
-   'Close Navigator before close the document
-   fCloseNavigator
-
-   Call hCloseDocument
-
-endcase
-
-'----------------------------------------------------------
-
-testcase tDisplaySection_7
-
-   Dim i as Integer
-
-   '///   Activate Navigator, insert a section , it must be displayed
-   '/// + immediately in the Navigator .
-   printlog "   - Check inserting a section must be displayed immediately in the Navigator "
-
-   Call hNewDocument
-
-   'start up Navigator first
-   Call wNavigatorAuswahl(7,1)
-
-   fInsertSection("sectionNormal")
-   Sleep 1
-   
-   Call wNavigatorAuswahl(7,1)
-   
-   Kontext "NavigatorWriter"
-   Auswahlliste.TypeKeys "<return>"
-
-   printlog "  -- check if the section name in navigator is right "
-   if Auswahlliste.GetitemText(8) <> "sectionNormal" then warnlog "The section can't be displayed immediately in the Navigator. Found this: '" + Auswahlliste.GetitemText(8) + "' instead."
-
-   'Close Navigator before close the document
-   fCloseNavigator
-
-   Call hCloseDocument
-
-endcase
-
-'----------------------------------------------------------
-
-testcase tDisplaySection_8
-
-   Dim i as Integer
-
-   '///  Select a section in the Navigator, call context menu, choose "Edit"
-   '///+ Format-Section dialogue must appear
-   printlog "   - Check if the context menu should work in navigator / section "
-
-   Call hNewDocument
-   sleep(2)
-   fInsertSection("sectionNormal")
-   sleep(2)
-   'start up Navigator
-   Call wNavigatorAuswahl(7,1, true)
-   sleep(2)
-   Auswahlliste.OpenContextMenu
-   sleep(2)
-   hMenuSelectNr(4)
-   sleep(2)
-   'Check if the edit section dialog is up
-   Kontext "BereicheBearbeiten"
-   if NOT BereicheBearbeiten.Exists then
-      warnlog "- Dialog to eidt section isn't up!"
-   else
-      BereicheBearbeiten.Cancel
-   end if
-   sleep(1)
-   'Close Navigator before close the document
-   fCloseNavigator
-   sleep(1)
-   Call hCloseDocument
-endcase
-
-'----------------------------------------------------------
-
-testcase tDisplaySection_9
-
-   Dim i as Integer
-   Dim shouldbe as string
-
-   '/// Check to insert a paragraph before and after a section"
-   printlog "   -  Check to insert a paragraph before and after a section"
-   '/// Open a new writerdocument ///
-   Call hNewDocument
-   '/// Write some text, selct it and insert a section named 'My Section' ///
-   Call wTypeKeys "Add a paragraph before and after a section!<Shift Home>"
-   fInsertSection("My Section")
-   Sleep 1
-   '/// Point cursor before text and press Alt+Return ///
-   Call wTypeKeys "<Home>"
-   Call wTypeKeys "<Mod2 Return>"
-   '/// A paragraph should have been inserted before section ///
-   Call wTypeKeys "Paragraph before a section"
-   '/// Point cursor at end of text in section and press Alt + Return ///
-   Call wTypeKeys "<Down><End>"
-   Call wTypeKeys "<Mod2 Return>"
-   '/// A paragraph should have been inserted after section ///
-   Call wTypeKeys "Paragraph after a section"
-   '/// Check settings ///
-   Call wTypeKeys "<Home><Up>",4
-   For i = 1 to 3
-      Select Case i
-         Case 1
-            Call wTypeKeys "<Shift End>"
-            EditCopy
-            if GetClipBoardtext <> "Paragraph before a section" then
-               warnlog "Problem with paragraph before section"
-            end if
-         Case 2
-            Call wTypeKeys "<Shift Down>"
-            EditCopy
-            if gPlatGroup = "unx" then
-                shouldbe = "Add a paragraph before and after a section!" + CHR$(10)
-            else
-                shouldbe = "Add a paragraph before and after a section!" + CHR$(13) & CHR$(10)
-            end if
-
-            if GetClipBoardtext <> shouldbe then
-               Warnlog "Copied text not correctly exported through the clipboard"   '   "Problem with section"
-            end if
-         Case 3
-            Call wTypeKeys "<Shift End>"
-            EditCopy
-            if GetClipBoardtext <> "Paragraph after a section" then
-               warnlog "Problem with paragraph after section"
-            end if
-      end select
-      Call wTypeKeys "<Home><Down>"
-   next i
-
-   Call hCloseDocument
-
-endcase
diff --git a/testautomation/writer/optional/includes/section/w_section_3.inc b/testautomation/writer/optional/includes/section/w_section_3.inc
deleted file mode 100644
index e23b4c8502d5..000000000000
--- a/testautomation/writer/optional/includes/section/w_section_3.inc
+++ /dev/null
@@ -1,1761 +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 : helge.delfs@oracle.com
-'*
-'* short description : Hide section /Protect section / Display of dialogues
-'*
-'************************************************************************
-'*
-' #1 tBookmarkSection_1
-' #1 tBookmarkSection_2
-' #1 tFootnoteEndnoteSection_1
-' #1 tFootnoteEndnoteSection_2
-' #1 tFootnoteEndnoteSection_3
-' #1 tFootnoteEndnoteSection_4
-' #1 tFootnoteEndnoteSection_5
-' #1 tFootnoteEndnoteSection_6
-' #1 tMultiColumnSection_1
-' #1 tMultiColumnSection_2
-' #1 tMultiColumnSection_3
-' #1 tOperationSection_1
-' #1 tOperationSection_2
-' #1 tOperationSection_3
-' #1 tPasswordProtectSection_1
-' #1 tPasswordProtectSection_2
-' #1 tPasswordProtectSection_3
-' #1 tPasswordProtectSection_4
-' #1 tWrappedSections_1
-' #1 tWrappedSections_2
-' #1 tWrappedSections_3
-' #1 tWrappedSections_4
-' #1 tWrappedSections_5
-' #1 tWrappedSections_6
-' #1 tWrappedSections_7
-'*
-'\***********************************************************************
-
-sub w_section_3
-
-    printLog Chr(13) + "---------   Insert bookmarks into sections   ----------"
-    Call tBookmarkSection_1          'Insert bookmarks into section, jump to
-    Call tBookmarkSection_2          'Insert bookmarks into a protect section, jump to
-    
-    printLog Chr(13) + "---------   Footnotes/Endnotes in sections   ----------"
-    Call tFootnoteEndnoteSection_1       'select Text, that contains foot-/endnotes, insert section
-    Call tFootnoteEndnoteSection_2       'insert footnote into text of an existing section
-    Call tFootnoteEndnoteSection_3       'footnote text must be protected  in a protected section
-    Call tFootnoteEndnoteSection_4       'linked sections, where source section contains footnotes , footnote text must be also protected
-    Call tFootnoteEndnoteSection_5       'footnotes in hidden areas 1 footnote text must also be hidden
-    Call tFootnoteEndnoteSection_6       'ALL footnotes appear before the endnotes
-    
-    printLog Chr(13) + "---------   Multi-column sections   ----------"
-    Call tMultiColumnSection_1       'Create multi-column section directly when inserting via dialogue (TabPage "Columns")
-    Call tMultiColumnSection_2       'Create multi-column section from format/section - options (TabPage "Columns")
-    Call tMultiColumnSection_3       'Fill columns balanced -- Active
-    
-    printLog Chr(13) + "---------   Cut/copy/paste/move/delete sections   ----------"
-    Call tOperationSection_1          'Cut/copy/paste/move/delete sections -- Shortcut
-    Call tOperationSection_2          'Cut/copy/paste/move/delete sections -- function bar
-    Call tOperationSection_3          'when inserting from clipboard the sections have to be named automatically with the correct number
-    
-    printLog Chr(13) + "---------   Password protect sections   ----------"
-    Call tPasswordProtectSection_1          'Format - Section: check "Password protected" PW-Dialogue has to appear two times
-    Call tPasswordProtectSection_2          'reload document, Format-section 1 PW-Dialog has to appear
-    Call tPasswordProtectSection_3          'try wrong password ,Error massage should appear, sections-dialogue not accessible
-    Call tPasswordProtectSection_4          'Remove password protection by unchecking, reload document, Format-sections 'PW-dialogue' should NOT appear
-    
-    printLog Chr(13) + "---------   Wrapping and Wrapped sections   ----------"
-    Call tWrappedSections_1          'select Text inside a section and insert a section
-    Call tWrappedSections_2          'select text across a section an insert a section
-    Call tWrappedSections_3          'wrapped sections are following properties of the wrapping section - write protection
-    Call tWrappedSections_4          'wrapped sections are following properties of the wrapping section - visibility
-    Call tWrappedSections_5          'wrapped sections are following properties of the wrapping section - Foot-/endnote position
-    Call tWrappedSections_6          'The formatting of columns of sectionWrapping and sectionWrapped can be configured separately
-    Call tWrappedSections_7          'The background graphic of sectionWrapping and sectionWrapped can be configured separately
-
-end sub
-
-'***********************************************************************
-
-testcase tBookmarkSection_1
-
-    Dim sectionName as String
-    Dim testText as String
-    Dim bookmarkName as String
-
-    sectionName  = "bookmarkSection"
-    bookmarkName = "myBookmark"
-    testText     = "Hello World"
-    
-    PrintLog "   - Insert bookmarks into a section, jump to"
-    
-    Call hNewDocument
-    
-    PrintLog " insert a section , and input Text"
-    Call wTypeKeys testText
-    Call wTypeKeys "<Shift Home>"
-    fInsertSection(sectionName)
-    
-    PrintLog " insert a bookmark in front of Text"
-    try
-        fInsertBookmark(bookmarkName)
-    catch
-        Warnlog "   Insert a bookmark into a section failed"
-    endcatch
-
-    printlog "set the focus end of Text, make sure no text is marked."
-    Call wTypeKeys "<End><SPACE><BACKSPACE>"
-
-    PrintLog " active Navigator, double click the bookmark which be inserted,"
-    PrintLog " + then the focus should be in front of $testText"
-    Call wNavigatorAuswahl(6,1, true)
-    Auswahlliste.TypeKeys "<return>"
-    sleep(1)
-'    Call wTypeKeys "<Shift End>"  'Outcommented since the bookmark also selects the text. Just like it was when it got bookmarked.
-'    sleep(1)
-    EditCopy
-    sleep(1)
-    if GetClipboardText <> testText then Warnlog "The focus is NOT in front of " +testText
-    
-    printlog "Close Navigator before close the document"
-    fCloseNavigator
-    
-    Call hCloseDocument
-endcase
-
-'--------------------------------------------------
-
-testcase tBookmarkSection_2
-
-    Dim sectionName as String
-    Dim testText as String
-    Dim bookmarkName as String
-
-    sectionName  = "bookmarkSection"
-    bookmarkName = "myBookmark"
-    testText     = "Hello World"
-
-    PrintLog "   - Jump to for bookmarks in a protect section"
-
-    Call hNewDocument
-    sleep(2)
-    PrintLog " Open options and check 'Direct-Cursor' in options"
-    Call fCheckDirectCursor
-    sleep(2)
-    PrintLog " insert a bookmark in front of Text"
-    Call fInsertBookmark(bookmarkName)
-    sleep(2)
-    PrintLog " insert Text"
-    Call wTypeKeys testText
-    Call wTypeKeys "<Shift Home>"
-    sleep(1)
-    PrintLog " insert a section with protect option"
-    InsertSection
-    sleep(2)
-    Kontext
-    Active.Setpage TabBereiche
-    Kontext "TabBereiche"
-    Bereichsliste.Settext sectionName
-    Geschuetzt.Check
-    TabBereiche.OK
-    sleep(2)
-    
-    PrintLog " set the focus end of Text"
-    Call wTypeKeys "<End>"
-    sleep(2)
-    PrintLog " active Navigator, double click the bookmark which be inserted,"
-    PrintLog " + then the focus should be in front of Text"
-    Call wNavigatorAuswahl(6,1, true)
-    sleep(2)
-    Auswahlliste.TypeKeys "<down><return>"
-    sleep(2)
-    Call wTypeKeys "<Shift End>"
-    sleep(1)
-    EditCopy
-    sleep(2)
-    if GetClipboardText <> testText then Warnlog "The focus is NOT in front of " & testText
-    printlog "Close Navigator before close the document"
-    Call fCloseNavigator
-    sleep(1)
-    Call hCloseDocument
-endcase
-
-'----------------------------------------------------------
-
-testcase tFootnoteEndnoteSection_1
-
-    Dim sectionName as String
-    Dim testText as String
-    Dim preMessage as String
-    
-    sectionName  = "FootnoteEndnoteSection"
-    testText     = "This is footnotes/endnotes test"
-
-    PrintLog "   - Insert a section that contains foot-/endnotes"
-
-    Call hNewDocument
-
-    PrintLog " insert footnote in front of Text"
-    fInsertFootnote("automatic")
-    Call wTypeKeys "<PageUp>"
-
-    PrintLog " insert some test words"
-    Call wTypeKeys testText
-
-    PrintLog " insert endnote at end of Text"
-    fInsertEndnote("automatic")
-    Call wTypeKeys "<PageUp>"
-
-    EditSelectAll
-    sleep(1)
-    EditCopy
-    sleep(1)
-    preMessage = GetClipBoardtext
-
-    PrintLog " insert a section which include Text, foot-/endnotes"
-    try
-       fInsertSection(sectionName)
-       EditSelectAll
-       sleep(1)
-       EditCopy
-       sleep(1)
-       if GetClipboardText <> preMessage then Warnlog "There is something changed aftering inserting the section which include Text, foot-/endnotes"
-    catch
-       Warnlog "   Could NOT insert a section which include Text, foot-/endnotes"
-    endcatch
-    
-    Call hCloseDocument
-endcase
-
-'----------------------------------------------------------
-
-testcase tFootnoteEndnoteSection_2
-
-    Dim sectionName as String
-    Dim testText as String
-    Dim preMessage as String
-
-    sectionName  = "FootnoteEndnoteSection"
-    testText     = "This is footnotes/endnotes test"
-
-    PrintLog "   - insert footnote/endnote into text of an existing section "
-
-    Call hNewDocument
-
-    PrintLog " insert some test words"
-    Call wTypeKeys testText
-    Call wTypeKeys "<Shift Home>"
-
-    PrintLog " insert a section which include Text"
-    fInsertSection(sectionName)
-
-    Call wTypeKeys "<Home>"
-
-    PrintLog " insert footnote into the section"
-    try
-       fInsertFootnote("automatic")
-    catch
-       Warnlog "   Could NOT insert a footnote into the section"
-    endcatch
-
-    Call wTypeKeys "<PageUp><End>"
-
-    PrintLog " insert endnote into the section"
-    try
-       fInsertEndnote("automatic")
-    catch
-       Warnlog "   Could NOT insert a endnote into the section"
-    endcatch
-
-    Call hCloseDocument
-endcase
-
-'----------------------------------------------------------
-
-testcase tFootnoteEndnoteSection_3
-
-    Dim sectionName as String
-    Dim preMessage as String
-
-    sectionName  = "FootnoteEndnoteSection"
-
-    PrintLog "   - footnote text must be protected  in a protected section"
-
-    Call hNewDocument
-
-    PrintLog " Open options and check 'Direct-Cursor' in options"
-    fCheckDirectCursor
-
-    PrintLog " insert a footnote"
-    fInsertFootnote("automatic")
-    Call wTypeKeys "<PageUp>"
-
-    PrintLog " insert a endnote"
-    fInsertEndnote("automatic")
-    Call wTypeKeys "<PageUp>"
-
-    EditSelectAll
-    sleep(1)
-    EditCopy
-    sleep(1)
-
-    preMessage = GetClipBoardtext
-
-    PrintLog " insert a section with protect option"
-    InsertSection
-    sleep 1
-    Kontext
-    Active.Setpage TabBereiche
-    Kontext "TabBereiche"
-    Bereichsliste.Settext sectionName
-    Geschuetzt.Check
-    TabBereiche.OK
-    sleep 2
-
-    EditSelectAll
-    sleep(1)
-    EditCopy
-    sleep(1)
-
-    if GetClipBoardtext = preMessage then
-        Call wTypeKeys "<Space>"
-        Kontext "Active"
-        if Active.Exists then
-            Active.ok
-        else
-            Warnlog "-  No warning when trying to write in protected area!"
-        end if
-    else
-        Warnlog "Testtool couldn't find the protected area!"
-    end if
-
-    Call hCloseDocument
-endcase
-
-'----------------------------------------------------------
-
-testcase tFootnoteEndnoteSection_4
-
-    Dim sectionName as String
-    Dim sourceSectionName as String
-    Dim testText as String
-    Dim preMessage as String
-
-    sectionName       = "FootnoteEndnoteSection"
-    sourceSectionName = "NormalSection"
-    testText          = "The test is in source section"
-
-    if Dir (gOfficePath + "user\work\tFootnoteEndnoteSection_4.odt") <> "" then kill (gOfficePath + "user\work\tFootnoteEndnoteSection_4.odt")
-
-        PrintLog "   - linked sections, where source section contains footnotes , footnote text must be also protected "
-
-    PrintLog " insert a footnote in a section, then save the file"
-    Call hNewDocument
-
-    fInsertFootnote("automatic")
-    Call wTypeKeys "<PageUp>"
-
-    Call wTypeKeys testText
-
-    fInsertEndnote("automatic")
-    Call wTypeKeys "<PageUp>"
-
-    Call wTypeKeys "<Shift Home>"
-    fInsertSection(sourceSectionName)
-
-    EditSelectAll
-    sleep(1)
-    EditCopy
-    sleep(1)
-    preMessage = GetClipBoardtext
-
-    Call hFileSaveAsKill (gOfficePath + "user\work\tFootnoteEndnoteSection_4.odt")
-    Call hCloseDocument
-
-    Call hNewDocument
-
-    PrintLog " Open options and check 'Direct-Cursor' in options"
-    fCheckDirectCursor
-
-    PrintLog " insert a section with link option"
-    InsertSection
-    sleep 1
-    Kontext
-    Active.Setpage TabBereiche
-    Kontext "TabBereiche"
-    Bereichsliste.Settext sectionName
-    Verknuepfung.Check
-
-    DateiVerknuepfung.Settext ConvertPath(gOfficePath + "user\work\tFootnoteEndnoteSection_4.odt")
-    TabBereiche.OK
-    sleep 2
-
-    EditSelectAll
-    sleep(1)
-    EditCopy
-    sleep(1)
-
-    PrintLog " the footnote should be protected"
-    if GetClipBoardtext = preMessage then
-        Call wTypeKeys "<Space>"
-        Kontext "Active"
-        if Active.Exists then
-            Active.ok
-        else
-            Warnlog "-  No warning when trying to write in protected area!"
-        end if
-    else
-        Warnlog "Testtool couldn't find the protected area!"
-    end if
-
-    Call hCloseDocument
-endcase
-
-'----------------------------------------------------------
-
-testcase tFootnoteEndnoteSection_5
-    Dim sectionName as String
-    sectionName  = "FootnoteEndnoteSection"
-    printlog "   - Footnotes in hidden areas 1 footnote text must also be hidden"
-    Call hNewDocument
-
-    PrintLog " Insert a footnote"
-    fInsertFootnote("automatic")
-    Call wTypeKeys "<PAGEUP>"
-    PrintLog " Insert a endnote"
-    fInsertEndnote("automatic")
-    Call wTypeKeys "<PAGEUP>"
-    Call wTypeKeys "<HOME>"
-    Call wTypeKeys "<RETURN>"
-    Call wTypeKeys "<SHIFT END>"
-    PrintLog " Insert a section with hide option"
-    InsertSection
-    sleep(1)
-    Kontext
-    Active.Setpage TabBereiche
-    Kontext "TabBereiche"
-        Bereichsliste.Settext sectionName
-        Ausblenden.Check
-    TabBereiche.OK
-    sleep(1)
-    try
-        EditSelectAll
-        sleep(1)
-        EditCopy
-        sleep(1)
-        warnlog "'Edit / Copy' is usable but if there is nothing in the document (hidden section in footnote) it should be disabled!"
-    catch
-        printlog "Clipboard should be and is empty."
-    endcatch
-
-    Call hCloseDocument
-endcase
-
-'----------------------------------------------------------
-
-testcase tFootnoteEndnoteSection_6
-
-    Dim sectionName as String
-    
-    sectionName  = "FootnoteEndnoteSection"
-    
-    PrintLog "   - ALL footnotes appear before the endnotes "
-    
-    Call hNewDocument
-    
-    fInsertSection(sectionName)
-    Call wTypeKeys "<Up>"
-    
-    PrintLog " insert the first footnote"
-    fInsertFootnote("automatic")
-    Call wNavigatorAuswahl(7,1, true)
-    if Seitennummer.GetText <> "1" then warnlog "The first footnote should be in the first page"
-    fCloseNavigator
-    Call wTypeKeys "<PageUp>"
-    
-    PrintLog " insert a endnote"
-    fInsertEndnote("automatic")
-    Call wNavigatorAuswahl(7,1, true)
-    if Seitennummer.GetText <> "2" then warnlog "The first endnote should be in the second page"
-    fCloseNavigator
-    Call wTypeKeys "<PageUp>"
-    
-    PrintLog " insert the second footnote"
-    fInsertFootnote("automatic")
-    Call wNavigatorAuswahl(7,1, true)
-    if Seitennummer.GetText <> "1" then warnlog "The second footnote should be in the first page"
-    fCloseNavigator
-    
-    Call hCloseDocument
-endcase
-
-'----------------------------------------------------------
-
-testcase tMultiColumnSection_1
-
-    Dim columnNumber as String
-
-    columnNumber  =  "3"
-
-    PrintLog "   - Create multi-column section directly when inserting via dialogue (TabPage 'Columns')"
-
-    Call hNewDocument
-
-    PrintLog " insert a section(insert/section with TabPage 'Columns',"
-    PrintLog " + set column to $columnNumber"
-    InsertSection
-    sleep 1
-    
-    Kontext
-    Active.Setpage TabSpalten
-    Kontext "TabSpalten"
-    Anzahl.Settext columnNumber
-    TabSpalten.OK
-    sleep 1
-    
-    Kontext
-    FormatSections
-    Kontext "BereicheBearbeiten"
-    Optionen.Click
-    
-    Kontext
-    Active.Setpage TabSpalten
-    Kontext "TabSpalten"
-    
-    'Check volumn number
-    if Anzahl.Gettext <> columnNumber then  Warnlog "The volumn we hope is " +columnNumber +" but get " + Anzahl.Gettext
-    
-    'Check volumn width
-    if Spaltenbreite1.Gettext <> Spaltenbreite2.Gettext OR Spaltenbreite1.Gettext <> Spaltenbreite3.Gettext then Warnlog "column width is NOT Balance"
-    
-    TabSpalten.Cancel
-    
-    Kontext
-    Kontext "BereicheBearbeiten"
-    BereicheBearbeiten.Cancel
-    
-    Call hCloseDocument
-
-endcase
-
-'----------------------------------------------------------
-
-testcase tMultiColumnSection_2
-
-    Dim columnNumber , sectionName as String
-
-    sectionName   =  "MultiColumnSection"
-    columnNumber  =  "3"
-
-    PrintLog "   - Create multi-column section from format/section - options (TabPage Columns)"
-
-    Call hNewDocument
-
-    PrintLog " insert a section with only 1 culumn, that means a normal section"
-    fInsertSection(sectionName)
-
-    PrintLog " change the volumn number (format/section) with"
-    PrintLog " + TabPage 'Columns', set column to $columnNumber"
-    Kontext
-    FormatSections
-    Kontext "BereicheBearbeiten"
-    Optionen.Click
-
-    Kontext
-    Active.Setpage TabSpalten
-    Kontext "TabSpalten"
-
-    'Set volumn number
-    Anzahl.Settext columnNumber
-    TabSpalten.OK
-
-    Kontext
-    Kontext "BereicheBearbeiten"
-    BereicheBearbeiten.OK
-
-    PrintLog " Check the volumn number"
-    Kontext
-    FormatSections
-    Kontext "BereicheBearbeiten"
-    Optionen.Click
-
-    Kontext
-    Active.Setpage TabSpalten
-    Kontext "TabSpalten"
-
-    'Check volumn number
-    if Anzahl.Gettext <> columnNumber then  Warnlog "The volumn we hope is " +columnNumber +" but get " + Anzahl.Gettext
-
-    TabSpalten.Cancel
-
-    Kontext
-    Kontext "BereicheBearbeiten"
-    BereicheBearbeiten.Cancel
-
-    Call hCloseDocument
-endcase
-
-'----------------------------------------------------------
-
-testcase tMultiColumnSection_3
-
-    Dim columnNumber as String
-    Dim testText1 as String
-    Dim testText2 as String
-    Dim i as Integer
-
-    columnNumber  =  "2"
-    testText1     =  "0123456789abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUV"
-    testText2     =  "-"
-
-    PrintLog " fill columns balanced -- Active"
-
-    PrintLog " when text inserted into a section, the columns have"
-    PrintLog " + to be filled equally"
-
-    PrintLog "   - fill columns balanced -- Active"
-
-    Call hNewDocument
-
-    PrintLog " input some text , less 1 line"
-    Call wTypeKeys testText1
-    EditSelectAll
-
-    PrintLog " insert a section ,set column to $columnNumber"
-    InsertSection
-    sleep 1
-
-    Kontext
-    Active.Setpage TabSpalten
-    Kontext "TabSpalten"
-    Anzahl.Settext columnNumber
-    TabSpalten.OK
-    sleep 1
-
-    Call wTypeKeys "<Escape>"
-
-    PrintLog " input '-' in the end of the text check if"
-    PrintLog " + the '-' will appare to second colum"
-    For i = 0 to 100
-        Call wTypeKeys testText2
-        Call wTypeKeys "<Shift Home>"
-        sleep(1)
-        EditCopy
-        sleep(1)
-        if GetClipboardText = testText2 then goto GoON
-        Call wTypeKeys "<Escape>"
-        Call wTypeKeys "<End>"
-    next i
-    Warnlog "We can't get " +hopeResult2 +" in second column"
-    
-GoON:
-    Call hCloseDocument
-endcase
-
-'----------------------------------------------------------
-
-testcase tOperationSection_1
-    Dim testText1 as String
-    Dim testText2 as String
-    Dim testText3 as String
-    Dim sectionName as String
-
-    sectionName   =  "OperationSection"
-    testText1     =  "The operation CUT  for Section test"
-    testText2     =  "The operation COPY for Section test"
-    testText3     =  "The operation DELETE for Section test"
-
-    PrintLog "   - Cut/copy/paste/move/delete sections - Via key shortcuts"
-
-    Call hNewDocument
-
-    PrintLog " insert a section"
-    Call wTypeKeys "<Return>"
-    fInsertSection(sectionName)
-    Call wTypeKeys "<Up>"
-    Call wTypeKeys testText1
-    Call wTypeKeys "<Up>"
-    EditSelectAll
-
-    PrintLog " Cut section"
-    Call wTypeKeys "<Mod1 x>"
-
-    try
-        FormatSections
-        Kontext "BereicheBearbeiten"
-        BereicheBearbeiten.Cancel
-        Warnlog "Cut section is failed!"
-    catch
-   endcatch
-
-    PrintLog " Paste section"
-    Call wTypeKeys "<Mod1 v>"
-
-    'start up Navigator
-    Call wNavigatorAuswahl(7,1, true)
-    PrintLog " 1)check section name"
-    if Auswahlliste.GetSelText = sectionName then
-        PrintLog " 2)check the content in section"
-        Call wTypeKeys "<home><Shift End>"
-        sleep(1)
-        EditCopy
-        sleep(1)
-        if GetClipboardText <> testText1 then  Warnlog "The content is the section is NOT right in cut/paste section!"
-    else
-        warnlog "The Section Name is wrong, should be " + sectionName +" but get " +Auswahlliste.GetSelText
-    end if
-
-    'Close Navigator before close the document
-    Kontext
-    Call fCloseNavigator
-
-    Call hCloseDocument
-
-    Call hNewDocument
-
-    PrintLog " insert a section"
-    Call wTypeKeys "<Return>"
-    Call fInsertSection(sectionName)
-    Call wTypeKeys "<Up>"
-    Call wTypeKeys testText2
-    Call wTypeKeys "<Up>"
-    EditSelectAll
-
-    PrintLog " Copy section"
-    Call wTypeKeys "<Mod1 c>"
-
-    Call hCloseDocument
-
-    Call hNewDocument
-
-    'Paste section
-    Call wTypeKeys "<Mod1 v>"
-
-    'start up Navigator
-    Call wNavigatorAuswahl(7,1, true)
-
-    PrintLog " 1)check section name"
-    if Auswahlliste.GetSelText = sectionName then
-        PrintLog " 2)check the content in section"
-        sleep 1
-        Call wTypeKeys "<home><Shift End>"
-        sleep(1)
-        EditCopy
-        sleep(1)
-        if GetClipboardText <> testText2 then  Warnlog "The content is the section is NOT right in copy/paste section!"
-    else
-        warnlog "The Section Name is wrong, should be " + sectionName +" but get " +Auswahlliste.GetSelText
-    end if
-
-    printlog "'Close Navigator before close the document"
-    Call fCloseNavigator
-
-    Call hCloseDocument
-
-    Call hNewDocument
-
-    PrintLog " insert a section"
-    Call wTypeKeys "<Return>"
-    Call fInsertSection(sectionName)
-    Call wTypeKeys "<Up>"
-    Call wTypeKeys testText3
-    Call wTypeKeys "<Up>"
-    EditSelectAll
-
-    PrintLog " delete the section"
-    Call wTypeKeys "<Delete>"
-
-    PrintLog " check if section exists or not"
-    try
-        FormatSections
-        Kontext "BereicheBearbeiten"
-        BereicheBearbeiten.Cancel
-        Warnlog "Delete section is failed!"
-    catch
-    endcatch
-
-    Call hCloseDocument
-endcase
-
-'----------------------------------------------------------
-
-testcase tOperationSection_2
-
-    Dim testText1 as String
-    Dim testText2 as String
-    Dim testText3 as String
-    Dim sectionName as String
-
-    sectionName   =  "OperationSection"
-    testText1     =  "The operation CUT  for Section test"
-    testText2     =  "The operation COPY for Section test"
-    testText3     =  "The operation DELETE for Section test"
-
-    PrintLog "   - Cut/copy/paste/move/delete sections - Via function bar"
-
-    Call hNewDocument
-
-    PrintLog " insert a section"
-    Call wTypeKeys "<Return>"
-    Call fInsertSection(sectionName)
-    Call wTypeKeys "<Up>"
-    Call wTypeKeys testText1
-    Call wTypeKeys "<Up>"
-    EditSelectAll
-    sleep 1
-    PrintLog " Cut section"
-    Kontext "Standardbar"
-    Ausschneiden.Click
-
-    try
-        FormatSections
-        Kontext "BereicheBearbeiten"
-        BereicheBearbeiten.Cancel
-        Warnlog "Cut section is failed!"
-    catch
-    endcatch
-
-    PrintLog " Paste section"
-    Kontext "Standardbar"
-    Einfuegen.Click
-
-    'start up Navigator
-    Call wNavigatorAuswahl(7,1, true)
-
-    PrintLog " 1)check section name"
-    if Auswahlliste.GetSelText = sectionName then
-        PrintLog " 2)check the content in section"
-        Call wTypeKeys "<home><Shift End>"
-        sleep(1)
-        EditCopy
-        sleep(1)
-        if GetClipboardText <> testText1 then  Warnlog "The content is the section is NOT right in cut/paste section!"
-    else
-        warnlog "The Section Name is wrong, should be " + sectionName +" but get " +Auswahlliste.GetSelText
-    end if
-
-    printlog "Close Navigator before close the document"
-    Call fCloseNavigator
-    Call hCloseDocument
-    Call hNewDocument
-
-    PrintLog " insert a section"
-    Call wTypeKeys "<Return>"
-    Call fInsertSection(sectionName)
-    Call wTypeKeys "<Up>"
-    Call wTypeKeys testText2
-    Call wTypeKeys "<Up>"
-    EditSelectAll
-    sleep 1
-
-    PrintLog " Copy section"
-    Kontext "Standardbar"
-    Kopieren.Click
-
-    Call hCloseDocument
-
-    Call hNewDocument
-
-    PrintLog " Paste section"
-    Kontext "Standardbar"
-    Einfuegen.Click
-
-    'start up Navigator
-    Call wNavigatorAuswahl(7,1, true)
-
-    PrintLog " 1)check section name"
-    if Auswahlliste.GetSelText = sectionName then
-        PrintLog " 2)check the content in section"
-        sleep 1
-        Call wTypeKeys "<home><Shift End>"
-        sleep(1)
-        EditCopy
-        sleep(1)
-        if GetClipboardText <> testText2 then  Warnlog "The content is the section is NOT right in copy/paste section!"
-    else
-        warnlog "The Section Name is wrong, should be " + sectionName +" but get " +Auswahlliste.GetSelText
-    end if
-
-    Call fCloseNavigator
-    Call hCloseDocument
-endcase
-
-'----------------------------------------------------------
-
-testcase tOperationSection_3
-
-    Dim sectionName  as String
-    
-    PrintLog " when inserting from clipboard the sections have to be named automatically"
-    PrintLog " + with the correct number, means:"
-    PrintLog " + when copying 1 section inside a document, the new section must be"
-    PrintLog " + named 'Section2' automatically, if the copied section is named Section1"
-    
-    PrintLog "   - when inserting from clipboard the sections have to be named automatically with the correct number"
-    
-    sectionName = gDefaultSectionName + 2
-    
-    PrintLog " New document"
-    Call hNewDocument
-    Call wTypeKeys "<Return>"
-    
-    PrintLog " Insert a section with default name"
-    InsertSection
-    sleep 1
-    Kontext
-    Kontext "TabBereiche"
-    TabBereiche.OK
-    sleep 1
-    
-    PrintLog " Copy and Paste the section into the document"
-    EditSelectAll
-    sleep(1)
-    EditCopy
-    sleep(1)
-    Call wTypeKeys "<Escape>"
-    sleep(1)
-    EditPaste
-    
-    Kontext
-    FormatSections
-    sleep(1)
-    Kontext "BereicheBearbeiten"
-    Bereich.TypeKeys "<Up>",2
-    Bereich.TypeKeys "<Down>"
-    
-    if  BereichsName.GetText <> sectionName then warnlog "We hope the section name is " & sectionName & " but get " & BereichsName.GetText
-    BereicheBearbeiten.Cancel
-    
-    PrintLog " Close document"
-    Call hCloseDocument
-endcase
-
-'----------------------------------------------------------
-
-testcase tPasswordProtectSection_1
-
-    Dim Password as String
-    Dim newPassword as String
-
-    Password    = "protectedarea"
-    newPassword = "newProtectedArea"
-
-    PrintLog "   - Format - Section: check 'Password protected' 1 PW-Dialogue has to appear two times "
-
-    Call hNewDocument
-
-    PrintLog " Insert a section with password"
-    InsertSection
-    sleep 1
-    Kontext
-    Active.Setpage TabBereiche
-    Kontext "TabBereiche"
-    Geschuetzt.Check
-    sleep 1
-    Passwort.Check
-    
-    Kontext "BereicheSchuetzen"
-     PasswortName.Settext Password
-     PasswortBestaetigen.Settext Password
-    BereicheSchuetzen.Ok
-    
-    Kontext
-    Kontext "TabBereiche"
-    TabBereiche.OK
-    
-    FormatSections
-    Kontext "BereicheBearbeiten"
-    
-    EnterPasswort.Click
-    
-    Kontext
-    Kontext "BereicheSchuetzen"
-    
-    PrintLog " PassWord-Dialogue should  appear first time"
-    if BereicheSchuetzen.NotExists then
-        Warnlog "Unable to enter passwort for section, because dialog is not up!"
-    else
-        PasswortName.Settext Password
-        BereicheSchuetzen.Ok
-        sleep 1
-
-       PrintLog " + PW-Dialogue should  appear second time"
-        if BereicheSchuetzen.NotExists then
-             Warnlog "Unable to enter passwort for section, because dialog is not up!"
-        else
-             PasswortName.Settext newPassword
-             PasswortBestaetigen.Settext newPassword
-             BereicheSchuetzen.Ok
-    
-             Kontext
-             Kontext "BereicheBearbeiten"
-             PrintLog " + 'Password protected' checkbox must be checked after inputing new password"
-             if Passwort.IsChecked <> TRUE then Warnlog "The 'password protected' checkbox should be checked"
-        end if
-    end if
-
-    Kontext
-    Kontext "BereicheBearbeiten"
-    BereicheBearbeiten.OK
-
-    Call hCloseDocument
-endcase
-
-'----------------------------------------------------------
-
-testcase tPasswordProtectSection_2
-
-    Dim Password as String
-    
-    Password = "protectedarea"
-    
-    if Dir (gOfficePath + "user\work\tPasswordProtectSection_2.odt") <> "" then
-        kill (gOfficePath + "user\work\tPasswordProtectSection_2.odt")
-    end if
-    PrintLog "   - reload document, Format-section 1 PW-Dialog has to appear "
-    
-    Call hNewDocument
-    
-    PrintLog " Insert a section with password , and save the file"
-    InsertSection
-    sleep 1
-    Kontext
-    Active.Setpage TabBereiche
-    Kontext "TabBereiche"
-    Geschuetzt.Check
-    sleep 1
-    Passwort.Check
-    
-    Kontext "BereicheSchuetzen"
-    PasswortName.Settext Password
-    PasswortBestaetigen.Settext Password
-    BereicheSchuetzen.Ok
-    
-    Kontext "TabBereiche"
-    TabBereiche.OK
-    
-    Call hFileSaveAsKill (gOfficePath + "user\work\tPasswordProtectSection_2.odt")
-    
-    Call hCloseDocument
-    
-    PrintLog " Reload the file"
-    hFileOpen( gOfficepath + "user\work\tPasswordProtectSection_2.odt")
-    
-    FormatSections
-    Kontext "BereicheBearbeiten"
-    
-    Optionen.Click
-    
-    Kontext "BereicheSchuetzen"
-    PrintLog " PassWord-Dialogue should appear when clicking 'option' button"
-    if BereicheSchuetzen.NotExists then
-        Warnlog "Unable to enter passwort for section, because dialog is not up!"
-    else
-        BereicheSchuetzen.Cancel
-    end if
-
-    Kontext "BereicheBearbeiten"
-    BereicheBearbeiten.Cancel
-
-    Call hCloseDocument
-endcase
-
-'----------------------------------------------------------
-
-testcase tPasswordProtectSection_3
-
-    Dim Password as String
-    Dim wrongPassword as String
-    
-    Password       = "protectedarea"
-    wrongPassword  = "wrongPW"
-    
-    PrintLog "   - Input wrong password ,Error massage should appear, sections-dialogue not accessible "
-    
-    Call hNewDocument
-    
-    PrintLog " Insert a section with password"
-    InsertSection
-    sleep 1
-    Kontext
-    Active.Setpage TabBereiche
-    Kontext "TabBereiche"
-    Geschuetzt.Check
-    sleep 1
-    Passwort.Check
-    
-    Kontext "BereicheSchuetzen"
-     PasswortName.Settext Password
-     PasswortBestaetigen.Settext Password
-    BereicheSchuetzen.Ok
-    
-    Kontext "TabBereiche"
-    TabBereiche.OK
-    
-    FormatSections
-    Kontext "BereicheBearbeiten"
-    
-    EnterPasswort.Click
-    
-    Kontext "BereicheSchuetzen"
-    
-    PasswortName.Settext wrongPassword
-    
-    BereicheSchuetzen.Ok
-    sleep 1
-    
-    Kontext
-    Kontext "Active"
-    if Active.Exists then
-        if Active.GetRT <> 304 then  warnlog "Error message box is NOT up! The active box is " +Active.GetRT
-        Active.OK
-    else
-        Warnlog "Error message box is NOT up!"
-    end if
-    
-    Kontext
-    Kontext "BereicheBearbeiten"
-    BereicheBearbeiten.Cancel
-    Call hCloseDocument
-endcase
-
-'----------------------------------------------------------
-
-testcase tPasswordProtectSection_4
-
-    Dim Password as String
-    
-    Password = "protectedarea"
-    
-    if Dir (gOfficePath + "user\work\tPasswordProtectSection_4.odt") <> "" then
-        kill (gOfficePath + "user\work\tPasswordProtectSection_4.odt")
-    end if
-    
-    PrintLog "   - Remove password protection by unchecking, reload document, Format-sections 'PW-dialogue' may not appear"
-    
-    Call hNewDocument
-    
-    PrintLog " Insert a section with password"
-    InsertSection
-    sleep 1
-    Kontext
-    Active.Setpage TabBereiche
-    Kontext "TabBereiche"
-    Geschuetzt.Check
-    sleep 1
-    Passwort.Check
-    
-    Kontext "BereicheSchuetzen"
-    PasswortName.Settext Password
-    PasswortBestaetigen.Settext Password
-    BereicheSchuetzen.Ok
-    
-    Kontext "TabBereiche"
-    TabBereiche.OK
-    
-    PrintLog " Remove the password protection and save the file"
-    FormatSections
-    Kontext "BereicheBearbeiten"
-    
-    Passwort.Uncheck
-    Kontext "BereicheSchuetzen"    
-    PrintLog " PassWord-Dialogue should appear when clicking 'option' button"
-    if BereicheSchuetzen.NotExists then
-        Warnlog "Unable to uncheck password for section, because dialog is not up!"
-    else
-        PasswortName.Settext Password
-        BereicheSchuetzen.OK
-    end if
-    
-    Kontext "BereicheBearbeiten"
-    BereicheBearbeiten.OK
-    
-    Call hFileSaveAsKill (gOfficePath + "user\work\tPasswordProtectSection_4.odt")
-    
-    Call hCloseDocument
-    
-    PrintLog " Reload the file"
-    hFileOpen( gOfficepath + "user\work\tPasswordProtectSection_4.odt")
-    
-    PrintLog " In format/section, PW-Dialogue should appear when clicking 'option' button"
-    FormatSections
-    Kontext "BereicheBearbeiten"
-    
-    Optionen.Click
-    
-    Kontext "BereicheSchuetzen"
-    
-    if BereicheSchuetzen.Exists then
-        Warnlog "Unable to enter passwort for section, because dialog is not up!"
-        PasswortName.Settext Password
-        BereicheSchuetzen.OK
-    end if
-    
-    Kontext
-    Active.Setpage TabSpalten
-    Kontext "TabSpalten"
-    TabSpalten.Cancel
-    
-    Kontext "BereicheBearbeiten"
-    BereicheBearbeiten.Cancel
-    
-    Call hCloseDocument
-
-endcase
-
-
-'****************************************************************************
-'** After the Wrapping section and Wrapped section are generated, the display
-'** is like
-'**
-'** This is                          <----|--------------------
-'** wrapped   <---- Wrapped section  <----| Wrapping section
-'** sections test                    <----|--------------------
-'*****************************************************************************
-testcase tWrappedSections_1
-
-    Dim wrappingSection as String
-    Dim wrappedSection as String
-    Dim testText as String
-
-    wrappingSection =  "wrappingSection"
-    wrappedSection  =  "wrappedSection"
-    testText        =  "This is wrapped section test"
-
-    PrintLog "   - select Text inside a section and insert a section "
-
-    Call hNewDocument
-
-    PrintLog " insert wrapping section"
-    Call wTypeKeys testText
-    EditSelectAll
-    fInsertSection(wrappingSection)
-
-    Call wTypeKeys "<Home>"
-    Call wTypeKeys "<Mod1 Right>",2
-    Call wTypeKeys "<Mod1 Shift Right>"
-
-    try
-        PrintLog " insert wrapped section"
-        fInsertSection(wrappedSection)
-
-        Kontext
-        FormatSections
-        Kontext "BereicheBearbeiten"
-        Bereich.TypeKeys "<Up>"
-
-        if  BereichsName.GetText <> wrappingSection then Warnlog "The wrapping section names is wrong : " +BereichsName.GetText
-        Bereich.TypeKeys "<Down>"
-        if  BereichsName.GetText <> wrappedSection then Warnlog "The wrapped section names is wrong : " +BereichsName.GetText
-
-        BereicheBearbeiten.Cancel
-    catch
-        Warnlog "Can't generate wrapped section"
-    endcatch
-
-    Call hCloseDocument
-
-endcase
-
-'----------------------------------------------------------
-
-testcase tWrappedSections_2
-
-    Dim wrappingSection as String
-    Dim wrappedSection as String
-    Dim testTextInFirstline as String
-    Dim testTextInSecondline as String
-
-    wrappingSection      =  "wrappingSection"
-    wrappedSection       =  "wrappedSection"
-    testTextInFirstline  =  "This is wrapped section test in first line"
-    testTextInSecondline =  "This is wrapped section test in second line"
-
-    printlog "   - select text across a section an insert a section "
-    Call hNewDocument
-
-    PrintLog " Insert wrapped section"
-    Call wTypeKeys "<Return>"
-    Call wTypeKeys(testTextInFirstline)
-    Call wTypeKeys "<Return>"
-    Call wTypeKeys(testTextInSecondline)
-    Call wTypeKeys "<MOD1 HOME><SHIFT END>"
-    Call fInsertSection(wrappedSection)
-
-    EditSelectAll
-    try
-        PrintLog " Insert wrapping section"
-        Call fInsertSection(wrappingSection)
-        Kontext
-        FormatSections
-        Kontext "BereicheBearbeiten"
-        Bereich.TypeKeys "<UP>"
-        if BereichsName.GetText <> wrappingSection then
-            QAErrorLog "#102552# - The wrapping section names is wrong."
-        end if
-        Bereich.TypeKeys "<Down>"
-        if BereichsName.GetText <> wrappedSection then
-            QAErrorLog "#102552# - The wrapped section names is wrong."
-        end if
-        BereicheBearbeiten.Cancel
-     catch
-         Warnlog "Can't generate wrapping section"
-     endcatch
-
-    Call hCloseDocument
-endcase
-
-'----------------------------------------------------------
-
-testcase tWrappedSections_3
-
-    Dim wrappingSection as String
-    Dim wrappedSection as String
-    Dim testText as String
-    Dim contentInWrappedSection as String
-    
-    wrappingSection =  "wrappingSection"
-    wrappedSection  =  "wrappedSection"
-    testText        =  "This is wrapped section test"
-    contentInWrappedSection = "wrapped "
-    
-    PrintLog "   - wrapped sections are following properties of the wrapping section - write protection"
-    
-    Call hNewDocument
-    
-    PrintLog " Open options and check 'Direct-Cursor' in options"
-    fCheckDirectCursor
-    
-    PrintLog " insert wrapping section"
-    Call wTypeKeys testText
-    EditSelectAll
-    fInsertSection(wrappingSection)
-    
-    Call wTypeKeys "<Home>"
-    Call wTypeKeys "<Mod1 Right>",2
-    Call wTypeKeys "<Mod1 Shift Right>"
-    
-    PrintLog " insert wrapped section"
-    fInsertSection(wrappedSection)
-    
-    PrintLog " format/section, choose protect in wrappingSection"
-    Kontext
-    FormatSections
-    Kontext "BereicheBearbeiten"
-    Bereich.TypeKeys "<Up>"
-    Geschuetzt.Check
-    BereicheBearbeiten.OK
-    
-    Call wTypeKeys "<Home><Shift End>"
-    sleep(1)
-    EditCopy
-    sleep(1)
-    if GetClipBoardtext = contentInWrappedSection then
-        Call wTypeKeys "<Space>"
-        Kontext "Active"
-        if Active.Exists then
-            Active.ok
-        else
-            Warnlog "-  No warning when trying to write in protected area!"
-        end if
-    else
-        Warnlog "The focus is NOT in the wrapped section!"
-    end if
-    Call hCloseDocument
-endcase
-
-'----------------------------------------------------------
-
-testcase tWrappedSections_4
-
-    Dim wrappingSection as String
-    Dim wrappedSection as String
-    Dim testText as String
-    
-    wrappingSection =  "wrappingSection"
-    wrappedSection  =  "wrappedSection"
-    testText        =  "This is wrapped section test"
-    
-    printlog "   - wrapped sections are following properties of the wrapping section - visibility"
-    
-    Call hNewDocument
-    
-    PrintLog " insert wrapping section"
-    Call wTypeKeys "<RETURN>"
-    Call wTypeKeys testText
-    Call wTypeKeys "<SHIFT HOME>"
-    Call fInsertSection(wrappingSection)
-    Call wTypeKeys "<HOME>"
-    Call wTypeKeys "<MOD1 RIGHT>" , 2
-    Call wTypeKeys "<MOD1 SHIFT RIGHT>"
-    PrintLog " insert wrapped section"
-    Call fInsertSection(wrappedSection)
-    PrintLog " format/section, choose hide checkbox in wrappingSection"
-    Kontext
-    FormatSections
-    Kontext "BereicheBearbeiten"
-    Bereich.TypeKeys "<UP>"
-    Ausblenden.check
-    BereicheBearbeiten.OK
-    
-    try
-        EditSelectAll
-        sleep(1)
-        EditCopy
-        sleep(1)
-        warnlog "There should be nothing visible in the document but 'Edit / Copy' is available!"
-        warnlog "Clipboard: " & GetClipBoardtext
-    catch
-        printlog "All sections are invisible."
-    endcatch
-    
-    Call hCloseDocument
-endcase
-
-'----------------------------------------------------------
-
-testcase tWrappedSections_5
-
-    Dim wrappingSection as String
-    Dim wrappedSection as String
-    Dim testText as String
-    
-    wrappingSection =  "wrappingSection"
-    wrappedSection  =  "wrappedSection"
-    testText        =  "This is wrapped section test"
-
-    PrintLog "   - wrapped sections are following properties of the wrapping section - Foot-/endnote position"
-
-    Call hNewDocument
-    PrintLog " insert wrapping section"
-    Call wTypeKeys testText
-    EditSelectAll
-    Call fInsertSection(wrappingSection)
-    
-    Call wTypeKeys "<Home>"
-    Call wTypeKeys "<Mod1 Right>",2
-    Call wTypeKeys "<Mod1 Shift Right>"
-    
-    PrintLog " insert wrapped section"
-    fInsertSection(wrappedSection)
-    
-    PrintLog " format/section, choose wrappingSection , then press options button,"
-    PrintLog " + then tabpage footnotes/endnotes ,"
-    PrintLog " + check collect at end of text in footnotes area and"
-    PrintLog " + check collect at end of text in endnotes area"
-    Kontext
-    FormatSections
-    Kontext "BereicheBearbeiten"
-    Bereich.TypeKeys "<Up>"
-    'press options button
-    Optionen.Click
-    
-    'tabpage footnotes/endnotes
-    Kontext
-    Active.Setpage TabFussEndnoten
-    Kontext "TabFussEndnoten"
-    
-    'check collect at end of text in footnotes area and
-    'check collect at end of text in endnotes area
-    FussnotenAmTextendeSammeln.Check
-    EndnotenAmBereichsendeSammeln.Check
-    
-    TabFussEndnoten.OK
-    Kontext "BereicheBearbeiten"
-    BereicheBearbeiten.OK
-    
-    PrintLog " format/section again, choose wrappedSection , then press options button,"
-    PrintLog " + then tabpage footnotes/endnotes ,"
-    PrintLog " + check if collect at end of text in footnotes area and"
-    PrintLog " + collect at end of text in endnotes area are checked"
-    FormatSections
-    Kontext "BereicheBearbeiten"
-    Bereich.TypeKeys "<Down>"
-    'press options button
-    Optionen.Click
-    
-    'tabpage footnotes/endnotes
-    Kontext
-    Active.Setpage TabFussEndnoten
-    Kontext "TabFussEndnoten"
-    
-    PrintLog " check if collect at end of text in footnotes area is checked"
-    if FussnotenAmTextendeSammeln.IsChecked <> TRUE then
-        Warnlog "The footnotes check option is NOT checked in wrappedSection"
-    end if
-    
-    PrintLog " check if collect at end of text in endnotes area  is checked"
-    if EndnotenAmBereichsendeSammeln.IsChecked  <> TRUE then
-        Warnlog "The endnotes check option is NOT checked in wrappedSection"
-    end if
-    
-    TabFussEndnoten.Cancel
-   
-    Kontext "BereicheBearbeiten"
-    BereicheBearbeiten.Cancel
-    
-    Call hCloseDocument
-endcase
-
-'----------------------------------------------------------
-
-testcase tWrappedSections_6
-
-    Dim wrappingSection as String
-    Dim wrappedSection as String
-    Dim testText as String
-    Dim columnInwrappingSection as String
-    Dim columnInwrappedSection as String
-
-    wrappingSection         =  "wrappingSection"
-    wrappedSection          =  "wrappedSection"
-    testText                =  "This is wrapped section test"
-    columnInwrappingSection =  "2"
-    columnInwrappedSection  =  "3"
-    
-    PrintLog "   - The formatting of columns of sectionWrapping and sectionWrapped can be configured separately"
-    
-    Call hNewDocument
-    
-    PrintLog " insert wrapping section"
-    Call wTypeKeys testText
-    EditSelectAll
-    fInsertSection(wrappingSection)
-    
-    Call wTypeKeys "<Home>"
-    Call wTypeKeys "<Mod1 Right>",2
-    Call wTypeKeys "<Mod1 Shift Right>"
-    
-    PrintLog " insert wrapped section"
-    fInsertSection(wrappedSection)
-    
-    PrintLog " format/section, choose wrappingSection , then press options button,"
-    PrintLog " + then tabpage columns, set columns to $columnInwrappingSection"
-    FormatSections
-    Kontext "BereicheBearbeiten"
-    Bereich.TypeKeys "<Up>"
-    'press options button
-    Optionen.Click
-    
-    Kontext
-    Active.Setpage TabSpalten
-    Kontext "TabSpalten"
-    
-    'Set column to $columnInwrappingSection
-    Anzahl.Settext columnInwrappingSection
-    TabSpalten.OK
-    
-    PrintLog " format/section, choose wrappedSection , then press options button,"
-    PrintLog " + then tabpage columns, set columns to $columnInwrappedSection"
-    Kontext "BereicheBearbeiten"
-    Bereich.TypeKeys "<Down>"
-    'press options button
-    Optionen.Click
-    
-    Kontext
-    Active.Setpage TabSpalten
-    Kontext "TabSpalten"
-    
-    'Set column to $columnInwrappedSection
-    Anzahl.Settext columnInwrappedSection
-    TabSpalten.OK
-    
-    Kontext "BereicheBearbeiten"
-    BereicheBearbeiten.OK
-    
-    PrintLog " format/section again, then check if columns is configured separately"
-    'check columns in wrappingSection
-    Kontext
-    FormatSections
-    Kontext "BereicheBearbeiten"
-    Bereich.TypeKeys "<Up>"
-    Optionen.Click
-    
-    Kontext
-    Active.Setpage TabSpalten
-    Kontext "TabSpalten"
-    if Anzahl.Gettext <> columnInwrappingSection then
-        Warnlog "The volumn in wrappingSection should be " +columnInwrappingSection +" but get " + Anzahl.Gettext
-    end if
-    TabSpalten.Cancel
-
-    'check columns in wrappedSection
-    Kontext "BereicheBearbeiten"
-    Bereich.TypeKeys "<Down>"
-    Optionen.Click
-
-    Kontext
-    Active.Setpage TabSpalten
-    Kontext "TabSpalten"
-    if Anzahl.Gettext <> columnInwrappedSection then
-        Warnlog "The volumn in wrappedSection should be " +columnInwrappedSection +" but get " + Anzahl.Gettext
-    end if
-    TabSpalten.Cancel
-
-    Kontext "BereicheBearbeiten"
-    BereicheBearbeiten.Cancel
-    Call hCloseDocument
-endcase
-
-'----------------------------------------------------------
-
-testcase tWrappedSections_7
-
-    Dim wrappingSection as String
-    Dim wrappedSection as String
-    Dim testText as String
-    Dim testFileWrapping , testFileWrapped    as String
-    
-    wrappingSection  =  "wrappingSection"
-    wrappedSection   =  "wrappedSection"
-    testText         =  "This is wrapped section test"
-    testFileWrapping =   ConvertPath ( gTesttoolPath + "writer\optional\input\graphics\jolink.jpg")
-    testFileWrapped  =   ConvertPath ( gTesttoolPath + "writer\optional\input\graphics\bild.jpg")
-
-    PrintLog "   - The background graphic of sectionWrapping and sectionWrapped can be configured separately"
-
-    Call hNewDocument    
-    PrintLog " insert wrapping section"
-    Call wTypeKeys testText
-    EditSelectAll
-    Call fInsertSection(wrappingSection)
-
-    Call wTypeKeys "<Home>"
-    Call wTypeKeys "<Mod1 Right>",2
-    Call wTypeKeys "<Mod1 Shift Right>"
-    
-    PrintLog " insert wrapped section"
-    Call fInsertSection(wrappedSection)
-    
-    PrintLog " format/section,"
-    PrintLog " + choose wrappingSection , then press options button ,"
-    PrintLog " + then tabpage backgroud / graphic, browse a picture ,"
-    PrintLog " + choose 'Position' in type ."
-    FormatSections
-    Kontext "BereicheBearbeiten"
-    Bereich.TypeKeys "<Up>"
-    'press options button
-    Optionen.Click
-
-    Kontext
-    Active.SetPage TabHintergrund
-    sleep 1
-    Kontext "TabHintergrund"
-
-    Als.Select (2)
-    sleep 1
-    Durchsuchen.click
-
-    Kontext "GrafikEinfuegenDlg"
-    Dateiname.SetText testFileWrapping
-    sleep 1
-    Oeffnen.Click
-    sleep 2
-    
-    Kontext "TabHintergrund"
-    Position.Check
-    
-    TabHintergrund.OK
-    PrintLog " choose wrappingSection , then press options button ,"
-    PrintLog " + then tabpage backgroud / graphic, browse a picture ,"
-    PrintLog " + choose 'area' in type ."
-    Kontext "BereicheBearbeiten"
-    Bereich.TypeKeys "<Down>"
-    'press options button
-    Optionen.Click
-
-    Kontext
-    Active.SetPage TabHintergrund
-    sleep 1
-    Kontext "TabHintergrund"
-
-    Als.Select (2)
-    sleep 1
-    Durchsuchen.click
-
-    Kontext "GrafikEinfuegenDlg"
-    Dateiname.SetText testFileWrapped
-    sleep 1
-    Oeffnen.Click
-    sleep 2
-
-    Kontext "TabHintergrund"
-    Flaeche.Check
-    TabHintergrund.OK
-
-    Kontext "BereicheBearbeiten"
-    BereicheBearbeiten.OK
-
-    PrintLog " format/section again,"
-    PrintLog " + choose wrappingSection , then press options button,"
-    PrintLog " + then tabpage background / graphic,"
-    PrintLog " + check if 'Position' is checked in type"
-    FormatSections
-    Kontext "BereicheBearbeiten"
-    Bereich.TypeKeys "<Up>"
-    'press options button
-    Optionen.Click
-    
-    Kontext
-    Active.SetPage TabHintergrund
-    sleep 1
-    Kontext "TabHintergrund"
-    Als.Select (2)
-    sleep 1
-    
-    if Position.IsChecked <> TRUE then
-        Warnlog "'Position' is NOT checked in type"
-    end if
-    
-    TabHintergrund.Cancel
-    
-    PrintLog " choose wrappedSection , then press options button,"
-    PrintLog " + then tabpage backgroud / graphic,"
-    PrintLog " + check if 'Area' is checked in type ."
-    Kontext "BereicheBearbeiten"
-    Bereich.TypeKeys "<Down>"
-    'press options button
-    Optionen.Click
-    
-    Kontext
-    Active.SetPage TabHintergrund
-    sleep 1
-    Kontext "TabHintergrund"
-    Als.Select (2)
-    sleep 1
-    
-    if Flaeche.IsChecked <> TRUE then
-        Warnlog "'Area' is NOT checked in type"
-    end if
-    TabHintergrund.Cancel
-    
-    Kontext "BereicheBearbeiten"
-    BereicheBearbeiten.Cancel
-    
-    Call hCloseDocument
-endcase
diff --git a/testautomation/writer/optional/includes/section/w_section_4.inc b/testautomation/writer/optional/includes/section/w_section_4.inc
deleted file mode 100644
index 632956e92d17..000000000000
--- a/testautomation/writer/optional/includes/section/w_section_4.inc
+++ /dev/null
@@ -1,1509 +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 : helge.delfs@oracle.com
-'*
-'* short description : Functional-Test for Section.
-'*
-'************************************************************************
-'*
-' #1 tSectionInTables_1
-' #1 tSectionInTables_2
-' #1 tSectionInTables_3
-' #1 tSectionInTables_4
-' #1 tSectionInTables_5
-' #1 tSectionInTables_6
-' #1 tSectionInTables_7
-' #1 tSectionInFootnotes_1
-' #1 tSectionInFootnotes_2
-' #1 tEditSection_1
-' #1 tEditSection_2
-' #1 tEditSection_3
-' #1 tEditSection_4
-' #1 tEditSection_5
-' #1 tParagraphSection_1
-' #1 tParagraphSection_2
-' #1 tParagraphSection_3
-' #1 tScenarioSection_1
-' #1 tScenarioSection_2
-' #1 tCTLSection_1
-' #1 tCTLSection_2
-'*
-'\***********************************************************************
-
-sub w_section_4
-
-   printLog Chr(13) + "- Sections in special areas -"
-
-   printLog Chr(13) + "--- Sections in tables ---"
-     Call tSectionInTables_1          'insert section in empty cell
-     Call tSectionInTables_2          'select text in a cell and insert section
-     Call tSectionInTables_3          'insert multicolumn-section into cell
-     Call tSectionInTables_4          'insert footnote into section which is in table
-     Call tSectionInTables_5          'hide section in cell, resize cell via key shortcuts, make section visible again
-     Call tSectionInTables_6          'insert a section when you have a multi-selection in a table must be impossible
-     Call tSectionInTables_7          'insert a section when cells are selected must be impossible
-
-   printLog Chr(13) + "--- Sections in footnote areas  ---"
-     Call tSectionInFootnotes_1       'insert a simple section over some words or lines
-     Call tSectionInFootnotes_2       'insert section into footnote that spreads over several pages
-
-   printLog Chr(13) + "- Edit sections later on (via Format - Sections...) -"
-     Call tEditSection_1              'uncheck "Autowidth" and vary width manually
-     Call tEditSection_2              'hide section
-     Call tEditSection_3              'protect section
-     Call tEditSection_4              'remove link(s), also via Edit - Links
-     Call tEditSection_5              'Remove section
-
-   printLog Chr(13) + "- section breaks (several following sections) -"
-     Call tParagraphSection_1         'Keep paragraphs together
-     Call tParagraphSection_2         'paragraph spacing
-     Call tParagraphSection_3         'paragraph borders
-
-   printLog Chr(13) + "- Test scenarios -"
-     Call tScenarioSection_1          'create Masterdocument from another document that also contains sections
-     Call tScenarioSection_2          'create Masterdocument from another document that also contains sections and footnotes
-
-   printLog Chr(13) + "- CTL specials -"
-     Call tCTLSection_1               'CTL specials -- insert/sections /Columns
-     Call tCTLSection_2               'CTL specials -- format/section/options /Columns
-
-end sub
-
-'***********************************************************************
-
-testcase tSectionInTables_1
-
-  Dim tableName as String
-  Dim columnNumber as String
-  Dim rowNumber as String
-  Dim sectionName as String
-
-  tableName     = "testTable"
-  columnNumber  = "4"
-  rowNumber     = "2"
-
-  sectionName   = "tableSection"
-
-  '/// insert section in empty cell ///
-   PrintLog "      - insert section in empty cell  "
-
-    Call hNewDocument
-
-   '/// insert a table
-    Call fInsertTable(tableName , columnNumber, rowNumber)
-
-   '/// insert section in empty cell
-    try
-        Call fInsertSection(sectionName)
-
-      ' Check the section name is correct or NOT (Format/Section)
-        Kontext
-        FormatSections
-        Kontext "BereicheBearbeiten"
-        if BereichsName.GetText <> sectionName then warnlog "The section Name is wrong : " & BereichsName.Gettext
-        BereicheBearbeiten.Cancel
-    catch
-        Warnlog "insert section in empty cell failed"
-    endcatch
-
-    Call hCloseDocument
-
-endcase
-
-'-------------------------------------------------------------
-
-testcase tSectionInTables_2
-
-  Dim tableName as String
-  Dim columnNumber as String
-  Dim rowNumber as String
-  Dim testText as String
-  Dim sectionName as String
-
-  tableName     = "testTable"
-  columnNumber  = "4"
-  rowNumber     = "2"
-  testText      = "Table-Section"
-
-  sectionName   = "tableSection"
-
-  '/// select text in a cell and insert section  ///
-   PrintLog "      - select text in a cell and insert section   "
-
-    Call hNewDocument
-
-   '/// insert a table
-    Call fInsertTable(tableName , columnNumber, rowNumber)
-
-   '/// input some test text in the table
-    Call wTypeKeys testText
-
-   '/// select text
-    Call wTypeKeys "<Shift Home>"
-
-   '/// insert section include select text
-    try
-        Call fInsertSection(sectionName)
-
-      ' Check the section name is correct or NOT (Format/Section)
-        Kontext
-        FormatSections
-        Kontext "BereicheBearbeiten"
-        if BereichsName.GetText <> sectionName then warnlog "The section Name is wrong : " & BereichsName.Gettext
-        BereicheBearbeiten.Cancel
-
-      ' Check the content in section is correct or NOT
-        Call wTypeKeys "<Home>"
-        Call wTypeKeys "<Shift End>"
-        EditCopy
-        if GetClipBoardText <> testText then Warnlog "The content in section is NOT right : " +GetClipBoardText
-
-    catch
-        Warnlog "insert section which include text failed"
-    endcatch
-
-    Call hCloseDocument
-
-endcase
-
-'---------------------------------------------------------------
-
-testcase tSectionInTables_3
-
-  Dim tableName as String
-  Dim columnNumber as String
-  Dim rowNumber as String
-  Dim sectionName as String
-  Dim columnInSection as String
-
-  tableName       = "testTable"
-  columnNumber    = "4"
-  rowNumber       = "2"
-  sectionName     = "tableSection"
-  columnInSection = "3"
-
-  '/// insert multicolumn-section into cell  ///
-   PrintLog "      - insert multicolumn-section into cell  "
-
-    Call hNewDocument
-
-   '/// insert a table
-    Call fInsertTable(tableName , columnNumber, rowNumber)
-
-   '/// insert section with column = columnInSection in empty cell
-    try
-        InsertSection
-        Sleep 1
-
-        Kontext
-        Active.Setpage TabBereiche
-        Kontext "TabBereiche"
-        Bereichsliste.Settext sectionName
-
-        Kontext
-        Active.Setpage TabSpalten
-        Kontext "TabSpalten"
-        Anzahl.Settext columnInSection
-        TabSpalten.OK
-        sleep 1
-
-      ' Check the section name is correct or NOT (Format/Section)
-        Kontext
-        FormatSections
-        Kontext "BereicheBearbeiten"
-        if BereichsName.GetText <> sectionName then warnlog "The section Name is wrong : " & BereichsName.Gettext
-
-      ' Check the section column is correct or NOT (options button)
-        Optionen.Click
-        Kontext
-        Active.Setpage TabSpalten
-        Kontext "TabSpalten"
-        if Anzahl.Gettext <> columnInSection then  Warnlog "The volumn should be " +columnInSection +" but get " + Anzahl.Gettext
-        TabSpalten.Cancel
-
-        Kontext
-        Kontext "BereicheBearbeiten"
-        BereicheBearbeiten.Cancel
-    catch
-        Warnlog "insert section in empty cell failed"
-    endcatch
-
-    Call hCloseDocument
-
-endcase
-
-'------------------------------------------------------------------------
-
-testcase tSectionInTables_4
-
-  Dim tableName as String
-  Dim columnNumber as String
-  Dim rowNumber as String
-  Dim sectionName as String
-  Dim footNote as String
-  Dim endNote as String
-
-  tableName     = "testTable"
-  columnNumber  = "4"
-  rowNumber     = "2"
-
-  sectionName   = "tableSection"
-  footNote      = "Foot"
-  endNote       = "End"
-
-  '///insert footnote into section which is in table  ///
-   PrintLog "      - insert footnote into section which is in table "
-
-   Call hNewDocument
-
-   '/// insert a table
-    Call fInsertTable(tableName , columnNumber, rowNumber)
-
-    try
-       '/// insert section
-        Call fInsertSection(sectionName)
-
-        Call wTypeKeys "<Up>"
-
-       '/// insert a footnote
-        Call fInsertFootnote("character",footNote)
-
-        Call wTypeKeys "<PageUp>"
-
-       '/// insert a endnote
-        fInsertEndnote("character",endNote)
-
-        Call wTypeKeys "<PageUp>"
-
-       '/// Check the section name is correct or NOT (Format/Section)
-        Kontext
-        FormatSections
-        Kontext "BereicheBearbeiten"
-        if BereichsName.GetText <> sectionName then warnlog "The section Name is wrong : " & BereichsName.Gettext
-        BereicheBearbeiten.Cancel
-
-       '/// Check the footnote and endnote are correct or NOT
-        Call wTypeKeys "<Shift Home>"
-        EditCopy
-        if GetClipBoardText <> footNote+endNote then Warnlog "The footnote/endnote are NOt inserted into section correctly!"
-    catch
-        Warnlog "insert section in empty cell failed"
-    endcatch
-
-    Call hCloseDocument
-
-endcase
-
-'-----------------------------------------------------------------------------
-
-testcase tSectionInTables_5
-    Dim tableName as String
-    Dim columnNumber as String
-    Dim rowNumber as String
-    Dim testText as String
-    Dim sectionName as String
-
-    tableName     = "testTable"
-    columnNumber  = "4"
-    rowNumber     = "2"
-    testText      = "Hide-Section"
-    sectionName   = "tableSection"
-
-    '/// Hide section in cell, resize cell via key shortcuts, make section visible again   ///
-    printlog "      - hide section in cell, resize cell via key shortcuts, make section visible again"
-    Call hNewDocument
-
-     '/// insert a table
-     Call wTypeKeys "<RETURN>"
-     Call fInsertTable(tableName , columnNumber, rowNumber)
-     '/// input some test text , select text and insert a section with hide option
-     Call wTypeKeys testText
-     Call wTypeKeys "<SHIFT HOME>"
-     try
-         InsertSection
-         Kontext
-             Active.Setpage TabBereiche
-             Kontext "TabBereiche"
-                 Bereichsliste.Settext sectionName
-                 Ausblenden.check
-             TabBereiche.OK
-             sleep(1)
-         '/// Check the content in section is hidden or NOT
-         SetClipboard = ""
-         Call wTypeKeys "<LEFT><DOWN>"
-         Call wTypeKeys "<SHIFT END>"
-         try
-             EditCopy
-         catch
-             printlog "There is no text in the document. Good."
-         endcatch
-         if GetClipboardText = "" then
-             '/// Resize cell via key shortcuts
-             Call wTypeKeys "<MOD1 MOD2 RIGHT>" , 2
-             '/// UnCheck hide option (Format/Section)
-             Kontext
-             FormatSections
-             Kontext "BereicheBearbeiten"
-                 Ausblenden.Uncheck
-             BereicheBearbeiten.OK
-             sleep(2)
-             Call wTypeKeys "<LEFT><HOME>"
-             Call wTypeKeys "<SHIFT END>"
-             EditCopy
-             if GetClipBoardText <> testText then warnlog "The content in section should be visible but get : " & GetClipBoardText
-         else
-             QAErrorLog "#99460# The content in section is NOT hidden!"
-         end if
-     catch
-         warnlog "insert section which include text failed"
-     endcatch
-
-    Call hCloseDocument
-endcase
-
-'------------------------------------------------------------------
-
-testcase tSectionInTables_6
-
-  Dim tableName as String
-  Dim columnNumber as String
-  Dim rowNumber as String
-  Dim testText as String
-  Dim selectedString as String
-  Dim sectionName as String
-
-  tableName       =  "testTable"
-  columnNumber    =  "4"
-  rowNumber       =  "2"
-  testText        =  "Mul-s-Mul"
-  selectedString  =  "Mul"
-
-  sectionName     =  "tableSection"
-
-  '/// insert a section when you have a multi-selection in a table must be impossible  ///
-   PrintLog "      - insert a section when you have a multi-selection in a table must be impossible"
-
-    Call hNewDocument
-
-   '/// insert a table
-    Call fInsertTable(tableName , columnNumber, rowNumber)
-
-   '/// input some words and do multi-selection
-    Call wTypeKeys testText
-    fMultiSelection(selectedString)
-
-   '/// insert section
-    try
-        Call fInsertSection(sectionName)
-        Warnlog "Create section should be impossible!"
-    catch
-    endcatch
-
-    Call hCloseDocument
-
-endcase
-
-'---------------------------------------------------------------
-
-testcase tSectionInTables_7
-
-  Dim tableName as String
-  Dim columnNumber as String
-  Dim rowNumber as String
-  Dim sectionName as String
-
-  tableName       =  "testTable"
-  columnNumber    =  "4"
-  rowNumber       =  "2"
-
-  sectionName     =  "tableSection"
-
-  '/// insert a section when cells are selected must be impossible  ///
-   PrintLog "      - insert a section when cells are selected must be impossible"
-
-    Call hNewDocument
-
-   '/// insert a table
-    Call fInsertTable(tableName , columnNumber, rowNumber)
-
-   '/// more than one cell are selected
-    Call wTypeKeys "<Shift Right>",2
-
-   '/// insert section
-    try
-        Call fInsertSection(sectionName)
-        Warnlog "Create section should be impossible!"
-    catch
-    endcatch
-
-    Call hCloseDocument
-
-endcase
-
-'----------------------------------------------------------------
-
-testcase tSectionInFootnotes_1
-
-  Dim sectionName  as String
-
-  sectionName = "footnoteSection"
-
-  '/// insert a simple section over some words or lines ///
-   PrintLog "      - insert a simple section over some words or lines "
-
-   Call hNewDocument
-
-   '/// + insert footnote
-    Call fInsertFootnote("automatic")
-
-   '/// + insert some dummy text in the footnote area
-    wBlindtextEinfuegen
-
-    EditSelectAll
-
-   '/// + insert a section for selected words
-    try
-        Call fInsertSection(sectionName)
-
-      ' Check the section name is correct or NOT (Format/Section)
-        Kontext
-        FormatSections
-        Kontext "BereicheBearbeiten"
-        if BereichsName.GetText <> sectionName then warnlog "The section Name is wrong : " & BereichsName.Gettext
-        BereicheBearbeiten.Cancel
-    catch
-        Warnlog "insert a section failed !"
-    endcatch
-
-   Call hCloseDocument
-
-endcase
-
-'--------------------------------------------------------------------
-
-testcase tSectionInFootnotes_2
-
-  Dim sectionName  as String
-
-  sectionName = "footnoteSection"
-
-  '/// insert section into footnote that spreads over several pages ///
-   PrintLog "      - insert section into footnote that spreads over several pages "
-
-   Call hNewDocument
-
-   '/// insert footnote
-    Call fInsertFootnote("automatic")
-    sleep(2)
-   '/// insert some dummy text that spreads over several pages in the footnote area
-    Call wBlindtextEinfuegen
-    Call wBlindtextEinfuegen
-    Call wBlindtextEinfuegen
-    Call wBlindtextEinfuegen
-    Call wBlindtextEinfuegen
-    Call wBlindtextEinfuegen
-    Call wBlindtextEinfuegen
-
-    Kontext
-    ViewNavigator
-    sleep(1)
-    Kontext "NavigatorWriter"
-
-    '/// Check if dummy text is enough in footnote area
-     if Seitennummer.GetText > "1" then
-        EditSelectAll
-        sleep(1)
-        '/// + insert a section for selected words
-         try
-             Call fInsertSection(sectionName)
-             ' Check the section name is correct or NOT (Format/Section)
-               Kontext
-               FormatSections
-               Kontext "BereicheBearbeiten"
-               if BereichsName.GetText <> sectionName then warnlog "The section Name is wrong : " & BereichsName.Gettext
-               BereicheBearbeiten.Cancel
-        catch
-               Warnlog "insert a section failed !"
-        endcatch
-     else
-         QAErrorLog "Not enough dummy text in the footnote area!"
-     end if
-    Call fCloseNavigator
-   Call hCloseDocument
-endcase
-
-'-----------------------------------------------------------
-
-testcase tEditSection_1
-
-  Dim columnNumber as String
-  Dim sectionName as String
-  Dim width1 as String
-  Dim width2 as String
-
-  sectionName   =  "MultiColumnSection"
-  columnNumber  =  "3"
-
-  '/// uncheck "Autowidth" and vary width manually ///
-   PrintLog "   - Create multi-column section from format/section - options (TabPage Columns)"
-
-   Call hNewDocument
-
-  '/// insert a section with only 1 culumn, that means a normal section
-   Call fInsertSection(sectionName)
-   Call wTypeKeys "<Up>"
-
-  '/// change the column number (format/section) with
-  '/// + TabPage "Columns", set column to $columnNumber
-   Kontext
-   FormatSections
-   Kontext "BereicheBearbeiten"
-   Optionen.Click
-
-    Kontext
-    Active.Setpage TabSpalten
-    Kontext "TabSpalten"
-
-   '/// + Set column number
-    Anzahl.Settext columnNumber
-    Sleep 1
-
-   'This step is useless , but must be done ! Because after the aboved step, all control are NOT actived !
-    Kontext
-    Active.Setpage TabHintergrund
-    Kontext "TabHintergrund"
-
-    Kontext
-    Active.Setpage TabSpalten
-    Kontext "TabSpalten"
-
-   '/// uncheck "Autowidth" and vary width manually
-    AutomBreite.UnCheck
-
-    width1 = "4" + gSeperator + "00" + gMeasurementUnit
-    width2 = "3" + gSeperator + "00" + gMeasurementUnit
-
-    Spaltenbreite1.Settext width1
-    Sleep 1
-    Spaltenbreite2.Settext width2
-    Sleep 1
-    TabSpalten.TypeKeys "<Tab>"
-    Sleep 1
-
-    TabSpalten.OK
-
-    Kontext
-    Kontext "BereicheBearbeiten"
-    BereicheBearbeiten.OK
-
-    Call wTypeKeys "<Up>"
-   '/// Check the column's width
-    Kontext
-    FormatSections
-    Kontext "BereicheBearbeiten"
-    Optionen.Click
-
-    Kontext
-    Active.Setpage TabSpalten
-    Kontext "TabSpalten"
-
-    if Spaltenbreite1.Gettext <> width1 then Warnlog "column1 width is NOT correct , hope to get " + width1 + " but get " +Spaltenbreite1.Gettext
-    if Spaltenbreite2.Gettext <> width2 then Warnlog "column2 width is NOT correct , hope to get " + width2 + " but get " +Spaltenbreite2.Gettext
-
-    TabSpalten.Cancel
-
-    Kontext
-    Kontext "BereicheBearbeiten"
-    BereicheBearbeiten.Cancel
-
-    Call hCloseDocument
-
-endcase
-
-'------------------------------------------------------
-
-testcase tEditSection_2
-
-    Dim sectionName as String
-    Dim testText as String
-
-    sectionName   =  "HideSection"
-    testText      =  "Hide Section"
-
-    '/// hide section in format/section ///
-    printlog "   - hide section in format/section"
-
-    Call hNewDocument
-
-     '/// insert a normal section, and input some words
-     Call wTypeKeys "<RETURN>"
-     Call wTypeKeys testText
-     Call wTypeKeys "<SHIFT HOME>"
-     Call fInsertSection(sectionName)
-     '/// Edit section with Format/Section and choose 'Hide'
-     Kontext
-         FormatSections
-         Kontext "BereicheBearbeiten"
-             Ausblenden.check
-             BereicheBearbeiten.OK
-             sleep(1)
-     '/// check the section and its contents
-     printlog "  -- check the section and its contents "
-     try
-         EditSelectAll
-         EditCopy
-         warnlog "'Edit / Copy' is usable but if there is nothing in the document (hidden section) it should be disabled!"
-     catch
-         printlog "Clipboard should be and is empty."
-     endcatch
-    Call hCloseDocument
-endcase
-
-'-------------------------------------------------------------------
-
-testcase tEditSection_3
-
-  Dim sectionName as String
-  Dim testText as String
-
-  sectionName   =  "ProtectSection"
-  testText      =  "Protect Section"
-
-  '/// protect section in format/section ///
-   PrintLog "   - protect section in format/section"
-
-    Call hNewDocument
-
-  '/// Open options and check 'Direct-Cursor' in options ///
-    fCheckDirectCursor
-
-  '/// insert a normal section, and input some words
-    Call wTypeKeys testText
-    Call wTypeKeys "<Shift Home>"
-
-    Call fInsertSection(sectionName)
-
-  '/// Edit section with Format/Section and choose 'Protect'
-    Kontext
-    FormatSections
-    Kontext "BereicheBearbeiten"
-    Geschuetzt.Check
-    BereicheBearbeiten.OK
-    sleep 1
-
-    Call wTypeKeys "<Home>"
-    Call wTypeKeys "<Space>"
-    Kontext "Active"
-    If Active.Exists then
-      Active.ok
-    else
-      Warnlog "-  No warning when trying to write in protected area!"
-    end if
-
-    Call hCloseDocument
-
-endcase
-
-'--------------------------------------------------------
-
-testcase tEditSection_4
-
-  Dim sectionName as String
-  Dim testText as String
-
-  sectionName   =  "LinkSection"
-  testText      =  "Link Section"
-
-  if Dir (gOfficePath + "user\work\tEditSection_4.odt") <> "" then kill (gOfficePath + "user\work\tEditSection_4.odt")
-
-  '/// remove link(s), also via Edit - Links ///
-   PrintLog "   - remove link(s), also via Edit - Links "
-
-  '/// edit a test file and save it
-   Call hNewDocument
-   Call wTypeKeys testText
-   Call hFileSaveAsKill (gOfficePath + "user\work\tEditSection_4.odt")
-   Call hCloseDocument
-
-   Call hNewDocument
-
-  '/// insert a section and link the test file
-   InsertSection
-   Sleep 1
-   Kontext
-   Active.Setpage TabBereiche
-   Kontext "TabBereiche"
-   Bereichsliste.Settext sectionName
-   Verknuepfung.Check
-
-   DateiVerknuepfung.Settext ConvertPath(gOfficePath + "user\work\tEditSection_4.odt")
-   TabBereiche.OK
-   Sleep 1
-
-  '/// Edit section with Format/Section and unCheck 'link'
-   Kontext
-   FormatSections
-   Kontext "BereicheBearbeiten"
-   Verknuepfung.UnCheck
-   BereicheBearbeiten.OK
-   sleep 1
-
-  '/// the test file's content should be reserved after
-  '/// + unlinking the test file
-   EditSelectAll
-   EditCopy
-   if GetClipBoardText <> testText then Warnlog "the test file's content should be reserved after unlinking the test file"
-
-  '/// check if the unlink is taken effect
-   Kontext
-   FormatSections
-   Kontext "BereicheBearbeiten"
-   If Verknuepfung.IsChecked = TRUE then Warnlog "The link option should be UnChecked!"
-   BereicheBearbeiten.Cancel
-
-   Call hCloseDocument
-
-endcase
-
-'-------------------------------------------------------
-
-testcase tEditSection_5
-
-  Dim sectionName as String
-  Dim testText as String
-
-  sectionName   =  "RemoveSection"
-  testText      =  "Remove Section Test"
-
-  '/// remove section via Edit - undo ///
-   PrintLog "   - remove section via Edit - undo"
-
-   Call hNewDocument
-
-  '/// insert a normal section, and input some words
-    Call wTypeKeys testText
-    Call wTypeKeys "<Shift Home>"
-    Call fInsertSection(sectionName)
-
-  '/// remove section with Format/Section and click undo button
-   Kontext
-   FormatSections
-   Kontext "BereicheBearbeiten"
-
-  'click undo button
-   Aufheben.Click
-   Sleep 1
-   BereicheBearbeiten.OK
-   sleep 1
-
-  'check if section is still existed
-   try
-       Kontext
-       FormatSections
-       Kontext "BereicheBearbeiten"
-       BereicheBearbeiten.Cancel
-       Warnlog "There are should be no section existed!"
-   catch
-   endcatch
-
-  '/// the test file's content should be reserved after removing the section
-   EditSelectAll
-   EditCopy
-   if GetClipBoardText <> testText then Warnlog "the test file's content should be reserved after removing the section"
-
-   Call hCloseDocument
-
-endcase
-
-'------------------------------------------------
-
-testcase tParagraphSection_1
-
-  Dim documentName as String
-  Dim sectionName as String
-  Dim hopeResult as String
-
-   documentName  =  ConvertPath(gTesttoolpath + "writer\optional\input\section\tParagraphSection_1.sxw")
-   sectionName   =  "ParagraphSection"
-   hopeResult    =  "He "
-
-  '/// Keep paragraphs together ///
-   PrintLog "   - Keep paragraphs together"
-
-  '/// Open a file with 4 paragraphs, the 4th paragraph is crossing the page
-   hFileOpenLocally( documentName)
-   
-
-   EditSelectAll
-   Call fInsertSection(sectionName)
-   Call wTypeKeys "<MOD1 End>"
-   Call wTypeKeys "<Up>",3
-
-   FormatParagraph
-   Kontext
-   active.SetPage TabTextfluss
-   kontext "TabTextfluss"
-
-  '/// Check option "Do not split paragraphs"
-   AbsatzNichtTrennen.Check
-
-   TabTextfluss.OK
-
-   Call wTypeKeys "<MOD1 Home>"
-
-  'Set the focus to the head of second page
-   Kontext
-   ViewNavigator
-   Kontext "NavigatorWriter"
-   Seitennummer.SetText "2"
-   Sleep 2
-   fCloseNavigator
-
-   Call wTypeKeys "<Shift MOD1 Right>"
-   EditCopy
-
-   if GetClipBoardText <> hopeResult then Warnlog "Something wrong in Keep paragraphs together test!"
-
-   Call hCloseDocument
-
-endcase
-
-'-------------------------------------------------------
-
-testcase tParagraphSection_2
-
-    Dim sectionName as String
-    Dim beforeTextIntent1 as String
-    Dim afterTextIntent1 as String
-    Dim firstTextIntent1 as String
-    Dim beforeTextSpace1 as String
-    Dim afterTextSpace1 as String
-    Dim beforeTextIntent2 as String
-    Dim afterTextIntent2 as String
-    Dim firstTextIntent2 as String
-    Dim beforeTextSpace2 as String
-    Dim afterTextSpace2 as String
-    
-    sectionName   =  "ParagraphSection"
-    
-    '/// paragraph spacing  ///
-    PrintLog "   - paragraph spacing "
-    
-    Call hNewDocument
-    
-    '/// insert first paragraph , and do some configurations
-    if wBlindtextEinfuegen() = false then
-        Call hCloseDocument
-        goto endsub
-    end if
-       
-    if iSprache = 82 then
-        Call wTypeKeys "<Return>"
-    end if
-    Call wTypeKeys "<Up>"
-    
-    FormatParagraph
-    Kontext
-    active.SetPage TabEinzuegeUndAbstaende
-    kontext "TabEinzuegeUndAbstaende"
-    
-    beforeTextIntent1 = "0" + gSeperator + "10" + gMeasurementUnit
-    afterTextIntent1  = "0" + gSeperator + "20" + gMeasurementUnit
-    firstTextIntent1  = "0" + gSeperator + "30" + gMeasurementUnit
-    beforeTextSpace1  = "0" + gSeperator + "40" + gMeasurementUnit
-    afterTextSpace1   = "0" + gSeperator + "50" + gMeasurementUnit
-    
-    Vonlinks.SetText   beforeTextIntent1
-    VonRechts.SetText  afterTextIntent1
-    ErsteZeile.SetText firstTextIntent1
-    Oben.SetText       beforeTextSpace1
-    Unten.SetText      afterTextSpace1
-    Automatisch.Check
-    Registerhaltigkeit.UnCheck
-    TabEinzuegeUndAbstaende.OK
-    
-    call wTypeKeys "<Down>"
-    call wTypeKeys "<RETURN>"
-    
-    '/// insert second paragraph , and do some configurations which is different from the first one
-    wBlindtextEinfuegen
-    Call wTypeKeys "<Up>"
-    
-    FormatParagraph
-    Kontext
-    active.SetPage TabEinzuegeUndAbstaende
-    kontext "TabEinzuegeUndAbstaende"
-    
-    beforeTextIntent2 = "0" + gSeperator + "60" + gMeasurementUnit
-    afterTextIntent2  = "0" + gSeperator + "70" + gMeasurementUnit
-    firstTextIntent2  = "0" + gSeperator + "80" + gMeasurementUnit
-    beforeTextSpace2  = "0" + gSeperator + "90" + gMeasurementUnit
-    afterTextSpace2   = "0" + gSeperator + "10" + gMeasurementUnit
-    
-    Vonlinks.SetText   beforeTextIntent2
-    VonRechts.SetText  afterTextIntent2
-    Automatisch.UnCheck
-    ErsteZeile.SetText firstTextIntent2
-    Oben.SetText       beforeTextSpace2
-    Unten.SetText      afterTextSpace2
-    Registerhaltigkeit.Check
-    TabEinzuegeUndAbstaende.OK
-    
-    EditSelectAll
-    Call fInsertSection(sectionName)
-    
-    'Check the first paragraph's configuration
-    Call wTypeKeys "<MOD1 Home>"
-    FormatParagraph
-    Kontext
-    active.SetPage TabEinzuegeUndAbstaende
-    kontext "TabEinzuegeUndAbstaende"
-
-    if Automatisch.IsChecked <> TRUE then Warnlog "Something wrong with the checkbox 'Automatic' in first paragraph!"
-    if Registerhaltigkeit.IsChecked = TRUE then Warnlog "Something wrong with the checkbox 'Register' in first paragraph!"
-
-    if Vonlinks.GetText   <>  beforeTextIntent1 then Warnlog "Something wrong with the before-text-intent-area in the first paragraph"
-    if VonRechts.GetText  <>  afterTextIntent1 then Warnlog "Something wrong with the after-text-intent-area in the first paragraph"
-    if ErsteZeile.GetText <>  firstTextIntent1 then Warnlog "Something wrong with the first-text-intent-area in the first paragraph"
-    if Oben.GetText       <>  beforeTextSpace1 then Warnlog "Something wrong with the before-sparcing area in the first paragraph"
-    if Unten.GetText      <>  afterTextSpace1 then Warnlog "Something wrong with the after-sparcing area in the first paragraph"
-
-    TabEinzuegeUndAbstaende.Cancel
-
-    Call wTypeKeys "<MOD1 End>"
-    Call wTypeKeys "<Up>",3
-    
-    'Check the second paragraph's configuration
-    FormatParagraph
-    Kontext
-    active.SetPage TabEinzuegeUndAbstaende
-    kontext "TabEinzuegeUndAbstaende"
-    
-    if Automatisch.IsChecked = TRUE then Warnlog "Something wrong with the checkbox 'Automatic' in the second paragraph!"
-    if Registerhaltigkeit.IsChecked <> TRUE then Warnlog "Something wrong with the checkbox 'Register' in the second paragraph!"
-
-    if Vonlinks.GetText     <>  beforeTextIntent2  then Warnlog "Something was wrong with the before-text-intent in the second paragraph!"
-    if VonRechts.GetText <>  afterTextIntent2     then Warnlog "Something wrong with the after-text-intent in the second paragraph!"
-    if ErsteZeile.GetText  <>  firstTextIntent2      then Warnlog "Something wrong with the first-text-intent in the second paragraph!"
-    if Oben.GetText          <>  beforeTextSpace2 then Warnlog "Something wrong with the before-text-sparcing area in the second paragraph!"
-    if Unten.GetText         <>  afterTextSpace2 then Warnlog "Something wrong with the after-text-sparcing area in the second paragraph!"
-
-    TabEinzuegeUndAbstaende.Cancel
-
-    Call hCloseDocument
-
-endcase
-
-'-------------------------------------------------------
-
-testcase tParagraphSection_3
-
-    Dim sectionName as String
-    Dim left1 as String
-    Dim right1 as String
-    Dim top1 as String
-    Dim bottom1 as String
-    Dim distance1 as String
-    Dim left2 as String
-    Dim distance2 as String
-    Dim COMPAREvar1 as String
-    Dim COMPAREvar2 as String
-    Dim COMPAREvar3 as String
-    Dim COMPAREvar4 as String
-    
-    sectionName   =  "ParagraphSection"
-    
-    '/// paragraph borders   ///
-    PrintLog "   - paragraph borders  "
-    
-    Call hNewDocument
-    
-    '/// insert first paragraph , and do some configurations
-    if wBlindtextEinfuegen() = false then
-        Call hCloseDocument
-        goto endsub
-    end if
-    if iSprache = 82 then
-        Call wTypeKeys "<Return>"
-    end if   
-    Call wTypeKeys "<Up>"
-    
-    FormatParagraph
-    Kontext
-    active.SetPage TabUmrandung
-    kontext "TabUmrandung"
-    
-    Vorgaben.Typekeys "<home><right>"        ' 2nd from the left
-    synchronisieren.UnCheck
-    
-    left1     =  "0" + gSeperator + "1" 
-    right1    =  "0" + gSeperator + "2" 
-    top1      =  "0" + gSeperator + "3" 
-    bottom1   =  "0" + gSeperator + "4" 
-    distance1 =  "4" + gSeperator + "2" 
-    
-    Links.SetText  left1
-    Rechts.SetText right1
-    Oben.SetText   top1
-    Unten.SetText  bottom1
-    
-    Position.TypeKeys "<home><right>"        ' 2nd. from the left
-    Groesse.SetText distance1
-    SchattenFarbe.Select 2
-    TabUmrandung.OK
-    
-    Call wTypeKeys "<Down>",2
-    
-    '/// insert second paragraph , and do some configurations
-    '/// + which is different from the first one
-    wBlindtextEinfuegen
-    Call wTypeKeys "<Up>"
-    
-    FormatParagraph
-    Kontext
-    active.SetPage TabUmrandung
-    kontext "TabUmrandung"
-    
-    Vorgaben.Typekeys "<home><right><right>"       ' 3nd from the left
-    synchronisieren.Check
-    
-    left2     =  "0" + gSeperator + "6" 
-    distance2 =  "4" + gSeperator + "7" 
-    
-    Links.SetText  left2
-    
-    Position.TypeKeys "<home><right><right>"       ' 3nd. from the left
-    Groesse.SetText distance2
-    SchattenFarbe.Select 5
-    TabUmrandung.OK
-    
-    EditSelectAll
-    Call fInsertSection(sectionName)
-    
-    '<<< Check the FIRST paragraph's configuration >>>
-    Call wTypeKeys "<MOD1 Home>"
-    
-    FormatParagraph
-    Kontext
-    active.SetPage TabUmrandung
-    kontext "TabUmrandung"
-    
-    '   if synchronisieren.IsChecked = TRUE then Warnlog "The Synchronize option should NOT be checked in first paragraph!"
-    COMPAREvar1 = Links.GetText
-    COMPAREvar2 = Rechts.GetText
-    COMPAREvar3 = Oben.GetText
-    COMPAREvar4 = Unten.GetText
-    
-    printlog (InStr( COMPAREvar1, left1   ) = false)
-    if InStr( COMPAREvar1, left1 ) = false then Warnlog "Something wrong with the Left -space to contents area in first paragraph"
-    if InStr( COMPAREvar2, right1 ) = false then Warnlog "Something wrong with the Right -space to contents area in first paragraph"
-    if InStr( COMPAREvar3, top1 ) = false then Warnlog "Something wrong with the Top -space to contents area in first paragraph"
-    if InStr( COMPAREvar4, bottom1 ) = false then Warnlog "Something wrong with the Bottom -space to contents area in first paragraph"
-
-    if InStr( Groesse.GetText, distance1 ) = false then Warnlog "Something wrong with the size in first paragraph"
-'    Groesse.GetText <> distance1 then Warnlog "Something wrong with the size in first paragraph"
-    if SchattenFarbe.GetSelIndex <> 2 then Warnlog "Something wrong in shadow color in the first paragraph"
-
-    TabUmrandung.Cancel
-
-    Call wTypeKeys "<MOD1 End>"
-    Call wTypeKeys "<Up>",3
-    
-    '<<<Check the SECOND paragraph's configuration>>>
-    FormatParagraph
-    Kontext
-    active.SetPage TabUmrandung
-    kontext "TabUmrandung"
-    
-    '   if synchronisieren.IsChecked <> TRUE then Warnlog "The Synchronize option should be checked in second paragraph!"
-    
-    if  InStr( Links.GetText, left2 ) = false OR InStr( Rechts.GetText, left2 ) = false OR InStr( Oben.GetText, left2 ) = false OR InStr( Unten.GetText, left2 ) = false then 
-        Warnlog "Something wrong in space to contents area in second paragraph"
-    end if
-    
-    if InStr( Groesse.GetText, distance2 ) = false then Warnlog "Something wrong with the size in first paragraph"
-    if SchattenFarbe.GetSelIndex <> 5 then Warnlog "Something wrong in shadow style area in the first paragraph"
-    
-    TabUmrandung.Cancel
-    
-    Call hCloseDocument
-
-endcase
-
-'-------------------------------------------------------
-
-testcase tScenarioSection_1
-
-   Dim SectionName() as String
-   Dim tempFile as String
-   DIM sectionInMasterDoc
-   Dim MasterDoc    as String
-   DIM ContentInMasterDoc() as String
-   Dim i as integer
-   Dim j as Integer
-   Dim temp1 as String
-   Dim temp2 as String
-   Dim LinkFile as String
-
-  '/// create Masterdocument from another document that also contains sections  ///
-   PrintLog "   - create Masterdocument from another document that also contains sections"
-
-   MasterDoc = Convertpath( gOfficePath + "user\work\tScenarioSection_1.odm" )
-
-   SectionName = Array( _
-                       "tScenarioSection_11.odt", _
-                       "tScenarioSection_12.odt", _
-                       "tScenarioSection_13.odt", _
-                       )
-
-   ContentInMasterDoc = Array( _
-                              "This is scenario Section test" , _
-                              "The content in hide section"   , _
-                              "The content in protect section", _
-                             )
-
-
-   j = UBound(SectionName)
-
-   if FileExists ( MasterDoc ) then app.kill ( MasterDoc )
-
-   For i = 0 to j
-       tempFile =  Convertpath( gOfficePath + "user\work\" + SectionName(i) )
-       if FileExists ( tempFile ) then app.kill ( tempFile )
-   next i
-
-  '/// open testdocument (tScenarioSection_1.sxw) ///
-   hFileOpenLocally(  gTesttoolpath + "writer\optional\input\section\tScenarioSection_1.sxw")
-   
-
-  '/// Select 'File /Send -> Create Masterdocument ///
-   FileSendCreateMasterdocument
-
-  '/// the 'Save as...' dialog has to appear ///
-   Kontext "SendMasterDocument"
-   if SendMasterDocument.NotExists then Warnlog "Save As - Dialog didn't appear!"
-
-  '/// Select as template 'Default' ///
-   Vorlage.Select 1
-
-  '/// Save document as 'tScenarioSection_1.odm' ///
-   Dateiname.SetText Convertpath( gOfficePath + "user\work\tScenarioSection_1" )
-
-   Speichern.Click
-   Sleep 3
-
-   Kontext "Active"
-   if Active.Exists then
-      Active.yes
-   else
-      Warnlog "- No messagebox asking for the actualizationing of the master document !"
-   end if
-   Sleep 1
-
-   Kontext "Navigator"
-   if Navigator.Exists then
-      Navigator.Close
-   else
-      Warnlog "Navigator in Master document isn't up!"
-   end if
-
-   Call wTypeKeys "<Up>" , 3
-
-  '/// Check the sections in MasterDoc
-  '/// 1) check the content is section
-  '/// 2) check the section name
-  '/// 3) check if the section is hidden    (should NOT be hidden)
-  '/// 4) check if the section is protected (should be protected)
-  '/// 5) check if the section is linked and linked file is correct or not   (should be linked)
-
-   For i = 0 to j
-
-      Call wTypeKeys "<Home><Shift End>"
-      EditCopy
-
-      if GetClipboardText = ContentInMasterDoc(i) then
-         Kontext
-         FormatSections
-         Kontext "BereicheBearbeiten"
-
-         if BereichsName.GetText <> SectionName(i) then
-            Warnlog "The first section's name is wrong !"
-            Warnlog "We hope it is " + SectionName(i) + " but get: " +BereichsName.GetText
-         end if
-         if Ausblenden.IsChecked   =   TRUE then Warnlog "The section should NOT be hidden"
-         if Geschuetzt.IsChecked   <>  TRUE then Warnlog "The section should be protected"
-         if Verknuepfung.IsChecked =   TRUE then
-             temp1 = LCase("user/work/" & SectionName(i))
-             temp2 = LCase(Dateiname.GetText)
-
-             if Instr(temp2, temp1) = 0 then Warnlog "The linked file is NOT correct!"
-         else
-             Warnlog "The section should be linked"
-         end if
-         BereicheBearbeiten.Cancel
-      else
-         Warnlog "The content in first section in Master file is wrong!"
-      end if
-
-      Call wTypeKeys "<Down>"
-
-   next i
-
-   Call hCloseDocument
-endcase
-
-'-------------------------------------------------------
-
-testcase tScenarioSection_2
-
-   Dim SectionName() as String
-   Dim tempFile as String
-   DIM sectionInMasterDoc as String
-   Dim MasterDoc as String
-   DIM ContentInMasterDoc() as String
-   Dim i as Integer
-   Dim j as Integer
-   Dim k as Integer
-   Dim sValue as String
-
-  '/// create Masterdocument from another document that also contains sections and footnotes
-   PrintLog "   - create Masterdocument from another document that also contains sections and footnotes"
-
-   MasterDoc = Convertpath( gOfficePath + "user\work\tScenarioSection_2.sxg" )
-
-   SectionName = Array( _
-                       "tScenarioSection_21.odt", _
-                       "tScenarioSection_22.odt", _
-                       "tScenarioSection_23.odt", _
-                       )
-
-   ContentInMasterDoc = Array( _
-                              "This is scenario Section test"                  , _
-                              "FootNote1The content in hide sectionEndNote1"   , _
-                              "FootNote2The content in protect sectionEndNote2", _
-                             )
-
-   j = UBound(SectionName)
-
-   if FileExists ( MasterDoc ) then app.kill ( MasterDoc )
-
-   For i = 0 to j
-       tempFile =  Convertpath( gOfficePath + "user\work\" + SectionName(i) )
-       if FileExists ( tempFile ) then app.kill ( tempFile )
-   next i
-
-  '/// open testdocument (tScenarioSection_2.sxw) ///
-   hFileOpenLocally(  gTesttoolpath + "writer\optional\input\section\tScenarioSection_2.sxw")
-   
-
-  '/// Select 'File -> Send -> Create Masterdocument ///
-   FileSendCreateMasterdocument
-
-  '/// the 'Save as...' dialog has to appear ///
-   Kontext "SendMasterDocument"
-   if SendMasterDocument.NotExists then Warnlog "Save As - Dialog didn't appear!"
-
-  '/// Select as template 'Default' ///
-   Vorlage.Select 1
-
-  '/// Save document as 'masterdoc.odm' ///
-   Dateiname.SetText Convertpath( gOfficePath + "user\work\tScenarioSection_2" )
-
-   Speichern.Click
-   Sleep 3
-
-   Kontext "Active"
-   if Active.Exists then
-      Active.yes
-   else
-      Warnlog "- No messagebox asking for the actualizationing of the master document !"
-   end if
-   Sleep 1
-
-   Kontext "Active"
-   if Active.Exists(5) then
-       Active.Yes
-   end if
-
-   Kontext "Navigator"
-   if Navigator.Exists then
-      Navigator.Close
-   else
-      Warnlog "Navigator in Master document isn't up!"
-   end if
-
-   Call wTypeKeys "<Up>" , 3
-
-  '/// Check the sections in MasterDoc
-  '/// 1) check the content is section
-  '/// 2) check the section name
-  '/// 3) check if the section is hidden    (should NOT be hidden)
-  '/// 4) check if the section is protected (should be protected)
-  '/// 5) check if the section is linked and linked file is correct or not (should be linked)
-
-   For i = 0 to j
-
-      Call wTypeKeys "<Home><Shift End>"
-      EditCopy
-
-      if GetClipboardText = ContentInMasterDoc(i) then
-         Kontext
-         FormatSections
-         Kontext "BereicheBearbeiten"
-
-         if BereichsName.GetText <> SectionName(i) then
-            Warnlog "The first section's name is wrong !"
-            Warnlog "We hope it is " + SectionName(i) + " but get: " +BereichsName.GetText
-         end if
-
-		if Ausblenden.IsChecked   =   TRUE then Warnlog "The section should NOT be hidden"
-		if Geschuetzt.IsChecked   <>  TRUE then Warnlog "The section should be protected"
-		if Verknuepfung.IsChecked =   TRUE then
-			sValue = ConvertPath ( gOfficePath & "user/work/" + SectionName(i) )
-			if Instr( ConvertPath(Dateiname.Gettext), sValue) = false then
-			 	Warnlog "The linked file is NOT correct!"
-			end if				
-		else
-        	Warnlog "The section should be linked"
-        end if
-        BereicheBearbeiten.Cancel
-      else
-         Warnlog "The content in first section in Master file is wrong!"
-      end if
-
-      Call wTypeKeys "<Down>"
-
-   next i
-
-   Call hCloseDocument
-
-endcase
-
-'----------------------------------------------
-
-testcase tCTLSection_1
-
-  '/// CTL specials Check  -- insert/sections  ///
-   PrintLog "   - CTL specials -- insert/sections  "
-
-   Call hNewDocument
-
-  '/// 1)Switch on "Complex scripts support" in Tools/Options/Language Settings/Languages
-   ActiveDeactivateCTLSupport(True)
-
-  '/// 2)Insert/sections / Columns
-   InsertSection
-   Sleep 1
-   Kontext
-   Active.Setpage TabSpalten
-   Kontext "TabSpalten"
-
-  '/// 3)Check if text direction listbox is visible
-   if (TextDirection.Exists) then
-
-      '/// 4)Check the default name
-       if TextDirection.GetSelIndex <> 3 then
-          Warnlog "The default name we hope is :" + TextDirection.GetItemText(3) +" but get: "+TextDirection.GetSelText
-       end if
-
-      '/// 5)Check the available values ( Should 3 items )
-          if TextDirection.GetItemCount <> 3 then
-              Warnlog "The values in TextDirection should be 3, but get " +TextDirection.GetItemCount
-          end if
-
-   else
-       Warnlog "the textdirection listbox doesn't exist!"
-   end if
-
-   TabSpalten.Cancel
-
-  'Recover to default
-   ActiveDeactivateCTLSupport(False)
-
-   Call hCloseDocument
-
-endcase
-
-'-------------------------------------------------------
-
-testcase tCTLSection_2
-
-   Dim SectionName as String
-
-   SectionName =  "CTLSection"
-
-  '/// CTL specials -- format/section/options /Columns ///
-   PrintLog "   - CTL specials -- format/section/options /Columns "
-
-   Call hNewDocument
-
-  '/// 1)Switch on "Complex scripts support" in Tools/Options/Language Settings/Languages
-   ActiveDeactivateCTLSupport(True)
-
-  '/// 2)Insert a section
-   Call fInsertSection(SectionName)
-
-  '/// 3)format/section/options /Columns
-   Kontext
-   FormatSections
-   Kontext "BereicheBearbeiten"
-   Optionen.Click
-
-   Kontext
-   Active.Setpage TabSpalten
-   Kontext "TabSpalten"
-
-  '/// 4)Check if text direction listbox is visible
-   if (TextDirection.Exists) then
-
-      '/// 5)Check the default name
-       if TextDirection.GetSelIndex <> 3 then
-          Warnlog "The default name we hope is :" + TextDirection.GetItemText(3) +" but get: "+TextDirection.GetSelText
-       end if
-
-      '/// 6)Check the available values ( Should 3 items )
-       if TextDirection.GetItemCount <> 3 then
-           Warnlog "The values in TextDirection should be 3, but get " +TextDirection.GetItemCount
-       end if
-
-   else
-       Warnlog "the textdirection listbox doesn't exist!"
-   end if
-
-   TabSpalten.Cancel
-
-   Kontext
-   Kontext "BereicheBearbeiten"
-   BereicheBearbeiten.Cancel
-
-  'Recover to default
-   ActiveDeactivateCTLSupport(False)
-
-   Call hCloseDocument
-
-endcase
diff --git a/testautomation/writer/optional/includes/section/w_section_tools.inc b/testautomation/writer/optional/includes/section/w_section_tools.inc
deleted file mode 100644
index 2d441cad8450..000000000000
--- a/testautomation/writer/optional/includes/section/w_section_tools.inc
+++ /dev/null
@@ -1,186 +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 : helge.delfs@oracle.com
-'*
-'* short description :  tools/functions for the Section-testing
-'*
-'************************************************************************
-'*
-' #1 fInsertSection
-' #1 fInsertBookmark
-' #1 fInsertFootnote
-' #1 fInsertEndnote
-' #1 fInsertTable
-' #1 fCloseNavigator
-' #1 fCheckDirectCursor
-' #1 fMultiSelection
-'*
-'\***********************************************************************
-
-'******************************************************
-'* insert a section with name SectionName            **
-'******************************************************
-function fInsertSection(SectionName as string)
-   InsertSection
-   wait 500
-   Kontext
-   Active.Setpage TabBereiche
-   Kontext "TabBereiche"
-   Bereichsliste.Settext SectionName
-   TabBereiche.OK
-   wait 500
-end function
-
-'******************************************************
-'* insert a bookmark with name                       **
-'******************************************************
-function fInsertBookmark(BookmarkName as string)
-
-    InsertBookmark
-    Kontext
-    Kontext "TextmarkeEinfuegen"
-    Textmarken.SetText BookmarkName
-    TextmarkeEinfuegen.OK
-
-end function
-
-
-'******************************************************
-'*    insert a footnote                              **
-'******************************************************
-function fInsertFootnote(Numbering as string , ConTentInCharater as String)
-
-   InsertFootnote
-   Kontext "FussnoteEinfuegen"
-
-   ' check footnote
-   Fussnote.Check
-
-   Select Case Numbering
-    Case "automatic" : Automatisch.Check
-    Case "character" : Zeichen.Check
-                       ZeichenText.SetText ConTentInCharater
-    Case else : Warnlog "Maybe new options! :-)"
-                Automatisch.Check
-   end select
-
-   FussnoteEinfuegen.OK
-
-end function
-
-
-'******************************************************
-'* insert a endnote                                  **
-'******************************************************
-function fInsertEndnote(Numbering as string , ConTentInCharater as String)
-
-   InsertFootnote
-   Kontext "FussnoteEinfuegen"
-
-   ' check endnote
-   Endnote.Check
-
-   Select Case Numbering
-    Case "automatic" : Automatisch.Check
-    Case "character" : Zeichen.Check
-                       ZeichenText.SetText ConTentInCharater
-    Case else : Warnlog "Maybe new options! :-)"
-                Automatisch.Check
-   end select
-
-   FussnoteEinfuegen.OK
-
-end function
-
-
-'******************************************************
-'* insert a table with name TableName                **
-'* Column is table's column's number                 **
-'* Row    is table's row   's number                 **
-'******************************************************
-function fInsertTable(TableName as string, ColumnNumber as string, RowNumber as string)
-
-   InsertTableWriter
-   Sleep 1
-   Kontext "TabelleEinfuegenWriter"
-   TabellenName.SetText TableName
-
-   Spalten.SetText ColumnNumber
-   Zeilen.SetText  RowNumber
-
-   TabelleEinfuegenWriter.OK
-
-end function
-
-'*******************************************************
-'* Close Navigator                                    **
-'*******************************************************
-function fCloseNavigator
-
-   Kontext
-   Kontext "Navigator"
-   try
-    Navigator.Close
-   catch
-    Warnlog "Could not close Navigator!"
-   endcatch
-
-end function
-
-'*******************************************************
-'*  Open options and check 'Direct-Cursor' in options **
-'*******************************************************
-function fCheckDirectCursor
-
-    ToolsOptions
-    Call hToolsOptions("WRITER","FormattingAids")
-    Zonen_Cursor.Check
-    Kontext "ExtrasOptionenDlg"
-    ExtrasOptionenDlg.OK
-
-end function
-
-
-'*********************************************************
-'*  This function is evaluated multisection             **
-'*  selectString is the selected string in the text     **
-'*  There must be more than 2 selectStrings in the text **
-'*********************************************************
-function fMultiSelection(selectedString as String)
-
-   Kontext
-   EditSearchAndReplace
-   Kontext "FindAndReplace"
-
-   SearchFor.SetText selectedString
-   SearchAll.Click
-   Sleep 1
-
-   FindAndReplace.Close
-
-end function
diff --git a/testautomation/writer/optional/includes/shortcut/w_shortcuts.inc b/testautomation/writer/optional/includes/shortcut/w_shortcuts.inc
deleted file mode 100644
index da1b7dd1704c..000000000000
--- a/testautomation/writer/optional/includes/shortcut/w_shortcuts.inc
+++ /dev/null
@@ -1,859 +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 : helge.delfs@oracle.com
-'*
-'* short description : Shortcut-test in writer
-'*
-'************************************************************************
-'*
-'*    tShortcutGlobalNew
-'*    tShortcutGlobalOpen
-'*    tShortcutGlobalSave
-'*    tShortcutGlobalSaveAs
-'*    tShortcutSelectAll
-'*    tShortcutFindAndReplace
-'*    tShortcutBold
-'*    tShortcutItalic
-'*    tShortcutUnderline
-'*    tShortcutDoubleUnderline
-'*    tShortcutAlign
-'*    tShortcutSuperscript
-'*    tShortcutSubscript
-'*
-'\***********************************************************************
-
-sub w_shortcuts
-
-    Call tShortcutGlobalNew
-    Call tShortcutGlobalOpen
-    Call tShortcutGlobalSave
-    Call tShortcutGlobalSaveAs
-    Call tShortcutSelectAll
-    Call tShortcutFindAndReplace
-    Call tShortcutBold
-    Call tShortcutItalic
-    Call tShortcutUnderline
-    Call tShortcutDoubleUnderline
-    Call tShortcutAlign
-    Call tShortcutSuperscript
-    Call tShortcutSubscript
-
-end sub
-
-testcase tShortcutGlobalNew
-    Dim vShortcut as string
-    Dim vNoOfDocs as integer
-    '/// This testcases checks the global shortcut -> New
-
-    '/// Open a new text document
-    Call hNewDocument
-    Select Case iSprache
-        Case 01, 03, 07, 49, 31, 33, 36, 39, 46, 55, 86, 82, 81
-            '/// Shortcut for 'New' in en/sv/pt-BR is <Strg+N>
-            '/// Shortcut for 'New' in de is <Strg+N>
-            '/// Shortcut for 'New' in fr is <Strg+N>
-            '/// Shortcut for 'New' in it is <Strg+N>
-            vShortcut = "<Mod1 N>"
-        Case 34
-            '/// Shortcut for 'New' in es is <Strg+U>
-            vShortcut = "<Mod1 U>"
-        Case else
-            Warnlog "Shortcuts for language: " & iSprache & " are not defined in this test"
-            Call hCloseDocument
-            goto endsub
-    end select
-    
-    vNoOfDocs = GetDocumentCount
-    '/// After executing previous named shortcut a new document should be opened
-    Call wTypeKeys ( vShortcut )
-    wait 500
-    if GetDocumentCount = (vNoOfDocs + 1) then
-        printlog "Shortcut " & vShortcut & " opens a new document!"
-        '/// close document
-        Call hCloseDocument
-    else
-        Warnlog "Shortcut " & vShortcut & " didn't open a new document!"
-    end if
-    '/// Close document opened on start
-    Call hCloseDocument
-
-endcase
-
-' --------------------------------------------------------------------------------
-
-testcase tShortcutGlobalOpen
-    Dim vShortcut as string
-    '/// This testcases checks the global shortcut -> Open
-
-    '/// Open a new text document
-    Call hNewDocument
-    Select Case iSprache
-        Case 01, 03, 07, 49, 31, 33, 39, 36, 46, 55, 86, 82, 81
-            '/// Shortcut for 'Open' in en/sv/pt-BR is <Strg+O>
-            '/// Shortcut for 'Open' in de is <Strg+O>
-            '/// Shortcut for 'Open' in fr is <Strg+O>
-            '/// Shortcut for 'Open' in it is <Strg+O>
-            vShortcut = "<Mod1 O>"
-        Case 34
-            '/// Shortcut for 'Open' in es is <Strg+A>
-            vShortcut = "<Mod1 A>"
-        Case else
-            Warnlog "Shortcuts for language: " & iSprache & " are not defined in this test"
-            Call hCloseDocument
-            goto endsub
-    end select
-    
-    '/// After executing previous named shortcut FileOpen dialog should be opened
-    Call wTypeKeys ( vShortcut )
-    wait 500
-    Kontext "OeffnenDlg"
-    if OeffnenDlg.Exists then
-        printlog "Shortcut " & vShortcut & " opens FileOpen dialog"
-        '/// close FileOpenDialog
-        OeffnenDlg.Cancel
-    else
-        printlog "Shortcut " & vShortcut & " didn't open FileOpen dialog"
-    end if
-    '/// Close document opened on start
-    Call hCloseDocument
-
-endcase
-
-' --------------------------------------------------------------------------------
-
-testcase tShortcutGlobalSave
-    Dim vShortcut as string
-    '/// This testcases checks the global shortcut -> Save
-    '/// Open a new text document
-    Call hNewDocument
-    Select Case iSprache
-        Case 01, 03, 07, 49, 31, 33, 36, 39, 46, 55, 86, 82, 81
-            '/// Shortcut for 'Save' in en/sv/pt-BR is <Strg+S>
-            '/// Shortcut for 'Save' in de is <Strg+S>
-            '/// Shortcut for 'Save' in fr is <Strg+S>
-            '/// Shortcut for 'Save' in it is <Strg+S>
-            vShortcut = "<Mod1 S>"
-        Case 34
-            '/// Shortcut for 'Save' in es is <Strg+G>
-            vShortcut = "<Mod1 G>"
-        Case else
-            Warnlog "Shortcuts for language: " & iSprache & " are not defined in this test"
-            Call hCloseDocument
-            goto endsub
-    end select
-    
-    '/// After executing previous named shortcut FileSave dialog should be opened
-    Call wTypeKeys ( vShortcut )
-    Kontext "SpeichernDlg"
-    if SpeichernDlg.Exists then
-        printlog "Shortcut " & vShortcut & " opens FileSave dialog"
-        '/// close FileOpenDialog
-        SpeichernDlg.Cancel
-    else
-        printlog "Shortcut " & vShortcut & " didn't open FileSave dialog"
-    end if
-    '/// Close document opened on start
-    Call hCloseDocument
-
-endcase
-
-' --------------------------------------------------------------------------------
-
-testcase tShortcutGlobalSaveAs
-    Dim vShortcut as string
-    '/// This testcases checks the global shortcut -> Save
-
-    '/// Open a new text document
-    Call hNewDocument
-    vShortcut = "<Mod1 Shift S>"
-    
-    '/// After executing previous named shortcut FileSave dialog should be opened
-    Call wTypeKeys ( vShortcut )
-    Kontext "SpeichernDlg"
-    if SpeichernDlg.Exists then
-        printlog "Shortcut " & vShortcut & " opens FileSaveAs dialog"
-        '/// close FileOpenDialog
-        SpeichernDlg.Cancel
-    else
-        printlog "Shortcut " & vShortcut & " didn't open FileSaveAs dialog"
-    end if
-    '/// Close document opened on start
-    Call hCloseDocument
-
-endcase
-
-' --------------------------------------------------------------------------------
-
-testcase tShortcutSelectAll
-    Dim vShortcut as string
-    '/// This testcases checks the shortcut -> Select All
-
-    '/// Open a new text document
-    Call hNewDocument
-    Select Case iSprache
-        Case 01, 03, 07, 49, 31, 33, 36, 39, 46, 55, 86, 82, 81
-            '/// Shortcut for 'Select All' in en/sv/pt-BR is <Strg+A>
-            '/// Shortcut for 'Select All' in de is <Strg+A>
-            '/// Shortcut for 'Select All' in fr is <Strg+A>
-            '/// Shortcut for 'Select All' in it is <Strg+A>
-            vShortcut = "<Mod1 A>"
-        Case 34
-            '/// Shortcut for 'Select All' in es is <Strg+E>
-            vShortcut = "<Mod1 E>"
-        Case else
-            Warnlog "Shortcuts for language: " & iSprache & " are not defined in this test"
-            Call hCloseDocument
-            goto endsub
-    end select
- 
-    '/// write down 'The complete text should be selected'
-    Call wTypeKeys ( "The complete text should be selected" )
-    '/// execute shortcut->the complete text should be selected
-    Call wTypeKeys ( vShortcut )
-    wait 500
-    try
-        EditCopy
-    catch
-        Warnlog "Text seems not to be selected! Edit / Copy is disabled"
-        Call hCloseDocument
-        goto endsub
-    endcatch
-    
-    if GetClipboardText <> "The complete text should be selected" then
-        Warnlog "Not all of the text has been selected with shortcut " & vShortcut
-    else
-        printlog "All of the text has been selected!"
-    end if
-    
-    '/// close document previously opened
-    Call hCloseDocument
-
-endcase
-
-' --------------------------------------------------------------------------------
-
-testcase tShortcutFindAndReplace
-    Dim vShortcut as string
-    '/// This testcases checks the shortcut -> Find & Replace and Repeat Search
-    '/// Open a new text document
-    Call hNewDocument
-    '///  Check shortcut to open 'Find & Replace' dialog
-    Select Case iSprache
-        Case 01, 03, 07, 49, 31, 33, 36, 39, 46, 55, 86, 82, 81
-            '/// Shortcut for 'Find & Replace' in en/sv/pt-BR is <Strg+F>
-            '/// Shortcut for 'Find & Replace' in de is <Strg+F>
-            '/// Shortcut for 'Find & Replace' in fr is <Strg+F>
-            '/// Shortcut for 'Find & Replace' in it is <Strg+F>
-            vShortcut = "<Mod1 F>"
-        Case 34
-            '/// Shortcut for 'Find & Replace' in es is <Strg+B>
-            vShortcut = "<Mod1 B>"
-        Case else
-            Warnlog "Shortcuts for language: " & iSprache & " are not defined in this test"
-            Call hCloseDocument
-            goto endsub
-    end select
-    
-    printlog "Shortcut for 'Find & Replace'"
-    '/// write down 'Check Find & Replace'
-    Call wTypeKeys ( "Check Find & Replace" )
-    '/// execute shortcut->the Find & Replace dialog should come up
-    Call wTypeKeys ( vShortcut )
-    wait 500
-    Kontext "FindAndReplace"
-    if FindAndReplace.Exists then
-        printlog "Shortcut " & vShortcut & " opens Find & Replace dialog"
-        FindAndReplace.Cancel
-    else
-        printlog "Shortcut " & vShortcut & " didn't open Find & Replace dialog"
-    end if
-    
-    '///  Check shortcut to Repeat search
-    Select Case iSprache
-        Case 01, 03, 07, 49, 31, 33, 36, 39, 46, 55, 86, 82, 81
-            '/// Shortcut for 'Repeat Search' in en/sv/pt-BR is <Strg+Shift+F>
-            '/// Shortcut for 'Repeat Search' in de is <Strg+Shift+F>
-            '/// Shortcut for 'Repeat Search' in fr is <Strg+Shift+F>
-            '/// Shortcut for 'Repeat Search' in it is <Strg+Shift+F>
-            vShortcut = "<Mod1 Shift F>"
-        Case 34
-            '/// Shortcut for 'Find & Replace' in es is <Strg+N>
-            vShortcut = "<Mod1 B>"
-        Case else
-            Warnlog "Shortcuts for language: " & iSprache & " are not defined in this test"
-            Call hCloseDocument
-            goto endsub
-    end select
- 
-    printlog "Shortcut for 'Repeat Search'"
-    '/// execute shortcut->a messagebox should appear asking to start from the beginning
-    Call wTypeKeys ( vShortcut )
-    wait 500    
-    Kontext "Active"
-    if Active.Exists then
-        if Active.GetRT = 304 then
-            try
-                Active.Yes
-                printlog "Shortcut " & vShortcut & " seems to work"
-            catch
-                Active.Ok
-                printlog "Shortcut " & vShortcut & " seems not to work correctly"
-            endcatch
-        end if
-    end if
-    '/// Quitting messagebox with 'Yes' should bring up another Messagebox
-    if Active.Exists then
-        if Active.GetRT = 304 then
-            Active.Ok
-        end if
-    end if  
-    
-    '/// close document previously opened
-    Call hCloseDocument
-    
-endcase
-
-' --------------------------------------------------------------------------------
-
-testcase tShortcutBold
-    Dim vShortcut as string
-    '/// This testcases checks the shortcut -> Bold
-    '/// Open a new text document
-    Call hNewDocument
-    Select Case iSprache
-        Case 01, 03, 07, 31, 36, 39, 46, 55, 86, 82, 81
-            '/// Shortcut for 'Bold' in en/sv/pt-BR is <Strg+B>
-            '/// Shortcut for 'Bold' in it is <Strg+B>
-            vShortcut = "<Mod1 B>"
-        Case 49
-            '/// Shortcut for 'Bold' in de is <Strg+Shift+F>
-            vShortcut = "<Mod1 Shift F>"
-        Case 33
-            '/// Shortcut for 'Bold' in fr is <Strg+G>
-            vShortcut = "<Mod1 G>"
-        Case 34
-            '/// Shortcut for 'Bold' in es is <Strg+N>
-            vShortcut = "<Mod1 N>"
-        Case else
-            Warnlog "Shortcuts for language: " & iSprache & " are not defined in this test"
-            Call hCloseDocument
-            goto endsub
-    end select
-
-    '/// write down word 'Bold' and select it
-    Call wTypeKeys ( "Bold" )
-    Call wTypeKeys ( "<Shift Home>" )
-    '/// execute shortcut and check if word is now formatted as 'Bold'
-    Call wTypeKeys ( vShortcut )
-    wait 500
-    Kontext "TextObjectbar"
-    if Fett.Getstate(2) = 1 then
-        printlog "Shortcut " & vShortcut & " to format 'Bold' works"
-    else
-        Warnlog "Shortcut " & vShortcut & " to format 'Bold' doesn't work"
-    end if
-    
-    '/// close previous opened document
-    Call hCloseDocument
-
-endcase
-
-' --------------------------------------------------------------------------------
-
-testcase tShortcutItalic
-    Dim vShortcut as string
-    '/// This testcases checks the shortcut -> Italic
-    '/// Open a new text document
-    Call hNewDocument
-    Select Case iSprache
-        Case 01, 03, 07, 31, 33, 36, 39, 46, 55, 86, 82, 81
-            '/// Shortcut for 'Italic' in en/sv/pt-BR is <Strg+I>
-            '/// Shortcut for 'Italic' in fr is <Strg+I>
-            '/// Shortcut for 'Italic' in it is <Strg+I>
-            vShortcut = "<Mod1 I>"
-        Case 49
-            '/// Shortcut for 'Italic' in de is <Strg+Shift+K>
-            vShortcut = "<Mod1 Shift K>"
-        Case 34
-            '/// Shortcut for 'Italic' in es is <Strg+K>
-            vShortcut = "<Mod1 K>"
-        Case else
-            Warnlog "Shortcuts for language: " & iSprache & " are not defined in this test"
-            Call hCloseDocument
-            goto endsub
-    end select
-
-    '/// write down word 'Italic' and select it
-    Call wTypeKeys ( "Italic" )
-    Call wTypeKeys ( "<Shift Home>" )
-    '/// execute shortcut and check if word is now formatted as 'Italic'
-    Call wTypeKeys ( vShortcut )
-    wait 500
-    Kontext "TextObjectbar"
-    if Kursiv.Getstate(2) = 1 then
-        printlog "Shortcut " & vShortcut & " to format 'Italic' works"
-    else
-        Warnlog "Shortcut " & vShortcut & " to format 'Italic' doesn't work"
-    end if
-    
-    '/// close previous opened document
-    Call hCloseDocument
-
-endcase
-
-' --------------------------------------------------------------------------------
-
-testcase tShortcutUnderline
-    Dim vShortcut as string
-    '/// This testcases checks the shortcut -> Underline
-    '/// Open a new text document
-    Call hNewDocument
-    Select Case iSprache
-        Case 01, 03, 07, 31, 33, 36, 39, 46, 55, 86, 82, 81
-            '/// Shortcut for 'Underline' in en/sv/pt-BR is <Strg+U>
-            '/// Shortcut for 'Underline' in fr is <Strg+U>
-            '/// Shortcut for 'Underline' in it is <Strg+U>
-            vShortcut = "<Mod1 U>"
-        Case 49
-            '/// Shortcut for 'Underline' in de is <Strg+Shift+U>
-            vShortcut = "<Mod1 Shift U>"
-        Case 34
-            '/// Shortcut for 'Underline' in es is <Strg+S>
-            vShortcut = "<Mod1 S>"
-        Case else
-            Warnlog "Shortcuts for language: " & iSprache & " are not defined in this test"
-            Call hCloseDocument
-            goto endsub
-    end select
-
-    '/// write down word 'Underline' and select it
-    Call wTypeKeys ( "Underline" )
-    Call wTypeKeys ( "<Shift Home>" )
-    '/// execute shortcut and check if word is now formatted as 'Underline'
-    Call wTypeKeys ( vShortcut )
-    wait 500
-    Kontext "TextObjectbar"
-    if Unterstrichen.Getstate(2) = 1 then
-        printlog "Shortcut " & vShortcut & " to format 'Underline' works"
-    else
-        Warnlog "Shortcut " & vShortcut & " to format 'Underline' doesn't work"
-    end if
-    
-    '/// close previous opened document
-    Call hCloseDocument
-
-endcase
-
-' --------------------------------------------------------------------------------
-
-testcase tShortcutDoubleUnderline
-    Dim vShortcut as string
-    '/// This testcases checks the shortcut -> Double Underline
-    '/// Open a new text document
-    Call hNewDocument
-    Select Case iSprache
-        Case 01, 03, 07, 31, 33, 34, 36, 39, 49, 46, 55, 86, 82, 81
-            '/// Shortcut for 'Underline' in en/sv/pt-BR is <Strg+D>
-            '/// Shortcut for 'Underline' in fr is <Strg+D>
-            '/// Shortcut for 'Underline' in es is <Strg+D>
-            '/// Shortcut for 'Underline' in it is <Strg+D>
-            '/// Shortcut for 'Underline' in de is <Strg+D>
-            vShortcut = "<Mod1 D>"
-        Case else
-            Warnlog "Shortcuts for language: " & iSprache & " are not defined in this test"
-            Call hCloseDocument
-            goto endsub
-    end select
-
-    '/// write down word 'Underline' and select it
-    Call wTypeKeys ( "Double Underline" )
-    Call wTypeKeys ( "<Shift Home>" )
-    '/// execute shortcut and check if word is now formatted as 'Double Underline'
-    Call wTypeKeys ( vShortcut )
-    wait 500
-    FormatCharacter
-    Kontext
-    Active.Setpage TabFontEffects
-    Kontext "TabFontEffects"
-    if Underline.GetSelIndex <> 3 then
-        Warnlog "Shortcut " & vShortcut & " to format 'Double Underline' doesn't work"
-    else
-        printlog "Shortcut " & vShortcut & " to format 'Double Underline' works"
-    end if
-
-    TabFontEffects.Cancel
-    
-    '/// close previous opened document
-    Call hCloseDocument
-
-endcase
-
-' --------------------------------------------------------------------------------
-
-testcase tShortcutAlign
-    Dim vShortcut as string
-    '/// This testcases checks the shortcuts -> Align Left, Right, Centered, Justified
-
-    '/// Open a new text document
-    printlog "- Shortcut 'Align Left'"
-    Call hNewDocument
-    '/// "- Shortcut 'Align Left'"
-    Select Case iSprache
-        Case 01, 03, 07, 31, 33, 34, 36, 39, 49, 46, 55, 86, 82, 81
-            '/// Shortcut for 'Align Left' in en/sv/pt-BR is <Strg+L>
-            '/// Shortcut for 'Align Left' in fr is <Strg+L>
-            '/// Shortcut for 'Align Left' in es is <Strg+L>
-            '/// Shortcut for 'Align Left' in it is <Strg+L>
-            '/// Shortcut for 'Align Left' in de is <Strg+L>
-            vShortcut = "<Mod1 L>"
-        Case else
-            Warnlog "Shortcuts for language: " & iSprache & " are not defined in this test"
-            Call hCloseDocument
-            goto endsub
-    end select
-
-    '/// write down word 'Align Left'
-    Call wTypeKeys ( "Align Left" )
-    '/// execute shortcut and check if word is now aligned left
-    Call wTypeKeys ( vShortcut )
-    wait 500
-    Kontext "TextObjectbar"
-    if Linksbuendig.Getstate(2) = 1 then
-        printlog "-  Shortcut " & vShortcut & " to 'Align Left' works"
-    else
-        Warnlog "-  Shortcut " & vShortcut & " to 'Align Left' doesn't work"
-    end if
-
-    '/// "- Shortcut 'Align Right'"
-    printlog "- Shortcut 'Align Right'"
-    Select Case iSprache
-        Case 01, 03, 07, 31, 33, 34, 36, 39, 49, 46, 55, 86, 82, 81
-            '/// Shortcut for 'Align Right' in en/sv/pt-BR is <Strg+R>
-            '/// Shortcut for 'Align Right' in fr is <Strg+R>
-            '/// Shortcut for 'Align Right' in es is <Strg+R>
-            '/// Shortcut for 'Align Right' in it is <Strg+R>
-            '/// Shortcut for 'Align Right' in de is <Strg+R>
-            vShortcut = "<Mod1 R>"
-        Case else
-            Warnlog "Shortcuts for language: " & iSprache & " are not defined in this test"
-            Call hCloseDocument
-            goto endsub
-    end select
-
-    '/// Insert a line break
-    Call wTypeKeys ( "<Return>" )
-    '/// write down word 'Align Right'
-    Call wTypeKeys ( "Align Right" )
-    '/// execute shortcut and check if word is now aligned right
-    Call wTypeKeys ( vShortcut )
-    wait 500
-    Kontext "TextObjectbar"
-    if Rechtsbuendig.Getstate(2) = 1 then
-        printlog "-  Shortcut " & vShortcut & " to 'Align Right' works"
-    else
-        Warnlog "-  Shortcut " & vShortcut & " to 'Align Right' doesn't work"
-    end if
-
-    '/// "- Shortcut 'Align Centered'"
-    printlog "- Shortcut 'Align Centered'"
-    Select Case iSprache
-        Case 01, 03, 07, 31, 33, 36, 39, 49, 46, 55, 86, 82, 81
-            '/// Shortcut for 'Align Centered' in en/sv/pt-BR is <Strg+E>
-            '/// Shortcut for 'Align Centered' in fr is <Strg+E>
-            '/// Shortcut for 'Align Centered' in it is <Strg+E>
-            '/// Shortcut for 'Align Centered' in de is <Strg+E>
-            vShortcut = "<Mod1 E>"
-        case 34
-            '/// Shortcut for 'Align Centered' in es is <Strg+T>
-            vShortcut = "<Mod1 T>"
-        Case else
-            Warnlog "Shortcuts for language: " & iSprache & " are not defined in this test"
-            Call hCloseDocument
-            goto endsub
-    end select
-
-    '/// Insert a line break
-    Call wTypeKeys ( "<Return>" )
-    '/// write down word 'Align Right'
-    Call wTypeKeys ( "Align Centered" )
-    '/// execute shortcut and check if word is now aligned centered
-    Call wTypeKeys ( vShortcut )
-    wait 500
-    Kontext "TextObjectbar"
-    if Zentriert.Getstate(2) = 1 then
-        printlog "-  Shortcut " & vShortcut & " to 'Align Centered' works"
-    else
-        Warnlog "-  Shortcut " & vShortcut & " to 'Align Centered' doesn't work"
-    end if
-
-    '/// "- Shortcut 'Align Justified'"
-    printlog "- Shortcut 'Align Justified'"
-    Select Case iSprache
-        Case 01, 03, 07, 31, 33, 34, 36, 39, 46, 55, 86, 82, 81
-            '/// Shortcut for 'Align Justified' in en/sv/pt-BR is <Strg+J>
-            '/// Shortcut for 'Align Justified' in fr is <Strg+J>
-            '/// Shortcut for 'Align Justified' in it is <Strg+J>
-            '/// Shortcut for 'Align Justified' in de is <Strg+J>
-            vShortcut = "<Mod1 J>"
-        case 49
-            '/// Shortcut for 'Align Justified' in de is <Strg+B>
-            vShortcut = "<Mod1 B>"
-        Case else
-            Warnlog "Shortcuts for language: " & iSprache & " are not defined in this test"
-            Call hCloseDocument
-            goto endsub
-    end select
-
-    '/// Insert a line break
-    Call wTypeKeys ( "<Return>" )
-    '/// write down word 'Align Right'
-    Call wTypeKeys ( "Align Justified" )
-    '/// execute shortcut and check if word is now aligned centered
-    Call wTypeKeys ( vShortcut )
-    wait 500
-    Kontext "TextObjectbar"
-    if Blocksatz.Getstate(2) = 1 then
-        printlog "-  Shortcut " & vShortcut & " to 'Align Justified' works"
-    else
-        Warnlog "-  Shortcut " & vShortcut & " to 'Align Justified' doesn't work"
-    end if
-
-    '/// close previous opened document
-    Call hCloseDocument
-
-endcase
-
-' --------------------------------------------------------------------------------
-
-testcase tShortcutSuperscript
-    Dim vShortcut as string
-    '/// This testcases checks the shortcut -> Superscript
-    '/// Open a new text document
-    Call hNewDocument
-    Select Case iSprache
-        Case 01, 03, 07, 31, 33, 34, 36, 39, 46, 55, 86, 82, 81
-            '/// Shortcut for 'Superscript' in en/sv/pt-BR is <Strg+D>
-            '/// Shortcut for 'Superscript' in fr is <Strg+D>
-            '/// Shortcut for 'Superscript' in es is <Strg+D>
-            '/// Shortcut for 'Superscript' in it is <Strg+D>
-            vShortcut = "<Mod1 Shift P>"
-        Case 49
-            '/// Shortcut for 'Superscript' in de is <Strg+H>
-            vShortcut = "<Mod1 H>"
-        Case else
-            Warnlog "Shortcuts for language: " & iSprache & " are not defined in this test"
-            Call hCloseDocument
-            goto endsub
-    end select
-
-    Kontext "DrawBar"
-    if Not DrawBar.Exists then Call hToolbarSelect("Drawing", true)
-    '/// Open 'Draw functions' toolbar ///
-    Textobjekt.Click
-    '/// Draw a Textobject ///
-    Call gMouseMove ( 30, 30, 40, 40 )
-    '/// write down word 'Superscript' and select it
-    call wTypeKeys ("Superscript")
-    call wTypeKeys ("<Shift Home>")
-
-    '/// execute shortcut and check if word is now formatted as 'Superscript'
-    Call wTypeKeys ( vShortcut )
-    wait 500
-    FormatCharacter
-    Kontext
-    Active.Setpage TabFontPosition
-    Kontext "TabFontPosition"
-    if Superscript.IsChecked = true then
-        printlog "Shortcut " & vShortcut & " to format 'Superscript' works"
-    else
-        Warnlog "Shortcut " & vShortcut & " to format 'Superscript' doesn't work"
-    end if
-    TabFontPosition.Cancel
-
-    '/// close previous opened document
-    Call hCloseDocument
-
-endcase
-
-' --------------------------------------------------------------------------------
-
-testcase tShortcutSubscript
-    Dim vShortcut as string
-    '/// This testcases checks the shortcut -> Subscript
-    '/// Open a new text document
-    Call hNewDocument
-    Select Case iSprache
-        Case 01, 03, 07, 31, 33, 34, 36, 39, 46, 55, 86, 82, 81
-            '/// Shortcut for 'Subscript' in en/sv/pt-BR is <Strg+Shift+B>
-            '/// Shortcut for 'Subscript' in fr is <Strg+Shift+B>
-            '/// Shortcut for 'Subscript' in es is <Strg+Shift+B>
-            '/// Shortcut for 'Subscript' in it is <Strg+Shift+B>
-            vShortcut = "<Mod1 Shift B>"
-        Case 49    
-            '/// Shortcut for 'Subscript' in de is <Strg+T>
-            vShortcut = "<Mod1 T>"
-        Case else
-            Warnlog "Shortcuts for language: " & iSprache & " are not defined in this test"
-            Call hCloseDocument
-            goto endsub
-    end select
-    
-    Kontext "DrawBar"
-    if Not DrawBar.Exists then Call hToolbarSelect("Drawing", true)
-    '/// Open 'Draw functions' toolbar ///
-    Textobjekt.Click
-    '/// Draw a Textobject ///
-    Call gMouseMove ( 30, 30, 40, 40 )
-    '/// write down word 'Subscript' and select it
-
-    call wTypeKeys ("Subscript")
-    call wTypeKeys ("<Shift Home>")
-
-    '/// execute shortcut and check if word is now formatted as 'Superscript'
-    Call wTypeKeys ( vShortcut )
-    wait 500
-    FormatCharacter
-    Kontext
-    Active.Setpage TabFontPosition
-    Kontext "TabFontPosition"
-    if Subscript.IsChecked = true then
-        printlog "Shortcut " & vShortcut & " to format 'Subscript' works"
-    else
-        Warnlog "Shortcut " & vShortcut & " to format 'Subscript' doesn't work"
-    end if
-    TabFontPosition.Cancel
-
-    '/// close previous opened document
-    Call hCloseDocument
-
-endcase
-
-' --------------------------------------------------------------------------------
-
-testcase tShortcutPasteUnformattedText
-
-	Dim vShortcut as string
-	Dim DefaultSize as integer
-	Dim DefaultStyle as integer
-	
-	printlog "This testcases checks the shortcut -> Paste Unformatted Text"
-	printlog "Open a new text document"
-	Call hNewDocument
-	
-	vShortcut = "<Mod1 Mod2 Shift V>"
-	printlog "Type 'This is a formatted sentence'"
-	Call wTypeKeys ("This is a formatted sentence")
-	
-	printlog "Format the word 'formatted' in bold, italic, font size 20"
-	Call wTypeKeys ("<Home>")
-	Call wTypeKeys ("<Mod1 Right>", 3)
-	Call wTypeKeys ("<Mod1 Shift Right>")	
-	
-	FormatCharacter
-	WaitSlot (5)
-	Kontext	
-	Active.Setpage TabFont
-	Kontext "TabFont"
-    wait 500
-	DefaultSize = Size.GetSelIndex
-	Size.Select 14 ' Size 20
-	DefaultStyle = Style.GetSelIndex
-	Style.Select 4 ' Style Bold, Italic
-	TabFont.Ok
-	
-	printlog "Copy word 'formatted'"
-	EditCopy		
-	
-	printlog "Go to the end of line"
-	Call wTypeKeys ("<End>")
-	printlog "insert a space"
-	Call wTypeKeys ("<Space>")
-	printlog "Press Ctrl+Alt+Shift+V (cmd+option+shift+V on Mac)"
-    Call wTypeKeys ( vShortcut )
-    wait 500
-	
-	Call wTypeKeys ("<Mod1 Home>")
-	printlog "check if sentence is now: This is a formatted sentence formatted"
-	Call wTypeKeys ("<Shift End>")
-	EditCopy
-	if Trim(GetClipboardText) = "This is a formatted sentence formatted" then
-		printlog "- shortcut did work"
-	else
-		if gPlatgroup = "osx" then
-			Warnlog "It is not possible to customize the keyboard combination cmd+option on MAC OSX."
-			Call hCloseDocument
-			goto endsub
-		else
-			Warnlog "Shortcut did not work"
-			Call hCloseDocument
-			goto endsub			
-		end if
-	end if	
-	
-	printlog "Check if formatted word held its formatting"
-	Call wTypeKeys ("<Home>")
-	Call wTypeKeys ("<Mod1 Right>", 3)
-	Call wTypeKeys ("<Mod1 Shift Right>")
-	
-	FormatCharacter
-	WaitSlot (5)
-	Kontext	
-	Active.Setpage TabFont
-	Kontext "TabFont"
-    wait 500
-	if Size.GetSelIndex <> 14 then
-		Warnlog "formatted word has lost its size"
-	endif
-	if Style.GetSelIndex <> 4 then
-		Warnlog "formatted word has lost its style"
-	endif
-	TabFont.Cancel
-	
-	printlog "Check if pasted word has default formatting"
-	Call wTypeKeys ("<End>")
-	Call wTypeKeys ("<Mod1 Right>", 3)
-	Call wTypeKeys ("<Mod1 Shift Left>")
-	
-	FormatCharacter
-	WaitSlot (5)
-	Kontext	
-	Active.Setpage TabFont
-	Kontext "TabFont"
-    wait 500
-	if Size.GetSelIndex <>  DefaultSize then
-		Warnlog "formatted word has no default size"
-	endif
-	if Style.GetSelIndex <> DefaultStyle then
-		Warnlog "formatted word has no default style"
-	endif
-	TabFont.Cancel
-		
-    printlog "close previous opened document"
-    Call hCloseDocument
-
-endcase
diff --git a/testautomation/writer/optional/includes/sorting/w_sorting1.inc b/testautomation/writer/optional/includes/sorting/w_sorting1.inc
deleted file mode 100644
index 70fcbab3f26f..000000000000
--- a/testautomation/writer/optional/includes/sorting/w_sorting1.inc
+++ /dev/null
@@ -1,646 +0,0 @@
-'**************************************************************************
-' 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 : helge.delfs@oracle.com
-'*
-'* short description : Sorting functions in Writer
-'*
-'\***********************************************************************
-
-sub w_sorting
-
-    Call tToolsSort1                         ' Text in one Column and 1 Key
-    Call tToolsSort2                         ' Numbers in 1 Column and 1 Key
-    Call tToolsSort3                         ' Text in several Columns and 3 Keys
-    Call tToolsSort4                         ' Table with Header ( Text and Numbers mixed )
-    Call tToolsSort5                         ' Table without Header ( Text and Numbers mixed )
-    Call tToolsSort6                         ' Copy sorted table in another table
-
-end sub
-
-
-testcase tToolsSort1
-    PrintLog "- Tools / Sort normal Text ( 1. Column )"    
-    Printlog "   - alphanumeric ascending ( Key 1 )"
-    Call hNewDocument
-    Call wTypeKeys "Ohallo<Return>Ahallo<Return>Ghallo<Return>Zhallo<Return>Shallo"
-    Call wTypeKeys ( "<Mod1 a>" )
-    ToolsSort
-    Kontext "Sortieren"
-    Schluessel1.Check
-    Schluessel2.UnCheck
-    Schluessel3.UnCheck
-    Spalte1.SetText "1"
-    Schluesseltyp1.Select 1
-    Aufsteigend1.Check
-    Sortieren.OK
-    Call AufsteigendKontrollieren ( FALSE )
-
-    Printlog "   - alphanumeric descending ( Key 1 )"
-    Call wTypeKeys ( "<Mod1 a>" )
-    ToolsSort
-    Kontext "Sortieren"
-    Schluessel1.Check
-    Spalte1.SetText "1"
-    Schluesseltyp1.Select 1
-    Absteigend1.Check
-    Sortieren.OK
-    AbsteigendKontrollieren ( FALSE )
-
-    Printlog "   - alphanumeric ascending ( Key 2 )"
-    Call wTypeKeys "<Mod1 a>"
-    Call wTypeKeys "<Delete>"
-    Sleep 1
-    Call wTypeKeys "Ohallo<Return>Ahallo<Return>Ghallo<Return>Zhallo<Return>Shallo"
-    Call wTypeKeys ( "<Mod1 a>" )
-    ToolsSort
-    Kontext "Sortieren"
-    Schluessel2.Check
-    Schluessel1.Uncheck
-    Schluessel3.UnCheck
-    Spalte2.SetText "1"
-    Schluesseltyp2.Select 1
-    Aufsteigend2.Check
-    Sortieren.OK
-    Call AufsteigendKontrollieren ( FALSE )
-
-    Printlog "   - alphanumeric descending ( Key 2 )"
-    Call wTypeKeys "<Mod1 a>"
-    ToolsSort
-    Kontext "Sortieren"
-    Spalte2.SetText "1"
-    Schluesseltyp2.Select 1
-    Absteigend2.Check
-    Sortieren.OK
-    AbsteigendKontrollieren ( FALSE )
-
-    Printlog "   - alphanumeric ascending ( Key 3 )"
-    Call wTypeKeys "<Mod1 a>"
-    Call wTypeKeys "<Delete>"
-    Sleep 1
-    Call wTypeKeys "Ohallo<Return>Ahallo<Return>Ghallo<Return>Zhallo<Return>Shallo"
-    Call wTypeKeys ( "<Mod1 a>" )
-    ToolsSort
-    Kontext "Sortieren"
-    Schluessel3.Check
-    Schluessel1.UnCheck
-    Schluessel2.UnCheck
-    Spalte3.SetText "1"
-    Schluesseltyp3.Select 1
-    Aufsteigend3.Check
-    Sortieren.OK
-    Call AufsteigendKontrollieren ( FALSE )
-
-    Printlog "   - alphanumeric descending ( Key 3 )"
-    Call wTypeKeys "<Mod1 a>"
-    ToolsSort
-    Kontext "Sortieren"
-    Schluessel3.Check
-    Schluessel1.Uncheck
-    Schluessel2.UnCheck
-    Spalte3.SetText "1"
-    Schluesseltyp3.Select 1
-    Absteigend3.Check
-    Sortieren.OK
-    Call AbsteigendKontrollieren ( FALSE )
-
-    Call hCloseDocument
-endcase
-
-' *******************************************************************
-
-testcase tToolsSort2
-    PrintLog "- Tools / Sorting numbers ( 1. Column )"
-
-    Printlog "   - numeric ascending ( Key 1 )"
-    Call hNewDocument
-    Call wTypeKeys "43<Return>54<Return>23<Return>65<Return>56"
-    Call wTypeKeys ( "<Mod1 a>" )
-    ToolsSort
-    Kontext "Sortieren"
-    Schluessel1.Check
-    Spalte1.SetText "1"
-    Schluesseltyp1.Select 2
-    Aufsteigend1.Check
-    Sortieren.OK
-    Call AufsteigendKontrollieren ( TRUE )
-
-    Printlog "   - numeric descending ( Key 1 )"
-    Call wTypeKeys ( "<Mod1 a>" )
-    ToolsSort
-    Kontext "Sortieren"
-    Schluessel1.Check
-    Spalte1.SetText "1"
-    Schluesseltyp1.Select 2
-    Absteigend1.Check
-    Sortieren.OK
-    Call AbsteigendKontrollieren ( TRUE )
-
-    Printlog "   - numeric ascending ( Key 2 )"
-    Call wTypeKeys "<Mod1 a>"
-    Call wTypeKeys "<Delete>"
-    Sleep 1
-    Call wTypeKeys "43<Return>54<Return>23<Return>65<Return>56"
-    Call wTypeKeys ( "<Mod1 a>" )
-    ToolsSort
-    Kontext "Sortieren"
-    Schluessel1.Uncheck
-    Schluessel2.Check
-    Spalte2.SetText "1"
-    Schluesseltyp2.Select 2
-    Aufsteigend2.Check
-    Sortieren.OK
-    Call AufsteigendKontrollieren ( TRUE )
-    
-    Printlog "   - numeric descending ( Key 2 )"
-    Call wTypeKeys ( "<Mod1 a>" )
-    ToolsSort
-    Kontext "Sortieren"
-    Schluessel1.Uncheck
-    Schluessel2.Check
-    Spalte2.SetText "1"
-    Schluesseltyp2.Select 2
-    Absteigend2.Check
-    Sortieren.OK
-    Call AbsteigendKontrollieren ( TRUE )
-
-    Printlog "   - numeric ascending ( Key 3 )"
-    Call wTypeKeys ( "<Mod1 a>" )
-    Call wTypeKeys ( "<Delete>" )
-    Sleep 1
-    Call wTypeKeys "43<Return>54<Return>23<Return>65<Return>56"
-    Call wTypeKeys ( "<Mod1 a>" )
-    ToolsSort
-    Kontext "Sortieren"
-    Schluessel1.Uncheck
-    Schluessel2.UnCheck
-    Schluessel3.Check
-    Spalte3.SetText "1"
-    Schluesseltyp3.Select 2
-    Aufsteigend3.Check
-    Sortieren.OK
-    Call AufsteigendKontrollieren ( TRUE )
-
-    Printlog "   - numeric descending ( Key 3 )"
-    Call wTypeKeys ( "<Mod1 a>" )
-    ToolsSort
-    Kontext "Sortieren"
-    Schluessel1.Uncheck
-    Schluessel2.UnCheck
-    Schluessel3.Check
-    Spalte3.SetText "1"
-    Schluesseltyp3.Select 2
-    Absteigend3.Check
-    Sortieren.OK
-    Call AbsteigendKontrollieren ( TRUE )
-
-    Call hCloseDocument
-endcase
-
-' *******************************************************************
-
-testcase tToolsSort3
-    Dim i as Integer
-    PrintLog "- Tools / Sorting text in several lines"
-    for i=1 to 3
-        select case i
-            case 1: Printlog "  - Separator is a tabulator"
-            case 2: Printlog "  - Separator is a semicolon"
-                    Trennzeichen = ";"
-            case 3: Printlog "  - Separator is a '|'"
-                     Trennzeichen = "|"
-        end select
-        if gApplication = "WRITER" then
-            hFileOpenLocally(  gTesttoolPath + "writer\optional\input\sorting\sort2.odt" )
-        else
-            hFileOpenLocally(  gTesttoolPath + "writer\optional\input\sorting\sort2.odm" )
-        end if
-
-        if i <> 1 then TrennzeichenSetzen ( Trennzeichen )
-
-        Printlog "     - alphanumeric ascending after 1.Column, followed by 4.Column and 3. Column"
-        Call wTypeKeys ( "<Mod1 a>" )
-        ToolsSort
-        Kontext "Sortieren"
-        Schluessel1.Check
-        Spalte1.SetText "1"
-        Schluesseltyp1.Select 1
-        Aufsteigend1.Check
-
-        Schluessel2.Check
-        Spalte2.SetText "4"
-        Schluesseltyp2.Select 1
-        Aufsteigend2.Check
-
-        Schluessel3.Check
-        Spalte3.SetText "3"
-        Schluesseltyp3.Select 1
-        Aufsteigend3.Check
-
-        if i=1 then
-            Tabulator.Check
-        else
-            Zeichen.Check
-            ZeichenText.SetText Trennzeichen
-        end if
-        Sortieren.OK
-        Call AufSortierungPruefen(i)
-        Call UndoRichtigBeiSortierung
-
-        Printlog "     - alphanumeric descending 1.Column, followed by 4. column and 3. column"
-        ToolsSort
-        Kontext "Sortieren"
-        Schluessel1.Check
-        Spalte1.SetText "1"
-        Schluesseltyp1.Select 1
-
-        Schluessel2.Check
-        Spalte2.SetText "4"
-        Schluesseltyp2.Select 1
-
-        Schluessel3.Check
-        Spalte3.SetText "3"
-        Schluesseltyp3.Select 1
-
-        Absteigend1.Check
-        Absteigend2.Check
-        Absteigend3.Check
-        if i=1 then
-            Tabulator.Check
-        else
-            Zeichen.Check
-            ZeichenText.SetText Trennzeichen
-        end if
-        Sortieren.OK
-        Call AbSortierungPruefen(i)
-        Call UndoRichtigBeiSortierung
-        Call hCloseDocument
-    next i
-
-   'Call hCloseDocument
-endcase
-
-' *******************************************************************
-
-testcase tToolsSort4
-    PrintLog "- Tools / Sorting in table with header"
-    if gApplication = "WRITER" then
-        hFileOpenLocally(  gTesttoolPath + "writer\optional\input\sorting\sort1.odt" )
-    else
-        hFileOpenLocally(  gTesttoolPath + "writer\optional\input\sorting\sort1.odm" )
-    end if
-    Call wTypeKeys "<Mod1 a>", 2
-
-    Printlog "   - 3. column alphanum., 1. column num., 3. column alphanum. ascending"
-    ToolsSort
-    Kontext "Sortieren"
-    Schluessel1.Check
-    Spalte1.SetText "3"
-    Schluesseltyp1.Select 1
-
-    Schluessel2.Check
-    Spalte2.SetText "1"
-    Schluesseltyp2.Select 2
-
-    Schluessel3.Check
-    Spalte3.SetText "2"
-    Schluesseltyp3.Select 1
-    Aufsteigend1.Check
-    Aufsteigend2.Check
-    Aufsteigend3.Check
-    if Tabulator.IsEnabled then Warnlog "Tabs is active"
-    if Zeichen.IsEnabled then Warnlog "Char is active"
-    Sortieren.OK
-
-    Printlog "   - Check"
-    Call wTypeKeys "<Mod1 a>", 3   ' Umstellung zur 5.0 Cursor steht nach Sortierung in der letzten Zelle, mit 3*Ctrl_A kommt man in die 1.
-    wait 100
-    EditCopy
-    if GetClipboardText <> "1" then Warnlog "Header of the first column has been sorted"
-    if ZelleRuntertesten("2") = FALSE then Warnlog "1/2 is wrong"
-    if ZelleRuntertesten("4") = FALSE then Warnlog "1/3 is wrong"
-    if ZelleRuntertesten("5") = FALSE then Warnlog "1/4 is wrong"
-    if ZelleRuntertesten("3") = FALSE then Warnlog "1/5 is wrong"
-    if ZelleRuntertesten("6") = FALSE then Warnlog "1/6 is wrong"
-    Call wTypeKeys "<Right>"
-    Call wTypeKeys "<up>", 5
-    Call wTypeKeys "<Mod1 a>"
-    Wait 100
-    EditCopy
-    if GetClipboardText <> "a" then Warnlog "Header of the 2. column has not been sorted"
-    if ZelleRuntertesten("a") = FALSE then Warnlog "2/2 is wrong"
-    if ZelleRuntertesten("b") = FALSE then Warnlog "2/3 is wrong"
-    if ZelleRuntertesten("c") = FALSE then Warnlog "2/4 is wrong"
-    if ZelleRuntertesten("b") = FALSE then Warnlog "2/5 is wrong"
-    if ZelleRuntertesten("c") = FALSE then Warnlog "2/6 is wrong"
-    Call wTypeKeys "<Right>"
-    Call wTypeKeys "<up>", 5
-    Call wTypeKeys "<Mod1 a>"
-    Wait 100
-    EditCopy
-    if GetClipboardText <> "zz" then Warnlog "Header der 3. column has not been sorted"
-    if ZelleRuntertesten("xx") = FALSE then Warnlog "3/2 is wrong"
-    if ZelleRuntertesten("xx") = FALSE then Warnlog "3/3 is wrong"
-    if ZelleRuntertesten("xx") = FALSE then Warnlog "3/4 is wrong"
-    if ZelleRuntertesten("zz") = FALSE then Warnlog "3/5 is wrong"
-    if ZelleRuntertesten("zz") = FALSE then Warnlog "3/6 is wrong"
-
-    Printlog "   - 3. column alphanum., 1. column num., 3. column alphanum. descending"
-    Call wTypeKeys "<Left Right>"
-    Call wTypeKeys "<Mod1 a>", 2
-    Sleep 2
-    ToolsSort
-    Kontext "Sortieren"
-    Schluessel1.Check
-    Spalte1.SetText "3"
-    Schluesseltyp1.Select 1
-
-    Schluessel2.Check
-    Spalte2.SetText "1"
-    Schluesseltyp2.Select 2
-
-    Schluessel3.Check
-    Spalte3.SetText "2"
-    Schluesseltyp3.Select 1
-    Absteigend1.Check
-    Absteigend2.Check
-    Absteigend3.Check
-    Sortieren.OK
-
-    Printlog "   - check"
-    Call wTypeKeys "<up><Left>", 6
-    Call wTypeKeys "<Mod1 a>"
-    wait 100
-    EditCopy
-    if GetClipboardText <> "1" then Warnlog "Header of the 1. column has been sorted"
-    if ZelleRuntertesten("6") = FALSE then Warnlog "1/2 is wrong"
-    if ZelleRuntertesten("3") = FALSE then Warnlog "1/3 is wrong"
-    if ZelleRuntertesten("5") = FALSE then Warnlog "1/4 is wrong"
-    if ZelleRuntertesten("4") = FALSE then Warnlog "1/5 is wrong"
-    if ZelleRuntertesten("2") = FALSE then Warnlog "1/6 is wrong"
-    Call wTypeKeys "<Right>"
-    Call wTypeKeys "<up>", 5
-    Call wTypeKeys "<Mod1 a>"
-    Wait 100
-    EditCopy
-    if GetClipboardText <> "a" then Warnlog "Header of the 2. column has not been sorted"
-    if ZelleRuntertesten("c") = FALSE then Warnlog "2/2 is wrong"
-    if ZelleRuntertesten("b") = FALSE then Warnlog "2/3 is wrong"
-    if ZelleRuntertesten("c") = FALSE then Warnlog "2/4 is wrong"
-    if ZelleRuntertesten("b") = FALSE then Warnlog "2/5 is wrong"
-    if ZelleRuntertesten("a") = FALSE then Warnlog "2/6 is wrong"
-    Call wTypeKeys "<Right>"
-    Call wTypeKeys "<up>", 5
-    Call wTypeKeys "<Mod1 a>"
-    Wait 100
-    EditCopy
-    if GetClipboardText <> "zz" then Warnlog "Header of the 3. column has not been sorted"
-    if ZelleRuntertesten("zz") = FALSE then Warnlog "3/2 is wrong"
-    if ZelleRuntertesten("zz") = FALSE then Warnlog "3/3 is wrong"
-    if ZelleRuntertesten("xx") = FALSE then Warnlog "3/4 is wrong"
-    if ZelleRuntertesten("xx") = FALSE then Warnlog "3/5 is wrong"
-    if ZelleRuntertesten("xx") = FALSE then Warnlog "3/6 is wrong"
-    Call hCloseDocument
-endcase
-
-' *******************************************************************
-
-testcase tToolsSort5
-    PrintLog "- Tools / Sorting in table without header"
-    if gApplication = "WRITER" then
-        hFileOpenLocally(  gTesttoolPath + "writer\optional\input\sorting\sort1.odt" )
-    else
-        hFileOpenLocally(  gTesttoolPath + "writer\optional\input\sorting\sort1.odm" )
-    end if
-
-    Call wNavigatorAuswahl (2, 2)
-    Call wTypeKeys "<Mod1 a>", 2
-    Printlog "   - 3. column alphanum., 1. column num., 2. column alphanum. ascending"
-    ToolsSort
-    Kontext "Sortieren"
-    Schluessel1.Check
-    Spalte1.SetText "3"
-    Schluesseltyp1.Select 1
-
-    Schluessel2.Check
-    Spalte2.SetText "1"
-    Schluesseltyp2.Select 2
-
-    Schluessel3.Check
-    Spalte3.SetText "2"
-    Schluesseltyp3.Select 1
-    Aufsteigend1.Check
-    Aufsteigend2.Check
-    Aufsteigend3.Check
-    if Tabulator.IsEnabled then Warnlog "'Tabs' is active when table is selected"
-    if Zeichen.IsEnabled then Warnlog "'Character' is active when table is selected"
-    Sortieren.OK
-
-    Printlog "   - check"
-    Call wNavigatorAuswahl (2, 2)
-    Call wTypeKeys "<Mod1 a>"
-    wait 100
-    EditCopy
-
-    if GetClipboardText <> "2" then Warnlog "1/1 is wrong!"
-    if ZelleRuntertesten("4") = FALSE then Warnlog "1/2 is wrong"
-    if ZelleRuntertesten("5") = FALSE then Warnlog "1/3 is wrong"
-    if ZelleRuntertesten("1") = FALSE then Warnlog "1/4 is wrong"
-    if ZelleRuntertesten("3") = FALSE then Warnlog "1/5 is wrong"
-    if ZelleRuntertesten("6") = FALSE then Warnlog "1/6 is wrong"
-    Call wTypeKeys "<Right>"
-    Call wTypeKeys "<up>", 5
-    Call wTypeKeys "<Mod1 a>"
-    Wait 100
-    EditCopy
-    if GetClipboardText <> "a" then Warnlog "2/1 is wrong!"
-    if ZelleRuntertesten("b") = FALSE then Warnlog "2/2 is wrong"
-    if ZelleRuntertesten("c") = FALSE then Warnlog "2/3 is wrong"
-    if ZelleRuntertesten("a") = FALSE then Warnlog "2/4 is wrong"
-    if ZelleRuntertesten("b") = FALSE then Warnlog "2/5 is wrong"
-    if ZelleRuntertesten("c") = FALSE then Warnlog "2/6 is wrong"
-    Call wTypeKeys "<Right>"
-    Call wTypeKeys "<up>", 5
-    Call wTypeKeys "<Mod1 a>"
-    Wait 100
-    EditCopy
-    if GetClipboardText <> "xx" then Warnlog "3/1 is wrong!"
-    if ZelleRuntertesten("xx") = FALSE then Warnlog "3/2 is wrong"
-    if ZelleRuntertesten("xx") = FALSE then Warnlog "3/3 is wrong"
-    if ZelleRuntertesten("zz") = FALSE then Warnlog "3/4 is wrong"
-    if ZelleRuntertesten("zz") = FALSE then Warnlog "3/5 is wrong"
-    if ZelleRuntertesten("zz") = FALSE then Warnlog "3/6 is wrong"
-
-
-    Printlog "   - 3. column alphanum., 1. column num., 2. column alphanum. descending"
-    Call wNavigatorAuswahl (2, 2)
-    Call wTypeKeys "<Mod1 a>", 2
-    Sleep 2
-    ToolsSort
-    Kontext "Sortieren"
-    Schluessel1.Check
-    Spalte1.SetText "3"
-    Schluesseltyp1.Select 1
-
-    Schluessel2.Check
-    Spalte2.SetText "1"
-    Schluesseltyp2.Select 2
-
-    Schluessel3.Check
-    Spalte3.SetText "2"
-    Schluesseltyp3.Select 1
-    Absteigend1.Check
-    Absteigend2.Check
-    Absteigend3.Check
-    Sortieren.OK
-
-    Printlog "   - check"
-    Call wNavigatorAuswahl (2, 2)
-    Call wTypeKeys "<Mod1 a>"
-    wait 100
-    EditCopy
-    if GetClipboardText <> "6" then Warnlog "1/1 is wrong!"
-    if ZelleRuntertesten("3") = FALSE then Warnlog "1/2 is wrong"
-    if ZelleRuntertesten("1") = FALSE then Warnlog "1/3 is wrong"
-    if ZelleRuntertesten("5") = FALSE then Warnlog "1/4 is wrong"
-    if ZelleRuntertesten("4") = FALSE then Warnlog "1/5 is wrong"
-    if ZelleRuntertesten("2") = FALSE then Warnlog "1/6 is wrong"
-    Call wTypeKeys "<Right>"
-    Call wTypeKeys "<up>", 5
-    Call wTypeKeys "<Mod1 a>"
-    Wait 100
-    EditCopy
-    if GetClipboardText <> "c" then Warnlog "2/1 is wrong!"
-    if ZelleRuntertesten("b") = FALSE then Warnlog "2/2 is wrong"
-    if ZelleRuntertesten("a") = FALSE then Warnlog "2/3 is wrong"
-    if ZelleRuntertesten("c") = FALSE then Warnlog "2/4 is wrong"
-    if ZelleRuntertesten("b") = FALSE then Warnlog "2/5 is wrong"
-    if ZelleRuntertesten("a") = FALSE then Warnlog "2/6 is wrong"
-    Call wTypeKeys "<Right>"
-    Call wTypeKeys "<up>", 5
-    Call wTypeKeys "<Mod1 a>"
-    Wait 100
-    EditCopy
-    if GetClipboardText <> "zz" then Warnlog "3/1 is wrong!"
-    if ZelleRuntertesten("zz") = FALSE then Warnlog "3/2 is wrong"
-    if ZelleRuntertesten("zz") = FALSE then Warnlog "3/3 is wrong"
-    if ZelleRuntertesten("xx") = FALSE then Warnlog "3/4 is wrong"
-    if ZelleRuntertesten("xx") = FALSE then Warnlog "3/5 is wrong"
-    if ZelleRuntertesten("xx") = FALSE then Warnlog "3/6 is wrong"
-    Call hCloseDocument
-endcase
-
-' *******************************************************************
-
-testcase tToolsSort6
-    PrintLog "- Tools / Sort a sorted table and copy in another one"
-
-    if gApplication = "WRITER" then
-        hFileOpenLocally(  gTesttoolPath + "writer\optional\input\sorting\sort3.odt" )
-    else
-        hFileOpenLocally(  gTesttoolPath + "writer\optional\input\sorting\sort3.odm" )
-    end if
-    Call wTypeKeys "<Mod1 a>", 2
-
-    Printlog "   - Sort 1. column numeric descending"
-    ToolsSort
-    Kontext "Sortieren"
-    Schluessel1.Check
-    Spalte1.SetText "1"
-    Schluesseltyp1.Select 2
-    Absteigend1.Check
-    Absteigend2.Check
-    Absteigend3.Check
-    Sortieren.OK
-
-    Printlog "   - check"
-    Call wTypeKeys "<Mod1 a>", 3
-    wait 100
-    EditCopy
-    if GetClipboardText <> "4" then Warnlog "Header of the 1. column has not been sorted"
-    if ZelleRuntertesten("3") = FALSE then Warnlog "1/2 is wrong"
-    if ZelleRuntertesten("2") = FALSE then Warnlog "1/3 is wrong"
-    if ZelleRuntertesten("1") = FALSE then Warnlog "1/4 is wrong"
-    Call wTypeKeys "<Tab>"
-    Call wTypeKeys "<up>", 3
-    Call wTypeKeys "<Mod1 a>"
-    Wait 100
-    EditCopy
-    if GetClipboardText <> "dd" then Warnlog "Header of the 2. column has not been sorted"
-    if ZelleRuntertesten("cc") = FALSE then Warnlog "2/2 is wrong"
-    if ZelleRuntertesten("bb") = FALSE then Warnlog "2/3 is wrong"
-    if ZelleRuntertesten("aa") = FALSE then Warnlog "2/4 is wrong"
-    Call wTypeKeys "<Tab>"
-    Call wTypeKeys "<up>", 3
-    Call wTypeKeys "<Mod1 a>"
-    Wait 100
-    EditCopy
-    if GetClipboardText <> "ww" then Warnlog "Header of the 3 column has not been sorted"
-    if ZelleRuntertesten("xx") = FALSE then Warnlog "3/2 is wrong"
-    if ZelleRuntertesten("yy") = FALSE then Warnlog "3/3 is wrong"
-    if ZelleRuntertesten("zz") = FALSE then Warnlog "3/4 is wrong"
-
-    Printlog "   - copy table"
-    Call wTypeKeys "<Left Right>"
-    Call wTypeKeys "<Mod1 a>", 2
-    Sleep 1
-    EditCopy
-    Sleep 1
-    Printlog "   - insert table"
-    Call wTypeKeys "<Down>", 10
-    Call wTypeKeys "<Up>", 4
-    EditPaste
-    Sleep 1
-
-    Printlog "   - check"
-    Call wTypeKeys "<Mod1 a>"
-    wait 100
-    EditCopy
-    if GetClipboardText <> "4" then Warnlog "Header of the 1. column has not been sorted"
-    if ZelleRuntertesten("3") = FALSE then Warnlog "1/2 is wrong"
-    if ZelleRuntertesten("2") = FALSE then Warnlog "1/3 is wrong"
-    if ZelleRuntertesten("1") = FALSE then Warnlog "1/4 is wrong"
-    Call wTypeKeys "<Tab>"
-    Call wTypeKeys "<up>", 3
-    Call wTypeKeys "<Mod1 a>"
-    Wait 100
-    EditCopy
-    if GetClipboardText <> "dd" then Warnlog "Header of the 2. column has not been sorted"
-    if ZelleRuntertesten("cc") = FALSE then Warnlog "2/2 is wrong"
-    if ZelleRuntertesten("bb") = FALSE then Warnlog "2/3 is wrong"
-    if ZelleRuntertesten("aa") = FALSE then Warnlog "2/4 is wrong"
-    Call wTypeKeys "<Tab>"
-    Call wTypeKeys "<up>", 3
-    Call wTypeKeys "<Mod1 a>"
-    Wait 100
-    EditCopy
-    if GetClipboardText <> "ww" then Warnlog "Header of the 3 column has not been sorted"
-    if ZelleRuntertesten("xx") = FALSE then Warnlog "3/2 is wrong"
-    if ZelleRuntertesten("yy") = FALSE then Warnlog "3/3 is wrong"
-    if ZelleRuntertesten("zz") = FALSE then Warnlog "3/4 is wrong"
-    Call hCloseDocument
-endcase
-
diff --git a/testautomation/writer/optional/includes/sorting/w_sorting2.inc b/testautomation/writer/optional/includes/sorting/w_sorting2.inc
deleted file mode 100644
index c716b597126b..000000000000
--- a/testautomation/writer/optional/includes/sorting/w_sorting2.inc
+++ /dev/null
@@ -1,345 +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 : helge.delfs@oracle.com
-'*
-'* short description : Sort functionality test
-'*
-'************************************************************************
-'*
-' #1 tSort_1
-' #1 tSort_2
-'*
-'\***********************************************************************
-
-testcase tSort_1
-
-	Dim contentInTable() as String
-	Dim i as Integer
-	Dim j as Integer
-	Dim sKeyType as String
-	Dim sLanguage as String
-	Dim TestFile as string
-
-    if iSprache <> 01 then
-        QaErrorLog "Aborting test since this test currently only work with English."
-        goto endsub
-    end if
-
-	PrintLog "- Tools / Sorting in table - Ascending mode "
-	for j = 1 to 3
-		Select Case j
-			Case 1:
-				PrintLog "- 1.test for Alphanumeric"
-				contentInTable = Array( _
-				"FIRST NAME", "LAST NAME", "PHONE HOME", "PHONE WORK"     , _
-				"Alan"      , "Brown"    , "212121"    , "(407) 555-5454" , _
-				"Julie"     , "Clark"    , "321123"    , "(040) 555-007"  , _
-				"Patricia"  , "Fisher"   , "121212"    , "(202) 555-4455" , _
-				"Peter"     , "Arnold"   , "432104"    , "(212) 555-9876 Ext. 543" , _
-				)
-				TestFile = gTesttoolPath & "writer\optional\input\sorting\phonelist.odt"
-				sKeyType   = fGetKeyType(01)
-				sLanguage  = fGetCountryName(01)
-			Case 2:
-				PrintLog "- 2.test for Phonebook"
-				contentInTable = Array( _
-				"FIRST NAME", "LAST NAME", "PHONE HOME", "PHONE WORK"     , _
-				"Alan"      , "Brown"    , "212121"    , "(407) 555-5454" , _
-				"Julie"     , "Clark"    , "321123"    , "(040) 555-007"  , _
-				"Patricia"  , "Fisher"   , "121212"    , "(202) 555-4455" , _
-				"Peter"     , "Arnold"   , "432104"    , "(212) 555-9876 Ext. 543" , _
-				)
-				TestFile = gTesttoolPath + "writer\optional\input\sorting\phonelist.odt"
-				sKeyType   = fGetKeyType(49)
-				sLanguage  = fGetCountryName(49)
-			Case 3:
-				PrintLog "- 3.test for pinyin"
-				contentInTable = Array( _
-				"姓名"     , "电话(家)"    ,  "电话(单位)"   ,  _
-				"钱二"     , "212121"    , "(407) 555-5454"           , _
-				"孙三"     , "432104"    , "(212) 555-9876 Ext. 543"  , _
-				"张四"     , "321123"    , "(040) 555-007"            , _
-				"赵一"     , "121212"    , "(202) 555-4455"           , _
-				)
-				TestFile = gTesttoolPath + "writer\optional\input\sorting\phonelist_sc.odt"
-				sKeyType   = fGetKeyType(86)
-				sLanguage  = fGetCountryName(86)				
-		end select
-
-				
-		printlog " open a test file"
-		hFileOpenLocally(  TestFile )
-        
-
-		printlog " select all table"
-		Call wTypeKeys "<Mod1 a>", 2
-
-		printlog " Tools/Sort , choose  Ascending mode"
-		printlog " choose English in language and Alphanumeric in keytype"
-		ToolsSort
-		Kontext "Sortieren"
-		Sprache.Select sLanguage
-		Schluessel1.Check
-		Spalte1.SetText "1"
-		Schluesseltyp1.Select sKeyType
-		Aufsteigend1.Check
-		Schluessel2.UnCheck
-		Schluessel3.UnCheck
-		Sortieren.OK
-		Sleep 1
-
-		Call wTypeKeys "<Mod1 a>" ,2 
-
-		For i = 0 to UBound(contentInTable)
-			Call wTypeKeys "<Mod1 a>"
-			wait 100
-			EditCopy
-			if GetClipboardText <> contentInTable(i) then
-				Warnlog "The content in table is Wrong! We hope to get " + contentInTable(i) + " But get " + GetClipboardText
-			end if
-			Call wTypeKeys "<Escape><TAB>"
-		next i
-
-		Call hCloseDocument
-	next j
-endcase
-
-'-------------------------------------------------------------------------
-
-testcase tSort_2
-
-	Dim contentInTable() as String
-	Dim i as Integer
-	Dim j as Integer
-	Dim sKeyType as String
-	Dim sLanguage as String
-	Dim TestFile as string
-
-    if iSprache <> 01 then
-        QaErrorLog "Aborting test since this test currently only work with English."
-        goto endsub
-    end if
-
-	PrintLog "- Tools / Sorting in table - Descending mode "
-	for j = 1 to 3
-		Select Case j
-			Case 1:
-				PrintLog "- 1.test for Alphanumeric"
-				contentInTable = Array( _
-				"FIRST NAME", "LAST NAME", "PHONE HOME", "PHONE WORK"     , _
-				"Peter"     , "Arnold"   , "432104"    , "(212) 555-9876 Ext. 543" , _
-				"Patricia"  , "Fisher"   , "121212"    , "(202) 555-4455" , _
-				"Julie"     , "Clark"    , "321123"    , "(040) 555-007"  , _
-				"Alan"      , "Brown"    , "212121"    , "(407) 555-5454" , _
-				)
-				TestFile = gTesttoolPath & "writer\optional\input\sorting\phonelist.odt"
-				sKeyType   = fGetKeyType(01)
-				sLanguage  = fGetCountryName(01)
-			Case 2:
-				PrintLog "- 2.test for Phonebook"
-				contentInTable = Array( _
-				"FIRST NAME", "LAST NAME", "PHONE HOME", "PHONE WORK"     , _
-				"Peter"     , "Arnold"   , "432104"    , "(212) 555-9876 Ext. 543" , _
-				"Patricia"  , "Fisher"   , "121212"    , "(202) 555-4455" , _
-				"Julie"     , "Clark"    , "321123"    , "(040) 555-007"  , _
-				"Alan"      , "Brown"    , "212121"    , "(407) 555-5454" , _
-				)
-				TestFile = gTesttoolPath + "writer\optional\input\sorting\phonelist.odt"
-				sKeyType   = fGetKeyType(49)
-				sLanguage  = fGetCountryName(49)
-			Case 3:
-				PrintLog "- 3.test for pinyin"
-				contentInTable = Array( _
-				"姓名"     , "电话(家)"    ,  "电话(单位)"   ,  _
-				"赵一"     , "121212"    , "(202) 555-4455"           , _
-				"张四"     , "321123"    , "(040) 555-007"            , _
-				"孙三"     , "432104"    , "(212) 555-9876 Ext. 543"  , _
-				"钱二"     , "212121"    , "(407) 555-5454"           , _
-				)
-				TestFile = gTesttoolPath + "writer\optional\input\sorting\phonelist_sc.odt"
-				sKeyType   = fGetKeyType(86)
-				sLanguage  = fGetCountryName(86)
-		end select
-
-		printlog " open a test file"
-		hFileOpenLocally(  TestFile )
-        
-
-		printlog " select all table"
-		Call wTypeKeys "<Mod1 a>", 2
-
-		printlog " Tools/Sort , choose  Ascending mode."
-		printlog " choose English in language and Alphanumeric in keytype."
-		ToolsSort
-		Kontext "Sortieren"
-		Sprache.Select sLanguage
-		Schluessel1.Check
-		Spalte1.SetText "1"
-		Schluesseltyp1.Select sKeyType
-		Absteigend1.Check
-		Schluessel2.UnCheck
-		Schluessel3.UnCheck
-		Sortieren.OK
-		Sleep 1
-
-		Call wTypeKeys "<Mod1 a>" ,2 
-
-		For i = 0 to UBound(contentInTable)
-			Call wTypeKeys "<Mod1 a>"
-			wait 100
-			EditCopy
-			if GetClipboardText <> contentInTable(i) then
-				Warnlog "The content in table is Wrong! We hope to get " + contentInTable(i) + " But get " + GetClipboardText
-			end if
-			Call wTypeKeys "<Escape><TAB>"
-		next i
-
-		Call hCloseDocument
-	next j
-endcase
-
-'--------------------------------------------------------------
-
-function fGetCountryName( CountryID as Integer ) as String
-
-  select case iSprache
-      case 01   :        ' English (USA)
-            select case CountryID
-                  case 1:      fGetCountryName = "English (USA)"
-                  case 49:     fGetCountryName = "German (Germany)"
-                  case 86:     fGetCountryName = "Chinese (simplified)"
-                  case else :
-                               QAErrorLog "Now, the test does not support for the language " +iSprache
-                               fGetCountryName = ""
-            end select
-
-        case 31:
-            select case CountryID
-                case 1:      fGetCountryName = "Engels (VS)"
-                case 49:     fGetCountryName = "Duits (Duitsland)"
-                case 86:     fGetCountryName = "Chinees (vereenvoudigd)"
-                case else :
-                QAErrorLog "Now, the test does not support for the language " +iSprache
-                fGetCountryName = ""
-           end select
-
-      case 49   :        ' German
-           select case CountryID
-                  case 1:      fGetCountryName = "Englisch (USA)"
-                  case 49:     fGetCountryName = "Deutsch (Deutschland)"
-                  case 86:     fGetCountryName = "Chinesisch (einfach)"
-                  case else :
-                               QAErrorLog "Now, the test does not support for the language " +iSprache
-                               fGetCountryName = ""
-           end select
-      case 81   :        ' Japanese
-           select case CountryID
-                  case 1:      fGetCountryName = "英語(米国)"
-                  case 49:     fGetCountryName = "ドイツ語(ドイツ)"
-                  case 86:     fGetCountryName = "中国語(簡体字)"
-                  case else :
-                               QAErrorLog "Now, the test does not support for the language " +iSprache
-                               fGetCountryName = ""
-           end select
-
-      case 86   :        ' Chinese (simplified)
-          select case CountryID
-                 case 1:      fGetCountryName = "英语(美国)"
-                 case 49:     fGetCountryName = "德语(德国)"
-                 case 86:     fGetCountryName = "中文(简体字)"
-                 case else :
-                              QAErrorLog "Now, the test does not support for the language " +iSprache
-                              fGetCountryName = ""
-          end select
-
-      case 88   :        ' Chinese (traditional)
-           select case CountryID
-                  case 1:      fGetCountryName = "英語(美國)"
-                  case 49:     fGetCountryName = "德語(德國)"
-                  case 86:     fGetCountryName = "中文(簡體字)"
-                  case else :
-                               QAErrorLog "Now, the test does not support for the language " +iSprache
-                               fGetCountryName = ""
-           end select
-      case else :        ' Fallback
-                  QAErrorLog "Now, the test does not support for the language " +iSprache
-                  fGetCountryName = ""
-  end select
-end function
-
-'-------------------------------------------------------
-
-function fGetKeyType( KeyType as Integer ) as String
-
-    select case iSprache
-        case 01, 31, 49   :
-            select case KeyType
-                case 1:      fGetKeyType   = "Alphanumeric"
-                case 49:     fGetKeyType   = "Phone book"
-                case 86:     fGetKeyType   = "Pinyin"
-                case else :
-                QAErrorLog "Now, the test does not support for the language " +iSprache
-                fGetKeyType = ""
-            end select
-
-        case 81   :' Japanese
-            select case KeyType
-                case 1:      fGetKeyType   = "英数字"
-                case 49:     fGetKeyType   = "電話帳"
-                case 86:     fGetKeyType   = "ピンイン(中国語のローマ字表記法)"
-                case else :
-                QAErrorLog "Now, the test does not support for the language " +iSprache
-                fGetKeyType = ""
-            end select
-
-        case 86   :' Chinese (simplified)
-            select case KeyType
-                case 1:      fGetKeyType   = "字母数字式"
-                case 49:     fGetKeyType   = "电话簿"
-                case 86:     fGetKeyType   = "拼音"
-                case else :
-                QAErrorLog "Now, the test does not support for the language " +iSprache
-                fGetKeyType = ""
-            end select
-
-        case 88   :' Chinese (traditional)
-            select case KeyType
-                case 1:      fGetKeyType   = "字母數字式"
-                case 49:     fGetKeyType   = "電話簿"
-                case 86:     fGetKeyType   = "拼音"
-                case else :
-                QAErrorLog "Now, the test does not support for the language " +iSprache
-                fGetKeyType = ""
-            end select
-
-        case else :' Fallback
-            QAErrorLog "The test does not support the language " + iSprache
-            fGetKeyType = ""
-    end select
-
-end function
diff --git a/testautomation/writer/optional/includes/spellcheck/w_spellcheck.inc b/testautomation/writer/optional/includes/spellcheck/w_spellcheck.inc
deleted file mode 100644
index df7e2c5dba34..000000000000
--- a/testautomation/writer/optional/includes/spellcheck/w_spellcheck.inc
+++ /dev/null
@@ -1,1477 +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 : helge.delfs@oracle.com
-'*
-'* short description : Spellcheck-Testing. Functional-Test.
-'*
-'\***********************************************************************
-
-sub w_spellcheck
-
-    Call tToolsSpellcheckWithShortcut
-    Call tToolsSpellcheckCorrect
-    Call tToolsSpellcheck1Mistake
-    Call tToolsSpellcheckForward
-    Call tToolsSpellcheckOnlyOneWord
-    Call tToolsSpellcheckAutomatic
-    Call tToolsSpellcheckChangeLanguageAttribute
-    Call tToolsThesaurus
-    Call tToolsSpellcheckButtonChange
-    Call tToolsSpellcheckButtonChangeAll
-    Call tToolsThesaurusSynonyms
-
-end sub
-
-
-testcase tToolsSpellcheckWithShortcut
-    Dim TheFile as String
-    '/// Check if Spellcheck dialog comes up with shortcut 'F7'
-    printlog " Open document where the formatting is set to the language we wish to test."
-    TheFile = Convertpath (gTesttoolpath + "writer\optional\input\spellcheck\spellcheck_" + iSprache + ".odt")
-    if FileExists ( TheFile ) <> TRUE then
-       Warnlog "Found no Document for the language you're testing in, Please inform the Test-Developer."
-       exit sub
-    end if
-
-    call hFileOpenLocally (TheFile,false)
-    
-
-    printlog " Insert some faulty text"
-    select case iSprache
-        case 01 : Call wTypeKeys ("This is a spellchecktestttttt<Home>")
-        case 33 : Call wTypeKeys ("Je Suiss la Penneeee<Home>")
-        case 34 : Call wTypeKeys ("Habla Espanollll<Home>")
-        case 39 : Call wTypeKeys ("Don Cara Mio, capitoliooo?<Home>")
-        case 49 : Call wTypeKeys ("Dies ist ein Rechtschreibtexxxxt<Home>")
-        case 46 : Call wTypeKeys ("Det här är en rättstavningstexxxxt<Home>")
-        case 50 : Call wTypeKeys ("To je test �?rkvana<Home>")
-        case 07 : Printlog "- No Spellcheck in Russian!"
-                     goto endsub
-        case 48 : Printlog "- No Spellcheck in Polish!"
-                     goto endsub
-        case 55 : Printlog "- No Spellcheck in Brazilian!"
-                     goto endsub
-        case 81 : Printlog "- No Spellcheck in Japanese!"
-                     goto endsub
-        case 82 : Printlog "- No Spellcheck in Korean!"
-                     goto endsub
-        case 86 : Printlog "- No Spellcheck in Chinese (simplified)!"
-                     goto endsub
-        case 88 : Printlog "- No Spellcheck in Chinese (traditional)!"
-                     goto endsub
-        case 03, 30, 35, 36, 37, 42, 47, 51, 90
-                  Printlog "- No Spellcheck available !"
-                  goto endsub
-        case else
-    end select
-
-    Call wTypeKeys "<HOME>"         'Setting cursor to beginning
-    Call wTypeKeys "<F7>"           'Calling spellchecker with shortcut
-    sleep (1)
-
-    Kontext "Active"
-    if Active.Exists(1) then        'checking if messagebox comes up
-        if Active.getRT = 304 then      'checking ressource type
-            Active.OK
-        else
-            printlog "No message Box!"
-        end if
-        printlog "Message Box closed, Spellchecker came up"
-    else
-        Kontext "Spellcheck"            'checking if spellcheck dialog came up
-        if Spellcheck.Exists then
-            printlog "OK, Spellchecker comes up"
-            Spellcheck.Close            'closing spellchecker
-        else
-            Warnlog "Spellchecker does not come up with shortcut 'F7'"
-        end if
-    end if
-    Call hCloseDocument
-endcase
-
-'----------------------------------------------------------------------------------------------------------------------------------------------------------------------------
-
-testcase tToolsSpellcheckCorrect
-    Dim sHyphenationFile as String
-    Dim TheFile as String
-    Dim FFText as String
-
-    TheFile = Convertpath (gTesttoolpath + "writer\optional\input\spellcheck\spellcheck_" + iSprache + ".odt")
-    if FileExists ( TheFile ) <> TRUE then
-       Warnlog "Found no Document for the language you're testing in, Please inform the Test-Developer."
-       exit sub
-    end if
-
-    Printlog "- Checking Dictionary-Files"
-    select case iSprache
-        case 1 : sHyphenationFile = "01-44-hyph.dat"
-        case 81 : Printlog "- No Spellcheck in Japanese!"
-                  goto endsub
-        case 82 : Printlog "- No Spellcheck in Korean!"
-                  goto endsub
-        case 86 : Printlog "- No Spellcheck in Chinese (simplified)!"
-                  goto endsub
-        case 88 : Printlog "- No Spellcheck in Chinese (traditional)!"
-                  goto endsub
-        case else : sHyphenationFile =  "" & iSprache & "-hyph.dat"
-    end select
-    if gNetzInst = TRUE then
-        sHyphenationFile = Convertpath (gNetzOfficePath + "share\dict\" + trim$(sHyphenationFile))
-    else
-        sHyphenationFile = Convertpath (gOfficePath + "share\dict\" + trim$(sHyphenationFile))
-    end if
-
-    PrintLog "- Tools / Spellcheck without text"
-
-    printlog " Open document where the formatting is set to the language we wish to test."
-    call hFileOpenLocally (TheFile,false)
-    
-
-    printlog " Insert some faulty text"
-    Sleep 1
-    '/// Call Spellcheck in empty document ///
-    ToolsSpellcheckWriter
-    Sleep 2
-    Kontext "Active"
-    if NOT Active.Exists(1) then
-        Warnlog "No Finished message"
-    else
-        Active.OK
-    end if
-
-    PrintLog "- Tools / Spellcheck with correct text"
-    '/// Call Spellcheck for correct text ///
-    select case iSprache
-        case 01   : FFText = "This is a text without any error.<Return>"
-        case 03   : FFText = "Escreva os seus dados de utilizador correctamente e tome nota deles (guardar / imprimir).<Return>"
-        case 07   : FFText = "прин�?тый Го�?удар�?твенной Думой в первом чтении 16 но�?бр�? 1999 года.<Return>"
-        case 31   : FFText = "Dit werk is beschermd door de Auteurswet.<Return>"
-        case 33   : FFText = "Il nous faut donc un de temps pour examiner avec soin tous les dossiers.<Return>"
-        case 34   : FFText = "Este archivo contiene información importante sobre el programa.<Return>"
-        case 36   : FFText = "Boszniai amerikai kontingens háromnegyedesek – mintegy négyezer katona – magyarországi telepítése egy éven belül megtörténhet.<Return>"
-        case 39   : FFText = "La ringraziamo per l'interesse mostrato a collaborare con la firma.<Return>"
-        case 45   : FFText = "Danmark ikke er sikret maksimal indflydelse på den fremtidige europæiske udlændingepolitik.<Return>"
-        case 46   : FFText = "Den här filen innehåller viktig programinformation.<Return>"
-        case 48   : FFText = "Nie wolno w zadnim wypadku przerywa uruchomionego serwisu !<Return>"
-        case 49   : FFText = "Dies ist ein Text ohne Fehler.<Return>"
-        case 50   : FFText = "To je besedilo brez napake.<Return>"
-        case 55	  : FFText = "Ele ouviu passos silenciosos atrás dele. Isso não estava certo.<Return>"
-        case else : QAErrorLog " - The language " + iSprache +" has no defined language text. No Test !"
-                    exit Sub
-    end select
-
-    Call wTypeKeys FFText
-    wait 500
-    ToolsSpellcheckWriter
-    Sleep 2
-    Kontext "Active"
-    try
-        Active.Yes
-        Sleep 1
-    catch
-        Warnlog "No message to jump to start"
-    endcatch
-
-    Kontext "Active"
-    try
-        Active.OK
-    catch
-        Kontext "Spellcheck"
-        if Spellcheck.Exists then
-            Warnlog "With correct text the Spellcheck dialog appears ( maybe wrong language selected )"
-            Spellcheck.Close
-        end if
-    endcatch
-
-    '/// Close document ///
-    Call hCloseDocument
-endcase
-
-' *******************************************************************
-
-testcase tToolsSpellcheck1Mistake
-    Dim sWordToBeChecked as string
-    Dim sLanguageName as string
-    Dim sDummy as string
-    Dim sErrorSampleText as string
-    Dim TheFile as String
-
-    TheFile = Convertpath (gTesttoolpath + "writer\optional\input\spellcheck\spellcheck_" + iSprache + ".odt")
-    if FileExists ( TheFile ) <> TRUE then
-       Warnlog "Found no Document for the language you're testing in, Please inform the Test-Developer."
-       exit sub
-    end if
-
-    PrintLog "- Tools / Spellcheck with a defined mistake"
-    Select Case iSprache
-        case 01   : sErrorSampleText = "Thatts not a trick, it"  ' 's a Sony."    (removing this last part because of different apostrophes in StarSuite)
-                    sWordToBeChecked = "Thatts"
-                    sLanguageName = "English (USA)"
-        case 03   : sErrorSampleText = "Escrive os seus dados de utilizador correctamente e tome nota deles."
-                    sWordToBeChecked = "Escrive"
-                    sLanguageName = "Português"
-        case 07   : sErrorSampleText = "Военна�? техниче�?кого �?aтрудниче�?тва, проблему задолженно�?ти и вопро�?ы региональных �?в�?зей."
-                    sWordToBeChecked = "�?aтрудниче�?тва"
-                    sLanguageName = "Ру�?�?кий"
-        case 31   : sErrorSampleText = "Wijek danken u voor uw interesse in het samenwerken met Sun Microsystems."
-                    sWordToBeChecked = "Wijek"
-                    sLanguageName = "Nederlands (NL)"
-        case 33   : sErrorSampleText = "Ilk nous faut donc un de temps pour examiner avec soin"
-                    sWordToBeChecked = "Ilk"
-                    sLanguageName = "Français (France)"
-        case 34   : sErrorSampleText = "Este archivo contiene información importnte sobre el programa."
-                    sWordToBeChecked = "importnte"
-                    sLanguageName = "Español (España)"
-        case 36   : sErrorSampleText = "Boszniai amerikai kontingens háromnegyedének – mintegy négyezer katona – magyarországi telepítése egy éven belül megtörténhet."
-                    sWordToBeChecked = "háromnegyedének"
-                    sLanguageName = "Magyar"
-        case 39   : sErrorSampleText = "Lab ringraziamo per l'interesse"
-                    sWordToBeChecked = "Lab"
-                    sLanguageName = "Italiano (Italia)"
-        case 45   : sErrorSampleText = "Igke er sikret maksimal indflydelse på den fremtidige europæiske udlændingepolitik."
-                    sWordToBeChecked = "Igke"
-                    sLanguageName = "Dansk"
-        case 46   : sErrorSampleText = "Dsän här filen innehåller viktig programinformation."
-                    sWordToBeChecked = "Dsän"
-                    sLanguageName = "svenska (Sverige)"
-        case 48   : sErrorSampleText  = "walno w zadnim wypadku przerywa uruchomionego serwisu !"
-                    sWordToBeChecked = "Walno"
-                    sLanguageName = "Polski"
-        case 49   : sErrorSampleText = "Diees ist ein Fehler."
-                    sWordToBeChecked = "Diees"
-                    sLanguageName = "Deutsch (Deutschland)"
-        case 50   : sErrorSampleText = "Tuki je nekaj narobe."
-                    sWordToBeChecked = "Tuki"
-                    sLanguageName = "Slovenš�?ina"
-        case 55	  : sErrorSampleText = "Esta poderia ser a respista para suas preces?"
-        			sWordToBeChecked = "respista"
-        			sLanguageName = "Português (Brasil)"
-        case 81 : Printlog "- No Spellcheck in Japanese!"
-                  goto endsub
-        case 82 : Printlog "- No Spellcheck in Korean!"
-                  goto endsub
-        case 86 : Printlog "- No Spellcheck in Chinese (simplified)!"
-                  goto endsub
-       case 88 :  Printlog "- No Spellcheck in Chinese (traditional)!"
-                  goto endsub
-        case else : QAErrorLog "The language " + wSysLanguage +" has no defined Errortext. No test"
-                  goto endsub
-    end select
-
-    printlog " Open document where the formatting is set to the language we wish to test."
-    call hFileOpenLocally (TheFile,false)
-    
-
-    '/// Insert a sentence with one definded mistake and execute spellcheck ///
-    Call wTypeKeys sErrorSampleText
-    Call wTypeKeys "<Return><Up>"
-	wait 500
-    ToolsSpellcheckWriter
-    Kontext "Active"
-    if Active.Exists then
-        if Active.GetRT = 304 then
-            try
-                Active.Yes
-            catch
-                Warnlog Active.Gettext
-                Active.Ok
-            endcatch
-        end if
-    end if
-    Sleep 2
-    Kontext "Spellcheck"
-    if Not Spellcheck.Exists then
-        Warnlog "Spellchecker is not up !"
-        Call hCloseDocument
-        goto endsub
-    end if
-    printlog "Current selected dictionary language is: " & DictionaryLanguage.GetSelText
-    '  Dictionary Language is language dependend. Function to be created
-    printlog "   - check language"
-    'if DictionaryLanguage.GetSelText <> gLanguage then Warnlog "Dictionary language " + DictionaryLanguage.GetSelText +" selected"
-    printlog "   - replace wrong word with a suggestion"
-    '/// replace wrong word with a suggestion ///
-
-    if trim$(NotInDictionary.GetText) <> trim(sErrorSampleText) then
-        warnlog " " & sErrorSampleText & " has not been detected as mistake. Detected mistake is:" & NotInDictionary.GetText
-    end if
-
-    if Suggestions.GetItemCount > 0 then
-        if Suggestions.IsEnabled then
-	    try
-		sDummy = Suggestions.GetItemText (2)
-		Suggestions.Select 2
-	    catch
-		sDummy = Suggestions.GetItemText (1)
-		Suggestions.Select 1
-	    endcatch
-            ' Next check does not work because if word is selected it will only be highlited!!"
-            ' if Not NotInDictionary.GetText <> sErrorSampleText then Warnlog "Text in preview has not been replaced with the suggestion"
-            Change.Click
-	else
-	    QAErrorLog "No suggestions made from spellchecker"
-	end if
-    else
-        QAErrorLog "Please choose another word to check suggestions, because no suggestion found!"
-    end if
-    Kontext "Active"
-    if Active.Exists then
-        try
-            Active.OK
-        catch
-            Warnlog Active.Gettext
-            Active.No
-        endcatch
-    end if
-
-    Kontext "Spellcheck"
-    if Spellcheck.Exists then SpellcheckClose.Click
-
-	Call wTypeKeys "<Up><Home>"
-    Call wTypeKeys "<Shift End>"
-    Sleep 1
-	EditCopy
-    if GetClipboardText = sErrorSampleText then Warnlog "Replaced text in document is wrong. Not "+ sErrorSampleText + " but " + GetClipboardText
-    Call hCloseDocument
-
-endcase
-
-' *******************************************************************
-
-testcase tToolsSpellcheckForward
-    Dim sDummy as string
-    Dim sWordToBeAdded as string
-    Dim InsFile as string
-    Dim Add_Word as string
-    Dim sDictionary as string
-
-    PrintLog "- Tools / Spellcheck / check forward"
-    '/// Open specified document depending on language to check spellcheck ///
-    '/// document has 4 defined wrong words ///
-    InsFile = wGetSpellcheckDocumentName(1)
-    Select Case InsFile
-        Case "None"
-            Printlog "- No Spellcheck for this language available!"
-            goto endsub
-        case "Empty"
-            QAErrorLog "The language " + iSprache +" has no defined Errortext. No test!"  'iSystemSprache
-            goto endsub
-    end select
-
-    if gApplication = "MASTERDOCUMENT" then
-        if wInsertDocumentinMasterDoc(InsFile) = False then goto endsub
-            EditPaste
-    else
-        hFileOpenLocally( InsFile)
-        
-    end if
-    '/// point cursor to beginning of document and execute spellcheck ///
-    Call wTypeKeys "<Mod1 Home>"
-
-    select case iSprache
-        case 01   : sDummy = "exprass"      : sWordToBeAdded = "pablischer"
-        case 07   : sDummy = "решаaт"       : sWordToBeAdded = "кaнкретных"
-        case 03   : sDummy = "quante"       : sWordToBeAdded = "cempas"
-        case 31   : sDummy = "haaietanden"  : sWordToBeAdded = "widerzijdse"
-        case 33   : sDummy = "votrex"       : sWordToBeAdded = "recontacterons"
-        case 34   : sDummy = "Asegúree"     : sWordToBeAdded = "diretorio"
-        case 36   : sDummy = "hétozres"     : sWordToBeAdded = "jelentos"
-        case 39   : sDummy = "meczanici"    : sWordToBeAdded = "anniche"
-        case 45   : sDummy = "grend"        : sWordToBeAdded = "lando"
-        case 46   : sDummy = "handbroken"   : sWordToBeAdded = "viktikt"
-        case 48   : sDummy = "znajdujacej"  : sWordToBeAdded = "usuniete"
-        case 49   : sDummy = "reichtt"      : sWordToBeAdded = "viierter"
-        case 50   : sDummy = "Paglejmo"     : sWordToBeAdded = "�?trto"
-        case 55   : sDummy = "horat"        : sWordToBeAdded = "dpa"
-    end select
-
-    wait 500
-    ToolsSpellcheckWriter
-    Sleep 2
-    Kontext "Spellcheck"
-    Printlog "   - Replace all (" + NotInDictionary.Gettext + ") ...."
-    '/// Replace first found word with 1 suggestion in list ///
-    if Suggestions.IsEnabled then
-        Suggestions.Select 1
-	Printlog "   - .... with (" + NotInDictionary.Gettext + ")"
-	wait 500
-	try
-	    ChangeAll.Click
-	catch
-	    Warnlog "Button 'change all' is not accessible!"
-	endcatch
-	'/// Select 'Always replace' ///
-	Sleep 1
-    else
-	QAErrorLog "No suggestions made from spellchecker!=>Choose 'Ignore All'"
-        if IgnoreAll.IsEnabled then IgnoreAll.Click
-    end if
-
-    Printlog "   - Ignore All (" + NotInDictionary.Gettext + ")"
-    '/// For second wrong word select 'Ignore all' ///
-    wait 500
-    try
-        IgnoreAll.Click
-    catch
-        Warnlog "Button 'Ignore all' is not accessible"
-    endcatch
-    Sleep 1
-
-    Printlog "   - Ignore (" + NotInDictionary.Gettext + ")"
-    '/// For 3rd wrong word select 'Ignore' ///
-    wait 500
-'    try
-'        IgnoreOnce.Click
-'    catch
-'        Warnlog "Button 'Ignore once' is not accessible"
-'    endcatch
-'    Sleep 1
-
-    Kontext "Active"
-    if Active.Exists(3) then
-        if Active.GetRT = 304 then
-            Warnlog "Spellcheck has ended! Not reproducable by hand !"
-        end if
-    else
-        Kontext "Spellcheck"
-        Add_Word = trim$(NotInDictionary.Gettext)
-        Printlog "   - Add (" + sDummy + ")"
-        '/// Add 4th word to dictionary ///
-        if AddToDictionary.IsEnabled then
-            AddToDictionary.Click
-	    wait 500
-	    '/// remember selected dictionary
-	    sDictionary = MenuGetitemText(1)
-	    Call hMenuSelectNr(1)
-	    Sleep 1
-	else
-	    Warnlog "Unable to add word to dictionary->button is disabled!"
-	end if
-    end if
-
-	Kontext "Active"
-	if Active.Exists then
-	    If Active.GetRT = 304 then
-		Active.Ok
-	    end if
-	end if
-
-    Kontext "Spellcheck"
-    if Spellcheck.Exists then Spellcheck.Close
-    Call wTypeKeys "<Home>"
-
-    Printlog "   - recheck: One mistake has to be found 3 times"
-    wait 500
-    '/// Recheck: One mistake has to be found 3 times ///
-    ToolsSpellcheckWriter
-    Sleep 2
-    Kontext "Active"
-    if Active.Exists then
-        if Active.GetRT = 304 then
-            try
-                Active.Ok
-            catch
-                Active.Yes
-                Warnlog Active.Gettext
-            endcatch
-        end if
-    end if
-    Kontext "Spellcheck"
-    if Spellcheck.Exists then
-        if Instr(NotInDictionary.GetText, sDummy) = 0 then
-            Warnlog "Jumped to wrong mistake! Not " & sDummy & " but " & Suggestions.GetSelText
-        else
-            try
-                IgnoreAll.Click
-            catch
-                Warnlog "Button 'Ignore all' is not accessible"
-            endcatch
-        end if
-    end if
-    Sleep 2
-    Kontext
-    if Active.Exists(2) then
-        Active.OK
-    else
-        Kontext "Spellcheck"
-        if Spellcheck.Exists then Spellcheck.Close
-    end if
-    Sleep 1
-
-    GoOn:
-    Printlog "- Deleting the Ignore list"
-    '/// Delete entrys in Ignorelist ///
-    Call wIgnorierenListeLoeschen
-
-    Printlog "   - Delete added word in dictionary"
-    '/// Delete added word in dictionary ///
-    Call WortAusWoerterbuchLoeschen ( sDummy )
-
-    '/// Close document ///
-    Call hCloseDocument
-endcase
-
-' *******************************************************************
-
-testcase tToolsSpellcheckOnlyOneWord
-    Dim sWordToBeChecked as string
-    Dim InsFile as string
-    Dim ReplacedWith as String
-    Dim i as integer
-
-    '/// Open specified document depending on language to check spellcheck ///
-    '/// document has 1 defined wrong word ///
-    PrintLog "- Tools / Spellchecking / Check only one word"
-    InsFile = wGetSpellcheckDocumentName(2)
-    Select Case InsFile
-        Case "None"
-            Printlog "- No Spellcheck for this language available!"
-            goto endsub
-        case "Empty"
-            QAErrorLog "The language " + iSprache +" has no defined Errortext. No test!"
-            goto endsub
-    end select
-
-    if gApplication = "MASTERDOCUMENT" then
-        if wInsertDocumentinMasterDoc(InsFile) = False then goto endsub
-            EditPaste
-    else
-        hFileOpenLocally( InsFile)
-        
-    end if
-    Call wTypeKeys "<Mod1 Home>"
-
-    select case iSprache
-        case 01   : sWordToBeChecked = "excetionally"      ' this word is wrong
-        case 07   : sWordToBeChecked = "Кaн�?титуции"
-        case 03   : sWordToBeChecked = "semstre"           ' this word is wrong
-        case 31   : sWordToBeChecked = "lidstartesn"        ' this word is wrong
-        case 33   : sWordToBeChecked = "heues"            ' this word is wrong
-        case 34   : sWordToBeChecked = "vacunaión"         ' this word is wrong
-        case 36   : sWordToBeChecked = "fekvo"         ' this word is wrong
-        case 39   : sWordToBeChecked = "brasilianir"       ' this word is wrong
-        case 45   : sWordToBeChecked = "Amserdam"         ' this word is wrong
-        case 46   : sWordToBeChecked = "avrttades"         ' this word is wrong
-        case 48   : sWordToBeChecked = "stosowanei"         ' this word is wrong
-        case 49   : sWordToBeChecked = "georaphischen"     ' this word is wrong
-        case 50   : sWordToBeChecked = "ssmo"     ' this word is wrong
-        case 55   : sWordToBeChecked = "Veigo"     ' this word is wrong
-    end select
-
-    EditSearchAndReplace
-    Kontext "FindAndReplace"
-    try
-        SearchFor.Settext ""
-    catch
-    endcatch
-    if SimilaritySearch.IsVisible = False then More.Click
-    if SimilaritySearch.IsEnabled then SimilaritySearch.Uncheck
-    if SearchForStyles.IsEnabled then SearchForStyles.Uncheck
-    if RegularExpressions.IsEnabled then RegularExpressions.Uncheck
-    if NoFormat.IsEnabled then NoFormat.Click
-    if CurrentSelectionOnly.IsEnabled then CurrentSelectionOnly.Uncheck
-    WholeWordsOnly.Uncheck
-    Backwards.Uncheck
-    MatchCase.Uncheck
-    RegularExpressions.Check
-
-    SearchFor.Settext sWordToBeChecked
-    SearchNow.Click
-    Kontext "Active"
-    if Active.Exists then
-        if Active.getRT = 304 then
-            Warnlog Active.Gettext
-            try
-                Active.Ok
-            catch
-                Active.No
-            endcatch
-        end if
-    end if
-
-    Kontext "FindAndReplace"
-    if FindAndReplace.Exists then FindAndReplace.Close
-
-    ToolsSpellcheckWriter
-    Kontext "Active"
-    if Active.Exists then
-        if Active.GetRT = 304 then
-            Warnlog "Spellcheck doesn't work correctly:" & Active.Gettext
-            try
-                Active.Ok
-            catch
-                Active.No
-            endcatch
-            Call hCloseDocument
-            goto endsub
-        end if
-    end if
-
-    Kontext "Spellcheck"
-    Printlog "   - Replace all"
-    if Suggestions.GetItemCount > 0 then
-        if Suggestions.IsEnabled then
-			Suggestions.Select 1
-			wait 500
-			Suggestions.TypeKeys "<Down><Up>"
-			ReplacedWith = Suggestions.GetSelText
-			wait 500
-			if Change.IsEnabled then Change.Click
-			Sleep 1
-		else
-			QAErrorLog "No suggestions made from spellchecker!"
-            Spellcheck.Close
-            Call hCloseDocument
-            goto endsub
-		end if
-    else
-        Warnlog "No suggestion for word: " & sWordToBeChecked & " found. Test stops"
-        Spellcheck.Close
-        Call hCloseDocument
-        goto endsub
-    end if
-
-    Kontext "Active"
-    if Active.Exists then
-        if Active.GetRT = 304 then
-            try
-                Active.Ok
-            catch
-                Active.No
-                Warnlog Active.Gettext
-            endcatch
-        end if
-    end if
-
-    Kontext "Spellcheck"
-    if Spellcheck.Exists then SpellcheckClose.Click
-
-    Call wTypeKeys "<Mod1 Shift Left>"
-    try
-        EditCopy
-        if GetClipboardtext = sWordToBeChecked then
-            Warnlog "Spellchecker does not commit changes correctly (" & GetClipboardtext & " found )"
-            Call hCloseDocument
-            goto endsub
-        end if
-    catch
-        Warnlog "- Didn't found the word to check! No Spellchecking for one word!"
-        Call hCloseDocument
-        goto endsub
-    endcatch
-
-    '/// Execute spellcheck again ///
-    wait 500
-    ToolsSpellcheckWriter
-    Kontext "Active"
-    if Active.Exists then
-        if Active.GetRT = 304 then
-            try
-                Active.Yes
-                Kontext "Active"
-                if Active.Exists then
-                    if Active.GetRT = 304 then
-                        Active.Ok
-                        Warnlog "Spellchecker finishes though wrong words in documents"
-                    end if
-                end if
-            catch
-                Active.Ok
-            endcatch
-        end if
-    else
-        Sleep 2
-        Kontext "Spellcheck"
-        if Spellcheck.Exists then
-            Warnlog "Probably the replaced word found wrong again!"
-            Spellcheck.Close
-        end if
-    end if
-
-    Kontext "Spellcheck"
-    if Spellcheck.Exists then Spellcheck.Close
-
-    '/// Close document ///
-    Call hCloseDocument
-endcase
-
-' *******************************************************************
-
-testcase tToolsSpellcheckAutomatic
-    Dim iError1 as integer
-    Dim iError2 as integer
-    Dim sError1 as string
-    Dim sError2 as string
-    Dim j as integer
-    Dim sNumberOfSuggestions as string
-    Dim sReplaceWithWord as string
-    Dim sDefaultFormat as string
-    Dim TheFile as String
-
-    TheFile = Convertpath (gTesttoolpath + "writer\optional\input\spellcheck\spellcheck_" + iSprache + ".odt")
-    if FileExists ( TheFile ) <> TRUE then
-       Warnlog "Found no Document for the language you're testing in, Please inform the Test-Developer."
-       exit sub
-    end if
-
-    PrintLog "- Tools / Spellcheck / AutoSpellcheck"
-    printlog " Open document where the formatting is set to the language we wish to test."
-    call hFileOpenLocally (TheFile,false)
-    
-
-    '/// Enable Auto-Spellcheck in options
-    Call wEnableAutoSpellcheck ( true )
-
-    '/// Check Auto-Spellcheck and insert a sentence with 2 mistakes ///
-    printlog "   - write text"
-    select case iSprache
-        case 01   : wTypeKeys "Hello thiis here are too errorrs "
-                  iError1 = 1 : iError2 = 4
-                  sError1 = "thiis"  : sError1 = "errorrs"
-                  sDefaultFormat = "Standard"
-        case 03   : wTypeKeys "Aqui poderá elimitnar componentes já instalados ou instalar novos compotentes numa "
-                  iError1 = 2 : iError2 = 7
-                  sError1 = "elimitnar"  : sError1 = "compotentes"
-                  sDefaultFormat = "Padrão"
-        case 31   : wTypeKeys "Betaling binnern 14 dagen rekeningsdatum met 2% kortng, binnen 30 dagen nettor "
-                  iError1 = 1 : iError2 = 7
-                  sError1 = "binnern"  : sError1 = "rekeningsdatum"
-                  sDefaultFormat = "Standaard"
-        case 33   : wTypeKeys "Je vious remercie d'accuser réception dex ce courrier "
-                  iError1 = 1 : iError2 = 4
-                  sError1 = "vious"  : sError1 = "dex"
-                  sDefaultFormat = "Standard"
-        case 34   : wTypeKeys "Este archvo contiene información importnte sobre el programa."
-                  iError1 = 1 : iError2 = 3
-                  sError1 = "archvo"  : sError1 = "importnte"
-                  sDefaultFormat = "Estándar"
-        case 36   : wTypeKeys "A hétezres koszovói amerikai kontingens jelentos részét is a magyarországi bázison helyezi majd el."
-                  iError1 = 1 : iError2 = 4
-                  sError1 = "hétezres"  : sError1 = "jelentos"
-                  sDefaultFormat = "Alapértelmezett"
-        case 39   : wTypeKeys "La sfumaturar è statsi modificata senza salvare "
-                  iError1 = 1 : iError2 = 2
-                  sError1 = "sfumaturar"  : sError1 = "statsi"
-                  sDefaultFormat = "Standard"
-        case 45   : wTypeKeys "Han advarade både mod at kalde traktüten et fredens projekt "
-                  iError1 = 1 : iError2 = 5
-                  sError1 = "advarade"  : sError1 = "traktüten"
-                  sDefaultFormat = "Standard"
-        case 46   : wTypeKeys "Den här fiten innehåller viktit programinformation "
-                  iError1 = 2 : iError2 = 2
-                  sError1 = "fiten"  : sError1 = "viktit"
-                  sDefaultFormat = "Standard"
-        case 48   : wTypeKeys "Nie wolno w zadim wypadku przerywa uruchomiongo serwisu "
-                  iError1 = 3 : iError2 = 3
-                  sError1 = "zadim"  : sError1 = "uruchomiongo"
-                  sDefaultFormat = "Standard"
-        case 49   : wTypeKeys "Hallo hiaer sind swei Fehler "
-                  iError1 = 1 : iError2 = 2
-                  sError1 = "hiaer"  : sError1 = "swei"
-                  sDefaultFormat = "Standard"
-        case 50   : wTypeKeys "Tuki sta dve napki"
-                  iError1 = 1 : iError2 = 2
-                  sError1 = "Tuki"  : sError1 = "napki"
-                  sDefaultFormat = "Standard"
-        case 55   : wTypeKeys "Aqui poderá elimitnar componentes já instalados ou instalar novos compotentes numa "
-                  iError1 = 2 : iError2 = 7
-                  sError1 = "elimitnar"  : sError1 = "compotentes"
-                  sDefaultFormat = "Padrão"
-        case 81 : Printlog "- No Spellcheck in Japanese!"
-                 Call hCloseDocument
-                 goto endsub
-        case 82 : Printlog "- No Spellcheck in Korean!"
-                 Call hCloseDocument
-                 goto endsub
-        case 86 : Printlog "- No Spellcheck in Chinese (simplified)!"
-                 Call hCloseDocument
-                 goto endsub
-        case 88 : Printlog "- No Spellcheck in Chinese (traditional)!"
-                 Call hCloseDocument
-                 goto endsub
-        case else : QAErrorlog "The language " + iSprache +" has no defined errortext. No Test!"
-                  Call hCloseDocument
-                  goto endsub
-    end select
-
-    Call wTypeKeys "<Space><Return>"
-
-    printlog "   -  relieve mistake"
-    Call wTypeKeys "<Up><Home>"
-    Call wTypeKeys "<Mod1 Right>", iError1
-    Call wTypeKeys "<Right>"          ' Cursor in fehlerhaftes NotInDictionary stellen
-    Wait (500)
-    '/// Open contextmenu in first wrong word ///
-    Call wTypeKeys "<Shift F10>"
-    sReplaceWithWord=hMenuItemGetText (2)
-    if sReplaceWithWord<>sDefaultFormat then
-        sNumberOfSuggestions=MenuGetItemCount - 6
-        '/// Check if there is a suggestion and replace word ///
-        if sNumberOfSuggestions <=0 then
-            Warnlog "- No suggestions in Context menu for the first wrong word!"
-        else
-            printlog "- Context menu has " + sNumberOfSuggestions + " suggestions to the 1. wrong word!"
-            Call hMenuSelectNr (2)
-            Call wTypeKeys "<Shift Mod1 Left>"
-            try
-                EditCopy
-                if GetClipboardtext<> sReplaceWithWord then
-                    Warnlog "- 1. wrong Word has not been replaced with " + sReplaceWithWord + " but "+ GetClipBoardtext
-                else
-                    printlog "- 1. wrong word has been replaced with the 1. entry in context menu!"
-                end if
-            catch
-            endcatch
-        end if
-    else
-        Warnlog "- AutoSpellcheck doesn't work , wrong Context menu! (1.Word)"
-    end if
-    Wait (5000)
-    Call wTypeKeys "<Mod1 Right>", iError2
-    Wait (5000)
-    Call wTypeKeys "<Right>"          ' Cursor in fehlerhaftes NotInDictionary stellen
-    Wait (5000)
-    Call wTypeKeys "<Shift F10>"
-
-    sReplaceWithWord=hMenuItemGetText (2)
-    if sReplaceWithWord<>sDefaultFormat then
-        sNumberOfSuggestions=MenuGetItemCount - 6
-        if sNumberOfSuggestions <=0 then
-            Warnlog "- No suggestions in Contextmenu for 2. wrong Word !"
-        else
-            printlog "- Context menu has " + sNumberOfSuggestions + " suggestions for the 2. wrong word!"
-            Call hMenuSelectNr (2)
-            Call wTypeKeys "<Shift Mod1 Left>"
-            try
-                EditCopy
-                if GetClipboardtext<> sReplaceWithWord then
-                    Warnlog "- 2. wrong word has not been replaced with " + sReplaceWithWord + " but "+ GetClipBoardtext
-                else
-                    printlog "- 2. mistake has been replaced with the 1. entry in context menu!"
-                end if
-            catch
-            endcatch
-        end if
-    else
-        Warnlog "- AutoSpellcheck doesn't work, wrong Context menu (2.Word)!"
-    end if
-
-    Call wTypeKeys "<Home>"
-    Call wTypeKeys "<F7>"
-    Sleep 2
-    Kontext "Active"
-    if Active.Exists then
-        if Active.GetRT = 304 then
-            try
-                Active.ok
-            catch
-                Active.Gettext
-                Active.No
-            endcatch
-        end if
-    else
-        Kontext "Spellcheck"
-        if Spellcheck.Exists then
-            QAErrorlog "- Spellchecking dialog is still open. Not all words have been replaced!"
-            Spellcheck.Close
-        end if
-    end if
-
-    Kontext "Active"
-    if Active.Exists then Active.ok
-
-    '/// Close document ///
-    Call hCloseDocument
-endcase
-
-'------------------------------------------------------------------------------------------------------------------------------------------------------------------
-
-testcase tToolsSpellcheckChangeLanguageAttribute
-
-    Dim sWordToBeChecked as string
-    Dim InsFile as string
-    Dim i as integer
-    Dim ReplacedWith as string
-    Dim PriorLanguage as string
-    Dim CurrentLanguage as string
-
-    '/// Open specified document depending on language to check spellcheck ///
-    '/// document has 1 defined wrong word ///
-    PrintLog "- Tools / Spellchecking / Check only one word"
-    InsFile = wGetSpellcheckDocumentName(2)
-    Select Case InsFile
-        Case "None"
-            Printlog "- No Spellcheck for this language available!"
-            goto endsub
-        case "Empty"
-            QAErrorLog "The language " + iSprache +" has no defined Errortext. No test!" 'iSystemSprache
-            goto endsub
-    end select
-
-    if gApplication = "MASTERDOCUMENT" then
-        if wInsertDocumentinMasterDoc(InsFile) = False then goto endsub
-        EditPaste
-    else
-        hFileOpenLocally( InsFile)
-        
-    end if
-    Call wTypeKeys "<Mod1 Home>"
-
-    select case iSprache
-        case 01   : sWordToBeChecked = "excetionally"      ' this word is wrong
-        case 03   : sWordToBeChecked = "semstre"           ' this word is wrong
-        case 07   : sWordToBeChecked = "военно"
-        case 31   : sWordToBeChecked = "lidstartesn"        ' this word is wrong
-        case 33   : sWordToBeChecked = "heues"            ' this word is wrong
-        case 34   : sWordToBeChecked = "vacunaión"         ' this word is wrong
-        case 36   : sWordToBeChecked = "jelentos"
-        case 39   : sWordToBeChecked = "brasilianir"       ' this word is wrong
-        case 45   : sWordToBeChecked = "Amserdam"         ' this word is wrong
-        case 46   : sWordToBeChecked = "avrttades"         ' this word is wrong
-        case 48   : sWordToBeChecked = "stosowanei"         ' this word is wrong
-        case 49   : sWordToBeChecked = "georaphischen"     ' this word is wrong
-        case 50   : sWordToBeChecked = "ssmo"     ' this word is wrong
-        case 55   : sWordToBeChecked = "Veigo"     ' this word is wrong
-    end select
-
-    EditSearchAndReplace
-    Kontext "FindAndReplace"
-    try
-        SearchFor.Settext ""
-    catch
-    endcatch
-    if SimilaritySearch.IsVisible = False then More.Click
-    if SimilaritySearch.IsEnabled then SimilaritySearch.Uncheck
-    if SearchForStyles.IsEnabled then SearchForStyles.Uncheck
-    if RegularExpressions.IsEnabled then RegularExpressions.Uncheck
-    if NoFormat.IsEnabled then NoFormat.Click
-    if CurrentSelectionOnly.IsEnabled then CurrentSelectionOnly.Uncheck
-    WholeWordsOnly.Uncheck
-    Backwards.Uncheck
-    MatchCase.Uncheck
-    RegularExpressions.Check
-
-    SearchFor.Settext sWordToBeChecked
-    SearchNow.Click
-    Kontext "Active"
-    if Active.Exists then
-        if Active.GetRT = 304 then
-            Warnlog "- Didn't found the word to check! No Spellchecking for one word!"
-            Active.Ok
-            Kontext "FindAndReplace"
-            FindAndReplace.Cancel
-            Call hCloseDocument
-            goto endsub
-        end if
-    end if
-    Kontext "FindAndReplace"
-    if FindAndReplace.Exists then FindAndReplace.Cancel
-    EditCopy
-
-    '/// Execute spellcheck: change language Attributes
-    wait 500
-    ToolsSpellcheckWriter
-    Sleep 2
-    Kontext "Spellcheck"
-    if Not Spellcheck.Exists then
-        Kontext "Active"
-        If Active.Exists then
-            If Active.GetRT = 304 then
-                Warnlog Active.Gettext
-                Warnlog "- Probably didn't found the word to check! No Spellchecking for one word!"
-                Active.ok
-            end if
-        end if
-        ToolsSpellcheckWriter
-        Kontext "Spellcheck"
-    end if
-	'/// Replace found word with suggestion from list
-    if Spellcheck.Exists then
-        PriorLanguage = DictionaryLanguage.GetSelText
-        printlog "- remember selected language: " & PriorLanguage
-        for i = 1 to DictionaryLanguage.GetItemCount
-            DictionaryLanguage.Select i
-            if Suggestions.GetItemCount > 0 then
-                CurrentLanguage = DictionaryLanguage.GetSelText
-                if Suggestions.IsEnabled and CurrentLanguage <> PriorLanguage then
-                    printlog "-  replace with language: " & CurrentLanguage
-                    Suggestions.Select 1
-                    ReplacedWith = Suggestions.GetSelText
-                    printlog "-  replace with word: " & ReplacedWith
-                    i = DictionaryLanguage.GetItemCount + 1
-                end if
-            end if
-        next i
-        '/// Close spellcheck dialog and check if properties have been set
-        if ReplacedWith > "" then
-            Change.Click
-            Kontext "Active"
-            if Active.Exists then
-                if Active.GetRT = 304 then
-                    try
-                        Active.Yes
-                    catch
-                    endcatch
-                end if
-            end if
-            ' Finished message ?
-            Kontext "Active"
-            if Active.Exists then
-                if Active.GetRT = 304 then
-                    try
-                        Active.Ok
-                    catch
-                    endcatch
-                end if
-            end if
-            wait 500
-            Kontext "Spellcheck"
-            if Spellcheck.Exists then
-                SpellcheckClose.Click
-            end if
-            wait 500
-            Call wTypeKeys "<Mod1 Home>"
-            printlog "- find replaced word"
-
-            EditSearchAndReplace
-            Kontext "FindAndReplace"
-            try
-                SearchFor.Settext ""
-            catch
-            endcatch
-
-            SearchFor.Settext ReplacedWith
-            SearchNow.Click
-            Kontext "Active"
-            if Active.Exists then
-                if Active.GetRT = 304 then
-                    Warnlog "- Didn't found the replaced word !"
-                    Active.Ok
-                    Kontext "FindAndReplace"
-                    FindAndReplace.Cancel
-                    Call hCloseDocument
-                    goto endsub
-                end if
-            end if
-            Kontext "FindAndReplace"
-            if FindAndReplace.Exists then FindAndReplace.Cancel
-            wait 500
-            FormatCharacter
-            Kontext
-            Active.Setpage TabFont
-            Kontext "TabFont"
-            try
-                if Language.GetSelText <> CurrentLanguage then
-                    if Language.GetSelText = PriorLanguage then
-                        Warnlog "Language Attributes has not been set to" & CurrentLanguage
-                    else
-                        Warnlog "Language Attributes has not been set to " & CurrentLanguage & " but " & Language.GetSelText
-                    end if
-                end if
-            catch
-                if LanguageWest.GetSelText <> CurrentLanguage then
-                    if LanguageWest.GetSelText = PriorLanguage then
-                        Warnlog "Language Attributes has not been set to" & CurrentLanguage
-                    else
-                        Warnlog "Language Attributes has not been set to " & CurrentLanguage & " but " & LanguageWest.GetSelText
-                    end if
-                end if
-            endcatch
-            TabFont.Cancel
-        else
-            QAErrorlog "No suggestions found! Maybe wrong word should be changed to run more deeper testing"
-        end if
-    else
-        Warnlog "Spellcheck dialog is not up !"
-    end if
-    '/// Close document ///
-    Call hCloseDocument
-endcase
-
-' *******************************************************************
-
-testcase tToolsSpellcheckButtonChange
-    Dim InsFile as string
-    Dim i as integer
-    '/// Open specified document depending on language to check spellcheck ///
-    '/// document has 1 defined wrong word ///
-    PrintLog "- Tools / Spellchecking / Check button 'change'"
-    InsFile = wGetSpellcheckDocumentName(2)
-    Select Case InsFile
-        Case "None"
-            Printlog "- No Spellcheck for this language available!"
-            goto endsub
-        case "Empty"
-            QAErrorLog "The language " + iSprache +" has no defined Errortext. No test!"  'iSystemSprache
-            goto endsub
-    end select
-
-    if gApplication = "MASTERDOCUMENT" then
-        if wInsertDocumentinMasterDoc(InsFile) = False then goto endsub
-        EditPaste
-    else
-        hFileOpenLocally( InsFile)
-        
-    end if
-    Call wTypeKeys "<Mod1 Home>"
-
-    '/// invoke the spellchecker
-    ToolsSpellcheckWriter
-    '/// Check if button change if disabled if
-    '/// 1. No suggestion has been given from spellchecker
-    '/// 2. The button 'change' should be enabled if found mistake has been changed!"
-    Kontext "Active"
-    if Active.Exists then
-        if Active.GetRT = 304 then
-            try
-                Active.Ok
-                Warnlog "No mistake found in sample document -> Bug!"
-            catch
-            endcatch
-        else
-            Kontext "Spellcheck"
-            if Spellcheck.Exists then
-                for i = 1 to DictionaryLanguage.GetItemCount
-                    DictionaryLanguage.Select i
-                    if Suggestions.GetItemCount = 0 then
-                        if Change.IsEnabled = true then
-                            Warnlog "Button 'Change' is enabled though no sugggestion is given"
-                        else
-                            NotInDictionary.TypeKeys "Enable me"
-                            wait 500
-                            if Not Change.IsEnabled = true then
-                                Warnlog "Button 'Change' is disabled though text has been changed"
-                            end if
-                         end if
-                     end if
-                next i
-            end if
-        end if
-    end if
-    Kontext "Spellcheck"
-    if Spellcheck.Exists then SpellcheckClose.Click
-    '/// Close document
-    Call hCloseDocument
-
-endcase
-
-' *******************************************************************
-
-testcase tToolsSpellcheckButtonChangeAll
-    Dim InsFile as string
-    Dim i as integer
-    '/// Open specified document depending on language to check spellcheck ///
-    '/// document has 1 defined wrong word ///
-    PrintLog "- Tools / Spellchecking / Check button 'change all'"
-    InsFile = wGetSpellcheckDocumentName(2)
-    Select Case InsFile
-        Case "None"
-            Printlog "- No Spellcheck for this language available!"
-            goto endsub
-        case "Empty"
-            QAErrorLog "The language " + iSprache +" has no defined Errortext. No test!"  'iSystemSprache
-            goto endsub
-    end select
-
-    if gApplication = "MASTERDOCUMENT" then
-        if wInsertDocumentinMasterDoc(InsFile) = False then goto endsub
-        EditPaste
-    else
-        hFileOpenLocally( InsFile)
-        
-    end if
-    Call wTypeKeys "<Mod1 Home>"
-
-    '/// invoke the spellchecker
-    ToolsSpellcheckWriter
-    '/// Check if button 'change all' disabled if found mistake has been changed!"
-    Kontext "Active"
-    if Active.Exists then
-        if Active.GetRT = 304 then
-            try
-                Active.Ok
-                Warnlog "No mistake found in sample document -> Bug!"
-            catch
-            endcatch
-        else
-            Kontext "Spellcheck"
-            if ChangeAll.IsEnabled then
-                NotInDictionary.TypeKeys "Disable me"
-                wait 500
-                if ChangeAll.IsEnabled = true then
-                    Warnlog "Button 'Change all' is disabled though text has been changed"
-                end if
-            else
-                Warnlog "Button 'Change all' should be enabled"
-            end if
-            SpellcheckClose.Click
-        end if
-    end if
-    '/// Close document
-    Call hCloseDocument
-
-endcase
-
-' *******************************************************************
-
-testcase tToolsThesaurus
-
-    Dim sWordInitial as string
-    Dim sWordToBeFound as string
-    Dim TheFile as String
-
-    PrintLog "- Tools / Thesaurus"
-
-    printlog " Open document where the formatting is set to the language we wish to test."
-    TheFile = Convertpath (gTesttoolpath + "writer\optional\input\spellcheck\spellcheck_" + iSprache + ".odt")
-    if FileExists ( TheFile ) <> TRUE then
-       Warnlog "Found no Document for the language you're testing in, Please inform the Test-Developer."
-       exit sub
-    end if
-
-    select case iSprache
-        case 01 : sWordInitial = "Morning"
-        case 03 : sWordInitial = "Confirmam"
-        case 07 : Printlog "- No Thesaurus in Russian!"
-                  goto endsub
-        case 31 : sWordInitial = "Hulp"
-        case 33 : sWordInitial = "Payer"
-        case 34 : sWordInitial = "Suficiente"
-        case 36 : Printlog "- No Thesaurus in Hungarian!"
-                  goto endsub
-        case 39 : sWordInitial = "Lingua"
-        case 45 : sWordInitial = "Først"
-        case 46 : sWordInitial = "Däng"
-        case 48 : sWordInitial = "wypowiedź"
-        case 49 : sWordInitial = "Mann"
-        case 50 : sWordInitial = "smisel"
-        case 55 : Printlog "- No Thesaurus in Portuguese (Brazil) !"
-        		  goto endsub
-        case 81 : Printlog "- No Thesaurus in Japanese!"
-                  goto endsub
-        case 82 : Printlog "- No Thesaurus in Korean!"
-                  goto endsub
-        case 86 : Printlog "- No Thesaurus in Chinese (simplified)!"
-                  goto endsub
-        case 88 : Printlog "- No Thesaurus in Chinese (traditional)!"
-                  goto endsub
-        case 30, 35, 36, 37, 42, 47, 48, 51, 90
-                  Printlog "- No Thesaurus available !"
-                  goto endsub
-        case else : QAErrorlog "The language " + iSprache + " has no defined errortext. No Test!"
-                    goto endsub
-    end select
-
-    printlog "Open new preformatted-writerdocument"
-    call hFileOpenLocally (TheFile,false)
-    
-
-    printlog "-  Thesaurus without a word"
-    '/// Call Thesaurus without a written word ///
-	ToolsLanguageThesaurus
-    Kontext "Thesaurus"
-    if CurrentWord.GetSelText <> "" then Warnlog "- Though no word has been selected Current Word textfield is filled !"
-    if ReplaceWith.GetText <> "" then Warnlog "- Though no word has been selected there is a replacetext in the textfield!"
-    printlog "Set language dependent word in textfield Current Word"
-    CurrentWord.Settext sWordInitial
-
-    Sleep 2
-    if Alternatives.GetItemCount = 0 then
-        Warnlog "No alternatives text"
-    else
-        if ReplaceWith.Gettext <> Alternatives.GetText(Alternatives.GetSelIndex) then
-            Warnlog "Replace with textfield was not filled with word from alternative"
-        endif
-    endif
-    sWordToBeFound = ReplaceWith.GetText
-    Thesaurus.OK
-    Call wTypeKeys "<Home><Shift End>"
-    wait 200
-    EditCopy
-    if iSprache = 1 then
-        if GetClipboardText <> sWordToBeFound then Warnlog "Wrong word has been replaced, not => " + sWordInitial + " but => " + GetClipboardText
-    else
-        if LCase (GetClipboardText) <> LCase (sWordToBeFound) then Warnlog "Wrong word has been replaced, not => " + sWordToBeFound + " but => " + GetClipboardText
-    end if
-    Call hCloseDocument
-    wait 500
-
-    printlog " Open new preformatted-document where the formatting is set to the language we wish to test."
-    call hFileOpenLocally (TheFile,false)
-    
-
-    Call wTypeKeys sWordInitial
-    Call wTypeKeys "<Home><Right><Right>"
-
-    printlog "-  Replace ( select alternative with cursor within word )"
-    ToolsLanguageThesaurus
-    Kontext "Thesaurus"
-    wait 500
-    if CurrentWord.GetSeltext = sWordInitial then
-    	sWordToBeFound = ReplaceWith.Gettext
-		if Alternatives.GetItemCount > 0 then
-			printlog "Select last entry in alternatives list"
-			Alternatives.Select Alternatives.GetItemCount
-			Alternatives.TypeKeys "<Space>"
-			if ReplaceWith.Gettext = sWordToBeFound then
-				Warnlog "Though alternative was selected replace with was not changed"
-			else
-				sWordToBeFound = ReplaceWith.Gettext
-			end if
-			Thesaurus.OK
-			Call wTypeKeys "<Home><Shift End>"
-			wait 200
-			EditCopy
-			if GetClipboardText <> sWordToBeFound then Warnlog "Text has not been correctly replaced, not => " + sWordToBeFound + " but => " + GetClipboardText
-		else
-			Warnlog "- No Alternative for current word"
-			Thesaurus.Ok
-		end if
-	else
-		Warnlog "Current word is not selected word !"
-	end if
-
-    Call wTypeKeys "<Home><Shift End><Delete>"
-    Call wTypeKeys sWordInitial
-
-    printlog "-  Replace unchecked ( Cursor at words end )"
-    ToolsLanguageThesaurus
-    Kontext "Thesaurus"
-    wait 500
-    if CurrentWord.GetSeltext = sWordInitial then
-    	sWordToBeFound = ReplaceWith.Gettext
-		if Alternatives.GetItemCount > 0 then
-			printlog "Select last entry in alternatives list"
-			Alternatives.Select Alternatives.GetItemCount
-
-			if ReplaceWith.Gettext = sWordToBeFound then
-				Warnlog "Though alternative was selected replace with was not changed"
-			else
-			    Alternatives.TypeKeys "<Space>"
-				sWordToBeFound = ReplaceWith.Gettext
-			end if
-			Thesaurus.OK
-			Call wTypeKeys "<Home><Shift End>"
-			wait 200
-			EditCopy
-			if GetClipboardText <> sWordToBeFound then Warnlog "Text has not been correctly replaced, not => " + sWordToBeFound + " but => " + GetClipboardText
-		else
-			Warnlog "- No Alternative for current word"
-			Thesaurus.Ok
-		end if
-	else
-		Warnlog "Current word is not selected word !"
-	end if
-
-    '/// Close thesaurus and writerdocument ///
-    Call hCloseDocument
-endcase
-
-' *******************************************************************
-
-testcase tToolsThesaurusSynonyms
-
-    Dim sWordInitial as string
-    Dim sNumberOfSuggestions as string
-    Dim sReplaceWithWord as string
-    Dim TheFile as String
-
-    PrintLog "- Tools / Thesaurus"
-
-    printlog " Open document where the formatting is set to the language we wish to test."
-    TheFile = Convertpath (gTesttoolpath + "writer\optional\input\spellcheck\spellcheck_" + iSprache + ".odt")
-    if FileExists ( TheFile ) <> TRUE then
-       Warnlog "Found no Document for the language you're testing in, Please inform the Test-Developer."
-       exit sub
-    end if
-
-    select case iSprache
-        case 01 : sWordInitial = "Morning"
-        case 03 : sWordInitial = "Confirmam"
-        case 07 : Printlog "- No Thesaurus in Russian!"
-                  goto endsub
-        case 31 : sWordInitial = "Hulp"
-        case 33 : sWordInitial = "Payer"
-        case 34 : sWordInitial = "Suficiente"
-        case 36 : Printlog "- No Thesaurus in Hungarian!"
-                  goto endsub
-        case 39 : sWordInitial = "Lingua"
-        case 45 : sWordInitial = "Først"
-        case 46 : sWordInitial = "Däng"
-        case 48 : sWordInitial = "wypowiedź"
-        case 49 : sWordInitial = "Mann"
-        case 50 : sWordInitial = "smisel"
-        case 55 : Printlog "- No Thesaurus in Portuguese (Brazil) !"
-        		  goto endsub
-        case 81 : Printlog "- No Thesaurus in Japanese!"
-                  goto endsub
-        case 82 : Printlog "- No Thesaurus in Korean!"
-                  goto endsub
-        case 86 : Printlog "- No Thesaurus in Chinese (simplified)!"
-                  goto endsub
-        case 88 : Printlog "- No Thesaurus in Chinese (traditional)!"
-                  goto endsub
-        case 30, 35, 36, 37, 42, 47, 48, 51, 90
-                  Printlog "- No Thesaurus available !"
-                  goto endsub
-        case else : QAErrorlog "The language " + iSprache + " has no defined errortext. No Test!"
-                    goto endsub
-    end select
-
-    printlog "Open new preformatted-writerdocument"
-    call hFileOpenLocally (TheFile,false)
-    
-    Call wTypeKeys sWordInitial
-    Call wTypeKeys "<Shift Home>"
-
-    printlog "Open contextmenu in wrong word"
-    Call wTypeKeys "<Shift F10>"
-    printlog "Select 'Synonyms' in context menu"
-    Call hMenuSelectNr (13)
-    sNumberOfSuggestions=MenuGetItemCount - 2
-    '/// Check if there is a suggestion and replace word ///
-    if sNumberOfSuggestions <=0 then
-        Warnlog "- No synonyms in Context menu for the first wrong word!"
-    else
-        printlog "- Context menu has " + sNumberOfSuggestions + " synonyms for the 1. wrong word!"
-        sReplaceWithWord=hMenuItemGetText (1)
-        Call hMenuSelectNr (1)
-        Call wTypeKeys "<Shift Mod1 Left>"
-        try
-            EditCopy
-            if GetClipboardtext<> sReplaceWithWord then
-                Warnlog "- 1. wrong Word has not been replaced with " + sReplaceWithWord + " but "+ GetClipBoardtext
-            else
-                printlog "- 1. wrong word has been replaced with the 1. entry in context menu!"
-            end if
-        catch
-        endcatch
-    end if
-    Call hCloseDocument
-
-endcase
diff --git a/testautomation/writer/optional/includes/spellcheck/w_spellcheck1.inc b/testautomation/writer/optional/includes/spellcheck/w_spellcheck1.inc
deleted file mode 100644
index d2df892a3bc5..000000000000
--- a/testautomation/writer/optional/includes/spellcheck/w_spellcheck1.inc
+++ /dev/null
@@ -1,160 +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 : helge.delfs@oracle.com
-'*
-'* short description : Spellcheck-Testing. Functional-Test.
-'*
-'\***********************************************************************
-
-sub w_spellcheck1
-    Call tLanguage_Guess
-end sub
-
-'-------------------------------------------------------------------------
-
-testcase tLanguage_Guess
-
-'Variables:
-DIM iStringPosition     AS integer 'Position of string in context menu for word, paragraph
-DIM iLanguageCount      AS integer 'variable for counting through languages in test doc
-DIM WordPreSet          AS string 'given string for comparison from w_locale_strings2.inc
-DIM WordLanguage        AS string '"word is..."entry in context menu
-DIM ParagraphLanguage   AS string '"paragraph is..."entry in context menu
-DIM ParagraphPreSet     AS string 'given string for comparison of paragraphs from w_locale_strings2.inc
-DIM WordLanguageTemp    AS string 'variable for checking if Office language is already covered in w_locale_strings2.inc
-
-    '///Load test document///
-    call hFileOpen (ConvertPath ( gTesttoolPath + "writer\optional\input\spellcheck\Language_Guessing_Sample_Texts.odt"))      'loading Test-Doc
-    
-    sleep(5)
-    '----------------------------------------------------------------
-    '///Enable auto spellcheck///
-    Kontext "Standardbar"
-    if AutoSpellcheck.GetState(2) <> 1 then     'cheking if auto-spellcheck is checked
-        printlog "Autospellcheck not checked, checking Autospellcheck now"
-        AutoSpellcheck.Click
-        printlog "Autospellcheck checked"
-    else
-        printlog "Autospellcheck is already checked"
-    end if
-    '----------------------------------------------------------------
-    ViewNavigator       'opening navigator and selecting table
-    sleep(1)
-    Call wNavigatorAuswahl(2,1)
-    DocumentWriter.TypeKeys "<MOD1 UP>"
-    ViewNavigator       'closing navigator
-    printlog "-----------------"
-    '----------------------------------------------------------------
-    '///Put the cursor in the first wrong word///
-        
-    for iLanguageCount = 1 to 11         'running through the languages
-    'checking the word proposal
-        printlog "CHECKING WORD:"
-        DocumentWriter.TypeKeys "<MOD1 DOWN>"
-        DocumentWriter.TypeKeys "<MOD1 DOWN>"
-        '///Call context menu///
-        DocumentWriter.TypeKeys "<SHIFT F10>"       'calling context menu
-        'selecting 'word is... position
-        iStringPosition = hMenuItemGetCount - 1     'calculating last but one entry
-        
-        'getting string from position
-        WordLanguage = hMenuItemGetText(iStringPosition)        'gets text from entry
-        'printing out string for having a look at the values.
-        printlog "WordLanguage is " + WordLanguage
-        '///Verify that the language proposal "word is..." is correct///
-        WordLanguageTemp = wGetLanguageGuessString("WordPreSet", iLanguageCount) 'comparing reality against the string in w_locale_strings2.inc
-        if WordLanguageTemp > "" then 'checking if the language has really an entry in w_locale_strings2.inc
-            if WordLanguage = WordLanguageTemp then
-                printlog "Word language proposal is correct" 'all ok
-            else
-                warnlog "Word language proposal is not correct!" 'problem!
-            end if
-        else
-            Call MenuSelect(0) 'closing menu when language is not yet covered
-            Call hCloseDocument ''closing doc when language is not yet covered
-            exit sub
-        end if
-        
-        '///Apply the language for this word ///
-        call hMenuItemCheck (iStringPosition)        'clicking on menu entry, closing context. Word looses redline.
-        sleep (1)
-        '///Verifiy that the language is set correctly for this word ///
-        DocumentWriter.TypeKeys "<SHIFT F10>"       'calling context menu
-        iStringPosition = hMenuItemGetCount - 1     'calculating last but one entry
-        WordLanguage = hMenuItemGetText(iStringPosition)        'gets text from entry
-        if WordLanguage = WordPreSet then ' checking if context menu ahs changed
-            warnlog "Word language not applied correctly!" 'Problem!
-        else
-            printlog "Word language applied correctly" ''all ok
-        end if
-        Call MenuSelect(0) 'closing menu
-        
-        '----------------------------------------------------------------
-        printlog "CHECKING PARAGRAPH:"
-        EditUndo        'undoing hMenuItemCheck from Check-word-part
-        DocumentWriter.TypeKeys "<MOD1 LEFT>"
-        sleep (1)
-        '///Call context menu///
-        DocumentWriter.TypeKeys "<SHIFT F10>"       'calling context menu
-        'selecting 'paragraph is... position
-        iStringPosition = hMenuItemGetCount     'calculating last entry
-        'getting string from position
-        ParagraphLanguage = hMenuItemGetText(iStringPosition)        'gets text from entry
-        'printing out string
-        printlog ParagraphLanguage
-        '///Verify that the language proposal "paragraph is..." is correct///
-        if ParagraphLanguage = wGetLanguageGuessString("ParagraphPreSet", iLanguageCount) then 'comparing reality against the string in w_locale_strings2.inc
-            printlog "Paragraph language proposal is correct" 'all ok
-        else
-            warnlog "Paragraph language proposal is not correct!" 'Problem!
-        end if 
-        
-        
-        '///Apply the language for this paragraph ///
-        call hMenuItemCheck (iStringPosition)        'clicking on last menu entry, closing context. Paragraph looses redline.
-        sleep (1)
-        '///Verify that the language is set correctly for this paragraph ///
-        DocumentWriter.TypeKeys "<SHIFT F10>"       'calling context menu
-        iStringPosition = hMenuItemGetCount     'calculating last entry
-        ParagraphLanguage = hMenuItemGetText(iStringPosition)        'gets text from entry
-        '///Verify that the language is set correctly for this paragraph ///
-        if ParagraphLanguage = ParagraphPreSet then
-           warnlog "Paragraph language not applied correctly!" 'Problem
-        else
-            printlog "Paragraph language applied correctly" 'all ok
-        end if
-        Call MenuSelect(0) 'closing menu
-        printlog "-----------------"
-        '///Go to the next text sample ///
-        '///Repeat for all western languages ///
-    next iLanguageCount
-    
-    call hCloseDocument      'engl. Test-Doc closed
-    '----------------------------------------------------------------
-endcase
-
diff --git a/testautomation/writer/optional/includes/stylist/w_stylist.inc b/testautomation/writer/optional/includes/stylist/w_stylist.inc
deleted file mode 100644
index ce607be28d30..000000000000
--- a/testautomation/writer/optional/includes/stylist/w_stylist.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 : helge.delfs@oracle.com
-'*
-'* short description : Test common stylist functions and assigning styles
-'*
-'************************************************************************
-'*
-' #1 tFormatStylist1
-' #1 tFormatStylist2
-' #1 tFormatStylist3
-' #1 tFormatStylist4
-' #1 tFormatStylist5
-' #1 tFormatStylist6
-' #1 tFormatStylist7
-' #1 tAssigningStyles1
-' #1 tAssigningStyles2
-' #1 tAssigningStyles3
-' #1 tAssigningStyles4
-' #1 tAssigningStyles5
-' #1 tAssigningStyles6
-' #1 tAssigningStyles7
-' #1 tKeyboardShortcutToStyles
-'*
-'\***********************************************************************
-
-sub w_stylist
-   printLog Chr(13) + "---------   Level 1 - Format / Stylist   ----------"
-
-   Call tFormatStylist1                ' all methods on stylist
-   Call tFormatStylist2                ' interacting between documents
-   Call tFormatStylist3                ' show all templates
-   Call tFormatStylist4                ' search/create templates
-   Call tFormatStylist5                ' select templet in stylist
-   Call tFormatStylist6                ' new template from selection
-   Call tFormatStylist7                ' new template from selection, modified via ContextMenu.
-   Call tAssigningStyles1
-   Call tAssigningStyles2
-   Call tAssigningStyles3
-   Call tAssigningStyles4
-   Call tAssigningStyles5
-   Call tAssigningStyles6
-   Call tAssigningStyles7
-   Call tKeyboardShortcutToStyles
-
-end sub
-
-' **********************************************************************
-
-testcase tFormatStylist1
-    Dim xPos as long
-    Dim yPos as long
-    Dim xSize%
-    Dim ySize%
-
-    printlog "- Format / Stylist : all methods with Navigator as window"
-    printlog "New writerdocument"
-    Call hNewDocument
-    printlog "  - Call Stylist with F11"
-    printlog "Call stylist with <F11> aand proof all windowmethods at stylist"
-    if lcase(gPlatform) = "osx" then
-        call hTypekeys "<mod1 t>"
-    else
-        Call wTypeKeys "<F11>"
-    end if
-    Kontext "Stylist"
-    if Stylist.NotExists then
-        Warnlog "No Stylist with <F11>"
-        FormatStylist
-    end if
-    xPos = Stylist.GetPosX
-    yPos = Stylist.GetPosY
-    xSize% = Stylist.GetSizeX
-    ySize% = Stylist.GetSizeY
-
-    printlog "  - move Stylist"
-    Stylist.Move 10, 10
-    Sleep 1
-    Stylist.Move 300, 400
-    Sleep 1
-    Stylist.Move 590, 790
-    Sleep 1
-    Stylist.Move xPos, yPos
-    Sleep 1
-
-    printlog "  - size Stylist"
-    try
-        Stylist.Size 300, 400
-    catch
-        Warnlog "Sizen Stylist doesn't work"
-    endcatch    
-    Sleep 1
-    try
-        Stylist.Size xSize%, ySize%
-    catch
-        Warnlog "Sizen Stylist doesn't work"
-    endcatch
-    Sleep 1
-
-    printlog "  - close Stylist and reopen ( has to be the same size )"
-    xPos = Stylist.GetPosX
-    yPos = Stylist.GetPosY
-    xSize% = Stylist.GetSizeX
-    ySize% = Stylist.GetSizeY
-    FormatStylist
-    Sleep 1
-    FormatStylist
-    if xPos <> Stylist.GetPosX then Warnlog "x-Pos. has been changed : Not -> "+ xPos + "  but -> "+ Stylist.GetPosX
-    if yPos <> Stylist.GetPosY then Warnlog "y-Pos. has been changed : Not -> "+ yPos + "  but -> "+ Stylist.GetPosY
-    if xSize% <> Stylist.GetSizeX then Warnlog "x-Size has been changed : Not -> "+ xSize% + "  but -> "+ Stylist.GetSizeX
-    if ySize% <> Stylist.GetSizeY then Warnlog "y-Size has been changed : Not -> "+ ySize% + "  but -> "+ Stylist.GetSizeY
-
-    printlog "  - dock Stylist"
-    Stylist.Dock
-    Sleep 1
-    if NOT Stylist.IsDocked then Warnlog "Stylist has not been docked in"
-    Stylist.Undock
-    Sleep 1
-
-    Stylist.Close
-    printlog "Close document"
-    Call hCloseDocument
-
-endcase
-
-' **********************************************************************
-
-testcase tFormatStylist2
-    Dim xPos%
-    Dim yPos%
-    Dim xSize%
-    Dim ySize%
-
-    printlog "- Format/Stylist : Methods from Stylist as Window between more than one document"
-    printlog " New document"
-    Call hNewDocument
-    printlog "check all methods of Stylist as Window between more than one document"
-    Call wTypeKeys "Test the stylist functions"
-    printlog "  - Call Stylist in first document and check in a second document"
-    Sleep 2
-    Kontext "Stylist"
-    If Not Stylist.Exists then FormatStylist
-    Sleep 2
-    Call hNewDocument
-    Call wTypeKeys "Test the stylist functions"
-    Sleep 2
-    Kontext "Stylist"
-    if Stylist.NotExists then Warnlog "No Stylist in new document"
-
-    printlog "  - Close all documents and reopen"
-    Sleep 2
-    Call hCloseDocument
-    Sleep 2
-    Call hCloseDocument
-    Sleep 2
-    Call hNewDocument
-    Sleep 2
-    Call wTypeKeys "Test the stylist functions"
-    Kontext "Stylist"
-    if Stylist.NotExists then Warnlog "No Stylist in a new document"
-
-    printlog "  - Dock Stylist in first document and check in a new if docked"
-    Sleep 2
-    Stylist.Dock
-    Sleep 1
-    Call hNewDocument
-    Call wTypeKeys "Test the stylist functions"
-    Kontext "Stylist"
-    if NOT Stylist.IsDocked then Warnlog "Stylist is not docked in new document"
-    
-    printlog "  - Close all documents, reopen one and check docked Stylist"
-    Call hCloseDocument
-    Sleep 2
-    Call hCloseDocument
-    Sleep 2
-    Call hNewDocument
-    Kontext "Stylist"
-    if NOT Stylist.IsDocked then Warnlog "Stylist is not docked in new document"
-    
-    printlog "  - Close Stylist with <F11>"
-    Stylist.Undock
-    Sleep 1
-    if lcase(gPlatform) = "osx" then
-        call hTypekeys "<mod1 t>"
-    else
-        Call wTypeKeys "<F11>"
-    end if
-    Kontext "Stylist"
-    if NOT Stylist.NotExists then
-        Warnlog "Stylist is still open"
-        Stylist.Close
-    end if
-    printlog "Close document"
-    Call hCloseDocument
-    
-endcase
-
-' **********************************************************************
-
-testcase tFormatStylist3
-    Dim i as Integer
-    Dim AllStyles as integer
-    Dim j as integer
-    Dim RemString as string
-    printlog "- Format / Stylist : select all Style properties"
-
-    Call hNewDocument
-    printlog " New writerdocument"
-    FormatStylist
-    printlog "Select all style properties in stylist"
-    Kontext "Stylist"
-    if Stylist.NotExists then FormatStylist
-    printlog "   - Paragraph Styles"
-    Absatzvorlagen.Click
-
-    for i=1 to Gruppenliste.GetItemCount
-        Gruppenliste.Select i
-        wait 500
-        if i = 2 then  ' All Styles
-            Vorlagenliste.TypeKeys "<Home>"
-            AllStyles = 1
-            For j = 1 to 200
-                RemString = Vorlagenliste.Gettext
-                'Include this, if you want to see the styles in writerdocument
-                'SetClipboard Vorlagenliste.Gettext
-                'Kontext "DocumentWriter"
-                'DocumentWriter.TypeKeys GetClipboardtext + "<Return>"
-                'Kontext "Stylist"
-                Vorlagenliste.TypeKeys "<Down>"
-                if Vorlagenliste.Gettext <> RemString then
-                    AllStyles = AllStyles + 1
-                else
-                    j = 202
-                    if AllStyles <> "122" then
-                        Select Case iSprache
-                            Case 07
-                                warnlog "Double styles in stylist"
-                            Case 55
-                                warnlog "Missing Style in Stylist"
-                            Case 31
-                                warnlog "Missing Style in Stylist"
-                            Case else
-                                Warnlog "There are " + AllStyles + " styles in this category and not 122!"
-                        end select
-                    else
-                        printlog "There are " + AllStyles + " styles in this category!"
-                    end if
-                end if
-            next j
-        end if
-        Sleep 1
-    next i
-
-    Zeichenvorlagen.Click
-    Sleep 2
-    printlog "   - Chapter Styles"
-    for i=1 to Gruppenliste.GetItemCount
-        Gruppenliste.Select i
-        AllStyles = AllStyles + 1
-        Sleep 1
-    next i
-
-    Rahmenvorlagen.Click
-    Sleep 2
-    printlog "   - Frame Styles"
-    for i=1 to Gruppenliste.GetItemCount
-        Gruppenliste.Select i
-        AllStyles = AllStyles + 1
-        Sleep 1
-    next i
-
-    Seitenvorlagen.Click
-    Sleep 2
-    printlog "   - Page Styles"
-    for i=1 to Gruppenliste.GetItemCount
-        Gruppenliste.Select i
-        AllStyles = AllStyles + 1
-        Sleep 1
-    next i
-    Stylist.Close
-    printlog "Close document"
-    Call hCloseDocument
-endcase
-
-' **********************************************************************
-
-testcase tFormatStylist4
-    Dim i as Integer
-    Dim AlterWert$
-    Dim NeuerWert$
-
-    printlog "- Format / Stylist : check created Styles"
-    printlog "New writerdocument"
-    Call hNewDocument
-    printlog "   - create Paragraph Style in Stylist"
-    Call wStyleCreate ( "ATesttool", "Paragraph", true )
-    Kontext "Stylist"
-    printlog "Check if Style has been added in stylist"
-    if wStyleSelect ( "ATesttool", "Paragraph" ) = false then Warnlog "Paragraph Style has not been found"
-
-    printlog "   - Create Character Style in Stylist"
-    Call wStyleCreate ( "BTesttool", "Character", true )
-    if wStyleSelect ( "BTesttool", "Character" ) = false then Warnlog "Character Style has not been found!"
-    printlog "   - Create Frame Style in Stylist"
-    Call wStyleCreate ( "CTesttool", "Frame", true )
-    if wStyleSelect ( "CTesttool", "Frame" ) = false then Warnlog "Frame Style has not been found!"
-
-    printlog "   - Create Page Style in Stylist"
-    Call wStyleCreate ( "DTesttool", "Page", true )
-    if wStyleSelect ( "DTesttool", "Page" ) = false then Warnlog "Page Style has not been found"
-
-    printlog "   - creating Styles should not have been affecting to new documents"
-    ' To avoid focus problems on unix first close stylist
-    Kontext "Stylist"
-    if Stylist.Exists then FormatStylist   
-    Call hNewDocument
-    Kontext "Stylist"
-    if Not Stylist.Exists then FormatStylist
-
-    if wStyleSelect ( "ATesttool", "Paragraph" ) = true then Warnlog "Paragraph Style has been found in new document"
-    if wStyleSelect ( "BTesttool", "Character" ) = true then Warnlog "Character Style has been found in new document"
-    'if wStyleSelect ( "CTesttool", "Frame" ) = true then Warnlog "Frame Style has been found in new document"
-    if wStyleSelect ( "DTesttool", "Page" ) = true then Warnlog "Page Style has been found in new document"
-
-    Call hCloseDocument
-    printlog "Close document"
-    Call hCloseDocument
-endcase
-
-' **********************************************************************
-
-testcase tFormatStylist5
-    Dim SuchMal as string, i as integer
-    Dim bStyleFound as boolean
-
-    printlog "- Format / Stylist : select Style"
-    printlog "New writerdocument"
-    if bAsianLan = True then
-        printlog "- Not in Asian languages!"
-        goto endsub
-    end if
-    Call hNewDocument
-    Call wTypeKeys "Dies ist ein formatierter Text <Shift Home>"
-    printlog "  - format Text"
-    FormatCharacter
-    Kontext
-    Active.SetPage TabFontEffects
-    Kontext "TabFontEffects"
-    StrikeThrough.Select 2
-    Outline.Check
-    TabFontEffects.OK
-
-    printlog "  - adjust to Standard-Format through the Stylist"
-    printlog "adjust to Standard-Format through the Stylist"
-    FormatStylist
-    Kontext "Stylist"
-    if Stylist.NotExists then FormatStylist
-    'Get name for 'default' template
-    Kontext "TextObjectbar"
-    SuchMal = Vorlage.GetSelText
-    printlog "Using " & SuchMal & " as 'default'" 
-    Kontext "Stylist"
-   
-    Vorlagenliste.TypeKeys "<Home>"
-    bStyleFound = false
-    for i=1 to Vorlagenliste.GetItemCount
-        Vorlagenliste.Select i
-        if Vorlagenliste.GetText = Suchmal then
-            Vorlagenliste.TypeKeys "<Return>"
-            bStyleFound = true
-            exit for
-        end if
-    next i
-    Stylist.Close
-    
-    if bStyleFound = false then
-        Warnlog "Style: " & Suchmal & " has not been found in Stylist"
-        Call hCloseDocument
-        goto endsub
-    end if      
-
-    printlog "  - check format"
-    FormatCharacter
-    Kontext
-    Active.SetPage TabFontEffects
-    Kontext "TabFontEffects"
-    if StrikeThrough.GetSelIndex = 2 then Warnlog "Wrong entry selected in StrikeThrough"
-    if Outline.IsChecked then Warnlog "Format Outline is still checked"
-    TabFontEffects.OK
-
-    printlog "Close document"
-    Call hCloseDocument
-endcase
-
-' **********************************************************************
-
-testcase tFormatStylist6
-    Dim i as integer
-
-    printlog "- Format / Stylist : new Style from selection"
-    printlog "New writerdocument"
-    Call hNewDocument
-    Call wTypeKeys "Creating a style from selection <Return><Up><Shift End>"
-    printlog "create a new style from selection"
-    FormatCharacter
-        Kontext
-        Active.SetPage TabFontEffects
-        Kontext "TabFontEffects"
-            Shadow.Check
-            StrikeThrough.Select 2
-            Overline.Select 2
-            OverlineColor.Select 6
-            Outline.Check
-            Effects.Select 3
-            Blinking.Check
-        Kontext
-        Active.Setpage TabHyperlinkZeichen
-        Kontext "TabHyperlinkZeichen"
-            URLName.SetText "www.mikeportnoy.com"
-    TabHyperlinkZeichen.OK
-
-    printlog "  - Create Character Style from selection"
-    Kontext "Stylist"
-    if not Stylist.Exists then FormatStylist
-        Kontext "Stylist"
-        TBGestalter.Click ZeichenVorlagen
-        Sleep 1
-
-    AusSelektion.OpenMenu
-    Sleep 1
-    hMenuSelectNr(1)
-    Sleep 1
-
-    Kontext "VorlageErzeugen"
-    if VorlageErzeugen.Exists then
-        VorlagenName.SetText "Testtool"
-        VorlageErzeugen.OK
-    else
-        Warnlog "Creating Style did not work. Dialog not up!"
-    end if
-
-    printlog "   - assign new Character Style to a new text"
-    wTypeKeys "<Home><Down>",3
-    wTypeKeys "This is some new text <Return><Up><Up><Shift End>"
-    Kontext "Stylist"
-        TBGestalter.Click ZeichenVorlagen
-        if Vorlagenliste.GetSeltext <> "Testtool" then  'Go find the entry.
-            Vorlagenliste.TypeKeys "<Home>"
-        For i = 1 to 100
-                Vorlagenliste.TypeKeys "<Down>"
-                if Vorlagenliste.GetSeltext = "Testtool" then  'Found it!
-                    i = 102
-                end if
-            next i
-        end if
-        Vorlagenliste.TypeKeys "<Return>"  'Assign to text.
-    Stylist.Close
-    if i = 101 then
-        Warnlog "Created Style could not be found in Stylist!"
-    else
-        Printlog "   - check Style"
-        FormatCharacter
-        Kontext
-        Active.SetPage TabFontEffects
-        Kontext "TabFontEffects"
-            if NOT Shadow.IsChecked then Warnlog "Shadow is not checked anymore"
-            if StrikeThrough.GetSelIndex <> 2 then Warnlog "Wrong entry selection in StrikeThrough"
-            if Overline.GetSelIndex <> 2 then Warnlog "Overline is not checked anymore"
-        if OverlineColor.GetSelIndex <> 6 then Warnlog "Wrong Overline Color selected"
-            if NOT Outline.IsChecked then Warnlog "Outline is not checked anymore"
-            if Effects.GetSelIndex <> 3 then Warnlog "Wrong effect selected"
-            if NOT Blinking.IsChecked then Warnlog "Blinking is not checked anymore"
-        Kontext
-        Active.Setpage TabHyperlinkZeichen
-        Kontext "TabHyperlinkZeichen"
-            if URLName.GetText <> "http://www.mikeportnoy.com/" then Warnlog "TabHyperlink: URL is wrong " + URLName.Gettext
-        TabHyperlinkZeichen.OK
-    end if
-
-    printlog "Close document"
-    Call hCloseDocument
-endcase
-
-' **********************************************************************
-
-testcase tFormatStylist7
-    Dim i as integer
-
-    printlog "- Format / Stylist : new Style from selection, then modified via the ContextMenu."
-    printlog "New writerdocument"
-    Call hNewDocument
-    Call wTypeKeys "Creating a style from selection <Return><Up><Shift End>"
-    printlog "create a new style from selection"
-
-    printlog "  - Create Character Style from selection"
-    Kontext "Stylist"
-    if not Stylist.Exists then FormatStylist
-        Kontext "Stylist"
-        TBGestalter.Click ZeichenVorlagen
-        Sleep 1
-
-    AusSelektion.OpenMenu
-    Sleep 1
-    hMenuSelectNr(1)
-    Sleep 1
-
-    Kontext "VorlageErzeugen"
-    if VorlageErzeugen.Exists then
-        VorlagenName.SetText "Testtool"
-        VorlageErzeugen.OK
-    else
-        Warnlog "Creating Style did not work. Dialog not up!"
-    end if
-
-    printlog " Open ContextMenu over the 'Testtool' Style."
-    Kontext "Stylist"
-    if not Stylist.Exists then FormatStylist
-    Kontext "Stylist"
-        TBGestalter.Click ZeichenVorlagen
-        if Vorlagenliste.GetSeltext <> "Testtool" then
-            Vorlagenliste.TypeKeys "<Home>"
-            For i = 1 to 100
-                Vorlagenliste.TypeKeys "<Down>"
-                if Vorlagenliste.GetSeltext = "Testtool" then
-                    i = 102
-                end if
-            next i
-        if i = 101 then
-           warnlog "No Testtool -Stylist found. Check if new stylists can be created. Test ends."
-           goto endsub
-        end if
-        end if
-        Vorlagenliste.TypeKeys "<SHIFT F10>"  'Open ContextMenu
-        Sleep 1
-        printlog "  Select 'Modify'"
-        Call hMenuSelectNr(2)  'Modify
-        Sleep 1
-
-    printlog "  Goto Tabpage 'Font Effects' and change some settings."
-    Kontext
-    Active.SetPage TabFontEffects
-    Kontext "TabFontEffects"
-        Shadow.Check
-        StrikeThrough.Select 2
-        Overline.Select 2
-        OverlineColor.Select 6
-        Outline.Check
-        Effects.Select 3
-        Blinking.Check
-    TabFontEffects.OK
-
-    printlog "   - assign new Character Style to a new text"
-    wTypeKeys "<Home><Down>",3
-    wTypeKeys "This is some new text <Return><Up><Up><Shift End>"
-    Kontext "Stylist"
-        TBGestalter.Click ZeichenVorlagen
-        
-        if Vorlagenliste.GetSeltext <> "Testtool" then
-        Vorlagenliste.TypeKeys "<Home>"
-            For i = 1 to 100
-                Vorlagenliste.TypeKeys "<Down>"
-                if Vorlagenliste.GetSeltext = "Testtool" then 'Found it!
-                    i = 102
-                end if
-            next i
-        end if
-        Vorlagenliste.TypeKeys "<Return>"  'Assign Style to Text.
-    Stylist.Close
-    if i = 101 then
-        Warnlog "Created Style could not be found in Stylist!"
-    else
-        Printlog "   - check Style"
-        FormatCharacter
-        Kontext
-        Active.SetPage TabFontEffects
-        Kontext "TabFontEffects"
-            if NOT Shadow.IsChecked then Warnlog "Shadow is not checked anymore"
-            if StrikeThrough.GetSelIndex <> 2 then Warnlog "Wrong entry selection in StrikeThrough"
-            if Overline.GetSelIndex <> 2 then Warnlog "Overline is not checked anymore"
-            if OverlineColor.GetSelIndex <> 6 then Warnlog "Wrong Overline Color selected"
-            if NOT Outline.IsChecked then Warnlog "Outline is not checked anymore"
-            if Effects.GetSelIndex <> 3 then Warnlog "Wrong effect selected"
-            if NOT Blinking.IsChecked then Warnlog "Blinking is not checked anymore"
-        TabFontEffects.OK
-    end if
-
-    printlog "Close document"
-    Call hCloseDocument
-endcase
-
-' **********************************************************************
-
-testcase tAssigningStyles1
-    Dim i as integer
-    Dim sStyles() as string
-    Dim sTemp as string
-    Dim j as integer
-    Dim bStyleInList as boolean
-
-    printlog "UI and Strings check"
-    Call hNewDocument
-    printlog "Open a new writerdocument"
-    printlog "Check if the following strings and only those strings are present:"
-    printlog "Clear formatting"
-    printlog "Heading 1"
-    printlog "Heading 2"
-    printlog "Heading 3"
-    printlog "Default"
-    printlog "Text body"
-    printlog "More..."
-    Select Case iSprache
-        Case 01 : sStyles = Array("Clear formatting", "Default", "Heading 1", "Heading 2", "Heading 3", "Text body", "More...")
-        Case 07 : sStyles = Array("Отменить форматирование", "Базовый", "Заголовок 1", "Заголовок 2", "Заголовок 3", "О�?новной тек�?т", "Дополнительно...")
-        Case 31 : sStyles = Array("Opmaak wissen", "Kop 1", "Kop 2", "Kop 3", "Standaard", "Tekstblok", "Meer...")
-        Case 33 : sStyles = Array("Effacer le formatage", "Corps de texte", "Par défaut", "Titre 1", "Titre 2", "Titre 3", "Autres...")
-        Case 34 : sStyles = Array("Borrar formato", "Cuerpo de texto", "Encabezado 1", "Encabezado 2", "Encabezado 3", "Predeterminado", "Más...")
-        Case 36 : sStyles = Array("Formázás törlése", "Alapértelmezett", "Címsor 1", "Címsor 2", "Címsor 3", "Szövegtörzs", "További...")
-        Case 39 : sStyles = Array("Cancella formattazione", "Corpo testo", "Intestazione 1", "Intestazione 2", "Intestazione 3", "Standard", "Extra...")
-        Case 46 : sStyles = Array("Radera formatering", "Brödtext", "Överskrift 1", "Överskrift 2", "Överskrift 3", "Standard", "Mer...")
-        Case 48 : sStyles = Array("Wyczyść formatowanie", "Domyślnie", "Nagłówek 1", "Nagłówek 2", "Nagłówek 3", "Treść tekstu", "Więcej...")
-        Case 49 : sStyles = Array("Formatierung löschen", "Standard", "Textkörper", "Überschrift 1", "Überschrift 2", "Überschrift 3", "Weitere...")
-        Case 55 : sStyles = Array("Limpar formatação", "Corpo do texto", "Padrão", "Título 1", "Título 2", "Título 3", "Mais...")
-        Case 81 : sStyles = Array("書�?設定�?�解除", "本文", "標準", "見出�?� 1", "見出�?� 2", "見出�?� 3", "詳細...")
-        Case 82 : sStyles = Array("서�? 지우기", "기본값", "제목 1", "제목 2", "제목 3", "�?스트 본문", "�?세히...")
-        Case 86 : sStyles = Array("清除格�?", "默认", "标题 1", "标题 2", "标题 3", "正文", "更多(~M)...")
-        Case 88 : sStyles = Array("清除格�?", "內文", "標題 1", "標題 2", "標題 3", "�?設", "更多...")
-        Case 90 : sStyles = Array("Biçimlendirmeyi temizle", "Başlık 1", "Başlık 2", "Başlık 3", "Metin gövdesi", "Varsayılan", "Diğer...")
-        Case else : Warnlog "Current language not supported. Please add styles to list!"
-                    Kontext "Textobjectbar"
-                    printlog "- Current Styles: "
-                    For i = 1 to Vorlage.GetItemCount
-                        Vorlage.Select i
-                        printlog Vorlage.GetSelText
-                    next i
-                    Call hCloseDocument
-                    exit sub
-    end select
-
-    'Check number of entrys....have to be seven
-    Kontext "Textobjectbar"
-    if Vorlage.GetItemCount <> 7 then
-        Select case iSprache
-            case 82     : warnlog "Korean: Number of styles in styleslistbox wrong"
-            case else   : Warnlog "Not 7 entrys in Styles & Formatting combobox but: " & Vorlage.GetItemCount
-        end select
-    end if
-
-    For i = 1 to Vorlage.GetItemCount
-        Vorlage.Select i
-        sTemp = Vorlage.GetSelText
-        printlog "- check style: " & sTemp
-        bStyleInList = false
-        For j = 0 to 6
-            if sStyles(j) = sTemp then
-                bStyleInList = true
-            end if
-        next j
-        
-        if bStyleInList = true then
-            printlog "-  style " & sTemp & " found in list"
-        else
-            if iSprache <> 82 then Warnlog "-  style " & sTemp & " wasn't found in list!"
-        end if
-    next i
-
-    Call hCloseDocument
-endcase
-
-' **********************************************************************
-
-testcase tAssigningStyles2
-    Dim i as integer
-    Dim sTemp as string
-
-    printlog "- Apply Style"
-    printlog "New writerdocument"
-    Call hNewDocument
-    printlog "Insert dummytext"
-    if wBlindtextEinfuegen = false then
-        Call hCloseDocument
-        exit sub
-    end if
-    
-    printlog "Select whole dummytext"
-    Call wTypeKeys "<Mod1 A>"
-    printlog "Apply style 'Heading 1' through Styles & Formatting combobox"
-    Kontext "Textobjectbar"
-    for i = 1 to Vorlage.GetItemCount
-        Vorlage.Select i
-        sTemp = Vorlage.GetSelText
-        if Instr(sTemp, "1") then
-            Vorlage.TypeKeys "<Return>"            
-            exit for
-        end if
-    next i
-
-    printlog "Check if style has been applied to paragraph"
-    Call wTypeKeys "<Mod1 Home><End>"
-    Call wTypeKeys "<Left>", 2
-    
-    Kontext "Textobjectbar"
-    if Vorlage.GetSeltext <> sTemp then
-        Warnlog "Seems style has not been completely applied to paragraph!"
-    end if
-
-    Call hCloseDocument
-endcase
-
-' **********************************************************************
-
-testcase tAssigningStyles3
-
-    printlog "- Create a new style"
-    printlog "Open a new writerdocument"
-    Call hNewDocument
-    printlog "Insert a dummy text"
-    if wBlindtextEinfuegen = false then
-        Call hCloseDocument
-        exit sub
-    end if
-    
-    printlog "Select the whole dummy text"
-    Call wTypeKeys "<Mod1 A>"
-    printlog "Format / Character" 
-    FormatCharacter
-    Kontext
-    Active.Setpage TabFont
-    Kontext "TabFont" 
-    printlog "Apply first font in list and select 2nd Typeface"
-    if gAsianSup = True then
-        FontWest.Select 1
-        StyleWest.Select 2
-    else
-        Font.Select 1
-        Style.Select 1
-    end if
-    TabFont.Ok
-    
-    printlog "Enter 'MyStyle' in Stylelistbox"
-    Kontext "Textobjectbar"
-    Vorlage.TypeKeys "<Mod1 A>"
-    Vorlage.TypeKeys "MyStyle<Return>"
-    
-    printlog "Check if style has been applied to the combobox"
-    Call wTypeKeys "<Mod1 End>"
-    
-    wait 500
-    Kontext "Textobjectbar"
-    try
-        Vorlage.Select "MyStyle"
-    catch
-        Warnlog "Seems style has not been applied to combobox"
-    endcatch
-        
-    printlog "Check if style has been applied to paragraph"
-    Call wTypeKeys "<Mod1 Home>"
-    Call wTypeKeys "<Right>", 2
-    
-    Kontext "Textobjectbar"
-    if Vorlage.GetSelText <> "MyStyle" then
-        Warnlog "Seems style has not been applied to paragraph"
-    end if
-
-    printlog "Close Document"
-    Call hCloseDocument
-endcase
-
-' **********************************************************************
-
-testcase tAssigningStyles4
-    Dim i as integer
-    Dim sTemp as string
-    Dim sStyle as integer
-    
-    printlog "- Clear formatting: whole paragraph"
-    printlog "Open a new writer document"
-    Call hNewDocument
-    printlog "Insert a dummytext"
-    if wBlindtextEinfuegen = false then
-        Call hCloseDocument
-        exit sub
-    end if
-    
-    printlog "Select whole dummytext"
-    Call wTypeKeys "<Mod1 A>"
-    printlog "Apply style 'Heading 1' through Styles & Formatting combobox"
-    Kontext "Textobjectbar"
-    ' remeber default style
-    sStyle = Vorlage.GetSelIndex
-    for i = 1 to Vorlage.GetItemCount
-        Vorlage.Select i
-        sTemp = Vorlage.GetSelText
-        if Instr(sTemp, "1") then
-            Vorlage.TypeKeys "<Return>"
-            exit for
-        end if
-    next i
-
-    printlog "choose 'Clear formatting' in combobox" 
-    Kontext "Textobjectbar"
-    Vorlage.Select 1
-    Vorlage.TypeKeys "<Return>"
-    wait 500
-    printlog "Check if style has been set to default"
-    Call wTypeKeys "<Mod1 Home>"
-    Call wTypeKeys "<Right>", 3
-
-    wait 500    
-    Kontext "Textobjectbar"
-    if Vorlage.GetSelIndex <> sStyle then
-        warnlog "Seems paragraph has not been set to default! " & Vorlage.GetSelText & "(" & Vorlage.GetSelIndex & ")" 
-    end if
-
-    printlog "Close Document"
-    Call hCloseDocument 
-
-endcase
-
-' **********************************************************************
-
-testcase tAssigningStyles5
-
-    printlog "- Clear formatting: whole paragraph with hard formatting of some characters"
-    printlog " - 1. Cursor outside of hard formatted string"
-    printlog "Open a new writer document"
-    Call hNewDocument
-    printlog "Insert a dummytext"
-    if wBlindtextEinfuegen = false then
-        Call hCloseDocument
-        exit sub
-    end if
-
-    printlog "Highlight first line in dummy text"
-    Call wTypeKeys "<Mod1 Home>"
-    Call wTypeKeys "<Shift End>" 
-    
-    printlog "Format / Bold"
-    Kontext "TextObjectbar"
-    if Not TextObjectbar.Exists then Call hToolbarSelect ( "FORMATTING", true )
-    Fett.Click
-    Wait 500
-
-    printlog "Set cursor outside of bold formatted text"
-    Call wTypeKeys "<Mod1 Home>"
-    Call wTypeKeys "<Down><Right>"
-    
-    printlog "Select 'Clear Formatting' in Style-Listbox"
-    Kontext "Textobjectbar"
-    Vorlage.Select 1
-    Vorlage.TypeKeys "<Return>"
-    wait 500
-
-    printlog "Check that first line is still bold and has not been reset"
-    Call wTypeKeys "<Mod1 Home>"
-    Call wTypeKeys "<Right>"
-
-    Kontext "TextObjectbar"
-    if Fett.Getstate(2) = 0 then
-        Warnlog "Style 'Bold' has been reset!"
-    end if
-
-    printlog "Close document"
-    Call hCloseDocument
-endcase
-
-' **********************************************************************
-
-testcase tAssigningStyles6
-
-    Dim iStandard as integer
-
-    printlog "- Clear formatting: whole paragraph with hard formatting of some characters"
-    printlog " - 2. Cursor inside of hard formatted string"  
-    printlog "Open a new writer document"
-    Call hNewDocument
-    printlog "Insert a dummytext"
-    if wBlindtextEinfuegen = false then
-        Call hCloseDocument
-        exit sub
-    end if
-
-    printlog "Highlight first line in dummy text"
-    Call wTypeKeys "<Mod1 Home>"
-    Call wTypeKeys "<Shift End>" 
-    
-    printlog "Format / Bold"
-    Kontext "TextObjectbar"
-    if Not TextObjectbar.Exists then Call hToolbarSelect ( "FORMATTING", true )
-    Fett.Click
-    Wait 500
-
-    printlog "Point cursor to first highlighted word of bold formatted text"
-    Call wTypeKeys "<Mod1 Home>"    
-    Call wTypeKeys "<Right>"
-    
-    printlog "Select 'Format / Clear Direct Formatting' in Style-Listbox"
-    FormatDefaultWriter
-    wait 500
-
-    printlog "first highlighted word should be set to 'Standard'"
-    Call wTypeKeys "<Mod1 Home>"
-    Call wTypeKeys "<Right>"
-    Kontext "TextObjectbar"
-    if Fett.Getstate(2) = 1 then
-        Warnlog "Style 'Bold' has not been reset!"
-    end if
-    
-    printlog "Check that rest of first line is still bold and has not been reset"
-    Call wTypeKeys "<Mod1 Home>"
-    Call wTypeKeys "<End><Left>"
-
-    Kontext "TextObjectbar"
-    if Fett.Getstate(2) = 1 then
-        Warnlog "Style 'Bold' has not been reset!"
-    end if
-
-    printlog "Close document"
-    Call hCloseDocument
-endcase
-
-' **********************************************************************
-
-testcase tAssigningStyles7
-
-    printlog "More ..."  
-    printlog "Open a new writer document"
-    Call hNewDocument
-    
-    printlog "Select 'More...' in Style-Listbox"
-    Kontext "Textobjectbar"
-    Vorlage.Select Vorlage.GetItemCount
-    Vorlage.TypeKeys "<Return>"
-    wait 500
-
-    printlog "The Stylist should have been opened"
-    Kontext "Stylist"
-    if Not Stylist.Exists then
-        Warnlog "'Styles and Formatting' doesn't open if 'More...' is selected in Style-Listbox"
-    else
-        printlog "In Style group listbox 'Automatic' should be selected"
-        if Gruppenliste.GetSelIndex <> 5 then
-            Warnlog "Seems 'Automatic' is not selected per default in 'Styles and Formatting'"
-        end if
-        Stylist.Close
-    end if
-
-    printlog "Close document"
-    Call hCloseDocument
-endcase
-
-' **********************************************************************
-
-testcase tKeyboardShortcutToStyles()
-    dim sTempa as string
-    dim sTempb as string
-    dim sTempc as string
-    dim i as integer
-    dim x as integer
-
-    printlog "open new application document"
-    call hNewDocument()
-
-    printlog "get current default style from TextObjectBar"
-    kontext "TextObjectBar"
-    sTempa = Vorlage.getSelText
-    sTempc = sTempa
-    for i = 3 to 0 step -1
-        printlog "Perform the Keycombination <CTRL>+3 (2,1,0) and check, if Style in TextObjectBar changed"
-        printlog "- <Ctrl>+<"+i+"> -> Heading "+i+" style"
-        Call hTypeKeys("<Mod1 "+i+">")
-        sleep 1
-        kontext "TextObjectBar"
-        sTempb = sTempa
-        sTempa = Vorlage.getSelText
-        if (sTempa <> sTempb) then
-            printlog "OK: Heading changed: '" + sTempa + "'"
-        else
-            warnlog "Heading didn't change: '" + sTempa + "'"
-        end if
-    next i
-    kontext "DocumentWriter"
-    DocumentWriter.TypeKeys("<MOD1 SHIFT 0>")
-    sleep (2)
-    kontext "TextObjectBar"
-    sTempa = Vorlage.getSelText
-
-    printlog "should now be the default from the beginning"
-    if (uCase(gApplication)<>"HTML") then
-        if (sTempa = sTempc) then
-            printlog "OK: Heading changed to default: '" + sTempa + "'"
-        else
-            warnlog "Heading didn't change to default. Should have been: '" + sTempc + "' but was: '" + sTempa + "'"
-        end if
-    end if
-
-    printlog "close document"
-    call hCloseDocument()
-endcase
-
diff --git a/testautomation/writer/optional/includes/table/w_204_.inc b/testautomation/writer/optional/includes/table/w_204_.inc
deleted file mode 100644
index a5a94662c350..000000000000
--- a/testautomation/writer/optional/includes/table/w_204_.inc
+++ /dev/null
@@ -1,1157 +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 : helge.delfs@oracle.com
-'*
-'* short description : Writer Table Test
-'*
-'*************************************************************************
-'*
-'*    tTableOption
-'*    tTableInsert1
-'*    tTableInsert2
-'*    tTableInsert3
-'*    tTableInsert4
-'*    tTableInsert5
-'*    tTableNumberFormat
-'*    tTableDelete
-'*    tTableText
-'*    tTableCalculate
-'*    tTableEdit
-'*
-'\***********************************************************************
-
-sub w_204_
-    Call tTableOption
-    Call tTableInsert1
-    Call tTableInsert2
-    Call tTableInsert3
-    Call tTableInsert4
-    Call tTableInsert5
-    Call tTableNumberFormat
-    Call tTableDelete
-     Call tTableText
-     Call tTableCalculate
-    Call tTableEdit
-end sub
-
-testcase tTableOption
-   '/// Check Tables' default Option ///
-    printlog "/// Check Tables' default Option ///"
-
-    Call hNewDocument
-
-    '/// TOOLS->OPTIONS->StarOffice Writer->Table ///"
-    '/// Number recognition should be OFF by default///"
-    '/// two boxes below are checked but disabled ///"
-    
-    ToolsOptions
-    Call hToolsOptions ("WRITER","Table")
-    if AutomatischeZahlenerkennung.IsChecked then 
-        warnlog "The default for 'Number recognition' should be OFF => 114166 "
-        AutomatischeZahlenerkennung.UnCheck
-    else
-        if AutomatischeAusrichtung.IsChecked then
-            try
-                AutomatischeAusrichtung.UnCheck
-                warnlog "'Number format recognition' should be disabled => 114166 "
-            catch
-            endcatch
-        else
-            warnlog "'Number format recognition' should be checked => 114166 "    
-        end if
-        if Zahlenformaterkennung.IsChecked then   
-            try
-                Zahlenformaterkennung.UnCheck
-                warnlog "'Alignment' should be disabled => 114166 "
-            catch
-            endcatch
-        else
-            warnlog "'Alignment' should be checked => 114166 "
-        end if
-    end if
-    Kontext "ExtrasOptionenDlg"
-    ExtrasOptionenDlg.Cancel
-
-    Call hCloseDocument
-
-endcase
-
-' --------------------------------------------------------------------
-
-testcase tTableInsert1
-    dim i as integer
-
-    Call hNewDocument
-    Kontext "DocumentWriter"
-
-    Printlog "'///  1. Insert Toolbox -> Insert Table ///"
-    Call hToolbarSelect ( "Insert", True )
-    Kontext "InsertBar"
-    Tabelle.Click
-    Kontext "TabelleEinfuegenWriter"
-    TabellenName.SetText "one"
-	Spalten.Settext "5"
-    TabelleEinfuegenWriter.OK
-    Call wTypeKeys "one<down>"
-
-    Printlog "'///+ ... play with number recognition in TOOLS->OPTIONS->TextDoc->Table ///"
-    Printlog "'///+     ... Number recognition OFF ///"
-    ToolsOptions
-    Call hToolsOptions ("WRITER","Table")
-    AutomatischeZahlenerkennung.UnCheck
-    Kontext "ExtrasOptionenDlg"
-    ExtrasOptionenDlg.OK
-
-    ' insert test row
-    Call hToolbarSelect ( "Table", true )
-	ZeileEinfuegen.Click
-    Call wTypeKeys "<down>11111<Tab>1"+cSep+"116111<Tab>1"+cDecSep+"116111<Tab>abcd<shift tab><shift tab><shift tab>"
-    ' check format
-    for i=1 to 4
-        FormatNumberFormat
-        Kontext "Zahlenformat"
-        if (Kategorie.GetSelText <> fLocaleString("LocaleText")) then
-            warnlog "wrong format; is: "+Kategorie.GetSelText+" should: "+fLocaleString("LocaleText") ' Text
-        end if
-        Zahlenformat.Cancel
-        FormatParagraph
-        Kontext
-        Active.SetPage tabAusrichtungAbsatz
-        Kontext "tabAusrichtungAbsatz"
-        if (links.isChecked <> true) then warnlog "wrong alignment of tablefield: "+i
-        TabAusrichtungAbsatz.Cancel
-        Call wTypeKeys "<Tab>"
-    next i
-    ' go back to start of table
-    Call wTypeKeys "<Mod1 Home><Down>"
-
-    Printlog "'///+       ... Number recognition ON -                           ///"
-    ToolsOptions
-    Call hToolsOptions ("WRITER","Table")
-    AutomatischeZahlenerkennung.Check ' even with that, everything is a TEXT :-(????
-    Zahlenformaterkennung.UnCheck ' much better with that! everything with numbers&decimalsep is number with 2 decimal places displayed, but all kept!!!
-    AutomatischeAusrichtung.UnCheck ' just the allignment does change too!
-    Kontext "ExtrasOptionenDlg"
-    ExtrasOptionenDlg.OK
-
-	Call hToolbarSelect ( "Table", true )
-    ZeileEinfuegen.Click
-    Call wTypeKeys "<down>11111<Tab>1"+cSep+"116111<Tab>1"+cDecSep+"116111<Tab>abcd<shift tab><shift tab><shift tab>"
-    for i=1 to 4
-        FormatNumberFormat
-        Kontext "Zahlenformat"
-        if (Kategorie.GetSelText <> fLocaleString("LocaleText")) then
-            warnlog "wrong format; is: "+Kategorie.GetSelText+" should: "+fLocaleString("LocaleText") ' Text
-        end if
-        Zahlenformat.Cancel
-        FormatParagraph
-        Kontext
-        Active.SetPage tabAusrichtungAbsatz
-        Kontext "TabAusrichtungAbsatz"
-        if (Links.IsChecked = false) then warnlog "wrong alignment of tablefield: "+i
-        TabAusrichtungAbsatz.Cancel
-        Call wTypeKeys "<Tab>"
-    next i
-    Call wTypeKeys "<Mod1 Home><Down>"
-
-    Printlog "'///+       ... Number recognition ON - Number format recognition ///"
-    ToolsOptions
-    Call hToolsOptions ("WRITER","Table")
-    AutomatischeZahlenerkennung.Check ' even with that, everything is a TEXT :-(????
-    Zahlenformaterkennung.Check ' much better with that! everything with numbers&decimalsep is number with 2 decimal places displayed, but all kept!!!
-    AutomatischeAusrichtung.UnCheck ' just the allignment does change too!
-    Kontext "ExtrasOptionenDlg"
-    ExtrasOptionenDlg.OK
-	Call hToolbarSelect ( "Table", true )
-    ZeileEinfuegen.Click
-    Call wTypeKeys "<down>11111<Tab>1"+cSep+"116111<Tab>1"+cDecSep+"116111<Tab>abcd<shift tab><shift tab><shift tab>"
-    ' number, text, number, text
-    for i=1 to 4
-        FormatNumberFormat
-        Kontext "Zahlenformat"
-        Select Case i
-            Case 1,2,3
-                if (Kategorie.GetSelText <> fLocaleString("LocaleNumber")) then
-                    warnlog "wrong format; "+ i +"; is: "+Kategorie.GetSelText+" should: "+fLocaleString("LocaleNumber") ' Number
-                end if
-            Case 4
-                if (Kategorie.GetSelText <> fLocaleString("LocaleText")) then
-                    warnlog "wrong format; "+ i +"; is: "+Kategorie.GetSelText+" should: "+fLocaleString("LocaleText") ' Text
-                end if
-        end select
-        Zahlenformat.Cancel
-        Call wTypeKeys "<Tab>"
-    next i
-    Call wTypeKeys "<Mod1 Home><Down>"
-
-    Printlog "'///+       ... Number recognition ON - Number format recognition - Alignment ///"
-    ToolsOptions
-    Call hToolsOptions ("WRITER","Table")
-    AutomatischeZahlenerkennung.Check ' even with that, everything is a TEXT :-(????
-    Zahlenformaterkennung.Check ' much better with that! everything with numbers&decimalsep is number with 2 decimal places displayed, but all kept!!!
-    AutomatischeAusrichtung.Check ' just the allignment does change too!
-    Kontext "ExtrasOptionenDlg"
-    ExtrasOptionenDlg.OK
-	Call hToolbarSelect ( "Table", true )
-    ZeileEinfuegen.Click
-    Call wTypeKeys "<down>11111<Tab>1"+cSep+"116111<Tab>1"+cDecSep+"116111<Tab>abcd<shift tab><shift tab><shift tab>"
-    ' number-right, text-left, number-right, text-left
-    for i=1 to 4
-        Select Case i
-            Case 1,2,3
-                FormatNumberFormat
-                Kontext "Zahlenformat"
-                if (Kategorie.GetSelText <> fLocaleString("LocaleNumber")) then
-                    warnlog "wrong format; "+ i +"; is: "+Kategorie.GetSelText+" should: "+fLocaleString("LocaleNumber") ' number
-                end if
-                Zahlenformat.Cancel
-                formatparagraph
-                Kontext
-                Active.SetPage tabAusrichtungAbsatz
-                Kontext "tabAusrichtungAbsatz"
-                if (rechts.isChecked <> true) then warnlog "wrong alignment of tablefield: "+i +"; should: right"
-                tabausrichtungabsatz.Cancel
-            Case 4
-                FormatNumberFormat
-                Kontext "Zahlenformat"
-                if (Kategorie.GetSelText <> fLocaleString("LocaleText")) then
-                    warnlog "wrong format; is: "+ i +"; "+Kategorie.GetSelText+" should: "+fLocaleString("LocaleText") ' Text
-                end if
-                Zahlenformat.Cancel
-                formatparagraph
-                Kontext
-                Active.SetPage TabAusrichtungAbsatz
-                Kontext "TabAusrichtungAbsatz"
-                if (links.isChecked <> true) then warnlog "wrong alignment of tablefield: "+i+"; should: left"
-                TabAusrichtungAbsatz.Cancel
-         end select
-         Call wTypeKeys "<Tab>"
-     next i
-
-     Call hCloseDocument
-
-endcase
-
-' --------------------------------------------------------------------
-
-testcase tTableInsert2
-
-    Call hNewDocument
-    Printlog "'///  2. Insert Toolbox -> Insert Table -> Autoformat ///"
-    ' using autoformat
-    Call hToolbarSelect ( "Insert", True )
-    Kontext "InsertBar"
-    Tabelle.Click
-    Kontext "TabelleEinfuegenWriter"
-    Spalten.Settext "5"
-	Zeilen.SetText "20"
-    Autoformat.Click
-    Kontext "AutoformatTabelle"
-    AutoFormatTabelle.OK
-    Kontext "TabelleEinfuegenWriter"
-    TabellenName.SetText "two"
-    TabelleEinfuegenWriter.OK
-    Call wTypeKeys "two"
-
-    Call hCloseDocument
-
-endcase
-
-' --------------------------------------------------------------------
-testcase tTableInsert3
-    dim i as integer
-    dim sTemp as string
-    dim itemp(3) as integer
-
-    Call hNewDocument
-    Printlog "'///  3. Menu: Insert -> Table (Shortcut): {strg} + {F12} ///"
-    Printlog "'///+ Test Options on 'Insert Table'                 ///"
-    Printlog "'///+ Header ON                                 ///"
-    ' table heading active
-    ' Don't split table INactive
-    ' table border unchecked
-    Call wTypeKeys "<Mod1 F12>"
-    Kontext "TabelleEinfuegenWriter"
-
-    TabellenName.SetText "three"
-	Spalten.Settext "5"
-    Ueberschrift.Check
-    Umrandung.Uncheck
-    TabelleEinfuegenWriter.OK
-    Call wTypeKeys "three"
-
-    ' -------------check if heading 1
-    ' if checked: heading; else: contents !! SystemLanguage dependent !! :-(
-    Printlog "'///+ check if Header ON ///"
-    Kontext "TextObjectbar"
-    sleep (1)
-    sTemp = Vorlage.GetSelText
-    if (sTemp <> fLocaleString("LocaleTableHeading")) then
-        Warnlog "--- table heading did not work!"
-        warnlog "--- is:" + sTemp + ", should :" + fLocaleString("LocaleTableHeading")
-    end if
-    '----------------------------------
-    Call wTypeKeys "<down>"
-      ' -------------check if splitting; it HAS TO split
-    Printlog "'///+ check if Table gets splitted -  it HAS TO split ///"
-
-    InsertFieldsPagenumbers          ' get pagenumber & leave it for next calculation
-    Call wTypeKeys "<Mod1 A>"
-    ToolsCalculate
-    itemp(1) = val(GetClipboardText)
-	Call hToolbarSelect ( "Table", true )
-    for i=1 to 60
-        ZeileEinfuegen.Click ' inserted below the current row
-        wait 200
-    next i
-    ToolsUpdateUpdateAll             ' update field & get pagenumber & clear
-    Call wTypeKeys "<Left><Right>" ' Seems there are focus problems on Solaris...workaround
-    Call wTypeKeys "<Mod1 A>"
-    ToolsCalculate
-    itemp(2) = val(GetClipboardText)
-    if (itemp(1)+1 = itemp(2)) then warnlog "--- Table moved to seconde page"
-    EditCut
-    Call wTypeKeys "got start3"
-
-    Call wTypeKeys "<Mod1 end>"       ' move to last cell in table
-    InsertFieldsPagenumbers          ' get pagenumber & clear
-    Call wTypeKeys "<Mod1 A>"
-    ToolsCalculate
-    itemp(3) = val(GetClipboardText)
-    if (itemp(2) <> itemp(3)) then
-        printlog "--- Table splitted" + itemp(3)
-    else
-        warnlog "put some more rows in!!!"
-    end if
-
-    Call hCloseDocument 	
-endcase
-
-' --------------------------------------------------------------------
-testcase tTableInsert4
-    dim i as integer
-    dim stemp as string
-
-    '/// Open a new writer document
-    Call hNewDocument
-    '/// Insert some dummy text
-    if wBlindTextEinfuegen() = false then
-        Call hCloseDocument
-        goto endsub
-    end if
-    '/// Insert a table with parameters:
-    InsertTableWriter
-    Kontext "TabelleEinfuegenWriter"
-
-    '/// - Set table name: four
-    TabellenName.SetText "four"
-    '/// - number of columns: 5
-	Spalten.Settext "5"
-    '/// - number of rows: 16
-    Zeilen.Settext "16"
-    '/// - Header: uncheck
-    Ueberschrift.UnCheck
-    '/// - Don't split table: check
-    TabelleNichtTrennen.Check
-    '/// - Border: check
-    Umrandung.check
-    TabelleEinfuegenWriter.OK
-
-    '/// check if table has no header
-    Printlog "check if Header OFF"
-    Kontext "TextObjectbar"
-    sleep (1)
-    if wStyleGet(fLocaleString("LocaleTableHeading")) = true then
-        Warnlog "Seems tableheader is activated though header is off"
-    end if
-
-    '/// Cursor leaves table with <Up> and <End>
-    Printlog "check if Table gets splitted"
-    Call wTypeKeys "<Up><End><SPACE>"
-    '/// Insert dummy text again 3 times
-    Call wBlindtextEinfuegen
-'    wait 500
-    Call wBlindtextEinfuegen
-'    wait 500
-    Call wBlindtextEinfuegen
-    '/// check if table has been moved to Page 2
-
-    Call wTypeKeys "<Mod1 End>"     ' jump to documents end
-    Call wTypeKeys "<Up>"           ' move cursor into table
-    Call wTypeKeys "<Mod1 Home>"    ' move cursor to first cell
-
-    '/// Insert / Fields / Pagenumbers to check on which page table is
-    InsertFieldsPagenumbers
-    Call wTypeKeys "<shift home>"
-    ToolsCalculate
-
-    if (GetClipboardText = "2") or (GetClipboardText = "3") then
-	        printlog "Table has been moved correctly"
-        else
-            warnlog " It seems table has been splitted"
-    end if
-
-	'/// <B>Table should split if table is bigger than one page</B>
-    Call wTypeKeys "<Up>"
-    Call wTypeKeys "<shift mod1 home>"
-    Call wTypeKeys "<delete>"
-    Call wBlindtextEinfuegen
-    Call wTypeKeys "<mod1 End>"
-    Call wTypeKeys "<up>"
-    Call wTypeKeys "<mod1 Home>"
-
-    Printlog "Table should split"
-	Call hToolbarSelect ( "Table", true )
-    for i=1 to 25
-        ZeileEinfuegen.Click ' inserted below the current row
-    next i
-    Call wTypeKeys "<shift end>"
-    ToolsCalculate
-	stemp = GetClipboardText
-	Call wTypeKeys "<ESCAPE>"
-	Call wTypeKeys "<mod1 End>"
-	InsertFieldsPagenumbers
-	Call wTypeKeys "<shift home>"
-	ToolsCalculate
-    if (GetClipboardText <> stemp) then
-	        printlog "Table has been splitted"
-        else
-            warnlog " It seems table has not been splitted"
-    end if
-
-    Call hCloseDocument
-endcase
-
-' --------------------------------------------------------------------
-testcase tTableInsert5
-
-    Call hNewDocument
-    '///  Insert Text with delimeter & call Tools -> Text<->Table
-    Printlog "'///  Insert Text with delimeter & call Tools -> Text<->Table ///"
-    Call wTypeKeys "five;2;3;4;5;<return>"
-    Call wTypeKeys "a;b;c;d;e;<return>"
-    Call wTypeKeys "A;B;C;D;E;"
-    Call wTypeKeys "<shift home>"
-    Call wTypeKeys "<shift up>"
-    Call wTypeKeys "<shift up>"
-
-    ToolsTextInTable
-    Kontext "TextInTabelleUmwandeln"
-    Semikolon.Check
-
-    TextInTabelleUmwandeln.OK
-    Call wTypeKeys "<end><Mod1 end><down><return>"
-
-    Call hCloseDocument
-endcase
-
-' --------------------------------------------------------------------
-
-testcase tTableNumberFormat
-
-    Call hNewDocument
-    Printlog "'/// Fill table with content: Tools->Options->TextDoc->Number formating/recognition check ALL ///"
-    '///    use table 5x10; and try to get every entry from format->numberFormat->Categorie ///'
-
-    Call TBOhTabelleEinfuegen ("six",0, 0, 0, 1,"5", "10" )
-    Call wTypeKeys "six<down>"
-
-    ToolsOptions           ' set options for this test
-    Call hToolsOptions ("WRITER","Table")
-    AutomatischeZahlenerkennung.Check
-    Zahlenformaterkennung.Check
-    AutomatischeAusrichtung.Check
-    Kontext "ExtrasOptionenDlg"
-    ExtrasOptionenDlg.OK
-    
-    printlog "Checking numberformater"
-    '///+ - Currency    
-    printlog "  - Currency"
-    call wTypeKeys(fLocaleString("LocaleCurrencyValue"))
-    call wTypeKeys "<Tab><shift tab>"
-    FormatNumberFormat
-    Kontext "Zahlenformat"
-    if (Kategorie.GetSelIndex <> 5) then
-            warnlog "The value is not recognized as currency, it is " & Kategorie.GetSelText
-        else
-            printlog "    - Value is correctly recognized as currency"
-    end if
-    Zahlenformat.Cancel
-    formatparagraph
-    Kontext
-    Active.SetPage tabAusrichtungAbsatz
-    Kontext "tabAusrichtungAbsatz"
-    if (rechts.isChecked <> true) then 
-            warnlog "wrong alignment of number"
-        else
-            printlog "    - Currencyvalue is correctly alligned"
-    end if
-    TabAusrichtungAbsatz.Cancel
-    Call wTypeKeys "<home><shift end>"
-    EditCopy
-    if (GetClipboardText <> fLocaleString("LocaleCurrencyValue")) then
-            warnlog "The number is not correctly formated. It is: " & GetClipboardText & " but should be: " & fLocaleString("LocaleCurrencyValue")
-        else
-            printlog "    - Currencyvalue is correctly formated"
-    end if
-    
-    '///+ - Unknown currency
-    printlog "  - Unknown currency"
-    call wTypeKeys("10.78 §")
-    call wTypeKeys "<Tab><shift tab>"
-    FormatNumberFormat
-
-    Kontext "Zahlenformat"
-    if (Kategorie.GetSelIndex <> 11) then
-            warnlog "The value is not recognized as string, it is " & Kategorie.GetSelText
-        else
-            printlog "    - Value is correctly recognized as string"
-    end if
-    Zahlenformat.Cancel
-    formatparagraph
-    Kontext
-    Active.SetPage tabAusrichtungAbsatz
-    Kontext "tabAusrichtungAbsatz"
-    if (links.isChecked <> true) then 
-            warnlog "wrong alignment of number"
-        else
-            printlog "    - Value is correctly alligned"
-    end if
-    TabAusrichtungAbsatz.Cancel
-    Call wTypeKeys "<home><shift end>"
-    EditCopy
-    if (GetClipboardText <> "10.78 §") then
-            warnlog "The number is not correctly formated: should be 10.78 §, but is " & GetClipboardText
-        else
-            printlog "    - Value is correctly formated"
-    end if
-    
-    '///+ - Date
-    printlog "  - Date"
-    call wTypeKeys(fLocaleString("LocaleDateValue"))
-    call wTypeKeys "<Tab><shift tab>"
-    FormatNumberFormat
-
-    Kontext "Zahlenformat"
-    if (Kategorie.GetSelIndex <> 6) then
-            warnlog "The value is not recognized as date, it is " & Kategorie.GetSelText
-        else
-            printlog "    - Value is correctly recognized as date"
-    end if
-    Zahlenformat.Cancel
-    Formatparagraph
-    Kontext
-    Active.SetPage tabAusrichtungAbsatz
-    Kontext "tabAusrichtungAbsatz"
-    if (rechts.isChecked <> true) then 
-            warnlog "wrong alignment of number"
-        else
-            printlog "    - Datevalue is correctly alligned"
-    end if
-    TabAusrichtungAbsatz.Cancel
-    Call wTypeKeys "<home><shift end>"
-    EditCopy
-    if (GetClipboardText <> fLocaleString("LocaleDateOutput")) then
-            warnlog "The number is not correctly formated: should be " & fLocaleString("LocaleDateOutput") & ", but is " & GetClipboardText
-        else
-            printlog "    - Datevalue is correctly formated"
-    end if
-    
-    '///+ - Time
-    printlog "  - Time"
-    call wTypeKeys(fLocaleString("LocaleTimeInput"))
-    call wTypeKeys "<Tab><shift tab>"
-    FormatNumberFormat
-
-    Kontext "Zahlenformat"
-    if (Kategorie.GetSelIndex <> 7) then
-            warnlog "The value is not recognized as time, it is " & Kategorie.GetSelText
-        else
-            printlog "    - Value is correctly recognized as date"
-    end if
-    Zahlenformat.Cancel
-    Formatparagraph
-    Kontext
-    Active.SetPage tabAusrichtungAbsatz
-    Kontext "tabAusrichtungAbsatz"
-    if (rechts.isChecked <> true) then 
-            warnlog "wrong alignment of number"
-        else
-            printlog "    - Timevalue is correctly alligned"
-    end if
-    TabAusrichtungAbsatz.Cancel
-    Call wTypeKeys "<home><shift end>"
-    EditCopy
-    if (GetClipboardText <> fLocaleString("LocaleTimeValue")) then
-            warnlog "The number is not correctly formated: should be " & fLocaleString("LocaleTimeValue") & ", but is " & GetClipboardText
-        else
-            printlog "    - Timevalue is correctly formated"
-    end if
-    
-    '///+ - Percent
-    printlog "  - Percent"
-    call wTypeKeys(fLocaleString("LocalePercentValue"))
-    call wTypeKeys "<Tab><shift tab>"
-    FormatNumberFormat
-
-    Kontext "Zahlenformat"
-    if (Kategorie.GetSelIndex <> 4) then
-            warnlog "The value is not recognized as percent, it is " & Kategorie.GetSelText
-        else
-            printlog "    - Value is correctly recognized as percent"
-    end if
-    Zahlenformat.Cancel
-    Formatparagraph
-    Kontext
-    Active.SetPage tabAusrichtungAbsatz
-    Kontext "tabAusrichtungAbsatz"
-    if (rechts.isChecked <> true) then 
-            warnlog "wrong alignment of number"
-        else
-            printlog "    - Percentvalue is correctly alligned"
-    end if
-    TabAusrichtungAbsatz.Cancel
-    Call wTypeKeys "<home><shift end>"
-    EditCopy
-    if (GetClipboardText <> fLocaleString("LocalePercentValue")) then
-            warnlog "The number is not correctly formated: should be " & fLocaleString("LocalePercentValue") & ", but is " & GetClipboardText
-        else
-            printlog "    - Percentvalue is correctly formated"
-    end if
-    
-    '///+ - Scientific
-    printlog "  - Scientific"
-    call wTypeKeys(fLocaleString("LocaleScientificValue"))
-    call wTypeKeys "<Tab><shift tab>"
-    FormatNumberFormat
-
-    Kontext "Zahlenformat"
-    if (Kategorie.GetSelIndex <> 8) then
-            warnlog "The value is not recognized as scientific, it is " & Kategorie.GetSelText
-        else
-            printlog "    - Value is correctly recognized as scientific"
-    end if
-    Zahlenformat.Cancel
-    Formatparagraph
-    Kontext
-    Active.SetPage tabAusrichtungAbsatz
-    Kontext "tabAusrichtungAbsatz"
-    if (rechts.isChecked <> true) then 
-            warnlog "wrong alignment of number"
-        else
-            printlog "    - Scientificvalue is correctly alligned"
-    end if
-    TabAusrichtungAbsatz.Cancel
-    Call wTypeKeys "<home><shift end>"
-    EditCopy
-    if (GetClipboardText <> fLocaleString("LocaleScientificValue")) then
-            warnlog "The number is not correctly formated: should be " & fLocaleString("LocaleScientificValue") & ", but is " & GetClipboardText
-        else
-            printlog "    - Scientificvalue is correctly formated"
-    end if
-    
-    '///+ - Fraction
-    printlog "  - Fraction"
-    call wTypeKeys("58 11/4")
-    call wTypeKeys "<Tab><shift tab>"
-    FormatNumberFormat
-
-    Kontext "Zahlenformat"
-    if (Kategorie.GetSelIndex <> 9) then
-            warnlog "The value is not recognized as fraction, it is " & Kategorie.GetSelText
-        else
-            printlog "    - Value is correctly recognized as fraction"
-    end if
-    Zahlenformat.Cancel
-    Formatparagraph
-    Kontext
-    Active.SetPage tabAusrichtungAbsatz
-    Kontext "tabAusrichtungAbsatz"
-    if (rechts.isChecked <> true) then 
-            warnlog "wrong alignment of number"
-        else
-            printlog "    - Fractionvalue is correctly alligned"
-    end if
-    TabAusrichtungAbsatz.Cancel
-    Call wTypeKeys "<home><shift end>"
-    EditCopy
-    if (GetClipboardText <> "60 3/4") then
-            warnlog "The number is not correctly formated: should be 60 3/4, but is " & GetClipboardText
-        else
-            printlog "    - Fractionvalue is correctly formated"
-    end if
-    
-    '///+ - Boolean
-    printlog "  - Boolean"
-    call wTypeKeys(fLocaleString("LocaleBooleanValue"))
-    call wTypeKeys "<Tab><shift tab>"
-    FormatNumberFormat
-
-    Kontext "Zahlenformat"
-    
-    if (Kategorie.GetSelIndex = 10) then
-    		printlog "    - Value is correctly recognized as boolean"
-    	elseif iSprache = 86 or iSprache = 82 or iSprache =88 then 
-    			warnlog "Boolean value in chinese and korean not recognized"
-    		else
-    		warnlog "The value " & fLocaleString("LocaleBooleanValue") & "is not recognized as boolean, it is " & Kategorie.GetSelText 
-     end if
-
-    Zahlenformat.Cancel
-    Formatparagraph
-    Kontext
-    Active.SetPage tabAusrichtungAbsatz
-    Kontext "tabAusrichtungAbsatz"
-    if (rechts.isChecked = true) then 
-            printlog "    - Booleanvalue is correctly alligned"
-        elseif iSprache = 86 or iSprache = 82 or iSprache = 88 then 
-    			warnlog "Boolean value in chinese and korean not recognized"
-            else
-            warnlog "wrong alignment of number"
-    end if
-
-    TabAusrichtungAbsatz.Cancel
-    Call wTypeKeys "<home><shift end>"
-    EditCopy
-    if (GetClipboardText <> fLocaleString("LocaleBooleanValue")) then
-            warnlog "The number is not correctly formated: should be " & fLocaleString("LocaleBooleanValue") & ", but is " & GetClipboardText
-        else
-            printlog "    - Booleanvalue is correctly formated"
-    end if
-    
-    '///+ - String
-    printlog "  - String"
-    call wTypeKeys("testtext")
-    call wTypeKeys "<Tab><shift tab>"
-    FormatNumberFormat
-
-    Kontext "Zahlenformat"
-    if (Kategorie.GetSelIndex <> 11) then
-            warnlog "The value is not recognized as string, it is " & Kategorie.GetSelText
-        else
-            printlog "    - Value is correctly recognized as string"
-    end if
-    Zahlenformat.Cancel
-    Formatparagraph
-    Kontext
-    Active.SetPage tabAusrichtungAbsatz
-    Kontext "tabAusrichtungAbsatz"
-    if (links.isChecked <> true) then 
-            warnlog "wrong alignment of string"
-        else
-            printlog "    - String is correctly alligned"
-    end if
-    TabAusrichtungAbsatz.Cancel
-    Call wTypeKeys "<home><shift end>"
-    EditCopy
-    if (GetClipboardText <> "Testtext") then
-            warnlog "The string is not correctly formated: should be Testtext, but is " & GetClipboardText
-        else
-            printlog "    - String is correctly formated"
-    end if
-
-    '/// finished the file, now some hardwired tests ///'
-    '///+    check, if all decimals are saved, even if not displayed ///'
-    Call wTypeKeys "123" & cDecSep & "123456789"
-    Call wTypeKeys "<Tab><shift tab>"
-    Call wTypeKeys "<home><shift end>"
-    wait 500
-	EditCopy
-    if (GetClipboardText <> "123" & cDecSep & "12") then warnlog "wrong reformating of text tablefield 1; should: " & "123" & cDecSep & "12 is: "+GetClipboardText
-    EditUndo
-    Call wTypeKeys "<home><shift end>"
-    EditCopy
-    if (GetClipboardText <> "123" & cDecSep  & "123456789") then warnlog "wrong reformating of text tablefield 2; should: 123" & cDecSep &  "123456789 is: "+GetClipboardText
-
-    Call hCloseDocument ()
-endcase
-
-' --------------------------------------------------------------------
-
-testcase tTableDelete
-    dim i as integer
-
-    Call hNewDocument
-    Printlog "'/// delete rows/columns in a table ///"
-
-    Call TBOhTabelleEinfuegen ("seven",0, 0, 0, 1,"20", "20" )
-    ' Point cursor to upper left cell
-    Call wTypeKeys "<Mod1 Home>", 2
-    Call wTypeKeys "1"
-    For i = 2 to 20
-        Call wTypeKeys "<down><right>"
-        Call wTypeKeys CStr(i)
-    next i
-    Call wTypeKeys "<Mod1 Home>", 2
-
-    Printlog "'///   via keys {alt delete} {cursor} -> delete row/column ///"
-    ' delete some rows/columns using shortcuts del 2rows 2cols
-    Call wTypeKeys "<mod2 delete><right>"
-    Call wTypeKeys "<right>"
-    Call wTypeKeys "<mod2 delete><left>"
-    Call wTypeKeys "<left>"
-    Call wTypeKeys "<mod2 delete><down>"
-    Call wTypeKeys "<down>"
-    Call wTypeKeys "<mod2 delete><up>"
-    Call wTypeKeys "<up>"
-    Call SpaltenTesten ( 18 )
-    Call wTypeKeys "<Mod1 Home>", 2
-    Call wTypeKeys "<Mod1 A>"
-    EditCopy
-    if GetClipboardtext <> "2" then
-        Warnlog "Deleting rows/columns via keys has not been worked as accepted! -> Test failed!"
-        Call hCloseDocument
-        exit sub
-    end if
-
-    Printlog "'///   via menue Format[Zeile|Spalte]Loeschen ///"
-    for i = 1 to 17             ' delete some rows/columns
-        FormatZeileLoeschen
-        wait 500
-        FormatSpalteLoeschen
-        wait 500
-    next i
-    Call wTypeKeys "<Mod1 A>"
-    EditCopy
-    if GetClipboardtext <> "20" then
-        Warnlog "Deleting rows/columns via keys has not been worked as accepted! -> Test failed!"
-        Call hCloseDocument
-        exit sub
-    end if
-
-    Printlog "'///   via keys {alt insert} {cursor} -> insert row/column ///"
-    Call wTypeKeys "<ESCAPE>"
-    Call wTypeKeys "<mod2 insert><left>"
-    Call wTypeKeys "<mod2 insert><right>"
-    Call wTypeKeys "<mod2 insert><down>"
-    Call wTypeKeys "<mod2 insert><up>"
-    Call SpaltenTesten ( 3 )
-    Call wTypeKeys "<Mod1 Home>", 2
-    Call wTypeKeys "<Shift End>"
-    try
-        EditCopy
-        Warnlog "Maybe no columns have been inserted!"
-    catch
-        Call wTypeKeys "<Right>", 2
-        Call wTypeKeys "<Shift End>"
-        try
-            EditCopy
-            if GetClipboardtext <> "20" then
-                Warnlog "Maybe no columns have been inserted!"
-            end if
-        catch
-            Warnlog "Maybe no columns have been inserted!"
-        endcatch
-    endcatch
-
-    Printlog "'///   delete whole table ///"
-    Call wTypeKeys "<mod1 home>", 2  ' delete hole table
-    Call wTypeKeys "<Mod1 A>"
-    try
-        Call wTypeKeys "<MOD1 SHIFT DELETE>" 'EditCut
-        Call wTypeKeys "<return>"
-    catch
-        Warnlog "Unable to delete table!"
-    endcatch
-    Call hCloseDocument
-endcase
-
-'--------------------------------------------------------------------------------------------------------
-
-testcase tTableText
-    dim i as integer
-
-    Call hNewDocument
-    Printlog "'/// +++ table to text ///"
-
-    Call TBOhTabelleEinfuegen ("seven",0, 0, 0, 1,"10", "10" )
-
-    for i = 1 to 99          ' fill every cell
-        Call wTypeKeys CStr(i)
-        Call wTypeKeys "<Tab>"
-    next i
-
-    ToolsTextInTable         ' convert with '+' seperator
-    Kontext "TextInTabelleUmwandeln"
-    Andere.Check
-    AndereText.settext "+"
-    TextInTabelleUmwandeln.OK
-
-    Call wTypeKeys "<home>"   ' calculate every row
-    for i = 1 to 10
-        Call wTypeKeys "<shift end>"
-        ToolsCalculate
-        Call wTypeKeys "<shift insert>"
-        Call wTypeKeys "+<delete>"
-    next i
-    Call wTypeKeys "<backspace>0<shift home>"
-    ToolsCalculate
-    if (GetClipboardText <> "12645") then warnlog "wrong table converting table<->text "
-    Call wTypeKeys "<shift insert><return>"
-
-    Call hCloseDocument ()
-endcase
-
-'-------------------------------------------------------------------------------------------
-
-testcase tTableCalculate
-    Printlog "'/// calculating in table ///"
-    Call hNewDocument
-
-    Call TBOhTabelleEinfuegen ()
-    Call wTypeKeys "1<Tab>2<Tab>3<Tab>4<Tab>5<Tab>6<Tab>7<Tab>8<Tab>"
-    Call wTypeKeys "<end><Mod1 end><down><return>"
-    Call TBOhTabelleEinfuegen ("eight",0, 0, 0, 1,"5", "5" )
-
-    '///'  should look like: <pre> ///
-    '///+  a        b    c        d                 e ///
-    '///+1 1,.1  2,.2   =3,.3  4,.4        =summe<:4,.4 ///
-    '///+2 1        2   =3        4        =summe<:4 ///
-    '///+3 =2,.1 =18,.9 =2     =-0,31      =32,.6926671... <1.check> ///
-    '///+4 =14   =16    gone   =<2.check>  = ...table1 ?? ///
-    '///+5 </pre> ///
-
-    '/// this table gets generated one by one ///'
-
-    Call wTypeKeys "1"+cDecSep+"1<Tab>" ' insert input A1
-    Call wTypeKeys "2"+cDecSep+"2<Tab>"
-    Call wTypeKeys "="                  '
-    Kontext "OL_SW_Rechenleiste"       '               C1
-    Eingabefeld.SetText "<A1>+<B1>"
-    Uebernehmen.click
-    Call wTypeKeys "<Tab>"
-    Call wTypeKeys "4"+cDecSep+"4<Tab>"
-    Call wTypeKeys "<Tab>"
-
-    Call wTypeKeys "1<Tab>"             '               A2
-    Call wTypeKeys "2<Tab>"
-    Call wTypeKeys "<Tab>"
-    Call wTypeKeys "4<shift tab>"
-    Call wTypeKeys "="                  '
-    Kontext "OL_SW_Rechenleiste"       '               C2
-    Eingabefeld.SetText "<D2>-<A2>"
-    Uebernehmen.click
-    Call wTypeKeys "<Tab>"
-    Call wTypeKeys "<Tab>"
-
-    ' automatic sum works only to next formula :-< ///'
-	Call hToolbarSelect ( "Table", true )
-    formeleingeben.click
-    Kontext "OL_SW_Rechenleiste"
-    Uebernehmen.click
-    Call wTypeKeys "<up>"
-
-	Call hToolbarSelect ( "Table", true )
-    formeleingeben.click
-    Kontext "OL_SW_Rechenleiste"
-    Uebernehmen.click
-    Call wTypeKeys "<down><Tab>"
-
-    Call wTypeKeys "="                  ' slip into calculation area
-    Kontext "OL_SW_Rechenleiste"       '               A3
-    Eingabefeld.SetText "sum <A1:A2>"
-    Uebernehmen.click
-    Call wTypeKeys "<Tab>"
-    Call wTypeKeys "<F2>"                  '
-    Kontext "OL_SW_Rechenleiste"
-    Eingabefeld.SetText "sum <D2:B1>"
-    Uebernehmen.click
-    Call wTypeKeys "<Tab>"
-    Call wTypeKeys "<F2>"                  '
-    Kontext "OL_SW_Rechenleiste"
-    Eingabefeld.SetText "sqrt <E2>"
-    Uebernehmen.click
-    Call wTypeKeys "<Tab>"
-    Call wTypeKeys "<F2>"                  '
-    Kontext "OL_SW_Rechenleiste"
-    Eingabefeld.SetText "cos <E1>"
-    Uebernehmen.click
-    Call wTypeKeys "<Tab>"
-
-    Call wTypeKeys "<F2>"                  ' E3 check this out :-)
-    Kontext "OL_SW_Rechenleiste"
-    Eingabefeld.SetText "sum <A2:D3>"
-    Uebernehmen.click
-    Call wTypeKeys "<shift home>"
-    EditCopy
-    if (GetClipboardText <> "32" & cDecSep & "69") then warnlog "wrong calculation should: 32" & cDecSep & "69 is: "+GetClipboardText
-    Call wTypeKeys "<end><Tab>"
-
-    Call wTypeKeys "<F2>"                  ' A4
-    Kontext "OL_SW_Rechenleiste"
-    Eingabefeld.SetText "2+3*4"
-    Uebernehmen.click
-    Call wTypeKeys "<shift home>"
-    EditCopy
-    if (GetClipboardText <> "14") then warnlog "wrong calculation should: "+"14"+" is: "+GetClipboardText
-    Call wTypeKeys "<end><Tab>"
-
-    Call wTypeKeys "<F2>"                  ' B4
-    Kontext "OL_SW_Rechenleiste"
-    Eingabefeld.SetText "2*2 pow 3"
-    Uebernehmen.click
-    Call wTypeKeys "<shift home>"
-    EditCopy
-    if (GetClipboardText <> "16") then warnlog "wrong calculation should: "+"16"+" is: "+GetClipboardText
-    Call wTypeKeys "<end><Tab>"
-    Call wTypeKeys "<shift tab>"
-    sleep (1)
-    Call wTypeKeys "<Tab>"
-    sleep (1)
-
-    '/// one row gets deleted///'
-    FormatSpalteLoeschen ' grumel: have to find a cell :-(
-    Call wTypeKeys "<F2>"                  ' C4
-    Kontext "OL_SW_Rechenleiste"
-    Eingabefeld.SetText "sum <A1:D3>"
-    Uebernehmen.click
-    Call wTypeKeys "<shift home>"
-    EditCopy
-    if (GetClipboardText <> "58" & cDecSep & "89") then warnlog "wrong calculation should: " & "58" & cDecSep & "89" & " is: " & GetClipboardText
-    Call wTypeKeys "<end><Tab>"
-    Call wTypeKeys "<F2>"                  ' C4
-    Kontext "OL_SW_Rechenleiste"
-    Eingabefeld.SetText "sum <"+fLocaleString("LocaleTable")+"1.B1:E1> / <A2:D2>"
-    sleep (2)
-    Uebernehmen.click
-    Call wTypeKeys "<shift home>"
-    EditCopy
-    if (GetClipboardText <> "1" & cDecSep & "27") then warnlog "wrong calculation should: 1" & cDecSep & "27 is: " & GetClipboardText
-    Call wTypeKeys "<end><Tab>"
-
-    Call wTypeKeys "<end><Mod1 end><down><return>"
-    Call hCloseDocument ()
-endcase
-
-'-------------------------------------------------------------------------------------------
-
-testcase tTableEdit
-    dim itemp(5) as integer
-
-    Call hNewDocument
-    Printlog "'///  edit table ///"
-
-    Call TBOhTabelleEinfuegen ("nine-dumy",0, 0, 0, 1,"5", "3" )
-    Call wTypeKeys "<end><Mod1 end><Mod1 end><return>"
-    Call TBOhTabelleEinfuegen ("nine",0, 0, 0, 1,"5", "3" )
-    Call wTypeKeys "nine<Tab>"
-
-    Printlog "'///    insert Frame & Graphic in heading ///"
-    InsertFrame
-    sleep (5)
-    Kontext "tabtype"
-    sleep (5)
-    TabType.ok
-    sleep (5)
-    Call wTypeKeys "<escape>"
-    sleep (5)
-    Call hGrafikEinfuegen (gTesttoolPath +"writer\optional\input\options\ga000907.gif")
-    sleep (5)
-    Call wTypeKeys "<escape>"
-    sleep (5)
-    Call wTypeKeys "<mod1 end><up><up>"
-    sleep (5)
-
-    Printlog "'///    insert Frame & Graphic in body ///"
-    InsertFrame
-    sleep (5)
-    Kontext "tabtype"
-    sleep (5)
-    TabType.ok
-    sleep (5)
-    Call wTypeKeys "<escape>"
-    sleep (5)
-    Call hGrafikEinfuegen (gTesttoolPath +"writer\optional\input\options\ga000907.gif")
-    sleep (5)
-    Call wTypeKeys "<escape>"
-    sleep (5)
-    Call wTypeKeys "<mod1 end><up><up><Tab>"
-
-    Printlog "'///    insert Frame & Table in body ///"
-    InsertFrame
-    sleep (5)
-    Kontext "tabtype"
-    sleep (5)
-    TabType.ok
-    sleep (5)
-    Call wTypeKeys "<return>"
-    sleep (5)
-    try
-        Call hTabelleEinfuegen ()
-        Call wTypeKeys "<mod1 end><mod1 end><up><up><Tab><Tab>"
-    catch
-        Warnlog "Hit <Enter>-Key should enable edit mode for selected frames! (srx642z or greater)"
-        Call wTypeKeys "<escape>"
-        Call wTypeKeys "<down>"
-    endcatch
-    sleep (5)
-
-    Printlog "'///    insert PageBreak ///"
-    '/// TBO: check test / insert dummy table      ' doesn't work, if the first 'stuff' in a document is the table ///'
-    InsertFieldsPagenumbers
-    Call wTypeKeys "<shift home>"
-    EditCopy
-    ToolsCalculate
-    sleep (5)
-    itemp(1) = val(GetClipboardText)
-    EditCut
-    InsertManualBreak
-    sleep (5)
-    Kontext "UmbruchEinfuegen"
-    Seitenumbruch.check
-    UmbruchEinfuegen.OK
-    sleep (5)
-    InsertFieldsPagenumbers
-    Call wTypeKeys "<shift home>"
-    EditCopy
-    ToolsCalculate
-    sleep (5)
-    itemp(3) = val(GetClipboardText)
-    if (itemp(1) <> itemp(3)) then
-        printlog "--- Pagebreak works in Table, that's good :-)"
-    else
-        warnlog " Pagebreak doesn't work in Table, that's not good :-("+itemp(1) +" "+ itemp(3)
-    end if
-
-    sleep (5)
-    Call wTypeKeys "<end><Mod1 end><down><return>"
-
-    Printlog "'///   the following may not be possible ///"
-    Printlog "'///+      Insert table in footnote ///"
-    InsertFootnote
-    Kontext "FussnoteEinfuegen"
-    FussnoteEinfuegen.OK
-    try
-        InsertTableWriter
-        warnlog "     Table in Footnote is possible, that's not good :-("
-    catch
-    endcatch
-
-    Call wTypeKeys "<end><Mod1 end><return>"
-    Call hCloseDocument
-endcase
diff --git a/testautomation/writer/optional/includes/table/w_204a_.inc b/testautomation/writer/optional/includes/table/w_204a_.inc
deleted file mode 100644
index 0132f14ebe5d..000000000000
--- a/testautomation/writer/optional/includes/table/w_204a_.inc
+++ /dev/null
@@ -1,1163 +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 : helge.delfs@oracle.com
-'*
-'* short description : Test the table functionality in Writer
-'*
-'\***********************************************************************
-
-sub w_204a_
-
-    Call sTableName
-    Call sTableAlignment
-    Call sTableMergeCell
-    Call TableSplit_copy_heading
-    Call TableSplit_custom_heading
-    Call TableSplit_custom_heading_apply_style
-    Call TableSplit_no_heading
-    Call sTableMerge
-    Call sTablePagebreak
-    Call sTableBorder
-    Call sTableIndent
-    Call sTableSort
-
-end sub
-
-' ----------------------------------------------------------------------
-
-testcase sTableName
-    dim temp(10) as string
-    Call hNewDocument
-
-    Call TBOhTabelleEinfuegen ("dummy" ,0,1,0,1,"1",tHeight:="1")  ' insert table
-    Call wTypeKeys "<mod1 end><mod1 end>"
-    temp (1) = "Garfield"
-    Call TBOhTabelleEinfuegen (temp (1) ,0,1,0,1,"10",tHeight:="7")  ' insert table
-
-    printlog "'///  Format table via Format->Table ///"
-    Printlog "'///      change tablename ///"
-    TableTableProperties                ' get into existing table
-    Sleep (2)
-    Kontext "TabelleEinfuegenWriter"
-    sleep (2)
-    Kontext
-    Active.SetPage TabTabelle
-    Kontext "TabTabelle"
-
-    '  0. right table ?? ///'
-    if (TabellenName.GetText <> temp (1) ) then warnlog " --- wrong table? schould be : "+temp (1)+ ", is : "+TabellenName.GetText
-
-    '///  1. try: space included ///'
-    temp (1) = "Gar field"
-    try
-        TabellenName.SetText temp (1)
-    catch
-        printlog " - couldn't insert : " + temp (1)
-    endcatch
-    if (TabellenName.GetText = temp (1) ) then warnlog " --- ups, could insert smth. with space? : "+TabellenName.GetText
-
-    '///  2. try: dot included ///'
-    temp (1) = "Gar.field"
-    try
-        TabellenName.SetText temp (1)
-    catch
-        printlog " - couldn't insert : "+temp (1)
-    endcatch
-    if (TabellenName.GetText = temp (1) ) then warnlog " --- ups, could insert smth. with dot? : "+TabellenName.GetText
-
-    TabTabelle.cancel
-    Call hCloseDocument
-endcase
-
-' ----------------------------------------------------------------------
-
-testcase sTableAlignment
-    dim temp(10) as string
-    dim PAGEWIDTH as double
-    dim ac as integer, fc as integer
-    dim i as integer
-    dim sBug as string
-
-    Call hNewDocument
-    Call TBOhTabelleEinfuegen ("dummy" ,0,1,0,1,"1",tHeight:="1")  ' insert table
-    Call wTypeKeys "<mod1 end><mod1 end>"
-    temp (1) = "Garfield"
-    Call TBOhTabelleEinfuegen (temp (1) ,0,1,0,1,"10",tHeight:="7")  ' insert table
-
-    '   ' get text to init some constances for this test
-    '   temp(2) = NachOben.GetText '----------------------------------------------------
-    ' initialisation of some constantzen for this test  '------------------------------
-    PAGEWIDTH = hGetPageWidth()
-    printlog "--- Pagewidth is: " + PAGEWIDTH
-    'MEASUNIT =  GetMeasUnit (temp(2))
-    'DECSEP = GetDecimalSeperator(temp(2))
-
-    Printlog "'///     set alignment of table ///"
-    TableTableProperties
-    Kontext
-    Active.SetPage TabTabelle
-    Kontext "TabTabelle"
-    Printlog "'///      Left ///"
-    Links.check
-    sleep (1)
-    if ((Breite.IsWritable AND NachRechts.IsWritable) <> TRUE) then warnlog "edit field not active "
-    if (LiberalMeasurement(PAGEWIDTH ,(StrToDouble (Breite.GetText) + StrToDouble (NachRechts.GetText))) <> TRUE) then
-        if PAGEWIDTH < 0 then
-            warnlog "Cdbl returns wrong values"
-        else
-            warnlog "measurement value error "+ "is: "+(StrToDouble (Breite.GetText) + StrToDouble (NachRechts.GetText))+" should: " + PAGEWIDTH
-        end if
-    end if
-    NachRechts.SetText "2"
-    sleep (1)
-    temp(1) = NachRechts.GetText
-    TabTabelle.OK
-    TableTableProperties
-    Kontext
-    Active.SetPage TabTabelle
-    Kontext "TabTabelle"
-    if (Links.Ischecked <> TRUE) then warnlog "links state changed"
-    if ((Breite.IsWritable AND NachRechts.IsWritable) <> TRUE) then warnlog "edit field not active"
-    if (temp(1) <> NachRechts.GetText) then warnlog "value changed"
-    if (LiberalMeasurement(PAGEWIDTH ,(StrToDouble (Breite.GetText) + StrToDouble (NachRechts.GetText))) <> TRUE) then
-        if PAGEWIDTH < 0 then
-            warnlog "Cdbl returns wrong values"
-        else
-            warnlog "measurement value error "+ "is: "+(StrToDouble (Breite.GetText) + StrToDouble (NachRechts.GetText))+" should: "+PAGEWIDTH
-        end if
-    end if
-    '--------------------------------
-    NachRechts.SetText "0"
-    sleep (1)
-    Printlog "'///       FromLeft ///"
-    VonLinks.check
-    sleep (1)
-    if ((Breite.IsWritable AND NachLinks.IsWritable) <> TRUE) then warnlog "edit field not active "
-    if (LiberalMeasurement(PAGEWIDTH ,StrToDouble (Breite.GetText) + StrToDouble(NachLinks.GetText)) <> TRUE) then
-        if PAGEWIDTH < 0 then
-            warnlog "Cdbl returns wrong values"
-        else
-            warnlog "measurement value error "+ "is: "+(StrToDouble (Breite.GetText) + StrToDouble (NachLinks.GetText))+" should: "+PAGEWIDTH
-        end if
-    end if
-    NachLinks.SetText "2"
-    sleep (1)
-    temp(1) = NachLinks.GetText
-    TabTabelle.OK
-    sleep 1
-    TableTableProperties
-    Kontext "TabelleEinfuegenWriter"
-    Kontext
-    Active.SetPage TabTabelle
-    Kontext "TabTabelle"
-    if (VonLinks.Ischecked <> TRUE) then warnlog "VonLinks state changed"
-    'sBug = NachLinks.GetText
-    if ((Breite.IsEnabled AND NachLinks.IsEnabled) <> TRUE) then warnlog "edit field not active "
-    'if (NachLinks.IsWritable <> TRUE) then warnlog "edit field not active "
-    'if sBug <> NachLinks.GetText then warnlog "TESTOOL BUG; is writable loescht feld "
-    if (temp(1) <> NachLinks.GetText) then warnlog "value changed"+" should: "+temp(1)+" is:  "+ NachLinks.GetText
-    if (LiberalMeasurement(PAGEWIDTH ,StrToDouble (Breite.GetText) + StrToDouble(NachLinks.GetText)) <> TRUE) then
-        if PAGEWIDTH < 0 then
-            warnlog "Cdbl returns wrong values"
-        else
-                warnlog "measurement value error  "+ "is: "+(StrToDouble (Breite.GetText) + StrToDouble (NachLinks.GetText))+" should: "+PAGEWIDTH
-        end if
-    end if
-    '--------------------------------
-    NachLinks.SetText "0"
-    Printlog "'///     Right ///"
-    rechts.check
-    sleep (1)
-    if ((Breite.IsWritable AND NachLinks.IsWritable) <> TRUE) then warnlog "edit field not active "
-    if (LiberalMeasurement(PAGEWIDTH ,StrToDouble (Breite.GetText) + StrToDouble(NachLinks.GetText)) <> TRUE) then
-        if PAGEWIDTH < 0 then
-            warnlog "Cdbl returns wrong values"
-        else
-             warnlog "measurement value error "+ "is: "+(StrToDouble (Breite.GetText) + StrToDouble (NachLinks.GetText))+" should: "+PAGEWIDTH
-        end if
-    end if
-    NachLinks.SetText "2"
-    sleep (1)
-    temp(1) = NachLinks.GetText
-    TabTabelle.OK
-    TableTableProperties
-    Kontext
-    Active.SetPage TabTabelle
-    Kontext "TabTabelle"
-    if (rechts.Ischecked <> TRUE) then warnlog "rechts state changed"
-    if ((Breite.IsWritable AND NachLinks.IsWritable) <> TRUE) then warnlog "edit field not active "
-    if (temp(1) <> NachLinks.GetText) then warnlog "value changed"
-    if (LiberalMeasurement(PAGEWIDTH ,StrToDouble (Breite.GetText) + StrToDouble(NachLinks.GetText)) <> TRUE) then 
-        if PAGEWIDTH < 0 then
-            warnlog "Cdbl returns wrong values"
-        else
-            warnlog "measurement value error "+ "is: "+(StrToDouble (Breite.GetText) + StrToDouble (NachLinks.GetText))+" should: "+PAGEWIDTH
-        end if
-    end if    
-    '--------------------------------
-    NachLinks.SetText "0"
-    Printlog "'///      center ///"
-    Zentriert.check
-    sleep (1)
-    if ((Breite.IsWritable AND NachLinks.IsWritable) <> TRUE) then warnlog "edit field not active "
-    if (LiberalMeasurement(PAGEWIDTH ,StrToDouble (Breite.GetText) + (2 * StrToDouble (NachLinks.GetText))) <> TRUE) then
-        if PAGEWIDTH < 0 then
-            warnlog "Cdbl returns wrong values"
-        else
-            warnlog "measurement value error "+ "is: "+(StrToDouble (Breite.GetText) + StrToDouble (NachLinks.GetText))+" should: "+PAGEWIDTH
-        end if
-    end if    
-    NachLinks.SetText "2"
-    sleep (1)
-    temp(1) = NachLinks.GetText
-    TabTabelle.OK
-    TableTableProperties
-    Kontext
-    Active.SetPage TabTabelle
-    Kontext "TabTabelle"
-    if (Zentriert.Ischecked <> TRUE) then warnlog "state changed"
-    if ((Breite.IsWritable AND NachLinks.IsWritable) <> TRUE) then warnlog "edit field not active "
-    if (temp(1) <> NachLinks.GetText) then warnlog "value changed"
-    if (LiberalMeasurement(PAGEWIDTH ,StrToDouble (Breite.GetText) + (2 * StrToDouble (NachLinks.GetText))) <> TRUE) then 
-        if PAGEWIDTH < 0 then
-            warnlog "Cdbl returns wrong values"
-        else
-            warnlog "measurement value error "+ "is: "+(StrToDouble (Breite.GetText) + StrToDouble (NachLinks.GetText))+" should: "+PAGEWIDTH
-        end if
-    end if    
-    '--------------------------------
-    NachLinks.SetText "0"
-    Printlog "'///     manual ///"
-    Manuell.check
-    sleep (1)
-    if ((Breite.IsWritable AND NachLinks.IsWritable AND NachRechts.IsWritable) <> TRUE) then warnlog "edit field not active "
-    if (LiberalMeasurement(PAGEWIDTH ,StrToDouble (Breite.GetText) + StrToDouble (NachLinks.GetText) + StrToDouble (NachRechts.GetText)) <> TRUE) then
-        if PAGEWIDTH < 0 then
-            warnlog "Cdbl returns wrong values"
-        else
-            warnlog "measurement value error "+ "is: "+(StrToDouble (Breite.GetText) + StrToDouble (NachLinks.GetText)+ StrToDouble (NachRechts.GetText))+" should: "+PAGEWIDTH
-        end if
-    end if
-    NachLinks.SetText "2"
-    NachRechts.SetText "2"
-    sleep (1)
-    temp(1) = NachLinks.GetText
-    temp(2) = NachRechts.GetText
-    TabTabelle.OK
-    TableTableProperties
-    Kontext
-    Active.SetPage TabTabelle
-    Kontext "TabTabelle"
-    if (Manuell.Ischecked <> TRUE) then warnlog "state changed"
-    if ((Breite.IsWritable AND NachLinks.IsWritable) <> TRUE) then warnlog "edit field not active "
-    if (temp(1) <> NachLinks.GetText) then warnlog "value changed"
-    if (temp(2) <> NachRechts.GetText) then warnlog "value changed"
-    if (LiberalMeasurement(PAGEWIDTH ,StrToDouble (Breite.GetText) + StrToDouble (NachLinks.GetText) + StrToDouble (NachRechts.GetText)) <> TRUE) then
-        if PAGEWIDTH < 0 then
-            warnlog "Cdbl returns wrong values"
-        else
-             warnlog "measurement value error "+ "is: "+(StrToDouble (Breite.GetText) + StrToDouble (NachLinks.GetText)+ StrToDouble (NachRechts.GetText))+" should: "+PAGEWIDTH
-        end if
-    end if
-    '--------------------------------
-    NachLinks.SetText "0"
-    NachRechts.SetText "0"
-    TabTabelle.OK
-    Printlog "'///    <font color=#FF0000>TODO TBO automatical ---------- MISSING yet </FONT> ///"
-    Call hCloseDocument
-endcase
-
-' ----------------------------------------------------------------------
-
-testcase sTablePagebreak
-    Dim temp(10) as string
-
-    Call hNewDocument
-    Call TBOhTabelleEinfuegen ("dummy" ,0,1,0,1,"1",tHeight:="1")  ' insert table
-    Call wTypeKeys "<mod1 end><mod1 end>"
-    temp (1) = "Garfield"
-    Call TBOhTabelleEinfuegen (temp (1) ,0,1,0,1,"10",tHeight:="7")  ' insert table
-
-    Printlog "'///     Check TextFlow: pagebreak ///"
-
-    InsertFieldsPagenumbers          ' get pagenumber & leave it for next calculation
-    Call wTypeKeys "<shift home>"
-    ToolsCalculate
-    temp(1) = val(GetClipboardText)
-
-    TableTableProperties
-    Kontext "TabelleEinfuegenWriter"
-    Kontext
-    Active.SetPage TabTextFlusstabelle
-    Kontext "TabTextFlusstabelle"
-    Umbruch.Check
-    if ((Seite.IsChecked AND Davor.IsChecked) <> TRUE) then
-        printlog "--- defaultvalue changed..."
-        Seite.Check
-        Davor.Check
-    end if
-    TabTextFlusstabelle.OK
-
-    ToolsUpdateUpdateAll             ' update field & get pagenumber & clear
-    Call wTypeKeys "<shift end>"
-    ToolsCalculate
-    temp(2) = val(GetClipboardText)
-    if ((val(temp(1))+1) <> temp(2)) then
-        warnlog "--- Table didn't move, that's not good "+ "from: "+val(temp(1))+" to: "+ temp(2) +" 1+1= "+(val(temp(1))+1)
-    else
-        printlog "    works , moved, ok!"
-    end if
-
-    Call wTypeKeys "<mod1 end><mod1 end><return>"
-
-    Call hCloseDocument
-endcase
-
-' ----------------------------------------------------------------------
-
-testcase sTableMergeCell
-    dim temp(10) as string
-
-    dim PAGEWIDTH as double
-    dim ac as integer, fc as integer
-    dim i as integer
-
-    Call hNewDocument
-
-    temp (1) = "Table1"
-	printlog "Insert a table with 10 columns and 7 rows"
-    Call TBOhTabelleEinfuegen (temp (1) ,0,1,0,1,"10",tHeight:="7")  ' insert table
-    printlog "Point cursor out of the table"
-    Call wTypeKeys "<MOD1 END>", 2
-
-	printlog "Insert a table with 10 columns and 10 rows"
-    temp (1) = "Table2"
-    Call TBOhTabelleEinfuegen (temp (1) ,0,0,1,1,"10",tHeight:="10")  ' insert table
-
-    Printlog "merging of cells & undo"
-    temp (2) = hGetTableName()
-    if (temp(2) <> temp(1)) then warnlog " --- wrong table? schould be : "+temp (1)+ ", is : "+temp(2)
-
-    Printlog " - merging of cells"
-    ac=0   ' ActionCount
-    fc=100 ' FieldCount
-    Call wTypeKeys "<down><shift right>"     ' 2 horizontal (0,1) & (1,1) (x,y)
-    TableMergeCells : inc ac : dec fc '   FormatZelleVerbinden
-    Call wTypeKeys "<down><shift down>"      ' 2 vertical (1,2) & (1,3)
-    TableMergeCells : inc ac : dec fc
-    Call wTypeKeys "<down><up><shift down><shift up>"      ' merge again
-    TableMergeCells
-
-    printlog "Go to top of table"
-    Call wTypeKeys "<mod1 home>"
-    printlog "Undo all cell mergers (3 times)"
-    for i=1 to ac
-        try
-    		EditUndo
-    		wait 500
-    	catch
-    		Warnlog "Edit / Undo disabled on Undo step: " & i
-    	endcatch
-    next i
-    
-    printlog "Close document"
-    Call hCloseDocument
-endcase
-
-' ----------------------------------------------------------------------
-
-testcase sTableBorder
-    dim temp(10) as string
-    temp(1) = "bloed"
-
-    dim PAGEWIDTH as double
-    dim ac as integer, fc as integer
-    dim i as integer
-    Call hNewDocument
-
-    ' set marks to find
-    Call wTypeKeys "<mod1 end><mod1 end>"
-    Call wTypeKeys "NULL<return>"
-    Call wTypeKeys "Start<return>"
-    Call wTypeKeys "End<return>"
-    Call wTypeKeys "NULL<return><up><up>"
-
-    Call TBOhTabelleEinfuegen (temp (1) ,0,1,0,1,"10",tHeight:="7")  ' insert table
-
-    Printlog "'///       set border & undo ///"
-    ' assign border to whole table
-    Call wTypeKeys "<shift mod1 end>"
-    TableTableProperties                ' get into existing table
-    Sleep (1)
-    Kontext "TabelleEinfuegenWriter"
-    sleep (1)
-    Kontext
-    if active.exists (5) then
-        Active.SetPage TabUmrandung
-        Sleep (1)
-        Kontext "TabUmrandung"
-        Sleep (1)
-        Vorgaben.Typekeys "<end>" ' set border
-        StilFarbe.Select StilFarbe.GetItemCount
-
-        'links.IsWriteable 'si checkable, but not now!...
-        Position.TypeKeys "<home><right><right><right>" ' 3. from the left
-        if (groesse.IsEnabled <> TRUE) then warnlog "position of shadow is not changeable "
-        SchattenFarbe.Select SchattenFarbe.GetItemCount - 1
-    else
-        TableTableProperties                ' get into existing table
-        Kontext "TabelleEinfuegenWriter"
-        sleep (1)
-        Kontext
-        warnlog  "2.trie"
-        if active.exists (5) then
-            Active.SetPage TabUmrandung
-            Sleep (1)
-            Kontext "TabUmrandung"
-            Sleep (1)
-            Vorgaben.Typekeys "<end>" ' set border
-            StilFarbe.Select StilFarbe.GetItemCount
-
-            'links.IsWriteable 'si checkable, but not now!...
-            Position.TypeKeys "<home><right><right><right>" ' 3. from the left
-            if (groesse.IsEnabled <> TRUE) then warnlog "position of shadow is not changeable "
-            SchattenFarbe.Select SchattenFarbe.GetItemCount - 1
-        else
-            warnlog "baeh!"
-        end if
-    end if
-    Kontext
-    Active.SetPage TabHintergrund
-    Sleep (1)
-    Kontext "TabHintergrund"
-    Sleep (1)
-    Hintergrundfarbe.TypeKeys "<home><down><right><down><right><down><right><down><right>"
-    TabHintergrund.OK
-    ' just an idea of checking this type of control
-    i=0
-    TableTableProperties                ' get into existing table
-    Sleep (1)
-    Kontext "TabelleEinfuegenWriter"
-    sleep (1)
-    Kontext
-    Active.SetPage TabUmrandung
-    Sleep (1)
-    Kontext "TabUmrandung"
-    Sleep (1)
-    while (groesse.IsEnabled)
-        Position.TypeKeys "<left>"
-        inc i
-    wend
-    TabUmrandung.cancel
-    if (i <> 3) then warnlog "wrong shadow selected should be 3, was: "+i
-
-    ' undo & check where we are ///'
-    EditUndo
-    temp (2) = hGetTableName()
-    if (temp(2) <> temp(1)) then warnlog " --- wrong table? schould be : "+temp (1)+ ", is : "+temp(2)
-    EditUndo ' go one step further
-    Call wTypeKeys "<up><shift end>"
-    EditCopy
-    temp(2) = GetClipboardText
-    Call wTypeKeys "<down><shift home>"
-    EditCopy
-    temp(3) = GetClipboardText
-    if ((temp(2) <> "Start") AND (temp(3) <> "End")) then
-        warnlog "there is smth. wrong with the undo stuff !!!"
-        print "whats wrong with the undo stuff"
-    end if
-    EditRedo ' and back again
-    Call wTypeKeys "<up><mod1 home>" ' now we are in (0,0)
-    Call hCloseDocument
-endcase
-
-' ----------------------------------------------------------------------
-
-testcase sTableIndent
-    dim temp(10) as string
-    dim ac as integer, fc as integer
-
-    Call hNewDocument
-    ' set marks to find
-    Call wTypeKeys "NULL<return>"
-    Call wTypeKeys "Start<return>"
-    Call wTypeKeys "End<return>"
-    Call wTypeKeys "NULL<return><up><up>"
-
-    temp (1) = "Garfield"
-    Call TBOhTabelleEinfuegen (temp (1) ,0,1,0,1,"10",tHeight:="7")  ' insert table
-
-    Printlog "'///    tab, paragraph indent & UNDO ///"
-
-    ac=0   ' ActionCount
-    fc=100 ' FieldCount
-    ' : inc ac : dec fc
-    FormatParagraph
-    Kontext
-    Active.SetPage TabTabulator
-    Sleep (1)
-    Kontext "TabTabulator"
-    Sleep (1)
-    Position.SetText "1"
-    TypZentriert.Check
-    Fuellzeichen5.Check
-    FuellzeichenZeichen.SetText "%"
-    Neu.Click
-    Kontext
-    Active.SetPage TabEinzuegeUndAbstaende
-    Sleep (1)
-    Kontext "TabEinzuegeUndAbstaende"
-    Sleep (1)
-    Vonlinks.SetText "-1"
-    VonRechts.SetText "-1"
-    TabEinzuegeUndAbstaende.OK
-
-
-    Printlog "'///     text attributes ///"
-    Call wTypeKeys "John"  : inc ac
-    Call wTypeKeys "<shift home>"
-    FormatCharacter
-    Kontext
-    Active.SetPage TabFontEffects
-    Sleep (1)
-    Kontext "TabFontEffects"
-    Sleep (1)
-    FontColor.Select FontColor.GetItemCount - 1
-    Kontext
-    Active.SetPage TabFontPosition
-    Sleep (1)
-    Kontext "TabFontPosition"
-    Sleep (1)
-    Super.Check
-    n90Degree.Check
-    TabFontPosition.OK
-
-    EditUndo
-    EditUndo
-
-    Printlog "'///      cell protection ///"
-    Call wTypeKeys "<LEFT><UP>", 10
-    Call wTypeKeys "<DOWN>", 3
-    Call wTypeKeys "<down><shift down><shift right><Right><Left><Shift right><Shift left>"
-    TableCellProtect
-    Call wTypeKeys "<LEFT>"
-    Call wTypeKeys "x"
-    Kontext
-    if (Active.Exists <> TRUE) then
-        Call wTypeKeys "<LEFT><UP>", 10
-        Call wTypeKeys "<DOWN>", 3
-        Call wTypeKeys "<down><shift down><shift right><Right><Left><Shift right><Shift left>"
-        try
-            EditCopy
-        catch
-        endcatch
-        if GetClipboardtext <> "" then
-            QAErrorLog "#110549#Protection of cell does not work correct!"
-        end if
-        ' If protection fails, reselect table with Navigator!
-        Call wNavigatorAuswahl(2,1)
-    else
-        Active.OK
-        EditUndo
-        Call wTypeKeys "x"
-        Kontext
-        if (Active.Exists = TRUE) then
-            Warnlog "ReProtection of table does not work!" + Active.GetText
-            active.OK
-        end if
-
-        EditUndo
-        EditUndo
-        'Printlog "undoCheck is here"
-        temp (2) = hGetTableName()
-        if (temp(2) <> temp(1)) then warnlog " --- wrong table? schould be : "+temp (1)+ ", is : "+temp(2)
-        EditUndo ' go one step further
-        Call wTypeKeys "<up><shift end>"
-        EditCopy
-        temp(2) = GetClipboardText
-        Call wTypeKeys "<down><shift home>"
-        EditCopy
-        temp(3) = GetClipboardText
-        if ((temp(2) <> "Start") AND (temp(3) <> "End")) then
-            warnlog "there is smth. wrong with the undo stuff !!! is: "+temp(2)+" should: Start; is: "+temp(3)+" should: End;"
-        end if
-        EditRedo ' and back again
-        Call wTypeKeys "<up><mod1 home>" ' now we are in (0,0)
-    end if
-
-    Printlog "'///      Set graphic in table as background ///"
-    try
-        TableTableProperties
-    catch
-        Warnlog "Dialog 'Insert Table' not up!"
-        Call hCloseDocument
-        goto endsub
-    endcatch
-
-    try
-        Kontext
-        Active.SetPage TabHintergrund
-        Sleep (1)
-        Kontext "TabHintergrund"
-        Sleep (1)
-        Fuer.Select(2) ' Zeile
-        Als.Select(2)  ' Grafik
-        Durchsuchen.Click
-        Kontext "GrafikEinfuegenDlg"
-        Dateiname.SetText convertPath(gTesttoolPath +"writer\optional\input\options\ga000907.gif")
-        Oeffnen.Click
-        Kontext "TabHintergrund"
-        TabHintergrund.OK
-
-        FormatColumnWidthWriter ' thre is a bigger test in the option test
-        Kontext "SpaltenBreite"
-        Spalte.SetText "2"
-        Breite.SetText "2"
-        SpaltenBreite.OK
-        FormatRowHeight
-        Kontext "ZellenHoehe"
-        Hoehe.SetText "2"
-        ZellenHoehe.OK
-        EditUndo
-        EditUndo
-
-        EditUndo
-
-        ' Printlog "undoCheck is here"
-        sleep (3)
-        temp (2) = hGetTableName()
-        if (temp(2) <> temp(1)) then warnlog " --- wrong table? schould be : "+temp (1)+ ", is : "+temp(2)
-        EditUndo ' go one step further
-        Call wTypeKeys "<up><shift end>"
-        EditCopy
-        temp(2) = GetClipboardText
-        Call wTypeKeys "<down><shift home>"
-        EditCopy
-        temp(3) = GetClipboardText
-        if ((temp(2) <> "Start") AND (temp(3) <> "End")) then
-            warnlog "there is smth. wrong with the undo stuff !!! is: "+temp(2)+" should: Start; is: "+temp(3)+" should: End;"
-        end if
-        EditRedo ' and back again
-        Call wTypeKeys "<mod1 end>" ' go to end of doc
-    catch
-        Warnlog "Dialog 'Insert Table' not up!"
-    endcatch
-    Call hCloseDocument
-endcase
-
-' ----------------------------------------------------------------------
-
-testcase sTableSort
-    dim temp(10) as string
-    dim PAGEWIDTH as double
-    dim ac as integer, fc as integer
-    dim i as integer
-
-    Call hNewDocument
-    '   Kontext "DocumentWriter"
-    Call TBOhTabelleEinfuegen ("dummy" ,0,1,0,1,"1",tHeight:="1")  ' insert table
-    Call wTypeKeys "<mod1 end><mod1 end>"
-    temp (1) = "Sort"
-    Call TBOhTabelleEinfuegen (temp (1) ,0,1,0,1,"10",tHeight:="10")  ' insert table
-
-    fc = 99
-    randomize()
-    for i=1 to fc
-        Call wTypeKeys str(rnd()) + "<right>"
-    next i
-    Call wTypeKeys "<shift mod1 home>"
-    ToolsSort '-----------------------------------------------------------11111111111111111
-    Kontext "Sortieren"
-    Spalten.Check  'direction 1
-    for i = 1 to Schluesseltyp1.GetItemCount
-        Schluesseltyp1.select i
-        printlog "possible values for sorting :" + Schluesseltyp1.Getseltext
-    next i
-    Sortieren.OK
-    Kontext
-    if active.exists (5) then printlog "active1: "+active.gettext
-    Call wTypeKeys "<shift mod1 end>",2
-    try
-        ToolsSort '-----------------------------------------------------------22222222222222222
-    catch
-        printlog "WorkAround only seen on linux, can't select immediately, cursor movement needed "
-        Call wTypeKeys "<right><left>"
-        Call wTypeKeys "<shift mod1 end>",2
-        ToolsSort
-    endcatch
-    Kontext
-    if active.exists (5) then
-        printlog "active2: "+active.gettext
-        active.ok
-    end if
-    Kontext "Sortieren"
-    Zeilen.Check
-    Sortieren.OK
-    Kontext
-    if active.exists (5) then
-        printlog "active3: "+active.gettext
-        active.ok
-    end if
-
-    'Schluessel1
-    'Spalte1
-    'Schluesseltyp1
-    'Aufsteigend1
-    'Absteigend1
-    '
-    'Schluessel2
-    'Spalte2
-    'Schluesseltyp2
-    'Aufsteigend2
-    'Absteigend2
-    '
-    'Schluessel3
-    'Spalte3
-    'Schluesseltyp3
-    'Aufsteigend3
-    'Absteigend3
-    '
-    'Tabulator
-    'Zeichen
-    'Zeichentext
-    'Sonderzeichen
-    'Sprache
-    'ExakterVergleich
-    Call hCloseDocument
-endcase
-
-' ----------------------------------------------------------------------
-
-testcase TableSplit_copy_heading
-    printlog "'/// Splitting Tables & UNDO ///"
-    printlog "'///     check 'copy heading' ///"
-    dim temp(10) as string
-    dim PAGEWIDTH as double
-    dim ac as integer, fc as integer
-    dim i as integer
-
-    Call hNewDocument
-    ' Kontext "DocumentWriter"
-    Call TBOhTabelleEinfuegen ("dummy" ,0,1,0,1,"1",tHeight:="1")  ' insert table
-    Call wTypeKeys "<mod1 end><mod1 end>"
-    temp (1) = "Split"
-    Call TBOhTabelleEinfuegen (temp (1) ,1,1,0,1,"10",tHeight:="10")  ' insert table
-
-    Printlog "'/// Splitting Tables & UNDO ///"
-    Printlog "'///     check 'copy heading' ///"
-    temp(2) = "Jon"
-    Call wTypeKeys temp(2)+"<down>"
-    FormatSplitTable
-    Kontext "TabelleAuftrennen"
-    UeberschriftKopieren.Check      '<------------- this is the key
-    TabelleAuftrennen.OK
-    ' check where am i
-    temp (6) = hGetTableName ()
-    if (temp(6) <> (fLocaleString("LocaleTable")+"1")) then warnlog "Split table didn't work! is: "+temp(6)+"; should: "+(fLocaleString("LocaleTable")+"1")
-'   if (temp(6) <> (fLocaleString("LocaleTable")+"2")) then warnlog "Split table didn't work! is: "+temp(6)+"; should: "+(fLocaleString("LocaleTable")+"2")
-
-    Call wTypeKeys "<up>"  ' im in the content of the table
-    Sleep 1
-    ' -------------check if heading (style)
-    Kontext "TextObjectbar"
-    if (Vorlage.GetSelText <> fLocaleString("LocaleTableHeading")) then
-        Warnlog "tabel heading did not work!is: " & Vorlage.GetSelText & ", should " & fLocaleString("LocaleTableHeading")
-    end if
-    '----------------------------------
-    Call wTypeKeys "<end><shift home>" ' check heading in 'new' table (content)
-    EditCopy
-    temp(3) = GetClipboardText
-    if (temp(2) <> temp(3)) then  warnlog "wrong heading! Is: "+temp(3)+" Should: "+temp(2)
-    Call wTypeKeys "<up><up>"
-    if (hGetTableName () <> (temp(1))) then warnlog "Split table didn't work?"
-    Call wTypeKeys "<end><shift home>" ' check heading in 'old' table
-    EditCopy
-    temp(3) = GetClipboardText
-    if (temp(2) <> temp(3)) then  warnlog "wrong heading! is: "+temp(3)+" should: "+temp(2)
-    EditUndo
-    EditUndo
-
-    Printlog "'///     check 'custom heading (apply style)' ///"
-    ' splitting headers doesn't work -> move down 1 line
-    temp(2) = temp(1)
-    Call wTypeKeys temp(2)
-    ' set some style to verify
-    FormatParagraph
-    Kontext
-    Active.SetPage TabEinzuegeUndAbstaende
-    Sleep (1)
-    Kontext "TabEinzuegeUndAbstaende"
-    Sleep (1)
-    Vonlinks.SetText "-1"
-    VonRechts.SetText "-1"
-    temp (4) = Vonlinks.GetText
-    temp (5) = Vonrechts.GetText
-    TabEinzuegeUndAbstaende.OK
-    Call wTypeKeys "<down>",2
-    FormatSplitTable
-    Kontext "TabelleAuftrennen"
-    EigeneMitVorlage.Check    '<------------- this is the key
-    TabelleAuftrennen.OK
-    ' check where am i
-    temp (6) = hGetTableName ()
-    if (temp(6) <> (fLocaleString("LocaleTable")+"1")) then
-        warnlog "Split table didn't work! is: "+temp(6)+"; should: "+(fLocaleString("LocaleTable")+"1")
-    end if
-    ' -------------check if heading
-    Kontext "TextObjectbar"
-    if (Vorlage.GetSelText <> fLocaleString("LocaleTableHeading")) then
-        Warnlog "Table heading did not work!"
-        Warnlog "is: " & Vorlage.GetSelText & ", should " & fLocaleString("LocaleTableHeading")
-        Call wTypeKeys "<Escape>"
-    end if
-    '----------------------------------
-
-    FormatParagraph         ' check style
-    Kontext
-    Active.SetPage TabEinzuegeUndAbstaende
-    Sleep (1)
-    Kontext "TabEinzuegeUndAbstaende"
-    Sleep (1)
-    '         if ((Vonlinks.GetText <>temp (4) ) OR (Vonrechts.GetText <>temp (5) )) then warnlog "style didn't get inherited. is: "+Vonlinks.GetText+"; should: "+temp (4) +";; is: "+Vonrechts.GetText+"; should: "+temp (5) +";;"
-    TabEinzuegeUndAbstaende.OK
-    Call wTypeKeys "<up><up><up>"               ' goto old table
-    if (hGetTableName () <> (temp(1))) then warnlog "Split table didn't work? "
-    Call wTypeKeys "<end><shift home>" ' check heading in 'old' table
-    EditCopy
-    temp(3) = GetClipboardText
-    if (temp(2) <> temp(3)) then  warnlog "wrong heading! is: "+temp(3)+"; should: "+temp(2)
-
-    sleep (3)
-    Call hCloseDocument
-endcase
-
-' ----------------------------------------------------------------------
-
-testcase TableSplit_custom_heading
-    dim temp(10) as string
-    dim PAGEWIDTH as double
-    dim ac as integer, fc as integer
-    dim i as integer
-
-    Call hNewDocument
-    Call TBOhTabelleEinfuegen ("dummy" ,0,1,0,1,"1",tHeight:="1")  ' insert table
-    Call wTypeKeys "<mod1 end><mod1 end>"
-    temp (1) = "Header"
-    Call TBOhTabelleEinfuegen (temp (1) ,1,1,0,1,"10",tHeight:="10")  ' insert table
-    Printlog "'///     check  'custom heading' ///"
-    Call wTypeKeys "Header"
-    FormatStylesCatalog ' set a style to verify
-    Kontext "Vorlagenkatalog"
-    Ansicht.TypeKeys "<up><up><up><up>"
-    temp (4) = Ansicht.GetText
-    Vorlagenkatalog.OK
-    ' set some style to verify
-    FormatParagraph
-    Kontext
-    Active.SetPage TabEinzuegeUndAbstaende
-    Sleep (1)
-    Kontext "TabEinzuegeUndAbstaende"
-    Sleep (1)
-    Vonlinks.SetText "-1"
-    VonRechts.SetText "-1"
-    temp (2) = Vonlinks.GetText
-    temp (3) = Vonrechts.GetText
-    TabEinzuegeUndAbstaende.OK
-    Call wTypeKeys ("<down>")
-    FormatSplitTable
-    Kontext "TabelleAuftrennen"
-    Eigene.Check                 '<------------- this is the key
-    TabelleAuftrennen.OK
-    ' check where am i
-    temp (5) = hGetTableName ()
-    if (temp(5) <> ( fLocaleString("LocaleTable") + "1" )) then warnlog "Split table didn't work! is: "+ temp(5) + "; should: "+(fLocaleString("LocaleTable") + "1")
-    ' -------------check if NO heading (would be a custom style...))
-    Call wTypeKeys "<Up>",2
-    Call wTypeKeys "<mod1 a>"
-    EditCopy
-    temp(6) = GetClipboardText
-    FormatParagraph         ' check style
-    Kontext
-    Active.SetPage TabEinzuegeUndAbstaende
-    Sleep (1)
-    Kontext "TabEinzuegeUndAbstaende"
-    Sleep (1)
-    if temp (2) <> Vonlinks.GetText then Warnlog "Indent 'Before text' has been changed!"
-    if temp (3) <> Vonrechts.GetText then Warnlog "Indent 'After text' has been changed!"
-    TabEinzuegeUndAbstaende.OK
-    FormatStylesCatalog ' verify
-    Kontext "Vorlagenkatalog"
-    if Ansicht.Gettext <> temp(4) then Warnlog "Style in Header has been changed!"
-    Vorlagenkatalog.Cancel
-    if (hGetTableName () <> temp(1)) then warnlog "Split table didn't work? is: "+hGetTableName () +"; should: "+temp(1)
-    if (temp(6) <> temp(1)) then  warnlog "wrong heading! is: " + temp(6) + " should: " + temp(1)
-    Call hCloseDocument
-endcase
-
-' ----------------------------------------------------------------------
-
-testcase TableSplit_custom_heading_apply_style
-    ' SHOULD BE EASIER TO WORK ON ODIE TOOOOOO
-    dim temp(10) as string
-    dim PAGEWIDTH as double
-    dim ac as integer, fc as integer
-    dim i as integer
-
-    Call hNewDocument
-    Call TBOhTabelleEinfuegen ("dummy" ,0,1,0,1,"1",tHeight:="1")  ' insert table
-    Call wTypeKeys "<mod1 end><mod1 end>"
-    temp (1) = "Split"
-    TBOhTabelleEinfuegen (temp (1) ,1,1,0,1,"10",tHeight:="10")  ' insert table
-
-    Printlog "'/// Splitting Tables & UNDO ///"
-    Printlog "'///     check 'custom heading (apply style)' ///"
-    temp(2) = temp(1)
-    Call wTypeKeys temp(2)
-    ' set some style to verify
-    FormatParagraph
-    Kontext "TabTabulator"
-    Kontext
-    Active.SetPage TabEinzuegeUndAbstaende
-    Sleep (1)
-    Kontext "TabEinzuegeUndAbstaende"
-    Sleep (1)
-    Vonlinks.SetText "-1"
-    VonRechts.SetText "-1"
-    temp (4) = Vonlinks.GetText
-    temp (5) = Vonrechts.GetText
-    TabEinzuegeUndAbstaende.OK
-    Call wTypeKeys "<down>",2
-    FormatSplitTable
-    Kontext "TabelleAuftrennen"
-    EigeneMitVorlage.Check    '<------------- this is the key
-    TabelleAuftrennen.OK
-    ' check where am i
-    temp (6) = hGetTableName ()
-    if (temp(6) <> (fLocaleString("LocaleTable")+"1")) then
-        warnlog "Split table didn't work! is: "+temp(6)+"; should: "+(fLocaleString("LocaleTable")+"1")
-    end if
-    ' -------------check if heading
-    Kontext "TextObjectbar"
-    if (Vorlage.GetSelText <> fLocaleString("LocaleTableHeading")) then
-        Warnlog "table heading did not work!"
-        warnlog "is: " & Vorlage.GetSelText & ", should " & fLocaleString("LocaleTableHeading")
-        'GetSelText bleibt in der box
-        Call wTypeKeys "<Escape>"
-    end if
-    '----------------------------------
-    FormatParagraph         ' check style
-    Kontext "TabTabulator"
-    Kontext
-    Active.SetPage TabEinzuegeUndAbstaende
-    Sleep (1)
-    Kontext "TabEinzuegeUndAbstaende"
-    Sleep (1)
-    TabEinzuegeUndAbstaende.OK
-    Call wTypeKeys "<up><up><up>"               ' goto old table
-    if (hGetTableName () <> (temp(1))) then warnlog "Split table didn't work? "
-    Call wTypeKeys "<end><shift home>" ' check heading in 'old' table
-    EditCopy
-    temp(3) = GetClipboardText
-    if (temp(2) <> temp(3)) then  warnlog "wrong heading! is: "+temp(3)+"; should: "+temp(2)
-    sleep (3)
-    Call hCloseDocument
-endcase
-
-' ----------------------------------------------------------------------
-
-testcase TableSplit_no_heading
-    ' SHOULD BE EASIER TO WORK ON ODIE TOOOOOO
-    dim temp(10) as string
-    dim PAGEWIDTH as double
-    dim ac as integer, fc as integer
-    dim i as integer
-
-    Call hNewDocument
-    Call TBOhTabelleEinfuegen ("dummy" ,0,1,0,1,"1",tHeight:="1")  ' insert table
-    Call wTypeKeys "<mod1 end><mod1 end>"
-    temp (1) = "Split"
-    Call TBOhTabelleEinfuegen (temp (1) ,1,1,0,1,"10",tHeight:="10")  ' insert table
-
-    Printlog "'/// Splitting Tables & UNDO ///"
-    Printlog "'///     check 'no heading' ///"
-    temp(2) = "Header"
-    temp(3) = "Content"
-    Call wTypeKeys ( temp(2) )
-    Call wTypeKeys ( "<down>" )
-    Call wTypeKeys ( temp(3) )
-    Call wTypeKeys ( "<Home>" )
-    ' set some style to verify
-    FormatParagraph
-    Kontext
-    Active.SetPage TabEinzuegeUndAbstaende
-    Sleep (1)
-    Kontext "TabEinzuegeUndAbstaende"
-    Sleep (1)
-    Vonlinks.SetText "-1"
-    VonRechts.SetText "-1"
-    temp (4) = Vonlinks.GetText
-    temp (5) = Vonrechts.GetText
-    TabEinzuegeUndAbstaende.OK
-    FormatSplitTable
-    Kontext "TabelleAuftrennen"
-    Keine.Check
-    TabelleAuftrennen.OK
-    ' check where am i
-    temp (6) = hGetTableName ()
-    if (temp(6) <> ( fLocaleString("LocaleTable") + "1" )) then warnlog "Split table didn't work! is: " + temp(6) + "; should: " + (fLocaleString("LocaleTable") + "1" )
-    ' -------------check if NO heading (would be a custom style...))
-    Kontext "TextObjectbar"
-    Call wTypeKeys "<end><shift home>" ' check heading in 'new' table
-    try
-        EditCopy
-        ' Should be 'Content'
-        if (GetClipboardText   <> temp(3)) then  warnlog "wrong content! is: " + GetClipboardText + " should: " + temp(3)
-    catch
-        Warnlog "Unable to copy content! Maybe not selected!"
-    endcatch
-    FormatParagraph         ' check style
-    Kontext
-    Active.SetPage TabEinzuegeUndAbstaende
-    Sleep (1)
-    Kontext "TabEinzuegeUndAbstaende"
-    Sleep (1)
-    if ((Vonlinks.GetText <>temp (4) ) OR (Vonrechts.GetText <>temp (5) )) then warnlog "style didn't get inherited"
-    TabEinzuegeUndAbstaende.OK
-    Call wTypeKeys "<up><up>"               ' goto header
-    if (hGetTableName () <> (temp(1))) then warnlog "Split table didn't work? "
-    Call wTypeKeys "<Mod1 A>" ' check heading in 'old' table
-    try
-        EditCopy
-    catch
-        Warnlog "Unable to copy content! Maybe not selected!"
-    endcatch
-    if (GetClipboardText  <> temp(2)) then  warnlog "wrong heading! is: " + GetClipboardText + " should: " + temp(2)
-    Call hCloseDocument
-endcase
-
-' ----------------------------------------------------------------------
-
-testcase sTableMerge
-    dim temp(10) as string
-
-    Call hNewDocument
-    Call wTypeKeys "<return><mod1 end><mod1 end>"
-    Call wTypeKeys "<mod1 end><mod1 end>"
-
-    temp(2) = "Arlene"
-    temp(3) = "Pooky"
-    temp(4) = "Nermal"
-
-    Call TBOhTabelleEinfuegen (temp (2) ,0,1,0,1,"10",tHeight:="7")  ' insert table Arlene
-    sleep (3)
-    Call wTypeKeys "<mod1 end><mod1 end>"
-    Call TBOhTabelleEinfuegen (temp (3) ,0,1,0,1,"10",tHeight:="7")  ' insert table Pooky
-    sleep (3)
-    Call wTypeKeys "<mod1 end><mod1 end>"
-    Call TBOhTabelleEinfuegen (temp (4) ,0,1,0,1,"10",tHeight:="7")  ' insert table Nermal
-    sleep (3)
-
-    Printlog "'///  Join tables & UNDO///"
-    Printlog "'///      insert 3 tables: 'Arlene' 'Pooky' 'Nermal' ///"
-
-    ' usually lowwer to upper one...
-    ' update formulars ....
-    Printlog "'///     join Nermal with pooky -> Nermal has to be under Arlene -> undo ///"
-    FormatMergeTables
-    if (hGetTableName () <> temp(4)) then warnlog "Merge table didn't work? 1 "
-    Call wTypeKeys "<mod1 home><up>"
-    if (hGetTableName () <> temp(2)) then warnlog "Merge table didn't work? 1+ "
-    EditUndo
-    Call wTypeKeys "<up><mod1 home>"
-
-    Printlog "'///     join Nermal with pooky -> choose lowerTable -> Nermal has to be under Arlene again -> undo  ///"
-    FormatMergeTables
-    Kontext "TabellenVerbinden"
-    if TabellenVerbinden.exists (5) <> TRUE then
-        warnlog "there is only one table around no question for which table should be connected "
-    end if
-    MitNachfolgenderTabelleVerbinden.Check
-    TabellenVerbinden.OK
-    temp (5) = hGetTableName ()
-    if (temp (5) <> temp(3)) then warnlog "Merge table didn't work? 2 is:"+temp (5)+" should: "+temp(3)
-    Call wTypeKeys "<up>"
-    if (hGetTableName () <> temp(2)) then warnlog "Merge table didn't work? 2+ "
-    EditUndo
-    Call wTypeKeys "<up><mod1 home>"
-
-    Printlog "'///     join Pooky with Arlene -> choose upperTable -> Pooky is now above Nermal -> undo  ///"
-    FormatMergeTables
-    Kontext "TabellenVerbinden"
-    MitVorherigerTabelleVerbinden.Check
-    TabellenVerbinden.OK
-    temp (5) = hGetTableName ()
-    if (temp (5) <> temp(3)) then warnlog "Merge table didn't work? 3 is:"+temp (5)+" should: "+temp(3)
-    Call wTypeKeys "<up>"
-    if (hGetTableName () <> temp(3)) then warnlog "Merge table didn't work? 3+ "
-    EditUndo
-    Call wTypeKeys "<up><mod1 home>"
-
-    Printlog "'///     join Arlene with Pooky -> Pooky is above Nermal -> undo ///"
-    FormatMergeTables
-    Kontext "TabellenVerbinden"
-    if TabellenVerbinden.exists then
-        warnlog "tzhere shouldn't be a table connect dialog; yust one table to connect to available "
-        TabellenVerbinden.cancel
-    end if
-    sleep (2)
-    temp (5) = hGetTableName ()
-    if (temp (5) <> temp(2)) then warnlog "Merge table didn't work? 4 is:"+temp (5)+" should: "+temp(2)
-    sleep (2)
-    Call wTypeKeys "<mod1 end><down>"
-    sleep (3)
-    if (hGetTableName () <> temp(4)) then warnlog "Merge table didn't work? 4+ "
-    sleep (3)
-    EditUndo
-    sleep (3)
-    Call hCloseDocument
-endcase
-
-' ----------------------------------------------------------------------
-
-function hGetPageWidth() as double
-    Dim tWidth as double
-    try
-        FormatPageWriter
-    catch
-        warnlog ":couldn't get menuentry: FormatPageWriter"
-        exit function
-    endcatch
-    Kontext
-    Active.SetPage TabSeite
-    Kontext "TabSeite"
-    printlog "Test: "+ Breite.GetText +" " +Links.GetText  +" " +Rechts.GetText
-	tWidth = (StrToDouble(Breite.GetText) - ( StrToDouble(Links.GetText) + StrToDouble(Rechts.GetText)) )
-    hGetPageWidth = tWidth
-    TabSeite.cancel
-end function
-
diff --git a/testautomation/writer/optional/includes/table/w_204b_.inc b/testautomation/writer/optional/includes/table/w_204b_.inc
deleted file mode 100644
index 56b6e8781b2b..000000000000
--- a/testautomation/writer/optional/includes/table/w_204b_.inc
+++ /dev/null
@@ -1,100 +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 : helge.delfs@oracle.com
-'*
-'* short description : Writer Table test
-'*
-'\***********************************************************************
-
-sub w_204b_
-   Call wSplittingTableCellsIntoEqualProportions
-end sub
-
-
-testcase wSplittingTableCellsIntoEqualProportions
-   Dim i as integer 
-   Dim DaRowHeight as string
-   Dim SetRowHeight as boolean
-   
-   SetRowHeight = True
-   printlog "Based on feature ID: 103485"
-   printlog " Open a new writer document"
-   Call hNewDocument
-   printlog "Insert a table with 4 rows and 4 lines"
-   Call TBOhTabelleEinfuegen("SplittingTable", 0, 1, 0, 1, "4", "4")
-   printlog "Select the table ( Strg + A )"
-   Call wTypeKeys ( "<Mod1 A>" )
-   printlog "Format / Row / Height"
-   Kontext "ZellenHoehe"
-   TableAutoFitSetRowHeight
-   printlog "In upcoming dialog (Row Height) set height to 1,2cm and check 'Fit to size'"
-   if iSystemSprache = 01 or iSystemSprache = 48 or iSystemSprache = 07 then
-      Hoehe.Settext "1.20"
-   else
-      Hoehe.Settext "1,20"
-   end if
-   Dynamisch.Check
-   DaRowHeight = Hoehe.Gettext
-   printlog "Close 'Row Height' with 'OK'"
-   ZellenHoehe.Ok
-   printlog "Point cursor to first cell in first row ( Strg + Home )"
-   Call wTypeKeys ( "<Mod1 Home>" )
-   For i = 1 to 4
-      if wCheckRowHeight( DaRowHeight ) = False then SetRowHeight = False
-      Call wTypeKeys ( "<Down>" )
-   next i
-   if SetRowHeight = True then
-      Call wTypeKeys ( "<Up>", 4 )
-      printlog "Select 1st and 2nd column"
-      Call wTypeKeys ( "<Shift Down>", 3 )
-      Call wTypeKeys ( "<Shift Right>" )
-      printlog "Format / Cell / Merge to merge all cells"
-      TableMergeCells
-      printlog "Now split previous merged cell into 4 pieces ( horizontally )"
-      printlog "Format / Cell / Split"
-      TableSplitCell
-      Kontext "ZellenTeilen"
-      printlog "In 'Split Cells' Dialog set 'Split cell into' to 4"
-      Anzahl.Settext "4"
-      printlog "Check 'Horizontally' and 'Into equal proportions'"
-      Horizontal.Check
-      GleichmaessigTeilen.Check
-      printlog "Close dialog with 'OK'"
-      ZellenTeilen.Ok
-      printlog "Now the cell has to be splitted into 4 rows of height 1,2cm"
-      For i = 1 to 4
-         if wCheckRowHeight( DaRowHeight ) = False then SetRowHeight = False
-         Call wTypeKeys ( "<Down>" )
-      next i
-   else
-      Warnlog "Error setting the row height !"
-   end if
-
-   Call hCloseDocument
-
-endcase
diff --git a/testautomation/writer/optional/includes/textframes/w_textframes1.inc b/testautomation/writer/optional/includes/textframes/w_textframes1.inc
deleted file mode 100644
index ed3ee9b2dd5e..000000000000
--- a/testautomation/writer/optional/includes/textframes/w_textframes1.inc
+++ /dev/null
@@ -1,1458 +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 : helge.delfs@oracle.com
-'*
-'* short description : Test of textframe - 1
-'*
-'\***********************************************************************
-
-sub w_textframes1
-
-    Call tTextframes_1         'Test Insert Frame with four ways
-    Call tTextframes_2         'Test check Autosize
-    Call tTextframes_3         'Test Uncheck Autosize
-    Call tTextframes_4         'Test Uncheck Keep ratio
-    Call tTextframes_5         'Test check Keep ratio
-    Call tTextframes_6         'Test Anchor to page - frame doesn't move with text
-    Call tTextframes_7         'Test Anchor to paragraph - text entered ahead of the paragraph ,the frame has to move with its paragraph
-    Call tTextframes_8         'Test Anchor to Character - the frame follows the vertical position of the character it is anchored to
-    Call tTextframes_9         'Test Anchor as Character - frame behaves as a character, moves with each text insertion ahead of it
-    Call tTextframes_10        'Test Anchor in gathering pages&columns test.
-    Call tTextframes_11        'Test Anchor in gathering paragraph test.
-    Call tTextframes_12        'Horizontal should not be available when frame is anchored as Character
-    Call tTextframes_13        'Test Horizontal
-    Call tTextframes_14        'Test Vertical
-    Call tTextframes_15        'Frame name can be actualized in Navigator - solution 1
-    Call tTextframes_16        'Frame name can be actualized in Navigator - solution 2
-
-end sub
-
-'---------------------------------------------------
-
-testcase tTextframes_1
-
-    printlog "- Insert / Frame"
-    '/// Test Insert Frame
-    
-    Call hNewDocument
-    
-    '/// 1. Insert a Frame (with Menu)
-    InsertFrame
-    Kontext
-    try
-        Active.Setpage TabType
-        Kontext "TabType"
-        TabType.Ok
-        Wait 500
-    catch
-        Warnlog "Unable to insert a frame (Dialog is not up)!"
-    endcatch
-    
-    try
-        Call fFormatFrame("TabType")
-        TabType.Cancel
-    catch
-        Warnlog "Frame has not been inserted correct with menu!"
-    endcatch
-    
-    Call hCloseDocument
-    
-    '/// 2. Insert a frame over Toolbox / Insert / Frame
-    Call hNewDocument
-    
-    hSetDocumentContext()
-    Call gMouseClick (30, 50)
-    
-    Call hToolbarSelect("INSERT", true )
-    Sleep 1
-    Kontext "Insertbar"
-    Rahmen.Click
-    Sleep 1
-    
-    Call gMouseDown  ( 30,50 )
-    Call gMouseMove  ( 30,50,30,60 )
-    Call gMouseUp    ( 30,60 )
-    Call gMouseClick ( 50,70 )
-    Sleep 1
-    
-    'set focus to the frame
-    Call wTypeKeys ( "<Shift F4>" )
-    
-    Sleep 2
-    
-    try
-        Call fFormatFrame("TabType")
-        TabType.Cancel
-    catch
-        Warnlog "Frame has not been inserted correct over toolbox !"
-    endcatch
-    
-    Call hCloseDocument
-    
-    '/// Create Multi-Column frames over toolbox is not possible with testtool
-    
-    '/// 3. Paste a frame from clipboard
-    Call hNewDocument
-    
-    '/// -- insert a frame first
-    Call wInsertFrame
-    '/// -- Copy frame to clipboard
-    try
-        EditCopy
-    catch
-        Warnlog "Unable to access 'Edit / Copy'. Maybe disabled !"
-        Call hCloseDocument
-        goto endsub
-    endcatch
-    
-    Call hCloseDocument
-    
-    Call hNewDocument
-    
-    '/// -- Paste Frame into document from clipboard
-    EditPaste
-    Sleep 1
-    
-    try
-        Call fFormatFrame("TabType")
-        TabType.Cancel
-    catch
-        Warnlog "Frame has not been pasted via clipboard !"
-    endcatch
-    Call hCloseDocument
-    
-    '/// 4. Insert a frame via 'Insert / File '
-    Call hNewDocument
-    
-    InsertFileWriter
-    Kontext "OeffnenDlg"
-    Dateiname.Settext Convertpath (gTesttoolpath + "writer\optional\input\textframe\frame.sxw")
-    Oeffnen.Click
-    Wait 500
-    
-    'set focus to the frame
-    Call wTypeKeys ( "<Shift F4>" )
-    Wait 500
-    
-    try
-        Call fFormatFrame("TabType")
-        TabType.Cancel
-    catch
-        Warnlog "Frame has not been inserted via insert/file !"
-    endcatch
-    
-    Call hCloseDocument
-
-endcase
-
-'---------------------------------------------------
-
-testcase tTextframes_2
-
-    Dim sText    as String
-    Dim sHeight  as String
-    Dim sSpacing as String
-
-    sText    = "ABCDEFG"
-    sSpacing = "0"
-
-    printlog "- Test check Autosize"
-    '/// Test check Autosize
-
-    Call hNewDocument
-
-    '/// insert/frame / Type , Check Autosize
-    InsertFrame
-    Kontext
-    Active.SetPage TabType
-    Kontext "TabType"
-    AutoHoehe.Check
-    Sleep 1
-    TabType.OK
-
-    '/// A return on a selected frame points cursor into frame
-    Call wTypeKeys "<Return>"
-    Wait 500
-
-    '/// Input text full of frame
-    Call wTypeKeys sText
-    Wait 500
-
-    Call wTypeKeys "<End>"
-    Call wTypeKeys "<Shift Home>"
-    Wait 500
-
-    EditCopy
-    Wait 500
-
-    ' Choosed Text length because selected text depends on selected font
-    if Len(GetClipboardText) = Len(sText) then Warnlog "Don't get expected text ! Autosize doesn't seem to work properly"
-    Call hCloseDocument
-
-endcase
-
-'-----------------------------------------------------------------
-
-testcase tTextframes_3
-
-    Dim sText    as String
-    Dim sExpect  as String
-    Dim sHeight  as String
-    Dim sSpacing as String
-
-    sText    = "ABCDEFG"
-    sExpect  = "ABCDEFG"
-    sSpacing = "0"
-
-    printlog "- Test Uncheck Autosize"
-    '/// Test Uncheck Autosize
-
-    Call hNewDocument
-
-    '/// insert/frame / Type , UnCheck Autosize
-    InsertFrame
-    Kontext
-    Active.SetPage TabType
-    Kontext "TabType"
-    AutoHoehe.UnCheck
-    Sleep 1
-    TabType.OK
-
-    '/// A return on a selected frame points cursor into frame
-    Call wTypeKeys "<Return>"
-    Wait 500
-
-    '/// Input text full of frame
-    Call wTypeKeys sText
-    Wait 500
-
-    Call wTypeKeys "<End>"
-    Call wTypeKeys "<Shift Home>"
-    Wait 500
-
-    EditCopy
-    Wait 500
-
-    if GetClipboardText <> sExpect then QAerrorlog "#i31690# - Don't get expected text ! Hope to get " + sExpect + " but get " + GetClipboardText
-    Call hCloseDocument
-
-endcase
-
-'-----------------------------------------------------------------
-
-testcase tTextframes_4
-
-    Dim sWidth      as String
-    Dim sHeight     as String
-    Dim sWidthNew1  as String
-    Dim sHeightNew1 as String
-    Dim sWidthNew2  as String
-    Dim sHeightNew2 as String
-    
-    sWidth      = "2"+ gSeperator + "00" + gMeasurementUnit
-    sHeight     = "1"+ gSeperator + "00" + gMeasurementUnit
-    
-    sWidthNew1  = "4"+ gSeperator + "00" + gMeasurementUnit
-    sHeightNew1 = "1"+ gSeperator + "00" + gMeasurementUnit
-    
-    sWidthNew2  = "4"+ gSeperator + "00" + gMeasurementUnit
-    sHeightNew2 = "3"+ gSeperator + "00" + gMeasurementUnit
-    
-    printlog "- Test Uncheck Keep ratio"
-    '/// Test Uncheck Keep ratio
-    
-    Call hNewDocument
-    
-    '/// insert a frame
-    Call wInsertFrame
-    
-    '/// Format / Frame / Type
-    Call fFormatFrame("TabType")
-    
-    '/// + UnCheck Keep ratio
-    KeepRatio.UnCheck
-    
-    
-    '/// + Set width and height
-    Width.SetText   sWidth
-    Sleep 1
-    Height.SetText  sHeight
-    Sleep 1
-    
-    if Width.GetText  <> sWidth  then Warnlog "Keep ration(Uncheck) doesn't work - width!"
-    if Height.GetText <> sHeight then Warnlog "Keep ration(Uncheck) doesn't work - heigth!"
-    
-    '/// Check if height is changed after width is changed.
-    Width.SetText   sWidthNew1
-    Sleep 1
-    
-    if Width.GetText  <> sWidthNew1  then Warnlog "Keep ration(Uncheck) doesn't work - widthNew1 !"
-    if Height.GetText <> sHeightNew1 then Warnlog "Keep ration(Uncheck) doesn't work - heigthNew1 !"
-    
-    '/// Check if width is changed after height is changed.
-    Height.SetText sHeightNew2
-    Sleep 1
-    
-    if Width.GetText  <> sWidthNew2  then Warnlog "Keep ration(Uncheck) doesn't work - widthNew2 !"
-    if Height.GetText <> sHeightNew2 then Warnlog "Keep ration(Uncheck) doesn't work - heigthNew2 !"
-    
-    TabType.Cancel
-    
-    Call hCloseDocument
-
-endcase
-
-'-----------------------------------------------------------------
-
-testcase tTextframes_5
-    
-    Dim sWidth      as String
-    Dim sHeight     as String
-    Dim sWidthNew1  as String
-    Dim sHeightNew1 as String
-    Dim sWidthNew2  as String
-    Dim sHeightNew2 as String
-    
-    sWidth      = "2"+ gSeperator + "00" + gMeasurementUnit
-    sHeight     = "1"+ gSeperator + "00" + gMeasurementUnit
-    
-    sWidthNew1  = "4"+ gSeperator + "00" + gMeasurementUnit
-    sHeightNew1 = "2"+ gSeperator + "00" + gMeasurementUnit
-    
-    sWidthNew2  = "6"+ gSeperator + "00" + gMeasurementUnit
-    sHeightNew2 = "3"+ gSeperator + "00" + gMeasurementUnit
-    
-    printlog "- Test check Keep ratio"
-    '/// Test check Keep ratio
-    
-    Call hNewDocument
-    
-    '/// insert a frame
-    Call wInsertFrame
-    
-    '/// Format / Frame / Type
-    Call fFormatFrame("TabType")
-    
-    '/// + UnCheck Keep ratio
-    KeepRatio.UnCheck
-    
-    '/// + Set width and height
-    Width.SetText sWidth
-    Sleep 1
-    Height.SetText sHeight
-    Sleep 1
-    
-    '/// + Check Keep ratio
-    KeepRatio.Check
-    Sleep 1
-    
-    '/// Check if height is changed after width is changed.
-    Width.SetText sWidthNew1
-    Sleep 1
-    
-    if Width.GetText  <> sWidthNew1  then Warnlog "Keep ration(check) doesn't work - widthNew1 !"
-    if Height.GetText <> sHeightNew1 then Warnlog "Keep ration(check) doesn't work - heigthNew1 !"
-    
-    '/// Check if width is changed after height is changed.
-    Height.SetText sHeightNew2
-    Sleep 1
-    
-    if Width.GetText  <> sWidthNew2  then Warnlog "Keep ration(check) doesn't work - widthNew2 !"
-    if Height.GetText <> sHeightNew2 then Warnlog "Keep ration(check) doesn't work - heigthNew2 !"
-    
-    TabType.Cancel
-    
-    Call hCloseDocument
-
-endcase
-
-'-----------------------------------------------------------------
-
-testcase tTextframes_6
-
-    Dim sTestFile as String
-    Dim sTestText as String
-    
-    sTestFile = Convertpath (gTesttoolpath + "writer\optional\input\textframe\AnchorToPage.sxw")
-    sTestText = "Bottom"
-    
-    printlog "- Test Anchor to page - frame doesn't move with text"
-    '/// Test Anchor to page - frame doesn't move with text
-    
-    '/// Open a test file
-    '/// + This test file is designed for Anchor To Page test.
-    '/// + There are 2 pages in the file , and the frame is in
-    '/// + the bottom of first page
-    hFileOpenLocally( sTestFile )
-    
-    
-    Check1:
-    EditSearchAndReplace
-    Kontext "FindAndReplace"
-    SearchFor.SetText sTestText
-    Wait 500
-    SearchAll.Click
-    Sleep 1
-    Kontext "Active"
-    if Active.Exists then
-        if Active.GetRT = 304 then
-            try
-                Active.Ok
-            catch
-                Active.No
-            endcatch
-        end if
-    end if
-    Kontext "FindAndReplace"
-    FindAndReplace.Cancel
-    
-    Kontext "Navigator"
-    if Not Navigator.Exists then ViewNavigator
-    Kontext "NavigatorWriter"
-    Sleep 1
-    if Seitennummer.GetText <> "1" then
-        fCloseNavigator
-        Wait 500
-        Call wTypeKeys "<Home>"
-        Wait 500
-        Call wTypeKeys "<BackSpace>"
-        Wait 500
-        Goto Check1
-    end if
-    
-    fCloseNavigator
-    Wait 500
-    
-    Call wTypeKeys "<Home>"
-    
-    '/// Press Return before "bottom" , now the "bottom"
-    '/// + should be in the second page
-    Call wTypeKeys "<Return>" , 15
-    Wait 500
-    
-    Call wTypeKeys "<Shift End>"
-    Wait 500
-    EditCopy
-    if GetClipboardText <> sTestText then Warnlog "The test text isn't right !"
-    
-    Kontext "Navigator"
-    if Not Navigator.Exists then ViewNavigator
-    Kontext "NavigatorWriter"
-    Sleep 1
-    if Seitennummer.GetText <> "2" then Warnlog "The test text should be in second page !"
-    fCloseNavigator
-    Wait 500
-    
-    '/// Set focus to the frame  , the frame should be
-    '/// + still in the first page
-    Call wTypeKeys ( "<Shift F4>" )
-    Sleep 1
-    
-    Kontext "Navigator"
-    if Not Navigator.Exists then ViewNavigator
-    Kontext "NavigatorWriter"
-    Sleep 1
-    if Seitennummer.GetText <> "1" then Warnlog "The test frame should be still in first page !"
-    fCloseNavigator
-    Wait 500
-    
-    printlog " Close active document "
-    Do Until GetDocumentCount = 0
-        Call hCloseDocument
-    Loop
-    
-endcase
-
-'-----------------------------------------------------------------
-
-testcase tTextframes_7
-
-    Dim sTestFile as String
-    Dim sDummy    as String
-    
-    sTestFile = Convertpath (gTesttoolpath + "writer\optional\input\textframe\AnchorToParagraph.sxw")
-    sDummy    = "She heard"
-    
-    printlog "- Test Anchor to paragraph - text entered ahead of the paragraph ,the frame has to move with its paragraph"
-    '/// Test Anchor to paragraph - text entered ahead of the paragraph ,the frame has to move with its paragraph
-    
-    '/// Open a test file
-    '/// + This test file is designed for Anchor To Paragraph test.
-    '/// + There are 2 paragraphs in the file , and the head of 2nd
-    '/// + paragraph is in the bottom of the first page .
-    '/// + The frame is in the first line of 2nd paragraph
-    hFileOpenLocally( sTestFile )
-    
-    
-    '/// check if the frame is in the first page
-    Call wTypeKeys ( "<Shift F4>" )
-    Sleep 1
-    
-    Check:
-    Kontext
-    ViewNavigator
-    Kontext "NavigatorWriter"
-    Sleep 1
-    if Seitennummer.GetText <> "1" then
-        fCloseNavigator
-        Sleep 1
-    
-        Call wTypeKeys "<ESCAPE>"
-        Call wTypeKeys "<MOD1 Home>"
-    
-        EditSearchAndReplace
-        Kontext "FindAndReplace"
-        SearchFor.SetText sDummy
-        Wait 500
-        SearchAll.Click
-        Sleep 1
-        FindAndReplace.Cancel
-    
-        Call wTypeKeys "<Home>"
-        Call wTypeKeys "<Backspace>"
-        Goto Check
-    else
-        fCloseNavigator
-        Wait 500
-    end if
-    
-    Call wTypeKeys "<ESCAPE>"
-    Sleep 1
-    Call wTypeKeys "<MOD1 Home>"
-    
-    '/// Press Return before the second paragraph
-    Call wTypeKeys "<Return>" , 3
-    Wait 500
-    
-    '/// Set focus to the frame  , the frame should be in the second page
-    Call wTypeKeys ( "<Shift F4>" )
-    Sleep 1
-    
-    Kontext
-    ViewNavigator
-    Kontext "NavigatorWriter"
-    Sleep 1
-    if Seitennummer.GetText <> "2" then Warnlog "The test frame should be in second page !"
-    fCloseNavigator
-    Wait 500
-    
-    printlog " Close active document "
-    Do Until GetDocumentCount = 0
-        Call hCloseDocument
-    Loop
-    
-endcase
-
-'-----------------------------------------------------------------
-
-testcase tTextframes_8
-
-    Dim sTestFile as String
-    Dim sDummy    as String
-    
-    sTestFile = Convertpath (gTesttoolpath + "writer\optional\input\textframe\AnchorToCharacter.sxw")
-    sDummy    = "He heard"
-    
-    printlog "- Test Anchor to Character - the frame follows the vertical position of the character it is anchored to"
-    '/// Test Anchor to Character - the frame follows the vertical position of the character it is anchored to
-    
-    '/// Open a test file
-    '/// + This test file is designed for Anchor To Character test.
-    '/// + The frame is anchored to the character 't' of That .
-    '/// + The frame is in the bottom of the first page
-    
-    hFileOpenLocally( sTestFile )
-    
-    
-    '/// check if the frame is in the first page
-    Call wTypeKeys ( "<Shift F4>" )
-    Sleep 1
-    
-    Check1:
-    Kontext
-    ViewNavigator
-    Kontext "NavigatorWriter"
-    Sleep 1
-    if Seitennummer.GetText <> "1" then
-        fCloseNavigator
-        Sleep 1
-    
-        Call wTypeKeys "<ESCAPE>"
-        Call wTypeKeys "<MOD1 Home>"
-    
-        EditSearchAndReplace
-        Kontext "FindAndReplace"
-        SearchFor.SetText sDummy
-        Wait 500
-        SearchAll.Click
-        Sleep 1
-        FindAndReplace.Cancel
-    
-        Call wTypeKeys "<Home>"
-        Call wTypeKeys "<Backspace>"
-        Goto Check1
-    else
-        fCloseNavigator
-        Wait 500
-    end if
-    
-    Call wTypeKeys "<ESCAPE>"
-    Sleep 1
-    Call wTypeKeys "<End>"
-    
-    '/// Press Return behind the character which the frame is anchored.
-    Call wTypeKeys "<Return>" , 8
-    Wait 500
-    
-    '/// Set focus to the frame  , the frame should be still in the first page
-    Call wTypeKeys ( "<Shift F4>" )
-    Sleep 1
-    
-    Kontext
-    ViewNavigator
-    Kontext "NavigatorWriter"
-    Sleep 1
-    if Seitennummer.GetText <> "1" then Warnlog "The test frame should be in first page !"
-    fCloseNavigator
-    Wait 500
-    
-    Call hCloseDocument
-    
-    hFileOpenLocally( sTestFile )
-    
-    
-    Call wTypeKeys ( "<Shift F4>" )
-    Sleep 1
-    
-    Check2:
-    Kontext
-    ViewNavigator
-    Kontext "NavigatorWriter"
-    Sleep 1
-    if Seitennummer.GetText <> "1" then
-        fCloseNavigator
-        Sleep 1
-    
-        Call wTypeKeys "<ESCAPE>"
-        Call wTypeKeys "<MOD1 Home>"
-    
-        EditSearchAndReplace
-        Kontext "FindAndReplace"
-        SearchFor.SetText sDummy
-        Wait 500
-        SearchAll.Click
-        Sleep 1
-        FindAndReplace.Cancel
-    
-        Call wTypeKeys "<Home>"
-        Call wTypeKeys "<Backspace>"
-        Goto Check2
-    else
-        fCloseNavigator
-        Wait 500
-    end if
-    
-    '/// Press Return  in front of the character which the frame is anchored.
-    Call wTypeKeys "<MOD1 Home>"
-    Call wTypeKeys "<Return>" , 8
-    Wait 500
-    
-    '/// Set focus to the frame  , the frame should be in the second page
-    Call wTypeKeys ( "<Shift F4>" )
-    Sleep 1
-    
-    Kontext
-    ViewNavigator
-    Kontext "NavigatorWriter"
-    Sleep 1
-    if Seitennummer.GetText <> "2" then Warnlog "The test frame should be in second page !"
-    fCloseNavigator
-    Wait 500
-    
-    printlog " Close active document "
-    Do Until GetDocumentCount = 0
-        Call hCloseDocument
-    Loop
-
-endcase
-
-'-----------------------------------------------------------------
-
-testcase tTextframes_9
-
-    Dim sTestFile as String
-    Dim sDummy    as String
-    
-    sTestFile = Convertpath (gTesttoolpath + "writer\optional\input\textframe\AnchorAsCharacter.sxw")
-    sDummy    = "He heard"
-    
-    printlog "- Test Anchor as Character - frame behaves as a character, moves with each text insertion ahead of it"
-    '/// Test Anchor as Character - frame behaves as a character, moves with each text insertion ahead of it
-    
-    '/// Open a test file
-    '/// + This test file is designed for Anchor as Character test.
-    '/// + The frame is anchored as the character.
-    '/// + The frame is in the right and bottom of the first page
-    hFileOpenLocally( sTestFile )
-    
-    
-    'check if the frame is in the first page
-    Call wTypeKeys ( "<Shift F4>" )
-    Sleep 1
-    
-    Check1:
-    Kontext
-    ViewNavigator
-    Kontext "NavigatorWriter"
-    Sleep 1
-    if Seitennummer.GetText <> "1" then
-        fCloseNavigator
-        Sleep 1
-    
-        Call wTypeKeys "<ESCAPE>"
-        Call wTypeKeys "<MOD1 Home>"
-    
-        EditSearchAndReplace
-        Kontext "FindAndReplace"
-        SearchFor.SetText sDummy
-        Wait 500
-        SearchAll.Click
-        Sleep 1
-        FindAndReplace.Cancel
-    
-        Call wTypeKeys "<Home>"
-        Call wTypeKeys "<Backspace>"
-        Goto Check1
-    else
-        fCloseNavigator
-        Wait 500
-    end if
-    
-    Call wTypeKeys "<ESCAPE>"
-    Sleep 1
-    Call wTypeKeys "<End>"
-    
-    '/// Press Return behind the the frame.
-    Call wTypeKeys "<Return>" , 8
-    Wait 500
-    
-    '/// Set focus to the frame  , the frame should be still in the first page
-    Call wTypeKeys ( "<Shift F4>" )
-    Sleep 1
-    
-    Kontext
-    ViewNavigator
-    Kontext "NavigatorWriter"
-    Sleep 1
-    if Seitennummer.GetText <> "1" then Warnlog "The test frame should be in first page !"
-    fCloseNavigator
-    Wait 500
-    
-    Call hCloseDocument
-    
-    hFileOpenLocally( sTestFile )
-    
-    
-    Check2:
-    Kontext
-    ViewNavigator
-    Kontext "NavigatorWriter"
-    Sleep 1
-    if Seitennummer.GetText <> "1" then
-        fCloseNavigator
-        Sleep 1
-    
-        Call wTypeKeys "<ESCAPE>"
-        Call wTypeKeys "<MOD1 Home>"
-    
-        EditSearchAndReplace
-        Kontext "FindAndReplace"
-        SearchFor.SetText sDummy
-        Wait 500
-        SearchAll.Click
-        Sleep 1
-        FindAndReplace.Cancel
-    
-        Call wTypeKeys "<Home>"
-        Call wTypeKeys "<Backspace>"
-        Goto Check2
-    else
-        fCloseNavigator
-        Wait 500
-    end if
-    
-    '/// Press Return  in front of the frame
-    Call wTypeKeys "<ESCAPE>"
-    Sleep 1
-    Call wTypeKeys "<Home>"
-    Call wTypeKeys "<Return>" , 8
-    Wait 500
-    
-    '/// Set focus to the frame  , the frame should be in the second page
-    Call wTypeKeys ( "<Shift F4>" )
-    Sleep 1
-    
-    Kontext
-    ViewNavigator
-    Kontext "NavigatorWriter"
-    Sleep 1
-    if Seitennummer.GetText <> "2" then Warnlog "The test frame should be in second page !"
-    fCloseNavigator
-    Wait 500
-    
-    printlog " Close active document "
-    Do Until GetDocumentCount = 0
-        Call hCloseDocument
-    Loop
-
-endcase
-
-'-----------------------------------------------------------------
-
-testcase tTextframes_10
-
-    Dim sColumn1   as String
-    Dim sColumn2   as String
-    Dim sTestFile1 as String
-    Dim sTestFile2 as String
-    
-    sColumn1   = "1"
-    sColumn2   = "2"
-    sTestFile1 = Convertpath (gTesttoolpath + "writer\optional\input\textframe\pageColumn1.sxw")
-    sTestFile2 = Convertpath (gTesttoolpath + "writer\optional\input\textframe\pageColumn2.sxw")
-    
-    printlog "- Test Anchor in gathering pages&columns test."
-    '/// Test Anchor in gathering pages&columns test.
-    
-    '/// Open a test file
-    '/// + This test file is designed for Anchor in gathering pages&columns test.
-    '/// + There are 2 columns in the page. And the frame is in the second column.
-    hFileOpenLocally( sTestFile1,false)
-    
-    
-    'Press return to ensure the frame is in 2nd column
-    Call wTypeKeys "<MOD1 Home>"
-    Sleep 1
-    Call wTypeKeys "<Return>" , 8
-    Sleep 1
-    
-    '/// Set the column to 1
-    fFormatPageWriter("TabSpalten")
-    Anzahl.SetText sColumn1
-    Sleep 1
-    TabSpalten.OK
-    
-    '/// Check if the frame is in the second page
-    Call wTypeKeys ( "<Shift F4>" )
-    Sleep 1
-    
-    Kontext
-    ViewNavigator
-    Kontext "NavigatorWriter"
-    Sleep 1
-    if Seitennummer.GetText <> "2" then Warnlog "The test frame should be in second page -1!"
-    fCloseNavigator
-    Wait 500
-    
-    Call hCloseDocument
-    
-    printlog "- Test Anchor in seperating pages&columns test"
-    '/// Test Anchor in seperating pages&columns test
-    
-    '/// Open a test file2
-    '/// + This test file is designed for Anchor in seperating
-    '/// + pages&columns test.
-    '/// + There are 2 pages. And the frame is in the second page.
-    hFileOpenLocally( sTestFile2,false)
-    
-    
-    'check if the frame is in the 2nd page
-    Call wTypeKeys ( "<Shift F4>" )
-    Sleep 1
-    
-    Kontext
-    ViewNavigator
-    Kontext "NavigatorWriter"
-    Sleep 1
-    if Seitennummer.GetText <> "2" then
-        Call wTypeKeys "<ESCAPE>"
-        Call wTypeKeys "<MOD1 Home>"
-        Sleep 1
-        Call wTypeKeys "<Return>" , 8
-        Sleep 1
-    end if
-    fCloseNavigator
-    Wait 500
-    
-    Call wTypeKeys "<ESCAPE>"
-    Sleep 1
-    
-    '/// Set the column to 2
-    fFormatPageWriter("TabSpalten")
-    Anzahl.SetText sColumn2
-    Sleep 1
-    TabSpalten.OK
-    
-    '/// Check if the frame is in the first page
-    Call wTypeKeys ( "<Shift F4>" )
-    Sleep 1
-    
-    Kontext
-    ViewNavigator
-    Kontext "NavigatorWriter"
-    Sleep 1
-    if Seitennummer.GetText <> "1" then Warnlog "The test frame should be in first page ! -2"
-    fCloseNavigator
-    Wait 500
-    
-    printlog " Close active document "
-    Do Until GetDocumentCount = 0
-        Call hCloseDocument
-    Loop
-
-endcase
-
-'-----------------------------------------------------------------
-
-testcase tTextframes_11
-
-    Dim sTestFile as String
-    Dim sDummy1   as String
-    Dim sDummy2   as String
-    
-    sTestFile = Convertpath (gTesttoolpath + "writer\optional\input\textframe\pageParagraph.sxw")
-    sDummy1   = "He heard"
-    sDummy2   = "after he"
-    
-    printlog "- Test Anchor in gathering paragraph test"
-    '/// Test Anchor in gathering paragraph test
-    
-    '/// Open a test file
-    '/// + This test file is designed for Anchor in gathering paragraph test.
-    '/// + There are 2 paragraph in the file .
-    '/// + The 1st paragraph is in 1st page and the 2nd paragraph is in 2nd page
-    '/// + Two paragraphs, a frame is anchored to the second one. When deleting the paragraph mark, the anchor of the frame has to move the the first paragraph.
-    hFileOpenLocally( sTestFile )
-    
-
-Check1:
-    'First check
-    EditSearchAndReplace
-    Kontext "FindAndReplace"
-
-    SearchFor.SetText sDummy1
-    Wait 500
-
-    SearchAll.Click
-
-    Sleep 1
-    Kontext "Active"
-    if Active.Exists then
-        if Active.GetRT = 304 then
-            try
-                Active.Ok
-            catch
-                Active.No
-            endcatch
-        end if
-    end if
-    Kontext "FindAndReplace"
-    FindAndReplace.Cancel
-
-    Kontext "Navigator"
-    if Not Navigator.Exists then ViewNavigator
-    Kontext "NavigatorWriter"
-    Sleep 1
-    if Seitennummer.GetText <> "1" then
-        fCloseNavigator
-        Wait 500
-        Call wTypeKeys "<Home>"
-        Wait 500
-        Call wTypeKeys "<BackSpace>"
-        Wait 500
-        Goto Check1
-    end if
-
-    fCloseNavigator
-    Wait 500
-
-Check2:
-    'Second check
-    EditSearchAndReplace
-    Kontext "FindAndReplace"
-
-    SearchFor.SetText sDummy2
-    Wait 500
-
-    SearchAll.Click
-    Sleep 1
-    Kontext "Active"
-    if Active.Exists then
-        if Active.GetRT = 304 then
-            try
-                Active.Ok
-            catch
-                Active.No
-            endcatch
-        end if
-    end if
-    Kontext "FindAndReplace"
-    FindAndReplace.Close
-
-    Kontext "Navigator"
-    if Not Navigator.Exists then ViewNavigator
-    Kontext "NavigatorWriter"
-    Sleep 1
-    if Seitennummer.GetText <> "2" then
-        fCloseNavigator
-        Wait 500
-        Call wTypeKeys "<MOD1 Home>"
-        Wait 500
-        Call wTypeKeys "<Return>"
-        Wait 500
-        Goto Check2
-    end if
-
-    fCloseNavigator
-    Wait 500
-
-    '/// Delete the 1st paragraph mark
-    Call wTypeKeys "<Home>"
-    Wait 500
-    Call wTypeKeys "<Backspace>"
-    Sleep 1
-
-    Call wTypeKeys ( "<Shift F4>" )
-    Sleep 1
-
-    '/// Check if frame is in 1st page
-    Kontext "Navigator"
-    if Not Navigator.Exists then ViewNavigator
-    Kontext "NavigatorWriter"
-    Sleep 1
-    if Seitennummer.GetText <> "1" then
-        Warnlog "The test frame should be in the first page! "
-    end if
-    fCloseNavigator
-    Wait 500
-
-    printlog " Close active document "
-    Do Until GetDocumentCount = 0
-        Call hCloseDocument
-    Loop
-
-endcase
-
-'-----------------------------------------------------------------
-
-testcase tTextframes_12
-
-    printlog "- Horizontal should not be available when frame is anchored as Character"
-    '/// Horizontal should not be available when frame is anchored as Character
-    
-    Call hNewDocument
-    
-    '/// insert a frame
-    Call wInsertFrame
-    
-    '/// format / frame / type
-    Call fFormatFrame("TabType")
-    
-    '/// + Check Anchor as Character
-    AnchorAsCharacter.Check
-    wait 500
-    
-    '/// + Check if Horizontal is available
-    try
-        Horizontal.Select 1
-        Warnlog "Horizontal Should NOT be available when anchor as Character!"
-    catch
-    endcatch
-    
-    try
-        HorizontalBy.SetText "1"
-        Warnlog "HorizontalBy Should NOT be available when anchor as Character!"
-    catch
-    endcatch
-    
-    try
-        HorizontalTo.Select 1
-        Warnlog "HorizontalTo Should NOT be available when anchor as Character!"
-    catch
-    endcatch
-    
-    TabType.Cancel
-    
-    Call hCloseDocument
-    
-endcase
-
-'-----------------------------------------------------------------
-
-testcase tTextframes_13
-
-    Dim sHorizontalBy       as String
-    Dim iHorizontalLeft     as Integer
-    Dim iHorizontalRight    as Integer
-    Dim iHorizontalCenter   as Integer
-    Dim iHorizontalFromLeft as Integer
-    
-    sHorizontalBy       = "1"+ gSeperator + "00" + gMeasurementUnit
-    
-    iHorizontalLeft     = 1
-    iHorizontalRight    = 2
-    iHorizontalCenter   = 3
-    iHorizontalFromLeft = 4
-    
-    printlog "Test Horizontal"
-    '/// Test Horizontal
-    
-    Call hNewDocument
-    
-    '/// insert a frame
-    Call wInsertFrame
-    
-    '/// format / frame / type
-    Call fFormatFrame("TabType")
-    '/// + Select Horizontal as Left
-    printlog "- Horizontal as Left"
-    
-    Horizontal.Select iHorizontalLeft
-    
-    try
-        HorizontalBy.SetText   sHorizontalBy
-        Warnlog "HorizontalBy Should NOT be available !"
-    catch
-    endcatch
-    
-    HorizontalTo.Select 1
-    wait 500
-    TabType.OK
-    
-    Call fFormatFrame("TabType")
-    if Horizontal.GetSelIndex   <> iHorizontalLeft then Warnlog "Horizontal option is not correct !"
-    if HorizontalTo.GetSelIndex <> 1               then Warnlog "HorizontalTo option is not correct !"
-    TabType.Cancel
-    
-    '/// + Select Horizontal as Right
-    printlog "- Horizontal as Right"
-    
-    Call fFormatFrame("TabType")
-    Horizontal.Select iHorizontalRight
-    
-    try
-        HorizontalBy.SetText   sHorizontalBy
-        Warnlog "HorizontalBy Should NOT be available !"
-    catch
-    endcatch
-    
-    HorizontalTo.Select 2
-    TabType.OK
-    
-    Call fFormatFrame("TabType")
-    if Horizontal.GetSelIndex   <> iHorizontalRight then Warnlog "Horizontal option is not correct !"
-    if HorizontalTo.GetSelIndex <> 2                then Warnlog "HorizontalTo option is not correct !"
-    TabType.Cancel
-    
-    Call fFormatFrame("TabType")
-    '/// + Select Horizontal as Center
-    printlog "- Horizontal as Center"
-    
-    Horizontal.Select iHorizontalCenter
-    
-    try
-        HorizontalBy.SetText   sHorizontalBy
-        Warnlog "HorizontalBy Should NOT be available !"
-    catch
-    endcatch
-    
-    HorizontalTo.Select 3
-    TabType.OK
-    
-    Call fFormatFrame("TabType")
-    if Horizontal.GetSelIndex   <> iHorizontalCenter then Warnlog "Horizontal option is not correct !"
-    if HorizontalTo.GetSelIndex <> 3                 then Warnlog "HorizontalTo option is not correct !"
-    TabType.Cancel
-    
-    Call fFormatFrame("TabType")
-    '/// + Select Horizontal as From left
-    printlog "- Horizontal as From left "
-    
-    Horizontal.Select iHorizontalFromLeft
-    
-    try
-        HorizontalBy.SetText   sHorizontalBy
-    catch
-        Warnlog "HorizontalBy Should be available !"
-    endcatch
-    
-    HorizontalTo.Select 3
-    wait 500
-    TabType.OK
-    
-    Call fFormatFrame("TabType")
-    if Horizontal.GetSelIndex   <> iHorizontalFromLeft then Warnlog "Horizontal option is not correct !"
-    if HorizontalBy.GetText     <> sHorizontalBy       then Warnlog "HorizontalBy option is not correct !"
-    if HorizontalTo.GetSelIndex <> 3                   then Warnlog "HorizontalTo option is not correct !"
-    TabType.Cancel
-    
-    Call hCloseDocument
-
-endcase
-
-'-----------------------------------------------------------------
-
-testcase tTextframes_14
-
-    Dim sVerticalBy      as String
-    Dim iVerticalTop     as Integer
-    Dim iVerticalBottom  as Integer
-    Dim iVerticalCenter  as Integer
-    Dim iVerticalFromTop as Integer
-    
-    sVerticalBy      = "1"+ gSeperator + "00" + gMeasurementUnit
-    
-    iVerticalTop     = 1
-    iVerticalBottom  = 2
-    iVerticalCenter  = 3
-    iVerticalFromTop = 4
-    
-    printlog "Test Vertical"
-    '/// Test Vertical
-    
-    Call hNewDocument
-    
-    '/// insert a frame
-    Call wInsertFrame
-    
-    '/// format / frame / type
-    Call fFormatFrame("TabType")
-    '/// + Select Vertical as Top
-    printlog "- Vertical as Top"
-    
-    Vertical.Select iVerticalTop
-    
-    try
-        VerticalBy.SetText  sVerticalBy
-        Warnlog "VerticalBy Should NOT be available !"
-    catch
-    endcatch
-    
-    VerticalTo.Select 1
-    wait 500
-    TabType.OK
-    
-    Call fFormatFrame("TabType")
-    if Vertical.GetSelIndex   <> iVerticalTop then Warnlog "Vertical option is not correct !"
-    if VerticalTo.GetSelIndex <> 1            then Warnlog "VerticalTo option is not correct !"
-    TabType.Cancel
-    
-    '/// + Select Vertical as Right
-    printlog "- Vertical as Right"
-    
-    Call fFormatFrame("TabType")
-    Vertical.Select iVerticalBottom
-    
-    try
-        VerticalBy.SetText  sVerticalBy
-        Warnlog "VerticalBy Should NOT be available !"
-    catch
-    endcatch
-    
-    VerticalTo.Select 2
-    TabType.OK
-    
-    Call fFormatFrame("TabType")
-    if Vertical.GetSelIndex   <> iVerticalBottom then Warnlog "Vertical option is not correct !"
-    if VerticalTo.GetSelIndex <> 2               then Warnlog "VerticalTo option is not correct !"
-    TabType.Cancel
-    
-    Call fFormatFrame("TabType")
-    '/// + Select Vertical as Center
-    printlog "- Vertical as Center"
-    
-    Vertical.Select iVerticalCenter
-    
-    try
-        VerticalBy.SetText  sVerticalBy
-        Warnlog "VerticalBy Should NOT be available !"
-    catch
-    endcatch
-    
-    VerticalTo.Select 1
-    TabType.OK
-    
-    Call fFormatFrame("TabType")
-    if Vertical.GetSelIndex   <> iVerticalCenter then Warnlog "Vertical option is not correct !"
-    if VerticalTo.GetSelIndex <> 1               then Warnlog "VerticalTo option is not correct !"
-    TabType.Cancel
-    
-    Call fFormatFrame("TabType")
-    '/// + Select Vertical as From top
-    printlog "- Vertical as From top"
-    
-    Vertical.Select iVerticalFromTop
-    
-    try
-        VerticalBy.SetText  sVerticalBy
-    catch
-        Warnlog "VerticalBy Should be available !"
-    endcatch
-    
-    VerticalTo.Select 2
-    wait 500
-    TabType.OK
-    
-    Call fFormatFrame("TabType")
-    if Vertical.GetSelIndex   <> iVerticalFromTop then Warnlog "Vertical option is not correct !"
-    if VerticalBy.GetText     <> sVerticalBy      then Warnlog "VerticalBy option is not correct !"
-    if VerticalTo.GetSelIndex <> 2                then Warnlog "VerticalTo option is not correct !"
-    TabType.Cancel
-    
-    Call hCloseDocument
-
-endcase
-
-'-----------------------------------------------------------------
-
-testcase tTextframes_15
-
-    Dim sOriginalName as String
-    Dim sNewName      as String
-    
-    sOriginalName = "TEST1"
-    sNewName      = "TEST2"
-    
-    printlog "- Frame name can be actualized in Navigator - solution 1"
-    '/// Frame name can be actualized in Navigator - solution 1
-    
-    Call hNewDocument
-    
-    '/// insert a frame and name as "TEST1"
-    Call wInsertFrame
-    
-    Call fFormatFrame("TabZusaetze")
-    ObjektName.SetText sOriginalName
-    TabZusaetze.OK
-    
-    '/// Open Navigator,
-    Call fStartupNavigator("TextFrame" , 1)
-    Auswahlliste.TypeKeys "<Down>"
-    Auswahlliste.OpenContextMenu
-    
-    '/// + ContextMenu  TextFrame / Edit,
-    Call hMenuSelectNr(4)
-    Sleep 2
-    Call hMenuSelectNr(1)
-    Sleep 1
-    Kontext "TabZusaetze"   
-    '/// + Change the frame name in the opened dialogue ,
-    try
-        ObjektName.SetText sNewName
-        TabZusaetze.OK
-    catch
-        Warnlog "format/grame dialogue isn't opened correctly!"
-        Call fCloseNavigator
-        goto endsub
-    endcatch
-    
-    '/// + close the navigator
-    Call fCloseNavigator
-    
-    Call wTypeKeys ( "<Shift F4>" )
-    
-    '/// Check if the name is changed correctly
-    Call fFormatFrame("TabZusaetze")
-    if ObjektName.GetText <> sNewName then Warnlog "frame name isn't renamed correctly!"
-    TabZusaetze.Cancel
-    
-    Call hCloseDocument
-
-endcase
-
-'---------------------------------------------------
-
-testcase tTextframes_16
-
-    Dim sOriginalName as String
-    Dim sNewName      as String
-    
-    sOriginalName = "TEST1"
-    sNewName      = "TEST2"
-    
-    printlog "- Frame name can be actualized in Navigator - solution 2"
-    '/// Frame name can be actualized in Navigator - solution 2
-    
-    Call hNewDocument
-    
-    '/// insert a frame and name as "TEST1"
-    Call wInsertFrame
-    
-    Call fFormatFrame("TabZusaetze")
-    ObjektName.SetText sOriginalName
-    TabZusaetze.OK
-    
-    '/// + Open Navigator ,
-    Call fStartupNavigator("TextFrame" , 1)
-    
-    Auswahlliste.TypeKeys "<Down>"
-    Auswahlliste.OpenContextMenu
-    
-    '/// + ContextMenu  TextFrame / Rename
-    Call hMenuSelectNr(4)
-    Sleep 2
-    Call hMenuSelectNr(3)
-    Sleep 1
-    
-    Kontext "ObjekteUmbenennen"
-    
-    '/// + Change the frame name in the opened dialogue ,
-    try
-        ObjektName.SetText sNewName
-        ObjekteUmbenennen.OK
-    catch
-        Warnlog "Frame rename dialogue isn't opened correctly!"
-        Call fCloseNavigator
-        goto endsub
-    endcatch
-    
-    '/// + close navigaotr
-    Call fCloseNavigator
-    
-    Call wTypeKeys ( "<Shift F4>" )
-    
-    '/// Check if the name is changed correctly
-    Call fFormatFrame("TabZusaetze")
-    if ObjektName.GetText <> sNewName then Warnlog "frame name isn't renamed correctly!"
-    TabZusaetze.Cancel
-    
-    Call hCloseDocument
-
-endcase
-
-'---------------------------------------------------
diff --git a/testautomation/writer/optional/includes/textframes/w_textframes2.inc b/testautomation/writer/optional/includes/textframes/w_textframes2.inc
deleted file mode 100644
index c4cc19006f36..000000000000
--- a/testautomation/writer/optional/includes/textframes/w_textframes2.inc
+++ /dev/null
@@ -1,1159 +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 : helge.delfs@oracle.com
-'*
-'* short description : Test of textframe - 2
-'*
-'\***********************************************************************
-
-sub w_textframes2
-
-    Call tTextframes_17         'Test protect contents - text insertion in frame must be suppressed
-    Call tTextframes_18         'Test protect position - moving frame with mouse/keyboard suppressed
-    Call tTextframes_19         'Test if frame can move when protect content is checked
-    Call tTextframes_20         'Test frame without wrap
-    Call tTextframes_21         'Test frame with wrap ( through)
-    Call tTextframes_22         'Test wrap - before/after - 1
-    Call tTextframes_23         'Test wrap - before/after - 2
-    Call tTextframes_24         'Set more than 1 columns for the frame
-    Call tTextframes_25         'Test columns' width
-    Call tTextframes_26         'Test columns' spacing
-    Call tTextframes_27         'Test columns' seperator line
-    Call tTextframes_28         'Test overlap with different wrapping types
-    Call tTextframes_29         'Test 'synchronize' distances for border (Check Synchronize)
-    Call tTextframes_30         'Test 'synchronize' distances for border (UnCheck Synchronize)
-    Call tTextframes_31         'Frame should be non-editable in read-only documents
-    Call tTextframes_32         'Test input text into frame in read-only document when checking "Editable in read-only document"
-
-end sub
-
-'---------------------------------------------------
-
-testcase tTextframes_17
-
-    Dim sTestText
-    
-    sTestText = "T"
-    
-    printlog "- Test protect contents - text insertion in frame must be suppressed"
-    
-    Call hNewDocument
-    
-    '/// insert a frame
-    Call fInsertFrame(30,30 , 60,60)
-    
-    '/// Format / Frame / Options , check contents
-    Call fFormatFrame("TabZusaetze")
-    InhaltSchuetzen.Check
-    TabZusaetze.OK
-    
-    Call wTypeKeys "<ESCAPE>"
-    Wait 500
-    
-    Call gMouseClick(40,40)
-    Wait 500
-    
-    '/// check if contents can be inserted into frame
-    Call wTypeKeys sTestText
-    
-    Kontext "Active"
-    if Active.Exists then
-        Active.Ok
-    else
-        Warnlog "The contents should not be inserted into frame!"
-    end if
-    
-    Call hCloseDocument
-
-endcase
-
-'---------------------------------------------------
-
-testcase tTextframes_18
-
-    Dim sTestText as String
-    
-    sTestText = "T"
-    
-    printlog "- Test protect position - moving frame with mouse/keyboard suppressed"
-    
-    Call hNewDocument
-    
-    '/// insert a frame
-    Call fInsertFrame(30,30 , 70,70)
-    
-    '/// Format / Frame / Options , check contents
-    Call fFormatFrame("TabZusaetze")
-    InhaltSchuetzen.Check
-    PositionSchuetzen.Check
-    TabZusaetze.OK
-    
-    '/// Move the frame to right (Right key 4 times)
-    Call wTypeKeys "<Right>" , 4
-    Wait 500
-    Call wTypeKeys "<ESCAPE>"
-    Wait 500
-    
-    Call gMouseClick(40,40)
-    Sleep 2
-    
-    '/// check if the frame is moved
-    Call wTypeKeys sTestText
-    
-    Kontext "Active"
-    if Active.Exists then
-        Active.Ok
-    else
-        Warnlog "The contents should NOT be inserted into the frame!"
-    end if
-    
-    Call wTypeKeys "<Shift Left>"
-    try
-        EditCopy
-        Wait 500
-        if GetClipboardText = sTestText then Warnlog "Something wrong in the test !"
-    catch
-    endcatch
-    
-    Call hCloseDocument
-    
-endcase
-
-'---------------------------------------------------
-
-testcase tTextframes_19
-
-    Dim sTestText
-    
-    sTestText = "T"
-    
-    printlog "- Test if frame can move when protect content is checked"
-    
-    Call hNewDocument
-    
-    '/// insert a frame
-    Call fInsertFrame(30,30 , 70,70)
-    
-    '/// Format / Frame / Options , check contents
-    Call fFormatFrame("TabZusaetze")
-    InhaltSchuetzen.Check
-    TabZusaetze.OK
-    
-    '/// Move the frame to right (Right key 4 times)
-    Call wTypeKeys "<Right>" , 4
-    Wait 500
-    Call wTypeKeys "<ESCAPE>"
-    Wait 500
-    
-    Call gMouseClick(15,15)
-    Wait 500
-    
-    '/// check if the frame is moved
-    Call wTypeKeys sTestText
-    
-    Kontext "Active"
-    if Active.Exists then
-        Warnlog "The frame should move by keyboard!"
-        Active.Ok
-    end if
-    
-    Call wTypeKeys "<Shift Left>"
-    try
-        EditCopy
-        Wait 500
-        if GetClipboardText <> sTestText then Warnlog "Something wrong in the test . Clipboard:" +GetClipboardText
-    catch
-        Warnlog "The frame should move by keyboard!"
-    endcatch
-    
-    Call hCloseDocument
-
-endcase
-
-'---------------------------------------------------
-
-testcase tTextframes_20
-
-    Dim sTestFile as String
-    Dim sTestText as String
-    
-    sTestFile = Convertpath (gTesttoolpath + "writer\optional\input\textframe\wrap.sxw")
-    sTestText = "Test"
-    
-    printlog "- Test frame without wrap"
-    
-    '/// Open a test file
-    '/// + This test file is designed for without wrap test
-    '/// + There are 1 page in the file.
-    '/// + The frame is ocupied in the whole 1st page and wraped as Through
-    '/// + Some text are behind the frame
-    hFileOpenLocally( sTestFile )
-    
-    
-    '/// Set focus to frame
-    Call wTypeKeys ( "<Shift F4>" )
-    Sleep 1
-    
-    '/// Format / Frame / Wrap , check None in setting area
-    Call fFormatFrame("TabUmlauf")
-    Kein.Check
-    wait 500
-    TabUmlauf.OK
-    
-    '/// Check if frame is in 1st page
-    Kontext
-    ViewNavigator
-    Kontext "NavigatorWriter"
-    Sleep 1
-    if Seitennummer.GetText <> "1" then
-        Warnlog "The test frame isn't in the first page!"
-    end if
-    Call fCloseNavigator
-    
-    '/// Check if test text are in 2nd page
-    Call wTypeKeys "<ESCAPE>"
-    Call wTypeKeys "<Home><Shift End>"
-    
-    try
-        EditCopy
-        Wait 500
-        if GetClipboardText <> sTestText then Warnlog "Test text isn't right , GetClipboardText is " +GetClipboardText
-    catch
-        Warnlog "EditCopy can't be executed !"
-    endcatch
-    
-    Kontext
-    ViewNavigator
-    Kontext "NavigatorWriter"
-    Sleep 1
-    if Seitennummer.GetText <> "2" then
-        Warnlog "The test text isn't in the second page!"
-    end if
-    
-    Call fCloseNavigator
-    
-    printlog " Close active document "
-    Do Until GetDocumentCount = 0
-        Call hCloseDocument
-    Loop
-    
-endcase
-
-'-----------------------------------------------------------------
-
-testcase tTextframes_21
-
-    Dim sTestFile as String
-    Dim sTestText as String
-    
-    sTestFile = Convertpath (gTesttoolpath + "writer\optional\input\textframe\through.sxw")
-    sTestText = "Test"
-    
-    printlog "- Test frame with wrap "
-    
-    '/// Open a test file
-    '/// + This test file is designed for with through wrap test
-    '/// + There are 2 page in the file.
-    '/// + The frame is ocupied in the whole 1st page and wraped as None
-    '/// + Some text are in the 2nd page
-    
-    hFileOpenLocally( sTestFile )
-    
-    
-    '/// Set focus to frame
-    Call wTypeKeys ( "<Shift F4>" )
-    Sleep 1
-    
-    '/// Format / Frame / Wrap , check through in setting area
-    Call fFormatFrame("TabUmlauf")
-    Durchlauf.Check
-    wait 500
-    TabUmlauf.OK
-    
-    '/// Check if frame are in 1st page
-    Kontext
-    ViewNavigator
-    Kontext "NavigatorWriter"
-    Sleep 1
-    if Seitennummer.GetText <> "1" then
-        Warnlog "The test frame isn't in the first page!"
-    end if
-    Call fCloseNavigator
-    
-    '/// Check if test text are in 1st page
-    Call wTypeKeys "<ESCAPE>"
-    Call wTypeKeys "<Home><Shift End>"
-    
-    try
-        EditCopy
-        Wait 500
-        if GetClipboardText <> sTestText then Warnlog "Test text isn't right , GetClipboardText is " +GetClipboardText
-    catch
-        Warnlog "EditCopy can't be executed !"
-    endcatch
-    
-    Kontext
-    ViewNavigator
-    Kontext "NavigatorWriter"
-    Sleep 1
-    if Seitennummer.GetText <> "1" then
-        Warnlog "The test text isn't in the first page!"
-    end if
-    
-    Call fCloseNavigator
-    
-    printlog " Close active document "
-    Do Until GetDocumentCount = 0
-        Call hCloseDocument
-    Loop
-
-endcase
-
-'-----------------------------------------------------------------
-
-testcase tTextframes_22
-
-    Dim sTestFile as String
-    Dim sTestText as String
-    
-    sTestFile = Convertpath (gTesttoolpath + "writer\optional\input\textframe\before.sxw")
-    sTestText = "Test"
-    
-    printlog "- Test wrap - before/after - 1"
-    
-    '/// Open a test file
-    '/// + This test file is designed for with before/after wrap test
-    '/// + There are 2 page in the file.
-    '/// + The frame is ocupied in the whole 1st page and wraped as None
-    '/// + there are some space in the left of the frame.
-    '/// + Some text are in the 2nd page
-    
-    hFileOpenLocally( sTestFile )
-    
-    
-    printlog "- Test wrap - before"
-    
-    '/// Set focus to frame
-    Call wTypeKeys ( "<Shift F4>" )
-    Sleep 1
-    
-    '/// Format / Frame / Wrap , check before in setting area
-    Call fFormatFrame("TabUmlauf")
-    Links.Check
-    wait 500
-    TabUmlauf.OK
-    
-    '/// Check if frame are in 1st page
-    Kontext
-    ViewNavigator
-    Kontext "NavigatorWriter"
-    Sleep 1
-    if Seitennummer.GetText <> "1" then
-        Warnlog "The test frame isn't in the first page!"
-    end if
-    Call fCloseNavigator
-    
-    '/// Check if test text are in 1st page
-    Call wTypeKeys "<ESCAPE>"
-    Sleep 1
-    Call wTypeKeys "<Home><Shift End>"
-    
-    try
-        EditCopy
-        Wait 500
-        if GetClipboardText <> sTestText then Warnlog "Test text isn't right , GetClipboardText is " +GetClipboardText
-    catch
-        Warnlog "EditCopy can't be executed !"
-    endcatch
-    
-    Kontext
-    ViewNavigator
-    Kontext "NavigatorWriter"
-    Sleep 1
-    if Seitennummer.GetText <> "1" then
-        Warnlog "The test text isn't in the first page!"
-    end if
-    
-    Call fCloseNavigator
-    
-    printlog "- Test wrap - after"
-    
-    'Set focus to frame
-    Call wTypeKeys ( "<Shift F4>" )
-    Sleep 1
-    
-    '/// Format / Frame / Wrap , check after in setting area
-    Call fFormatFrame("TabUmlauf")
-    Rechts.Check
-    wait 500
-    TabUmlauf.OK
-    
-    '/// Check if frame are in 1st page
-    Kontext
-    ViewNavigator
-    Kontext "NavigatorWriter"
-    Sleep 1
-    if Seitennummer.GetText <> "1" then
-        Warnlog "The test frame isn't in the first page!"
-    end if
-    Call fCloseNavigator
-    
-    '/// Check if test text are in 2nd page
-    Call wTypeKeys "<ESCAPE>"
-    Sleep 1
-    Call wTypeKeys "<Home><Shift End>"
-    
-    try
-        EditCopy
-        Wait 500
-        if GetClipboardText <> sTestText then Warnlog "Test text isn't right , GetClipboardText is " +GetClipboardText
-    catch
-        Warnlog "EditCopy can't be executed !"
-    endcatch
-    
-    Kontext
-    ViewNavigator
-    Kontext "NavigatorWriter"
-    Sleep 1
-    if Seitennummer.GetText <> "2" then
-        Warnlog "The test text isn't in the first page!"
-    end if
-    
-    Call fCloseNavigator
-    
-    printlog " Close active document "
-    Do Until GetDocumentCount = 0
-        Call hCloseDocument
-    Loop
-
-endcase
-
-'-----------------------------------------------------------------
-
-testcase tTextframes_23
-
-    Dim sTestFile as String
-    Dim sTestText as String
-    
-    sTestFile = Convertpath (gTesttoolpath + "writer\optional\input\textframe\after.sxw")
-    sTestText = "Test"
-    
-    printlog "- Test wrap - before/after - 2"
-    
-    '/// Open a test file
-    '/// + This test file is designed for with before/after wrap test
-    '/// + There are 2 page in the file.
-    '/// + The frame is ocupied in the whole 1st page and wraped as None
-    '/// + there are some space in the right of the frame.
-    '/// + Some text are in the 2nd page
-    
-    hFileOpenLocally( sTestFile )
-    
-    
-    printlog "- Test wrap - before"
-    
-    '/// Set focus to frame
-    Call wTypeKeys ( "<Shift F4>" )
-    Sleep 1
-    
-    '/// Format / Frame / Wrap , check before in setting area
-    Call fFormatFrame("TabUmlauf")
-    Links.Check
-    wait 500
-    TabUmlauf.OK
-    
-    '/// Check if frame are in 1st page
-    Kontext
-    ViewNavigator
-    Kontext "NavigatorWriter"
-    Sleep 1
-    if Seitennummer.GetText <> "1" then
-        Warnlog "The test frame isn't in the first page!"
-    end if
-    Call fCloseNavigator
-    
-    '/// Check if test text are in 1st page
-    Call wTypeKeys "<ESCAPE>"
-    Sleep 1
-    Call wTypeKeys "<Home><Shift End>"
-    
-    try
-        EditCopy
-        Wait 500
-        if GetClipboardText <> sTestText then Warnlog "Test text isn't right , GetClipboardText is " +GetClipboardText
-    catch
-        Warnlog "EditCopy can't be executed !"
-    endcatch
-    
-    Kontext
-    ViewNavigator
-    Kontext "NavigatorWriter"
-    Sleep 1
-    if Seitennummer.GetText <> "2" then
-        Warnlog "The test text isn't in the first page!"
-    end if
-    
-    Call fCloseNavigator
-    
-    printlog "- Test wrap - after"
-    
-    '/// Set focus to frame
-    Call wTypeKeys ( "<Shift F4>" )
-    Sleep 1
-    
-    '/// Format / Frame / Wrap , check after in setting area
-    Call fFormatFrame("TabUmlauf")
-    Rechts.Check
-    wait 500
-    TabUmlauf.OK
-    
-    '/// Check if frame are in 1st page
-    Kontext
-    ViewNavigator
-    Kontext "NavigatorWriter"
-    Sleep 1
-    if Seitennummer.GetText <> "1" then
-        Warnlog "The test frame isn't in the first page!"
-    end if
-    Call fCloseNavigator
-    
-    '/// Check if test text are in 2nd page
-    Call wTypeKeys "<ESCAPE>"
-    Sleep 1
-    Call wTypeKeys "<Home><Shift End>"
-    
-    try
-        EditCopy
-        Wait 500
-        if GetClipboardText <> sTestText then Warnlog "Test text isn't right , GetClipboardText is " +GetClipboardText
-    catch
-        Warnlog "EditCopy can't be executed !"
-    endcatch
-    
-    Kontext
-    ViewNavigator
-    Kontext "NavigatorWriter"
-    Sleep 1
-    if Seitennummer.GetText <> "1" then
-        Warnlog "The test text isn't in the first page!"
-    end if
-    
-    Call fCloseNavigator
-    
-    printlog " Close active document "
-    Do Until GetDocumentCount = 0
-        Call hCloseDocument
-    Loop
-
-endcase
-
-'-----------------------------------------------------------------
-
-testcase tTextframes_24
-
-    Dim sColumn as String
-    
-    sColumn = "3"
-    
-    printlog "- Set more than 1 columns for the frame"
-    
-    Call hNewDocument
-    
-    '/// Insert a frame
-    Call wInsertFrame
-    
-    '/// Format / Frame / columns , set columns to 3 , close the dialogue
-    Call fFormatFrame("TabSpalten")
-    Anzahl.SetText sColumn
-    wait 500
-    TabSpalten.OK
-    
-    '/// Check if the column is set correctly
-    Call fFormatFrame("TabSpalten")
-    if Anzahl.GetText <> sColumn then Warnlog "the column isn't set correctly ! The column you get is:Anzahl.GetText"
-    TabSpalten.Cancel
-    
-    Call hCloseDocument
-
-endcase
-
-'-----------------------------------------------------------------
-
-testcase tTextframes_25
-
-    Dim sWidth            as String
-    Dim sSpacingToContent as String
-    Dim sColumn           as String
-    Dim sWidthColumn1     as String
-    Dim sWidthColumn2     as String
-    Dim sWidthColumn3     as String
-    
-    sWidth            = "6"+ gSeperator + "00" + gMeasurementUnit
-    sSpacingToContent = "0"+ gSeperator + "00"
-    
-    sColumn = "3"
-    
-    sWidthColumn1 = "1"+ gSeperator + "00" + gMeasurementUnit
-    sWidthColumn2 = "2"+ gSeperator + "00" + gMeasurementUnit
-    sWidthColumn3 = "3"+ gSeperator + "00" + gMeasurementUnit
-    
-    printlog "- Test columns' width"
-    
-    Call hNewDocument
-    
-    '/// Insert a frame
-    Call wInsertFrame
-    
-    'Set frame's width
-    Call fFormatFrame("TabType")
-    Width.SetText sWidth
-    wait 500
-    TabType.OK
-    
-    'Set frame's Spacing to Content
-    Call fFormatFrame("TabUmrandung")
-    Synchronisieren.Check
-    wait 500
-    TabUmrandung.TypeKeys "<SHIFT TAB>"
-    Links.SetText sSpacingToContent
-    Rechts.SetText sSpacingToContent
-    Oben.SetText sSpacingToContent
-    Unten.SetText sSpacingToContent
-    wait 500
-    TabUmrandung.TypeKeys "<SHIFT TAB>"
-    TabUmrandung.OK
-    
-    '/// Format / Frame / columns , set columns to 3
-    Call fFormatFrame("TabSpalten")
-    Anzahl.SetText sColumn
-    wait 500
-    TabSpalten.OK
-    
-    '/// + Set 3 columns to different width
-    Call fFormatFrame("TabSpalten")
-    AutomBreite.Uncheck
-    Sleep 1
-    TabSpalten.TypeKeys "<SHIFT TAB>"
-    Spaltenbreite1.SetText sWidthColumn1
-    wait 500
-    TabSpalten.TypeKeys "<SHIFT TAB>"
-    Spaltenbreite2.SetText sWidthColumn2
-    wait 500
-    TabSpalten.TypeKeys "<SHIFT TAB>"
-    Spaltenbreite3.SetText sWidthColumn3
-    wait 500
-    TabSpalten.TypeKeys "<SHIFT TAB>"
-    TabSpalten.OK
-    
-    '/// Check if the columns' width is set correctly
-    Call fFormatFrame("TabSpalten")
-    if Spaltenbreite1.GetText <> sWidthColumn1 then Warnlog "the column1's width isn't set correctly !"
-    if Spaltenbreite2.GetText <> sWidthColumn2 then Warnlog "the column2's width isn't set correctly !"
-    if Spaltenbreite3.GetText <> sWidthColumn3 then Warnlog "the column3's width isn't set correctly !"
-    TabSpalten.Cancel
-    
-    Call hCloseDocument
-
-endcase
-
-'-----------------------------------------------------------------
-
-testcase tTextframes_26
-    
-    Dim sWidth            as String
-    Dim sSpacingToContent as String
-    Dim sColumn           as String
-    Dim sWidthColumn1     as String
-    Dim sWidthColumn2     as String
-    Dim sWidthColumn3     as String
-    Dim sSpacing1         as String
-    Dim sSpacing2         as String
-    Dim sNewWidthColumn1  as String
-    Dim sNewWidthColumn2  as String
-    Dim sNewWidthColumn3  as String
-    Dim sNewWidthColumn4  as String
-    
-    sWidth            = "6"+ gSeperator + "00" + gMeasurementUnit
-    sSpacingToContent = "0"+ gSeperator + "00"
-    
-    sColumn = "3"
-    
-    sWidthColumn1     = "1"+ gSeperator + "00" + gMeasurementUnit
-    sWidthColumn2     = "2"+ gSeperator + "00" + gMeasurementUnit
-    sWidthColumn3     = "3"+ gSeperator + "00" + gMeasurementUnit
-    
-    sSpacing1         = "0"+ gSeperator + "10" + gMeasurementUnit
-    sSpacing2         = "0"+ gSeperator + "20" + gMeasurementUnit
-    
-    sNewWidthColumn1  = "1"+ gSeperator + "00" + gMeasurementUnit
-    sNewWidthColumn2  = "1"+ gSeperator + "90" + gMeasurementUnit
-    sNewWidthColumn3  = "2"+ gSeperator + "80" + gMeasurementUnit
-    sNewWidthColumn4  = "2"+ gSeperator + "81" + gMeasurementUnit
-    
-    printlog "- Test columns' spacing"
-    
-    Call hNewDocument
-    
-    '/// Insert a frame
-    Call wInsertFrame
-    
-    'Set frame's width
-    Call fFormatFrame("TabType")
-    Width.SetText sWidth
-    wait 500
-    TabType.TypeKeys "<SHIFT TAB>"
-    TabType.OK
-    
-    'Set frame's Spacing to Content
-    Call fFormatFrame("TabUmrandung")
-    Synchronisieren.Check
-    wait 500
-    Links.SetText sSpacingToContent
-    Rechts.SetText sSpacingToContent
-    Oben.SetText sSpacingToContent
-    Unten.SetText sSpacingToContent
-    wait 500
-    TabUmrandung.TypeKeys "<SHIFT TAB>"
-    TabUmrandung.OK
-    
-    '/// Format / Frame / columns , set columns to 3
-    Call fFormatFrame("TabSpalten")
-    Anzahl.SetText sColumn
-    wait 500
-    TabSpalten.OK
-    
-    '/// + Set 3 columns to different width
-    Call fFormatFrame("TabSpalten")
-    AutomBreite.Uncheck
-    Sleep 1
-    TabSpalten.TypeKeys "<SHIFT TAB>"
-    Spaltenbreite1.SetText sWidthColumn1
-    wait 500
-    TabSpalten.TypeKeys "<SHIFT TAB>"
-    Spaltenbreite2.SetText sWidthColumn2
-    wait 500
-    TabSpalten.TypeKeys "<SHIFT TAB>"
-    Spaltenbreite3.SetText sWidthColumn3
-    wait 500
-    TabSpalten.TypeKeys "<SHIFT TAB>"
-    TabSpalten.OK
-    
-    '/// + Set Spacing1 and Spacing2
-    Call fFormatFrame("TabSpalten")
-    Abstand12.SetText sSpacing1
-    Sleep 2
-    Abstand23.SetText sSpacing2
-    Sleep 3
-    Art.Select 1
-    Sleep 1
-    TabSpalten.OK
-    Sleep 2
-    
-    '/// Check if the columns' width is set correctly
-    Call fFormatFrame("TabSpalten")
-    if Spaltenbreite1.GetText <> sNewWidthColumn1 then Warnlog "the column1's width isn't set correctly !"
-    if Spaltenbreite2.GetText <> sNewWidthColumn2 then Warnlog "the column2's width isn't set correctly !"
-    if (Spaltenbreite3.GetText <> sNewWidthColumn3) then
-        if (Spaltenbreite3.GetText <> sNewWidthColumn4) then
-            Warnlog "the column3's width isn't set correctly ! (not" & Spaltenbreite3.GetText & " but " & sNewWidthColumn3 & ")"
-        end if
-    end if
-    if Abstand12.GetText <> sSpacing1 then Warnlog "the 1st spacing isn't set correctly !"
-    if Abstand23.GetText <> sSpacing2 then Warnlog "the 2nd spacing isn't set correctly !"
-    TabSpalten.Cancel
-    
-    Call hCloseDocument
-
-endcase
-
-'-----------------------------------------------------------------
-
-testcase tTextframes_27
-    
-    Dim iLine     as Integer
-    Dim iPosition as Integer
-    Dim sHeight   as String
-    
-    iLine     = 3
-    iPosition = 2
-    sHeight   = "50%"
-    
-    printlog "- Test columns' seperator line"
-    
-    Call hNewDocument
-    
-    '/// Insert a frame
-    Call wInsertFrame
-    
-    '/// Format / Frame / columns , set columns to 4
-    '/// + default : column is 1 , Line and Height and Position isn't enabled
-    Call fFormatFrame("TabSpalten")
-    if Anzahl.GetText <> "1" then  Warnlog "the default column number is 1 , but get " +Anzahl.GetText
-    
-    try
-        Art.Select      iLine
-        Warnlog "Line : should be inactived !"
-        Hoehe.SetText   sHeight
-        Warnlog "Height : should be inactived !"
-        Position.Select iPosition
-        Warnlog "Position : should be inactived !"
-    catch
-    endcatch
-    
-    Anzahl.SetText "2"
-    Wait 500
-    TabSpalten.OK
-    
-    '/// Check if the columns' width is set correctly
-    Call fFormatFrame("TabSpalten")
-    Art.Select      iLine
-    Sleep 2
-    Hoehe.SetText   sHeight
-    Sleep 2
-    Position.Select iPosition
-    Sleep 2
-    TabSpalten.OK
-    
-    Call fFormatFrame("TabSpalten")
-    if Art.GetSelIndex      <> iLine      then Warnlog "Line isn't correct!"
-    Sleep 1
-    if Hoehe.GetText        <> sHeight    then Warnlog "Height isn't correct!"
-    Sleep 1
-    if Position.GetSelIndex <> iPosition  then Warnlog "Position isn't correct!"
-    Sleep 1
-    TabSpalten.Cancel
-    
-    Call hCloseDocument
-    
-endcase
-
-'-----------------------------------------------------------------
-
-testcase tTextframes_28
-
-    Dim sFrameName1 as String
-    Dim sFrameName2 as String
-    
-    sFrameName1 = "Test1"
-    sFrameName2 = "Test2"
-    
-    printlog "- Test overlap with different wrapping types"
-    
-    Call hNewDocument
-    
-    printlog "Insert a frame"
-    Call fInsertFrame(30, 30, 60, 60)
-    Sleep 2
-    printlog "Naming the frame"
-    Call fFormatFrame("TabZusaetze")
-    ObjektName.SetText sFrameName1
-    TabZusaetze.OK
-    
-    printlog "Set the frame's wrap"
-    Call fFormatFrame("TabUmlauf")
-    Kein.Check
-    Sleep 1
-    TabUmlauf.OK
-    Sleep 2
-    Call wTypeKeys "<ESCAPE>"
-    Sleep 2
-    
-    printlog "Insert another frame"
-    Call fInsertFrame(50, 50, 80, 80)
-    Sleep 2
-    printlog "Naming the frame"
-    Call fFormatFrame("TabZusaetze")
-    ObjektName.SetText sFrameName2
-    TabZusaetze.OK
-    
-    printlog "Set the frame's wrap"
-    Call fFormatFrame("TabUmlauf")
-    Sleep 1
-    Durchlauf.Check
-    Sleep 1
-    TabUmlauf.OK
-    
-    Call wTypeKeys "<ESCAPE>"
-    Sleep 2
-    
-    printlog "Set focus to second frame"
-    Call gMouseClick(60,60) ' Click into frame
-    wait 500
-    Call wTypeKeys "<ESCAPE>" ' Selects frame holding the cursor
-    wait 500
-    
-    printlog "Check second frame's name"
-    Call fFormatFrame("TabZusaetze")
-    if ObjektName.GetText <> sFrameName2 then Warnlog "The 2nd frame's name is wrong ! Get " +ObjektName.GetText
-    TabZusaetze.Cancel
-    
-    printlog "Check second frame's wrap status"
-    Call fFormatFrame("TabUmlauf")
-    if Durchlauf.IsChecked <> TRUE then Warnlog "The 2nd frame's wrap status is wrong ! "
-    TabUmlauf.Cancel
-    
-    printlog "Set focus to first frame"
-    Call wTypeKeys "<TAB>"
-    Sleep 2
-    
-    printlog "Check first frame's name"
-    Call fFormatFrame("TabZusaetze")
-    if ObjektName.GetText <> sFrameName1 then Warnlog "The 1st frame's name is wrong ! Get " +ObjektName.GetText
-    TabZusaetze.Cancel
-    
-    printlog "Check first frame's wrap status"
-    Call fFormatFrame("TabUmlauf")
-    if Kein.IsChecked <> TRUE then Warnlog "The 1st frame's wrap status is wrong ! "
-    TabUmlauf.Cancel
-    
-    Call hCloseDocument
-
-endcase
-
-'-----------------------------------------------------------------
-
-testcase tTextframes_29
-
-    Dim sLeft1   as String
-    Dim sRight1  as String
-    Dim sTop1    as String
-    Dim sBottom1 as String
-    
-    sLeft1   =  "0"+ gSeperator + "1"
-    sRight1  =  "0"+ gSeperator + "2"
-    sTop1    =  "0"+ gSeperator + "3"
-    sBottom1 =  "0"+ gSeperator + "4"
-    
-    printlog "- Test 'synchronize' distances for border (Check Synchronize)"
-    
-    Call hNewDocument
-    
-    '/// insert a frame
-    Call wInsertFrame
-    
-    '/// Format / Frame / Borders , check Synchronize ,
-    '/// + then set spacing to contents
-    '/// + to differect number (left, right, top, bottom)
-    Call fFormatFrame("TabUmrandung")
-    Synchronisieren.Check
-    wait 500
-    Links.SetText    sLeft1
-    wait 500
-    TabUmrandung.TypeKeys "<SHIFT TAB>"
-    Rechts.SetText   sRight1
-    wait 500
-    TabUmrandung.TypeKeys "<SHIFT TAB>"
-    Oben.SetText     sTop1
-    wait 500
-    TabUmrandung.TypeKeys "<SHIFT TAB>"
-    Unten.SetText    sBottom1
-    wait 500
-    TabUmrandung.TypeKeys "<SHIFT TAB>"
-    TabUmrandung.OK
-    
-    '/// Check if the spacing to contents is right
-    Call fFormatFrame("TabUmrandung")
-    if Synchronisieren.IsChecked <> TRUE     then Warnlog "checkbox synchronize should be checked!"
-    if Instr(Links.Gettext, sBottom1) = false then Warnlog "spacing to contents (left) isn't right!"
-    if Instr(Rechts.GetText, sBottom1) = false then Warnlog "spacing to contents (right) isn't right!"
-    if Instr(Oben.GetText, sBottom1) = false then Warnlog "spacing to contents (top) isn't right!"
-    if Instr(Unten.GetText, sBottom1) = false then Warnlog "spacing to contents (bottom) isn't right!"
-    TabUmrandung.Cancel
-    
-    Call hCloseDocument
-
-endcase
-
-'-----------------------------------------------------------------
-
-testcase tTextframes_30
-
-    Dim sLeft1   as String
-    Dim sRight1  as String
-    Dim sTop1    as String
-    Dim sBottom1 as String
-    
-    sLeft1   =  "0"+ gSeperator + "1"
-    sRight1  =  "0"+ gSeperator + "2"
-    sTop1    =  "0"+ gSeperator + "3"
-    sBottom1 =  "0"+ gSeperator + "4"
-    
-    printlog "- Test 'synchronize' distances for border (UnCheck Synchronize)"
-    
-    Call hNewDocument
-    
-    '/// insert a frame
-    Call wInsertFrame
-    
-    '/// Format / Frame / Borders , Uncheck Synchronize ,
-    '/// + then set spacing to contents
-    '/// + to differect number (left, right, top, bottom)
-    Call fFormatFrame("TabUmrandung")
-    Synchronisieren.UnCheck
-    wait 500
-    Links.SetText    sLeft1
-    wait 500
-    TabUmrandung.TypeKeys "<SHIFT TAB>"
-    TabUmrandung.TypeKeys "<SHIFT TAB>"
-    Rechts.SetText   sRight1
-    wait 500
-    TabUmrandung.TypeKeys "<SHIFT TAB>"
-    Oben.SetText     sTop1
-    wait 500
-    TabUmrandung.TypeKeys "<SHIFT TAB>"
-    Unten.SetText    sBottom1
-    wait 500
-    TabUmrandung.TypeKeys "<SHIFT TAB>"
-    TabUmrandung.OK
-    
-    '/// Check if the spacing to contents is right
-    Call fFormatFrame("TabUmrandung")
-    if Synchronisieren.IsChecked = TRUE then Warnlog "checkbox synchronize should be checked!"
-    if Instr(Links.Gettext, sLeft1) = false  then Warnlog "spacing to contents (left) isn't right!"  '<> sLeft1
-    if Instr(Rechts.GetText, sRight1) = false then Warnlog "spacing to contents (right) isn't right!"
-    if Instr(Oben.GetText, sTop1) = false then Warnlog "spacing to contents (top) isn't right!"
-    if Instr(Unten.GetText, sBottom1) = false then Warnlog "spacing to contents (bottom) isn't right!"
-    TabUmrandung.Cancel
-    
-    Call hCloseDocument
-    
-endcase
-
-'-----------------------------------------------------------------
-
-testcase tTextframes_31
-
-    Dim sTestFile as String
-    
-    sTestFile = ConvertPath (gOfficePath + "user\work\testFileReadOnly.odt" )
-    
-    if Dir(sTestFile) <> "" then
-        setattr sTestFile , 0
-        Sleep 2
-        kill sTestFile
-    end if
-    
-    printlog "- Frame should be non-editable in read-only documents"
-    
-    Call hNewDocument
-    
-    '/// insert a frame
-    Call wInsertFrame
-    
-    '/// Save the file and set the file's property to Read-only
-    Call hFileSaveAs (sTestFile ,true)
-    
-    Call hCloseDocument
-    Sleep 1
-    
-    setattr sTestFile , 1
-    Sleep 2
-    
-    '/// Check if the frame is non-editable
-    hFileOpen( sTestFile )
-    
-    Call wTypeKeys ( "<Shift F4>" )
-    
-    try
-        FormatFrame
-        Kontext
-        Active.SetPage TabType
-        Kontext "TabType"
-        TabType.Cancel
-        Warnlog "The frame should be non-editable!"
-    catch
-    endcatch
-    
-    Call hCloseDocument
-    
-endcase
-
-'-----------------------------------------------------------------
-
-testcase tTextframes_32
-
-    Dim sTestFile as String
-    Dim sText     as String
-    
-    sText     = "Test"
-    sTestFile = ConvertPath (gOfficePath + "user\work\testFileReadOnly.odt" )
-    
-    if Dir(sTestFile) <> "" then
-        setattr sTestFile , 0
-        Sleep 2
-        kill sTestFile
-    end if
-    
-    printlog "- Test input text into frame in read-only document when checking 'Editable in read-only document'"
-    
-    Call hNewDocument
-    
-    '/// insert a frame
-    Call fInsertFrame(30,30 , 70,70)
-    
-    '/// Format / Frame / Options , check "Editable in read-only document"
-    Call fFormatFrame("TabZusaetze")
-    Editierbar.Check
-    wait 500
-    TabZusaetze.OK
-    Call wTypeKeys "<ESCAPE>"
-    
-    '/// Save the file and set the file's property to Read-only
-    Call hFileSaveAs (sTestFile ,true)
-    
-    Call hCloseDocument
-    
-    setattr sTestFile , 1
-    Sleep 2
-    
-    '/// Check if the text can be inputed into frame
-    hFileOpen( sTestFile )
-    
-    Call wTypeKeys "<SHIFT F4><RETURN>"
-    Wait 500
-    
-    try
-        Call wTypeKeys sText
-        Sleep 1
-    catch
-        Warnlog "Can't input text into frame !"
-    endcatch
-    
-    Call wTypeKeys "<Shift Home>"
-    Sleep 1
-    
-    EditCopy
-    Sleep 1
-    
-    if GetClipboardText <> sText then Warnlog "The inputed text isn't right!"
-    
-    Call hCloseDocument
-    
-endcase
-
-' ------------------------------------------------------------------------------
diff --git a/testautomation/writer/optional/includes/textframes/w_textframes3.inc b/testautomation/writer/optional/includes/textframes/w_textframes3.inc
deleted file mode 100644
index d9db6fa32253..000000000000
--- a/testautomation/writer/optional/includes/textframes/w_textframes3.inc
+++ /dev/null
@@ -1,1070 +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 : helge.delfs@oracle.com
-'*
-'* short description : Test of textframe - 3
-'*
-'\***********************************************************************
-
-sub w_textframes3
-
-    Call tTextframes_33         'Test attribute 'AutoSize' in linked frames
-    Call tTextframes_34         'Insert text into original frame must flow into target frame, when first one is full
-    Call tTextframes_35         'Show link - under Format.Frame.Options (previous link, next link)
-    Call tTextframes_36         'Test link frames which are placed on different pages
-    Call tTextframes_37         'Test link frames which are placed on header
-    Call tTextframes_38         'Test link frames which are placed on footer
-    Call tTextframes_39         'Test drag&drop with a linked frame - keyboard
-    Call tTextframes_40         'Test Undo on drag&drop of frames (keyboard)
-    Call tTextframes_41         'Test Undo on removing the link
-    Call tTextframes_42         'Link frame in header with frame in bodytext should be forbidden
-    Call tTextframes_43         'Link frame in footer with frame in bodytext should be forbidden
-    Call tTextframes_44         'Link frame when target frame is not empty  should be forbidden
-    Call tTextframes_45         'Recursed links should be forbidden
-    Call tTextframes_46         'Frames which couldn't be linked with the current one is part of another 'chain'
-    Call tTextframes_47         'Frames couldn't be linked with the current one is in protected section
-    Call tTextframes_48         'Frames could be linked with the current one is set to "editable in protected documents" even it is in protected section
-
-end sub
-
-'---------------------------------------------------
-
-testcase tTextframes_33
-
-    printlog "- Test attribute 'AutoSize' in linked frames"
-    '/// Test attribute 'AutoSize' in linked frames
-    
-    Call hNewDocument
-    
-    '/// insert a frame
-    Call fInsertFrame(30,30 , 50,50)
-    
-    Call wTypeKeys "<ESCAPE>"
-    WaitSlot (5)
-    
-    '/// insert another frame
-    Call fInsertFrame(50,50 , 80,80)
-    
-    printlog "Move the second frame away from the first one."
-    Call wTypeKeys "<RIGHT>",10
-    
-    '/// Set focus to first frame
-    Call wTypeKeys "<TAB>"
-    Wait 500
-    
-    '/// Active frame bar
-    Call hToolbarSelect("FRAME", true )
-    Wait 500
-    
-    '/// Click link frame button
-    Verketten.Click
-    Wait 500
-    
-    '/// Target the second frame
-    Call gMouseClick(60,70)
-    Wait 500
-    
-    '/// Format/Frame / Type ,
-    '/// + 'AutoSize' should be turned off in 1st frame (origination)
-    Call fFormatFrame("TabType")
-    try
-        AutoHoehe.Check
-        Warnlog "'AutoSize' should be turned off!"
-    catch
-    endcatch
-    TabType.Cancel
-    
-    '/// Set focus to second frame
-    Call wTypeKeys "<TAB>"
-    Wait 500
-    
-    '/// + 'AutoSize' should be actived in 2nd frame (target)
-    Call fFormatFrame("TabType")
-    try
-        AutoHoehe.Check
-    catch
-        Warnlog "'AutoSize' should be actived!"
-    endcatch
-    TabType.Cancel
-    
-    Call hCloseDocument
-
-endcase
-
-'-----------------------------------------------------------------
-
-testcase tTextframes_34
-
-    Dim sText         as String
-    Dim sOriginalName as String
-    Dim sTargetName   as String
-    
-    sOriginalName = "TEST1"
-    sTargetName   = "TEST2"
-    
-    printlog "- Test attribute 'AutoSize' in linked frames"
-    '/// Test attribute 'AutoSize' in linked frames
-    
-    Call hNewDocument
-    
-    '/// insert a frame , set frame name
-    Call fInsertFrame(30,30 , 50,50)
-    
-    Call fFormatFrame("TabZusaetze")
-    ObjektName.SetText sOriginalName
-    TabZusaetze.OK
-    
-    Call wTypeKeys "<ESCAPE>"
-    Wait 500
-    
-    '/// insert another frame , set frame name
-    Call fInsertFrame(50,50 , 80,80)
-    
-    printlog "Move second frame away from the first frame."
-    Call wTypeKeys "<RIGHT>", 12
-    
-    printlog "Name second object."
-    Call fFormatFrame("TabZusaetze")
-    ObjektName.SetText sTargetName
-    TabZusaetze.OK
-    
-    '/// Set focus to first frame
-    Call wTypeKeys "<TAB>"
-    Wait 500
-    
-    '/// Active frame bar
-    Call hToolbarSelect("FRAME", true )
-    Wait 500
-    
-    '/// Click link frame button
-    Verketten.Click
-    Wait 500
-    
-    '/// Target the second frame
-    Call gMouseClick(60,70)
-    Wait 500
-    
-    Call wTypeKeys "<RETURN>"
-    Wait 500
-    
-    Call wBlindtextEinfuegen
-    Wait 500
-    
-    '/// set focus to the frame which the focus is in
-    Call wTypeKeys "<ESCAPE>"
-    Sleep 1
-    
-    '/// Check if the link is showed correctly (Format.Frame.Options)
-    Call fFormatFrame("TabZusaetze")
-    if ObjektName.GetText <> sTargetName then Warnlog "The focus should be in 2nd frame!"
-    TabZusaetze.Cancel
-    
-    Call hCloseDocument
-
-endcase
-
-'-----------------------------------------------------------------
-
-testcase tTextframes_35
-
-    Dim iNoLink as Integer
-    Dim iLink   as Integer
-    
-    iNoLink = 1
-    iLink   = 2
-    
-    printlog "- Show link - under Format.Frame.Options (previous link, next link)"
-    '/// Show link - under Format.Frame.Options (previous link, next link)
-    
-    Call hNewDocument
-    
-    '/// insert a frame
-    Call fInsertFrame(30,30 , 50,50)
-    
-    Call wTypeKeys "<ESCAPE>"
-    Wait 500
-    
-    '/// insert another frame
-    Call fInsertFrame(50,50 , 80,80)
-    
-    printlog "Move the second frame away from the first one."
-    Call wTypeKeys "<RIGHT>",10
-    
-    '/// Set focus to first frame
-    Call wTypeKeys "<TAB>"
-    Wait 500
-    
-    '/// Active frame bar
-    Call hToolbarSelect("FRAME", true )
-    Wait 500
-    
-    '/// Click link frame button
-    Verketten.Click
-    Wait 500
-    
-    '/// Target the second frame
-    Call gMouseClick(60,70)
-    Wait 500
-    
-    '/// Check if the link is showed correctly (Format.Frame.Options)
-    Call fFormatFrame("TabZusaetze")
-    if PreviousLink.GetSelIndex <> iNoLink then Warnlog "1st frame: privious link should be none"
-    if NextLink.GetSelIndex     <> iLink   then Warnlog "1st frame: next link isn't right!"
-    TabZusaetze.Cancel
-    
-    '/// Set focus to second frame
-    Call wTypeKeys "<TAB>"
-    Wait 500
-    
-    '/// Check if the link is showed correctly (Format.Frame.Options)
-    Call fFormatFrame("TabZusaetze")
-    if PreviousLink.GetSelIndex <> iLink   then Warnlog "2nd frame: privious link isn't right!"
-    if NextLink.GetSelIndex     <> iNoLink then Warnlog "2nd frame: next link should be none"
-    TabZusaetze.Cancel
-    
-    Call hCloseDocument
-
-endcase
-
-'-----------------------------------------------------------------
-
-testcase tTextframes_36
-
-    Dim sTestFile as String
-    Dim sTestText as String
-    Dim iNoLink   as Integer
-    Dim iLink     as Integer
-    
-    sTestFile = Convertpath (gTesttoolpath + "writer\optional\input\textframe\twopages.sxw")
-    iNoLink   = 1
-    iLink     = 2
-    
-    printlog "- Test link frames which are placed on different pages"
-    '/// Test link frames which are placed on different pages
-    
-    Call hNewDocument
-    
-    '/// Open a test file
-    '/// + This test file is designed for testing link
-    '/// + frames which are placed on different pages
-    '/// + There are 2 pages in the file and 1 frame/page
-    hFileOpenLocally( sTestFile )
-    
-    
-    'Set focus to first frame
-    Call wTypeKeys ( "<Shift F4>" )
-    Wait 500
-    
-    'Check if frame is in 1st page
-    Kontext
-    ViewNavigator
-    Kontext "NavigatorWriter"
-    Sleep 1
-    if Seitennummer.GetText <> "1" then
-        Warnlog "The test frame isn't in the first page!"
-    end if
-    Call fCloseNavigator
-    
-    'Set focus to second frame
-    Call wTypeKeys "<TAB>"
-    Wait 500
-    
-    'Check if frame is in 2nd page
-    Kontext
-    ViewNavigator
-    Kontext "NavigatorWriter"
-    Sleep 1
-    if Seitennummer.GetText <> "2" then
-        Warnlog "The test frame isn't in the second page!"
-    end if
-    Call fCloseNavigator
-    
-    '/// Set focus to first frame
-    Call wTypeKeys "<TAB>"
-    Wait 500
-    
-    '/// Set link in Format/Frame/Options
-    Call fFormatFrame("TabZusaetze")
-    try
-        NextLink.Select iLink
-        Sleep 1
-    catch
-        Warnlog "Can't link 2 frames which are placed on different pages!"
-    endcatch
-    TabZusaetze.OK
-    
-    '/// Check if the link is correctly
-    Call fFormatFrame("TabZusaetze")
-    if PreviousLink.GetSelIndex <> iNoLink then Warnlog "1st frame: privious link should be none"
-    if NextLink.GetSelIndex     <> iLink   then Warnlog "1st frame: next link isn't right!"
-    TabZusaetze.Cancel
-    
-    '/// Set focus to second frame
-    Call wTypeKeys "<TAB>"
-    Wait 500
-    
-    '/// Check if the link is correctly
-    Call fFormatFrame("TabZusaetze")
-    if PreviousLink.GetSelIndex <> iLink   then Warnlog "2nd frame: privious link isn't right!"
-    if NextLink.GetSelIndex     <> iNoLink then Warnlog "2nd frame: next link should be none"
-    TabZusaetze.Cancel
-    
-    printlog " Close active document "
-    Do Until GetDocumentCount = 0
-        Call hCloseDocument
-    Loop
-
-endcase
-
-'-----------------------------------------------------------------
-
-testcase tTextframes_37
-
-    Dim sTestFile as String
-    Dim sTestText as String
-    Dim iNoLink   as String
-    Dim iLink     as  Integer
-    
-    sTestFile = Convertpath (gTesttoolpath + "writer\optional\input\textframe\Header.sxw")
-    iNoLink   = 1
-    iLink     = 2
-    
-    printlog "- Test link frames which are placed on header"
-    '/// Test link frames which are placed on header
-    
-    Call hNewDocument
-    
-    '/// Open a test file
-    '/// + This test file is designed for testing link
-    '/// + frames which are placed on header
-    '/// + There are 2 frames in the header
-    
-    hFileOpenLocally( sTestFile )
-    
-    
-    '/// Set focus to first frame
-    Call wTypeKeys ( "<Shift F4>" )
-    
-    Wait 500
-    
-    '/// Set link in Format.Frame.Options
-    Call fFormatFrame("TabZusaetze")
-    try
-        NextLink.Select iLink
-        Sleep 1
-    catch
-        Warnlog "Can't link 2 frames which are in the header"
-    endcatch
-    TabZusaetze.OK
-    
-    '/// Check if the link is correctly
-    Call fFormatFrame("TabZusaetze")
-    if PreviousLink.GetSelIndex <> iNoLink then Warnlog "1st frame: privious link should be none"
-    if NextLink.GetSelIndex     <> iLink   then Warnlog "1st frame: next link isn't right!"
-    TabZusaetze.Cancel
-    
-    '/// Set focus to second frame
-    Call wTypeKeys "<TAB>"
-    Wait 500
-    
-    '/// Check if the link is correctly
-    Call fFormatFrame("TabZusaetze")
-    if PreviousLink.GetSelIndex <> iLink   then Warnlog "2nd frame: privious link isn't right!"
-    if NextLink.GetSelIndex     <> iNoLink then Warnlog "2nd frame: next link should be none"
-    TabZusaetze.Cancel
-    
-    printlog " Close active document "
-    Do Until GetDocumentCount = 0
-        Call hCloseDocument
-    Loop
-
-endcase
-
-'-----------------------------------------------------------------
-
-testcase tTextframes_38
-
-    Dim sTestFile as String
-    Dim sTestText as  String
-    Dim iNoLink   as String
-    Dim iLink     as  Integer
-    
-    sTestFile = Convertpath (gTesttoolpath + "writer\optional\input\textframe\Footer.sxw")
-    iNoLink   = 1
-    iLink     = 2
-    
-    printlog "- Test link frames which are placed on footer"
-    '/// Test link frames which are placed on footer
-    
-    Call hNewDocument
-    
-    '/// Open a test file
-    '/// + This test file is designed for testing link
-    '/// + frames which are placed on header
-    '/// + There are 2 frames in the header
-    hFileOpenLocally( sTestFile )
-    
-    
-    '/// Set focus to first frame
-    Call wTypeKeys ( "<Shift F4>" )
-    Wait 500
-    
-    '/// Set link in Format.Frame.Options
-    Call fFormatFrame("TabZusaetze")
-    try
-        NextLink.Select iLink
-        Sleep 1
-    catch
-        Warnlog "Can't link 2 frames which are in the header"
-    endcatch
-    TabZusaetze.OK
-    
-    '/// Check if the link is correctly
-    Call fFormatFrame("TabZusaetze")
-    if PreviousLink.GetSelIndex <> iNoLink then Warnlog "1st frame: privious link should be none"
-    if NextLink.GetSelIndex     <> iLink   then Warnlog "1st frame: next link isn't right!"
-    TabZusaetze.Cancel
-    
-    '/// Set focus to second frame
-    Call wTypeKeys "<TAB>"
-    Wait 500
-    
-    '/// Check if the link is correctly
-    Call fFormatFrame("TabZusaetze")
-    if PreviousLink.GetSelIndex <> iLink   then Warnlog "2nd frame: privious link isn't right!"
-    if NextLink.GetSelIndex     <> iNoLink then Warnlog "2nd frame: next link should be none"
-    TabZusaetze.Cancel
-    
-    printlog " Close active document "
-    Do Until GetDocumentCount = 0
-        Call hCloseDocument
-    Loop
-
-endcase
-
-'-----------------------------------------------------------------
-
-testcase tTextframes_39
-
-    Dim sHorizontalBy1    as String
-    Dim sHorizontalBy2    as String
-    Dim sVerticalBy1      as String
-    Dim sVerticalBy2      as String
-    Dim sHorizontalByNew1 as String
-    Dim sHorizontalByNew2 as String
-    Dim sVerticalByNew1   as String
-    Dim sVerticalByNew2   as String
-    
-    sHorizontalBy1    = "2"+ gSeperator + "00" + gMeasurementUnit
-    sVerticalBy1      = "1"+ gSeperator + "00" + gMeasurementUnit
-    sHorizontalBy2    = "7"+ gSeperator + "00" + gMeasurementUnit
-    sVerticalBy2      = "4"+ gSeperator + "00" + gMeasurementUnit
-    sHorizontalByNew1 = "3"+ gSeperator + "00" + gMeasurementUnit
-    sVerticalByNew1   = "2"+ gSeperator + "00" + gMeasurementUnit
-    sHorizontalByNew2 = "7"+ gSeperator + "00" + gMeasurementUnit
-    sVerticalByNew2   = "4"+ gSeperator + "00" + gMeasurementUnit
-    
-    printlog "- Test drag&drop with a linked frame - keyboard"
-    '/// Test drag&drop with a linked frame - keyboard
-    
-    Call hNewDocument
-    
-    '/// insert a frame and set Horizontal and Vertical
-    Call fInsertFrame(30,30 , 49,49)
-    
-    Call fFormatFrame("TabType")
-    HorizontalBy.SetText sHorizontalBy1
-    wait 500
-    VerticalBy.SetText sVerticalBy1
-    wait 500
-    TabType.OK
-    
-    Call wTypeKeys "<ESCAPE>"
-    Wait 500
-    
-    '/// insert another frame and set Horizontal and Vertical
-    Call fInsertFrame(51,51 , 80,80)
-    
-    Call fFormatFrame("TabType")
-    HorizontalBy.SetText sHorizontalBy2
-    wait 500
-    VerticalBy.SetText sVerticalBy2
-    wait 500
-    TabType.OK
-    
-    Call wTypeKeys "<Tab>"
-    
-    '/// link two frames
-    Call fFormatFrame("TabZusaetze")
-    NextLink.Select 2
-    Sleep 1
-    TabZusaetze.OK
-    
-    '/// Move 1st frame with keyboard (right and down)
-    Call wTypeKeys "<Right>"
-    Sleep 1
-    Call wTypeKeys "<Down>"
-    Sleep 1
-    
-    Call fFormatFrame("TabType")
-    if HorizontalBy.GetText <> sHorizontalByNew1 then QAErrorLog "#110726#1st frame: Horizontal by isn't right!"
-    if VerticalBy.GetText   <> sVerticalByNew1   then QAErrorLog "#110726#1st frame: Vertical by isn't right!"
-    TabType.Cancel
-    
-    Call wTypeKeys "<Tab>"
-    
-    '/// Move 2nd frame with keyboard (right and down)
-    Call wTypeKeys "<Right>"
-    Sleep 1
-    Call wTypeKeys "<Down>"
-    Sleep 1
-    
-    '/// Check the result
-    Call fFormatFrame("TabType")
-    if HorizontalBy.GetText <> sHorizontalByNew2 then QAErrorLog "#110726# 2nd frame: Horizontal by isn't right! "
-    if VerticalBy.GetText   <> sVerticalByNew2   then QAErrorLog "#110726# 2nd frame: Vertical by isn't right! "
-    TabType.Cancel
-    
-    Call hCloseDocument
-
-endcase
-
-'-----------------------------------------------------------------
-
-testcase tTextframes_40
-
-    Dim sHorizontalBy as String
-    
-    sHorizontalBy = "2"+ gSeperator + "00" + gMeasurementUnit
-    
-    printlog "- Test Undo on drag&drop of frames (keyboard)"
-    '/// Test Undo on drag&drop of frames (keyboard)
-    
-    Call hNewDocument
-    
-    '/// insert a frame
-    Call fInsertFrame(30,30 , 49,49)
-    
-    Call fFormatFrame("TabType")
-    HorizontalBy.SetText sHorizontalBy
-    wait 500
-    TabType.OK
-    
-    Call wTypeKeys "<ESCAPE>"
-    Wait 500
-    
-    '/// insert another frame
-    Call fInsertFrame(51,51 , 80,80)
-    
-    printlog "Move the second frame away from the first one."
-    Call wTypeKeys "<RIGHT>",10
-'    Call wTypeKeys "<DOWN>",7
-    
-    Call wTypeKeys "<Tab>"
-    
-    '/// Active frame bar
-    Call hToolbarSelect("FRAME", true )
-    Wait 500
-    
-    '/// Click link frame button
-    Verketten.Click
-    Wait 500
-    
-    '/// Target the second frame
-    Call gMouseClick(75,30)
-    Wait 500
-    
-    '/// Move 1st frame with keyboard (Left)
-    Call wTypeKeys "<Left>"
-    Sleep 1
-    
-    '/// Edit / Undo
-    EditUndo
-    Wait 500
-    
-    '/// Check if the frame is moved
-    Call fFormatFrame("TabType")
-    if HorizontalBy.GetText <> sHorizontalBy then Warnlog "Undo on drag&drop of frames doesn't work!"
-    TabType.Cancel
-    
-    Call hCloseDocument
-
-endcase
-
-'-----------------------------------------------------------------
-
-testcase tTextframes_41
-
-    Dim iLink as String
-    Dim iNolink as Integer
-    
-    iLink   =  2
-    iNolink =  1
-    
-    printlog "- Test Undo on removing the link"
-    '/// Test Undo on removing the link
-    
-    Call hNewDocument
-    
-    '/// insert a frame
-    Call fInsertFrame(30,30 , 49,49)
-    
-    Call wTypeKeys "<ESCAPE>"
-    WaitSlot (5)
-    
-    '/// insert another frame
-    Call fInsertFrame(51,51 , 80,80)
-    
-    printlog "Move the second frame away from the first one."
-    Call wTypeKeys "<RIGHT>",10
-    
-    '/// Set focus to 1st frame
-    Call wTypeKeys "<Tab>"
-    
-    '/// Active frame bar
-    Call hToolbarSelect("FRAME", true )
-    Wait 500
-    
-    '/// Click link frame button
-    Verketten.Click
-    Wait 500
-    
-    '/// Target the second frame
-    Call gMouseClick(60,70)
-    Wait 500
-    
-    '/// Remove link
-    Kontext "FrameObjectbar"
-    VerkettungLoesen.Click
-    Wait 500
-    
-    Call fFormatFrame("TabZusaetze")
-    if NextLink.GetSelIndex  <> iNoLink then Warnlog "Remove link doesn't work!"
-    TabZusaetze.Cancel
-    
-    '/// Edit / Undo
-    EditUndo
-    Wait 500
-    
-    '/// check if the frame is moved
-    Call fFormatFrame("TabZusaetze")
-    if NextLink.GetSelIndex  <> iLink then Warnlog "Undo on removing link doesn't work!"
-    TabZusaetze.Cancel
-    
-    Call hCloseDocument
-
-endcase
-
-'-----------------------------------------------------------------
-
-testcase tTextframes_42
-
-    Dim iNoLink as Integer
-    
-    iNoLink  =  1
-    
-    printlog "- Link frame in header with frame in bodytext should be forbidden"
-    '/// Link frame in header with frame in bodytext should be forbidden
-    
-    Call hNewDocument
-    
-    '/// insert a frame in header
-    DocumentWriter.UseMenu
-    MenuSelect(Menugetitemid(4))
-    Sleep 2
-    MenuSelect(Menugetitemid(9))
-    Sleep 2
-    MenuSelect(Menugetitemid(1))
-    Sleep 2
-    
-    Call wInsertFrame
-    
-    Call wTypeKeys "<ESCAPE>"
-    Wait 500
-    
-    '/// insert another frame in bodytext
-    Call fInsertFrame(50,50 , 70,65)
-    
-    Call wTypeKeys "<Tab>"
-    
-    '/// Try to link two frames
-    Call hToolbarSelect("FRAME", true )
-    Wait 500
-    Verketten.Click
-    Wait 500
-    Call gMouseClick(60,60)
-    Wait 500
-    
-    Call fFormatFrame("TabZusaetze")
-    if NextLink.GetSelIndex  <> iNoLink then Warnlog "There should be no link between 2 frames!"
-    TabZusaetze.Cancel
-    
-    Call hCloseDocument
-
-endcase
-
-'-----------------------------------------------------------------
-
-testcase tTextframes_43
-
-    Dim iLink as Integer
-    
-    iLink = 2
-    
-    printlog "- Link frame in footer with frame in bodytext should be forbidden"
-    '/// Link frame in footer with frame in bodytext should be forbidden
-    
-    Call hNewDocument
-    
-    '/// insert a frame in footer
-    DocumentWriter.UseMenu
-    MenuSelect(Menugetitemid(4))
-    Sleep 2
-    MenuSelect(Menugetitemid(10))
-    Sleep 2
-    MenuSelect(Menugetitemid(1))
-    Sleep 2
-    
-    Call wInsertFrame
-    
-    Call wTypeKeys "<ESCAPE>"
-    Wait 500
-    
-    '/// insert another frame in bodytext
-    Call fInsertFrame(50,50 , 70,70)
-    
-    Call wTypeKeys "<Tab>"
-    
-    '/// Try to link two frames
-    Call fFormatFrame("TabZusaetze")
-    Sleep 1
-    try
-        NextLink.Select iLink
-        Sleep 1
-        Warnlog "There should be no link between 2 frames!"
-    catch
-    endcatch
-    TabZusaetze.Cancel
-    
-    Call hCloseDocument
-
-endcase
-
-'-----------------------------------------------------------------
-
-testcase tTextframes_44
-
-    Dim sText   as String
-    Dim iNoLink as Integer
-    
-    sText    =  "Test"
-    iNoLink  =  1
-    
-    printlog "- Link frame in footer with frame in bodytext should be forbidden"
-    '/// Link frame in footer with frame in bodytext should be forbidden
-    
-    Call hNewDocument
-    
-    '/// insert a frame
-    Call fInsertFrame(50,30 , 50,40)
-    
-    Call wTypeKeys "<ESCAPE>"
-    Wait 500
-    
-    '/// insert another frame
-    Call fInsertFrame(60,50 , 70,65)
-    Call wTypeKeys "<ESCAPE>"
-    
-    '/// input some text in the target frame(2nd frame)
-    Call gMouseClick(65,60)
-    Call wTypeKeys sText
-    
-    Call wTypeKeys ( "<Shift F4>" )
-    
-    '/// link two frames
-    Call hToolbarSelect("FRAME", true )
-    Wait 500
-    Verketten.Click
-    Wait 500
-    Call gMouseClick(50,60)
-    Wait 500
-    
-    Call fFormatFrame("TabZusaetze")
-    if NextLink.GetSelIndex  <> iNoLink then Warnlog "There should be no link between 2 frames!"
-    TabZusaetze.Cancel
-    
-    Call hCloseDocument
-
-endcase
-
-'-----------------------------------------------------------------
-
-testcase tTextframes_45
-
-    Dim iNoLink as Integer
-    
-    iNoLink  =  1
-    
-    printlog "- Recursed links should be forbidden"
-    '/// Recursed links should be forbidden
-    
-    Call hNewDocument
-    
-    '/// insert a frame
-    Call fInsertFrame(30,30 , 45,45)
-    
-    Call wTypeKeys "<ESCAPE>"
-    Wait 500
-    
-    '/// insert another frame
-    Call fInsertFrame(50,50 , 70,70)
-    
-    printlog "Move the second frame away from the first one."
-    Call wTypeKeys "<RIGHT>",1
-    
-    '/// set focus to 1st frame
-    Call wTypeKeys "<TAB>"
-    Sleep 1
-    
-    '/// link two frames (2nd frame is target frame)
-    Kontext "FrameObjectbar"
-    Sleep 2
-    Verketten.Click
-    Wait 500
-    Call gMouseClick(60,60)
-    Wait 500
-    
-    '/// link two frames (1st frame is target frame)
-    Call wTypeKeys "<TAB>"
-    Call hToolbarSelect("FRAME", true )
-    Wait 500
-    Verketten.Click
-    Wait 500
-    Call gMouseClick(35,35)
-    Wait 500
-    
-    Call fFormatFrame("TabZusaetze")
-    if NextLink.GetItemCount <> iNoLink then Warnlog "There should be no link between 2 frames!" & NextLink.GetItemCount 
-    TabZusaetze.Cancel
-    Wait 500
-    
-    Call hCloseDocument
-endcase
-
-'-----------------------------------------------------------------
-
-testcase tTextframes_46
-
-    Dim iNoLink as Integer
-    
-    iNoLink = 1
-    
-    printlog "- Frames couldn't be linked with the current one is part of another 'chain'"
-    '/// Frames couldn't be linked with the current one is part of another 'chain'
-    
-    Call hNewDocument
-    
-    '/// insert a frame
-    Call fInsertFrame(30,30 , 49,49)
-    
-    Call wTypeKeys "<ESCAPE>"
-    Wait 500
-    
-    '/// insert another frame
-    Call fInsertFrame(51,51 , 65,65)
-    
-    printlog "Move the frame away from the position of the first one."
-    Call wTypeKeys "<RIGHT>",4
-    Call wTypeKeys "<DOWN>",4
-    
-    Call wTypeKeys "<ESCAPE>"
-    Wait 500
-    
-    '/// insert 3rd frame
-    Call fInsertFrame(70,70 , 80,80)
-    Wait 500
-    
-    printlog "Move the frame away from the position of the first one."
-    Call wTypeKeys "<LEFT>",8
-    Call wTypeKeys "<UP>",8
-    
-    '/// set focus to 1st frame
-    Call wTypeKeys "<SHIFT F4>" 'make sure object is selected.
-    Call wTypeKeys "<TAB>"
-    Sleep 1
-    
-    '/// link two frames 1 & 2 (2nd frame is target frame)
-    '/// Active frame bar
-    Call hToolbarSelect("FRAME", true )
-    Sleep 1
-    Verketten.Click
-    Sleep 1
-    Call gMouseClick(70,70)
-    Wait 500
-    
-    '/// set focus to 3rd frame
-    Call wTypeKeys "<TAB>" , 2
-    
-    '/// link two frames 3 & 2 (2nd frame is target frame)
-    Kontext "FrameObjectbar"
-    Sleep 2
-    Verketten.Click
-    Sleep 1
-    Call gMouseClick(70,70)
-    Wait 500
-    
-    Call fFormatFrame("TabZusaetze")
-    if NextLink.GetSelIndex  <> iNoLink then Warnlog "Shouldn't link to 2nd frame ! "
-    TabZusaetze.Cancel
-    Wait 500
-
-    Call hCloseDocument
-endcase
-
-'-----------------------------------------------------------------
-
-testcase tTextframes_47
-
-    Dim iLink as Integer
-    
-    iLink = 2
-    
-    printlog "- Frames couldn't be linked with the current one is in protected section"
-    '/// Frames couldn't be linked with the current one is in protected section
-    
-    Call hNewDocument
-    
-    '/// Insert a section
-    InsertSection
-    wait 500
-    Kontext
-    Active.Setpage TabBereiche
-    Kontext "TabBereiche"
-    wait 500
-    TabBereiche.OK
-    wait 500
-    
-    Call wTypeKeys "<UP>" , 1
-    Call wTypeKeys "<RETURN>", 6
-    
-    '/// Insert a frame (A) in the section
-    Call wInsertFrame
-    Call wTypeKeys "<UP>" , 2
-    Call wTypeKeys "<ESCAPE>"
-    
-    '/// Set the section to be protected
-    FormatSections
-    Kontext "BereicheBearbeiten"
-    Geschuetzt.Check
-    sleep 1
-    BereicheBearbeiten.OK
-    
-    Call wTypeKeys "<DOWN>" , 10
-        
-    '/// Insert another frame (B) out of the section
-    Call fInsertFrame(30,70 , 60,90)
-    
-    Call wTypeKeys "<RIGHT>" , 8
-    Call wTypeKeys "<DOWN>" , 8
-    
-    '/// Link B->A (A is target)
-    Call fFormatFrame("TabZusaetze")
-    try
-        NextLink.Select iLink
-        Sleep 1
-        QAErrorLog "#110862# Should NOT link 2 frames when target frame is in the protected section!"
-    catch
-    endcatch
-    TabZusaetze.Cancel
-    
-    Call hCloseDocument
-
-endcase
-
-'-----------------------------------------------------------------
-
-testcase tTextframes_48
-
-    Dim iLink as Integer
-    
-    iLink = 2
-    
-    printlog "- Frames could be linked with the current one is set to 'editable in protected documents' even it is in protected section "
-    
-    Call hNewDocument
-    
-    printlog "Insert a section"
-    InsertSection
-    wait 500
-    Kontext
-    Active.Setpage TabBereiche
-    Kontext "TabBereiche"
-    wait 500
-    TabBereiche.OK
-    wait 500
-    
-    Call wTypeKeys "<UP>" , 1
-    Call wTypeKeys "<RETURN>", 6
-    
-    printlog "Insert a frame (A) in the section , and check 'editable in protected documents'"
-    Call wInsertFrame
-    Call wTypeKeys "<UP>" , 2          
-       
-    Call fFormatFrame("TabZusaetze")
-    Editierbar.Check
-    wait 500
-    TabZusaetze.OK
-    
-    Call wTypeKeys "<ESCAPE>"
-    
-    printlog "Set the section to be protected"
-    FormatSections
-    Kontext "BereicheBearbeiten"
-    Geschuetzt.Check
-    sleep 1
-    BereicheBearbeiten.OK
-    
-    Call wTypeKeys "<DOWN>" , 10
-    printlog "nsert another frame (B) out of the section"
-    Call fInsertFrame(50,50 , 60,60)
-    
-    printlog "Link B->A (A is target)"
-    Call fFormatFrame("TabZusaetze")
-    try
-        NextLink.Select iLink
-        Sleep 1
-    catch
-        Warnlog "link 2 frames should work!"
-    endcatch
-    TabZusaetze.Cancel
-    
-    Call hCloseDocument
-
-endcase
-
-'-----------------------------------------------------------------
diff --git a/testautomation/writer/optional/includes/textframes/w_textframes4.inc b/testautomation/writer/optional/includes/textframes/w_textframes4.inc
deleted file mode 100644
index 6da21bcd513f..000000000000
--- a/testautomation/writer/optional/includes/textframes/w_textframes4.inc
+++ /dev/null
@@ -1,1523 +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 : helge.delfs@oracle.com
-'*
-'* short description : Test of textframe - 4
-'*
-'\***********************************************************************
-
-sub w_textframes4
-    Call tTextframes_49         ''Follow text flow' should be OFF by default
-    Call tTextframes_50         ''Follow text flow' should be ON if document is older than StarOffice 8
-    Call tTextframes_51         ''Follow text flow' should be OFF when wrapping mode is 'in front of text'
-    Call tTextframes_52         ''Follow text flow' should be OFF when wrapping mode is 'behind text'
-    Call tTextframes_53         ''Follow text flow' should be OFF when wrapping mode is 'tight'
-    Call tTextframes_54         ''Follow text flow' should be ON when wrapping mode is 'square'
-    Call tTextframes_55         'Exceeding layout environment at the bottom - 'Follow text flow'(ON , page area)
-    Call tTextframes_56         'Exceeding layout environment at the bottom - 'Follow text flow'(OFF, page area)
-    Call tTextframes_57         'Exceeding layout environment at the bottom - 'Follow text flow'(ON , header)
-    Call tTextframes_58         'Exceeding layout environment at the bottom - 'Follow text flow'(OFF, header)
-    Call tTextframes_59         'Exceeding layout environment at the bottom - 'Follow text flow'(ON , table)
-    Call tTextframes_60         'Exceeding layout environment at the bottom - 'Follow text flow'(OFF, table)
-    Call tTextframes_61         'Exceeding layout environment at the top - 'Follow text flow'(ON , footer)
-    Call tTextframes_62         'Exceeding layout environment at the top - 'Follow text flow'(OFF, footer)
-    Call tTextframes_63         'Exceeding layout environment at the left - 'Follow text flow'(ON , table)
-    Call tTextframes_64         'Exceeding layout environment at the left - 'Follow text flow'(OFF, table)
-    Call tTextframes_65         'Exceeding layout environment at the left - 'Follow text flow'(ON , Frame)
-    Call tTextframes_66         'Exceeding layout environment at the left - 'Follow text flow'(OFF, Frame)
-    Call tTextframes_67         'Exceeding layout environment at the right - 'Follow text flow'(ON , table)
-    Call tTextframes_68         'Exceeding layout environment at the right - 'Follow text flow'(OFF, table)
-    Call tTextframes_69         'Exceeding layout environment at the right - 'Follow text flow'(ON , Frame)
-    Call tTextframes_70         'Exceeding layout environment at the right - 'Follow text flow'(OFF, Frame)
-end sub
-
-'---------------------------------------------------
-
-testcase tTextframes_49
-
-    printlog "- 'Follow text flow' should be OFF by default"
-    '/// 'Follow text flow' should be OFF by default
-    
-    Call hNewDocument
-    
-    '/// insert a frame
-    Call wInsertFrame
-    
-    '/// Format/Frame / Type ,
-    '/// + Check box 'Follow text flow' should be OFF
-    Call fFormatFrame("TabType")
-    if FollowTextflow.IsChecked then
-        Warnlog "'Follow text flow' should be turned off!"
-    end if
-    TabType.Cancel
-    
-    Call hCloseDocument
-
-endcase
-
-'-----------------------------------------------------------------
-
-testcase tTextframes_50
-
-    Dim sTestFile as String
-    
-    sTestFile = Convertpath (gTesttoolpath + "writer\optional\input\textframe\frame.sxw")
-    
-    printlog "- 'Follow text flow' should be ON if document is older than StarOffice 8"
-    '/// Follow text flow' should be ON if document is older than StarOffice 8
-    
-    Call hNewDocument
-    
-    '/// Open a test file , which includes a frame and
-    '/// + it is StarOffice 7 format
-    hFileOpenLocally( sTestFile )
-    
-    
-    '/// Set focus to frame
-    Call wTypeKeys ( "<Shift F4>" )
-    Sleep 1
-    
-    '/// Format/Frame / Type ,
-    '/// + Check box 'Follow text flow' should be ON
-    Call fFormatFrame("TabType")
-    if NOT FollowTextflow.IsChecked then
-        Warnlog "'Follow text flow' should be turned on!"
-    end if
-    TabType.Cancel
-    
-    printlog " Close active document "
-    Do Until GetDocumentCount = 0
-        Call hCloseDocument
-    Loop
-
-endcase
-
-'-----------------------------------------------------------------
-
-testcase tTextframes_51
-
-    Dim sTestFile as String
-    
-    sTestFile = Convertpath (gTesttoolpath + "writer\optional\input\textframe\inFrontText.doc")
-    
-    printlog "- 'Follow text flow' should be OFF when wrapping mode is 'in front of text'"
-    '/// 'Follow text flow' should be OFF when wrapping mode is 'in front of text'
-    
-    Call hNewDocument
-    
-    '/// Open a test file , which is a Word file and includes
-    '/// + a frame that is in 'in front of text' mode
-    hFileOpenLocally( sTestFile )
-    
-    
-    '/// Set focus to frame
-    Call wTypeKeys ( "<Shift F4>" )
-    Sleep 1
-    
-    '/// Format/Frame / Type ,
-    '/// + Check box 'Follow text flow' should be OFF
-    Call fFormatFrame("TabType")
-    if FollowTextflow.IsChecked then
-        Warnlog "'Follow text flow' should be turned off!"
-    end if
-    TabType.Cancel
-    
-    printlog " Close active document "
-    Do Until GetDocumentCount = 0
-        Call hCloseDocument
-    Loop
-
-endcase
-
-'-----------------------------------------------------------------
-
-testcase tTextframes_52
-
-    Dim sTestFile as  String
-    
-    sTestFile = Convertpath (gTesttoolpath + "writer\optional\input\textframe\behindText.doc")
-    
-    printlog "- 'Follow text flow' should be OFF when wrapping mode is 'behind text'"
-    '/// 'Follow text flow' should be OFF when wrapping mode is 'behind text'
-    
-    Call hNewDocument
-    
-    '/// Open a test file , which is a Word file and includes
-    '/// + a frame that is in 'behind text' mode
-    hFileOpenLocally( sTestFile )
-    
-    
-    '/// Set focus to the frame
-    Call wTypeKeys ( "<Shift F4>" )
-    Sleep 1
-    
-    '/// Format/Frame / Type ,
-    '/// + Check box 'Follow text flow' should be OFF
-    Call fFormatFrame("TabType")
-    if FollowTextflow.IsChecked then
-        Warnlog "'Follow text flow' should be turned off!"
-    end if
-    TabType.Cancel
-    
-    printlog " Close active document "
-    Do Until GetDocumentCount = 0
-        Call hCloseDocument
-    Loop
-
-endcase
-
-'-----------------------------------------------------------------
-
-testcase tTextframes_53
-
-    Dim sTestFile as  String
-    
-    sTestFile = Convertpath (gTesttoolpath + "writer\optional\input\textframe\tight.doc")
-    
-    printlog "- 'Follow text flow' should be OFF when wrapping mode is 'tight'"
-    '/// 'Follow text flow' should be OFF when wrapping mode is 'tight'
-    
-    Call hNewDocument
-    
-    '/// Open a test file , which is a Word file and includes
-    '/// + a frame that is in 'tight' mode
-    hFileOpenLocally( sTestFile )
-    
-    
-    '/// Set focus to the frame
-    Call wTypeKeys ( "<Shift F4>" )
-    Sleep 1
-    
-    '/// Format/Frame / Type ,
-    '/// + Check box 'Follow text flow' should be OFF
-    Call fFormatFrame("TabType")
-    if FollowTextflow.IsChecked then
-        Warnlog "'Follow text flow' should be turned off!"
-    end if
-    TabType.Cancel
-    
-    printlog " Close active document "
-    hFileCloseAll()
-
-endcase
-
-'-----------------------------------------------------------------
-
-testcase tTextframes_54
-
-    Dim sTestFile as  String
-    
-    sTestFile = Convertpath (gTesttoolpath + "writer\optional\input\textframe\square.doc")
-    
-    printlog "- 'Follow text flow' should be OFF when wrapping mode is 'square'"
-    '/// 'Follow text flow' should be OFF when wrapping mode is 'square'
-    
-    Call hNewDocument
-    
-    '/// Open a test file , which is a Word file and includes
-    '/// + a frame that is in 'square' mode
-    hFileOpenLocally( sTestFile )
-    
-    
-    '/// Set focus to the frame
-    Call wTypeKeys ( "<Shift F4>" )
-    Sleep 1
-    
-    '/// Format/Frame / Type ,
-    '/// + Check box 'Follow text flow' should be OFF
-    Call fFormatFrame("TabType")
-    if FollowTextflow.IsChecked then
-        Warnlog "'Follow text flow' should be turned off!"
-    end if
-    TabType.Cancel
-    
-    printlog " Close active document "
-    Do Until GetDocumentCount = 0
-        Call hCloseDocument
-    Loop
-
-endcase
-
-'-----------------------------------------------------------------
-
-testcase tTextframes_55
-
-    Dim iVertical   as Integer
-    Dim sVerticalBy as String
-    
-    iVertical    = 4 'From top
-    sVerticalBy  = "50"
-    
-    printlog "- Exceeding layout environment at the bottom - 'Follow text flow'(ON , page area)"
-    '/// Exceeding layout environment at the bottom - 'Follow text flow'(ON , page area)
-    
-    Call hNewDocument
-    
-    '/// Insert/Frame / Type ,
-    '/// + Select 'from top' in Vertical ,
-    '/// + Set 50cm in vertical by area
-    '/// + Check 'Follow text flow'
-    InsertFrame
-    Kontext
-    Active.Setpage TabType
-    Kontext "TabType"
-    Vertical.Select  iVertical
-    Sleep 1
-    VerticalBy.SetText sVerticalBy
-    Sleep 1
-    FollowTextflow.Check
-    TabType.Ok
-    
-    '/// Check if the frame is in 2nd page
-    Kontext
-    ViewNavigator
-    Kontext "NavigatorWriter"
-    Sleep 1
-    if Seitennummer.GetText <> "2" then
-        Warnlog "The test frame isn't in the second page!"
-    end if
-    
-    Call fCloseNavigator
-    
-    Call hCloseDocument
-
-endcase
-
-'-----------------------------------------------------------------
-
-testcase tTextframes_56
-
-    Dim iVertical   as Integer
-    Dim sVerticalBy as String
-    
-    iVertical    = 4 'From top
-    sVerticalBy  = "50"
-    
-    printlog "- Exceeding layout environment at the bottom - 'Follow text flow'(OFF , page area)"
-    '/// Exceeding layout environment at the bottom - 'Follow text flow'(OFF , page area)
-    
-    Call hNewDocument
-    
-    '/// Insert/Frame / Type ,
-    '/// + Select 'from top' in Vertical ,
-    '/// + Set 50cm in vertical by area
-    '/// + UnCheck 'Follow text flow'
-    InsertFrame
-    Kontext
-    Active.Setpage TabType
-    Kontext "TabType"
-    Vertical.Select  iVertical
-    Sleep 1
-    VerticalBy.SetText sVerticalBy
-    Sleep 1
-    FollowTextflow.UnCheck
-    TabType.Ok
-    
-    '/// Check if the frame is in 1st page
-    Kontext
-    ViewNavigator
-    Kontext "NavigatorWriter"
-    Sleep 1
-    if Seitennummer.GetText <> "1" then
-        Warnlog "The test frame isn't in the first page!"
-    end if
-    
-    Call fCloseNavigator
-    
-    Call hCloseDocument
-
-endcase
-
-'-----------------------------------------------------------------
-
-testcase tTextframes_57
-
-    Dim sTestFile   as String
-    Dim iVertical   as Integer
-    Dim sVerticalBy as String
-    Dim sPositionY1 as String
-    Dim sPositionY2 as String
-    
-    sTestFile    = Convertpath (gTesttoolpath + "writer\optional\input\textframe\frameInHeader.sxw")
-    iVertical    = 4 'From top
-    sVerticalBy  = "50"
-    
-    printlog "- Exceeding layout environment at the bottom - 'Follow text flow'(ON , header)"
-    '/// Exceeding layout environment at the bottom - 'Follow text flow'(ON , header)
-    
-    Call hNewDocument
-    
-    '/// Open a test file , which includes a frame in header and
-    '/// + a picture which is anchored to frame
-    hFileOpenLocally( sTestFile )
-    
-    
-    'Set focus to the picture
-    Call wTypeKeys ( "<Shift F4>" )
-    Sleep 1
-    Call wTypeKeys "<Tab>"
-    Sleep 1
-    
-    'Get the pic Y position
-    FormatAnchorToPage
-    Sleep 1
-
-    Call fPositionAndSize("TabPositionAndSizeWriter")
-    sPositionY1 = Verticalby.Gettext
-    TabPositionAndSizeWriter.Cancel
-    
-    FormatAnchorToFrame
-    Sleep 1
-    
-    '/// Set focus to the frame
-    Call wTypeKeys "<Tab>"
-    Sleep 1
-    
-    '/// Format/Frame / Type ,
-    '/// + Check box 'Follow text flow'
-    '/// + set a much bigger values in from top
-    Call fFormatFrame("TabType")
-    FollowTextflow.Check
-    Vertical.Select  iVertical
-    Sleep 1
-    VerticalBy.SetText sVerticalBy
-    Sleep 1
-    TabType.OK
-    
-    'Set focus to picture
-    Call wTypeKeys "<Tab>"
-    Sleep 1
-    
-    'Get the pic Y position
-    FormatAnchorToPage
-    Sleep 1
-    Call fPositionAndSize("TabPositionAndSizeWriter")
-    sPositionY2 = Verticalby.Gettext
-    TabPositionAndSizeWriter.Cancel
-
-    '/// Check if frame is still in the header
-    if fCalculateTolerance( sPositionY1, sPositionY2) > 0.3 then
-        Warnlog "Something is wrong ! Perhaps the frame isn't in the header!"
-    end if
-    
-    printlog " Close active document "
-    Do Until GetDocumentCount = 0
-        Call hCloseDocument
-    Loop
-
-endcase
-
-'-----------------------------------------------------------------
-
-testcase tTextframes_58
-
-    Dim sTestFile   as String
-    Dim iVertical   as Integer
-    Dim sVerticalBy as String
-    Dim sPositionY1 as String
-    Dim sPositionY2 as String
-    
-    sTestFile    = Convertpath (gTesttoolpath + "writer\optional\input\textframe\frameInHeader.sxw")
-    iVertical    = 4 'From top
-    sVerticalBy  = "50"
-    
-    printlog "- Exceeding layout environment at the bottom - 'Follow text flow'(OFF , header)"
-    '/// Exceeding layout environment at the bottom - 'Follow text flow'(OFF , header)
-    
-    Call hNewDocument
-    
-    '/// Open a test file , which includes a frame in header and
-    '/// + a picture which is anchored to frame
-    hFileOpenLocally( sTestFile )
-    
-    
-    'Set focus to the picture
-    Call wTypeKeys ( "<Shift F4>" )
-    Sleep 1
-    Call wTypeKeys "<Tab>"
-    Sleep 1
-    
-    'Get the pic Y position
-    FormatAnchorToPage
-    Sleep 1
-    Call fPositionAndSize("TabPositionAndSizeWriter")
-    sPositionY1 = Verticalby.Gettext
-    TabPositionAndSizeWriter.Cancel
-    
-    FormatAnchorToFrame
-    Sleep 1
-    
-    '/// Set focus to the frame
-    Call wTypeKeys "<Tab>"
-    Sleep 1
-    
-    '/// Format/Frame / Type ,
-    '/// + UnCheck box 'Follow text flow'
-    '/// + set a much bigger values in from top
-    Call fFormatFrame("TabType")
-    FollowTextflow.UnCheck
-    Vertical.Select  iVertical
-    Sleep 1
-    VerticalBy.SetText sVerticalBy
-    Sleep 1
-    TabType.OK
-    
-    'Set focus to picture
-    Call wTypeKeys "<Tab>"
-    Sleep 1
-    
-    'Get the pic Y position
-    FormatAnchorToPage
-    Sleep 1
-    Call fPositionAndSize("TabPositionAndSizeWriter")
-    sPositionY2 = Verticalby.Gettext
-    TabPositionAndSizeWriter.Cancel
-    
-    '/// Check if frame is still in the header
-    if fCalculateTolerance( sPositionY1, sPositionY2 ) < 18 then
-        Warnlog "Something is wrong ! Perhaps the frame is still in the header!"
-    end if
-    
-    printlog " Close active document "
-    Do Until GetDocumentCount = 0
-        Call hCloseDocument
-    Loop
-
-endcase
-
-'-----------------------------------------------------------------
-
-testcase tTextframes_59
-
-    Dim sTestFile   as String
-    Dim sPositionY1 as String
-    Dim sPositionY2 as String
-    
-    sTestFile = Convertpath (gTesttoolpath + "writer\optional\input\textframe\frameInTable.sxw")
-    
-    printlog "- Exceeding layout environment at the bottom - 'Follow text flow'(ON , table)"
-    '/// Exceeding layout environment at the bottom - 'Follow text flow'(ON , table)
-    
-    Call hNewDocument
-    
-    '/// Open a test file , which includes a frame in table and
-    '/// + a picture which is anchored to frame
-    hFileOpenLocally( sTestFile )
-    
-    
-    'Set focus to the picture
-    Call wTypeKeys ( "<Shift F4>" )
-    Sleep 1
-    Call wTypeKeys ( "<Tab>" )
-    
-    FormatAnchorToFrame
-    Sleep 1
-    
-    'Get the pic Y position
-    Sleep 1
-    Call fFormatGraphic("TabType")
-    sPositionY1 = Verticalby.Gettext
-    TabType.Cancel
-        
-    '/// Set focus to the frame
-    Call wTypeKeys "<Tab>"
-    Sleep 1
-    
-    '/// Format/Frame / Type ,
-    '/// + Check box 'Follow text flow'
-    '/// + set a much bigger values in from top
-    Call fFormatFrame("TabType")
-    FollowTextflow.Check
-    Vertical.Select 4
-    Sleep 1
-    VerticalBy.SetText "50"
-    Sleep 1
-    TabType.OK
-    
-    'Set focus to picture
-    Call wTypeKeys "<Tab>"
-    Sleep 1
-    
-    'Get the pic Y position
-    Sleep 1
-    Call fFormatGraphic("TabType")
-    sPositionY2 = Verticalby.Gettext
-    TabType.Cancel
-    
-    '/// Check if frame is still in the table
-    if fCalculateTolerance( sPositionY1, sPositionY2) > 0.3 then
-        Warnlog "Something is wrong ! Perhaps the frame isn't in the table!"
-    end if
-    
-    'Set focus to frame
-    Call wTypeKeys "<Tab>"
-    Sleep 1
-    
-    'if the frame is in the table, the focus should be in the table
-    Call wTypeKeys "<ESCape>"
-    Sleep 1
-    
-    try
-        Call fFormatTable("TabTabelle")
-        TabTabelle.Cancel
-    catch
-        Warnlog "The frame isn't in the table!"
-    endcatch
-    
-    printlog " Close active document "
-    Do Until GetDocumentCount = 0
-        Call hCloseDocument
-    Loop
-
-endcase
-
-'-----------------------------------------------------------------
-
-testcase tTextframes_60
-
-    Dim sTestFile   as String
-    Dim sPositionY1 as String
-    Dim sPositionY2 as String
-    
-    sTestFile    = Convertpath (gTesttoolpath + "writer\optional\input\textframe\frameInTable.sxw")
-    
-    printlog "- Exceeding layout environment at the bottom - 'Follow text flow'(OFF , table)"
-    '/// Exceeding layout environment at the bottom - 'Follow text flow'(OFF , table)
-    
-    Call hNewDocument
-    
-    '/// Open a test file , which includes a frame in table and
-    '/// + a picture which is anchored to frame
-    hFileOpenLocally( sTestFile )
-    
-    
-    'Set focus to the frame
-    Call wTypeKeys ( "<Shift F4>" )
-    Sleep 1
-    
-    printlog "Move the frame into the document-area."
-    Call wTypeKeys "<RIGHT>",10
-    Call wTypeKeys "<DOWN>",7
-    
-    'Set focus to the picture
-    Call wTypeKeys ( "<Tab>" )
-    
-    'Get the pic Y position
-    Sleep 1
-    Call fFormatGraphic("TabType")
-    sPositionY1 = Verticalby.Gettext
-    TabType.Cancel
-    
-    FormatAnchorToFrame
-    Sleep 1
-    
-    '/// Set focus to the frame
-    Call wTypeKeys "<Tab>"
-    Sleep 1
-    
-    '/// Format/Frame / Type ,
-    '/// + UnCheck box 'Follow text flow'
-    '/// + set a much bigger values in from top
-    Call fFormatFrame("TabType")
-    FollowTextflow.UnCheck
-    Vertical.Select 4
-    Sleep 1
-    VerticalBy.ToMax
-    Sleep 1
-    TabType.OK
-    
-    'Set focus to picture
-    Call wTypeKeys "<Tab>"
-    Sleep 1
-    
-    'Get the pic Y position
-    Sleep 1
-    Call fFormatGraphic("TabType")
-    sPositionY2 = Verticalby.Gettext
-    TabType.Cancel
-    
-    '/// Check if frame is still in the table
-    if fCalculateTolerance( sPositionY1, sPositionY2) <> 0 then
-        Warnlog "Something is wrong ! Perhaps the frame is still in the table!"
-    end if
-    
-    'Set focus to frame
-    Call wTypeKeys "<Tab>"
-    Sleep 1
-    
-    'if the frame is in the table, the focus should be in the table
-    Call wTypeKeys "<ESCape>"
-    Sleep 1
-    
-    try
-        Call fFormatTable("TabTabelle")
-        TabTabelle.Cancel
-        Warnlog "The frame should be in the table!"
-    catch
-    endcatch
-    
-    printlog " Close active document "
-    Do Until GetDocumentCount = 0
-        Call hCloseDocument
-    Loop
-
-endcase
-
-'-----------------------------------------------------------------
-
-testcase tTextframes_61
-
-    Dim sTestFile   as String
-    Dim iVertical   as Integer
-    Dim sVerticalBy as String
-    Dim sPositionY1 as String
-    Dim sPositionY2 as String
-    
-    sTestFile    = Convertpath (gTesttoolpath + "writer\optional\input\textframe\frameInFooter.sxw")
-    iVertical    = 4 'From top
-    sVerticalBy  = "-50"
-    
-    printlog "- Exceeding layout environment at the top - 'Follow text flow'(ON , footer)"
-    '/// Exceeding layout environment at the top - 'Follow text flow'(ON , footer)
-    
-    Call hNewDocument
-    
-    '/// Open a test file , which includes a frame in footer and
-    '/// + a picture which is anchored to frame
-    hFileOpenLocally( sTestFile )
-    
-    
-    'Set focus to the picture
-    Call wTypeKeys ( "<Shift F4>" )
-    Sleep 1
-    Call wTypeKeys "<Tab>"
-    Sleep 1
-    
-    'Get the pic Y position
-    FormatAnchorToPage
-    Sleep 1
-    Call fPositionAndSize("TabPositionAndSizeWriter")
-    sPositionY1 = Verticalby.Gettext
-    TabPositionAndSizeWriter.Cancel
-    
-    FormatAnchorToFrame
-    Sleep 1
-    
-    '/// Set focus to the frame
-    Call wTypeKeys "<Tab>"
-    Sleep 1
-    
-    '/// Format/Frame / Type ,
-    '/// + Check box 'Follow text flow'
-    '/// + set a much bigger values in from top
-    Call fFormatFrame("TabType")
-    FollowTextflow.Check
-    Vertical.Select  iVertical
-    Sleep 1
-    VerticalBy.SetText sVerticalBy
-    Sleep 1
-    TabType.OK
-    
-    'Set focus to picture
-    Call wTypeKeys "<Tab>"
-    Sleep 1
-    
-    'Get the pic Y position
-    FormatAnchorToPage
-    Sleep 1
-    Call fPositionAndSize("TabPositionAndSizeWriter")
-    sPositionY2 = Verticalby.Gettext
-    TabPositionAndSizeWriter.Cancel
-    
-    '/// Check if frame is still in the header
-    if fCalculateTolerance( sPositionY1, sPositionY2) > 0.8 then
-        Warnlog "Something is wrong ! Perhaps the frame isn't in the footer!"
-    end if
-    
-    printlog " Close active document "
-    Do Until GetDocumentCount = 0
-        Call hCloseDocument
-    Loop
-
-endcase
-
-'-----------------------------------------------------------------
-
-testcase tTextframes_62
-
-    Dim sTestFile   as String
-    Dim iVertical   as Integer
-    Dim sVerticalBy as String
-    Dim sPositionY1 as String
-    Dim sPositionY2 as String
-    
-    sTestFile    = Convertpath (gTesttoolpath + "writer\optional\input\textframe\frameInFooter.sxw")
-    iVertical    = 4 'From top
-    sVerticalBy  = "-50"
-    
-    printlog "- Exceeding layout environment at the top - 'Follow text flow'(OFF , footer)"
-    '/// Exceeding layout environment at the top - 'Follow text flow'(OFF , footer)
-    
-    Call hNewDocument
-    
-    '/// Open a test file , which includes a frame in footer and
-    '/// + a picture which is anchored to frame
-    hFileOpenLocally( sTestFile )
-    
-    
-    'Set focus to the picture
-    Call wTypeKeys ( "<Shift F4>" )
-    Sleep 1
-    Call wTypeKeys "<Tab>"
-    Sleep 1
-    
-    'Get the pic Y position
-    FormatAnchorToPage
-    Sleep 1
-    Call fPositionAndSize("TabPositionAndSizeWriter")
-    sPositionY1 = Verticalby.Gettext
-    TabPositionAndSizeWriter.Cancel
-    
-    FormatAnchorToFrame
-    Sleep 1
-    
-    '/// Set focus to the frame
-    Call wTypeKeys "<Tab>"
-    Sleep 1
-    
-    '/// Format/Frame / Type ,
-    '/// + UnCheck box 'Follow text flow'
-    '/// + set a much bigger values in from top
-    Call fFormatFrame("TabType")
-    FollowTextflow.UnCheck
-    Vertical.Select  iVertical
-    Sleep 1
-    VerticalBy.SetText sVerticalBy
-    Sleep 1
-    TabType.OK
-    
-    'Set focus to picture
-    Call wTypeKeys "<Tab>"
-    Sleep 1
-    
-    'Get the pic Y position
-    FormatAnchorToPage
-    Sleep 1
-    Call fPositionAndSize("TabPositionAndSizeWriter")
-    sPositionY2 = Verticalby.Gettext
-    TabPositionAndSizeWriter.Cancel
-    
-    '/// Check if frame is still in the header
-    if fCalculateTolerance( sPositionY1, sPositionY2 ) < 18 then
-        Warnlog "Something is wrong ! Perhaps the frame is still in the footer!"
-    end if
-    
-    printlog " Close active document "
-    Do Until GetDocumentCount = 0
-        Call hCloseDocument
-    Loop
-
-endcase
-
-'-----------------------------------------------------------------
-
-testcase tTextframes_63
-
-    Dim sTestFile     as String
-    Dim iHorizontal   as Integer
-    Dim sHorizontalBy as String
-    Dim sPositionX1   as String
-    Dim sPositionX2   as String
-    
-    sTestFile      = Convertpath (gTesttoolpath + "writer\optional\input\textframe\frameInTable.sxw")
-    iHorizontal    = 4 'From Left
-    sHorizontalBy  = "-50"
-    
-    printlog "- Exceeding layout environment at the left - 'Follow text flow'(ON , table)"
-    '/// Exceeding layout environment at the left - 'Follow text flow'(ON , table)
-    
-    Call hNewDocument
-    
-    '/// Open a test file , which includes a frame in table and
-    '/// + a picture which is anchored to frame
-    hFileOpenLocally( sTestFile )
-    
-    
-    'Set focus to the picture
-    Call wTypeKeys ( "<Shift F4>" )
-    Sleep 1
-	Call wTypeKeys ( "<Tab>" )
-    
-    'Get the pic X position
-    Sleep 1
-    Call fFormatGraphic("TabType")
-    sPositionX1 = Horizontalby.Gettext
-    TabType.Cancel
-   
-    FormatAnchorToFrame
-    Sleep 1
-    
-    '/// Set focus to the frame
-    Call wTypeKeys "<Tab>"
-    Sleep 1
-    
-    '/// Format/Frame / Type ,
-    '/// + Check box 'Follow text flow'
-    '/// + set a much bigger values in from left
-    Call fFormatFrame("TabType")
-    FollowTextflow.Check
-    Horizontal.Select iHorizontal
-    Sleep 1
-    HorizontalBy.SetText sHorizontalBy
-    Sleep 1
-    TabType.OK
-    
-    'Set focus to picture
-    Call wTypeKeys "<Tab>"
-    Sleep 1
-    
-    'Get the pic X position
-    Sleep 1
-    Call fFormatGraphic("TabType")
-    sPositionX2 = Horizontalby.Gettext
-    TabType.Cancel
-    
-    '/// Check if frame is still in the table
-    if fCalculateTolerance( sPositionX1, sPositionX2) > 0.3 then
-        Warnlog "Something is wrong ! Perhaps the frame isn't in the table!"
-    end if
-    
-    'Set focus to frame
-    Call wTypeKeys "<Tab>"
-    Sleep 1
-    
-    'if the frame is in the table, the focus should be in the table
-    Call wTypeKeys "<ESCape>"
-    Sleep 1
-    
-    try
-        Call fFormatTable("TabTabelle")
-        TabTabelle.Cancel
-    catch
-        Warnlog "The frame isn't in the table!"
-    endcatch
-    
-    printlog " Close active document "
-    Do Until GetDocumentCount = 0
-        Call hCloseDocument
-    Loop
-
-endcase
-
-'-----------------------------------------------------------------
-
-testcase tTextframes_64
-
-    Dim sTestFile     as String
-    Dim iHorizontal   as Integer
-    Dim sHorizontalBy as String
-    Dim sPositionX1   as String
-    Dim sPositionX2   as String
-    
-    sTestFile      = Convertpath (gTesttoolpath + "writer\optional\input\textframe\frameInTable.sxw")
-    iHorizontal    = 4 'From Left
-    sHorizontalBy  = "-50"
-    
-    printlog "- Exceeding layout environment at the left - 'Follow text flow'(OFF , table)"
-    '/// Exceeding layout environment at the left - 'Follow text flow'(OFF , table)
-    
-    Call hNewDocument
-    
-    '/// Open a test file , which includes a frame in table and
-    '/// + a picture which is anchored to frame
-    hFileOpenLocally( sTestFile )
-    
-    
-    'Set focus to the picture
-    Call wTypeKeys ( "<Shift F4>" )
-    Sleep 1
-	Call wTypeKeys ( "<Tab>" )
-    
-    'Get the pic Y position
-    Sleep 1
-    Call fFormatGraphic("TabType")
-    sPositionX1 = Horizontalby.Gettext
-    TabType.Cancel
-    
-    FormatAnchorToFrame
-    Sleep 1
-    
-    '/// Set focus to the frame
-    Call wTypeKeys "<Tab>"
-    Sleep 1
-    
-    '/// Format/Frame / Type ,
-    '/// + UnCheck box 'Follow text flow'
-    '/// + set a much bigger values in from left
-    Call fFormatFrame("TabType")
-    FollowTextflow.UnCheck
-    Horizontal.Select iHorizontal
-    Sleep 1
-    HorizontalBy.SetText sHorizontalBy
-    Sleep 1
-    TabType.OK
-    
-    'Set focus to picture
-    Call wTypeKeys "<Tab>"
-    Sleep 1
-    
-    'Get the pic X position
-    Sleep 1
-    Call fFormatGraphic("TabType")
-    sPositionX2 = Horizontalby.Gettext
-    TabType.Cancel
-    
-    '/// Check if frame is still in the table
-    if fCalculateTolerance( sPositionX1, sPositionX2) <> 0 then
-        Warnlog "Something is wrong ! Perhaps the frame is still in the table!"
-    end if
-    
-    'Set focus to frame
-    Call wTypeKeys "<Tab>"
-    Sleep 1
-    
-    'if the frame is in the table, the focus should be in the table
-    Call wTypeKeys "<ESCape>"
-    Sleep 1
-    
-    try
-        Call fFormatTable("TabTabelle")
-        TabTabelle.Cancel
-        Warnlog "The frame shouldn't in the table!"
-    catch
-    endcatch
-    
-    printlog " Close active document "
-    Do Until GetDocumentCount = 0
-        Call hCloseDocument
-    Loop
-
-endcase
-
-'-----------------------------------------------------------------
-
-testcase tTextframes_65
-
-	Dim sTestFile     as String
-    Dim iHorizontal   as Integer
-    Dim sHorizontalBy as String
-    Dim sPositionX1   as String
-    Dim sPositionX2   as String
-    
-    sTestFile      = Convertpath (gTesttoolpath + "writer\optional\input\textframe\frameInFrame.sxw")
-    iHorizontal    = 4 'From Left
-    sHorizontalBy  = "-50"
-    
-    printlog "- Exceeding layout environment at the left - 'Follow text flow'(ON , Frame)"
-    '/// Exceeding layout environment at the left - 'Follow text flow'(ON , Frame)
-    
-    Call hNewDocument
-    
-    '/// Open a test file , which includes 2 frames ,
-    '/// Frame A is anchored Frame B
-    '/// + a picture which is anchored to Frame A
-    hFileOpenLocally( sTestFile )
-    
-    
-    'Set focus to the picture
-    Call wTypeKeys ( "<Shift F4>" )
-    Sleep 1
-    Call wTypeKeys "<Tab>"
-    Sleep 1
-    
-    'Get the pic X position
-    FormatAnchorToPage
-    Sleep 1
-    Call fPositionAndSize("TabPositionAndSizeWriter")
-    sPositionX1 = Horizontalby.Gettext
-    TabPositionAndSizeWriter.Cancel
-    
-    FormatAnchorToFrame
-    Sleep 1
-    
-    '/// Set focus to the frame
-    Call wTypeKeys "<Tab>" , 2
-    Sleep 1
-    
-    '/// Format/Frame / Type ,
-    '/// + Check box 'Follow text flow'
-    '/// + set a much bigger values in from left
-    Call fFormatFrame("TabType")
-    FollowTextflow.Check
-    Horizontal.Select iHorizontal
-    Sleep 1
-    HorizontalBy.SetText sHorizontalBy
-    Sleep 1
-    TabType.OK
-    
-    'Set focus to picture
-    Call wTypeKeys "<Tab>"
-    Sleep 1
-    
-    'Get the pic X position
-    FormatAnchorToPage
-    Sleep 1
-    Call fPositionAndSize("TabPositionAndSizeWriter")
-    sPositionX2 = Horizontalby.Gettext
-    TabPositionAndSizeWriter.Cancel
-    
-    '/// Check if frame is still in the frame
-    if fCalculateTolerance( sPositionX1, sPositionX2) > 0.5 then
-        Warnlog "Something is wrong ! Perhaps the frame A isn't in frame B!"
-    end if
-    
-    printlog " Close active document "
-    Do Until GetDocumentCount = 0
-        Call hCloseDocument
-    Loop
-
-endcase
-
-'-----------------------------------------------------------------
-
-testcase tTextframes_66
-
-    Dim sTestFile     as String
-    Dim iHorizontal   as Integer
-    Dim sHorizontalBy as String
-    Dim sPositionX1   as String
-    Dim sPositionX2   as String
-    
-    sTestFile      = Convertpath (gTesttoolpath + "writer\optional\input\textframe\frameInFrame.sxw")
-    iHorizontal    = 4 'From Left
-    sHorizontalBy  = "-50"
-    
-    printlog "- Exceeding layout environment at the left - 'Follow text flow'(OFF , Frame)"
-    '/// Exceeding layout environment at the left - 'Follow text flow'(OFF , Frame)
-    
-    Call hNewDocument
-    
-    '/// Open a test file , which includes 2 frames ,
-    '/// Frame A is anchored Frame B
-    '/// + a picture which is anchored to Frame A
-    hFileOpenLocally( sTestFile )
-    
-    
-    'Set focus to the picture
-    Call wTypeKeys ( "<Shift F4>" )
-    Sleep 1
-    Call wTypeKeys "<Tab>"
-    Sleep 1
-    
-    'Get the pic X position
-    FormatAnchorToPage
-    Sleep 1
-    Call fPositionAndSize("TabPositionAndSizeWriter")
-    sPositionX1 = Horizontalby.Gettext
-    TabPositionAndSizeWriter.Cancel
-    
-    FormatAnchorToFrame
-    Sleep 1
-    
-    '/// Set focus to the frame
-    Call wTypeKeys "<Tab>" , 2
-    Sleep 1
-    
-    '/// Format/Frame / Type ,
-    '/// + UnCheck box 'Follow text flow'
-    '/// + set a much bigger values in from left
-    Call fFormatFrame("TabType")
-    FollowTextflow.UnCheck
-    Horizontal.Select iHorizontal
-    Sleep 1
-    HorizontalBy.SetText sHorizontalBy
-    Sleep 1
-    TabType.OK
-    
-    'Set focus to picture
-    Call wTypeKeys "<Tab>"
-    Sleep 1
-    
-    'Get the pic X position
-    FormatAnchorToPage
-    Sleep 1
-    Call fPositionAndSize("TabPositionAndSizeWriter")
-    sPositionX2 = Horizontalby.Gettext
-    TabPositionAndSizeWriter.Cancel
-    
-    '/// Check if frame is still in the frame
-    if fCalculateTolerance( sPositionX1, sPositionX2) > 0.5 then
-        Warnlog "Something is wrong ! Perhaps the frame A isn't in frame B!"
-    end if
-    
-    printlog " Close active document "
-    Do Until GetDocumentCount = 0
-        Call hCloseDocument
-    Loop
-
-endcase
-
-'-----------------------------------------------------------------
-
-testcase tTextframes_67
-
-    Dim sTestFile     as String
-    Dim iHorizontal   as Integer
-    Dim sHorizontalBy as String
-    Dim sPositionX1   as String
-    Dim sPositionX2   as String
-    
-    sTestFile      = Convertpath (gTesttoolpath + "writer\optional\input\textframe\frameInTable.sxw")
-    iHorizontal    = 4 'From Left
-    sHorizontalBy  = "50"
-    
-    printlog "- Exceeding layout environment at the right - 'Follow text flow'(ON , table)"
-    '/// Exceeding layout environment at the right - 'Follow text flow'(ON , table)
-    
-    Call hNewDocument
-    
-    '/// Open a test file , which includes a frame in table and
-    '/// + a picture which is anchored to frame
-    hFileOpenLocally( sTestFile )
-    
-    
-    'Set focus to the picture
-    Call wTypeKeys ( "<Shift F4>" )
-    Sleep 1
-	Call wTypeKeys ( "<Tab>" )
-    
-    'Get the pic X position
-    Sleep 1
-    Call fFormatGraphic("TabType")
-    sPositionX1 = Horizontalby.Gettext
-    TabType.Cancel
-    
-    FormatAnchorToFrame
-    Sleep 1
-    
-    '/// Set focus to the frame
-    Call wTypeKeys "<Tab>"
-    Sleep 1
-    
-    '/// Format/Frame / Type ,
-    '/// + Check box 'Follow text flow'
-    '/// + set a much bigger values in from left
-    Call fFormatFrame("TabType")
-    FollowTextflow.Check
-    Horizontal.Select iHorizontal
-    Sleep 1
-    HorizontalBy.SetText sHorizontalBy
-    Sleep 1
-    TabType.OK
-    
-    'Set focus to picture
-    Call wTypeKeys "<Tab>"
-    Sleep 1
-    
-    'Get the pic X position
-    Sleep 1
-    Call fFormatGraphic("TabType")
-    sPositionX2 = Horizontalby.Gettext
-    TabType.Cancel
-    
-    '/// Check if frame is still in the table
-    if fCalculateTolerance( sPositionX1, sPositionX2) > 1 then
-        Warnlog "Something is wrong ! Perhaps the frame isn't in the table!"
-    end if
-    
-    'Set focus to frame
-    Call wTypeKeys "<Tab>"
-    Sleep 1
-    
-    'if the frame is in the table, the focus should be in the table
-    Call wTypeKeys "<ESCape>"
-    Sleep 1
-    
-    try
-        Call fFormatTable("TabTabelle")
-        TabTabelle.Cancel
-    catch
-        Warnlog "The frame isn't in the table!"
-    endcatch
-    
-    printlog " Close active document "
-    Do Until GetDocumentCount = 0
-        Call hCloseDocument
-    Loop
-
-endcase
-
-'-----------------------------------------------------------------
-
-testcase tTextframes_68
-
-    Dim sTestFile     as String
-    Dim iHorizontal   as Integer
-    Dim sHorizontalBy as String
-    Dim sPositionX1   as String
-    Dim sPositionX2   as String
-    
-    sTestFile      = Convertpath (gTesttoolpath + "writer\optional\input\textframe\frameInTable.sxw")
-    iHorizontal    = 4 'From Left
-    sHorizontalBy  = "50"
-    
-    printlog "- Exceeding layout environment at the right - 'Follow text flow'(OFF , table)"
-    '/// Exceeding layout environment at the right - 'Follow text flow'(OFF , table)
-    
-    Call hNewDocument
-    
-    '/// Open a test file , which includes a frame in table and
-    '/// + a picture which is anchored to frame
-    hFileOpenLocally( sTestFile )
-    
-    
-    'Set focus to the picture
-    Call wTypeKeys ( "<Shift F4>" )
-    Sleep 1
-	Call wTypeKeys ( "<Tab>" )
-    
-    'Get the pic Y position
-    Sleep 1
-    Call fFormatGraphic("TabType")
-    sPositionX1 = Horizontalby.Gettext
-    TabType.Cancel
-    
-    FormatAnchorToFrame
-    Sleep 1
-    
-    '/// Set focus to the frame
-    Call wTypeKeys "<Tab>"
-    Sleep 1
-    
-    '/// Format/Frame / Type ,
-    '/// + UnCheck box 'Follow text flow'
-    '/// + set a much bigger values in from left
-    Call fFormatFrame("TabType")
-    FollowTextflow.UnCheck
-    Horizontal.Select iHorizontal
-    Sleep 1
-    HorizontalBy.SetText sHorizontalBy
-    Sleep 1
-    TabType.OK
-    
-    'Set focus to picture
-    Call wTypeKeys "<Tab>"
-    Sleep 1
-    
-    'Get the pic X position
-    Sleep 1
-    Call fFormatGraphic("TabType")
-    sPositionX2 = Horizontalby.Gettext
-    TabType.Cancel
-    
-    '/// Check if frame is still in the table
-    if fCalculateTolerance( sPositionX1, sPositionX2) <> 0 then
-        Warnlog "Something is wrong ! Perhaps the frame is still in the table!"
-    end if
-    
-    'Set focus to frame
-    Call wTypeKeys "<Tab>"
-    Sleep 1
-    
-    'if the frame is in the table, the focus should be in the table
-    Call wTypeKeys "<ESCape>"
-    Sleep 1
-    
-    try
-        Call fFormatTable("TabTabelle")
-        TabTabelle.Cancel
-        Warnlog "The frame shouldn't in the table!"
-    catch
-    endcatch
-    
-    printlog " Close active document "
-    Do Until GetDocumentCount = 0
-        Call hCloseDocument
-    Loop
-
-endcase
-
-'-----------------------------------------------------------------
-
-testcase tTextframes_69
-
-    Dim sTestFile     as String
-    Dim iHorizontal   as Integer
-    Dim sHorizontalBy as String
-    Dim sPositionX1   as String
-    Dim sPositionX2   as String
-    
-    sTestFile      = Convertpath (gTesttoolpath + "writer\optional\input\textframe\frameInFrame.sxw")
-    iHorizontal    = 4 'From Left
-    sHorizontalBy  = "50"
-    
-    printlog "- Exceeding layout environment at the right - 'Follow text flow'(ON , Frame)"
-    '/// Exceeding layout environment at the right - 'Follow text flow'(ON , Frame)
-    
-    Call hNewDocument
-    
-    '/// Open a test file , which includes 2 frames ,
-    '/// Frame A is anchored Frame B
-    '/// + a picture which is anchored to Frame A
-    hFileOpenLocally( sTestFile )
-    
-    
-    'Set focus to the picture
-    Call wTypeKeys ( "<Shift F4>" )
-    Sleep 1
-    Call wTypeKeys "<Tab>"
-    Sleep 1
-    
-    'Get the pic X position
-    FormatAnchorToPage
-    Sleep 1
-    Call fPositionAndSize("TabPositionAndSizeWriter")
-    sPositionX1 = Horizontalby.Gettext
-    TabPositionAndSizeWriter.Cancel
-    
-    FormatAnchorToFrame
-    Sleep 1
-    
-    '/// Set focus to the frame
-    Call wTypeKeys "<Tab>" , 2
-    Sleep 1
-    
-    '/// Format/Frame / Type ,
-    '/// + Check box 'Follow text flow'
-    '/// + set a much bigger values in from left
-    Call fFormatFrame("TabType")
-    FollowTextflow.Check
-    Horizontal.Select iHorizontal
-    Sleep 1
-    HorizontalBy.SetText sHorizontalBy
-    Sleep 1
-    TabType.OK
-    
-    'Set focus to picture
-    Call wTypeKeys "<Tab>"
-    Sleep 1
-    
-    'Get the pic X position
-    FormatAnchorToPage
-    Sleep 1
-    Call fPositionAndSize("TabPositionAndSizeWriter")
-    sPositionX2 = Horizontalby.Gettext
-    TabPositionAndSizeWriter.Cancel
-    
-    '/// Check if frame is still in the frame
-    if fCalculateTolerance( sPositionX1, sPositionX2) > 0.5 then
-        Warnlog "Something is wrong ! Perhaps the frame A isn't in frame B!"
-    end if
-    
-    printlog " Close active document "
-    Do Until GetDocumentCount = 0
-        Call hCloseDocument
-    Loop
-
-endcase
-
-'-----------------------------------------------------------------
-
-testcase tTextframes_70
-
-    Dim sTestFile     as String
-    Dim iHorizontal   as Integer
-    Dim sHorizontalBy as String
-    Dim sPositionX1   as String
-    Dim sPositionX2   as String
-    
-    sTestFile      = Convertpath (gTesttoolpath + "writer\optional\input\textframe\frameInFrame.sxw")
-    iHorizontal    = 4 'From Left
-    sHorizontalBy  = "50"
-    
-    printlog "- Exceeding layout environment at the left - 'Follow text flow'(OFF , Frame)"
-    '/// Exceeding layout environment at the left - 'Follow text flow'(OFF , Frame)
-    
-    Call hNewDocument
-    
-    '/// Open a test file , which includes 2 frames ,
-    '/// Frame A is anchored Frame B
-    '/// + a picture which is anchored to Frame A
-    hFileOpenLocally( sTestFile )
-    
-    
-    'Set focus to the picture
-    Call wTypeKeys ( "<Shift F4>" )
-    Sleep 1
-    Call wTypeKeys "<Tab>"
-    Sleep 1
-    
-    'Get the pic X position
-    FormatAnchorToPage
-    Sleep 1
-    Call fPositionAndSize("TabPositionAndSizeWriter")
-    sPositionX1 = Horizontalby.Gettext
-    TabPositionAndSizeWriter.Cancel
-    
-    FormatAnchorToFrame
-    Sleep 1
-    
-    '/// Set focus to the frame
-    Call wTypeKeys "<Tab>" , 2
-    Sleep 1
-    
-    '/// Format/Frame / Type ,
-    '/// + UnCheck box 'Follow text flow'
-    '/// + set a much bigger values in from left
-    Call fFormatFrame("TabType")
-    FollowTextflow.UnCheck
-    Horizontal.Select iHorizontal
-    Sleep 1
-    HorizontalBy.SetText sHorizontalBy
-    Sleep 1
-    TabType.OK
-    
-    'Set focus to picture
-    Call wTypeKeys "<Tab>"
-    Sleep 1
-    
-    'Get the pic X position
-    FormatAnchorToPage
-    Sleep 1
-    Call fPositionAndSize("TabPositionAndSizeWriter")
-    sPositionX2 = Horizontalby.Gettext
-    TabPositionAndSizeWriter.Cancel
-    
-    '/// Check if frame is still in the table
-    if fCalculateTolerance( sPositionX1, sPositionX2) < 3 then
-        Warnlog "Something is wrong ! Perhaps the frame A isn't in frame B!"
-    end if
-    
-    printlog " Close active document "
-    Do Until GetDocumentCount = 0
-        Call hCloseDocument
-    Loop
-
-endcase
-
-'-----------------------------------------------------------------
diff --git a/testautomation/writer/optional/includes/textframes/w_textframes5.inc b/testautomation/writer/optional/includes/textframes/w_textframes5.inc
deleted file mode 100644
index 7bcba8594a9c..000000000000
--- a/testautomation/writer/optional/includes/textframes/w_textframes5.inc
+++ /dev/null
@@ -1,739 +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 : helge.delfs@oracle.com
-'*
-'* short description : Test of textframe - 5
-'*
-'\***********************************************************************
-
-sub w_textframes5
-
-    Call tTextframes_71         'Test negative value in Horizontal and vertical
-    Call tTextframes_72         ''Vertical to' when anchor is inside frame
-    Call tTextframes_73         ''Vertical to' when anchor is inside document body
-    Call tTextframes_74         ''Vertical to' when anchor is inside table cell
-    Call tTextframes_75         ''Vertical to' when anchor is inside header
-    Call tTextframes_76         ''Vertical to' when anchor is inside footer
-    Call tTextframes_77         ''Vertical to' when anchor is inside Footnote
-    Call tTextframes_78         ''Vertical to' when anchor is inside endnote
-    Call tTextframes_80         'Line of text - Top
-    Call tTextframes_81         'Line of text - Bottom
-    Call tTextframes_82         'Line of text - Center
-    Call tTextframes_83         'Line of text - From Bottom (positive)
-    Call tTextframes_84         'Line of text - From Bottom (negative)
-    Call tTextframes_85         'Import from MS Word
-
-end sub
-
-'---------------------------------------------------
-
-testcase tTextframes_71
-
-    Dim iVertical     as Integer
-    Dim sVerticalBy   as String
-    Dim iHorizontal   as Integer
-    Dim sHorizontalBy as String
-    
-    iHorizontal    = 4 'From Left
-    sHorizontalBy  = "-1"+ gSeperator + "00" + gMeasurementUnit
-    iVertical      = 4 'From top
-    sVerticalBy    = "-1"+ gSeperator + "50" + gMeasurementUnit
-    
-    printlog "- Test negative value in Horizontal and vertical"
-    '/// Test negative value in Horizontal and vertical
-    
-    Call hNewDocument
-    
-    '/// insert a frame
-    '/// + Set Horizontal as "from top" ,
-    '/// + set Horizontal by to -1cm ,
-    '/// + set Vertical as "from Left" ,
-    '/// + set vertical by to -1.5cm
-    InsertFrame
-    Kontext
-    Active.Setpage TabType
-    Kontext "TabType"
-    Horizontal.Select    iHorizontal
-    Sleep 1
-    HorizontalBy.SetText sHorizontalBy
-    Sleep 1
-    Vertical.Select      iVertical
-    Sleep 1
-    VerticalBy.SetText   sVerticalBy
-    Sleep 1
-    TabType.Ok
-    
-    '/// Check if the configuration is effective
-    '/// Format/Frame / Type ,
-    Call fFormatFrame("TabType")
-    
-    if fCalculateTolerance( HorizontalBy.GetText, sHorizontalBy ) > 0.2 then
-        Warnlog "Something wrong in Horizontal by !"
-    end if
-    if fCalculateTolerance( VerticalBy.GetText, sVerticalBy ) > 0.2 then
-        Warnlog "Something wrong in Vertical by !"
-    end if
-    TabType.Cancel
-    
-    Call hCloseDocument
-
-endcase
-
-'-----------------------------------------------------------------
-
-testcase tTextframes_72
-
-    printlog "- 'Vertical to' when anchor is inside frame"
-    '/// 'Vertical to' when anchor is inside frame
-    
-    Call hNewDocument
-    
-    '/// Open a test file , which includes 2 frames ,
-    '/// Frame A is anchored Frame B
-    hFileOpenLocally( gTesttoolpath + "writer\optional\input\textframe\frameInFrame.sxw" )
-    
-    'Set focus to Frame B
-    Call wTypeKeys ( "<Shift F4>" )
-    Sleep 1
-    
-    '/// Format/Frame / Type ,
-    '/// + Check if "Entire frame" and "Frame text area"
-    '/// + are in Vertical to area
-    Call fFormatFrame("TabType")
-    if HorizontalTo.GetSelIndex <> 3 then
-        Warnlog "Horizontal To should be 'Entire Frame' but get " & HorizontalTo.GetSelText
-    end if
-    if VerticalTo.GetSelIndex <> 2 then
-        Warnlog "Vertical To should be 'Frame Text Area' but get " & VerticalTo.GetSelText
-    end if
-    
-    TabType.Cancel
-    
-    printlog " Close active document "
-    Do Until GetDocumentCount = 0
-        Call hCloseDocument
-    Loop
-
-endcase
-
-'-----------------------------------------------------------------
-
-testcase tTextframes_73
-
-    printlog "- 'Vertical to' when anchor is inside document body"
-    '/// 'Vertical to' when anchor is inside document body
-    
-    Call hNewDocument
-    
-    '/// Open a test file , which includes 1 frame in the document body
-    hFileOpenLocally( gTesttoolpath & "writer\optional\input\textframe\frame.sxw" )
-    
-    '/// Set focus to Frame
-    Call wTypeKeys ( "<Shift F4>" )
-    Sleep 1
-    
-    '/// Format/Frame / Type ,
-    '/// + Check if "Entire page" and "Page text area"
-    '/// + are in Vertical to area
-    Call fFormatFrame("TabType")
-    if HorizontalTo.GetSelIndex <> 7 then
-        Warnlog "Horizontal To should be 'Entire Page' but get " & HorizontalTo.GetSelText
-    end if
-    if VerticalTo.GetSelIndex <> 4 then
-        Warnlog "Vertical To should be 'Page Text Area' but get " & VerticalTo.GetSelText
-    end if
-    TabType.Cancel
-    
-    printlog " Close active document "
-    Do Until GetDocumentCount = 0
-        Call hCloseDocument
-    Loop
-
-endcase
-
-'-----------------------------------------------------------------
-
-testcase tTextframes_74
-
-    printlog "- 'Vertical to' when anchor is inside table cell"
-    '/// 'Vertical to' when anchor is inside table cell
-    
-    Call hNewDocument
-    
-    '/// Open a test file , which includes 1 frame in the document body
-    hFileOpenLocally( gTesttoolpath + "writer\optional\input\textframe\frameInTable.sxw" )
-    
-    '/// Set focus to Frame
-    Call wTypeKeys ( "<Shift F4>" )
-    
-    '/// Format/Frame / Type ,
-    '/// + Check if "Entire page" and "Page text area"
-    '/// + are in Vertical to area
-    Call fFormatFrame("TabType")
-    if HorizontalTo.GetSelIndex <> 7 then
-        Warnlog "Horizontal To should be 'Entire Page' but get " & HorizontalTo.GetSelText
-    end if
-    if VerticalTo.GetSelIndex <> 4 then
-        Warnlog "Vertical To should be 'Page Text Area' but get " & VerticalTo.GetSelText
-    end if
-    TabType.Cancel
-    
-    printlog " Close active document "
-    Do Until GetDocumentCount = 0
-        Call hCloseDocument
-    Loop
-
-endcase
-
-'-----------------------------------------------------------------
-
-testcase tTextframes_75
-
-    printlog "- 'Vertical to' when anchor is inside header"
-    '/// 'Vertical to' when anchor is inside header
-    
-    Call hNewDocument
-    
-    '/// Open a test file , which includes 1 frame in the header
-    hFileOpenLocally( gTesttoolpath + "writer\optional\input\textframe\Header.sxw" )
-    
-    '/// Set focus to Frame
-    Call wTypeKeys ( "<Shift F4>" )
-    Sleep 1
-    
-    '/// Format/Frame / Type ,
-    '/// + Check if "Entire page" and "Page text area"
-    '/// + are in Vertical to area
-    Call fFormatFrame("TabType")
-    if HorizontalTo.GetSelIndex <> 7 then
-        Warnlog "Horizontal To should be 'Entire Page' but get " & HorizontalTo.GetSelText
-    end if
-    if VerticalTo.GetSelIndex <> 4 then
-        Warnlog "Vertical To should be 'Page Text Area' but get " & VerticalTo.GetSelText
-    end if
-    TabType.Cancel
-    
-    printlog " Close active document "
-    Do Until GetDocumentCount = 0
-        Call hCloseDocument
-    Loop
-
-endcase
-
-'-----------------------------------------------------------------
-
-testcase tTextframes_76
-
-    printlog "- 'Vertical to' when anchor is inside footer"
-    '/// 'Vertical to' when anchor is inside footer
-    
-    Call hNewDocument
-    
-    '/// Open a test file , which includes 1 frame in the footer
-    hFileOpenLocally( gTesttoolpath + "writer\optional\input\textframe\Footer.sxw" )
-    
-    '/// Set focus to Frame
-    Call wTypeKeys ( "<Shift F4>" )
-    Sleep 1
-    
-    '/// Format/Frame / Type ,
-    '/// + Check if "Entire page" and "Page text area"
-    '/// + are in Vertical to area
-    Call fFormatFrame("TabType")
-    if HorizontalTo.GetSelIndex <> 7 then
-        Warnlog "Horizontal To should be 'Entire Page' but get " & HorizontalTo.GetSelText
-    end if
-    if VerticalTo.GetSelIndex <> 4 then
-        Warnlog "Vertical To should be 'Page Text Area' but get " & VerticalTo.GetSelText
-    end if
-    TabType.Cancel
-    
-    printlog " Close active document "
-    Do Until GetDocumentCount = 0
-        Call hCloseDocument
-    Loop
-
-endcase
-
-'-----------------------------------------------------------------
-
-testcase tTextframes_77
-
-    printlog "- 'Vertical to' when anchor is inside Footnote"
-    '/// 'Vertical to' when anchor is inside Footnote
-    
-    Call hNewDocument
-    
-    '/// Open a test file , which includes 1 frame in the footnote
-    hFileOpen( gTesttoolpath & "writer\optional\input\textframe\frameInFootnote.sxw" )
-    
-    '/// Set focus to Frame
-    Call wTypeKeys ( "<Shift F4>" )
-    Sleep 1
-    
-    '/// Format/Frame / Type ,
-    '/// + Check if "Entire page" and "Page text area"
-    '/// + are in Vertical to area
-    Call fFormatFrame("TabType")
-    if HorizontalTo.GetSelIndex <> 7 then
-        Warnlog "Horizontal To should be 'Entire Page' but get " & HorizontalTo.GetSelText
-    end if
-    if VerticalTo.GetSelIndex <> 4 then
-        Warnlog "Vertical To should be 'Page Text Area' but get " & VerticalTo.GetSelText
-    end if
-    TabType.Cancel
-    
-    printlog " Close active document "
-    Do Until GetDocumentCount = 0
-        Call hCloseDocument
-    Loop
-
-endcase
-
-'-----------------------------------------------------------------
-
-testcase tTextframes_78
-
-    printlog "- 'Vertical to' when anchor is inside endnote"
-    '/// 'Vertical to' when anchor is inside endnote
-    
-    Call hNewDocument
-    
-    '/// Open a test file , which includes 1 frame in the endnote
-    hFileOpenLocally( gTesttoolpath & "writer\optional\input\textframe\frameInEndnote.sxw" )
-    
-    '/// Set focus to Frame
-    Call wTypeKeys ( "<Shift F4>" )
-    Sleep 1
-    
-    '/// Format/Frame / Type ,
-    '/// + Check if "Entire page" and "Page text area"
-    '/// + are in Vertical to area
-    Call fFormatFrame("TabType")
-    if HorizontalTo.GetSelIndex <> 7 then
-        Warnlog "Horizontal To should be 'Entire Page' but get " & HorizontalTo.GetSelText
-    end if
-    if VerticalTo.GetSelIndex <> 4 then
-        Warnlog "Vertical To should be 'Page Text Area' but get " & VerticalTo.GetSelText
-    end if
-    TabType.Cancel
-    
-    printlog " Close active document "
-    Do Until GetDocumentCount = 0
-        Call hCloseDocument
-    Loop
-
-endcase
-
-'-----------------------------------------------------------------
-
-testcase tTextframes_80
-
-    Dim sTestFile   as String
-    Dim iVertical   as Integer
-    Dim iVerticalTo as Integer
-    Dim sPositionY  as String
-    
-    sTestFile   = Convertpath (gTesttoolpath + "writer\optional\input\textframe\lineOfText.sxw")
-    iVertical   = 1    ' Top
-    iVerticalTo = 6    ' Line of text'
-    sPositionY  = "0"+ gSeperator + "20" + gMeasurementUnit
-    
-    printlog "- 'Line of text' - Top"
-    '/// 'Line of text' - Top
-    
-    Call hNewDocument
-    
-    '/// Open a test file , which includes 1 frame which is
-    '/// + anchored 'To Character' and a picture which is anchored
-    '/// + in the frame
-    hFileOpenLocally( sTestFile )
-    
-    '/// Set focus to Frame
-    Call wTypeKeys ( "<Shift F4>" )
-    Sleep 1
-    
-    '/// Format/Frame / Type , select Top in Vertical ,
-    '/// + select 'Line of text' in vertical to
-    Call fFormatFrame("TabType")
-    Vertical.Select iVertical
-    Sleep 1
-    VerticalTo.Select iVerticalTo
-    Sleep 1
-    TabType.OK
-    
-    '/// Check if the result is right
-    'Set focus to the picture
-    Call wTypeKeys "<Tab>"
-    FormatAnchorToPage
-    Sleep 1
-    Call fPositionAndSize("TabPositionAndSizeWriter")
-    if fCalculateTolerance( sPositionY, Verticalby.Gettext) > 0.3 then
-       Warnlog "The picture's position isn't right !"
-    end if
-    TabPositionAndSizeWriter.Cancel
-    
-    printlog " Close active document "
-    Do Until GetDocumentCount = 0
-        Call hCloseDocument
-    Loop
-
-endcase
-
-'-----------------------------------------------------------------
-
-testcase tTextframes_81
-
-    Dim sTestFile   as String
-    Dim iVertical   as Integer
-    Dim iVerticalTo as Integer
-    Dim sPositionY  as String
-    
-    sTestFile   = Convertpath (gTesttoolpath + "writer\optional\input\textframe\lineOfText.sxw")
-    iVertical   = 2    ' Bottom
-    iVerticalTo = 6    ' Line of text'
-    sPositionY  = "3"+ gSeperator + "50" + gMeasurementUnit
-    
-    printlog "- 'Line of text' - Bottom"
-    '/// 'Line of text' - Bottom
-    
-    Call hNewDocument
-    
-    '/// Open a test file , which includes 1 frame which is
-    '/// + anchored 'To Character' and a picture which is anchored
-    '/// + in the frame
-    hFileOpenLocally( sTestFile )
-    
-    '/// Set focus to Frame
-    Call wTypeKeys ( "<Shift F4>" )
-    Sleep 1
-    
-    '/// Format/Frame / Type , select Bottom in Vertical ,
-    '/// + select 'Line of text' in vertical to
-    Call fFormatFrame("TabType")
-    Vertical.Select iVertical
-    Sleep 1
-    VerticalTo.Select iVerticalTo
-    Sleep 1
-    TabType.OK
-    
-    '/// Check if the result is right
-    'Set focus to the picture
-    Call wTypeKeys "<Tab>"
-    FormatAnchorToPage
-    Sleep 1
-    Call fPositionAndSize("TabPositionAndSizeWriter")
-    if fCalculateTolerance( sPositionY, Verticalby.Gettext) > 0.3 then
-       Warnlog "The picture's position isn't right !"
-    end if
-    TabPositionAndSizeWriter.Cancel
-    
-    printlog " Close active document "
-    Do Until GetDocumentCount = 0
-        Call hCloseDocument
-    Loop
-
-endcase
-
-'-----------------------------------------------------------------
-
-testcase tTextframes_82
-
-    Dim sTestFile   as String
-    Dim iVertical   as Integer
-    Dim iVerticalTo as Integer
-    Dim sPositionY  as String
-    
-    sTestFile   = Convertpath (gTesttoolpath + "writer\optional\input\textframe\lineOfText.sxw")
-    iVertical   = 4    ' Center
-    iVerticalTo = 6    ' Line of text'
-    sPositionY  = "1"+ gSeperator + "80" + gMeasurementUnit
-    
-    printlog "- 'Line of text' - Center"
-    '/// 'Line of text' - Center
-    
-    Call hNewDocument
-    
-    '/// Open a test file , which includes 1 frame which is
-    '/// + anchored 'To Character' and a picture which is anchored
-    '/// + in the frame
-    hFileOpenLocally( sTestFile )
-    
-    '/// Set focus to Frame
-    Call wTypeKeys ( "<Shift F4>" )
-    Sleep 1
-    
-    '/// Format/Frame / Type , select Center in Vertical ,
-    '/// + select 'Line of text' in vertical to
-    Call fFormatFrame("TabType")
-    Vertical.Select iVertical
-    Sleep 1
-    VerticalTo.Select iVerticalTo
-    Sleep 1
-    TabType.OK
-    
-    '/// Check if the result is right
-    'Set focus to the picture
-    Call wTypeKeys "<Tab>"
-    FormatAnchorToPage
-    Sleep 1
-    Call fPositionAndSize("TabPositionAndSizeWriter")
-    if fCalculateTolerance( sPositionY, Verticalby.Gettext) > 0.3 then
-       Warnlog "The picture's position isn't right !"
-    end if
-    TabPositionAndSizeWriter.Cancel
-    
-    printlog " Close active document "
-    Do Until GetDocumentCount = 0
-        Call hCloseDocument
-    Loop
-
-endcase
-
-'-----------------------------------------------------------------
-
-testcase tTextframes_83
-
-    Dim sTestFile   as String
-    Dim iVertical   as Integer
-    Dim iVerticalTo as Integer
-    Dim sPositionY  as String
-    Dim sVerticalBy as String
-    
-    sTestFile   = Convertpath (gTesttoolpath + "writer\optional\input\textframe\lineOfText.sxw")
-    iVertical   = 6    ' From Bottom
-    iVerticalTo = 2    ' Line of text'
-    sPositionY  = "2"+ gSeperator + "30" + gMeasurementUnit
-    sVerticalBy = "1"+ gSeperator + "00" + gMeasurementUnit
-    
-    printlog "- 'Line of text' - From Bottom(positive)"
-    '/// 'Line of text' - From Bottom(positive)
-    
-    Call hNewDocument
-    
-    '/// Open a test file , which includes 1 frame which is
-    '/// + anchored 'To Character' and a picture which is anchored
-    '/// + in the frame
-    hFileOpenLocally( sTestFile )
-    
-    '/// Set focus to Frame
-    Call wTypeKeys ( "<Shift F4>" )
-    Sleep 1
-    
-    '/// Format/Frame / Type , select From Bottom in Vertical ,
-    '/// + select 'Line of text' in vertical to ,
-    '/// + input a positive number in vertical by
-    Call fFormatFrame("TabType")
-    if Vertical.GetItemCount <> 6 then
-        warnlog " Missing string in frame options"
-        TabType.Cancel
-        Call hCloseDocument
-        goto endsub
-    end if
-    Vertical.Select    iVertical
-    Sleep 1
-    VerticalTo.Select  iVerticalTo
-    Sleep 1
-    VerticalBy.SetText sVerticalBy
-    TabType.OK
-    
-    '/// Check if the result is right
-    'Set focus to the picture
-    Call wTypeKeys "<Tab>"
-    FormatAnchorToPage
-    Sleep 1
-    Call fPositionAndSize("TabPositionAndSizeWriter")
-    if fCalculateTolerance( sPositionY, Verticalby.Gettext) > 0.3 then
-       Warnlog "The picture's position isn't right !"
-    end if
-    TabPositionAndSizeWriter.Cancel
-    
-    printlog " Close active document "
-    Do Until GetDocumentCount = 0
-        Call hCloseDocument
-    Loop
-
-endcase
-
-'-----------------------------------------------------------------
-
-testcase tTextframes_84
-
-    Dim sTestFile   as String
-    Dim iVertical   as Integer
-    Dim iVerticalTo as Integer
-    Dim sPositionY  as String
-    Dim sVerticalBy as String
-    
-    sTestFile   = Convertpath (gTesttoolpath + "writer\optional\input\textframe\lineOfText.sxw")
-    iVertical   = 6    ' From Bottom
-    iVerticalTo = 2    ' Line of text'
-    sPositionY  = "4"+ gSeperator + "30" + gMeasurementUnit
-    sVerticalBy = "-1"+ gSeperator + "00" + gMeasurementUnit
-    
-    printlog "- 'Line of text' - From Bottom(negative)"
-    '/// 'Line of text' - From Bottom(negative)
-    
-    Call hNewDocument
-    
-    '/// Open a test file , which includes 1 frame which is
-    '/// + anchored 'To Character' and a picture which is anchored
-    '/// + in the frame
-    hFileOpenLocally( sTestFile )
-    
-    '/// Set focus to Frame
-    Call wTypeKeys ( "<Shift F4>" )
-    Sleep 1
-    
-    '/// Format/Frame / Type , select From Bottom in Vertical ,
-    '/// + select 'Line of text' in vertical to ,
-    '/// + input a negative number in vertical by
-    Call fFormatFrame("TabType")
-    if Vertical.GetItemCount <> 6 then
-        warnlog " Missing string in frame options"
-        TabType.Cancel
-        Call hCloseDocument
-        goto endsub
-    end if
-    Vertical.Select    iVertical
-    Sleep 1
-    VerticalTo.Select  iVerticalTo
-    Sleep 1
-    VerticalBy.SetText sVerticalBy
-    TabType.OK
-    
-    '/// Check if the result is right
-    'Set focus to the picture
-    Call wTypeKeys "<Tab>"
-    FormatAnchorToPage
-    Sleep 1
-    Call fPositionAndSize("TabPositionAndSizeWriter")
-    if fCalculateTolerance( sPositionY, Verticalby.Gettext) > 0.3 then
-       Warnlog "The picture's position isn't right !"
-    end if
-    TabPositionAndSizeWriter.Cancel
-    
-    printlog " Close active document "
-    Do Until GetDocumentCount = 0
-        Call hCloseDocument
-    Loop
-
-endcase
-
-'-----------------------------------------------------------------
-
-testcase tTextframes_85
-
-    Dim sTestFile       as String
-    Dim iVerticalTop    as Integer
-    Dim iVerticalBottom as Integer
-    Dim iVerticalCenter as Integer
-    Dim iVerticalTo     as Integer
-    
-    sTestFile       = Convertpath (gTesttoolpath + "writer\optional\input\textframe\lineOfText.doc")
-    iVerticalTop    = 1    ' Top
-    iVerticalBottom = 2    ' Bottom
-    iVerticalCenter = 4    ' Center
-    
-    iVerticalTo     = 6    ' Line of text'
-    
-    printlog "- Import from MS Word"
-    '/// Import from MS Word
-    
-    Call hNewDocument
-    
-    '/// Open a MS Word file , which includes 3 frames ,
-    '/// + One is top to the line text ,
-    '/// + another one is center to the line text ,
-    '/// + the 3rd one is bottom to the line text
-    hFileOpenLocally( sTestFile )
-    
-    '/// Set focus to 1st Frame
-    Call wTypeKeys ( "<Shift F4>" )
-    
-    '/// Format/Frame / Type , check if 'To character' in anchor area
-    '/// + check if 'Line of text' in vertical to ,
-    '/// + check if 'Top' in Vertical
-    Call fFormatFrame("TabType")
-    if AnchorAtCharacter.IsChecked <> TRUE then
-       Warnlog "The anchor should be To Character!"
-    end if
-    if Vertical.GetSelIndex <> iVerticalTop then
-       Warnlog "should be Top , but get " &Vertical.GetSelText
-    end if
-    if VerticalTo.GetSelIndex <> iVerticalTo then
-       Warnlog "Top:should be line of text , but get " &VerticalTo.GetSelText
-    end if
-    TabType.Cancel
-    
-    '/// Set focus to 2nd Frame
-    Call wTypeKeys "<Tab>"
-    Sleep 1
-    
-    '/// Format/Frame / Type , check if 'To character' in anchor area
-    '/// + check if 'Line of text' in vertical to ,
-    '/// + check if 'Center' in Vertical
-    Call fFormatFrame("TabType")
-    if AnchorAtCharacter.IsChecked <> TRUE then
-       Warnlog "The anchor should be To Character!"
-    end if
-    if Vertical.GetSelIndex <> iVerticalCenter then
-       Warnlog "should be Center , but get " &Vertical.GetSelText
-    end if
-    if VerticalTo.GetSelIndex <> iVerticalTo then
-       Warnlog "Center:should be line of text , but get " &VerticalTo.GetSelText
-    end if
-    TabType.Cancel
-    
-    '/// Set focus to 3rd Frame
-    Call wTypeKeys "<Tab>"
-    Sleep 1
-    
-    '/// Format/Frame / Type , check if 'To character' in anchor area
-    '/// + check if 'Line of text' in vertical to ,
-    '/// + check if 'Bottom' in Vertical
-    Call fFormatFrame("TabType")
-    if AnchorAtCharacter.IsChecked <> TRUE then
-       Warnlog "The anchor should be To Character!"
-    end if
-    if Vertical.GetSelIndex <> iVerticalBottom then
-       Warnlog "should be Bottom , but get " &Vertical.GetSelText
-    end if
-    if VerticalTo.GetSelIndex <> iVerticalTo then
-       Warnlog "Bottom:should be line of text , but get " &VerticalTo.GetSelText
-    end if
-    TabType.Cancel
-    
-    printlog " Close active document "
-    Do Until GetDocumentCount = 0
-        Call hCloseDocument
-    Loop
-
-endcase
-
-' ------------------------------------------------------------------------------
diff --git a/testautomation/writer/optional/includes/tools/tools1.inc b/testautomation/writer/optional/includes/tools/tools1.inc
deleted file mode 100755
index a2a1e04dc0ad..000000000000
--- a/testautomation/writer/optional/includes/tools/tools1.inc
+++ /dev/null
@@ -1,347 +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 : helge.delfs@oracle.com
-'*
-'* short description : Tools for writer/Optional - 1
-'*
-'\***********************************************************************
-
-
-'This routine is executing file/properties , then tabpage Options
-'*****************************************************************
-function fFileProperties(Options as string)
-
-    if ( hUseAsyncSlot( "FileProperties" ) <> -1 ) then
-
-        Kontext
-        if ( Active.exists( 2 ) ) then
-            Select case Options
-            case "TabDokument"        : active.SetPage TabDokument
-            case "TabBeschreibung"    : active.SetPage TabBeschreibung
-            case "TabBenutzer"        : active.SetPage TabBenutzer
-            case "TabInternet"        : active.SetPage TabInternet
-            case "TabStatistik"       : active.SetPage TabStatistik
-            end Select
-        else
-            warnlog( "<FileProperties> dialog not open" )
-        endif
-    else
-        warnlog( "Failed to execute <FileProperties>" )
-    endif
-
-    Kontext Options
-
-end function
-
-
-
-'*****************************************************************
-'This routine is executing format/graphic , then tabpage Options
-'*****************************************************************
-function fFormatGraphic(Options as string) as boolean
-    Dim j as integer, sSlotOK as boolean
-
-    fFormatGraphic = true
-    if ( hUseAsyncSlot( "FormatGraphics" ) <> -1 ) then
-        Kontext
-        if ( Active.exists( 2 ) ) then
-            Select case Options
-            case "TabType"                     : active.SetPage TabType
-            case "TabZusaetze"                 : active.SetPage TabZusaetze
-            case "TabUmlauf"                   : active.SetPage TabUmlauf
-            case "TabHyperlinkRahmen"          : active.SetPage TabHyperlinkRahmen
-            case "TabGrafik"                   : active.SetPage TabGrafik
-            case "TabZuschneiden"              : active.SetPage TabZuschneiden
-            case "TabUmrandung"                : active.SetPage TabUmrandung
-            case "TabHintergrund"              : active.SetPage TabHintergrund
-            case "TabMakro"
-                active.SetPage TabMakro
-                ' if no JRE is installed a messagebox appears
-                Do
-                    j = j + 1
-                    Kontext "Active"
-                    if Active.Exists then
-                        if Active.GetRT = 304 then
-                            if j = 1 then Warnlog Active.Gettext
-                            Active.Ok
-                        else
-                            exit do
-                        end if
-                    else
-                        exit do
-                    end if
-                Loop
-            end select
-        else
-            warnlog( "Failed to access <Format Graphics> Tabpage" )
-            fFormatGraphic = false
-        endif
-    else
-        warnlog( "Failed to execute <FormatGraphics>" )
-        fFormatGraphic = false
-    endif
-
-    Kontext Options
-
-end function
-
-
-
-'*****************************************************************
-'This routine is executing format/frame , then tabpage Options
-'****************************************************************
-function fFormatFrame(Options as string)
-
-    if ( hUseAsyncSlot( "FormatFrame" ) <> -1 ) then
-
-        Kontext
-        if ( Active.exists( 2 ) ) then
-            Select case Options
-            case "TabType"                     : active.SetPage TabType
-            case "TabZusaetze"                 : active.SetPage TabZusaetze
-            case "TabUmlauf"                   : active.SetPage TabUmlauf
-            case "TabHyperlinkRahmen"          : active.SetPage TabHyperlinkRahmen
-            case "TabUmrandung"                : active.SetPage TabUmrandung
-            case "TabHintergrund"              : active.SetPage TabHintergrund
-            case "TabSpalten"                  : active.SetPage TabSpalten
-            case "TabMakro"                    : active.SetPage TabMakro
-            end Select
-        else
-            warnlog( "<Format Frame> dialog did not open" )
-        endif
-    else
-        warnlog( "Failed to execute <FormatFrame>" )
-    endif
-
-    Kontext Options
-
-end function
-
-
-'*************************************************************************
-'This routine is executing format/page in writer , then tabpage Options
-'*************************************************************************
-function fFormatPageWriter(Options as string)
-
-    FormatPageWriter
-    Kontext
-
-    Select case Options
-    case "TabVerwalten"                : active.SetPage TabVerwalten
-    case "TabSeite"                    : active.SetPage TabSeite
-    case "TabHintergrund"              : active.SetPage TabHintergrund
-    case "TabKopfzeile"                : active.SetPage TabKopfzeile
-    case "TabFusszeile"                : active.SetPage TabFusszeile
-    case "TabUmrandung"                : active.SetPage TabUmrandung
-    case "TabSpalten"                  : active.SetPage TabSpalten
-    case "TabFussnote"                 : active.SetPage TabFussnote
-    case "TabGrid"                     : active.SetPage TabGrid
-    end Select
-
-    Kontext Options
-
-end function
-
-
-'*************************************************************************
-'This routine is executing format/paragraph in writer , then tabpage Options
-'*************************************************************************
-function fFormatParagraph(Options as string)
-
-    FormatParagraph
-    Kontext
-
-    Select case Options
-    case "TabEinzuegeUndAbstaende" : active.SetPage TabEinzuegeUndAbstaende
-    case "TabAusrichtungAbsatz"    : active.SetPage TabAusrichtungAbsatz
-    case "TabTextfluss"            : active.SetPage TabTextfluss
-    case "TabAsianTypography"      : active.SetPage TabAsianTypography
-    case "TabNumerierungAbsatz"    : active.SetPage TabNumerierungAbsatz
-    case "TabTabulatoren"          : active.SetPage TabTabulatoren
-    case "TabInitialen"            : active.SetPage TabInitialen
-    case "TabUmrandung"            : active.SetPage TabUmrandung
-    case "TabHintergrund"          : active.SetPage TabHintergrund
-    end Select
-
-    Kontext Options
-
-end function
-
-
-'*************************************************************************
-'This routine is executing format/character in writer , then tabpage Options
-'*************************************************************************
-function fFormatCharacter(Options as string)
-
-    FormatCharacter
-    Kontext
-
-    Select case Options
-    case "TabFont"                  : active.SetPage TabFont
-    case "TabFontEffects"           : active.SetPage TabFontEffects
-    case "TabFontPosition"          : active.SetPage TabFontPosition
-    case "TabAsianLayout"           : active.SetPage TabAsianLayout
-    case "TabHyperlinkZeichen"      : active.SetPage TabHyperlinkZeichen
-    case "TabHintergrund"           : active.SetPage TabHintergrund
-    end Select
-
-    Kontext Options
-
-end function
-
-
-
-'*************************************************************************
-'This routine is executing format/table in writer , then tabpage Options
-'*************************************************************************
-function fFormatTable(Options as string)
-
-    FormatTable
-    Kontext
-
-    Select case Options
-    case "TabTabelle"               : active.SetPage TabTabelle
-    case "TabTextflussTabelle"      : active.SetPage TabTextflussTabelle
-    case "TabSpaltenTabelle"        : active.SetPage TabSpaltenTabelle
-    case "TabUmrandung"             : active.SetPage TabUmrandung
-    case "TabHintergrund"           : active.SetPage TabHintergrund
-    end Select
-
-    Kontext Options
-
-end function
-
-
-'*************************************************************************
-'This routine is executing Format/Styles / Catalog in writer , then tabpage Options
-'*************************************************************************
-function fFormatStylesCatalog(Options as string)
-
-    FormatStylesCatalog
-    Kontext "VorlagenKatalog"
-
-    Select case Options
-    case "Paragraph"      : Vorlagen.Select 1
-    case "Character"      : Vorlagen.Select 2
-    case "Frame"          : Vorlagen.Select 3
-    case "Page"           : Vorlagen.Select 4
-    case "Numbering"      : Vorlagen.Select 5
-    end Select
-
-    Kontext Options
-
-end function
-
-
-'******************************************************************************
-'This routine is executing insert/fields/other in writer , then tabpage Options
-'*******************************************************************************
-function fInsertFieldsOther(Options as string)
-
-    InsertFieldsOther
-    Kontext
-
-    Select case Options
-    case "TabDokumentFeldbefehle"     : active.SetPage TabDokumentFeldbefehle
-    case "TabReferenzen"              : active.SetPage TabReferenzen
-    case "TabFunktionen"              : active.SetPage TabFunktionen
-    case "TabDokumentinfoFeldbefehle" : active.SetPage TabDokumentinfoFeldbefehle
-    case "TabVariablen"               : active.SetPage TabVariablen
-    case "TabDatenbank"               : active.SetPage TabDatenbank
-    end Select
-
-    Kontext Options
-
-end function
-
-
-'******************************************************
-'* insert a section with tabpage Options             **
-'******************************************************
-function fInsertSection(Options as string)
-
-    InsertSection
-
-    Kontext
-    if ( Active.exists( 2 ) ) then
-        Select case Options
-        case "TabBereiche"       : active.SetPage TabBereiche
-        case "TabSpalten"        : active.SetPage TabSpalten
-        case "TabSectionIndent"  : active.SetPage TabSectionIndent
-        case "TabHintergrund"    : active.SetPage TabHintergrund
-        case "TabFussEndnoten"   : active.SetPage TabFussEndnoten
-        end Select
-        waitslot()
-    else
-        warnlog( "Failed to open <Insert Section> dialog" )
-    endif
-
-    Kontext Options
-
-end function
-
-
-'*************************************************************************
-'This routine is executing Tools/AutoCorrect in writer , then tabpage Options
-'*************************************************************************
-function fToolsAutocorrect(Options as string)
-
-    Kontext
-    ToolsAutoCorrect
-
-    Select case Options
-    case "TabErsetzung"                : active.SetPage TabErsetzung
-    case "TabAusnahmen"                : active.SetPage TabAusnahmen
-    case "TabOptionenAutokorrektur"    : active.SetPage TabOptionenAutokorrektur
-    case "TabLocalizedOptions"         : active.SetPage TabLocalizedOptions
-    case "TabWortergaenzung"           : active.SetPage TabWortergaenzung
-    end Select
-
-    Kontext Options
-
-end function
-
-
-'******************************************************
-'* Open Format/Position and Size diglog with Options **
-'******************************************************
-function fPositionAndSize(Options as string)
-
-    Kontext
-    FormatPositionAndSize
-
-    Select case Options
-    case "TabPositionAndSizeWriter"  : active.SetPage TabPositionAndSizeWriter
-    case "TabDrehung"                : active.SetPage TabDrehung
-    case "TabSchraegstellen"         : active.SetPage TabSchraegstellen
-    end Select
-
-    Kontext Options
-
-end function
-
diff --git a/testautomation/writer/optional/includes/tools/tools2.inc b/testautomation/writer/optional/includes/tools/tools2.inc
deleted file mode 100755
index 899d30b62775..000000000000
--- a/testautomation/writer/optional/includes/tools/tools2.inc
+++ /dev/null
@@ -1,412 +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 : helge.delfs@oracle.com
-'*
-'* short description : Tools for writer/Optional - 2
-'*
-'\***********************************************************************
-
-function fStartupNavigator(navigatorItem as String , subItemNum as Integer)
-    '/// Start up Navigator , and set focus to the correct position
-    Dim j as Integer
-
-    Kontext "Navigator"
-    if NOT Navigator.Exists then
-        ViewNavigator
-    end if
-    Sleep 2
-    Kontext "NavigatorWriter"
-    if Auswahlliste.GetItemCount < 11 then
-        Inhaltsansicht.Click
-        Sleep 1
-    end if
-    Auswahlliste.TypeKeys "<Home>"         '<- Set focus to first entry
-    if Auswahlliste.GetItemCount > 11 then '<- If nodes are open
-        For j= 1 to 12                     '<- close all nodes
-            Auswahlliste.Select j
-            Sleep 1
-            Auswahlliste.TypeKeys "-"
-            Sleep 1
-        next j
-    end if
-    Auswahlliste.TypeKeys "<Home>"   ' point focus to first entry
-    sleep 3
-
-    Select case navigatorItem
-    case "Headings"        : goto GoON
-    case "Tables"          : Auswahlliste.TypeKeys "<down>"
-    case "TextFrame"       : Auswahlliste.TypeKeys "<down>" , 2
-    case "Graphics"        : Auswahlliste.TypeKeys "<down>" , 3
-    case "OLEObject"       : Auswahlliste.TypeKeys "<down>" , 4
-    case "Bookmarks"       : Auswahlliste.TypeKeys "<down>" , 5
-    case "Section"         : Auswahlliste.TypeKeys "<down>" , 6
-    case "Hyperlinks"      : Auswahlliste.TypeKeys "<down>" , 7
-    case "References"      : Auswahlliste.TypeKeys "<down>" , 8
-    case "Indexes"         : Auswahlliste.TypeKeys "<down>" , 9
-    case "Notes"           : Auswahlliste.TypeKeys "<down>" , 10
-    case "DrawObjects"     : Auswahlliste.TypeKeys "<down>" , 11
-    end Select
-    sleep 2
-    GoON:
-    Auswahlliste.TypeKeys "<return>"
-    sleep 2
-    Inhaltsansicht.Click
-    sleep 2
-    Auswahlliste.TypeKeys "<Up>",subItemNum
-    sleep 2
-end function
-
-'-------------------------------------------------------------------------
-
-function fCloseNavigator
-    Kontext "Navigator"
-    hCloseDialog( Navigator, "close" )
-end function
-
-'-------------------------------------------------------------------------
-
-function StrToDouble ( sWert$ ) as Double
-    '/// Transfer String to Double , including
-    '/// 2.00cm --> 2.00
-    '/// 2,00cm --> 2.00
-    '/// 20%    --> 20
-
-    dim sDummy$
-    dim i, i1, i2 as integer
-    dim a as integer
-    dim b as integer
-    dim c as double
-    dim n as integer
-
-    '/// Input : {'a[. ,]b[mm cm " pi pt]' with a, b as integer} as String
-    '///+ Output: a[. , ]b as double
-
-    ' get rid of measure unit, the only single character is '"' all others are two chars
-
-    if (isNumeric (sWert$) = FALSE) then
-        if (   (StrComp (right (sWert$, 1), chr$(34) ) = 0)  OR  (StrComp (right (sWert$, 1), "%") = 0 )) then
-            sDummy$ = Left ( sWert$, Len(sWert$)-1 )
-        else
-            sDummy$ = Left ( sWert$, Len(sWert$)-Len(gMeasurementUnit) )
-        end if
-    else
-        sDummy$ = sWert$
-    end if
-    ' get position of fraction mark
-    i1 = instr (sDummy$, ",")  ' wrong output
-    i2 = instr (sDummy$, ".")
-    if i1 > i2 then i = i1 else i = i2
-    ' vorkommateil
-    try
-        a = val (left (sDummy$,i-1))
-    catch
-        a = val ( sDummy$ )
-        c = 0
-        GoTo OK
-    endcatch
-
-    n = (len (sDummy$)-i)
-    b = val (right (sDummy$, n) )
-    c = b * 10 ^ -n
-    OK:
-    StrToDouble = a + c
-end function
-
-'-------------------------------------------------------------------------
-
-function fCalculateTolerance (sNumber1 , sNumber2) as Single
-    '/// Change 2 parameters to number , then Compare them and return the result.
-    Dim ss as Single
-    Dim dNumber1        , dNumber2         as Single
-    Dim iCommaLocation1 , iCommaLocation2  as Integer
-
-    'the code below 4 lines is set "2,00cm" to "2.00"cm if needed
-    iCommaLocation1 = InStr(sNumber1 , ",")
-    if iCommaLocation1 > 0 then
-        sNumber1 = Left(sNumber1 , iCommaLocation1-1) + "." + Right(sNumber1,Len(sNumber1) - iCommaLocation1)
-    end if
-
-    iCommaLocation2 = InStr(sNumber2 , ",")
-    if iCommaLocation2 > 0 then
-        sNumber2 = Left(sNumber2 , iCommaLocation2-1) + "." + Right(sNumber2,Len(sNumber2) - iCommaLocation2)
-    end if
-
-    dNumber1 = Val( Left(sNumber1, Len(sNumber1)-Len(gMeasurementUnit) ))
-    dNumber2 = Val( Left(sNumber2, Len(sNumber2)-Len(gMeasurementUnit) ))
-
-    fCalculateTolerance = Abs( dNumber1 - dNumber2 )
-end function
-
-'-------------------------------------------------------------------------
-
-function fFindWord (sTest) as String
-    '/// Set the focus to the word which you want
-    Kontext
-    EditSearchAndReplace
-    Kontext "FindAndReplace"
-    SearchFor.SetText sTest
-    Sleep 1
-    SearchAll.Click
-    Sleep 1
-    FindAndReplace.Close
-end function
-
-'-------------------------------------------------------------------------
-
-function fGetLanguageName( CountryID as Integer ) as String
-    '/// This routine will return the Language name based on CountryID
-    select case iSprache
-    case 01   :        ' English (USA)
-        select case CountryID
-        case 1:  fGetLanguageName = "English (USA)"
-        case 31:  fGetLanguageName = "Dutch (Netherlands)"
-        case 33: fGetLanguageName = "French (France)"
-        case 34: fGetLanguageName = "Spanish (Spain)"
-        case 39: fGetLanguageName = "Italian (Italy)"
-        case 46: fGetLanguageName = "Swedish (Sweden)"
-        case 49: fGetLanguageName = "German (Germany)"
-        case 55: fGetLanguageName = "Portuguese (Brazil)"
-        case 81: fGetLanguageName = "Japanese"
-        case 82: fGetLanguageName = "Korean (RoK)"
-        case 86: fGetLanguageName = "Chinese (simplified)"
-        case 88: fGetLanguageName = "Chinese (traditional)"
-        case else :
-            QAErrorLog "Now, the test does not support for the language " +iSprache
-            fGetLanguageName = ""
-        end select
-
-    case 31   :        ' Dutch
-        select case CountryID
-        case 1:  fGetLanguageName = "Engels (VS)"
-        case 31:  fGetLanguageName = "Netherlands (NL)"
-        case 33: fGetLanguageName = "Frans (Frankrijk)"
-        case 34: fGetLanguageName = "Spaans (Spanje)"
-        case 39: fGetLanguageName = "Italiaans (Itali�)"
-        case 46: fGetLanguageName = "Zweeds (Zweden)"
-        case 49: fGetLanguageName = "Duits (Duitsland)"
-        case 55: fGetLanguageName = "Portugees (Brazili�)"
-        case 81: fGetLanguageName = "Japans"
-        case 82: fGetLanguageName = "Korean (RoK)"
-        case 86: fGetLanguageName = "Chinese (vereenvoudigd)"
-        case 88: fGetLanguageName = "Chinese (traditioneel)"
-        case else :
-            QAErrorLog "Now, the test does not support for the language " +iSprache
-            fGetLanguageName = ""
-        end select
-
-    case 33   :        ' France
-        select case CountryID
-        case 1:  fGetLanguageName = "Anglais (U.S.A.)"
-        case 31: fGetLanguageName = "N�erlandais (Pays-Bas)"
-        case 33: fGetLanguageName = "Français (France)"
-        case 34: fGetLanguageName = "Espagnol (Espagne)"
-        case 39: fGetLanguageName = "Italien (Italie)"
-        case 46: fGetLanguageName = "Suédois (Suède)"
-        case 49: fGetLanguageName = "Allemand (Allemagne)"
-        case 55: fGetLanguageName = "Portugais (Brésil)"
-        case 81: fGetLanguageName = "Japonais"
-        case 82: fGetLanguageName = "Coréen"
-        case 86: fGetLanguageName = "Chinois (simple)"
-        case 88: fGetLanguageName = "Chinois (traditionnel)"
-        case else :
-            QAErrorLog "Now, the test does not support for the language " +iSprache
-            fGetLanguageName = ""
-        end select
-
-    case 34   :        ' Spanish
-        select case CountryID
-        case 1:  fGetLanguageName = "Inglés (EE.UU.)"
-        case 31: fGetLanguageName = "Holand�s (Pa�ses Bajos)"
-        case 33: fGetLanguageName = "Francés (Francia)"
-        case 34: fGetLanguageName = "Español (España)"
-        case 39: fGetLanguageName = "Italiano (Italia)"
-        case 46: fGetLanguageName = "Sueco (Suecia)"
-        case 49: fGetLanguageName = "Alemán (Alemania)"
-        case 55: fGetLanguageName = "Portugués (Brasil)"
-        case 81: fGetLanguageName = "Japonés"
-        case 82: fGetLanguageName = "Coreano"
-        case 86: fGetLanguageName = "Chino (simple)"
-        case 88: fGetLanguageName = "Chino (tradicional)"
-        case else :
-            QAErrorLog "Now, the test does not support for the language " +iSprache
-            fGetLanguageName = ""
-        end select
-
-    case 39   :        ' Italy
-        select case CountryID
-        case 1:  fGetLanguageName = "Inglese (US)"
-        case 31: fGetLanguageName = "Olandese (Paesi Bassi)"
-        case 33: fGetLanguageName = "Francese (Francia)"
-        case 34: fGetLanguageName = "Spagnolo (Spagna)"
-        case 39: fGetLanguageName = "Italiano (Italia)"
-        case 46: fGetLanguageName = "Svedese (Svezia)"
-        case 49: fGetLanguageName = "Tedesco (Germania)"
-        case 55: fGetLanguageName = "Portoghese (Brasile)"
-        case 81: fGetLanguageName = "Giapponese"
-        case 82: fGetLanguageName = "Coreano"
-        case 86: fGetLanguageName = "Cinese (semplificato)"
-        case 88: fGetLanguageName = "Cinese (tradizionale)"
-        case else :
-            QAErrorLog "Now, the test does not support for the language " +iSprache
-            fGetLanguageName = ""
-        end select
-
-    case 46   :        ' Swedish
-        select case CountryID
-        case 1:  fGetLanguageName = "engelska"
-        case 31: fGetLanguageName = "Holl�ndska (Nederl�nderna)"
-        case 33: fGetLanguageName = "franska (Frankrike)"
-        case 34: fGetLanguageName = "spanska (Spanien)"
-        case 39: fGetLanguageName = "italienska (Italien)"
-        case 46: fGetLanguageName = "svenska (Sverige)"
-        case 49: fGetLanguageName = "tyska (Tyskland)"
-        case 55: fGetLanguageName = "portugisiska (Brasilien)"
-        case 81: fGetLanguageName = "japanska"
-        case 82: fGetLanguageName = "koreanska"
-        case 86: fGetLanguageName = "kinesiska (enkel)"
-        case 88: fGetLanguageName = "kinesiska (trad.)"
-        case else :
-            QAErrorLog "Now, the test does not support for the language " +iSprache
-            fGetLanguageName = ""
-        end select
-
-    case 49   :        ' German
-        select case CountryID
-        case 1:  fGetLanguageName = "Englisch (USA)"
-        case 31: fGetLanguageName = "Niederl�ndisch (Niederlande)"
-        case 33: fGetLanguageName = "Französisch (Frankreich)"
-        case 34: fGetLanguageName = "Spanisch (Spanien)"
-        case 39: fGetLanguageName = "Italienisch (Italien)"
-        case 46: fGetLanguageName = "Schwedisch (Schweden)"
-        case 49: fGetLanguageName = "Deutsch (Deutschland)"
-        case 55: fGetLanguageName = "Portugiesisch (Brasilien)"
-        case 81: fGetLanguageName = "Japanisch"
-        case 82: fGetLanguageName = "Koreanisch"
-        case 86: fGetLanguageName = "Chinesisch (einfach)"
-        case 88: fGetLanguageName = "Chinesisch (Trad.)"
-        case else :
-            QAErrorLog "Now, the test does not support for the language " +iSprache
-            fGetLanguageName = ""
-        end select
-
-    case 55   :        ' Portuguese
-        select case CountryID
-        case 1:  fGetLanguageName = "Inglês (EUA)"
-        case 31: fGetLanguageName = "Holand�s (Holanda)"
-        case 33: fGetLanguageName = "Francês (França)"
-        case 34: fGetLanguageName = "Espanhol (Espanha)"
-        case 39: fGetLanguageName = "Italiano (Itália)"
-        case 46: fGetLanguageName = "Sueco (Suécia)"
-        case 49: fGetLanguageName = "Alemão (Alemanha)"
-        case 55: fGetLanguageName = "Português (Brasil)"
-        case 81: fGetLanguageName = "Japonês"
-        case 82: fGetLanguageName = "Coreano"
-        case 86: fGetLanguageName = "Chinês (simplificado)"
-        case 88: fGetLanguageName = "Chinês (Tradicional)"
-        case else :
-            QAErrorLog "Now, the test does not support for the language " +iSprache
-            fGetLanguageName = ""
-        end select
-
-    case 81   :        ' Japanese
-        select case CountryID
-        case 1:  fGetLanguageName = "英語(米国)"
-        case 33: fGetLanguageName = "フランス語(フランス)"
-        case 34: fGetLanguageName = "スペイン語(スペイン)"
-        case 39: fGetLanguageName = "イタリア語(イタリア)"
-        case 46: fGetLanguageName = "スウェーデン語(スウェーデン)"
-        case 49: fGetLanguageName = "ドイツ語(ドイツ)"
-        case 55: fGetLanguageName = "�?ルトガル語(ブラジル)"
-        case 81: fGetLanguageName = "日本語"
-        case 82: fGetLanguageName = "韓国語"
-        case 86: fGetLanguageName = "中国語(簡体字)"
-        case 88: fGetLanguageName = "中国語(�?体字)"
-        case else :
-            QAErrorLog "Now, the test does not support for the language " +iSprache
-            fGetLanguageName = ""
-        end select
-
-    case 82   :        ' Korean
-        select case CountryID
-        case 1:  fGetLanguageName = "�?어(미국)"
-        case 33: fGetLanguageName = "스페�?�어(스페�?�)"
-        case 34: fGetLanguageName = "프랑스어(프랑스)"
-        case 39: fGetLanguageName = "�?�탈리아어 (�?�태리)"
-        case 46: fGetLanguageName = "스웨�?�어(스웨�?�)"
-        case 49: fGetLanguageName = "�?��?�어(�?��?�)"
-        case 55: fGetLanguageName = "�?�르투갈어(브�?�질)"
-        case 81: fGetLanguageName = "�?�본어"
-        case 82: fGetLanguageName = "한국어"
-        case 86: fGetLanguageName = "중국어(간체)"
-        case 88: fGetLanguageName = "중국어(번체)"
-        case else :
-            QAErrorLog "Now, the test does not support for the language " +iSprache
-            fGetLanguageName = ""
-        end select
-
-    case 86   :        ' Chinese (simplified)
-        select case CountryID
-        case 1:  fGetLanguageName = "英语(美国)"
-        case 33: fGetLanguageName = "法语(法国)"
-        case 34: fGetLanguageName = "西�?�牙语(西�?�牙)"
-        case 39: fGetLanguageName = "�?大利语(�?大利)"
-        case 46: fGetLanguageName = "瑞典语(瑞典)"
-        case 49: fGetLanguageName = "德语(德国)"
-        case 55: fGetLanguageName = "葡�?�牙语(巴西)"
-        case 81: fGetLanguageName = "日语"
-        case 82: fGetLanguageName = "�?鲜语"
-        case 86: fGetLanguageName = "中文(简体字)"
-        case 88: fGetLanguageName = "中文(�?体字)"
-        case else :
-            QAErrorLog "Now, the test does not support for the language " +iSprache
-            fGetLanguageName = ""
-        end select
-
-    case 88   :        ' Chinese (traditional)
-        select case CountryID
-        case 1:  fGetLanguageName = "英語(美國)"
-        case 33: fGetLanguageName = "法語(法國)"
-        case 34: fGetLanguageName = "西�?�牙語(西�?�牙)"
-        case 39: fGetLanguageName = "�?大利語(�?大利)"
-        case 46: fGetLanguageName = "瑞典語(瑞典)"
-        case 49: fGetLanguageName = "德語(德國)"
-        case 55: fGetLanguageName = "葡�?�牙語(巴西)"
-        case 81: fGetLanguageName = "日語"
-        case 82: fGetLanguageName = "韓語"
-        case 86: fGetLanguageName = "中文(簡體字)"
-        case 88: fGetLanguageName = "中文(�?體)"
-        case else :
-            QAErrorLog "Now, the test does not support for the language " +iSprache
-            fGetLanguageName = ""
-        end select
-
-    case else :        ' Fallback
-        QAErrorLog "Now, the test does not support for the language " +iSprache
-        fGetLanguageName = ""
-    end select
-end function
diff --git a/testautomation/writer/optional/includes/undo/w_undo1.inc b/testautomation/writer/optional/includes/undo/w_undo1.inc
deleted file mode 100755
index 4134d1a8fa9f..000000000000
--- a/testautomation/writer/optional/includes/undo/w_undo1.inc
+++ /dev/null
@@ -1,352 +0,0 @@
-'**************************************************************************
-' 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 : helge.delfs@oracle.com
-'*
-'* short description : Writer Undo/Redo - Test
-'*
-'\***********************************************************************
-
-testcase tEditUndoRedo
-    '/// Edit / Undo - Redo ///
-    PrintLog "- Edit / Undo - Redo"
-    Printlog "  - Set Undobuffer to 2"
-    '/// Call Options and Set Number of steps to 2 ///
-    ToolsOptions
-    Call hToolsOptions("StarOffice","Memory")
-    UndoSteps.SetText "2"
-    '/// Close Optionsdialog ///
-    Kontext "ExtrasOptionenDlg"
-    ExtrasOptionenDlg.OK
-    '/// New document ///
-    Call hNewDocument
-    '/// Write any text in document and insert a table ///
-    Call wTypeKeys "Clipboard"
-    Call hTabelleEinfuegen
-    Call wTypeKeys "<Down><Down>text"
-
-    '/// Call Edit / Undo 2 times ///
-    printlog "  - Undo 2 times"
-    EditUndo
-    Sleep 1
-    EditUndo
-    Sleep 1
-    '/// try Undo more than two 2 times ///
-    try
-        EditUndo
-        Sleep 1
-        Warnlog "Possible to perform Undo more than 2 times!"
-        EditRedo
-    catch
-        Sleep 1
-    endcatch
-    '/// Check if Undo has been worked correctly ///
-    Call wTypeKeys "<Shift Home>"
-    EditCopy
-    if GetClipboardText <> "Clipboard" then Warnlog "Undo is not working correct"
-    Call wTypeKeys "<End>"
-
-    '/// select Redo 2 times ///
-    printlog "  - Redo 2 times"
-    EditRedo
-    Sleep 1
-    EditRedo
-    Sleep 1
-    '/// try Redo more than 2 times ///
-    try
-        EditRedo
-        Warnlog "Able to perform Redo more than 2 times"
-    catch
-        Sleep 1
-    endcatch
-    EditCopy
-    if GetClipboardText <> "text" then Warnlog "Redo is not working correct"
-    '/// Close document ///
-    Call hCloseDocument
-    Sleep 2
-
-    '/// Select Options again and try to set Undobuffer to 0 (min should be 1) ///
-    Printlog "  - set Undobuffer to 0"
-    ToolsOptions
-    Call hToolsOptions("StarOffice","Memory")
-    UndoSteps.ToMin
-    if UndoSteps.GetText <> "1" then
-        Warnlog "Undobuffer has not been set to 1!"
-    else
-        Printlog "  - Undobuffer can only set to 1!"
-    end if
-    '/// Close Optionsdialog ///
-    Kontext "ExtrasOptionenDlg"
-    ExtrasOptionenDlg.OK
-
-    '/// New document ///
-    Call hNewDocument
-    Call wTypeKeys "Don't undo this<Return>Undo this"
-    '/// Insert any text and try to Undo more than 1 time ///
-
-    EditUndo
-    try
-        EditUndo
-        Warnlog "More than one Undo could be performed!"
-    catch
-    endcatch
-    Call wTypeKeys "<Shift Home>"
-    Wait 500
-    EditCopy
-    if GetClipboardText <> "Undo " then Warnlog "The UndoStep couldn't performed correct!"
-
-    '/// Close document ///
-    Call hCloseDocument
-
-    Printlog "  - Set Undobuffer to Default ( 20 )"
-    '/// Open options again and set Number of steps for Undo to default (20) ///
-    ToolsOptions
-    Call hToolsOptions("StarOffice","Memory")
-    UndoSteps.SetText "20"
-
-    '/// Close Options ///
-    Kontext "ExtrasOptionenDlg"
-    ExtrasOptionenDlg.OK
-endcase
-
-' -----------------------------------------------------------------------------------
-
-testcase tEditUndoTOX
-    QaErrorLog "tEditUndoTOX outcommented due to makeover."
-    goto endsub
-
-    Dim CompareThis as string, Compare1 as string, Compare2 as string, Compare3 as string
-    Dim CompareWith1 as string, CompareWith2 as string, MenuEntryEnabled as boolean
-    ' Strings depends on the language so this testcase has to be adapted for all languages
-    Select Case iSprache
-    Case 1:	Compare1 = "Undo: "
-        Compare2 = "Insert index/table"
-        Compare3 = "Remove index/table"
-    Case 49:Compare1 = "R�ckg�ngig"
-        Compare2 = "Einf�gen Verzeichnis"
-        Compare3 = "Verzeichnis aufheben"
-    Case else:
-        QAErrorlog "Please adapt this testcase for this language!"
-        Compare1 = "Undo: "
-        Compare2 = "Insert index/table"
-        Compare3 = "Remove index/table"
-    end select
-    CompareWith1 = Compare1 & Compare2
-    CompareWith2 = Compare1 & Compare3
-
-    '/// Open a new writerdocument
-    Call hNewDocument
-
-    '/// Insert an index in document
-    printlog "Insert Index"
-    InsertIndexes
-
-    Kontext
-    Active.Setpage TabVerzeichnisseVerzeichnis
-    Kontext "TabVerzeichnisseVerzeichnis"
-    Verzeichnistitel.Settext "MyUndoRedoIndex"
-    TabVerzeichnisseVerzeichnis.Ok
-
-    '/// Check if Edit/Undo menu shows 'Undo: Insert Index'
-    Call hUseMenu()
-    try
-        MenuSelect(Menugetitemid(2))	' Opens the Edit - Menu
-        MenuEntryEnabled = True
-    catch
-        MenuEntryEnabled = False
-    endcatch
-    if MenuEntryEnabled = True then
-        CompareThis = hhEntferneTilde(MenuGetItemText(Menugetitemid(1)))
-        Call MenuSelect(0)
-        if CompareWith1 > "" then
-            if CompareThis <> CompareWith1 then
-                Warnlog "Edit / Undo entry is wrong: " & CompareThis
-            else
-                printlog " - Menu Edit / Undo is ok"
-            end if
-        else
-            QAErrorLog "Use this string in this testcase: " & CompareThis
-            Call hCloseDocument
-            goto endsub
-        end if
-    else
-        Warnlog "Edit / Undo in menu is disabled !"
-    end if
-
-    Kontext "DocumentWriter"
-    DocumentWriter.TypeKeys "<Up><Home>"
-    Wait 500
-    '/// Check if Undo dropdown-Icon shows:	'Insert index'
-    Select Case CheckUndoEntry ( 1, Compare2 )
-    Case 0:	Warnlog " - Undo-dropdown is disabled!"
-    Case 1:	Warnlog " - Entry in Undo-dropdown is wrong!"
-    Case 2:	printlog " - Entry in Undo-dropdown is ok!"
-    end select
-
-    '/// Update index with context menu entry: Update index"
-    Kontext "DocumentWriter"
-    DocumentWriter.OpenContextMenu
-    ' Update Index/table in context menu
-    printlog "Update Index"
-    Call MenuSelect(Menugetitemid(7))
-
-    '/// Check if Edit/Undo menu shows 'Undo: Insert Index' after index update
-    Call hUseMenu()
-    try
-        MenuSelect(Menugetitemid(2))	' Opens the Edit - Menu
-        MenuEntryEnabled = True
-    catch
-        MenuEntryEnabled = False
-    endcatch
-    if MenuEntryEnabled = True then
-        CompareThis = hhEntferneTilde(MenuGetItemText(Menugetitemid(1)))
-        Call MenuSelect(0)
-        if CompareWith1 > "" then
-            if CompareThis <> CompareWith1 then
-                Warnlog "Edit / Undo entry is wrong: " & CompareThis
-            else
-                printlog " - Menu Edit / Undo is ok"
-            end if
-        else
-            QAErrorLog "Use this string in this testcase: " & CompareThis
-            Call hCloseDocument
-            goto endsub
-        end if
-    else
-        Warnlog "Edit / Undo in menu is disabled !"
-    end if
-
-    Kontext "DocumentWriter"
-    DocumentWriter.TypeKeys "<Up><Home>"
-    Wait 500
-    '/// Check if Undo dropdown-Icon shows: 'Insert index' after index update
-    Select Case CheckUndoEntry ( 1, Compare2 )
-    Case 0:	Warnlog " - Undo-dropdown is disabled!"
-    Case 1:	Warnlog " - Entry in Undo-dropdown is wrong!"
-    Case 2:	printlog " - Entry in Undo-dropdown is ok!"
-    end select
-
-    '/// Delete index with context menu entry: Delete index"
-    Kontext "DocumentWriter"
-    DocumentWriter.OpenContextMenu
-    ' Delete Index/table in context menu
-    printlog "Remove Index"
-    Call MenuSelect(Menugetitemid(9))
-
-    '/// Check if Edit/Undo menu shows 'Undo: Remove index' after deleting index
-    Call hUseMenu()
-    try
-        MenuSelect(Menugetitemid(2))	' Opens the Edit - Menu
-        MenuEntryEnabled = True
-    catch
-        MenuEntryEnabled = False
-    endcatch
-    if MenuEntryEnabled = True then
-        CompareThis = hhEntferneTilde(MenuGetItemText(Menugetitemid(1)))
-        Call MenuSelect(0)
-        if CompareWith2 > "" then
-            if CompareThis <> CompareWith2 then
-                Warnlog "Edit / Undo entry is wrong: " & CompareThis
-            else
-                printlog " - Menu Edit / Undo is ok"
-            end if
-        else
-            QAErrorLog "Use this string in this testcase: " & CompareThis
-            Call hCloseDocument
-            goto endsub
-        end if
-    else
-        Warnlog "Edit / Undo in menu is disabled !"
-    end if
-
-    Kontext "DocumentWriter"
-    DocumentWriter.TypeKeys "<Up><Home>"
-    Wait 500
-    '/// Check if Undo dropdown-Icon shows: 'Remove index' after deleting index
-    Select Case CheckUndoEntry ( 1, Compare3 )
-    Case 0:	Warnlog " - Undo-dropdown is disabled!"
-    Case 1:	Warnlog " - Entry in Undo-dropdown is wrong!"
-    Case 2:	printlog " - Entry in Undo-dropdown is ok!"
-    end select
-
-    printlog "Working undo"
-    '/// Edit / Undo 1 time -> Index should be restored
-    EditUndo
-    Sleep 1
-    Call wNavigatorAuswahl ( 10, 1 )
-    wait 500
-    InsertIndexes
-
-    wait 500
-    Kontext
-    try
-        Active.Setpage TabVerzeichnisseVerzeichnis
-    catch
-        Warnlog "Index dialog has not been opened!"
-        Call hCloseDocument
-        goto endsub
-    endcatch
-
-    Kontext "TabVerzeichnisseVerzeichnis"
-    if Verzeichnistitel.Gettext = "MyUndoRedoIndex" then
-        printlog " - Index has been restored"
-        TabVerzeichnisseVerzeichnis.Cancel
-        '/// Check if Undo dropdown-Icon shows: 'Insert index'
-        Select Case CheckUndoEntry ( 1, Compare2 )
-        Case 0:	Warnlog " - Undo-dropdown is disabled!"
-        Case 1:	Warnlog " - Entry in Undo-dropdown is wrong!"
-        Case 2:	printlog " - Entry in Undo-dropdown is ok!"
-        end select
-
-        '/// Check if Redo dropdown-Icon shows: 'Remove index' after deleting index
-        Select Case CheckRedoEntry ( 1, Compare3 )
-        Case 0:	Warnlog " - Redo-dropdown is disabled!"
-        Case 1:	Warnlog " - Entry in Redo-dropdown is wrong!"
-        Case 2:	printlog " - Entry in Redo-dropdown is ok!"
-        end select
-
-        '/// Edit / Undo one more time
-        '/// Check if Undo dropdown-Icon is disabled
-        Select Case CheckUndoEntry ( 1, Compare2 )
-        Case 0:	printlog " - Undo-dropdown is disabled!"
-        Case 1:	Warnlog " - Entry in Undo-dropdown is enabled!"
-        Case 2:	Warnlog " - Entry in Undo-dropdown is enabled!"
-        end select
-
-        '/// Check if Redo dropdown-Icon shows: 'Insert index' after Undo 2 times
-        Select Case CheckRedoEntry ( 1, Compare2 )
-        Case 0:	Warnlog " - Redo-dropdown is disabled!"
-        Case 1:	Warnlog " - Entry in Redo-dropdown is wrong!"
-        Case 2:	printlog " - Entry in Redo-dropdown is ok!"
-        end select
-
-    else
-        Warnlog "Index has not been removed!"
-        TabVerzeichnisseVerzeichnis.Cancel
-    end if
-
-    Call hCloseDocument
-endcase
diff --git a/testautomation/writer/optional/includes/undo/w_undo_history_1.inc b/testautomation/writer/optional/includes/undo/w_undo_history_1.inc
deleted file mode 100644
index 142f7ad1e266..000000000000
--- a/testautomation/writer/optional/includes/undo/w_undo_history_1.inc
+++ /dev/null
@@ -1,204 +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 : helge.delfs@oracle.com
-'*
-'* short description : Writer Undo-History - Test ( Typing, Overwrite, Replace, Delete, Sort, Convert To table)
-'*
-'\***********************************************************************
-
-sub w_undo_history_1
-
-    ' a < 20 characters long string
-    Call tUndoOverwrite		' Typing & Overwrite
-    Call tUndoFindAndReplace		' Replace
-    Call tUndoReplaceAll		' Replace all & Delete
-    Call tUndoSort		' Sort
-    Call tUndoTableConvert		' Text convert to table
-
-end sub
-
-testcase tUndoOverwrite
-
-    '/// new document
-    Call hNewDocument
-    '/// <U><B>CHECK: Typing</B></U>
-    printlog "- TYPING"
-    '/// write a < 20 characters long string: If20CharactersThere
-    Call wTypeKeys "If20CharactersThere"
-    '/// string in Undo list has to be: Typing: If20CharactersThere
-    Call CheckUndoStringInUndoList ( 1, "'If20Char...rsThere'" )
-
-    '/// <U><B>CHECK: Overwrite</B></U>
-    printlog "- OVERWRITE"
-    '/// press 'Home' key
-    Call wTypeKeys "<Home>"
-    '/// press 'Ins' key
-    Call wTypeKeys "<Insert>"
-    '/// write a < 20 characters long string: IsThatDifferent4You
-    Call wTypeKeys "IsThatDifferent4You"
-    '/// string in Undo list has to be: Overwrite: IsThatDifferent4You
-    Call CheckUndoStringInUndoList ( 2, "'IsThatDifferent4You'" )
-
-    '/// CloseDocument
-    Call hCloseDocument
-endcase
-
-testcase tUndoFindAndReplace
-
-    '/// new Document
-    '/// <U><B>CHECK: Replace</B></U>
-    printlog "- REPLACE"
-    Call hNewDocument
-    '/// write a < 20 characters long string: If20CharactersThere
-    Call wTypeKeys "If20CharactersThere"
-    '/// Select text
-    Call wTypeKeys "<Shift Home>"
-    '/// Edit / Find and Replace
-    EditSearchAndReplace
-    Kontext "FindAndReplace"
-    '/// Type 'ThisReplacementText' in 'Replace with' field
-    ReplaceWith.Settext "ThisReplacementText"
-    '/// Choose Button 'Replace' and close dialog
-    ReplaceBtn.Click
-    wait 500
-    Kontext "Active"
-    if Active.Exists then
-        if Active.GetRT = 304 then
-            try
-                Active.Yes
-            catch
-                Active.Ok
-            endcatch
-        end if
-    end if
-    Kontext "FindAndReplace"
-    FindAndReplace.Close
-    Kontext "DocumentWriter"
-    '/// string in Undo list has to be: Replace: 'IsThatDifferent4You' -> 'ThisReplacementText'
-    Call CheckUndoStringInUndoList ( 3, "'If20CharactersThere' -> 'ThisReplacementText'" )
-
-    '/// Close document
-    Call hCloseDocument
-endcase
-
-
-testcase tUndoReplaceAll
-    Dim CheckString as string
-
-    '///  new document
-    '/// <U><B>CHECK: Replace all</B></U>
-    printlog "- REPLACE ALL"
-    Call hNewDocument
-    '/// Insert the dummy text and point cursor at the top of the document
-    Call wBlindtextEinfuegen
-    Call wTypeKeys "<Mod1 Home>"
-    '/// Edit / Find and Replace
-    EditSearchAndReplace
-    Kontext "FindAndReplace"
-    '/// Type 'and' in 'Search for' field
-    SearchFor.Settext "and"
-    '/// Type 'ThisReplacementText' in 'Replace with' field
-    ReplaceWith.Settext "###"
-    '/// Choose Button 'Replace' and close dialog
-    ReplaceAll.Click
-    wait 500
-    Kontext "Active"
-    if Active.Exists then
-        if Active.GetRT = 304 then Active.Ok
-    end if
-    Kontext "FindAndReplace"
-    FindAndReplace.Close
-
-    Kontext "DocumentWriter"
-    '/// string in Undo list has to be: Replace: '14 occurrences of and'
-    Call CheckUndoStringInUndoList ( 5, "14 occurrences of 'and'" )
-
-    '/// <U><B>CHECK: Delete</B></U>
-    '///  Backspace 4 times to delete characters
-    Call wTypeKeys "<Backspace>", 4
-    '/// string in Undo list has to be: Delete: '###'
-    printlog "- DELETE"
-    Call CheckUndoStringInUndoList ( 11, "' ###'" )
-
-    '/// Close document
-    Call hCloseDocument
-endcase
-
-
-testcase tUndoSort
-
-    '/// new document
-    Call hNewDocument
-    '/// CHECK: Text sort
-    printlog "- TEXT SORT"
-    '/// Enter some text like "This<Return>is a<Return>test<Return>"
-    Call wTypeKeys "This"
-    Call wTypeKeys "<Return>"
-    Call wTypeKeys "is a"
-    Call wTypeKeys "<Return>"
-    Call wTypeKeys "test"
-    Call wTypeKeys "<Return>"
-    '/// Select all and Tools -> Sort
-    Call wTypeKeys "<Mod1 A>"
-    ToolsSort
-    Kontext "Sortieren"
-    Sortieren.Ok
-
-    '/// string in Undo list has to be: "Sort text"
-    Call CheckUndoStringInUndoList ( 6, "Sort text" )
-
-    '/// Close document
-    Call hCloseDocument
-endcase
-
-
-testcase tUndoTableConvert
-
-    '/// new document
-    Call hNewDocument
-    '/// CHECK: Text convert to table
-    printlog "TEXT CONVERT TO TABLE"
-    '/// Enter some text like "This<Return>is a<Return>test<Return>"
-    Call wTypeKeys "This"
-    Call wTypeKeys "<Return>"
-    Call wTypeKeys "is a"
-    Call wTypeKeys "<Return>"
-    Call wTypeKeys "test"
-    Call wTypeKeys "<Return>"
-    '/// Select all and Tools - Text <> Table
-    Call wTypeKeys "<Mod1 A>"
-    ToolsTextInTable
-    Kontext "TextInTabelleUmwandeln"
-    Absatz.Check
-    TextInTabelleUmwandeln.Ok
-    '/// string in Undo list has to be: "Convert text -> table"
-    Call CheckUndoStringInUndoList ( 7, "Convert text -> table" )
-
-    '/// Close document
-    Call hCloseDocument
-endcase
diff --git a/testautomation/writer/optional/includes/undo/w_undo_history_2.inc b/testautomation/writer/optional/includes/undo/w_undo_history_2.inc
deleted file mode 100755
index 00ab93506eee..000000000000
--- a/testautomation/writer/optional/includes/undo/w_undo_history_2.inc
+++ /dev/null
@@ -1,528 +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 : helge.delfs@oracle.com
-'*
-'* short description : Writer Undo-History - Test
-'*
-'\***********************************************************************
-
-sub w_undo_history_2
-
-    ' a > 20 characters long string
-    Call tUndoOverwriteLong			' Typing & Overwrite
-    Call tUndoFindAndReplaceLong			' Replace
-    Call tUndoDeleteMultiSelection			' Delete a multi-selection
-    Call tUndoParagraph			' Paragraphs
-    Call tUndoClipboard		' Copy/Paste
-    Call tUndoChanges		' Changes accept an reject
-    Call tUndoLineBreak		' Manual breaks - line break
-    Call tUndoColumnBreak		' Manual breaks - column break
-    Call tUndoPageBreak		' Manual breaks - page break
-    Call tUndoFields		' Fields (Insert/Modify / Delete)
-    Call tUndoSpecialCharacter		' Special Character (Insert/ Delete)
-    Call tUndoStyles		' Styles (Apply/Modify/Find&Replace/Promote/Demote)
-
-end sub
-
-testcase tUndoOverwriteLong
-
-    '/// <B>Typing & overwrite a > 20 characters long string</B>
-    '/// new document
-    Call hNewDocument
-    '/// <U><B>CHECK: Typing</B></U>
-    printlog "- TYPING"
-    '/// write a > 20 characters long string: ThisSentenceHasMoreThan20Characters
-    Call wTypeKeys ( "ThisSentenceHasMoreThan20Characters" )
-    '/// string in Undo list has to be: Typing: ThisSente...aracters
-    Call CheckUndoStringInUndoList ( 1, "'ThisSent...racters'" )
-
-    '/// <U><B>CHECK: Overwrite</B></U>
-    printlog "- OVERWRITE"
-    '/// press 'Home' key
-    Call wTypeKeys "<Home>"
-    '/// press 'Ins' key
-    Call wTypeKeys "<Insert>"
-    '/// write a > 20 characters long string: ThePreviousSentenceHasBeenOverwritten
-    Call wTypeKeys ( "ThePreviousSentenceHasBeenOverwritten" )
-    '/// string in Undo list has to be: Overwrite: ThePrevio...rwritten
-    Call CheckUndoStringInUndoList ( 2, "'ThePrevio...rwritten'" )
-
-    '/// CloseDocument
-    Call hCloseDocument
-endcase
-
-
-testcase tUndoFindAndReplaceLong
-
-    '/// <B>Replace a > 20 characters long string</B>
-    '/// new Document
-    '/// <U><B>CHECK: Replace</B></U>
-    printlog "- REPLACE"
-    Call hNewDocument
-    '/// write a > 20 characters long string: ThePreviousSentenceHasBeenOverwritten
-    Call wTypeKeys ( "ThePreviousSentenceHasBeenOverwritten" )
-    '/// Select text
-    Call wTypeKeys ( "<Shift Home>" )
-    '/// Edit / Find and Replace
-    EditSearchAndReplace
-    Kontext "FindAndReplace"
-    '/// Type 'ThisIsAboutALongTextThatHadToBeReplaced' in 'Replace with' field
-    ReplaceWith.Settext "ThisIsAboutALongTextThatHadToBeReplaced"
-    '/// Choose Button 'Replace' and close dialog
-    ReplaceBtn.Click
-    wait 500
-    Kontext "Active"
-    if Active.Exists then
-        if Active.GetRT = 304 then
-            try
-                Active.Yes
-            catch
-                Active.Ok
-            endcatch
-        end if
-    end if
-    Kontext "FindAndReplace"
-    FindAndReplace.Close
-    Kontext "DocumentWriter"
-    '/// string in Undo list has to be: Replace: 'ThePrevio...rwritten' -> 'ThisIsAbo...Replaced'
-    Call CheckUndoStringInUndoList ( 3, "'ThePrevio...rwritten' -> 'ThisIsAbo...Replaced'" )
-
-    '/// Close document
-    Call hCloseDocument
-endcase
-
-
-testcase tUndoDeleteMultiSelection
-
-    '/// <B>Delete a multi-selection</B>
-    printlog "- Delete a multi-selection"
-    '/// new Document
-    Call hNewDocument
-    '/// write down: the deletion of a multi-selection
-    Call wTypeKeys ( "the deletion of a multi-selection" )
-    '/// with Shift + F8 enter multi-selection mode
-    Call wTypeKeys ( "<SHIFT F8>" )
-    '/// multi-select "the ", " a" and "multi-"
-    Call wTypeKeys ( "<MOD1 Left>" )
-    Call wTypeKeys ( "<MOD1 SHIFT Left>", 2)
-    Call wTypeKeys ( "<Left>" )
-    Call wTypeKeys ( "<SHIFT Left>", 2)
-    Call wTypeKeys ( "<Left>" )
-    Call wTypeKeys ( "<MOD1 Left>", 2)
-    Call wTypeKeys ( "<Left>" )
-    Call wTypeKeys ( "<MOD1 SHIFT Left>")
-    '/// Delete the multi-selection
-    Call wTypeKeys ( "<DELETE>" )
-    '/// string in Undo-list has to be: 'Delete: multi-selection'"
-    Call CheckUndoStringInUndoList ( 4, "Delete multiple selection" )
-    '/// Close document
-    Call hCloseDocument
-
-endcase
-
-
-testcase tUndoParagraph
-
-    '/// <B>Insert and delete a paragraph</B>
-    printlog "- Insert Paragraph"
-    '/// new document
-    Call hNewDocument
-    '/// press return to insert a new paragraph
-    Call wTypeKeys ( "<Return>" )
-    '///  string in Undo-list has to be: "New paragraph"
-    Call CheckUndoStringInUndoList ( 8, "New Paragraph" )
-    printlog "- Delete Paragraph"
-    '/// press Backspace to delete paragraph
-    Call wTypeKeys ( "<Backspace>" )
-    '///  string in Undo-list has to be: "Delete paragraph"
-    Call CheckUndoStringInUndoList ( 8, "Delete Paragraph" )
-
-    '/// close document
-    Call hCloseDocument
-endcase
-
-
-testcase tUndoClipboard
-    Dim i as integer
-
-    '/// <B>Copy / Paste</B>
-    printlog "- Copy/Paste"
-    '/// new document
-    Call hNewDocument
-    '/// Insert some text in document and copy it
-    Call wTypeKeys ( "CopyAndPasteInUndoList" )
-    Call wTypeKeys ( "<Shift Home>" )
-    EditCopy
-    Call wTypeKeys ( "<End><Return>" )
-    '/// Paste the text in all available formats
-    For i = 1 to 4
-        Sleep 2
-        try
-            EditPasteSpecialWriter
-        catch
-            i=5
-        endcatch
-        Kontext "InhaltEinfuegen"
-        try
-            Auswahl.Select i
-            printlog " - Paste as: " + Auswahl.GetSeltext
-            wait 500
-        catch
-            Warnlog "Not 4 but " & Auswahl.GetItemCount & " Clipboard-formats"
-        endcatch
-        InhaltEinfuegen.Ok
-        '///  string in Undo-list has to be: "Paste clipboard"
-        Call CheckUndoStringInUndoList ( 9 )
-        Call wTypeKeys ( "<Return>" )
-    next i
-    '/// close document
-    Call hCloseDocument
-endcase
-
-
-testcase tUndoChanges
-
-    '/// <B>Changes accept and reject</B>
-    printlog "- Changes accept and reject"
-    '/// new document
-    Call hNewDocument
-    UseBindings
-    '/// Select Edit / Changes / Record
-    EditChangesRecord
-    '/// Insert a string in document
-    Call wTypeKeys ( "This is a test" )
-    '/// Select Edit / Changes / Accept or Reject
-    EditChangesAcceptOrReject
-    '/// Dialog 'Accept or reject changes' has to come up ///
-    Kontext "Redlining"
-    if Redlining.Exists then
-        '/// + Select tabpage 'List'
-        TabControl.SetPage TabListe
-        '/// + Select 'Accept All'
-        Akzeptieren.Click
-        Sleep 2
-        '/// + Close Redlining dialog
-        Redlining.Close
-    else
-        Warnlog "Redlining dialog not up!"
-        Call hCloseDocument
-        goto endsub
-    end if
-    '///  string in Undo-list has to be: "Accept change: Insert 'this is a test'")
-    Call CheckUndoStringInUndoList ( 10, "Accept" )
-
-    '/// Insert a line break in document
-    Call wTypeKeys ( "<Return>" )
-    '/// Insert a string in document
-    Call wTypeKeys ( "This is a test" )
-    '/// Select Edit / Changes / Accept or Reject
-    EditChangesAcceptOrReject
-    '/// Dialog 'Accept or reject changes' has to come up ///
-    Kontext "Redlining"
-    if Redlining.Exists then
-        '/// + Select tabpage 'List'
-        TabControl.SetPage TabListe
-        '/// + Select 'Accept All'
-        wait 500
-        ListItem.TypeKeys "<Up>"
-        wait 500
-        Ablehnen.Click
-        Sleep 2
-        '/// + Close Redlining dialog
-        Redlining.Close
-    else
-        Warnlog "Redlining dialog not up!"
-        Call hCloseDocument
-        goto endsub
-    end if
-
-    '///  string in Undo-list has to be: "Reject change: Insert 'this is a test'")
-    Call CheckUndoStringInUndoList ( 10, "Reject" )
-
-    Call hCloseDocument
-endcase
-
-
-testcase tUndoLineBreak
-
-    '/// <B>Manual breaks (line breaks)</B>
-    printlog "Manual breaks (line breaks)"
-    printlog "- Insert line break"
-    '/// new document
-    Call hNewDocument
-    '/// Insert a line break (Shift return)
-    Call wTypeKeys ( "<SHIFT RETURN>" )
-    '///  string in Undo-list has to be: "Insert line break")
-    Call CheckUndoStringInUndoList ( 10, "InsertLineBreak" )
-
-    '/// Delete line break
-    printlog "- Delete line break"
-    Call wTypeKeys ( "<SHIFT RETURN><Backspace>" )
-    '///  string in Undo-list has to be: "Delete line break")
-    Call CheckUndoStringInUndoList ( 10, "DeleteLineBreak" )
-
-    '/// Close document
-    Call hCloseDocument
-endcase
-
-
-testcase tUndoColumnBreak
-
-    '/// <B>Column breaks</B>
-    printlog "- Column breaks"
-    '/// new document
-    Call hNewDocument
-    '/// Format / Columns
-    FormatColumns
-    Kontext "FormatColumn"
-    '/// set number of columns to 2
-    Columns.Settext 2
-    FormatColumn.Ok
-    '/// Insert a column break (Strg+Shift+Return)
-    Call wTypeKeys ( "<Mod1 Shift Return>" )
-    printlog "Insert a column break"
-    '///  string in Undo-list has to be: "Insert column break")
-    Call CheckUndoStringInUndoList ( 10, "InsertColumnBreak" )
-
-    '/// Delete a column break (Strg+Shift+Return+Backspace)
-    printlog "Delete a column break"
-    Call wTypeKeys ( "<Mod1 Shift Return><Backspace>" )
-    '///  string in Undo-list has to be: "Delete column break")
-    Call CheckUndoStringInUndoList ( 10, "DeleteColumnBreak" )
-
-    '/// Close document
-    Call hCloseDocument
-endcase
-
-
-testcase tUndoPageBreak
-
-    '/// <B>Page breaks</B>
-    printlog "- Page breaks"
-    '/// new document
-    Call hNewDocument
-    '/// Format / Columns
-    InsertManualBreak
-    Kontext "UmbruchEinfuegen"
-    printlog "Insert a page break"
-    Seitenumbruch.Check
-    UmbruchEinfuegen.Ok
-    '///  string in Undo-list has to be: "Insert page break")
-    Call CheckUndoStringInUndoList ( 10, "InsertPageBreak" )
-
-    printlog "Delete a page break"
-    InsertManualBreak
-    Kontext "UmbruchEinfuegen"
-    '/// Insert a page break
-    Seitenumbruch.Check
-    UmbruchEinfuegen.Ok
-    Call wTypeKeys ( "<Backspace>" )
-    '///  string in Undo-list has to be: "Delete page break")
-    Call CheckUndoStringInUndoList ( 10, "DeletePageBreak" )
-
-    '/// Close document
-    Call hCloseDocument
-endcase
-
-
-testcase tUndoFields
-
-    '/// <B>Fields (Insert/Modify / Delete)</B>
-    printlog "- Fields (Insert)"
-    '/// new document
-    Call hNewDocument
-    '/// Insert Field 'Date'
-    InsertFieldsDate
-    '///  string in Undo-list has to be: "Insert field")
-    Call CheckUndoStringInUndoList ( 10, "InsertField" )
-
-    printlog "- Fields (Modify)"
-    '/// Press Home-key
-    Call wTypeKeys ( "<Home>" )
-    '/// Edit fields and select 4th entry in Format-list
-    EditFields
-    Kontext "FeldbefehlBearbeitenDokument"
-    Zahlenformat.Select 4
-    FeldbefehlBearbeitenDokument.Ok
-    '///  string in Undo-list has to be: "Changed field")
-    Call CheckUndoStringInUndoList ( 10, "ChangedField" )
-
-    printlog "- Fields (Delete)"
-    '/// Press delete-key
-    Call wTypeKeys ( "<Delete>" )
-    '///  string in Undo-list has to be: "Delete field")
-    Call CheckUndoStringInUndoList ( 10, "DeleteField" )
-
-    '/// Close document
-    Call hCloseDocument
-endcase
-
-
-testcase tUndoSpecialCharacter
-
-    '/// <B>Special Character (Insert / Delete )</B>
-    printlog "- Special Character (Insert)"
-    '/// new document
-    Call hNewDocument
-    '/// Insert a special Character
-    InsertSpecialCharacterWriter
-    Kontext "Sonderzeichen"
-    SchriftListe.TypeKeys "<Home>"
-    SchriftListe.TypeKeys "<Right>", 3
-    Sonderzeichen.Ok
-    '///  string in Undo-list has to be: "Insert special character")
-    Call CheckUndoStringInUndoList ( 10, "InsertSpecialCharacter" )
-
-    printlog "- Special Character (Delete)"
-    '/// Delete special character with <Backspace>
-    Call wTypeKeys ("<Backspace>" )
-    Call CheckUndoStringInUndoList ( 10, "DeleteSpecialCharacter" )
-
-    '/// Close document
-    Call hCloseDocument
-endcase
-
-
-testcase tUndoStyles
-    Dim i as integer, StyleText as string, UndoText as string
-    Dim NewStyle as string
-
-    '/// <B>Styles (Apply/Modify/Find&Replace/Promote/Demote)</B>
-    printlog "- Styles (Apply)"
-    '/// new document
-    Call hNewDocument
-    '/// type some text
-    Call wTypeKeys ( "I have the new style" )
-    '/// Select text
-    Call wTypeKeys ( "<Shift Home>" )
-    '/// Apply Style to a newly created style
-    Call wStyleCreate ( "AUndoHistory", "Paragraph" )
-    '///  string in Undo-list has to be: "Apply styles: AUndoHistory")
-    Call CheckUndoStringInUndoList ( 10, "ApplyStyles" )
-
-    '/// Modify Style through Stylist
-    if wStyleSelect ( "AUndoHistory" ) = false then
-        Warnlog "Defined style has not been found in Stylist->Test aborted"
-        Call hCloseDocument
-        goto endsub
-    end if
-
-    Vorlagenliste.OpenContextMenu
-    Call hMenuSelectNr(2)
-    Kontext
-    Active.Setpage TabFontEffects
-    Kontext "TabFontEffects"
-    FontColor.Select FontColor.GetItemCount
-    TabFontEffects.Ok
-    Sleep 1
-    '///  string in Undo-list has to be: "Change styles: AUndoHistory")
-    Call CheckUndoStringInUndoList ( 10, "ChangeStyles" )
-
-    printlog "Styles (Replace)"
-    '/// Edit / Search and Replace
-    EditSearchAndReplace
-    kontext "FindAndReplace"
-    if SearchForStyles.IsVisible = False then More.Click
-    SearchForStyles.Check
-    Sleep 1
-    ReplaceWithStyle.Select 4
-    wait 500
-    ReplaceBtn.Click
-    NewStyle = ReplaceWithStyle.GetSelText
-    Select Case iSprache
-    Case 01: StyleText = "Replace style: AUndoHistory -> " & NewStyle
-    Case 34: StyleText = "Reemplazar estilo: AUndoHistory -> " & NewStyle
-    Case 86: StyleText = "替换样式: AUndoHistory -> " & NewStyle
-    Case else: QAErrorlog "Please adapt test for this language"
-    end select
-    wait 500
-    Kontext "Active"
-    if Active.Exists then
-        if Active.GetRT = 304 then
-            try
-                Active.Yes
-            catch
-                Active.Ok
-            endcatch
-        end if
-    end if
-    kontext "FindAndReplace"
-    SearchForStyles.UnCheck
-    FindAndReplace.Close
-
-    '///  string in Undo-list has to be: "Replace Styles: 'AUndoHistory -> ...")
-    Kontext "StandardBar"
-    try
-        Undo.OpenMenu
-        Kontext "UndoRedoBox"
-        UndoText = UndoRedoList.GetItemText(1)
-        if UndoText <> StyleText then
-            Warnlog "Wrong text in Undo-List: " & UndoText
-        end if
-        Kontext "StandardBar"
-        Undo.Click
-    catch
-        Warnlog "Something wrong checking Undo-List!"
-    endcatch
-
-    printlog "Styles (Promote)"
-    '/// point cursor to beginning of document
-    Call wTypeKeys ( "<Mod1 Home>" )
-    ' To promote style it has to be in the heading group
-    ToolsOutlineNumbering
-    Kontext
-    Active.SetPage TabKapitelnumerierung
-    Kontext "TabKapitelnumerierung"
-    Absatzvorlage.Select NewStyle
-    TabKapitelnumerierung.Ok
-
-    Call wNavigatorAuswahl ( 1, 1, true )
-    Kontext "NavigatorWriter"
-    '/// Select Promote in Navigator
-    try
-        Senken.Click
-        '///  string in Undo-list has to be: "Demote Outline")
-        Call CheckUndoStringInUndoList ( 10, "DemoteOutline" )
-    catch
-        Warnlog "Unable to demote outline"
-    endcatch
-
-    '/// Select Demote in Navigator
-    printlog "Styles (Demote)"
-    Kontext "NavigatorWriter"
-    try
-        Senken.Click
-        '///  string in Undo-list has to be: "Promote Outline")
-        Call CheckUndoStringInUndoList ( 10, "PromoteOutline" )
-    catch
-        Warnlog "Unable to promote outline"
-    endcatch
-
-    '/// CloseDocument
-    Call hCloseDocument
-endcase
diff --git a/testautomation/writer/optional/includes/undo/w_undo_history_3.inc b/testautomation/writer/optional/includes/undo/w_undo_history_3.inc
deleted file mode 100755
index ded462ff63c1..000000000000
--- a/testautomation/writer/optional/includes/undo/w_undo_history_3.inc
+++ /dev/null
@@ -1,687 +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 : helge.delfs@oracle.com
-'*
-'* short description : Writer Undo-History - Test
-'*
-'\***********************************************************************
-
-sub w_undo_history_3
-
-    Call tUndoSection			' Section (Insert/Modify/Delete)
-    Call tUndoHyperlink			' Hyperlink (Insert as Text/as URL button)
-    Call tUndoFootnote			' Footnote (Insert/Modify/Delete)
-    Call tUndoCaption			' Insert Caption
-    Call tUndoAutoText			' Insert Autotext
-    Call tUndoBookmark			' Bookmark (Insert/Rename/Delete)
-    Call tUndoComment			' Comment (Insert/Delete)
-    Call tUndoScript			' Script (Insert/Delete)
-    Call tUndoIndexes			' Index/Bibliography entrys (Insert/Delete)
-    Call tUndoFrames			' Frames (Insert/Rename/Delete)
-    Call tUndoTableGeneral			' Tables Part 1
-    Call tUndoTableOptionsMerge			' Tables Part 2
-    Call tUndoTableConvertSort			' Tables Part 3
-    Call tUndoTableSplitDelete			' Tables Part 4
-    Call tUndoHorizontalRuler			' Horizontal ruler
-    Call tUndoGraphics			' Graphics (Insert/Replace/Delete)
-
-end sub
-
-testcase tUndoSection
-
-    '/// <B>Section (Insert/Modify/Delete)</B>
-    printlog "Section (Insert)"
-    '/// new document
-    Call hNewDocument
-    '/// Insert a section
-    InsertSection
-    Kontext
-    Active.Setpage TabBereiche
-    Kontext "TabBereiche"
-    TabBereiche.Ok
-    '///  string in Undo-list has to be: "Insert section")
-    Call CheckUndoStringInUndoList ( 10, "InsertSection" )
-
-    printlog "Section (Modify)"
-    '/// Open navigator and select section
-    Call wNavigatorAuswahl ( 7, 1, true )
-    Kontext "NavigatorWriter"
-    '/// Open contextmenu and choose 'Edit'
-    Auswahlliste.OpenContextMenu
-    wait 500
-    Call hMenuSelectNr(4)
-
-    '/// Change Background-Color
-    Kontext "BereicheBearbeiten"
-    Optionen.Click
-    Kontext
-    Active.Setpage TabHintergrund
-    Kontext "TabHintergrund"
-    Hintergrundfarbe.TypeKeys "<Down>", 5
-    TabHintergrund.Ok
-
-    Kontext "BereicheBearbeiten"
-    BereicheBearbeiten.Ok
-    '///  string in Undo-list has to be: "Modify section")
-    Call CheckUndoStringInUndoList ( 10, "ModifySection" )
-
-    printlog "Section (Delete)"
-    '/// Open navigator and select section
-    Call wNavigatorAuswahl ( 7, 1, true )
-    Kontext "NavigatorWriter"
-    '/// Open contextmenu and choose 'Edit'
-    Auswahlliste.OpenContextMenu
-    wait 500
-    Call hMenuSelectNr(4)
-    '/// In 'Edit sections' dialog choose 'remove'
-    Kontext "BereicheBearbeiten"
-    Aufheben.Click
-    BereicheBearbeiten.Ok
-    '///  string in Undo-list has to be: "Delete section")
-    Call CheckUndoStringInUndoList ( 10, "DeleteSection" )
-
-    '/// Close Document
-    Call hCloseDocument
-
-endcase
-
-
-testcase tUndoHyperlink
-
-    '///<B>Hyperlink (Insert as Text/as URL button)</B>
-    printlog "- Insert hyperlink as text"
-    '/// new document
-    Call hNewDocument
-    '/// Insert / Hyperlink as Text
-    InsertHyperlink
-    '///  string in Undo-list has to be: "Insert Hyperlink")
-      kontext "HyperlinkDialog"
-        if ( HyperlinkDialog.exists( 2 ) ) then
-            Call wEinfuegenHyperlink(1)
-            ZielURL.SetText "www.sun.com"
-            Form.Select 1
-            Uebernehmen.Click()
-
-            kontext "HyperlinkDialog"
-            HyperlinkDialog.Close()
-        else
-            warnlog( "Unable to open <HyperlinkDialog>" )
-        endif
-    Call CheckUndoStringInUndoList ( 10, "InsertHyperlink" )
-
-    Call wTypeKeys "<Return>"
-
-    '/// Insert / Hyperlink as Button
-    printlog "- Insert hyperlink as Button"
-    InsertHyperlink
-
-        kontext "HyperlinkDialog"
-        if ( HyperlinkDialog.exists( 2 ) ) then
-            Call wEinfuegenHyperlink(1)
-            ZielURL.Settext "www.sun.com"
-            Form.Select 2
-            Kontext "Hyperlink"
-            Uebernehmen.Click
-            kontext "HyperlinkDialog"
-            HyperlinkDialog.Close
-        else
-            warnlog( "Unable to open <HyperlinkDialog>" )
-        endif
-
-    '///  string in Undo-list has to be: "insert URL Button")
-    Call CheckUndoStringInUndoList ( 10, "InsertHyperlinkButton" )
-
-    '/// Close Document
-    Call hCloseDocument
-
-endcase
-
-
-testcase tUndoFootnote
-
-    '/// <B>Footnote (Insert/Modify/Delete)</B>
-    printlog "- Footnote (Insert)"
-    '/// new document
-    Call hNewDocument
-    '/// Insert / Footnote
-    InsertFootnote
-    Kontext "FussnoteEinfuegen"
-    FussnoteEinfuegen.Ok
-    '///  string in Undo-list has to be: "Insert footnote")
-    Call CheckUndoStringInUndoList ( 10, "InsertFootnote" )
-
-    printlog "- Footnote (Modify)"
-    '/// Tools/Footnote
-    ToolsFootnote
-    Kontext
-    Active.Setpage TabFussnoten
-    Kontext "TabFussnoten"
-
-    '/// Change any option in footnote dialog
-    if Seitenende.IsChecked then
-        Dokumentende.Check
-    else
-        Seitenende.Check
-    end if
-    '/// Close dialog
-    TabFussnoten.Ok
-    '///  string in Undo-list has to be: "Modify footnote options")
-    Call CheckUndoStringInUndoList ( 10, "ModifyFootnote" )
-
-    printlog "- Footnote (Delete)"
-    '/// Point cursor directly to the footnote anchor
-    Call wTypeKeys "<Mod1 Home>"
-    '/// press 'delete' to remove footnote
-    Call wTypeKeys "<Delete>"
-    '///  string in Undo-list has to be: "Delete footnote options")
-    Call CheckUndoStringInUndoList ( 10, "DeleteFootnote" )
-
-    '/// Close document
-    Call hCloseDocument
-endcase
-
-
-testcase tUndoCaption
-
-    '/// <B>Insert a caption</B>
-    printlog "- Insert Caption"
-    '/// new document
-    Call hNewDocument
-    '/// Insert a graphic
-    Call hGrafikEinfuegen ( gTesttoolPath & "writer\optional\input\graphics\jolink.jpg" )
-    '/// Insert / Caption
-    InsertCaption
-    Kontext "Beschriftung"
-    '/// Insert a caption more than 20 characters long
-    Beschriftungstext.Settext "This caption has more than 20 characters"
-    Beschriftung.Ok
-
-    '///  string in Undo-list has to be: "Insert Caption: This capt...aracters")
-    Call CheckUndoStringInUndoList ( 10, "InsertCaption" )
-
-    '/// Close document
-    Call hCloseDocument
-endcase
-
-
-testcase tUndoAutoText
-
-    '/// <B>Insert autotext</B>
-    printlog "- Insert autotext"
-    '/// new document
-    Call hNewDocument
-    '/// Insert dummy text
-    Call wBlindtextEinfuegen
-
-    '///  string in Undo-list has to be: "Insert Auto Text")
-    Call CheckUndoStringInUndoList ( 10, "InsertAutotext" )
-
-    '/// Close document
-    Call hCloseDocument
-endcase
-
-
-testcase tUndoBookmark
-
-    Warnlog "#i102310# - tUndoBookmark outcommented due to bug."
-    goto endsub
-
-
-    '/// <B>Bookmark (Insert/Rename/Delete)</B>
-    printlog "- Insert Bookmark"
-    '/// new document
-    Call hNewDocument
-    '/// Insert / Bookmark
-    InsertBookmark
-    Kontext "TextmarkeEinfuegen"
-    Textmarken.Settext "I'm a bookmark"
-    TextmarkeEinfuegen.Ok
-    '///  string in Undo-list has to be: "Insert Bookmark: I'm a bookmark")
-    Call CheckUndoStringInUndoList ( 10, "InsertBookmark" )
-
-    printlog "- Rename Bookmark"
-    '/// Open navigator and select bookmark
-    Call wNavigatorAuswahl ( 6, 1, true )
-    Kontext "NavigatorWriter"
-    '/// Open contextmenu and choose 'Edit'
-    Auswahlliste.OpenContextMenu
-    wait 500
-    Call hMenuSelectNr(4)
-    wait 500
-    Call hMenuSelectNr(3)
-    wait 500
-    Kontext "ObjekteUmbenennen"
-    Objektname.Settext "a book"
-    ObjekteUmbenennen.Ok
-    '///  string in Undo-list has to be: "Rename Bookmark: a book")
-    Call CheckUndoStringInUndoList ( 10, "RenameBookmark" )
-
-    printlog "- Delete Bookmark"
-    '/// Open navigator and select bookmark
-    Call wNavigatorAuswahl ( 6, 1, true )
-    Kontext "NavigatorWriter"
-    '/// Open contextmenu and choose 'Edit'
-    Auswahlliste.OpenContextMenu
-    wait 500
-    Call hMenuSelectNr(4)
-    wait 500
-    Call hMenuSelectNr(2)
-    wait 500
-    '///  string in Undo-list has to be: "Rename Bookmark: a book")
-    Call CheckUndoStringInUndoList ( 10, "DeleteBookmark" )
-
-    '/// Close document
-    Call hCloseDocument
-endcase
-
-
-testcase tUndoComment
-
-    printlog "New document"
-    Call hNewDocument
-    printlog "Insert / Comment"
-    InsertNoteWriter
-    printlog "String in Undo-list has to be: 'Insert Comment'"
-    Call CheckUndoStringInUndoList ( 10, "InsertComment" )
-    printlog "- Delete Comment"
-    printlog "Bring up the Navigator, find the entry 'Comments', expand it, and select the expanded section."
-    Call wNavigatorAuswahl( 11, 1 )
-    kontext "Navigator"
-    Navigator.TypeKeys "<DELETE>"
-    '/// Close the Navigator
-    ViewNavigator
-    '///  string in Undo-list has to be: "Delete comment")
-    Call CheckUndoStringInUndoList ( 10, "DeleteComment" )
-
-    '/// Close document
-    Call hCloseDocument
-endcase
-
-
-testcase tUndoScript
-
-    '/// <B>Script (Insert/Delete)</B>
-    printlog "- Insert Script"
-    '/// new document
-    Call hNewDocument
-    '/// Insert / Script
-    InsertScript
-    Kontext "ScriptEinfuegen"
-    ScriptEinfuegen.Ok
-    '///  string in Undo-list has to be: "Insert script")
-    Call CheckUndoStringInUndoList ( 10, "InsertScript" )
-
-    '/// Point cursor directly to the script
-    Call wTypeKeys "<Mod1 Home>"
-    '/// press 'delete' to remove script
-    Call wTypeKeys "<Delete>"
-    '///  string in Undo-list has to be: "Delete script")
-    Call CheckUndoStringInUndoList ( 10, "DeleteScript" )
-
-    '/// Close document
-    Call hCloseDocument
-endcase
-
-
-testcase tUndoIndexes
-
-    '/// <B>Indexes (Insert/Delete)</B>
-    printlog "- Insert Index entry"
-    '/// new document
-    Call hNewDocument
-    '/// Type a word
-    Call wTypeKeys "IndexEntry"
-    Call wTypeKeys "<Shift Home>"
-    '/// Insert / Indexes and Tables / Entry
-    InsertIndexesEntry
-    Kontext "VerzeichnisEintragEinfuegen"
-    EintragOk.Click
-    VerzeichnisEintragEinfuegen.Close
-    '///  string in Undo-list has to be: "Insert index entry")
-    Call CheckUndoStringInUndoList ( 10, "InsertIndexEntry" )
-
-    printlog "delete index entry with 'Backspace'"
-    Call wTypeKeys ( "<Backspace>"
-    '///  string in Undo-list has to be: "Delete index entry")
-    Call CheckUndoStringInUndoList ( 10, "DeleteIndexEntry" )
-
-    '/// Type a word
-    Call wTypeKeys "BibliographyEntry"
-    Call wTypeKeys "<Shift Home>"
-    printlog "- Insert Bibliography entry"
-    printlog "Insert / Index / Bibliography entry"
-    InsertIndexesBibliographyEntry
-    Kontext "LiteratureintragEinfuegen"
-    EintragEinfuegen.Click
-    LiteratureintragEinfuegen.Close
-    '///  string in Undo-list has to be: "Insert bibliography entry")
-    Call CheckUndoStringInUndoList ( 10, "InsertBibliographyEntry" )
-
-    Printlog "delete bibliography entry with 'Backspace'"
-    Call wTypeKeys ( "<Backspace>"
-    '///  string in Undo-list has to be: "Delete bibliography entry")
-    Call CheckUndoStringInUndoList ( 10, "DeleteBibliographyEntry" )
-
-    '/// Close document
-    Call hCloseDocument
-endcase
-
-
-testcase tUndoFrames
-
-    warnlog( "#111909# - Cannot access <rename> item in context menu" )
-    goto endsub
-
-    '/// <B>Frames (Insert/Rename/Delete)</B>
-    printlog "- Insert Frame"
-    '/// new document
-    Call hNewDocument
-    '/// Insert / Frame
-    InsertFrame
-    Kontext
-    Active.Setpage TabZusaetze
-    Kontext "TabZusaetze"
-    ObjektName.Settext "MyFrame"
-    TabZusaetze.Ok
-    '///  string in Undo-list has to be: "Insert frame: MyFrame")
-    Call CheckUndoStringInUndoList ( 10, "InsertFrame" )
-
-    printlog "- Rename Frame"
-    '/// Open navigator and select frame
-    Call wNavigatorAuswahl ( 3, 1, true )
-    Kontext "NavigatorWriter"
-    '/// Open contextmenu and choose 'Edit'
-    Auswahlliste.OpenContextMenu
-    Call hMenuSelectNr(4)
-    Call hMenuSelectNr(3)
-    Kontext "ObjekteUmbenennen"
-    Objektname.Settext "MyRenamedFrame"
-    ObjekteUmbenennen.Ok
-    '///  string in Undo-list has to be: "Rename frame: 'MyFrame' -> 'MyRenamedFrame'")
-    Call CheckUndoStringInUndoList ( 10, "RenameFrame" )
-    printlog "- Delete Frame"
-    '/// Type 'Del' to delete the frame
-    Call wTypeKeys "<Delete>"
-    '///  string in Undo-list has to be: "Delete frame: 'MyRenamedFrame'")
-    Call CheckUndoStringInUndoList ( 10, "DeleteFrame" )
-
-    '/// Close document
-    Call hCloseDocument
-endcase
-
-
-testcase tUndoTableGeneral
-    Dim sTableName as string
-
-    '/// <B>Tables Part 1</B>
-    printlog "- insert table"
-    '/// new document
-    Call hNewDocument
-    '/// Insert a table
-    InsertTableWriter
-    Kontext "TabelleEinfuegenWriter"
-    sTableName = "MyTable"
-    Tabellenname.Settext sTableName
-    TabelleEinfuegenWriter.Ok
-    '///  string in Undo-list has to be: "Insert table")
-    Call CheckUndoStringInUndoList ( 10, "InsertTable" )
-    printlog "- Insert a row"
-    '/// <B>Insert a row</B>
-    Call hToolbarSelect("Table", true)
-    ZeileEinfuegen.Click
-    '///  string in Undo-list has to be: "Insert row")
-    Call CheckUndoStringInUndoList ( 10, "InsertRow" )
-    printlog "- Insert a column"
-    '/// <B>Insert a column</B>
-    Call hToolbarSelect("Table", true)
-    SpalteEinfuegen.Click
-    '///  string in Undo-list has to be: "Insert column")
-    Call CheckUndoStringInUndoList ( 10, "InsertColumn" )
-    printlog "- Delete a row"
-    '/// <B>Delete a row</B>
-    Call hToolbarSelect("Table", true)
-    ZeileLoeschen.Click
-    '///  string in Undo-list has to be: "Delete row")
-    Call CheckUndoStringInUndoList ( 10, "DeleteRow" )
-    printlog "- Delete a column"
-    '/// <B>Delete a column</B>
-    Call hToolbarSelect("Table", true)
-    SpalteLoeschen.Click
-    '///  string in Undo-list has to be: "Delete column")
-    Call CheckUndoStringInUndoList ( 10, "DeleteColumn" )
-    printlog "- format a cell"
-    '/// <B>Format cell (enable number recognition form that)</B>
-    ToolsOptions
-    Call hToolsOptions ("WRITER","Table")
-    if Not AutomatischeZahlenerkennung.IsChecked then AutomatischeZahlenerkennung.Check
-    Kontext "ExtrasOptionenDlg"
-    ExtrasOptionenDlg.Cancel
-
-    '/// type '1' in a cell
-    Call wTypeKeys ( "1" )
-    Call wTypeKeys ( "<Right>" )
-    '///  string in Undo-list has to be: "Format cell")
-    Call CheckUndoStringInUndoList ( 10, "FormatCell" )
-
-    ToolsOptions
-    Call hToolsOptions ("WRITER","Table")
-    if AutomatischeZahlenerkennung.IsChecked then AutomatischeZahlenerkennung.UnCheck
-    Kontext "ExtrasOptionenDlg"
-    ExtrasOptionenDlg.Cancel
-
-    '/// CloseDocument
-    Call hCloseDocument
-endcase
-
-
-testcase tUndoTableOptionsMerge
-
-    '/// <B>Tables Part 2</B>
-    printlog "- apply table attributes"
-    '/// new document
-    Call hNewDocument
-    '/// Insert a table
-    InsertTableWriter
-    Kontext "TabelleEinfuegenWriter"
-    TabelleEinfuegenWriter.Ok
-
-    printlog "- apply attributes"
-    '/// Format / Table
-    FormatTable
-    '/// change some table options
-    Kontext
-    Active.Setpage TabTextflussTabelle
-    Kontext "TabTextflussTabelle"
-    if Umbruch.IsChecked then
-        Umbruch.Uncheck
-    else
-        Umbruch.Check
-    end if
-    TabTextflussTabelle.Ok
-    '///  string in Undo-list has to be: "Apply table attributes")
-    Call CheckUndoStringInUndoList ( 10, "ApplyTableAttributes" )
-
-    printlog "- merge tables"
-    '/// <B>Merge tables</B>
-    Call wTypeKeys ( "<Down>" ,2 )
-    '/// Insert a second table
-    InsertTableWriter
-    Kontext "TabelleEinfuegenWriter"
-    TabelleEinfuegenWriter.Ok
-    '/// Format / Merge  / Tables
-    FormatMergeTables
-    '///  string in Undo-list has to be: "Merge table")
-    Call CheckUndoStringInUndoList ( 10, "MergeTable" )
-
-    '/// close Document
-    Call hCloseDocument
-endcase
-
-
-testcase tUndoTableConvertSort
-
-    '/// <B>Tables Part 3</B>
-    printlog "- Convert to text"
-    '/// new document
-    Call hNewDocument
-    '/// Insert text "This<Return>is a<Return>table to text<Return>text"
-    Call wTypeKeys ("This<Return>is a<Return>table to text<Return>text")
-    '/// select all
-    Call wTypeKeys ( "<Mod1 A>" )
-    '/// Format / Text <-> Table
-    ToolsTextInTable
-    Kontext "TextInTabelleUmwandeln"
-    TextInTabelleUmwandeln.OK
-    '///  string in Undo-list has to be: "Convert table -> text")
-    Call CheckUndoStringInUndoList ( 10, "ConvertTable" )
-
-    printlog "- Sort table"
-    '/// <B>Sort table</B>
-    Call wTypeKeys ( "<Mod1 A>", 2 )
-    '/// Select all -> Tools / Sort
-    ToolsSort
-    Kontext "Sortieren"
-    Sortieren.Ok
-    '///  string in Undo-list has to be: "Sort table")
-    Call CheckUndoStringInUndoList ( 10, "SortTable" )
-
-    '/// Close Document
-    Call hCloseDocument
-endcase
-
-
-testcase tUndoTableSplitDelete
-
-    '/// <B>Tables Part 4</B>
-    printlog "- Split tables"
-    '/// new document
-    Call hNewDocument
-    '/// Insert 2 tables
-    InsertTableWriter
-    Kontext  "TabelleEinfuegenWriter"
-    TabelleEinfuegenWriter.Ok
-    Call wTypeKeys ( "<Down>", 3 )
-    InsertTableWriter
-    Kontext  "TabelleEinfuegenWriter"
-    TabellenName.Settext "AnotherTable"
-    TabelleEinfuegenWriter.Ok
-    '/// MergeTables
-    FormatMergeTables
-    wait 500
-    '/// Split tables
-    FormatSplitTable
-    Kontext "TabelleAuftrennen"
-    TabelleAuftrennen.Ok
-    '///  string in Undo-list has to be: "Split table")
-    Call CheckUndoStringInUndoList ( 10, "SplitTable" )
-
-    '/// <B>Delete table</B>
-    printlog "- Delete table"
-    '/// Open navigator and select table
-    Call wNavigatorAuswahl ( 2, 1, true )
-    Kontext "NavigatorWriter"
-    '/// Open contextmenu and choose 'Delete'
-    Auswahlliste.OpenContextMenu
-    Call hMenuSelectNr(4)
-    Call hMenuSelectNr(2)
-    '///  string in Undo-list has to be: "Delete table: 'AnotherTable'")
-    Call CheckUndoStringInUndoList ( 10, "DeleteTable" )
-
-    '/// Close document
-    Call hCloseDocument
-endcase
-
-
-testcase tUndoHorizontalRuler
-
-    '/// <B>HorizontalRuler</B>
-    printlog "- Horizontal ruler"
-    '/// new document
-    Call hNewDocument
-    '/// Insert / Horizontal Line
-    InsertHorizontalLine
-    '/// Select one line
-    Kontext "HorizontaleLinieEinfuegen"
-    Auswahl.TypeKeys "<Down>", 4
-    HorizontaleLinieEinfuegen.Ok
-    '///  string in Undo-list has to be: "Insert horizontal ruler")
-    Call CheckUndoStringInUndoList ( 10, "InsertRuler" )
-
-    '/// close document
-    Call hCloseDocument
-endcase
-
-
-testcase tUndoGraphics
-
-    '/// <B>Graphics (Insert/Delete/Replace)</B>
-    printlog "- Insert graphics from file"
-    '/// new document
-    Call hNewDocument
-    '/// Insert a graphic from file
-    Call hGrafikEinfuegen ( gTesttoolPath & "writer\optional\input\graphics\jolink.jpg" )
-    '///  string in Undo-list has to be: "Insert graphics")
-    Call CheckUndoStringInUndoList ( 10, "InsertGraphic" )
-
-    '/// <B>Delete graphic</B>
-    printlog "- delete graphic"
-    '/// press 'delete' to remove graphic
-    Call wTypeKeys "<Delete>"
-    '///  string in Undo-list has to be: "Delete graphics")
-    Call CheckUndoStringInUndoList ( 10, "DeleteGraphic" )
-
-    '/// <B>Insert graphic from gallery</B>
-    printlog "- insert graphic from gallery"
-    Kontext "Gallery"
-    if Gallery.NotExists(2) then ToolsGallery
-    Sleep (2)
-
-    View.OpenContextMenu
-    Call hMenuSelectNr(1)
-    Call hMenuSelectNr(1)
-    '///  string in Undo-list has to be: "Insert graphics")
-    Call CheckUndoStringInUndoList ( 10, "InsertGraphic" )
-    Sleep (1)
-
-    '/// <B>Replace graphic</B>
-    printlog "- replace graphic"
-    '/// Insert another graphics from gallery
-    Kontext "Gallery"
-    View.OpenContextMenu
-    Call hMenuSelectNr(1)
-    Call hMenuSelectNr(1)
-    '///  string in Undo-list has to be: "Replace graphics")
-    Call CheckUndoStringInUndoList ( 10, "ReplaceGraphic" )
-
-    '/// Close gallery
-    Kontext "Gallery"
-    if Gallery.Exists then ToolsGallery
-
-    '/// Close document
-    Call hCloseDocument
-endcase
diff --git a/testautomation/writer/optional/includes/undo/w_undo_history_4.inc b/testautomation/writer/optional/includes/undo/w_undo_history_4.inc
deleted file mode 100755
index 568d6cd3d295..000000000000
--- a/testautomation/writer/optional/includes/undo/w_undo_history_4.inc
+++ /dev/null
@@ -1,495 +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 : helge.delfs@oracle.com
-'*
-'* short description : Writer Undo-History - Test
-'*
-'\***********************************************************************
-
-sub w_undo_history_4
-
-    Call tUndoOLEObject			' Objects (Insert/Delete)
-    Call tUndoFloatingFrame			' Floating Frame (Insert/Delete)
-    Call tUndoInsertFile			' Insert file
-    Call tUndoAsianPhoneticGuides			' Asian Phonetic Guides
-    Call tUndoAutocorrect			' Autocorrect / Autoformat
-    Call tUndoDrawObject			' Draw Object (Insert)
-    Call tUndoDrawObjectGroup			' Draw Object (Group/ungroup/Name/Delete)
-    Call tUndoSpellcheck			' Spellcheck (Autocheck/Spellcheck)
-    Call tUndoFormControl			' Form Control (Insert/resize/move/replace/change property/delete)
-    Call tUndoHeaderFooter			' Header/Footer insert and delete
-
-end sub
-
-testcase tUndoOLEObject
-
-    '/// <B>OLE-Objects (Insert/Delete)</B>
-    printlog "- Insert OLE-Object"
-    '/// new Document
-    Call hNewDocument
-    '/// Insert / Object / OLE-Object ///
-    InsertObjectOLEObject
-    Kontext "OLEObjektEinfuegen"
-    Objekttyp.Select 1
-    OLEObjektEinfuegen.Ok
-    wait 500
-    Call wTypeKeys "<Esc>"
-    wait 500
-    Call gMouseClick(15,5)
-    wait 500
-    '///  string in Undo-list has to be: "Insert object")
-    Call CheckUndoStringInUndoList ( 10, "InsertObject" )
-
-    printlog "- delete object"
-    '/// Select object with <Shift F4>
-    Call wTypeKeys "<Shift F4>"
-    wait 500
-    '/// <B>Delete object</B>
-    Call wTypeKeys "<Delete>"
-    wait 500
-    '/// press 'delete' to remove object
-    '///  string in Undo-list has to be: "Delete object")
-    Call CheckUndoStringInUndoList ( 10, "DeleteObject" )
-
-    '/// close Document
-    Call hCloseDocument
-endcase
-
-
-testcase tUndoFloatingFrame
-
-    '/// <B>Floating frames</B>
-    printlog "- Insert floating frame"
-    '/// new document
-    Call hNewDocument
-    '/// Insert / Floating frame
-    InsertFloatingFrame
-    Kontext "TabEigenschaften"
-    '/// Choose a file as floating frame
-    Inhalt.Settext Convertpath (gTesttoolPath & "writer\optional\input\graphics\jolink.jpg" )
-    TabEigenschaften.Ok
-    Sleep 2
-    '///  string in Undo-list has to be: "Insert floating frame")
-    Call CheckUndoStringInUndoList ( 10, "InsertFloatingFrame" )
-
-    '/// Delete floating frame
-    printlog "- delete floating frame"
-    Call wTypeKeys "<Delete>"
-    '///  string in Undo-list has to be: "Delete floating frame")
-    Call CheckUndoStringInUndoList ( 10, "DeleteFloatingFrame" )
-
-    '/// close document
-    Call hCloseDocument
-endcase
-
-
-testcase tUndoInsertFile
-
-    '/// <B>Insert File</B>
-    printlog "- Insert file"
-    '/// new document
-    Call hNewDocument
-    '/// Insert / File
-    InsertFileWriter
-    Sleep 3
-    Kontext "OeffnenDlg"
-    Sleep 2
-    '/// Choose "..\\writer\\input\\htmltest.sxw"
-    if OeffnenDlg.Exists then
-        Dateiname.Settext Convertpath (gTesttoolPath & "writer\optional\input\undo\htmltest.sxw" )
-        Oeffnen.Click
-    else
-        Warnlog "File open dialog missing"
-        Call hCloseDocument
-        goto endsub
-    end if
-
-    '///  string in Undo-list has to be: "Insert document")
-    Call CheckUndoStringInUndoList ( 10, "InsertDocument" )
-
-    '/// close document
-    Call hCloseDocument
-endcase
-
-
-testcase tUndoAsianPhoneticGuides
-
-    '/// <B>Asian Phonetic Guides</B>
-    printlog "- Asian Phonetic Guides"
-    '/// new document
-    Call hNewDocument
-    '/// type some text and select it
-    Call wTypeKeys ( "JuppHeidiUndJuppHeida" )
-    Call wTypeKeys ( "<Home>" )
-    '/// Check if Asian support is enabled, if not enable it
-    if gAsianSup = true then
-        FormatRuby
-        Kontext "RubyDialog"
-        RubyText1.Settext "SeppHeidiUndSeppHeida"
-        RubyDialog.Ok
-        RubyDialog.Close
-    else
-        Call ActiveDeactivateAsianSupport(True)
-        FormatRuby
-        Kontext "RubyDialog"
-        RubyText1.Settext "SeppHeidiUndSeppHeida"
-        RubyDialog.Ok
-        RubyDialog.Close
-        Call ActiveDeactivateAsianSupport(False)
-    end if
-
-    '///  string in Undo-list has to be: "Asian Phonectic Guides Setting")
-    Call CheckUndoStringInUndoList ( 10, "APGS" )
-
-    '/// close document
-    Call hCloseDocument
-endcase
-
-
-testcase tUndoAutocorrect
-
-    '/// <B>Autocorrect / Autoformat</B>
-    printlog "- Autocorrect / Autoformat"
-    '/// new document
-    Call hNewDocument
-    '/// <B>Autocorrect</B>
-    printlog "- Autocorrect"
-    '/// type with quote and blank at the end 'www.sun.com '
-    Call wTypeKeys ( "www.sun.com " )
-    '///  string in Undo-list has to be: "AutoCorrect")
-    Call CheckUndoStringInUndoList ( 10, "AutoCorrect" )
-
-    '/// insert a line break
-    Call wTypeKeys ( "<Return>" )
-    '/// <B>Autoformat</B>
-    printlog "- Autoformat"
-    '/// type - AutoFormat test<Return>
-    Call wTypeKeys ( "- AutoFormat test<Return>" )
-    '///  string in Undo-list has to be: "AutoCorrect")
-    Call CheckUndoStringInUndoList ( 10, "AutoFormat" )
-
-    '/// close document
-    Call hCloseDocument
-endcase
-
-
-testcase tUndoDrawObject
-    '/// <B>Draw object</B>
-    printlog "- Draw object"
-    '/// new document
-    Call hNewDocument
-    '/// Insert a freeform line object
-
-    ViewZoom
-    Kontext "Massstab"
-    Optimal.Check
-    Massstab.OK
-
-    Call hToolbarSelect ("Drawing", true)
-    Kontext "Drawbar"
-    printlog "  - Draw Freeform"
-    Freihand.Click
-    Call gMouseMove ( 33, 40, 55, 51 )
-    Call gMouseMove ( 35, 31, 40, 90 )
-    Call gMouseMove ( 41, 91, 55 , 70 )
-    Call gMouseClick( 55, 70 )
-    Call wTypeKeys ("<Escape>")
-
-    '///  string in Undo-list has to be: "Insert draw object: freeform line")
-    Call CheckUndoStringInUndoList ( 10, "FreeForm" )
-
-    '/// close document
-    Call hCloseDocument
-endcase
-
-
-testcase tUndoDrawObjectGroup
-
-    '/// <B>Group of Drawing objects</B>
-    printlog "- Group of Drawing objects"
-    '/// new document ///
-    Call hNewDocument
-    ViewZoom
-    Kontext "Massstab"
-    Optimal.Check
-    Massstab.OK
-    Sleep 1
-    '/// Insert 2 drawing objects (rectangle) ///
-    Call wZeichenobjektEinfuegen ( "Rechteck", 40, 50, 60, 60 )
-    Call wTypeKeys "<ESCAPE>"
-    Call wTypeKeys "<ESCAPE>"
-    Call wZeichenobjektEinfuegen ( "Rechteck", 40, 55, 50, 65 )
-    '/// Select both objects ///
-    Call wObjektSelektieren ( 35, 35, 70, 70 )
-    '/// Select Format / Group / Group ///
-    try
-        printlog "- group objects"
-        FormatGroupGroup
-        Sleep 1
-        '///  string in Undo-list has to be: "Group draw objects")
-        Call CheckUndoStringInUndoList ( 10, "DrawGroup" )
-
-        '/// Format / Name object
-        printlog "- name objects"
-        FormatNameObject
-        Kontext "NameDlgObject"
-        NameField.Settext "MyGroup"
-        NameDlgObject.OK
-        '///  string in Undo-list has to be: "Rename 2 Rectangles")
-        Call CheckUndoStringInUndoList ( 10, "RenameGroup" )
-
-        '/// Select Format / Group / Ungroup ///
-        printlog "- ungroup objects"
-        FormatUngroupDraw
-        '///  string in Undo-list has to be: "Ungroup group object")
-        Call CheckUndoStringInUndoList ( 10, "DrawUnGroup" )
-
-        '/// Select 1 object and delete it
-        Call gMouseClick ( 40, 52 )
-        printlog "- delete object"
-        Call wTypeKeys "<Delete>"
-        '///  string in Undo-list has to be: "Delete 2 Rectangles")
-        Call CheckUndoStringInUndoList ( 10, "DeleteGroup" )
-    catch
-        Warnlog "Unable to execute 'Format / Group / Group' -> disabled!"
-    endcatch
-
-    '/// close document
-    Call hCloseDocument
-endcase
-
-
-testcase tUndoSpellcheck
-    Dim sReplace as string
-
-    '/// <B>Spellcheck(Autocheck/Spellcheck)</B>
-    printlog "- Spellcheck: Autocheck"
-    '/// new document ///
-    Call hfileOpenLocally (gTesttoolpath + "writer\optional\input\undo\spellcheck_undo.odt")
-    
-    '/// Type "This is a testp<End>"
-    Call wTypeKeys ( "<End>" )  'This is a testp
-    '/// Select word' testp'
-    Call wTypeKeys ( "<Mod1 Shift Left>" )
-    '/// Tools / Spellcheck
-    ToolsSpellcheckWriter
-    Kontext "Spellcheck"
-    Suggestions.Select 1
-    sReplace = Suggestions.GetSelText
-    '///Replace with 1st word in suggestion list
-    printlog "-> Replace with word: " & sReplace
-    Change.Click
-    Kontext "Active"
-    if Active.Exists then
-        if Active.GetRT = 304 then
-            Active.Ok
-        end if
-    end if
-    Kontext "Spellcheck"
-    if Spellcheck.Exists then Spellcheck.Close
-    '///  string in Undo-list has to be: "Replace: 'Testp' -> 'Test'")
-    Call CheckUndoStringInUndoList ( 10, "Autocheck/Spellcheck" )
-
-    '/// Uncheck 'Autospellcheck' in Toolbar ///
-    ToolsSpellcheckAutoSpellcheck
-
-    printlog "- Spellcheck"
-    Call wTypeKeys ( "<End><Return>", 2 )
-    '/// retype 'testp'
-    Call wTypeKeys ( "testp<Shift Home>" )
-    ToolsSpellcheckWriter
-    Kontext "Spellcheck"
-    ' Workaround: For some reasons sometimes dialog is disabled here
-    ' Only reproducable by testtool
-    try
-        Suggestions.Select 1
-    catch
-        Spellcheck.Close
-        ToolsSpellcheckWriter
-        Kontext "Spellcheck"
-        Suggestions.Select 1
-    endcatch
-    Change.Click
-    Kontext "Active"
-    if Active.Exists then
-        if Active.GetRT = 304 then
-            try
-                Active.No
-            catch
-                Active.Ok
-            endcatch
-        end if
-    end if
-    Kontext "Spellcheck"
-    if Spellcheck.Exists then Spellcheck.Close
-
-    '///  string in Undo-list has to be: "Replace: 'Testp' -> 'Test'")
-    Call CheckUndoStringInUndoList ( 10, "Autocheck/Spellcheck" )
-
-    '/// close document
-    Call hCloseDocument
-endcase
-
-
-testcase tUndoFormControl
-
-    '/// <B>Form Control (Insert/resize/move/replace/change property/delete)</B>
-    printlog "- Form control (insert)"
-    '/// new document
-    Call hNewDocument
-    '/// Open 'Form' Toolbox ///
-    Call hToolbarSelect ("FormControls", true)
-    'Formsbar.Move 20, 30
-    '/// Insert a pushbutton from toolbox ///
-    Pushbutton.Click
-    Kontext "DocumentWriter"
-    DocumentWriter.MouseDown ( 40, 50 )
-    DocumentWriter.MouseMove ( 50, 55 )
-    DocumentWriter.MouseUp   ( 50, 55 )
-    Sleep 1
-
-    '///  string in Undo-list has to be: "Insert control")
-    Call CheckUndoStringInUndoList ( 10, "ControlInsert" )
-
-    printlog "- Form control (move)"
-    '/// Press '<Up>' to move control
-    Call wTypeKeys ( "<Up>" )
-    '///  string in Undo-list has to be: "Move control")
-    Call CheckUndoStringInUndoList ( 10, "ControlMove" )
-
-    printlog "- Form control (resize)"
-    '/// Press '<Ctrl+Tab>' to enter handle selection mode
-    Call wTypeKeys ( "<Mod1 Tab>" )
-    '/// Press '<Up>' to resize control
-    Call wTypeKeys ( "<Up>" )
-    '///  string in Undo-list has to be: "Resize control")
-    Call CheckUndoStringInUndoList ( 10, "ControlResize" )
-
-    printlog "- Form control (replace)"
-    '/// Select 'Format->Replace with-> Text box'
-    FormatReplaceWithTextBox
-    wait 500
-    '///  string in Undo-list has to be: "Replace control")
-    Call CheckUndoStringInUndoList ( 10, "ControlReplace" )
-
-    printlog "- Form control (change property)"
-    '/// Select 'Format->Control' and change name of control
-    FormatControl
-    Kontext "ControlPropertiesTabControl"
-    ControlPropertiesTabControl.setPage TabGeneralControl
-    Kontext "TabGeneralControl"
-    NameText.Settext "MyControl"
-    FormatControl
-    '///  string in Undo-list has to be: "Set property 'Name'")
-    Call CheckUndoStringInUndoList ( 10, "ControlChange" )
-
-    printlog "- Form control (delete)"
-    '/// Press '<Delete>' to delete control
-    Call wTypeKeys ( "<Delete>" )
-    '///  string in Undo-list has to be: "Delete control")
-    Call CheckUndoStringInUndoList ( 10, "ControlDelete" )
-
-    '/// close document
-    Call hCloseDocument
-endcase
-
-
-testcase tUndoHeaderFooter
-
-    QAErrorlog "#i56552#footer deletion cannot be undone"
-    goto endsub
-    '/// Insert header
-    printlog "- Insert header"
-    '/// new Document
-    Call hNewDocument
-    '/// Insert / Header / Default
-    DocumentWriter.UseMenu
-    MenuSelect(Menugetitemid(4))
-    Sleep 2
-    MenuSelect(Menugetitemid(9))
-    Sleep 2
-    MenuSelect(Menugetitemid(1))
-    Sleep 2
-    '///  string in Undo-list has to be: "Header/footer changed")
-    Call CheckUndoStringInUndoList ( 10, "Header/Footer" )
-
-    '///  Delete header
-    printlog "- Delete header"
-    Kontext "DocumentWriter"
-    DocumentWriter.UseMenu
-    MenuSelect(Menugetitemid(4))
-    Sleep 2
-    MenuSelect(Menugetitemid(9))
-    Sleep 2
-    MenuSelect(Menugetitemid(1))
-    Sleep 2
-    Kontext "Active"
-    if Active.Exists then
-        if Active.GetRT = 304 then
-            Active.Yes
-        end if
-    end if
-    '///  string in Undo-list has to be: "Header/footer changed")
-    Call CheckUndoStringInUndoList ( 10, "Header/Footer" )
-
-    '/// Insert footer
-    printlog "- Insert footer"
-    '/// Insert / Header / Default
-    Kontext "DocumentWriter"
-    DocumentWriter.UseMenu
-    MenuSelect(Menugetitemid(4))
-    Sleep 2
-    MenuSelect(Menugetitemid(10))
-    Sleep 2
-    MenuSelect(Menugetitemid(1))
-    Sleep 2
-    '///  string in Undo-list has to be: "Header/footer changed")
-    Call CheckUndoStringInUndoList ( 10, "Header/Footer" )
-
-    '///  Delete footer
-    printlog "- Delete footer"
-    Kontext "DocumentWriter"
-    DocumentWriter.UseMenu
-    MenuSelect(Menugetitemid(4))
-    Sleep 2
-    MenuSelect(Menugetitemid(10))
-    Sleep 2
-    MenuSelect(Menugetitemid(1))
-    Sleep 2
-    Kontext "Active"
-    if Active.Exists then
-        if Active.GetRT = 304 then
-            Active.Yes
-        end if
-    end if
-    '///  string in Undo-list has to be: "Header/footer changed")
-    Call CheckUndoStringInUndoList ( 10, "Header/Footer" )
-
-    '/// close document
-    Call hCloseDocument
-endcase
diff --git a/testautomation/writer/optional/input/advanced/new_german_spelling1.stw b/testautomation/writer/optional/input/advanced/new_german_spelling1.stw
deleted file mode 100755
index 10fa85a210b6..000000000000
--- a/testautomation/writer/optional/input/advanced/new_german_spelling1.stw
+++ /dev/null
diff --git a/testautomation/writer/optional/input/advanced/new_german_spelling10.stw b/testautomation/writer/optional/input/advanced/new_german_spelling10.stw
deleted file mode 100755
index ff40358e1ae1..000000000000
--- a/testautomation/writer/optional/input/advanced/new_german_spelling10.stw
+++ /dev/null
diff --git a/testautomation/writer/optional/input/advanced/new_german_spelling11.stw b/testautomation/writer/optional/input/advanced/new_german_spelling11.stw
deleted file mode 100755
index 4b71f26bf9b7..000000000000
--- a/testautomation/writer/optional/input/advanced/new_german_spelling11.stw
+++ /dev/null
diff --git a/testautomation/writer/optional/input/advanced/new_german_spelling12.stw b/testautomation/writer/optional/input/advanced/new_german_spelling12.stw
deleted file mode 100755
index 8dcf6a6fc4da..000000000000
--- a/testautomation/writer/optional/input/advanced/new_german_spelling12.stw
+++ /dev/null
diff --git a/testautomation/writer/optional/input/advanced/new_german_spelling13.stw b/testautomation/writer/optional/input/advanced/new_german_spelling13.stw
deleted file mode 100755
index ca6d6e44ca7f..000000000000
--- a/testautomation/writer/optional/input/advanced/new_german_spelling13.stw
+++ /dev/null
diff --git a/testautomation/writer/optional/input/advanced/new_german_spelling14.stw b/testautomation/writer/optional/input/advanced/new_german_spelling14.stw
deleted file mode 100755
index b8867096e109..000000000000
--- a/testautomation/writer/optional/input/advanced/new_german_spelling14.stw
+++ /dev/null
diff --git a/testautomation/writer/optional/input/advanced/new_german_spelling15.stw b/testautomation/writer/optional/input/advanced/new_german_spelling15.stw
deleted file mode 100755
index 184c0cee3afc..000000000000
--- a/testautomation/writer/optional/input/advanced/new_german_spelling15.stw
+++ /dev/null
diff --git a/testautomation/writer/optional/input/advanced/new_german_spelling16.stw b/testautomation/writer/optional/input/advanced/new_german_spelling16.stw
deleted file mode 100755
index c12ae6d5618d..000000000000
--- a/testautomation/writer/optional/input/advanced/new_german_spelling16.stw
+++ /dev/null
diff --git a/testautomation/writer/optional/input/advanced/new_german_spelling17.stw b/testautomation/writer/optional/input/advanced/new_german_spelling17.stw
deleted file mode 100755
index 0cc8797a416a..000000000000
--- a/testautomation/writer/optional/input/advanced/new_german_spelling17.stw
+++ /dev/null
diff --git a/testautomation/writer/optional/input/advanced/new_german_spelling18.stw b/testautomation/writer/optional/input/advanced/new_german_spelling18.stw
deleted file mode 100755
index 739dcdeef64d..000000000000
--- a/testautomation/writer/optional/input/advanced/new_german_spelling18.stw
+++ /dev/null
diff --git a/testautomation/writer/optional/input/advanced/new_german_spelling19.stw b/testautomation/writer/optional/input/advanced/new_german_spelling19.stw
deleted file mode 100755
index f13967b254be..000000000000
--- a/testautomation/writer/optional/input/advanced/new_german_spelling19.stw
+++ /dev/null
diff --git a/testautomation/writer/optional/input/advanced/new_german_spelling2.stw b/testautomation/writer/optional/input/advanced/new_german_spelling2.stw
deleted file mode 100755
index db66d088342f..000000000000
--- a/testautomation/writer/optional/input/advanced/new_german_spelling2.stw
+++ /dev/null
diff --git a/testautomation/writer/optional/input/advanced/new_german_spelling20.stw b/testautomation/writer/optional/input/advanced/new_german_spelling20.stw
deleted file mode 100755
index 1d97361a6175..000000000000
--- a/testautomation/writer/optional/input/advanced/new_german_spelling20.stw
+++ /dev/null
diff --git a/testautomation/writer/optional/input/advanced/new_german_spelling21.stw b/testautomation/writer/optional/input/advanced/new_german_spelling21.stw
deleted file mode 100755
index fa8d9b851381..000000000000
--- a/testautomation/writer/optional/input/advanced/new_german_spelling21.stw
+++ /dev/null
diff --git a/testautomation/writer/optional/input/advanced/new_german_spelling22.stw b/testautomation/writer/optional/input/advanced/new_german_spelling22.stw
deleted file mode 100755
index 24b59a4bd819..000000000000
--- a/testautomation/writer/optional/input/advanced/new_german_spelling22.stw
+++ /dev/null
diff --git a/testautomation/writer/optional/input/advanced/new_german_spelling23.stw b/testautomation/writer/optional/input/advanced/new_german_spelling23.stw
deleted file mode 100755
index a53119613f6f..000000000000
--- a/testautomation/writer/optional/input/advanced/new_german_spelling23.stw
+++ /dev/null
diff --git a/testautomation/writer/optional/input/advanced/new_german_spelling24.stw b/testautomation/writer/optional/input/advanced/new_german_spelling24.stw
deleted file mode 100755
index f4e7c1f38991..000000000000
--- a/testautomation/writer/optional/input/advanced/new_german_spelling24.stw
+++ /dev/null
diff --git a/testautomation/writer/optional/input/advanced/new_german_spelling25.stw b/testautomation/writer/optional/input/advanced/new_german_spelling25.stw
deleted file mode 100755
index f46b026813ab..000000000000
--- a/testautomation/writer/optional/input/advanced/new_german_spelling25.stw
+++ /dev/null
diff --git a/testautomation/writer/optional/input/advanced/new_german_spelling26.stw b/testautomation/writer/optional/input/advanced/new_german_spelling26.stw
deleted file mode 100755
index 56fcb7f95ea6..000000000000
--- a/testautomation/writer/optional/input/advanced/new_german_spelling26.stw
+++ /dev/null
diff --git a/testautomation/writer/optional/input/advanced/new_german_spelling27.stw b/testautomation/writer/optional/input/advanced/new_german_spelling27.stw
deleted file mode 100755
index 9b7b1dbc8aff..000000000000
--- a/testautomation/writer/optional/input/advanced/new_german_spelling27.stw
+++ /dev/null
diff --git a/testautomation/writer/optional/input/advanced/new_german_spelling28.stw b/testautomation/writer/optional/input/advanced/new_german_spelling28.stw
deleted file mode 100755
index 8cea1c744c18..000000000000
--- a/testautomation/writer/optional/input/advanced/new_german_spelling28.stw
+++ /dev/null
diff --git a/testautomation/writer/optional/input/advanced/new_german_spelling29.stw b/testautomation/writer/optional/input/advanced/new_german_spelling29.stw
deleted file mode 100755
index 50e7d92c47eb..000000000000
--- a/testautomation/writer/optional/input/advanced/new_german_spelling29.stw
+++ /dev/null
diff --git a/testautomation/writer/optional/input/advanced/new_german_spelling3.stw b/testautomation/writer/optional/input/advanced/new_german_spelling3.stw
deleted file mode 100755
index 155aed5e19a4..000000000000
--- a/testautomation/writer/optional/input/advanced/new_german_spelling3.stw
+++ /dev/null
diff --git a/testautomation/writer/optional/input/advanced/new_german_spelling30.stw b/testautomation/writer/optional/input/advanced/new_german_spelling30.stw
deleted file mode 100755
index 1594cc5953b9..000000000000
--- a/testautomation/writer/optional/input/advanced/new_german_spelling30.stw
+++ /dev/null
diff --git a/testautomation/writer/optional/input/advanced/new_german_spelling4.stw b/testautomation/writer/optional/input/advanced/new_german_spelling4.stw
deleted file mode 100755
index 5cdb653dde49..000000000000
--- a/testautomation/writer/optional/input/advanced/new_german_spelling4.stw
+++ /dev/null
diff --git a/testautomation/writer/optional/input/advanced/new_german_spelling5.stw b/testautomation/writer/optional/input/advanced/new_german_spelling5.stw
deleted file mode 100755
index 114d07829348..000000000000
--- a/testautomation/writer/optional/input/advanced/new_german_spelling5.stw
+++ /dev/null
diff --git a/testautomation/writer/optional/input/advanced/new_german_spelling6.stw b/testautomation/writer/optional/input/advanced/new_german_spelling6.stw
deleted file mode 100755
index 600059b133f5..000000000000
--- a/testautomation/writer/optional/input/advanced/new_german_spelling6.stw
+++ /dev/null
diff --git a/testautomation/writer/optional/input/advanced/new_german_spelling7.stw b/testautomation/writer/optional/input/advanced/new_german_spelling7.stw
deleted file mode 100755
index 41f4952f637c..000000000000
--- a/testautomation/writer/optional/input/advanced/new_german_spelling7.stw
+++ /dev/null
diff --git a/testautomation/writer/optional/input/advanced/new_german_spelling8.stw b/testautomation/writer/optional/input/advanced/new_german_spelling8.stw
deleted file mode 100755
index d0b7036de42d..000000000000
--- a/testautomation/writer/optional/input/advanced/new_german_spelling8.stw
+++ /dev/null
diff --git a/testautomation/writer/optional/input/advanced/new_german_spelling9.stw b/testautomation/writer/optional/input/advanced/new_german_spelling9.stw
deleted file mode 100755
index b837f2420818..000000000000
--- a/testautomation/writer/optional/input/advanced/new_german_spelling9.stw
+++ /dev/null
diff --git a/testautomation/writer/optional/input/advanced/tToolsAutocorrectWordCompletion_4.sxw b/testautomation/writer/optional/input/advanced/tToolsAutocorrectWordCompletion_4.sxw
deleted file mode 100644
index af16ee490e06..000000000000
--- a/testautomation/writer/optional/input/advanced/tToolsAutocorrectWordCompletion_4.sxw
+++ /dev/null
diff --git a/testautomation/writer/optional/input/alternative_text/jolink.jpg b/testautomation/writer/optional/input/alternative_text/jolink.jpg
deleted file mode 100644
index 6200757dd797..000000000000
--- a/testautomation/writer/optional/input/alternative_text/jolink.jpg
+++ /dev/null
diff --git a/testautomation/writer/optional/input/autocorrection/01-01.odt b/testautomation/writer/optional/input/autocorrection/01-01.odt
deleted file mode 100644
index 584bf749eaa9..000000000000
--- a/testautomation/writer/optional/input/autocorrection/01-01.odt
+++ /dev/null
diff --git a/testautomation/writer/optional/input/autocorrection/01.odt b/testautomation/writer/optional/input/autocorrection/01.odt
deleted file mode 100644
index 97e76c18a1f1..000000000000
--- a/testautomation/writer/optional/input/autocorrection/01.odt
+++ /dev/null
diff --git a/testautomation/writer/optional/input/clipboard/calc.sxc b/testautomation/writer/optional/input/clipboard/calc.sxc
deleted file mode 100644
index bf5b01fe3914..000000000000
--- a/testautomation/writer/optional/input/clipboard/calc.sxc
+++ /dev/null
diff --git a/testautomation/writer/optional/input/clipboard/draw.sxd b/testautomation/writer/optional/input/clipboard/draw.sxd
deleted file mode 100644
index ac4741b527d2..000000000000
--- a/testautomation/writer/optional/input/clipboard/draw.sxd
+++ /dev/null
diff --git a/testautomation/writer/optional/input/clipboard/dummy.sxw b/testautomation/writer/optional/input/clipboard/dummy.sxw
deleted file mode 100644
index c49f4ad98c11..000000000000
--- a/testautomation/writer/optional/input/clipboard/dummy.sxw
+++ /dev/null
diff --git a/testautomation/writer/optional/input/clipboard/dummy.txt b/testautomation/writer/optional/input/clipboard/dummy.txt
deleted file mode 100755
index 63911e3188bf..000000000000
--- a/testautomation/writer/optional/input/clipboard/dummy.txt
+++ /dev/null
@@ -1,2 +0,0 @@
-He heard quiet steps behind him. That didn't bode well. Who could be following him this late at night and in this deadbeat part of town? And at this particular moment, just after he pulled off the big time and was making off with the greenbacks. Was there another crook who'd had the same idea, and was now watching him and waiting for a chance to grab the fruit of his labor? Or did the steps behind him mean that one of many law officers in town was on to him and just waiting to pounce and snap those cuffs on his wrists? He nervously looked all around. Suddenly he saw the alley. Like lightening he darted off to the left and disappeared between the two warehouses almost falling over the trash can lying in the middle of the sidewalk. He tried to nervously tap his way along in the inky darkness and suddenly stiffened: it was a dead-end, he would have to go back the way he had come. The steps got louder and louder, he saw the black outline of a figure coming around the corner. Is this the end of the line? he thought pressing himself back against the wall trying to make himself invisible in the dark, was all that planning and energy wasted? He was dripping with sweat now, cold and wet, he could smell the fear coming off his clothes. Suddenly next to him, with a barely noticeable squeak, a door swung quietly to and fro in the night's breeze. Could this be the haven he'd prayed for? Slowly he slid toward the door, pressing himself more and more into the wall, into the dark, away from his enemy. Would this door save his hide?
-
diff --git a/testautomation/writer/optional/input/clipboard/flower.gif b/testautomation/writer/optional/input/clipboard/flower.gif
deleted file mode 100755
index 2d5923306ead..000000000000
--- a/testautomation/writer/optional/input/clipboard/flower.gif
+++ /dev/null
diff --git a/testautomation/writer/optional/input/clipboard/html.html b/testautomation/writer/optional/input/clipboard/html.html
deleted file mode 100755
index 77569bd90be6..000000000000
--- a/testautomation/writer/optional/input/clipboard/html.html
+++ /dev/null
@@ -1,93 +0,0 @@
-<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
-<HTML>
-<HEAD>
-	<META HTTP-EQUIV="CONTENT-TYPE" CONTENT="text/html; charset=iso-8859-15">
-	<TITLE></TITLE>
-	<META NAME="GENERATOR" CONTENT="StarOffice 7  (Linux)">
-	<META NAME="CREATED" CONTENT="20030724;14042643">
-	<META NAME="CHANGEDBY" CONTENT="Helge Delfs">
-	<META NAME="CHANGED" CONTENT="20040108;8361100">
-	<STYLE>
-	<!--
-		TH P { font-style: italic }
-	-->
-	</STYLE>
-</HEAD>
-<BODY LANG="en-US" DIR="LTR">
-<P STYLE="margin-bottom: 0cm"><A NAME="DDE_LINK3"></A>Text
-<A HREF="http://www.sun.com/">www.sun.com</A> <B>Bold</B> <I>Italic</I>
-<FONT COLOR="#0000ff">Blue</FONT> Text <B>Bold</B> <I>Italic</I> <FONT COLOR="#0000ff">Blue</FONT></P>
-<P STYLE="margin-bottom: 0cm"><BR>
-</P>
-<P STYLE="margin-bottom: 0cm"><A NAME="DDE_LINK1"></A>Field: <SDFIELD TYPE=DATETIME SDNUM="1031;1033;MM/DD/YY">01/08/04</SDFIELD></P>
-<P STYLE="margin-bottom: 0cm"><BR>
-</P>
-<P STYLE="margin-bottom: 0cm">Tables</P>
-<TABLE WIDTH=100% BORDER=1 BORDERCOLOR="#000000" CELLPADDING=4 CELLSPACING=0>
-	<COL WIDTH=51*>
-	<COL WIDTH=51*>
-	<COL WIDTH=51*>
-	<COL WIDTH=51*>
-	<COL WIDTH=51*>
-	<THEAD>
-		<TR VALIGN=TOP>
-			<TH WIDTH=20%>
-				<P>Table with</P>
-			</TH>
-			<TH WIDTH=20%>
-				<P>colors</P>
-			</TH>
-			<TH WIDTH=20%>
-				<P>numbers</P>
-			</TH>
-			<TH WIDTH=20%>
-				<P>numbers</P>
-			</TH>
-			<TH WIDTH=20%>
-				<P>calculation</P>
-			</TH>
-		</TR>
-	</THEAD>
-	<TBODY>
-		<TR>
-			<TD WIDTH=20% VALIGN=TOP>
-				<P>&nbsp;</P>
-			</TD>
-			<TD WIDTH=20% VALIGN=TOP BGCOLOR="#00ff00">
-				<P>&nbsp;</P>
-			</TD>
-			<TD WIDTH=20% VALIGN=BOTTOM SDVAL="0,5" SDNUM="1031;">
-				<P ALIGN=RIGHT>0,5</P>
-			</TD>
-			<TD WIDTH=20% VALIGN=BOTTOM SDVAL="84,56" SDNUM="1031;">
-				<P ALIGN=RIGHT>84,56</P>
-			</TD>
-			<TD WIDTH=20% VALIGN=BOTTOM SDVAL="85,06" SDNUM="1031;">
-				<P ALIGN=RIGHT>85,06</P>
-			</TD>
-		</TR>
-	</TBODY>
-</TABLE>
-<P STYLE="margin-bottom: 0cm"><BR>
-</P>
-<P STYLE="margin-bottom: 0cm">Graphic linked</P>
-<P STYLE="margin-bottom: 0cm"><IMG SRC="flower.gif" NAME="Graphic1" ALIGN=BOTTOM WIDTH=100 HEIGHT=75 BORDER=0></P>
-<P STYLE="margin-bottom: 0cm"><BR>
-</P>
-<P STYLE="margin-bottom: 0cm">Button</P>
-<FORM NAME="Standard" ACTION="../../../../../../../qatesttool/writer/level1/input/clipboard">
-	<P STYLE="margin-bottom: 0cm"><INPUT TYPE=BUTTON NAME="PushButton1" VALUE="Button1" STYLE="width: 1.5cm; height: 0.64cm"></P>
-</FORM>
-<P STYLE="margin-bottom: 0cm"><BR>
-</P>
-<P STYLE="margin-bottom: 0cm">Floating Frame</P>
-<P STYLE="margin-bottom: 0cm"><BR>
-</P>
-<P STYLE="margin-bottom: 0cm"><IFRAME SRC="dummy.sxw" FRAMEBORDER=YES ALIGN=LEFT WIDTH=378 HEIGHT=189></IFRAME><BR CLEAR=LEFT><BR>
-</P>
-<P STYLE="margin-bottom: 0cm"><BR>
-</P>
-<P STYLE="margin-bottom: 0cm"><BR>
-</P>
-</BODY>
-</HTML>
\ No newline at end of file
diff --git a/testautomation/writer/optional/input/clipboard/writer.sxw b/testautomation/writer/optional/input/clipboard/writer.sxw
deleted file mode 100644
index 995a4157e49c..000000000000
--- a/testautomation/writer/optional/input/clipboard/writer.sxw
+++ /dev/null
diff --git a/testautomation/writer/optional/input/dropdownLB/DropDownListBox.doc b/testautomation/writer/optional/input/dropdownLB/DropDownListBox.doc
deleted file mode 100755
index 86c604e45d81..000000000000
--- a/testautomation/writer/optional/input/dropdownLB/DropDownListBox.doc
+++ /dev/null
diff --git a/testautomation/writer/optional/input/export/filter/act_1.all b/testautomation/writer/optional/input/export/filter/act_1.all
deleted file mode 100755
index 34a447a89d54..000000000000
--- a/testautomation/writer/optional/input/export/filter/act_1.all
+++ /dev/null
@@ -1,16 +0,0 @@
-StarOffice 6.0/7 Text Document (.sxw)
-Rich Text Format (.rtf)
-HTML Document (StarOffice Writer) (.html;.htm)
-Microsoft Word 6.0 (.doc)
-Microsoft Word 95 (.doc)
-Microsoft Word 97/2000/XP (.doc)
-StarWriter 5.0 Template (.vor)
-StarWriter 4.0 Template (.vor)
-StarWriter 3.0 Template (.vor)
-DocBook (simplified) (.xml)
-StarWriter 3.0 (.sdw)
-StarWriter 4.0 (.sdw)
-Text (.txt)
-StarWriter 5.0 (.sdw)
-Text Encoded (.txt)
-StarOffice 6.0/7 Text Document Template (.stw)
diff --git a/testautomation/writer/optional/input/export/filter/exlst_1.txt b/testautomation/writer/optional/input/export/filter/exlst_1.txt
deleted file mode 100755
index 9ca74dc7e6e9..000000000000
--- a/testautomation/writer/optional/input/export/filter/exlst_1.txt
+++ /dev/null
@@ -1,19 +0,0 @@
-OpenDocument Text
-Writer 6.0
-StarWriter 5.0
-StarWriter 4.0
-StarWriter 3.0
-MS Word 97/2000
-MS Word 95
-HTML (StarOffice Writer)
-MS WinWord 6.0
-Writer 6.0 템플릿
-StarWriter 5.0 서�?파�?�
-StarWriter 4.0  서�?파�?�
-StarWriter 3.0  서�?파�?�
-�?스트
-�?스트 (�?�코드�?�)
-Dos용 �?스트
-Unix용 �?스트
-Mac용 �?스트
-서�?있는 문�?열(RTF)
\ No newline at end of file
diff --git a/testautomation/writer/optional/input/export/filter/exlst_1.unx b/testautomation/writer/optional/input/export/filter/exlst_1.unx
deleted file mode 100755
index 7d531628f94a..000000000000
--- a/testautomation/writer/optional/input/export/filter/exlst_1.unx
+++ /dev/null
@@ -1,16 +0,0 @@
-StarOffice 6.0/7 Text Document (.sxw)

-StarOffice 6.0/7 Text Document Template (.stw)

-Microsoft Word 97/2000/XP (.doc)

-Microsoft Word 95 (.doc)

-Microsoft Word 6.0 (.doc)

-Rich Text Format (.rtf)

-StarWriter 5.0 (.sdw)

-StarWriter 5.0 Template (.vor)

-StarWriter 4.0 (.sdw)

-StarWriter 4.0 Template (.vor)

-StarWriter 3.0 (.sdw)

-StarWriter 3.0 Template (.vor)

-Text (.txt)

-Text Encoded (.txt)

-HTML Document (StarOffice Writer) (.html;.htm)

-DocBook (.xml)

diff --git a/testautomation/writer/optional/input/export/filter/exlst_1.w95 b/testautomation/writer/optional/input/export/filter/exlst_1.w95
deleted file mode 100755
index 2bdbcf20d753..000000000000
--- a/testautomation/writer/optional/input/export/filter/exlst_1.w95
+++ /dev/null
@@ -1,19 +0,0 @@
-OpenDocument Text (.odt)
-OpenDocument Text Template (.ott)
-StarOffice 6.0/7 Text Document (.sxw)
-StarOffice 6.0/7 Text Document Template (.stw)
-Microsoft Word 97/2000/XP (.doc)
-Microsoft Word 95 (.doc)
-Microsoft Word 6.0 (.doc)
-Rich Text Format (.rtf)
-StarWriter 5.0 (.sdw)
-StarWriter 5.0 Template (.vor)
-StarWriter 4.0 (.sdw)
-StarWriter 4.0 Template (.vor)
-StarWriter 3.0 (.sdw)
-StarWriter 3.0 Template (.vor)
-Text (.txt)
-Text Encoded (.txt)
-HTML Document (StarOffice Writer) (.html)
-DocBook (.xml)
-Microsoft Word 2003 XML (.xml)
diff --git a/testautomation/writer/optional/input/export/filter/exlst_3.unx b/testautomation/writer/optional/input/export/filter/exlst_3.unx
deleted file mode 100755
index 4a9860dee31d..000000000000
--- a/testautomation/writer/optional/input/export/filter/exlst_3.unx
+++ /dev/null
@@ -1,17 +0,0 @@
-StarWriter 5.0
-StarWriter 5.0 Modelo
-StarWriter 4.0
-StarWriter 4.0 Modelo
-StarWriter 3.0
-StarWriter 3.0 Modelo
-HTML (StarOffice Writer)
-Text
-Text Ansi
-Text Mac
-Text DOS
-Rich Text Format
-MS Word 97/2000
-MS Word 95
-MS WinWord 6.0
-Encoded Text
-Text WIN
diff --git a/testautomation/writer/optional/input/export/filter/exlst_3.w95 b/testautomation/writer/optional/input/export/filter/exlst_3.w95
deleted file mode 100755
index 292a14c50425..000000000000
--- a/testautomation/writer/optional/input/export/filter/exlst_3.w95
+++ /dev/null
@@ -1,15 +0,0 @@
-StarWriter 5.0
-StarWriter 5.0 Modelo
-StarWriter 4.0
-StarWriter 4.0 Modelo
-StarWriter 3.0
-StarWriter 3.0 Modelo
-HTML (StarOffice Writer)
-Text
-Text Unix
-Text Mac
-Text DOS
-Rich Text Format
-MS Word 97/2000
-MS Word 95
-MS WinWord 6.0
diff --git a/testautomation/writer/optional/input/export/filter/exlst_31.unx b/testautomation/writer/optional/input/export/filter/exlst_31.unx
deleted file mode 100755
index 8d82e40196a4..000000000000
--- a/testautomation/writer/optional/input/export/filter/exlst_31.unx
+++ /dev/null
@@ -1,17 +0,0 @@
-StarWriter 5.0
-StarWriter 5.0 Sjabloon
-StarWriter 4.0
-StarWriter 4.0 Sjabloon
-StarWriter 3.0
-StarWriter 3.0 Sjabloon
-HTML (StarOffice Writer)
-Text
-Text Ansi
-Text Mac
-Text DOS
-Rich Text Format
-MS Word 97/2000
-MS Word 95
-MS WinWord 6.0
-Encoded Text
-Text WIN
diff --git a/testautomation/writer/optional/input/export/filter/exlst_31.w95 b/testautomation/writer/optional/input/export/filter/exlst_31.w95
deleted file mode 100755
index 3dfd6fc85ba5..000000000000
--- a/testautomation/writer/optional/input/export/filter/exlst_31.w95
+++ /dev/null
@@ -1,16 +0,0 @@
-StarWriter 5.0
-StarWriter 5.0 Sjabloon
-StarWriter 4.0
-StarWriter 4.0 Sjabloon
-StarWriter 3.0
-StarWriter 3.0 Sjabloon
-HTML (StarOffice Writer)
-Text
-Text Unix
-Text Mac
-Text DOS
-Rich Text Format
-MS Word 97/2000
-MS Word 95
-MS WinWord 6.0
-Encoded Text
diff --git a/testautomation/writer/optional/input/export/filter/exlst_33.unx b/testautomation/writer/optional/input/export/filter/exlst_33.unx
deleted file mode 100755
index 30fa4511b3bf..000000000000
--- a/testautomation/writer/optional/input/export/filter/exlst_33.unx
+++ /dev/null
@@ -1,16 +0,0 @@
-StarOffice 6.0/7 Texte (.sxw)
-StarOffice 6.0/7 Modèle de texte (.stw)
-Microsoft Word 97/2000/XP (.doc)
-Microsoft Word 95 (.doc)
-Microsoft Word 6.0 (.doc)
-Rich Text Format (.rtf)
-StarWriter 5.0 (.sdw)
-StarWriter 5.0 Modèle (.vor)
-StarWriter 4.0 (.sdw)
-StarWriter 4.0 Modèle (.vor)
-StarWriter 3.0 (.sdw)
-StarWriter 3.0 Modèle (.vor)
-Texte (.txt)
-Texte codé (.txt)
-Document HTLM (StarOffice Writer) (.html;.htm)
-DocBook (.xml)
diff --git a/testautomation/writer/optional/input/export/filter/exlst_33.w95 b/testautomation/writer/optional/input/export/filter/exlst_33.w95
deleted file mode 100755
index ce4e30561f05..000000000000
--- a/testautomation/writer/optional/input/export/filter/exlst_33.w95
+++ /dev/null
@@ -1,15 +0,0 @@
-StarOffice 6.0 Texte
-StarOffice 6.0 Modèle de texte
-Microsoft Word 97/2000/XP
-Microsoft Word 95
-Microsoft Word 6.0
-Rich Text Format
-StarWriter 5.0
-StarWriter 5.0 Modèle
-StarWriter 4.0
-StarWriter 4.0 Modèle
-StarWriter 3.0
-StarWriter 3.0 Modèle
-Texte
-Texte codé
-Page Web (StarOffice Writer)
diff --git a/testautomation/writer/optional/input/export/filter/exlst_34.unx b/testautomation/writer/optional/input/export/filter/exlst_34.unx
deleted file mode 100755
index b67d3be5b11c..000000000000
--- a/testautomation/writer/optional/input/export/filter/exlst_34.unx
+++ /dev/null
@@ -1,16 +0,0 @@
-StarOffice 6.0/7 Documento de texto (.sxw)
-StarOffice 6.0/7 - Plantilla de texto (.stw)
-Microsoft Word 97/2000/XP (.doc)
-Microsoft Word 95 (.doc)
-Microsoft Word 6.0 (.doc)
-Rich Text Format (.rtf)
-StarWriter 5.0 (.sdw)
-StarWriter 5.0 - Plantilla (.vor)
-StarWriter 4.0 (.sdw)
-StarWriter 4.0 - Plantilla (.vor)
-StarWriter 3.0 (.sdw)
-StarWriter 3.0 - Plantilla (.vor)
-Texto (.txt)
-Texto codificado (.txt)
-Documento HTML (StarOffice Writer) (.html;.htm)
-DocBook (.xml)
diff --git a/testautomation/writer/optional/input/export/filter/exlst_34.w95 b/testautomation/writer/optional/input/export/filter/exlst_34.w95
deleted file mode 100755
index a592e0cbab09..000000000000
--- a/testautomation/writer/optional/input/export/filter/exlst_34.w95
+++ /dev/null
@@ -1,15 +0,0 @@
-StarOffice 6.0 Documento de texto
-StarOffice 6.0 Plantilla de documento de texto
-Microsoft Word 97/2000/XP
-Microsoft Word 95
-Microsoft Word 6.0
-Rich Text Format
-StarWriter 5.0
-StarWriter 5.0 Plantilla
-StarWriter 4.0
-StarWriter 4.0 Plantilla
-StarWriter 3.0
-StarWriter 3.0 Plantilla
-Texto
-Texto codificado
-Página web (StarOffice Writer)
diff --git a/testautomation/writer/optional/input/export/filter/exlst_39.unx b/testautomation/writer/optional/input/export/filter/exlst_39.unx
deleted file mode 100755
index 526d8a144f7f..000000000000
--- a/testautomation/writer/optional/input/export/filter/exlst_39.unx
+++ /dev/null
@@ -1,16 +0,0 @@
-StarOffice 6.0/7 Documento di testo (.sxw)
-StarOffice 6.0/7 Modello di documento di testo (.stw)
-Microsoft Word 97/2000/XP (.doc)
-Microsoft Word 95 (.doc)
-Microsoft Word 6.0 (.doc)
-Rich Text Format (.rtf)
-StarWriter 5.0 (.sdw)
-StarWriter 5.0 Modello (.vor)
-StarWriter 4.0 (.sdw)
-StarWriter 4.0 Modello (.vor)
-StarWriter 3.0 (.sdw)
-StarWriter 3.0 Modello (.vor)
-Testo (.txt)
-Testo codificato (.txt)
-Documento HTML (StarOffice Writer) (.html;.htm)
-DocBook (.xml)
diff --git a/testautomation/writer/optional/input/export/filter/exlst_39.w95 b/testautomation/writer/optional/input/export/filter/exlst_39.w95
deleted file mode 100755
index fc16bf55cd7c..000000000000
--- a/testautomation/writer/optional/input/export/filter/exlst_39.w95
+++ /dev/null
@@ -1,15 +0,0 @@
-StarWriter 5.0
-StarWriter 5.0 Modello
-StarWriter 4.0
-StarWriter 4.0 Modello
-StarWriter 3.0
-StarWriter 3.0 Modello
-HTML (StarOffice Writer)
-Text
-Text Unix
-Text Mac
-Text DOS
-Rich Text Format
-MS Word 97/2000
-MS Word 95
-MS WinWord 6.0
diff --git a/testautomation/writer/optional/input/export/filter/exlst_46.unx b/testautomation/writer/optional/input/export/filter/exlst_46.unx
deleted file mode 100755
index 5aecbdff9c32..000000000000
--- a/testautomation/writer/optional/input/export/filter/exlst_46.unx
+++ /dev/null
@@ -1,16 +0,0 @@
-StarOffice 6.0/7 textdokument (.sxw)
-StarOffice 6.0/7 textdokumentmall (.stw)
-Microsoft Word 97/2000/XP (.doc)
-Microsoft Word 95 (.doc)
-Microsoft Word 6.0 (.doc)
-Rich Text Format (.rtf)
-StarWriter 5.0 (.sdw)
-StarWriter 5.0 mall (.vor)
-StarWriter 4.0 (.sdw)
-StarWriter 4.0 mall (.vor)
-StarWriter 3.0 (.sdw)
-StarWriter 3.0 mall (.vor)
-Text (.txt)
-Text - kodad (.txt)
-HTML-dokument (StarOffice Writer) (.html;.htm)
-DocBook (.xml)
diff --git a/testautomation/writer/optional/input/export/filter/exlst_46.w95 b/testautomation/writer/optional/input/export/filter/exlst_46.w95
deleted file mode 100755
index afb34d82ec27..000000000000
--- a/testautomation/writer/optional/input/export/filter/exlst_46.w95
+++ /dev/null
@@ -1,16 +0,0 @@
-StarWriter 5.0
-StarWriter 5.0 formatmall
-StarWriter 4.0
-StarWriter 4.0 formatmall
-StarWriter 3.0
-StarWriter 3.0 formatmall
-HTML (StarOffice Writer)
-Text
-Text Unix
-Text Mac
-Text DOS
-Rich Text Format
-MS Word 97/2000
-MS Word 95
-MS WinWord 6.0
-Encoded Text
diff --git a/testautomation/writer/optional/input/export/filter/exlst_49.unx b/testautomation/writer/optional/input/export/filter/exlst_49.unx
deleted file mode 100755
index 6a9365b07ca5..000000000000
--- a/testautomation/writer/optional/input/export/filter/exlst_49.unx
+++ /dev/null
@@ -1,16 +0,0 @@
-StarWriter 5.0
-StarWriter 5.0 Vorlage
-StarWriter 4.0
-StarWriter 4.0 Vorlage
-StarWriter 3.0
-StarWriter 3.0 Vorlage
-HTML (StarOffice Writer)
-Text
-Text Ansi
-Text Mac
-Text DOS
-Rich Text Format
-MS Word 97/2000
-MS Word 95
-MS WinWord 6.0
-Text WIN
diff --git a/testautomation/writer/optional/input/export/filter/exlst_49.w95 b/testautomation/writer/optional/input/export/filter/exlst_49.w95
deleted file mode 100755
index 449a0ef43826..000000000000
--- a/testautomation/writer/optional/input/export/filter/exlst_49.w95
+++ /dev/null
@@ -1,19 +0,0 @@
-OpenDocument Text (.odt)

-OpenDocument Textdokumentvorlage (.ott)

-StarOffice 6.0/7 Textdokument (.sxw)

-StarOffice 6.0/7 Textdokumentvorlage (.stw)

-Microsoft Word 97/2000/XP (.doc)

-Microsoft Word 95 (.doc)

-Microsoft Word 6.0 (.doc)

-Rich Text Format (.rtf)

-StarWriter 5.0 (.sdw)

-StarWriter 5.0 Vorlage (.vor)

-StarWriter 4.0 (.sdw)

-StarWriter 4.0 Vorlage (.vor)

-StarWriter 3.0 (.sdw)

-StarWriter 3.0 Vorlage (.vor)

-Text (.txt)

-Text Kodiert (.txt)

-HTML-Dokument (StarOffice Writer) (.html;.htm)

-DocBook (.xml)

-Flat Xml (.xml)

diff --git a/testautomation/writer/optional/input/export/filter/exlst_50.w95 b/testautomation/writer/optional/input/export/filter/exlst_50.w95
deleted file mode 100755
index 756aadb8d596..000000000000
--- a/testautomation/writer/optional/input/export/filter/exlst_50.w95
+++ /dev/null
@@ -1,18 +0,0 @@
-Besedilo OpenDocument (.odt)

-Predloga besedila OpenDocument (.ott)

-Dokument z besedilom OpenOffice.org 1.0 (.sxw)

-Predloga dokumenta z besedilom OpenOffice.org 1.0 (.stw)

-Microsoft Word 97/2000/XP (.doc)

-Microsoft Word 95 (.doc)

-Microsoft Word 6.0 (.doc)

-Rich Text Format (.rtf)

-StarWriter 5.0 (.sdw)

-Predloga dokumenta StarWriter 5.0 (.vor)

-StarWriter 4.0 (.sdw)

-Predloga dokumenta StarWriter 4.0 (.vor)

-StarWriter 3.0 (.sdw)

-Predloga dokumenta StarWriter 3.0 (.vor)

-Besedilo (.txt)

-Kodirano besedilo (.txt)

-Dokument HTML (OpenOffice.org Writer) (.html)

-Microsoft Word 2003 XML (.xml)

diff --git a/testautomation/writer/optional/input/export/filter/exlst_55.unx b/testautomation/writer/optional/input/export/filter/exlst_55.unx
deleted file mode 100755
index 370ca4cda1f6..000000000000
--- a/testautomation/writer/optional/input/export/filter/exlst_55.unx
+++ /dev/null
@@ -1,16 +0,0 @@
-StarOffice 6.0/7 Text Document (.sxw)
-Writer 6.0 Vorlage (.stw)
-Microsoft Word 97/2000/XP (.doc)
-Microsoft Word 95 (.doc)
-Microsoft Word 6.0 (.doc)
-Rich Text Format (.rtf)
-StarWriter 5.0 (.sdw)
-Modelo do StarWriter 5.0  (.vor)
-StarWriter 4.0 (.sdw)
-Modelo do StarWriter 4.0  (.vor)
-StarWriter 3.0 (.sdw)
-Modelo do StarWriter 3.0  (.vor)
-Text (.txt)
-Text (encoded) (.txt)
-HTML Document (StarOffice Writer) (.html;.htm)
-DocBook (.xml)
diff --git a/testautomation/writer/optional/input/export/filter/exlst_55.w95 b/testautomation/writer/optional/input/export/filter/exlst_55.w95
deleted file mode 100755
index 370ca4cda1f6..000000000000
--- a/testautomation/writer/optional/input/export/filter/exlst_55.w95
+++ /dev/null
@@ -1,16 +0,0 @@
-StarOffice 6.0/7 Text Document (.sxw)
-Writer 6.0 Vorlage (.stw)
-Microsoft Word 97/2000/XP (.doc)
-Microsoft Word 95 (.doc)
-Microsoft Word 6.0 (.doc)
-Rich Text Format (.rtf)
-StarWriter 5.0 (.sdw)
-Modelo do StarWriter 5.0  (.vor)
-StarWriter 4.0 (.sdw)
-Modelo do StarWriter 4.0  (.vor)
-StarWriter 3.0 (.sdw)
-Modelo do StarWriter 3.0  (.vor)
-Text (.txt)
-Text (encoded) (.txt)
-HTML Document (StarOffice Writer) (.html;.htm)
-DocBook (.xml)
diff --git a/testautomation/writer/optional/input/export/filter/exlst_7.unx b/testautomation/writer/optional/input/export/filter/exlst_7.unx
deleted file mode 100755
index eb03db656cb6..000000000000
--- a/testautomation/writer/optional/input/export/filter/exlst_7.unx
+++ /dev/null
@@ -1,16 +0,0 @@
-StarOffice 6.0/7 Текстовый документ (.sxw)
-StarOffice 6.0/7 Шаблон текстового документа (.stw)
-Microsoft Word 97/2000/XP (.doc)
-Microsoft Word 95 (.doc)
-Microsoft Word 6.0 (.doc)
-Rich Text Format (.rtf)
-StarWriter 5.0 (.sdw)
-StarWriter 5.0 Шаблон (.vor)
-StarWriter 4.0 (.sdw)
-StarWriter 4.0 Шаблон (.vor)
-StarWriter 3.0 (.sdw)
-StarWriter 3.0 Шаблон (.vor)
-Текст (.txt)
-Текст кодированный (.txt)
-Web-страница (StarOffice Writer) (.html;.htm)
-DocBook (.xml)
diff --git a/testautomation/writer/optional/input/export/filter/exlst_7.w95 b/testautomation/writer/optional/input/export/filter/exlst_7.w95
deleted file mode 100755
index eb03db656cb6..000000000000
--- a/testautomation/writer/optional/input/export/filter/exlst_7.w95
+++ /dev/null
@@ -1,16 +0,0 @@
-StarOffice 6.0/7 Текстовый документ (.sxw)
-StarOffice 6.0/7 Шаблон текстового документа (.stw)
-Microsoft Word 97/2000/XP (.doc)
-Microsoft Word 95 (.doc)
-Microsoft Word 6.0 (.doc)
-Rich Text Format (.rtf)
-StarWriter 5.0 (.sdw)
-StarWriter 5.0 Шаблон (.vor)
-StarWriter 4.0 (.sdw)
-StarWriter 4.0 Шаблон (.vor)
-StarWriter 3.0 (.sdw)
-StarWriter 3.0 Шаблон (.vor)
-Текст (.txt)
-Текст кодированный (.txt)
-Web-страница (StarOffice Writer) (.html;.htm)
-DocBook (.xml)
diff --git a/testautomation/writer/optional/input/export/filter/exlst_81.unx b/testautomation/writer/optional/input/export/filter/exlst_81.unx
deleted file mode 100755
index 4f25dbb64a92..000000000000
--- a/testautomation/writer/optional/input/export/filter/exlst_81.unx
+++ /dev/null
@@ -1,16 +0,0 @@
-StarSuite 6.0/7 文書ドキュメント (.sxw)
-StarSuite 6.0/7 文書ドキュメント テンプレート (.stw)
-Microsoft Word 97/2000/XP (.doc)
-Microsoft Word 95 (.doc)
-Microsoft Word 6.0 (.doc)
-Rich Text Format (.rtf)
-StarWriter 5.0 (.sdw)
-StarWriter 5.0 テンプレート (.vor)
-StarWriter 4.0 (.sdw)
-StarWriter 4.0 テンプレート (.vor)
-StarWriter 3.0 (.sdw)
-StarWriter 3.0 テンプレート (.vor)
-テキスト (.txt)
-エンコードされたテキスト (.txt)
-HTML ドキュメント (StarSuite Writer) (.html;.htm)
-DocBook (.xml)
diff --git a/testautomation/writer/optional/input/export/filter/exlst_81.w95 b/testautomation/writer/optional/input/export/filter/exlst_81.w95
deleted file mode 100755
index 5d0ba7c66081..000000000000
--- a/testautomation/writer/optional/input/export/filter/exlst_81.w95
+++ /dev/null
@@ -1,18 +0,0 @@
-Writer 6.0
-StarWriter 5.0
-StarWriter 4.0
-StarWriter 3.0
-MS Word 97/2000
-MS Word 95
-HTML (StarOffice Writer)
-Rich Text Format
-MS WinWord 6.0
-Writer 6.0 ﾃﾝﾌﾟﾚｰﾄ
-StarWriter 5.0 ﾃﾝﾌﾟﾚｰﾄ
-StarWriter 4.0 ﾃﾝﾌﾟﾚｰﾄ
-StarWriter 3.0 ﾃﾝﾌﾟﾚｰﾄ
-ﾃｷｽﾄ
-ﾃｷｽﾄ (ｴﾝｺｰﾄﾞした)
-ﾃｷｽﾄ DOS
-ﾃｷｽﾄ Unix
-ﾃｷｽﾄ Mac
\ No newline at end of file
diff --git a/testautomation/writer/optional/input/export/filter/exlst_82.w95 b/testautomation/writer/optional/input/export/filter/exlst_82.w95
deleted file mode 100755
index 679443cf4256..000000000000
--- a/testautomation/writer/optional/input/export/filter/exlst_82.w95
+++ /dev/null
@@ -1,18 +0,0 @@
-Writer 6.0
-StarWriter 5.0
-StarWriter 4.0
-StarWriter 3.0
-MS Word 97/2000
-MS Word 95
-HTML (StarOffice Writer)
-MS WinWord 6.0
-Writer 6.0 템플릿
-StarWriter 5.0 서식파일
-StarWriter 4.0  서식파일
-StarWriter 3.0  서식파일
-텍스트
-텍스트 (인코드된)
-Dos용 텍스트
-Unix용 텍스트
-Mac용 텍스트
-서식있는 문자열(RTF)
\ No newline at end of file
diff --git a/testautomation/writer/optional/input/export/filter/exlst_86.w95 b/testautomation/writer/optional/input/export/filter/exlst_86.w95
deleted file mode 100755
index 797827f0871f..000000000000
--- a/testautomation/writer/optional/input/export/filter/exlst_86.w95
+++ /dev/null
@@ -1,21 +0,0 @@
-OpenDocument ?? (.odt)

-OpenDocument ???? (.ott)

-StarSuite 6.0/7 ???? (.sxw)

-StarSuite 6.0/7 ?????? (.stw)

-Microsoft Word 97/2000/XP (.doc)

-Microsoft Word 95 (.doc)

-Microsoft Word 6.0 (.doc)

-Rich Text Format (.rtf)

-StarWriter 5.0 (.sdw)

-StarWriter 5.0 ?? (.vor)

-StarWriter 4.0 (.sdw)

-StarWriter 4.0 ?? (.vor)

-StarWriter 3.0 (.sdw)

-StarWriter 3.0 ?? (.vor)

-?? (.txt)

-????? (.txt)

-HTML ?? (StarSuite Writer) (.html)

-AportisDoc (Palm) (.pdb)

-DocBook (.xml)

-Microsoft Word 2003 XML (.xml)

-Pocket Word (.psw)
\ No newline at end of file
diff --git a/testautomation/writer/optional/input/export/filter/exlst_88.w95 b/testautomation/writer/optional/input/export/filter/exlst_88.w95
deleted file mode 100755
index f2972f87519b..000000000000
--- a/testautomation/writer/optional/input/export/filter/exlst_88.w95
+++ /dev/null
@@ -1,18 +0,0 @@
-Writer 6.0
-StarWriter 5.0
-StarWriter 4.0
-StarWriter 3.0
-MS Word 97/2000
-MS Word 95
-HTML (StarOffice Writer)
-Rich Text Format
-MS WinWord 6.0
-Writer 6.0 樣式
-StarWriter 5.0 樣式
-StarWriter 4.0 樣式
-StarWriter 3.0 樣式
-文字
-文字 (使用編碼的)
-文字 DOS
-文字 Unix
-文字 Mac
diff --git a/testautomation/writer/optional/input/export/odt/export1.odt b/testautomation/writer/optional/input/export/odt/export1.odt
deleted file mode 100644
index 16bbf350184d..000000000000
--- a/testautomation/writer/optional/input/export/odt/export1.odt
+++ /dev/null
diff --git a/testautomation/writer/optional/input/export/odt/export2.odt b/testautomation/writer/optional/input/export/odt/export2.odt
deleted file mode 100644
index e03576e1e860..000000000000
--- a/testautomation/writer/optional/input/export/odt/export2.odt
+++ /dev/null
diff --git a/testautomation/writer/optional/input/export/odt/export3.odt b/testautomation/writer/optional/input/export/odt/export3.odt
deleted file mode 100644
index 8782d125b161..000000000000
--- a/testautomation/writer/optional/input/export/odt/export3.odt
+++ /dev/null
diff --git a/testautomation/writer/optional/input/export/odt/export4.odt b/testautomation/writer/optional/input/export/odt/export4.odt
deleted file mode 100644
index b4d6f8d1ef2e..000000000000
--- a/testautomation/writer/optional/input/export/odt/export4.odt
+++ /dev/null
diff --git a/testautomation/writer/optional/input/export/sdw/sw50.sdw b/testautomation/writer/optional/input/export/sdw/sw50.sdw
deleted file mode 100755
index 5927a0265529..000000000000
--- a/testautomation/writer/optional/input/export/sdw/sw50.sdw
+++ /dev/null
diff --git a/testautomation/writer/optional/input/export/sdw/test1.sdw b/testautomation/writer/optional/input/export/sdw/test1.sdw
deleted file mode 100755
index ce5ff670131f..000000000000
--- a/testautomation/writer/optional/input/export/sdw/test1.sdw
+++ /dev/null
diff --git a/testautomation/writer/optional/input/export/sdw/test2.sdw b/testautomation/writer/optional/input/export/sdw/test2.sdw
deleted file mode 100755
index bdcf1d2f39ed..000000000000
--- a/testautomation/writer/optional/input/export/sdw/test2.sdw
+++ /dev/null
diff --git a/testautomation/writer/optional/input/export/sxw/i50228.sxw b/testautomation/writer/optional/input/export/sxw/i50228.sxw
deleted file mode 100644
index 19ed6dd2f043..000000000000
--- a/testautomation/writer/optional/input/export/sxw/i50228.sxw
+++ /dev/null
diff --git a/testautomation/writer/optional/input/export/sxw/test3.sxw b/testautomation/writer/optional/input/export/sxw/test3.sxw
deleted file mode 100644
index e0e5095226d0..000000000000
--- a/testautomation/writer/optional/input/export/sxw/test3.sxw
+++ /dev/null
diff --git a/testautomation/writer/optional/input/fields/AboveBelow.sxw b/testautomation/writer/optional/input/fields/AboveBelow.sxw
deleted file mode 100644
index c53d1abf690f..000000000000
--- a/testautomation/writer/optional/input/fields/AboveBelow.sxw
+++ /dev/null
diff --git a/testautomation/writer/optional/input/fields/CombineTest.sxw b/testautomation/writer/optional/input/fields/CombineTest.sxw
deleted file mode 100644
index 529a9bbcd64a..000000000000
--- a/testautomation/writer/optional/input/fields/CombineTest.sxw
+++ /dev/null
diff --git a/testautomation/writer/optional/input/fields/Date.sxw b/testautomation/writer/optional/input/fields/Date.sxw
deleted file mode 100644
index 3a65d2836c28..000000000000
--- a/testautomation/writer/optional/input/fields/Date.sxw
+++ /dev/null
diff --git a/testautomation/writer/optional/input/fields/Time.sxw b/testautomation/writer/optional/input/fields/Time.sxw
deleted file mode 100644
index 693b31968421..000000000000
--- a/testautomation/writer/optional/input/fields/Time.sxw
+++ /dev/null
diff --git a/testautomation/writer/optional/input/fields/chapterTest.sxw b/testautomation/writer/optional/input/fields/chapterTest.sxw
deleted file mode 100644
index 89ec8eec6878..000000000000
--- a/testautomation/writer/optional/input/fields/chapterTest.sxw
+++ /dev/null
diff --git a/testautomation/writer/optional/input/fields/diploma.ott b/testautomation/writer/optional/input/fields/diploma.ott
deleted file mode 100644
index 1f15f781680a..000000000000
--- a/testautomation/writer/optional/input/fields/diploma.ott
+++ /dev/null
diff --git a/testautomation/writer/optional/input/fields/fields_docinfos.sxw b/testautomation/writer/optional/input/fields/fields_docinfos.sxw
deleted file mode 100644
index 38aadc20d8b9..000000000000
--- a/testautomation/writer/optional/input/fields/fields_docinfos.sxw
+++ /dev/null
diff --git a/testautomation/writer/optional/input/fields/numberRange.sxw b/testautomation/writer/optional/input/fields/numberRange.sxw
deleted file mode 100644
index 4640eada0775..000000000000
--- a/testautomation/writer/optional/input/fields/numberRange.sxw
+++ /dev/null
diff --git a/testautomation/writer/optional/input/fields/pageTest.sxw b/testautomation/writer/optional/input/fields/pageTest.sxw
deleted file mode 100644
index 1ac99a76e284..000000000000
--- a/testautomation/writer/optional/input/fields/pageTest.sxw
+++ /dev/null
diff --git a/testautomation/writer/optional/input/fields/staticsTest.sxw b/testautomation/writer/optional/input/fields/staticsTest.sxw
deleted file mode 100644
index 13561215f273..000000000000
--- a/testautomation/writer/optional/input/fields/staticsTest.sxw
+++ /dev/null
diff --git a/testautomation/writer/optional/input/fields/statisticsTest.sxw b/testautomation/writer/optional/input/fields/statisticsTest.sxw
deleted file mode 100644
index 0b55822d92b8..000000000000
--- a/testautomation/writer/optional/input/fields/statisticsTest.sxw
+++ /dev/null
diff --git a/testautomation/writer/optional/input/filter/if_cod_lin.txt b/testautomation/writer/optional/input/filter/if_cod_lin.txt
deleted file mode 100755
index e69de29bb2d1..000000000000
--- a/testautomation/writer/optional/input/filter/if_cod_lin.txt
+++ /dev/null
diff --git a/testautomation/writer/optional/input/filter/if_cod_w95.txt b/testautomation/writer/optional/input/filter/if_cod_w95.txt
deleted file mode 100755
index b00c3a024547..000000000000
--- a/testautomation/writer/optional/input/filter/if_cod_w95.txt
+++ /dev/null
@@ -1,111 +0,0 @@
-Claris Works (*.cwk)
-CTOS DEF (*.doc)
-DataGeneral CEO Write (*.doc)
-DCA Revisable Form Text (*.doc)
-DCA with Display Write 5 (*.doc)
-DCA/FFT-Final Form Text (*.doc)
-DEC DX (*.doc)
-DEC WPS-PLUS (*.doc)
-DisplayWrite 2.0-4.x (*.doc)
-DisplayWrite 5.x (*.doc)
-EBCDIC (*.doc)
-Enable (*.wpf)
-Frame Maker MIF 3.0 (*.mif)
-Frame Maker MIF 4.0 (*.mif)
-Frame Work III (*.fw3)
-Frame Work IV (*.fw4)
-HP AdvanceWrite Plus (*.hpp)
-ICL Office Power 6 (*.doc)
-ICL Office Power 7 (*.doc)
-Interleaf (*.doc)
-Interleaf 5 - 6 (*.doc)
-Legacy Winstar onGO (*.nvo)
-Lotus Manuscript (*.doc)
-Mac Write 4.x 5.0 (*.doc)
-Mac Write II (*.doc)
-Mac Write Pro (*.doc)
-MASS 11 Rel. 8.0-8.3 (*.doc)
-MASS 11 Rel. 8.5-9.0 (*.doc)
-Microsoft MacWord 3.0 (*.doc)
-Microsoft MacWord 4.0 (*.doc)
-Microsoft MacWord 5.x (*.doc)
-Microsoft WinWord 2.x (*.doc)
-Microsoft WinWord 1.x (*.doc)
-Microsoft Word 3.x (*.txt)
-Microsoft Word 4.x (*.txt)
-Microsoft Word 5.x (*.txt)
-Microsoft Works 4.0 Mac (*.wks)
-MultiMate 3.3 (*.doc)
-MultiMate 4 (*.dox)
-MultiMate Adv. 3.6 (*.doc)
-MultiMate Adv. II 3.7 (*.doc)
-NAVY DIF (*.doc)
-OfficeWriter 4.0 (*.wp)
-OfficeWriter 5.0 (*.wp)
-OfficeWriter 6.x (*.wp)
-Peach Text (*.doc)
-PFS First Choice 1.0 (*.doc)
-PFS First Choice 2.0 (*.doc)
-PFS First Choice 3.0 (*.doc)
-PFS Professional Write 1.0 (*.doc)
-PFS Professional Write 2.x (*.doc)
-PFS Professional Write Plus (*.doc)
-PFS Write (*.doc)
-Q&A Write 1.0-3.0 (*.qw)
-Q&A Write 4.0 (*.qw)
-Rapid File 1.0 (*.doc)
-Rapid File 1.2 (*.doc)
-Samna Word IV-IV Plus (*.sw4)
-Total Word (*.doc)
-Uniplex onGO (*.nvo)
-Uniplex V7-V8 (*.doc)
-VolksWriter 3 and 4 (*.doc)
-VolksWriter Deluxe (*.doc)
-Wang II SWP (*.doc)
-Wang PC (*.doc)
-Wang WP Plus (*.doc)
-WITA (*.doc)
-WiziWord 3.0 (*.doc)
-WordPerfect (Win) 5.1-5.2 (*.wpd)
-WordPerfect 4.1 (*.wpd)
-WordPerfect 4.2 (*.wpd)
-WordPerfect 5.0 (*.wpd)
-WordPerfect 5.1 (*.wpd)
-WordPerfect 6.0 (*.wpd)
-WordPerfect 6.1 (*.wpd)
-WordPerfect Mac 1 (*.wpd)
-WordPerfect Mac 2 (*.wpd)
-WordPerfect Mac 3 (*.wpd)
-WordStar 2000 Rel. 3.0 (*.ws)
-WordStar 2000 Rel. 3.5 (*.ws)
-WordStar 3.3x (*.wsd)
-WordStar 3.45 (*.wsd)
-WordStar 4.0 (*.wsd)
-WordStar 5.0 (*.wsd)
-WordStar 5.5 (*.wsd)
-WordStar 6.0 (*.wsd)
-WriteNow 3.0 (Macintosh) (*.doc)
-Writing Assistant (*.doc)
-XEROX XIF 5.0 (*.xif)
-XEROX XIF 5.0 (Illustrator) (*.xif)
-XEROX XIF 6.0 (Color Bitmap) (*.xif)
-XEROX XIF 6.0 (Res Graphic) (*.xif)
-XyWrite (Win) 1.0 (*.xyw)
-XyWrite III (*.xyw)
-XyWrite III+ (*.xyw)
-XyWrite IV (*.xyw)
-XyWrite Sig. (Win) (*.xyw)
-XyWrite Signature (*.xyw)
-Frame Maker MIF 5.0 (*.mif)
-Microsoft Works 2.0 DOS (*.wks)
-Microsoft Works 3.0 Win (*.wps)
-Win Write 3.x (*.wri)
-WordStar (Win) 1.x-2.0 (*.wsd)
-WordStar 7.0  (*.wsd)
-WordPerfect (Win) 6.0 - 7.0 (*.wpd)
-Ami Pro 1.x-3.1 (*.sam)
-AportisDoc (Palm) (*.pdb)
-DocBook (*.xml)
-Microsoft Word 6.x (*.txt)
-Pocket Excel (*.pxl)
-Pocket Word (*.psw)
diff --git a/testautomation/writer/optional/input/filter/if_st_1_all.txt b/testautomation/writer/optional/input/filter/if_st_1_all.txt
deleted file mode 100755
index a2856dcb2f6e..000000000000
--- a/testautomation/writer/optional/input/filter/if_st_1_all.txt
+++ /dev/null
@@ -1,72 +0,0 @@
-All files (*.*)
-AportisDoc (Palm) (*.pdb)
-DocBook (*.xml)
-Microsoft Excel 2007 Binary (*.xlsb)
-Microsoft Excel 2007 XML (*.xlsm;*.xlsx)
-Microsoft Excel 2007 XML Template (*.xltm;*.xltx)
-Microsoft Excel 97/2000/XP Template (*.xlt)
-Microsoft Excel 4.x - 5.0 / 95 Templates (*.xlt)
-Microsoft PowerPoint 2007 XML (*.pptm;*.pptx)
-Microsoft PowerPoint 2007 XML Template (*.potm;*.potx)
-Microsoft PowerPoint 97/2000/XP Template (*.pot)
-Microsoft Word 95 Template (*.dot)
-Microsoft Word 97/2000/XP Template (*.dot)
-Microsoft Word 2007 XML (*.docx;*.docm)
-Microsoft Word 2007 XML Template (*.dotx;*.dotm)
-Text (*.txt)
-Text CSV (*.csv;*.txt;*.xls)
-Text Encoded (*.txt)
-Text Encoded (StarOffice Writer/Web) (*.txt)
-Text Encoded (StarOffice Master Document) (*.txt)
-Text (StarWriter/Web) (*.txt)
-HTML Document (*.html;*.htm)
-HTML Document (StarOffice Calc) (*.html;*.htm)
-HTML Document (StarOffice Writer) (*.html;*.htm)
-Web Page Query (StarOffice Calc) (*.html;*.htm)
-Drawings
-Formulas
-Master documents
-Presentations
-Spreadsheets
-Text documents
-Web pages
-StarCalc 3.0 - 5.0 Templates (*.vor)
-StarDraw 3.0 / 5.0 Templates (*.vor)
-StarImpress 4.0 / 5.0 Templates (*.vor)
-StarWriter 3.0 - 5.0 Templates (*.vor)
-StarWriter/Web 4.0 / 5.0 Templates (*.vor)
-StarWriter 4.0 / 5.0 Master Documents (*.sgl)
-StarOffice 6.0/7 Drawing (*.sxd)
-StarOffice 6.0/7 Drawing Template (*.std)
-StarOffice 6.0/7 Drawing (StarOffice Impress) (*.sxd)
-StarOffice 6.0/7 Formula (*.sxm)
-StarOffice 6.0/7 Master Document (*.sxg)
-StarOffice 6.0/7 Presentation (*.sxi)
-StarOffice 6.0/7 Presentation Template (*.sti)
-StarOffice 6.0/7 Spreadsheet (*.sxc)
-StarOffice 6.0/7 Spreadsheet Template (*.stc)
-StarOffice 6.0/7 Text Document (*.sxw)
-StarOffice 6.0/7 Text Document Template (*.stw)
-StarOffice 6.0/7 HTML Template (*.stw)
-Rich Text Format (StarOffice Calc) (*.rtf)
-Database documents
-HTML Document Template (*.oth)
-ODF Database (*.odb)
-ODF Drawing (*.odg)
-ODF Drawing (Impress) (*.odg)
-ODF Drawing Template (*.otg)
-ODF Formula (*.odf)
-ODF Master Document (*.odm)
-ODF Presentation (*.odp)
-ODF Presentation Template (*.otp)
-ODF Spreadsheet (*.ods)
-ODF Spreadsheet Template (*.ots)
-ODF Text Document (*.odt)
-ODF Text Document Template (*.ott)
-Pocket Excel (*.pxl)
-Pocket Word (*.psw)
-Quattro Pro 6.0 (*.wb2)
-T602 Document (*.602;*.txt)
-Unified Office Format presentation (*.uop;*.uof)
-Unified Office Format spreadsheet (*.uos;*.uof)
-Unified Office Format text (*.uot;*.uof)
diff --git a/testautomation/writer/optional/input/filter/if_st_33_all.txt b/testautomation/writer/optional/input/filter/if_st_33_all.txt
deleted file mode 100755
index 8d56c69eaa60..000000000000
--- a/testautomation/writer/optional/input/filter/if_st_33_all.txt
+++ /dev/null
@@ -1,58 +0,0 @@
-Tous les fichiers (*.*)
-Microsoft Excel 97/2000/XP Modèle (*.xlt)
-Microsoft Excel 4.x - 5.0 / 95 Modèles (*.xlt)
-Microsoft PowerPoint 97/2000/XP Modèle (*.pot)
-Microsoft Word 95 Modèle (*.dot)
-Microsoft Word 97/2000/XP Modèle (*.dot)
-Texte (*.txt)
-Texte CSV (*.csv;*.txt)
-Texte codé (*.txt)
-Texte codé (StarOffice Writer/Web) (*.txt)
-Texte codé (StarOffice Document maître) (*.txt)
-Texte (StarWriter/Web) (*.txt)
-Document HTML (*.html;*.htm)
-Document HTML (StarOffice Calc) (*.html;*.htm)
-Document HTML (StarOffice Writer) (*.html;*.htm)
-Requête pages Web (StarOffice Calc) (*.html;*.htm)
-Dessins
-Formules
-Documents maîtres
-Présentations
-Classeurs
-Textes
-Pages Web
-StarCalc 3.0 - 5.0 Modèles (*.vor)
-StarDraw 3.0 / 5.0 Modèles (*.vor)
-StarImpress 4.0 / 5.0 Modèles (*.vor)
-StarWriter 3.0 - 5.0 Modèles (*.vor)
-StarWriter/Web 4.0 / 5.0 Modèles (*.vor)
-StarWriter 4.0 / 5.0 Documents maîtres (*.sgl)
-StarOffice 6.0/7 Dessin (*.sxd)
-StarOffice 6.0/7 Modèle de dessin (*.std)
-StarOffice 6.0/7 Dessin (StarOffice Impress) (*.sxd)
-StarOffice 6.0/7 Formule (*.sxm)
-StarOffice 6.0/7 Document maître (*.sxg)
-StarOffice 6.0/7 Présentation (*.sxi)
-StarOffice 6.0/7 Modèle de présentation (*.sti)
-StarOffice 6.0/7 Classeur (*.sxc)
-StarOffice 6.0/7 Modèle de classeur (*.stc)
-StarOffice 6.0/7 Texte (*.sxw)
-StarOffice 6.0/7 Modèle de texte (*.stw)
-StarOffice 6.0/7 Modèle HTML (*.stw)
-Ichitaro 8/9/10/11 Modèle (*.jtt)
-Ichitaro 8/9/10/11 (*.jtd)
-Rich Text Format (StarOffice Calc) (*.rtf)
-Documents de base de données
-Modèle de document HTML (*.oth)
-Base de données OpenDocument (*.odb)
-Dessin OpenDocument (*.odg)
-Dessin OpenDocument (Impress) (*.odg)
-Modèle de dessin OpenDocument (*.otg)
-Formule OpenDocument (*.odf)
-Document maître OpenDocument (*.odm)
-Présentation OpenDocument (*.odp)
-Modèle de présentation OpenDocument (*.otp)
-Classeur OpenDocument (*.ods)
-Modèle de classeur OpenDocument (*.ots)
-Texte OpenDocument (*.odt)
-Modèle de texte OpenDocument (*.ott)
\ No newline at end of file
diff --git a/testautomation/writer/optional/input/filter/if_st_34_all.txt b/testautomation/writer/optional/input/filter/if_st_34_all.txt
deleted file mode 100755
index 67904b451456..000000000000
--- a/testautomation/writer/optional/input/filter/if_st_34_all.txt
+++ /dev/null
@@ -1,58 +0,0 @@
-Todos los archivos (*.*)
-Plantilla de Microsoft Excel 97/2000/XP (*.xlt)
-Microsoft Excel 4.x - 5.0 / 95 Plantillas (*.xlt)
-Plantilla de Microsoft PowerPoint 97/2000/XP (*.pot)
-Plantilla de Microsoft Word 95 (*.dot)
-Plantilla de Microsoft Word 97/2000/XP (*.dot)
-Texto (*.txt)
-Texto CSV (*.csv;*.txt)
-Texto codificado (*.txt)
-Texto codificado (StarOffice Writer/Web) (*.txt)
-Texto codificado (documento maestro de StarOffice) (*.txt)
-Texto (StarWriter/Web) (*.txt)
-Documento HTML (*.html;*.htm)
-Documento HTML (StarOffice Calc) (*.html;*.htm)
-Documento HTML (StarOffice Writer) (*.html;*.htm)
-Consulta de páginas Web (StarOffice Calc) (*.html;*.htm)
-Dibujos
-Fórmulas
-Documentos maestros
-Presentaciones
-Hojas de cálculo
-Documentos de texto
-Páginas web
-StarCalc 3.0 - 5.0 Plantillas (*.vor)
-StarDraw 3.0 / 5.0 - Plantillas (*.vor)
-StarImpress 4.0 / 5.0 Plantillas (*.vor)
-StarWriter 3.0 - 5.0 Plantillas (*.vor)
-StarWriter/Web 4.0 / 5.0 - Plantillas (*.vor)
-StarWriter 4.0 / 5.0 - Documentos maestros (*.sgl)
-Dibujo de StarOffice 6.0/7 (*.sxd)
-Plantilla de dibujo de StarOffice 6.0/7 (*.std)
-Dibujo de StarOffice 6.0/7 (StarOffice Impress) (*.sxd)
-Fórmula de StarOffice 6.0/7 (*.sxm)
-Documento maestro de StarOffice 6.0/7 (*.sxg)
-Presentación de StarOffice 6.0/7 (*.sxi)
-Plantilla de presentación de StarOffice 6.0/7 (*.sti)
-Hoja de cálculo de StarOffice 6.0/7 (*.sxc)
-Plantilla de hoja de cálculo de StarOffice 6.0/7 (*.stc)
-Documento de texto de StarOffice 6.0/7 (*.sxw)
-Plantilla de documento de texto de StarOffice 6.0/7 (*.stw)
-Plantilla HTML de StarOffice 6.0/7 (*.stw)
-Plantilla Ichitaro 8/9/10/11 (*.jtt)
-Ichitaro 8/9/10/11 (*.jtd)
-Rich Text Format (StarOffice Calc) (*.rtf)
-Documentos de la base de datos
-Plantilla de documento HTML (*.oth)
-Base de datos en formato OpenDocument (*.odb)
-Dibujo en formato OpenDocument (*.odg)
-Dibujo (Impress) en formato OpenDocument (*.odg)
-Plantilla de dibujo en formato OpenDocument (*.otg)
-Fórmula en formato OpenDocument (*.odf)
-Documento maestro en formato OpenDocument (*.odm)
-Presentación en formato OpenDocument (*.odp)
-Plantilla de presentación en formato OpenDocument (*.otp)
-Hoja de cálculo en formato OpenDocument (*.ods)
-Plantilla de hoja de cálculo en formato OpenDocument (*.ots)
-Texto en formato OpenDocument (*.odt)
-Plantilla de texto en formato OpenDocument (*.ott)
\ No newline at end of file
diff --git a/testautomation/writer/optional/input/filter/if_st_39_all.txt b/testautomation/writer/optional/input/filter/if_st_39_all.txt
deleted file mode 100755
index 7338bfbb212d..000000000000
--- a/testautomation/writer/optional/input/filter/if_st_39_all.txt
+++ /dev/null
@@ -1,58 +0,0 @@
-Tutti i file (*.*)
-Modello di documento Microsoft Excel 97/2000/XP (*.xlt)
-Microsoft Excel 4.x - 5.0 / 95 Modelli (*.xlt)
-Modello di documento Microsoft PowerPoint 97/2000/XP (*.pot)
-Modello di documento Microsoft Word 95 (*.dot)
-Modello di documento Microsoft Word 97/2000/XP (*.dot)
-Testo (*.txt)
-Testo CSV (*.csv;*.txt)
-Testo codificato (*.txt)
-Testo codificato (StarOffice Writer/Web) (*.txt)
-Testo codificato (documento master StarOffice) (*.txt)
-Testo (StarWriter/Web) (*.txt)
-Documento HTML (*.html;*.htm)
-Documento HTML (StarOffice Calc) (*.html;*.htm)
-Documento HTML (StarOffice Writer) (*.html;*.htm)
-Ricerca pagina Web (StarOffice Calc) (*.html;*.htm)
-Disegni
-Formule
-Documenti master
-Presentazioni
-Fogli elettronici
-Documenti di testo
-Pagine Web
-StarCalc 3.0 - 5.0 Modelli (*.vor)
-StarDraw 3.0 / 5.0 Modelli (*.vor)
-StarImpress 4.0 / 5.0 Modelli (*.vor)
-StarWriter 3.0 - 5.0 Modelli (*.vor)
-StarWriter/Web 4.0 / 5.0 Modelli (*.vor)
-StarWriter 4.0 / 5.0 Documenti master (*.sgl)
-StarOffice 6.0/7 - Disegno (*.sxd)
-StarOffice 6.0/7 - Modello di disegno (*.std)
-StarOffice 6.0/7 - Disegno (StarOffice Impress) (*.sxd)
-StarOffice 6.0/7 - Formula (*.sxm)
-StarOffice 6.0/7 - Documento master (*.sxg)
-StarOffice 6.0/7 - Presentazione (*.sxi)
-StarOffice 6.0/7 - Modello di presentazione (*.sti)
-StarOffice 6.0/7 - Foglio elettronico (*.sxc)
-StarOffice 6.0/7 - Modello di foglio elettronico (*.stc)
-StarOffice 6.0/7 - Documento di testo (*.sxw)
-StarOffice 6.0/7 - Modello di documento di testo (*.stw)
-StarOffice 6.0/7 - Modello di documento HTML (*.stw)
-Modello di documento Ichitaro 8/9/10/11 (*.jtt)
-Ichitaro 8/9/10/11 (*.jtd)
-Rich Text Format (StarOffice Calc) (*.rtf)
-Documenti database
-Modello di documento HTML (*.oth)
-OpenDocument - Database (*.odb)
-OpenDocument - Disegno (*.odg)
-OpenDocument - Disegno (Impress) (*.odg)
-OpenDocument - Modello di disegno (*.otg)
-OpenDocument - Formula (*.odf)
-OpenDocument - Documento master (*.odm)
-OpenDocument - Presentazione (*.odp)
-OpenDocument - Modello di presentazione (*.otp)
-OpenDocument - Foglio elettronico (*.ods)
-OpenDocument - Modello di foglio elettronico (*.ots)
-OpenDocument - Testo (*.odt)
-OpenDocument - Modello di testo (*.ott)
\ No newline at end of file
diff --git a/testautomation/writer/optional/input/filter/if_st_46_all.txt b/testautomation/writer/optional/input/filter/if_st_46_all.txt
deleted file mode 100755
index 5701cb3017c9..000000000000
--- a/testautomation/writer/optional/input/filter/if_st_46_all.txt
+++ /dev/null
@@ -1,63 +0,0 @@
-Alla filer (*.*)
-Microsoft Excel 97/2000/XP-mall (*.xlt)
-Microsoft Excel 4.x - 5.0/95 mallar (*.xlt)
-Microsoft PowerPoint 97/2000/XP-mall (*.pot)
-Microsoft Word 95-mall (*.dot)
-Microsoft Word 97/2000/XP-mall (*.dot)
-Text (*.txt)
-Text CSV (*.csv;*.txt)
-Text - kodad (*.txt)
-Text - kodad (StarOffice-samlingsdokument) (*.txt)
-Text - kodad (StarOffice Writer/Web) (*.txt)
-Text (StarWriter/Web) (*.txt)
-HTML dokument (*.html;*.htm)
-HTML-dokument (StarOffice Calc) (*.html;*.htm)
-HTML-dokument (StarOffice Writer) (*.html;*.htm)
-Webbsidessökning (StarOffice Calc) (*.html;*.htm)
-Teckningar
-Formler
-Samlingsdokument
-Presentationer
-Tabelldokument
-Textdokument
-Webbsidor
-StarCalc 3.0 - 5.0 mallar (*.vor)
-StarDraw 3.0/5.0 mallar (*.vor)
-StarImpress 4.0/5.0 mallar (*.vor)
-StarWriter 3.0 - 5.0 mallar (*.vor)
-StarWriter/Web 4.0/5.0 mallar (*.vor)
-StarWriter 4.0/5.0 samlingsdokument (*.sgl)
-StarOffice 6.0/7-teckning (*.sxd)
-StarOffice 6.0/7-teckningsmall (*.std)
-StarOffice 6.0/7-teckning (StarOffice Impress) (*.sxd)
-StarOffice 6.0/7-formel (*.sxm)
-StarOffice 6.0/7-samlingsdokument (*.sxg)
-StarOffice 6.0/7-presentation (*.sxi)
-Mall för StarOffice 6.0/7-presentation (*.sti)
-StarOffice 6.0/7-tabelldokument (*.sxc)
-Mall för StarOffice 6.0/7-tabelldokument (*.stc)
-StarOffice 6.0/7-textdokument (*.sxw)
-Mall för StarOffice 6.0/7-textdokument (*.stw)
-HTML-mall för StarOffice 6.0/7 (*.stw)
-Ichitaro 8/9/10/11 mall (*.jtt)
-Ichitaro 8/9/10/11 (*.jtd)
-Rich Text Format (StarOffice Calc) (*.rtf)
-Microsoft Excel 4.x - 5.0/95 (*.xls;*.xlw)
-Microsoft Word 6.0/95 (*.doc)
-StarDraw 3.0/5.0 (*.sda;*.sdd)
-StarDraw 3.0/5.0 (StarImpress) (*.sda;*.sdd)
-StarImpress 4.0/5.0 (*.sdd;*.sdp)
-Databasdokument
-HTML dokumentmall (*.oth)
-OpenDocument-databas (*.odb)
-OpenDocument teckning (*.odg)
-OpenDocument teckning (Impress) (*.odg)
-OpenDocument teckningsmall (*.otg)
-OpenDocument formel (*.odf)
-OpenDocument samlingsdokument (*.odm)
-OpenDocument presentation (*.odp)
-OpenDocument presentationsmall (*.otp)
-OpenDocument tabelldokument (*.ods)
-OpenDocument tabelldokumentmall (*.ots)
-OpenDocument-text (*.odt)
-OpenDocument-textmall (*.ott)
\ No newline at end of file
diff --git a/testautomation/writer/optional/input/filter/if_st_46_exe.txt b/testautomation/writer/optional/input/filter/if_st_46_exe.txt
deleted file mode 100755
index a4dd494c5097..000000000000
--- a/testautomation/writer/optional/input/filter/if_st_46_exe.txt
+++ /dev/null
@@ -1,5 +0,0 @@
-Microsoft Excel 4.x - 5.0 / 95 (*.xls;*.xlw)
-Microsoft Word 6.0 / 95 (*.doc)
-StarDraw 3.0 / 5.0 (*.sda;*.sdd)
-StarDraw 3.0 / 5.0 (StarImpress) (*.sda;*.sdd)
-StarImpress 4.0 / 5.0 (*.sdd;*.sdp)
diff --git a/testautomation/writer/optional/input/filter/if_st_49_all.txt b/testautomation/writer/optional/input/filter/if_st_49_all.txt
deleted file mode 100755
index 8d413eb7b8bb..000000000000
--- a/testautomation/writer/optional/input/filter/if_st_49_all.txt
+++ /dev/null
@@ -1,58 +0,0 @@
-Alle Dateien (*.*)
-Microsoft Excel 97/2000/XP Vorlage (*.xlt)
-Microsoft Excel 4.x - 5.0 / 95 Vorlagen (*.xlt)
-Microsoft PowerPoint 97/2000/XP Vorlage (*.pot)
-Microsoft Word 95 Vorlage (*.dot)
-Microsoft Word 97/2000/XP Vorlage (*.dot)
-Text (*.txt)
-Text CSV (*.csv;*.txt)
-Text Kodiert (*.txt)
-Text Kodiert (StarOffice Writer/Web) (*.txt)
-Text Kodiert (StarOffice Globaldokument) (*.txt)
-Text (StarWriter/Web) (*.txt)
-HTML-Dokument (*.html;*.htm)
-HTML-Dokument (StarOffice Calc) (*.html;*.htm)
-HTML-Dokument (StarOffice Writer) (*.html;*.htm)
-Webseiten-Abfrage (StarOffice Calc) (*.html;*.htm)
-Zeichnungen
-Formeln
-Globaldokumente
-Präsentationen
-Tabellendokumente
-Textdokumente
-Webseiten
-StarCalc 3.0 - 5.0 Vorlagen (*.vor)
-StarDraw 3.0 / 5.0 Vorlagen (*.vor)
-StarImpress 4.0 / 5.0 Vorlagen (*.vor)
-StarWriter 3.0 - 5.0 Vorlagen (*.vor)
-StarWriter/Web 4.0 / 5.0 Vorlagen (*.vor)
-StarWriter 4.0 / 5.0 Globaldokumente (*.sgl)
-StarOffice 6.0/7 Zeichnung (*.sxd)
-StarOffice 6.0/7 Zeichnungsvorlage (*.std)
-StarOffice 6.0/7 Zeichnung (StarOffice Impress) (*.sxd)
-StarOffice 6.0/7 Formel (*.sxm)
-StarOffice 6.0/7 Globaldokument (*.sxg)
-StarOffice 6.0/7 Präsentation (*.sxi)
-StarOffice 6.0/7 Präsentationsvorlage (*.sti)
-StarOffice 6.0/7 Tabellendokument (*.sxc)
-StarOffice 6.0/7 Tabellendokument Vorlage (*.stc)
-StarOffice 6.0/7 Textdokument (*.sxw)
-StarOffice 6.0/7 Textdokumentvorlage (*.stw)
-StarOffice 6.0/7 HTML-Dokumentvorlage (*.stw)
-Ichitaro 8/9/10/11 Vorlage (*.jtt)
-Ichitaro 8/9/10/11 (*.jtd)
-Rich Text Format (StarOffice Calc) (*.rtf)
-Datenbankdokumente
-HTML-Dokumentvorlage (*.oth)
-OpenDocument Datenbank (*.odb)
-OpenDocument Zeichnung (*.odg)
-OpenDocument Zeichnung (Impress) (*.odg)
-OpenDocument Zeichnungsdokumentvorlage (*.otg)
-OpenDocument Formel (*.odf)
-OpenDocument Globaldokument (*.odm)
-OpenDocument Präsentation (*.odp)
-OpenDocument Präsentationsdokumentvorlage (*.otp)
-OpenDocument Tabellendokument (*.ods)
-OpenDocument Tabellendokumentvorlage (*.ots)
-OpenDocument Text (*.odt)
-OpenDocument Textdokumentvorlage (*.ott)
\ No newline at end of file
diff --git a/testautomation/writer/optional/input/filter/if_st_55_all.txt b/testautomation/writer/optional/input/filter/if_st_55_all.txt
deleted file mode 100755
index 45638ed228f3..000000000000
--- a/testautomation/writer/optional/input/filter/if_st_55_all.txt
+++ /dev/null
@@ -1,58 +0,0 @@
-Todos os arquivos (*.*)
-Modelo do Microsoft Excel 97/2000/XP (*.xlt)
-Modelos do Microsoft Excel 4.x - 5.0 / 95 (*.xlt)
-Modelo do Microsoft PowerPoint 97/2000/XP (*.pot)
-Modelo do Microsoft Word 95 (*.dot)
-Modelo do Microsoft Word 97/2000/XP (*.dot)
-Texto (*.txt)
-Texto CSV (*.csv;*.txt)
-Texto codificado (*.txt)
-Texto codificado (StarOffice Writer/Web) (*.txt)
-Texto codificado (documento mestre do StarOffice) (*.txt)
-Texto (StarWriter/Web) (*.txt)
-Documento HTML (*.html;*.htm)
-Documento HTML (StarOffice Calc) (*.html;*.htm)
-Documento HTML (StarOffice Writer) (*.html;*.htm)
-Consulta de página da Web (StarOffice Calc) (*.html;*.htm)
-Desenhos
-Fórmulas
-Documentos mestre
-Apresentações
-Planilhas
-Documentos de texto
-Páginas da Web
-Modelos do StarCalc 3.0 - 5.0 (*.vor)
-Modelos do StarDraw 3.0 / 5.0 (*.vor)
-Modelos do StarImpress 4.0 / 5.0 (*.vor)
-Modelos do StarWriter 3.0 - 5.0 (*.vor)
-Modelos do StarWriter/Web 4.0 / 5.0 (*.vor)
-Documentos Mestre do StarWriter 4.0 / 5.0 (*.sgl)
-Desenho do StarOffice 6.0/7 (*.sxd)
-Modelo de desenho do StarOffice 6.0/7 (*.std)
-Desenho do StarOffice 6.0/7 (StarOffice Impress) (*.sxd)
-Fórmula do StarOffice 6.0/7 (*.sxm)
-Documente mestre do StarOffice 6.0/7 (*.sxg)
-Apresentação do StarOffice 6.0/7 (*.sxi)
-Modelo de apresentação do StarOffice 6.0/7 (*.sti)
-Planilha do StarOffice 6.0/7 (*.sxc)
-Modelo de planilha do StarOffice 6.0/7 (*.stc)
-Documento de texto do StarOffice 6.0/7 (*.sxw)
-Modelo de documento de texto do StarOffice 6.0/7 (*.stw)
-Modelo de HTML do StarOffice 6.0/7 (*.stw)
-Modelo Ichitaro 8/9/10/11 (*.jtt)
-Ichitaro 8/9/10/11 (*.jtd)
-Rich Text Format (StarOffice Calc) (*.rtf)
-Documentos de banco de dados
-Modelo de documento HTML (*.oth)
-Banco de dados do OpenDocument (*.odb)
-Desenho do OpenDocument (*.odg)
-Desenho do OpenDocument (Impress) (*.odg)
-Modelo de desenho do OpenDocument (*.otg)
-Fórmula do OpenDocument (*.odf)
-Documento mestre do OpenDocument (*.odm)
-Apresentação do OpenDocument (*.odp)
-Modelo de apresentação do OpenDocument (*.otp)
-Planilha do OpenDocument (*.ods)
-Modelo de planilha do OpenDocument (*.ots)
-Texto do OpenDocument (*.odt)
-Modelo de texto do OpenDocument (*.ott)
\ No newline at end of file
diff --git a/testautomation/writer/optional/input/filter/if_st_81_all.txt b/testautomation/writer/optional/input/filter/if_st_81_all.txt
deleted file mode 100755
index 4c4d849cb7c2..000000000000
--- a/testautomation/writer/optional/input/filter/if_st_81_all.txt
+++ /dev/null
@@ -1,58 +0,0 @@
-すべてのファイル (*.*)
-Microsoft Excel 97/2000/XP テンプレート (*.xlt)
-Microsoft Excel 4.x - 5.0 / 95 テンプレート (*.xlt)
-Microsoft PowerPoint 97/2000/XP テンプレート (*.pot)
-Microsoft Word 95 テンプレート (*.dot)
-Microsoft Word 97/2000/XP テンプレート (*.dot)
-テキスト (*.txt)
-テキスト CSV (*.csv;*.txt)
-符号化テキスト (*.txt)
-符号化テキスト (StarSuite Writer/Web) (*.txt)
-符号化テキスト (StarSuite マスタードキュメント) (*.txt)
-テキスト (StarWriter/Web) (*.txt)
-HTML ドキュメント (*.html;*.htm)
-HTML ドキュメント (StarSuite Calc) (*.html;*.htm)
-HTML ドキュメント (StarSuite Writer) (*.html;*.htm)
-Webページのクエリー (StarSuite Calc) (*.html;*.htm)
-図形描画
-数式
-マスタードキュメント
-プレゼンテーション
-表計算ドキュメント
-文書ドキュメント
-Webページ
-StarCalc 3.0 - 5.0 テンプレート (*.vor)
-StarDraw 3.0 / 5.0 テンプレート (*.vor)
-StarImpress 4.0 / 5.0 テンプレート (*.vor)
-StarWriter 3.0 - 5.0 テンプレート (*.vor)
-StarWriter/Web 4.0 / 5.0 テンプレート (*.vor)
-StarWriter 4.0 / 5.0 マスタードキュメント (*.sgl)
-StarSuite 6.0/7 図形描画 (*.sxd)
-StarSuite 6.0/7 図形描画テンプレート (*.std)
-StarSuite 6.0/7 図形描画 (StarSuite Impress) (*.sxd)
-StarSuite 6.0/7 数式 (*.sxm)
-StarSuite 6.0/7 マスタードキュメント (*.sxg)
-StarSuite 6.0/7 プレゼンテーション (*.sxi)
-StarSuite 6.0/7 プレゼンテーションテンプレート (*.sti)
-StarSuite 6.0/7 表計算ドキュメント (*.sxc)
-StarSuite 6.0/7 表計算ドキュメント テンプレート (*.stc)
-StarSuite 6.0/7 文書ドキュメント (*.sxw)
-StarSuite 6.0/7 文書ドキュメントテンプレート (*.stw)
-StarSuite 6.0/7 HTML テンプレート (*.stw)
-一太郎 8/9/10/11 テンプレート (*.jtt)
-Ichitaro 8/9/10/11 (*.jtd)
-Rich Text Format (StarSuite Calc) (*.rtf)
-Database documents
-HTML ドキュメントのテンプレート (*.oth)
-OpenDocument データベース (*.odb)
-OpenDocument の図形描画 (*.odg)
-OpenDocument の図形描画 (Impress) (*.odg)
-OpenDocument の図形描画テンプレート (*.otg)
-OpenDocument の数式 (*.odf)
-OpenDocument のマスタードキュメント (*.odm)
-OpenDocument のプレゼンテーション (*.odp)
-OpenDocument のプレゼンテーションテンプレート (*.otp)
-OpenDocument Spreadsheet (*.ods)
-OpenDocument Spreadsheet Template (*.ots)
-OpenDocument のテキスト (*.odt)
-OpenDocument のテキストテンプレート (*.ott)
\ No newline at end of file
diff --git a/testautomation/writer/optional/input/filter/if_st_82_all.txt b/testautomation/writer/optional/input/filter/if_st_82_all.txt
deleted file mode 100755
index 4be787ff7a0b..000000000000
--- a/testautomation/writer/optional/input/filter/if_st_82_all.txt
+++ /dev/null
@@ -1,58 +0,0 @@
-모든 파일 (*.*)
-Microsoft Excel 97/2000/XP 서식 파일 (*.xlt)
-Microsoft Excel 4.x - 5.0 / 95 서식 파일 (*.xlt)
-Microsoft PowerPoint 97/2000/XP 서식 파일 (*.pot)
-Microsoft Word 95 서식 파일 (*.dot)
-Microsoft Word 97/2000/XP 서식 파일 (*.dot)
-텍스트 문서 (*.txt)
-텍스트 CSV (*.csv;*.txt)
-인코딩된 텍스트 (*.txt)
-인코딩된 텍스트(StarSuite Writer/Web) (*.txt)
-인코드된 텍스트(StarSuite 마스터 문서) (*.txt)
-텍스트 (StarWriter/Web) (*.txt)
-HTML 문서 (*.html;*.htm)
-HTML 문서(StarSuite Calc) (*.html;*.htm)
-HTML 문서(StarSuite Writer) (*.html;*.htm)
-웹 페이지 쿼리(StarSuite Calc) (*.html;*.htm)
-그리기
-수식
-마스터 문서
-프레젠테이션
-스프레드시트
-텍스트 문서
-웹 페이지
-StarCalc 3.0 - 5.0 서식 파일 (*.vor)
-StarDraw 3.0 / 5.0 서식 파일 (*.vor)
-StarImpress 4.0 / 5.0 서식 파일 (*.vor)
-StarWriter 3.0 - 5.0 서식 파일 (*.vor)
-StarWriter/Web 4.0 / 5.0 서식 파일 (*.vor)
-StarWriter 4.0 / 5.0 마스터 문서 (*.sgl)
-StarSuite 6.0/7 그리기 (*.sxd)
-StarSuite 6.0/7 그리기 서식 파일 (*.std)
-StarSuite 6.0/7 그리기(StarSuite Impress) (*.sxd)
-StarSuite 6.0/7 수식 (*.sxm)
-StarSuite 6.0/7 마스터 문서 (*.sxg)
-StarSuite 6.0/7 프레젠테이션 (*.sxi)
-StarSuite 6.0/7 프레젠테이션 서식 파일 (*.sti)
-StarSuite 6.0/7 스프레드시트 (*.sxc)
-StarSuite 6.0/7 스프레드시트 서식 파일 (*.stc)
-StarSuite 6.0/7 텍스트 문서 (*.sxw)
-StarSuite 6.0/7 텍스트 문서 서식 파일 (*.stw)
-StarSuite 6.0/7 HTML 서식 파일 (*.stw)
-Ichitaro 8/9/10/11 서식 파일 (*.jtt)
-Ichitaro 8/9/10/11 (*.jtd)
-Rich Text Format (StarSuite Calc) (*.rtf)
-데이터베이스 문서
-HTML 문서 서식 파일 (*.oth)
-OpenDocument 데이터베이스 (*.odb)
-OpenDocument 그리기 (*.odg)
-OpenDocument 그리기(Impress) (*.odg)
-OpenDocument 그리기 서식 파일 (*.otg)
-OpenDocument 수식 (*.odf)
-OpenDocument 마스터 문서 (*.odm)
-OpenDocument 프레젠테이션 (*.odp)
-OpenDocument 프레젠테이션 서식 파일 (*.otp)
-OpenDocument 스프레드시트 (*.ods)
-OpenDocument 스프레드시트 서식 파일 (*.ots)
-OpenDocument 텍스트 (*.odt)
-OpenDocument 텍스트 서식 파일 (*.ott)
\ No newline at end of file
diff --git a/testautomation/writer/optional/input/filter/if_st_86_all.txt b/testautomation/writer/optional/input/filter/if_st_86_all.txt
deleted file mode 100755
index 973645e728ef..000000000000
--- a/testautomation/writer/optional/input/filter/if_st_86_all.txt
+++ /dev/null
@@ -1,58 +0,0 @@
-全部文件 (*.*)
-Microsoft Excel 97/2000/XP 模板 (*.xlt)
-Microsoft Excel 4.x - 5.0 / 95 模板 (*.xlt)
-Microsoft PowerPoint 97/2000/XP 模板 (*.pot)
-Microsoft Word 95 模板 (*.dot)
-Microsoft Word 97/2000/XP 模板 (*.dot)
-文字 (*.txt)
-文字 CSV (*.csv;*.txt)
-已编码文本 (*.txt)
-已编码文本 (StarSuite Writer/Web) (*.txt)
-已编码文本（StarSuite 主控文档） (*.txt)
-文字 (StarWriter/Web) (*.txt)
-HTML 文档 (*.html;*.htm)
-HTML 文档 (StarSuite Calc) (*.html;*.htm)
-HTML 文档 (StarSuite Writer) (*.html;*.htm)
-Web 页查询 (StarSuite Calc) (*.html;*.htm)
-绘图
-公式
-主控文档
-工作表文档
-演示文稿
-文本文档
-网页
-StarCalc 3.0 - 5.0 样式 (*.vor)
-StarDraw 3.0 / 5.0 样式 (*.vor)
-StarImpress 4.0 / 5.0 样式 (*.vor)
-StarWriter 3.0 - 5.0 样式 (*.vor)
-StarWriter/Web 4.0 / 5.0 样式 (*.vor)
-StarWriter 4.0 / 5.0 主控文档 (*.sgl)
-StarSuite 6.0/7 绘图 (*.sxd)
-StarSuite 6.0/7 绘图模板 (*.std)
-StarSuite 6.0/7 绘图 (StarSuite Impress) (*.sxd)
-StarSuite 6.0/7 公式 (*.sxm)
-StarSuite 6.0/7 主控文档 (*.sxg)
-StarSuite 6.0/7 演示文稿 (*.sxi)
-StarSuite 6.0/7 演示文稿模板 (*.sti)
-StarSuite 6.0/7 电子表格 (*.sxc)
-StarSuite 6.0/7 电子表格模板 (*.stc)
-StarSuite 6.0/7 文本文档 (*.sxw)
-StarSuite 6.0/7 HTML 模板 (*.stw)
-StarSuite 6.0/7 文本文档模板 (*.stw)
-Ichitaro 8/9/10/11 模板 (*.jtt)
-Ichitaro 8/9/10/11 (*.jtd)
-Rich Text Format (StarSuite Calc) (*.rtf)
-数据库文档
-HTML 文档模板 (*.oth)
-OpenDocument 数据库 (*.odb)
-OpenDocument 绘图 (*.odg)
-OpenDocument 绘图 (Impress) (*.odg)
-OpenDocument 绘图模板 (*.otg)
-OpenDocument 公式 (*.odf)
-OpenDocument 主控文档 (*.odm)
-OpenDocument 演示文稿 (*.odp)
-OpenDocument 演示文稿模板 (*.otp)
-OpenDocument 电子表格 (*.ods)
-OpenDocument 电子表格模板 (*.ots)
-OpenDocument 文本 (*.odt)
-OpenDocument 文本模板 (*.ott)
\ No newline at end of file
diff --git a/testautomation/writer/optional/input/filter/if_st_88_all.txt b/testautomation/writer/optional/input/filter/if_st_88_all.txt
deleted file mode 100755
index ec1ca30166fe..000000000000
--- a/testautomation/writer/optional/input/filter/if_st_88_all.txt
+++ /dev/null
@@ -1,58 +0,0 @@
-全部的檔案 (*.*)
-Microsoft Excel 97/2000/XP 範本 (*.xlt)
-Microsoft Excel 4.x - 5.0 / 95 範本 (*.xlt)
-Microsoft PowerPoint 97/2000/XP 範本 (*.pot)
-Microsoft Word 95 範本 (*.dot)
-Microsoft Word 97/2000/XP 範本 (*.dot)
-文字 (*.txt)
-文字 CSV (*.csv;*.txt)
-編碼文字 (*.txt)
-編碼文字 (StarSuite Writer/Web) (*.txt)
-編碼文字 (StarSuite 主控文件) (*.txt)
-文字(StarWriter/Web) (*.txt)
-HTML 文件 (*.html;*.htm)
-HTML 文件 (StarSuite Calc) (*.html;*.htm)
-HTML 文件 (StarSuite Writer) (*.html;*.htm)
-網頁查詢 (StarSuite Calc) (*.html;*.htm)
-繪圖
-公式
-主控文件
-簡報
-工作表文件
-文字文件
-網頁
-StarCalc 3.0 - 5.0 樣式 (*.vor)
-StarDraw 3.0 / 5.0 樣式 (*.vor)
-StarImpress 4.0 / 5.0 樣式 (*.vor)
-StarWriter 3.0 - 5.0 樣式 (*.vor)
-StarWriter/Web 4.0 / 5.0 樣式 (*.vor)
-StarWriter 4.0/ 5.0 主控文件 (*.sgl)
-StarSuite 6.0/7 繪圖 (*.sxd)
-StarSuite 6.0/7 繪圖範本 (*.std)
-StarSuite 6.0/7 繪圖 (StarSuite Impress) (*.sxd)
-StarSuite 6.0/7 公式 (*.sxm)
-StarSuite 6.0/7 主控文件 (*.sxg)
-StarSuite 6.0/7 簡報 (*.sxi)
-StarSuite 6.0/7 簡報範本 (*.sti)
-StarSuite 6.0/7 工作表 (*.sxc)
-StarSuite 6.0/7 工作表範本 (*.stc)
-StarSuite 6.0/7 文字文件 (*.sxw)
-StarSuite 6.0/7 文字文件範本 (*.stw)
-StarSuite 6.0/7 HTML 範本 (*.stw)
-Ichitaro 8/9/10/11 範本 (*.jtt)
-Ichitaro 8/9/10/11 (*.jtd)
-Rich Text Format (StarSuite Calc) (*.rtf)
-資料庫文件
-HTML 文件範本 (*.oth)
-OpenDocument 資料庫 (*.odb)
-OpenDocument 繪圖 (*.odg)
-OpenDocument 繪圖 (Impress) (*.odg)
-OpenDocument 繪圖範本 (*.otg)
-OpenDocument 公式 (*.odf)
-OpenDocument 主控文件 (*.odm)
-OpenDocument 簡報 (*.odp)
-OpenDocument 簡報範本 (*.otp)
-OpenDocument 工作表 (*.ods)
-OpenDocument 工作表範本 (*.ots)
-OpenDocument 文字 (*.odt)
-OpenDocument 文字範本 (*.ott)
\ No newline at end of file
diff --git a/testautomation/writer/optional/input/filter/if_st_all.txt b/testautomation/writer/optional/input/filter/if_st_all.txt
deleted file mode 100755
index 7025c8022990..000000000000
--- a/testautomation/writer/optional/input/filter/if_st_all.txt
+++ /dev/null
@@ -1,53 +0,0 @@
-BMP - Windows Bitmap (*.bmp)
-CGM - Computer Graphics Metafile (*.cgm)
-Data Interchange Format (*.dif)
-dBASE (*.dbf)
-DXF - AutoCAD Interchange Format (*.dxf)
-EMF - Enhanced Metafile (*.emf)
-GIF - Graphics Interchange Format (*.gif)
-EPS - Encapsulated PostScript (*.eps)
-Hangul WP 97 (*.hwp)
-JPEG - Joint Photographic Experts Group (*.jpg;*.jpeg;*.jfif;*.jif;*.jpe)
-Lotus 1-2-3 (*.wk1;*.wks;*.123)
-MathML 1.01 (*.mml)
-MET - OS/2 Metafile (*.met)
-Microsoft Excel 4.x - 5.0 / 95 (*.xls;*.xlc;*.xlm;*.xlw)
-Microsoft Excel 97/2000/XP (*.xls;*.xlc;*.xlm;*.xlw)
-Microsoft PowerPoint 97/2000/XP (*.ppt;*.pps)
-Microsoft WinWord 5 (*.doc)
-Microsoft Word 6.0 / 95 (*.doc)
-Microsoft Word 97/2000/XP (*.doc)
-PBM - Portable Bitmap (*.pbm)
-PCD - Kodak Photo CD (192x128) (*.pcd)
-PCD - Kodak Photo CD (384x256) (*.pcd)
-PCD - Kodak Photo CD (768x512) (*.pcd)
-PCT - Mac Pict (*.pct;*.pict)
-PCX - Zsoft Paintbrush (*.pcx)
-PGM - Portable Graymap (*.pgm)
-PNG - Portable Network Graphic (*.png)
-PPM - Portable Pixelmap (*.ppm)
-PSD - Adobe Photoshop (*.psd)
-RAS - Sun Raster Image (*.ras)
-Rich Text Format (*.rtf)
-SGF - StarWriter Graphics Format (*.sgf)
-SGV - StarDraw 2.0 (*.sgv)
-StarCalc 1.0 (*.sdc)
-StarCalc 3.0 - 5.0 (*.sdc)
-StarDraw 3.0 / 5.0 (*.sda;*.sdd)
-StarDraw 3.0 / 5.0 (StarImpress) (*.sda;*.sdd)
-StarImpress 4.0 / 5.0 (*.sdd;*.sdp)
-StarMath 2.0 - 5.0 (*.smf)
-StarWriter 1.0 (*.sdw)
-StarWriter 2.0 (*.sdw)
-StarWriter 3.0 - 5.0 (*.sdw)
-StarWriter DOS (*.txt)
-SVM - StarView Metafile (*.svm)
-SYLK (*.slk)
-TGA - Truevision Targa (*.tga)
-TIFF - Tagged Image File Format (*.tif;*.tiff)
-WMF - Windows Metafile (*.wmf)
-XBM - X Bitmap (*.xbm)
-XPM - X PixMap (*.xpm)
-Microsoft Word 2003 XML (*.xml)
-Microsoft Excel 2003 XML (*.xml)
-WordPerfect Document (*.wpd)
diff --git a/testautomation/writer/optional/input/filter/if_w4w_lin.txt b/testautomation/writer/optional/input/filter/if_w4w_lin.txt
deleted file mode 100755
index 208ec0670b01..000000000000
--- a/testautomation/writer/optional/input/filter/if_w4w_lin.txt
+++ /dev/null
@@ -1,6 +0,0 @@
-Ami Pro 1.x-3.1 (*.sam)
-Microsoft MacWord 5.x (*.doc)
-Microsoft WinWord 2.x (*.doc)
-Microsoft WinWord 5 (*.doc)
-Microsoft Word 6.x (*.txt)
-WordPerfect (Win) 6.0 - 7.0 (*.wpd)
diff --git a/testautomation/writer/optional/input/filter/readme.txt b/testautomation/writer/optional/input/filter/readme.txt
deleted file mode 100755
index 8d5e86edda5d..000000000000
--- a/testautomation/writer/optional/input/filter/readme.txt
+++ /dev/null
@@ -1,16 +0,0 @@
-What files are in this directory??
-
-1. simple import test
-   - if_* : needed for changed test > 08/2001
-            import1.inc::tSammleImportFilter
-   - filter* : old files, will be deleted if new system  
-               is completely implemented
-2. big load save test
-   - im_* : import2.bas test->import2.inc
-3. debug files
-   - all others :-)
-4. simple save as test
-   - sa_actua.* : write SaveAs list unsorted
-   - sa_sorte.* : write ... sorted
-
-   TBO: 03/2002
diff --git a/testautomation/writer/optional/input/filter/sa_actua_1.txt b/testautomation/writer/optional/input/filter/sa_actua_1.txt
deleted file mode 100755
index fc1c8d4895c4..000000000000
--- a/testautomation/writer/optional/input/filter/sa_actua_1.txt
+++ /dev/null
@@ -1,74 +0,0 @@
-StarOffice 6.0 Text Document
-StarOffice 6.0 Text Document Template
-Microsoft Word 97/2000/XP
-Microsoft Word 95
-Microsoft Word 6.0
-Rich Text Format
-StarWriter 5.0
-StarWriter 5.0 Template
-StarWriter 4.0
-StarWriter 4.0 Template
-StarWriter 3.0
-StarWriter 3.0 Template
-Text
-Text Encoded
-Web Page (StarOffice Writer)
-StarOffice 6.0 Spreadsheet
-StarOffice 6.0 Spreadsheet Template
-Data Interchange Format
-dBASE
-Microsoft Excel 97/2000/XP
-Microsoft Excel 97/2000/XP Template
-Microsoft Excel 95
-Microsoft Excel 95 Template
-Microsoft Excel 5.0
-Microsoft Excel 5.0 Template
-StarCalc 5.0
-StarCalc 5.0 Template
-StarCalc 4.0
-StarCalc 4.0 Template
-StarCalc 3.0
-StarCalc 3.0 Template
-SYLK
-Text CSV
-Web Page (StarOffice Calc)
-StarOffice 6.0 Presentation
-StarOffice 6.0 Presentation Template
-Microsoft PowerPoint 97/2000/XP
-Microsoft PowerPoint 97/2000/XP Template
-StarOffice 6.0 Drawing (StarOffice Impress)
-StarDraw 5.0 (StarOffice Impress)
-StarDraw 3.0 (StarOffice Impress)
-StarImpress 5.0
-StarImpress 5.0 Template
-StarImpress 4.0
-StarImpress 4.0 Template
-StarOffice 6.0 Drawing
-StarOffice 6.0 Drawing Template
-StarDraw 5.0
-StarDraw 5.0 Template
-StarDraw 3.0
-StarDraw 3.0 Template
-StarOffice 6.0 Master Document
-StarWriter 5.0 Master Document
-StarWriter 4.0 Master Document
-StarOffice 6.0 Text Document 
-StarWriter 5.0 
-StarWriter 4.0 
-StarWriter 3.0 
-Text Encoded (StarOffice Master Document)
-StarOffice 6.0 Formula
-StarMath 5.0
-StarMath 4.0
-StarMath 3.0
-MathML 1.01
-Web Page
-StarOffice 6.0 Web Pages - Template
-StarOffice Text Document (StarOffice Writer/Web)
-StarWriter/Web 5.0 Template
-StarWriter/Web 4.0 Template
-StarWriter 5.0 (StarOffice Writer/Web)
-StarWriter 4.0 (StarOffice Writer/Web)
-StarWriter 3.0 (StarOffice Writer/Web)
-Text (StarOffice Writer/Web)
-Text Encoded (StarOffice Writer/Web)
diff --git a/testautomation/writer/optional/input/filter/sa_actua_36.txt b/testautomation/writer/optional/input/filter/sa_actua_36.txt
deleted file mode 100755
index 71b7493fc857..000000000000
--- a/testautomation/writer/optional/input/filter/sa_actua_36.txt
+++ /dev/null
@@ -1,82 +0,0 @@
-OpenDocument-szöveg (.odt)
-OpenDocument-szövegsablon (.ott)
-StarOffice 6.0/7-szövegesdokumentum (.sxw)
-StarOffice 6.0/7-szövegesdokumentumsablon (.stw)
-Microsoft Word 97/2000/XP (.doc)
-Microsoft Word 95 (.doc)
-Microsoft Word 6.0 (.doc)
-Rich Text Format (.rtf)
-StarWriter 5.0 (.sdw)
-StarWriter 5.0-sablon (.vor)
-StarWriter 4.0 (.sdw)
-StarWriter 4.0-sablon (.vor)
-StarWriter 3.0 (.sdw)
-StarWriter 3.0-sablon (.vor)
-Szöveg (.txt)
-Kódolt szöveg (.txt)
-HTML-dokumentum (StarOffice Writer) (.html)
-AportisDoc (Palm) (.pdb)
-DocBook (.xml)
-Microsoft Word 2003 XML (.xml)
-Pocket Word (.psw)
-OpenDocument-munkafüzet (.ods)
-OpenDocument-munkafüzetsablon (.ots)
-StarOffice 6.0/7-munkafüzet (.sxc)
-StarOffice 6.0/7-munkafüzetsablon (.stc)
-Data Interchange Format (.dif)
-dBASE (.dbf)
-Microsoft Excel 97/2000/XP (.xls)
-Microsoft Excel 97/2000/XP-sablon (.xlt)
-Microsoft Excel 95 (.xls)
-Microsoft Excel 95-sablon (.xlt)
-Microsoft Excel 5.0 (.xls)
-Microsoft Excel 5.0-sablon (.xlt)
-StarCalc 5.0 (.sdc)
-StarCalc 5.0-sablon (.vor)
-StarCalc 4.0 (.sdc)
-StarCalc 4.0-sablon (.vor)
-StarCalc 3.0 (.sdc)
-StarCalc 3.0-sablon (.vor)
-SYLK (.slk)
-Strukturált szöveg (CSV) (.csv)
-HTML-dokumentum (StarOffice Calc) (.html)
-Microsoft Excel 2003 XML (.xml)
-Pocket Excel (.pxl)
-OpenDocument-bemutató (.odp)
-OpenDocument-bemutatósablon (.otp)
-StarOffice 6.0/7-bemutató (.sxi)
-StarOffice 6.0/7-bemutatósablon (.sti)
-Microsoft PowerPoint 97/2000/XP (.ppt)
-Microsoft PowerPoint 97/2000/XP-sablon (.pot)
-StarOffice 6.0/7-rajz (StarOffice Impress) (.sxd)
-StarDraw 5.0 (StarOffice Impress) (.sda)
-StarDraw 3.0 (StarOffice Impress) (.sdd)
-StarImpress 5.0 (.sdd)
-StarImpress 5.0-sablon (.vor)
-StarImpress 4.0 (.sdd)
-StarImpress 4.0-sablon (.vor)
-OpenDocument-rajz (Impress) (.odg)
-OpenDocument-rajz (.odg)
-OpenDocument-rajzsablon (.otg)
-StarOffice 6.0/7-rajz (.sxd)
-StarOffice 6.0/7-rajzsablon (.std)
-StarDraw 5.0 (.sda)
-StarDraw 5.0-sablon (.vor)
-StarDraw 3.0 (.sdd)
-StarDraw 3.0-sablon (.vor)
-OpenDocument-fődokumentum (.odm)
-StarOffice 6.0/7-fődokumentum (.sxg)
-StarWriter 5.0-fődokumentum (.sgl)
-StarWriter 4.0-fődokumentum (.sgl)
-Kódolt szöveg (StarOffice-fődokumentum) (.txt)
-OpenDocument-képlet (.odf)
-StarOffice 6.0/7-képlet (.sxm)
-StarMath 5.0 (.smf)
-MathML 1.01 (.mml)
-HTML-dokumentum (.html)
-StarOffice 6.0/7 HTML-sablon (.stw)
-StarWriter/Web 5.0-sablon (.vor)
-StarWriter/Web 4.0-sablon (.vor)
-Szöveg (StarOffice Writer/Web) (.txt)
-Kódolt szöveg (StarOffice Writer/Web) (.txt)
-HTML-dokumentumsablon (.oth)
diff --git a/testautomation/writer/optional/input/filter/sa_actua_49.txt b/testautomation/writer/optional/input/filter/sa_actua_49.txt
deleted file mode 100755
index acaa669c3275..000000000000
--- a/testautomation/writer/optional/input/filter/sa_actua_49.txt
+++ /dev/null
@@ -1,74 +0,0 @@
-StarOffice 6.0 Textdokument
-StarOffice 6.0 Textdokumentvorlage
-Microsoft Word 97/2000/XP
-Microsoft Word 95
-Microsoft Word 6.0
-Rich Text Format
-StarWriter 5.0
-StarWriter 5.0 Vorlage
-StarWriter 4.0
-StarWriter 4.0 Vorlage
-StarWriter 3.0
-StarWriter 3.0 Vorlage
-Text
-Text Kodiert
-Webseite (StarOffice Writer)
-StarOffice 6.0 Tabellendokument
-StarOffice 6.0 Tabellendokument Vorlage
-Data Interchange Format
-dBASE
-Microsoft Excel 97/2000/XP
-Microsoft Excel 97/2000/XP Vorlage
-Microsoft Excel 95
-Microsoft Excel 95 Vorlage
-Microsoft Excel 5.0
-Microsoft Excel 5.0 Vorlage
-StarCalc 5.0
-StarCalc 5.0 Vorlage
-StarCalc 4.0
-StarCalc 4.0 Vorlage
-StarCalc 3.0
-StarCalc 3.0 Vorlage
-SYLK
-Text CSV
-Webseite (StarOffice Calc)
-StarOffice 6.0 Präsentation
-StarOffice 6.0 Präsentationsvorlage
-Microsoft PowerPoint 97/2000/XP
-Microsoft PowerPoint 97/2000/XP Vorlage
-StarOffice 6.0 Zeichnung (StarOffice Impress)
-StarDraw 5.0 (StarOffice Impress)
-StarDraw 3.0 (StarOffice Impress)
-StarImpress 5.0
-StarImpress 5.0 Vorlage
-StarImpress 4.0
-StarImpress 4.0 Vorlage
-StarOffice 6.0 Zeichnung
-StarOffice 6.0 Zeichnungsvorlage
-StarDraw 5.0
-StarDraw 5.0 Vorlage
-StarDraw 3.0
-StarDraw 3.0 Vorlage
-StarOffice 6.0 Globaldokument
-StarWriter 5.0 Globaldokument
-StarWriter 4.0 Globaldokument
-StarOffice 6.0 Textdokument 
-StarWriter 5.0 
-StarWriter 4.0 
-StarWriter 3.0 
-Text Kodiert (StarOffice Globaldokument)
-StarOffice 6.0 Formel
-StarMath 5.0
-StarMath 4.0
-StarMath 3.0
-MathML 1.01
-Webseite
-StarOffice 6.0 Webseiten - Vorlage
-StarOffice Textdokument (StarOffice Writer/Web)
-StarWriter/Web 5.0 Vorlage
-StarWriter/Web 4.0 Vorlage
-StarWriter 5.0 (StarOffice Writer/Web)
-StarWriter 4.0 (StarOffice Writer/Web)
-StarWriter 3.0 (StarOffice Writer/Web)
-Text (StarOffice Writer/Web)
-Text Kodiert (StarOffice Writer/Web)
diff --git a/testautomation/writer/optional/input/filter/sa_actua_81.txt b/testautomation/writer/optional/input/filter/sa_actua_81.txt
deleted file mode 100755
index ab02c0a64a12..000000000000
--- a/testautomation/writer/optional/input/filter/sa_actua_81.txt
+++ /dev/null
@@ -1,74 +0,0 @@
-StarSuite 6.0 文書ドキュメント
-StarSuite 6.0 文書ドキュメント テンプレート
-Microsoft Word 97/2000/XP
-Microsoft Word 95
-Microsoft Word 6.0
-Rich Text Format
-StarWriter 5.0
-StarWriter 5.0 テンプレート
-StarWriter 4.0
-StarWriter 4.0 テンプレート
-StarWriter 3.0
-StarWriter 3.0 テンプレート
-テキスト
-エンコードされたテキスト
-Webページ (StarSuite Writer)
-StarSuite 6.0 表計算ドキュメント
-StarSuite 6.0 表計算ドキュメント テンプレート
-Data Interchange Format
-dBASE
-Microsoft Excel 97/2000/XP
-Microsoft Excel 97/2000/XP テンプレート
-Microsoft Excel 95
-Microsoft Excel 95 テンプレート
-Microsoft Excel 5.0
-Microsoft Excel 5.0 テンプレート
-StarCalc 5.0
-StarCalc 5.0 テンプレート
-StarCalc 4.0
-StarCalc 4.0 テンプレート
-StarCalc 3.0
-StarCalc 3.0 テンプレート
-SYLK
-テキスト CSV
-Webページ (StarSuite Calc)
-StarSuite 6.0 プレゼンテーション
-StarSuite 6.0 プレゼンテーションテンプレート
-Microsoft PowerPoint 97/2000/XP
-Microsoft PowerPoint 97/2000/XP テンプレート
-StarSuite 6.0 図形描画 (StarSuite Impress)
-StarDraw 5.0 (StarSuite Impress)
-StarDraw 3.0 (StarSuite Impress)
-StarImpress 5.0
-StarImpress 5.0 テンプレート
-StarImpress 4.0
-StarImpress 4.0 テンプレート
-StarSuite 6.0 図形描画
-StarSuite 6.0 図形描画テンプレート
-StarDraw 5.0
-StarDraw 5.0 テンプレート
-StarDraw 3.0
-StarDraw 3.0 テンプレート
-StarSuite 6.0 マスタードキュメント
-StarWriter 5.0 マスタードキュメント
-StarWriter 4.0 マスタードキュメント
-StarSuite 6.0 文書ドキュメント 
-StarWriter 5.0
-StarWriter 4.0
-StarWriter 3.0
-エンコードされたテキスト (StarSuite マスタードキュメント)
-StarSuite 6.0 数式
-StarMath 5.0
-StarMath 4.0
-StarMath 3.0
-MathML 1.01
-Webページ
-StarSuite 6.0 Webページ テンプレート
-StarSuite 文書ドキュメント (StarSuite Writer/Web)
-StarWriter/Web 5.0 テンプレート
-StarWriter/Web 4.0 テンプレート
-StarWriter 5.0 (StarSuite Writer/Web)
-StarWriter 4.0 (StarSuite Writer/Web)
-StarWriter 3.0 (StarSuite Writer/Web)
-テキスト (StarSuite Writer/Web)
-エンコードされたテキスト (StarSuite Writer/Web)
diff --git a/testautomation/writer/optional/input/filter/sa_actua_82.txt b/testautomation/writer/optional/input/filter/sa_actua_82.txt
deleted file mode 100755
index 8bfed14251bb..000000000000
--- a/testautomation/writer/optional/input/filter/sa_actua_82.txt
+++ /dev/null
@@ -1,74 +0,0 @@
-StarSuite 6.0 텍스트 문서
-StarSuite 6.0 텍스트 문서 템플릿
-Microsoft Word 97/2000/XP
-Microsoft Word 95
-Microsoft Word 6.0
-Rich Text Format
-StarWriter 5.0
-StarWriter 5.0 템플릿
-StarWriter 4.0
-StarWriter 4.0 템플릿
-StarWriter 3.0
-StarWriter 3.0 템플릿
-텍스트
-인코딩된 텍스트
-웹 페이지 (StarSuite Writer)
-StarSuite 6.0 스프레드시트
-StarSuite 6.0 스프레드시트 문서 템플릿
-Data Interchange Format
-dBASE
-Microsoft Excel 97/2000/XP
-Microsoft Excel 97/2000/XP 서식 파일
-Microsoft Excel 95
-Microsoft Excel 95 서식 파일
-Microsoft Excel 5.0
-Microsoft Excel 5.0 서식 파일
-StarCalc 5.0
-StarCalc 5.0 템플릿
-StarCalc 4.0
-StarCalc 4.0 템플릿
-StarCalc 3.0
-StarCalc 3.0 템플릿
-SYLK
-텍스트 CSV
-웹 페이지 (StarSuite Calc)
-StarSuite 6.0 프레젠테이션
-StarSuite 6.0 프레젠테이션 템플릿
-Microsoft PowerPoint 97/2000/XP
-Microsoft PowerPoint 97/2000/XP 서식 파일
-StarSuite 6.0 그리기 (StarSuite Impress)
-StarDraw 5.0 (StarSuite Impress)
-StarDraw 3.0 (StarSuite Impress)
-StarImpress 5.0
-StarImpress 5.0 템플릿
-StarImpress 4.0
-StarImpress 4.0 템플릿
-StarSuite 6.0 그리기
-StarSuite 6.0 그리기 템플릿
-StarDraw 5.0
-StarDraw 5.0 템플릿
-StarDraw 3.0
-StarDraw 3.0 템플릿
-StarSuite 6.0 마스터 문서
-StarWriter 5.0 마스터 문서
-StarWriter 4.0 마스터 문서
-StarSuite 텍스트 문서 (StarSuite마스터 문서)
-StarWriter 5.0 
-StarWriter 4.0 
-StarWriter 3.0 
-인코딩된 텍스트 (StarSuite 마스터 문서)
-StarSuite 6.0 수식
-StarMath 5.0
-StarMath 4.0
-StarMath 3.0
-MathML 1.01
-웹 페이지
-StarSuite 6.0 웹 페이지 - 템플릿
-StarSuite 마스터 문서 (StarSuite Writer/Web)
-StarWriter/Web 5.0 템플릿
-StarWriter/Web 4.0 템플릿
-StarWriter 5.0 (StarSuite Writer/Web)
-StarWriter 4.0 (StarSuite Writer/Web)
-StarWriter 3.0 (StarSuite Writer/Web)
-텍스트 (StarSuite Writer/Web)
-인코딩된 텍스트 (StarSuite Writer/Web)
diff --git a/testautomation/writer/optional/input/filter/sa_actua_86.txt b/testautomation/writer/optional/input/filter/sa_actua_86.txt
deleted file mode 100755
index 06d2f180ff4b..000000000000
--- a/testautomation/writer/optional/input/filter/sa_actua_86.txt
+++ /dev/null
@@ -1,74 +0,0 @@
-StarSuite 6.0 文本文档
-StarSuite 6.0 文本文档样式
-Microsoft Word 97/2000/XP
-Microsoft Word 95
-Microsoft Word 6.0
-Rich Text Format
-StarWriter 5.0
-StarWriter 5.0 样式
-StarWriter 4.0
-StarWriter 4.0 样式
-StarWriter 3.0
-StarWriter 3.0 样式
-文字
-文字 使用编码的
-网页 (StarSuite Writer)
-StarSuite 6.0 工作表文档
-StarSuite 6.0 工作表文档样式
-Data Interchange Format
-dBASE
-Microsoft Excel 97/2000/XP
-Microsoft Excel 97/2000/XP 模板
-Microsoft Excel 95
-Microsoft Excel 95 模板
-Microsoft Excel 5.0
-Microsoft Excel 5.0 模板
-StarCalc 5.0
-StarCalc 5.0 样式
-StarCalc 4.0
-StarCalc 4.0 样式
-StarCalc 3.0
-StarCalc 3.0 样式
-SYLK
-文字 CSV
-网页 (StarSuite Calc)
-StarSuite 6.0 演示文稿
-StarSuite 6.0 演示文稿样式
-Microsoft PowerPoint 97/2000/XP
-Microsoft PowerPoint 97/2000/XP 模板
-StarSuite 6.0 绘图 (StarSuite Impress)
-StarDraw 5.0 (StarSuite Impress)
-StarDraw 3.0 (StarSuite Impress)
-StarImpress 5.0
-StarImpress 5.0 样式
-StarImpress 4.0
-StarImpress 4.0 样式
-StarSuite 6.0 绘图
-StarSuite 6.0 绘图样式
-StarDraw 5.0
-StarDraw 5.0 样式
-StarDraw 3.0
-StarDraw 3.0 样式
-StarSuite 6.0 主控文档
-StarWriter 5.0 主控文档
-StarWriter 4.0 主控文档
-StarSuite 6.0 文本文档 
-StarWriter 5.0 
-StarWriter 4.0 
-StarWriter 3.0 
-使用编码的文字 (StarSuite 主控文档)
-StarSuite 6.0 公式
-StarMath 5.0
-StarMath 4.0
-StarMath 3.0
-MathML 1.01
-网页
-StarSuite 6.0 万维网网页样式
-StarSuite 文本文档 (StarSuite Writer/Web)
-StarWriter/Web 5.0 样式
-StarWriter/Web 4.0 样式
-StarWriter 5.0 (StarSuite Writer/Web)
-StarWriter 4.0 (StarSuite Writer/Web)
-StarWriter 3.0 (StarSuite Writer/Web)
-文字 (StarSuite Writer/Web)
-使用编码的文字 (StarSuite Writer/Web)
diff --git a/testautomation/writer/optional/input/filter/sa_actua_88.txt b/testautomation/writer/optional/input/filter/sa_actua_88.txt
deleted file mode 100755
index 479ab343e965..000000000000
--- a/testautomation/writer/optional/input/filter/sa_actua_88.txt
+++ /dev/null
@@ -1,74 +0,0 @@
-StarSuite 6.0 文字文件
-StarSuite 6.0 文字文件樣式
-Microsoft Word 97/2000/XP
-Microsoft Word 95
-Microsoft Word 6.0
-Rich Text Format
-StarWriter 5.0
-StarWriter 5.0 樣式
-StarWriter 4.0
-StarWriter 4.0 樣式
-StarWriter 3.0
-StarWriter 3.0 樣式
-文字
-文字 使用編碼的
-網頁 (StarSuite Writer)
-StarSuite 6.0 工作表文件
-StarSuite 6.0 工作表樣式
-Data Interchange Format
-dBASE
-Microsoft Excel 97/2000/XP
-Microsoft Excel 97/2000/XP 範本
-Microsoft Excel 95
-Microsoft Excel 95 範本
-Microsoft Excel 5.0
-Microsoft Excel 5.0 範本
-StarCalc 5.0
-StarCalc 5.0 樣式
-StarCalc 4.0
-StarCalc 4.0 樣式
-StarCalc 3.0
-StarCalc 3.0 樣式
-SYLK
-文字 CSV
-網頁 (StarSuite Calc)
-StarSuite 6.0 簡報
-StarSuite 6.0 簡報樣式
-Microsoft PowerPoint 97/2000/XP
-Microsoft PowerPoint 97/2000/XP 範本
-StarSuite 6.0 繪圖 (StarSuite Impress)
-StarDraw 5.0 (StarSuite Impress)
-StarDraw 3.0 (StarSuite Impress)
-StarImpress 5.0
-StarImpress 5.0 樣式
-StarImpress 4.0
-StarImpress 4.0 樣式
-StarSuite 6.0 繪圖
-StarSuite 6.0 繪圖樣式
-StarDraw 5.0
-StarDraw 5.0 樣式
-StarDraw 3.0
-StarDraw 3.0 樣式
-StarSuite 6.0 主控文件
-StarWriter 5.0 主控文件
-StarWriter 4.0 主控文件
-StarSuite 6.0 文字文件
-StarWriter 5.0 
-StarWriter 4.0 
-StarWriter 3.0
-使用編碼的文字 (StarSuite 主控文件)
-StarSuite 6.0 公式
-StarMath 5.0
-StarMath 4.0
-StarMath 3.0
-MathML 1.01
-網頁
-StarSuite 6.0 網頁樣式
-StarSuite 文字文件 (StarSuite Writer/Web)
-StarWriter/Web 5.0 樣式
-StarWriter/Web 4.0 樣式
-StarWriter 5.0 (StarSuite Writer/Web)
-StarWriter 4.0 (StarSuite Writer/Web)
-StarWriter 3.0 (StarSuite Writer/Web)
-文字 (StarSuite Writer/Web)
-文字 使用編碼的 (StarSuite Writer/Web)
diff --git a/testautomation/writer/optional/input/filter/sa_sorte_1.txt b/testautomation/writer/optional/input/filter/sa_sorte_1.txt
deleted file mode 100755
index 188618e53c04..000000000000
--- a/testautomation/writer/optional/input/filter/sa_sorte_1.txt
+++ /dev/null
@@ -1,74 +0,0 @@
-Data Interchange Format
-dBASE
-MathML 1.01
-Microsoft Excel 5.0
-Microsoft Excel 5.0 Template
-Microsoft Excel 95
-Microsoft Excel 95 Template
-Microsoft Excel 97/2000/XP
-Microsoft Excel 97/2000/XP Template
-Microsoft PowerPoint 97/2000/XP
-Microsoft PowerPoint 97/2000/XP Template
-Microsoft Word 6.0
-Microsoft Word 95
-Microsoft Word 97/2000/XP
-Rich Text Format
-StarCalc 3.0
-StarCalc 3.0 Template
-StarCalc 4.0
-StarCalc 4.0 Template
-StarCalc 5.0
-StarCalc 5.0 Template
-StarDraw 3.0
-StarDraw 3.0 (StarOffice Impress)
-StarDraw 3.0 Template
-StarDraw 5.0
-StarDraw 5.0 (StarOffice Impress)
-StarDraw 5.0 Template
-StarImpress 4.0
-StarImpress 4.0 Template
-StarImpress 5.0
-StarImpress 5.0 Template
-StarMath 3.0
-StarMath 4.0
-StarMath 5.0
-StarOffice 6.0 Drawing
-StarOffice 6.0 Drawing (StarOffice Impress)
-StarOffice 6.0 Drawing Template
-StarOffice 6.0 Formula
-StarOffice 6.0 Master Document
-StarOffice 6.0 Presentation
-StarOffice 6.0 Presentation Template
-StarOffice 6.0 Spreadsheet
-StarOffice 6.0 Spreadsheet Template
-StarOffice 6.0 Text Document
-StarOffice 6.0 Text Document 
-StarOffice 6.0 Text Document Template
-StarOffice 6.0 Web Pages - Template
-StarOffice Text Document (StarOffice Writer/Web)
-StarWriter 3.0
-StarWriter 3.0 
-StarWriter 3.0 (StarOffice Writer/Web)
-StarWriter 3.0 Template
-StarWriter 4.0
-StarWriter 4.0 
-StarWriter 4.0 (StarOffice Writer/Web)
-StarWriter 4.0 Master Document
-StarWriter 4.0 Template
-StarWriter 5.0
-StarWriter 5.0 
-StarWriter 5.0 (StarOffice Writer/Web)
-StarWriter 5.0 Master Document
-StarWriter 5.0 Template
-StarWriter/Web 4.0 Template
-StarWriter/Web 5.0 Template
-SYLK
-Text
-Text (StarOffice Writer/Web)
-Text CSV
-Text Encoded
-Text Encoded (StarOffice Master Document)
-Text Encoded (StarOffice Writer/Web)
-Web Page
-Web Page (StarOffice Calc)
-Web Page (StarOffice Writer)
diff --git a/testautomation/writer/optional/input/filter/sa_sorte_36.txt b/testautomation/writer/optional/input/filter/sa_sorte_36.txt
deleted file mode 100755
index 5245912e78fe..000000000000
--- a/testautomation/writer/optional/input/filter/sa_sorte_36.txt
+++ /dev/null
@@ -1,82 +0,0 @@
-AportisDoc (Palm) (.pdb)
-Data Interchange Format (.dif)
-dBASE (.dbf)
-DocBook (.xml)
-HTML-dokumentum (.html)
-HTML-dokumentum (StarOffice Calc) (.html)
-HTML-dokumentum (StarOffice Writer) (.html)
-HTML-dokumentumsablon (.oth)
-Kódolt szöveg (.txt)
-Kódolt szöveg (StarOffice Writer/Web) (.txt)
-Kódolt szöveg (StarOffice-fődokumentum) (.txt)
-MathML 1.01 (.mml)
-Microsoft Excel 2003 XML (.xml)
-Microsoft Excel 5.0 (.xls)
-Microsoft Excel 5.0-sablon (.xlt)
-Microsoft Excel 95 (.xls)
-Microsoft Excel 95-sablon (.xlt)
-Microsoft Excel 97/2000/XP (.xls)
-Microsoft Excel 97/2000/XP-sablon (.xlt)
-Microsoft PowerPoint 97/2000/XP (.ppt)
-Microsoft PowerPoint 97/2000/XP-sablon (.pot)
-Microsoft Word 2003 XML (.xml)
-Microsoft Word 6.0 (.doc)
-Microsoft Word 95 (.doc)
-Microsoft Word 97/2000/XP (.doc)
-OpenDocument-bemutató (.odp)
-OpenDocument-bemutatósablon (.otp)
-OpenDocument-fődokumentum (.odm)
-OpenDocument-képlet (.odf)
-OpenDocument-munkafüzet (.ods)
-OpenDocument-munkafüzetsablon (.ots)
-OpenDocument-rajz (.odg)
-OpenDocument-rajz (Impress) (.odg)
-OpenDocument-rajzsablon (.otg)
-OpenDocument-szöveg (.odt)
-OpenDocument-szövegsablon (.ott)
-Pocket Excel (.pxl)
-Pocket Word (.psw)
-Rich Text Format (.rtf)
-StarCalc 3.0 (.sdc)
-StarCalc 3.0-sablon (.vor)
-StarCalc 4.0 (.sdc)
-StarCalc 4.0-sablon (.vor)
-StarCalc 5.0 (.sdc)
-StarCalc 5.0-sablon (.vor)
-StarDraw 3.0 (.sdd)
-StarDraw 3.0 (StarOffice Impress) (.sdd)
-StarDraw 3.0-sablon (.vor)
-StarDraw 5.0 (.sda)
-StarDraw 5.0 (StarOffice Impress) (.sda)
-StarDraw 5.0-sablon (.vor)
-StarImpress 4.0 (.sdd)
-StarImpress 4.0-sablon (.vor)
-StarImpress 5.0 (.sdd)
-StarImpress 5.0-sablon (.vor)
-StarMath 5.0 (.smf)
-StarOffice 6.0/7 HTML-sablon (.stw)
-StarOffice 6.0/7-bemutató (.sxi)
-StarOffice 6.0/7-bemutatósablon (.sti)
-StarOffice 6.0/7-fődokumentum (.sxg)
-StarOffice 6.0/7-képlet (.sxm)
-StarOffice 6.0/7-munkafüzet (.sxc)
-StarOffice 6.0/7-munkafüzetsablon (.stc)
-StarOffice 6.0/7-rajz (.sxd)
-StarOffice 6.0/7-rajz (StarOffice Impress) (.sxd)
-StarOffice 6.0/7-rajzsablon (.std)
-StarOffice 6.0/7-szövegesdokumentum (.sxw)
-StarOffice 6.0/7-szövegesdokumentumsablon (.stw)
-StarWriter 3.0 (.sdw)
-StarWriter 3.0-sablon (.vor)
-StarWriter 4.0 (.sdw)
-StarWriter 4.0-fődokumentum (.sgl)
-StarWriter 4.0-sablon (.vor)
-StarWriter 5.0 (.sdw)
-StarWriter 5.0-fődokumentum (.sgl)
-StarWriter 5.0-sablon (.vor)
-StarWriter/Web 4.0-sablon (.vor)
-StarWriter/Web 5.0-sablon (.vor)
-Strukturált szöveg (CSV) (.csv)
-SYLK (.slk)
-Szöveg (.txt)
-Szöveg (StarOffice Writer/Web) (.txt)
diff --git a/testautomation/writer/optional/input/filter/sa_sorte_49.txt b/testautomation/writer/optional/input/filter/sa_sorte_49.txt
deleted file mode 100755
index abf498bf1a7d..000000000000
--- a/testautomation/writer/optional/input/filter/sa_sorte_49.txt
+++ /dev/null
@@ -1,74 +0,0 @@
-Data Interchange Format
-dBASE
-MathML 1.01
-Microsoft Excel 5.0
-Microsoft Excel 5.0 Vorlage
-Microsoft Excel 95
-Microsoft Excel 95 Vorlage
-Microsoft Excel 97/2000/XP
-Microsoft Excel 97/2000/XP Vorlage
-Microsoft PowerPoint 97/2000/XP
-Microsoft PowerPoint 97/2000/XP Vorlage
-Microsoft Word 6.0
-Microsoft Word 95
-Microsoft Word 97/2000/XP
-Rich Text Format
-StarCalc 3.0
-StarCalc 3.0 Vorlage
-StarCalc 4.0
-StarCalc 4.0 Vorlage
-StarCalc 5.0
-StarCalc 5.0 Vorlage
-StarDraw 3.0
-StarDraw 3.0 (StarOffice Impress)
-StarDraw 3.0 Vorlage
-StarDraw 5.0
-StarDraw 5.0 (StarOffice Impress)
-StarDraw 5.0 Vorlage
-StarImpress 4.0
-StarImpress 4.0 Vorlage
-StarImpress 5.0
-StarImpress 5.0 Vorlage
-StarMath 3.0
-StarMath 4.0
-StarMath 5.0
-StarOffice 6.0 Formel
-StarOffice 6.0 Globaldokument
-StarOffice 6.0 Präsentation
-StarOffice 6.0 Präsentationsvorlage
-StarOffice 6.0 Tabellendokument
-StarOffice 6.0 Tabellendokument Vorlage
-StarOffice 6.0 Textdokument
-StarOffice 6.0 Textdokument 
-StarOffice 6.0 Textdokumentvorlage
-StarOffice 6.0 Webseiten - Vorlage
-StarOffice 6.0 Zeichnung
-StarOffice 6.0 Zeichnung (StarOffice Impress)
-StarOffice 6.0 Zeichnungsvorlage
-StarOffice Textdokument (StarOffice Writer/Web)
-StarWriter 3.0
-StarWriter 3.0 
-StarWriter 3.0 (StarOffice Writer/Web)
-StarWriter 3.0 Vorlage
-StarWriter 4.0
-StarWriter 4.0 
-StarWriter 4.0 (StarOffice Writer/Web)
-StarWriter 4.0 Globaldokument
-StarWriter 4.0 Vorlage
-StarWriter 5.0
-StarWriter 5.0 
-StarWriter 5.0 (StarOffice Writer/Web)
-StarWriter 5.0 Globaldokument
-StarWriter 5.0 Vorlage
-StarWriter/Web 4.0 Vorlage
-StarWriter/Web 5.0 Vorlage
-SYLK
-Text
-Text (StarOffice Writer/Web)
-Text CSV
-Text Kodiert
-Text Kodiert (StarOffice Globaldokument)
-Text Kodiert (StarOffice Writer/Web)
-Webseite
-Webseite (StarOffice Calc)
-Webseite (StarOffice Writer)
diff --git a/testautomation/writer/optional/input/filter/sa_sorte_81.txt b/testautomation/writer/optional/input/filter/sa_sorte_81.txt
deleted file mode 100755
index 7dd03a6c9c94..000000000000
--- a/testautomation/writer/optional/input/filter/sa_sorte_81.txt
+++ /dev/null
@@ -1,74 +0,0 @@
-Data Interchange Format
-dBASE
-MathML 1.01
-Microsoft Excel 5.0
-Microsoft Excel 5.0 テンプレート
-Microsoft Excel 95
-Microsoft Excel 95 テンプレート
-Microsoft Excel 97/2000/XP
-Microsoft Excel 97/2000/XP テンプレート
-Microsoft PowerPoint 97/2000/XP
-Microsoft PowerPoint 97/2000/XP テンプレート
-Microsoft Word 6.0
-Microsoft Word 95
-Microsoft Word 97/2000/XP
-Rich Text Format
-StarCalc 3.0
-StarCalc 3.0 テンプレート
-StarCalc 4.0
-StarCalc 4.0 テンプレート
-StarCalc 5.0
-StarCalc 5.0 テンプレート
-StarDraw 3.0
-StarDraw 3.0 (StarSuite Impress)
-StarDraw 3.0 テンプレート
-StarDraw 5.0
-StarDraw 5.0 (StarSuite Impress)
-StarDraw 5.0 テンプレート
-StarImpress 4.0
-StarImpress 4.0 テンプレート
-StarImpress 5.0
-StarImpress 5.0 テンプレート
-StarMath 3.0
-StarMath 4.0
-StarMath 5.0
-StarSuite 6.0 Webページ テンプレート
-StarSuite 6.0 プレゼンテーション
-StarSuite 6.0 プレゼンテーションテンプレート
-StarSuite 6.0 マスタードキュメント
-StarSuite 6.0 図形描画
-StarSuite 6.0 図形描画 (StarSuite Impress)
-StarSuite 6.0 図形描画テンプレート
-StarSuite 6.0 数式
-StarSuite 6.0 文書ドキュメント
-StarSuite 6.0 文書ドキュメント 
-StarSuite 6.0 文書ドキュメント テンプレート
-StarSuite 6.0 表計算ドキュメント
-StarSuite 6.0 表計算ドキュメント テンプレート
-StarSuite 文書ドキュメント (StarSuite Writer/Web)
-StarWriter 3.0
-StarWriter 3.0
-StarWriter 3.0 (StarSuite Writer/Web)
-StarWriter 3.0 テンプレート
-StarWriter 4.0
-StarWriter 4.0
-StarWriter 4.0 (StarSuite Writer/Web)
-StarWriter 4.0 テンプレート
-StarWriter 4.0 マスタードキュメント
-StarWriter 5.0
-StarWriter 5.0
-StarWriter 5.0 (StarSuite Writer/Web)
-StarWriter 5.0 テンプレート
-StarWriter 5.0 マスタードキュメント
-StarWriter/Web 4.0 テンプレート
-StarWriter/Web 5.0 テンプレート
-SYLK
-Webページ
-Webページ (StarSuite Calc)
-Webページ (StarSuite Writer)
-エンコードされたテキスト
-エンコードされたテキスト (StarSuite Writer/Web)
-エンコードされたテキスト (StarSuite マスタードキュメント)
-テキスト
-テキスト (StarSuite Writer/Web)
-テキスト CSV
diff --git a/testautomation/writer/optional/input/filter/sa_sorte_82.txt b/testautomation/writer/optional/input/filter/sa_sorte_82.txt
deleted file mode 100755
index 4a01b792a5e4..000000000000
--- a/testautomation/writer/optional/input/filter/sa_sorte_82.txt
+++ /dev/null
@@ -1,74 +0,0 @@
-Data Interchange Format
-dBASE
-MathML 1.01
-Microsoft Excel 5.0
-Microsoft Excel 5.0 서식 파일
-Microsoft Excel 95
-Microsoft Excel 95 서식 파일
-Microsoft Excel 97/2000/XP
-Microsoft Excel 97/2000/XP 서식 파일
-Microsoft PowerPoint 97/2000/XP
-Microsoft PowerPoint 97/2000/XP 서식 파일
-Microsoft Word 6.0
-Microsoft Word 95
-Microsoft Word 97/2000/XP
-Rich Text Format
-StarCalc 3.0
-StarCalc 3.0 템플릿
-StarCalc 4.0
-StarCalc 4.0 템플릿
-StarCalc 5.0
-StarCalc 5.0 템플릿
-StarDraw 3.0
-StarDraw 3.0 (StarSuite Impress)
-StarDraw 3.0 템플릿
-StarDraw 5.0
-StarDraw 5.0 (StarSuite Impress)
-StarDraw 5.0 템플릿
-StarImpress 4.0
-StarImpress 4.0 템플릿
-StarImpress 5.0
-StarImpress 5.0 템플릿
-StarMath 3.0
-StarMath 4.0
-StarMath 5.0
-StarSuite 6.0 그리기
-StarSuite 6.0 그리기 (StarSuite Impress)
-StarSuite 6.0 그리기 템플릿
-StarSuite 6.0 마스터 문서
-StarSuite 6.0 수식
-StarSuite 6.0 스프레드시트
-StarSuite 6.0 스프레드시트 문서 템플릿
-StarSuite 6.0 웹 페이지 - 템플릿
-StarSuite 6.0 텍스트 문서
-StarSuite 6.0 텍스트 문서 템플릿
-StarSuite 6.0 프레젠테이션
-StarSuite 6.0 프레젠테이션 템플릿
-StarSuite 마스터 문서 (StarSuite Writer/Web)
-StarSuite 텍스트 문서 (StarSuite마스터 문서)
-StarWriter 3.0
-StarWriter 3.0 
-StarWriter 3.0 (StarSuite Writer/Web)
-StarWriter 3.0 템플릿
-StarWriter 4.0
-StarWriter 4.0 
-StarWriter 4.0 (StarSuite Writer/Web)
-StarWriter 4.0 마스터 문서
-StarWriter 4.0 템플릿
-StarWriter 5.0
-StarWriter 5.0 
-StarWriter 5.0 (StarSuite Writer/Web)
-StarWriter 5.0 마스터 문서
-StarWriter 5.0 템플릿
-StarWriter/Web 4.0 템플릿
-StarWriter/Web 5.0 템플릿
-SYLK
-웹 페이지
-웹 페이지 (StarSuite Calc)
-웹 페이지 (StarSuite Writer)
-인코딩된 텍스트
-인코딩된 텍스트 (StarSuite Writer/Web)
-인코딩된 텍스트 (StarSuite 마스터 문서)
-텍스트
-텍스트 (StarSuite Writer/Web)
-텍스트 CSV
diff --git a/testautomation/writer/optional/input/filter/sa_sorte_86.txt b/testautomation/writer/optional/input/filter/sa_sorte_86.txt
deleted file mode 100755
index ec476ec37531..000000000000
--- a/testautomation/writer/optional/input/filter/sa_sorte_86.txt
+++ /dev/null
@@ -1,74 +0,0 @@
-Data Interchange Format
-dBASE
-MathML 1.01
-Microsoft Excel 5.0
-Microsoft Excel 5.0 模板
-Microsoft Excel 95
-Microsoft Excel 95 模板
-Microsoft Excel 97/2000/XP
-Microsoft Excel 97/2000/XP 模板
-Microsoft PowerPoint 97/2000/XP
-Microsoft PowerPoint 97/2000/XP 模板
-Microsoft Word 6.0
-Microsoft Word 95
-Microsoft Word 97/2000/XP
-Rich Text Format
-StarCalc 3.0
-StarCalc 3.0 样式
-StarCalc 4.0
-StarCalc 4.0 样式
-StarCalc 5.0
-StarCalc 5.0 样式
-StarDraw 3.0
-StarDraw 3.0 (StarSuite Impress)
-StarDraw 3.0 样式
-StarDraw 5.0
-StarDraw 5.0 (StarSuite Impress)
-StarDraw 5.0 样式
-StarImpress 4.0
-StarImpress 4.0 样式
-StarImpress 5.0
-StarImpress 5.0 样式
-StarMath 3.0
-StarMath 4.0
-StarMath 5.0
-StarSuite 6.0 万维网网页样式
-StarSuite 6.0 主控文档
-StarSuite 6.0 公式
-StarSuite 6.0 工作表文档
-StarSuite 6.0 工作表文档样式
-StarSuite 6.0 文本文档
-StarSuite 6.0 文本文档 
-StarSuite 6.0 文本文档样式
-StarSuite 6.0 演示文稿
-StarSuite 6.0 演示文稿样式
-StarSuite 6.0 绘图
-StarSuite 6.0 绘图 (StarSuite Impress)
-StarSuite 6.0 绘图样式
-StarSuite 文本文档 (StarSuite Writer/Web)
-StarWriter 3.0
-StarWriter 3.0 
-StarWriter 3.0 (StarSuite Writer/Web)
-StarWriter 3.0 样式
-StarWriter 4.0
-StarWriter 4.0 
-StarWriter 4.0 (StarSuite Writer/Web)
-StarWriter 4.0 主控文档
-StarWriter 4.0 样式
-StarWriter 5.0
-StarWriter 5.0 
-StarWriter 5.0 (StarSuite Writer/Web)
-StarWriter 5.0 主控文档
-StarWriter 5.0 样式
-StarWriter/Web 4.0 样式
-StarWriter/Web 5.0 样式
-SYLK
-使用编码的文字 (StarSuite Writer/Web)
-使用编码的文字 (StarSuite 主控文档)
-文字
-文字 (StarSuite Writer/Web)
-文字 CSV
-文字 使用编码的
-网页
-网页 (StarSuite Calc)
-网页 (StarSuite Writer)
diff --git a/testautomation/writer/optional/input/filter/sa_sorte_88.txt b/testautomation/writer/optional/input/filter/sa_sorte_88.txt
deleted file mode 100755
index 3a76f4ef9aa6..000000000000
--- a/testautomation/writer/optional/input/filter/sa_sorte_88.txt
+++ /dev/null
@@ -1,74 +0,0 @@
-Data Interchange Format
-dBASE
-MathML 1.01
-Microsoft Excel 5.0
-Microsoft Excel 5.0 範本
-Microsoft Excel 95
-Microsoft Excel 95 範本
-Microsoft Excel 97/2000/XP
-Microsoft Excel 97/2000/XP 範本
-Microsoft PowerPoint 97/2000/XP
-Microsoft PowerPoint 97/2000/XP 範本
-Microsoft Word 6.0
-Microsoft Word 95
-Microsoft Word 97/2000/XP
-Rich Text Format
-StarCalc 3.0
-StarCalc 3.0 樣式
-StarCalc 4.0
-StarCalc 4.0 樣式
-StarCalc 5.0
-StarCalc 5.0 樣式
-StarDraw 3.0
-StarDraw 3.0 (StarSuite Impress)
-StarDraw 3.0 樣式
-StarDraw 5.0
-StarDraw 5.0 (StarSuite Impress)
-StarDraw 5.0 樣式
-StarImpress 4.0
-StarImpress 4.0 樣式
-StarImpress 5.0
-StarImpress 5.0 樣式
-StarMath 3.0
-StarMath 4.0
-StarMath 5.0
-StarSuite 6.0 主控文件
-StarSuite 6.0 公式
-StarSuite 6.0 工作表文件
-StarSuite 6.0 工作表樣式
-StarSuite 6.0 文字文件
-StarSuite 6.0 文字文件
-StarSuite 6.0 文字文件樣式
-StarSuite 6.0 簡報
-StarSuite 6.0 簡報樣式
-StarSuite 6.0 網頁樣式
-StarSuite 6.0 繪圖
-StarSuite 6.0 繪圖 (StarSuite Impress)
-StarSuite 6.0 繪圖樣式
-StarSuite 文字文件 (StarSuite Writer/Web)
-StarWriter 3.0
-StarWriter 3.0
-StarWriter 3.0 (StarSuite Writer/Web)
-StarWriter 3.0 樣式
-StarWriter 4.0
-StarWriter 4.0 
-StarWriter 4.0 (StarSuite Writer/Web)
-StarWriter 4.0 主控文件
-StarWriter 4.0 樣式
-StarWriter 5.0
-StarWriter 5.0 
-StarWriter 5.0 (StarSuite Writer/Web)
-StarWriter 5.0 主控文件
-StarWriter 5.0 樣式
-StarWriter/Web 4.0 樣式
-StarWriter/Web 5.0 樣式
-SYLK
-使用編碼的文字 (StarSuite 主控文件)
-文字
-文字 (StarSuite Writer/Web)
-文字 CSV
-文字 使用編碼的
-文字 使用編碼的 (StarSuite Writer/Web)
-網頁
-網頁 (StarSuite Calc)
-網頁 (StarSuite Writer)
diff --git a/testautomation/writer/optional/input/filter/wf____1_all.txt b/testautomation/writer/optional/input/filter/wf____1_all.txt
deleted file mode 100755
index e65f81bbb908..000000000000
--- a/testautomation/writer/optional/input/filter/wf____1_all.txt
+++ /dev/null
@@ -1,56 +0,0 @@
-sw50.sdw
-gWriterFilter
-sw50.sdw
-StarWriter 3.0 - 5.0
-sw50.vor
-StarWriter 3.0 - 5.0 sTemplate
-sw40.sdw
-StarWriter 3.0 - 5.0
-sw40_sp2.vor
-StarWriter 3.0 - 5.0 sTemplate
-sw30.sdw
-StarWriter 3.0 - 5.0
-sw31.sdw
-StarWriter 3.0 - 5.0
-sw31.vor
-StarWriter 3.0 - 5.0 sTemplate
-sw2.sdw
-StarWriter 2.0
-sw1.sdw
-StarWriter 1.0
-swdos.txt
-StarWriter DOS
-rft.rtf
-Rich Text Format
-winword6.doc
-Microsoft Word 6.0 / 95
-winword6.doc
-Microsoft Word 6.0 / 95
-winw97.doc
-Microsoft Word 97/2000/XP
-wintext.txt
-sText
-unixtext.txt
-sText
-mactext.txt
-sText
-dostext.txt
-sText
-filter\html1.htm
-gHTMLFilter
-filter\lotusdos.wk1
-Lotus 1-2-3
-amipro3.sam
-Ami Pro 1.0-3.1
-winword2.doc
-Microsoft WinWord 2.x
-filter\wordperf.wpd
-WordPerfect (Win) 7.0
-dostext.txt
-sText
-filter\excel4.xls
-Microsoft Excel 4.x - 5.0 / 95
-filter\excel5.xls
-Microsoft Excel 4.x - 5.0 / 95
-filter\excel5.xls
-Microsoft Excel 4.x - 5.0 / 95
diff --git a/testautomation/writer/optional/input/filter/wf____49.all b/testautomation/writer/optional/input/filter/wf____49.all
deleted file mode 100755
index e69de29bb2d1..000000000000
--- a/testautomation/writer/optional/input/filter/wf____49.all
+++ /dev/null
diff --git a/testautomation/writer/optional/input/filter/wf____49_all.txt b/testautomation/writer/optional/input/filter/wf____49_all.txt
deleted file mode 100755
index 4b08fbc661c7..000000000000
--- a/testautomation/writer/optional/input/filter/wf____49_all.txt
+++ /dev/null
@@ -1,57 +0,0 @@
-sw50.sdw
-gWriterFilter
-sw50.sdw
-StarWriter 3.0 - 5.0
-sw50.vor
-StarWriter 3.0 - 5.0 sTemplates
-sw40.sdw
-StarWriter 3.0 - 5.0
-sw40_sp2.vor
-StarWriter 3.0 - 5.0 sTemplates
-sw30.sdw
-StarWriter 3.0 - 5.0
-sw31.sdw
-StarWriter 3.0 - 5.0
-sw31.vor
-StarWriter 3.0 - 5.0 sTemplates
-sw2.sdw
-StarWriter 2.0
-sw1.sdw
-StarWriter 1.0
-swdos.txt
-StarWriter DOS
-rft.rtf
-Rich Text Format
-winword6.doc
-Microsoft Word 6.0 / 95
-winword6.doc
-Microsoft Word 6.0 / 95
-winw97.doc
-Microsoft Word 97/2000/XP
-wintext.txt
-sText
-unixtext.txt
-sText
-mactext.txt
-sText
-dostext.txt
-sText
-filter\html1.htm
-gHTMLFilter
-filter\lotusdos.wk1
-Lotus 1-2-3
-amipro3.sam
-Ami Pro 1.0-3.1
-winword2.doc
-Microsoft WinWord 2.x
-filter\wordperf.wpd
-WordPerfect (Win) 7.0
-dostext.txt
-sText
-filter\excel4.xls
-Microsoft Excel 4.x - 5.0 / 95
-filter\excel5.xls
-Microsoft Excel 4.x - 5.0 / 95
-filter\excel5.xls
-Microsoft Excel 4.x - 5.0 / 95
-
diff --git a/testautomation/writer/optional/input/formatpage/pageLayout.sxw b/testautomation/writer/optional/input/formatpage/pageLayout.sxw
deleted file mode 100644
index a61399610ba7..000000000000
--- a/testautomation/writer/optional/input/formatpage/pageLayout.sxw
+++ /dev/null
diff --git a/testautomation/writer/optional/input/formatpage/testColumnInPage.sxw b/testautomation/writer/optional/input/formatpage/testColumnInPage.sxw
deleted file mode 100644
index b56feb77c7c6..000000000000
--- a/testautomation/writer/optional/input/formatpage/testColumnInPage.sxw
+++ /dev/null
diff --git a/testautomation/writer/optional/input/formatpage/testColumnInPage2.sxw b/testautomation/writer/optional/input/formatpage/testColumnInPage2.sxw
deleted file mode 100644
index 642f227732ee..000000000000
--- a/testautomation/writer/optional/input/formatpage/testColumnInPage2.sxw
+++ /dev/null
diff --git a/testautomation/writer/optional/input/formatpage/testColumnVertical.sxw b/testautomation/writer/optional/input/formatpage/testColumnVertical.sxw
deleted file mode 100644
index a0a58002452f..000000000000
--- a/testautomation/writer/optional/input/formatpage/testColumnVertical.sxw
+++ /dev/null
diff --git a/testautomation/writer/optional/input/formatpage/testFooterContent31.sxw b/testautomation/writer/optional/input/formatpage/testFooterContent31.sxw
deleted file mode 100644
index 95eaed9ce342..000000000000
--- a/testautomation/writer/optional/input/formatpage/testFooterContent31.sxw
+++ /dev/null
diff --git a/testautomation/writer/optional/input/formatpage/testFooterContent32.sxw b/testautomation/writer/optional/input/formatpage/testFooterContent32.sxw
deleted file mode 100644
index f68ef2980afb..000000000000
--- a/testautomation/writer/optional/input/formatpage/testFooterContent32.sxw
+++ /dev/null
diff --git a/testautomation/writer/optional/input/formatpage/testForAutoFit.sxw b/testautomation/writer/optional/input/formatpage/testForAutoFit.sxw
deleted file mode 100644
index 5fbad92d9080..000000000000
--- a/testautomation/writer/optional/input/formatpage/testForAutoFit.sxw
+++ /dev/null
diff --git a/testautomation/writer/optional/input/formatpage/testHeaderContent29.sxw b/testautomation/writer/optional/input/formatpage/testHeaderContent29.sxw
deleted file mode 100644
index fac82eaed034..000000000000
--- a/testautomation/writer/optional/input/formatpage/testHeaderContent29.sxw
+++ /dev/null
diff --git a/testautomation/writer/optional/input/formatpage/testHeaderContent30.sxw b/testautomation/writer/optional/input/formatpage/testHeaderContent30.sxw
deleted file mode 100644
index 3b60389bccce..000000000000
--- a/testautomation/writer/optional/input/formatpage/testHeaderContent30.sxw
+++ /dev/null
diff --git a/testautomation/writer/optional/input/formatpage/testSeparatorLine.sxw b/testautomation/writer/optional/input/formatpage/testSeparatorLine.sxw
deleted file mode 100644
index 187f1acdba0d..000000000000
--- a/testautomation/writer/optional/input/formatpage/testSeparatorLine.sxw
+++ /dev/null
diff --git a/testautomation/writer/optional/input/formatparagraph/AddSpacingShouldCheck.doc b/testautomation/writer/optional/input/formatparagraph/AddSpacingShouldCheck.doc
deleted file mode 100755
index b80b3d6cf38d..000000000000
--- a/testautomation/writer/optional/input/formatparagraph/AddSpacingShouldCheck.doc
+++ /dev/null
diff --git a/testautomation/writer/optional/input/formatparagraph/AddSpacingShouldNotCheck.doc b/testautomation/writer/optional/input/formatparagraph/AddSpacingShouldNotCheck.doc
deleted file mode 100755
index 853960f4c38b..000000000000
--- a/testautomation/writer/optional/input/formatparagraph/AddSpacingShouldNotCheck.doc
+++ /dev/null
diff --git a/testautomation/writer/optional/input/formatparagraph/DropCapsTest.sxw b/testautomation/writer/optional/input/formatparagraph/DropCapsTest.sxw
deleted file mode 100644
index d1e8fbdea630..000000000000
--- a/testautomation/writer/optional/input/formatparagraph/DropCapsTest.sxw
+++ /dev/null
diff --git a/testautomation/writer/optional/input/formatparagraph/TabsDecimal.sxw b/testautomation/writer/optional/input/formatparagraph/TabsDecimal.sxw
deleted file mode 100644
index 348fbe817b36..000000000000
--- a/testautomation/writer/optional/input/formatparagraph/TabsDecimal.sxw
+++ /dev/null
diff --git a/testautomation/writer/optional/input/formatparagraph/TabsTest.sxw b/testautomation/writer/optional/input/formatparagraph/TabsTest.sxw
deleted file mode 100644
index 5f58e69ee04b..000000000000
--- a/testautomation/writer/optional/input/formatparagraph/TabsTest.sxw
+++ /dev/null
diff --git a/testautomation/writer/optional/input/formatparagraph/alignmentTest.sxw b/testautomation/writer/optional/input/formatparagraph/alignmentTest.sxw
deleted file mode 100644
index cd0729c3b580..000000000000
--- a/testautomation/writer/optional/input/formatparagraph/alignmentTest.sxw
+++ /dev/null
diff --git a/testautomation/writer/optional/input/formatparagraph/alignmentTestJustified.sxw b/testautomation/writer/optional/input/formatparagraph/alignmentTestJustified.sxw
deleted file mode 100644
index 3d31db3fea4b..000000000000
--- a/testautomation/writer/optional/input/formatparagraph/alignmentTestJustified.sxw
+++ /dev/null
diff --git a/testautomation/writer/optional/input/formatparagraph/alignmentTestJustifiedCentered.sxw b/testautomation/writer/optional/input/formatparagraph/alignmentTestJustifiedCentered.sxw
deleted file mode 100644
index 71ed90e27775..000000000000
--- a/testautomation/writer/optional/input/formatparagraph/alignmentTestJustifiedCentered.sxw
+++ /dev/null
diff --git a/testautomation/writer/optional/input/formatparagraph/alignmentTestRight.sxw b/testautomation/writer/optional/input/formatparagraph/alignmentTestRight.sxw
deleted file mode 100644
index 3c124dc1420b..000000000000
--- a/testautomation/writer/optional/input/formatparagraph/alignmentTestRight.sxw
+++ /dev/null
diff --git a/testautomation/writer/optional/input/formatparagraph/columnBreakParagraph.sxw b/testautomation/writer/optional/input/formatparagraph/columnBreakParagraph.sxw
deleted file mode 100644
index 4a05e84641c6..000000000000
--- a/testautomation/writer/optional/input/formatparagraph/columnBreakParagraph.sxw
+++ /dev/null
diff --git a/testautomation/writer/optional/input/formatparagraph/columnBreakParagraphAfter.sxw b/testautomation/writer/optional/input/formatparagraph/columnBreakParagraphAfter.sxw
deleted file mode 100644
index 0eb63250d3ff..000000000000
--- a/testautomation/writer/optional/input/formatparagraph/columnBreakParagraphAfter.sxw
+++ /dev/null
diff --git a/testautomation/writer/optional/input/formatparagraph/columnBreakParagraphBefore.sxw b/testautomation/writer/optional/input/formatparagraph/columnBreakParagraphBefore.sxw
deleted file mode 100644
index 6f22c9671afd..000000000000
--- a/testautomation/writer/optional/input/formatparagraph/columnBreakParagraphBefore.sxw
+++ /dev/null
diff --git a/testautomation/writer/optional/input/formatparagraph/eightLineAdd1Pic.sxw b/testautomation/writer/optional/input/formatparagraph/eightLineAdd1Pic.sxw
deleted file mode 100644
index cfeec9a88c7d..000000000000
--- a/testautomation/writer/optional/input/formatparagraph/eightLineAdd1Pic.sxw
+++ /dev/null
diff --git a/testautomation/writer/optional/input/formatparagraph/eightline.sxw b/testautomation/writer/optional/input/formatparagraph/eightline.sxw
deleted file mode 100644
index c861cf4d9546..000000000000
--- a/testautomation/writer/optional/input/formatparagraph/eightline.sxw
+++ /dev/null
diff --git a/testautomation/writer/optional/input/formatparagraph/hyphenation.sxw b/testautomation/writer/optional/input/formatparagraph/hyphenation.sxw
deleted file mode 100644
index b91b8afb1c03..000000000000
--- a/testautomation/writer/optional/input/formatparagraph/hyphenation.sxw
+++ /dev/null
diff --git a/testautomation/writer/optional/input/formatparagraph/hyphenationNew.odt b/testautomation/writer/optional/input/formatparagraph/hyphenationNew.odt
deleted file mode 100644
index ac0d9dc06789..000000000000
--- a/testautomation/writer/optional/input/formatparagraph/hyphenationNew.odt
+++ /dev/null
diff --git a/testautomation/writer/optional/input/formatparagraph/hyphenationNew.sxw b/testautomation/writer/optional/input/formatparagraph/hyphenationNew.sxw
deleted file mode 100644
index 96096f3fa609..000000000000
--- a/testautomation/writer/optional/input/formatparagraph/hyphenationNew.sxw
+++ /dev/null
diff --git a/testautomation/writer/optional/input/formatparagraph/indent.sxw b/testautomation/writer/optional/input/formatparagraph/indent.sxw
deleted file mode 100644
index 97bf7d78b967..000000000000
--- a/testautomation/writer/optional/input/formatparagraph/indent.sxw
+++ /dev/null
diff --git a/testautomation/writer/optional/input/formatparagraph/pageBreakAfter.sxw b/testautomation/writer/optional/input/formatparagraph/pageBreakAfter.sxw
deleted file mode 100644
index eee0eb180fb2..000000000000
--- a/testautomation/writer/optional/input/formatparagraph/pageBreakAfter.sxw
+++ /dev/null
diff --git a/testautomation/writer/optional/input/formatparagraph/pageBreakBefore.sxw b/testautomation/writer/optional/input/formatparagraph/pageBreakBefore.sxw
deleted file mode 100644
index ed07b275cfb9..000000000000
--- a/testautomation/writer/optional/input/formatparagraph/pageBreakBefore.sxw
+++ /dev/null
diff --git a/testautomation/writer/optional/input/formatparagraph/paragraphNumbering.sxw b/testautomation/writer/optional/input/formatparagraph/paragraphNumbering.sxw
deleted file mode 100644
index 6bd7bb9538bf..000000000000
--- a/testautomation/writer/optional/input/formatparagraph/paragraphNumbering.sxw
+++ /dev/null
diff --git a/testautomation/writer/optional/input/formatparagraph/registerTrue.sxw b/testautomation/writer/optional/input/formatparagraph/registerTrue.sxw
deleted file mode 100644
index a8fc39d9b264..000000000000
--- a/testautomation/writer/optional/input/formatparagraph/registerTrue.sxw
+++ /dev/null
diff --git a/testautomation/writer/optional/input/formatparagraph/spacing.sxw b/testautomation/writer/optional/input/formatparagraph/spacing.sxw
deleted file mode 100644
index cbe809943a7f..000000000000
--- a/testautomation/writer/optional/input/formatparagraph/spacing.sxw
+++ /dev/null
diff --git a/testautomation/writer/optional/input/formatparagraph/spacing1.sxw b/testautomation/writer/optional/input/formatparagraph/spacing1.sxw
deleted file mode 100644
index b9f6df2a9f59..000000000000
--- a/testautomation/writer/optional/input/formatparagraph/spacing1.sxw
+++ /dev/null
diff --git a/testautomation/writer/optional/input/formatparagraph/specialHyphenation.sxw b/testautomation/writer/optional/input/formatparagraph/specialHyphenation.sxw
deleted file mode 100644
index 5f4259bcb399..000000000000
--- a/testautomation/writer/optional/input/formatparagraph/specialHyphenation.sxw
+++ /dev/null
diff --git a/testautomation/writer/optional/input/formatparagraph/testExpand.sxw b/testautomation/writer/optional/input/formatparagraph/testExpand.sxw
deleted file mode 100644
index 1bbc8f845def..000000000000
--- a/testautomation/writer/optional/input/formatparagraph/testExpand.sxw
+++ /dev/null
diff --git a/testautomation/writer/optional/input/formatparagraph/textFlowOptions.sxw b/testautomation/writer/optional/input/formatparagraph/textFlowOptions.sxw
deleted file mode 100644
index 4a03e8e1bc09..000000000000
--- a/testautomation/writer/optional/input/formatparagraph/textFlowOptions.sxw
+++ /dev/null
diff --git a/testautomation/writer/optional/input/formatparagraph/textFlowOptions1.sxw b/testautomation/writer/optional/input/formatparagraph/textFlowOptions1.sxw
deleted file mode 100644
index bcb51bf2f26e..000000000000
--- a/testautomation/writer/optional/input/formatparagraph/textFlowOptions1.sxw
+++ /dev/null
diff --git a/testautomation/writer/optional/input/graphics/bild.jpg b/testautomation/writer/optional/input/graphics/bild.jpg
deleted file mode 100644
index ee90ee030b3b..000000000000
--- a/testautomation/writer/optional/input/graphics/bild.jpg
+++ /dev/null
diff --git a/testautomation/writer/optional/input/graphics/bullet.gif b/testautomation/writer/optional/input/graphics/bullet.gif
deleted file mode 100755
index 341cf0726d3b..000000000000
--- a/testautomation/writer/optional/input/graphics/bullet.gif
+++ /dev/null
diff --git a/testautomation/writer/optional/input/graphics/jolink.jpg b/testautomation/writer/optional/input/graphics/jolink.jpg
deleted file mode 100644
index 6200757dd797..000000000000
--- a/testautomation/writer/optional/input/graphics/jolink.jpg
+++ /dev/null
diff --git a/testautomation/writer/optional/input/hangul/hangul.html b/testautomation/writer/optional/input/hangul/hangul.html
deleted file mode 100644
index ed94de74fd50..000000000000
--- a/testautomation/writer/optional/input/hangul/hangul.html
+++ /dev/null
@@ -1,32 +0,0 @@
-<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 3.2//EN">
-<HTML>
-<HEAD>
-	<META HTTP-EQUIV="CONTENT-TYPE" CONTENT="text/html; charset=gb2312">
-	<TITLE></TITLE>
-	<META NAME="GENERATOR" CONTENT="StarOffice 8 Beta (Win32)">
-	<META NAME="CREATED" CONTENT="20041214;16325382">
-	<META NAME="CHANGED" CONTENT="20041214;16344789">
-</HEAD>
-<BODY LANG="en-US" DIR="LTR">
-<DL>
-	<DT><A HREF="http://nuclina.hoseo.ac.kr/ps/test-ks.html">http://nuclina.hoseo.ac.kr/ps/test-ks.html</A></DL>
-<H1>
-<SPAN LANG="ko-KR">&#50640;&#49436; &#54620;&#51088; &#50752; &#44592;&#54840;&#47484;
-&#51077;&#47141;&#54624;&#46412;</SPAN></H1>
-<DL>
-	<DT><SPAN LANG="ko-KR">&#54620;&#51088;&#51077;&#47141;&#51008; &#54644;&#45817;&#54616;&#45716;
-	&#54620;&#44544; &#54620;&#44544;&#51088;&#47484; &#51077;&#47141;&#54616;&#44256;
-	</SPAN>ctrl + F9 <SPAN LANG="ko-KR">&#47484; &#45580;&#47084; &#54644;&#45817;&#54616;&#45716;
-	&#54620;&#51088;&#51032; &#48264;&#54840;&#47484; &#49440;&#53469;&#54620;&#45796;</SPAN>.
-	
-</DL>
-<P><SPAN LANG="ko-KR">&#44592;&#54840;&#51032;   &#51077; &#47141;&#51008;&#54620;&#44544;
-&#52488;&#49457; &#54620;&#44544;&#51088;&#47484; &#51077;&#47141;&#54616;&#44256;
-</SPAN>ctrl + F9 <SPAN LANG="ko-KR">&#47484; &#45580;&#47084; &#54644;&#45817;&#54616;&#45716;
-&#44592;&#54840;&#51032; &#48264;&#54840;&#47484; &#49440;&#53469;&#54620;&#45796;</SPAN>.
-</P>
-<P><SPAN LANG="ko-KR">&#12593; &#44284; &#12596; &#51032; &#44221;&#50864;&#44032;
-&#45796;&#47476;&#45796;</SPAN>.</P>
-<P><SPAN LANG="ko-KR">����</SPAN></P>
-</BODY>
-</HTML>
\ No newline at end of file
diff --git a/testautomation/writer/optional/input/hangul/hangul.sxw b/testautomation/writer/optional/input/hangul/hangul.sxw
deleted file mode 100644
index a825084bf25c..000000000000
--- a/testautomation/writer/optional/input/hangul/hangul.sxw
+++ /dev/null
diff --git a/testautomation/writer/optional/input/hangulhanjaonversion/ChineseToKorean.sxw b/testautomation/writer/optional/input/hangulhanjaonversion/ChineseToKorean.sxw
deleted file mode 100644
index 580cea827c69..000000000000
--- a/testautomation/writer/optional/input/hangulhanjaonversion/ChineseToKorean.sxw
+++ /dev/null
diff --git a/testautomation/writer/optional/input/hangulhanjaonversion/KoreanToChinese.sxw b/testautomation/writer/optional/input/hangulhanjaonversion/KoreanToChinese.sxw
deleted file mode 100644
index 0cc9335ceeb2..000000000000
--- a/testautomation/writer/optional/input/hangulhanjaonversion/KoreanToChinese.sxw
+++ /dev/null
diff --git a/testautomation/writer/optional/input/hangulhanjaonversion/Replace.sxw b/testautomation/writer/optional/input/hangulhanjaonversion/Replace.sxw
deleted file mode 100644
index 32adfd91e984..000000000000
--- a/testautomation/writer/optional/input/hangulhanjaonversion/Replace.sxw
+++ /dev/null
diff --git a/testautomation/writer/optional/input/hangulhanjaonversion/alwayIgnore.sxw b/testautomation/writer/optional/input/hangulhanjaonversion/alwayIgnore.sxw
deleted file mode 100644
index a647b8bb7611..000000000000
--- a/testautomation/writer/optional/input/hangulhanjaonversion/alwayIgnore.sxw
+++ /dev/null
diff --git a/testautomation/writer/optional/input/hangulhanjaonversion/alwaysReplace.sxw b/testautomation/writer/optional/input/hangulhanjaonversion/alwaysReplace.sxw
deleted file mode 100644
index 93d3eec37dd6..000000000000
--- a/testautomation/writer/optional/input/hangulhanjaonversion/alwaysReplace.sxw
+++ /dev/null
diff --git a/testautomation/writer/optional/input/hangulhanjaonversion/drawBox.sxw b/testautomation/writer/optional/input/hangulhanjaonversion/drawBox.sxw
deleted file mode 100644
index 5939b742e59d..000000000000
--- a/testautomation/writer/optional/input/hangulhanjaonversion/drawBox.sxw
+++ /dev/null
diff --git a/testautomation/writer/optional/input/hangulhanjaonversion/hangul.sxw b/testautomation/writer/optional/input/hangulhanjaonversion/hangul.sxw
deleted file mode 100644
index ff6ee3027d64..000000000000
--- a/testautomation/writer/optional/input/hangulhanjaonversion/hangul.sxw
+++ /dev/null
diff --git a/testautomation/writer/optional/input/hangulhanjaonversion/multiLanguage_C.sxw b/testautomation/writer/optional/input/hangulhanjaonversion/multiLanguage_C.sxw
deleted file mode 100644
index d4dedc3a1163..000000000000
--- a/testautomation/writer/optional/input/hangulhanjaonversion/multiLanguage_C.sxw
+++ /dev/null
diff --git a/testautomation/writer/optional/input/hangulhanjaonversion/multiLanguage_K.sxw b/testautomation/writer/optional/input/hangulhanjaonversion/multiLanguage_K.sxw
deleted file mode 100644
index 7e9e4dae9208..000000000000
--- a/testautomation/writer/optional/input/hangulhanjaonversion/multiLanguage_K.sxw
+++ /dev/null
diff --git a/testautomation/writer/optional/input/hangulhanjaonversion/multiSelection.sxw b/testautomation/writer/optional/input/hangulhanjaonversion/multiSelection.sxw
deleted file mode 100644
index 88eb04322a36..000000000000
--- a/testautomation/writer/optional/input/hangulhanjaonversion/multiSelection.sxw
+++ /dev/null
diff --git a/testautomation/writer/optional/input/hangulhanjaonversion/noKoreanAndChinese.sxw b/testautomation/writer/optional/input/hangulhanjaonversion/noKoreanAndChinese.sxw
deleted file mode 100644
index e2cc79ebe8ea..000000000000
--- a/testautomation/writer/optional/input/hangulhanjaonversion/noKoreanAndChinese.sxw
+++ /dev/null
diff --git a/testautomation/writer/optional/input/hangulhanjaonversion/notConvertHangulHanja.sxw b/testautomation/writer/optional/input/hangulhanjaonversion/notConvertHangulHanja.sxw
deleted file mode 100644
index 0239cb577930..000000000000
--- a/testautomation/writer/optional/input/hangulhanjaonversion/notConvertHangulHanja.sxw
+++ /dev/null
diff --git a/testautomation/writer/optional/input/hangulhanjaonversion/replaceAll.sxw b/testautomation/writer/optional/input/hangulhanjaonversion/replaceAll.sxw
deleted file mode 100644
index 534bf9e00d96..000000000000
--- a/testautomation/writer/optional/input/hangulhanjaonversion/replaceAll.sxw
+++ /dev/null
diff --git a/testautomation/writer/optional/input/hangulhanjaonversion/textBox.sxw b/testautomation/writer/optional/input/hangulhanjaonversion/textBox.sxw
deleted file mode 100644
index 98c56a77015d..000000000000
--- a/testautomation/writer/optional/input/hangulhanjaonversion/textBox.sxw
+++ /dev/null
diff --git a/testautomation/writer/optional/input/hyphenation/tHyphenation.odt b/testautomation/writer/optional/input/hyphenation/tHyphenation.odt
deleted file mode 100644
index b2b0494cd4e7..000000000000
--- a/testautomation/writer/optional/input/hyphenation/tHyphenation.odt
+++ /dev/null
diff --git a/testautomation/writer/optional/input/import/amipro3.sam b/testautomation/writer/optional/input/import/amipro3.sam
deleted file mode 100755
index a0799d12536b..000000000000
--- a/testautomation/writer/optional/input/import/amipro3.sam
+++ /dev/null
@@ -1,3107 +0,0 @@
-[ver]
-	4
-[sty]
-	
-[files]
-[charset]
-	82
-	ANSI (Windows, IBM CP 1252)
-[revisions]
-	0
-[prn]
-	QMS-PS 820
-[port]
-	LPT1:
-[lang]
-	7
-[fldnames]
-	Feld1
-	Feld2
-	Feld3
-	Feld4
-	Feld5
-	Feld6
-	Feld7
-	Feld8
-[desc]
-	Mercury Demo Datei. Beinhaltet die Neuerungen von Ami Pro 3.0
-	
-	
-	
-	
-	901111920
-	23
-	707422776
-	1006
-	7
-	2110
-	15128
-	165
-	180
-	
-	
-	
-	
-	
-	
-	0
-[fopts]
-	0
-	1
-	0
-	0
-	
-	
-[lnopts]
-	2
-	Body Text
-	1
-[docopts]
-	5
-	2
-[GramStyle]
-	Business Writing
-[ParaNum]
-	1
-[tag]
-	Text
-	2
-	[fnt]
-		Times New Roman
-		240
-		0
-		49152
-	[algn]
-		257
-		2
-		0
-		0
-		0
-	[spc]
-		33
-		279
-		4
-		0
-		0
-		2
-		100
-	[brk]
-		4
-	[line]
-		8
-		0
-		2
-		0
-		1
-		1
-		1
-		10
-		10
-		1
-	[spec]
-		0
-		0
-		
-		0
-		2
-		1
-		0
-		0
-		0
-		0
-	[nfmt]
-		280
-		1
-		2
-		,
-		.
-		$
-	Body Single
-	0
-	0
-[tag]
-	Text Abstand
-	3
-	[fnt]
-		Times New Roman
-		240
-		0
-		49152
-	[algn]
-		257
-		2
-		0
-		0
-		0
-	[spc]
-		33
-		274
-		4
-		85
-		85
-		2
-		100
-	[brk]
-		4
-	[line]
-		8
-		0
-		2
-		0
-		1
-		1
-		1
-		10
-		10
-		1
-	[spec]
-		0
-		0
-		
-		0
-		2
-		1
-		0
-		0
-		0
-		0
-	[nfmt]
-		280
-		1
-		2
-		,
-		.
-		$
-	Body Text
-	0
-	0
-[tag]
-	Text Blcksatz
-	4
-	[fnt]
-		Times New Roman
-		240
-		0
-		49152
-	[algn]
-		264
-		2
-		0
-		0
-		0
-	[spc]
-		33
-		274
-		4
-		85
-		85
-		2
-		100
-	[brk]
-		4
-	[line]
-		8
-		0
-		2
-		0
-		1
-		1
-		1
-		10
-		10
-		1
-	[spec]
-		0
-		0
-		
-		0
-		2
-		1
-		0
-		0
-		0
-		0
-	[nfmt]
-		280
-		1
-		2
-		,
-		.
-		$
-	Body Text
-	0
-	0
-[tag]
-	Markierung 1
-	5
-	[fnt]
-		Times New Roman
-		240
-		0
-		49152
-	[algn]
-		257
-		2
-		396
-		170
-		170
-	[spc]
-		33
-		271
-		4
-		0
-		0
-		2
-		100
-	[brk]
-		8
-	[line]
-		8
-		0
-		2
-		0
-		1
-		2
-		2
-		20
-		20
-		1
-	[spec]
-		0
-		0
-		<*2>
-		0
-		2
-		1
-		0
-		0
-		0
-		0
-	[nfmt]
-		272
-		1
-		2
-		,
-		.
-		$
-	Bullet 1
-	0
-	0
-[tag]
-	Markierung 2
-	6
-	[fnt]
-		Times New Roman
-		240
-		0
-		49152
-	[algn]
-		257
-		2
-		567
-		170
-		170
-	[spc]
-		33
-		271
-		4
-		0
-		0
-		2
-		100
-	[brk]
-		8
-	[line]
-		8
-		0
-		2
-		0
-		1
-		2
-		2
-		20
-		20
-		1
-	[spec]
-		0
-		0
-		<*9>
-		0
-		2
-		1
-		0
-		0
-		0
-		0
-	[nfmt]
-		272
-		1
-		2
-		,
-		.
-		$
-	Bullet 2
-	0
-	0
-[tag]
-	Nr. Liste
-	7
-	[fnt]
-		Times New Roman
-		240
-		0
-		49152
-	[algn]
-		257
-		2
-		0
-		396
-		396
-	[spc]
-		33
-		271
-		4
-		85
-		0
-		2
-		100
-	[brk]
-		8
-	[line]
-		8
-		0
-		2
-		0
-		1
-		2
-		2
-		20
-		20
-		1
-	[spec]
-		0
-		0
-		<*:>.
-		0
-		2
-		1
-		0
-		0
-		0
-		0
-	[nfmt]
-		272
-		1
-		2
-		,
-		.
-		$
-	Numbered List
-	0
-	0
-[tag]
-	<\\>berschrift
-	8
-	[fnt]
-		Times New Roman
-		360
-		16711680
-		49153
-	[algn]
-		257
-		2
-		0
-		0
-		0
-	[spc]
-		33
-		400
-		4
-		85
-		0
-		2
-		100
-	[brk]
-		80
-	[line]
-		8
-		0
-		2
-		0
-		1
-		1
-		1
-		10
-		10
-		1
-	[spec]
-		0
-		1
-		
-		0
-		2
-		1
-		0
-		0
-		0
-		0
-	[nfmt]
-		280
-		1
-		2
-		,
-		.
-		$
-	Zwischen<\|>ber
-	0
-	0
-[tag]
-	Zwischen<\|>ber
-	9
-	[fnt]
-		Arial
-		240
-		0
-		16386
-	[algn]
-		257
-		2
-		0
-		0
-		0
-	[spc]
-		33
-		271
-		4
-		85
-		0
-		2
-		100
-	[brk]
-		80
-	[line]
-		8
-		0
-		2
-		0
-		1
-		2
-		2
-		20
-		20
-		1
-	[spec]
-		0
-		2
-		
-		0
-		2
-		1
-		0
-		0
-		0
-		0
-	[nfmt]
-		272
-		1
-		2
-		,
-		.
-		$
-	Text
-	0
-	0
-[tag]
-	Tabellen Text
-	11
-	[fnt]
-		Arial
-		220
-		0
-		16384
-	[algn]
-		257
-		2
-		0
-		0
-		0
-	[spc]
-		17
-		274
-		4
-		28
-		0
-		2
-		100
-	[brk]
-		4
-	[line]
-		8
-		0
-		2
-		0
-		1
-		2
-		2
-		20
-		20
-		1
-	[spec]
-		0
-		0
-		
-		0
-		2
-		1
-		0
-		0
-		0
-		0
-	[nfmt]
-		24
-		4
-		1
-		,
-		.
-		$
-	Table Text
-	0
-	0
-[tag]
-	Tabellen <\\>ber
-	12
-	[fnt]
-		Times New Roman
-		280
-		16711680
-		49153
-	[algn]
-		260
-		2
-		0
-		0
-		0
-	[spc]
-		17
-		322
-		4
-		28
-		0
-		2
-		100
-	[brk]
-		16
-	[line]
-		8
-		0
-		2
-		0
-		1
-		1
-		1
-		10
-		10
-		1
-	[spec]
-		0
-		1
-		
-		0
-		2
-		1
-		0
-		0
-		0
-		0
-	[nfmt]
-		280
-		1
-		2
-		,
-		.
-		$
-	Table Heading
-	0
-	0
-[tag]
-	Hg Einr<\|>ckung
-	0
-	[fnt]
-		Times New Roman
-		240
-		0
-		49152
-	[algn]
-		513
-		2
-		0
-		0
-		1417
-	[spc]
-		33
-		288
-		1
-		72
-		0
-		1
-		100
-	[brk]
-		40
-	[line]
-		8
-		0
-		1
-		0
-		1
-		2
-		2
-		20
-		20
-		1
-	[spec]
-		0
-		0
-		
-		0
-		1
-		1
-		1
-		16
-		0
-		0
-	[nfmt]
-		272
-		1
-		2
-		.
-		,
-		$
-	Indent
-	1
-	1
-	1417
-	0
-[tag]
-	Titel
-	0
-	[fnt]
-		Arial
-		720
-		8388736
-		16387
-	[algn]
-		4
-		2
-		0
-		0
-		0
-	[spc]
-		17
-		827
-		2
-		0
-		0
-		2
-		100
-	[brk]
-		4
-	[line]
-		8
-		0
-		2
-		0
-		1
-		1
-		1
-		10
-		10
-		1
-	[spec]
-		0
-		0
-		
-		0
-		2
-		1
-		0
-		0
-		0
-		0
-	[nfmt]
-		280
-		1
-		2
-		,
-		.
-		$
-	Title
-	0
-	0
-[tag]
-	Einr<\|>ckung
-	0
-	[fnt]
-		Times New Roman
-		220
-		0
-		49152
-	[algn]
-		257
-		2
-		567
-		0
-		0
-	[spc]
-		33
-		271
-		4
-		0
-		0
-		2
-		100
-	[brk]
-		4
-	[line]
-		8
-		0
-		2
-		0
-		1
-		2
-		2
-		20
-		20
-		1
-	[spec]
-		0
-		0
-		
-		0
-		2
-		1
-		0
-		0
-		0
-		0
-	[nfmt]
-		272
-		1
-		2
-		,
-		.
-		$
-	
-	0
-	0
-[tag]
-	NrLst rechtsb
-	0
-	[fnt]
-		Times New Roman
-		240
-		0
-		49152
-	[algn]
-		1
-		2
-		0
-		396
-		396
-	[spc]
-		33
-		271
-		4
-		0
-		0
-		2
-		100
-	[brk]
-		0
-	[line]
-		8
-		0
-		2
-		0
-		1
-		2
-		2
-		20
-		20
-		1
-	[spec]
-		0
-		0
-		<*:>.
-		0
-		2
-		1
-		0
-		16
-		0
-		0
-	[nfmt]
-		272
-		1
-		2
-		,
-		.
-		$
-	NrLst rechtsb
-	0
-	0
-[frm]
-	1
-	537001984
-	1375
-	72
-	5035
-	1804
-	0
-	1
-	1
-	1 0 0 0 0 0 0
-	0
-	16777215
-	79
-	[frmname]
-		Frame71
-	[frmlay]
-		1804
-		3660
-		0
-		144
-		144
-		1
-		216
-		144
-		0
-		2
-		0
-		152
-		82
-		25840
-		1
-		1519
-		4891
-		0
-	[isd]
-		.X79
-		.sdw
-		.X79
-		18
-		1
-		0
-		0
-		2666
-		64086
-		100
-		0
-		384
-		258
-		0
-		0
-		1
-		16
-		15295
-		24
-		15295
-		32
-		15295
-		40
-		15295
-		48
-		15295
-		56
-		15295
-		8
-		15295
-		876
-		0
-		3856
-		214
-		7234
-		1664
-		0
-		0
-		0
-		0
-		0
-		0
-		65535
-		255
-		0
-		0
-		0
-		0
-		20
-		0
-		0
-		19968
-		30565
-		25923
-		29806
-		29301
-		21369
-		26723
-		25196
-		107
-		0
-		0
-		0
-		0
-		0
-		0
-		0
-		4608
-		320
-		0
-		0
-		4
-		0
-		0
-		0
-		1
-		100
-		100
-		100
-		720
-		1
-		0
-		0
-		12862
-		17934
-		6310
-		0
-		17903
-		2202
-		17903
-		115
-		15247
-		192
-		15247
-		418
-		15599
-		487
-		15599
-		288
-		15247
-		0
-		0
-		0
-		0
-		0
-		0
-		0
-		0
-		0
-		0
-		0
-		0
-		0
-		0
-		0
-		0
-		0
-		0
-		0
-		0
-		0
-		0
-		0
-		0
-		0
-		0
-		0
-		0
-		0
-		0
-		0
-		0
-		0
-		0
-		0
-		0
-		0
-		0
-		0
-		0
-		0
-		0
-		0
-		0
-		0
-		0
-		0
-		0
-		0
-		0
-		0
-		0
-		0
-		0
-		0
-		0
-		0
-		0
-		0
-		0
-		0
-		0
-		0
-		0
-		0
-		0
-		0
-		0
-		0
-		0
-		0
-		0
-		0
-		0
-		0
-		0
-		0
-		0
-		0
-		0
-		0
-		0
-		0
-		0
-		0
-		0
-		0
-		0
-		0
-		0
-		0
-		0
-		0
-		0
-		0
-		0
-		0
-		0
-		0
-		0
-		0
-		0
-		0
-		0
-		0
-		0
-		0
-		0
-		0
-		0
-		0
-		0
-		0
-		0
-		0
-		0
-		0
-		0
-		0
-		0
-		0
-		0
-		0
-		0
-		0
-		0
-		0
-		0
-		0
-		0
-		0
-		0
-		0
-		0
-		0
-		0
-		0
-		0
-		0
-		0
-		0
-		0
-		0
-		0
-		0
-		0
-		0
-		0
-		0
-		0
-		0
-		0
-		0
-		0
-		0
-		0
-		0
-		0
-		0
-		0
-		0
-		0
-		0
-		0
-		0
-		0
-		0
-		0
-		0
-		0
-		0
-		0
-		0
-		0
-		0
-		0
-		0
-		0
-		0
-		0
-		0
-		0
-		0
-		0
-		0
-		0
-		0
-		0
-		0
-		0
-		0
-		0
-		0
-		0
-		0
-		0
-		0
-		0
-		0
-		0
-		0
-		0
-		0
-		0
-		0
-		0
-		0
-		0
-		0
-		0
-		0
-		0
-		0
-		0
-		0
-		0
-		0
-		0
-		0
-		0
-		0
-		0
-		0
-		0
-		0
-		0
-		0
-		0
-		0
-		0
-		0
-		0
-		0
-		0
-		0
-		0
-		0
-		0
-		0
-		0
-		0
-		0
-		0
-		0
-		0
-		0
-		0
-		0
-		0
-		0
-		0
-		0
-		0
-		0
-		0
-		0
-		0
-		0
-		0
-		0
-		0
-		0
-		0
-		0
-		0
-		0
-		0
-		0
-		0
-		0
-		0
-		0
-		0
-		0
-		0
-		0
-		0
-		0
-		0
-		0
-		0
-		0
-		8
-		16615
-		24
-		16615
-		32
-		16615
-		40
-		16615
-		16
-		16615
-		48
-		16615
-		0
-		0
-		.sdw
-		0
-		0
-		0
-[frm]
-	1
-	25297472
-	4475
-	1980
-	6560
-	2145
-	0
-	1
-	1
-	1 0 0 0 0 0 0
-	0
-	16760895
-	62
-	[frmname]
-		Frame62
-	[frmlay]
-		2145
-		2085
-		1
-		0
-		0
-		1
-		1980
-		0
-		0
-		2
-		0
-		152
-		82
-		25840
-		1
-		4475
-		6560
-		0
-	[txt]
->
-[frm]
-	1
-	8520256
-	1416
-	2298
-	10498
-	2672
-	0
-	1
-	1
-	1 0 0 0 0 0 16711935
-	0
-	255
-	69
-	[frmname]
-		Frame63
-	[frmlay]
-		2672
-		9082
-		1
-		0
-		374
-		1
-		2298
-		0
-		0
-		2
-		0
-		152
-		82
-		25840
-		1
-		1416
-		10506
-		0
-	[txt]
->
-[frm]
-	1
-	8520256
-	2915
-	2130
-	8105
-	2310
-	0
-	1
-	1
-	1 0 0 0 0 0 0
-	0
-	8388736
-	64
-	[frmlay]
-		2310
-		5190
-		1
-		0
-		0
-		1
-		2130
-		0
-		0
-		2
-		0
-		152
-		82
-		25840
-		1
-		2915
-		8105
-		0
-	[txt]
->
-[frm]
-	1
-	8389120
-	1445
-	2025
-	2825
-	2310
-	0
-	1
-	1
-	1 0 0 0 0 0 0
-	0
-	16777215
-	65
-	[frmlay]
-		2310
-		1380
-		1
-		0
-		0
-		1
-		2025
-		0
-		0
-		2
-		0
-		0
-		0
-		256
-		1
-		1445
-		2825
-		0
-	[txt]
-Nr. XXVII<:f>
-
->
-[frm]
-	1
-	41943552
-	8105
-	2010
-	10460
-	2295
-	0
-	1
-	1
-	1 0 0 0 0 0 0
-	0
-	16777215
-	66
-	[frmlay]
-		2295
-		2355
-		1
-		0
-		0
-		1
-		2010
-		0
-		0
-		2
-		0
-		232
-		116
-		36864
-		1
-		8105
-		10460
-		0
-	[txt]
-<+A><:Dj>
-
->
-[frm]
-	1
-	25297408
-	6379
-	920
-	10380
-	1830
-	0
-	1
-	1
-	1 0 0 0 0 0 0
-	0
-	16777215
-	80
-	[frmlay]
-		1830
-		4001
-		1
-		56
-		56
-		2
-		976
-		56
-		0
-		2
-		0
-		152
-		82
-		25840
-		1
-		6435
-		10328
-		0
-	[txt]
-@Zwischen<\|>ber@<+B>Das phantastische Textprogramm f<\|>r Windows<:f>
-
->
-[frm]
-	1
-	42074624
-	6216
-	268
-	10520
-	1172
-	0
-	1
-	1
-	1 0 0 0 0 0 0
-	0
-	16777215
-	81
-	[frmlay]
-		1172
-		4304
-		1
-		0
-		0
-		2
-		268
-		0
-		0
-		2
-		0
-		232
-		116
-		36864
-		1
-		6216
-		10515
-		0
-	[txt]
-@Titel@<+B>Ami Pro<:f520,BArial,128,0,128><+&></n><-&><:f> 3.0
-
->
-[frm]
-	4
-	562102400
-	6090
-	6707
-	10431
-	9667
-	1
-	1
-	1
-	1 0 0 57 57 0 12632256
-	0
-	16777215
-	52
-	[frmname]
-		Frame46
-	[frmlay]
-		9667
-		4341
-		1
-		144
-		144
-		1
-		6851
-		144
-		0
-		2
-		0
-		1
-		1
-		1
-		1
-		6234
-		10287
-		0
-	[isd]
-		.X52
-		.sdw
-		.X52
-		1
-		1
-		0
-		0
-		3306
-		63173
-		100
-		0
-		384
-		258
-		0
-		0
-		1
-		16
-		15295
-		24
-		15295
-		32
-		15295
-		40
-		15295
-		48
-		15295
-		56
-		15295
-		8
-		15295
-		1024
-		0
-		8569
-		6855
-		12623
-		9525
-		0
-		0
-		0
-		0
-		0
-		0
-		65535
-		255
-		0
-		0
-		0
-		0
-		20
-		0
-		0
-		16640
-		26994
-		27745
-		29696
-		29301
-		21369
-		26723
-		25196
-		107
-		0
-		0
-		0
-		0
-		0
-		0
-		0
-		8704
-		320
-		0
-		255
-		4
-		256
-		0
-		0
-		1
-		360
-		180
-		360
-		720
-		1
-		0
-		0
-		12814
-		17934
-		6310
-		0
-		17903
-		2202
-		17903
-		115
-		15247
-		192
-		15247
-		418
-		15599
-		487
-		15599
-		288
-		15247
-		1
-		255
-		0
-		17151
-		30
-		33279
-		0
-		65535
-		0
-		65280
-		0
-		65280
-		178
-		65280
-		255
-		32768
-		255
-		0
-		255
-		16225
-		255
-		129
-		255
-		255
-		255
-		255
-		128
-		65535
-		255
-		0
-		0
-		1
-		49407
-		206
-		49407
-		182
-		49919
-		129
-		65535
-		194
-		65474
-		145
-		65473
-		213
-		65473
-		255
-		61378
-		255
-		61920
-		255
-		57568
-		255
-		49121
-		255
-		49663
-		253
-		49407
-		228
-		65535
-		255
-		36751
-		143
-		33535
-		160
-		33023
-		128
-		49151
-		24
-		65535
-		128
-		65408
-		128
-		65410
-		202
-		65408
-		255
-		58017
-		255
-		57792
-		255
-		49087
-		255
-		40930
-		255
-		32767
-		255
-		33535
-		194
-		63479
-		247
-		32896
-		128
-		16639
-		112
-		33279
-		65
-		33279
-		0
-		65535
-		0
-		65345
-		50
-		65346
-		199
-		65280
-		255
-		49215
-		255
-		40833
-		226
-		32896
-		255
-		33472
-		255
-		17151
-		249
-		16639
-		160
-		61423
-		239
-		29298
-		114
-		255
-		0
-		17151
-		30
-		25314
-		0
-		65535
-		74
-		65280
-		0
-		65280
-		178
-		57344
-		224
-		32768
-		255
-		33089
-		255
-		16705
-		255
-		17026
-		255
-		255
-		255
-		255
-		128
-		57825
-		225
-		24415
-		95
-		194
-		0
-		8417
-		0
-		16289
-		0
-		41377
-		0
-		49664
-		0
-		49408
-		150
-		49408
-		194
-		25088
-		225
-		0
-		255
-		65
-		255
-		129
-		255
-		161
-		159
-		192
-		127
-		53970
-		210
-		20303
-		79
-		129
-		0
-		160
-		0
-		17026
-		0
-		33153
-		0
-		32768
-		0
-		40704
-		130
-		33280
-		128
-		16384
-		128
-		0
-		128
-		34
-		161
-		65
-		194
-		128
-		128
-		130
-		64
-		49344
-		192
-		16448
-		64
-		45520
-		161
-		41440
-		117
-		45266
-		106
-		49856
-		124
-		49538
-		104
-		49281
-		151
-		49791
-		188
-		45681
-		207
-		40863
-		224
-		41408
-		224
-		40930
-		222
-		37359
-		235
-		40930
-		200
-		45746
-		178
-		12079
-		47
-		24703
-		79
-		25249
-		82
-		25216
-		16
-		33410
-		63
-		25151
-		31
-		24892
-		62
-		24631
-		94
-		16656
-		96
-		24674
-		161
-		16738
-		129
-		12640
-		129
-		8544
-		98
-		8546
-		82
-		41634
-		162
-		0
-		0
-		0
-		6272
-		13884
-		13860
-		154
-		153
-		155
-		151
-		8
-		0
-		8
-		16615
-		24
-		16615
-		32
-		16615
-		40
-		16615
-		16
-		16615
-		48
-		16615
-		0
-		0
-		.sdw
-		0
-		0
-		0
-[frm]
-	4
-	41943680
-	6129
-	9624
-	10426
-	10910
-	0
-	1
-	1
-	1 0 0 0 0 0 0
-	0
-	16777215
-	55
-	[frmlay]
-		10910
-		4297
-		1
-		144
-		144
-		1
-		9768
-		144
-		0
-		2
-		0
-		1
-		1
-		1
-		1
-		6273
-		10277
-		0
-	[txt]
-<+B><:f280,,><+">Ami Pro's<-"><:f><+"><:f280,,> <-"><+">TOOLS bieten Editieren im Kontext f<\|>r einfacheres<-"><:f><+"><:f280,,> und schnelleres Arbeiten.<-"><:f>
-
->
-[frm]
-	4
-	536870912
-	1100
-	9402
-	10761
-	12748
-	0
-	1
-	1
-	1 0 0 0 0 0 0
-	0
-	16777215
-	74
-	[frmname]
-		Frame74
-	[frmlay]
-		12748
-		9661
-		1
-		0
-		0
-		1
-		9402
-		0
-		0
-		2
-		0
-		130
-		130
-		514
-		1
-		1100
-		10761
-		0
-	[isd]
-		.X74
-		.sdw
-		.X74
-		1
-		1
-		0
-		0
-		4320
-		61216
-		100
-		0
-		384
-		258
-		0
-		0
-		1
-		16
-		15295
-		24
-		15295
-		32
-		15295
-		40
-		15295
-		48
-		15295
-		56
-		15295
-		8
-		15295
-		1028
-		0
-		3461
-		9426
-		13084
-		12738
-		0
-		0
-		0
-		0
-		0
-		0
-		65535
-		255
-		0
-		0
-		0
-		0
-		40
-		33061
-		65280
-		16640
-		26994
-		27745
-		29696
-		29301
-		21369
-		26723
-		25196
-		107
-		0
-		0
-		0
-		0
-		0
-		0
-		0
-		8704
-		480
-		255
-		0
-		0
-		256
-		0
-		0
-		1
-		100
-		100
-		100
-		720
-		1
-		0
-		0
-		12886
-		17934
-		6310
-		0
-		17903
-		2202
-		17903
-		115
-		15247
-		192
-		15247
-		418
-		15599
-		487
-		15599
-		288
-		15247
-		1
-		255
-		0
-		17151
-		30
-		33279
-		0
-		65535
-		0
-		65280
-		0
-		65280
-		178
-		65280
-		255
-		32768
-		255
-		0
-		255
-		16225
-		255
-		129
-		255
-		255
-		255
-		255
-		128
-		65535
-		255
-		0
-		0
-		1
-		49407
-		206
-		49407
-		182
-		49919
-		129
-		65535
-		194
-		65474
-		145
-		65473
-		213
-		65473
-		255
-		61378
-		255
-		61920
-		255
-		57568
-		255
-		49121
-		255
-		49663
-		253
-		49407
-		228
-		65535
-		255
-		36751
-		143
-		33535
-		160
-		33023
-		128
-		49151
-		24
-		65535
-		128
-		65408
-		128
-		65410
-		202
-		65408
-		255
-		58017
-		255
-		57792
-		255
-		49087
-		255
-		40930
-		255
-		32767
-		255
-		33535
-		194
-		63479
-		247
-		32896
-		128
-		16639
-		112
-		33279
-		65
-		33279
-		0
-		65535
-		0
-		65345
-		50
-		65346
-		199
-		65280
-		255
-		49215
-		255
-		40833
-		226
-		32896
-		255
-		33472
-		255
-		17151
-		249
-		16639
-		160
-		61423
-		239
-		29298
-		114
-		255
-		0
-		17151
-		30
-		25314
-		0
-		65535
-		74
-		65280
-		0
-		65280
-		178
-		57344
-		224
-		32768
-		255
-		33089
-		255
-		16705
-		255
-		17026
-		255
-		255
-		255
-		255
-		128
-		57825
-		225
-		24415
-		95
-		194
-		0
-		8417
-		0
-		16289
-		0
-		41377
-		0
-		49664
-		0
-		49408
-		150
-		49408
-		194
-		25088
-		225
-		0
-		255
-		65
-		255
-		129
-		255
-		161
-		159
-		192
-		127
-		53970
-		210
-		20303
-		79
-		129
-		0
-		160
-		0
-		17026
-		0
-		33153
-		0
-		32768
-		0
-		40704
-		130
-		33280
-		128
-		16384
-		128
-		0
-		128
-		34
-		161
-		65
-		194
-		128
-		128
-		130
-		64
-		49344
-		192
-		16448
-		64
-		45520
-		161
-		41440
-		117
-		45266
-		106
-		49856
-		124
-		49538
-		104
-		49281
-		151
-		49791
-		188
-		45681
-		207
-		40863
-		224
-		41408
-		224
-		40930
-		222
-		37359
-		235
-		40930
-		200
-		45746
-		178
-		12079
-		47
-		24703
-		79
-		25249
-		82
-		25216
-		16
-		33410
-		63
-		25151
-		31
-		24892
-		62
-		24631
-		94
-		16656
-		96
-		24674
-		161
-		16738
-		129
-		12640
-		129
-		8544
-		98
-		8546
-		82
-		41634
-		162
-		0
-		0
-		0
-		7284
-		6280
-		5132
-		154
-		153
-		155
-		151
-		10
-		0
-		8
-		16615
-		24
-		16615
-		32
-		16615
-		40
-		16615
-		16
-		16615
-		48
-		16615
-		0
-		0
-		.sdw
-		0
-		0
-		0
-[frm]
-	3
-	1573060
-	3442
-	3997
-	8465
-	6313
-	0
-	1
-	1
-	1 0 0 0 0 0 0
-	0
-	16777215
-	83
-	0
-	13593
-	2966 18432
-	[frmlay]
-		13501
-		5023
-		1
-		0
-		0
-		1
-		3997
-		0
-		0
-		2
-		0
-		0
-		0
-		0
-		1
-		1561
-		10346
-		0
-	[tbl]
-		 6 5 281 85 1718 85 5 43 43
-		[h]
-			 0 358 86 2 0 1 0
-			 1 281 86 2 0 4 0
-			 2 281 86 2 0 5 0
-			 3 281 86 2 0 5 0
-			 4 281 86 2 0 5 0
-			 5 281 86 2 0 1 0
-		[e]
-		[w]
-			 0 1155 86 3 0
-			 1 850 85 7 0
-			 2 850 85 7 0
-			 3 850 85 7 0
-			 4 850 85 7 0
-		[e]
-		[data]
-			 0 0 896 1 5 11 12288 1 0 12632256 0 0
-@Tabellen <\\>ber@Verk<\d>ufe nach Regionen
-
->
-			 0 1 128 0 1 0 0 0 0 0 0 0
-			 0 2 128 0 2 0 0 0 0 0 0 0
-			 0 3 128 0 3 0 0 0 0 0 0 0
-			 0 4 128 0 4 0 0 0 0 0 0 0
-			 1 1 24 0 0 0 0 1 0 0 0 0
-<+B>Nord
-
->
-			 1 2 24 0 0 0 0 1 0 0 0 0
-<+B>S<\|>d
-
->
-			 1 3 24 0 0 0 0 1 0 0 0 0
-<+B>Ost
-
->
-			 1 4 24 0 0 0 0 1 0 0 0 0
-<+B>West
-
->
-			 2 0 0 0 0 0 0 1 0 0 0 0
-Produkt 1
-
->
-			 2 1 16 0 0 0 0 1 0 0 0 0
-<+A>24,3
-
->
-			 2 2 16 0 0 0 0 1 0 0 0 0
-<+A>15,4
-
->
-			 2 3 16 0 0 0 0 1 0 0 0 0
-<+A>13,3
-
->
-			 2 4 16 0 0 0 0 1 0 0 0 0
-<+A>47,0
-
->
-			 3 0 0 0 0 0 0 1 0 0 0 0
-Produkt 2
-
->
-			 3 1 16 0 0 0 0 1 0 0 0 0
-<+A>8,5
-
->
-			 3 2 16 0 0 0 0 1 0 0 0 0
-<+A>44,2
-
->
-			 3 3 16 0 0 0 0 1 0 0 0 0
-<+A>18,7
-
->
-			 3 4 16 0 0 0 0 1 0 0 0 0
-<+A>28,6
-
->
-			 4 0 0 0 0 0 0 1 0 0 0 0
-Produkt 3
-
->
-			 4 1 16 0 0 0 0 1 0 0 0 0
-<+A>16,2
-
->
-			 4 2 16 0 0 0 0 1 0 0 0 0
-<+A>27,8
-
->
-			 4 3 16 0 0 0 0 1 0 0 0 0
-<+A>19,6
-
->
-			 4 4 16 0 0 0 0 1 0 0 0 0
-<+A>36,4
-
->
-			 5 0 0 0 0 0 0 1 0 0 0 0
-Mittelwert
-
->
-		[e]
-	[tble]
-[frm]
-	3
-	721472
-	1417
-	10055
-	5514
-	13481
-	1
-	1
-	1
-	1 0 57 57 0 10 8421504
-	0
-	14803425
-	84
-	1
-	0
-	4097 1410
-	[frmlay]
-		13481
-		4097
-		1
-		0
-		113
-		2
-		10168
-		0
-		2
-		1
-		0
-		0
-		0
-		0
-		2
-		1478
-		3346
-		0
-		3586
-		5453
-		0
-	[txt]
-@NrLst rechtsb@<:I0,360,360,0>SmartIcons
-
-@NrLst rechtsb@<:I0,360,360,0>Drag & Drop
-
-@NrLst rechtsb@<:I0,360,360,0>Dokument und Layoutbogen Vorschau
-
-@NrLst rechtsb@<:I0,360,360,0>Fast Format
-
-@NrLst rechtsb@<:I0,360,360,0>Clean Screen
-
-@NrLst rechtsb@<:I0,360,360,0>Smart Merge
-
-@NrLst rechtsb@<:I0,360,360,0>Umschl<\d>ge drucken
-
-@NrLst rechtsb@<:I0,360,360,0>Smart Klick
-
-@NrLst rechtsb@<:I0,360,360,0>Lernprogramm
-
-@NrLst rechtsb@<:I0,360,360,0>OLE/DDE
-
-@NrLst rechtsb@<:I0,360,360,0>TOOLS
-
-@NrLst rechtsb@<:I0,360,360,0>Grammatik Pr<\|>fung
-
->
-[lay]
-	Standard
-	2564
-	[rght]
-		16839
-		11907
-		2
-		1417
-		850
-		2
-		1134
-		1417
-		0
-		1
-		0
-		1
-		0
-		2
-		1
-		1417
-		10490
-		0
-	[hrght]
-	[lyfrm]
-		1
-		11200
-		0
-		0
-		11907
-		1134
-		0
-		1
-		3
-		1 0 0 0 0 0 0
-		0
-		0
-		1
-	[frmlay]
-		1134
-		11907
-		1
-		1417
-		0
-		2
-		0
-		1417
-		0
-		1
-		0
-		1
-		1
-		1
-		1
-		1417
-		10490
-		0
-	[txt]
-
->
-	[frght]
-	[lyfrm]
-		1
-		13248
-		0
-		15989
-		11907
-		16839
-		0
-		1
-		3
-		1 0 0 0 0 0 0
-		0
-		0
-		2
-	[frmlay]
-		16839
-		11907
-		1
-		1417
-		0
-		2
-		16272
-		1417
-		0
-		1
-		0
-		1
-		1
-		1
-		1
-		1417
-		10490
-		0
-	[txt]
-<+B>
-
->
-[elay]
-[l1]
-	0
-[pg]
-	7
-	23 85 31 0 0 0 0 65535 65535 Standard	65535 0 0	0 0 0 0 0 0 0 65535 0 0 65535 0 0 0 0 0
-	46 88 42 32 0 0 0 65535 65535 Standard	65535 0 0	0 0 0 0 0 0 0 65535 0 0 65535 0 0 0 0 0
-	62 373 33 0 0 16 0 65535 65535 Standard	65535 0 0	0 0 0 0 0 0 0 65535 0 0 65535 0 0 0 0 0
-	79 273 57 0 0 0 0 65535 65535 Standard	65535 0 0	0 0 0 0 0 0 0 65535 0 0 65535 0 0 0 0 0
-	99 174 90 0 0 16 0 65535 65535 Standard	65535 0 0	0 0 0 0 0 0 0 65535 0 0 65535 0 0 0 0 0
-	119 87 81 0 0 0 0 65535 65535 Standard	65535 0 0	0 0 0 0 0 0 0 65535 0 0 65535 0 0 0 0 0
-	119 250 5 1025 0 0 0 65535 65535 Standard	65535 0 0	0 0 0 0 0 0 0 65535 0 0 65535 0 0 0 0 0
-[edoc]
-@<\\>berschrift@<:#421,9073><:f><:f>Ami Pro 3.0
-
-<:#1132,9073>Mercury Sports hat sich f<\|>r ein neues Textverarbeitungssystem entschieden 
-</W> Ami Pro. Eine Testgruppe hat mehrere Monate die Alternativen evaluiert und sich einstimmig f<\|>r Ami Pro als Textverarbeitungssystem entschieden. Die ausschlaggebenden Gr<\|>nde hierbei sind vor allem die enorme Leistungsf<\d>higkeit und die sehr leic
-hte Bedienbarkeit von Ami Pro.
-
-<:#566,9073><:f>Ami Pro bietet au<\_>erdem ein Lernprogramm das in die grundlegende Bedienung einf<\|>hrt und eine so gute Online Hilfe, da<\_> man an keiner Stelle alleingelassen wird.
-
-@Zwischen<\|>ber@<:#287,9073>Ami Pro ist :
-
-@Markierung 1@<:s><:#283,9073>Leicht zu erlernen und zu benutzen durch
-
-@Markierung 2@<:s><:#283,9073>Intuitive Bedienung
-
-@Markierung 2@<:#283,9073>Beispieldarstellung von Formateinstellungen
-
-@Markierung 2@<:#283,9073>Kontextsensitive Online-Hilfe
-
-@Markierung 1@<:s><:#283,9073>Enorm leistungsf<\d>hig und flexibel durch
-
-@Markierung 2@<:#283,9073>Konfigurierbare Benutzeroberfl<\d>che
-
-@Markierung 2@<:s><:#283,9073>Professionelle Textverarbeitungsfunktionen
-
-@Markierung 2@<:s><:#283,9073>Starke gestalterische M<\v>glichkeiten
-
-<:#1132,9073>Die meisten Textverarbeitungsprogramme zwingen einem das Denken in Worten und Kommandos auf, wobei die meisten Menschen mehr bildhaft, symbolorientiert und in Farben denken. Endlich gibt es mit Ami Pro eine Textverarbeitung die genauso zu bedienen ist wie m
-an denkt </V> Visuell.
-
-@<\\>berschrift@<:s><:#421,9073>Vorschau
-
-@Zwischen<\|>ber@<:#287,9073>Layoutbogen
-
-<:#1132,9073>Die erste Textverarbeitung die Ihnen Ihre Layout-Vorlagen anzeigt noch 
-<+#>bevor<-#> Sie sie laden. Wollen Sie die Unterschiede zwischen verschiedenen Brief Layoutbogen sehen ? Dann klicken Sie einfach auf Vorschau und Sie sehen genau wie die entsprechenden Vorlagen aussehen werden.
-
-@Zwischen<\|>ber@<:#287,9073>Ami Pro Dokumente
-
-<:#1415,9073>Vorschau f<\|>r jede Datei </W> Ami Pro oder jedes andere unterst<\|>tzte Dateiformat. Sie k<\v>nnen die Ansichtsgr<\v><\_>e jedes Dokumentes beliebig w<\d>hlen um genau den gew<\|>nschten Ausschnitt sehen zu k<\v>nnen 
-<+#>bevor<-#> Sie die Datei laden. Des weiteren k<\v>nnen Sie auch beliebig im Dokument bl<\d>ttern und sogar Dokumentteile kopieren und in die gerade bearbeiteten Dokumente einf<\|>gen, ja sogar Drucken k<\v>nnen Sie direkt aus der Vorschau heraus.
-
-@<\\>berschrift@<:#421,9073>Drag and Drop
-
-@Zwischen<\|>ber@<:s><:#287,9073>Haben Sie dies schon immer gesucht ?
-
-@Nr. Liste@<:#849,9073><-!>Kopieren & Bewegen - Halten Sie einfach die Maustaste gedr<\|>ckt und Sie k<\v>nnen markierten Text mit der Maus beliebig an andere Stellen verschieben. Wenn Sie die Strg Taste dabei gedr<\|>ckt halten wird der markierte Text kopiert.
-
-@Nr. Liste@<:#566,9073>SmartIcons<+&></n><-&> - Sie k<\v>nnen jederzeit per Drag and Drop Ihre gew<\|>nschten Icons direkt auf dem Bildschirm in der Reihenfolge neu anordnen und umgruppieren.
-
-@Nr. Liste@<:#566,9073>Tabellen - Markieren Sie einfach den gew<\|>nschten Zellbereich und bewegen Sie ihn mit der Maus an eine neue Position.
-
-@<\\>berschrift@<:s><:#421,9073>Schnell formatieren (Fast Format)
-
-@Zwischen<\|>ber@<:#287,9073><\\>bernehmen von Attributen
-
-@Hg Einr<\|>ckung@<:#849,9073>Attribute	Ein geniales Werkzeug </W> so einfach und doch so n<\|>tzlich. Sie m<\|>ssen aufwendige Formatierungen nur noch einmal durchf<\|>hren und k<\v>nnen sie dann wie mit einem "Pinsel" an beliebig viele andere Textstellen 
-<\|>bertragen.
-
-@Hg Einr<\|>ckung@<:#566,9073>Absatzlayouts	Auch Absatzlayouts lassen sich per Fast Format <\|>bertragen. Besonders in Tabellen ist diese Funktion schlicht genial (n<\d>mlich einfach 
-<+#>und<-#> schnell...)
-
-@<\\>berschrift@<:#421,9073>SmartIcons<+&></n><-&>
-
-@Zwischen<\|>ber@<:s><:#287,9073>Direkter Zugriff auf Funktionen
-
-<:#849,9073>SmartIcons<+&></n><-&> sind in viele Lotus Produkte integriert einschlie<\_>lich Ami Pro, 1-2-3 f<\|>r Windows und OS/2, Freelance Graphics f<\|>r Windows und OS/2, Lotus Notes, cc:Mail, Lotus Write, SmarText und den Organizer.
-
-<:#849,9073>SmartIcons<+&></n><-&> haben nur einen Zweck </W> Ihnen zu helfen Ihre Arbeit 
-<+#>schneller<-#> zu erledigen. Jedes SmartIcon<+&></n><-&> stellt eine bestimmte Funktion in Ami Pro dar. Sie k<\v>nnen dadurch mit einem Klick komplexe Funktionen aufrufen und Ami Pro erledigt das gew<\|>nschte f<\|>r Sie.
-
-@Zwischen<\|>ber@<:#289,9073>SmartIcon<+&></n><-&> S<\d>tze
-
-<:#849,9073>Sie k<\v>nnen beliebig viele SmartIcon<+&></n><-&> S<\d>tze nach Ihren W<\|>nschen zusammenstellen. Mit Ami Pro werden schon einige verschiedene S<\d>tze f<\|>r unterschiedliche Bed<\|>rfnisse mitgeliefert, die Sie aber selbstverst<\d>ndlich jederzeit nach 
-Ihren W<\|>nschen anpassen k<\v>nnen.
-
-@Zwischen<\|>ber@<:#287,9073>Eigene Icons erstellen
-
-<:#849,9073>Mit der leistungsf<\d>higen Makro Programmiersprache k<\v>nnen Sie Ami Pro nach Ihren W<\|>nschen erweitern oder 
-<\d>ndern. Anschlie<\_>end k<\v>nnen Sie mit dem integrierten Icon Editor Ihrem erstellten Makro ein eigenes Symbol zuordnen um es mit einem Klick aufrufen zu k<\v>nnen.
-
-@<\\>berschrift@<:#421,9073>Automatisiertes Mischen
-
-@Zwischen<\|>ber@<:#287,9073>Erstellen "Step by Step"
-
-<:#1132,9073>W<\d>hlen Sie die Funktion Mischen und Ami Pro f<\|>hrt Sie als Assistent durch den ganzen Mischprozess. Sie k<\v>nnen entweder aus bestehenden Datenbest<\d>nden (z.B. 1-2-3, dBase<+&></n><-&>, Paradox<+&></n><-&> oder anderen) mischen oder auch benutzergef
-<\|>hrt eine Datendatei mit Ami Pro erstellen.
-
-<:s><:#566,9073>Im zweiten Schritt werden die Variablen in das Mischdokument eingef<\|>gt und im dritten Schritt der eigentliche Mischvorgang ausgef<\|>hrt.
-
-@Zwischen<\|>ber@<:#287,9073>Karteikartendarstellung
-
-<:#566,9073>Mischdatens<\d>tze k<\v>nnen in Karteikartendarstellung komfortabel verwaltet werden (Suchen, Sortieren, Felder einf<\|>gen, 
-<\d>ndern oder l<\v>schen, Datens<\d>tze einf<\|>gen, <\d>ndern oder l<\v>schen).
-
-@<\\>berschrift@<:s><:#421,9073>Adressen auf Umschl<\d>ge drucken
-
-@Zwischen<\|>ber@<:#287,9073>Bedruckte Briefumschl<\d>ge einfach erstellbar
-
-<:s><:#849,9073>Mit der Funktion Briefumschlag drucken k<\v>nnen Sie die Anschrift aus Ihrem Brief direkt auf einen Briefumschlag drucken lassen. Hierbei k<\v>nnen Sie aus verschiedenen Umschlagformaten w<\d>hlen und auch mehrere Absenderadressen speichern.
-
-@<\\>berschrift@<:s><:#421,9073>Etiketten bedrucken
-
-<:#566,9073>Mit einem Layoutbogen und dem dazugeh<\v>rigen Makro f<\|>r Etiketten k<\v>nnen Sie sehr einfach auf alle g<\d>ngigen Etikettengr<\v><\_>en drucken.
-
-@<\\>berschrift@<:s><:#421,9073>Freier Bildschirm
-
-@Zwischen<\|>ber@<:s><:#287,9073>Damit Ihr Bildschirm nicht so voll wie Ihr Schreibtisch wird
-
-<:#1132,9073>Sie k<\v>nnen Ami Pro mitteilen, da<\_> Sie nichts, aber auch gar nichts, au<\_>er Ihrem Dokument sehen wollen. Zus<\d>tzlich sind auch einzelne Elemente, wie Status- oder Men<\|>leiste bzw. die SmartIcons<+&></n><-&> einblendbar. Selbstverst<\d>ndlich habe
-n Sie auch in diesem Modus volle Kontrolle <\|>ber alle Ami Pro Funktionen.
-
-@<\\>berschrift@<:#421,9073>Smart Click
-
-@Zwischen<\|>ber@<:s><:#287,9073>Benutzung der rechten Maustaste
-
-<:#1698,9073>Sie k<\v>nnen in Ami Pro durch Benutzung der rechten Maustaste objektbezogene Aktionen ausf<\|>hren. Klicken Sie mit der rechten Maustaste in den Randbereich und Sie k<\v>nnen sofort alle Seiteneinstellungen 
-<\d>ndern, klicken Sie im normalen Text k<\v>nnen Sie das gerade benutzte Absatzlayout 
-<\d>ndern oder klicken Sie bei gew<\d>hltem Rahmen um das Rahmenlayout zu 
-<\d>ndern. In allen F<\d>llen haben Sie direkten Zugriff auf das zugeh<\v>rige Men<\|> ohne eine spezielle Funktion daf<\|>r ausw<\d>hlen zu m<\|>ssen.
-
-@<\\>berschrift@<:#421,9073>Absatzlayouts
-
-@Zwischen<\|>ber@<:s><:#287,9073>Markierungen  ( <:B<*0>> <:B<*1>> <:B<*2>> <:B<*3>> <:B<*4>> <:B<*5>> 
-<:B<*6>> <:B<*7>> <:B<*8>> <:B<*9>> <:B<*(>> <:B<**>> <:B<*+>> <:B<*,>> 
-<:B<*->> <:B<*.>> <:B<*/>> )
-
-<:s><:#283,9073>Benutzen Sie Markierungen ?  W<\|>rden Sie gerne Markierungen benutzen ?
-
-<:#1132,9073>Ami Pro macht Ihnen die Sache sehr leicht. Markieren Sie einfach den gew<\|>nschten Text, w<\d>hlen Sie ein Absatzlayout mit einer Markierung und schon erhalten Sie die gew<\|>nschte Darstellung. Sie k<\v>nnen viele verschiedene Darstellungen w<\d>hlen oder
- auch Abs<\d>tze automatisch numerieren lassen.
-
-<:s><:#283,9073>Markierungen k<\v>nnen Sie jederzeit auch zus<\d>tzlich im Text einf<\|>gen.
-
-@Zwischen<\|>ber@<:s><:#287,9073>Automatische Numerierungen
-
-Mit Ami Pro erstellte numerierte Listen werden bei einer <\D>nderung der Liste sofort automatisch neu durchnumeriert. Die Numerierung kann vollkommen frei definiert werden. Die Zahlen k<\v>nnen links- oder rechtsb<\|>ndig, mehrstufig bis zu 
-<+#>neun<-#> Ebenen gestaffelt oder auch als r<\v>mische Zahlen, Buchstaben oder sogar symbolisch als Sterne oder Kreuze dargestellt werden.<:A1>
-
-@<\\>berschrift@<:s><:#421,9073>Statusleiste
-
-@Zwischen<\|>ber@<:s><:#287,9073>Benutzen der Statusleiste
-
-<:#1415,9073>Ami Pro's einzigartige Statusleiste zeigt nicht nur das verwendete Absatzlayout, die Schriftart, die Schriftgr<\v><\_>e, das aktuelle Verzeichnis, die aktuelle Cursorposition, die Seitennummer bzw. das Datum und die Uhrzeit an, sondern dient auch dazu 
-<+#>direkt<-#> zu formatieren. Durch einfachen Klick auf die Schriftart, Schriftgr<\v><\_>e oder das Absatzlayout kann man sofort die entsprechenden Einstellungen 
-<\d>ndern.
-
-@<\\>berschrift@<:s><:#421,9073>Tabellen
-
-@Zwischen<\|>ber@<:s><:#287,9073>Ideal f<\|>r Formulare
-
-<:#1132,9073>Formulare lassen sich mit Ami Pro Tabellen sehr gut realisieren. Statt viele einzelne Tabulatoren zu setzen benutzen Sie dazu Tabellen und ordnen Sie sehr einfach Textteile parallel an, benutzen Linien und Farben zur Hervorhebung und gestalten Ihre Dokument
-e noch <\|>bersichtlicher. All dies ist mit ein paar Mausklicks erledigt.
-
-@Zwischen<\|>ber@<:s><:#287,9073>Rechnen
-
-<:#566,9073>Ami Pro kann in Tabellen mit den 4 Grundrechenarten rechnen. Selbstrechnende Formulare (z.B. Rechnungen) sind damit problemlos realisierbar.
-
-<:s><:t0>
-
-@<\\>berschrift@<:s><:#421,4673>Gliederungsmodus
-
-@Zwischen<\|>ber@<:s><:#287,4673>Strukturierte Dokumente
-
-<:#2264,4673>Der flexible Gliederungsmodus ist ein unentbehrliches Hilfsmittel um strukturierte Dokumente zu erstellen oder zu bearbeiten. Bis zu neun Ebenen k<\v>nnen hierarchisch gegliedert werden und jede Ebene kann auf Wunsch aus- oder eingeblendet werden. Ein Umstr
-ukturieren des Dokumentes ist jederzeit ganz einfach m<\v>glich.
-
-@<\\>berschrift@<:#421,4673>TOOLS und OLE/DDE
-
-@Zwischen<\|>ber@<:s><:#287,4712>Neue Technologien
-
-Ami Pro kann Daten aus beliebigen anderen Applikationen die DDE (Dynamic Data Exchange) oder OLE (Object Linking and Embedding) unterst<\|>tzen anzeigen und automatisch aktualisieren. Dabei kann Ami Pro sowohl als Server als auch als Client eingesetzt werde
-n.
-
-@Zwischen<\|>ber@<:#287,9073>TOOLS
-
-<:#1698,9073>Ami Pro bietet eine Technologie um zus<\d>tzlich zu DDE und OLE Objekte in Dokumente einzubinden und diese Objekte 
-<+#>direkt<-#> im Dokument zu <+#>editieren<-#> (<:f240,2TimesNewRomanPS,255,0,0>T<:f220,,>echnology for 
-<:f240,2TimesNewRomanPS,255,0,0>O<:f220,,>bject <:f240,2TimesNewRomanPS,255,0,0>O<:f220,,>riented 
-<:f240,2TimesNewRomanPS,255,0,0>L<:f220,,>inking and <:f240,2TimesNewRomanPS,255,0,0>S<:f220,,>haring<:f>). Diese Technologie bietet Ihnen wesentlich mehr als OLE, beispielsweise wenn Sie Ihr Dokument sehen m<\|>ssen um ein Objekt zu editieren (Stellen Sie 
-sich vor Sie wollen einen Pfeil auf ein bestimmtes Wort legen). An diesem Beispiel sehen Sie wie einfach Ami Pro das Editieren direkt im Text macht.
-
-@<\\>berschrift@<:s><:#421,9073>Pr<\d>sentationsgrafiken
-
-@Zwischen<\|>ber@<:s><:#287,9073>Viele verschiedene Grafiktypen
-
-<:#1132,9073>Sie k<\v>nnen direkt in Ami Pro mit Ihren Zahlen Pr<\d>sentationsgrafiken erstellen lassen. Dabei k<\v>nnen Sie aus einer gro<\_>en Auswahl von verschiedenen Zahlendarstellungen w<\d>hlen. Wie alles in Ami Pro geschieht auch diese Auswahl selbstverst<\d>ndl
-ich grafisch interaktiv mit einer Vorschau auf ihre endg<\|>ltige Grafik. Wie geht das ganze ?
-
-<:s><:#566,9073>Kopieren Sie Ihre gew<\|>nschten Daten in die Zwischenablage, bestimmen Sie den Platz f<\|>r die Grafik und w<\d>hlen Sie 
-<+">Pr<\d>sentationsgrafik<-">. Das ist alles !
-
-@Zwischen<\|>ber@<:s><:#287,9073>Pr<\d>sentationsgrafiken editieren
-
-<:#1981,9073>Nachdem Ami Pro eine Pr<\d>sentationsgrafik erstellt hat, k<\v>nnen Sie diese Grafik nach Belieben durch eigene 
-<\D>nderungen oder Erg<\d>nzungen weiter bearbeiten. Benutzen Sie dazu das integrierte vektororientierte Zeichenprogramm. Sie k<\v>nnen dann Farben und F<\|>llmuster 
-<\d>ndern, Text hinzuf<\|>gen, Text rotieren, Grafikelemente rotieren, Bezier Kurven editieren, Grafikelemente wie Linien, Kreise, Ellipsen, Rechtecke, Pfeile u.s.w. hinzuf<\|>gen, Freihandzeichnen und sogar mitgelieferte oder eigene Zeichnungen integrieren
-, weiterbearbeiten, skalieren und vieles mehr.
-
-@<\\>berschrift@<:s><:#421,9073>Zeichnen
-
-<:#1415,9073>Benutzen Sie das Ami Pro Zeichenprogramm um eigene Zeichnungen zu erstellen. Dieses vektororientierte Zeichenprogramm wird mit 
-<\|>ber 100 Clip-Art Zeichnungen bei Ami Pro mitgeliefert. Sie k<\v>nnen damit auch andere Vektorgrafiken (z.B. aus Freelance) in Ami Pro weiterbearbeiten. Selbstverst<\d>ndlich k<\v>nnen Sie Ihre eigenen Zeichnungen abspeichern um sich eine eigene Symbolbi
-bliothek anzulegen.
-
-@<\\>berschrift@<:s><:#421,9073>Grafiken
-
-@Zwischen<\|>ber@<:s><:#287,9073>Spezielle Effekte
-
-<:#1981,9073>Neben dem Grafikimport aus vielen Fremdformaten stehen Ihnen zus<\d>tzlich viele Bearbeitungsm<\v>glichkeiten f<\|>r Ihre Grafiken zur Verf<\|>gung. Sie k<\v>nnen Grafiken auf einfachste Weise vergr<\v><\_>ern, verkleinern, auf einen bestimmten Prozentsatz 
-skalieren, rotieren, stauchen, dehnen, oder sogar bearbeiten. Vektorgrafiken k<\v>nnen mit dem Ami Pro Zeichenprogramm beliebig editiert werden, TIFF Graustufengrafiken k<\v>nnen in Helligkeit, Kontrast, Sch<\d>rfe und Gl<\d>ttungsgrad angepa<\_>t werden. T
-esten und sehen Sie wie einfach Ihnen Ami Pro die Grafikhandhabung macht.
-
-@<\\>berschrift@<:#421,9073>Formeln
-
-@Zwischen<\|>ber@<:#287,9073>"Point and Click" <+#>oder<-#>  T<:f200,,>E<:f>X - Code Interface
-
-<:#1132,9073>Mit Ami Pro haben Sie die M<\v>glichkeit mathematische und wissenschaftliche Formeln 
-<\|>ber die sehr einfach zu bedienende grafische Eingabe <+#>ODER<-#> per Eingabe von  T<:f200,,>E<:f>X - Kommandos zu erstellen. Sowohl der Wissenschaftler als auch der Gelegenheitsbenutzer k<\v>nnen auf diese Weise Ihre bevorzugte Bedienung w<\d>hlen.
-
-@<\\>berschrift@<:#421,9073>Grammatikpr<\|>fung
-
-@Zwischen<\|>ber@<:s><:#287,9073>Texte <\|>berpr<\|>fen
-
-<:s><:#283,9073>Schreiben Sie auch englische Texte ?
-
-<:s><:#283,9073>Fehlen Ihnen <\v>fter die passenden englischen Worte ?
-
-<:s><:#283,9073>Sind Sie nicht sicher ob Ihre englische Grammatik und Rechtschreibung korrekt ist ?
-
-<:#1427,9073>Ami Pro hat jetzt die L<\v>sung f<\|>r Sie </W> Denn in der <+!>deutschen 
-<-!>Version von Ami Pro ist neben dem <+!>deutschen <-!>W<\v>rterbuch und Thesaurus auch das 
-<+!>englische <-!>W<\v>rterbuch <+#>und<-#> sogar die <+!>englische 
-<-!>Grammatikpr<\|>fung enthalten. Mit diesen Hilfsmitteln bringen Sie Ihre Texte in Form ! Die englische Grammatikpr<\|>fung f<\|>hrt Sie durch Ihren Text, zeigt Ihnen grammatikalische Fehler und macht Ihnen Vorschl<\d>ge f<\|>r den gew<\|>nschten Schreibs
-til.
-
-@<\\>berschrift@<:s><:#421,9073>Revisionsmarkierung
-
-@Zwischen<\|>ber@<:s><:#287,9073>Zeigt alle <\D>nderungen
-
-<:s><:#1981,9073>Was sind Revisionsmarkierungen ? Sie k<\v>nnen mit dieser Funktion alle 
-<\D>nderungen die an einem Dokument durchgef<\|>hrt werden sichtbar machen. Zum Beispiel geben Sie mir ein Dokument und wollen wissen ob noch etwas ge<\d>ndert werden sollte. Ich w<\|>rde dann lediglich die Revisionsmarkierung einschalten und meine gew<\|>n
-schten <\D>nderungen in dem Dokument durchf<\|>hren. Alles was ich hinzuf<\|>ge wird in einer anderen Farbe und einem anderen Attribut als der 
-<\|>brige Text gekennzeichnet. Dasselbe gilt f<\|>r gel<\v>schte Teile (Die Farben und Attribute daf<\|>r sind selbstverst<\d>ndlich frei einstellbar).
-
-@Zwischen<\|>ber@<:s><:#287,9073><\D>nderungen beurteilen
-
-<:#1132,9073>Dann gebe Ich Ihnen Ihr Dokument mit den <\D>nderungen zur<\|>ck und Sie k<\v>nnen sich meine Vorschl<\d>ge von Ami Pro zeigen lassen. Ami Pro zeigt Ihnen die erste 
-<\D>nderung und fragt Sie ob dieser Vorschlag akzeptiert oder ignoriert werden soll. Analog wird mit den anderen 
-<\D>nderungen verfahren. Das ist alles was Sie zu tun haben.
-
-@<\\>berschrift@<:s><:#421,9073>Notizen
-
-@Zwischen<\|>ber@<:s><:#287,9073>Farbig sortierte Notizen
-
-<:#1132,9073>Mit Ami Pro k<\v>nnen Sie sehr schnell sehen, ob beispielsweise Ihr Chef irgendwelche Anmerkungen zu Ihrem Dokument gemacht hat.  
-<:N714673333,MA,65535,1,1
-Bitte beachten Sie, da<\_> jeder Ami Pro Benutzer seine eigene Farbe f<\|>r Notizen definieren kann.
-
-
-Auf diese Weise (und an den Initialen) kann man mit einem Blick erkennen von wem die Notiz stammt.
-
->
- Dies wird durch farbige Notizen erm<\v>glicht. Dazu geh<\v>rt selbstverst<\d>ndlich, da<\_> jeder Benutzer seine eigene individuelle Farbe f<\|>r Notizen verwenden kann.
-
-@Zwischen<\|>ber@<:#287,9073>Notizen und Ersteller drucken
-
-<:#1415,9073>Notizen werden auf Wunsch in Farbe oder auch mit den Initialen des Erstellers angezeigt. Au<\_>erdem kann Ami Pro die Notizen oder Anmerkungen am Ende eines Dokumentes mit den Seitenreferenzen zu den entsprechenden Hinweisen im Dokument drucken. Eine sehr e
-infache M<\v>glichkeit um die Stellungnahmen von verschiedenen Personen 
-<\|>bersichtlich zusammenzufassen.
-
-@<\\>berschrift@<:#421,9073>Lernprogramm (VGA)
-
-<:#849,9073>Ami Pro 3.0 bietet neuen Benutzern mit dem Lernprogramm einen einfachen Einstieg in die Grundfunktionen des Programms, z.B. Tabellen, Layoutbogen, Absatzlayouts, Rahmen und zeigt au<\_>erdem was neu in Ami Pro 3.0 ist.
-
-@<\\>berschrift@<:#421,9073>Platzsparende Installation
-
-@Zwischen<\|>ber@<:s><:#287,9073>Laptop Installation
-
-<:#1132,9073>Eine spezielle Laptop Installationsroutine erm<\v>glicht es Ihnen Ami Pro platzsparend (nur mit den Grundfunktionen) zu installieren. Der Platzbedarf auf der Festplatte betr<\d>gt dabei ca. 4,5</`>MB. Bei Bedarf k<\v>nnen Sie sp<\d>ter jederzeit ben<\v>tigt
-e erweiterte Funktionen dazuinstallieren.
-
-@<\\>berschrift@<:#421,9073>Programmierbarkeit
-
-@Zwischen<\|>ber@<:#287,9073>Ami Pro Makro Programmiersprache
-
-<:#1698,9073>Ami Pro kann nicht nur Makros aufnehmen und wiedergeben sondern bietet dar<\|>ber hinaus eine vollst<\d>ndige Programmiersprache mit der Sie Ami Pro vollkommen nach Ihren W<\|>nschen erweitern und umgestalten k<\v>nnen. Beispielsweise ist es m<\v>glich neue
-, eigene Men<\|>punkte hinzuf<\|>gen oder auch bestehende Ami Pro Men<\|>s zu 
-<\d>ndern oder zu l<\v>schen. Des weiteren k<\v>nnen Sie mit dem mitgelieferten Dialogboxeditor Ihre eigenen Dialogboxen grafisch erstellen und in Ihren Makros verwenden. Die Programmiersprache ist BASIC sehr 
-<\d>hnlich.
-
-@Zwischen<\|>ber@<:#287,9073>Makro Developer's Toolkit
-
-<:#566,9073>Zus<\d>tzlich zu Ami Pro ist ein Makro Developer</t>s Toolkit erh<\d>ltlich was aus einem Handbuch mit der gesamten Beschreibung (engl.) der Ami Pro Makroprogrammiersprache besteht.
-
-@<\\>berschrift@<:#421,9073>Mail M<\v>glichkeit
-
-@Zwischen<\|>ber@<:#287,9073>cc:Mail & Lotus Notes
-
-<:#1415,9073>Aus Ami Pro k<\v>nnen Sie direkt Ihre Dokumente mit einem Klick als Mail versenden. Alles was Sie erg<\d>nzen m<\|>ssen ist der Empf<\d>nger des Mails und schon sendet Ami Pro Ihr Dokument per cc:Mail oder Lotus Notes an jeden adressierbaren Empf<\d>nger (L
-AN oder WAN).
-
->
-SM
Od48�>�A�E�H�N�T�\�^�g�h�n�o�v�y�z�|�~�����������������������������������������������������������������������������������~�|�z�z�z�z�|�~�~��������������������������������������������������������������������������������������������������~�~�|�z�y�y�v�o�n�h�a�^�\�U�TONJEEEE"D$A$A'A)A,A,D,E.E.H,N,O)O)T$T$Z$\"\\\\\^^
-^^aaghnno
-oonnnn"h$h)g,a2^8\;U>OBNIEIAI>I8I6I4B4A2>0<0;0808/5/2/./��%Xaw)R3GOEs>h6g0Y.K0@-F"PMK@:3 ).%6�������������������������� �(� �(�(�(� � �����L$P<XSdhpt��������~)s9eKQX@b+kqy���
c�
<"C=PR[]khm�u�u�n�g\$O5;D(MV\�d���
O�
����������������������wj
ZE3�
��
��
��
>�
y(�(�*�+�3�<�F�R�\�a�k�o�y����b�y(?�
����!�%'*3+@,N.c�c�M~9{&zx�s�q�n�h�c�Y�b�n�{����y�o�_�P�=�)����
��
z�
k�
Z�
��
 = F L$Q)U4V=UJUTQYM_Gg?o5t+x�x��
SS�����������������������������������������������������������������������������������������������������������������������������������������������������������������|�����������������.	� 	�	�	�����f�����*�����g�
-7�
-&Q
-!=	&�C�a8�|U�R�"
-�0
-s9
-fj
-@I
-�
�	�
�	�
�	�
E	�
#		��
��
��
�h?�#���������k�;��k�I���Lr[MI'�
C~�'�-G��4c����-	
��[��}8	b3	�O	��	��	��	W�		�
C	�
		K	�
y	�
�	�	S�	�{	�S	�<	�H	65	Z����tDW�P�1�*Z�0n4�
F
-�
k
-=+
-l^
-9;
-�

-�
(
-'�	�
�3?
-��	��	��	�(
-���1�
-'ZK9������i�������t�hq-�-��va
-ZF
-UW
-H�
-]6���b0V_�����=K�
-/[
-!	�	���-	�
-4	X	9	(	�	����N��<���Y���������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������)%)%)%J))%)%���������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������SM
����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������
-[Embedded]
-79 .sdw 40567 10342 50909 36098 
-52 .sdw 87007 5017 92024 79722 
-74 .sdw 171746 22 171768 234786 
-00406556
diff --git a/testautomation/writer/optional/input/import/dostext.txt b/testautomation/writer/optional/input/import/dostext.txt
deleted file mode 100644
index 7e6c1044cd3a..000000000000
--- a/testautomation/writer/optional/input/import/dostext.txt
+++ /dev/null
@@ -1,79 +0,0 @@
-Dies ist ein ganz einfacher Dos-Text.

-

-Es werden auch ein paar Sonderzeichen benutzt:

-

-\=Chr(92)

-�=Chr(132)

--=Chr(45)

-�=Chr(245)

-

-Lieber Test schau doch mal was Du hiermit anfangen kannst.

-

-

-

-

-

-

-

-

-

-

-

-

-

-

-

-

-

-

-

-

-

-

-

-

-

-

-

-

-

-

-

-

-

-

-

-

-

-

-

-

-

-

-

-

-

-

-

-

-

-

-

-

-

-

-

-

-

-

-

-

-

-Jetzt hoffe ich, da� das Dokument auf der 2 Seite ist, wenn nicht dann ist es schlecht. Aber hier wird auch mal geschaut, ob die Grenze von 256 Zeichen pro Zeile keine Probleme machen. Dies w�re doch ein ganz sch�n doofer Fehler, hoffentlich wurde das schon mal getestet. Wie lang geht die Zeile im Dos-Editor denn noch, ich bin doch schon bei 348 Spalten. Oh es geht doch sehr viel weiter, dann h�re ich hier mal auf.

-

-

-

-

-

-Tschau

-  TZ

diff --git a/testautomation/writer/optional/input/import/dummy.sxw b/testautomation/writer/optional/input/import/dummy.sxw
deleted file mode 100644
index c49f4ad98c11..000000000000
--- a/testautomation/writer/optional/input/import/dummy.sxw
+++ /dev/null
diff --git a/testautomation/writer/optional/input/import/hangul.hwp b/testautomation/writer/optional/input/import/hangul.hwp
deleted file mode 100755
index fceafdc55f15..000000000000
--- a/testautomation/writer/optional/input/import/hangul.hwp
+++ /dev/null
diff --git a/testautomation/writer/optional/input/import/html.html b/testautomation/writer/optional/input/import/html.html
deleted file mode 100755
index 77569bd90be6..000000000000
--- a/testautomation/writer/optional/input/import/html.html
+++ /dev/null
@@ -1,93 +0,0 @@
-<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
-<HTML>
-<HEAD>
-	<META HTTP-EQUIV="CONTENT-TYPE" CONTENT="text/html; charset=iso-8859-15">
-	<TITLE></TITLE>
-	<META NAME="GENERATOR" CONTENT="StarOffice 7  (Linux)">
-	<META NAME="CREATED" CONTENT="20030724;14042643">
-	<META NAME="CHANGEDBY" CONTENT="Helge Delfs">
-	<META NAME="CHANGED" CONTENT="20040108;8361100">
-	<STYLE>
-	<!--
-		TH P { font-style: italic }
-	-->
-	</STYLE>
-</HEAD>
-<BODY LANG="en-US" DIR="LTR">
-<P STYLE="margin-bottom: 0cm"><A NAME="DDE_LINK3"></A>Text
-<A HREF="http://www.sun.com/">www.sun.com</A> <B>Bold</B> <I>Italic</I>
-<FONT COLOR="#0000ff">Blue</FONT> Text <B>Bold</B> <I>Italic</I> <FONT COLOR="#0000ff">Blue</FONT></P>
-<P STYLE="margin-bottom: 0cm"><BR>
-</P>
-<P STYLE="margin-bottom: 0cm"><A NAME="DDE_LINK1"></A>Field: <SDFIELD TYPE=DATETIME SDNUM="1031;1033;MM/DD/YY">01/08/04</SDFIELD></P>
-<P STYLE="margin-bottom: 0cm"><BR>
-</P>
-<P STYLE="margin-bottom: 0cm">Tables</P>
-<TABLE WIDTH=100% BORDER=1 BORDERCOLOR="#000000" CELLPADDING=4 CELLSPACING=0>
-	<COL WIDTH=51*>
-	<COL WIDTH=51*>
-	<COL WIDTH=51*>
-	<COL WIDTH=51*>
-	<COL WIDTH=51*>
-	<THEAD>
-		<TR VALIGN=TOP>
-			<TH WIDTH=20%>
-				<P>Table with</P>
-			</TH>
-			<TH WIDTH=20%>
-				<P>colors</P>
-			</TH>
-			<TH WIDTH=20%>
-				<P>numbers</P>
-			</TH>
-			<TH WIDTH=20%>
-				<P>numbers</P>
-			</TH>
-			<TH WIDTH=20%>
-				<P>calculation</P>
-			</TH>
-		</TR>
-	</THEAD>
-	<TBODY>
-		<TR>
-			<TD WIDTH=20% VALIGN=TOP>
-				<P>&nbsp;</P>
-			</TD>
-			<TD WIDTH=20% VALIGN=TOP BGCOLOR="#00ff00">
-				<P>&nbsp;</P>
-			</TD>
-			<TD WIDTH=20% VALIGN=BOTTOM SDVAL="0,5" SDNUM="1031;">
-				<P ALIGN=RIGHT>0,5</P>
-			</TD>
-			<TD WIDTH=20% VALIGN=BOTTOM SDVAL="84,56" SDNUM="1031;">
-				<P ALIGN=RIGHT>84,56</P>
-			</TD>
-			<TD WIDTH=20% VALIGN=BOTTOM SDVAL="85,06" SDNUM="1031;">
-				<P ALIGN=RIGHT>85,06</P>
-			</TD>
-		</TR>
-	</TBODY>
-</TABLE>
-<P STYLE="margin-bottom: 0cm"><BR>
-</P>
-<P STYLE="margin-bottom: 0cm">Graphic linked</P>
-<P STYLE="margin-bottom: 0cm"><IMG SRC="flower.gif" NAME="Graphic1" ALIGN=BOTTOM WIDTH=100 HEIGHT=75 BORDER=0></P>
-<P STYLE="margin-bottom: 0cm"><BR>
-</P>
-<P STYLE="margin-bottom: 0cm">Button</P>
-<FORM NAME="Standard" ACTION="../../../../../../../qatesttool/writer/level1/input/clipboard">
-	<P STYLE="margin-bottom: 0cm"><INPUT TYPE=BUTTON NAME="PushButton1" VALUE="Button1" STYLE="width: 1.5cm; height: 0.64cm"></P>
-</FORM>
-<P STYLE="margin-bottom: 0cm"><BR>
-</P>
-<P STYLE="margin-bottom: 0cm">Floating Frame</P>
-<P STYLE="margin-bottom: 0cm"><BR>
-</P>
-<P STYLE="margin-bottom: 0cm"><IFRAME SRC="dummy.sxw" FRAMEBORDER=YES ALIGN=LEFT WIDTH=378 HEIGHT=189></IFRAME><BR CLEAR=LEFT><BR>
-</P>
-<P STYLE="margin-bottom: 0cm"><BR>
-</P>
-<P STYLE="margin-bottom: 0cm"><BR>
-</P>
-</BODY>
-</HTML>
\ No newline at end of file
diff --git a/testautomation/writer/optional/input/import/html/html.html b/testautomation/writer/optional/input/import/html/html.html
deleted file mode 100755
index 77569bd90be6..000000000000
--- a/testautomation/writer/optional/input/import/html/html.html
+++ /dev/null
@@ -1,93 +0,0 @@
-<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
-<HTML>
-<HEAD>
-	<META HTTP-EQUIV="CONTENT-TYPE" CONTENT="text/html; charset=iso-8859-15">
-	<TITLE></TITLE>
-	<META NAME="GENERATOR" CONTENT="StarOffice 7  (Linux)">
-	<META NAME="CREATED" CONTENT="20030724;14042643">
-	<META NAME="CHANGEDBY" CONTENT="Helge Delfs">
-	<META NAME="CHANGED" CONTENT="20040108;8361100">
-	<STYLE>
-	<!--
-		TH P { font-style: italic }
-	-->
-	</STYLE>
-</HEAD>
-<BODY LANG="en-US" DIR="LTR">
-<P STYLE="margin-bottom: 0cm"><A NAME="DDE_LINK3"></A>Text
-<A HREF="http://www.sun.com/">www.sun.com</A> <B>Bold</B> <I>Italic</I>
-<FONT COLOR="#0000ff">Blue</FONT> Text <B>Bold</B> <I>Italic</I> <FONT COLOR="#0000ff">Blue</FONT></P>
-<P STYLE="margin-bottom: 0cm"><BR>
-</P>
-<P STYLE="margin-bottom: 0cm"><A NAME="DDE_LINK1"></A>Field: <SDFIELD TYPE=DATETIME SDNUM="1031;1033;MM/DD/YY">01/08/04</SDFIELD></P>
-<P STYLE="margin-bottom: 0cm"><BR>
-</P>
-<P STYLE="margin-bottom: 0cm">Tables</P>
-<TABLE WIDTH=100% BORDER=1 BORDERCOLOR="#000000" CELLPADDING=4 CELLSPACING=0>
-	<COL WIDTH=51*>
-	<COL WIDTH=51*>
-	<COL WIDTH=51*>
-	<COL WIDTH=51*>
-	<COL WIDTH=51*>
-	<THEAD>
-		<TR VALIGN=TOP>
-			<TH WIDTH=20%>
-				<P>Table with</P>
-			</TH>
-			<TH WIDTH=20%>
-				<P>colors</P>
-			</TH>
-			<TH WIDTH=20%>
-				<P>numbers</P>
-			</TH>
-			<TH WIDTH=20%>
-				<P>numbers</P>
-			</TH>
-			<TH WIDTH=20%>
-				<P>calculation</P>
-			</TH>
-		</TR>
-	</THEAD>
-	<TBODY>
-		<TR>
-			<TD WIDTH=20% VALIGN=TOP>
-				<P>&nbsp;</P>
-			</TD>
-			<TD WIDTH=20% VALIGN=TOP BGCOLOR="#00ff00">
-				<P>&nbsp;</P>
-			</TD>
-			<TD WIDTH=20% VALIGN=BOTTOM SDVAL="0,5" SDNUM="1031;">
-				<P ALIGN=RIGHT>0,5</P>
-			</TD>
-			<TD WIDTH=20% VALIGN=BOTTOM SDVAL="84,56" SDNUM="1031;">
-				<P ALIGN=RIGHT>84,56</P>
-			</TD>
-			<TD WIDTH=20% VALIGN=BOTTOM SDVAL="85,06" SDNUM="1031;">
-				<P ALIGN=RIGHT>85,06</P>
-			</TD>
-		</TR>
-	</TBODY>
-</TABLE>
-<P STYLE="margin-bottom: 0cm"><BR>
-</P>
-<P STYLE="margin-bottom: 0cm">Graphic linked</P>
-<P STYLE="margin-bottom: 0cm"><IMG SRC="flower.gif" NAME="Graphic1" ALIGN=BOTTOM WIDTH=100 HEIGHT=75 BORDER=0></P>
-<P STYLE="margin-bottom: 0cm"><BR>
-</P>
-<P STYLE="margin-bottom: 0cm">Button</P>
-<FORM NAME="Standard" ACTION="../../../../../../../qatesttool/writer/level1/input/clipboard">
-	<P STYLE="margin-bottom: 0cm"><INPUT TYPE=BUTTON NAME="PushButton1" VALUE="Button1" STYLE="width: 1.5cm; height: 0.64cm"></P>
-</FORM>
-<P STYLE="margin-bottom: 0cm"><BR>
-</P>
-<P STYLE="margin-bottom: 0cm">Floating Frame</P>
-<P STYLE="margin-bottom: 0cm"><BR>
-</P>
-<P STYLE="margin-bottom: 0cm"><IFRAME SRC="dummy.sxw" FRAMEBORDER=YES ALIGN=LEFT WIDTH=378 HEIGHT=189></IFRAME><BR CLEAR=LEFT><BR>
-</P>
-<P STYLE="margin-bottom: 0cm"><BR>
-</P>
-<P STYLE="margin-bottom: 0cm"><BR>
-</P>
-</BODY>
-</HTML>
\ No newline at end of file
diff --git a/testautomation/writer/optional/input/import/mactext.txt b/testautomation/writer/optional/input/import/mactext.txt
deleted file mode 100755
index 4706aaa53f1c..000000000000
--- a/testautomation/writer/optional/input/import/mactext.txt
+++ /dev/null
@@ -1 +0,0 @@
-Dies ist ein ganz einfacher MAC-Text.

Es werden auch ein paar Sonderzeichen benutzt:

\=Chr(92)
�=Chr(132)
-=Chr(45)
�=Chr(245)

Lieber Test schau doch mal was Du hiermit anfangen kannst.





























































Alles was in dem folgenden Satz steht trifft f�r den MAC-Editor ( SimpleText ) nicht zu, aber es ist langer nicht umgebrochener Text.    Jetzt hoffe ich, da� das Dokument auf der 2 Seite ist, wenn nicht dann ist es schlecht. Aber hier wird auch mal geschaut, ob die Grenze von 256 Zeichen pro Zeile keine Probleme machen. Dies w�re doch ein ganz sch�n doofer Fehler, hoffentlich wurde das schon mal getestet. Wie lang geht die Zeile im Dos-Editor denn noch, ich bin doch schon bei 348 Spalten. Oh es geht doch sehr viel weiter, dann h�re ich hier mal auf.





Tschau
  TZ
diff --git a/testautomation/writer/optional/input/import/pocketword.psw b/testautomation/writer/optional/input/import/pocketword.psw
deleted file mode 100755
index d36c95fd375f..000000000000
--- a/testautomation/writer/optional/input/import/pocketword.psw
+++ /dev/null
diff --git a/testautomation/writer/optional/input/import/rtf.rtf b/testautomation/writer/optional/input/import/rtf.rtf
deleted file mode 100755
index b7f674cfc1d8..000000000000
--- a/testautomation/writer/optional/input/import/rtf.rtf
+++ /dev/null
@@ -1,408 +0,0 @@
-{\rtf1\ansi
-\deff0{\fonttbl{\f0\froman Times New Roman;}{\f1\froman Bookman;}{\f2\fnil Wingdings;}{\f3\fnil StarBats;}{\f4\fscript Freefrm721 BT;}}
-{\colortbl\red0\green0\blue0;\red0\green0\blue0;\red255\green255\blue255;\red128\green128\blue128;\red192\green192\blue192;}
-{\stylesheet{\s1\caps0\scaps0\cf1\fs40\lang1031\b\sl\ql{\*\tlswg8236}\tqc\tx5613{\*\hyphen2\hyphlead2\hyphtrail2\hyphmax65535}{\*\pgdscno0}\snext1 Kopftext/Formblatt;}
-{\s2\caps0\scaps0\cf1\f1\fs16\lang1031\sl230\ql{\*\tlswg8236}\tx794{\*\tlswg8236}\tx1928{\*\tlswg8236}\tqc\tx5981{\*\tlswg8236}\tx9184{\*\tlswg8236}\tx9694{\*\hyphen2\hyphlead2\hyphtrail2\hyphmax65535}{\*\pgbrk0}{\*\pgdscno0}\snext2 Fu�text/Formblatt;}
-{\s3{\*\tlswg8236}\tx567{\*\tlswg8236}\tx850{\*\tlswg8236}\tx1134{\*\tlswg8236}\tx1701{\*\tlswg8236}\tx2835{\*\tlswg8236}\tx3969{\*\tlswg8236}\tx6236{\*\tlswg8236}\tx7370{\*\tlswg8236}\tx8504{\*\tlswg8236}\tx9071\snext3 Haupttext;}
-}
-{\*\pgdsctbl{\pgdsc0\pgdscuse195\li1247\ri227\sb567\sa454\headery0{\*\headeryb170\headerxl0\headerxr0}{\header \pard \plain \s1\caps0\scaps0\cf1\fs40\lang1031\b\sl\ql{\*\tlswg8236}\tqc\tx5613{\*\hyphen2\hyphlead2\hyphtrail2\hyphmax65535}{\*\pgdscno0}{\fs16}{\ulnone}{\b0}\tab SPS 2
-\par 
-\par }
-\footery0{\*\footeryt113\footerxl0\footerxr0}{\footer \pard \plain \s2\caps0\scaps0\cf1\f1\fs16\lang1031\sl230\ql{\*\tlswg8236}\tx794{\*\tlswg8236}\tx1928{\*\tlswg8236}\tqc\tx5981{\*\tlswg8236}\tx9184{\*\tlswg8236}\tx9694{\*\hyphen2\hyphlead2\hyphtrail2\hyphmax65535}{\*\pgbrk0}{\*\pgdscno0} 
-\par \tab \tab \tab \tab \tab {\field {\*\fldinst \\page \\* ARABIC}{\fldrslt 7}}{\b\fs20 }
-\par 
-\par \tab {\field {\*\fldinst \\date \\@"dd.MM.yy"}{\fldrslt 23.01.94}}\tab {\field {\*\fldinst \\author }{\fldrslt Quedenfeldt}} \'a9\tab \tab {\field {\*\fldinst \\filename }{\fldrslt c:\\win-data\\writer\\sps2}}{\fs10 }
-\par {\fs10 \tab \tab \tab {\b}{\f0}{\fs28}\tab {\field {\*\fldinst \\filename }{\fldrslt bedien.rtf}}}
-\par }
-{\cbpat2}{\*\brdbox0}{\*\shadow0\shdwdist57\shdwstyle1\shdwcol3\shdwfcol2}\pgdscnxt0 Standard;}}
-\paperh16837\paperw11905\margl1247\margr227\margt567\margb454\deftab1136
-{\*\prtdata296 280101004850204465736B4A6574203530302C4C5054313A00000FE3E00001FFFC3E0000000007E0000000000000000000000000000000000000000000000000000000004850204465736B4A6574203530
-300000000000000000000000000000000000004C5054313A000000000000000000000001F800000000007FFFC3E0FF07E1FE01485044534B4A45540003E03E0FE3F03E00F01F000000000000000FE3E0
-0001FF4850204465736B4A6574203530300000D622000044CF0000F72240CF9929AD290A030B03440040000346000001000900FE00FE00BF11010007002C01010001002C010100FA01EA000100121E01
-000100640002000100000000000000F7222F016722F722020000000200FFFF0100FFFF0000FFFFFFFF000000000000FFFFFFFF0000FFFF}
-\headery0{\*\headeryb170\headerxl0\headerxr0}{\header \pard \plain \s1\caps0\scaps0\cf1\fs40\lang1031\b\sl\ql{\*\tlswg8236}\tqc\tx5613{\*\hyphen2\hyphlead2\hyphtrail2\hyphmax65535}{\*\pgdscno0}{\fs16}{\ulnone}{\b0}\tab SPS 2
-\par 
-\par }
-
-\footery0{\*\footeryt113\footerxl0\footerxr0}{\footer \pard \plain \s2\caps0\scaps0\cf1\f1\fs16\lang1031\sl230\ql{\*\tlswg8236}\tx794{\*\tlswg8236}\tx1928{\*\tlswg8236}\tqc\tx5981{\*\tlswg8236}\tx9184{\*\tlswg8236}\tx9694{\*\hyphen2\hyphlead2\hyphtrail2\hyphmax65535}{\*\pgbrk0}{\*\pgdscno0} 
-\par \tab \tab \tab \tab \tab {\field {\*\fldinst \\page \\* ARABIC}{\fldrslt 7}}{\b\fs20 }
-\par 
-\par \tab {\field {\*\fldinst \\date \\@"dd.MM.yy"}{\fldrslt 23.01.94}}\tab {\field {\*\fldinst \\author }{\fldrslt Quedenfeldt}} \'a9\tab \tab {\field {\*\fldinst \\filename }{\fldrslt c:\\win-data\\writer\\sps2}}{\fs10 }
-\par {\fs10 \tab \tab \tab {\b}{\f0}{\fs28}\tab {\field {\*\fldinst \\filename }{\fldrslt bedien.rtf}}}
-\par }
-
-\pard \plain \s3{\*\tlswg8236}\tx567{\*\tlswg8236}\tx850{\*\tlswg8236}\tx1134{\*\tlswg8236}\tx1701{\*\tlswg8236}\tx2835{\*\tlswg8236}\tx3969{\*\tlswg8236}\tx6236{\*\tlswg8236}\tx7370{\*\tlswg8236}\tx8504{\*\tlswg8236}\tx9071\fs36\b\qc\shading2500\cfpat4\cbpat2{\*\brdbox0\brdrt\brdlncol1\brdlnin20\brdlnout20\brdlndist20\brdrb\brdlncol1\brdlnin20\brdlnout20\brdlndist20\brdrl\brdlncol1\brdlnin20\brdlnout20\brdlndist20\brdrr\brdlncol1\brdlnin20\brdlnout20\brdlndist20}{\*\shadow4\shdwdist57\shdwstyle1\shdwcol3\shdwfcol2}Bedienerf\'fchrung
-\par 
-\pard\plain\absw9898\absh12808\dfrmtxtx0\dfrmtxty0\posy602{\*\flyopaque\flyprotect0\flymaincnt2\flyhorz8192\flyanchor14\flycntnt}{{\field\fldpriv {\*\fldinst{\\import c:\\temp\\4}}{\fldrslt }}}
-\pard
-\pard \plain \s3{\*\tlswg8236}\tx567{\*\tlswg8236}\tx850{\*\tlswg8236}\tx1134{\*\tlswg8236}\tx1701{\*\tlswg8236}\tx2835{\*\tlswg8236}\tx3969{\*\tlswg8236}\tx6236{\*\tlswg8236}\tx7370{\*\tlswg8236}\tx8504{\*\tlswg8236}\tx9071 
-\par {\ulnone\b0\fs24 }\tab 
-\par 
-\par 
-\par \tab 
-\par 
-\par \tab \tab {\ul\b\fs28 \tab \tab \tab Die Bedienerf\'fchrung des PG4 bietet:}
-\par 
-\par {\ul\b\fs28 \tab \tab }{\b0\ulnone{\fs36{\f2 \'fd}{\f0 \tab }{\fs24 Einheitlicher Aufbau der Bedienung f\'fcr alle Programmmodule.}}}
-\par 
-\par {\b0\ulnone{\fs24\f0 \tab \tab }{\f2\fs36 \'fd\tab }{\f0\fs24 Bildschirmanzeige gegliedert in Funktionsbl\'f6cke.}}
-\par 
-\par {\b0\ulnone{\fs24\f0 \tab \tab }{\f2\fs36 \'fd\tab }{\f0\fs24 Darstellung des aktuellen Inhaltsverzeichnisses mit Pfadangaben.}}
-\par 
-\par {\b0\ulnone{\fs24\f0 \tab \tab }{\f2\fs36 \'fd}{\fs24\f0 \tab Einblendung gezielter Hilfe- Informationen.}}
-\par 
-\par {\b0\ulnone{\f0\fs24 \tab \tab }{\f2\fs36 \'fd}{\f0\fs24 \tab Men\'fcsteuerung \'fcber Funktionstasten und Pull- Up- Men\'fcs.}}
-\par 
-\par {\b0\ulnone{\fs24\f0 \tab \tab }{\f2\fs36 \'fd}{\f0\fs24 \tab M\'f6glichkeit der Eingabe und Ausf\'fchrung von MS-DOS- Befehlen.}}
-\par 
-\par {\b0\ulnone{\fs24\f0 \tab \tab }{\f2\fs36 \'fd}{\f0\fs24 \tab Einfache Voreistellung der Men\'fcs.}}
-\par 
-\par {\b0\ulnone{\fs24\f0 \tab \tab }{\f2\fs36 \'fd}{\f0\fs24 \tab Einfache \'dcbernahme von Dateinamen  (Projekten) aus dem Inhaltsverzeichnis.}}
-\par 
-\par 
-\par {\ulnone\b0\f0\fs24 \tab \tab }
-\par 
-\par {\fs28\b\ul \tab \tab }\tab \tab 
-\par \tab {\fs28}\tab 
-\par 
-\par 
-\par 
-\par 
-\par 
-\par 
-\par 
-\par 
-\par 
-\par 
-\par 
-\par \tab \tab \tab \tab \tab {\v c.\clippart3\corel\easle.cdr}
-{\fs16 }
-\par 
-\par 
-\par {\fs16{\ul\b Randbemerkung:}{\b0\ulnone \tab Es ist hoffnungslos, ein Programm Narrensicher zu machen, denn die Narren sind genial!}}
-\par \pard \plain \s3{\*\tlswg8236}\tx567{\*\tlswg8236}\tx850{\*\tlswg8236}\tx1134{\*\tlswg8236}\tx1701{\*\tlswg8236}\tx2835{\*\tlswg8236}\tx3969{\*\tlswg8236}\tx6236{\*\tlswg8236}\tx7370{\*\tlswg8236}\tx8504{\*\tlswg8236}\tx9071\fs36\b\qc\shading2500\cfpat4\cbpat2{\*\brdbox0\brdrt\brdlncol1\brdlnin20\brdlnout20\brdlndist20\brdrb\brdlncol1\brdlnin20\brdlnout20\brdlndist20\brdrl\brdlncol1\brdlnin20\brdlnout20\brdlndist20\brdrr\brdlncol1\brdlnin20\brdlnout20\brdlndist20}{\*\shadow4\shdwdist57\shdwstyle1\shdwcol3\shdwfcol2}{\ulnone Programmaufruf}
-\par 
-\pard\plain\pard \plain \absw6977{\*\flyopaque\flymaincnt2\flyvert0\flyhorz8704\flyanchor1\flypage2{\*\brdbox0\brdrb\brdlncol3\brdlnin0\brdlnout1\brdlndist0}{\*\shadow0\shdwdist57\shdwstyle1\shdwcol3\shdwfcol2}}
-\par \pard
-
-\pard\plain\pard \plain \absw6977{\*\flyopaque\flymaincnt2\flyvert0\flyhorz8704\flyanchor1\flypage2{\*\brdbox0\brdrb\brdlncol3\brdlnin0\brdlnout1\brdlndist0}{\*\shadow0\shdwdist57\shdwstyle1\shdwcol3\shdwfcol2}}
-\par \pard
-
-\pard\plain\pard \plain \absw6977{\*\flyopaque\flymaincnt2\flyvert0\flyhorz8704\flyanchor1\flypage2{\*\brdbox0\brdrb\brdlncol3\brdlnin0\brdlnout1\brdlndist0}{\*\shadow0\shdwdist57\shdwstyle1\shdwcol3\shdwfcol2}}
-\par \pard
-
-\pard\plain\pard \plain \absw6977{\*\flyopaque\flymaincnt2\flyvert0\flyhorz8704\flyanchor1\flypage2{\*\brdbox0\brdrb\brdlncol3\brdlnin0\brdlnout1\brdlndist0}{\*\shadow0\shdwdist57\shdwstyle1\shdwcol3\shdwfcol2}}
-\par \pard
-
-\pard\plain\pard \plain \absw6977{\*\flyopaque\flymaincnt2\flyvert0\flyhorz8704\flyanchor1\flypage2{\*\brdbox0\brdrb\brdlncol3\brdlnin0\brdlnout1\brdlndist0}{\*\shadow0\shdwdist57\shdwstyle1\shdwcol3\shdwfcol2}}
-\par \pard
-\pard \plain \s3{\*\tlswg8236}\tx567{\*\tlswg8236}\tx850{\*\tlswg8236}\tx1134{\*\tlswg8236}\tx1701{\*\tlswg8236}\tx2835{\*\tlswg8236}\tx3969{\*\tlswg8236}\tx6236{\*\tlswg8236}\tx7370{\*\tlswg8236}\tx8504{\*\tlswg8236}\tx9071
-\par 
-\pard\plain \absw1920\absh2295\dfrmtxtx0\dfrmtxty0\posy56{\*\flyprotect0\flymaincnt4\flyhorz8192\flyanchor14\flycntnt}{{\field\fldpriv {\*\fldinst{\\import c:\\temp\\5}}{\fldrslt }}}
-\pard
-{\fs24\ulnone{\b0 Nach dem Programmaufruf mit{\b  "Profi" }(aus dem entsprechendem Pfad), erscheint der Bildschirmaufbau des }{\b Professional- Integrators. }}
-\par 
-\par 
-\par 
-\par 
-\par 
-\par \pard \plain \s3{\*\tlswg8236}\tx567{\*\tlswg8236}\tx850{\*\tlswg8236}\tx1134{\*\tlswg8236}\tx1701{\*\tlswg8236}\tx2835{\*\tlswg8236}\tx3969{\*\tlswg8236}\tx6236{\*\tlswg8236}\tx7370{\*\tlswg8236}\tx8504{\*\tlswg8236}\tx9071\ql{\*\hyphen3\hyphlead2\hyphtrail0\hyphmax65535}
-\par \pard \plain \s3{\*\tlswg8236}\tx567{\*\tlswg8236}\tx850{\*\tlswg8236}\tx1134{\*\tlswg8236}\tx1701{\*\tlswg8236}\tx2835{\*\tlswg8236}\tx3969{\*\tlswg8236}\tx6236{\*\tlswg8236}\tx7370{\*\tlswg8236}\tx8504{\*\tlswg8236}\tx9071
-\par 
-\par 
-\par {\fs16\ulnone\b0 \tab \tab \tab \tab \tab \tab \tab \tab \tab {\v C:\clippart3\scan\rufen.tif}
-}
-\par 
-\par {\b0\ulnone\fs24 In der Funktionsleiste ganz unten k\'f6nnen nun die verschiedenen Programmodule aufgerufen werden.}
-\par 
-\par 
-\par 
-\par \pard \plain \s3{\*\tlswg8236}\tx567{\*\tlswg8236}\tx850{\*\tlswg8236}\tx1134{\*\tlswg8236}\tx1701{\*\tlswg8236}\tx2835{\*\tlswg8236}\tx3969{\*\tlswg8236}\tx6236{\*\tlswg8236}\tx7370{\*\tlswg8236}\tx8504{\*\tlswg8236}\tx9071{\*\tlswg8236}\tx567{\*\tlswg8236}\tx850{\*\tlswg8236}\tx1134{\*\tlswg8236}\tx1701{\*\tlswg8236}\tx2835{\*\tlswg8236}\tx3402{\*\tlswg8236}\tx3969{\*\tlswg8236}\tx6237{\*\tlswg8236}\tx7371{\*\tlswg8236}\tx8505{\*\tlswg8236}\tx9072{\*\tlswg8236}\tx10224{\ulnone\b0{\fs16 \tab }{\fs36{\f2 m}{\f0 \tab }{\fs24{\b F1- SPS:\tab \tab {\v Im Programmodul SPS wird das SPS- Dienstprogramm aufgerufen}
-{\i }}\tab \tab {\b}{\i}\tab \tab }}}
-\par {\ulnone{\b0{\f0\fs24 \tab }{\f2\fs36 m\tab }}{\b\fs24\f0 F5- CONFIG:\tab \tab {\v In diesem Modul werden die Einstellungen f�r Drucker, Sprache,}
-{\i }}}
-\par \pard \plain \s3{\*\tlswg8236}\tx567{\*\tlswg8236}\tx850{\*\tlswg8236}\tx1134{\*\tlswg8236}\tx1701{\*\tlswg8236}\tx2835{\*\tlswg8236}\tx3969{\*\tlswg8236}\tx6236{\*\tlswg8236}\tx7370{\*\tlswg8236}\tx8504{\*\tlswg8236}\tx9071{\fs24\f0\ulnone\b0 \tab \tab }
-\par \pard \plain \s3{\*\tlswg8236}\tx567{\*\tlswg8236}\tx850{\*\tlswg8236}\tx1134{\*\tlswg8236}\tx1701{\*\tlswg8236}\tx2835{\*\tlswg8236}\tx3969{\*\tlswg8236}\tx6236{\*\tlswg8236}\tx7370{\*\tlswg8236}\tx8504{\*\tlswg8236}\tx9071{\*\tlswg8236}\tx567{\*\tlswg8236}\tx850{\*\tlswg8236}\tx1134{\*\tlswg8236}\tx1701{\*\tlswg8236}\tx2835{\*\tlswg8236}\tx3402{\*\tlswg8236}\tx3969{\*\tlswg8236}\tx6237{\*\tlswg8236}\tx7371{\*\tlswg8236}\tx8505{\*\tlswg8236}\tx9072{\*\tlswg8236}\tx10224{\fs24\f0\ulnone{\b0 \tab \tab \tab \tab \tab \tab }{\v Hardware und Warnton get�tigt.}
-{\b\i }}
-\par \pard \plain \s3{\*\tlswg8236}\tx567{\*\tlswg8236}\tx850{\*\tlswg8236}\tx1134{\*\tlswg8236}\tx1701{\*\tlswg8236}\tx2835{\*\tlswg8236}\tx3969{\*\tlswg8236}\tx6236{\*\tlswg8236}\tx7370{\*\tlswg8236}\tx8504{\*\tlswg8236}\tx9071
-\par \pard \plain \s3{\*\tlswg8236}\tx567{\*\tlswg8236}\tx850{\*\tlswg8236}\tx1134{\*\tlswg8236}\tx1701{\*\tlswg8236}\tx2835{\*\tlswg8236}\tx3969{\*\tlswg8236}\tx6236{\*\tlswg8236}\tx7370{\*\tlswg8236}\tx8504{\*\tlswg8236}\tx9071{\*\tlswg8236}\tx567{\*\tlswg8236}\tx850{\*\tlswg8236}\tx1134{\*\tlswg8236}\tx1701{\*\tlswg8236}\tx2835{\*\tlswg8236}\tx3402{\*\tlswg8236}\tx3969{\*\tlswg8236}\tx6237{\*\tlswg8236}\tx7371{\*\tlswg8236}\tx8505{\*\tlswg8236}\tx9072{\*\tlswg8236}\tx10224{\ulnone\b0{\fs24\f0 \tab }{\fs36\f2 m\tab }{\f0\fs24{\b F6- ENDE:}\tab \tab {\v Hier erfolgt der Ausstieg aus dem SPS- Dienstprogramm}
-{\b\i }\tab \tab }}
-\par \pard \plain \s3{\*\tlswg8236}\tx567{\*\tlswg8236}\tx850{\*\tlswg8236}\tx1134{\*\tlswg8236}\tx1701{\*\tlswg8236}\tx2835{\*\tlswg8236}\tx3969{\*\tlswg8236}\tx6236{\*\tlswg8236}\tx7370{\*\tlswg8236}\tx8504{\*\tlswg8236}\tx9071
-\par \pard \plain \s3{\*\tlswg8236}\tx567{\*\tlswg8236}\tx850{\*\tlswg8236}\tx1134{\*\tlswg8236}\tx1701{\*\tlswg8236}\tx2835{\*\tlswg8236}\tx3969{\*\tlswg8236}\tx6236{\*\tlswg8236}\tx7370{\*\tlswg8236}\tx8504{\*\tlswg8236}\tx9071{\*\tlswg8236}\tx567{\*\tlswg8236}\tx850{\*\tlswg8236}\tx1134{\*\tlswg8236}\tx1701{\*\tlswg8236}\tx2835{\*\tlswg8236}\tx3402{\*\tlswg8236}\tx3969{\*\tlswg8236}\tx6237{\*\tlswg8236}\tx7371{\*\tlswg8236}\tx8505{\*\tlswg8236}\tx9072{\*\tlswg8236}\tx10224{\ulnone{\b0{\fs24\f0 \tab }{\fs36\f2 m\tab }}{\fs24\f0\b F7- Anwendung:\tab {\v Hier k�nnen Funktionstastenbelegungen vorgenommen werden}
-{\i }\tab }}
-\par \pard \plain \s3{\*\tlswg8236}\tx567{\*\tlswg8236}\tx850{\*\tlswg8236}\tx1134{\*\tlswg8236}\tx1701{\*\tlswg8236}\tx2835{\*\tlswg8236}\tx3969{\*\tlswg8236}\tx6236{\*\tlswg8236}\tx7370{\*\tlswg8236}\tx8504{\*\tlswg8236}\tx9071
-\par 
-\par {\f0\fs24\ulnone\b0 \tab Bild 1: \tab {\i Professional Integrator\tab \tab }}
-\par 
-\par 
-\pard\plain\absw6678\absh4924\dfrmtxtx0\dfrmtxty0\nowrap\posy32{\*\flyprotect0\flymaincnt0\flyhorz13824\flyanchor14\flycntnt}{{\field\fldpriv {\*\fldinst{\\import c:\\temp\\6}}{\fldrslt }}}
-\pard
-
-\par {\fs16{\b\ul Randbemerkung:}{\ulnone\b0 \tab Je weniger Funktionen ein Programm hat, umso perfekter verstehen sich seine Fehler}}
-\par \pard \plain \s3{\*\tlswg8236}\tx567{\*\tlswg8236}\tx850{\*\tlswg8236}\tx1134{\*\tlswg8236}\tx1701{\*\tlswg8236}\tx2835{\*\tlswg8236}\tx3969{\*\tlswg8236}\tx6236{\*\tlswg8236}\tx7370{\*\tlswg8236}\tx8504{\*\tlswg8236}\tx9071\qc\shading2500\cfpat4\cbpat2{\*\brdbox0\brdrt\brdlncol1\brdlnin20\brdlnout20\brdlndist20\brdrb\brdlncol1\brdlnin20\brdlnout20\brdlndist20\brdrl\brdlncol1\brdlnin20\brdlnout20\brdlndist20\brdrr\brdlncol1\brdlnin20\brdlnout20\brdlndist20}{\*\shadow4\shdwdist57\shdwstyle1\shdwcol3\shdwfcol2}{\b\fs36\ulnone Konfigurationsprogramm}
-\par \pard \plain \s3{\*\tlswg8236}\tx567{\*\tlswg8236}\tx850{\*\tlswg8236}\tx1134{\*\tlswg8236}\tx1701{\*\tlswg8236}\tx2835{\*\tlswg8236}\tx3969{\*\tlswg8236}\tx6236{\*\tlswg8236}\tx7370{\*\tlswg8236}\tx8504{\*\tlswg8236}\tx9071
-\par \pard \plain \s3{\*\tlswg8236}\tx567{\*\tlswg8236}\tx850{\*\tlswg8236}\tx1134{\*\tlswg8236}\tx1701{\*\tlswg8236}\tx2835{\*\tlswg8236}\tx3969{\*\tlswg8236}\tx6236{\*\tlswg8236}\tx7370{\*\tlswg8236}\tx8504{\*\tlswg8236}\tx9071\f0\fs24\ul\b Bildschirmaufbau:\tab 
-\par 
-\pard\plain \absw3858\absh2668\dfrmtxtx0\dfrmtxty0\posy57{\*\flyopaque\flyprotect0\flymaincnt2\flyhorz10752\flyanchor14\flycntnt}{{\field\fldpriv {\*\fldinst{\\import c:\\clipart3\\scan\\rechner.tif}}{\fldrslt }}}
-\pard
-\pard \plain \s3{\*\tlswg8236}\tx567{\*\tlswg8236}\tx850{\*\tlswg8236}\tx1134{\*\tlswg8236}\tx1701{\*\tlswg8236}\tx2835{\*\tlswg8236}\tx3969{\*\tlswg8236}\tx6236{\*\tlswg8236}\tx7370{\*\tlswg8236}\tx8504{\*\tlswg8236}\tx9071\f0\fs24\ul\b 
-\par \pard \plain \s3{\*\tlswg8236}\tx567{\*\tlswg8236}\tx850{\*\tlswg8236}\tx1134{\*\tlswg8236}\tx1701{\*\tlswg8236}\tx2835{\*\tlswg8236}\tx3969{\*\tlswg8236}\tx6236{\*\tlswg8236}\tx7370{\*\tlswg8236}\tx8504{\*\tlswg8236}\tx9071\f0\fs24
-\par 
-\par 
-\par 
-\par 
-\par 
-\par 
-\par 
-\par 
-\par 
-\par 
-\par 
-\par 
-\pard\plain\absw7404\absh5871\dfrmtxtx0\dfrmtxty0\posy144{\*\flyopaque\flyprotect0\flymaincnt2\flyhorz10752\flyanchor14\flycntnt}{{\field\fldpriv {\*\fldinst{\\import c:\\win-data\\scan\\konfigur.tif}}{\fldrslt }}}
-\pard
-
-\par 
-\par 
-\par 
-\par 
-\par 
-\par 
-\par 
-\par 
-\par 
-\par 
-\par 
-\par 
-\par 
-\par 
-\par 
-\par 
-\par 
-\par 
-\par 
-\par 
-\par 
-\par 
-\par 
-\par 
-\par 
-\par 
-\par 
-\par 
-\par 
-\par 
-\par 
-\par {\fs16\ulnone{\b Allgemeine Anwendererkenntnis:\tab }{\b0 1. Jedem Programm liegen mehrere Handb\'fccher bei.\tab 2. Sie werden sich stets an den entscheidenden Stellen \tab \tab \tab \tab \tab     wiedersprechen.}}
-\par \pard \plain \s3{\*\tlswg8236}\tx567{\*\tlswg8236}\tx850{\*\tlswg8236}\tx1134{\*\tlswg8236}\tx1701{\*\tlswg8236}\tx2835{\*\tlswg8236}\tx3969{\*\tlswg8236}\tx6236{\*\tlswg8236}\tx7370{\*\tlswg8236}\tx8504{\*\tlswg8236}\tx9071\fs36\b\qc\shading2500\cfpat4\cbpat2{\*\brdbox0\brdrt\brdlncol1\brdlnin20\brdlnout20\brdlndist20\brdrb\brdlncol1\brdlnin20\brdlnout20\brdlndist20\brdrl\brdlncol1\brdlnin20\brdlnout20\brdlndist20\brdrr\brdlncol1\brdlnin20\brdlnout20\brdlndist20}{\*\shadow4\shdwdist57\shdwstyle1\shdwcol3\shdwfcol2}{\ulnone Struktur der Programmodule}
-\par \pard \plain \s3{\*\tlswg8236}\tx567{\*\tlswg8236}\tx850{\*\tlswg8236}\tx1134{\*\tlswg8236}\tx1701{\*\tlswg8236}\tx2835{\*\tlswg8236}\tx3969{\*\tlswg8236}\tx6236{\*\tlswg8236}\tx7370{\*\tlswg8236}\tx8504{\*\tlswg8236}\tx9071\fs36\b\qc{\*\brdbox0}{\*\shadow0\shdwdist57\shdwstyle1\shdwcol3\shdwfcol2}{\*\brdbox0\brdrt\brdlncol1\brdlnin20\brdlnout20\brdlndist20\brdrb\brdlncol1\brdlnin20\brdlnout20\brdlndist20\brdrl\brdlncol1\brdlnin20\brdlnout20\brdlndist20\brdrr\brdlncol1\brdlnin20\brdlnout20\brdlndist20}{\*\shadow4\shdwdist57\shdwstyle1\shdwcol3\shdwfcol2}
-\par 
-\par 
-\par 
-\par 
-\par 
-\par 
-\par 
-\par 
-\par 
-\par 
-\par 
-\par 
-\par 
-\par 
-\par 
-\par 
-\par 
-\par 
-\par 
-\par 
-\par 
-\par 
-\par 
-\par 
-\par 
-\par 
-\par 
-\par 
-\par 
-\par 
-\par 
-\par \pard \plain \s3{\*\tlswg8236}\tx567{\*\tlswg8236}\tx850{\*\tlswg8236}\tx1134{\*\tlswg8236}\tx1701{\*\tlswg8236}\tx2835{\*\tlswg8236}\tx3969{\*\tlswg8236}\tx6236{\*\tlswg8236}\tx7370{\*\tlswg8236}\tx8504{\*\tlswg8236}\tx9071\fs36\ul\b\ql{\*\brdbox0}{\*\shadow0\shdwdist57\shdwstyle1\shdwcol3\shdwfcol2}
-\par \pard \plain \s3{\*\tlswg8236}\tx567{\*\tlswg8236}\tx850{\*\tlswg8236}\tx1134{\*\tlswg8236}\tx1701{\*\tlswg8236}\tx2835{\*\tlswg8236}\tx3969{\*\tlswg8236}\tx6236{\*\tlswg8236}\tx7370{\*\tlswg8236}\tx8504{\*\tlswg8236}\tx9071\ul\fs36\b\ql{\*\brdbox0}{\*\shadow0\shdwdist57\shdwstyle1\shdwcol3\shdwfcol2}{\*\brdbox0\brdrt\brdlncol1\brdlnin20\brdlnout20\brdlndist20\brdrb\brdlncol1\brdlnin20\brdlnout20\brdlndist20\brdrl\brdlncol1\brdlnin20\brdlnout20\brdlndist20\brdrr\brdlncol1\brdlnin20\brdlnout20\brdlndist20}{\*\shadow4\shdwdist57\shdwstyle1\shdwcol3\shdwfcol2}{\ulnone}{\fs16 Randbemerkung:\tab {\ulnone\b0 Besitzt ein Auswahlmen\'fc {\f3 \'bb}{\f0 n}{\f3 \'ab}{\f0  Felder, so steht der gew\'fcnschte Men\'fcpunkt an Position }{\f3 \'bb}{\f0 n + 1}{\f3 \'ab}{\f0 .}}}
-\par \pard \plain \s3{\*\tlswg8236}\tx567{\*\tlswg8236}\tx850{\*\tlswg8236}\tx1134{\*\tlswg8236}\tx1701{\*\tlswg8236}\tx2835{\*\tlswg8236}\tx3969{\*\tlswg8236}\tx6236{\*\tlswg8236}\tx7370{\*\tlswg8236}\tx8504{\*\tlswg8236}\tx9071\fs36\ul\b\qc\shading2500\cfpat4\cbpat2{\*\brdbox0\brdrt\brdlncol1\brdlnin20\brdlnout20\brdlndist20\brdrb\brdlncol1\brdlnin20\brdlnout20\brdlndist20\brdrl\brdlncol1\brdlnin20\brdlnout20\brdlndist20\brdrr\brdlncol1\brdlnin20\brdlnout20\brdlndist20}{\*\shadow4\shdwdist57\shdwstyle1\shdwcol3\shdwfcol2}{\f0\ulnone Die Pull-Up- Men\'fcs}
-\par 
-\pard\plain\pard \plain \absw4953{\*\flyopaque\flymaincnt2\flyvert0\flyhorz8704\flyanchor1\flypage5{\*\brdbox0\brdrb\brdlncol3\brdlnin0\brdlnout1\brdlndist0}{\*\shadow0\shdwdist57\shdwstyle1\shdwcol3\shdwfcol2}}
-\par \pard
-
-\pard\plain\pard \plain \absw4953{\*\flyopaque\flymaincnt2\flyvert0\flyhorz9216\flyanchor1\flypage5{\*\brdbox0\brdrb\brdlncol3\brdlnin0\brdlnout1\brdlndist0}{\*\shadow0\shdwdist57\shdwstyle1\shdwcol3\shdwfcol2}}
-\par \pard
-
-\pard\plain\pard \plain \absw5332{\*\flyopaque\flymaincnt2\flyvert0\flyhorz9216\flyanchor1\flypage5{\*\brdbox0\brdrb\brdlncol3\brdlnin0\brdlnout1\brdlndist0}{\*\shadow0\shdwdist57\shdwstyle1\shdwcol3\shdwfcol2}}
-\par \pard
-\pard \plain \s3{\*\tlswg8236}\tx567{\*\tlswg8236}\tx850{\*\tlswg8236}\tx1134{\*\tlswg8236}\tx1701{\*\tlswg8236}\tx2835{\*\tlswg8236}\tx3969{\*\tlswg8236}\tx6236{\*\tlswg8236}\tx7370{\*\tlswg8236}\tx8504{\*\tlswg8236}\tx9071\fs36\ul\b\ql{\*\brdbox0}{\*\shadow0\shdwdist57\shdwstyle1\shdwcol3\shdwfcol2}
-\par \pard \plain \s3{\*\tlswg8236}\tx567{\*\tlswg8236}\tx850{\*\tlswg8236}\tx1134{\*\tlswg8236}\tx1701{\*\tlswg8236}\tx2835{\*\tlswg8236}\tx3969{\*\tlswg8236}\tx6236{\*\tlswg8236}\tx7370{\*\tlswg8236}\tx8504{\*\tlswg8236}\tx9071\fs36\ul\b\ql{\*\tlswg8236}\tx567{\*\tlswg8236}\tx850{\*\tlswg8236}\tx1134{\*\tlswg8236}\tx1701{\*\tlswg8236}\tx2835{\*\tlswg8236}\tx3969{\*\tlswg8236}\tx5783{\*\tlswg8236}\tx6237{\*\tlswg8236}\tx7371{\*\tlswg8236}\tx8505{\*\tlswg8236}\tx9072{\*\tlswg8236}\tx10224{\*\brdbox0}{\*\shadow0\shdwdist57\shdwstyle1\shdwcol3\shdwfcol2}{\ulnone{\b0{\f2{\fs24 \tab }{\fs36 \'fd}}{\f0{\fs24 \tab Die Bedienerf\'fchrung wird durch die Pull- Up- Men\'fcs unterst\'fctzt. In diesen Pull- Up- Men\'fcs \tab \tab \tab \tab sind die Funktionstasten angegeben, die zu den dort aufgef\'fchrten Kommandos geh\'f6ren. Es sind \tab \tab \tab nur die Funktionstasten angegeben, deren dazugeh\'f6riges Kommando 
-in dieser Situation erlaubt \tab \tab \tab ist.}}{\fs28\b \tab \tab \tab \tab \tab \tab }{\f4\i \tab \tab \tab \tab \tab \tab \tab \tab \tab \tab  Wasch f\'fc\'b4n}}}
-\par 
-\pard\plain \absw2784\absh3758\dfrmtxtx0\dfrmtxty0\posy99{\*\flyopaque\flyprotect0\flymaincnt2\flyhorz13824\flyanchor14\flycntnt}{{\field\fldpriv {\*\fldinst{\\import c:\\clipart3\\corel\\bubble3.cdr}}{\fldrslt }}}
-\pard
-{\b\fs28\ulnone\i\f4 \tab \tab \tab \tab \tab \tab \tab   Menn\'fc???}
-\par 
-\pard\plain \absw2477\absh2163\dfrmtxtx0\dfrmtxty0\posy2{\*\flyopaque\flyprotect0\flymaincnt2\flyhorz13824\flyanchor14\flycntnt}{{\field\fldpriv {\*\fldinst{\\import c:\\clipart3\\scan\\suffel.tif}}{\fldrslt }}}
-\pard
-{\b\fs28\ulnone\i\f4 \tab \tab \tab \tab \tab \tab \tab \tab \tab \tab }
-\par 
-\par {\b\fs28{\f4\i\ulnone \tab }{\f0\i0\ul Beispiel:}}
-\par 
-\par {\b0\i0\fs24\f0\ulnone \tab Im EDITOR soll eine Symbolzuordnung }
-\par {\b0\i0\fs24\f0\ulnone \tab durchgef\'fchrt werden.\tab \tab                  \tab \tab \tab }
-\par {\b0\i0\fs24\f0\ulnone \tab \tab \tab \tab \tab \tab \tab \tab \tab  {\v c:\clippart3\scan\suffel.tif}
-}
-\par 
-\par 
-\pard\plain\absw8973\absh1386\dfrmtxtx0\dfrmtxty0\posy145{\*\flyopaque\flyprotect0\flymaincnt2\flyhorz16384\flyanchor14\flycntnt{\*\brdbox0\brdrt\brdlncol1\brdlnin0\brdlnout1\brdlndist0\brdrb\brdlncol1\brdlnin0\brdlnout1\brdlndist0\brdrl\brdlncol1\brdlnin0\brdlnout1\brdlndist0\brdrr\brdlncol1\brdlnin0\brdlnout1\brdlndist0}{\*\shadow0\shdwdist57\shdwstyle1\shdwcol3\shdwfcol2}}{{\field\fldpriv {\*\fldinst{\\import c:\\win-data\\scan\\pullup1.tif}}{\fldrslt }}}
-\pard
-
-\par 
-\par 
-\par 
-\par \pard \plain \s3{\*\tlswg8236}\tx567{\*\tlswg8236}\tx850{\*\tlswg8236}\tx1134{\*\tlswg8236}\tx1701{\*\tlswg8236}\tx2835{\*\tlswg8236}\tx3969{\*\tlswg8236}\tx6236{\*\tlswg8236}\tx7370{\*\tlswg8236}\tx8504{\*\tlswg8236}\tx9071
-\par \pard \plain \s3{\*\tlswg8236}\tx567{\*\tlswg8236}\tx850{\*\tlswg8236}\tx1134{\*\tlswg8236}\tx1701{\*\tlswg8236}\tx2835{\*\tlswg8236}\tx3969{\*\tlswg8236}\tx6236{\*\tlswg8236}\tx7370{\*\tlswg8236}\tx8504{\*\tlswg8236}\tx9071\fs36\ul\ql{\*\tlswg8236}\tx567{\*\tlswg8236}\tx850{\*\tlswg8236}\tx1134{\*\tlswg8236}\tx1701{\*\tlswg8236}\tx2835{\*\tlswg8236}\tx3969{\*\tlswg8236}\tx5783{\*\tlswg8236}\tx6237{\*\tlswg8236}\tx7371{\*\tlswg8236}\tx8505{\*\tlswg8236}\tx9072{\*\tlswg8236}\tx10224{\*\brdbox0}{\*\shadow0\shdwdist57\shdwstyle1\shdwcol3\shdwfcol2}{\fs28\ulnone\f4 \tab \tab \tab \tab }
-\par {\i\b\f0\fs28\ulnone \tab \tab \tab \tab \tab {\v Funktionstaste F3}
-}
-\par 
-\par 
-\par \pard \plain \s3{\*\tlswg8236}\tx567{\*\tlswg8236}\tx850{\*\tlswg8236}\tx1134{\*\tlswg8236}\tx1701{\*\tlswg8236}\tx2835{\*\tlswg8236}\tx3969{\*\tlswg8236}\tx6236{\*\tlswg8236}\tx7370{\*\tlswg8236}\tx8504{\*\tlswg8236}\tx9071\fs36\ul\ql{\*\tlswg8236}\tx567{\*\tlswg8236}\tx850{\*\tlswg8236}\tx1134{\*\tlswg8236}\tx1701{\*\tlswg8236}\tx2835{\*\tlswg8236}\tx3969{\*\tlswg8236}\tx5783{\*\tlswg8236}\tx6237{\*\tlswg8236}\tx7371{\*\tlswg8236}\tx8505{\*\tlswg8236}\tx9072{\*\tlswg8236}\tx10224{\*\brdbox0}{\*\shadow0\shdwdist57\shdwstyle1\shdwcol3\shdwfcol2}
-\par 
-\pard\plain\absw8882\absh2783\dfrmtxtx0\dfrmtxty0\posy91{\*\flyopaque\flyprotect0\flymaincnt2\flyhorz13312\flyanchor14\flycntnt{\*\brdbox0\brdrt\brdlncol1\brdlnin0\brdlnout1\brdlndist0\brdrb\brdlncol1\brdlnin0\brdlnout1\brdlndist0\brdrl\brdlncol1\brdlnin0\brdlnout1\brdlndist0\brdrr\brdlncol1\brdlnin0\brdlnout1\brdlndist0}{\*\shadow0\shdwdist57\shdwstyle1\shdwcol3\shdwfcol2}}{{\field\fldpriv {\*\fldinst{\\import c:\\win-data\\scan\\pullup2.tif}}{\fldrslt }}}
-\pard
-\pard \plain \s3{\*\tlswg8236}\tx567{\*\tlswg8236}\tx850{\*\tlswg8236}\tx1134{\*\tlswg8236}\tx1701{\*\tlswg8236}\tx2835{\*\tlswg8236}\tx3969{\*\tlswg8236}\tx6236{\*\tlswg8236}\tx7370{\*\tlswg8236}\tx8504{\*\tlswg8236}\tx9071\fs36\ul\b\ql{\*\tlswg8236}\tx567{\*\tlswg8236}\tx850{\*\tlswg8236}\tx1134{\*\tlswg8236}\tx1701{\*\tlswg8236}\tx2835{\*\tlswg8236}\tx3969{\*\tlswg8236}\tx5783{\*\tlswg8236}\tx6237{\*\tlswg8236}\tx7371{\*\tlswg8236}\tx8505{\*\tlswg8236}\tx9072{\*\tlswg8236}\tx10224{\*\brdbox0}{\*\shadow0\shdwdist57\shdwstyle1\shdwcol3\shdwfcol2}
-\par 
-\par 
-\par 
-\par 
-\par 
-\par 
-\par 
-\par 
-\par \pard \plain \s3{\*\tlswg8236}\tx567{\*\tlswg8236}\tx850{\*\tlswg8236}\tx1134{\*\tlswg8236}\tx1701{\*\tlswg8236}\tx2835{\*\tlswg8236}\tx3969{\*\tlswg8236}\tx6236{\*\tlswg8236}\tx7370{\*\tlswg8236}\tx8504{\*\tlswg8236}\tx9071\f0\fs24\ul\b\ql{\*\tlswg8236}\tx567{\*\tlswg8236}\tx850{\*\tlswg8236}\tx1134{\*\tlswg8236}\tx1701{\*\tlswg8236}\tx2835{\*\tlswg8236}\tx3969{\*\tlswg8236}\tx5783{\*\tlswg8236}\tx6237{\*\tlswg8236}\tx7371{\*\tlswg8236}\tx8505{\*\tlswg8236}\tx9072{\*\tlswg8236}\tx10224{\*\brdbox0}{\*\shadow0\shdwdist57\shdwstyle1\shdwcol3\shdwfcol2}{\ulnone{\b\i \tab }{\i0\b0 Alle Operanden, egal ob symbolisch oder absolut programmiert, sollen zugeordnet werden.}}
-\par \pard \plain \s3{\*\tlswg8236}\tx567{\*\tlswg8236}\tx850{\*\tlswg8236}\tx1134{\*\tlswg8236}\tx1701{\*\tlswg8236}\tx2835{\*\tlswg8236}\tx3969{\*\tlswg8236}\tx6236{\*\tlswg8236}\tx7370{\*\tlswg8236}\tx8504{\*\tlswg8236}\tx9071\fs36\ul\b\ql{\*\tlswg8236}\tx567{\*\tlswg8236}\tx850{\*\tlswg8236}\tx1134{\*\tlswg8236}\tx1701{\*\tlswg8236}\tx2835{\*\tlswg8236}\tx3969{\*\tlswg8236}\tx5783{\*\tlswg8236}\tx6237{\*\tlswg8236}\tx7371{\*\tlswg8236}\tx8505{\*\tlswg8236}\tx9072{\*\tlswg8236}\tx10224{\*\brdbox0}{\*\shadow0\shdwdist57\shdwstyle1\shdwcol3\shdwfcol2}
-\par \pard \plain \s3{\*\tlswg8236}\tx567{\*\tlswg8236}\tx850{\*\tlswg8236}\tx1134{\*\tlswg8236}\tx1701{\*\tlswg8236}\tx2835{\*\tlswg8236}\tx3969{\*\tlswg8236}\tx6236{\*\tlswg8236}\tx7370{\*\tlswg8236}\tx8504{\*\tlswg8236}\tx9071\fs36\ul\b\ql{\*\brdbox0}{\*\shadow0\shdwdist57\shdwstyle1\shdwcol3\shdwfcol2}
-\par 
-\par 
-\par {\fs24\f0\ulnone\b0 \tab \tab \tab \tab \tab      {\v Funktionstaste F3}
-{\i\b\fs28 }\tab \tab }
-\par 
-\par 
-\par 
-\par {\f0\ulnone\fs16{\b Randbemerkung:\tab }{\b0 Du kannst niemals einer Panne entgehen, indem Du sie zu vermeiden suchst, oder probierst ihr auf die Spur zu kommen.}}
-\par 
-\par 
-\pard\plain\pard \plain \absw5079{\*\flyopaque\flymaincnt2\flyvert0\flyhorz8704\flyanchor1\flypage6{\*\brdbox0\brdrb\brdlncol3\brdlnin0\brdlnout1\brdlndist0}{\*\shadow0\shdwdist57\shdwstyle1\shdwcol3\shdwfcol2}}
-\par \pard
-
-\par 
-\pard\plain\absw8653\absh3086\dfrmtxtx0\dfrmtxty0\posy0{\*\flyopaque\flyprotect0\flymaincnt2\flyhorz13312\flyanchor14\flycntnt{\*\brdbox0\brdrt\brdlncol1\brdlnin0\brdlnout1\brdlndist0\brdrb\brdlncol1\brdlnin0\brdlnout1\brdlndist0\brdrl\brdlncol1\brdlnin0\brdlnout1\brdlndist0\brdrr\brdlncol1\brdlnin0\brdlnout1\brdlndist0}{\*\shadow0\shdwdist57\shdwstyle1\shdwcol3\shdwfcol2}}{{\field\fldpriv {\*\fldinst{\\import c:\\win-data\\scan\\pullup3.tif}}{\fldrslt }}}
-\pard
-
-\par 
-\par 
-\par 
-\par 
-\par 
-\par 
-\par 
-\par 
-\par 
-\par 
-\par 
-\par 
-\par {\fs24\f0\ulnone\b0 \tab Die Zuordnung soll nur f\'fcr die aktuelle Bausteindatei durchgef\'fchrt werden.}
-\par 
-\par 
-\par 
-\par 
-\par {\f0\ulnone{\fs24\b0 \tab \tab \tab \tab \tab             }{\v Funktionstaste F1}
-{\i\b\fs28 }}
-\par 
-\par 
-\par 
-\par {\ulnone{\i0{\b{\f0\fs28 \tab }{\fs48{\f2 P}}{\f0{\b0 \tab }}{\b{\fs28 Hinweis:\tab }}{\fs24\i Mit der Taste  <ESC> brecht Ihr ab und kehrt zur Editordarstellung zur\'fcck.}}}}
-\par 
-\par 
-\par 
-\par 
-\par 
-\par 
-\par 
-\par 
-\par 
-\par 
-\par 
-\par 
-\par 
-\par 
-\par 
-\par 
-\par 
-\par 
-\par 
-\par 
-\par 
-\par 
-\par 
-\par {\i0\fs16\f0\ulnone{\b Randbemerkung:\tab }{\b0 Es gibt nur zwei unverr\'fcckbare Erkenntnisse im Leben:  1.) Grafische Benutzeroberfl\'e4chen machen das Bedienen von Computern einfacher.}}
-\par {\f0\ulnone{\fs24\i\b \tab }{\fs16\b0\i0 \tab \tab \tab \tab \tab                                    2.) Die Erde ist eine Scheibe.}}
-\par \pard \plain \s3{\*\tlswg8236}\tx567{\*\tlswg8236}\tx850{\*\tlswg8236}\tx1134{\*\tlswg8236}\tx1701{\*\tlswg8236}\tx2835{\*\tlswg8236}\tx3969{\*\tlswg8236}\tx6236{\*\tlswg8236}\tx7370{\*\tlswg8236}\tx8504{\*\tlswg8236}\tx9071\fs36\ul\b\qc\shading2500\cfpat4\cbpat2{\*\brdbox0\brdrt\brdlncol1\brdlnin20\brdlnout20\brdlndist20\brdrb\brdlncol1\brdlnin20\brdlnout20\brdlndist20\brdrl\brdlncol1\brdlnin20\brdlnout20\brdlndist20\brdrr\brdlncol1\brdlnin20\brdlnout20\brdlndist20}{\*\shadow4\shdwdist57\shdwstyle1\shdwcol3\shdwfcol2}{\fs36\i0\ulnone\f0\b Das ENDE- Men\'fc}
-\par 
-\pard\plain\pard \plain \absw1501{\*\flyopaque\flymaincnt2\flyvert0\flyhorz8704\flyanchor1\flypage7{\*\brdbox0\brdrb\brdlncol3\brdlnin0\brdlnout1\brdlndist0}{\*\shadow0\shdwdist57\shdwstyle1\shdwcol3\shdwfcol2}}
-\par \pard
-\pard \plain \s3{\*\tlswg8236}\tx567{\*\tlswg8236}\tx850{\*\tlswg8236}\tx1134{\*\tlswg8236}\tx1701{\*\tlswg8236}\tx2835{\*\tlswg8236}\tx3969{\*\tlswg8236}\tx6236{\*\tlswg8236}\tx7370{\*\tlswg8236}\tx8504{\*\tlswg8236}\tx9071\fs36\ul\b\qc{\*\brdbox0}{\*\shadow0\shdwdist57\shdwstyle1\shdwcol3\shdwfcol2}
-\par \pard \plain \s3{\*\tlswg8236}\tx567{\*\tlswg8236}\tx850{\*\tlswg8236}\tx1134{\*\tlswg8236}\tx1701{\*\tlswg8236}\tx2835{\*\tlswg8236}\tx3969{\*\tlswg8236}\tx6236{\*\tlswg8236}\tx7370{\*\tlswg8236}\tx8504{\*\tlswg8236}\tx9071\fs36\ul\b\ql{\*\brdbox0}{\*\shadow0\shdwdist57\shdwstyle1\shdwcol3\shdwfcol2}{\b0\fs24\f0\ulnone\i0 \tab Die Programmodule von {\b EDITOR}, {\b LISTER}, {\b MONITOR} und{\b  LADER }haben viele Gemein-\tab samkeiten.}
-\par {\i0\ulnone\f0\fs24\b0 \tab Ein gro\'dfer Vorteil ergibt sich aus der engen Verbindung der Programmodule untereinander. Ihr k\'f6nnt \tab beim Erstellen, Testen und Dokumentieren eines Programmes von einem Programmodul zum andern \tab \'fcbergehen.}
-\par 
-\par \pard \plain \s3{\*\tlswg8236}\tx567{\*\tlswg8236}\tx850{\*\tlswg8236}\tx1134{\*\tlswg8236}\tx1701{\*\tlswg8236}\tx2835{\*\tlswg8236}\tx3969{\*\tlswg8236}\tx6236{\*\tlswg8236}\tx7370{\*\tlswg8236}\tx8504{\*\tlswg8236}\tx9071\fs36\ul\b\qr{\*\tlswg8236}\tx567{\*\tlswg8236}\tx850{\*\tlswg8236}\tx1134{\*\tlswg8236}\tx1701{\*\tlswg8236}\tx2835{\*\tlswg8236}\tx3969{\*\tlswg8236}\tx6237{\*\tlswg8236}\tx7371{\*\tlswg8236}\tx8505{\*\tlswg8236}\tx9072{\*\tlswg8236}\tx9412{\*\tlswg8236}\tx10224{\*\brdbox0}{\*\shadow0\shdwdist57\shdwstyle1\shdwcol3\shdwfcol2}{\i0\ulnone\f0\fs24\b0 \tab Der \'dcbergang zu einem anderen Programmodul erfolgt immer mit der Funktionstaste\tab {\v F6}
-{\i\b\fs28 } \tab }
-\par \pard \plain \s3{\*\tlswg8236}\tx567{\*\tlswg8236}\tx850{\*\tlswg8236}\tx1134{\*\tlswg8236}\tx1701{\*\tlswg8236}\tx2835{\*\tlswg8236}\tx3969{\*\tlswg8236}\tx6236{\*\tlswg8236}\tx7370{\*\tlswg8236}\tx8504{\*\tlswg8236}\tx9071\fs36\ul\b\ql{\*\brdbox0}{\*\shadow0\shdwdist57\shdwstyle1\shdwcol3\shdwfcol2}
-\par 
-\par {\f0\ulnone{\fs28\b\i \tab }{\fs24\b0\i0 Nach Bet\'e4tigung dieser Funktionstaste wird folgendes Pull- Up- Men\'fc ge\'f6ffnet:}}
-\par 
-\par {\ulnone\f0\i0\b0\fs24 \tab }
-\par 
-\pard\plain \absw7623\absh3752\dfrmtxtx0\dfrmtxty0\posy54{\*\flyopaque\flyprotect0\flymaincnt2\flyhorz10752\flyanchor14\flycntnt{\*\brdbox0\brdrt\brdlncol1\brdlnin0\brdlnout1\brdlndist0\brdrb\brdlncol1\brdlnin0\brdlnout1\brdlndist0\brdrl\brdlncol1\brdlnin0\brdlnout1\brdlndist0\brdrr\brdlncol1\brdlnin0\brdlnout1\brdlndist0}{\*\shadow0\shdwdist57\shdwstyle1\shdwcol3\shdwfcol2}}{{\field\fldpriv {\*\fldinst{\\import c:\\win-data\\scan\\pullup4.tif}}{\fldrslt }}}
-\pard
-
-\par 
-\par 
-\par 
-\par 
-\par 
-\par 
-\par 
-\par 
-\par 
-\par 
-\par 
-\par 
-\par 
-\par 
-\par {\fs24\b0\i0\f0\ulnone \tab Wie Ihr seht, werden 6 Verzweigungen angeboten. Auswahl wie schon gehabt jeweils durch \tab Funktionstasten (<F1> bis <F6>).}
-\par 
-\par {\ulnone\f0\i0\fs24{\b0 \tab Mit <F2> bis <F6> gelangt Ihr direkt in die Kommandoebene von }{\b EDITOR, MONITOR, LISTER \tab }{\b0 und }{\b LADER + MONITOR}{\b0 , ohne einen R\'fccksprung in die Voreinstellungsebene.}}
-\par 
-\par {\fs24\i0\f0\ulnone\b0 \tab Mit <F1> erfolgt der R\'fccksprung ins Voreinstellmen\'fc des aktuellen Programmoduls. }
-\par {\fs24\i0\f0\ulnone\b0 \tab Von dort aus kann das Programm ganz verlassen werden, Voreinstellungen ge\'e4ndert, oder auch \tab andere Programmodule aufgerufen werden.}
-\par 
-\par 
-\par 
-\par 
-\par 
-\par 
-\par 
-\par 
-\par 
-\par 
-\par 
-\par 
-\par 
-\par \pard \plain \s3{\*\tlswg8236}\tx567{\*\tlswg8236}\tx850{\*\tlswg8236}\tx1134{\*\tlswg8236}\tx1701{\*\tlswg8236}\tx2835{\*\tlswg8236}\tx3969{\*\tlswg8236}\tx6236{\*\tlswg8236}\tx7370{\*\tlswg8236}\tx8504{\*\tlswg8236}\tx9071\ul\fs36\b\ql{\*\brdbox0}{\*\shadow0\shdwdist57\shdwstyle1\shdwcol3\shdwfcol2}{\*\brdbox0}{\*\shadow0\shdwdist57\shdwstyle1\shdwcol3\shdwfcol2}{\*\brdbox0\brdrt\brdlncol1\brdlnin20\brdlnout20\brdlndist20\brdrb\brdlncol1\brdlnin20\brdlnout20\brdlndist20\brdrl\brdlncol1\brdlnin20\brdlnout20\brdlndist20\brdrr\brdlncol1\brdlnin20\brdlnout20\brdlndist20}{\*\shadow4\shdwdist57\shdwstyle1\shdwcol3\shdwfcol2}{\i0\f0\ulnone\fs16{\b Randbemerkung:}{\b0 \tab "Das unsympatische an Computern ist, da\'df sie nur ja oder nein sagen k\'f6nnen, aber nicht vielleicht". (Brigitte Bardot)}}
-\par }
\ No newline at end of file
diff --git a/testautomation/writer/optional/input/import/sw1.sdw b/testautomation/writer/optional/input/import/sw1.sdw
deleted file mode 100755
index 0dba863b1332..000000000000
--- a/testautomation/writer/optional/input/import/sw1.sdw
+++ /dev/null
diff --git a/testautomation/writer/optional/input/import/sw2.sdw b/testautomation/writer/optional/input/import/sw2.sdw
deleted file mode 100755
index 5d379e9ee35b..000000000000
--- a/testautomation/writer/optional/input/import/sw2.sdw
+++ /dev/null
diff --git a/testautomation/writer/optional/input/import/sw30.sdw b/testautomation/writer/optional/input/import/sw30.sdw
deleted file mode 100755
index 1ac033864cbd..000000000000
--- a/testautomation/writer/optional/input/import/sw30.sdw
+++ /dev/null
diff --git a/testautomation/writer/optional/input/import/sw31.sdw b/testautomation/writer/optional/input/import/sw31.sdw
deleted file mode 100755
index a6ec85b9c46a..000000000000
--- a/testautomation/writer/optional/input/import/sw31.sdw
+++ /dev/null
diff --git a/testautomation/writer/optional/input/import/sw31.vor b/testautomation/writer/optional/input/import/sw31.vor
deleted file mode 100755
index 1cadc817ef52..000000000000
--- a/testautomation/writer/optional/input/import/sw31.vor
+++ /dev/null
diff --git a/testautomation/writer/optional/input/import/sw40.sdw b/testautomation/writer/optional/input/import/sw40.sdw
deleted file mode 100755
index 0eec38e36d9f..000000000000
--- a/testautomation/writer/optional/input/import/sw40.sdw
+++ /dev/null
diff --git a/testautomation/writer/optional/input/import/sw40_sp2.vor b/testautomation/writer/optional/input/import/sw40_sp2.vor
deleted file mode 100755
index 7f2351e6a69d..000000000000
--- a/testautomation/writer/optional/input/import/sw40_sp2.vor
+++ /dev/null
diff --git a/testautomation/writer/optional/input/import/sw50.sdw b/testautomation/writer/optional/input/import/sw50.sdw
deleted file mode 100755
index 475c3385d682..000000000000
--- a/testautomation/writer/optional/input/import/sw50.sdw
+++ /dev/null
diff --git a/testautomation/writer/optional/input/import/sw50.vor b/testautomation/writer/optional/input/import/sw50.vor
deleted file mode 100755
index 119bd57a4eb6..000000000000
--- a/testautomation/writer/optional/input/import/sw50.vor
+++ /dev/null
diff --git a/testautomation/writer/optional/input/import/sw60.sxw b/testautomation/writer/optional/input/import/sw60.sxw
deleted file mode 100644
index a1bafa5a0fbe..000000000000
--- a/testautomation/writer/optional/input/import/sw60.sxw
+++ /dev/null
diff --git a/testautomation/writer/optional/input/import/swdos.txt b/testautomation/writer/optional/input/import/swdos.txt
deleted file mode 100755
index de2365acbdb2..000000000000
--- a/testautomation/writer/optional/input/import/swdos.txt
+++ /dev/null
@@ -1,3314 +0,0 @@
-.\\\ WRITER 6 \\\

-C:\SW70\VORLAGEN\STANDARD.LAY

-C:\SW70\TREIBER\FM$65011.GPM

-12

-00000

-00010

-00109

-00001

-00001

-00001

-00002

-00002

-00000

-00006

-00000

-00000

-Blumentritt    

-               

-                              

-                              

-                              

-                              

-                    

-                    

-                    

-                    

-0

-17280

-11520

-0

-0

-JA

-3

-75

-0

-20

-0

-0

-0

-0

-0

-0

-0

-NEIN

-

-

-

-0

-2

-1

-Grund - Absatzlayout

-GA

-0

-0

-0

-0

-0

-1

-24

-0

-1

-0

-1

-NEIN

-NEIN

-NEIN

-240

-0

-0

-20

-0

-0

-0

-0

-0

-1

-0

-NEIN

-

-1

-566

-0

-0

-Einr�ckung links

-EL

-0

-566

-0

-0

-0

-1

-24

-0

-1

-0

-1

-NEIN

-NEIN

-NEIN

-240

-0

-0

-20

-0

-0

-0

-0

-0

-0

-0

-NEIN

-

-1

-566

-0

-0

-Grund - Seitenlayout

-GS

-480

-720

-269

-1133

-1680

-1680

-0

-0

-1

-NEIN

-0

-0

-

-

-

-

-

-

-

-

-0

-

-0

-

-

-

-

-

-

-

-KABAAB

-

-

-

-

-

-

-

-

-S t e f a n   B r e u e r

-

-

-G e s e l l s c h a f t   d e s   V e r s c h w i n d e n s

-

-

-

-

-

-PA

-

-

-Inhalt

-

-S

-S

-S

-S

-SVorwort

-S

-S

-S

-SDie Entwicklungskurve der Zivilisation.

-SEine Auseinandersetzung mit Norbert Elias

-S

-S

-S

-SProduktive Disziplin. Foucaults Theorie der 

-Disziplinargesellschaft

-S

-S

-S

-SAdorno, Luhmann: Die moderne Gesellschaft zwischen 

-Selbstreferenz und Selbstdestruktion

-S

-S

-S

-S'Nicht der Anfang, das Ende tr�gt die Last'.

-SFriedrich Georg J�nger und die Perfektion der Technik

-S

-S

-S

-SDer Nihilismus der Geschwindigkeit.

-SZum Werk Paul Virilios

-S

-S

-S

-STechnik und Wissenschaft als Hierophanie

-S

-S

-S

-SG�tterd�mmerung

-S

-SPA

-SVorwort

-S

-S

-S

-S

-S

-S

-S... Wir ordnens. Es zerf�llt.

-S               Wir ordnens wieder und zerfallen selbst.

-S                               Rilke, Duineser Elegien

-S

-SDie Gegenwart, so versichert man uns seit einiger Zeit, stehe im 

-Zeichen eines gro�en Verschwindens. Die Metaerz�hlungen, welche 

-die Spielregeln des modernen Wissens legitimierten, l�sten sich 

-auf oder verl�ren an Glaubw�rdigkeit; die Diskurse �ber die 

-Dialektik des Geistes, die Hermeneutik des Sinns oder die 

-Emanzipation der Gattung enth�llten sich als Fabeln, denen keine 

-Funktion mehr zukomme (Lyotard 1986, 13f.). Die Fundamente der 

-neuzeitlichen Metaphysik w�rden br�chig, das Ende des 

-Humanismus, der Subjektivit�t, ja der Moderne schlechthin 

-k�ndige sich an (Vattimo 1990, 52f.). Das Wissen selbst sprenge 

-im Zuge seiner Entfaltung die vereinheitlichenden, 

-universalisierenden, totalisierenden Ambitionen, mit denen es 

-seit Descartes belastet sei. Relativit�tstheorie und 

-Quantenphysik bewirkten eine Grundsatzrevision, eine "Mutation 

-im Kern der Neuzeit", an der der Absolutheitsanspruch der alten 

-Mathesis universalis zerbreche. Aufl�sung des Ganzen, Ende der 

-Einheit, Obsoletheit der Totalit�t: "Absolutheit ist nur noch 

-eine Idee, ein archimedischer Punkt ist undenkbar, das Operieren 

-ohne letztes Fundament wird zur Grundsituation" (Welsch 1988, 

-187).

-S

-SDem Verschwinden der Totalit�t, hei�t es weiter, korrespondiert 

-das Erscheinen der Pluralit�t, dem 'Koma der Moderne' (Matthieu) 

-die Geburt der Postmoderne. Wo der szientifische Diskurs der 

-Moderne nur den Kult einer monotheistischen Vernunft kannte, 

-begreift sich der Postmodernismus als Anwalt des Polytheismus, 

-als "Wahrer einer vielf�ltigen Wirklichkeit gegen ihre 

-technologische Eintr�bung" (ebd. 221 f.); wo einst die 

-Monokultur eines technologischen Zeitalters sich ausbreitete, 

-bl�ht heute eine bunte Vielfalt von Horizonten, Lebenswelten, 

-Wissensformen. Die Postmoderne 'verwindet' die Metaphysik 

-(Vattimo 1990, 53); sie beharrt gegen�ber der homogenisierenden 

-Gewalt des �konomischen Diskurses auf der "Heterogenit�t der 

-Satz-Regelsysteme und Diskursarten" (Lyotard 1987, 263) und 

-zeigt sich aggressiv gegen jede Totalisierung. "Krieg dem 

-Ganzen, zeugen wir f�r das Nicht-Darstellbare, aktivieren wir 

-die Widerstreite, retten wir die Ehre des Namens" (Lyotard 1988, 

-203). Auch wenn in diesem Krieg noch einige Schlachten verloren 

-gehen sollten, glaubt die Postmoderne die st�rkeren Bataillone 

-auf ihrer Seite zu haben. Sie will gegen�ber Technik und 

-�konomie das umfassendere Deutungsmuster sein und nicht nur die 

-Entwicklungslogik des Wissens, sondern auch die der Gesellschaft 

-f�r sich haben (Welsch 1988, 218, 4). Das Verschwinden des 

-Ganzen sei nicht mehr aufzuhalten, die Freisetzung der Teile 

-unvermeidlich. "Die Postmoderne beginnt dort, wo das Ganze 

-aufh�rt" (ebd. 39).

-S

-SNun gibt es wenig Gr�nde, die Moderne vor der Kritik zu 

-sch�tzen. Die meisten der gegen sie vorgetragenen Gravamina 

-bestehen zu Recht. Es gibt aber auch keinen Grund, sich einem 

-Feldzug anzuschlie�en, der auf einer so fragw�rdigen 

-Lagebeurteilung wie der soeben skizzierten beruht. Zun�chst 

-einmal ist v�llig ungekl�rt, um welche Art von Pluralit�t es 

-sich handelt, die den Holismus der Moderne ersetzen soll: um 

-eine Pluralit�t, die aus der Gleichzeitigkeit des 

-Ungleichzeitigen resultiert, also lediglich ein Ensemble noch 

-nicht vermittelter Vielheit ist; um die Differenzierungsprodukte 

-einer Einheit, die noch im Au�ersichsein bei sich selbst ist - 

-Pluralit�t � la Hegel; oder um eine materiale, irreduzible 

-Pluralit�t, an der jeder Homogenisierungsversuch scheitert. Nur 

-diese letztere lie�e sich aussichtsreich mobilisieren, aber auch 

-nur dann, wenn sie strategische Relevanz besitzt und nicht blo� 

-marginaler Natur ist. Lyotards Eingest�ndnis, das einzige 

-un�berwindliche Hindernis f�r die hegemonialen Tendenzen des 

-�konomischen Diskurses liege in der Heterogenit�t der Satz-

-Regelsysteme, deutet jedoch genau in diese Richtung. Wer der 

-zerst�rerischen Gewalt der Moderne nur S�tze entgegenzusetzen 

-hat, hat ihr schon nichts mehr entgegenzusetzen.

-S

-SSchlie�lich sind auch die Bundesgenossen, auf die sich der 

-Postmodernismus glaubt st�tzen zu k�nnen, alles andere als 

-vertrauenerweckend. Es mag ja sein, da� mit den Innovationen von 

-Einstein, Heisenberg und G�del der Totalit�tsanspruch der alten 

-Mathesis universalis unhaltbar geworden ist. Aber erstens ist 

-das mechanische Weltbild durch die neuere Physik nicht einfach 

-widerlegt, sondern lediglich auf den mesokosmischen Bereich 

-eingeschr�nkt worden. Und zweitens kann man den Vorsto� von 

-Wissenschaft und Technik in den mikro- und makrokosmischen 

-Bereich kaum als Beleg f�r eine "Einschr�nkung des 

-Monopolanspruchs der Wissenschaft" oder als Anzeichen f�r eine 

-Beendigung der "Hegemonie szientifischer Orientierung" nehmen 

-(Welsch 1988, 188, 222). Die Flexibilisierung der Wissenschaft 

-und die Erweiterung ihres Methodenarsenals begr�nden ihre 

-Expansion, nicht ihre Selbstlimitation.

-S

-SWie die Postmodernisten ihre eigenen St�rke �bersch�tzen, so 

-untersch�tzen sie die des Gegners. Die Rede von den gro�en 

-Erz�hlungen suggeriert, da� Totalit�t nichts weiter sei als eine 

-"Anma�ung" (Lyotard 1988a, 213), eine falsche Darstellung der 

-Welt, die sich jederzeit durch eine ad�quatere korrigieren 

-lie�e; der Diskurs der Moderne erscheint so als das Ergebnis 

-einer immer schon "illegitimen Erhebung eines in Wirklichkeit 

-Partikularen zum vermeintlich Absoluten" (Welsch 1988, 5), als 

-�bergriff, dem kritizistisch mit dem Hinweis auf die begrenzten 

-Kompetenzen des Denkens zu begegnen ist. So ungef�hr 

-argumentierten vor Jahrzehnten schon Popper und Albert, die sich 

-weit mehr daf�r interessierten, den Dialektikern totalit�re 

-Ambitionen nachzuweisen, als den totalisierenden Tendenzen in 

-der Wirklichkeit nachzugehen. Totalit�t ist aber keine Erfindung 

-herrschs�chtiger Intellektueller, sondern eine Realit�t, die 

-sich nicht einfach wegdekretieren l��t. Sie manifestiert sich in 

-der Tendenz des Kapitals, "alle Elemente der Gesellschaft sich 

-unterzuordnen oder die ihm noch fehlenden Organe aus ihr heraus 

-zu schaffen" (Marx 1974, 189); sie zeigt sich in der 

-Universalisierung und Globalisierung der dem Kapitalverh�ltnis 

-eigenen Produktions- und Zirkulationsformen; und nicht zuletzt 

-in der massiven Expansion der experimentellen Wissenschaften, 

-die immer tiefer in die Infrastrukturen der Materie 

-intervenieren und l�ngst keine Grenzen mehr kennen. Nicht da� 

-dem Postmodernismus dies v�llig entginge. Aber die forcierte, 

-wie immer auch inzwischen zur�ckgenommene oder relativierte 

-Behauptung einer Postmoderne, eines Zustands also jenseits der 

-f�r die Moderne typischen Totalisierung, deutet auf eine 

-Verharmlosung, die nicht anders als leichtfertig bezeichnet 

-werden kann. Wer f�r ein 'Denken des Genusses' eintritt (Vattimo 

-1990, 192), mag dies tun, er dr�ckt damit ohnehin nur die 

-herrschende Orientierung aus. Er sollte aber nicht die Illusion 

-verbreiten, es handle sich um mehr als den Genu� von 

-Henkersmahlzeiten. Das Ende der Moderne wird nicht der Aufgang 

-der Postmoderne sein, sondern das Ende der Welt, genauer: der 

-bewohnbaren Welt.

-S

-SSo jedenfalls legt es die dialektische Denkbewegung nahe, die 

-das Verh�ltnis von Erscheinen und Verschwinden ganz anders fa�t 

-als der Postmodernismus. W�hrend der letztere das Signum der 

-Epoche im Verschwinden der Einheit und im Erscheinen 

-vermittlungsloser Vielfalt sieht, insistiert das dialektische 

-Denken seit Hegel darauf, da� die unvermittelte Vielfalt 

-verschwindet und von einer absoluten, in sich differenzierten 

-Einheit abgel�st wird. Die Hegelsche Logik analysiert die 

-Bewegung vom scheinenden zum erscheinenden Wesen, in deren 

-Verlauf die dem Wesen eigenen Bestimmungen als reale und 

-selbst�ndige Vermittlungen in die Existenz treten; die 

-Geschichtsphilosophie �bersetzt diesen Gedanken in einen 

-historischen Proze�, dessen markanteste Stationen das Erscheinen 

-des G�ttlichen in Christo und die Realisierung der Vernunft im 

-modernen Staate sind. Marx �u�erte hieran berechtigte Zweifel 

-und verschob die wahre Vers�hnung auf den Sozialismus. Am 

-Grundgedanken hielt er nichtsdestoweniger fest. Auch f�r ihn ist 

-die Heterogenit�t der modernen Gesellschaft - die 'Konkurrenz' - 

-nichts Neues oder Eigenst�ndiges gegen�ber dem Wesen, sondern 

-dessen Erscheinungsform. Denn das Wesen der modernen 

-Gesellschaft - das Wertgesetz - besteht gerade darin, als 

-Negation seiner selbst zu erscheinen, so da� der Erscheinung der 

-Schein von Selbst�ndigkeit zukommt. "Innerhalb des 

-Wertverh�ltnisses und des darin einbegriffenen Wertausdrucks 

-gilt das abstrakt Allgemeine nicht als Eigenschaft des 

-Konkreten, Sinnlich-Wirklichen, sondern umgekehrt das Sinnlich-

-Konkrete als blo�e Erscheinungs- oder bestimmte 

-Verwirklichungsform des Abstrakt-Allgemeinen (...). Diese 

-Verkehrung, wodurch das Sinnlich-Konkrete nur als 

-Erscheinungsform des Abstrakt-Allgemeinen, nicht das Abstrakt-

-Allgemeine umgekehrt als Eigenschaft des Konkreten gilt, 

-charakterisiert den Wertausdruck" (Marx 1867, 771).

-S

-SDiese Konzeption ist festzuhalten, weil sich nur mit ihrer Hilfe 

-Einsicht in die komplizierte Architektur der modernen 

-Gesellschaft gewinnen l��t. Sie ist aber zugleich zu 

-modifizieren, weil Marx, darin ganz Kind des 19. Jhs., die 

-selbstzerst�rischen Z�ge der Wertvergesellschaftung 

-untersch�tzte. Gewi�, Marx sah genau, da� die kapitalistische 

-Produktionsweise die "Springquellen allen Reichtums untergr�bt: 

-die Erde und den Arbeiter" (MEW 23, 530). Er erkannte ferner mit 

-einer Klarheit wie niemand vor ihm, welches selbstnegatorische 

-Potential mit dem wachsenden Widerspruch zwischen notwendiger 

-und �berfl�ssiger Arbeitszeit entsteht (Marx 1974, 592ff.). 

-Indes war er felsenfest davon �berzeugt, da�, wenn schon nicht 

-das Kapital, so doch die Menschheit imstande sein w�rde, sich 

-wie M�nchhausen am eigenen Schopf aus dem Sumpf zu ziehen. Der 

-Speer, der die Wunde schlug - die Wissenschaft - galt ihm als 

-poena et remedium peccati. Wenn die verwissenschaftlichte 

-Produktion unter kapitalistischen Bedingungen den Stoffwechsel 

-zwischen Mensch und Erde st�rte, so zwang sie doch zugleich 

-"durch die Zerst�rung der blo� naturw�chsig entstandnen Umst�nde 

-jenes Stoffwechsels, ihn systematisch als regelndes Gesetz der 

-gesellschaftlichen Produktion und in einer der vollen 

-menschlichen Entwicklung ad�quaten Form herzustellen" (MEW 23, 

-528). Wenn sie die Arbeitsmittel in "Unterjochungsmittel, 

-Exploitationsmittel und Verarmungsmittel des Arbeiters" 

-verwandelte und die "gesellschaftliche Kombination der 

-Arbeitsprozesse als organisierte Unterdr�ckung seiner 

-individuellen Lebendigkeit, Freiheit und Selbst�ndigkeit" 

-betrieb (ebd. 528f.), so folgte sie damit nur einer geheimen 

-Logik, die das, was sie den Individuen nahm, der Gattung in 

-tausendfach vergr��erter Form zur�ckerstattete. F�r Marx war die 

-kapitalistische Modernisierung, wie f�r die meisten b�rgerlichen 

-Denker, ein antientropischer Proze�, der, von partiellen 

-R�ckf�llen abgesehen, mit Naturnotwendigkeit zu h�heren 

-Ordnungen f�hrte - und zwar deshalb, weil sich hinter dem Wesen 

-'Kapital' noch ein weit umfassenderes Wesen befand: die 

-Menschheit. Was immer die Althusser-Schule an Gegenargumenten 

-gebracht hat: Marx hat, soweit er Revolutionstheoretiker sein 

-wollte, den anthropologischen Diskurs niemals verlassen.

-S

-SDer anthropologische Diskurs aber macht blind. Er zwingt dazu, 

-die Bewegung des Scheins als eine Scheinbewegung anzusehen und 

-die mit ihr verbundenen Zerst�rungen in Fortschritte umzudeuten. 

-Erst wenn Klarheit dar�ber besteht, da� das Kapitalverh�ltnis 

-nicht das Werkzeug oder der Wegbereiter eines sich in der 

-Geschichte entfaltenden Absolutums - der menschlichen Gattung - 

-ist, sondern selbst das Absolute, erst dann werden die Folgen 

-seiner Expansion als das erkennbar, was sie sind: Momente einer 

-beispiellosen Verheerung und Verw�stung, die zeitlich und 

-r�umlich begrenzte Ordnungsgewinne mit einer Steigerung der 

-Unordnung in der Umgebung erkauft. Erst dann kann aber auch 

-deutlich werden, da� dieses Absolute - die von allen 

-Umweltbez�gen abgel�ste 'reine Gesellschaft' - nur auf Zeit 

-existiert, da es im gleichen Ma�e, in dem es sich ausdehnt, die 

-Bedingungen seiner Existenz zerst�rt. Wir sind schon zu tief in 

-diesen Proze� verstrickt, um an seiner Grundrichtung noch etwas 

-�ndern zu k�nnen. Das Bewu�tsein dar�ber, da� die Gesellschaft 

-des Erscheinens in Wahrheit eine Gesellschaft des Verschwindens 

-ist, k�nnte aber vielleicht dazu beitragen, das Tempo des 

-Erscheinens (und damit auch: des Verschwindens) zu verlangsamen. 

-Die Transformation der Anthropologie in Entropologie, wie sie 

-Claude L�vi-Strauss schon vor langer Zeit gefordert hat, w�re 

-dazu ein erster Schritt:

-S

-S"Die Welt hat ohne den Menschen begonnen und wird ohne ihn enden. Die Institutionen, die Sitten und Gebr�uche, die 

-ich mein Leben lang gesammelt und zu verstehen versucht habe, sind die verg�nglichen Bl�ten einer Sch�pfung, im 

-Verh�ltnis zu der sie keinen Sinn besitzen; sie erlauben bestenfalls der Menschheit, ihre Rolle im Rahmen dieser 

-Sch�pfung zu spielen. Abgesehen davon, da� diese Rolle dem Menschen keinen unabh�ngigen Platz verschafft und 

-da� sein �berdies zum Scheitern verurteiltes Bem�hen darin besteht, sich vergeblich gegen den universalen Verfall zu 

-wehren, erscheint der Mensch selbst als Maschine - vollkommener vielleicht als die �brigen -, die an der Aufl�sung einer 

-urspr�nglichen Ordnung arbeitet und damit die organisierte Materie in einen Zustand der Tr�gheit versetzt, der eines 

-Tages endg�ltig sein wird. Seitdem der Mensch zu atmen und sich zu erhalten begonnen hat, seit der Entdeckung des 

-Feuers bis zur Erfindung der atomaren Vorrichtungen, hat er - au�er wenn er sich fortgepflanzt hat - nichts anderes getan 

-als Millionen von Strukturen zerst�rt, die niemals mehr integriert werden k�nnen ... Statt Anthropologie sollte es 

-Entropologie hei�en, der Name einer Disziplin, die sich damit besch�ftigt, den Proze� der Desintegration in seinen 

-h�chsten Erscheinungsformen zu untersuchen" (L�vi-Strauss 1970, 366f.).

-S

-SDie in diesem Band gesammelten Studien suchen die M�glickeit 

-einer solchen dialektischen Entropologie auszuloten. Dies 

-geschieht in einem eher indirekten Verfahren, das den neuerdings 

-so gern erhobenen apokalyptischen Tonfall so weit wie m�glich zu 

-temperieren bem�ht ist - nicht aus einer Skepsis gegen den 

-apokalyptischen Gedanken als solchen (f�r den die Kritiker in 

-diesem Buch gen�gend Belege finden werden), sondern aus 

-Abneigung gegen die wohlfeile Instrumentalisierung, die er in 

-der Regel erf�hrt. Ist von der Apokalypse die Rede, so selten 

-ohne den Verweis auf die Rettung, auf den neuen positiven 

-Zustand, der durch allerlei Patentrezepte herbeigef�hrt werden 

-soll: durch weniger Konsum und mehr Spiritualit�t, weniger 

-Wachstum und mehr Kommunikation mit dem Bruder Regenwurm: vom 

-Erhabenen zum L�cherlichen, man wei� es, ist nur ein Schritt. 

-Die Kritische Theorie hatte gute Gr�nde, als sie sich weigerte, 

-positiv zu werden und statt dessen darauf bestand, das Gemeinte 

-nur indirekt, auf dem Wege der Kritik, zur Sprache zu bringen.

-S

-SDie Kritik ist doppelgleisig angelegt. Auf der einen Seite 

-verteidigt sie die Idee einer Gesellschaft des Verschwindens 

-gegen�ber Konzeptionen, die den Proze� der Modernisierung 

-einseitig als Zivilisierung (Elias), als Disziplinierung 

-(Foucault) oder als funktionale Differenzierung (Luhmann) 

-darstellen.  Auf der anderen Seite greift sie verwandte 

-Intentionen auf und versucht sie weiterzuentwickeln: Adornos 

-Logik des Zerfalls oder Virilios These vom Nihilismus der 

-Geschwindigkeit. Hierzu geh�rt auch die Erinnerung an einen zu 

-Unrecht vergessenen Autor, der als einer der ersten Technik und 

-Entropie in Zusammenhang gebracht hat und deshalb als der 

-'eigentliche Vater der �kologischen Bewegung' (Mohler) 

-bezeichnet worden ist - Friedrich Georg J�nger. Das Zentrum, um 

-das die verschiedenen Studien kreisen, erschlie�t sich am 

-leichtesten �ber den Essay 'Technik und Wissenschaft als 

-Hierophanie'.

-S

-SPA

-SDie Entwicklungskurve der Zivilisation.

-SEine Auseinandersetzung mit Norbert Elias

-S

-S

-S

-S

-S

-S

-SDa� der historische Proze� nicht blo� aus isolierten Ereignissen 

-und Bruchst�cken besteht, sondern einen �bergreifenden Sinn zur 

-Erscheinung bringt, geh�rt zu den id�es directrices des 

-abendl�ndischen Denkens. Wurde dieser Sinn unter der 

-Vorherrschaft christlicher �berzeugungen lange Zeit als 

-Heilsgeschehen bestimmt, so r�ckte mit der Aufkl�rung der 

-Begriff der 'Zivilisation' in den Vordergrund. Mit ihm wurden 

-zwei verschiedene Vorstellungen zusammengebracht: zum einen der 

-Gedanke einer allm�hlichen Sittenverfeinerung - l'adoucissement 

-des moeurs im Sinne Mirabeaus des �lteren; zum andern der 

-Gedanke eines stufenweise sich vollziehenden geistigen und 

-materiellen Fortschritts, wie er etwa in Frankreich den 

-Entw�rfen Raynals und Condorcets, sp�ter den Theorien Saint-

-Simons, Comtes oder Guizots zugrundelag (Moras 1930). So sah es 

-auch die englische Sozialphilosophie, die, nachdem sie noch im 

-18. Jh. zwischen dem Fortschritt der H�flichkeit und 

-Zivilisation und demjenigen der kommerziellen K�nste 

-unterschieden hatte (Ferguson 1986, 366), im 19. Jh. beide 

-Linien zusammenzog und den Fortschritt der Zivilisation nunmehr 

-im �bergang von kriegerischen, durch Zwang integrierten 

-Gesellschaften zu industriell-gewerblichen Aggregaten sah, die 

-einem Zustand dauernden Friedens entgegenstrebten (Spencer 1887, 

-II, 124ff., 180). Nichts illustriert die �berzeugungskraft 

-dieser Vorstellung besser als die Tatsache, da� selbst ein Marx, 

-der die "tiefe Heuchelei der b�rgerlichen Zivilisation und die 

-von ihr nicht zu trennende Barbarei" brandmarkte (MEW 9, 225), 

-keine Schwierigkeiten hatte, vom "great civilizing influence of 

-capital" zu sprechen und als dessen Hauptmerkmal die Umwandlung 

-der Produktion in ein "System der allgemeinen N�tzlichkeit" 

-herauszustellen, "als dessen Tr�ger die Wissenschaft selbst so 

-gut erscheint wie alle physischen und geistigen Eigenschaften" 

-(MEW 42, 323).

-S

-SIm 20. Jh. ist der Chor der Skeptiker, die diese 

-Selbstbegl�ckw�nschung der Moderne nicht mehr akzeptieren, immer 

-lauter geworden. Die Bedenken richten sich, wie in anderen 

-Texten dieses Bandes deutlich wird, gegen die objektiven Aspekte 

-des sogenannten Zivilisationsprozesses, insbesondere gegen die 

-Vorstellung einer kumulativen Steigerung von Reichtum und 

-Ordnung. Sie richten sich aber auch, worauf im folgenden vor 

-allem der Akzent gelegt wird, auf die subjektiven Aspekte, die 

-Idee des perfectionn�ment de l'homme (Condorcet). Stand die 

-Kritische Theorie noch weitgehend allein, als sie in den 

-vierziger und f�nfziger Jahren im Verfall der Konventionen, im 

-Absterben des zeremoniellen Moments und im Niedergang von 

-H�flichkeit und Takt Indizien f�r den "Zerfallscharakter der 

-Zivilisation" ausmachte (vgl. Adorno, GS 4, 38ff.; ders. 1956, 

-87), so mehren sich heute die Stimmen, die darin nicht blo� den 

-Ausdruck einer elit�ren Kulturkritik sehen. So konstatiert 

-Richard Sennett eine allgemeine Tendenz zur Zunahme von 

-"Unzivilisiertheit", die sich in Distanzverlust, 

-Selbstbezogenheit und einer alle sozialen Beziehungen 

-�berwuchernden "Tyrannei der Intimit�t" manifestiere (Sennett 

-1983, 299). Neil Postman spricht vom "Verfall der civilit�" und 

-einer "allgemeinen Mi�achtung der f�r Zusammenk�nfte im 

-�ffentlichen Raum geltenden Regeln und Rituale" (Postman 1983, 

-151). In einem anderen vieldiskutierten Buch ist gar von einer 

-"sterbenden Zivilisation" die Rede, in welcher das Leben immer 

-barbarischer und kriegs�hnlicher werde (Lasch 1986, 261, 47). 

-Paul Virilio endlich meint: "Das fortschreitende Verschwinden 

-der H�flichkeit, die selber eine gespielte Aufnahme, einen 

-Ersatz der primitiven Gastfreundschaft darstellte, �u�ert sich 

-heute in einer virilen Form von Kontakt, die man 'Offenheit' 

-nennt, und mag letzten Endes zum gewohnheitsm��igen Austausch 

-schlechter Behandlung f�hren" (Virilio 1978, 37).

-S

-SOb diese Diagnosen richtig sind, wird sich sicher nur in 

-sorgf�ltigen empirischen Untersuchungen erweisen lassen. Bis 

-dahin aber, und vielleicht als Vorbereitung dazu, mag es 

-n�tzlich sein, sich mit der Exposition zu befassen, die der 

-Zivilisationsbegriff in der bislang gr�ndlichsten Studie zu 

-diesem Thema erfahren hat: Norbert Elias' Buch '�ber den Proze� 

-der Zivilisation'. Ich will im folgenden zun�chst die 

-wichtigsten Argumente dieses Buches skizzieren und dann einige 

-Einw�nde vorstellen, die sich heute, ein halbes Jahrhundert nach 

-Erscheinen der ersten Auflage, aufdr�ngen. Abschlie�end m�chte 

-ich die Frage er�rtern, ob der Zivilisationsbegriff in der ihm 

-von Elias verliehenen Fassung ein Konzept ist, in dem sich die 

-Problemlage der modernen Gesellschaft reflektieren l��t.

-S

-S

-S

-S

-S

-S

-AABI

-S

-S

-SElias' Untersuchung beginnt mit begriffsgeschichtlichen 

-Erw�gungen. Zivilisation, so der erste Befund, bedeutet im 

-deutschen Sprachraum etwas anderes als in Westeuropa, namentlich 

-Frankreich und England. W�hrend der Begriff dort als Bezeichnung 

-f�r den wirtschaftlichen, gesellschaftlichen, politischen und 

-geistigen Fortschritt insgesamt dient, hat er im Deutschen nur 

-einen eingeschr�nkten Inhalt. Zivilisation ist hier ein Wert 

-zweiten Ranges, eine Qualit�t, die sich lediglich auf das 

-�u�ere, die Oberfl�che des Daseins bezieht. Die Bildung des 

-Inneren dagegen, der Fortschritt auf geistigem und seelischem 

-Gebiet, wird mit dem Begriff 'Kultur' belegt. Was in anderen 

-L�ndern des Abendlands als einheitliche und kontinuierliche 

-Bewegung erscheint, zerf�llt damit in Deutschland in zwei 

-unterschiedliche Dimensionen, die sich zuweilen zum 

-antithetischen Gegensatz versch�rfen. Der Westen, lautet ein 

-wichtiger Glaubenssatz der deutschen Ideologie bis hin zu den 

-'Ideen von 1914', habe nur Zivilisation, wohingegen es die 

-Deutschen bis zur Kultur gebracht h�tten.

-S

-SDa� Elias sich daf�r entscheidet, die deutsche Version als 

-Ausnahme zu behandeln und nicht weiter zu verfolgen, h�ngt mit 

-seinen Vorstellungen �ber die in der gesellschaftlichen 

-Entwicklung zu bew�ltigenden Aufgaben zusammen. Diese 

-Vorstellungen sind deutlich von der Soziologie des 19. Jhs., 

-insbesondere von Comte und Spencer, beeinflu�t. Wie der letztere 

-sieht Elias die gesellschaftliche Entwicklung als Teil einer 

-allgemeinen Evolution, die neben der �berorganischen noch die 

-organische und unorganische Entwicklung umfa�t und durch das 

-Wechselspiel von Differenzierung und Integration vorangetrieben 

-wird. Wie der erstere identifiziert er die 

-Funktionsdifferenzierung mit der wirtschaftlichen Berufsteilung, 

-die koordinierenden und integrierenden Institutionen mit dem 

-Staat1. Eine Hierarchie dieser beiden Dimensionen kennt Elias 

-nicht. F�r ihn handelt es sich um prinzipiell gleichrangige 

-Erscheinungen, die jeweils unterschiedliche Aspekte ein und 

-desselben Substrats darstellen - der Gesellschaft. Da er indes 

-den Integrationsinstanzen die F�higkeit zuspricht, die 

-funktionsteiligen Prozesse "bis zu einem gewissen Grade (zu) 

-steuern" (1971, 47)2, verschiebt sich der Fokus seiner Theorie 

-stark auf die Integrationsebene, auf die Entstehung und 

-Entwicklung jener Institutionen, die �ber ein besonders hohes 

-Steuerungspotential verf�gen - die politischen Zentralorgane 

-bzw., wie Elias mit Weber formuliert: die Monopolorganisationen 

-physischer Gewaltsamkeit.

-S

-SIn dieser Vorentscheidung auf analytischer Ebene liegt die 

-Wurzel der regulativen Idee von Elias' Zivilisationstheorie, der 

-"Vermutung..., da� der Aufbau des 'zivilisierten' Verhaltens 

-aufs engste mit der Organisierung der abendl�ndischen 

-Gesellschaften in der Form von 'Staaten' zusammenh�ngt (I, 

-LXXVI). Je fortgeschrittener in einem bestimmten Gebiet die 

-Staatsbildung, desto fortgeschrittener auch der Proze� der 

-Zivilisation; je unentwickelter andererseits die 

-Zentralisierung, desto unentwickelter die Sitten, desto 

-unvollendeter "jene Nivellierung und Angleichung der 

-gesellschaftlichen Standarde (...), die f�r diesen ganzen 

-Zivilisationsproze� charakteristisch ist" (II, 433). 

- Deutschland, das seit dem sp�ten Mittelalter keinen Fortschritt 

-im Ausbau seiner zentralstaatlichen Institutionen mehr erlebte, 

-ist aus diesem Grund f�r die Untersuchung des 

-Zivilisationsprozesses weniger geeignet als etwa Frankreich, in 

-dem diese Institutionen eine kontinuierliche Verst�rkung 

-erfuhren3.

-S

-SDen Ausbau des Zentralstaates in Frankreich unterteilt Elias in 

-drei Etappen. Die erste Etappe f�llt zusammen mit der Bildung 

-ritterlicher H�fe zu Beginn des Hochmittelalters, welche die bis 

-dahin in der weltlichen Herrenschicht dominierende Integration 

-qua Kampf durch eine friedlichere und best�ndigere Integration 

-ersetzen. Auf diese 'ritterlich-h�fische' Ordnung folgt im 16. 

-Jh. die zweite Etappe, die 'h�fisch-absolutistische 

-Gesellschaft', die wohl im sozialen Aufbau noch an die 

-st�ndische Gliederung des Mittelalters ankn�pft, auf politischer 

-Ebene aber insofern eine �nderung herbeif�hrt, als sie die 

-physische Gewalt in einer Monopolinstanz konzentriert. Die alte 

-Kriegerelite wird nunmehr entmilitarisiert und in einen Hofadel 

-verwandelt, was wiederum auf sozialer und wirtschaftlicher Ebene 

-die Bildung l�ngerer und komplexerer Interdependenzketten 

-erm�glicht. Die funktionale Differenzierung beschleunigt sich 

-und l��t neue, auf Beruf und produktiver Leistung beruhende 

-Eliten entstehen, die ihrerseits nach Partizipation an den 

-Entscheidungen des obersten Koordinations- und 

-Regulierungsorgans streben.

-S

-SAus dieser Entwicklung geht - nach der Zwischenstufe einer 

-'erweiterten h�fischen Gesellschaft', in der h�fisch-

-aristokratische und h�fisch-b�rgerliche Kreise miteinander 

-verkehren - das dritte und bisher letzte Stadium hervor: der 

-b�rgerliche Nationalstaat. In ihm erreichen die Funktionsteilung 

-und die allgemeine Interdependenz eine bis dahin unvorstellbare 

-Dichte. Zugleich ist die Vernetzung soweit vorangeschritten, da� 

-die private Monopolisierung der mit der Zentralposition 

-verbundenen Chancen nicht l�nger perpetuierbar ist. Das 

-Privatmonopol einzelner, schreibt Elias, vergesellschaftet sich 

-und wird "zu einer Funktion des interdependenten 

-Menschengeflechts als eines Ganzen", zu einem "�ffentlichen" 

-Monopol (II, 157). Dar�ber hinaus zeichnen sich bereits Ans�tze 

-zu einer vierten, endg�ltig letzten Phase der Gesamtentwicklung 

-ab:

-S

-S"Man sieht die ersten Umrisse eines erdumfassenden Spannungssystems von 

-Staatenb�nden, von �berstaatlichen Einheiten verschiedener Art, Vorspiele von 

-Ausscheidungs- und Vormachtk�mpfen �ber die ganze Erde hin, Voraussetzung f�r 

-die Bildung eines irdischen Gewaltmonopols, eines politischen 

-Zentralinstituts der Erde und damit auch f�r deren Pazifizierung" (II, 452).

-S

-SDen hier nur knapp skizzierten Stadien der Zentralisierung 

-ordnet Elias nun verschiedene Verhaltensmodelle oder -schemata 

-zu, die gleichsam den subjektiven Niederschlag dieses Prozesses 

-verk�rpern. Der polyzentrischen Struktur des Mittelalters 

-entspricht das Schema der courtoisie, das sich an den gro�en 

-ritterlichen Feudalh�fen bildet (I, 79, 136; II, 96ff., 109ff., 

-354ff.). Seine Merkmale sind: eine gewisse M��igung der Affekte, 

-eine, freilich noch sehr begrenzte, Aufwertung derjenigen, die 

-nicht �ber Gewaltmittel verf�gen (vor allem der Frauen), die 

-Ausbildung h�fischer Manieren, die das gesellige Verhalten bei 

-Tisch, beim Spiel oder im Turnier regeln, die Orientierung an 

-ritterlichen Tugenden, wie sie vor allem von der Kirche (miles 

-christianus-Ideal), aber auch von der weltlichen Dichtung 

-propagiert werden (Artusepik)4.

-S

-SW�hrend dieses Schema den Individuen jedoch noch �u�erlich 

-bleibt und au�erhalb des Interaktionszentrums 'Hof' rasch seine 

-Wirkung verliert, verdichtet sich die soziale Kontrolle mit dem 

-�bergang zu einer monozentrischen, auf dem Gewaltmonopol 

-beruhenden Konfiguration. Anstelle der blo� intermittierenden, 

-nur einen kleinen Teil der ritterlichen Existenz erfassenden 

-courtoisie tritt jetzt ein neues Schema der Affektregulierung, 

-das Elias im Anschlu� an die Manierenschriften von Erasmus, 

-della Casa, La Salle u.a. als civilit� bezeichnet (I, 65ff., 

-89f., 136f.). Der durch die politische, soziale und 

-wirtschaftliche Entwicklung in seiner Herrschaftsposition 

-ersch�tterte Adel versucht in dieser Phase, seinen Platz an der 

-Spitze der gesellschaftlichen Hierarchie durch einen verst�rkten 

-Einsatz von Distinktionsstrategien zu behaupten. Ein strenger 

-Verhaltenscode entsteht, der mehr und mehr den gesamten Habitus 

-umfa�t. Die h�fische Interaktion, vor allem das Essen und die 

-Konversation, wird stark ritualisiert, wie Elias anschaulich an 

-der Geschichte des Messer- und Gabelrituals demonstriert. Die 

-Kleidung wird bewu�t als Unterscheidungs- und Prestigemittel 

-eingesetzt, ebenso die Gestik und der sprachliche Ausdruck. 

-Fragen des guten Benehmens und des richtigen Geschmacks werden 

-zu Fragen, die �ber den Platz in der Rangordnung entscheiden 

-k�nnen; Takt, Delikatesse und Stil zu Formen, von denen das 

-soziale �berleben abh�ngen kann. Selbst- und Fremdbeobachtung 

-erreichen eine bis dahin unbekannte Intensit�t, die 

-psychologische Kriegf�hrung wird zur unentbehrlichen Waffe in 

-der Prestigekonkurrenz.

-S

-SAuch dieses neue, im Vergleich zur courtoisie ungleich strengere Schema der Affektmodellierung ist jedoch nach Elias in 

-der Psychostruktur noch nicht sehr fest verankert. Die Tabus und Rituale des h�fischen Lebens treten dem einzelnen wohl 

-als klar umrissene Imperative entgegen, die ihn zu einer permanenten �berwachung seiner Affekte und Triebregungen 

-veranlassen. Diese aber erfolgt haupts�chlich �ber eine bewu�te Selbststeuerung, psychoanalytisch gesprochen �ber 

-Ich-Leistungen (Vowinckel 1983, 196). Der Hofmann mu�, wie bei Castiglione nachzulesen, seine unterschiedlichen 

-F�higkeiten so ausbalancieren, da� er zu einer Art vollkommenen Gesamtkunstwerks wird; er mu�, wie bei Gracian, 

-seine Leidenschaften bewu�t domestizieren, jedoch nicht, um sie abzut�ten, sondern um sie im geeignetsten Moment 

-zu befriedigen (ebd. 95). Die soziale Kontrolle vollzieht sich deshalb noch prim�r �ber die Vermittlung des Ichs, das sich 

-den Zw�ngen der sozialen Umwelt anpa�t, aber keineswegs v�llig ausliefert. Sie bleibt dem einzelnen �u�erlich, wirkt 

-"noch nicht als automatisch funktionierender Selbstzwang, als Gewohnheit, die bis zu gewissen Grenzen auch 

-funktioniert, wenn der Mensch allein ist; sondern man legt sich hier zun�chst immer jemandem andern gegen�ber, also 

-bewu�ter aus gesellschaftlichen Gr�nden, Triebverzicht und Zur�ckhaltung auf. Und die Art der Zur�ckhaltung, wie ihr 

-Ma� entsprechen hier der sozialen Stellung dessen oder derer, denen gegen�ber er sie sich auferlegt" (I, 186). Im 

-Stadium der civilit� ist die gesellschaftliche Verflechtung schon so stark, um die einzelnen zur Anpassung zu zwingen, 

-aber noch nicht stark genug, um die Einzelheit als solche zu negieren und in einen 'Verkehrsknotenpunkt des 

-Allgemeinen' (Horkheimer/Adorno) zu verwandeln.

-S

-SWesentlich weiter in dieser Richtung geht das Schema der 

-civilisation, das in der zweiten H�lfte des 18. Jhs. die 

-civilit� abl�st (I, 47ff.). Getragen von den Reformgruppen des 

-Ancien R�gime - dem Beamtentum und den Spitzen des B�rgertums - 

-zielt dieses Schema auf eine Universalisierung und 

-Stabilisierung der mit der civilit� bereits erreichten 

-Sittenverfeinerung und Rationalit�t. Die Universalisierung 

-impliziert die Ausdehnung der Vernunft auf die Gesetze und 

-Institutionen des Landes sowie auf die Sitten der gesamten 

-Nation. Elias spricht von einer Einschmelzung von 

-Verhaltensweisen der funktional oberen Schichten in das der 

-aufsteigenden unteren und r�ckt diesen Vorgang in die N�he von 

-Kolonisationsprozessen. So wie im 19. Jh. die abendl�ndischen 

-Nationen die au�ereurop�ische Welt unterworfen und okzidentalen 

-Denk- und Verhaltensmustern assimiliert h�tten, seien zuvor im 

-Abendland selbst die Unter- und Mittelschichten den Standards 

-der Oberschichten unterworfen und assimiliert worden (II, 341, 

-346, 350, 420f.)

-S

-SDie Stabilisierung impliziert die Verfestigung der zivilisierten 

-Verhaltensformen zu einem 'Panzer', der die ganze Pers�nlichkeit 

-und jede ihrer �u�erungen umschlie�t (I, 332). Dies wird durch 

-eine bereits in der fr�hesten Kindheit einsetzende 

-Konditionierung erreicht, die darauf hinarbeitet, da� sich im 

-einzelnen "gleichsam als eine Relaisstation der 

-gesellschaftlichen Standarde, eine automatische 

-Selbst�berwachung der Triebe im Sinne der jeweiligen 

-gesellschafts�blichen Schemata und Modelle, eine 'Vernunft', ein 

-differenziertes und stabileres '�ber-Ich' herausbildet, und da� 

-ein Teil der zur�ckgehaltenen Triebregungen und Neigungen ihm 

-�berhaupt nicht mehr unmittelbar zum Bewu�tsein kommt" (II, 

-329). In diesem Sinne erf�llt das �ber-Ich in der b�rgerlichen 

-Gesellschaft die Steuerungsfunktionen, die in der h�fischen 

-Gesellschaft noch dem Ich vorbehalten waren.

-S

-SElias �bersieht nicht die Unterschiede zwischen diesen beiden 

-Formen der Steuerung. Im Rahmen seiner Konstruktion eines 

-kontinuierlich verlaufenden Zivilisationsprozesses interpretiert 

-er ihre Abfolge jedoch prim�r als eine Steigerung der sozialen 

-und psychischen Integration durch Tieferlegung der 

-Kontrollmechanismen. Jene Zw�nge, die im Schema der courtoisie 

-und der civilit� vielfach nur als �u�ere Schranke, als 

-Fremdzwang wirkten, werden jetzt verinnerlicht, mit der 

-Perspektive, da� dadurch der Fremdzwang zunehmend entbehrlich 

-wird und irgendwann einmal ganz verschwinden kann (1983, 123f.). 

-Wie diese, freilich erst nach Vollendung der Pazifizierung auf 

-Weltebene denkbare, neue Form der Selbststeuerung beschaffen 

-sein k�nnte, verr�t Elias nicht. Da� die Entwicklung in diese 

-Richtung geht, erscheint ihm aber als ebenso ausgemacht wie die 

-Tendenz zur �berwindung des b�rgerlichen Nationalstaates (1987, 

-224f.). Sind einmal die zwischenstaatlichen Spannungen 

-beseitigt, so die an Kants Vision vom 'Ewigen Frieden' 

-erinnernde Schlu�passage des Zivilisationsbuches, kann sich die 

-Regelung der sozialen Beziehungen auf das rein sachlich 

-Notwendige beschr�nken, und k�nnen sich die Spannungen und 

-Widerspr�che auch in den Menschen selbst mildern. Dann erst 

-braucht es nicht mehr die Ausnahme, sondern

-S

-S"kann es die Regel sein, da� der einzelne Mensch jenes optimale Gleichgewicht seiner Seele findet, das wir so oft mit 

-gro�en Worten, wie 'Gl�ck' und 'Freiheit' beschw�ren: ein dauerhaftes Gleichgewicht oder gar den Einklang zwischen 

-seinen gesellschaftlichen Aufgaben, zwischen den gesamten Anforderungen seiner sozialen Existenz auf der einen Seite 

-und seinen pers�nlichen Neigungen und Bed�rfnissen auf der anderen" (II, 454. Hervorh. i.O. gestr.).

-S

-SDie gro�e Linie ist damit klar. Zivilisation ist f�r Elias ein 

-Proze�, in dessen Verlauf sich immer strengere Schemata der 

-Selbstkontrolle herausbilden und sowohl immer weitere 

-Bev�lkerungskreise ergreifen als auch psychostrukturell immer 

-tiefer gelagert werden. Dieser Proze� ist die subjektive Seite 

-eines gesamtgesellschaftlichen Differenzierungs- und 

-Integrationsvorgangs, der zu einer immer perfekteren Kontrolle 

-der Gesellschaft �ber die Naturbedingungen ihres �berlebens wie 

-�ber die Bedingungen des sozialen Zusammenlebens f�hrt5. Elias 

-verschweigt nicht den Preis, den die Individuen daf�r zahlen 

-m�ssen: die permanente Konditionierung, die Verdr�ngung und 

-An�sthesierung von Triebregungen, den Aufbau von inneren 

-�ngsten, die Wahrscheinlichkeit der neurotischen Erkrankung. 

-Insgesamt sieht er aber diese Kosten mehr als aufgewogen durch 

-die Distanzierungs- und Steuerungsgewinne, die dem einzelnen 

-sowohl als der Gesellschaft in diesem Proze� zuwachsen. Etwas 

-vereinfacht l��t sich dieser Proze� in dem folgenden Schema 

-darstellen:

-S

-S

-S�����������������������������������������������������������

-S

-AABSoziogenese   Ritterlich   H�fisch-   B�rgerlich   ' Welt'-

-              h�fische     absolu-    indu-         gesell-

-              Gesell-      tistische  strielle      schaft

-              schaft       Gesell-    Gesell-

-                           schaft     schaft

-

-�����������������������������������������������������������

-

-Steuerungs-   Feudalhof    Absoluti-  National-   Weltstaat

-Zentrum                    stischer   Staat

-                           Staat

-�����������������������������������������������������������

-

-Verhaltens-   courtoisie   civilit�   civilisa-   Weltzivi-

-Code                                  tion        lisation

-�����������������������������������������������������������

-

-Psychogenese  Es/Ich       Ich-Domi-  �ber-Ich-   Gleichge-

-              (undiffe-    nanz       Dominanz    wicht von

-               ziert)                             Ich, Es,

-                                                  �ber-Ich

-�����������������������������������������������������������

-

-PA

-
II


-S

-S

-AAF	1. Auch der voreingenommene Betrachter wird zugestehen, da� Elias' 

-Rekonstruktion des Zivilisationsprozesses gro�e St�rken hat. Der 

-figurationssoziologische Ansatz tr�gt politischen, �konomischen und 

-psychologischen Faktoren gleicherma�en Rechnung und gelangt damit zu 

-einem breit angelegten Panorama der zivilisatorischen Entwicklung. Die 

-konstitutive Rolle der H�fe in der ritterlich-feudalen und 

-absolutistischen Gesellschaft wird einleuchtend begr�ndet, die Bildung 

-von Gewalt- und Abgabenmonopolen schl�ssig nachgezeichnet; lediglich 

-die Rolle der Religion wird zu wenig beachtet, was m�glicherweise bei 

-vergleichenden Untersuchungen ein Nachteil sein k�nnte. Zu den 

-Glanzst�cken des Buches geh�rt die Herausarbeitung des Parallelismus 

-von Soziogenese und Psychogenese, mit der gleichsam eine Br�cke 

-zwischen der Herrschaftssoziologie Webers, der Differenzierungstheorie 

-in der Tradition Durkheims und Spencers und der Freudschen 

-Psychoanalyse geschlagen wird.

-

-	Dennoch dr�ngen sich bei einer genaueren Betrachtung drei Einw�nde 

-auf, die zwar aus unterschiedlichen theoretischen Zusammenh�ngen 

-stammen, gleichwohl miteinander kompatibel sind6.

-

-	Der erste Einwand ergibt sich aus der dialektischen Theorie und 

-richtet sich gegen den soziogenetischen Strang der 

-Zivilisationstheorie. Elias, so erscheint es aus dieser Sicht, hat nur 

-eine unzureichende Vorstellung von den Integrationsproblemen, die mit 

-einem bestimmten Grad der Funktionsdifferenzierung auftreten. Seine 

-These, da� die Entwicklung zur modernen Gesellschaft von einer immer 

-"strafferen Regulierung und �berwachung des gesamten 

-gesellschaftlichen Verkehrs von stabilen Zentralen" aus begleitet sei 

-(II, 227), �bersieht, da� ein durch kapitalistische Warenproduktion 

-bestimmtes System nicht direkt durch die Vorgaben eines planenden 

-Zentrums, sondern nur indirekt durch die Vermittlung des Marktes 

-gesteuert wird. Das, was ihre Arbeiten gesellschaftlich gelten, 

-erfahren die - individuellen oder korporativen - Produzenten immer nur 

-post festum, in der Best�tigung ihrer Produkte als Wertgr��en, die 

-erst nach Abschlu� der Produktion, im Austausch, m�glich ist. Hier 

-jedoch gilt,

-

-	"da� die unabh�ngig voneinander betriebenen, aber als naturw�chsige Glieder der gesellschaftlichen Teilung der Arbeit 

-allseitig voneinander abh�ngigen Privatarbeiten fortw�hrend auf ihr gesellschaftlich proportionelles Ma� reduziert werden, weil 

-sich in den zuf�lligen und stets schwankenden Austauschverh�ltnissen ihrer Produkte die zu deren Produktion gesellschaftlich 

-notwendige Arbeitszeit als regelndes Naturgesetz gewaltsam durchsetzt, wie etwa das Gesetz der Schwere, wenn einem das Haus 

-�ber dem Kopf zusammenpurzelt" (Marx, MEW 23, 89).

-AAF

-	Unter diesen Umst�nden ist es eine sehr verk�rzte 

-Betrachtungsweise, wenn man, wie Elias, Unberechenbarkeit und Willk�r 

-prim�r in der physischen Gewaltsamkeit lokalisiert und aus der 

-unbestreitbaren Tatsache ihrer Kasernierung im modernen Staat auf eine 

-Zunahme der gesamtgesellschaftlichen Stabilit�t und Kalkulierbarkeit 

-schlie�t. Auch und gerade nach der Bildung von Gewaltmonopolen auf dem 

-Territorium einzelner 'Staatsgesellschaften' bleibt mit dem nationalen 

-Binnenmarkt und dem Weltmarkt eine Dimension des Zufalls und der 

-Anarchie, die sich individuellen Handlungskalk�len grunds�tzlich 

-entzieht. Und obschon dies keineswegs bedeutet, da� es die b�rgerlich-

-industrielle Gesellschaft nicht zu Einheit und Integration zu bringen 

-vermag, hei�t es doch immerhin, da� sich diese Einheit und Integration 

-"nur a posteriori als innre, stumme, im Barometerwechsel der 

-Marktpreise wahrnehmbare, die regellose Willk�r der Warenproduzenten 

-�berw�ltigende Naturnotwendigkeit" durchsetzt. Elias hat recht, wenn 

-er darauf hinweist, da� die Kasernierung der politischen Gewalt einen 

-wichtigen Schritt zur �berwindung des Naturzustands darstellt. Er 

-vergi�t jedoch hinzuzuf�gen, da� sich dieser Naturzustand unter 

-b�rgerlichen Produktionsbedingungen in anderer Form wiederherstellt: 

-gew�hrleistet doch die Konkurrenz die Existenz der Individuen nur auf 

-die Weise, "wie auch im Tierreich das bellum omnium contra omnes die 

-Existenzbedingungen aller Arten mehr oder minder erh�lt" (ebd. 377).

-

-	Diese �berlegung zwingt dazu, einen der Eckpfeiler von Elias' 

-Konstruktion zu problematisieren: die Idee eines Kontinuums der 

-Vergesellschaftung, das sich von der ritterlich-h�fischen �ber die 

-h�fisch-absolutistische bis hin zur b�rgerlich-industriellen 

-Gesellschaft erstreckt. Wohl l��t sich die Entwicklung von den 

-feudalen Minneh�fen zu den Residenzen des Barockzeitalters unter dem 

-Blickwinkel einer Verdichtung und Intensivierung h�fischen Lebens 

-begreifen, und kann die Ausbildung einer 'guten Gesellschaft' verfolgt 

-werden, deren Ausl�ufer bis in die b�rgerlichen Salons des 19. Jhs. 

-reichen. Diese Art der sozialen Verkn�pfung, die im wesentlichen auf 

-Interaktion, d.h. auf Kommunikation unter Anwesenden beruht, mu� indes 

-strikt von dem Vergesellschaftungsmodus getrennt werden, der f�r eine 

-entfaltete Marktgesellschaft typisch ist. Vergesellschaftung �ber den 

-Markt ist eine paradoxe Form von Vergesellschaftung. Sie erzeugt auf 

-der einen Seite, wie Elias richtig gesehen hat, ein hochkomplexes 

-System von Interdependenzen, in dem die Individuen so stark vernetzt 

-sind wie niemals zuvor in der Geschichte. Auf der anderen Seite aber 

-treibt sie durch die Forcierung der Konkurrenz und durch die 

-Universalisierung der b�rgerlichen Rechtsprinzipien den 

-Vereinzelungsproze� in einer historisch ebenfalls beispiellosen Weise 

-voran. Markt, das kann man nicht nachdr�cklich genug hervorheben, 

-aggregiert nicht nur, er disaggregiert auch; schafft nicht nur neue 

-Verflechtungen, sondern negiert immer auch die Verflechtungen, die er 

-selbst erzeugt hat.

-

-	Das l��t sich bereits am Schicksal der kleinsten sozialen Einheit 

-zeigen, in der Elias mit Recht das Konditionierungsinstrument der 

-b�rgerlichen Gesellschaft par excellence sieht: der Kleinfamilie. 

-Selbst ein Produkt des modernen Differenzierungsprozesses, in dessen 

-Verlauf die produktive Lohnarbeit vorrangig den m�nnlichen 

-Erwachsenen, die nichtproduktive Subsistenzarbeit einschlie�lich der 

-Kindererziehung dagegen den Frauen zugewiesen wurde, befindet sich 

-dieser Familientypus heute durch die rechtliche und zunehmend auch 

-faktische Gleichstellung der Frauen in einer fortschreitenden Erosion. 

-Die Individuen werden aus den bis dahin g�ltigen, quasist�ndischen 

-Vorgaben des Geschlechts herausgel�st und gezwungen, sich selbst zum 

-Zentrum ihres eigenen Lebens zu machen. Die f�r die Moderne typische 

-Temporalisierung erfa�t auch die Ehe und unterwirft sie den Rhythmen 

-der 'seriellen Monogamie' (Shorter). Die Familie wird zur 

-'Verhandlungsfamilie auf Zeit' (Beck), deren Mitglieder einen 

-st�ndigen Kampf um den Ausgleich zwischen beruflichen und emotionalen 

-Interessen ausfechten m�ssen. Die Fragmentierung und Atomisierung 

-ergreift damit unwiderruflich auch jenen Bereich, der noch dem fr�hen, 

-puritanischen B�rgertum als ein so sicheres Fundament gegolten hatte, 

-da� es von ihm her die gesamte Gesellschaft erneuern zu k�nnen 

-geglaubt hatte.

-

-	"In dem zu Ende gedachten Marktmodell der Moderne wird die familien- und ehelose Gesellschaft unterstellt. Jeder mu� 

-selbst�ndig, frei f�r die Erfordernisse des Marktes sein, um seine �konomische Existenz zu sichern. Das Marktsubjekt ist in letzter 

-Konsequenz das alleinstehende, nicht partnerschafts-, ehe- oder familien'behinderte' Individuum. Entsprechend ist die 

-durchgesetzte Marktgesellschaft auch eine kinderlose Gesellschaft - es sei denn, die Kinder wachsen bei mobilen, 

-alleinerziehenden V�tern und M�ttern auf" (Beck 1986, 191).

-AAF

-	Man mu� nur einen Blick auf die Geburtenrate in der Bundesrepublik 

-werfen, um sich vom Realit�tsgehalt dieser �berlegungen zu �berzeugen.

-

-	�hnliche Dekompositionserscheinungen zeigen sich auch an 

-komplexeren sozialen Aggregaten, die einmal die Struktur der 

-b�rgerlichen Industriegesellschaft pr�gten. Insbesondere der 

-Klassenbegriff, der sich noch im 19. Jh. b�rgerlichen und 

-sozialistischen Theoretikern gleicherma�en aufdr�ngte, hat in den 

-fortgeschrittenen kapitalistischen L�ndern seine Bedeutung f�r die 

-Bildung kollektiver Identit�ten fast v�llig verloren. "Der 

-unerme�liche Druck der Herrschaft", so hat Adorno dies bereits vor 

-mehr als vierzig Jahren formuliert, "hat die Massen so dissoziiert, 

-da� noch die negative Einheit des Unterdr�cktseins zerrissen wird, die 

-im neunzehnten Jahrhundert sie zur Klasse macht" (Adorno, GS 8,377). 

-Nicht da� der Gegenstand des Begriffs - die objektive B�ndelung von 

-Ungleichverteilungen - damit verschwunden w�re: soziale Ungleichheiten 

-haben nicht ab-, sondern zugenommen. Aber die Aufl�sung 

-klassenspezifischer Lebensformen durch die Erh�hung des 

-gesamtgesellschaftlichen Konsumniveaus, der R�ckgang des 

-Besch�ftigtenanteils im industriellen Sektor, der - in den USA 

-besonders drastische - Bedeutungsverlust der Gewerkschaften, die 

-allgemeine Schrumpfung der 'Erwerbsarbeitsgesellschaft' (Beck) in den 

-hochindustrialisierten L�ndern, die Bew�ltigung der 

-Massenarbeitslosigkeit in Form von Unterbesch�ftigung und 

-lebensphasenspezifischer Verteilung der knapper gewordenen Lohnarbeit 

-- dies alles hat zu einer Erosion der im Klassenbegriff immer 

-mitgedachten kollektiven Identit�t gef�hrt, durch welche die 

-Individuen in zunehmendem Ma�e auf sich selbst zur�ckgeworfen werden. 

-Soziale Klassen, urteilt Luhmann zutreffend, sind heute Schichten, 

-"die darauf verzichten m�ssen, Interaktion zu regulieren" (Luhmann 

-1985c, 131; zur Diskussion �ber den Klassenbegriff vgl. auch Ritsert 

-1987).

-

-	Vielleicht mu� man noch einen Schritt weitergehen und von einer 

-Erosion der f�r die soziale Identit�tsbildung konstitutiven Sph�re der 

-�ffentlichkeit schlechthin sprechen. F�r Elias steht eine derartige 

-M�glichkeit ganz au�er Betracht, obwohl der Verfall der aus dem 19. 

-Jh. �berkommenen Formen von �ffentlichkeit zu den Kardinalthemen der 

-Weimarer Republik geh�rte (Schmitt 1979a): der die Bildung von 

-Gewaltmonopolen begleitende Proze� der sozialen Verflechtung macht es 

-der Zivilisationstheorie zufolge an einem bestimmten Punkt der 

-Entwicklung unausweichlich, die privaten Verf�gungschancen �ber die 

-politischen und wirtschaftlichen Apparate aufzuheben und die 

-Privatmononopole in �ffentliche Monopole umzuwandeln (II, 148ff., 

-438ff.). Aus heutiger Sicht ist die Moderne jedoch nicht nur durch 

-eine Erweiterung des �ffentlichen auf Kosten des Privaten 

-gekennzeichnet, sondern ebenso durch eine Privatisierung des 

-�ffentlichen, durch die wesentliche Merkmale von �ffentlichkeit 

-zerst�rt werden. Dies gilt, worauf schon Habermas hingewiesen hat, f�r 

-den Aufstieg der Verb�nde und der Massenmedien, die die kritische 

-Publizit�t durch eine manipulativ erzeugte verdr�ngen (Habermas 1968). 

-Es gilt aber auch in dem umfassenderen Sinne einer �berlagerung und 

-Modifizierung spezifisch �ffentlicher Denk- und Verhaltensmodelle 

-durch die private Vorstellungswelt, wie sie Richard Sennett in seinem 

-Buch �ber das Verschwinden des Public Man darstellt. Die moderne 

-Gesellschaft erscheint danach nicht als eine zivilisierte, durch 

-Selbstdistanz und rationale Interessenverfolgung bestimmte Vereinigung 

-von Menschen, sondern im Gegenteil als ein Ensemble 'destruktiver 

-Gemeinschaften', in denen manche sogar eine Wiederkehr der 

-Stammesverb�nde zu entdecken glauben7.In der 'intimen Gesellschaft' 

-der Gegenwart, so Sennett, haben die Menschen die F�higkeit verloren, 

-�ffentlich, d.h. unter Absehung von ihrer je besonderen Person, zu 

-handeln. Die soziale Interaktion schrumpft zu einem blo�en Medium des 

-Selbstausdrucks und der Selbstvergewisserung, die Aktivit�t zu einer 

-nicht endenden Suche nach narzi�tischen Gratifikationen, die sich 

-nicht zuletzt im Streben nach Identifikation mit grandiosen 

-'Kollektivpers�nlichkeiten' realisiert (Sennett 1983, 251ff.). Auch 

-wenn Sennetts Ursachenerforschung mit dem Hinweis auf Erscheinungen 

-wie S�kularismus und Symbolismus etwas bla� ausf�llt und in ihren 

-historischen Partien nicht durchweg zu �berzeugen vermag, sollte die 

-Erfahrung mit den Massenbewegungen dieses Jahrhunderts Anla� genug 

-sein, seine Hypothesen nicht auf die leichte Schulter zu nehmen8.

-

-	Die Entwicklung der modernen Gesellschaft, dies kann als Res�mee 

-des 'dialektischen' Einwands gegen die Zivilisationstheorie 

-festgehalten werden, l��t sich nicht einfach unter dem Gesichtspunkt 

-einer st�ndigen Ausdehnung der sozialen Verflechtung begreifen, die 

-Konkurrenz nicht blo� als Medium, das die Bildung immer umfassenderer 

-und h�herstufiger Aggregate vorantreibt. Vielmehr ist auch das 

-Gegenteil zu beobachten. Soziale Verkn�pfungen, die mit der 

-b�rgerlichen Gesellschaft entstanden sind, werden dekomponiert, 

-Solidarit�tsbeziehungen ausged�nnt oder ganz gesprengt. 

-Marktvergesellschaftung bedeutet Steigerung der Interdependenz und 

-Atomisierung des Sozialen, Vernetzung und Negation aller Bindungen - 

-asoziale Sozialit�t. Sie forciert die Differenzierung und zerst�rt 

-doch zugleich durch die universale Vergleichbarkeit aller Arbeiten im 

-Tauschwert die Bedingungen der M�glichkeit von Differenz. Sie erzwingt 

-eine immer dichter werdende Integration der Gesellschaft und 

-verhindert doch, da� daraus ein gesellschaftliches Subjekt entsteht. 

-Die Integration vollzieht sich hinter dem R�cken der handelnden 

-Individuen und macht sich in einer Form geltend, die unmittelbar 

-betrachtet als das Gegenteil aller Integration erscheint. Durch ihre 

-einseitige Fixierung auf Synthese, die Regressionen zwar nicht 

-ausschlie�t, aber eher als zufalls- denn als systemgeneriert versteht 

-(1987, 184), verstellt sich die Zivilisationstheorie die Einsicht in 

-den Umstand, da� die Logik der Vergesellschaftung auch eine 'Logik des 

-Zerfalls' (Adorno) ist. Sie f�llt damit noch hinter den 

-Reflexionsstand der �lteren Soziologie von Comte bis Durkheim zur�ck, 

-der bei allem Vertrauen in die Integrationskraft des Staates oder die 

-solidarit�tsstiftenden Wirkungen der Arbeitsteilung die negative Seite 

-der funktionalen Differenzierung nie ganz aus dem Blickfeld geriet. 

-Bedenkt man, da� '�ber den Proze� der Zivilisation' in unmittelbarer 

-Zeitgenossenschaft mit der gr��ten Krise der modernen 

-Weltwirtschaftsordnung entstand, kann man sich �ber diesen 

-Reflexionsverlust nicht genug wundern.

-

-

-

-	2. Diese Kritik wird durch den zweiten Einwand erh�rtet, der sich 

-aus dem Gang der psychoanalytischen Theoriebildung ableiten l��t. Die 

-Integration Freudscher Begriffe, insbesondere des Strukturmodells des 

-psychischen Apparats, geh�rt zweifellos zu den starken Seiten der 

-Zivilisationstheorie, erm�glicht sie es doch Elias, auf 

-psychogenetischer Ebene die Unterschiede zwischen b�rgerlichen und 

-vorb�rgerlichen Formen weitaus genauer zu erfassen, als es ihm auf 

-soziogenetischer Ebene gelingt. So arbeitet Elias pr�zise den Wechsel 

-in der Konditionierungsinstanz heraus - den �bergang von der 

-�ffentlich-h�fischen zur privat-familialen Form der 

-Affektmodellierung. So erkennt er richtig den Wechsel in der 

-Konditionierungsmethode - die Umwandlung von Fremdzwang in Selbstzwang 

-via Verinnerlichung und Identifikation. Und so vermag er schlie�lich 

-auch deutlich zu machen, zu welch neuartigem Ergebnis diese 

-Ver�nderungen f�hren: einem Sozialcharakter, der durch eine bisher 

-nicht dagewesene Differenzierung zwischen Ich- und �ber-Ich-Funktionen 

-auf der einen und Triebfunktionen auf der anderen Seite gekennzeichnet 

-ist (vgl. II, 390f.; 1987, 85).

-

-	Diese Einsichten f�hren Elias jedoch nicht zu einer Revision 

-seiner These vom zivilisatorischen Kontinuum. Im Gegenteil. Wie der 

-b�rgerliche Nationalstaat ihm nur als Steigerungsform der mit dem 

-Absolutismus bereits erreichten Zentralisierung gilt, so erscheint ihm 

-auch das b�rgerliche Schema der Affektregulierung letztlich nur als 

-Fortf�hrung und Verdichtung des h�fischen Schemas, was nicht nur in 

-expliziten Formulierungen, sondern weit mehr noch stilistisch in der 

-h�ufigen Verwendung des Komparativs seinen Ausdruck findet: so etwa, 

-wenn Elias vom "�bergang zu einem 'rationaleren' Verhalten und Denken, 

-ebenso wie (dem) zu einer st�rkeren Selbstkontrolle" spricht (II, 

-394), wenn er den "Zwang zu einer differenzierteren 

-Selbstdisziplinierung, zu einer festeren �ber-Ich-Bildung" heraushebt 

-(II, 351), die Ausbildung einer "stabilere(n), zum guten Teil 

-automatisch arbeitende(n) Selbstkontrollapparatur" vermerkt (II, 320) 

-oder die Durchsetzung eines "affektneutraleren" Gesamtverhaltens 

-behauptet (II, 373f.). Gewi�: der b�rgerliche Sozialcharakter ist 

-anders als der aristokratische. Aber f�r Elias ist er dies vor allem 

-im Sinne eines Mehr an Kontroll- und Steuerungskapazit�ten, welche im 

-aristokratischen Charakter in nuce bereits angelegt waren. Und er 

-besitzt dieses Mehr haupts�chlich deshalb, weil die b�rgerliche, 

-familial vermittelte Erziehung einen erfolgreichen Weg gefunden hat, 

-um die soziale Kontrolle in das Individuum hineinzuverlagern: die 

-Verinnerlichung.

-

-	Aus psychoanalytischer Sicht kann man diese Auffassung nur als 

-sehr selektiv bezeichnen (Lasch 1985, 712ff.). Da� die Verinnerlichung 

-ein bedeutendes Mittel der zivilisatorischen bzw. kulturellen 

-Entwicklung ist, die Voraussetzung daf�r, da� aus Kulturgegnern 

-Kulturtr�ger werden (Freud IX, 145), ist zwar ein Grundmotiv Freuds, 

-der in seinen Arbeiten h�ufig die disziplinierenden und 

-sozialisierenden Funktionen des �ber-Ichs hervorgehoben hat: das �ber-

-Ich ist die Basis der Religion, der Moral und des sozialen Empfindens, 

-es ist der "Tr�ger der Tradition, all der zeitbest�ndigen Wertungen, 

-die sich auf diesem Wege �ber Generationen fortgepflanzt haben" (Freud 

-I, 505), es tritt dem Individuum als ein kategorischer Imperativ 

-entgegen und bewirkt dadurch jene Umwandlung, durch die es erst 

-moralisch und sozial wird (Freud III, 315; IX, 145). Im Gegensatz zu 

-Elias sieht Freud in diesem Mechanismus jedoch nicht erst eine 

-Errungenschaft der Neuzeit; dar�ber hinaus macht er klar, da� es sich 

-um eine h�chst ambivalente Einrichtung handelt. Das �ber-Ich ist 

-n�mlich nicht nur, wie Elias meint, ein "Abdruck der Gesellschaft im 

-Innern" (I, 173), es ist gleichzeitig "der Erbe des �dipuskomplexes 

-und somit Ausdruck der m�chtigsten Regungen und wichtigsten 

-Libidoschicksale des Es. Durch seine Aufrichtung hat sich das Ich des 

-�dipuskomplexes bem�chtigt und gleichzeitig sich selbst dem Es 

-unterworfen. W�hrend das Ich wesentlich Repr�sentant der Au�enwelt, 

-der Realit�t ist, tritt ihm das �ber-Ich als Anwalt der Innenwelt, des 

-Es gegen�ber" (Freud III, 3O3).

-

-	Diese Aussage bedarf einer kurzen Erl�uterung. Freud teilt mit 

-Elias die Auffassung, da� das �ber-Ich im einzelnen die 

-gesellschaftliche Allgemeinheit vertritt und damit als Conditio sine 

-qua non der Zivilisation bzw. der Kultur fungiert. W�hrend Elias 

-jedoch dazu neigt, die Aufrichtung dieses �ber-Ichs eher 

-behavioristisch als Ergebnis von Konditionierungsvorg�ngen anzusehen, 

-eine triebtheoretische Begr�ndung jedenfalls nicht gibt9, kreisen 

-Freuds Bem�hungen gerade um diese letztere. Das Soziale, so sein 

-Gedanke, kann nur dann im einzelnen seinen Niederschlag finden, wenn 

-es sich mit bestimmten Triebregungen legiert und in der Trieb�konomie 

-selbst einen St�tzpunkt findet. Dies geschieht nach Freud prim�r in 

-der �dipalen Phase. Das Kind mu� auf dieser Stufe seiner Entwicklung 

-auf die intensiven Liebes- und Feindseligkeitsw�nsche gegen�ber seinen 

-Eltern vezichten, und es l�st diese Aufgabe durch Identifizierung, 

-durch Neusch�pfung des aufgegebenen Objekts in seinem Innern (Freud I, 

-502). Teile der libidin�sen Energien flie�en dem 'Ich-Ideal' zu, 

-dessen Definition bei Freud allerdings starken Schwankungen unterliegt 

-(vgl. Chasseguet-Smirgel 1981, 215ff.); Teile der aggressiven 

-Energien, namentlich die Kastrations- und Todesw�nsche gegen den 

-�dipalen Rivalen, dem Gewissen und dem Schuldgef�hl, den wichtigsten 

-Komponenten des �ber-Ichs (Freud III, 304). Die sozialisierende 

-Leistung des �ber-Ichs ruht somit trieb�konomisch gesehen auf einem 

-asozialen, ja antisozialen Fundament: der Aggression, die gleichsam 

-nur von au�en nach innen umgelenkt wird.

-

-	Diese Zusammenzwingung zweier entgegengesetzter Tendenzen f�hrt 

-nach Freud zu einer �u�erst labilen Konstellation. Schon in 'Das Ich 

-und das Es' notiert er, da� je mehr ein Mensch seine Aggression nach 

-au�en einschr�nke, er desto aggressiver und strenger in seinem �ber-

-Ich werde. Das �ber-Ich werde 'hypermoralisch' und wende sich mit der 

-gleichen Grausamkeit gegen das Ich wie in anderen Konflikten das Es 

-(Freud III, 320f.). Was hier noch rein individualpsychologisch als 

-Neigung zur Zwangsneurose oder zur Melancholie diagnostiziert wird, 

-wird sp�ter zu einer These �ber die Pathologie der kulturellen 

-Gemeinschaften erweitert. Der Preis f�r den Kulturfortschritt, hei�t 

-es in 'Das Unbehagen in der Kultur', liege in der "Gl�ckseinbu�e durch 

-die Erh�hung des Schuldgef�hls" (Freud IX, 26O). Bereits in der 

-Familie sei das Zusammenleben nur m�glich durch den Verzicht auf die 

-�dipalen Bed�rfnisse und durch die Einsetzung des Gewissens. Jede 

-Erweiterung der sozialen Verb�nde setze diesen Konflikt fort und habe 

-eine weitere Steigerung des Schuldgef�hls zur Folge. Der Kulturproze� 

-gehorcht einer unheilvollen Mechanik. Je mehr im Laufe der 

-Vergesellschaftung die unmittelbare Aggression zwischen den Individuen 

-abgebaut wird, desto mehr baut sie sich in den Individuen auf. Je 

-geringer die Macht der Triebe und Affekte im sozialen Verkehr, desto 

-gr��er die 'gesellschaftliche Produktion von Unbewu�theit' (Erdheim) 

-und der Druck des Verdr�ngten auf das Ich (vgl. Freud IX, 258f.). Da� 

-der Mensch jemals jenes "optimale Gleichgewicht seiner Seele" finden 

-k�nnte, wie Elias dies f�r den vollendeten Zivilisationsproze� in 

-Aussicht stellt, mu� nach Freud als eine naive Utopie angesehen 

-werden.

-

-	Es ist bekannt, da� Freud trotz dieser d�steren Perspektive dem 

-Ich noch gen�gend Kraft zutraute, um - notfalls mit Unterst�tzung der 

-Psychoanalyse - der Wiederkehr des Verdr�ngten standzuhalten. Und es 

-ist auch bekannt, worauf sich dieses Vertrauen gr�ndete: auf die 

-Annahme, da� das �ber-Ich der Erbe des �dipuskomplexes sei und "erst 

-nach der Erledigung desselben" eingesetzt werde (Freud 1964, 85): in 

-einem Stadium mithin, in dem die psychosexuelle Entwicklung und die 

-Ich-Reifung bereits ein gewisses Niveau erreicht haben. Der Einbruch 

-des Sozialen, so kann man zugespitzt formulieren, erfolgt im 

-Freudschen Modell auf einer Stufe, auf der das Ich bereits eine solche 

-St�rke erreicht hat, da� es seine unterschiedlichen Phantasien, 

-W�nsche und Objektbeziehungen zu einem koh�renten Funktionssystem zu 

-integrieren vermag (vgl. Jacobson 1978, 136ff.)

-

-	Dieses Modell ist durch den Fortschritt der psychoanalytischen 

-Erkenntnis nach Freud sowohl auf individual- wie auf 

-sozialpsychologischer Ebene relativiert worden. Auf 

-individualpsychologischer Ebene erhellten die wie immer auch 

-unterschiedlichen und z.T. gegens�tzlichen Forschungen der Englischen 

-Schule, der genetischen oder strukturalistischen Schule und der 

-Narzi�mus-Theorie die grundlegende Bedeutung, die der pr��dipalen 

-Entwicklung im Rahmen des Sozialisationsvorgangs zukommt. Melanie 

-Klein, Ernest Jones u.a. entdeckten die archaischen Vorstufen des 

-�ber-Ichs, die weniger durch Introjektionen der �u�eren Realit�t als 

-vielmehr durch Einverleibungen vor allem der destruktiv-sadistischen 

-Projektionen des Kleinkindes bestimmt sind (vgl. Klein 1928/1985; 

-1973, 21, 157ff.; Jones 1978). Ren� Spitz, Margaret S. Mahler u.a. 

-arbeiteten die konstitutive Funktion der Mutter-Kind-Dyade bzw. 

-Symbiose sowie des Losl�sungs- und Individuationsvorgangs heraus und 

-dokumentierten die vielf�ltigen pathogenen Wirkungen, die ein 

-psychotoxisches oder unzureichendes Verhalten der Mutter auf die 

-Psyche des heranwachsenden Kindes haben kann (vgl. Spitz 1967; Mahler 

-1972, 1978). Autoren wie Kohut und Kernberg endlich erkl�rten die 

-zunehmende Zahl von Charakterst�rungen mit einer mangelhaften Abl�sung 

-der narzi�tischen Energien von archaischen Objekten wie dem Gr��en-

-Selbst und den idealisierten Eltern-Imagines (Kohut 1976; Kernberg 

-1978). Freuds Vorstellungen erwiesen sich vor diesem Hintergrund nicht 

-als falsch, wohl aber als zu stark auf die v�terliche Intervention in 

-der �dipalen Phase fixiert.

-

-	Noch weiter relativiert wurden diese Vorstellungen durch die 

-psychoanalytisch orientierte Sozialpsychologie, die mit plausiblen 

-Argumenten auf den Klassencharakter und die Historizit�t der von Freud 

-beschriebenen �dipalen Konfiguration hinwies. Klassencharakter: denn 

-diese Konfiguration, die durch die Intensit�t der Mutter-Kind-Symbiose 

-sowie durch die Sprengung derselben durch den verbietenden und Distanz 

-zum Lustprinzip erzwingenden Vater bestimmt ist, spiegelt eindeutig 

-die Zw�nge der b�rgerlichen Kleinfamilie mit ihrer scharfen 

-Rollentrennung. Historizit�t: denn dieser Familientypus kann 

-angesichts ver�nderter Arbeitsbedingungen und 

-Geschlechtsrollenzuweisungen als kulturell nicht mehr so bestimmend 

-wie noch zu Freuds Zeiten angesehen werden.

-

-	Daf�r sind viele Ursachen verantwortlich, die hier nur angedeutet 

-werden k�nnen: die 'Entwertung all der Eigenschaften, die einmal die 

-Vaterkultur getragen haben' (Mitscherlich), in erster Linie der 

-individuellen Arbeitserfahrung und des familialen Besitzes von 

-Produktionsmitteln; die Entstehung eines nivellierten Gesamtarbeiters 

-(Marx), in dem die Proletarisierung Massenschicksal ist; die 

-Ausdifferenzierung und Entkoppelung vormals in der Familie 

-zusammengefa�ter Lebenslagen; die 'Polizierung' der Familie durch 

-b�rokratische Regelung und Verrechtlichung; schlie�lich die 

-'Sozialisierung' der Elternfunktion durch Massenmedien, peer groups 

-und Therapeuten. Das Stadium der 'individualistischen 

-Vergesellschaftung' (Adorno), in dem sich Sozialisation �ber die 

-Identifikation mit einer zugleich bedrohlichen und idealisierten 

-Person vollzog, scheint vor�ber zu sein. "Die unterdr�ckende 

-Trieborganisation scheint kollektiv, und das Ich durch ein ganzes 

-System extrafamilialer Einrichtungen und deren Vertreter vorzeitig 

-sozialisiert zu sein" (Marcuse 1967, 98; vgl. Mitscherlich 1968, 

-185ff., 310ff.; Lasch 1986, 179ff.).

-

-	Da� Marcuse hier von vorzeitiger Sozialisierung spricht, meint 

-nicht mehr und nicht weniger, als da� der Zugriff des Ganzen auf das 

-Individuum zu einem Zeitpunkt erfolgt, in dem der psychosexuelle 

-Reifungsproze� noch nicht zur Herausbildung eines stabilen und 

-koh�renten Ichs gef�hrt hat. Zahlreiche Diagnosen stimmen darin 

-�berein, da� unter den gegenw�rtigen Bedingungen des abwesenden Vaters 

-ein gro�er Teil der psychischen Energien an pr��dipale Objekte 

-gebunden bleibt, so da� f�r den Aufbau und die Besetzung reifer Ich- 

-und �ber-Ich-Strukturen nur ein vermindertes Quantum zur Verf�gung 

-steht. Die Folge ist, da� die fr�hkindliche Entwicklung gar nicht mehr 

-bis zum entscheidenden �dipalen Konflikt gelangt, was wiederum 

-zugleich bedeutet, da� die pr��dipalen, archaischen Anteile des �ber-

-Ichs gegen�ber den �dipalen ein �bergewicht erlangen.

-

-	"So haben wir heute das folgende Problem: die hemmende, kontrollierende und leitende Funktion des �berichs, die heute 

-weitgehend mit der des Ichs zusammenf�llt, ist durch die Schw�che der Eltern, die nachgiebige Erziehung und das 

-gesellschaftliche Klima abgeschw�cht. Die sexuellen und aggressiven Triebe halten sich immer weniger an Regeln. Aber wir haben 

-immer noch das strengere �berich aus der fr�hen Kindheit, das in der Tiefe des Individuums fortlebt. Daraus resultieren Unruhe, 

-Unbehagen, depressive Verstimmungen und Sucht nach Ersatzbefriedigungen"10.

-AAF

-	Auch f�r die Psyche gilt damit, was wir bereits f�r die 

-soziogenetische Ebene festgestellt haben: da� Vergesellschaftung unter 

-Marktbedingungen ein h�chst paradoxer Vorgang ist. Verglichen mit 

-Freuds Zeiten ist das Netz des Sozialen engmaschiger und st�rker 

-geworden und hat l�ngst auch den privaten Schonraum der Familie 

-erfa�t, in dem Elias noch eine Enklave des gesellschaftlich nicht 

-Geformten sah (I, 226f., 247, 259). Diese Expansion des Sozialen aber 

-geht keineswegs einher mit einer kontinuierlich zunehmenden 

-'Individualisierung' oder gar 'Massenindividualisierung' (1987, 273, 

-242), sondern macht Individuierung zu einer immer schwerer zu 

-bew�ltigenden Aufgabe. Durch den Fortfall jener Faktoren, die in der 

-b�rgerlichen Familie eine sukzessive Einschr�nkung und Frustrierung 

-der archaischen W�nsche und Phantasien durchsetzten, wird die Macht 

-des Unbewu�ten gest�rkt; damit aber die Macht einer Instanz, die, im 

-Gegensatz zu den Annahmen eines C.G. Jung, keine h�here Kollektivit�t 

-verk�rpert, sondern deren Negation: die aus der gesellschaftlichen 

-Kommunikation ausgeschlossene private Symbolwelt der von ihren 

-pr��dipalen Objekten beherrschten Individuen (vgl. Lorenzer 1970, 92, 

-97). Zivilisation, die einmal aus der Domestizierung des Archaischen 

-entsprang, schl�gt damit in ihr Gegenteil um: in die Wiedererzeugung 

-des Archaischen "in der Zivilisation durch die Zivilisation selbst" 

-(Adorno 1971, 42). Es spricht gegen die Zivilisationstheorie von 

-Elias, da� sie noch nicht einmal die M�glichkeit einer derartigen 

-Entwicklung er�rtert11.

-

-

-

-	3. Der letzte hier zu diskutierende Einwand stammt aus der 

-Systemtheorie und besagt, da� Elias dem Unterschied zwischen 

-Interaktions-, Organisations- und Gesellschaftssystemen nicht gen�gend 

-Rechnung tr�gt. Interaktionssysteme sind, nach der Definition 

-Luhmanns, dadurch bestimmt, da� Anwesende sich wechselseitig 

-wahrnehmen und auf dieser Grundlage miteinander kommunizieren. Wegen 

-dieser Bindung an die konkrete Pr�senz von Personen k�nnen sie weder 

-in ihren internen noch in ihren externen Beziehungen sonderlich hohe 

-Komplexit�t erreichen, eine Beschr�nkung, die noch dadurch verst�rkt 

-wird, da� die Erfordernisse der thematischen Konzentration und der 

-linearen Sequenz der Beitr�ge sehr zeitraubend sind. - 

-Organisationssysteme erm�glichen dagegen eine h�here sachliche und 

-zeitliche Generalisierung, weil sie auf Mitgliedschaftsregeln 

-aufbauen. Auf der Basis solcher Regeln ist es m�glich, hochgradig 

-k�nstliche Verhaltensweisen dauerhaft zu reproduzieren, die sich durch 

-ein hohes Ma� an Motivgeneralisierung und Verhaltensspezifikation 

-auszeichnen. - Der Begriff des Gesellschaftssystems schlie�lich zielt 

-auf die umfassendste Form von Kommunikation: das Sozialsystem par 

-excellence, das als Bedingung aller anderen sozialen Systeme fungiert 

-(damit auch aller Interaktions- und Organisationssysteme). Es ist 

-nicht einfach die Summe aller Organisationen und Interaktionen, 

-sondern ein System h�herer Ordnung. Es schlie�t neben Interaktionen 

-auch interaktionsfreie Handlungen wie z.B. schriftliche Kommunikation 

-ein, grenzt das Soziale vom Nichtsozialen ab und erm�glicht die 

-Ausdifferenzierung von Subsystemen, die auf bestimmte, nur ihnen 

-zurechenbare Funktionen spezialisiert sind (Luhmann 1974, 143; 1982, 

-11f.).

-

-	Mit dieser Unterscheidung verbindet Luhmann eine evolution�re 

-Perspektive. Obwohl keine Gesellschaft jemals ganz in Interaktionen 

-aufgeht, gilt doch f�r archaische Gesellschaften, in denen die 

-Funktionsdifferenzierung nur wenig entwickelt ist, da� sie 

-interaktionsnah gebildet werden (Luhmann 1985, 576). Auch in den 

-vormodernen Hochkulturen spielen Interaktionssysteme noch eine 

-f�hrende Rolle, wenngleich wichtige Funktionen bereits durch 

-Organisationen erledigt werden: das Prinzip der Stratifikation, nach 

-dem diese Gesellschaften gegliedert sind, hat zur Folge, da� die 

-Gesellschaft als Ganze durch das Kontaktnetz der Oberschicht 

-repr�sentiert und symbolisiert wird. Oberschichteninteraktion kann 

-deshalb als Integrationmodus stratifizierter Gesellschaften angesehen 

-werden (Luhmann 1980, 84).

-

-	In der modernen Gesellschaft dagegen, die auf voll durchgef�hrter 

-funktionaler Differenzierung beruht, kommt dem Interaktionssystem 

-keine integrative Aufgabe mehr zu. Wohl bleibt Interaktion eine 

-Basisbedingung von Gesellschaft, die sich ja schlie�lich durch 

-soziales Handeln konstituiert. Doch ist die Gesellschaft mit der 

-Delegation grundlegender Funktionen an Subsysteme, mit der Entstehung 

-ausgedehnter Organisationssysteme und nicht zuletzt mit der 

-Erweiterung zur Weltgesellschaft so komplex und �berpers�nlich 

-geworden, da� sie sich durch Interaktion nicht mehr repr�sentieren, 

-geschweige denn bew�ltigen l��t.

-

-	"Die Gesellschaft ist, obwohl weitgehend aus Interaktionen bestehend, f�r Interaktion unzug�nglich geworden. Keine 

-Interaktion, wie immer hochgestellt die beteiligten Personen sein m�gen, kann in Anspruch nehmen, repr�sentativ zu sein f�r 

-Gesellschaft. Es gibt infolgedessen keine 'gute Gesellschaft' mehr. Die in der Interaktion zug�nglichen Erfahrungsr�ume vermitteln 

-nicht mehr das gesellschaftlich notwendige Wissen, sie f�hren wohlm�glich systematisch in die Irre. Auch die Interaktionsfelder, die 

-sich unter irgendwelchen Gesichtspunkten zusammenf�gen und aggregieren lassen, lenken die Aufmerksamkeit �u�erstenfalls auf 

-Funktionssysteme, vielleicht auch auf regionale Abgrenzungen (Nationen), nicht aber auf das umfassende System 

-gesellschaftlicher Kommunikation" (Luhmann 1985, 585).

-AAF

-	Im gleichen Ma�e, wie die Interaktion an gesamtgesellschaftlicher 

-Relevanz verliert, schiebt sich die Organisation in den Vordergrund. 

-Dieselben Prozesse, die zur Auseinanderziehung der Systemebenen von 

-Gesellschaft und Interaktion f�hren - die Ausdifferenzierung und 

-durchgehende Monetarisierung der Gesellschaft, die Verrechtlichung der 

-Erhaltungs- und Fortsetzungsbedingungen t�glicher Lebensf�hrung, die 

-wachsende Bedeutung von Schulerziehung und Berufswahl f�r die 

-individuelle Biographie (Luhmann 1981, 360f.) - beg�nstigen nach 

-Luhmann eine massenhaft-spontane 'Autokatalyse' von Organisationen und 

-eine entsprechende Verallgemeinerung der diesem Systemtypus eigenen 

-Besonderheiten: der Engf�hrung von Kommunikation auf Entscheidungen 

-und Verkn�pfungen von Entscheidungen; der Bindung an Weisungsketten, 

-�mterhierarchien und Kontrollmechanismen; der Unterwerfung unter 

-programmierte Ziele und Strategien; der Entlastung von moralischen 

-Erw�gungen und gesamtgesellschaftlichen Reflexionen.

-

-	Allerdings bedeutet diese unbestreitbare Expansion von 

-Organisationen und organisationsspezifischen Verhaltensmustern nicht, 

-da� sich die Gesellschaft in ein einheitliches Organisationssystem 

-verwandelt. Die Gesellschaft konstituiert sich heute als 

-Weltgesellschaft und �bersteigt schon allein dadurch den Horizont des 

-Organisierbaren. Auch innerhalb der einzelnen Funktionsbereiche ist 

-die Komplexit�t so sehr angewachsen, da� die Aufgaben der Wirtschaft 

-oder der Erziehung durch eine einzige Organisation nicht bew�ltigt 

-werden k�nnten. Selbst wenn es z.B. gel�nge, Produktionsorganisationen 

-durch eine weltweite Planung zu integrieren, k�nnten gleichwohl 

-Produktions- und Konsumentscheidungen nicht zu einer einzigen 

-Organisation zusammengeschlossen werden (Luhmann 1982, 15). 

-Organisierte Sozialsysteme m�gen der Rahmen sein, in dem sich ein 

-gro�er, wenn nicht der gr��te Teil des sozialen Alltagshandelns 

-vollzieht. Zu einer Megaorganisation, in der die Unterscheidung von 

-Gesellschaftssystem und Organisationssystem hinf�llig w�rde, f�gen sie 

-sich nicht.

-

-	Im Lichte dieser Unterscheidungen liegt der Grundmangel der 

-Zivilisationstheorie in der Totalisierung von Verhaltensformen, die 

-f�r Interaktionssysteme typisch sind. Diese Totalisierung ist 

-historisch gesehen nicht v�llig falsch. Sie kann sich darauf berufen, 

-da� unter den Bedingungen stratifikatorischer Differenzierung in der 

-Tat ein spezifisches Interaktionssystem - der Hof - 

-Integrationsaufgaben erf�llte und insofern von 

-gesamtgesellschaftlicher Relevanz war. Elias beschr�nkt die G�ltigkeit 

-der Zivilisationstheorie jedoch ausdr�cklich nicht auf diese Phase, 

-sondern fa�t auch die der funktionalen Differenzierung und den 

-organisierten Sozialsystemen gem��en neuen Verhaltensmuster als 

-Manifestation des Zivilisierungsprozesses auf, obgleich er sehr wohl 

-einr�umt, da� das Schema der nichth�fischen mittelst�ndischen 

-Zivilisationslinie von dem der h�fischen verschieden ist, und obgleich 

-er erkennt, da� die 'guten Gesellschaften', die nach der h�fischen 

-kommen, "nicht mehr im entferntesten die gleiche formgebende Kraft" 

-haben (II, 416; 1975, 144f., 172ff.). Der Proze� der Zivilisation, 

-lautet eine mehrfach wiederholte Kernthese, vollzieht sich "ohne 

-Bruch", "in einer immer intensiveren Ausbreitungsbewegung", die mit 

-der Bildung eines h�fischen Sozialcharakters beginnt und - vorerst - 

-mit einem von diesem abgeleiteten Nationalcharakter endet (I, 43f.).

-

-	Die Behauptung aber, da� die "h�fisch-aristokratische 

-Menschenmodellierung (...) in dieser oder jener Form in die 

-berufsb�rgerliche ein(m�ndet) und (...) in ihr aufgehoben 

-weitergetragen (wird)" (II, 418), wird der im Begriff der 'Aufhebung' 

-liegenden Dialektik nicht gerecht. Gewi� gibt es eine Aufhebung im 

-Sinne des Bewahrens und Fortf�hrens, die sich in der �bernahme 

-bestimmter Mechanismen der Selbstkontrolle (Langsicht, 

-Affektbeherrschung) oder in Erscheinungen wie der 'Demokratisierung 

-der Literalit�t' (Goody/Watt) zeigt. Aufhebung aber meint auch stets - 

-und in diesem Falle mehr als alles andere - Negation, Au�er-Geltung-

-Setzen, Beenden. So hat die Demokratisierung der Literalit�t, wie 

-Goody und Watt gezeigt haben, durchaus nicht nur zu einer kollektiven 

-Aneignung des kulturellen Erbes gef�hrt, sondern auch dessen 

-Verbindlichkeit aufgel�st und dessen Homogenit�t zerst�rt12, und so 

-resultiert denn auch die Aufhebung des Privilegs nicht in der 

-Verallgemeinerung der in der Oberschicht geltenden Codes, sondern 

-allenfalls in deren Musealisierung.

-

-	Luhmann zufolge ist diese Entwicklung unausweichlich, denn erstens 

-verliert die Oberschichteninteraktion mit zunehmender 

-Ausdifferenzierung von Subsystemen ihren Repr�sentationscharakter - 

-das Ganze l��t sich durch keinen Teil mehr darstellen, sondern ist nur 

-noch in den Teilen selbst pr�sent; und zweitens geht durch die 

-Radikalisierung der Funktionsdifferenzierung die Conditio sine qua non 

-h�fischer Interaktion verloren: die Verf�gung �ber ein ausreichendes 

-Quantum nichtfunktionsbezogener Zeit, alteurop�isch ausgedr�ckt: Mu�e. 

-Nur eine Schicht, die ihr gesamtes Dasein 'm��ig' verbrachte, d.h. 

-nicht prim�r in den Aufgaben der Produktion und Reproduktion des 

-unmittelbaren Lebens aufging, konnte jene gesteigerte F�higkeit zur 

-Wahrnehmung des eigenen und des fremden Selbst ausbilden, von der das 

-Leben bei Hofe abhing; nur eine Schicht, die auf Repr�sentation des 

-Ganzen spezialisiert war, konnte sich auf die Stilisierung der 

-Umgangsformen, auf die Produktion und Interpretation jener Zeichen 

-konzentrieren, in denen sich Rang und Ehre, Achtung oder Mi�achtung 

-dokumentierten. Wenn Zivilisation darin besteht, da� man dem Umweg vor 

-der Abk�rzung, der indirekten Aktion vor der direkten den Vorzug gibt, 

-so setzt sie eine Ordnung voraus, die wenigstens �ber ein Gut im 

-�berflu� verf�gt: Zeit.

-

-	Organisierte Sozialsysteme indes, wie sie in der 

-berufsb�rgerlichen Gesellschaft dominieren, beruhen auf der 

-systematischen Verknappung von Zeit. In ihnen geht es, wie man nicht 

-nachdr�cklich genug hervorheben kann, um Zeitgewinn und um die damit 

-verbundenen Konkurrenzvorteile gegen�ber anderen Organisationen: daher 

-die Verk�rzung und Kanalisierung der Kommunikation, die simultane 

-Erledigung von Aufgaben durch Arbeitsteilung, die Entlastung der 

-Operationen von der zeitraubenden Notwendigkeit, f�r jeden Einzelfall 

-nat�rlich gewachsene Motive oder moralischen Konsens zu beschaffen13. 

-Es ist klar, da� nur eine derartige �konomisierung der Zeit die 

-Organisationen in die Lage versetzt, die F�lle der ins Unendliche 

-gestiegenen Anforderungen zu bew�ltigen. Ebenso klar ist aber, da� die 

-'Temporalisierung von Komplexit�t' nur im Gegenzug gegen die f�r die 

-traditionellen Oberschichten typischen Formen der Zeitverwendung 

-durchgesetzt werden kann - und damit auch im Gegenzug gegen die 

-civilisation. Wo die Knappheit der Zeit und die Vordringlichkeit des 

-Befristeten (Luhmann) regiert, wird Achtungskommunikation alten Stils 

-zum Luxus, der nur noch au�erhalb der organisierten Sozialsysteme (und 

-hier oft noch nicht einmal gegen Geld) zu haben ist. Gepflegte 

-Geselligkeit und galante Konversation, Zivilisierung der Gesten und 

-der Sprache, Takt und Respekt, alle diese Formen erweisen sich heute 

-als Oberschichtenph�nomene, die "nach der Aufl�sung der 

-stratifizierten Gesellschaftsordnung jedenfalls nicht als 

-Kultiviertheitserwartung fortgesetzt werden"14.

-

-	Nicht da� sie v�llig verschw�nden. Distinktionsstrategien spielen 

-auch heute noch eine wichtige Rolle im gesellschaftlichen Leben, vom 

-ehemaligen Adel �ber die Bildungseliten bis hinab zur Unterwelt 

-(Girtler 1989). Aber der ubiquit�re Zeitdruck erzwingt doch eine so 

-un�bersehbare Reduktion und Minimierung aller Schn�rkel und Floskeln, 

-eine solche Raffung aller umst�ndlichen Vermittlungen, da� sich der 

-inter- und intraorganisatorische Kommunikationsstil mehr und mehr 

-jener zeitgen�ssischen Architektur angleicht, die das Ornament zum 

-Verbrechen erkl�rte (A.Loos). Zeit�konomie und Zivilisation schlie�en 

-einander aus. Wer diesen Gegensatz verleugnet und auch f�r die 

-Gegenwart noch am Zivilisationsbegriff festhalten will, mu� daraus 

-alle Inhalte tilgen, die einmal mit Zivilisiertheit verbunden waren.

-
-
-
-
-
-
-
-
-
-
-Anh�ngern nicht g�nzlich entgangen. Besonders Cas Wouters hat sich 

-ihnen gestellt und einen Trend zur Informalisierung diagnostiziert, 

-den er auf Ver�nderungen in der Machtbalance zwischen den sozialen 

-Klassen, den Generationen und den Geschlechtern zur�ckf�hrt (Wouters 

-1979; 1986). Elias hat dann diese Diagnose aufgegriffen und alle 

-Versuche abgewiesen, daraus eine Falsifizierung der 

-Zivilisationstheorie ablesen zu wollen. Die Informalisierung, so seine 

-These, sei im Gegenteil ein Beleg f�r die Intensivierung des 

-Zivilisationsprozesses, weil sie mit einer "Zunahme des 

-gesellschaftlichen Drucks zur Selbstregulierung" einhergehe (Elias 

-1989, 60). Dem ist zweierlei entgegenzuhalten. Elias und Wouters haben 

-sicher recht, wenn sie in der Informalisierung nicht einfach einen 

-R�ckfall in Chaos und Regellosigkeit sehen wollen. Selbstverst�ndlich 

-ist die moderne Gesellschaft, bei aller Lockerung von Konventionen und 

-Standards, durch ein sehr hohes Ma� an Regulierung gekennzeichnet. 

-Nur: diese Regulierung ist ein Effekt der organisierten Sozialsysteme, 

-die strukturell in keinerlei Beziehungen zu den Interaktionssystemen 

-der h�fischen Gesellschaft stehen. Der in ihnen endemische 

-Rationalisierungszwang d�rfte weit mehr als alle Ver�nderungen in den 

-Machtbalancen zwischen verschiedenen sozialen Gruppen dazu beigetragen 

-haben, da� die �berkommenen Interaktionsrituale nach und nach �ber 

-Bord geworfen wurden. Zweitens aber kann die Informalisierung auch 

-deswegen keine Intensivierung des Zivilisationsprozesses sein, weil 

-die partielle Entstrukturierung der �u�eren Beziehungen mitnichten 

-durch Strukturgewinne im Innern der Subjekte kompensiert wird. Die 

-"vorzeitige" Sozialisation, so haben wir im vorigen Abschnitt gesehen, 

-f�hrt gerade nicht auf eine "h�here Ebene des Bewu�tseins und 

-wahrscheinlich auch eine h�here Ebene der Selbststeuerung" (Wouters 

-1979, 294), sondern zu einer Schw�chung des Ichs und einer 

-Entstrukturierung des �ber-Ichs. Weit davon entfernt, �ber die von den 

-Zivilisationstheoretikern supponierte Souver�nit�t zu verf�gen, die es 

-ihm erlaubte, rigide Kontrollen in bestimmte Bereiche zu lockern, 

-scheint das Subjekt eher zum Zerfall zu tendieren: zur Spaltung in ein 

-uneigentliches Selbst, das sich den externen Funktionsimperativen der 

-organisierten Sozialsysteme anpa�t, und in ein eigentliches Selbst, 

-das sich in den Intermundien dieser Systeme entfaltet und �berall 

-dort, wo es auf keine Schranken mehr st��t, den Impulsen seiner 

-jeweiligen emotionalen Befindlichkeit folgt (Gerhards 1988, 237f.). 

-Wie d�nn dabei die Linie ist, die die psychische von der physischen 

-Inkontinenz trennt, wei� jeder, der die �ffentlichen Verkehrsmittel in 

-Gro�st�dten benutzt.

-
-
-
-
-
-
-
-
-
-
-eine h�fische Zivilisation im Abendland gab und da� Norbert Elias ihr 

-Theoretiker ist. Ich bezweifle auch nicht, da� diese h�fische 

-Zivilisation in einigen L�ndern wie Frankreich auf die aufsteigenden 

-b�rgerlichen Schichten abgef�rbt und deren nationalen Habitus gepr�gt 

-hat, wiewohl man hinzuf�gen sollte, da� dies historisch gesehen eher 

-die Ausnahme als die Regel war. Das B�rgertum ist eine sehr 

-abendl�ndische Erscheinung, und selbst innerhalb des Abendlandes gibt 

-es zahlreiche F�lle, in denen es sich dem Einflu� des Hofes entzog. 

-Der Hoffnung des Liberalismus, die B�rger m�chten sich die Manieren 

-der guten Gesellschaft aneignen, w�hrend die 'historischen Klassen' im 

-Verdienen t�chtiger werden sollten, hielt schon Karl Kraus entgegen, 

-da� "aller Wahrscheinlichkeit nach schlie�lich die historischen 

-Klassen ohne irdische G�ter und mit schlechten Manieren, die 

-vordringenden Schichten aber mit zweifachem Besitzstand die 

-Gesellschaft repr�sentieren werden" (Kraus 1916, 7). Schlie�lich ist 

-auch unbestritten, da� es in der Neuzeit eine weitausgreifende 

-Affektmodellierung gegeben hat, in die immer weitere Schichten 

-einbezogen wurden.

-
-
-"evolution�r wirkende Kontinuit�t des Zivilisationsbegriffs" behauptet 

-und die Geschichte der h�fischen Affektmodellierung zur "Vorgeschichte 

-der Modernisierung", gar zur "Vorgeschichte des modernen 

-Sozialcharakters" erkl�rt (Kuzmics 1989, 82, 89f.). Eine derart 

-notwendige Beziehung, wie sie hier unterstellt wird, existiert nicht. 

-Es gibt sie historisch nicht, weil die Geschichte zahlreiche h�fische 

-Gesellschaften kennt, die sich nicht zu berufsb�rgerlichen 

-Gesellschaften entwickelt, sondern stattdessen in 

-Kriegergesellschaften zur�ckverwandelt haben - Japan nach der Heian-

-�ra ist hierf�r vielleicht das beste Beispiel; der eigentliche 

-Durchbruch zur berufsb�rgerlichen Gesellschaft erfolgte dagegen in 

-L�ndern, in denen nach Elias' eigener Einsicht der Hof nur eine 

-geringe oder gar keine Rolle spielte - England und den USA (1975, 104, 

-147f.). Es gibt eine solche notwendige Beziehung aber auch nicht im 

-logisch-strukturellen Sinne, weil zwischen der Affektmodellierung, wie 

-sie f�r Interaktionssysteme typisch ist, und derjenigen, wie sie 

-Organisationssysteme fordern, ein Hiatus klafft. Mit Robert Muchembled 

-ist davon auszugehen, da� die f�r die h�fische Welt typische 

-Verfeinerung der Sitten vor allem die Funktion einer Abgrenzung und 

-Distanzierung der Oberschichtenkommunikation von anderen 

-Kommunikationsformen hatte und Muster entwickelte, die sich nur um den 

-Preis des L�cherlichen, Parvenuhaften von anderen Schichten kopieren 

-lie�en - schon deshalb, weil keine dieser Schichten �ber den 

-erforderlichen Abstand zur Welt des Geldes und des 'Berufs' verf�gte. 

-Der Zwang zur Langsicht, die Schemata der Verhaltensregulierung und -

-kontrolle, die f�r diese Schichten ma�geblich sind, resultieren aus 

-den Zw�ngen dieser Welt, nicht aus den Vorgaben der 

-Oberschichtenkommunikation; Zivilisierung ist keine Bewegung von oben 

-nach unten, die immer noch andauert, sondern eine Bewegung, die die 

-Kluft zwischen oben und unten zu zementieren trachtet:

-
-
-Mechanismus zur Nivellierung der Unterschiede. Er bringt im Gegenteil verschiedenartige Wesen hervor, die auf verschiedenen 

-Stufen der soziokulturellen Hierarchie angesiedelt sind. Diese Menschen - das gilt selbst noch f�r das Ende des Ancien R�gime - sind 

-durchaus nicht aus einem St�ck gemacht, sondern f�gen sich in Gesellschaftsschichten ein, die unterschiedliche Verhaltensstr�nge 

-und gegens�tzliche �konomische Entwicklungen beerben. Mit anderen Worten, nichts w�re verfehlter, als die Entwicklung der 

-Mentalit�ten vom ausgehenden Mittelalter bis zur Revolution als eine Art unbestimmten Gesamtfortschritt darzustellen, dem sich die 

-einzelnen Gruppen dann mehr oder weniger vollkommen anpa�ten" (Muchembled 1990, 184).

-
-
-Rhythmus durch die Ausdifferenzierung neuer, eigengesetzlicher 

-Funktionssysteme und Organisationen bestimmt wird. Jeder dieser Sch�be 

-ist, psychogenetisch gesehen, mit einer Schw�chung, wenn nicht sogar 

-mit einem Abbau der bis dahin dominierenden Instanzen verbunden. Das 

-b�rgerliche Ich ist, als psychische Instanz, schw�cher als das 

-h�fische, weil es nicht nur mit dem Es und der Au�enwelt, sondern auch 

-mit einem �ber-Ich zu rechnen hat, das vom Individuum eine 

-Staatsf�rmigkeit seiner Gesinnungen, nicht blo� seiner �u�eren 

-Handlungen verlangt (Vowinckel 1983, 150). Das nachb�rgerliche Ich ist 

-noch schw�cher, weil es nicht mehr auf dem Weg einer Identifikation 

-mit dem Aggressor - dem �dipalen �ber-Ich -St�rke gewinnen kann, 

-vielmehr schutzlos und unvermittelt der Gewalt pr��dipaler, 

-archaischer Konfigurationen ausgeliefert ist, die den Anspruch auf 

-Grandiosit�t und Omnipotenz erheben. Mit jedem neuen Schub in der 

-Entwicklung der Sozialkontrolle erh�lt somit das Ich neue und stets 

-m�chtigere Gegner, die seine Souver�nit�t fortw�hrend einschr�nken - 

-und damit seine F�higkeit zu dem, was Elias mit Recht als 

-Wesensmerkmale des zivilisierten Habitus herausstellt: Selbstdistanz, 

-Selbstkontrolle, Takt, 'taking the role of the other', das Spiel mit 

-dem Schein und nicht zuletzt auch die Technik der Simulation, die dem 

-protestantischen Kleinb�rger als Unaufrichtigkeit erscheinen mag, in 

-Wirklichkeit aber die F�higkeit bedeutet, die anderen mit der Last des 

-eigenen Selbst zu verschonen (Sennett 1983, 299).

-
-
-der Zivilisation. Sie verallgemeinert keineswegs die Formen, die in 

-der h�fischen Zivilisation auf einen kleinen Kreis von Privilegierten 

-beschr�nkt waren, sondern beseitigt mit dem Privileg auch diese 

-Formen. Sie f�hrt nicht zu einer Anverwandlung der bisher 

-Ausgeschlossenen an die Ausschlie�enden, sondern umgekehrt zum 

-Vordringen des aus der Zivilisation Ausgeschlossenen. Seit dem 18. Jh. 

-ist die vorherrschende Tendenz in der Politik wie in der Kunst eine 

-nicht abrei�ende Kette von Demaskierungen, Entlarvungen und 

-Enth�llungen, in der eine Konvention und Tradition nach der anderen 

-demontiert wird und immer neue Schichten des Verdr�ngten ans Licht 

-gezogen werden; und wenn es eine Zeitlang so schien, als k�nnte mit 

-der Ausweitung des �ffentlichen Erziehungswesens ein Gegengewicht 

-geschaffen werden, so ist dieses mittlerweile so stark segmentiert und 

-mit anderen Aufgaben �berfrachtet, da� selbst der amerikanische 

-Pr�sident sich alarmiert zeigt. Die sprachlichen Ausdrucksformen der 

-Unterschichten, insbesondere die Koppelung von Sexualit�t und Gewalt, 

-sind l�ngst gesellschaftsf�hig geworden und machen, wie ein Blick in 

-den 'Anti-�dipus' zeigt, selbst vor dem wissenschaftlichen Diskurs 

-nicht mehr halt; die Distanzierung vom K�rper, die diesen zum Medium 

-der Demonstration festgef�gter Konventionen machte, ist einer 

-aufdringlichen Thematisierung desselben gewichen, bei der der K�rper 

-zwar mit Signalen �berladen und - wie in der Punk-Bewegung - in 

-extremer Weise stilisiert wird, jedoch nichts repr�sentiert und nichts 

-mehr mitzuteilen hat (Bette 1987; Georgieff 1987); und wer gezwungen 

-ist, sich am Stra�enverkehr zu beteiligen, wird rasch feststellen 

-m�ssen, da� auch die Survival-Mentalit�t der Unterschichten sich 

-allgemeiner Anerkennung erfreut. Elias pflegt in seinen letzten 

-Arbeiten h�ufig auf die sinkenden Unfallziffern zu verweisen, um seine 

-These vom gestiegenen Selbstzwang zu erl�utern (1978, 22). Doch f�nf 

-Minuten auf der Autobahn sollten eigentlich gen�gen, um sich davon zu 

-�berzeugen, da� hier nicht die Zivilisation herrscht, sondern das 

-Gesetz des Dschungels. Nicht da� dort jeder Mensch jedem Menschen ein 

-Wolf w�re, das hatte schon Hobbes mit seinem bekannten Diktum nicht 

-gemeint. Es gibt auch heute unendlich viele Beispiele von 

-Zuvorkommenheit und Hilfsbereitschaft. Aber eine Welt, in der man bei 

-jedem Streit um eine Parkl�cke, bei jeder Beschwerde �ber zu lauten 

-Partyl�rm damit rechnen mu�, erschossen, erstochen oder 

-zusammengeschlagen zu werden, ist von der Zivilisation noch immer 

-genau so weit entfernt wie der von Hobbes beschriebene Kriegszustand, 

-"which is worst of all, continual fear, and danger of violent death; 

-and the life of man, solitary, poor, nasty, brutish, and short"15.

-
-
-Leitbegriff der Zivilisationstheorie zu revidieren. Anstatt in ihm 

-nach dem Vorbild der franz�sischen Aufkl�rung zwei nur zuf�llig-

-historisch verbundene Komplexe zusammenzuzwingen - die h�fischen 

-Interaktionsregeln und die Rationalit�tsstrukturen organisierter 

-Sozialsysteme - sollte man ihn wieder enger fassen und seiner 

-geschichtsphilosophischen Konnotationen entkleiden. Vielleicht hatte 

-Kant doch recht, als er vorschlug, den Zivilisationsbegriff  auf 

-"Manieren, Artigkeit und eine gewisse Klugheit" zu beschr�nken, 

-vermittels welcher der Mensch 'gesellschaftsf�hig' werde - womit er 

-nat�rlich die 'gute Gesellschaft' meinte (Kant 1968, XII, 707). Eine 

-solche Eingrenzung h�tte jedenfalls den Vorzug, da� sie uns deutlicher 

-als Elias die Verg�nglichkeit der Bedingungen vor Augen f�hrte, an die 

-Zivilisation nun einmal gebunden ist, und sie k�nnte es vielleicht 

-erm�glichen, die Theorie der Zivilisierung durch die l�ngst 

-�berf�llige Theorie der Entzivilisierung zu erg�nzen.

-
-
-keine R�cksicht halten, auch als blo�e Spiel-Form nicht. - Und ebenso schrumpft in einer Welt, die uns um Mu�e und die anderen 

-Bedingungen des Privaten betr�gt, die Subtilit�t unseres seelischen Privatlebens" (Anders 1986, 13).

-
-
-
-
-
-
-
-
-
-
-Zivilisation, so w�re dazu kaum etwas geeigneter als das Konzept der 

-Disziplinargesellschaft, das Michel Foucault in den siebziger Jahren 

-entwickelt hat. Gewi� ist der Gegensatz nicht absolut. Beide Autoren 

-interessieren sich f�r Prozesse der Normierung und Regulierung, beide 

-sehen eine enge Beziehung zwischen Individuierung und Subjektivierung 

-einerseits, sich verdichtenden Machtverh�ltnissen andererseits. 

-Foucault bezieht diese Entwicklungen jedoch nicht wie Elias auf ein 

-Zentrum, und er sieht sie auch nicht aus der Perspektive eines 

-zunehmenden Souver�nit�tsgewinns der (Welt-) Gesellschaft und des 

-einzelnen. Die moderne Gesellschaft gilt ihm als polyzentrisches 

-Geflecht von Disziplinarapparaten und die Individuierung als 

-Manifestation der Macht. Anstelle der Vision einer friedlichen 

-Kooperation steht bei ihm die eines 'verallgemeinerten Krieges' (1978, 

-40)16 , anstelle der Aufhebung willk�rlicher Macht deren Verfestigung 

-zu 'Herrschaftszust�nden' (1985, 11). "Die Menschheit", so Foucaults 

-nietzscheanisches Credo, "schreitet nicht langsam von Kampf zu Kampf 

-bis zu einer universellen Gegenseitigkeit fort, worin die Regeln sich 

-f�r immer dem Krieg substituieren; sie verankert alle ihre 

-Gewaltsamkeiten in Regelsystemen und bewegt sich von Herrschaft zu 

-Herrschaft" (1974, 95).

-
-
-nicht mehr zu �berblicken. Vieles davon ist Einf�hrung oder Paraphrase 

-und wird so schnell vergessen werden, wie es geschrieben wurde17 . 

-Doch hat Foucault inzwischen auch ernstzunehmende Gespr�chspartner 

-gefunden, die so schwerwiegende Einw�nde gegen seinen Entwurf 

-formuliert haben, da� sich dessen einfache Fortschreibung oder 

-Kanonisierung verbietet. Ich werde zun�chst Foucaults Grundgedanken 

-knapp skizzieren, danach die wichtigsten Gegenargumente pr�sentieren 

-und anschlie�end er�rtern, inwieweit die Theorie der 

-Disziplinargesellschaft noch zu halten ist.

-
-
-
-
-
-
-
-
-
-
-Genealogie der Disziplin religi�sen Faktoren ein erhebliches Gewicht 

-zu. Schon der vorchristliche, vor allem aber der christliche Orient 

-habe einen spezifischen, pastoralen Machttypus entworfen, dessen Pole 

-die Herde und der dieselbe zusammenhaltende Hirt oder Sch�fer seien; 

-diese Pastoralmacht habe sich dann vom 2. Jh. an ununterbrochen 

-verfeinert und sich mit der politischen Macht assoziiert, wodurch zwei 

-verschiedene Machttechniken miteinander verbunden worden seien: das 

-kirchliche Gest�ndnis- und Beichtritual und die Formulierung und 

-Vollstreckung des Gesetzes (1982, 17ff.). Aus dieser Kombination, die 

-zum erstenmal im Inquisitionsproze� praktische Gestalt angenommen 

-habe, sei jene doppelte Bedeutung von 'Subjektivierung' entsprungen, 

-die seither das Abendland bestimmt habe: Subjektivierung im Sinne 

-einer Unterwerfung unter Kontrolle und Abh�ngigkeit und 

-Subjektivierung im Sinne einer Bindung an die eigene Identit�t qua 

-Bewu�tsein und Selbsterkenntnis (1987, 247f.)

-
-
-nur geringe Aufmerksamkeit. Weitaus intensiver befa�t er sich dagegen 

-mit dem eigentlichen Formierungsstadium, das er auf das 17. und 18. 

-Jh. datiert. Zwar dominiert zu diesem Zeitpunkt mit der absoluten 

-Monarchie noch eine Form der Macht, "die wesentlich an der Absch�pfung 

-und am Tode orientiert war" (1977, 110) - eine Form, die sich 

-verfassungsrechtlich in der Souver�nit�t und der ihr 

-korrespondierenden Gesetzgebungskompetenz manifestiert, und die 

-strafrechtlich in den Riten und Marterzeremonien der 

-'Abschreckungsmacht' erscheint. Zur gleichen Zeit aber bereitet sich 

-gesamtgesellschaftlich ein Umbruch vor, in dessen Verlauf auch die 

-Macht eine tiefgreifende Transformation erf�hrt. Am Beispiel der 

-b�uerlichen Delinquenz zeigt Foucault, da� das klassische Zeitalter 

-der Schauplatz neuer Formen der Gesetzwidrigkeit ist, die sich nicht 

-mehr prim�r gegen die Rechte des Adels oder des K�nigs richten, 

-sondern gegen G�ter; ein Wandel, mit dem die Bev�lkerung auf neue 

-Formen der Kapitalakkumulation, der Produktionsverh�ltnisse, der 

-Aneignungsstrukturen reagiert. Mit dem Anwachsen kapitalistischer 

-Produktionsapparate und dem demographischen Wachstumsschub des 18. 

-Jhs. verbreitern und vervielfachen sich die Konfliktlinien und lassen 

-dadurch die klassische, auf der Veranstaltung exemplarischer 

-Straffeste beruhende Souver�nit�ts- und Abschreckungsmacht zunehmend 

-unwirksam werden (1976, 110, 280).

-
-
-engen Rahmen herausw�chst, in den sie durch die Institutionen der 

-Monarchie gebannt war, ist die Zeit, in der neue Verfahren und 

-Mechanismen der Macht auf den Plan treten; Verfahren, "die nicht mit 

-dem Recht, sondern mit der Technik arbeiten, nicht mit dem Gesetz, 

-sondern mit der Normalisierung, nicht mit der Strafe, sondern mit der 

-Kontrolle, und die sich auf Ebenen und in Formen vollziehen, die �ber 

-den Staat und seine Apparate hinausgehen" (1977, 110f.). Welche 

-Verfahren sind hier gemeint?

-
-
-Ancien R�gime beginnen sich Forderungen der Aufkl�rer nach 

-Humanisierung des Strafrechts und �konomisierung der Strafgewalt in 

-einer Reihe von Reformen geltend zu machen, die die Ersetzung der 

-alten '�konomie der Verausgabung und des Exzesses' durch eine 

-'�konomie der Kontinuit�t und der Dauer' erm�glichen. W�hrend die 

-absolutistische Souver�nit�ts-Macht mit ihrer Sprunghaftigkeit und 

-Regellosigkeit sowie der Weitmaschigkeit ihres Kontrollnetzes den 

-Gesetzwidrigkeiten der Untertanen weiten Raum lie�, bem�hen sich die 

-Justizaufkl�rer darum, durch Milderung der Strafen, sorgf�ltigere 

-Kodifizierung und Rationalisierung der Gewaltaus�bung die Basis f�r 

-einen neuen gesamtgesellschaftlichen Konsens hinsichtlich der 

-Strafgewalt zu schaffen, um eine wirksamere Verteidigung gegen einen 

-Gegner zu erm�glichen, "der jetzt raffinierter, aber auch verbreiteter 

-im gesellschaftlichen K�rper ist". Indem sie die Willk�r des Souver�ns 

-anprangert, bereitet die Aufkl�rung zugleich den Boden f�r ein neues, 

-perfekteres System der sozialen Kontrolle. Richter und Ankl�ger, 

-Verteidiger und Angeklagte werden in ein diskursives Gef�ge 

-eingeschlossen, dessen Sinn nicht in der schreckenerregenden 

-Wiederherstellung der Souver�nit�t, sondern in der 

-Wiederinkraftsetzung des Strafgesetzbuches bestehen soll (1976, 113, 

-141).

-
-
-Definition schuldig bleibt, meint im wesentlichen folgendes: Auf der 

-einen Seite haben wir es mit einer Kodifizierung und Rationalisierung 

-zu tun, die den Untertanen zweifellos neue Sicherheiten bringt. Die 

-Macht wird an Regeln gebunden, das Individuum als Rechtssubjekt 

-anerkannt, die Strafe in ein Mittel verwandelt, das die 

-Rechtssubjektivit�t wiederherstellen soll. Auf der anderen Seite aber 

-wird gerade dadurch eine �u�erste Verfeinerung und Vervollkommnung der 

-Unterwerfung erm�glicht. Der Kodifizierung entspricht eine zunehmende 

-Individualisierung der Strafen und eine Objektivierung von Verbrechen 

-und Verbrecher. Das Rechtssubjekt wird Gegenstand einer 

-klassifizierenden und vergegenst�ndlichenden Betrachtungsweise, die 

-den einzelnen in ein komplexes Tableau justiziabler Eigenschaften und 

-Tatbest�nde einordnet. Er wird gepr�ft, beurteilt, registriert, so da� 

-jede seiner Eigenschaften mittels einer Reihe von Codes und deren 

-Korrelierung dokumentierbar wird. Durch die vielf�ltigen Praktiken der 

-�berwachung und Kontrolle, der Einstufung und der Zuordnung bildet 

-sich, was Foucault als die andere, "dunkle" Seite des Rechtssubjekts 

-bezeichnet: das "Disziplinarindividuum", das von den neuen 

-Machttechniken fabriziert wird (1976, 396).

-
-
-Strafjustiz. Foucault sp�rt sie auf in der neuen Einstellung der 

-Gesellschaft gegen�ber dem Wahnsinn, welcher ausgegrenzt, interniert 

-und in eine Form der Geisteskrankheit verwandelt wird, mit der die 

-Gesellschaft nur noch �ber das abstrakte Medium der Psychiatrie 

-kommuniziert. Er entdeckt sie in der explosionsartigen Vermehrung der 

-Diskurse �ber Sexualit�t, die zur Bildung eines gigantischen Registers 

-der L�ste und Perversionen f�hrt. Er lokalisiert sie im �rztlichen 

-Blick und in der wissenschaftlichen Kontrolle der Krankheiten und 

-Infektionen, in der administrativen Kontrolle der Heilmittel, der 

-Todesf�lle und Geburten, der Verstellungen und Abwesenheiten, 

-schlie�lich in der milit�rischen Kontrolle der Deserteure, der 

-fiskalischen Kontrolle der Waren, der �konomischen Planung der 

-Produktionsabl�ufe. In allen Bereichen des gesellschaftlichen Lebens 

-ist das klassische Zeitalter der Schauplatz einer unerh�rten 

-Verdichtung der Diskurse und Identifikationsmechanismen, die allesamt 

-nur das eine Ziel haben: die Herstellung des durchschaubaren und damit 

-kontrollierbaren Individuums. "Die 'Aufkl�rung', welche die Freiheiten 

-entdeckt hat", schreibt Foucault, "hat auch die Disziplinen erfunden" 

-(1976, 285).

-
-
-eng aufgefa�t werden. Sie darf, erstens, nicht allein auf die 

-Implementierung eines bestimmten Diskurstyps reduziert werden, denn 

-sie hat auch nicht-diskursive Wurzeln: Etwa die Mechanismen, die in 

-den Kl�stern und Kasernen, Manufakturen und Spit�lern, Kollegs und 

-Internaten entwickelt wurden. Sie darf, zweitens, nicht als Effekt 

-eines Zentrums, einer gesellschaftlichen Zentralinstanz oder einer 

-herrschenden Klasse, begriffen werden, da hiermit ihre pluraler, 

-multipler Charakter verfehlt w�rde: die Disziplinargesellschaft ist 

-nicht das Ergebnis einer, sondern zahlreicher Projektionen - der 

-Projektion milit�rischer Methoden auf die Industrie; der 

-maschinenf�rmigen Funktionsweise auf die lebendige Arbeit; der 

-Gef�ngnisdisziplin auf die Gesellschaft (1976, 284). Und sie darf, 

-drittens, auch nicht als blo�es Verh�ltnis der Repression verstanden 

-werden, wie dies in der Logik des b�rgerlichen Legalismus oder der 

-marxistischen Auffassung liegt. Die Disziplinarmacht, sagt Foucault, 

-setzt zwar Unterwerfung voraus, sie parzelliert die Individuen, 

-klassifiziert sie und f�gt sie in eine hierarchische Ordnung ein, die 

-durch pr�zise Befehlssysteme strukturiert ist. Sie ersch�pft sich 

-jedoch nicht darin, sondern produziert ihrerseits Individuen, die der 

-von ihr geschaffenen Ordnung gem�� sind. "Man mu� aufh�ren, die 

-Wirkungen der Macht immer negativ zu beschreiben, als ob sie nur 

-'ausschlie�en', 'unterdr�cken', 'verdr�ngen', 'zensieren', 

-'abstrahieren', 'maskieren', 'verschleiern' w�rde. In Wirklichkeit ist 

-die Macht produktiv; und sie produziert Gegenstandsbereiche und 

-Wahrheitsrituale: das Individuum und seine Erkenntnis sind Ergebnisse 

-dieser Produktion" (1976, 250).

-
-
-Macht in der modernen Form des Gef�ngnisses, wie sie seit 1830 unter 

-dem Einflu� von Benthams 'Panopticon' (1787) Gestalt gewinnt. Als eine 

-Institution, deren Aufgabe sich keineswegs darauf beschr�nkt, den 

-Freiheitsentzug zu organisieren, vielmehr von Anfang an darin besteht, 

-"Transformationen an den Individuen vorzunehmen" (1976, 317), 

-verk�rpert das Gef�ngnis gleichsam die Elementarform der 

-Disziplinargesellschaft, �hnlich wie f�r Marx die Ware als 

-Elementarform der b�rgerlichen Gesellschaft fungiert. Das Gef�ngnis 

-ist zugleich Kaserne und Schule, Werkstatt und Spital; es unterdr�ckt 

-die gesellschaftlich unerw�nschten Eigenschaften und modelliert die 

-erw�nschten. Sein Produkt sind Individuen, "die nach den allgemeinen 

-Normen einer industriellen Gesellschaft mechanisiert sind" (1976, 

-310). Als ein vollkommener Disziplinarapparat erfa�t es s�mtliche 

-Aspekte des Individuums: seine physische Erscheinung wie seine 

-moralische Einstellung, seine Arbeitsneigung wie sein 

-Alltagsverhalten; und alle diese Manifestationen werden nicht nur 

-kontrolliert und reglementiert, sondern von Grund auf reformiert, bis 

-sie den geltenden Standards entsprechen. Das 'Kerkersystem', das 

-Foucault zufolge um 1840, dem Er�ffnungsjahr der Jugendstrafanstalt 

-von Mettray, vollst�ndig ausgebildet ist, enth�lt in geb�ndelter und 

-konzentrierter Form all jene Mechanismen der Normalisierung und 

-Disziplinierung, die seither zu Strukturmerkmalen der 

-Disziplinargesellschaft geworden sind.

-
-
-Ausdehnung und Erweiterung: vom 'Kerker-System' der Gef�ngnisse und 

-geschlossenen Anstalten zu dem, was Foucault den 'Kerker-Archipel' 

-bzw. das 'gro�e Kerker-Kontinuum' nennt (1976, 382f.). Vermittelt �ber 

-zahlreiche St�tzpunkte - die Waisenh�user, die Asyle f�r 'gefallene 

-M�dchen', die Lehrlingsheime, die korrespondierenden Einrichtungen wie 

-Wohlfahrtsgesellschaften, Sittlichkeitsvereine, Arbeitersiedlungen und 

- Wohnheime - breitet sich das panoptische Schema �ber die gesamte 

-Gesellschaft aus und �berzieht alle sozialen Bereiche mit dem gro�en 

-Kerker-Netz, dessen prim�re Funktion in einer alles umfassenden 

-Normierung besteht. Dies sicher nicht ohne Widerstand. Wo Macht ist, 

-sagt Foucault, ist auch Widerstand, und er f�gt hinzu: wenn es 

-Machtbeziehungen gibt, so �berhaupt nur deshalb, weil es Freiheit 

-gibt, (1977, 116; 1985, 2O). Aber dieser Widerstand ist keine Mauer, 

-kein Block, der der Disziplinierung Grenzen setzt; er ist selbst eine 

-Manifestation von Macht, eine Art Antik�rper, der die Disziplinarmacht 

-attackiert und zu Mutationen und Metamorphosen n�tigt. Um die 

-Widerst�nde zu �berwinden, geht die Disziplin von dem starren, 

-statischen Tableau des klassischen Zeitalters zu neuen, flexibleren 

-Formen der Regulierung �ber, deren Hauptziel in einer Steigerung der 

-Funktionen liegt; und dieses Ziel wird zunehmend nicht nur mittels der 

-rigiden Anpassung der Individuen an die Norm erreicht, sondern 

-ebensosehr durch Anpassung der Norm an die individuellen Bedingungen 

-durch die Verfahren der modernen Humanwissenschaften:

-
-
-Beziehungen ihre Vollendung: Diese verl�uft von der Teilung der Welt zur Herstellung der Welt; diese wiederum vom Traum einer 

-mechanischen Imitation der Welt (durch Gesetze) zu dem einer Erzeugung von Organismen, von der Objektivierung der Welt auf 

-die Individuierung der Menschen. Der Akzent der Individuierung selbst wird dabei von der objektivierenden Kontrolle der Einzelnen 

-zur subjektivierenden Selbststeuerung und zur Manipulation von Gruppen verlagert. Der Ver�nderung der Gegenstandsbereiche 

-entspricht die der Machttechniken, die Entwicklung von der Gewaltrationalit�t zur Testwissenschaft" (Dauk 1989, 131).

-
-
-Subsumtion der Gesellschaft oder eines Teils derselben unter ein vorab 

-feststehendes Schema, sondern weit eher der Zirkel von Manipulation 

-und r�ckwirkendem Bed�rfnis, wie ihn Horkheimer und Adorno in der 

-'Dialektik der Aufkl�rung' entfalten. Foucault hat von der Dialektik, 

-insbesondere von Hegel, nicht viel gehalten (K�nzel 1985). Seine These 

-indes, da� in der Geschichte der Disziplinierung ein Wechsel von 

-subsumtionslogischen Praktiken zu netzf�rmigen und zirkul�ren 

-Strukturen zu beobachten ist, vollzieht in etwas roheren Begriffen den 

-�bergang von der Transzendentalit�t zur Totalit�t, wie ihn Hegel 

-gegen�ber Kant, wenn auch unter ganz anderen Voraussetzungen, 

-vollzogen hat. Wie wir sehen werden, r�hren die Schw�chen der Theorie 

-der Disziplinargesellschaft zu einem nicht geringen Teil aus der 

-Weigerung Foucaults, daraus die n�tigen kategorialen Konsequenzen zu 

-ziehen.

-
-
-
-
-
-
-
-
-
-
-hervorgerufen hat, empfiehlt es sich, noch f�r einen Augenblick bei 

-den Beziehungen zu verweilen, die sich zu �hnlich gelagerten 

-Bestrebungen in der modernen Soziologie ergeben. Foucaults Analyse 

-erinnert an manchen Stellen an Max Weber, der in der Disziplin eine 

-Schl�sselkategorie der modernen Gesellschaft gesehen hatte - der 

-b�rokratischen Amtsdisziplin, der Parteidisziplin, der Disziplin des 

-Massenheeres, der Arbeitsdisziplin und nicht zuletzt der religi�sen 

-Disziplin der 'methodischen Lebensf�hrung'. Sie weist, etwa in der 

-Behandlung der Manufaktur, Ber�hrungspunkte zu Marx auf, ferner zu 

-Elias, zu Oestreichs Theorie der 'Sozialdisziplinierung' und nicht 

-zuletzt zum kritischen Marxismus von Luk�cs bis Adorno, dessen 

-Zentralthema die Beziehung zwischen Warenform, Rationalisierung und 

-Disziplinierung war18.

-
-
-teils schlicht aus Unkenntnis, wie er selbstkritisch mit Bezug auf die 

-Kritische Theorie gesteht (1983), teils in bewu�ter Abgrenzung von 

-einer Diskurstradition, die ihm allzusehr von der Obsession einer 

-'globalen Geschichte' geschlagen zu sein scheint, d.h. dem 

-Unterfangen, den Gesamtzusammenhang einer Epoche oder einer 

-Gesellschaft aus einer zentralen Struktur abzuleiten. Nach seiner 

-�berzeugung ist die Annahme, da� sich innerhalb einer Gesellschaft ein 

-System homogener Beziehungen feststellen l��t, ein Netz von 

-Kausalit�ten, das eine Zur�ckf�hrung der verschiedenen Elemente auf 

-ein verborgenes Zentrum gestatte, pure Ideologie, eine Illusion, in 

-der sich der 'transzendentale Narzi�mus' des abendl�ndischen Denkens 

-spiegelt: der Glaube an die Stifterfunktion eines souver�nen Subjekts 

-und an die Garantie, "da� alles, was ihm entgangen ist, ihm 

-wiedergegeben werden kann" (1973, 23). So stark ist Foucaults 

-antithetische Fixierung auf diesen Subjektivismus, da� er die 

-M�glichkeit einer nichtsubjektivistischen, um eine Theorie der 

-gesellschaftlichen Synthesis zentrierten 'globalen Geschichte', wie 

-sie in den oben erw�hnten Arbeiten durchaus angelegt ist, an keiner 

-Stelle in Erw�gung zieht.

-
-
-zu f�llen. Macht, im Nietzscheschen Sinne eines lebensphilosophisch-

-ontologisch verstandenen 'Willens zur Macht', avanciert f�r ihn zum 

-Universalschl�ssel f�r alle gesellschaftlichen und geistigen 

-Ph�nomene. Auf ihr beruhen die Beziehungen zwischen den Geschlechtern 

-ebenso wie die zwischen den Generationen, die Beziehungen innerhalb 

-einer Institution wie die zwischen Institutionen im ganzen, die 

-Beziehungen zwischen Individuen wie die zwischen Gruppen und Klassen. 

-Das Individuum selbst ist, wie gezeigt, ein Produkt der Macht, "eine 

-Form der Individuation der Disziplin" (1982, 3). Das gleiche gilt f�r 

-die modernen, um das Individuum zentrierten Diskurse der 

-Humanwissenschaften, wie f�r den wissenschaftlichen Diskurs 

-schlechthin. Man m�sse, so verk�ndet Foucault, einer Denktradition 

-entsagen, derzufolge es Wissen nur dort geben k�nne, wo die 

-Machtverh�ltnisse suspendiert seien. "Eher ist wohl anzunehmen, da� 

-die Macht Wissen hervorbringt (und nicht blo� f�rdert, anwendet, 

-ausnutzt); da� Macht und Wissen einander unmittelbar einschlie�en; da� 

-es keine Machtbeziehungen gibt, ohne da� sich ein entsprechendes 

-Wissensfeld konstituiert, und kein Wissen, das nicht gleichzeitig 

-Machtbeziehungen voraussetzt und konstituiert" (1976, 39). Wie in der 

-idealistischen Philosophie und ihren sp�tromantischen Wurmforts�tzen 

-die ganze Welt als Geist oder Wille gedacht wird, so enth�llt sich 

-auch bei Foucault das Sein als Manifestation eines einzigen Prinzips, 

-das in unterschiedlichen Aggregatzust�nden auftritt: in reiner, 

-bewegter Form als "immerw�hrende Schlacht", als Strom von Kr�ften und 

-Gegenkr�ften; und in erstarrter, blockierter Form, in der sich die 

-Macht zur 'Herrschaft' verfestigt hat (ebd. 38; 1985, 11). Man f�hlt 

-sich an die Metaphysik Heraklits erinnert - freilich an eine Version, 

-in der der Logos nicht l�nger Harmonie stiftet, sondern selbst zu 

-einer Funktion des Kampfes geworden ist.

-
-
-Konzept der Disziplinargesellschaft angreifbar gemacht. Die Kritik 

-richtet sich vor allem gegen den Reduktionismus, der dieses Konzept 

-durchzieht. Die Machttheorie, lautet ein erster Einwand, l�se die 

-eigensinnige Entwicklungslogik rechtlicher und moralischer Normen in 

-die blindzuf�llige Evolution von Gewaltverh�ltnissen auf und �bergehe 

-damit "die unverkennbaren Gewinne an Liberalit�t und 

- Rechtssicherheit", die doch nicht zuletzt auf straf- und 

-strafproze�rechtlichem Gebiet evident seien19. Sie reduziere, so der 

-zweite Einwand, die komplexen Vorg�nge der Sozialisation und 

-Individuation in behavioristischer Manier auf eine Folge von 

-unentwegten Konditionierungen und setze Individualit�t zu einer "durch 

-Au�enreize produzierte(n), mit beliebig manipulierbaren 

-Vorstellungsinhalten belegte(n) Innenwelt" herab; damit werde der 

-Gewinn an Freiheit und Ausdrucksm�glichkeit verspielt, den die 

-"Etablierung und Verinnerlichung der subjektiven Natur" gebracht habe 

-(Honneth 1985, 210; Habermas 1985, 337, 342; Turner 1987, 233, 238). 

-Ein dritter Einwand zielt auf die machttheoretische Aufl�sung der 

-Geltungsproblematik. Foucault, so Honneth, stelle sich nicht der 

-Frage, wie denn die blo� unter dem Gesichtspunkt sozialer 

-Machtgewinnung entwickelten Diskurse in ganz anderen 

-Handlungskontexten, etwa dem der technischen Beherrschung von 

-Naturprozessen, von Erfolg gekr�nt sein k�nnten 20. Da� die 

-vollst�ndige Leugnung universalistischer Geltungsanspr�che im Ergebnis 

-auf ein "relativistisches Selbstdementi" auch der Machttheorie 

-hinauslaufe, hat Habermas in einer scharfsinnigen Argumentation 

-dargelegt (Habermas 1985, 327; Fink-Eitel 1980, 67f.; Bambach 1984; 

-Taylor 1984). Weder f�r die Eigenart normativer noch f�r diejenige 

-kognitiver Mechanismen, so l��t sich die Kritik res�mieren, hat die 

-Machttheorie einen angemessenen Raum. Sie ist deshalb ungeeignet, die 

-Komplexit�t moderner Gesellschaften zu erfassen.

-
-
-Mechanismen zuerst zu sprechen, so ist Foucault zwar zuzugeben, da� 

-eine ganze Reihe von Diskursen in der fr�hen Neuzeit mit politischen 

-Vorzeichen ins Dasein tritt und somit durchaus einer 

-machttheoretischen Interpretation entgegenkommt. Es gibt in der Tat 

-eine politische Anatomie und eine politische Technologie, wie ja auch 

-bekanntlich die �konomie sich zun�chst als politische �konomie 

-begreift und offen die enge Verzahnung von Herrschaftsinteressen und 

-Wirtschaftsordnung einbekennt. Alle diese Diskursformationen 

-verweisen, wie unschwer zu sehen ist, auf die Intensivierung der 

-politischen Rationalisierung, welche durch die Entstehung eines 

-europ�ischen Staaten- und Weltsystems seit dem 16. Jh. ausgel�st wurde 

-und namentlich in einigen kontinental-europ�ischen L�ndern zu einer 

-weitreichenden Militarisierung und B�rokratisierung f�hrte, aus der 

-der well-ordered police state des 17. und 18. Jhs. mit seiner Politik 

-der Sozialdisziplinierung hervorging (Raeff 1983; Rassem 1983; Schulze 

-1987).

-
-
-vermittelte politische Rationalisierung und deren Ausgreifen auf die 

-unterschiedlichsten Lebensbereiche beschreibt, ist ihm nicht zu 

-widersprechen. Die Machttheorie zielt indes dar�ber hinaus und setzt 

-sich dadurch der Kritik aus. Wenn es n�mlich einen herausragenden Zug 

-in der Entwicklung seit dem 19. Jh. gibt, dann den, da� sowohl die 

-Gesellschaft als auch die Wissenschaft immer weniger durch ihr 

-politisches Vorzeichen bestimmt sind und sich stattdessen in Formen 

-abstrakt und anonym gewordener Verh�ltnisse realisieren, die sich mit 

-dem Begriff der Macht nur mehr um den Preis einer Contradictio in 

-adiecto bezeichnen lassen. Die unterschiedslose Subsumtion der 

-politisch strukturierten Gesellschaft des Ancien R�gime und der 

-modernen kapitalistischen Gesellschaft unter einen Begriff der Macht, 

-der von Foucault selbst als "Fortsetzung des Krieges mit anderen 

-Mitteln", als eine Form "kriegerischer Herrschaft " und als 

-"verallgemeinerter Krieg" (1978, 71, 40; 1976, 38, 217) definiert 

-wird, verdeckt die grundlegende Tatsache, da� die heutige Welt, wie 

-Marx es ausgedr�ckt hat, eine Welt der sachlichen 

-Abh�ngigkeitsverh�ltnisse im Gegensatz zu den pers�nlichen ist, eine 

-Welt, in der die Individuen "von Abstraktionen beherrscht werden, 

-w�hrend sie fr�her voneinander abhingen" (Marx 1974, 81f.).

-
-
-Gesellschaft, der sich nach Marx bekanntlich so sehr anonymisiert, da� 

-selbst der Kapitalist im Zuge der Entwicklung zum Aktienkapital als 

-�berfl�ssige Person aus dem Produktionsproze� verschwindet. Er gilt in 

-noch eminenterem Sinne f�r Wissenschaft und Technik, die mit 

-Willenskategorien nicht mehr begriffen werden k�nnen. Wissenschaft und 

-Technik gehorchen keinem einzigen der Kriterien, die Foucault f�r die 

-Macht anf�hrt. Sie sind weder relational noch intentional, noch 

-partikular-interessengebunden, noch milit�risch-kriegerisch, obwohl 

-ihnen diese Dimensionen sekund�r durchaus zukommen k�nnen. Ihre 

-Kriterien sind ausnahmslose Geltung (solange keine Falsifizierung 

-vorliegt), absolute Notwendigkeit, durchgehende rationale 

-Gesetzm��igkeit und Autonomie im Sinne der Kontrolle �ber ihre 

-Voraussetzungen. Wissenschaft und Technik sind keine Funktion der 

-Macht, sie ersetzen vielmehr das Gef�ge wechselnder 

-Willensverh�ltnisse durch ein System, das selbstreferentiell und 

-'autopoietisch' (Luhmann) prozediert, d.h. nur solche Elemente 

-verwendet, die innerhalb des Systems selbst konstituiert werden. Ein 

-solches Verst�ndnis schlie�t nicht aus, die Autopoiesis von 

-Wissenschaft und Technik ihrerseits als gesellschaftlich produziert 

-und durch die herrschende gesellschaftliche Struktur vermittelt zu 

-begreifen; wohl aber, sie wie Foucault auf ein blo�es Machtspiel zu 

-reduzieren.

-
-
-Hinblick auf normative Mechanismen. Zwar fehlt der Begriff der 'Norm' 

-durchaus nicht in Foucaults Arbeiten, wie dies ja auch bei 

-Untersuchungen, die mit dem Strafsystem zu tun haben, kaum zu 

-vermeiden ist. Wie Canguilhem jedoch, auf dessen Vorarbeiten er sich 

-explizit beruft, versteht Foucault diesen Begriff ausschlie�lich im 

-Sinne der modernen Industrienormen, als ein Richtma�, das dazu dient, 

-"einem Daseienden, Gegebenen eine Forderung aufzuzwingen, von der aus 

-sich Vielfalt und Disparatheit dieses Gegebenen als ein nicht blo� 

-fremdes, sondern feindliches Unbestimmtes darstellen" (Canguilhem 

-1977, 163). Die Macht der Norm kommt nach diesem Verst�ndnis vor allem 

-in der Disziplin zum Ausdruck, in den verschiedenen Techniken der 

-Normierung und Normalisierung, die die Individuen einem System 

-zwanghaft fixierter Verhaltensschemata unterwerfen und dadurch 

-Stabilit�t und Homogenit�t des Herrschaftsgef�ges sichern. 

-"Disziplinarische Normalisierung", sagt Foucault, "ist der Entwurf 

-eines optimalen Modelles, die Operation der Disziplin besteht darin, 

-die Leute an dieses Modell anzupassen" (1982, 8).

-
-
-einf�ngt, die in den herk�mmlichen Ideen- und Rechtsgeschichten 

-notorisch unterbelichtet bleiben; der Stellenwert, der ihnen in einer 

-nichtreduktionistischen Theorie der Rationalisierung zukommt, wird 

-noch zu er�rtern sein. Nicht weniger evident ist indes, da� es nur 

-einen Ausschnitt aus jenem breiten Spektrum von Formierungs- und 

-Kontrollmechanismen erfa�t, wie es lange vor Foucault eindrucksvoll 

-von Kant skizziert worden ist. In seiner Vorlesung �ber P�dagogik 

-(1803), die Foucault bei seiner Arbeit an der �bersetzung der 

-'Anthropologie in pragmatischer Hinsicht' sicher nicht entgangen sein 

-wird21, schr�nkt Kant die Disziplin auf die Rolle eines blo� negativen 

-Fundaments ein: Fundament, weil die Disziplin oder Zucht die Tierheit 

-in die Menschheit umwandle und verh�te, da� die Individuen durch ihre 

-animalischen Antriebe von ihrer menschlichen Bestimmung abgelenkt 

-w�rden; nur negativ, weil die Disziplin blo� Fehler verhindere, ohne 

-selbst eigene positive Ziele geben zu k�nnen. Neben dieser 'blo� 

-physischen' Erziehung durch Disziplinierung kennt Kant die praktische 

-Erziehung, die sich ihm als ein B�ndel komplexer, neben dem �u�eren 

-Verhalten zunehmend auch das Innere erfassender Strategien darstellt: 

-als Kultivierung, die die n�tigen Fertigkeiten und Geschicklichkeiten 

-vermittelt; als Zivilisierung, die die f�r den gesellschaftlichen 

-Verkehr unentbehrlichen Formen der Affektmodellierung und 

-Triebkontrolle bereitstellt; und als Moralisierung, die auf die 

-Unterwerfung der je subjektiven Zwecke und Motive unter 

-gesellschaftliche, d.h. universalistische Prinzipien zielt. "Der 

-Mensch soll nicht blo� zu allerlei Zwecken geschickt sein, sondern 

-auch die Gesinnung bekommen, da� er nur lauter gute Zwecke erw�hle. 

-Gute Zwecke sind diejenigen, die notwendigerweise von jedermann 

-gebilligt werden; und die auch zu gleicher Zeit jedermanns Zwecke sein 

-k�nnen" (Kant 1968, XII, 707).

-
-
-anschlie�en: einmal, weil die Ethik, auf der sie beruht, die 

-Sozialisation in eine abstrakte Gesellschaft zum Telos hat (Adorno, GS 

-6, 211ff.), dann aber auch, weil der Disziplinbegriff mit seiner 

-Beschr�nkung auf rein negative Funktionen zu eng ist und Kants eigenen 

-Darlegungen nicht entspricht: Wenn es nicht nur eine Disziplin des 

-K�rpers und der Affekte, sondern auch eine Disziplin der reinen 

-Vernunft gibt, so sind zumindest die Grenzen zwischen Disziplinierung 

-und Kultivierung (im Sinne einer Ausbildung kognitiver F�higkeiten) 

-weit durchl�ssiger, als Kant wahrhaben will22. Gegen�ber Foucaults 

-extensivem Verst�ndnis von Disziplin indes, das auch noch 

-interaktionsbezogene und normative Mechanismen umfa�t, ist Kants 

-Modell vorzuziehen, weil es die verschiedenen Dimensionen des modernen 

-Formierungsprozesses klarer differenziert: die nichtdiskursiven 

-Praktiken f�r die Schaffung gehorsamer und gelehriger K�rper; die 

-Formung eines methodisch-disziplinierten wissenschaftlichen Verstandes 

-durch Schulung/Unterweisung, welche freilich auf den nichtdiskursiven 

-Praktiken des Drills und der Bestrafung aufbaut und sich nicht selten 

-darin ersch�pft, wie ein Blick in die Geschichte der 'Schwarzen 

-P�dagogik' lehrt (Rutschky 1977; Stone 1979, 115ff.; de Mause 1980, 66 

-ff.); die mit dem Begriff der Zivilisierung umschriebene Sublimierung 

-von Interaktionsanforderungen, die f�r das Leben bei Hofe oder in der 

-guten Gesellschaft erforderlich war; und jene singul�re, untrennbar 

-mit dem okzidentalen B�rgertum verbundene Strategie der Moralisierung, 

-die das Prinzip des 'affektiven Individualismus' (Stone) mit der 

-Implantation eines 'vorhergehenden Gewissens' verkoppelte (Kittsteiner 

-1984). Erst diese letztere Strategie vollendet die �berwindung des 

-Naturzustands, weil allein sie in jene inneren Reservate vorzudringen 

-vermag, die sowohl der Disziplinierung als auch der Kultivierung und 

-Zivilisierung als blo� �u�erlichen Konditionierungsweisen unzug�nglich 

-bleiben. Kant hat daher in der Moralisierung das h�chste und zugleich 

-am schwersten erreichbare Ziel der Erziehung gesehen:

-
-
-Artigkeit und Anst�ndigkeit. Aber, uns f�r schon moralisiert zu halten, daran fehlt noch sehr viel. Denn die Idee der Moralit�t geh�rt 

-noch zur Kultur; der Gebrauch dieser Idee aber, welcher nur auf das Sitten�hnliche in der Ehrliebe und der �u�eren Anst�ndigkeit 

-hinausl�uft, macht blo� die Zivilisierung aus. So lange aber Staaten alle ihre Kr�fte auf ihre eiteln und gewaltsamen 

-Erweiterungsabsichten verwenden, und so die langsame Bem�hung der inneren Bildung der Denkungsart ihrer B�rger unaufh�rlich 

-hemmen, ihnen selbst auch alle Unterst�tzung in dieser Absicht entziehen, ist nichts von dieser Art zu erwarten; weil dazu eine lange 

-innere Bearbeitung des gemeinen Wesens zur Bildung seiner B�rger erfordert wird" (Kant 1968, XI, 44f.).

-
-
-pauschalisierender Rede von Normierung/Normalisierung besteht darin, 

-da� es eine ganze Reihe von Forschungen zu integrieren vermag, von 

-denen Foucault nur am Rande oder gar nicht Notiz nimmt, obwohl sie 

-sein Thema unmittelbar ber�hren. Auf dem Gebiet der Disziplinierung 

-ist hier etwa an die verschiedenen relig�s-ethisch motivierten Formen 

-der Selbstdisziplin zu denken, wie sie in der fr�hen Neuzeit vom 

-Neostoizismus oder vom Puritanismus propagiert wurden 

-(Treiber/Steinert 1980, 90, 104ff.; Leites 1988); auf dem Gebiet der 

-Kultivierung an die Bedeutung der Alphabetisierung und 

-Literarisierung, die seit dem 16. Jh. einem stets wachsenden Teil der 

-Bev�lkerung Zugang zu einem der wichtigsten Machtmittel verschafften, 

-gleichzeitig aber auch die Basis staatlicher Herrschaft erweiterten 

-(Schenda 1981; Spittler 1980); auf dem Gebiet der Zivilisierung 

-nat�rlich an die Arbeiten von Norbert Elias �ber die 

-Verhaltens�nderungen in den weltlichen Oberschichten des Abendlands, 

-die zum Vorbild f�r zahlreiche weitere Untersuchungen geworden sind 

-(Gleichmann 1979, 1984; Krumrey 1984; Schr�ter 1985). Der Proze� der 

-Moralisierung endlich ist zu wissenschaftlicher Prominenz 

-haupts�chlich im Zusammenhang mit den Diskussionen �ber die 

-protestantische Ethik gelangt, doch war er damit mitnichten zuende: so 

-hat z.B. Wolfgang Dre�en die �berlegenheit der franz�sischen 

-Revolutionsarmeen gegen�ber dem Heer friderizianischer Pr�gung mit der 

-gr��eren taktischen Beweglichkeit erkl�rt, welche das 

-Erziehungsprinzip der moralischen Selbstregulierung gegen�ber einer 

-blo� mechanischen Disziplin gew�hrt (Dre�en 1982, 266f.); ein anderes 

-Beispiel ist der auff�llige R�ckgang der Verbrechensrate in der Zeit 

-zwischen ca. 1840 und 1930, der von manchen Autoren mit dem Hinweis 

-auf jene eigent�mliche Intensivierung des Moralbewu�tseins erkl�rt 

-wird, welche sich an so unterschiedlichen Ph�nomenen wie der aus der 

-evangelikalen Erweckungsbewegung hervorgegangenen Stadtmissionierung, 

-den philanthropisch inspirierten Reformen des Sozial- und 

-Erziehungswesens und der Ausbreitung des Temperenzlertums ablesen 

-lasse23. Ob diese Hypothese stimmt oder nicht - sie steht immerhin in 

-Widerspruch zu der von Durkheim anhand der kontr�r verlaufenden 

-Selbstmordkurve entwickelten Anomiethese -, ist eine Frage, die nur 

-empirisch entschieden werden kann. Da� sie �berhaupt aufgestellt und 

-mit plausiblen Argumenten untermauert werden kann, ist allerdings ein 

-Indiz f�r die Notwendigkeit, den kategorialen Rahmen nicht dadurch von 

-vornherein einzuschr�nken, da� man Moralisierung auf eine Variante der 

-Disziplinierung reduziert24.

-
-
-mu�, sieht nicht g�nstig aus. Die Machttheorie, die das Konzept der 

-Disziplinargesellschaft tragen soll, vermag diese Aufgabe nicht zu 

-erf�llen. Sie ist reduktionistisch und simplifizierend, sie produziert 

-Pseudoevidenzen und f�hrt dazu, die Bewegung des Gedankens vorschnell 

-zu sistieren. Sie pr�sentiert sich als objektive Genealogie und ist 

-doch in Wahrheit reiner Subjektivismus, der alles, was ist, auf Wille 

-und Handlung zur�ckf�hrt. Sie verspricht eine neue, 

-nichttotalisierende Geschichte und totalisiert doch selbst, nur sehr 

-viel schlechter als etwa Marx oder Hegel, indem sie alle Differenzen 

-in den allgemeinen Nebel der 'Macht' aufl�st. Auf dieser Grundlage ist 

-das Projekt einer Theorie der Disziplinargesellschaft undurchf�hrbar.

-
-
-
-
-
-
-
-
-
-
-in diese Richtung. Habermas, der sich gleichwohl von Foucaults 

-Analysen der kapillarischen Wirkungen der Disziplin fasziniert zeigt, 

-ist vom "Primat der Lebenswelt" gegen�ber den vermachteten und 

-disziplin�r organisierten Subsystemen der modernen Gesellschaft zu 

-tief �berzeugt, als da� er mit der Diagnose eines 'Kerker-Kontinuums' 

-sich anfreunden k�nnte. Eine derartige Charakterisierung erscheint ihm 

-als unhaltbar, weil sie die Zweideutigkeit des 

-Modernisierungsprozesses, das Nebeneinander von pathologischen und 

-emanzipatorischen Z�gen, unterschlage. �hnlich sieht es Honneth: das 

-von Foucault entworfene "Zwangsmodell gesellschaftlicher Ordnung", das 

-im Ergebnis auf verbl�ffende Weise mit Adornos Vision der verwalteten 

-Welt �bereinstimme, sei unbrauchbar, weil in ihm die "normativen und 

-kulturellen Orientierungen der vergesellschafteten Subjekte" keinen 

-Anteil an der sozialen Integration h�tten25.

-
-
-Disziplinargesellschaft so aktuell macht. Wie realit�tsnah Foucaults 

-Untersuchungen trotz ihrer theoretischen Schw�chen sind, zeigt sich 

-nirgends deutlicher als in dem Umstand, da� etwa Habermas in seinen 

-empirisch gerichteten Gegenwartsdiagnosen dem Konzept der 

-Disziplinargesellschaft erheblich n�her kommt, als es die theoretisch-

-programmatische Distanzierung gestattet. Nicht anders als Foucault 

-konstatiert auch er eine "Ausdehnung und Verdichtung des monet�r-

-b�rokratischen Komplexes", die zu einer Entm�chtigung des 

-kommunikativen Handelns f�hre; nicht anders als der Theoretiker der 

-Macht-Wissen-Komplexe registriert auch er das  "hypertrophe Wachstum 

-der mediengesteuerten Subsysteme, welches ein �bergreifen 

-administrativer und monet�rer Steuerungsmechanismen auf die Lebenswelt 

-zur Folge hat" (Habermas 1981, 516, 460, 489). Gewi� - Habermas geht 

-nicht so weit, auch im Individuum ein blo�es Korrelat von 

-Machttechniken zu sehen. Da� die gesellschaftliche Ordnung der Moderne 

-aber auf weite Strecken von nichtnormativen Praktiken regiert wird, 

-r�umt auch er ein: "Indem sich die Subsysteme Wirtschaft und Staat 

-�ber die Medien Geld und Macht aus einem in den Horizont der 

-Lebenswelt eingelassenen Institutionensystem ausdifferenzieren, 

-entstehen formal organisierte Handlungsbereiche, die nicht mehr �ber 

-den Mechanismus der Verst�ndigung integriert werden, die sich von 

-lebensweltlichen Kontexten absto�en und zu einer Art normfreier 

-Sozialit�t gerinnen" (ebda; 455). Als deskriptiver Begriff ist das 

-Konzept der Disziplinargesellschaft also offenbar doch nicht v�llig 

-unbrauchbar; und es gewinnt noch an �berzeugungskraft, wenn man sieht, 

-wie bla� und leer der von Habermas als Konterkategorie eingef�hrte 

-Begriff der Lebenswelt letztlich bleibt.

-
-
-ist zu negieren, soweit es sich zur Totalit�t aufspreizt und sich als 

-Aussage �ber das Ganze der modernen Gesellschaft pr�sentiert, wie dies 

-in der Redeweise vom "Kerker-Gewebe der Gesellschaft" oder vom 

-"verallgemeinerte(n) Kerkersystem, das in die Tiefe des 

-Gesellschaftsk�rpers hineinwirkt" (1976, 392, 390), geschieht. Die 

-Gesellschaft ist kein Gef�ngnis und die Vernunft nicht die Folter. 

-Festzuhalten aber ist das Konzept, insofern es das Faktum registriert, 

-da� die Disziplin den �brigen von Kant herausgearbeiteten 

-Formierungsmechanismen eindeutig den Rang abgelaufen hat. So entpuppt 

-sich beispielsweise ein erheblicher Teil der von Elias unter dem Titel 

-'Zivilisierung' beschriebenen Konditionierungsvorg�nge (etwa des 

-Sexualverhaltens oder der Reinlichkeitsdressur) bei n�herem Hinsehen 

-als eine Variante der Disziplinierung, wohingegen die typischen 

-Manifestationen von Zivilisation (im Sinne z.B. des Raffinements der 

-Konversation, der Steigerung der Distinktionsf�higkeit oder einfach 

-des schonenden und taktvollen Umgangs miteinander) ihren sozialen 

-Tr�ger - die h�fische Aristokratie und das noch halb aristokratische 

-B�rgertum des 18. und 19. Jhs. - nicht �berlebt haben. Da� h�fische 

-Interaktionsformen ohne wesentlichen Kontinuit�tsbruch von der 

-industriellen Gesellschaft �bernommen und zu konstitutiven Merkmalen 

-bestimmter Nationalcharaktere erhoben worden seien - diese seine 

-Zentralthese belegt Elias nicht, und sie leuchtet auch nicht ein vor 

-dem Hintergrund einer Konfiguration, die nicht mehr wie die h�fische 

-Gesellschaft von einer �konomie der Verschwendung gepr�gt ist, sondern 

-von einer '�konomie der Zeit' (Marx), die die Zivilisationskurve des 

-Essens auf das Niveau von fast food und die der Erotik auf dasjenige 

-von quickies herabgedr�ckt hat. Wie weiter oben gezeigt, gewinnen denn 

-auch seit einiger Zeit Theorien an Plausibilit�t, die die Epoche in 

-geradem Gegensatz zu Elias im Zeichen einer s�kularen Entzivilisierung 

-sehen.

-
-
-ab. Nicht da� moralische Codierungen an Prominenz verl�ren oder keinen 

-Einflu� auf Interaktionen und Entscheidungen mehr aus�bten. Ganz im 

-Gegenteil. Der moralische Protest beispielweise (um nur eine der 

-vielf�ltigen Erscheinungsformen des Moralischen herauszugreifen) 

-verf�gt heute �ber ein so ausgedehntes Themenreservoir und ein so 

-breites Rekrutierungsfeld, da� seine Regenerationsf�higkeit auf 

-l�ngere Zeit gesichert ist. Es gibt immer wieder eine neue Diktatur, 

-auf die sich pl�tzlich die Aufmerksamkeit richtet, immer wieder eine 

-neue Dummheit irgendwelcher Exekutiven, an der sich die Flamme der 

-Emp�rung entz�nden kann. Im Zeitalter des Satellitenfunks w�chst die 

-Zahl der Ungerechtigkeiten mit den im Einsatz befindlichen 

-Nachrichtenj�gern und f�hrt dem Dauerprotest immer neue Motive zu.

-
-
-auch der b�rgerlichen P�dagogik des 19. Jhs. vorschwebte, m�ssen diese 

-Erscheinungsformen strikt getrennt werden. Die b�rgerlich-

-protestantische Moralisierung zielte auf Formung des Ungeformten, auf 

-Domestizierung jenes in den unauslotbaren Tiefen der Seele noch 

-fortwirkenden Naturzustandes, der auf staatlich-juridischer Ebene mit 

-dem Abschlu� des Gesellschaftsvertrages �berwunden worden war. Ihr 

-Erziehungsmodell war jener von Riesman treffend beschriebene 

-innengeleitete Charakter, der sich an die Signale eines fr�hzeitig 

-internalisierten seelischen Kreiselkompasses gebunden f�hlte und 

-dergestalt individuelle Autonomie mit gesellschaftlicher, 

-prinzipiengesteuerter Orientierung verband.

-
-
-die Grundlage entzogen. Schon Freud registrierte, da� nur eine 

-Minderheit �ber ein steuerndes und lenkendes Gewissen verf�gte, 

-w�hrend die Mehrzahl davon nur ein bescheidenes Ma� mitbekommen habe 

-(Freud I; 500); �hnlicher Ansicht war Max Weber, f�r den das 

-'stahlharte Geh�use' des Kapitalismus l�ngst ohne die Verinnerlichung 

-einer spezifischen Berufsethik funktionierte, oder Georg Simmel, f�r 

-den die Moderne eine Individualisierung wie noch zu Rembrandts oder 

-Shakespeares Zeiten ausschlo�; die heutigen Individuen, meinte Simmel, 

-seien "nichts als die Oszillationen in einer heraklitischen Welt, zu 

-deren Totalit�t sie die Zugeh�rigkeit nur um den Preis gewinnen, 

-jegliche Substanz und Lebenseinheit dem blo�en Jetzt des absoluten 

-Werdens preiszugeben" (Simmel 1919, 138). Nicht anders sahen es sp�ter 

-so gegens�tzliche Autoren wie Adorno, von dessen Auffassung noch 

-ausf�hrlicher die Rede sein wird, und Arnold Gehlen, f�r den die 

-Moderne einerseits durch 'Schnittpunktexistenzen', andererseits durch 

-eine ungemeine Ausdehnung der Willk�r bestimmt war. Gerade weil die 

-Individuen in einer von Automatismen und Schematismen gepr�gten Welt 

-nichts Wirkliches mehr ver�ndern k�nnten, so Gehlens These, st�rzten 

-sie sich in einen ungehemmten Subjektivismus, eine 

-'Moralhypertrophie', die ebenso exaltiert wie folgenlos sei26. Da� 

-eine derart zum Mittel des pers�nlichen Ausdrucks gewordene Moral noch 

-als 'Schrittmacher der sozialen Evolution' (Habermas) fungieren 

-k�nnte, erscheint unwahrscheinlich, was freilich politische und 

-soziale Folgen des expressiven Moralismus keineswegs ausschlie�t. Im 

-Hinblick auf die Gesamtgesellschaft jedenfalls d�rfte die Vermutung 

-Luhmanns realistischer sein, da� "die Dominanz funktionaler 

-Differenzierung, wenn und soweit sie sich als Formprinzip der 

-Gesellschaft durchsetzt, die Moral evolution�r abh�ngt und ideologisch 

-wie motivational disprivilegiert"27. Das Ende der Moral ist damit 

-nicht erreicht. Wohl aber jener Moralisierung, von der noch Kant 

-tr�umte.

-
-
-aus, die 'dunkle Kehrseite' der Moralisierung und Zivilisierung - die 

-Disziplin. Zu den klassischen totalen Institutionen - Kloster und 

-Kaserne - sind seit dem 19. Jh. zahllose andere hinzugekommen: 

-Institutionen der aufbewahrenden F�rsorge wie Blinden- und 

-Altersheime, Waisenh�user und Armenasyle; der isolierenden F�rsorge 

-wie Krankenh�user und Psychiatrien; der Einschlie�ung und Absonderung 

-wie Zuchth�user, Gefangenen-, Konzentrations- und Arbeitslager. Durch 

-die Vermehrung und Expansion dieser Disziplinaranlagen verwandelt sich 

-die Gesellschaft nicht in ein Kerker-Kontinuum. Wie Goffman zu Recht 

-bemerkt, sind totale Institutionen weder mit der Arbeit-Lohn-Struktur 

-noch mit der familialen Gliederung, noch, wie man hinzuf�gen kann, mit 

-der auf Konkurrenz gegr�ndeten Organisation des politischen Systems 

-vereinbar (Goffman 1972, 22ff.). Unverkennbar ist jedoch, da� 

-disziplin�re Mechanismen auch in den offenen, durch freie 

-Mitgliedschaft gekennzeichneten Institutionen eine dominierende Rolle 

-spielen. Disziplin�r organisiert, sogar mit einem eigenen 

-Disziplinarrecht ausgestattet, ist der gesamte Staatsapparat mit 

-seinem stehenden und seinem sitzenden Heer. Disziplin�r organisiert 

-sind die privaten gewerblichen Betriebe, wovon schon ein einziger 

-Blick in eine Fabrikhalle oder ein Gro�raumb�ro zeugt 

-(Treiber/Steinert 1980; Fritz 1982) - ganz zu schweigen von den rasch 

-expandierenden mikroelektronischen Personalinformationssystemen, die 

-Zugang, Leistung und Kommunikation innerhalb der Betriebe einer 

-l�ckenlosen Kontrolle unterwerfen und, indem sie das Auge des Meisters 

-durch das zwingende Wissen des Computers ersetzen, eine neue Stufe in 

-der Evolution der Disziplin ank�ndigen: die Automatisierung der 

-Disziplin (Ortmann 1984, 107ff.; Poster 1984, 115). Der organisierte 

-Massensport, vom Volkslauf bis zum Werksfu�ball, ist eine einzige 

-Disziplinaranlage (Rigauer 1982; Eichberg 1986, 185ff.); und ohne 

-Disziplin geht im modernen Massentourismus nichts. Auch in der 

-politischen Demokratie dominieren b�rokratische Apparate und 

-hierarchisch strukturierte Entscheidungsprozesse. Selbst die 

-Opposition gegen diese Apparate und die von ihnen erzwungene Disziplin 

-kommt nicht umhin, ihre Anh�nger zu reglementieren und dabei ihr 

-charismatisches Kapital aufzuzehren. Kein Zweifel: in einer 

-Gesellschaft, die den weitaus gr��ten Teil ihrer Funktionen �ber 

-Organisationen abwickelt, ist Disziplin - die pauschale Anerkennung 

-und automatische Befolgung der Mitgliedschaftsregeln - zur Conditio 

-sine qua non geworden. Mit seiner ber�hmten Metapher vom 'stahlharten 

-Geh�use' hat Max Weber diese Entwicklung vor mehr als achtzig Jahren 

-antizipiert.

-
-
-oder 'strategischen Spielen' (Foucault) zu tun, sondern ist eine Folge 

-von Systemprozessen, die sich jeder interaktionistischen Deutung 

-entziehen. Die moderne Gesellschaft ist das Ergebnis einer 

-weltgeschichtlich einzigartigen Desintegration, in deren Verlauf sich 

-der in den vormodernen Kulturen politisch oder religi�s eingekapselte 

-Modus der funktionalen Differenzierung verselbst�ndigte und zur 

-Evolution neuer, h�chst unwahrscheinlicher und riskanter Synthesen 

-trieb. Anstelle der autarken Lokalgesellschaften des Mittelalters trat 

-ein interdependentes Verflechtungssystem, das den gesellschaftlichen 

-Stoffwechsel mit der Natur von der Vermittlung durch die Zirkulation 

-von Waren abh�ngig machte; anstelle der direkten, familial, politisch-

-herrschaftlich und religi�s begr�ndeten Bindungen eine indirekte 

-Synthese, in der die einzelnen ihre Verklammerung in das �bergreifende 

-Verflechtungsnetz erst auf dem Markt erfuhren.

-
-
-�berzeugende Weise dargestellt. Er hat gezeigt, wie die Verdichtung 

-von funktionaler Differenzierung und Marktvergesellschaftung dazu 

-f�hrte, da� sich das Wertgesetz als Prinzip der Systemintegration 

-durchsetzte, wie dieses Wertgesetz die Homogenisierung der 

-Einzelarbeiten durch Messung am Tauschwert, d.h. durch Relationierung 

-der in Zeitquanta ausgedr�ckten abstrakten Arbeit, bewerkstelligte; 

-wie diese Homogenisierung mit zunehmender Ausdehnung der Lohnarbeit 

-und fortschreitender Vergesellschaftung der Produktion mehr und mehr 

-in den Produktionsproze� selbst verlagert wurde, indem die Funktionen 

-der lebendigen und der toten Arbeit (der Maschinerie) nach 

-einheitlichen Zeitma�st�ben koordiniert bzw., um einen Ausdruck Sohn-

-Rethels aufzugreifen, 'kommensuriert' wurden; und wie dadurch die 

-abstrakte Zeit aus einem nur ideell gesetzten Ma�stab zum 

-beherrschenden Organisationsprinzip der �konomie wird. Damit ist nicht 

-gesagt, da� die zeit�konomische Durchdringung sich in s�mtlichen 

-Produktionszweigen linear und simultan durchsetzt. Wie die kritische 

-Modifizierung der Thesen Sohn-Rethels durch die neueren Forschungen 

-des 'Instituts f�r Sozialforschung' gezeigt hat, vollzieht sich die 

-zeit�konomische Rationalisierung in heterogenen Verlaufsformen, die 

-durch die variierenden Marktverh�ltnisse und durch branchenspezifische 

-Besonderheiten gepr�gt sind28. Der s�kulare Trend bleibt davon jedoch 

-unber�hrt. Kapitalisierung bedeutet Objektivierung und Erweiterung der 

-zirkulationsbegr�ndeten Formen von Wissen, Kommunikation und 

-Organisation; dagegen Formalisierung und Entwertung aller 

-'naturw�chsig'-spontanen Kompetenzen, Denk- und Erfahrungsmuster. 

-"�konomie der Zeit, darein l�st sich schlie�lich alle �konomie auf" 

-(Marx 1974, 89).

-
-
-Foucault beschriebenen Verallgemeinerung der Disziplin zu suchen. 

-Nat�rlich beginnt die Geschichte der Disziplin nicht erst mit der 

-b�rgerlichen Gesellschaft und der f�r sie typischen 'Herausl�sung' der 

-�konomie; und nat�rlich spielen au�er�konomische, insonderheit 

-politische Mechanismen wie die Konzentration der Verwaltungs- und 

-Kriegsbetriebsmittel im absolutistischen Staat eine nicht 

-wegzudenkende Rolle f�r den �bergang von der blo�en 'Virtuosen-' zur 

-'Sozialdisziplinierung' (Treiber/Steinert 1980, 89; Dreyfus/Rabinow 

-1987, 165; Bauer/Matis 1988, 315ff.). W�hrend aber diese fr�hen Formen 

-der Disziplinierung des subjektiven Antriebs und der Gewalt nicht 

-entbehren k�nnen - die Menschen, schreibt Friedrich II. von Preu�en, 

-"bewegen sich, wenn man sie antreibt, und stehen still, wenn man nur 

-einen Augenblick aufh�rt, sie vorw�rts zu dr�ngen"(Hubatsch 1973, 234) 

-- kommt es zu einer Objektivierung und damit zu einer dauerhaften 

-Verallgemeinerung der Disziplin erst mit der Totalisierung der 

-abstrakten Arbeit und dem damit verbundenen Aufstieg der abstrakt-

-linearen Zeit zur 'Systemzeit'29. Zeit�konomische Imperative f�hren zu 

-einer Umstrukturierung des konstanten und einer tiefgreifenden 

-Ver�nderung des variablen Kapitals, welche vor allem die Zurichtung 

-der motorischen und sensomotorischen Bewegungsabl�ufe und die 

-Zur�ckdr�ngung des 'K�rper-Wissens' betrifft (B�hle 1989). 

-Zeitsparende Mechanismen sedimentieren sich im Aufbau der modernen 

-Gro�organisationen und stellen auch hier das Verhalten unter das 

-Diktat der Zeitdisziplin. Selbst scheinbar so eigenst�ndige Strukturen 

-wie die Prinzipien der vertikalen Kommunikation, der Rollentrennung 

-und der Entscheidung nach universalistischen Kriterien lassen sich 

-nach Luhmann unter dem Gesichtspunkt interpretieren, da� sie 

-langwierige interne und externe Kommunikationsprozesse abk�rzen sollen 

-(Luhmann 1983, 15O). Es d�rfte nicht schwerfallen, auch im sogenannten 

-Freizeitbereich Formen zu identifizieren, die der ubiquit�ren 

-Temporalisierung Rechnung tragen und ihr ad�quate Rezeptions- und 

-Verhaltensstile etablieren (Film, Autokultur). Da� die 

-'Disziplinarzeit' auf die p�dagogische Praxis �bergreift und hier zu 

-grundlegenden Umw�lzungen f�hrt, indem sie z.B. die Ausbildungs- von 

-der Berufszeit l�st, hat Foucault gesehen, allerdings sogleich in den 

-Rahmen der Machttheorie gepre�t: "Die Macht tritt der Zeit sehr nahe 

-und sichert sich ihre Kontrolle und ihre Ausnutzung" (1976, 206). In 

-Wirklichkeit verh�lt es sich genau umgekehrt: die Zeit wird nicht zu 

-einer Funktion der Macht, sondern die zur Systemzeit gewordene Zeit 

-produziert asymmetrische Handlungs- und Befehlsketten und generiert 

-damit Machtrelationen, die das Verhalten der einzelnen determinieren.

-
-
-
-
-
-
-
-
-
-
-Einwand erhoben, sie stelle zu einseitig die Aspekte der 

-Herrschaftssicherung und Verdinglichung heraus und verfehle damit die 

-bei Foucault doch auch angelegte Einsicht, da� "jene Vorg�nge eines 

-organisierten Ausbaus der Sozialkontrolle stets in einem 

-lebensweltlichen Horizont von praktischen Konflikten um die 

-Legitimit�t sozialer Machtanspr�che verwirklicht sind" (Honneth 1989, 

-238). Diese Kritik ist nun ihrerseits von Einseitigkeiten nicht frei, 

-geht sie doch stillschweigend dar�ber hinweg, da� ich von 

-institutionalisierter Sozialkontrolle allein im Hinblick auf 

-organisierte Sozialsysteme gesprochen und weder die M�glichkeit von 

-Widerstand noch von moralischen Orientierungen bestritten habe. 

-Gleichwohl trifft sie einen Punkt, der in meinen Ausf�hrungen in der 

-Tat zu kurz kam. Auch organisierte Sozialsysteme lassen sich heute 

-zunehmend weniger nur aus der Perspektive des 'Kontroll-Paradigmas' 

-fassen, also jenes Interpretationsrasters, das vor allem die 

-Reglementierung des Erlebens und Handelns von Personen durch 

-Organisationen betont und Subjektivit�t auf eine blo�e 

-Ausf�hrungsinstanz des Sozialsystems reduziert (Schimank 1986, 73). 

-Dieses Paradagma ist zwar nicht falsch, mu� jedoch durch eine andere 

-Sichtweise erg�nzt werden, derzufolge Subjektivit�t nicht blo� auf den 

-Nachvollzug immer schon konstituierter sozialer Ordnungen beschr�nkt 

-ist, sondern diese, wenn schon nicht konstituiert, so doch 

-mitkonstituiert (ebd. 75). Da� f�r Foucault erst beide Perspektiven 

-zusammen ein vollst�ndiges Bild ergeben, wurde am Ende des ersten 

-Abschnittes gezeigt; Foucault selbst hat es noch einmal in der 

-Einleitung zum zweiten Band der Histoire de la sexualit� 

-unterstrichen, in der er darauf verweist, "da� jede 'Moral' im weiten 

-Sinn die beiden angegebenen Aspekte enth�lt: den der Verhaltenscodes 

-und den der Subjektivierungsformen" (1986, 41). Honneth hat also 

-recht, auf eine angemessene Behandlung der letzteren zu dringen. Im 

-Gegensatz zu der weiteren von ihm vorgeschlagenen Interpretation, die 

-hierin eine St�rke der handlungs- gegen�ber den systemtheoretischen 

-Komponenten von Foucaults Analysen sieht, m�chte ich allerdings die 

-These vertreten, da� die Ber�cksichtigung der Subjektivit�t in 

-organisierten Sozialsystemen nur zu einer Flexibilisierung, nicht aber 

-zu einer Sprengung des Begriffs der Disziplinargesellschaft f�hrt.

-
-
-Komplexit�t nicht mehr den gleichen Erkl�rungswert beanspruchen kann 

-wie zu Beginn des Jahrhunderts, als Weber seine B�rokratietheorie und 

-Taylor seine Methoden der wissenschaftlichen Arbeitsgestaltung und 

-Betriebsf�hrung entwickelte, wird heute durch zahlreiche 

-Untersuchungen best�tigt, die einen Wandel der Institutionen zu 

-weniger hierarchischen, mehr informalen und kollegialen Strukturen 

-dokumentieren. Dies gilt etwa f�r die Organisationssoziologie, die 

-seit l�ngerem das Zur�cktreten der verfahrensorientiert-unpers�nlichen 

-Strukturen hinter dienstleistungsorientiert-pers�nlichen Formen 

-registriert und Human-Relations-Gesichtspunkte in den Vordergrund 

-stellt (Schluchter 1972, 140ff.; Hage 1980). Es gilt aber auch f�r die 

-Industriesoziologie, die in wichtigen Bereichen eine Abkehr von den 

-bislang dominierenden tayloristischen Formen der Zeit�konomie 

-festgestellt hat (Kern/Schumann 1984; Bergmann u.a. 1986; Manske 1987; 

-Malsch 1987; Wuntsch 1988, 331ff.; Brandt 1990, 358ff.). Zwar hat sich 

-die Ank�ndigung einer 'Neoindustrialisierung', die eine Zur�ckdr�ngung 

-der Heteronomie von Industriearbeit erm�glichen und die 

-"Voraussetzungen f�r kompetentes, selbstbewu�tes Verhalten im 

-Arbeitsproze�" schaffen sollte (Kern/Schumann 1984, 327; kritisch 

-hierzu: Schmiede/v. Greiff 1985), als �berzogen erwiesen, doch gilt 

-dies ebenso f�r die Annahme einer stetigen Steigerung der direkten 

-sozialen Kontrolle durch Dequalifizierung der Arbeitskraft einerseits, 

-Zentralisierung des Produktionswissens beim Management andererseits. 

-Neuere empirische Untersuchungen legen den Schlu� nahe, da� die 

-tayloristischen und fordistischen Strategien der zeit�konomischen 

-Arbeitszerlegung nur f�r bestimmte Sektoren der Massenproduktion 

-galten, w�hrend sie etwa in der kleinserigen, komplexen 

-Maschinenfertigung stets an den hohen Kosten scheiterten, die f�r den 

-Aufbau leistungsf�higer Arbeitsvorbereitungsabteilungen n�tig gewesen 

-w�ren (Manske 1987, 170); sie zeigen zugleich, da� der Taylorismus als 

-das Mittel zur zentralistischen Kontrolle der Arbeitsausf�hrung und 

-damit der Arbeiter �berall dort seine Grenze findet, wo die 

-Besonderheiten von Materialien und Produkten sowie die Marktlage ein 

-hohes Ma� an betrieblicher Flexibilit�t und Reaktionsf�higkeit 

-erfordern. Die von Sohn-Rethel (1972) und Bravermann (1977) ganz auf 

-der Linie von Marx und Weber beschriebene langfristige Tendenz einer 

-fortschreitenden Einschr�nkung bzw. Eliminierung der 

-Dispositionsspielr�ume wie auch der kognitiven Kompetenz der 

-Arbeitskr�fte h�tte von hier aus gesehen mit Gegentendenzen zu 

-rechnen, die anstelle der reinen Subsumtionslogik st�rker auf 

-indirekte, 'systemische' Kontrollen setzen (Baethge/Oberbeck 1986, 22; 

-Manske 1987, 175) und dabei die eindimensionalen, auf 

-'Fremdbeobachtung' und punktueller Disziplinierung beruhenden 

-tayloristischen Mechanismen durch neue, die 'Selbstbeobachtung' und 

-aktive Beteiligung des Personals akzentuierenden Strategien 

-substituierten (Malsch 1987). Ob sich damit, wie etwa Malsch glaubt, 

-die Chance einer kommunikativen Rationalisierung er�ffnet, mag 

-dahingestellt bleiben. Fest steht jedoch, da� das Kontroll-Paradigma 

-diesen Entwicklungen nur unzureichend Rechnung tr�gt. "Subjektivit�t", 

-so folgert Uwe Schimank, "ist in formalen Organisationen nicht nur 

-eine m�glichst weitgehend sozialem und technischem Reglement zu 

-unterwerfende, weil f�r die organisatorische Ordnung gef�hrliche 

-St�rgr��e; sondern Subjektivit�t ist eine wesentliche 

-Konstitutionsbedingung organisatorischer Ordnung gerade auch in 

-hochtechnisierten Produktionsorganisationen" (1986, 86).

-
-
-Abschnitt skizzierten Argumentation erforderlich, stellen sie jedoch 

-nicht grunds�tzlich in Frage. Auch wenn die Bedienung der zunehmend 

-komplexer und st�ranf�lliger werdenden Produktionsanlagen heute eine 

-flexiblere Funktionsvermischung und eine erh�hte technisch-

-wissenschaftliche Kompetenz des Personals verlangt (Wuntsch 1988, 28, 

-201); auch wenn die Belegschaften ein ganz neuartiges "Drohpotential 

-der Datenmanipulation und der Wissenszur�ckhaltung" erwerben (Malsch 

-1987, 79), folgt daraus doch nicht, da� die systemische Integration an 

-ihre Grenze st��t und eine neue Perspektive er�ffnet, die es 

-erm�glicht, die organisierten Sozialsysteme "als fragile Gebilde zu 

-durchschauen, die in ihrer Existenz vom moralischen Konsens aller 

-Beteiligten abh�ngig bleiben" (Honneth 1985, 334). Bei der 

-Subjektivit�t, die in organisierten und technisierten Systemen 

-operiert, handelt es sich zwar um selbstdeterminierte und insofern 

-zweifellos auch zu moralischen Orientierungen bef�higte personale 

-Systeme, doch ist gerade diese Kompetenz nicht gemeint, wenn von einem 

-Beitrag zu den Konstitutionsbedingungen die Rede ist. Gefragt sind 

-nicht die moralischen und expressiven, sondern die kognitiven und 

-technischen Kompetenzen, mithin jene F�higkeiten zu formaler 

-Rationalit�t, diskursiver Symbolisierung und streng linearer 

-Wahrnehmung, wie sie nur das im kantischen Sinne disziplinierte und 

-kultivierte Individuum besitzt. Gewi� geht das Individuum darin nicht 

-auf. Es verf�gt, auch und gerade im Rahmen informatisierter 

-Produktionstechnologien, �ber die F�higkeit, die durch die jeweilige 

-Technik gesetzten Grenzen sinnhaften Operierens zu �berschreiten, es 

-akkumuliert ein Erfahrungswissen, das durch formalisiertes und 

-standardisiertes Planungswissen nie vollst�ndig ersetzt werden kann. 

-Dennoch handelt es sich um eine Erfahrung h�chst spezifischer Art: 

-nicht die spontane, 'naturw�chsige' Erfahrung der konkreten Arbeit, 

-die eine Wechselbeziehung zwischen dem Arbeitenden, dem Werkzeug und 

-dem je besonderen Material unterstellt, sondern die domestizierte, 

-disziplinierte Erfahrung innerhalb eines vorstrukturierten technischen 

-'Ereignishorizonts', in dem sich die Aktivit�t des Subjekts weitgehend 

-auf die Selektion und Deutung der Zeichen beschr�nkt, die von den 

-Informationssystemen in �berf�lle geboten werden (Hartmann 1990, 42). 

-Erfahrung in diesem Kontext ist immer wissenschaftliche Erfahrung, 

-Produktion immer: Objektivation von Wissenschaft. Die Ver�nderung 

-besteht allenfalls darin, da� sich nunmehr nicht blo� die 

-Wissenschaftler und Ingenieure, sondern Teile der Arbeiterschaft 

-selbst in wissenschaftlicher Weise auf die Erfahrung bzw. die 

-Produktion beziehen und damit gleichsam von der passiven auf die 

-aktive Seite des Abstraktifizierungsprozesses r�cken.

-
-
-Unzul�nglichkeiten seiner Machttheorie, auch nicht sehen k�nnen. Er 

-hat aber immerhin etwas davon geahnt, wenn er von der "Ersetzung eines 

-juridischen und negativen Rasters durch ein technisches und 

-strategisches" spricht (1978, 105), wenn er auf neue Machtmechanismen 

-verweist, die nicht mehr mit dem Recht, sondern mit der Technik 

-arbeiten, wenn er betont, da� die Macht nicht mehr nur 'von oben', 

-sondern auch 'von unten', d.h. von den Subjekten selbst kommt (1977, 

-110, 115). Wenn die direkte Kontrolle � la Taylor �berfl�ssig wird, so 

-nicht, weil das System durch zunehmend autonomere, ihre Qualifikation 

-und ihre Intelligenz wiedergewinnende Subjekte in die Defensive 

-gedr�ngt w�rde. Sondern genau umgekehrt: weil es, flexibler und 

-gleichsam dialektischer geworden, mit den Beitr�gen der Subjekte 

-selbst rechnen kann, die, vom wissenschaftlichen Code gepr�gt, die 

-permanente Optimierung des Systems zu ihre eigenen Sache gemacht 

-haben30.

-
-
-Entwicklung sein, die Foucault unbeachtet gelassen hat, auf die ich 

-jedoch zum Schlu� wenigstens hinweisen m�chte, weil eine Theorie der 

-Disziplinargesellschaft sie nicht ignorieren kann: die partielle 

-Entdisziplinierung, von der die fortgeschrittenen 

-Industriegesellschaften seit einiger Zeit heimgesucht werden. Die 

-allgemeine Erh�hung des Qualifikationsniveaus im Gefolge der 

-'Bildungsrevolution' (Parsons) hat zu einer Entwertung der unteren 

-Bildungsabschl�sse gef�hrt, die die Haupt- und Sonderschulabsolventen 

-in eine �hnliche Lage geraten l��t wie Analphabeten. Die Hauptschule, 

-so hat Ulrich Beck es formuliert (1986, 246), verwandelt sich mehr und 

-mehr in einen 'Aufbewahrungsort f�r arbeitslose Jugendliche', dessen 

-Funktionsbestimmung sich in Richtung Besch�ftigungstherapie 

-verschiebt. Die Folge ist nicht nur eine anomische Reaktion der 

-betroffenen Jugendlichen, die sich etwa am Ph�nomen des ansteigenden 

-Vandalismus ablesen l��t, sondern eine tiefgreifende Entwertung der 

-Autorit�t der Schule und eine Erosion der von ihr vermittelten 

-Disziplin - vor allem in Gro�st�dten mit anhaltend hoher 

-Jugendarbeitslosigkeit und hohem Anteil von Angeh�rigen 

-diskriminierter Minderheiten. W�hrend sich die P�dagogik an Gymnasien 

-eher mit Problemen wie Ehrgeiz, Schulangst, �bertriebene Anpassung und 

-Kontaktschwierigkeiten konfrontiert sieht, werden an Hauptschulen in 

-zunehmendem Ma�e Verhaltensauff�lligkeiten wie Unkonzentriertheit, 

-Ungenauigkeit, Interessenmangel, verbale Aggression und Ungehorsam 

-gegen den Lehrer registriert (Bach 1987, 58 f.). Auch an den 

-Grundschulen mehren sich inzwischen die Unterrichtsst�rungen in Form 

-von �bermotorik, diffuser Aggression, ungerichtetem Agieren und 

-didaktisch-methodischer Unansprechbarkeit, so da� das Bildungsangebot 

-bei einem wachsenden Teil der Sch�ler ins Leere st��t (Ziehe 1983; 

-Cloer 1982; ders. 1987; Winkel 1988). Wenn die Zeichen nicht tr�gen, 

-so scheint es sowohl der sekund�ren als offenbar bereits der prim�ren 

-Sozialisation in Teilen der Gesellschaft zusehends weniger zu 

-gelingen, jene innere Disziplin zu vermitteln, die nicht blo� f�r das 

-Fortkommen, sondern schon f�r das pure �berleben in einer 

-Disziplinargesellschaft unerl��lich ist. Welches immer die Ursachen 

-sein m�gen - Wohnverh�ltnisse, Arbeitslosigkeit, damit 

-zusammenh�ngende defizit�re familiale Kommunikation, nicht zuletzt 

-auch eine durch Fernsehkonsum ver�nderte Organisationsform der Sinne - 

-fest steht, da� man heute nicht mehr schlichtweg von einer 

-Verallgemeinerung der Disziplin, sondern allenfalls von einer 

-partiellen Erweiterung sprechen kann, bei der ganze Sektoren der 

-Gesellschaft als disziplin�re Brachen ausgespart bleiben. Je weiter 

-aber sich diese Brachen ausdehnen, desto dringlicher wird die Frage, 

-ob die von Foucault beschriebene Modernisierung und Humanisierung der 

-Disziplin, ihre Abkehr von einer blo�en 'Gewaltrationalit�t' (Dauk 

-1989, 131), nicht der Anfang eines Prozesses sein k�nnte, in dessen 

-Verlauf die Disziplinargesellschaft ihre eigenen Voraussetzungen 

-zerst�rt. Allein mit den von Foucault bereitgestellten Kategorien wird 

-diese Frage nicht zu beantworten sein.

-
-
-
-
-
-
-
-
-
-
-der Auseinandersetzung mit Elias und Foucault deutlich, erfassen 

-wichtige Aspekte der modernen Gesellschaft. F�r eine Gesamtdiagnose 

-indes ist ihr Instrumentarium zu grob, ihr begrifflicher Zuschnitt zu 

-eng. Es ist deshalb an der Zeit, den Fokus zu erweitern und jene 

-beiden Theorien in den Blick zu nehmen, von denen wir uns in der 

-Kritik an Elias und Foucault vielfach leiten lie�en: die Kritische 

-Theorie und die Systemtheorie.

-
-
-geschrieben worden: �ber die unterschiedliche Auffassung von Handeln 

-und Kommunikation, von Wahrheit und Rationalit�t. Nur selten aber, und 

-dann gew�hnlich am Rande, hat die Debatte das eigentliche Thema 

-probandum ber�hrt, das zwischen beiden Theorien zur Verhandlung steht: 

-die moderne Gesellschaft und ihre Entwicklungstendenzen. Dabei ist 

-kein Feld von so zentraler Bedeutung wie dieses - stimmen doch beide 

-Theorien darin �berein, da� die Zukunft der Soziologie wesentlich 

-davon abh�ngt, ob es ihr gelingt, einen Begriff ihres Gegenstandes - 

-der Gesellschaft - zu entwickeln.

-
-
-Ber�hrungsangst zu sprechen. Vordringlicher ist es, sie zu 

-durchbrechen, indem man den Gegenstand selbst in den Mittelpunkt der 

-Er�rterungen r�ckt. Dies soll im folgenden in drei Schritten 

-geschehen. Im ersten Abschnitt werde ich die Aussagen beider Theorien 

-�ber den Aufbau der modernen Gesellschaft vergleichen, die sich im 

-einen Fall um den Begriff der Totalit�t, im anderen Fall um den des 

-Systems zentrieren. Im zweiten Abschnitt sollen die wichtigsten Thesen 

-�ber die Entwicklungstendenzen der modernen Gesellschaft 

-herausgestellt werden, wobei ich mich vorrangig auf die Frage 

-Differenzierung oder Entdifferenzierung konzentrieren werde. Der 

-letzte Abschnitt behandelt die M�glichkeit wechselseitiger 

-Lernprozesse beider Theorien im Horizont einer sich anbahnenden 

-Konvergenz von Kritik und Affirmation. Der Vergleich wird sich auf 

-Adorno und Luhmann als die beiden Autoren beschr�nken, bei denen die 

-Kritische Theorie und die Systemtheorie in ihrer 'Vollstufe' 

-entwickelt sind.

-
-
-
-
-
-
-
-
-
-
-AAF	1. Jeder Anfang ist eine Vorentscheidung. Nach der Systemtheorie 

-ist mit Differenz zu beginnen, nach dialektischer Auffassung mit 

-Einheit. Folgte man der ersten Position, so w�re man in diesem Fall 

-schnell fertig. Man w�rde zeigen, da� f�r Luhmann Gesellschaft 

-Kommunikation ist und in dieser Eigenschaft sowohl das Ganze 

-verk�rpert als auch das Wahre einschlie�t: die Gesamtheit der 

-Kommunikationen als Selektion aus der Gesamtheit aller anschlu�f�higen 

-- in Luhmanns Terminologie: 'wahren' - Kommunikationen (1990, 533, 

-618f., 175)31. Auf der anderen Seite tauchte dann sogleich die Formel 

-vom Ganzen als dem Unwahren sowie Adornos 'Generalverdacht gegen 

-Kommunikation' auf (M�rchen 1981, 231). "Alles, was heutzutage 

-Kommunikation hei�t, ausnahmslos, ist nur der L�rm, der die Stummheit 

-der Gebannten �bert�nt" (GS 6, 341). Der Dialog w�re zuende, ehe er 

-�berhaupt eingesetzt h�tte.

-

-	Wir m�ssen also nach Art der Dialektik beginnen, mit Einheit statt 

-mit Differenz. Das ist weniger gewaltsam, als es nach dem ersten 

-Vorgepl�nkel den Anschein haben k�nnte, bestimmen doch Adorno wie 

-Luhmann die moderne Gesellschaft ganz konventionell, unter R�ckgriff 

-auf den von Herbert Spencer in die Soziologie eingef�hrten Begriff der 

-funktionalen Differenzierung. Die moderne Gesellschaft ist nach 

-Luhmann kein Organismus und kein Subjekt, sondern "dasjenige 

-Sozialsystem, das die letzterreichbare Form funktionaler 

-Differenzierung institutionalisiert" (1971, 15). "Modern society, 

-then, has to be described as a functionally differentiated system. 

-This is its main characteristic, the principle which generates its 

-structures" (1984, 64).

-

-	Nicht anders sieht es Adorno. Gesellschaft, so verk�ndet er, sei 

-"ein Funktions- und kein Substanzbegriff" (GS 8, 349), Soziologie die 

-"Wissenschaft von den gesellschaftlichen Funktionen" (Adorno 1956, 

-23). W�hrend sich archaische Gesellschaften nicht zuletzt durch ihre 

-nur geringe Arbeitsteilung auszeichneten, habe sich die moderne 

-Gesellschaft zu einem gigantischen Interdependenzzusammenhang 

-entfaltet.

-

-	"Mit Gesellschaft im pr�gnanten Sinn meint man eine Art Gef�ge zwischen Menschen, in dem alles und alle von allen 

-abh�ngen; in dem das Ganze sich erh�lt nur durch die Einheit der von s�mtlichen Mitgliedern erf�llten Funktionen, und in dem 

-jedem Einzelnen grunds�tzlich eine solche Funktion zuf�llt, w�hrend zugleich jeder Einzelne durch seine Zugeh�rigkeit zu dem 

-totalen Gef�ge in weitem Ma�e bestimmt wird" (ebd. 22; vgl. GS 8,10).

-AAF

-	F�r Adorno ist mit dieser Bestimmung allerdings nur erst ein 

-Aspekt der modernen Gesellschaft getroffen. Der zweite f�r ihn 

-wichtige Aspekt ist, da� Gesellschaft ebensosehr eine Relations-, ja 

-eine 'Vermittlungskategorie' sei (Adorno 1973, 36, 39). Was damit 

-gemeint ist, l��t sich durch eine Kontrastierung mit der 

-funktionalistischen Theorie der Systemdifferenzierung verdeutlichen. 

-Diese Theorie, die im �brigen, wie das Beispiel Althusser zeigt, auch 

-in den Marxismus Eingang gefunden hat, geht davon aus, da� die moderne 

-Gesellschaft durch die Ausdifferenzierung relativ autonomer 

-Subsysteme, Ebenen oder Instanzen gekennzeichnet ist, welche innerhalb 

-des Gesamtsystems nebeneinander existieren. Parsons unterscheidet 

-dabei bekanntlich das politische, �konomische, sozialkulturelle und 

-gemeinschaftliche System; Luhmann Teilsysteme f�r Politik, Wirtschaft, 

-Recht, Erziehung, Religion und Wissenschaft; Althusser die politische, 

-�konomische und ideologische Ebene. Diese Differenzierung schlie�t 

-nicht aus, da� zwischen den Subsystemen Beziehungen bestehen: bei 

-Parsons und Luhmann gibt es das Konzept der Interpenetration, bei 

-Althusser sogar das Prinzip der Determinierung in letzter Instanz 

-durch die �konomie. Typisch aber ist, da� in all diesen Konzeptionen 

-(von deren Unterschieden hier abgesehen werden kann) die Beziehung 

-�u�erlicher Natur ist, eine blo�e Wechselwirkung zwischen ansonsten 

-getrennten und nach eigengesetzlichen Regeln prozessierenden Sph�ren.

-

-	Adorno bestreitet keineswegs die Existenz solcher autonomer 

-Sph�ren. Die �bliche Formel, mit der er Bereiche wie Kunst oder 

-Wissenschaft charakterisiert, lautet, sie seien autonom und fait 

-social zugleich (GS 7, 16; GS 8, 283). Damit ist jedoch auch gesagt, 

-da� die Theorie es bei der blo�en Feststellung der Autonomie nicht 

-belassen kann. Gerade als autonome sind die Teilsysteme vermittelt 

-durch die konstitutive Struktur der Gesellschaft, ihre objektive 

-'Wesensgleichheit' (Adorno 1973, 25), die in den Teilsystemen 

-erscheint und sie ipso facto als Schein, als Reflexionsbestimmung 

-durchschaubar macht. Was Adorno f�r die Kunst notiert, gilt mutatis 

-mutandis auch f�r die �brigen Bereiche des gesellschaftlichen Ganzen:

-

-	"Die Frage nach der Vermittlung von Geist und Gesellschaft reicht weit �ber die Musik hinaus, wo man sie allzu leicht auf die 

-nach dem Verh�ltnis von Produktion und Rezeption einengt. Gelten d�rfte, da� jene Vermittlung nicht �u�erlich, in einem dritten 

-Medium zwischen Sache und Gesellschaft stattfinde, sondern innerhalb der Sache. Und zwar nach ihrer objektiven und subjektiven 

-Seite. Die gesellschaftliche Totalit�t hat in der Gestalt des Problems und der Einheit der k�nstlerischen L�sungen sich sedimentiert, ist 

-darin verschwunden. Weil in ihr Gesellschaft sich verkapselt hat, folgt sie, indem sie autonom sich entfaltet, auch der 

-gesellschaftlichen Dynamik, ohne auf sie hinzublicken, ohne direkt mit ihr zu kommunizieren" (GS 14, 409).

-AAF

-	In der Bestimmung dieser Wesensgesetzlichkeit, die in den 

-Teilsystemen erscheint und diese dadurch als vermittelte konstituiert, 

-kn�pft Adorno an die klassische dialektische Theorie an, die die 

-moderne Gesellschaft als b�rgerliche verstand. Wie Marx, der den 

-Schl�ssel zu diesem System in der politischen �konomie suchte, geht 

-auch Adorno vom "Primat der �konomie" aus (GS 4, 125) und lokalisiert 

-hier den tragenden Lebensproze� der Gesellschaft. Damit ist vor allem 

-die grundlegende Rolle angesprochen, die der gesellschaftlichen Arbeit 

-in der Moderne zukommt. Die sozialen Prozesse und Institutionen 

-existieren nicht aus eigener Kraft, sie sind "wesentlich 

-vergegenst�ndlichte Arbeit lebendiger Menschen"; selbst so subtile 

-Erscheinungen wie Kunst, Philosophie oder Kulturkritik sind vom 

-Arbeitsproze� abh�ngig, "in dessen Schicksal verflochten" (GS 8, 17; 

-GS 10.1, 18). Ein �berhistorisches Gesetz, wie es etwa Engels' Prinzip 

-der Determinierung in letzter Instanz aufstellt, ist damit nicht 

-behauptet, denn eine 'szientifische Invariantenlehre' lehnt Adorno ab. 

-F�r die moderne Gesellschaft allerdings gilt, da� sie die "Einheit der 

-durch ihre Arbeit das Leben der Gattung reproduzierenden Subjekte" ist 

-und daher prim�r als "Totalit�t der Arbeit" konzipiert werden mu� (GS 

-5, 267, 269). "Soweit die Welt ein System bildet, wird sie dazu eben 

-durch die geschlossene Universalit�t von gesellschaftlicher Arbeit" 

-(ebd. 272).

-

-	Von entscheidender Bedeutung ist nun allerdings, da� sich dieser 

-Primat der Produktion unter b�rgerlichen Produktionsbedingungen auf 

-eine h�chst paradoxe Weise �u�ert: als Abstraktion der Produktion von 

-sich selbst. Konstitutiv f�r den gesellschaftlichen Zusammenhang ist 

-nicht die lebendige Arbeit, auch nicht das konkrete Bed�rfnis. 

-"Grundbestand der Gesellschaft an sich", "ma�gebende Struktur der 

-Gesellschaft" (GS 8, 13; GS 10.2, 745) ist vielmehr der Tausch, in dem 

-die konkreten Einzelarbeiten auf ihren gemeinsamen Nenner reduziert 

-werden - abstrakte Arbeit als Substanz des Wertes. Im Tausch, schreibt 

-Adorno, "nicht erst in der wissenschaftlichen Reflexion, wird objektiv 

-abstrahiert; wird abgesehen von der qualitativen Beschaffenheit der 

-Produzierenden und Konsumierenden, vom Modus der Produktion, sogar vom 

-Bed�rfnis, das der gesellschaftliche Mechanismus beiher, als 

-Sekund�res befriedigt" (GS 8, 13).

-

-	'Tausch' in diesem Sinne meint mehr als eine �konomische 

-Transaktion, meint mehr als den blo�en Besitzwechsel konkret-

-n�tzlicher Gegenst�nde. Der Begriff steht f�r eine Gesamtverfassung, 

-in der der konkret-materielle Inhalt des gesellschaftlichen Lebens, 

-der Stoffwechselproze� mit der Natur, und der soziale Zusammenhang 

-auseinandergetreten sind und sich zum Gegensatz verselbst�ndigt haben. 

-Ihre Einheit gewinnt die fragmentierte und atomisierte Gesellschaft 

-nur mehr auf einem Umweg, �ber den Austausch; da aber nur Gleiches, 

-Vergleichbares, �quivalentes getauscht werden kann, wechseln in der 

-Zirkulation nicht Gebrauchswerte den Besitzer, sondern Tauschwerte; 

-der Markt, so hat es Alfred Sohn-Rethel formuliert, dem Adorno 

-entscheidende Einsichten verdankt, ist ein "zeitlich und �rtlich 

-bemessenes Vakuum an menschlichem Stoffwechsel mit der Natur" (Sohn-

-Rethel 1972, 80). Das, was die Einheit herstellt, ist der Wert; der 

-Wert aber ist eine reine Abstraktion, etwas, in das 'kein Atom 

-Naturstoff' eingeht, eine 'blo� ideelle' oder 'nur gemeinte 

-Bestimmung' (MEW 23, 62; Marx 1974, 173). B�rgerliche 

-Vergesellschaftung hei�t dementsprechend abstrakte, reine 

-Vergesellschaftung, Integration durch eine Sph�re, die in der 

-traditionellen Metaphysik als 'Schein', in der idealistischen 

-Philosophie als 'Geist' bezeichnet wurde - eine Welt des Symbolischen, 

-der Stellvertretung, der Substitution, die alle Erscheinungsformen des 

-Sozialen, von der Zirkulation �ber Recht und Staat bis zu den 

-subtileren Gestalten der Kunst, der Philosophie und der Wissenschaft, 

-strukturiert.

-

-	"Den Vorwurf des Idealismus", schreibt Adorno, "hat nicht ein jeder zu f�rchten, der Begriffliches der gesellschaftlichen 

-Realit�t zurechnet...Mag man, gegen�ber der leibhaften Realit�t und allen handfesten Daten, dies begriffliche Wesen Schein 

-nennen, weil es beim �quivalententausch mit rechten Dingen und doch nicht mit rechten Dingen zugeht: es ist doch kein Schein, 

-zu dem organisierende Wissenschaft die Realit�t sublimierte, sondern dieser immanent...Der Tauschwert, gegen�ber dem 

-Gebrauchswert ein blo� Gedachtes, herrscht �ber das menschliche Bed�rfnis und an seiner Stelle; der Schein �ber die Wirklichkeit" 

-(GS 8, 209).

-AAF

-	Diese Hervorhebung des Tauschverh�ltnisses ist von der 

-marxistischen Orthodoxie h�ufig als R�ckfall in b�rgerliches Denken 

-kritisiert worden, als Unf�higkeit, �ber den Standpunkt der 

-Zirkulation hinauszugehen. Der Vorwurf hat eine gewisse Berechtigung, 

-soweit er darauf zielt, da� Adorno nicht mit der gebotenen 

-Gr�ndlichkeit auf die Einzelheiten der Marxschen Wertformanalyse 

-eingegangen ist und deren Begriffe oft nur metaphorisch gebraucht. In 

-ihrem Kern ist die Kritik jedoch unhaltbar: einmal, weil Adorno 

-keineswegs bei der Zirkulation stehenbleibt und sehr wohl auch die 

-entwickelteren Formen des Wertverh�ltnisses bis hin zur 

-Klassenstruktur im Blick hat32; zum anderen, weil sie die fundamentale 

-�bereinstimmung verdeckt, die hinsichtlich der strukturellen Bedeutung 

-der Zirkulation zwischen der Kritischen Theorie und der Kritik der 

-politischen �konomie besteht. Auch im Kapital fungiert als 

-begrifflicher Ausgangspunkt nicht der Arbeitsproze� oder ein wie immer 

-geartetes 'System der Bed�rfnisse', sondern die Abstraktion von der 

-Produktion und vom Bed�rfnis, wie sie sich in der Zirkulation, im 

-Austausch von Waren gem�� ihren Werten, tagt�glich vollzieht; und wenn 

-es ein Gliederungsprinzip gibt, einen Grundgedanken, um den sich das 

-System der politischen �konomie organisiert, so ist er hier, in den 

-verschiedenen Metamorphosen dieser Fundamentalabstraktion zu suchen, 

-die vom einfachen Tausch �ber den Geld- und Kapitalbegriff bis zu den 

-Oberfl�chenbestimmungen der 'trinitarischen Formel' reichen. Indem 

-Adorno diesen Gedanken, in wie metaphorischer Form auch immer, 

-festh�lt und zu der These zuspitzt, da� die Produktion nur 

-gegenstandskonstitutiv, nicht aber gesellschaftskonstitutiv ist, steht 

-er Marx n�her als alle postmarxschen Arbeitsmythologien, die die Rede 

-vom Scheincharakter der Zirkulation allzu w�rtlich, n�mlich 

-b�rgerlich-aufkl�rerisch nehmen. Die Einheit der b�rgerlichen 

-Gesellschaft ist keine Einheit der Arbeit, sondern eine des Wertes, 

-der Abstraktion von der Arbeit.

-

-	Diese Einheit aber, und damit kehren wir zum Ausgangspunkt zur�ck, 

-existiert nicht unmittelbar, sondern nur als Proze�, als "eine 

-Einheit, die sich durch den Trennungs-, durch den 

-Abstraktionsmechanismus hindurch �berhaupt eigentlich erst vollzieht" 

-(Adorno 1973, 47). Die konstitutive Struktur, der Wert, ist keine 

-isolierte, unbewegliche Instanz, die auf andere Instanzen diese oder 

-jene Wirkung aus�bt. Sie erzeugt vielmehr unabl�ssig neue Formen, in 

-denen sie sich zugleich manifestiert und verbirgt - so wie es Hegel 

-f�r die Sph�ren des subjektiven, objektiven und absoluten Geistes 

-beschrieben hat, Marx f�r die verschiedenen 'Verkn�cherungen' des 

-Mehrwerts vom Profit �ber den Produktionspreis bis hin zu den 

-'mystischen' Formen von Zins, Arbeitslohn und Rente. Das Wesen mu� 

-erscheinen; die Gesamtheit seiner Erscheinungen aber ist: das System. 

-Das System ist die dialektische Ordnung der Erscheinungsformen der 

-Struktur, die Struktur wiederum ist nichts anderes als das System, auf 

-seinen einfachsten und abstraktesten Ausdruck gebracht. Der hier von 

-Adorno anvisierte Theorietypus lie�e sich am angemessensten als eine 

-'strukturalistische Systemtheorie' charakterisieren, die die 

-Einsichten des Strukturalismus und der Systemtheorie aufnimmt, sie 

-aber dialektisiert und dadurch ihre Einseitigkeiten vermeidet.

-

-	Es ist nur scheinbar ein Widerspruch hierzu, wenn Adorno an 

-anderer Stelle davon spricht, da� sich das dialektische Denken 

-zunehmend von der Systemform entfernen m�sse, oder wenn er die 

-negative Dialektik geradezu als 'Antisystem' definiert (GS 8, 308; GS 

-20.1, 165ff; GS 6, 10). Gewi� gibt es neben dem Sch�ler Hegels und 

-Marxens auch den Sch�ler Nietzsches und Benjamins, dessen 

-antisystematische Affekte sich methodisch in der Bevorzugung der 

-'Mikrologie' und des Aphorismus niederschlagen und mitunter in 

-emphatischen Bekenntnissen kulminieren wie demjenigen, da� der 

-wirklich freie Gedanke mit dem System unvereinbar sei (Adorno 1974, 

-266). Es w�re indes ein v�lliges Mi�verst�ndnis von Adornos Position, 

-wenn man darin eine Absage an das systematische Denken oder gar eine 

-Leugnung des Systemcharakters der gesellschaftlichen Realit�t sehen 

-wollte. Da� die b�rgerliche Gesellschaft ein System ist, eine Einheit 

-also, die aus einem Punkt heraus erzeugt und nicht nur die �u�erliche 

-Ordnung eines vorgegebenen Stoffes ist, steht f�r Adorno au�er Frage, 

-ebenso wie die G�ltigkeit der Kategorien, mit denen Hegel und vor 

-allem Marx dieses System beschrieben haben. Anders w�re seine im 

-Positivismusstreit immer wieder ge�u�erte Mahnung unverst�ndlich, da� 

-die Soziologie ihr Objekt verfehle, wenn sie darauf verzichte, 

-"Gesellschaft als System" zu denken, wenn sie sich mit blo�en 

-Systematisierungen begn�ge, anstatt "das den Prozeduren und Daten 

-wissenschaftlicher Erkenntnis vorgeordnete System der Gesellschaft" zu 

-rekonstruieren (GS 8, 210, 356). Die Mikrologie setzt an jedem Punkt 

-die G�ltigkeit der Marxschen Strukturanalysen voraus, sie ist m�glich 

-nur auf dem Boden des dialektischen Begriffs, auch wenn sie darauf 

-verzichtet, diesen im Einzelfall zu explizieren. Bei aller Kritik, die 

-Adorno an Hegels Identifikation des Systems mit dem absoluten Subjekt 

-ge�bt hat, hat er doch an der Notwendigkeit und Angemessenheit des 

-Systembegriffs zu keiner Zeit einen Zweifel gelassen:

-

-	"Ist jenes Subjekt-Objekt, zu dem seine (scil. Hegels) Philosophie sich entwickelt, kein System des vers�hnten absoluten 

-Geistes, so erf�hrt der Geist doch die Welt als System. Sein Name trifft den unerbittlichen Zusammenschlu� aller Teilmomente und 

-Teilakte der b�rgerlichen Gesellschaft durch das Tauschprinzip zu einem Ganzen genauer als irrationalere wie der des Lebens, 

-selbst wenn dieser der Irrationalit�t der Welt, ihrer Unvers�hntheit mit den vern�nftigen Interessen einer ihrer selbst bewu�ten 

-Menschheit, besser anst�nde. Nur ist die Vernunft jenes Zusammenschlusses zur Totalit�t selber die Unvernunft, die Totalit�t des 

-Negativen" (GS 5, 324): eben die des Tauschs, der die Einzelnen einem ihnen fremden Gesetz unterwirft.

-AAF

-	Da� diese Negativit�t das System, das sie konstituiert, zugleich 

-in den Untergang treibt, wird weiter unten darzustellen sein.

-

-

-

-	2. Der zentrale Stellenwert, den die dialektische Theorie dem 

-Systembegriff zuweist, hat ihr wenig Anerkennung bei derjenigen 

-Theorie eingetragen, die sich diesen Begriff f�r ihre 

-Selbstbeschreibung zu eigen gemacht hat: der Systemtheorie. Vom 

-"ehrw�rdige(n) Konzept der b�rgerlichen bzw. proletarischen, 

-wirtschaftlich konstituierten Gesellschaft" (1974, 217) spricht 

-Luhmann im gleichen Ton wie ein Raketenkonstrukteur von den Bem�hungen 

-des Schneiders von Ulm; vom "negatorische(n) Apparat b�rgerlicher 

-Gesellschaftskritik im Sinne von Rousseau, Hegel oder Marx" (1979, 

-105) wie von einem �berfl�ssigen Ballast, dessen man sich tunlichst 

-entledigen sollte. Zwar konzediert Luhmann diesem Theorietypus das 

-"Erstgeburtsrecht als reflexive Theorie", doch bem�ngelt er 

-gleichzeitig "die eigent�mliche Schmalspurigkeit, die zu geringe und 

-zu unbestimmte Komplexit�t, die Fixierung auf wenige Gesichtspunkte, 

-an die man mit vermeintlich eindeutigen Effekten Negationen ankn�pfen 

-kann" (1982, 193).

-

-	Die Gr�nde f�r diese absch�tzig-distanzierende Haltung sind rasch 

-benannt. Die Theorie der b�rgerlichen Gesellschaft, sowohl in ihrer 

-affirmativen als auch in ihrer kritischen Gestalt, ist nach Luhmann 

-die letzte in einer Serie von Selbstthematisierungen des 

-Gesellschaftssystems, die die Gesellschaft unzureichend, n�mlich auf 

-der Basis ontologischer und anthropologischer Pr�missen zu begreifen 

-versuchte. Im Gegensatz zu der bis auf Aristoteles zur�ckgehenden 

-'alteurop�ischen' Lehre, welche die Gesellschaft als societas civilis, 

-d.h. als prim�r politisch konstituierte Ordnung verstand, habe die 

-Theorie der b�rgerlichen Gesellschaft zwar neues Terrain betreten, 

-indem sie den Akzent auf das Wirtschaftssystem verlagert habe; doch 

-seien die anthropologisch-ontologischen Begr�ndungsmuster im Prinzip 

-beibehalten worden. Wie die Aristoteliker den Primat der Politik, 

-h�tten auch die b�rgerlichen Theoretiker den Primat der �konomie mit 

-Naturbegriffen begr�ndet und ihre Gesellschaftskonzeption darauf 

-aufgebaut - wobei es nach Luhmann eine zweitrangige Frage ist, ob 

-diese Naturbegriffe naturrechtlicher oder materialistischer Provenienz 

-waren: beide Ans�tze h�tten die Gesellschaft als Aggregat von 

-nat�rlichen Bed�rfnissen und Befriedigungsm�glichkeiten konzipiert und 

-die Teilsysteme auf dieses Kernsystem bezogen (1974, 142, 206). Marx 

-erscheint aus dieser Sicht gleichsam nur als Schlu�punkt in der 

-Selbstthematisierung der b�rgerlichen Gesellschaft, sein Materialismus 

-nicht als Durchbruch zu einer neuen, die b�rgerliche Welt 

-transzendierenden Auffassung, sondern als b�rgerliche Philosophie par 

-excellence (1981, 235). Obwohl Luhmann nicht ausschlie�t, da� von der 

-marxistisch-sozialistischen Selbstkritik der b�rgerlichen Gesellschaft 

-bestimmte politische Effekte ausgehen k�nnten, h�lt er deren Potential 

-doch f�r ersch�pft. Ein wirkliches Verst�ndnis, das sich auf der H�he 

-der Zeit befindet, ist nach seiner �berzeugung weder von den 

-Apologeten der b�rgerlichen Gesellschaft zu erwarten noch von deren 

-Kritikern. Gefordert ist vielmehr eine grundlegende Neuorientierung, 

-die die Gesellschaftstheorie von anthropologischen und humanistischen 

-Pr�missen abkoppelt und auf ein anderes, die Eigenst�ndigkeit und 

-Eigenlogik des Sozialen ber�cksichtigendes Fundament stellt.

-

-	Nun ist sicher nicht zu bestreiten, da� ontologische Motive in dem 

-von Luhmann inkriminierten Sinne eine wichtige Rolle in der 

-materialistischen Dialektik spielen: nicht blo� in den kruden 

-Varianten, die man in den Lehrb�chern des real kaum noch existierenden 

-Sozialismus findet, sondern schon bei Marx, der seine 

-Revolutionstheorie vollst�ndig auf eine Ontologie der Arbeit gr�ndet, 

-und auch bei Adorno, der im Gebrauchswert das "Ineffabile der Utopie" 

-sieht und seine Kritik am b�rgerlichen System auf die Idee eines 

-"Vorrangs des Objekts" st�tzt (vgl. GS 6, 22, 184ff.). Was indes die 

-Darstellung dieses System betrifft, die Untersuchung seines inneren 

-Baus, so greift Luhmanns Kritik zu kurz. Weder Marx noch Adorno 

-benutzen Naturbegriffe oder ontologische Argumente. Vielmehr zeigen 

-sie pr�zise, da� die b�rgerliche Gesellschaft anstatt auf der 

-konkreten Arbeit oder dem Bed�rfnis auf der Abstraktion von der Arbeit 

-und vom Bed�rfnis beruht, auf Verh�ltnissen, die sich hinter dem 

-R�cken der handelnden Personen herausbilden und sich zu einem 

-hochkomplexen Gef�ge verdinglichter und subjektivierter Bestimmungen 

-entfalten. Da� Luhmann dies im �brigen nicht ganz fremd ist, zeigt 

-sich an solchen Stellen, an denen er auf Marxsche Analysen (wie etwa 

-die des Geldes) rekurriert und ihnen "ihr volles Recht" bescheinigt 

-(1980, 253f.).

-

-	Luhmanns Vorschlag, die Gesellschaft unter Absehung von allen 

-empirisch-materiellen Elementen zu definieren, kann man unter diesen 

-Umst�nden wohl kaum als die kopernikanische Revolution begreifen, als 

-die er ihn pr�sentiert. Weit davon entfernt, die dialektische Theorie 

-durch einen radikalen Paradigmenwechsel zu �berholen, wiederholt er 

-lediglich (ohne allerdings die Begr�ndung mitzuvollziehen) deren 

-Einsicht, da� der gesellschaftliche Lebensproze� unter b�rgerlichen 

-Produktionsbedingungen in doppelter Gestalt erscheint: als 

-gegenst�ndlich-materielle, aber private Produktion einerseits, als 

-gesellschaftlicher, aber immaterieller Zusammenhang andererseits. 

-Konkret und privat im Sinne von ungesellschaftlich, das sind nach 

-Luhmann die Individuen, die als autonome, 'autopoietische' Systeme 

-"au�erhalb aller sozialen Systeme" operieren und dabei, obwohl 

-wesentlich Bewu�tsein, doch einen engen Bezug zum organisch-

-materiellen Leben haben (1985, 359, 296f.). Die Gesellschaft hingegen 

-ist Kommunikation und nichts als Kommunikation. Sie konstituiert sich 

-zwar aus den Erwartungen und Kommunikationen psychischer Systeme, geht 

-aber in dieser ihrer Genesis nicht auf, bildet "eine freischwebend 

-konsolidierte Realit�t, ein sich selbst gr�ndendes Unternehmen" (ebd. 

-173), eben 'reine' Kommunikation.

-

-	"Ganz grob kann man das System der Gesellschaft charakterisieren als Gesamtheit der f�reinander zug�nglichen, 

-kommunikativ erreichbaren Erlebnisse und Handlungen. Kommunikation verwebt die Gesellschaft zur Einheit" (1981, 309).

-AAF

-	Ersetzt man Kommunikation durch Zirkulation, so hat man exakt die 

-Marxsche These, nach der die b�rgerliche Gesellschaft ihre Einheit und 

-ihren Selbstbezug allein verm�ge der Ausdifferenzierung einer 

-eigenst�ndigen Sph�re der abstrakten Allgemeinheit neben und au�er der 

-empirisch-materiellen Dimension der Produktion und des Konsums 

-herzustellen vermag.

-

-	Die eigentliche Differenz zwischen Systemtheorie und Dialektik 

-liegt deshalb nicht darin, da� die erstere Gesellschaft auf 

-Kommunikation reduziert und alle nichtkommunikativen Elemente, die mit 

-der Aneignung der Natur zusammenh�ngen, eskamotiert (so Gan�mann 

-1986a, 148ff.). Da� in der b�rgerlichen Gesellschaft die in der 

-Produktion erfolgende Naturaneignung nicht unmittelbar 

-gesellschaftlich ist, es vielmehr erst durch die Vermittlung der 

-Zirkulation wird, ist schlie�lich der Kardinaleinwand der Marxschen 

-Theorie gegen die Warenproduktion. Die Differenz liegt auf der 

-methodischen Ebene, in der Art und Anordnung der Kategorien, aus denen 

-das b�rgerliche System besteht. W�hrend f�r die Kritische Theorie 

-Gesellschaft eine Vermittlungskategorie ist, die zwar nicht im 

-identischen Subjekt-Objekt, wohl aber in einer konstitutiven Struktur 

-(dem 'Wesensgesetz') gr�ndet und von diesem 'inneren Kern' her 

-rekonstruiert werden mu�, lehnt Luhmann einen solchen Ansatz ab. Da er 

-den Strukturbegriff nur in der Fassung kennt, wie er innerhalb der 

-funktionalistischen Tradition durch Parsons und Merton �berliefert ist 

-- als Manifestation invarianter, nichtkontingenter Beziehungen 

-zwischen Elementen (1985, 377ff.) -, kann er der Struktur allenfalls 

-im Hinblick auf vormoderne Gesellschaften einen privilegierten Rang 

-zugestehen; f�r die moderne Gesellschaft dagegen erscheint ihm die 

-Struktur, von dieser Pr�misse her durchaus konsequent, als gegen�ber 

-der Funktion von zweitrangiger Bedeutung. Die Einheit der modernen 

-Gesellschaft, so konstatiert er, existiere nur in der Differenz der 

-Funktionssysteme:

-

-	"sie ist nichts anderes als deren wechselseitige Autonomie und Unsubstituierbarkeit. Sie ist nichts anderes als die Umsetzung 

-dieser Struktur in ein Miteinander von hochgetriebener Unabh�ngigkeit und Abh�ngigkeit. Sie ist, mit anderen Worten, die dadurch 

-entstandene, evolution�r h�chst unwahrscheinliche Komplexit�t" (1986, 216f.).

-AAF

-	Diese Auffassung darf nun nicht so verstanden werden, als gebe es 

-nach Luhmann kein Gesamtsystem, als sei die Gesellschaft nichts weiter 

-als die Summe der von den Teilsystemen erf�llten Funktionen. Auch 

-Luhmanns Entwurf bleibt insofern der Tradition 

-gesamtgesellschaftlicher Theorie verpflichtet, als in ihm der 

-Gesellschaftsbegriff Begr�ndungsfunktionen erf�llt, "das hei�t den 

-Horizont des M�glichen und Erwartbaren definiert und letzte 

-grundlegende Reduktionen einrichtet" (1974, 145). Diese 

-Begr�ndungsfunktion manifestiert sich erstens nach au�en, in der 

-Abgrenzung des Sozialen vom Nichtsozialen, die durch die 

-Unterscheidung von Kommunikation und Nichtkommunikation erreicht wird. 

-"Gesellschaft betreibt Kommunikation, und was immer Kommunikation 

-betreibt, ist Gesellschaft" (1985, 555). Sie manifestiert sich 

-zweitens in der internen Strukturierung, im Aufbau von Teilsystemen, 

-die auf bestimmte, nur ihnen zurechenbare Funktionen spezialisiert 

-sind. Und sie manifestiert sich drittens auch in einem Zugriff auf 

-diese Teilsysteme, der daf�r sorgt, da� sich keines derselben auf 

-Kosten anderer Teilsysteme totalisiert: z.B. durch Einbau von 

-Beschr�nkungen in die Reflexionsstruktur der Teilsysteme (1977, 245). 

-Insofern kann auch Luhmann von der "Einheit der Gesellschaft" sprechen 

-und Dimensionen angeben, in denen diese Einheit sich zeigt (vgl. 1974, 

-147, 149; 1985, 37f.; 1986, 202, 205).

-

-	Der Unterschied zur dialektischen Theorie liegt darin, da� diese 

-Einheit den Ph�nomenen �u�erlich bleibt, mit ihnen nicht vermittelt 

-ist. Gelangt f�r Adorno die gesellschaftliche Determinierung in den 

-Ph�nomenen selbst zum Ausdruck, so da� die deutende Analyse das 

-Einzelne auf sein Allgemeines hin durchsichtig zu machen vermag, so 

-rutscht sie bei Luhmann gleichsam zwischen die Ph�nomene, in die 

-"Interdependenz und (den) Abstimmungszwang unter den Folgeproblemen 

-st�rkerer Differenzierung" (1974, 147). Die Teilsysteme sind in der 

-modernen Gesellschaft per definitionem nicht Manifestationen der 

-Gesamtgesellschaft bzw. der konstitutiven Struktur, sie sind 

-Manifestationen einer Funktion und damit gerade nicht des Ganzen; da� 

-sie gleichwohl einem �bergeordneten Zusammenhang angeh�ren, zeigt sich 

-nicht in ihnen selbst, sondern nur in ihrer Umwelt, in der 

-Mannigfaltigkeit innergesellschaftlicher System-Umwelt-Differenzen. 

-Von hier aus wird die eigenwillige, der Auffassung Adornos kontr�r 

-entgegengesetzte Deutung verst�ndlich, die Luhmann dem 

-traditionsreichen Begriff der Integration verleiht:

-

-	"Mit dem �bergang von segment�rer zu schichtenm��iger und von schichtenm��iger zu funktionaler Prim�rdifferenzierung 

-des Gesellschaftssystems �ndert sich die Zugriffsform des gesamtgesellschaftlichen Systems auf die Teilsysteme; sie verlagert sich 

-von den Strukturen der Teilsysteme auf ihre innergesellschaftliche Umwelt. Die Gesellschaft kann bei zunehmender Komplexit�t 

-immer weniger garantieren, da� alle Teilsysteme unter gleichen Strukturen gleichf�rmig operieren und sich aus diesem Grunde 

-nicht �berm��ig belasten. Integration mu� vielmehr dadurch vermittelt werden, da� alle Teilsysteme f�reinander 

-innergesellschaftliche Umwelt sind. Ein Teilsystem geh�rt dann weniger dadurch der Gesellschaft an, da� es in seiner Strukturwahl 

-sich nach den Erfordernissen, Werten oder gar Normen richtet, die f�r alle Systeme gelten, sondern dadurch, da� es sich an einer 

-nichtbeliebig geordneten, als Gesellschaft garantierten und vorstrukturierten Umwelt auszurichten hat" (1977, 243f.).

-AAF

-	Gegen�ber diesem Ansatz sind unterschiedliche Reaktionsformen 

-m�glich. Man kann ihn in toto zur�ckweisen und von au�en her, etwa vom 

-Standpunkt einer dialektisch-materialistischen Konzeption, monieren, 

-da� Luhmann der Oberfl�che der b�rgerlichen Gesellschaft verhaftet 

-bleibt und beispielsweise au�erstande ist, den Geldfetisch zu 

-durchschauen (Blanke/J�rgens/Kastendiek 1975, 381ff.; Giegel 1975, 

-96ff.; Gan�mann 1986). Das mag zutreffen, endet aber in den meisten 

-F�llen mit einer Rehabilitation eben jener Philosophie der Arbeit, 

-deren mangelnde Tragf�higkeit Luhmann wohl zu Recht herausstellt. Man 

-kann ferner immanent-kritisch fragen, ob Luhmann sein eigenes 

-"postdialektisches Forschungsprogramm" realisiert und Analysen 

-entwickelt, aus denen hervorgeht, wie die Gesellschaft die ihr 

-zugewiesene Aufgabe der Einregulierung der innergesellschaftlichen 

-Umwelt erf�llt; wobei man dann feststellen wird, da� sich der sonst so 

-beredte Autor an dieser 'theoriebautechnisch' so wichtigen 

-Scharnierstelle in Schweigen h�llt. Jedenfalls hat Luhmann 

-bemerkenswert wenig Energie daran gesetzt, den "Leerplatz" zu f�llen, 

-den er schon 1970 an der Stelle einer den heutigen Verh�ltnissen 

-angemessenen Theorie des Gesellschaftssystems entdeckte (1974, 152).

-
\ No newline at end of file
diff --git a/testautomation/writer/optional/input/import/unixtext.txt b/testautomation/writer/optional/input/import/unixtext.txt
deleted file mode 100755
index af58dff87eb4..000000000000
--- a/testautomation/writer/optional/input/import/unixtext.txt
+++ /dev/null
@@ -1,64 +0,0 @@
-Dies ist ein UNIX-Text. Erstellt mit dem Texteditor von einer Sun-Solaris:
-
-Er werden wieder ein paar Sonderzeichen benutzt:
-
-\=Chr92)
-�=Chr(132)
--=Chr(45)
-�=Chr(245)
-
-Lieber Test schau doch mal, was DU hiermit anfangen kannst.
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-Jetzt ein langer langer Test, einfach nur ein wenig Bl�dsinn. asdasdai ilufa lsfuidg alsfg aluifg luiasfg liuasdf liuasfd liusdf liuad flsuifhd luifd liufdluifzd liuze r�owurt �oaufg-lkfjsvuazgretp�auohg�lfjkg �aouwrhe faskjvbd �aoirjfg a�oeur zuaggvd l�jknvf �aowe rfzibfvlkjasbdfn� oihqej isufhgv lkjsfnd �aoife ibdsvfl jkbvfo�wet#�posfjg aosjfhd jlaghsfd iughr� oisjfd glkjasd nbalhdgf �iuahr�r ogij-lasnfdv auzzgvcliaubhw �fgkjnscdv� lnawiutf akjsbdvc� jnvd�lkja s�irejf alhebf lkjybcv �larjie ga�uhwe fljhblkcvjn aoi�rj taiuhlkcnjbkajsrgn� oahiwfd iblcnbsd� foiuhar�ogij aijdbv labpciuawh �roginh�ls vnk ahbdfvciu� ahs� fodigj aldnkvc lawzgefp�oiajfd�gnasknvluawgz�iuheg�oknfdvmjansuigdfliug�eorhitg�lafnksvlahwibl�rhe�slafvnaskhgefpui�ah�odgfiaowfd
-
-
-Tschau
-  TZ
\ No newline at end of file
diff --git a/testautomation/writer/optional/input/import/wintext.txt b/testautomation/writer/optional/input/import/wintext.txt
deleted file mode 100755
index d0b0e5441599..000000000000
--- a/testautomation/writer/optional/input/import/wintext.txt
+++ /dev/null
@@ -1,47 +0,0 @@
-Dies ist eine Datei, von NotePad+. Mal sehen, was sie so aus bestimmten Formatierungen macht.
-
-Hier wieder die Sonderzeichen:
-
-\=Chr(92)
-�=Chr(132)
--=Chr(45)
-�=Chr(245)
-
-Lieber Test schau doch mal was Du hiermit anfangen kannst.
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-Langer langer Text folgt. SDASD KJh sdfiljhasdfljkh lkhj lkfha iurqez �jhljkahwer98742qkjasb.vfbna 9p3z8r ppauhdfg�a hwerp9qz2 4rijh a�dfjha p43zr aijfg �akjsfd p9zq3 4p9t8h a�sgha �ejfh p9z553 tpjas fdja �djkfhiafhgi388w54t9asfg�aosiefd98jvcaw w haug 34qz iafg iuarht pia7 rpuzrag a rtpiuzawr tzwpqirt qwrt piuzaw rtpzqprt pqr tpqzr tpq rt qpir tpq rt
-
-
-Tschau
-  TZ
\ No newline at end of file
diff --git a/testautomation/writer/optional/input/import/winw97.doc b/testautomation/writer/optional/input/import/winw97.doc
deleted file mode 100755
index 9a5ae080774f..000000000000
--- a/testautomation/writer/optional/input/import/winw97.doc
+++ /dev/null
diff --git a/testautomation/writer/optional/input/import/winword6.doc b/testautomation/writer/optional/input/import/winword6.doc
deleted file mode 100755
index 0f0bb3a1db0b..000000000000
--- a/testautomation/writer/optional/input/import/winword6.doc
+++ /dev/null
diff --git a/testautomation/writer/optional/input/import/wpsfile.wps b/testautomation/writer/optional/input/import/wpsfile.wps
deleted file mode 100755
index 26ff9b7d0bcd..000000000000
--- a/testautomation/writer/optional/input/import/wpsfile.wps
+++ /dev/null
diff --git a/testautomation/writer/optional/input/import/xml2.odt b/testautomation/writer/optional/input/import/xml2.odt
deleted file mode 100644
index 8fa2af7c0612..000000000000
--- a/testautomation/writer/optional/input/import/xml2.odt
+++ /dev/null
diff --git a/testautomation/writer/optional/input/insertgraphic/Bughunter.jpg b/testautomation/writer/optional/input/insertgraphic/Bughunter.jpg
deleted file mode 100644
index e52070ff348b..000000000000
--- a/testautomation/writer/optional/input/insertgraphic/Bughunter.jpg
+++ /dev/null
diff --git a/testautomation/writer/optional/input/insertgraphic/boy.gif b/testautomation/writer/optional/input/insertgraphic/boy.gif
deleted file mode 100755
index d736a44dd705..000000000000
--- a/testautomation/writer/optional/input/insertgraphic/boy.gif
+++ /dev/null
diff --git a/testautomation/writer/optional/input/insertgraphic/flowers.gif b/testautomation/writer/optional/input/insertgraphic/flowers.gif
deleted file mode 100755
index 31d1fa88f55b..000000000000
--- a/testautomation/writer/optional/input/insertgraphic/flowers.gif
+++ /dev/null
diff --git a/testautomation/writer/optional/input/insertgraphic/game.bmp b/testautomation/writer/optional/input/insertgraphic/game.bmp
deleted file mode 100644
index 8fdf8bba2b4d..000000000000
--- a/testautomation/writer/optional/input/insertgraphic/game.bmp
+++ /dev/null
diff --git a/testautomation/writer/optional/input/linguistik/001.odt b/testautomation/writer/optional/input/linguistik/001.odt
deleted file mode 100644
index 052964e27383..000000000000
--- a/testautomation/writer/optional/input/linguistik/001.odt
+++ /dev/null
diff --git a/testautomation/writer/optional/input/linguistik/003.odt b/testautomation/writer/optional/input/linguistik/003.odt
deleted file mode 100644
index 63ba1b6b2318..000000000000
--- a/testautomation/writer/optional/input/linguistik/003.odt
+++ /dev/null
diff --git a/testautomation/writer/optional/input/linguistik/007.odt b/testautomation/writer/optional/input/linguistik/007.odt
deleted file mode 100644
index 44531c1f89d1..000000000000
--- a/testautomation/writer/optional/input/linguistik/007.odt
+++ /dev/null
diff --git a/testautomation/writer/optional/input/linguistik/031.odt b/testautomation/writer/optional/input/linguistik/031.odt
deleted file mode 100644
index e6090b1ee7c5..000000000000
--- a/testautomation/writer/optional/input/linguistik/031.odt
+++ /dev/null
diff --git a/testautomation/writer/optional/input/linguistik/033.odt b/testautomation/writer/optional/input/linguistik/033.odt
deleted file mode 100644
index e6f821b7e084..000000000000
--- a/testautomation/writer/optional/input/linguistik/033.odt
+++ /dev/null
diff --git a/testautomation/writer/optional/input/linguistik/034.odt b/testautomation/writer/optional/input/linguistik/034.odt
deleted file mode 100644
index 6f15867d703e..000000000000
--- a/testautomation/writer/optional/input/linguistik/034.odt
+++ /dev/null
diff --git a/testautomation/writer/optional/input/linguistik/036.odt b/testautomation/writer/optional/input/linguistik/036.odt
deleted file mode 100644
index 78182150294e..000000000000
--- a/testautomation/writer/optional/input/linguistik/036.odt
+++ /dev/null
diff --git a/testautomation/writer/optional/input/linguistik/039.odt b/testautomation/writer/optional/input/linguistik/039.odt
deleted file mode 100644
index 90288d93236a..000000000000
--- a/testautomation/writer/optional/input/linguistik/039.odt
+++ /dev/null
diff --git a/testautomation/writer/optional/input/linguistik/045.odt b/testautomation/writer/optional/input/linguistik/045.odt
deleted file mode 100644
index fd2fdc2f8d87..000000000000
--- a/testautomation/writer/optional/input/linguistik/045.odt
+++ /dev/null
diff --git a/testautomation/writer/optional/input/linguistik/046.odt b/testautomation/writer/optional/input/linguistik/046.odt
deleted file mode 100644
index 021c60ad86b3..000000000000
--- a/testautomation/writer/optional/input/linguistik/046.odt
+++ /dev/null
diff --git a/testautomation/writer/optional/input/linguistik/048.odt b/testautomation/writer/optional/input/linguistik/048.odt
deleted file mode 100644
index c2c259f2f635..000000000000
--- a/testautomation/writer/optional/input/linguistik/048.odt
+++ /dev/null
diff --git a/testautomation/writer/optional/input/linguistik/049.odt b/testautomation/writer/optional/input/linguistik/049.odt
deleted file mode 100644
index 95de87ebb282..000000000000
--- a/testautomation/writer/optional/input/linguistik/049.odt
+++ /dev/null
diff --git a/testautomation/writer/optional/input/linguistik/050.odt b/testautomation/writer/optional/input/linguistik/050.odt
deleted file mode 100644
index 3a90c03e99aa..000000000000
--- a/testautomation/writer/optional/input/linguistik/050.odt
+++ /dev/null
diff --git a/testautomation/writer/optional/input/linguistik/055.odt b/testautomation/writer/optional/input/linguistik/055.odt
deleted file mode 100644
index 56560cccce52..000000000000
--- a/testautomation/writer/optional/input/linguistik/055.odt
+++ /dev/null
diff --git a/testautomation/writer/optional/input/linguistik/sprache.odt b/testautomation/writer/optional/input/linguistik/sprache.odt
deleted file mode 100644
index d3d43ae0f16b..000000000000
--- a/testautomation/writer/optional/input/linguistik/sprache.odt
+++ /dev/null
diff --git a/testautomation/writer/optional/input/masterdoc/dok1.sxw b/testautomation/writer/optional/input/masterdoc/dok1.sxw
deleted file mode 100644
index b9975b27eb03..000000000000
--- a/testautomation/writer/optional/input/masterdoc/dok1.sxw
+++ /dev/null
diff --git a/testautomation/writer/optional/input/masterdoc/dok2.sxw b/testautomation/writer/optional/input/masterdoc/dok2.sxw
deleted file mode 100644
index 7ad5c810577e..000000000000
--- a/testautomation/writer/optional/input/masterdoc/dok2.sxw
+++ /dev/null
diff --git a/testautomation/writer/optional/input/masterdoc/dok3.sxw b/testautomation/writer/optional/input/masterdoc/dok3.sxw
deleted file mode 100644
index 165d8d7092e1..000000000000
--- a/testautomation/writer/optional/input/masterdoc/dok3.sxw
+++ /dev/null
diff --git a/testautomation/writer/optional/input/masterdoc/frame.sxg b/testautomation/writer/optional/input/masterdoc/frame.sxg
deleted file mode 100644
index 50f269a5e1a5..000000000000
--- a/testautomation/writer/optional/input/masterdoc/frame.sxg
+++ /dev/null
diff --git a/testautomation/writer/optional/input/masterdoc/htmltest.sxg b/testautomation/writer/optional/input/masterdoc/htmltest.sxg
deleted file mode 100644
index 75758bb88c5c..000000000000
--- a/testautomation/writer/optional/input/masterdoc/htmltest.sxg
+++ /dev/null
diff --git a/testautomation/writer/optional/input/masterdoc/link_of_section_test.sxw b/testautomation/writer/optional/input/masterdoc/link_of_section_test.sxw
deleted file mode 100644
index 625e88a5ab0a..000000000000
--- a/testautomation/writer/optional/input/masterdoc/link_of_section_test.sxw
+++ /dev/null
diff --git a/testautomation/writer/optional/input/masterdoc/update1.sxg b/testautomation/writer/optional/input/masterdoc/update1.sxg
deleted file mode 100644
index 9a4a7bc6bd6d..000000000000
--- a/testautomation/writer/optional/input/masterdoc/update1.sxg
+++ /dev/null
diff --git a/testautomation/writer/optional/input/masterdoc/update2.sxg b/testautomation/writer/optional/input/masterdoc/update2.sxg
deleted file mode 100644
index 95cb5ac83b93..000000000000
--- a/testautomation/writer/optional/input/masterdoc/update2.sxg
+++ /dev/null
diff --git a/testautomation/writer/optional/input/masterdoc/update3.sxg b/testautomation/writer/optional/input/masterdoc/update3.sxg
deleted file mode 100644
index cdd59a8907aa..000000000000
--- a/testautomation/writer/optional/input/masterdoc/update3.sxg
+++ /dev/null
diff --git a/testautomation/writer/optional/input/masterdoc/w_102a/st1_12.sxg b/testautomation/writer/optional/input/masterdoc/w_102a/st1_12.sxg
deleted file mode 100644
index 07967a0cb8bf..000000000000
--- a/testautomation/writer/optional/input/masterdoc/w_102a/st1_12.sxg
+++ /dev/null
diff --git a/testautomation/writer/optional/input/masterdoc/w_102a/st1_121.sxw b/testautomation/writer/optional/input/masterdoc/w_102a/st1_121.sxw
deleted file mode 100644
index 09e75f1d4959..000000000000
--- a/testautomation/writer/optional/input/masterdoc/w_102a/st1_121.sxw
+++ /dev/null
diff --git a/testautomation/writer/optional/input/masterdoc/w_102a/st1_122.sxw b/testautomation/writer/optional/input/masterdoc/w_102a/st1_122.sxw
deleted file mode 100644
index 7e32857b4e1a..000000000000
--- a/testautomation/writer/optional/input/masterdoc/w_102a/st1_122.sxw
+++ /dev/null
diff --git a/testautomation/writer/optional/input/masterdoc/w_102a/st1_123.sxw b/testautomation/writer/optional/input/masterdoc/w_102a/st1_123.sxw
deleted file mode 100644
index aee18ee5f198..000000000000
--- a/testautomation/writer/optional/input/masterdoc/w_102a/st1_123.sxw
+++ /dev/null
diff --git a/testautomation/writer/optional/input/masterdoc/w_102a/st1_124.sxw b/testautomation/writer/optional/input/masterdoc/w_102a/st1_124.sxw
deleted file mode 100644
index 4904cd8b2552..000000000000
--- a/testautomation/writer/optional/input/masterdoc/w_102a/st1_124.sxw
+++ /dev/null
diff --git a/testautomation/writer/optional/input/masterdoc/w_102a/st1_125.sxw b/testautomation/writer/optional/input/masterdoc/w_102a/st1_125.sxw
deleted file mode 100644
index 809885e33b29..000000000000
--- a/testautomation/writer/optional/input/masterdoc/w_102a/st1_125.sxw
+++ /dev/null
diff --git a/testautomation/writer/optional/input/masterdoc/w_102a/st1_126.sxw b/testautomation/writer/optional/input/masterdoc/w_102a/st1_126.sxw
deleted file mode 100644
index c025edafdfab..000000000000
--- a/testautomation/writer/optional/input/masterdoc/w_102a/st1_126.sxw
+++ /dev/null
diff --git a/testautomation/writer/optional/input/masterdoc/w_102a/st1_127.sxw b/testautomation/writer/optional/input/masterdoc/w_102a/st1_127.sxw
deleted file mode 100644
index 7093e62a884c..000000000000
--- a/testautomation/writer/optional/input/masterdoc/w_102a/st1_127.sxw
+++ /dev/null
diff --git a/testautomation/writer/optional/input/masterdoc/w_102a/st1_128.sxw b/testautomation/writer/optional/input/masterdoc/w_102a/st1_128.sxw
deleted file mode 100644
index f7009ad09060..000000000000
--- a/testautomation/writer/optional/input/masterdoc/w_102a/st1_128.sxw
+++ /dev/null
diff --git a/testautomation/writer/optional/input/masterdoc/w_102a/st1_129.sxw b/testautomation/writer/optional/input/masterdoc/w_102a/st1_129.sxw
deleted file mode 100644
index 0633efe71800..000000000000
--- a/testautomation/writer/optional/input/masterdoc/w_102a/st1_129.sxw
+++ /dev/null
diff --git a/testautomation/writer/optional/input/menu/drums.jpg b/testautomation/writer/optional/input/menu/drums.jpg
deleted file mode 100644
index ce60671430b5..000000000000
--- a/testautomation/writer/optional/input/menu/drums.jpg
+++ /dev/null
diff --git a/testautomation/writer/optional/input/navigator/navigator.odt b/testautomation/writer/optional/input/navigator/navigator.odt
deleted file mode 100644
index 10ddcec6cd40..000000000000
--- a/testautomation/writer/optional/input/navigator/navigator.odt
+++ /dev/null
diff --git a/testautomation/writer/optional/input/navigator/st1_1.sxw b/testautomation/writer/optional/input/navigator/st1_1.sxw
deleted file mode 100644
index 0b7825936dcf..000000000000
--- a/testautomation/writer/optional/input/navigator/st1_1.sxw
+++ /dev/null
diff --git a/testautomation/writer/optional/input/number/format1.txt b/testautomation/writer/optional/input/number/format1.txt
deleted file mode 100755
index ead1a0f67b4e..000000000000
--- a/testautomation/writer/optional/input/number/format1.txt
+++ /dev/null
@@ -1,40 +0,0 @@
-10€
-4
-10€
-0
-10$
-5
-$10.00
-1
--23.5 dm
-4
--23.5 dm
-0
-3/31
-6
-03/31/06
-1
-18:61
-7
-19:01:00
-1
-14%
-8
-14.00%
-1
-10e7
-9
-1.00E+008
-1
-58 11/4
-10
-60 3/4
-1
-true
-11
-TRUE
-1
-biingo!
-4
-Biingo!
-0
diff --git a/testautomation/writer/optional/input/number/format31.txt b/testautomation/writer/optional/input/number/format31.txt
deleted file mode 100755
index ead1a0f67b4e..000000000000
--- a/testautomation/writer/optional/input/number/format31.txt
+++ /dev/null
@@ -1,40 +0,0 @@
-10€
-4
-10€
-0
-10$
-5
-$10.00
-1
--23.5 dm
-4
--23.5 dm
-0
-3/31
-6
-03/31/06
-1
-18:61
-7
-19:01:00
-1
-14%
-8
-14.00%
-1
-10e7
-9
-1.00E+008
-1
-58 11/4
-10
-60 3/4
-1
-true
-11
-TRUE
-1
-biingo!
-4
-Biingo!
-0
diff --git a/testautomation/writer/optional/input/number/format33.txt b/testautomation/writer/optional/input/number/format33.txt
deleted file mode 100755
index ef8a65ede1e0..000000000000
--- a/testautomation/writer/optional/input/number/format33.txt
+++ /dev/null
@@ -1,36 +0,0 @@
-10$
-5
-$10
-1
--23,5 dm
-5
--23,50 DM
-1
-3/31
-6
-3.31.06
-1
-18:61
-7
-19:01:00
-1
-14%
-8
-14,00%
-1
-10e7
-9
-1,00E+008
-1
-58 11/4
-10
-60 3/4
-1
-wahr
-11
-WAHR
-1
-biingo!
-4
-Biingo!
-0
diff --git a/testautomation/writer/optional/input/number/format36.txt b/testautomation/writer/optional/input/number/format36.txt
deleted file mode 100755
index d568e798098c..000000000000
--- a/testautomation/writer/optional/input/number/format36.txt
+++ /dev/null
@@ -1,40 +0,0 @@
-10€
-4
-10€
-0
-10$
-5
-10$
-1
--23.5 dm
-4
--23.5 dm
-0
-3/31
-6
-2006-03-31
-1
-18:61
-7
-19:01:00
-1
-14%
-8
-14,00%
-1
-10e7
-9
-1,00E+008
-1
-58 11/4
-10
-60 3/4
-1
-true
-11
-True
-1
-biingo!
-4
-Biingo!
-0
diff --git a/testautomation/writer/optional/input/number/format39.txt b/testautomation/writer/optional/input/number/format39.txt
deleted file mode 100755
index ead1a0f67b4e..000000000000
--- a/testautomation/writer/optional/input/number/format39.txt
+++ /dev/null
@@ -1,40 +0,0 @@
-10€
-4
-10€
-0
-10$
-5
-$10.00
-1
--23.5 dm
-4
--23.5 dm
-0
-3/31
-6
-03/31/06
-1
-18:61
-7
-19:01:00
-1
-14%
-8
-14.00%
-1
-10e7
-9
-1.00E+008
-1
-58 11/4
-10
-60 3/4
-1
-true
-11
-TRUE
-1
-biingo!
-4
-Biingo!
-0
diff --git a/testautomation/writer/optional/input/number/format44.txt b/testautomation/writer/optional/input/number/format44.txt
deleted file mode 100755
index ead1a0f67b4e..000000000000
--- a/testautomation/writer/optional/input/number/format44.txt
+++ /dev/null
@@ -1,40 +0,0 @@
-10€
-4
-10€
-0
-10$
-5
-$10.00
-1
--23.5 dm
-4
--23.5 dm
-0
-3/31
-6
-03/31/06
-1
-18:61
-7
-19:01:00
-1
-14%
-8
-14.00%
-1
-10e7
-9
-1.00E+008
-1
-58 11/4
-10
-60 3/4
-1
-true
-11
-TRUE
-1
-biingo!
-4
-Biingo!
-0
diff --git a/testautomation/writer/optional/input/number/format46.txt b/testautomation/writer/optional/input/number/format46.txt
deleted file mode 100755
index ead1a0f67b4e..000000000000
--- a/testautomation/writer/optional/input/number/format46.txt
+++ /dev/null
@@ -1,40 +0,0 @@
-10€
-4
-10€
-0
-10$
-5
-$10.00
-1
--23.5 dm
-4
--23.5 dm
-0
-3/31
-6
-03/31/06
-1
-18:61
-7
-19:01:00
-1
-14%
-8
-14.00%
-1
-10e7
-9
-1.00E+008
-1
-58 11/4
-10
-60 3/4
-1
-true
-11
-TRUE
-1
-biingo!
-4
-Biingo!
-0
diff --git a/testautomation/writer/optional/input/number/format49.txt b/testautomation/writer/optional/input/number/format49.txt
deleted file mode 100755
index d5a3de0ae6d0..000000000000
--- a/testautomation/writer/optional/input/number/format49.txt
+++ /dev/null
@@ -1,36 +0,0 @@
-Dummy
-Dummy
-Dummy
-Dummy
-€10
-5
-10,00 €
-1
-3/31
-6
-06.03.31
-1
-18:61
-7
-19:01:00
-1
-14%
-8
-14,00%
-1
-10e7
-9
-1,00E+008
-1
-58 11/4
-10
-60 3/4
-1
-wahr
-11
-WAHR
-1
-biingo!
-4
-Biingo!
-0
\ No newline at end of file
diff --git a/testautomation/writer/optional/input/number/format86.txt b/testautomation/writer/optional/input/number/format86.txt
deleted file mode 100755
index ead1a0f67b4e..000000000000
--- a/testautomation/writer/optional/input/number/format86.txt
+++ /dev/null
@@ -1,40 +0,0 @@
-10€
-4
-10€
-0
-10$
-5
-$10.00
-1
--23.5 dm
-4
--23.5 dm
-0
-3/31
-6
-03/31/06
-1
-18:61
-7
-19:01:00
-1
-14%
-8
-14.00%
-1
-10e7
-9
-1.00E+008
-1
-58 11/4
-10
-60 3/4
-1
-true
-11
-TRUE
-1
-biingo!
-4
-Biingo!
-0
diff --git a/testautomation/writer/optional/input/number/numbering1.sxw b/testautomation/writer/optional/input/number/numbering1.sxw
deleted file mode 100644
index 4e843ce402ed..000000000000
--- a/testautomation/writer/optional/input/number/numbering1.sxw
+++ /dev/null
diff --git a/testautomation/writer/optional/input/number/regression/46588.doc b/testautomation/writer/optional/input/number/regression/46588.doc
deleted file mode 100755
index 8b54857a444c..000000000000
--- a/testautomation/writer/optional/input/number/regression/46588.doc
+++ /dev/null
diff --git a/testautomation/writer/optional/input/number/regression/73790.doc b/testautomation/writer/optional/input/number/regression/73790.doc
deleted file mode 100755
index 8721bade520f..000000000000
--- a/testautomation/writer/optional/input/number/regression/73790.doc
+++ /dev/null
diff --git a/testautomation/writer/optional/input/number/regression/Unnumbered_outline.doc b/testautomation/writer/optional/input/number/regression/Unnumbered_outline.doc
deleted file mode 100755
index c57b01d86209..000000000000
--- a/testautomation/writer/optional/input/number/regression/Unnumbered_outline.doc
+++ /dev/null
diff --git a/testautomation/writer/optional/input/options/compatibility1.doc b/testautomation/writer/optional/input/options/compatibility1.doc
deleted file mode 100755
index b13f88535dbb..000000000000
--- a/testautomation/writer/optional/input/options/compatibility1.doc
+++ /dev/null
diff --git a/testautomation/writer/optional/input/options/ga000907.gif b/testautomation/writer/optional/input/options/ga000907.gif
deleted file mode 100755
index 988578d914b7..000000000000
--- a/testautomation/writer/optional/input/options/ga000907.gif
+++ /dev/null
diff --git a/testautomation/writer/optional/input/options/gridtst.sxw b/testautomation/writer/optional/input/options/gridtst.sxw
deleted file mode 100644
index 00ae59c026e4..000000000000
--- a/testautomation/writer/optional/input/options/gridtst.sxw
+++ /dev/null
diff --git a/testautomation/writer/optional/input/options/gridtst2.sxw b/testautomation/writer/optional/input/options/gridtst2.sxw
deleted file mode 100644
index d08d9cd96e3f..000000000000
--- a/testautomation/writer/optional/input/options/gridtst2.sxw
+++ /dev/null
diff --git a/testautomation/writer/optional/input/options/htmltag.html b/testautomation/writer/optional/input/options/htmltag.html
deleted file mode 100755
index dfd4bbdaf246..000000000000
--- a/testautomation/writer/optional/input/options/htmltag.html
+++ /dev/null
@@ -1,19 +0,0 @@
-<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 3.2//EN">
-<HTML>
-<HEAD>
-	<META HTTP-EQUIV="CONTENT-TYPE" CONTENT="text/html; charset=iso-8859-1">
-	<TITLE></TITLE>
-	<META NAME="GENERATOR" CONTENT="StarSuite 6.0  (Win32)">
-	<META NAME="CREATED" CONTENT="20010306;14465101">
-	<META NAME="CHANGED" CONTENT="20010404;16431509">
-	<!-- Comment //-->
-</HEAD>
-<BODY>
-<P>Test Document for SyntaxCode Highlighting 
-</P>
-<P>Test Document for SyntaxCode Highlighting 
-</P>
-<P><IMG SRC="ga000907.gif" NAME="Graphic1" ALIGN=LEFT WIDTH=600 HEIGHT=180 BORDER=0><BR CLEAR=LEFT><BR><BR>
-</P>
-</BODY>
-</HTML>
\ No newline at end of file
diff --git a/testautomation/writer/optional/input/options/options1.sxw b/testautomation/writer/optional/input/options/options1.sxw
deleted file mode 100644
index 2da7d94a0a69..000000000000
--- a/testautomation/writer/optional/input/options/options1.sxw
+++ /dev/null
diff --git a/testautomation/writer/optional/input/options/options2.sxw b/testautomation/writer/optional/input/options/options2.sxw
deleted file mode 100644
index ce7fbfc0d368..000000000000
--- a/testautomation/writer/optional/input/options/options2.sxw
+++ /dev/null
diff --git a/testautomation/writer/optional/input/options/options3.sxw b/testautomation/writer/optional/input/options/options3.sxw
deleted file mode 100644
index 579bb6528a37..000000000000
--- a/testautomation/writer/optional/input/options/options3.sxw
+++ /dev/null
diff --git a/testautomation/writer/optional/input/options/test.html b/testautomation/writer/optional/input/options/test.html
deleted file mode 100755
index 54d9fb98067e..000000000000
--- a/testautomation/writer/optional/input/options/test.html
+++ /dev/null
@@ -1,93 +0,0 @@
-<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 3.2//EN">
-<HTML>
-<HEAD>
-	<META HTTP-EQUIV="CONTENT-TYPE" CONTENT="text/html; charset=windows-1252">
-	<TITLE></TITLE>
-	<META NAME="GENERATOR" CONTENT="StarOffice 6.0  (Win32)">
-	<META NAME="AUTHOR" CONTENT="Thorsten Ziehm">
-	<META NAME="CREATED" CONTENT="19981119;13010500">
-	<META NAME="CHANGEDBY" CONTENT="Helge Delfs">
-	<META NAME="CHANGED" CONTENT="20020114;11184600">
-	<STYLE>
-	<!--
-		@page:right { margin: 2cm }
-		@page:left { margin: 2cm }
-		P { margin-bottom: 0.21cm }
-	-->
-	</STYLE>
-</HEAD>
-<BODY LANG="de-DE" BGCOLOR="#ffffff" BACKGROUND="test_html_8166445.jpg" STYLE="background: #ffffff url(test_html_8166445.jpg) scroll"><SPAN CLASS="sd-abs-pos" STYLE="position: absolute; top: 5.8cm; left: 15.11cm; width: 86px">
-<IMG SRC="test_html_616818a1.gif" NAME="Grafik1" WIDTH=86 HEIGHT=86 BORDER=0></SPAN><SPAN CLASS="sd-abs-pos" STYLE="position: absolute; top: 9.79cm; left: 2.9cm; width: 166px">
-<IMG SRC="test_html_m3914db47.gif"></SPAN>
-<P ALIGN=CENTER STYLE="margin-bottom: 0cm; page-break-before: right"><B>
-    Diese 2 Seiten wurden automatisch mit dem    Testtool im
-Stufe1-Test des Writers erstellt.</B></P>
-<P ALIGN=CENTER STYLE="margin-bottom: 0cm"><BR>
-</P>
-<P ALIGN=CENTER STYLE="margin-bottom: 0cm">Abgesendet von	:    <SDFIELD TYPE=AUTHOR FORMAT=NAME></SDFIELD></P>
-<P STYLE="margin-bottom: 0cm">Feldbefehle	:    Seitenanzahl <SDFIELD TYPE=DOCSTAT SUBTYPE=PAGE FORMAT=PAGE>2</SDFIELD>
-<BR>	:    Seitennummer <SDFIELD TYPE=PAGE SUBTYPE=RANDOM FORMAT=PAGE>1</SDFIELD></P>
-<P STYLE="margin-bottom: 0cm">Notizen	:    <!-- Dies ist die Notiz --></P>
-<P STYLE="margin-bottom: 0cm">Eine Grafik 	:   
-<IMG SRC="test_html_m2e0be98f.gif">	 am Zeichen verankert			eine
-Animated-Gif an Seite</P>
-<P STYLE="margin-bottom: 0cm"><BR>
-</P>
-<P STYLE="margin-bottom: 0cm">Eine Zeichnung 	:  ( Gruppiert
-)					Ein Kontrollfeld:</P>
-<P STYLE="margin-bottom: 0cm"><BR>
-</P>
-<FORM NAME="Standard">
-	<P STYLE="margin-bottom: 0cm"><INPUT TYPE=BUTTON NAME="CommandButton1" VALUE="Ein Schalter (TZ)"><BR>
-	</P>
-</FORM>
-<P STYLE="margin-bottom: 0cm"><BR>
-</P>
-<P STYLE="margin-bottom: 0cm"><BR>
-</P>
-<P STYLE="margin-bottom: 0cm"><BR>
-</P>
-<P STYLE="margin-bottom: 0cm"><BR>
-</P>
-<P STYLE="margin-bottom: 0cm"><BR>
-</P>
-<P STYLE="margin-bottom: 0cm"><BR>
-</P>
-<P STYLE="margin-bottom: 0cm"><BR>
-</P>
-<P STYLE="margin-bottom: 0cm"><BR>
-</P>
-<P STYLE="margin-bottom: 0cm"><BR>
-</P>
-<P STYLE="margin-bottom: 0cm"><IMG SRC="test_html_m3ad7a8be.gif" ALIGN=LEFT><BR>
-</P>
-<P STYLE="margin-bottom: 0cm"><BR>
-</P>
-<P STYLE="margin-bottom: 0cm"><BR>
-</P>
-<P STYLE="margin-bottom: 0cm"><BR>
-</P>
-<P STYLE="margin-bottom: 0cm"><BR>
-</P>
-<P STYLE="margin-bottom: 0cm"><BR>
-</P>
-<P STYLE="margin-bottom: 0cm"><BR>
-</P>
-<P STYLE="margin-bottom: 0cm"><A HREF="test1.html">Eine Tabelle 	: </A>
-</P>
-<P STYLE="margin-bottom: 0cm"><BR>
-</P>
-<P STYLE="margin-bottom: 0cm"><SPAN ID="Rahmen1" STYLE="float: left; width: 10cm; height: 4.5cm; border: 1px solid #000000; padding: 0.15cm; background: #ffffff url(test_html_8166445.jpg) scroll">
-	<P CLASS="rahmeninhalt" ALIGN=CENTER>Der Textrahmen:</P>
-	<P CLASS="rahmeninhalt"><B>Erstellung am : <SDFIELD TYPE=DATETIME SDNUM="1031;1031;T. MMMM JJJJ">7. Mai 2002</SDFIELD>
-	 <SDFIELD TYPE=DATETIME SDNUM="1031;1031;HH:MM">14:32</SDFIELD> Uhr</B></P>
-	<P CLASS="rahmeninhalt"><BR><BR>
-	</P>
-</SPAN>		
-</P>
-<P STYLE="margin-bottom: 0cm; page-break-before: always">Format -
-Seite    :   Linke Seite</P>
-<P STYLE="margin-bottom: 0cm">Hintergrundbild :   den B&auml;ren (
-baer.gif )</P>
-</BODY>
-</HTML>
\ No newline at end of file
diff --git a/testautomation/writer/optional/input/options/test1.html b/testautomation/writer/optional/input/options/test1.html
deleted file mode 100755
index 0626407e8d81..000000000000
--- a/testautomation/writer/optional/input/options/test1.html
+++ /dev/null
@@ -1,72 +0,0 @@
-<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 3.2//EN">
-<HTML>
-<HEAD>
-	<META HTTP-EQUIV="CONTENT-TYPE" CONTENT="text/html; charset=windows-1252">
-	<TITLE>Eine Tabelle 	: </TITLE>
-	<META NAME="GENERATOR" CONTENT="StarOffice 6.0  (Win32)">
-	<META NAME="CREATED" CONTENT="20020507;14321105">
-	<META NAME="CHANGED" CONTENT="20020507;14321263">
-	<STYLE>
-	<!--
-		TH P { margin-bottom: 0.21cm }
-		TH P.western { font-style: italic }
-		TH P.cjk { font-weight: medium }
-		TH P.ctl { font-weight: medium }
-		TD P { margin-bottom: 0.21cm }
-		P { margin-bottom: 0.21cm }
-	-->
-	</STYLE>
-</HEAD>
-<BODY LANG="de-DE">
-<P STYLE="margin-bottom: 0cm">Eine Tabelle 	: 
-</P>
-<DL>
-	<DL>
-		<DL>
-			<DD>
-			<TABLE WIDTH=4369 BORDER=1 BORDERCOLOR="#000000" CELLPADDING=4 CELLSPACING=0>
-				<COL WIDTH=865>
-				<COL WIDTH=866>
-				<COL WIDTH=866>
-				<COL WIDTH=866>
-				<COL WIDTH=865>
-				<THEAD>
-					<TR VALIGN=TOP>
-						<TH WIDTH=865 BGCOLOR="#e6e6ff">
-							<P CLASS="western">Zellen</P>
-						</TH>
-						<TH WIDTH=866 BGCOLOR="#e6e6ff">
-							<P CLASS="western">mit 
-							</P>
-						</TH>
-						<TH WIDTH=866 BGCOLOR="#e6e6ff">
-							<P CLASS="western">grau/blau</P>
-						</TH>
-						<TH WIDTH=866>
-							<P CLASS="western">dicker</P>
-						</TH>
-						<TH WIDTH=865>
-							<P CLASS="western">Rand</P>
-						</TH>
-					</TR>
-				</THEAD>
-				<TBODY>
-					<TR VALIGN=TOP>
-						<TD WIDTH=865 BGCOLOR="#ffffff" STYLE="background: #ffffff url(test1_html_m5a52a8ec.jpg) scroll">
-							<P><BR>
-							</P>
-						</TD>
-						<TD COLSPAN=2 WIDTH=1740>
-							<P>&lt;= Zelle mit Grafik</P>
-						</TD>
-						<TD COLSPAN=2 WIDTH=1738>
-							<P>2 verbundene <B>Zellen</B></P>
-						</TD>
-					</TR>
-				</TBODY>
-			</TABLE>
-		</DL>
-	</DL>
-</DL>
-</BODY>
-</HTML>
\ No newline at end of file
diff --git a/testautomation/writer/optional/input/options/test1_html_m5a52a8ec.jpg b/testautomation/writer/optional/input/options/test1_html_m5a52a8ec.jpg
deleted file mode 100644
index 62bb885cb224..000000000000
--- a/testautomation/writer/optional/input/options/test1_html_m5a52a8ec.jpg
+++ /dev/null
diff --git a/testautomation/writer/optional/input/options/test_html_616818a1.gif b/testautomation/writer/optional/input/options/test_html_616818a1.gif
deleted file mode 100755
index 9af26707f9e8..000000000000
--- a/testautomation/writer/optional/input/options/test_html_616818a1.gif
+++ /dev/null
diff --git a/testautomation/writer/optional/input/options/test_html_8166445.jpg b/testautomation/writer/optional/input/options/test_html_8166445.jpg
deleted file mode 100644
index 4b34dc07c44b..000000000000
--- a/testautomation/writer/optional/input/options/test_html_8166445.jpg
+++ /dev/null
diff --git a/testautomation/writer/optional/input/options/test_html_m2e0be98f.gif b/testautomation/writer/optional/input/options/test_html_m2e0be98f.gif
deleted file mode 100755
index 27de3d2f895d..000000000000
--- a/testautomation/writer/optional/input/options/test_html_m2e0be98f.gif
+++ /dev/null
diff --git a/testautomation/writer/optional/input/options/test_html_m3914db47.gif b/testautomation/writer/optional/input/options/test_html_m3914db47.gif
deleted file mode 100755
index e21f4fbd8b53..000000000000
--- a/testautomation/writer/optional/input/options/test_html_m3914db47.gif
+++ /dev/null
diff --git a/testautomation/writer/optional/input/options/test_html_m3ad7a8be.gif b/testautomation/writer/optional/input/options/test_html_m3ad7a8be.gif
deleted file mode 100755
index dc5c52acaf3c..000000000000
--- a/testautomation/writer/optional/input/options/test_html_m3ad7a8be.gif
+++ /dev/null
diff --git a/testautomation/writer/optional/input/options/wtitertest.sxw b/testautomation/writer/optional/input/options/wtitertest.sxw
deleted file mode 100644
index 263dd433c1e0..000000000000
--- a/testautomation/writer/optional/input/options/wtitertest.sxw
+++ /dev/null
diff --git a/testautomation/writer/optional/input/redlining/tRedlining_15.sxw b/testautomation/writer/optional/input/redlining/tRedlining_15.sxw
deleted file mode 100644
index 42b35c25ea1e..000000000000
--- a/testautomation/writer/optional/input/redlining/tRedlining_15.sxw
+++ /dev/null
diff --git a/testautomation/writer/optional/input/redlining/tRedlining_4.sxw b/testautomation/writer/optional/input/redlining/tRedlining_4.sxw
deleted file mode 100644
index e7b43b43c44d..000000000000
--- a/testautomation/writer/optional/input/redlining/tRedlining_4.sxw
+++ /dev/null
diff --git a/testautomation/writer/optional/input/regression/issuezilla/i103265.odt b/testautomation/writer/optional/input/regression/issuezilla/i103265.odt
deleted file mode 100644
index bbf90f8febba..000000000000
--- a/testautomation/writer/optional/input/regression/issuezilla/i103265.odt
+++ /dev/null
diff --git a/testautomation/writer/optional/input/regression/issuezilla/i64991.odt b/testautomation/writer/optional/input/regression/issuezilla/i64991.odt
deleted file mode 100644
index 79799b12705f..000000000000
--- a/testautomation/writer/optional/input/regression/issuezilla/i64991.odt
+++ /dev/null
diff --git a/testautomation/writer/optional/input/regression/issuezilla/i65094a.odt b/testautomation/writer/optional/input/regression/issuezilla/i65094a.odt
deleted file mode 100644
index e747ad053a95..000000000000
--- a/testautomation/writer/optional/input/regression/issuezilla/i65094a.odt
+++ /dev/null
diff --git a/testautomation/writer/optional/input/regression/issuezilla/i65094b.odt b/testautomation/writer/optional/input/regression/issuezilla/i65094b.odt
deleted file mode 100644
index 335d1bd107aa..000000000000
--- a/testautomation/writer/optional/input/regression/issuezilla/i65094b.odt
+++ /dev/null
diff --git a/testautomation/writer/optional/input/regression/issuezilla/i69521.odt b/testautomation/writer/optional/input/regression/issuezilla/i69521.odt
deleted file mode 100644
index c6687af113eb..000000000000
--- a/testautomation/writer/optional/input/regression/issuezilla/i69521.odt
+++ /dev/null
diff --git a/testautomation/writer/optional/input/search/attrib.sxw b/testautomation/writer/optional/input/search/attrib.sxw
deleted file mode 100644
index 45579f9d4b7d..000000000000
--- a/testautomation/writer/optional/input/search/attrib.sxw
+++ /dev/null
diff --git a/testautomation/writer/optional/input/search/regu_aus.sxw b/testautomation/writer/optional/input/search/regu_aus.sxw
deleted file mode 100644
index cfe742a2475a..000000000000
--- a/testautomation/writer/optional/input/search/regu_aus.sxw
+++ /dev/null
diff --git a/testautomation/writer/optional/input/search/style_characters_raw.sxw b/testautomation/writer/optional/input/search/style_characters_raw.sxw
deleted file mode 100644
index 0d5df98810a8..000000000000
--- a/testautomation/writer/optional/input/search/style_characters_raw.sxw
+++ /dev/null
diff --git a/testautomation/writer/optional/input/search/style_characters_styles_allone.sxw b/testautomation/writer/optional/input/search/style_characters_styles_allone.sxw
deleted file mode 100644
index 3d1a9b50b37e..000000000000
--- a/testautomation/writer/optional/input/search/style_characters_styles_allone.sxw
+++ /dev/null
diff --git a/testautomation/writer/optional/input/search/such_u_e.sxw b/testautomation/writer/optional/input/search/such_u_e.sxw
deleted file mode 100644
index 1b88828301e8..000000000000
--- a/testautomation/writer/optional/input/search/such_u_e.sxw
+++ /dev/null
diff --git a/testautomation/writer/optional/input/section/Footnote.sdw b/testautomation/writer/optional/input/section/Footnote.sdw
deleted file mode 100755
index fc1f184e75b4..000000000000
--- a/testautomation/writer/optional/input/section/Footnote.sdw
+++ /dev/null
diff --git a/testautomation/writer/optional/input/section/bt.sxw b/testautomation/writer/optional/input/section/bt.sxw
deleted file mode 100644
index a67d115ae63c..000000000000
--- a/testautomation/writer/optional/input/section/bt.sxw
+++ /dev/null
diff --git a/testautomation/writer/optional/input/section/section_test.sxd b/testautomation/writer/optional/input/section/section_test.sxd
deleted file mode 100644
index dd8c52b64d84..000000000000
--- a/testautomation/writer/optional/input/section/section_test.sxd
+++ /dev/null
diff --git a/testautomation/writer/optional/input/section/tParagraphSection_1.sxw b/testautomation/writer/optional/input/section/tParagraphSection_1.sxw
deleted file mode 100644
index ae30809e59dc..000000000000
--- a/testautomation/writer/optional/input/section/tParagraphSection_1.sxw
+++ /dev/null
diff --git a/testautomation/writer/optional/input/section/tScenarioSection_1.sxw b/testautomation/writer/optional/input/section/tScenarioSection_1.sxw
deleted file mode 100644
index 5adeff2a8b4a..000000000000
--- a/testautomation/writer/optional/input/section/tScenarioSection_1.sxw
+++ /dev/null
diff --git a/testautomation/writer/optional/input/section/tScenarioSection_2.sxw b/testautomation/writer/optional/input/section/tScenarioSection_2.sxw
deleted file mode 100644
index f9721c44c219..000000000000
--- a/testautomation/writer/optional/input/section/tScenarioSection_2.sxw
+++ /dev/null
diff --git a/testautomation/writer/optional/input/sorting/phonelist.odt b/testautomation/writer/optional/input/sorting/phonelist.odt
deleted file mode 100644
index 3212fe935901..000000000000
--- a/testautomation/writer/optional/input/sorting/phonelist.odt
+++ /dev/null
diff --git a/testautomation/writer/optional/input/sorting/phonelist_sc.odt b/testautomation/writer/optional/input/sorting/phonelist_sc.odt
deleted file mode 100644
index be442e82bec1..000000000000
--- a/testautomation/writer/optional/input/sorting/phonelist_sc.odt
+++ /dev/null
diff --git a/testautomation/writer/optional/input/sorting/sort1.odm b/testautomation/writer/optional/input/sorting/sort1.odm
deleted file mode 100644
index 45fc99b22560..000000000000
--- a/testautomation/writer/optional/input/sorting/sort1.odm
+++ /dev/null
diff --git a/testautomation/writer/optional/input/sorting/sort1.odt b/testautomation/writer/optional/input/sorting/sort1.odt
deleted file mode 100644
index f808713ceac5..000000000000
--- a/testautomation/writer/optional/input/sorting/sort1.odt
+++ /dev/null
diff --git a/testautomation/writer/optional/input/sorting/sort2.odm b/testautomation/writer/optional/input/sorting/sort2.odm
deleted file mode 100644
index 6d51ad3f90e3..000000000000
--- a/testautomation/writer/optional/input/sorting/sort2.odm
+++ /dev/null
diff --git a/testautomation/writer/optional/input/sorting/sort2.odt b/testautomation/writer/optional/input/sorting/sort2.odt
deleted file mode 100644
index c550b4e4e214..000000000000
--- a/testautomation/writer/optional/input/sorting/sort2.odt
+++ /dev/null
diff --git a/testautomation/writer/optional/input/sorting/sort3.odm b/testautomation/writer/optional/input/sorting/sort3.odm
deleted file mode 100644
index 835d3bb20d2b..000000000000
--- a/testautomation/writer/optional/input/sorting/sort3.odm
+++ /dev/null
diff --git a/testautomation/writer/optional/input/sorting/sort3.odt b/testautomation/writer/optional/input/sorting/sort3.odt
deleted file mode 100644
index 03b606a608f6..000000000000
--- a/testautomation/writer/optional/input/sorting/sort3.odt
+++ /dev/null
diff --git a/testautomation/writer/optional/input/spellcheck/Language_Guessing_Sample_Texts.odt b/testautomation/writer/optional/input/spellcheck/Language_Guessing_Sample_Texts.odt
deleted file mode 100644
index ae765bd5f220..000000000000
--- a/testautomation/writer/optional/input/spellcheck/Language_Guessing_Sample_Texts.odt
+++ /dev/null
diff --git a/testautomation/writer/optional/input/spellcheck/spellcheck_1.odt b/testautomation/writer/optional/input/spellcheck/spellcheck_1.odt
deleted file mode 100644
index 7a9a9af26ac0..000000000000
--- a/testautomation/writer/optional/input/spellcheck/spellcheck_1.odt
+++ /dev/null
diff --git a/testautomation/writer/optional/input/spellcheck/spellcheck_33.odt b/testautomation/writer/optional/input/spellcheck/spellcheck_33.odt
deleted file mode 100644
index f3615f2b2eb5..000000000000
--- a/testautomation/writer/optional/input/spellcheck/spellcheck_33.odt
+++ /dev/null
diff --git a/testautomation/writer/optional/input/spellcheck/spellcheck_34.odt b/testautomation/writer/optional/input/spellcheck/spellcheck_34.odt
deleted file mode 100644
index 6e6a0cbfa001..000000000000
--- a/testautomation/writer/optional/input/spellcheck/spellcheck_34.odt
+++ /dev/null
diff --git a/testautomation/writer/optional/input/spellcheck/spellcheck_49.odt b/testautomation/writer/optional/input/spellcheck/spellcheck_49.odt
deleted file mode 100644
index 48796b36bc14..000000000000
--- a/testautomation/writer/optional/input/spellcheck/spellcheck_49.odt
+++ /dev/null
diff --git a/testautomation/writer/optional/input/spellcheck/spellcheck_50.odt b/testautomation/writer/optional/input/spellcheck/spellcheck_50.odt
deleted file mode 100644
index 30f9d7cdc76b..000000000000
--- a/testautomation/writer/optional/input/spellcheck/spellcheck_50.odt
+++ /dev/null
diff --git a/testautomation/writer/optional/input/spellcheck/st1_2_01.odt b/testautomation/writer/optional/input/spellcheck/st1_2_01.odt
deleted file mode 100644
index 7742b2809757..000000000000
--- a/testautomation/writer/optional/input/spellcheck/st1_2_01.odt
+++ /dev/null
diff --git a/testautomation/writer/optional/input/spellcheck/st1_2_03.odt b/testautomation/writer/optional/input/spellcheck/st1_2_03.odt
deleted file mode 100644
index d1cef061b322..000000000000
--- a/testautomation/writer/optional/input/spellcheck/st1_2_03.odt
+++ /dev/null
diff --git a/testautomation/writer/optional/input/spellcheck/st1_2_07.odt b/testautomation/writer/optional/input/spellcheck/st1_2_07.odt
deleted file mode 100644
index 614874509250..000000000000
--- a/testautomation/writer/optional/input/spellcheck/st1_2_07.odt
+++ /dev/null
diff --git a/testautomation/writer/optional/input/spellcheck/st1_2_31.odt b/testautomation/writer/optional/input/spellcheck/st1_2_31.odt
deleted file mode 100644
index af034f4195ba..000000000000
--- a/testautomation/writer/optional/input/spellcheck/st1_2_31.odt
+++ /dev/null
diff --git a/testautomation/writer/optional/input/spellcheck/st1_2_33.odt b/testautomation/writer/optional/input/spellcheck/st1_2_33.odt
deleted file mode 100644
index dc53b7b0a6f8..000000000000
--- a/testautomation/writer/optional/input/spellcheck/st1_2_33.odt
+++ /dev/null
diff --git a/testautomation/writer/optional/input/spellcheck/st1_2_34.odt b/testautomation/writer/optional/input/spellcheck/st1_2_34.odt
deleted file mode 100644
index 2362ea124766..000000000000
--- a/testautomation/writer/optional/input/spellcheck/st1_2_34.odt
+++ /dev/null
diff --git a/testautomation/writer/optional/input/spellcheck/st1_2_36.odt b/testautomation/writer/optional/input/spellcheck/st1_2_36.odt
deleted file mode 100644
index e4c98c23040c..000000000000
--- a/testautomation/writer/optional/input/spellcheck/st1_2_36.odt
+++ /dev/null
diff --git a/testautomation/writer/optional/input/spellcheck/st1_2_39.odt b/testautomation/writer/optional/input/spellcheck/st1_2_39.odt
deleted file mode 100644
index 3190685aea86..000000000000
--- a/testautomation/writer/optional/input/spellcheck/st1_2_39.odt
+++ /dev/null
diff --git a/testautomation/writer/optional/input/spellcheck/st1_2_45.odt b/testautomation/writer/optional/input/spellcheck/st1_2_45.odt
deleted file mode 100644
index 6ab7ac794b9a..000000000000
--- a/testautomation/writer/optional/input/spellcheck/st1_2_45.odt
+++ /dev/null
diff --git a/testautomation/writer/optional/input/spellcheck/st1_2_46.odt b/testautomation/writer/optional/input/spellcheck/st1_2_46.odt
deleted file mode 100644
index 6a42f9c82d43..000000000000
--- a/testautomation/writer/optional/input/spellcheck/st1_2_46.odt
+++ /dev/null
diff --git a/testautomation/writer/optional/input/spellcheck/st1_2_48.odt b/testautomation/writer/optional/input/spellcheck/st1_2_48.odt
deleted file mode 100644
index a74b56f17758..000000000000
--- a/testautomation/writer/optional/input/spellcheck/st1_2_48.odt
+++ /dev/null
diff --git a/testautomation/writer/optional/input/spellcheck/st1_2_49.odt b/testautomation/writer/optional/input/spellcheck/st1_2_49.odt
deleted file mode 100644
index 14a312232801..000000000000
--- a/testautomation/writer/optional/input/spellcheck/st1_2_49.odt
+++ /dev/null
diff --git a/testautomation/writer/optional/input/spellcheck/st1_2_50.odt b/testautomation/writer/optional/input/spellcheck/st1_2_50.odt
deleted file mode 100644
index 7402e851bb65..000000000000
--- a/testautomation/writer/optional/input/spellcheck/st1_2_50.odt
+++ /dev/null
diff --git a/testautomation/writer/optional/input/spellcheck/st1_2_55.odt b/testautomation/writer/optional/input/spellcheck/st1_2_55.odt
deleted file mode 100644
index 14385ae8e198..000000000000
--- a/testautomation/writer/optional/input/spellcheck/st1_2_55.odt
+++ /dev/null
diff --git a/testautomation/writer/optional/input/st1_1.sxw b/testautomation/writer/optional/input/st1_1.sxw
deleted file mode 100644
index 0b7825936dcf..000000000000
--- a/testautomation/writer/optional/input/st1_1.sxw
+++ /dev/null
diff --git a/testautomation/writer/optional/input/st1_13a.sxw b/testautomation/writer/optional/input/st1_13a.sxw
deleted file mode 100644
index 78561c48c625..000000000000
--- a/testautomation/writer/optional/input/st1_13a.sxw
+++ /dev/null
diff --git a/testautomation/writer/optional/input/st1_13b.sxw b/testautomation/writer/optional/input/st1_13b.sxw
deleted file mode 100644
index 5e576b63ffa5..000000000000
--- a/testautomation/writer/optional/input/st1_13b.sxw
+++ /dev/null
diff --git a/testautomation/writer/optional/input/st1_14.sxw b/testautomation/writer/optional/input/st1_14.sxw
deleted file mode 100644
index 3d072d2d66fc..000000000000
--- a/testautomation/writer/optional/input/st1_14.sxw
+++ /dev/null
diff --git a/testautomation/writer/optional/input/st1_5.sxw b/testautomation/writer/optional/input/st1_5.sxw
deleted file mode 100644
index 2a97a9999f4e..000000000000
--- a/testautomation/writer/optional/input/st1_5.sxw
+++ /dev/null
diff --git a/testautomation/writer/optional/input/st1_7.sxw b/testautomation/writer/optional/input/st1_7.sxw
deleted file mode 100644
index ae59bfd293e7..000000000000
--- a/testautomation/writer/optional/input/st1_7.sxw
+++ /dev/null
diff --git a/testautomation/writer/optional/input/textframe/AnchorAsCharacter.sxw b/testautomation/writer/optional/input/textframe/AnchorAsCharacter.sxw
deleted file mode 100644
index 1145ea0ceb8d..000000000000
--- a/testautomation/writer/optional/input/textframe/AnchorAsCharacter.sxw
+++ /dev/null
diff --git a/testautomation/writer/optional/input/textframe/AnchorToCharacter.sxw b/testautomation/writer/optional/input/textframe/AnchorToCharacter.sxw
deleted file mode 100644
index ea8c930d6893..000000000000
--- a/testautomation/writer/optional/input/textframe/AnchorToCharacter.sxw
+++ /dev/null
diff --git a/testautomation/writer/optional/input/textframe/AnchorToPage.sxw b/testautomation/writer/optional/input/textframe/AnchorToPage.sxw
deleted file mode 100644
index 553b8c632ae8..000000000000
--- a/testautomation/writer/optional/input/textframe/AnchorToPage.sxw
+++ /dev/null
diff --git a/testautomation/writer/optional/input/textframe/AnchorToParagraph.sxw b/testautomation/writer/optional/input/textframe/AnchorToParagraph.sxw
deleted file mode 100644
index 788d840a415c..000000000000
--- a/testautomation/writer/optional/input/textframe/AnchorToParagraph.sxw
+++ /dev/null
diff --git a/testautomation/writer/optional/input/textframe/Footer.sxw b/testautomation/writer/optional/input/textframe/Footer.sxw
deleted file mode 100644
index 91209194c197..000000000000
--- a/testautomation/writer/optional/input/textframe/Footer.sxw
+++ /dev/null
diff --git a/testautomation/writer/optional/input/textframe/Header.sxw b/testautomation/writer/optional/input/textframe/Header.sxw
deleted file mode 100644
index f6cd7663ec2b..000000000000
--- a/testautomation/writer/optional/input/textframe/Header.sxw
+++ /dev/null
diff --git a/testautomation/writer/optional/input/textframe/after.sxw b/testautomation/writer/optional/input/textframe/after.sxw
deleted file mode 100644
index e3e637efb38c..000000000000
--- a/testautomation/writer/optional/input/textframe/after.sxw
+++ /dev/null
diff --git a/testautomation/writer/optional/input/textframe/before.sxw b/testautomation/writer/optional/input/textframe/before.sxw
deleted file mode 100644
index 4d263f537256..000000000000
--- a/testautomation/writer/optional/input/textframe/before.sxw
+++ /dev/null
diff --git a/testautomation/writer/optional/input/textframe/behindText.doc b/testautomation/writer/optional/input/textframe/behindText.doc
deleted file mode 100755
index 62da7e92ecf4..000000000000
--- a/testautomation/writer/optional/input/textframe/behindText.doc
+++ /dev/null
diff --git a/testautomation/writer/optional/input/textframe/frame.sxw b/testautomation/writer/optional/input/textframe/frame.sxw
deleted file mode 100644
index 288e582fbf71..000000000000
--- a/testautomation/writer/optional/input/textframe/frame.sxw
+++ /dev/null
diff --git a/testautomation/writer/optional/input/textframe/frameInEndnote.sxw b/testautomation/writer/optional/input/textframe/frameInEndnote.sxw
deleted file mode 100644
index fd2f202072d6..000000000000
--- a/testautomation/writer/optional/input/textframe/frameInEndnote.sxw
+++ /dev/null
diff --git a/testautomation/writer/optional/input/textframe/frameInFooter.sxw b/testautomation/writer/optional/input/textframe/frameInFooter.sxw
deleted file mode 100644
index 8cbfe9c7fc15..000000000000
--- a/testautomation/writer/optional/input/textframe/frameInFooter.sxw
+++ /dev/null
diff --git a/testautomation/writer/optional/input/textframe/frameInFootnote.sxw b/testautomation/writer/optional/input/textframe/frameInFootnote.sxw
deleted file mode 100644
index b1110a6c7f35..000000000000
--- a/testautomation/writer/optional/input/textframe/frameInFootnote.sxw
+++ /dev/null
diff --git a/testautomation/writer/optional/input/textframe/frameInFrame.sxw b/testautomation/writer/optional/input/textframe/frameInFrame.sxw
deleted file mode 100644
index 68e98975a7b6..000000000000
--- a/testautomation/writer/optional/input/textframe/frameInFrame.sxw
+++ /dev/null
diff --git a/testautomation/writer/optional/input/textframe/frameInHeader.sxw b/testautomation/writer/optional/input/textframe/frameInHeader.sxw
deleted file mode 100644
index b06bd9375876..000000000000
--- a/testautomation/writer/optional/input/textframe/frameInHeader.sxw
+++ /dev/null
diff --git a/testautomation/writer/optional/input/textframe/frameInTable.sxw b/testautomation/writer/optional/input/textframe/frameInTable.sxw
deleted file mode 100644
index aa362e19913c..000000000000
--- a/testautomation/writer/optional/input/textframe/frameInTable.sxw
+++ /dev/null
diff --git a/testautomation/writer/optional/input/textframe/inFrontText.doc b/testautomation/writer/optional/input/textframe/inFrontText.doc
deleted file mode 100755
index eff9caf34dd5..000000000000
--- a/testautomation/writer/optional/input/textframe/inFrontText.doc
+++ /dev/null
diff --git a/testautomation/writer/optional/input/textframe/inLineWithText.doc b/testautomation/writer/optional/input/textframe/inLineWithText.doc
deleted file mode 100755
index 6e95f20c0d93..000000000000
--- a/testautomation/writer/optional/input/textframe/inLineWithText.doc
+++ /dev/null
diff --git a/testautomation/writer/optional/input/textframe/lineInText.doc b/testautomation/writer/optional/input/textframe/lineInText.doc
deleted file mode 100755
index 53d1c1ea37f1..000000000000
--- a/testautomation/writer/optional/input/textframe/lineInText.doc
+++ /dev/null
diff --git a/testautomation/writer/optional/input/textframe/lineOfText.doc b/testautomation/writer/optional/input/textframe/lineOfText.doc
deleted file mode 100755
index c6db6abb438f..000000000000
--- a/testautomation/writer/optional/input/textframe/lineOfText.doc
+++ /dev/null
diff --git a/testautomation/writer/optional/input/textframe/lineOfText.sxw b/testautomation/writer/optional/input/textframe/lineOfText.sxw
deleted file mode 100644
index 2aa4e0be23c6..000000000000
--- a/testautomation/writer/optional/input/textframe/lineOfText.sxw
+++ /dev/null
diff --git a/testautomation/writer/optional/input/textframe/pageColumn1.sxw b/testautomation/writer/optional/input/textframe/pageColumn1.sxw
deleted file mode 100644
index 0e7282efeb45..000000000000
--- a/testautomation/writer/optional/input/textframe/pageColumn1.sxw
+++ /dev/null
diff --git a/testautomation/writer/optional/input/textframe/pageColumn2.sxw b/testautomation/writer/optional/input/textframe/pageColumn2.sxw
deleted file mode 100644
index 9484631ee9f1..000000000000
--- a/testautomation/writer/optional/input/textframe/pageColumn2.sxw
+++ /dev/null
diff --git a/testautomation/writer/optional/input/textframe/pageParagraph.sxw b/testautomation/writer/optional/input/textframe/pageParagraph.sxw
deleted file mode 100644
index e0fd4fc68d29..000000000000
--- a/testautomation/writer/optional/input/textframe/pageParagraph.sxw
+++ /dev/null
diff --git a/testautomation/writer/optional/input/textframe/square.doc b/testautomation/writer/optional/input/textframe/square.doc
deleted file mode 100755
index ff8c97c501ea..000000000000
--- a/testautomation/writer/optional/input/textframe/square.doc
+++ /dev/null
diff --git a/testautomation/writer/optional/input/textframe/through.sxw b/testautomation/writer/optional/input/textframe/through.sxw
deleted file mode 100644
index 7cf7ecf34631..000000000000
--- a/testautomation/writer/optional/input/textframe/through.sxw
+++ /dev/null
diff --git a/testautomation/writer/optional/input/textframe/tight.doc b/testautomation/writer/optional/input/textframe/tight.doc
deleted file mode 100755
index c07d54ef2a8e..000000000000
--- a/testautomation/writer/optional/input/textframe/tight.doc
+++ /dev/null
diff --git a/testautomation/writer/optional/input/textframe/twopages.sxw b/testautomation/writer/optional/input/textframe/twopages.sxw
deleted file mode 100644
index 01f6b13f7ae2..000000000000
--- a/testautomation/writer/optional/input/textframe/twopages.sxw
+++ /dev/null
diff --git a/testautomation/writer/optional/input/textframe/wrap.sxw b/testautomation/writer/optional/input/textframe/wrap.sxw
deleted file mode 100644
index 25086fb88bab..000000000000
--- a/testautomation/writer/optional/input/textframe/wrap.sxw
+++ /dev/null
diff --git a/testautomation/writer/optional/input/undo/htmltest.sxg b/testautomation/writer/optional/input/undo/htmltest.sxg
deleted file mode 100644
index 75758bb88c5c..000000000000
--- a/testautomation/writer/optional/input/undo/htmltest.sxg
+++ /dev/null
diff --git a/testautomation/writer/optional/input/undo/htmltest.sxw b/testautomation/writer/optional/input/undo/htmltest.sxw
deleted file mode 100644
index 835069a95783..000000000000
--- a/testautomation/writer/optional/input/undo/htmltest.sxw
+++ /dev/null
diff --git a/testautomation/writer/optional/input/undo/spellcheck_undo.odt b/testautomation/writer/optional/input/undo/spellcheck_undo.odt
deleted file mode 100644
index a1354854e4ce..000000000000
--- a/testautomation/writer/optional/input/undo/spellcheck_undo.odt
+++ /dev/null
diff --git a/testautomation/writer/optional/input/verzeichnis/verzeichnis.sxw b/testautomation/writer/optional/input/verzeichnis/verzeichnis.sxw
deleted file mode 100644
index a3c310f20406..000000000000
--- a/testautomation/writer/optional/input/verzeichnis/verzeichnis.sxw
+++ /dev/null
diff --git a/testautomation/writer/optional/input/verzeichnis/verzeichnisse.sxw b/testautomation/writer/optional/input/verzeichnis/verzeichnisse.sxw
deleted file mode 100644
index 1d5f6836bb77..000000000000
--- a/testautomation/writer/optional/input/verzeichnis/verzeichnisse.sxw
+++ /dev/null
diff --git a/testautomation/writer/optional/w_CJKCTLDependency.bas b/testautomation/writer/optional/w_CJKCTLDependency.bas
deleted file mode 100644
index f19d922cab47..000000000000
--- a/testautomation/writer/optional/w_CJKCTLDependency.bas
+++ /dev/null
@@ -1,89 +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 :  helge.delfs@oracle.com
-'*
-'* short description : Test CJK and CTL support dependency
-'*
-'\*******************************************************************
-
-sub main
-
-    Dim StartZeit
-
-    StartZeit = Now()
-
-    use "writer\tools\includes\w_tools.inc"
-    use "writer\tools\includes\w_tool3.inc"
-    use "writer\optional\includes\tools\tools1.inc"
-    use "writer\optional\includes\tools\tools2.inc"
-    use "writer\optional\includes\CJKCTLDependency\CJKCTLDependency1.inc"
-
-    printlog Chr(13) + "Loading of Include - Files takes: " + Wielange ( StartZeit )
-    printlog Chr(13) + "******* Writer - Level 1 - Test *******"
-
-    Call hStatusIn ( "writer", "w_CJKCTLDependency.bas" , "CJK Dependency test" )
-
-    printlog Chr(13) + "      - Test CJK support dependency"
-
-    Call tCJKDependency_1
-    Call tCJKDependency_2
-    Call tCJKDependency_3
-    Call tCJKDependency_4
-    Call tCJKDependency_5
-
-    printlog Chr(13) + "      - Test CTL support dependency"
-
-    Call tCTLDependency_1
-    Call tCTLDependency_2
-    Call tCTLDependency_3
-    Call tCTLDependency_4
-    Call tCTLKashidaCheck
-    
-    gApplication = "HTML"
-    Call tCTLDependency_5
-    Call tCTLDependency_6
-    Call tCTLDependency_7
-    Call tCTLDependency_8
-    
-      
-   Call hStatusOut
-
-   Printlog Chr(13) + "End of Level 1 Test - CJK/CTL Dependency"
-   Printlog "Duration: "+ WieLange ( StartZeit )
-   Printlog "Date: " +  Date + "    Time: " + Time
-
-end sub
-
-sub LoadIncludeFiles
-   use "global\system\includes\master.inc"
-   use "global\system\includes\gvariabl.inc"
-   use "global\tools\includes\optional\t_toolbar_tools1.inc"
-   use "global\tools\includes\optional\t_toolbar_writer.inc"
-   Call GetUseFiles
-   gApplication = "WRITER"
-end Sub
diff --git a/testautomation/writer/optional/w_alternative_text.bas b/testautomation/writer/optional/w_alternative_text.bas
deleted file mode 100644
index 0096aed4ad3c..000000000000
--- a/testautomation/writer/optional/w_alternative_text.bas
+++ /dev/null
@@ -1,59 +0,0 @@
-'**************************************************************************
-' 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 : helge.delfs@oracle.com
-'*
-'* short description : Alternative Texts For Writer Objects
-'*
-'\***********************************************************************
-
-sub main
-    Dim StartTime
-    StartTime = Now()
-
-    use "writer\tools\includes\w_tools.inc"
-
-    use "writer\optional\includes\alternative_text\w_alternative_text.inc"
-
-    printlog Chr(13) + "Loading of Include - Files takes: " + Wielange ( StartTime )
-    printlog Chr(13) + "******* Writer - Alternative Text - Test *******"
-
-    Call hStatusIn ( "writer", "w_alternative_text.bas" )
-    Call w_alternative_text
-    Call hStatusOut
-
-    Printlog Chr(13) + "End of Autotest:"
-    Printlog "Duration: "+ WieLange ( StartTime )
-    Printlog "Date: " +  Date + "    Time: " + Time
-
-end sub
-
-sub LoadIncludeFiles
-    use "global\system\includes\master.inc"
-    use "global\system\includes\gvariabl.inc"
-    Call GetUseFiles
-    gApplication = "WRITER"
-end sub
diff --git a/testautomation/writer/optional/w_autocorrection.bas b/testautomation/writer/optional/w_autocorrection.bas
deleted file mode 100644
index 789b16358038..000000000000
--- a/testautomation/writer/optional/w_autocorrection.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 2008 by Sun Microsystems, Inc.
-'*
-'* 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 :  helge.delfs@oracle.com
-'*
-'* short description : Tools / Autocorrection test
-'*
-'\*******************************************************************
-
-global gSeperator as String
-global gMeasurementUnit as String
-
-sub main
-    Dim StartZeit
-    StartZeit = Now()
-
-    use "writer\tools\includes\w_tools.inc"
-    use "writer\tools\includes\w_tool3.inc"
-    use "writer\tools\includes\w_tools_autocorrection.inc"
-    use "writer\optional\includes\autocorrection\w_autocorrect1.inc"
-    use "writer\optional\includes\autocorrection\w_autocorrect2.inc"
-
-    printlog Chr(13) + "Loading of Include - Files takes: " + Wielange ( StartZeit )
-    printlog Chr(13) + "******* Writer - Autocorrection - Test *******"
-    'Getting the decimal seperator from global function
-    gSeperator = GetDecimalSeperator()
-    'Setting the measurement unit to centimeters.
-    gMeasurementUnit = fSetMeasurementToCM()
-
-    Call hStatusIn ( "writer" , "w_autocorrection.bas" )
-
-    Call w_autocorrect1
-    Call w_autocorrect2
-
-    Call hStatusOut
-
-    Printlog Chr(13) + "End of Autocorrect - Test :"
-    Printlog "Duration: "+ WieLange ( StartZeit )
-    Printlog "Date: " +  Date + "    Time: " + Time
-
-end sub
-
-sub LoadIncludeFiles
-    use "global\system\includes\master.inc"
-    use "global\system\includes\gvariabl.inc"
-    Call GetUseFiles
-    gApplication = "WRITER"
-end sub
diff --git a/testautomation/writer/optional/w_autotext.bas b/testautomation/writer/optional/w_autotext.bas
deleted file mode 100644
index e30eb667cc7f..000000000000
--- a/testautomation/writer/optional/w_autotext.bas
+++ /dev/null
@@ -1,61 +0,0 @@
-'**************************************************************************
-' 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 : helge.delfs@oracle.com
-'*
-'* short description : Test of autotext in writer
-'*
-'\***********************************************************************
-
-sub main
-    Dim StartTime
-    StartTime = Now()
-
-    use "writer\tools\includes\w_tools.inc"
-    use "writer\tools\includes\w_tool1.inc"
-    use "writer\tools\includes\w_tool2.inc"
-
-    use "writer\optional\includes\autotext\w_autotext.inc"
-
-    printlog Chr(13) + "Loading of Include - Files takes: " + Wielange ( StartTime )
-    printlog Chr(13) + "******* Writer - Autotext - Test *******"
-
-    Call hStatusIn ( "writer", "w_autotext.bas","Writer Autotext-Test" )
-    Call w_autotext
-    Call hStatusOut
-
-    Printlog Chr(13) + "End of Autotext - Test :"
-    Printlog "Duration: "+ WieLange ( StartTime )
-    Printlog "Date: " +  Date + "    Time: " + Time
-
-end sub
-
-sub LoadIncludeFiles
-    use "global\system\includes\master.inc"
-    use "global\system\includes\gvariabl.inc"
-    Call GetUseFiles
-    gApplication = "WRITER"
-end sub
diff --git a/testautomation/writer/optional/w_calculate.bas b/testautomation/writer/optional/w_calculate.bas
deleted file mode 100644
index cb38acdb02ca..000000000000
--- a/testautomation/writer/optional/w_calculate.bas
+++ /dev/null
@@ -1,72 +0,0 @@
-'**************************************************************************
-' 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 : helge.delfs@oracle.com
-'*
-'* short description : Basic calculation functionality check
-'*
-'\***********************************************************************
-
-global DecimalSeparator as string
-
-sub main
-    Dim StartTime
-    StartTime = Now()
-
-    use "writer\tools\includes\w_tools.inc"
-    use "writer\tools\includes\w_tool3.inc"
-    use "writer\tools\includes\w_tool6.inc"
-    use "writer\optional\includes\calculate\w_calculate.inc"
-
-    printlog Chr(13) + "Loading of Include - Files takes: " + Wielange ( StartTime )
-    printlog Chr(13) + "******* Writer - Calculation - Test *******"
-
-    ' Seperator to calculate with is not the same as used in UI
-    ' so we can't use GetDecimalSeparator here
-    Call hNewDocument
-    Call wTypeKeys ("1/2")
-    Call wTypeKeys ("<Shift Home>")
-    ToolsCalculate
-    if Instr(GetClipBoardtext, ",") > 0 then DecimalSeparator = ","
-    if Instr(GetClipBoardtext, ".") > 0 then DecimalSeparator = "."
-    Call hCloseDocument
-
-    Call hStatusIn ( "writer", "w_calculate.bas","Writer Calculation-Test" )
-    Call w_calculate
-    Call hStatusOut
-
-    Printlog Chr(13) + "End of Calculation - Test :"
-    Printlog "Duration: "+ WieLange ( StartTime )
-    Printlog "Date: " +  Date + "    Time: " + Time
-
-end sub
-
-sub LoadIncludeFiles
-    use "global\system\includes\master.inc"
-    use "global\system\includes\gvariabl.inc"
-    Call GetUseFiles
-    gApplication = "WRITER"
-end sub
diff --git a/testautomation/writer/optional/w_chinesetranslate.bas b/testautomation/writer/optional/w_chinesetranslate.bas
deleted file mode 100644
index 07c14cf06f5a..000000000000
--- a/testautomation/writer/optional/w_chinesetranslate.bas
+++ /dev/null
@@ -1,106 +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 :  helge.delfs@oracle.com
-'*
-'* short description : Test Chinese Translation
-'*
-'\*******************************************************************
-
-sub main
-
-    Dim StartZeit
-    Dim bAsianLanguage   as Boolean
-    Dim DefaultLanguage  as String
-    
-    StartZeit = Now()
-    
-    use "writer\tools\includes\w_tools.inc"
-    use "writer\tools\includes\w_tool3.inc"
-    use "writer\optional\includes\tools\tools1.inc"
-    use "writer\optional\includes\tools\tools2.inc"
-    use "writer\optional\includes\chinesetranslate\w_chinesetranslate1.inc"
-    use "writer\optional\includes\chinesetranslate\w_chinesetranslate2.inc"
-    
-    printlog Chr(13) + "Loading of Include - Files takes: " + Wielange ( StartZeit )
-    printlog Chr(13) + "******* Writer - Level 1 - Test *******"
-    
-    Call hStatusIn ( "writer", "w_chinesetranslate.bas" , "Chinese Translation" )
-    
-    printlog Chr(13) + "      - Test Chinese Translation"
-    
-    'Enable 'Asian Language support' ON
-    bAsianLanguage = ActiveDeactivateAsianSupport(TRUE)
-    ' Set default language(asian) for document is "Simplified Chinese"
-    DefaultLanguage = fSetAsian(fGetLanguageName(86))
-    
-    printlog Chr(13) + " -- Default setting -- "
-    
-    'Don't need to run this case - tDefaultSetting_1
-    Call tDefaultSetting_1
-    Call tDefaultSetting_2
-    Call tDefaultSetting_3
-    
-    printlog Chr(13) + " -- Standard Function -- "
-    Call tChineseTranslate_1
-    Call tChineseTranslate_2
-    Call tChineseTranslate_3
-    Call tChineseTranslate_4
-    Call tChineseTranslate_5
-    
-    printlog Chr(13) + " -- Chinese Dictionary -- "
-    Call tChineseTranslate_6
-    Call tChineseTranslate_7
-    Call tChineseTranslate_8
-    Call tChineseTranslate_9
-    Call tChineseTranslate_10
-    Call tChineseTranslate_11
-    
-    printlog Chr(13) + " -- Undo/Redo -- "
-    Call tUndoRedo
-    
-    'Set default language(asian) to default
-    Call fSetAsian(DefaultLanguage)   
-    'Set the 'Asian Language support' to default
-    if bAsianLanguage = FALSE then
-        Call ActiveDeactivateAsianSupport(FALSE)
-    end if
-    
-    Call hStatusOut
-    
-    Printlog Chr(13) + "End of Level 1 Test - Chinese Conversion"
-    Printlog "Duration: "+ WieLange ( StartZeit )
-    Printlog "Date: " +  Date + "    Time: " + Time
-
-end sub
-
-sub LoadIncludeFiles
-    use "global\system\includes\master.inc"
-    use "global\system\includes\gvariabl.inc"
-    Call GetUseFiles
-    gApplication = "WRITER"
-end Sub
diff --git a/testautomation/writer/optional/w_clipbrd.bas b/testautomation/writer/optional/w_clipbrd.bas
deleted file mode 100644
index 97d209d7599e..000000000000
--- a/testautomation/writer/optional/w_clipbrd.bas
+++ /dev/null
@@ -1,98 +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 : helge.delfs@oracle.com
-'*
-'* short description : CROSS-APPLICATIONS CLIPBOARD TEST (Text only)
-'*
-'\***********************************************************************
-
-Global CharsetSet as integer
-Global ExportSet as integer
-
-sub main
-    use "writer\tools\includes\w_tools.inc"
-    use "writer\optional\includes\clipboard\clipbrd_func.inc"
-    use "writer\optional\includes\clipboard\w_210_.inc"
-    use "writer\optional\includes\clipboard\w_211_.inc"
-    use "writer\optional\includes\clipboard\w_212_.inc"
-    use "writer\optional\includes\clipboard\w_213_.inc"
-    use "writer\optional\includes\clipboard\w_214_.inc"
-    use "writer\optional\includes\clipboard\w_215_.inc"
-    use "writer\optional\includes\clipboard\w_216_.inc"
-    use "writer\optional\includes\clipboard\w_217_.inc"
-    use "writer\optional\includes\clipboard\w_218_.inc"
-    use "writer\optional\includes\clipboard\w_219_.inc"
-    use "writer\optional\includes\clipboard\w_220_.inc"
-    use "writer\optional\includes\clipboard\w_221_.inc"
-    use "writer\optional\includes\clipboard\w_222_.inc"
-    Dim Start : Start = Now()
-    Dim lsSourceList(3) as string
-
-    ' copy needed files linked in test documents lo local file system if needed Issue #112208
-    lsSourceList(0) = 3
-    lsSourceList(1) = ConvertPath ( gtesttoolpath & "writer\optional\input\clipboard\dummy.sxw" )
-    lsSourceList(2) = ConvertPath ( gtesttoolpath & "writer\optional\input\clipboard\dummy.txt" )
-    lsSourceList(3) = ConvertPath ( gtesttoolpath & "writer\optional\input\clipboard\flower.gif" )
-
-    if hFileListCopyLocal(lsSourceList()) = false then
-        warnlog "Copying of elementary files failed. Test interrupted!"
-        exit sub
-    end if
-
-    ExportSet = wChangeHTMLCompatibilityExport
-    CharsetSet = wChangeHTMLCompatibility
-    Call hStatusIn("writer","w_clipbrd.bas","CROSS-APPLICATIONS CLIPBOARD TEST (Text only)")
-
-    Call w_210_
-    Call w_211_
-    Call w_212_
-    Call w_213_
-    Call w_214_
-    Call w_215_
-    Call w_216_
-    Call w_217_
-    Call w_218_
-    Call w_219_
-    Call w_220_
-    Call w_221_
-    Call w_222_
-
-    Call hStatusOut
-    Call wChangeHTMLCompatibility(CharsetSet)
-    Call wChangeHTMLCompatibilityExport(ExportSet)
-
-    printlog "Duration : " +  Wielange ( Start )
-end sub
-
-'---------------------------------------------------------
-sub LoadIncludeFiles
-   use "global\system\includes\master.inc"
-   use "global\system\includes\gvariabl.inc"
-   gApplication = "WRITER"
-   Call GetUseFiles
-end sub
diff --git a/testautomation/writer/optional/w_contextmenu.bas b/testautomation/writer/optional/w_contextmenu.bas
deleted file mode 100644
index c4646dc7c359..000000000000
--- a/testautomation/writer/optional/w_contextmenu.bas
+++ /dev/null
@@ -1,62 +0,0 @@
-'**************************************************************************
-' 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 : helge.delfs@oracle.com
-'*
-'* short description : Test of contextmenus in writer
-'*
-'\***********************************************************************
-
-sub main
-    Dim StartTime
-    StartTime = Now()
-
-    use "writer\tools\includes\w_tools.inc"
-    use "writer\tools\includes\w_tool1.inc"
-	use "writer\tools\includes\w_tool3.inc"
-	use "writer\tools\includes\w_tool4.inc"
-
-    use "writer\optional\includes\contextmenu\w_contextmenu1.inc"
-
-    printlog Chr(13) + "Loading of Include - Files takes: " + Wielange ( StartTime )
-    printlog Chr(13) + "******* Writer - Context menu - Test *******"
-
-    Call hStatusIn ( "writer", "w_contextmenu.bas","Writer Context menu-Test" )
-    Call w_contextmenu1
-    Call hStatusOut
-
-    Printlog Chr(13) + "End of Autotext - Test :"
-    Printlog "Duration: "+ WieLange ( StartTime )
-    Printlog "Date: " +  Date + "    Time: " + Time
-
-end sub
-
-sub LoadIncludeFiles
-    use "global\system\includes\master.inc"
-    use "global\system\includes\gvariabl.inc"
-    Call GetUseFiles
-    gApplication = "WRITER"
-end sub
diff --git a/testautomation/writer/optional/w_drawing_tools.bas b/testautomation/writer/optional/w_drawing_tools.bas
deleted file mode 100644
index 888e94d4ec4f..000000000000
--- a/testautomation/writer/optional/w_drawing_tools.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 :  helge.delfs@oracle.com
-'*
-'* short description : Tools / Autocorrection test
-'*
-'\*******************************************************************
-
-global gSeperator as String
-global gMeasurementUnit as String
-
-sub main
-    Dim StartZeit
-    StartZeit = Now()
-
-    use "writer\tools\includes\w_tools.inc"
-    use "writer\tools\includes\w_tool3.inc"
-    use "writer\tools\includes\w_tools_drawing.inc"
-    use "writer\optional\includes\drawing\w_drawing_tools1.inc"
-    use "writer\optional\includes\drawing\w_drawing_tools2.inc"
-
-    printlog Chr(13) + "Loading of Include - Files takes: " + Wielange ( StartZeit )
-    printlog Chr(13) + "******* Writer - Drawing Tools - Test *******"
-    'Getting the decimal seperator from global function
-    gSeperator = GetDecimalSeperator()
-    'Setting the measurement unit to centimeters.
-    gMeasurementUnit = fSetMeasurementToCM()
-
-    Call hStatusIn ( "writer" , "w_drawing_tools.bas" )
-
-    Call w_drawing_tools1
-    Call w_drawing_tools2
-
-    Call hStatusOut
-
-    Printlog Chr(13) + "End of Autocorrect - Test :"
-    Printlog "Duration: "+ WieLange ( StartZeit )
-    Printlog "Date: " +  Date + "    Time: " + Time
-
-end sub
-
-sub LoadIncludeFiles
-    use "global\system\includes\master.inc"
-    use "global\system\includes\gvariabl.inc"
-    Call GetUseFiles
-    gApplication = "WRITER"
-end sub
diff --git a/testautomation/writer/optional/w_dropdownLB.bas b/testautomation/writer/optional/w_dropdownLB.bas
deleted file mode 100644
index c3978bd8e0cc..000000000000
--- a/testautomation/writer/optional/w_dropdownLB.bas
+++ /dev/null
@@ -1,84 +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 :  helge.delfs@oracle.com
-'*
-'* short description : Test Drop Down List Box
-'*
-'\*******************************************************************
-
-sub main
-
-    Dim StartZeit
-    StartZeit = Now()
-
-    use "writer\tools\includes\w_tools.inc"
-    use "writer\tools\includes\w_tool3.inc"
-    use "writer\optional\includes\tools\tools1.inc"
-    use "writer\optional\includes\tools\tools2.inc"
-    use "writer\optional\includes\dropdownLB\w_dropdownLB1.inc"
-
-    printlog Chr(13) + "Loading of Include - Files takes: " + Wielange ( StartZeit )
-    printlog Chr(13) + "******* Writer - Level 1 - Test *******"
-
-    Call hStatusIn ( "writer", "w_dropdownLB.bas","Dropdown listbox" )
-    Call wOptionsUndo ( "All" )        ' Sets all writer-options to default
-
-    printlog Chr(13) + "      - Test Drop Down List Box"
-
-    Call tDropDownLB_1
-    Call tDropDownLB_2
-    Call tDropDownLB_3
-    Call tDropDownLB_4
-    Call tDropDownLB_5
-    Call tDropDownLB_6
-    Call tDropDownLB_7
-    Call tDropDownLB_8
-    Call tDropDownLB_9
-    Call tDropDownLB_10
-    Call tDropDownLB_11
-    Call tDropDownLB_12
-    Call tDropDownLB_13
-    Call tDropDownLB_14
-    Call tDropDownLB_15
-    Call tDropDownLB_16
-    Call tDropDownLB_17
-
-    Call hStatusOut
-
-    Printlog Chr(13) + "End of Level 1 Test - Drop Down List Box"
-    Printlog "Duration: "+ WieLange ( StartZeit )
-    Printlog "Date: " +  Date + "    Time: " + Time
-
-end sub
-
-sub LoadIncludeFiles
-    use "global\system\includes\master.inc"
-    use "global\system\includes\gvariabl.inc"
-    Call GetUseFiles
-    gApplication = "WRITER"
-end Sub
diff --git a/testautomation/writer/optional/w_fields.bas b/testautomation/writer/optional/w_fields.bas
deleted file mode 100644
index 6a9d363dae3c..000000000000
--- a/testautomation/writer/optional/w_fields.bas
+++ /dev/null
@@ -1,94 +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 :  helge.delfs@oracle.com
-'*
-'* short description : Test of content and update reliability of the fields 
-'*
-'\*******************************************************************
-
-global gSeperator as String
-global gMeasurementUnit as String
-
-sub main
-
-    Dim StartZeit
-    StartZeit = Now()
-
-    use "writer\tools\includes\w_tools.inc"
-    use "writer\tools\includes\w_tool3.inc"
-    use "writer\tools\includes\w_tool7.inc"   
-    use "writer\optional\includes\tools\tools1.inc"
-    use "writer\optional\includes\tools\tools2.inc"
-    use "writer\optional\includes\fields\w_fields1.inc"
-    use "writer\optional\includes\fields\w_fields2.inc"
-    use "writer\optional\includes\fields\w_fields3.inc"
-    use "writer\optional\includes\fields\w_fields4.inc"
-    use "writer\optional\includes\fields\w_fields5.inc"
-    use "writer\optional\includes\fields\w_fields6.inc"   
-    use "writer\optional\includes\fields\w_fields7.inc"   
-
-    printlog Chr(13) + "Loading of Include - Files takes: " + Wielange ( StartZeit )
-    printlog Chr(13) + "******* Writer - Fields - Test *******"
-
-    Call hStatusIn ( "writer", "w_fields.bas" , "Fields" )
-
-    'Software Configuration:
-    'Getting the decimal seperator from global function
-    gSeperator = GetDecimalSeperator()
-    'Setting the measurement unit to centimeters.
-    gMeasurementUnit = fSetMeasurementToCM()
-
-    printlog Chr(13) + " --- Test Fields - General Test ---"
-    Call w_fields1
-    Call w_fields2
-    printlog Chr(13) + " --- Test Fields - Reference ---"
-    Call w_fields3
-    printlog Chr(13) + " --- Test Fields - Doc information ---"
-    Call w_fields4
-    printlog Chr(13) + " --- Test Fields - Variables ---"
-    Call w_fields5                  
-    printlog Chr(13) + " --- Test Fields - Functions ---"
-    Call w_fields6
-    printlog Chr(13) + " --- Test Fields - L10N ---"
-    Call w_fields7
-
-    Call hStatusOut
-
-    Printlog Chr(13) + "End of Level 1 Test - Fields"
-    Printlog "Duration: "+ WieLange ( StartZeit )
-    Printlog "Date: " +  Date + "    Time: " + Time
-
-end sub
-
-sub LoadIncludeFiles
-   use "global\system\includes\master.inc"
-   use "global\system\includes\gvariabl.inc"  
-
-   Call GetUseFiles
-   gApplication = "WRITER"
-end Sub
diff --git a/testautomation/writer/optional/w_filter.bas b/testautomation/writer/optional/w_filter.bas
deleted file mode 100644
index f4d223b27301..000000000000
--- a/testautomation/writer/optional/w_filter.bas
+++ /dev/null
@@ -1,59 +0,0 @@
-'**************************************************************************
-' 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 :  helge.delfs@oracle.com
-'*
-'* short description : Writer Filter Availability Test (Import/Export/Group names)
-'*
-'\*******************************************************************
-
-global gSeperator as String
-global gMeasurementUnit as String
-
-sub main
- Dim ImportFilterDatei as String
-
-  use "writer\tools\includes\w_tool6.inc"
-  use "writer\optional\includes\filter\w_filter.inc"
-
-   Call hStatusIn ( "writer", "w_filter.bas" )
-
-   Call tSammleImportFilter
-   Call tCollectSaveAsFilter
-   Call tCollectExportFilters
-   Call tGroupNameCheck
-
-   Call hStatusOut
-
-end sub
-
-sub LoadIncludeFiles
-   use "global\system\includes\master.inc"
-   use "global\system\includes\gvariabl.inc"
-   use "global\tools\includes\optional\t_xml1.inc"
-   gApplication   = "WRITER"
-   Call GetUseFiles()
-end sub
diff --git a/testautomation/writer/optional/w_fontwork.bas b/testautomation/writer/optional/w_fontwork.bas
deleted file mode 100644
index 99c2574cc175..000000000000
--- a/testautomation/writer/optional/w_fontwork.bas
+++ /dev/null
@@ -1,69 +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 :  helge.delfs@oracle.com
-'*
-'* short description : Fontwork test
-'*
-'\*******************************************************************
-
-global gSeperator, gMeasurementUnit as String
-sub main
-    Dim StartZeit
-    StartZeit = Now()
-
-    use "writer\tools\includes\w_tools.inc"
-    use "writer\optional\includes\fontwork\w_fontwork1.inc"
-
-    printlog Chr(13) + "Loading of Include - Files takes: " + Wielange ( StartZeit )
-    printlog Chr(13) + "******* Writer - Fontwork - Test *******"
-
-    gSeperator = GetDecimalSeperator()
-    'Setting the measurement unit to centimeters.
-    gMeasurementUnit = fSetMeasurementToCM()
-
-    Call hStatusIn ( "writer" , "w_fontwork.bas" )
-    Call tFontWork_1    'Test pre-defined shapes (upper/lower Semicircle,...) to the selected text object
-    Call tFontWork_2    'Test Orientation
-    Call tFontWork_3    'Test Align , include Left , Center, Right and Autosize
-    Call tFontWork_4    'Test distance and indent
-    Call tFontWork_5    'Test Contour - include contour and text contour
-    Call tFontWork_6    'Test shadow - include vertical and slanted
-    Call hStatusOut
-
-    Printlog Chr(13) + "End of Fontwork - Test :"
-    Printlog "Duration: "+ WieLange ( StartZeit )
-    Printlog "Date: " +  Date + "    Time: " + Time
-
-end sub
-
-sub LoadIncludeFiles
-    use "global\system\includes\master.inc"
-    use "global\system\includes\gvariabl.inc"
-    Call GetUseFiles
-    gApplication = "WRITER"
-end sub
diff --git a/testautomation/writer/optional/w_formatcharacter.bas b/testautomation/writer/optional/w_formatcharacter.bas
deleted file mode 100644
index 31a895fa3f27..000000000000
--- a/testautomation/writer/optional/w_formatcharacter.bas
+++ /dev/null
@@ -1,69 +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 : helge.delfs@oracle.com
-'*
-'* short description : Formatting of characters, setting styles etc.
-'*
-'\***********************************************************************
-
-sub main
-    Dim StartTime
-    StartTime = Now()
-
-    use "writer\tools\includes\w_tools.inc"
-    use "writer\optional\includes\formatcharacter\w_format_character1.inc"
-
-    printlog Chr(13) + "Loading of Include - Files takes: " + Wielange ( StartTime )
-    printlog Chr(13) + "******* Writer - Level 1 - Test *******"
-
-    Call hStatusIn ( "writer", "w_formatcharacter.bas","Formatting of characters" )
-
-        Call tFormatCharacter
-        Call tFormatStyles1                        '-> Format/Styles with contect menu
-        Call tFormatCharacter1                '-> Format/Pair Kerning
-        Call tFormatCharacter2                '-> Format/Default
-        Call tFormatCharacter3                '-> Format/Character
-        Call tFormatCharacterOverline1    '-> Format/Overline
-        Call tFormatCharacterOverline2    '-> Format/Overline (with save)
-        Call tFormatHyperlink                    '-> Autocorrection of hyperlinks
-
-    Call hStatusOut
-
-    Printlog Chr(13) + "End of Test :"
-    Printlog "Duration: "+ WieLange ( StartTime )
-    Printlog "Date: " +  Date + "    Time: " + Time
-end sub
-
-sub LoadIncludeFiles
-    use "global\system\includes\master.inc"
-    use "global\system\includes\gvariabl.inc"
-    use "global\tools\includes\optional\t_extension_manager_tools.inc"
-    use "global\tools\includes\optional\t_ui_filters.inc"
-    Call GetUseFiles
-    gApplication = "WRITER"
-end sub
diff --git a/testautomation/writer/optional/w_formatpage.bas b/testautomation/writer/optional/w_formatpage.bas
deleted file mode 100644
index 5354809b1696..000000000000
--- a/testautomation/writer/optional/w_formatpage.bas
+++ /dev/null
@@ -1,140 +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 :  helge.delfs@oracle.com
-'*
-'* short description : Test the functionality of Page Formatting / Page Styles
-'*
-'\*******************************************************************
-
-global gSeperator as String
-global gMeasurementUnit as String
-
-sub main
-    Dim StartZeit
-
-    StartZeit = Now()
-
-    use "writer\tools\includes\w_tools.inc"
-    use "writer\tools\includes\w_tool3.inc"
-	use "writer\tools\includes\w_tool7.inc"
-    use "writer\optional\includes\tools\tools1.inc"
-    use "writer\optional\includes\tools\tools2.inc"
-    use "writer\optional\includes\formatpage\w_formatpage1.inc"
-    use "writer\optional\includes\formatpage\w_formatpage2.inc"
-    use "writer\optional\includes\formatpage\w_formatpage3.inc"
-    use "writer\optional\includes\formatpage\w_formatpage4.inc"
-
-    printlog Chr(13) + "Loading of Include - Files takes: " + Wielange ( StartZeit )
-    printlog Chr(13) + "******* Writer - Level 1 - Test *******"
-    printlog Chr(13) + "      - Test of page function -"
-
-    Call hStatusIn ( "writer", "w_FormatPage.bas" , "Page" )
-
-    Call wOptionsUndo ( "All" )        ' Sets all writer-options to default
-    'Software Configuration:
-    'Getting the decimal seperator from global function
-    gSeperator = GetDecimalSeperator()
-    'Setting the measurement unit to centimeters.
-    gMeasurementUnit = fSetMeasurementToCM()
-
-    Call tFormatPage_1
-    Call tFormatPage_2
-    Call tFormatPage_3
-    Call tFormatPage_4
-    Call tFormatPage_5
-    Call tFormatPage_6
-    Call tFormatPage_7
-    Call tFormatPage_8
-    Call tFormatPage_9
-    Call tFormatPage_10
-    Call tFormatPage_11
-    Call tFormatPage_12
-    Call tFormatPage_13
-    Call tFormatPage_14
-    Call tFormatPage_15
-    Call tFormatPage_16
-    Call tFormatPage_17
-    Call tFormatPage_18
-    Call tFormatPage_19
-    Call tFormatPage_20
-    Call tFormatPage_21
-    Call tFormatPage_22
-    Call tFormatPage_23
-    Call tFormatPage_24
-    Call tFormatPage_25
-    Call tFormatPage_26
-    Call tFormatPage_27
-    Call tFormatPage_28
-    Call tFormatPage_29
-    Call tFormatPage_30
-    Call tFormatPage_31
-    Call tFormatPage_32
-    Call tFormatPage_33
-    Call tFormatPage_34
-    Call tFormatPage_35
-    Call tFormatPage_36
-    Call tFormatPage_37
-    Call tFormatPage_38
-    Call tFormatPage_39
-    Call tFormatPage_40
-    Call tFormatPage_41
-    Call tFormatPage_42
-    Call tFormatPage_43
-    Call tFormatPage_44
-    Call tFormatPage_45
-    Call tFormatPage_46
-    Call tFormatPage_47
-    Call tFormatPage_48
-    Call tFormatPage_49
-    Call tFormatPage_50
-    Call tFormatPage_51
-    Call tFormatPage_52
-    Call tFormatPage_53
-    Call tFormatPage_54
-    Call tFormatPage_55
-    Call tFormatPage_56
-    Call tFormatPage_57
-    Call tFormatPage_58
-    Call tFormatPage_59
-    Call tFormatPage_60
-
-    Call hStatusOut
-
-    Printlog Chr(13) + "End of Level 1 Test (Format page):"
-    Printlog "Duration: "+ WieLange ( StartZeit )
-    Printlog "Date: " +  Date + "    Time: " + Time
-
-end sub
-
-sub LoadIncludeFiles
-    use "global\system\includes\master.inc"
-    use "global\system\includes\gvariabl.inc"
-    Call GetUseFiles
-    gApplication = "WRITER"
-end sub
-
diff --git a/testautomation/writer/optional/w_formatparagraph.bas b/testautomation/writer/optional/w_formatparagraph.bas
deleted file mode 100644
index 785e177a9d15..000000000000
--- a/testautomation/writer/optional/w_formatparagraph.bas
+++ /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 :  helge.delfs@oracle.com
-'*
-'* short description : Test the functionality of Paragraph
-'*
-'\*******************************************************************
-
-global gSeperator as String
-global gMeasurementUnit as String
-
-sub main
-
-    Dim StartZeit
-
-    StartZeit = Now()
-
-    use "writer\tools\includes\w_tools.inc"
-    use "writer\tools\includes\w_tool3.inc"
-    use "writer\optional\includes\tools\tools1.inc"
-    use "writer\optional\includes\tools\tools2.inc"
-    use "writer\optional\includes\formatparagraph\w_formatparagraph1.inc"
-    use "writer\optional\includes\formatparagraph\w_formatparagraph2.inc"
-    use "writer\optional\includes\formatparagraph\w_formatparagraph3.inc"
-
-    printlog Chr(13) + "Loading of Include - Files takes: " + Wielange ( StartZeit )
-    printlog Chr(13) + "******* Writer - Level 1 - Test *******"
-    printlog Chr(13) + "      - Test of paragraph function -"
-
-    Call hStatusIn ( "writer", "w_formatparagraph.bas" , "Paragrahp" )
-
-    Call wOptionsUndo ( "All" )        ' Sets all writer-options to default
-    'Software Configuration:
-    'Getting the decimal seperator from global function
-    gSeperator = GetDecimalSeperator()
-    'Setting the measurement unit to centimeters.
-    gMeasurementUnit = fSetMeasurementToCM()
-
-    Call tFormatParagraph1
-    Call tParagraphIndent1
-    Call tParagraphIndent2
-    Call tParagraphIndent3
-    Call tParagraphIndent4
-    Call tParagraphIndent5
-    Call tParagraphIndent6
-    Call tParagraphIndent7
-    Call tParagraphIndent8
-    Call tParagraphIndent9
-    Call tParagraphIndent10
-    Call tParagraphIndent11
-    Call tParagraphIndent12
-    Call tParagraphIndent13
-    Call tParagraphIndent14
-    Call tParagraphIndent15
-    Call tParagraphIndent16
-    Call tParagraphIndent17
-    Call tParagraphIndent18
-    Call tParagraphAlignment1
-    Call tParagraphAlignment2
-    Call tParagraphAlignment3
-    Call tParagraphAlignment4
-    Call tParagraphAlignment5
-    Call tParagraphAlignment6
-    Call tParagraphAlignment7
-    Call tParagraphAlignment8
-    Call tParagraphAlignment9
-    Call tParagraphTextFlow1
-    Call tParagraphTextFlow2
-    Call tParagraphTextFlow3
-    Call tParagraphTextFlow4
-    Call tParagraphTextFlow5
-    Call tParagraphTextFlow6
-    Call tParagraphTextFlow7
-    Call tParagraphTextFlow8
-    Call tParagraphTextFlow9
-    Call tParagraphTextFlow10
-    Call tParagraphTextFlow11
-    Call tParagraphTextFlow12
-    Call tParagraphTextFlow13
-    Call tParagraphTabs1
-    Call tParagraphTabs2
-    Call tParagraphTabs3
-    Call tParagraphTabs4
-    Call tParagraphTabs5
-    Call tParagraphTabs6
-    Call tParagraphDropCaps1
-    Call tParagraphDropCaps2
-    Call tParagraphDropCaps3
-    Call tParagraphDropCaps4
-    Call tParagraphDropCaps5
-    Call tParagraphDropCaps6
-    Call tParagraphDropCaps7
-    Call tParagraphDropCaps8
-    Call tParagraphDropCaps9
-    Call tParagraphNumbering1
-    Call tParagraphBorder1
-    Call tParagraphBorder2
-    Call tParagraphBorder3
-    Call tParagraphBorder4
-    Call tParagraphBorder5
-    Call tParagraphBorder6
-
-    Call hStatusOut
-
-    Printlog Chr(13) + "End of Level 1 Test (Format page):"
-    Printlog "Duration: "+ WieLange ( StartZeit )
-    Printlog "Date: " +  Date + "    Time: " + Time
-
-end sub
-
-sub LoadIncludeFiles
-   use "global\system\includes\master.inc"
-   use "global\system\includes\gvariabl.inc"
-   Call GetUseFiles
-   gApplication = "WRITER"
-end sub
diff --git a/testautomation/writer/optional/w_hhConversion.bas b/testautomation/writer/optional/w_hhConversion.bas
deleted file mode 100644
index 594623540f25..000000000000
--- a/testautomation/writer/optional/w_hhConversion.bas
+++ /dev/null
@@ -1,139 +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 :  helge.delfs@oracle.com
-'*
-'* short description : Test Hangul/Hanja Conversion 
-'*
-'\*******************************************************************
-
-sub main
-
-    Dim StartZeit
-    Dim bAsianLanguage   as Boolean
-    StartZeit = Now()
-    use "writer\tools\includes\w_tools.inc"
-    use "writer\tools\includes\w_tool3.inc"
-    use "writer\optional\includes\tools\tools1.inc"
-    use "writer\optional\includes\tools\tools2.inc"
-    use "writer\optional\includes\hangulhanjaonversion\hhConversion1.inc"
-    use "writer\optional\includes\hangulhanjaonversion\hhConversion2.inc"
-    use "writer\optional\includes\hangulhanjaonversion\hhConversion3.inc"
-
-    printlog Chr(13) + "Loading of Include - Files takes: " + Wielange ( StartZeit )
-    printlog Chr(13) + "******* Writer - Level 1 - Test *******"
-
-    Call hStatusIn ( "writer", "w_hhConversion.bas" , "HH Converstion" )
-
-    printlog Chr(13) + "      - Test Hangul/Hanja Conversion"
-
-    'Enable 'Asian Language support' ON
-    bAsianLanguage = ActiveDeactivateAsianSupport(TRUE)
-
-    printlog Chr(13) + "      - No selection "
-
-    Call tHHNoSelction_1
-    Call tHHNoSelction_2
-    Call tHHNoSelction_3
-    Call tHHNoSelction_4
-    Call tHHNoSelction_5
-    Call tHHNoSelction_6
-    Call tHHNoSelction_7
-
-    printlog Chr(13) + "      - Single selection "
-
-    Call tHHSingleSelction_1
-
-    printlog Chr(13) + "      - Multi selection "
-
-    Call tHHMultiSelction_1
-
-    printlog Chr(13) + "      - in text box and draw box "
-
-    Call tHHTextBox_1
-    Call tHHDrawBox_1
-
-    printlog Chr(13) + "      - Hangul/Hanja Conversion"
-
-    Call   tHHConversion_1
-    Call   tHHConversion_2
-    Call   tHHConversion_3
-    Call   tHHConversion_4
-    Call   tHHConversion_5
-    Call   tHHConversion_6
-    Call   tHHConversion_7
-    Call   tHHConversion_8
-    Call   tHHConversion_9
-    Call   tHHConversion_10
-    Call   tHHConversion_11
-    Call   tHHConversion_12
-    Call   tHHConversion_13
-    Call   tHHConversion_14
-    Call   tHHConversion_15
-    Call   tHHConversion_16
-    Call   tHHConversion_17
-    Call   tHHConversion_18
-    Call   tHHConversion_19
-    Call   tHHConversion_20
-    Call   tHHConversion_21
-    Call   tHHConversion_22
-    Call   tHHConversion_23
-    Call   tHHConversion_24
-    Call   tHHConversion_25
-    Call   tHHConversion_26
-
-    printlog Chr(13) + "      - Hangul/Hanja Options"
-
-    Call   tHHOptions_1
-    Call   tHHOptions_2
-    Call   tHHOptions_3
-    Call   tHHOptions_4
-    Call   tHHOptions_5
-    Call   tHHOptions_6
-    Call   tHHOptions_7
-    Call   tHHOptions_8
-    Call   tHHOptions_9
-    Call   tHHOptions_10
-    Call   tHHOptions_11
-    Call   tHHOptions_12
-
-    'Set the 'Asian Language support' to default
-    Call ActiveDeactivateAsianSupport(bAsianLanguage)
-    Call hStatusOut
-
-    Printlog Chr(13) + "End of Level 1 Test - Hangul/Hanja Conversion"
-    Printlog "Duration: "+ WieLange ( StartZeit )
-    Printlog "Date: " +  Date + "    Time: " + Time
-
-end sub
-
-sub LoadIncludeFiles
-    use "global\system\includes\master.inc"
-    use "global\system\includes\gvariabl.inc"
-    Call GetUseFiles
-    gApplication = "WRITER"
-end Sub
diff --git a/testautomation/writer/optional/w_hyphenation.bas b/testautomation/writer/optional/w_hyphenation.bas
deleted file mode 100644
index 666ec36b75fd..000000000000
--- a/testautomation/writer/optional/w_hyphenation.bas
+++ /dev/null
@@ -1,60 +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 :  helge.delfs@oracle.com
-'*
-'* short description : Tools / Hyphenation test
-'*
-'\*******************************************************************
-
-sub main
-
-    use "writer\tools\includes\w_tools.inc"
-    use "writer\tools\includes\w_tool4.inc"
-    use "writer\tools\includes\w_tools_hyphenation.inc"
-    use "writer\optional\includes\hyphenation\w_hyphenation.inc"
-
-    printlog Chr(13) + "******* Writer - Hyphenation - Test *******"
-
-    Call hStatusIn ( "writer" , "w_hyphenation.bas" )
-    Call wEnableHyphenation(true)
-    Call tHyphenation_1
-    Call tHyphenation_2    
-    Call tHyphenation_3
-    Call tHyphenation_4
-    Call wEnableHyphenation(false)
-
-    Call hStatusOut
-
-end sub
-
-sub LoadIncludeFiles
-    use "global\system\includes\master.inc"
-    use "global\system\includes\gvariabl.inc"
-    Call GetUseFiles
-    gApplication = "WRITER"
-end sub
diff --git a/testautomation/writer/optional/w_insertgraphic.bas b/testautomation/writer/optional/w_insertgraphic.bas
deleted file mode 100644
index 381dcd9d3f89..000000000000
--- a/testautomation/writer/optional/w_insertgraphic.bas
+++ /dev/null
@@ -1,131 +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 :  helge.delfs@oracle.com
-'*
-'* short description : Test of Graphic function 
-'*
-'\*******************************************************************
-
-global gSeperator as String
-global gMeasurementUnit as String
-
-sub main
-	Dim StartZeit
-
-	StartZeit = Now()
-
-	use "writer\tools\includes\w_tools.inc"
-	use "writer\tools\includes\w_tool3.inc"
-	use "writer\tools\includes\w_tool7.inc"
-	use "writer\optional\includes\tools\tools1.inc"
-	use "writer\optional\includes\tools\tools2.inc"
-	use "writer\optional\includes\insertgraphic\w_insertgraphic1.inc"
-	use "writer\optional\includes\insertgraphic\w_insertgraphic2.inc"
-	use "writer\optional\includes\insertgraphic\w_insertgraphic3.inc"
-	use "writer\optional\includes\insertgraphic\w_insertgraphic4.inc"
-	use "writer\optional\includes\insertgraphic\w_insertgraphic5.inc"
-
-	printlog Chr(13) + "Loading of Include - Files takes: " + Wielange ( StartZeit )
-	printlog Chr(13) + "******* Writer - Level 1 - Test *******"
-	printlog Chr(13) + "      - Test of Graphic function -"
-
-	Call hStatusIn ( "writer", "w_insertgraphic.bas" , "Graphic" )
-	Call wOptionsUndo("AutoCaption")
-
-    'Software Configuration:
-    'Getting the decimal seperator from global function
-    gSeperator = GetDecimalSeperator()
-    'Setting the measurement unit to centimeters.
-    gMeasurementUnit = fSetMeasurementToCM()
-
-    Call tInsertGraphic_X
-    Call tInsertGraphic_1
-    Call tInsertGraphic_2
-    Call tInsertGraphic_3
-	Call tInsertGraphic_4
-	Call tInsertGraphic_5
-	Call tInsertGraphic_6
-	Call tInsertGraphic_7
-	Call tInsertGraphic_8
-	Call tInsertGraphic_9
-	Call tInsertGraphic_10
-	Call tInsertGraphic_11
-	Call tInsertGraphic_12
-	Call tInsertGraphic_13
-	Call tInsertGraphic_14
-	Call tInsertGraphic_15
-	Call tInsertGraphic_16
-	Call tInsertGraphic_17
-	Call tInsertGraphic_18
-	Call tInsertGraphic_19
-	Call tInsertGraphic_20
-	Call tInsertGraphic_21
-	Call tInsertGraphic_22
-	Call tInsertGraphic_23
-	Call tInsertGraphic_24
-	Call tInsertGraphic_25
-	Call tInsertGraphic_26
-	Call tInsertGraphic_27
-	Call tInsertGraphic_28
-	Call tInsertGraphic_29
-	Call tInsertGraphic_30
-	Call tInsertGraphic_31
-	Call tInsertGraphic_32
-	Call tInsertGraphic_33
-	Call tInsertGraphic_34
-	Call tInsertGraphic_35
-	Call tInsertGraphic_36
-	Call tInsertGraphic_37
-	Call tInsertGraphic_38
-	Call tInsertGraphic_39
-	Call tInsertGraphic_40
-	Call tInsertGraphic_41
-	Call tInsertGraphic_42
-	Call tInsertGraphic_43
-	Call tInsertGraphic_44
-	Call tInsertGraphic_45
-	Call tInsertGraphic_46
-	Call tInsertGraphic_47
-	Call tInsertGraphic_48
-	Call tInsertGraphic_49
-
-	Call hStatusOut
-
-	Printlog Chr(13) + "End of Level 1 Test (Insert Graphic):"
-	Printlog "Duration: "+ WieLange ( StartZeit )
-	Printlog "Date: " +  Date + "    Time: " + Time
-
-end sub
-
-sub LoadIncludeFiles
-    use "global\system\includes\master.inc"
-    use "global\system\includes\gvariabl.inc"
-    
-    Call GetUseFiles
-    gApplication = "WRITER"
-end sub
diff --git a/testautomation/writer/optional/w_issuezilla_regression.bas b/testautomation/writer/optional/w_issuezilla_regression.bas
deleted file mode 100644
index c4a92a3ce3ad..000000000000
--- a/testautomation/writer/optional/w_issuezilla_regression.bas
+++ /dev/null
@@ -1,62 +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 :  helge.delfs@oracle.com
-'*
-'* short description : Avoid regression (Issuezilla tasks)
-'*
-'\*******************************************************************
-
-sub main
-
-    Dim StartZeit
-    StartZeit = Now()
-
-    use "writer\tools\includes\w_tools.inc"
-    use "writer\tools\includes\w_tool4.inc"
-    use "writer\optional\includes\regression\issuezilla\w_issuezilla_regression.inc"
-
-    printlog Chr(13) + "Loading of Include - Files takes: " + Wielange ( StartZeit )
-    printlog Chr(13) + "******* Writer - Regression - Test *******"
-
-    Call hStatusIn ( "writer", "w_issuezilla_regression.bas" , "Writer Regression-Test" )
-    printLog Chr(13) + "Avoid regression"
-
-    Call w_issuezilla_regression
-
-    Call hStatusOut
-
-    Printlog Chr(13) + "End of Regression Test"
-
-end sub
-
-sub LoadIncludeFiles
-   use "global\system\includes\master.inc"
-   use "global\system\includes\gvariabl.inc"
-   Call GetUseFiles
-   gApplication = "WRITER"
-end sub
diff --git a/testautomation/writer/optional/w_loadsave.bas b/testautomation/writer/optional/w_loadsave.bas
deleted file mode 100644
index b0fd90f259b9..000000000000
--- a/testautomation/writer/optional/w_loadsave.bas
+++ /dev/null
@@ -1,63 +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 : helge.delfs@oracle.com
-'*
-'* short description : Checks the file-export/import through API-Filters
-'*
-'\***********************************************************************
-
-sub main
-    Dim Start
-    Dim ExportFilterDatei as String
-    Dim PrevMacroSetting as integer
-
-    use "writer\tools\includes\w_tools.inc"
-    use "writer\tools\includes\w_tool6.inc"
-    use "writer\optional\includes\loadsave\w_loadsave.inc"
-
-    Start = Now()
-
-    PrevMacroSetting = hSetMacroSecurity(1)
-    Call hStatusIn ( "writer", "w_loadsave.bas")
-
-    Call tExportAllReadableFormatsIntoODF
-    Call tExportAllReadableFormatsIntoThemselves
-    Call tExportTop5FormatsIntoTop5
-
-    Call hStatusOut
-    Call hSetMacroSecurity(PrevMacroSetting)
-
-    Printlog Chr(13) + "Duration : " + Wielange ( Start )
-end sub
-
-sub LoadIncludeFiles
-    use "global\system\includes\master.inc"
-    use "global\system\includes\gvariabl.inc"
-    Call GetUseFiles
-    gApplication = "WRITER"
-end sub
diff --git a/testautomation/writer/optional/w_navigator.bas b/testautomation/writer/optional/w_navigator.bas
deleted file mode 100644
index 97a188ea5ff9..000000000000
--- a/testautomation/writer/optional/w_navigator.bas
+++ /dev/null
@@ -1,50 +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 : helge.delfs@oracle.com
-'*
-'* short description : Writer-Navigator test
-'*
-'\***********************************************************************
-
-sub main
-    use "writer\tools\includes\w_tools.inc"
-    use "writer\optional\includes\navigator\w_navigator.inc"
-
-    printlog Chr(13) + "******* Writer - Navigator - Test *******"
-
-    Call hStatusIn ( "writer", "w_navigator.bas","Writer Navigator-Test" )
-    Call w_navigator
-    Call hStatusOut
-end sub
-
-sub LoadIncludeFiles
-    use "global\system\includes\master.inc"
-    use "global\system\includes\gvariabl.inc"
-    Call GetUseFiles
-    gApplication = "WRITER"
-end sub
diff --git a/testautomation/writer/optional/w_numbering.bas b/testautomation/writer/optional/w_numbering.bas
deleted file mode 100644
index 7844baec136f..000000000000
--- a/testautomation/writer/optional/w_numbering.bas
+++ /dev/null
@@ -1,77 +0,0 @@
-'**************************************************************************
-' 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 : helge.delfs@oracle.com
-'*
-'* short description : Writer numbering test
-'*
-'\***********************************************************************
-
-global TBOstringLocale(30) as string
-global WriterFilterExtension(10) as string
-
-sub main
-    Dim StartZeit
-    StartZeit = Now()
-
-    use "writer\tools\includes\w_tools.inc"
-    use "writer\tools\includes\w_tool5.inc"
-    use "writer\tools\includes\w_tool6.inc"
-	use "writer\tools\includes\w_tool7.inc"
-    use "writer\optional\includes\number\w_205_.inc"
-    use "writer\optional\includes\number\w_205a_.inc"
-	use "writer\optional\includes\number\w_206_.inc"
-	use "writer\optional\includes\number\w_207_.inc"
-
-    printlog Chr(13) + "Loading of Include - Files takes: " + Wielange ( StartZeit )
-
-    WriterFilterExtension() = hGetFilternameExtension ( "writer8" )
-
-    Call hStatusIn("writer","w_numbering.bas","Writer Numbering test")
-    Printlog ""
-    Printlog "----------------------------------------------------------"
-    Printlog "|                  Writer Numbering Test                 |"
-    Printlog "----------------------------------------------------------"
-    Printlog ""
-    Call w_205_
-    Call w_205a_
-	Call w_206_
-	Call w_207_
-    Call hStatusOut
-
-    Printlog "Duration: "+ WieLange ( StartZeit )
-    Printlog "Date: " +  Date + "    Time: " + Time
-end sub
-
-sub LoadIncludeFiles
-    use "global\system\includes\master.inc"
-    use "global\system\includes\gvariabl.inc"
-    use "global\tools\includes\optional\t_ui_filters.inc"
-    use "global/tools/includes/optional/t_listfuncs.inc"
-    use "global/tools/includes/optional/t_security_tools.inc"
-    Call GetUseFiles
-    gApplication = "WRITER"
-end sub
diff --git a/testautomation/writer/optional/w_opt.bas b/testautomation/writer/optional/w_opt.bas
deleted file mode 100644
index 541f19c41194..000000000000
--- a/testautomation/writer/optional/w_opt.bas
+++ /dev/null
@@ -1,85 +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 : helge.delfs@oracle.com
-'*
-'* short description : WRITER-Options Test
-'*
-'\***********************************************************************
-
-global NO_REAL_PRINT as boolean  ' Don't print on real printer
-Global mUnit as string
-
-sub main
-    Dim StartTime
-    StartTime = Now()
-    NO_REAL_PRINT = True
-
-    use "writer\tools\includes\w_tools.inc"
-    use "writer\tools\includes\w_tool5.inc"
-    use "writer\tools\includes\w_tool6.inc"
-
-    use "writer\optional\includes\option\wr_o_1.inc"
-    use "writer\optional\includes\option\wr_o_2.inc"
-    use "writer\optional\includes\option\wr_o_3.inc"
-    use "writer\optional\includes\option\wr_o_4.inc"
-    use "writer\optional\includes\option\wr_o_5.inc"
-    use "writer\optional\includes\option\wr_o_a.inc"
-
-    printlog Chr(13) + "Loading of Include - Files takes: " + Wielange ( StartTime )
-    printlog Chr(13) + "******* Writer - Options - Test *******"
-
-    gUseSysDlg = FALSE
-
-    Call wSetMacroSecurityLevel(4)  ' Set security level to low
-    Call hNewDocument
-    mUnit = fSetMeasurementToCM()
-    Call hCloseDocument
-
-    Call hStatusIn("writer","w_opt.bas","Writer Option-Test")
-    Call wr_o_1          'View / Grid /
-    Call wr_o_2          'Defaultfont / Print / Table
-    Call wr_o_3          'View 2 / Changes
-    Call wr_o_4          'General / -> Caption
-    Call wr_o_5          'Language Settings
-    Call tToolsOptionsWriterDirectCursor2 
-    Call wSetMacroSecurityLevel(3)   ' Set security to default -- medium
-    Call wOptionsUndo("All")
-    Call hStatusOut
-
-    Printlog Chr(13) + "End of Options - Test :"
-    Printlog "Duration: "+ WieLange ( StartTime )
-    Printlog "Date: " +  Date + "    Time: " + Time
-
-end sub
-
-sub LoadIncludeFiles
-    use "global\system\includes\master.inc"
-    use "global\system\includes\gvariabl.inc"
-    Call GetUseFiles
-    gApplication = "WRITER"
-end sub
diff --git a/testautomation/writer/optional/w_redlining.bas b/testautomation/writer/optional/w_redlining.bas
deleted file mode 100644
index 13babf613ebf..000000000000
--- a/testautomation/writer/optional/w_redlining.bas
+++ /dev/null
@@ -1,98 +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 :  helge.delfs@oracle.com
-'*
-'* short description : Test of the Redlining function 
-'*
-'\*******************************************************************
-
-sub main
-    Dim StartZeit
-    StartZeit = Now()
-
-    use "writer\tools\includes\w_tools.inc"
-    use "writer\tools\includes\w_tool2.inc"
-    use "writer\tools\includes\w_tool3.inc"
-    use "writer\optional\includes\tools\tools1.inc"
-    use "writer\optional\includes\tools\tools2.inc"
-    use "writer\optional\includes\redlining\w_redlining1.inc"
-    use "writer\optional\includes\redlining\w_redlining2.inc"
-
-    printlog Chr(13) + "Loading of Include - Files takes: " + Wielange ( StartZeit )
-    printlog Chr(13) + "******* Writer - Level 1 - Test *******"
-
-    Call hStatusIn ( "writer", "w_redlining.bas" , "Redlining" )
-
-    Call tRedlining_1
-    Call tRedlining_2
-    Call tRedlining_3
-    Call tRedlining_4
-    Call tRedlining_5
-    Call tRedlining_6
-    Call tRedlining_7
-    Call tRedlining_8
-    Call tRedlining_9
-    Call tRedlining_10
-    Call tRedlining_11
-    Call tRedlining_12
-    Call tRedlining_13
-    Call tRedlining_14
-    Call tRedlining_15
-    Call tRedlining_16
-
-    Call tAcceptReject_1
-    Call tAcceptReject_2
-    Call tAcceptReject_3
-    Call tAcceptReject_4
-    Call tAcceptReject_5
-    Call tAcceptReject_6
-    Call tAcceptReject_7
-    Call tAcceptReject_8
-    Call tAcceptReject_9
-    Call tAcceptReject_10
-    Call tAcceptReject_11
-    Call tAcceptReject_12
-    Call tAcceptReject_13
-    Call tAcceptReject_14
-    Call tAcceptReject_15
-
-    Call hStatusOut
-
-    Printlog Chr(13) + "End of Level 1 Test (Redlining):"
-    Printlog "Duration: "+ WieLange ( StartZeit )
-    Printlog "Date: " +  Date + "    Time: " + Time
-
-end sub
-
-sub LoadIncludeFiles
-    use "global\system\includes\master.inc"
-    use "global\system\includes\gvariabl.inc"
-    use "global\tools\includes\required\t_lists.inc"
-    Call GetUseFiles
-    gApplication = "WRITER"
-end sub
diff --git a/testautomation/writer/optional/w_search.bas b/testautomation/writer/optional/w_search.bas
deleted file mode 100644
index b78b332f2c8c..000000000000
--- a/testautomation/writer/optional/w_search.bas
+++ /dev/null
@@ -1,59 +0,0 @@
-'**************************************************************************
-' 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 : helge.delfs@oracle.com
-'*
-'* short description : Search & Replace and testing of regular expressions
-'*
-'\***********************************************************************
-
-global Such_Text as string
-global Vergleichstext as string
-global Meldungs_Text as string
-global dummy_Text as string
-
-sub main
-    use "writer\optional\includes\regexp\regular.inc"
-    use "writer\optional\includes\regexp\search.inc"
-
-    Dim Start : Start = Now()
-
-    Call hStatusIn("writer","w_search.bas","Search & Replace")
-    printlog "** Search and Replace **"
-    Call search
-    printlog "** Regular expressions **"
-    Call regular
-    Call hStatusOut
-
-    printlog "Duration : " +  Wielange ( Start )
-end sub
-
-sub LoadIncludeFiles
-    use "global\system\includes\master.inc"
-    use "global\system\includes\gvariabl.inc"
-    gApplication = "WRITER"
-    Call GetUseFiles
-end sub
diff --git a/testautomation/writer/optional/w_section.bas b/testautomation/writer/optional/w_section.bas
deleted file mode 100644
index e0cabbb27c01..000000000000
--- a/testautomation/writer/optional/w_section.bas
+++ /dev/null
@@ -1,97 +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 :  helge.delfs@oracle.com
-'*
-'* short description : Section test
-'*
-'\*******************************************************************
-
-global gSeperator , gMeasurementUnit , gDefaultSectionName as String
-
-sub main
-    Dim StartZeit
-    StartZeit = Now()
-
-    use "writer\tools\includes\w_tools.inc"
-	use "writer\tools\includes\w_tool7.inc"
-    use "writer\optional\includes\section\w_section_1.inc"
-    use "writer\optional\includes\section\w_section_2.inc"
-    use "writer\optional\includes\section\w_section_3.inc"
-    use "writer\optional\includes\section\w_section_4.inc"
-    use "writer\optional\includes\section\w_section_tools.inc"
-
-    printlog Chr(13) + "Loading of Include - Files takes: " + Wielange ( StartZeit )
-    printlog Chr(13) + "******* Writer - Section - Test *******"
-
-    Call hStatusIn ( "writer" , "w_section.bas" , "Section" )
-
-    'Software Configuration:
-    'Getting the decimal seperator from global function
-    gSeperator = GetDecimalSeperator()
-    'Setting the measurement unit to centimeters.
-    gMeasurementUnit = fSetMeasurementToCM()
-
-    Select case iSprache
-        case 01   : gDefaultSectionName = "Section"    '(English USA)
-        case 31   : gDefaultSectionName = "Bereik"    '(Dutch) 
-        case 33   : gDefaultSectionName = "Section"    '(French)
-        case 34   : gDefaultSectionName = "Sección"    '(Spanish)
-        case 36   : gDefaultSectionName = "Szakasz"    '(Hungarian)
-        case 39   : gDefaultSectionName = "Sezione"    '(Italian)
-        case 46   : gDefaultSectionName = "Område"     '(Swedish)
-        case 49   : gDefaultSectionName = "Bereich"    '(German)
-        case 55   : gDefaultSectionName = "Seção"    '(Portuguese)
-        case 81   : gDefaultSectionName = "範囲"      '(Japanese)
-        case 82   : gDefaultSectionName = "구역"      '(Korean)
-        case 86   : gDefaultSectionName = "区域"      '(Simplified Chinese)
-        case 88   : gDefaultSectionName = "�?�域"       '(Traditional Chinese)
-        case else : QAErrorLog "The test does not support the language " + iSprache
-        exit sub
-    end select
-
-    Call w_section_1
-    Call w_section_2
-    Call w_section_3
-    Call w_section_4
-
-    Call hStatusOut
-
-    Printlog Chr(13) + "End of Level1 - Test :"
-    Printlog "Duration: "+ WieLange ( StartZeit )
-    Printlog "Date: " +  Date + "    Time: " + Time
-
-end sub
-
-sub LoadIncludeFiles
-   use "global\system\includes\master.inc"
-   use "global\system\includes\gvariabl.inc"
-   use "global\tools\includes\required\t_lists.inc"
-   Call GetUseFiles
-   gApplication = "WRITER"
-
-end sub
diff --git a/testautomation/writer/optional/w_shortcuts.bas b/testautomation/writer/optional/w_shortcuts.bas
deleted file mode 100644
index 707cf901896a..000000000000
--- a/testautomation/writer/optional/w_shortcuts.bas
+++ /dev/null
@@ -1,75 +0,0 @@
-'**************************************************************************
-' 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 : helge.delfs@oracle.com
-'*
-'* short description : Test of shortcuts in writer
-'*
-'\***********************************************************************
-
-sub main
-    Dim StartTime
-    StartTime = Now()
-
-    '/// This test is based on the following spec:
-    '/// Localized Shortcuts
-    '/// http://specs.openoffice.org/g11n/menus/LocalizedShortcuts.sxw
-
-    use "writer\tools\includes\w_tools.inc"
-    use "writer\optional\includes\shortcut\w_shortcuts.inc"
-
-    printlog Chr(13) + "Loading of Include - Files takes: " + Wielange ( StartTime )
-    printlog Chr(13) + "******* Writer - Shortcut - Test *******"
-
-    Call hStatusIn ( "writer", "w_shortcuts.bas","Writer Shortcut-Test" )
-	Call tShortcutGlobalNew
-	Call tShortcutGlobalOpen
-	Call tShortcutGlobalSave
-	Call tShortcutGlobalSaveAs
-	Call tShortcutSelectAll
-	Call tShortcutFindAndReplace
-	Call tShortcutBold
-	Call tShortcutItalic
-	Call tShortcutUnderline
-	Call tShortcutDoubleUnderline
-	Call tShortcutAlign
-	Call tShortcutSuperscript
-	Call tShortcutSubscript
-	Call tShortcutPasteUnformattedText
-    Call hStatusOut
-
-    Printlog Chr(13) + "End of Shortcut - Test :"
-    Printlog "Duration: "+ WieLange ( StartTime )
-    Printlog "Date: " +  Date + "    Time: " + Time
-
-end sub
-
-sub LoadIncludeFiles
-    use "global\system\includes\master.inc"
-    use "global\system\includes\gvariabl.inc"
-    Call GetUseFiles
-    gApplication = "WRITER"
-end sub
diff --git a/testautomation/writer/optional/w_sorting.bas b/testautomation/writer/optional/w_sorting.bas
deleted file mode 100644
index 18fa47675597..000000000000
--- a/testautomation/writer/optional/w_sorting.bas
+++ /dev/null
@@ -1,64 +0,0 @@
-'**************************************************************************
-' 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 : helge.delfs@oracle.com
-'*
-'* short description : Sorting functions in Writer
-'*
-'\***********************************************************************
-
-    Public Trennzeichen as string
-
-sub main
-    Dim StartTime
-    StartTime = Now()
-
-    use "writer\tools\includes\w_tools.inc"
-    use "writer\tools\includes\w_tool3.inc"
-    use "writer\optional\includes\sorting\w_sorting1.inc"
-    use "writer\optional\includes\sorting\w_sorting2.inc"
-
-    printlog Chr(13) + "Loading of Include - Files takes: " + Wielange ( StartTime )
-    printlog Chr(13) + "******* Writer - Sorting - Test *******"
-
-    Call hStatusIn ( "writer", "w_sorting.bas","Writer Sorting-Test" )
-    Call w_sorting
-    Call tSort_1      'Test Sort in table  -- Ascending mode
-    Call tSort_2      'Test Sort in table  -- Descending mode
-    Call hStatusOut
-
-    Printlog Chr(13) + "End of Sorting - Test :"
-    Printlog "Duration: "+ WieLange ( StartTime )
-    Printlog "Date: " +  Date + "    Time: " + Time
-
-end sub
-
-sub LoadIncludeFiles
-    use "global\system\includes\master.inc"
-    use "global\system\includes\gvariabl.inc"
-    Call GetUseFiles
-    gApplication = "WRITER"
-end sub
diff --git a/testautomation/writer/optional/w_spellcheck.bas b/testautomation/writer/optional/w_spellcheck.bas
deleted file mode 100644
index 13d20ffb860f..000000000000
--- a/testautomation/writer/optional/w_spellcheck.bas
+++ /dev/null
@@ -1,63 +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 : helge.delfs@oracle.com
-'*
-'* short description : Writer-Spellcheck-Test
-'*
-'\***********************************************************************
-
-sub main
-
-    Dim StartTime
-    StartTime = Now()
-
-    use "writer\tools\includes\w_tools.inc"
-    use "writer\tools\includes\w_tool3.inc"
-    use "writer\tools\includes\w_tool4.inc"
-    use "writer\optional\includes\spellcheck\w_spellcheck.inc"
-    use "writer\tools\includes\w_locale_strings2.inc"
-
-    printlog Chr(13) + "Loading of Include - Files takes: " + Wielange ( StartTime )
-    printlog Chr(13) + "******* Writer - Spellcheck - Test *******"
-
-    Call hStatusIn ( "writer","w_spellcheck.bas" )
-    Call w_spellcheck
-    Call hStatusOut
-
-    Printlog Chr(13) + "End of Spellcheck - Test :"
-    Printlog "Duration: "+ WieLange ( StartTime )
-    Printlog "Date: " +  Date + "    Time: " + Time
-
-end sub
-
-sub LoadIncludeFiles
-    use "global\system\includes\master.inc"
-    use "global\system\includes\gvariabl.inc"
-    Call GetUseFiles
-    gApplication = "WRITER"
-end sub
diff --git a/testautomation/writer/optional/w_stylist.bas b/testautomation/writer/optional/w_stylist.bas
deleted file mode 100644
index f91a4ca9ea22..000000000000
--- a/testautomation/writer/optional/w_stylist.bas
+++ /dev/null
@@ -1,51 +0,0 @@
-'**************************************************************************
-' 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 : helge.delfs@oracle.com
-'*
-'* short description : Test of the writer stylist
-'*
-'\***********************************************************************
-
-sub main
-
-    use "writer\tools\includes\w_tools.inc"
-    use "writer\optional\includes\stylist\w_stylist.inc"
-
-    printlog Chr(13) + "******* Writer - Level 1 - Stylist - Test *******"
-
-    Call hStatusIn ( "writer", "w_stylist.bas","Writer Level1-Stylist-Test" )
-    Call w_stylist
-    Call hStatusOut
-
-end sub
-
-sub LoadIncludeFiles
-    use "global\system\includes\master.inc"
-    use "global\system\includes\gvariabl.inc"
-    Call GetUseFiles
-    gApplication = "WRITER"
-end sub
diff --git a/testautomation/writer/optional/w_table.bas b/testautomation/writer/optional/w_table.bas
deleted file mode 100644
index e82ad4a25ea5..000000000000
--- a/testautomation/writer/optional/w_table.bas
+++ /dev/null
@@ -1,160 +0,0 @@
-'**************************************************************************
-' 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 : helge.delfs@oracle.com
-'*
-'* short description : Writer Table test
-'*
-'\***********************************************************************
-
-global mUnit as string
-global cDecSep as string 'Decimal Seperator init in 'sub w_204_'
-global cSep as string 'Seperator for numbers formated as text init in 'sub w_204_'
-global gLocaleDefault as string
-global gDocumentLanguage as string
-
-sub main
-
-    Dim StartZeit
-    StartZeit = Now()
-
-    use "writer\tools\includes\w_tools.inc"
-    use "writer\tools\includes\w_tool5.inc"
-    use "writer\tools\includes\w_tool6.inc"
-
-    use "writer\optional\includes\table\w_204_.inc"
-    use "writer\optional\includes\table\w_204a_.inc"
-    use "writer\optional\includes\table\w_204b_.inc"
-
-    printlog Chr(13) & "Loading of Include - Files takes: " & Wielange ( StartZeit )
-
-    Printlog ""
-    Printlog "----------------------------------------------"
-    Printlog "|                           Writer Table Test                           |"
-    Printlog "----------------------------------------------"
-    Printlog ""
-
-    'Checking for supported language
-    if fLocaleString("LocaleText") = "Abortion" then 
-        warnlog "This test does not support language " & iSprache
-        exit sub
-    end if
-    'First some settings to verify a stable run
-    Call TableConfiguration
-
-    Call hStatusIn("writer","w_table.bas","Writer Table test")
-    Call w_204_
-    Call w_204a_
-    Call w_204b_
-    Call hStatusOut
-
-    'Restoring default settings after testrun
-    Call RestoreSettings
-
-    Printlog "Duration: "& WieLange ( StartZeit )
-    Printlog "Date: " &  Date & "    Time: " & Time
-end sub
-
-'---------------------------------------------------------------------------------------------------------------------
-
-sub LoadIncludeFiles
-    use "global\system\includes\master.inc"
-    use "global\system\includes\gvariabl.inc"
-    use "global\tools\includes\optional\t_locale_strings1.inc"
-    Call GetUseFiles
-    gApplication = "WRITER"
-end sub
-
-sub TableConfiguration
-    Call wOptionsUndo("Tabelle")
-    Call hNewDocument
-    if iSprache = iSystemSprache then
-            printlog "Systemlocale matches UI-language"
-        else qaerrorlog "Systemlocale does not match UI-language, locale settings have to be adjusted"
-            ToolsOptions
-            Call hToolsOptions ("LanguageSettings", "Languages")
-            gLocaleDefault = Gebietsschema.GetSelText
-            Gebietsschema.Select(fLocaleString("LocaleLocaleSettings"))
-            Kontext "ExtrasOptionenDlg"
-            ExtrasOptionenDlg.OK
-    end if
-    'Verifiing if documentlanguage matches UI language
-    ToolsOptions
-    Call hToolsOptions ("LanguageSettings", "Languages")
-    if fLocaleString("LocaleScriptType") = "Western" then 
-        gDocumentLanguage = Westlich.GetSelText
-        if gDocumentLanguage <> iSprache then Westlich.Select(fLocaleString("LocaleLocaleSettings"))
-    end if
-    if fLocaleString("LocaleScriptType") = "CJK" then 
-        gDocumentLanguage = Asiatisch.GetSelText
-        if gDocumentLanguage <> iSprache then Asiatisch.Select(fLocaleString("LocaleLocaleSettings"))
-    end if
-    if fLocaleString("LocaleScriptType") = "CTL" then 
-        gDocumentLanguage = LanguageComplexScript.GetSelText
-        if gDocumentLanguage <> iSprache then LanguageComplexScript.Select(fLocaleString("LocaleLocaleSettings"))
-    end if
-    Kontext "ExtrasOptionenDlg"
-    ExtrasOptionenDlg.OK
-
-    mUnit = fSetMeasurementToCM()
-    ToolsOptions
-    Call hToolsOptions ("Writer","GENERAL")
-    cDecSep = GetDecimalSeperator(Tabulatorenabstand.GetText)
-    Kontext "ExtrasOptionenDlg"
-    ExtrasOptionenDlg.Ok
-
-    ' Seperator to calculate with is not the same as used in UI
-    ' so we can't use GetDecimalSeparator here
-    Call wTypeKeys ("1/2")
-    Call wTypeKeys ("<Shift Home>")
-    ToolsCalculate
-    if Instr(GetClipBoardtext, ",") > 0 then cSep = ","
-    if Instr(GetClipBoardtext, ".") > 0 then cSep = "."
-    Call hCloseDocument
-end sub
-
-'---------------------------------------------------------------------------------------------------------------------
-
-sub RestoreSettings
-    If iSprache <> iSystemSprache then
-        Call hNewDocument
-        ToolsOptions
-        Call hToolsOptions ("LanguageSettings", "Languages")
-        Gebietsschema.Select(gLocaleDefault)
-        Kontext "ExtrasOptionenDlg"
-        ExtrasOptionenDlg.OK
-    end if
-    ToolsOptions
-    Call hToolsOptions ("LanguageSettings", "Languages")
-    if fLocaleString("LocaleScriptType") = "Western" then Westlich.Select(gDocumentLanguage)
-    if fLocaleString("LocaleScriptType") = "CJK" then Asiatisch.Select(gDocumentLanguage)
-    if fLocaleString("LocaleScriptType") = "CTL" then LanguageComplexScript.Select(gDocumentLanguage)
-    Kontext "ExtrasOptionenDlg"
-    ExtrasOptionenDlg.OK
-    If iSprache <> iSystemSprache then
-        Call hCloseDocument
-    end if
-end sub
diff --git a/testautomation/writer/optional/w_textframes.bas b/testautomation/writer/optional/w_textframes.bas
deleted file mode 100644
index 80f2f2bfaec3..000000000000
--- a/testautomation/writer/optional/w_textframes.bas
+++ /dev/null
@@ -1,85 +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 :  helge.delfs@oracle.com
-'*
-'* short description : Test the functionality of textframes
-'*
-'\*******************************************************************
-
-global gSeperator as String
-global gMeasurementUnit as String
-
-sub main
-
-    Dim StartZeit
-
-    StartZeit = Now()
-
-    use "writer\tools\includes\w_tools.inc"
-    use "writer\tools\includes\w_tool3.inc"
-    use "writer\tools\includes\w_tool6.inc"
-    use "writer\optional\includes\tools\tools1.inc"
-    use "writer\optional\includes\tools\tools2.inc"
-    use "writer\optional\includes\textframes\w_textframes1.inc"
-    use "writer\optional\includes\textframes\w_textframes2.inc"
-    use "writer\optional\includes\textframes\w_textframes3.inc"
-    use "writer\optional\includes\textframes\w_textframes4.inc"
-    use "writer\optional\includes\textframes\w_textframes5.inc"
-
-    printlog Chr(13) + "Loading of Include - Files takes: " + Wielange ( StartZeit )
-    printlog Chr(13) + "******* Writer - Level 1 - Test *******"
-
-    Call hStatusIn ( "writer", "w_textframes.bas","Writer Level1-Test" )
-    'Reading the decimal seperator from global routine in tools1.inc.
-    gSeperator = GetDecimalSeperator()
-    'Setting the measurementunit to 'cm'
-    gMeasurementUnit = fSetMeasurementToCM()
-    printlog Chr(13) + "      - Test of TextFrame function -"
-    Call w_textframes1
-
-    printlog Chr(13) + "      - Test of linked TextFrame -"
-    Call w_textframes2
-
-    printlog Chr(13) + "      - Test of MS-Interoperability -"
-    Call w_textframes3
-    Call w_textframes4
-    Call w_textframes5
-    Call hStatusOut
-
-    Printlog Chr(13) + "End of Level 1 Test (Textframes):"
-    Printlog "Duration: "+ WieLange ( StartZeit )
-    Printlog "Date: " +  Date + "    Time: " + Time
-
-end sub
-
-sub LoadIncludeFiles
-   use "global\system\includes\master.inc"
-   use "global\system\includes\gvariabl.inc"
-   Call GetUseFiles
-   gApplication = "WRITER"
-end Sub
diff --git a/testautomation/writer/optional/w_undo.bas b/testautomation/writer/optional/w_undo.bas
deleted file mode 100644
index 52c5f73b3045..000000000000
--- a/testautomation/writer/optional/w_undo.bas
+++ /dev/null
@@ -1,73 +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 : helge.delfs@oracle.com
-'*
-'* short description : Testing verbosity and functionality of the undo history
-'*
-'\***********************************************************************
-
-sub main
-    Dim StartTime
-    StartTime = Now()
-
-	use "writer\tools\includes\w_tools.inc"
-	use "writer\tools\includes\w_tool6.inc"
-	use "writer\tools\includes\w_tools_undo.inc"
-    use "writer\optional\includes\undo\w_undo1.inc"
-	use "writer\optional\includes\undo\w_undo_history_1.inc"
-	use "writer\optional\includes\undo\w_undo_history_2.inc"
-	use "writer\optional\includes\undo\w_undo_history_3.inc"
-	use "writer\optional\includes\undo\w_undo_history_4.inc"
-    
-	printlog Chr(13) + "Loading of Include - Files takes: " + Wielange ( StartTime )
-    printlog Chr(13) + "******* Writer - Undo- Test *******"
-
-    Call hStatusIn ( "writer", "w_undo.bas" )
-
-   	Call tEditUndoRedo
-    Call tEditUndoTOX
-	Call w_undo_history_1
-	Call w_undo_history_2
-	Call w_undo_history_3
-	Call w_undo_history_4
-
-	Call hStatusOut
-
-    Printlog Chr(13) + "End of Writer - Undo - Test :"
-    Printlog "Duration: "+ WieLange ( StartTime )
-    Printlog "Date: " +  Date + "    Time: " + Time
-
-end sub
-
-sub LoadIncludeFiles
-    use "global\system\includes\master.inc"
-    use "global\system\includes\gvariabl.inc"
-    Call GetUseFiles
-    gApplication = "WRITER"
-end sub
-
diff --git a/testautomation/writer/optional/ww_opt.bas b/testautomation/writer/optional/ww_opt.bas
deleted file mode 100644
index 994e2bb45ec3..000000000000
--- a/testautomation/writer/optional/ww_opt.bas
+++ /dev/null
@@ -1,70 +0,0 @@
-'**************************************************************************
-' 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 : helge.delfs@oracle.coms
-'*
-'* short description : HTML-Options-Test
-'*
-'\***********************************************************************
-
-Global mUnit as string
-
-sub main
-    Dim StartTime
-    StartTime = Now()
-
-    use "writer\tools\includes\w_tools.inc"
-    use "writer\tools\includes\w_tool6.inc"
-
-    use "writer\optional\includes\option\wh_o_1.inc"
-    use "writer\optional\includes\option\wh_o_2.inc"
-    use "writer\optional\includes\option\wh_o_3.inc"
-
-    printlog Chr(13) + "Loading of Include - Files takes: " + Wielange ( StartTime )
-    printlog Chr(13) + "******* HTML - Options - Test *******"
-
-    Call hNewDocument
-    mUnit = fSetMeasurementToCM()                 ' Set measurement unit to cm
-    Call hCloseDocument
-
-    Call hStatusIn("writer","ww_opt.bas","HTML Optiontest")
-    Call wh_o_1          'Content / Layout / Grid /
-    Call wh_o_2          'Defaultfont / Print / Table
-    Call wh_o_3          'Cursor / Changes / Insert / Insert -> Caption
-    Call hStatusOut
-
-    Printlog Chr(13) + "End of Options - Test :"
-    Printlog "Duration: "+ WieLange ( StartTime )
-    Printlog "Date: " +  Date + "    Time: " + Time
-
-end sub
-
-sub LoadIncludeFiles
-    use "global\system\includes\master.inc"
-    use "global\system\includes\gvariabl.inc"
-    Call GetUseFiles
-    gApplication = "HTML"
-end sub
diff --git a/testautomation/writer/required/includes/w_001_.inc b/testautomation/writer/required/includes/w_001_.inc
deleted file mode 100644
index c798b26b47a1..000000000000
--- a/testautomation/writer/required/includes/w_001_.inc
+++ /dev/null
@@ -1,1108 +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 : helge.delfs@oracle.com
-'*
-'* short description :  Required-Testcases for the File-menu.
-'*
-'\***********************************************************************
-
-sub w_001_
-
-    printLog Chr(13) + "--------- File Menu (w_001_.inc) ----------"
-    gApplication = "WRITER"
-
-    Call tFileNewLabels
-    Call tFileNewBusinessCards
-    Call tFileOpen
-
-    Call tFileClose
-    Call tFileSave
-    Call tFileSaveAll
-    Call tFileSaveAs
-    Call tFileSaveAsExport
-    Call tFileSaveWithPassword
-    Call tFileReload
-    Call tFileVersions
-
-end sub
-
-'-----------------------------------------------------------
-
-testcase tFileNewLabels
-
-    Dim iSheetFormat as integer
-    Dim iBrandIndex as integer
-    Dim iType as integer
-    Dim sTypes as integer
-    Dim vTypes as integer
-    
-    ' The brands have fixed names and should not change
-    dim cBrandList( 10 ) as string
-        cBrandList(  1 ) = "Avery A4" 
-        cBrandList(  2 ) = "Avery A4/Asia"
-        cBrandList(  3 ) = "Avery Letter Size"
-        cBrandlist(  4 ) = "Avery Zweckform"
-        cBrandList(  5 ) = "Herlitz"
-        cBrandList(  6 ) = "Herma A4"
-        cBrandList(  7 ) = "Herma A5"
-        cBrandList(  8 ) = "Herma endlos"
-        cBrandList(  9 ) = "Leitz"
-        cBrandList( 10 ) = "Sigel"
-
-    PrintLog "Open Labels-dialog with File / New / Labels"
-    if ( hCreateLabels() ) then
-
-        Call DialogTest( TabEtiketten )
-        
-        PrintLog "Switch to Tabpage 'Labels'"
-        PrintLog "Check number of brands and types (see #i44801# for details)"
-        
-        For iSheetFormat = 1 to 2
-
-            kontext "TabEtiketten"
-            Select Case( iSheetFormat )
-            Case 1
-                Endlos.Check
-                printlog "Continous is checked"
-            Case 2
-                Bogen.Check
-                printlog "Sheet is checked"
-            end select
-            
-            PrintLog "There should be 10 brands in list"
-            For iBrandIndex = 1 to Marke.GetItemCount
-            
-                Marke.Select( cBrandList( iBrandIndex ) )
-                printlog "- Brand: " & Marke.GetSelText
-                sTypes = Typ.GetItemCount
-                
-                Select Case iBrandIndex
-                Case 1:
-                    PrintLog "Avery/A4 should have 295 types in list if 'Sheet' is checked"
-                    PrintLog "Avery/A4 should have 1 type in list if 'Continous' is checked"
-                    if ( iSheetFormat = 1 ) then vTypes = 1 else vTypes = 295
-                Case 2:
-                    PrintLog "Avery A4/Asia should have 88 types in list if 'Sheet' is checked"
-                    PrintLog "Avery A4/Asia should have 1 type in list if 'Continous' is checked"
-                    if ( iSheetFormat = 1 ) then vTypes = 1 else vTypes = 88
-                Case 3:
-                    PrintLog "Avery Lettersize should have 251 types in list if 'Sheet' is checked"
-                    PrintLog "Avery Lettersize should have 45 types in list if 'Continous' is checked"
-                    if ( iSheetFormat = 1 ) then vTypes = 45 else vTypes = 251
-                Case 4:
-                    PrintLog "Avery Zweckform should have 333 types in list if 'Sheet' is checked"
-                    PrintLog "Avery Zweckform should have 67 types in list if 'Continous' is checked"
-                    if ( iSheetFormat = 1 ) then vTypes = 67 else vTypes = 333
-                Case 5:
-                    PrintLog "Herlitz should have 26 types in list if 'Sheet' is checked"
-                    PrintLog "Herlitz should have 6 types in list if 'Continous' is checked"
-                    if ( iSheetFormat = 1 ) then vTypes = 6 else vTypes = 26
-                Case 6:
-                    PrintLog "Herma A4 should have 492 types in list if 'Sheet' is checked"
-                    PrintLog "Herma A4 should have 1 type in list if 'Continous' is checked"
-                    if ( iSheetFormat = 1 ) then vTypes = 1 else vTypes = 492
-                Case 7:
-                    PrintLog "Herma A5 should have 18 types in list if 'Sheet' is checked"
-                    PrintLog "Herma A5 should have 1 type in list if 'Continous' is checked"
-                    if ( iSheetFormat = 1 ) then vTypes = 1 else vTypes = 18
-                Case 8:
-                    PrintLog "Herma endlos should have 1 type in list if 'Sheet' is checked"
-                    PrintLog "Herma endlos should have 119 types in list if 'Continous' is checked"
-                    if ( iSheetFormat = 1 ) then vTypes = 119 else vTypes = 1
-                Case 9:
-                    PrintLog "Leitz should have 13 types in list if 'Sheet' is checked"
-                    PrintLog "Leitz should have 1 type in list if 'Continous' is checked"
-                    if ( iSheetFormat = 1 ) then vTypes = 1 else vTypes = 13
-                Case 10:
-                    PrintLog "Sigel should have 20 types in list if 'Sheet' is checked"
-                    PrintLog "Sigel should have 1 type in list if 'Continous' is checked"
-                    if ( iSheetFormat = 1 ) then vTypes = 1 else vTypes = 20
-                Case else: 
-                    Warnlog "- There are more than 10 brands in list"
-                end select
-                if sTypes <> vTypes then Warnlog "-  Not " & sTypes & " types in list but " & vTypes
-                
-                For iType = 1 to Typ.GetItemCount
-                    Typ.Select iType
-                    printlog "-  Type: " & Typ.GetSelText
-                next iType
-            next iBrandIndex
-        next iSheetFormat
-
-        PrintLog "Switch to Tabpage 'Format'"
-        Kontext
-        active.SetPage TabFormatEtiketten
-        wait( 100 )
-
-        Kontext "TabFormatEtiketten"
-        Call DialogTest (TabFormatEtiketten)
-
-        PrintLog "Click 'Save'"
-        FormatSpeichern.Click
-
-        Kontext "SaveLabelFormat"
-        if ( SaveLabelFormat.exists( 1 ) ) then
-            
-            Call DialogTest (SaveLabelFormat)
-            
-            PrintLog "Close dialog 'Save Label Format'"
-            SaveLabelFormat.Cancel
-        else
-            warnlog( "Dialog <SaveLabelFormat> is not available" )
-        end if
-        
-        Kontext "TabFormatEtiketten"
-        
-        PrintLog "Switch to Tabpage 'Options'"
-        Kontext
-        active.SetPage TabDruckerEtiketten
-        
-        Kontext "TabDruckerEtiketten"
-        if ( TabDruckerEtiketten.exists( 1 ) ) then
-            Call DialogTest (TabDruckerEtiketten)
-
-            if ( gPlatgroup = "w95" or gPlatgroup = "wnt" ) then
-                PrintLog "Click printer setup for Windows"
-                Einrichten.Click
-
-                PrintLog "Close printer-setup dialog"
-                Kontext "DruckerEinrichten"
-                if DruckerEinrichten.Exists( 2 ) then
-                    DruckerEinrichten.Cancel
-                else
-                    Warnlog "No Default Printer defined for the system, set one!"
-                end if
-            else
-                printlog( "No printer setup for UNIX like OS" )
-            end if
-
-            PrintLog "Check checkbox 'Synchronize contents'"
-            Kontext "TabDruckerEtiketten"
-            InhaltSynchronisieren.Check()
-            
-            PrintLog "Click 'New document'"
-            NeuesDok.Click()
-
-            printlog( "JSK: Unknown messagebox handled silently before refactoring" )
-            Kontext "Active"
-            if ( Active.Exists( 1 ) ) then
-                warnlog( "Unexpected Messagebox: " & Active.getText()
-                try
-                    printlog( "Click <ok>" )
-                    Active.Ok
-                catch
-                    Warnlog "Once Document has been opened, office asks to save it! BugID 89702"
-                    Active.Cancel
-                endcatch
-            end if
-
-            PrintLog "Check if dialog 'Synchronize Labels' is up"
-            Kontext "EtikettenSynchronisieren"
-            if ( EtikettenSynchronisieren.Exists( 2 ) ) then
-                Call DialogTest ( EtikettenSynchronisieren )
-                Synchronisieren.Click
-                WaitSlot()
-            else
-                Warnlog " Dialog to synchronize labels not up!"
-            end if
-        else
-            warnlog( "Tabpage <TabDruckerEtiketten> is not available" )
-        end if
-    else
-        warnlog( "hCreateLabels() failed" )
-    end if
-
-    PrintLog "Close active document"
-    Call hCloseDocument
-endcase
-
-'-----------------------------------------------------------
-
-testcase tFileNewBusinessCards
-
-    Dim iFormat as integer
-    Dim iBrand as integer
-    Dim iType as integer
-    Dim iWait as integer
-    Dim sTypes as integer
-    Dim vTypes as integer
-    
-    ' The brands have fixed names and should not change
-    dim cBrandList( 10 ) as string
-        cBrandList(  1 ) = "Avery A4" 
-        cBrandList(  2 ) = "Avery A4/Asia"
-        cBrandList(  3 ) = "Avery Letter Size"
-        cBrandlist(  4 ) = "Avery Zweckform"
-        cBrandList(  5 ) = "Herlitz"
-        cBrandList(  6 ) = "Herma A4"
-        cBrandList(  7 ) = "Herma A5"
-        cBrandList(  8 ) = "Herma endlos"
-        cBrandList(  9 ) = "Leitz"
-        cBrandList( 10 ) = "Sigel"
-    
-
-	PrintLog "Open Business Cards dialog with File / New / Business Cards"
-	if ( hCreateBusinessCards ) then     
-        PrintLog "Switch to Tabpage 'Medium'"
-        Kontext
-        Active.Setpage TabEtikettenMedium
-        
-        Kontext "TabEtikettenMedium"
-        if ( TabEtikettenMedium.exists( 1 ) ) then
-            Call DialogTest (TabEtikettenMedium)
-
-            PrintLog "Check number of brands and types (see #i44801# for details)"
-            For iFormat = 1 to 2
-                Select Case iFormat
-                Case 1
-                    Endlos.Check
-                    printlog "Continous is checked"
-                Case 2
-                    Bogen.Check
-                    printlog "Sheet is checked"
-                end select
-                
-                PrintLog "There should be 10 brands in list"
-                For iBrand = 1 to Marke.GetItemCount
-                    Marke.Select( cBrandList( iBrand ) )
-                    printlog "- Brand: " & Marke.GetSelText
-                    sTypes = Typ.GetItemCount
-                    Select Case iBrand
-                    Case 1:
-                        PrintLog "Avery/A4 should have 295 types in list if 'Sheet' is checked"
-                        PrintLog "Avery/A4 should have 1 type in list if 'Continous' is checked"
-                        if ( iFormat = 1 ) then vTypes = 1 else vTypes = 295
-                    Case 2:
-                        PrintLog "Avery A4/Asia should have 88 types in list if 'Sheet' is checked"
-                        PrintLog "Avery A4/Asia should have 1 type in list if 'Continous' is checked"
-                        if ( iFormat = 1 ) then vTypes = 1 else vTypes = 88
-                    Case 3:
-                        PrintLog "Avery Lettersize should have 251 types in list if 'Sheet' is checked"
-                        PrintLog "Avery Lettersize should have 45 types in list if 'Continous' is checked"
-                        if ( iFormat = 1 ) then vTypes = 45 else vTypes = 251
-                    Case 4:
-                        PrintLog "Avery Zweckform should have 333 types in list if 'Sheet' is checked"
-                        PrintLog "Avery Zweckform should have 67 types in list if 'Continous' is checked"
-                        if ( iFormat = 1 ) then vTypes = 67 else vTypes = 333
-                    Case 5:
-                        PrintLog "Herlitz should have 26 types in list if 'Sheet' is checked"
-                        PrintLog "Herlitz should have 6 types in list if 'Continous' is checked"
-                        if ( iFormat = 1 ) then vTypes = 6 else vTypes = 26
-                    Case 6:
-                        PrintLog "Herma A4 should have 492 types in list if 'Sheet' is checked"
-                        PrintLog "Herma A4 should have 1 type in list if 'Continous' is checked"
-                        if ( iFormat = 1 ) then vTypes = 1 else vTypes = 492
-                    Case 7:
-                        PrintLog "Herma A5 should have 18 types in list if 'Sheet' is checked"
-                        PrintLog "Herma A5 should have 1 type in list if 'Continous' is checked"
-                        if ( iFormat = 1 ) then vTypes = 1 else vTypes = 18
-                    Case 8:
-                        PrintLog "Herma endlos should have 1 type in list if 'Sheet' is checked"
-                        PrintLog "Herma endlos should have 119 types in list if 'Continous' is checked"
-                        if ( iFormat = 1 ) then vTypes = 119 else vTypes = 1
-                    Case 9:
-                        PrintLog "Leitz should have 13 types in list if 'Sheet' is checked"
-                        PrintLog "Leitz should have 1 type in list if 'Continous' is checked"
-                        if ( iFormat = 1 ) then vTypes = 1 else vTypes = 13
-                    Case 10:
-                        PrintLog "Sigel should have 20 types in list if 'Sheet' is checked"
-                        PrintLog "Sigel should have 1 type in list if 'Continous' is checked"
-                        if ( iFormat = 1 ) then vTypes = 1 else vTypes = 20
-                    Case else: 
-                        Warnlog "- There are more than 10 brands in list"
-                    end select
-                    
-                    if sTypes <> vTypes then Warnlog "-  Not " & sTypes & " types in list but " & vTypes
-                    For iType = 1 to Typ.GetItemCount
-                        Typ.Select iType
-                        printlog "-  Type: " & Typ.GetSelText
-                    next iType
-                next iBrand
-            next iFormat
-
-            PrintLog "Switch to Tabpage 'Business Cards'"
-            Kontext
-            Active.Setpage TabVisitenkarten
-        else
-            warnlog( "Dialog <TabEtiketteMedium> not available" )
-        end if
-
-        Kontext "Active"
-        if ( Active.GetRT = 304 ) then
-            Warnlog( "Unexpected messagebox: " & Active.GetText() )
-            Active.Ok
-        end if
-
-        Kontext "TabVisitenkarten"
-        for iWait = 1 to 100
-            if Inhalt.IsVisible then
-                Call DialogTest (TabVisitenkarten)
-                iWait = 101
-            else
-                wait( 100 )
-            end if
-        next iWait
-
-        PrintLog "Switch to Tabpage 'Private'"
-        Kontext
-        Active.Setpage TabPrivat
-
-        Kontext "TabPrivat"
-        Call DialogTest (TabPrivat)
-
-        PrintLog "Switch to Tabpage 'Business'"
-        Kontext
-        Active.Setpage TabGeschaeft
-
-        Kontext "TabGeschaeft"
-        Call DialogTest (TabGeschaeft)
-
-        Kontext
-        Active.Setpage TabFormatEtiketten
-
-        PrintLog "Switch to Tabpage 'Format'"
-        Kontext "TabFormatEtiketten"
-        Call DialogTest (TabFormatEtiketten)
-
-        PrintLog "Click pushbutton 'Save'"
-        FormatSpeichern.Click
-
-        PrintLog "Close upcoming dialog 'Save Label Format'"
-        Kontext "SaveLabelFormat"
-
-        Call DialogTest (SaveLabelFormat)
-        SaveLabelFormat.Cancel
-
-        Kontext "TabFormatEtiketten"
-        Kontext
-        Active.Setpage TabZusaetzeEtiketten
-
-        Kontext "TabZusaetzeEtiketten"
-        Call DialogTest (TabZusaetzeEtiketten)
-        Einrichten.Click
-
-        Kontext "DruckerEinrichten"
-        if ( DruckerEinrichten.Exists( 1 ) ) then
-            DruckerEinrichten.Cancel
-        else
-            Warnlog "No Default Printer configured for this system. Set one!"
-        end if
-
-        Kontext "TabZusaetzeEtiketten"
-        PrintLog "Switch to Tabpage 'Options'"
-        PrintLog "Check Checkbox 'Syncronize contents"
-        InhaltSynchronisieren.Check
-
-        PrintLog "Click 'new Document'"
-        NeuesDok.Click
-
-        Kontext "Active"
-        if ( Active.Exists( 2 ) ) then
-            try
-                Active.Ok
-            catch
-                Active.Cancel
-                Warnlog "Once Document has been opened, office asks to save it! BugID 89702"
-            endcatch
-        end if
-
-        PrintLog "Check i dialog 'Syncronize Labels' is up"
-        Kontext "EtikettenSynchronisieren"
-        if ( EtikettenSynchronisieren.Exists( 2 ) ) then
-            Call DialogTest ( EtikettenSynchronisieren )
-            Synchronisieren.Click
-        else
-            Warnlog "Dialog to synchronize Business Cards not up!"
-        end if
-
-        PrintLog "Close active document"
-        Call hCloseDocument
-    else
-        warnlog( "Failed to create business cards" )
-    end if
-    
-endcase
-
-'-----------------------------------------------------------
-
-testcase tFileOpen
-
-    printLog "- File / Open"
-
-    FileOpen
-    
-    Kontext "OeffnenDlg"
-    if ( OeffnenDlg.exists( 2 ) ) then
-    
-        Call DialogTest ( OeffnenDlg )
-        
-        PrintLog "Click 'Up one level'"
-        UebergeordneterOrdner.Click
-        
-        WaitSlot()
-        
-        try
-            PrintLog "Click button 'Default directory'"
-            Standard.Click
-            WaitSlot()
-        catch
-            ExceptLog
-        endcatch
-        
-        PrintLog "Click Button 'New folder'"
-        if ( NeuerOrdner.exists() ) then
-            if ( NeuerOrdner.isVisible() ) then
-                if ( NeuerOrdner.IsEnabled() ) then
-                    NeuerOrdner.Click
-                    
-                    Kontext "NeuerOrdner"
-                    if ( NeuerOrdner.exists( 1 ) ) then
-                        PrintLog "Enter a foldername in upcoming dialog"
-                        OrdnerName.SetText( "TT_Test" )
-                        
-                        PrintLog "Close dialog with 'Cancel'"
-                        NeuerOrdner.Cancel
-                    else
-                        warnlog( "Dialog <NeuerOrdner> not available" )
-                    end if
-                else
-                    Warnlog( "New Folder button disabled" )
-                end if
-            else
-                Warnlog( "New Folder button not visible" )
-            end if
-        else
-            Warnlog( "New Folder button missing on dialog" )
-        end if
-        Kontext "OeffnenDlg"
-        OeffnenDlg.Cancel
-    else
-        warnlog( "File Open dialog is not available" )
-    end if
-    PrintLog "Close File-Open-dialog with 'Cancel'"
-endcase
-
-'-----------------------------------------------------------
-
-testcase tFileClose
-
-    PrintLog "- File/Close"
-
-    PrintLog "Open new document"
-    Call hNewDocument
-    
-    PrintLog "Insert a table"
-    Call hTabelleEinfuegen
-
-    PrintLog "File / Close"
-    hUseAsyncSlot( "FileClose" )
-    
-    PrintLog( "Cancel saving the document" )
-    kontext "Active"
-    if ( Active.exists( 1 ) ) then
-        Active.Cancel
-    else
-        Warnlog( "No warning for modified document" )
-    end if    
-
-    PrintLog "again File / Close"
-    hUseAsyncSlot( "FileClose" )
-    
-    Printlog( "Confirm to save the document" )
-    Kontext "Active"
-    if ( Active.exists( 1 ) ) then
-        Active.Yes()
-    else
-        warnlog( "No warning for modified document" )
-    end if
-
-    PrintLog "Click 'Cancel' in File-Save-Dialog"
-    Kontext "SpeichernDlg"
-    if ( SpeichernDlg.Exists( 1 ) ) then
-        SpeichernDlg.Cancel
-    else
-        Kontext "Active"
-        if Active.Exists() then
-            Warnlog Active.Gettext()
-            Active.Ok()
-        else
-            Warnlog( "File Save dialog not displayed, messagebox came up instead" )
-        end if
-    end if
-
-    PrintLog "Choose File / Close again"
-    hUseAsyncSlot( "FileClose" )
-    
-    PrintLog "On upcoming messagebox click 'No'"
-    Kontext "Active"
-    if ( Active.exists( 1 ) ) then
-        Active.No
-    else
-        warnlog( "Expected messagebox missing" )
-    end if
-    
-endcase
-
-'-----------------------------------------------------------
-
-testcase tFileSave
-
-    PrintLog "- File/Save"
-
-    PrintLog "Open new document"
-    Call hNewDocument
-
-    PrintLog "Insert a table"
-    Call hTabelleEinfuegen
-
-    PrintLog "Choose 'File / Save'"
-    FileSave
-    
-    Kontext "SpeichernDlg"
-    if ( SpeichernDlg.exists( 2 ) ) then
-    
-        Call DialogTest ( SpeichernDlg )
-        PrintLog "In File-Dialog click 'Up one level'"
-        UebergeordneterOrdner.Click
-        
-        WaitSlot()
-        
-        try
-            PrintLog "Click 'Default directory'"
-            Standard.Click
-            WaitSlot()
-        catch
-            ExceptLog
-        endcatch
-
-        PrintLog "Click 'Create New Folder '"
-        if ( NeuerOrdner.exists() ) then
-            if ( NeuerOrdner.isVisible() ) then
-                if ( NeuerOrdner.IsEnabled() ) then
-                    NeuerOrdner.Click
-                    
-                    Kontext "NeuerOrdner"
-                    if ( NeuerOrdner.exists( 1 ) ) then
-                    
-                        PrintLog "Enter a foldername in upcoming dialog"
-                        OrdnerName.SetText( "TT_Test" )
-
-                        PrintLog "Close dialog with 'Cancel'"
-                        NeuerOrdner.Cancel
-                    else
-                        warnlog( "Dialog <NeuerOrdner> not available" )
-                    end if
-                else
-                    Warnlog( "New Folder button disabled" )
-                end if
-            else
-                Warnlog( "New Folder button not visible" )
-            end if
-        else
-            Warnlog( "New Folder button missing on dialog" )
-        end if
-        
-        Kontext "SpeichernDlg"
-        SpeichernDlg.cancel()
-    else
-        warnlog( "File Save dialog is not available" )
-    end if
-
-    PrintLog "Close active document"
-    Call hCloseDocument
-endcase
-
-'-----------------------------------------------------------
-
-testcase tFileSaveAll
-
-    PrintLog "- File / Save All"
-
-    PrintLog "Open new document"
-    Call hNewDocument
-    
-    PrintLog "Insert a table in document"
-    Call hTabelleEinfuegen
-    
-    PrintLog "Open a second document"
-    Call hNewDocument
-    
-    PrintLog "Insert a table in second document"
-    Call hTabelleEinfuegen
-
-    PrintLog "Choose File / Save all"
-    FileSaveAll
-    
-    PrintLog "Cancel 1. upcoming Filedialog"
-    Kontext "SpeichernDlg"
-    if ( SpeichernDlg.exists( 2 ) ) then
-        SpeichernDlg.Cancel
-    else
-        warnlog( "First File Save dialog is not available" )
-    end if
-    
-    PrintLog "Cancel 2. upcoming Filedialog"    
-    Kontext "SpeichernDlg"
-    if ( SpeichernDlg.exists( 2 ) ) then
-        SpeichernDlg.Cancel
-    else
-        warnlog( "Second File Save dialog is not available" )
-    end if
-
-    Kontext "SpeichernDlg"
-    if ( SpeichernDlg.exists( 1 ) ) then
-        warnlog( "Third, unexpected File Save dialog open" )
-        SpeichernDlg.cancel()
-    end if
-
-    PrintLog "Close documents"
-    hFileCloseAll()
-    
-endcase
-
-'-----------------------------------------------------------
-
-testcase tFileSaveAs
-
-    PrintLog "- File / Save As"
-
-    PrintLog "Open new document"
-    Call hNewDocument
-
-    PrintLog "Choose 'File / Save as'"
-    FileSaveAs
-    
-    Kontext "SpeichernDlg"
-    if ( SpeichernDlg.exists( 1 ) ) then
-    
-        Call DialogTest ( SpeichernDlg )
-        
-        PrintLog "Click button 'Up one level'"
-        UebergeordneterOrdner.Click()
-        
-        WaitSlot()
-        
-        PrintLog "Click button 'Default Directory'"
-        try
-            Standard.Click
-        catch
-            ExceptLog
-        endcatch
-        
-        PrintLog "Click button 'Create Folder'"
-        if ( NeuerOrdner.exists() ) then
-            if ( NeuerOrdner.isVisible() ) then
-                if ( NeuerOrdner.IsEnabled() ) then
-                    NeuerOrdner.Click
-                    
-                    Kontext "NeuerOrdner"
-                    if ( NeuerOrdner.exists( 1 ) ) then
-                    
-                        Printlog( "Name the folder" )
-                        OrdnerName.SetText( "TT_Test" )
-                        PrintLog "Close dialog with 'Cancel'"
-                        NeuerOrdner.Cancel
-                    else
-                        warnlog( "Dialog <NeuerOrdner> not available" )
-                    end if
-                else
-                    Warnlog( "New Folder button disabled" )
-                end if
-            else
-                Warnlog( "New Folder button not visible" )
-            end if
-        else
-            Warnlog( "New Folder button missing on dialog" )
-        end if
-        
-        Kontext "SpeichernDlg"
-        SpeichernDlg.Cancel
-    else
-        warnlog( "File Save dialog is not available" )
-    end if
-
-    PrintLog "Close active document"
-    Call hCloseDocument
-endcase
-
-'-----------------------------------------------------------
-
-testcase tFileSaveAsExport
-
-    QaErrorLog "#i93340# - Testcase outcommented due to bug with filter."
-    goto endsub
-
-    Dim xExport as string
-    Dim xExportFile as string
-    Dim CountDocu as integer
-    PrintLog "- File / Save As / Export with MS-filter"
-
-    Select Case gApplication
-    Case "WRITER"
-        xExport = Convertpath( gTesttoolpath + "writer\required\input\st1_1.sxw" )
-    Case else
-        goto endsub
-    end select
-    
-    PrintLog "Open new document"
-    Call hNewDocument
-
-    PrintLog "Open document '..\writer\required\input\st1_1.sxw"
-    Call hFileOpenLocally(xExport)
-
-    PrintLog "Select Save as .. and choose 'Microsoft Word 97/2000/XP' as export-filter"
-    xExportFile = gOfficepath + "user\work\ecksport.doc"
-    Call hFileSaveAsWithFilterKill (xExportFile, "MS Word 2003 XML")
-
-    if ( hFileCloseAll() > 1 ) then
-        QAErrorlog "More than 1 document had to be closed!"
-    end if
-
-    PrintLog "Close document"
-    Call hCloseDocument
-    
-endcase
-
-'-----------------------------------------------------------
-
-testcase tFileSaveWithPassword
-
-    Dim sFileName1 as string
-    dim sFileName2 as string
-    dim sFilePath as string
-
-    Printlog "- File / Save with Password"
-    Select Case gApplication
-    Case "WRITER"
-        sFileName1 = "password.odt"
-        sFileName2 = "password2.odt"
-    Case "MASTERDOCUMENT"
-        sFileName1 = "password.odm"
-        sFileName2 = "password2.odm"
-    Case "HTML"
-        printlog "Not in Writer/Web!"
-        goto endsub
-    end select
-
-    PrintLog "Open new document"
-    Call hNewDocument
-    
-    PrintLog "Enter some text into document"
-    Call wTypeKeys("This document will be saved with a password!")
-
-    sFilePath = ConvertPath ( gOfficePath + "user\work\" + sFileName1 )
-    hDeleteFile( sFilePath )
-
-    PrintLog "Choose File / Save as."
-    FileSaveAs
-    
-    PrintLog "enter destination and check 'Password'"
-    Kontext "SpeichernDlg"
-    if ( SpeichernDlg.exists( 2 ) ) then
-        if ( Passwort.exists() ) then
-            if ( Passwort.isEnabled() ) then
-                Passwort.Check()
-            else
-                warnlog( "FATAL: Password checkbox is not enabled" )
-                goto endsub
-            end if
-        else
-            warnlog( "FATAL: Password checkbox does not exist" )
-            goto endsub
-        end if
-
-        PrintLog "Save the document"
-        Dateiname.SetText( sFilePath )
-        Speichern.Click()
-
-        printlog( "JSK: Unknown messagebox handled silently before refactoring" )
-        Kontext "Active"
-        if ( Active.Exists (1) ) then 
-            warnlog( "Unexpected messagebox: " & Active.getText() )
-            Active.Yes
-        end if
-
-        PrintLog "Password dialog has to come up"
-        Kontext "PasswordFileSave"
-        if ( PasswordFileSave.Exists( 1 ) ) then
-        
-            PrintLog "Enter your password"
-            Password.SetText( "12345" )
-            
-            PrintLog "Re-Enter a wrong passwort"
-            PasswordConfirm.Settext( "54321" )
-            PasswordFileSave.OK
-        else
-            Warnlog "- Password-Dialog not up !"
-        end if
-
-        Kontext "Active"
-        PrintLog "A messagebox has to come up, warns of wrong confirmation"
-        if ( Active.Exists( 1 ) )then
-            Active.OK
-        else
-            Warnlog "Able to save document with wrong password"
-        end if
-
-        Kontext "PasswordFileSave"
-        if ( PasswordFileSave.Exists() ) then
-            PrintLog "Enter new password, and re-enter the same password"
-            Password.SetText( "12345" )
-            PasswordConfirm.SetText( "12345" )
-            PasswordFileSave.OK
-        else
-            Warnlog "- Password-Dialog not up !"
-        end if
-    else
-        warnlog( "Dialog <SpeichernDlg> not available" )
-    end if
-
-
-    PrintLog "Close the document"
-    hUseAsyncSlot( "FileClose" )
-
-    PrintLog "Open previous saved document"
-    hFileOpen( sFilePath )
-
-    Kontext "PasswordFileOpen"
-    PrintLog "Enter a wrong password."
-    if ( PasswordFileOpen.Exists() ) then
-        PasswortName.SetText( "34567" )
-        PasswordFileOpen.OK()
-    else
-        Warnlog "- Password-Dialog not up or Document couldn't be loaded!"
-    end if
-
-    PrintLog "A messagebox has to come up, warns of wrong password"
-    Kontext "Active"
-    if ( Active.Exists(1) ) then
-        printlog( "Warning for incorrect password -> good" )
-        Active.OK()
-    else
-        Warnlog "Able to load document with wrong password"
-    end if
-
-    Kontext "PasswordFileOpen"
-    PrintLog "Cancel Password dialog (not loading the document"
-    if ( PasswordFileOpen.Exists( 1 ) ) then
-        PasswordFileOpen.Cancel()
-    end if
-
-    PrintLog "File / Open again your previous saved document"
-    hFileOpen( sFilePath )
-    
-    PrintLog "Enter your password in password dialog"
-    Kontext "PasswordFileOpen"
-    if ( PasswordFileOpen.Exists() ) then
-        PasswortName.SetText( "12345" )
-        PasswordFileOpen.OK()
-    else
-        Warnlog "- Password-Dialog not up!"
-    end if
-    
-    ' Rename document, the old one is now obsolete    
-    sFilePath = ConvertPath ( gOfficePath + "user\work\" + sFileName2 )
-    hDeleteFile( sFilePath )
-    
-    
-    PrintLog "File / Save as ..."
-    hUseAsyncSlot( "FileSaveAs" )
-    
-    Kontext "SpeichernDlg"
-    if ( SpeichernDlg.exists( 2 ) ) then
-    
-        printlog( "Verify that password setting is persistent" )
-        if ( Not Passwort.IsChecked ) then
-            if ( gPlatgroup = "unx" ) then
-                QAErrorlog "#i73968#Opening a password protected file looses focus after loading"
-            else
-                Warnlog "Checkbox 'Save with password' is not checked in file-dialog !"
-                Passwort.Check
-            end if
-            SpeichernDlg.Cancel
-        else
-            Dateiname.SetText( sFilePath )
-            Speichern.Click()
-            
-            printlog( "JSK: Unknown messagebox handled silently before refactoring" )
-            Kontext "Active"
-            if ( Active.Exists( 2 ) ) then 
-                printlog( "Messagebox: " & Active.getText() )
-                Active.Yes()
-            end if
-            
-            PrintLog "Click on 'Save' in file open dialog"
-            Kontext "PasswordFileSave"
-            if ( PasswordFileSave.Exists( 1 ) ) then
-                
-                Password.SetText( "54321" )
-                PasswordConfirm.SetText( "54321" )
-                PasswordFileSave.OK()
-
-                PrintLog( "The password dialog should come up" )
-                hUseAsyncSlot( "FileClose" )
-                
-                PrintLog "File / Close and open your document again"
-                hFileOpen( sFilePath )
-
-                Kontext "PasswordFileOpen"
-                if ( PasswordFileOpen.exists() ) then
-                    PasswortName.SetText "54321"
-                    PasswordFileOpen.OK
-                else
-                    warnlog( "Password dialog did not open" )
-                end if
-            else
-                Warnlog "Passworddialog is not coming up on saving document"
-            end if
-        end if
-    else
-        warnlog( "Dialog <SpeichernDlg> not available" )
-    end if
-    PrintLog "Close active document"
-    Call hCloseDocument
-endcase
-
-'-------------------------------------------------------------------------------
-
-testcase tFileReload
-
-    Dim DokumentPfad$
-    Dim Datei$
-    Dim sFile$
-    Dim WriterFilterExtension(10) as string
-    Dim MasterDocFilterExtension(10) as string
-
-    WriterFilterExtension() = hGetFilternameExtension ( "writer8" )
-    MasterDocFilterExtension() = hGetFilternameExtension ( "writerglobal8" )
-
-    PrintLog "- File / Reload"
-    Select Case gApplication
-    Case "WRITER"
-        sFile$ = "reload." & WriterFilterExtension(0)
-    Case "MASTERDOCUMENT"
-        sFile$ = "reload." & MasterDocFilterExtension(0)
-    Case "HTML"
-        printlog "Not in Writer/Web!"
-        goto endsub
-    end select
-
-    PrintLog "Open new document"
-    Call hNewDocument
-
-    PrintLog "Enter some text, save and close document"
-    Call wTypeKeys("File -> Reload!")
-    Call hFileSaveAsKill ( gOfficePath + "user\work\" + sFile$ )
-    FileClose
-    Kontext
-    if MessageBox.Exists (1) then
-        WarnLog "Messagebox after saving and closing : " + MessageBox.GetText
-        MessageBox.Yes
-    end if
-    Wait (500)
-
-    PrintLog "Open previous saved document"
-    hFileOpen(  gOfficePath + "user\work\" + sFile$ )
-    PrintLog "Insert a table in document"
-    Call hTabelleEinfuegen
-    PrintLog "File / Reload"
-    FileReload
-    WaitSlot(1000)
-    PrintLog "Quit messagebox with 'No'"
-    Kontext "Active"
-    Active.No
-    Wait (500)
-
-    PrintLog "File / Reload again and quit messagebox with yes"
-    FileReload
-
-    WaitSlot(2000)
-    Kontext "Active"
-    Active.Yes
-    Wait (500)
-    PrintLog "Close active document"
-    Call hCloseDocument
-endcase
-
-'-----------------------------------------------------------
-
-testcase tFileVersions
-    Dim sFile$
-    Dim WriterFilterExtension(10) as string
-    Dim MasterDocFilterExtension(10) as string
-
-    WriterFilterExtension() = hGetFilternameExtension ( "writer8" )
-    MasterDocFilterExtension() = hGetFilternameExtension ( "writerglobal8" )
-
-    PrintLog "- File / Versions"
-    Select Case gApplication
-    Case "WRITER"
-        sFile$ = "kann_weg." & WriterFilterExtension(0)
-    Case "MASTERDOCUMENT"
-        sFile$ = "kann_weg." & MasterDocFilterExtension(0)
-    Case "HTML"
-        printlog "Not in Writer/Web!"
-        goto endsub
-    end select
-
-    PrintLog "Open new document"
-    Call hNewDocument
-    Call wTypeKeys ("File version")
-    PrintLog "enter some text in documet and save it"
-    Call hFileSaveAsKill(gOfficePath + "user\work\" + sFile$)
-    Sleep 1
-
-    try
-        PrintLog "Choose File / Versions"
-        FileVersions
-    catch
-        Warnlog "- File / Versions not accessible!"
-        goto endsub
-    endcatch
-
-    PrintLog "In Version-dialog click 'Save New Version'"
-    Kontext "Versionen"
-    Call DialogTest ( Versionen )
-    Speichern.Click
-    PrintLog "Cancel dialog 'Insert version comment'"
-    Kontext "VersionskommentarEingeben"
-    Call DialogTest ( VersionskommentarEingeben )
-    VersionskommentarEingeben.Cancel
-
-    PrintLog "Close dialog"
-    Kontext "Versionen"
-    Versionen.Close
-
-    PrintLog "Close documents"
-    Do Until GetDocumentCount = 0
-        Call hCloseDocument
-    Loop
-endcase
-
-'-----------------------------------------------------------
-
diff --git a/testautomation/writer/required/includes/w_001a_.inc b/testautomation/writer/required/includes/w_001a_.inc
deleted file mode 100644
index cb9739cd00dd..000000000000
--- a/testautomation/writer/required/includes/w_001a_.inc
+++ /dev/null
@@ -1,468 +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 : helge.delfs@oracle.com
-'*
-'* short description:  Testcases for the Writer Required-test.
-'*
-'\***********************************************************************
-
-sub w_001a_
-
-    printLog Chr(13) + "--------- File Menu (w_001a_.inc) ----------"
-    gApplication = "WRITER"
-
-    Call tFileProperties
-
-    Call tFileTemplatesOrganize
-    Call tFileTemplatesAddressbookSource
-    Call tFileTemplatesSave
-    Call tFileTemplatesEdit
-
-    Call tFilePagePreview
-    Call tPrintCommon()
-    Call tPrintGeneral()
-    Call tPrintApplication()
-    Call tPrintLayout()
-    Call tPrintOptions()
-    Call tFilePrinterSetup
-
-    'Writer Master Document
-    gApplication = "MASTERDOCUMENT"
-    Call tMasterDocFilePagePreview
-    gApplication = "WRITER"
-
-end sub
-
-'-----------------------------------------------------------
-
-testcase tFileProperties
-    PrintLog "- File / Properties"
-
-    printlog " Open new document"
-    Call hNewDocument
-
-    printlog " File / Properties"
-    FileProperties
-
-    WaitSlot(5000)
-    Kontext
-    try
-        active.SetPage TabDokument
-    catch
-        Warnlog "Dialog 'FileProperties' not up! (Bug#99828)"
-        goto endsub
-    endcatch
-
-    printlog " Switch to Tabpage 'General'"
-    Kontext "TabDokument"
-    Call DialogTest (TabDokument)
-
-    printlog " Switch to Tabpage 'Description'"
-    Kontext
-    active.SetPage TabDokumentinfo
-    Kontext "TabDokumentinfo"
-    Call DialogTest (TabDokumentinfo)
-
-
-    Warnlog "#i95523# - FileProperties - Tabpage 'User Defined' has changed. - Adaption of testcases needed."
-    '    printlog " Switch to Tabpage 'User defined'"
-    '    Kontext
-    '    active.SetPage TabBenutzer
-    '    Kontext "TabBenutzer"
-    '    Call DialogTest ( TabBenutzer )
-
-    '    Wait 500
-
-    '    Infofelder.Click
-    '    printlog " Click 'Infofields'"
-    '    Kontext "InfonamenBearbeiten"
-    '    printlog " Close upcoming dialog with 'Cancel'"
-    '    Call DialogTest (InfonamenBearbeiten)
-    '    InfonamenBearbeiten.Cancel
-
-    printlog " Switch to Tabpage 'Internet'"
-    Kontext
-    active.SetPage TabInternet
-    Kontext "TabInternet"
-    Call DialogTest (TabInternet)
-
-    printlog " Switch to Tabpage 'Statistics' and close dialog"
-    Kontext
-    active.SetPage TabStatistik
-    Kontext "TabStatistik"
-    Call DialogTest (TabStatistik)
-    TabStatistik.Close
-
-    Sleep 1
-    printlog " Close active document"
-    Call hCloseDocument
-endcase
-
-'-----------------------------------------------------------
-
-testcase tFileTemplatesOrganize
-    Dim i as integer
-
-    PrintLog " Open new document."
-    Call hNewDocument
-    PrintLog " File / Templates / Organize"
-    FileTemplatesOrganize
-    Kontext "DVVerwalten"
-    For i = 1 to 50
-        if DVVerwalten.Exists then
-            i = 51
-        else
-            Sleep 5
-        end if
-    next i
-    if Not DVVerwalten.Exists then
-        Warnlog "Dialog 'Template Management' not up !"
-        Call hCloseDocument
-        goto endsub
-    end if
-    wait 500
-    PrintLog " Select first entry in left list of dialog 'Template Management' (should be 'My Templates')"
-    ListeLinks.Select 1
-    ListeLinks.TypeKeys "<Home>"
-    Sleep 1
-    Befehle.Click
-    wait 500
-    PrintLog " Select 'Commands -> Import Template'"
-    Call hMenuSelectNr(3)
-    Wait 500
-    PrintLog " Close Filedialog."
-    if gUseSysDlg = False then
-        Kontext "OeffnenDlg"
-        if OeffnenDlg.Exists then
-            OeffnenDlg.Cancel
-        else
-            Warnlog "FileOpen dialog not up!"
-        end if
-    end if
-
-    PrintLog " Select 'Commands -> Printer Settings"
-    Kontext "DVVerwalten"
-    Sleep 1
-    Befehle.Click
-    wait 500
-    Call hMenuSelectNr(4)
-
-    PrintLog " Cancel 'Printer-Setup' dialog"
-    Kontext "DruckerEinrichten"
-    if DruckerEinrichten.Exists then
-        DruckerEinrichten.Cancel
-    else
-        Warnlog "Printersettings dialog is not up!"
-    end if
-
-    PrintLog " Select first entry in right list"
-    Kontext "DVVerwalten"
-    ListeRechts.Select 1
-
-    PrintLog " Select pushbutton 'File..'"
-    if WelcheDatei.IsEnabled then
-        WelcheDatei.Click
-        if gUseSysDlg = False then
-            PrintLog " Cancel Filedialog"
-            Kontext "OeffnenDlg"
-            OeffnenDlg.Cancel
-        end if
-    end if
-
-    PrintLog " Select pushbutton 'Address Book'"
-    Kontext "DVVerwalten"
-    AddressBook.Click
-    Kontext "AddressbookSource"
-    PrintLog " Cancel Dialog 'Address Book-Assignment'"
-    if AddressbookSource.Exists then
-        AddressbookSource.Cancel
-    else
-        Warnlog "the Dialog ' Address Book Source' wasnt up!"
-    end if
-
-    PrintLog " Close dialog"
-    Kontext "DVVerwalten"
-    DVVerwalten.Close
-
-    PrintLog " Close active document."
-    Call hCloseDocument
-endcase
-
-'-----------------------------------------------------------
-
-testcase tFileTemplatesAddressbookSource
-
-    PrintLog " Open new document"
-    Call hNewDocument
-
-    PrintLog " File / Templates /Address Book Source..."
-    UseBindings
-    FileTemplatesAddressbookSource
-
-    PrintLog " In 'Address Book Assignement' dialog click pushbutton 'Administrate'"
-    Kontext "AddressbookSource"
-    if AddressbookSource.Exists( 2 ) then
-        Call DialogTest (AddressbookSource)
-        Administrate.Click
-
-        PrintLog " Close 'Data Source Administration' with 'Cancel'"
-        Kontext "DatabaseProperties"
-        if ( DatabaseProperties.Exists( 2 ) ) then
-            PrintLog " DatabaseProperties.SetPage TabConnection"
-            Kontext "TabConnection"
-            Call DialogTest ( TabConnection )
-            Kontext "DatabaseProperties"
-            DatabaseProperties.Close
-            Kontext "AddressbookSource"
-            PrintLog " Close dialog"
-            AddressbookSource.Cancel
-        else
-            Kontext "AddressSourceAutopilot"
-            if AddressSourceAutopilot.Exists( 1 ) then
-                AddressSourceAutopilot.Cancel
-            end if
-            Kontext "AddressbookSource"
-            AddressbookSource.Cancel
-        end if
-    end if
-
-    printlog " Close active document"
-    Call hCloseDocument
-endcase
-
-'-----------------------------------------------------------
-
-testcase tFileTemplatesSave
-    if gApplication = "MASTERDOCUMENT" then
-        qaErrorLog "    tFileTemplatesSave has been disabled in Masterdocument."
-        goto endsub
-    end if
-    printlog "- File / Templates / Save"
-    Call hNewDocument
-    printlog " Open new document"
-    FileTemplatesSave
-    printlog " File / Templates / Save"
-
-    Kontext "DokumentVorlagen"
-    Call DialogTest ( DokumentVorlagen )
-    printlog " On 'Templates' dialog click 'Organizer'"
-
-    Verwalten.Click
-    Kontext "DVVerwalten"
-    DVVerwalten.Close
-    printlog " Close dialog 'Template Management'"
-
-    Kontext "DokumentVorlagen"
-    DokumentVorlagen.Cancel
-    printlog " Close 'Templates' dialog"
-
-    printlog " Close active document"
-    Call hCloseDocument
-    gApplication = "WRITER"
-endcase
-
-'-----------------------------------------------------------
-
-testcase tFileTemplatesEdit
-    printlog "- File / Templates / Edit"
-
-    printlog " Open new document"
-    Call hNewDocument
-    printlog " File / Templates / Edit"
-    FileTemplatesEdit
-
-    if gUseSysDlg = False then
-        printlog " Cancel Filedialog"
-        Kontext "OeffnenDlg"
-        OeffnenDlg.Cancel
-    end if
-
-    printlog " Close active document"
-    Call hCloseDocument
-endcase
-
-'-----------------------------------------------------------
-
-testcase tFilePagePreview
-    PrintLog "- File / Page Preview"
-    Dim gehtnicht as boolean
-    gehtnicht = FALSE
-    printlog " Open new document"
-    Select Case gApplication
-    Case "WRITER", "MASTERDOCUMENT" : hNewDocument()
-    Case else
-        printlog "Not in Writer/Web!"
-        goto endsub
-    end select
-
-    printlog " Enter some text in document"
-    Call wTypeKeys("Just a small change!")
-    printlog " File / Page Preview"
-    FilePageView
-    WaitSlot (1000)
-    Kontext "DocPageViewWriter"
-    if DocPageViewWriter.NotExists then
-        Warnlog "Page Preview is not coming up!"
-        Kontext "Active"
-        if Active.Exists then
-            if Active.GetRT = 304 then
-                Active.No
-            end if
-        end if
-    else
-        if gehtnicht=FALSE then
-            Kontext "PreviewObjectbar"
-            if PreviewObjectbar.Exists = False then Call hToolbarSelect("PagePreview", true)
-            printlog " Select 'Zoom 100%' in toolbar"
-            try
-                Massstab.Select 4
-            catch
-                Warnlog "Unable to change Zoom factor in toolbar! (Bug#110498)"
-            endcatch
-
-            printlog " Click 'Print Page Preview' in toolbar"
-            Kontext "PreviewObjectbar"
-            DruckenSeitenansicht.Click
-            Kontext "Active"
-            if Active.Exists then
-                QAErrorlog "No default printer!"
-                Active.ok
-
-                Kontext "Printing"
-                if Printing.Exists( 2 ) then Printing.Cancel
-            else
-                printlog " Close 'Print' dialog with cancel"
-                Kontext "Printing"
-                Printing.Cancel
-            end if
-
-            printlog " Close Page Preview with button 'Close Preview' in toolbar"
-            Kontext "PreviewObjectbar"
-            SeitenansichtSchliessen.Click
-        else
-            Warnlog "Objectbar not addressable!"
-        end if
-    end if
-    printlog " Close active document"
-    Call hCloseDocument
-endcase
-
-'-----------------------------------------------------------
-
-testcase tFilePrinterSetup
-    PrintLog " Open new document"
-    Call hNewDocument
-
-    PrintLog " File / Printer Settings"
-    FilePrintersettings
-    Kontext "Active"
-    WaitSlot(1000)
-    if Active.Exists then
-        if Active.GetRT = 304 then
-            QAErrorLog "No Default Printer!"
-            Active.Ok
-
-            Kontext "DruckerEinrichten"
-            if DruckerEinrichten.Exists( 2 ) then
-                Call DialogTest ( DruckerEinrichten )
-                DruckerEinrichten.Cancel
-            end if
-        end if
-    else
-        Kontext "DruckerEinrichten"
-        Call DialogTest ( DruckerEinrichten )
-        DruckerEinrichten.Cancel
-        PrintLog " Cancel 'Printer Setup' dialog"
-    end if
-    PrintLog " Close active document"
-    Call hCloseDocument
-endcase
-
-'-----------------------------------------------------------
-
-testcase tMasterDocFilePagePreview
-    PrintLog "- File / Page Preview"
-    Dim gehtnicht as boolean
-    gehtnicht = FALSE
-    gApplication   = "MASTERDOCUMENT"
-    printlog " Open new document"
-    Call hNewDocument
-
-    printlog " Enter some text in document"
-    Call wTypeKeys("Just a small change!")
-    printlog " File / Page Preview"
-    FilePageView
-    WaitSlot (1000)
-    Kontext "DocPageViewWriter"
-    if DocPageViewWriter.NotExists then
-        Warnlog "Page Preview is not coming up!"
-        Kontext "Active"
-        if Active.Exists then
-            if Active.GetRT = 304 then
-                Active.No
-            end if
-        end if
-    else
-        if gehtnicht=FALSE then
-            Kontext "PreviewObjectbar"
-            if PreviewObjectbar.Exists = False then Call hToolbarSelect("PagePreview", true)
-            printlog " Select 'Zoom 100%' in toolbar"
-            try
-                Massstab.Select 4
-            catch
-                Warnlog "Unable to change Zoom factor in toolbar! (Bug#110498)"
-            endcatch
-
-            printlog " Click 'Print Page Preview' in toolbar"
-            Kontext "PreviewObjectbar"
-            DruckenSeitenansicht.Click
-            Kontext "Active"
-            if Active.Exists then
-                QAErrorlog "No default printer!"
-                Active.ok
-                Sleep 1
-                Kontext "Printing"
-                if Printing.Exists then Printing.Cancel
-            else
-                printlog " Close 'Print' dialog with cancel"
-                Kontext "Printing"
-                Printing.Cancel
-            end if
-
-            printlog " Close Page Preview with button 'Close Preview' in toolbar"
-            Kontext "PreviewObjectbar"
-            SeitenansichtSchliessen.Click
-        else
-            Warnlog "Objectbar not addressable!"
-        end if
-    end if
-
-    printlog " Close active document"
-    Call hCloseDocument
-    gApplication = "WRITER"
-endcase
diff --git a/testautomation/writer/required/includes/w_001b_.inc b/testautomation/writer/required/includes/w_001b_.inc
deleted file mode 100644
index 65f4794dcefe..000000000000
--- a/testautomation/writer/required/includes/w_001b_.inc
+++ /dev/null
@@ -1,845 +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 : helge.delfs@oracle.com
-'*
-'* short description :  Required-Testcases for the File-menu.
-'*
-'\***********************************************************************
-
-sub w_001b_
-
-    printLog Chr(13) + "--------- File Menu (w_001b_.inc) ----------"
-    gApplication = "WRITER"
-
-    Call tToolsXMLFilterSettings
-    Call tFileExportAsPDF
-    Call tExportAsPDFButton
-    Call tFileSendCreateMasterDocument
-    Call tFileSendCreateHTMLDocument
-    Call tFileSendOutlineToPresentation
-    Call tFileSendOutlineToClipboard
-    Call tFileSendCreateAutoabstract
-    Call tFileSendAutoabstractToPresentation
-
-    'Writer Master Document
-    gApplication = "MASTERDOCUMENT"
-    Call tMasterDocFileSaveWithPassword
-    Call tMasterDocFileReload
-    Call tMasterDocFileVersions
-    Call tMasterDocFileSendCreateHTMLDocument
-    Call tMasterDocFileSendOutlineToPresentation
-    Call tMasterDocFileSendOutlineToClipboard
-    Call tMasterDocFileSendCreateAutoabstract
-    Call tMasterDocFileSendAutoabstractToPresentation
-    gApplication = "WRITER"
-    
-end sub
-
-'-------------------------------------------------------------------------------
-
-testcase tFileSendCreateMasterDocument
-    PrintLog "- File / Send / Create Masterdocument"
-    if gApplication <> "WRITER" then
-        printlog "Not in : " + gApplication
-        goto endsub
-    endif
-
-    PrintLog "Open new document"
-    Call hNewDocument
-    Call wTypeKeys("File -> Send -> Create Master Document")
-    PrintLog "Choose File / Send /Create Master Document"
-    FileSendCreateMasterdocument
-    Kontext "SendMasterDocument"
-
-    PrintLog "Cancel File-Save-dialog"
-    SendMasterdocument.Cancel
-    Kontext "Active"
-    if Active.Exists then Active.OK
-    PrintLog "Close active document"
-    Call hCloseDocument
-endcase
-
-'-----------------------------------------------------------
-
-testcase tFileSendCreateHTMLDocument
-    PrintLog "- File / Send / Create HTML-Dokument"
-    PrintLog "Open new document"
-    Select Case gApplication
-    Case "WRITER", "MASTERDOCUMENT" : hNewDocument()
-    Case else
-        printlog "Not in WriterWeb!"
-        goto endsub
-    end select
-    PrintLog "Choose File / Send / Create HTML-Document"
-    FileSendCreateHTMLDocument
-
-    PrintLog "Cancel Filedialog"
-    Kontext "SendHTMLDocument"
-    SendHTMLDocument.Cancel
-    Kontext "Active"
-    if Active.Exists then Active.OK
-
-    PrintLog "Close documents"
-    Do Until GetDocumentCount = 0
-        Call hCloseDocument
-    Loop
-endcase
-
-'-----------------------------------------------------------
-
-testcase tFileSendOutlineToPresentation
-    Dim sFile$
-    PrintLog "- File / Send / Outline to Presentation"
-    Select Case gApplication
-    Case "WRITER"
-        sFile$ = "htmltest.sxw"
-    Case "MASTERDOCUMENT"
-        sFile$ = "htmltest.sxg"
-    Case "HTML"
-        printlog "Not in Writer/Web!"
-        goto endsub
-    end select
-    PrintLog "Open file ( gTesttoolPath + writer\required\input\ + htmltest.sxw )"
-    hFileOpenLocally(  gTesttoolPath + "writer\required\input\" + sFile$ )
-    Kontext "Navigator"
-    if Navigator.Exists then Navigator.Close
-    Sleep 1
-    Kontext "DocumentWriter"
-    PrintLog "File / Send / Outline to presentation"
-    try
-        FileSendOutlineToPresentation
-    catch
-        Warnlog "Unable to execute 'File -> Send -> Outline to Presentation'"
-        Call hCloseDocument
-        goto endsub
-    endcatch
-    Wait(500)
-
-    Kontext "DocumentImpressOutlineView"
-    if DocumentImpressOutlineView.Exists then
-        DocumentImpressOutlineView.TypeKeys "<Mod1 Home>"
-        DocumentImpressOutlineView.TypeKeys "<Shift End>"
-        Wait(500)
-        try
-            EditCopy
-            if GetClipboardText <> "Seite 1." then QAErrorlog "Wrong Outline in Impress Outlinemode"
-        catch
-            QAErrorlog "Send outline to presentation doesn't work correct."
-        endcatch
-    else
-        WarnLog "Outlinemode comes not up!"
-    endif
-
-    Kontext "Navigator"
-    hCloseDialog( Navigator, "Close,optional" )
-    hFileCloseAll()
-endcase
-
-'-----------------------------------------------------------
-
-testcase tFileSendOutlineToClipboard
-    Dim sFile$
-    PrintLog "- File / Send / Outline to Clipboard"
-    Select Case gApplication
-    Case "WRITER"
-        sFile$ = "htmltest.sxw"
-    Case "MASTERDOCUMENT"
-        sFile$ = "htmltest.sxg"
-    Case "HTML"
-        printlog "Not in Writer/Web!"
-        goto endsub
-    end select
-
-    PrintLog "Open file ( gTesttoolPath + writer\required\input\ + htmltest.sxw )"
-    hFileOpenLocally(  gTesttoolPath + "writer\required\input\" + sFile$ )
-    Sleep 1
-    PrintLog "File / Send / Outline to Clipboard"
-    try
-        FileSendOutlineToClipboard
-    catch
-        Warnlog "Unable to execute 'File -> Send -> Outline to Clipboard'"
-        Call hCloseDocument
-        goto endsub
-    endcatch
-
-    Sleep 1
-    PrintLog "Close active document"
-    Call hCloseDocument
-    WaitSlot(1000)
-    Call hNewDocument
-    PrintLog "Open new document"
-
-    WaitSlot(1000)
-
-    PrintLog "Paste outline in new document"
-    hUseAsyncSlot( "EditPaste" )
-    WaitSlot(1000)
-    Call wTypeKeys("<Up>", 6)
-    Call wTypeKeys("<Home><Shift End>")
-    hUseAsyncSlot( "EditCopy" )
-    if GetClipboardText <> "Seite 1." then QAErrorlog "Wrong Outline in Impress Outlinemode"
-    WaitSlot(1000)
-    PrintLog "Close active document"
-    Call hCloseDocument
-endcase
-
-'-----------------------------------------------------------
-
-testcase tFileSendCreateAutoabstract
-    Dim sFile$
-    PrintLog "- File / Send / Create Autoabstract"
-    Select Case gApplication
-    Case "WRITER"
-        sFile$ = "htmltest.sxw"
-    Case "MASTERDOCUMENT"
-        sFile$ = "htmltest.sxg"
-    Case "HTML"
-        printlog "Not in Writer/Web!"
-        goto endsub
-    end select
-
-    PrintLog "Open file ( gTesttoolPath + writer\required\input\ + htmltest.sxw )"
-    hFileOpenLocally(  gTesttoolPath + "writer\required\input\" + sFile$ )
-    Kontext "Navigator"
-    if Navigator.Exists then Navigator.Close
-    Sleep 1
-    Kontext "DocumentWriter"
-    PrintLog "File / Send / Create Autoabstract"
-    try
-        FileSendCreateAutoabstract
-    catch
-        Warnlog "Unable to execute 'File -> Send -> Create Autoabstract'"
-        Call hCloseDocument
-        goto endsub
-    endcatch
-    WaitSlot(2000)
-
-    PrintLog "Close upcoming dialog with 'Ok"
-    Kontext "AutoAbstractErzeugen"
-    AutoAbstractErzeugen.OK
-    Sleep 1
-    Call wTypeKeys("<Home><Up>", 10)
-    Call wTypeKeys("<Shift End>")
-    try
-        EditCopy
-        WaitSlot(1000)
-        if GetClipboardText <> "Seite 1." then QAErrorlog "Wrong Outline in Impress Outlinemode"
-    catch
-        QAErrorlog "Empty autoabstract created"
-    endcatch
-
-    Kontext "Navigator"
-    hCloseDialog( Navigator, "Close,optional" )
-    hFileCloseAll()
-
-endcase
-
-'-----------------------------------------------------------
-
-testcase tFileSendAutoabstractToPresentation
-    Dim sFile$
-    PrintLog "- File / Send / Autoabstract to Presentation"
-    Select Case gApplication
-    Case "WRITER"
-        sFile$ = "htmltest.sxw"
-    Case "MASTERDOCUMENT"
-        sFile$ = "htmltest.sxg"
-    Case "HTML"
-        printlog "Not in Writer/Web!"
-        goto endsub
-    end select
-
-    PrintLog "Open file ( gTesttoolPath + writer\required\input\ + htmltest.sxw )"
-    hFileOpenLocally(  gTesttoolPath + "writer\required\input\" + sFile$ )
-    Kontext "Navigator"
-    if Navigator.Exists then Navigator.Close
-    Sleep 1
-    Kontext "DocumentWriter"
-    PrintLog "File / Send / Create Autoabstract To Presentation"
-    try
-        FileSendAutoabstractToPresentation
-    catch
-        Warnlog "Unable to execute 'File -> Send -> Autoabstract to Presentation'"
-        Call hCloseDocument
-        goto endsub
-    endcatch
-
-    Sleep 1
-    Kontext "AutoAbstractErzeugen"
-    PrintLog "Close upcoming dialog with 'Ok'"
-    AutoAbstractErzeugen.OK
-
-    Sleep 2
-    Kontext "DocumentImpressOutlineView"
-    if DocumentImpressOutlineView.Exists then
-        PrintLog "Point cursor to beginning of document"
-        DocumentImpressOutlineView.TypeKeys "<Mod1 Home>"
-        PrintLog "Mark text"
-        DocumentImpressOutlineView.TypeKeys "<Shift End>"
-        try
-            EditCopy
-            WaitSlot(1000)
-            if GetClipboardText <> "Seite 1." then QAErrorlog "Wrong Outline in Impress Outlinemode"
-        catch
-            QAErrorlog "Edit / copy disabled. Maybe data could not be pasted correctly!"
-        endcatch
-    else
-        Warnlog "- Outline in Impress not created!"
-    endif
-    Kontext "Navigator"
-    hCloseDialog( Navigator, "Close,optional" )
-    Call hCloseDocument
-    PrintLog "Close active document"
-
-    hSetDocumentContext()
-    FileClose
-endcase
-'--------------------------------------------------------------------------------------------------------------------------------------------
-
-testcase tMasterDocFileSaveWithPassword
-    Dim DokumentPfad$
-    Dim Datei$
-    Dim sFile$
-    Dim sFile2$
-
-    Printlog "- File / Save with Password"
-    sFile$ = "password.odm"
-    sFile2$ = "password2.odm"
-
-    gApplication = "MASTERDOCUMENT"
-    PrintLog "Open new document"
-    Call hNewDocument
-    PrintLog "Enter some text into document"
-    Call wTypeKeys("This document will be saved with a password!")
-
-    if gUseSysDlg = True then goto endsub
-    Datei$ = ConvertPath ( gOfficePath + "user\work\" + sFile$ )
-    if Dir (Datei$) <> "" then kill Datei$
-
-    PrintLog "Choose File / Save as."
-    FileSaveAs
-    PrintLog "enter destination and check 'Password'"
-    Kontext "SpeichernDlg"
-    if Passwort.IsEnabled then
-        Passwort.Check
-    else
-        Warnlog "- Not able to save with Password -> Checkbox is disabled! Maybe default-filter wrong!?"
-        SpeichernDlg.Cancel
-        PrintLog "if Checkbox is disabled the test stops here!"
-        Call hCloseDocument
-        goto endsub
-    endif
-
-    Dateiname.SetText Datei$
-    PrintLog "Save your document"
-    Speichern.Click
-    Sleep 1
-    Kontext "Active"
-    if Active.Exists (1) then Active.Yes
-
-    Sleep 1
-    PrintLog "Password dialog has to come up"
-    Kontext "PasswordFileSave"
-    if PasswordFileSave.Exists then
-        PrintLog "Enter your password"
-        Password.SetText "12345"
-        PrintLog "Re-Enter a wrong passwort"
-        PasswordConfirm.Settext "54321"
-        PasswordFileSave.OK
-        Sleep 2
-    else
-        Warnlog "- Password-Dialog not up !"
-    endif
-
-    Kontext "Active"
-    Sleep 1
-    PrintLog "A messagebox has to come up, warns of wrong confirmation"
-    if Active.Exists(1) then
-        Active.OK
-    else
-        Warnlog "Able to save document with wrong password"
-    endif
-
-    Kontext "PasswordFileSave"
-    if PasswordFileSave.Exists then
-        PrintLog "Enter new password, and re-enter the same password"
-        Password.SetText "12345"
-        PasswordConfirm.SetText "12345"
-        PasswordFileSave.OK
-    else
-        Warnlog "- Password-Dialog not up !"
-    endif
-
-    Sleep 1
-    PrintLog "Close the document"
-    FileClose
-    WaitSlot(2000)
-    PrintLog "Open previous saved document"
-    Call hFileOpen( Datei$)
-
-    Kontext "PasswordFileOpen"
-    PrintLog "Enter a wrong password."
-    if PasswordFileOpen.Exists then
-        PasswortName.SetText "34567"
-        PasswordFileOpen.OK
-    else
-        Warnlog "- Password-Dialog not up or Document couldn't be loaded!"
-    endif
-
-    PrintLog "A messagebox has to come up, warns of wrong password"
-    Kontext "Active"
-    Sleep 1
-    if Not Active.Exists(1) then
-        Warnlog "Able to load document with wrong password"
-    else
-        Active.OK
-    endif
-
-    Kontext "PasswordFileOpen"
-    PrintLog "Close password dialog"
-    if PasswordFileOpen.Exists then
-        PasswordFileOpen.Cancel
-    endif
-
-    Sleep 1
-    PrintLog "File / Open again your previous saved document"
-    Call hFileOpen( Datei$)
-    PrintLog "Enter your password in password dialog"
-    Kontext "PasswordFileOpen"
-    if PasswordFileOpen.Exists then
-        PasswortName.SetText "12345"
-        PasswordFileOpen.OK
-    else
-        Warnlog "- Password-Dialog not up!"
-    endif
-    Sleep 1
-
-    Datei$ = ConvertPath ( gOfficePath + "user\work\" + sFile2$ )
-    if Dir (Datei$) <> "" then kill Datei$
-    PrintLog "File / Save as ..."
-    FileSaveAs
-    Kontext "SpeichernDlg"
-    if Not Passwort.IsChecked = True then
-        if gPlatgroup = "unx" then
-            QAErrorlog "#i73968#Opening a password protected file looses focus after loading"
-        else
-            Warnlog "#i36015#Checkbox 'Save with password' is not checked in file-dialog !"
-        endif
-        Passwort.Check
-        SpeichernDlg.Cancel
-    else
-        Dateiname.SetText Datei$
-        Speichern.Click
-        Kontext "Active"
-        if Active.Exists(2) then Active.Yes
-        PrintLog "Click on 'Save' in file open dialog"
-        Kontext "PasswordFileSave"
-        if Not PasswordFileSave.Exists(1) then
-            Warnlog "Passworddialog is not coming up on saving document"
-        else
-            Password.SetText "54321"
-            PasswordConfirm.SetText "54321"
-            PasswordFileSave.OK
-            PrintLog "The password dialog should come up"
-            Sleep 1
-            FileClose
-            PrintLog "File / Close and open your document again"
-            hFileOpen( Datei$)
-            Sleep 1
-            Kontext "PasswordFileOpen"
-            PrintLog "Now the passwort dialog should come up"
-            if Not PasswordFileOpen.Exists(2) then
-                Warnlog "Passworddialog is not coming up on reload"
-            else
-                PasswortName.SetText "54321"
-                PasswordFileOpen.OK
-            endif
-        endif
-    endif
-    PrintLog "Close active document"
-    Call hCloseDocument
-endcase
-
-'-----------------------------------------------------------
-
-testcase tMasterDocFileReload
-
-    Dim sDocumentPath as string
-    Dim sFile as string
-    Dim WriterFilterExtension(10) as string
-    Dim MasterDocFilterExtension(10) as string
-
-    WriterFilterExtension() = hGetFilternameExtension ( "writer8" )
-    MasterDocFilterExtension() = hGetFilternameExtension ( "writerglobal8" )
-
-    PrintLog "- File / Reload"
-    sFile = "reload." & MasterDocFilterExtension(0)
-    sDocumentPath = gOfficePath + "user\work\" + sFile
-
-    gApplication = "MASTERDOCUMENT"
-    
-    PrintLog "Open new document"
-    Call hNewDocument
-
-    PrintLog "Enter some text, save and close document"
-    Call wTypeKeys("File -> Reload!")
-    Call hFileSaveAsKill ( sDocumentPath )
-    hUseAsyncSlot( "FileClose" )
-    
-    Kontext
-    if ( MessageBox.Exists( 1 ) ) then
-        WarnLog "Messagebox after saving and closing : " + MessageBox.GetText
-        MessageBox.Yes
-    endif
-
-    PrintLog "Open previous saved document"
-    Call hFileOpen(  sDocumentPath )
-    
-    PrintLog "Insert a table in document"
-    Call hTabelleEinfuegen
-    
-    PrintLog "File / Reload"
-    hUseAsyncSlot( "FileReload" )
-
-    PrintLog "Quit messagebox with 'No'"
-    Kontext "Active"
-    if ( Active.exists( 1 ) ) then
-        Active.No
-    else
-        warnlog( "Messagebox missing" )
-    endif
-
-    PrintLog "File / Reload again and quit messagebox with yes"
-    hUseAsyncSlot( "FileReload" )
-
-    Kontext "Active"
-    if ( Active.exists( 2 ) ) then
-        Active.Yes
-    else
-        warnlog( "Messagebox missing" )
-    endif
-    
-    PrintLog "Close active document"
-    Call hCloseDocument
-    hDeleteFile( sDocumentPath )
-    
-endcase
-
-'-----------------------------------------------------------
-
-testcase tMasterDocFileVersions
-
-    Dim sFile as string
-    Dim WriterFilterExtension(10) as string
-    Dim MasterDocFilterExtension(10) as string
-
-    WriterFilterExtension() = hGetFilternameExtension ( "writer8" )
-    MasterDocFilterExtension() = hGetFilternameExtension ( "writerglobal8" )
-
-    gApplication = "MASTERDOCUMENT"
-    
-    PrintLog "- File / Versions"
-    sFile = "kann_weg." & MasterDocFilterExtension(0)
-
-    PrintLog "Open new document"
-    Call hNewDocument
-    Call wTypeKeys ("File version")
-    
-    PrintLog "enter some text in documet and save it"
-    Call hFileSaveAsKill(gOfficePath + "user\work\" + sFile )
-
-    try
-        PrintLog "Choose File / Versions"
-        FileVersions
-    catch
-        Warnlog "- File / Versions not accessible!"
-        goto endsub
-    endcatch
-
-    Kontext "Versionen"
-    if ( Versionen.exists( 2 ) ) then
-    
-        Call DialogTest ( Versionen )
-        Speichern.Click
-        
-        PrintLog "In Version-dialog click 'Save New Version'"
-        Kontext "VersionskommentarEingeben"
-        if ( VersionskommentarEingeben.exists( 1 ) ) then
-            Call DialogTest ( VersionskommentarEingeben )
-            
-            PrintLog "Cancel dialog 'Insert version comment'"
-            VersionskommentarEingeben.Cancel
-        else
-            warnlog( "Dialog <VersionskommentarEingeben> is not available" )
-        endif
-
-        Kontext "Versionen"
-        PrintLog "Close dialog"
-        Versionen.Close()
-    else
-        warnlog( "Dialog <Versionen> is not available" )
-    endif
-    
-    PrintLog "Close active document"
-    Call hCloseDocument
-    
-endcase
-
-'-----------------------------------------------------------
-
-testcase tMasterDocFileSendCreateHTMLDocument
-
-    PrintLog "- File / Send / Create HTML-Dokument"
-    
-    gApplication = "MASTERDOCUMENT"
-    
-    PrintLog "Open new document"
-    Call hNewDocument
-
-    PrintLog "Choose File / Send / Create HTML-Document"
-    FileSendCreateHTMLDocument
-
-    PrintLog "Cancel Filedialog"
-    Kontext "SendHTMLDocument"
-    if ( SendHTMLDocument.exists( 2 ) ) then
-        SendHTMLDocument.Cancel
-        
-        Kontext "Active"
-        if Active.Exists( 1 ) then 
-            warnlog( "Unexpected messgebox" & Active.getText() )
-            Active.OK
-        endif
-    else
-        warnlog( "Dialog <SendHTMLDocument> is not available" )
-    endif
-        
-    PrintLog "Close active document"
-    Call hCloseDocument
-    
-endcase
-
-'-----------------------------------------------------------
-
-testcase tMasterDocFileSendOutlineToPresentation
-
-    PrintLog "- File / Send / Outline to Presentation"
-
-    Dim sFile as string : sFile = "htmltest.sxg"
-
-    gApplication = "MASTERDOCUMENT"
-
-    hFileOpenLocally(  gTesttoolPath + "writer\required\input\" + sFile )
-    
-    Kontext "Navigator"
-    if ( Navigator.Exists ) then 
-        Navigator.Close
-        WaitSlot()
-    endif
-    
-    Kontext "DocumentWriter"
-    PrintLog "File / Send / Outline to presentation"
-    try
-        FileSendOutlineToPresentation
-    catch
-        Warnlog "Unable to execute 'File -> Send -> Outline to Presentation'"
-        Call hCloseDocument
-        goto endsub
-    endcatch
-
-    Kontext "DocumentImpressOutlineView"
-    if ( DocumentImpressOutlineView.Exists( 2 ) ) then
-        DocumentImpressOutlineView.TypeKeys "<Mod1 Home>"
-        DocumentImpressOutlineView.TypeKeys "<Shift End>"
-        hUseAsyncSlot( "EditCopy" )
-        if ( GetClipboardText <> "Seite 1." ) then 
-            QAErrorlog "Wrong Outline in Impress Outlinemode"
-        endif
-    else
-        WarnLog "Outlinemode comes not up!"
-    endif
-
-    Kontext "Navigator"
-    hCloseDialog( Navigator, "Close,optional" )
-    
-    PrintLog "Close documents"
-    hFileCloseAll()
-    
-endcase
-
-'-----------------------------------------------------------
-
-testcase tMasterDocFileSendOutlineToClipboard
-
-    gApplication = "MASTERDOCUMENT"
-    Dim sFile as string : sFile = "htmltest.sxg"
-
-    PrintLog "- File / Send / Outline to Clipboard"
-    hFileOpenLocally(  gTesttoolPath + "writer\required\input\" + sFile )
-    
-    PrintLog "File / Send / Outline to Clipboard"
-    try
-        FileSendOutlineToClipboard
-    catch
-        Warnlog "Unable to execute 'File -> Send -> Outline to Clipboard'"
-        Call hCloseDocument
-        goto endsub
-    endcatch
-
-    PrintLog "Close active document"
-    Call hCloseDocument
-    
-    PrintLog "Open new document"
-    Call hNewDocument
-    
-    PrintLog "Paste outline in new document"
-    hUseAsyncSlot( "EditPaste" )
-    Call wTypeKeys("<Up>", 6)
-    Call wTypeKeys("<Home><Shift End>")
-    hUseAsyncSlot( "EditCopy" )
-    if ( GetClipboardText <> "Seite 1." ) then 
-        QAErrorlog "Wrong Outline in Impress Outlinemode"
-    endif
-
-    PrintLog "Close active document"
-    Call hCloseDocument
-    gApplication = "WRITER"
-    
-endcase
-
-'-----------------------------------------------------------
-
-testcase tMasterDocFileSendCreateAutoabstract
-
-    gApplication = "MASTERDOCUMENT"
-    Dim sFile as string : sFile = "htmltest.sxg"
-
-    PrintLog "- File / Send / Create Autoabstract"
-    hFileOpenLocally(  gTesttoolPath + "writer\required\input\" + sFile )
-    
-    Kontext "Navigator"
-    hCloseDialog( Navigator, "Close,optional" )
-
-    Kontext "DocumentWriter"
-    PrintLog "File / Send / Create Autoabstract"
-    try
-        FileSendCreateAutoabstract
-    catch
-        Warnlog "Unable to execute 'File -> Send -> Create Autoabstract'"
-        Call hCloseDocument
-        goto endsub
-    endcatch
-
-    PrintLog "Close upcoming dialog with 'Ok"
-    Kontext "AutoAbstractErzeugen"
-    if ( AutoAbstractErzeugen.exists( 2 ) ) then
-    
-        AutoAbstractErzeugen.OK()
-
-        Call wTypeKeys("<Home><Up>", 10)
-        Call wTypeKeys("<Shift End>")
-        
-        hUseAsyncSlot( "EditCopy" )
-        if GetClipboardText <> "Seite 1." then 
-            QAErrorlog "Wrong Outline in Impress Outlinemode"
-        endif
-    else
-        warnlog( "Dialog <AutoAbstractErzeugen> is not available" )
-    endif    
-
-    Kontext "Navigator"
-    hCloseDialog( Navigator, "Close,optional" )
-
-    PrintLog "Close documents"
-    hFileCloseAll()    
-    gApplication = "WRITER"
-    
-endcase
-
-'-----------------------------------------------------------
-
-testcase tMasterDocFileSendAutoabstractToPresentation
-
-    gApplication = "MASTERDOCUMENT"
-    Dim sFile as string : sFile = "htmltest.sxg"
-    
-    PrintLog "- File / Send / Autoabstract to Presentation"
-    PrintLog "Open file ( gTesttoolPath + writer\required\input\ + htmltest.sxw )"
-    hFileOpenLocally(  gTesttoolPath + "writer\required\input\" + sFile )
-    
-    Kontext "Navigator"
-    hCloseDialog( Navigator, "Close,optional" )
-    
-    Kontext "DocumentWriter"
-    PrintLog "File / Send / Create Autoabstract To Presentation"
-    try
-        FileSendAutoabstractToPresentation
-    catch
-        Warnlog "Unable to execute 'File -> Send -> Autoabstract to Presentation'"
-        Call hCloseDocument
-        goto endsub
-    endcatch
-
-    Kontext "AutoAbstractErzeugen"
-    if ( AutoAbstractErzeugen.exists( 1 ) ) then
-        PrintLog "Close upcoming dialog with 'Ok'"
-        AutoAbstractErzeugen.OK
-    else
-        warnlog( "Dialog <AutoAbstractErzeugen> is not available" )
-    endif
-
-    Kontext "DocumentImpressOutlineView"
-    if ( DocumentImpressOutlineView.Exists( 2 ) ) then
-    
-        PrintLog "Point cursor to beginning of document"
-        DocumentImpressOutlineView.TypeKeys "<Mod1 Home>"
-        
-        PrintLog "Mark text"
-        DocumentImpressOutlineView.TypeKeys "<Shift End>"
-        try
-            EditCopy
-            WaitSlot(1000)
-            if GetClipboardText <> "Seite 1." then QAErrorlog "Wrong Outline in Impress Outlinemode"
-        catch
-            QAErrorlog "Edit / copy disabled. Maybe data could not be pasted correctly!"
-        endcatch
-    else
-        Warnlog "- Outline in Impress not created!"
-    endif
-    
-    Kontext "Navigator"
-    hCloseDialog( Navigator, "Close,optional" )
-
-    Call hCloseDocument
-    PrintLog "Close active document"
-
-    hSetDocumentContext()
-    FileClose
-    gApplication = "WRITER"
-    
-endcase
-'-------------------------------------------------------------------------------
diff --git a/testautomation/writer/required/includes/w_002_.inc b/testautomation/writer/required/includes/w_002_.inc
deleted file mode 100644
index e19b37514c99..000000000000
--- a/testautomation/writer/required/includes/w_002_.inc
+++ /dev/null
@@ -1,1399 +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 : helge.delfs@oracle.com                                                **
-'*                                                                            **
-'* short description :                                                        **
-'*                                                                            **
-'\******************************************************************************
-
-sub w_002_
-
-    printLog Chr(13) + "--------- Edit Menu ( w_002_.inc ) ----------"
-    gApplication = "WRITER"
-
-    Call tEditUndoRedo
-    Call tEditRepeat
-
-    Call tEditPaste
-    Call tEditPasteSpecial
-    Call tEditSelectionMode
-
-    Call tEditChanges
-    Call tEditCompareDocument
-    Call tEditFindAndReplace
-    Call tViewNavigator
-    Call tEditAutoText
-    Call tEditHyperlink
-
-    Call tEditFields
-    Call tEditFieldsInputList
-    Call tEditFootnote
-    Call tEditIndexEntry
-
-    Call tEditLinks
-    Call tEditPlugIn
-    Call tEditImageMap
-    Call tEditObjectEdit
-
-    'Writer Master Document
-    gApplication = "MASTERDOCUMENT"
-    Call tMasterDocEditNavigator
-
-    gApplication "HTML"
-    Call tEditFields
-
-    gApplication = "WRITER"
-
-end sub
-
-'-----------------------------------------------------------
-
-testcase tEditUndoRedo
-    PrintLog "- Edit/Undo - Redo"
-
-    PrintLog "Open new document"
-    hNewDocument()
-
-    PrintLog "Insert table"
-    Call hTabelleEinfuegen
-
-    PrintLog "Edit / Undo"
-    hUseAsyncSlot( "EditUndo" )
-    
-    PrintLog "Undo / Redo"
-    hUseAsyncSlot( "EditRedo" )
-    
-    PrintLog "Edit / Undo"
-    hUseAsyncSlot( "EditUndo" )
-    
-    PrintLog "File / Close"
-    hUseAsyncSlot( "FileClose" )
-
-    Kontext "Active"
-    if ( Active.Exists( 1 ) ) then
-        warnlog( "No messagebox was expected upon file close" )
-        printlog( Active.getText )
-        Active.no()
-    end if
-
-endcase
-
-'----------------------------------------------------
-
-testcase tEditRepeat
-    PrintLog "- Edit/Repeat"
-
-    PrintLog "Open new document"
-    Call hNewDocument
-
-    PrintLog "Insert table"
-    Call hTabelleEinfuegen
-
-    PrintLog "Move cursor out of table"
-    Call wTypeKeys("<Down><Down>")
-
-    PrintLog "Edit / Repeat"
-    hUseAsyncSlot( "EditRepeat" )
-
-    PrintLog "Close active document"
-    Call hCloseDocument
-endcase
-
-'----------------------------------------------------
-
-testcase tEditPaste
-    PrintLog "- Edit/Paste"
-
-    PrintLog "Open new document"
-    Call hNewDocument
-
-    PrintLog "Insert some text in document"
-    Call wTypeKeys("What a beatiful day !")
-
-    PrintLog "Edit / Select All"
-    hUseAsyncSlot( "EditSelectAll" )
-    
-    PrintLog "Edit / Cut"
-    hUseAsyncSlot( "EditCut" )
-    
-    PrintLog "Edit / Paste"
-    hUseAsyncSlot( "EditPaste" )
-    
-    PrintLog "Type <Shift Home >"
-    Call wTypeKeys("<Shift Home>")
-    
-    PrintLog "Edit / Copy"
-    hUseAsyncSlot( "EditCopy" )
-    
-    PrintLog "Enter 2 Line breaks"
-    Call wTypeKeys("<Return>", 2)
-    
-    PrintLog "Edit / Paste"
-    hUseAsyncSlot( "EditPaste" )
-    
-    PrintLog "Edit / Select All"
-    hUseAsyncSlot( "EditSelectAll" )
-    
-    PrintLog "Edit / Cut"
-    hUseAsyncSlot( "EditCut" )
-    
-    PrintLog "Close active document"
-    Call hCloseDocument
-endcase
-
-'----------------------------------------------------
-
-testcase tEditPasteSpecial
-    PrintLog "- Edit/Paste Special"
-    PrintLog "Open new document"
-    Call hNewDocument
-
-    PrintLog "  - External Clipboard"
-    PrintLog "Enter some text in external clipboard"
-    SetClipboard "Text from external clipboard!"
-
-    PrintLog "Paste from external clipboard with Edit / Paste in Office"
-    hUseAsyncSlot( "EditPaste" )
-
-    Call wTypeKeys("<Mod1 A>")
-    Wait(200)
-    hUseAsyncSlot( "EditCopy" )
-
-    if GetClipboardText <> "Text from external clipboard!" then
-        Warnlog "External Clipboard not available!"
-        Warnlog "Is: " & GetClipboardText
-    end if
-    Call wTypeKeys("<End><Return>")
-    SetClipboard ""
-    SetClipboard "2nd Text from external clipboard!"
-    try
-        PrintLog "Edit / Paste / Special"
-        hUseAsyncSlot( "EditPasteSpecialWriter" )
-
-        Kontext "InhaltEinfuegen"
-        if ( InhaltEinfuegen.Exists( 2 ) ) then
-            try
-                Auswahl.Select 1
-            catch
-                Warnlog "Unable to select entry in format list !"
-                InhaltEinfuegen.Close
-                Call hCloseDocument
-                goto endsub
-            endcatch
-            InhaltEinfuegen.OK
-            Wait(200)
-            Kontext "Active"
-            if Active.Exists then
-                if Active.GetRT = 304 then
-                    Warnlog "Maybe Bug#109331"
-                    Warnlog Active.Gettext
-                    try
-                        Active.Ok
-                    catch
-                        Active.No
-                    endcatch
-                end if
-            else
-                Call wTypeKeys("<Home><Shift End>")
-                hUseAsyncSlot( "EditCopy" )
-                if GetClipboardText <> "2nd Text from external clipboard!" then Warnlog "Wrong Text inserted! Is: " & GetClipboardText
-            end if
-        else
-            Warnlog "Dialog 'Paste Special' is not up!"
-        end if
-    catch
-        Exceptlog
-    endcatch
-
-    PrintLog "  - Internal Clipboard with StarOffice Writer-Text"
-    PrintLog "Enter some text in writer and copy it"
-    Call wTypeKeys("<Return>Text from internal clipboard<Shift Home>")
-    hUseAsyncSlot( "EditCopy" )
-    Call wTypeKeys("<End><Return>")
-    hUseAsyncSlot( "EditPasteSpecialWriter" )
-    
-    PrintLog "Edit / Paste / Special"
-    Kontext "InhaltEinfuegen"
-    if ( InhaltEinfuegen.Exists( 2 ) ) then
-        DialogTest ( InhaltEinfuegen )
-        Auswahl.Select 1
-        InhaltEinfuegen.OK
-        Call wTypeKeys "<Home><Shift End>"
-        hUseAsyncSlot( "EditCopy" )
-        if GetClipboardText <> "Text from internal clipboard" then Warnlog "Wrong Text inserted! Is: " & GetClipboardText
-    else
-        Warnlog "Dialog 'Paste Special' is not up!"
-    end if
-    
-    Call hCloseDocument
-    PrintLog "Close active document"
-    
-endcase
-
-'----------------------------------------------------
-
-testcase tEditSelectionMode
-
-    PrintLog "    - Edit - Selection Mode"
-    PrintLog "    Open new writer document"
-    Call hNewDocument
-
-    PrintLog "    Try to switch to / activate the Block-selectionmode."
-    if ( hUseAsyncSlot( "EditSelectionModeBlock" ) = -1 ) then
-        warnlog "    Could not activate Blockmode via Edit-menu."
-    endif
-
-    PrintLog "    Try to switch to / activate the Standard-selectionmode."
-    if ( hUseAsyncSlot( "EditSelectionModeStandard" ) = -1 ) then
-        warnlog "    Could not activate Blockmode via Edit-menu."
-    endif
-
-    PrintLog "    Close active document."
-    Call hCloseDocument
-
-endcase 'tEditSelectionMode
-
-'----------------------------------------------------
-
-testcase tEditChanges
-
-    PrintLog "- Edit/Changes"
-    if gApplication = "HTML" then
-        printlog "Not in WriterWeb!"
-        goto endsub
-    end if
-    
-    PrintLog "Open new document"
-    Call hNewDocument
-
-    PrintLog "Enter some text in document"
-    Call wTypeKeys("Hallo<Return><Return>")
-
-    PrintLog "Select Edit / Changes / Record"
-    hUseAsyncSlot( "EditChangesRecord" )
-
-    PrintLog "Enter some more text in document"
-    Call wTypeKeys("Aenderung 1<Return><Up><Up><End>")
-    Call wTypeKeys("<Backspace>", 4)
-
-    PrintLog "Select Edit / Changes / Record"
-    hUseAsyncSlot( "EditChangesRecord" )
-
-    PrintLog "Select Edit / Changes / Show"
-    hUseAsyncSlot( "EditChangesShow" )
-
-    PrintLog "Select Edit / Changes / Show"
-    hUseAsyncSlot( "EditChangesShow" )
-
-    PrintLog "Select Edit / Changes / Protect Trace"
-    hUseAsyncSlot( "EditChangesProtectTrace" )
-
-    PrintLog "Passwort-dialog has to come up, cancel it"
-    Kontext "Passwort"
-    hCloseDialog( Passwort, "close" )
-
-    PrintLog "Edit / Changes / Accept or Reject"
-    EditChangesAcceptOrReject
-
-    PrintLog "Dialog 'Accept or reject changes' has to come up"
-    Kontext "Redlining"
-    if Redlining.Exists then
-        PrintLog "Step through all Tabpages"
-        TabControl.SetPage TabListe
-        Call DialogTest ( Redlining )
-        TabControl.SetPage TabFilter
-        Call DialogTest ( Redlining )
-        Redlining.Close
-        PrintLog "Close dialog"
-    else
-        Warnlog "Dialog 'Redlining' not opened!"
-    end if
-
-    Call wTypeKeys("<Down><Right>")
-
-    PrintLog "Point cursor into a changed text in document"
-    PrintLog "Edit / Changes / Comment"
-    if ( hUseAsyncSlot( "EditChangesComment" ) = -1 ) then
-        Call wTypeKeys("<Up>")
-        if ( hUseAsyncSlot( "EditChangesComment" ) = -1 ) then
-            Warnlog "Unable to execute 'Edit / Changes / Comment!"
-        endif
-    endif
-    
-    Kontext "Kommentar"
-    PrintLog "Dialog to comment a change has to come up"
-    if ( Kommentar.Exists( 5 ) ) then
-        Call DialogTest ( Kommentar )
-        Kommentar.Cancel
-    else
-        Warnlog "Dialog 'Comment' not opened!"
-        PrintLog "Close dialog 'Comment'"
-    end if
-    
-    PrintLog "Close active document"
-    Call hCloseDocument
-
-endcase
-
-'----------------------------------------------------
-
-testcase tEditCompareDocument
-
-    PrintLog "- Edit/Compare Document"
-
-    dim sFile as string
-        sFile = gTesttoolPath & "writer\required\input\bt.sxw"
-
-    if ( gApplication <> "WRITER" ) then
-        printlog( "Test only designed for WRITER, skipping" )
-        goto endsub
-    endif
-
-    call hNewDocument()
-
-    printlog( "Open test document")    
-    EditCompareDocumentCalc
-
-    Kontext "OeffnenDlg"
-    printlog( "File Open dialog" )
-    if ( OeffnenDlg.exists( 2 ) ) then
-
-        printlog( "Load file: " & sFile )
-        Dateiname.SetText ConvertPath ( sFile )
-        Oeffnen.Click()
-
-        Kontext "FilterAuswahl"
-        printlog( "Check for filterselection dialog (comes up e.g. if file is broken)" )
-        if Filterauswahl.Exists( 2 ) then
-            warnlog( "Dialog <Filterauswahl> was not expected at this point" )
-            Filterauswahl.OK()
-        else
-            printlog( "No dialog <Filterauswahl>, good" )
-        endif
-        
-        Kontext "Active"
-        if Active.Exists( 1 ) then
-            warnlog( "Unexpected messagebox displayed:" )
-            printlog( Active.getText() )
-            Active.Ok()
-        else
-            printlog( "No unexpected messageboxes, good." )
-        endif
-
-        Kontext "Redlining"
-        PrintLog "Dialog 'Accept and Reject changes' has to come up"
-        if Redlining.Exists( 1 ) then
-            TabControl.SetPage TabListe
-            wait 200
-            Kontext "Redlining"
-            TabControl.SetPage TabFilter
-            Kontext "Redlining"
-            hCloseDialog( Redlining, "close" )
-        else
-            Warnlog "- Dialog 'Redlining' does not exist!"
-        endif
-    else
-        warnlog( "Dialog <FileOpen> did not open")
-    endif
-
-    PrintLog "Close active document"
-    Call hCloseDocument
-    
-endcase
-
-'----------------------------------------------------
-
-testcase tEditFindAndReplace
-    PrintLog "- Edit/Find & Replace"
-
-    PrintLog "Open new document"
-    Call  hNewDocument
-    EditSearchAndReplace
-    PrintLog "Edit / Find and Replace"
-    Kontext "FindAndReplace"
-    if Attributes.IsVisible = False then
-        More.Click
-    end if
-
-    Attributes.Click
-    PrintLog "in 'Find&Replace' dialog click 'Attributess'"
-    Kontext "Attribute"
-    Call DialogTest ( Attribute )
-    PrintLog "Cancel dialog 'Attributess'"
-    Attribute.Cancel
-
-    Kontext "FindAndReplace"
-    Call DialogTest ( FindAndReplace )
-    PrintLog "In Find&Replace dialog uncheck 'Match case'"
-    SimilaritySearch.UnCheck
-    PrintLog "Click 'Format'"
-    Formats.Click
-    PrintLog "In dialog 'Text format' step throug all tabpages"
-
-    Kontext
-    active.SetPage TabFont
-    kontext "TabFont"
-    Call DialogTest ( TabFont )
-    Kontext
-    active.SetPage TabFontEffects
-    kontext "TabFontEffects"
-    Call DialogTest ( TabFontEffects )
-
-    Kontext
-    active.SetPage TabEinzuegeUndAbstaende
-    kontext "TabEinzuegeUndAbstaende"
-    Call DialogTest ( TabEinzuegeUndAbstaende )
-
-    Kontext
-    Active.SetPage TabAusrichtungAbsatz
-    Kontext "TabAusrichtungAbsatz"
-    Call DialogTest ( TabAusrichtungAbsatz )
-
-    Kontext
-    active.SetPage TabTextfluss
-    kontext "TabTextfluss"
-    Call DialogTest ( TabTextfluss )
-
-    Kontext
-    active.SetPage TabHintergrund
-    kontext "TabHintergrund"
-    Call DialogTest ( TabHintergrund )
-    TabHintergrund.Cancel
-    PrintLog "Close 'Text Format' dialog with cancel"
-    Wait 300
-
-    Kontext "FindAndReplace"
-    PrintLog "In Find&Replace' select 'Similarity Search'"
-    SimilaritySearch.Check
-    PrintLog "The Searchbutton should be enabled, click it"
-    SimilaritySearchFor.Click
-    wait 300
-
-    Kontext "Aehnlichkeitssuche"
-    DialogTest ( Aehnlichkeitssuche )
-    Aehnlichkeitssuche.Cancel
-
-    wait 300
-    PrintLog "Close 'Similarity Search' button with cancel"
-    Kontext "FindAndReplace"
-    SimilaritySearch.Uncheck
-    More.Click
-    FindAndReplace.Close
-
-    Call hCloseDocument
-    PrintLog "Close active document"
-endcase
-
-'----------------------------------------------------
-
-testcase tViewNavigator
-    printlog "- Edit/Navigator"
-    Dim ToolboxOk as boolean
-
-    Call hNewDocument
-    PrintLog "Open new document"
-
-    if gApplication = "MASTERDOCUMENT" then
-        Kontext "NavigatorGlobalDoc"
-        if Not NavigatorGlobalDoc.Exists then ViewNavigator
-        Kontext "NavigatorGlobalDoc"
-        Call DialogTest ( NavigatorGlobalDoc )
-
-        printlog " - Umschalten"
-        GlobaldokumentToolbox.Click Umschalten
-        Sleep 5
-        kontext "NavigatorWriter"
-
-        try
-            Toolbox.TearOff Navigation
-            Kontext "NavigationsFenster"
-            NavigationsFenster.Close
-        catch
-            Warnlog "Unable to Tear off Navigation Toolbox!"
-        endcatch
-
-        Kontext "NavigatorWriter"
-        Umschalten.Click
-
-        Kontext "NavigatorGlobalDoc"
-        printlog( "Click <Edit>" )
-        if ( hClickButton( Bearbeiten ) = -1 ) then
-            warnlog( "Unable to click <Edit> button, cannot switch Navigator-Mode" )
-        endif
-
-        Kontext "Navigator"
-        hCloseDialog( Navigator, "close" )
-        Call hCloseDocument
-        PrintLog "Close active document"
-        goto endsub
-    end if
-
-    Kontext "NavigatorWriter"
-    if Not NavigatorWriter.Exists then ViewNavigator
-    Kontext "NavigatorWriter"
-    PrintLog "Open Navigator"
-    Call DialogTest ( NavigatorWriter )
-
-    printlog "  - Navigation"
-    ToolboxOK = True
-    try
-        PrintLog "Tear Off Toolbox from Navigator"
-        Toolbox.TearOff Navigation
-    catch
-        Warnlog "Unable to tear off Toolbox"
-        ToolboxOk = False
-    endcatch
-
-    if ToolboxOK = True then
-        Kontext "NavigationsFenster"
-        wait 200
-        try
-            PrintLog "Close Navigator Toolbox"
-            NavigationsFenster.Close
-        catch
-        endcatch
-    end if
-
-    Kontext "NavigatorWriter"
-    wait 200
-    PrintLog "  - In Navigator window click 'Previous page'"
-    VorherigeSeite.Click
-    Kontext "Active"
-    if Active.Exists then
-        if Active.GetRT = 304 then
-            try
-                Active.No
-            catch
-                Active.Ok
-            endcatch
-        end if
-    end if
-    wait 200
-
-    Kontext "NavigatorWriter"
-    PrintLog "- In Navigator window click 'Next page'"
-    NaechsteSeite.Click
-    Kontext "Active"
-    if Active.Exists then
-        if Active.GetRT = 304 then
-            try
-                Active.No
-            catch
-                Active.Ok
-            endcatch
-        end if
-    end if
-    wait 300
-
-    printlog "  - switch Selection box off and on"
-    Kontext "NavigatorWriter"
-    if Auswahlliste.Exists then Auswahlbox.Click
-    wait 200
-    Auswahlbox.Click
-    wait 200
-    if Auswahlliste.NotExists then
-        Warnlog "Navigator not maximized"
-        Auswahlbox.Click
-    end if
-
-    printlog "  - Switch Content View on and off"
-    Inhaltsansicht.Click
-    wait 200
-    Inhaltsansicht.Click
-    wait 200
-
-    printlog "  - Set Note"
-    Merker.Click
-    wait 200
-
-    printlog "  - jump to header"
-    Kopfzeile.Click
-    wait 200
-
-    printlog "  - jump to footer"
-    Fusszeile.Click
-    wait 200
-
-    printlog "  - to Anchor <-> Text"
-    AnkerText.Click
-    wait 200
-
-    Kontext "Navigator"
-    try
-        PrintLog "Close Navigator"
-        Navigator.Close
-    catch
-        Errorlog
-        ViewNavigator
-    endcatch
-
-    PrintLog "Close active document"
-    Call hCloseDocument
-endcase
-
-'---------------------------------------------------
-
-testcase tEditAutotext
-    Dim j as integer
-    Dim i as integer
-    Dim CurrentEntryNr as integer
-    Dim unxAutotextCategorie as integer
-
-    PrintLog "Open new document"
-    Call hNewDocument
-
-    PrintLog "Edit / Autotext"
-    EditAutotext
-    Kontext "AutoText"
-    DialogTest ( AutoText )
-
-    Kontext "AutoText"
-    Printlog "If it exists: Delete DummyAutotext."
-    if wDeleteAutotext("DummyAutotext") = true then
-        qaerrorlog "DummyAutotext from previous testrun found, now deleted."
-    end if
-
-    PrintLog "Click Categories"
-    Kontext "Autotext"
-    Bereiche.Click
-    
-    Kontext "BereicheBearbeitenAutoText"
-    if BereicheBearbeitenAutoText.Exists( 2 ) then
-        DialogTest ( BereicheBearbeitenAutoText )
-        PrintLog "Create a new categorie"
-        Bereich.SetText "Hallo"
-        if Not Umbenennen.IsEnabled then
-            if gNetzInst = False then
-                Warnlog "- Not able to rename Categories, Button 'Rename' disabled!"
-            end if
-        end if
-
-        if Neu.IsEnabled then
-            Neu.Click
-            Wait (200)
-
-            printlog( "Click <Delete>" )
-            if ( hClickButton( Loeschen ) = -1 ) then
-                warnlog( "Unable to delete category, the button is disabled" )
-            endif
-        else
-            if gNetzInst = False then
-                Warnlog "- Category cannot be created!"
-            end if
-        end if
-        BereicheBearbeitenAutoText.Cancel
-    else
-        Warnlog "- Dialog to edit Categories not up!"
-    end if
-    PrintLog "Close 'Edit Categories with 'Cancel'"
-
-    Kontext "AutoText"
-    PrintLog "In Autotext dialog click 'Path..'"
-    Pfade.Click
-    Kontext "PfadeAuswaehlen"
-    DialogTest ( PfadeAuswaehlen )
-    Kontext "PfadeAuswaehlen"
-    PrintLog "On 'Select Paths' dialog click 'add'"
-    Hinzufuegen.Click
-    
-    Kontext "OeffnenDlg"
-    if OeffnenDlg.Exists( 2 ) then
-        PrintLog "Cancel File-Open dialog"
-        hCloseDialog( OeffnenDlg, "cancel" )
-    else
-        Warnlog "Dialog ' Select Paths' not up!"
-    end if
-    
-    Kontext "PfadeAuswaehlen"
-    PrintLog "Cancel dialog 'Select Paths'"
-    hCloseDialog( PfadeAuswaehlen, "cancel" )
-
-    Kontext "AutoText"
-    PrintLog "We have to create an autotext first"
-    PrintLog "to assure the 'Autotext'-Button enabled"
-    printlog "First close all categories"
-    Liste.TypeKeys "<Home>"
-    for i = 1 to Liste.GetItemCount
-        Liste.TypeKeys "-"
-        Liste.TypeKeys "<Down>"
-    next i
-
-    unxAutotextCategorie = 1
-    printlog "choose category and remember entry number"
-    Liste.TypeKeys "<Home>"
-    for i = 1 to Liste.GetItemCount
-        if Not Menue.IsEnabled then
-            Liste.TypeKeys "<Down>"
-            unxAutotextCategorie = unxAutotextCategorie + 1
-        end if
-    next i
-    Autotext.Close
-    Call wTypeKeys ( "Create a dummy autotext" )
-    Call wTypeKeys ( "<Shift Home>" )
-    EditAutotext
-    Kontext "AutoText"
-    WaitSlot(3000)
-    Liste.Select unxAutotextCategorie
-    NameText.Settext "DummyAutotext"
-    Kuerzel.Settext "dAt"
-    if Menue.IsEnabled(1) then
-        Menue.Click
-        wait 500
-        try
-            Call hMenuSelectNr ( 1 )  'New
-        catch
-            ' This is a workaround as sometimes menu isn't opened for some reason
-            Menue.Click
-            wait 500
-            try
-                Call hMenuSelectNr ( 1 )
-            catch
-                Warnlog "Unable to create autotext"
-                Autotext.Close
-                Call hCloseDocument
-                goto endsub
-            endcatch
-        endcatch
-        Autotext.Close
-        Call wTypeKeys "<Home>"
-    else
-        Warnlog "Unable to create autotext"
-        Autotext.Close
-        Call hCloseDocument
-        goto endsub
-    end if
-
-    printlog "Select created autotext"
-    EditAutotext
-    WaitSlot (2000)
-    Kontext "Autotext"
-    Liste.Select unxAutotextCategorie
-    Liste.TypeKeys "+"
-    Liste.TypeKeys "<Down>"
-    wait (500)
-
-    if Menue.IsEnabled(1) then
-        Menue.Click
-        wait 300
-        try
-            PrintLog "Select Autotext / Rename"
-            Call hMenuSelectNr ( 2 )  'Rename
-            wait 500
-        catch
-            ' This is a workaround as sometimes menu isn't opened for some reason
-            Menue.Click
-            wait 500
-            try
-                Call hMenuSelectNr ( 2 )
-                wait 300
-            catch
-                Warnlog "Unable to rename autotext"
-                Autotext.Close
-                Call hCloseDocument
-                goto endsub
-            endcatch
-        endcatch
-    else
-        Warnlog "Unable to rename autotext"
-        Autotext.Close
-        Call hCloseDocument
-        goto endsub
-    end if
-
-    Kontext "TextbausteineUmbenennen"
-    if TextbausteineUmbenennen.Exists(5) then
-        Call DialogTest ( TextbausteineUmbenennen )
-        PrintLog "Cancel 'Rename Autotext'"
-        TextbausteineUmbenennen.Cancel
-        Wait (500)
-    else
-        Warnlog "Dialog 'Rename Autotext' not up!"
-    end if
-
-    Kontext "AutoText"
-    Menue.Click
-    wait (500)
-    try
-        PrintLog "Select Autotext / Macro"
-        Call hMenuSelectNr ( 5 )
-        ' if no JRE is installed a messagebox appears
-        Do
-            j = j + 1
-            Kontext "Active"
-            if Active.Exists then
-                if Active.GetRT = 304 then
-                    if j = 1 then Warnlog Active.Gettext
-                    Active.Ok
-                else
-                    exit do
-                end if
-            else
-                exit do
-            end if
-        Loop
-
-        ' Dialog needs some time to be opened
-        Kontext "MakroZuweisen"
-        printlog( "Close <MakroZuweisen> dialog" )
-        if ( MakroZuweisen.exists( 5 ) ) then
-            call Dialogtest( MakroZuweisen )
-            hCloseDialog( MakroZuweisen, "close" )
-        else
-            warnlog "AutoText-Macro - Assign Macro took longer than 5 seconds to load. Check why."
-        endif
-    catch
-        Warnlog "Menu Autotext->'Macro' disabled !"
-        Call hMenuClose
-    endcatch
-
-    Kontext "AutoText"
-    Menue.Click
-    wait 500
-    try
-        PrintLog "Select Autotext / Edit"
-        Call hMenuSelectNr ( 4 )
-        Sleep 1
-        PrintLog "Enter some text in document and close it"
-        Call wTypeKeys("Hallo")
-        if GetDocumentCount = 1 then
-            Warnlog "The autotext has been edited in current document!"
-        else
-            hUseAsyncSlot( "FileClose" )            
-            Kontext "Active"
-            PrintLog "A message that module has been changed should come up"
-            if Active.Exists then
-                Active.No
-            else
-                Warnlog "Though changing the text module the document could be closed without a query!"
-            end if
-        end if
-    catch
-        Warnlog "Menu Autotext->'Edit' disabled !"
-        Kontext "Active"
-        if Active.Exists then
-            if Active.GetRT = 304 then
-                Warnlog Active.Gettext
-                try
-                    Active.No
-                catch
-                    Active.Ok
-                endcatch
-            end if
-        end if
-    endcatch
-
-    PrintLog "Close 'Autotext' dialog"
-    Kontext "Autotext"
-    if Autotext.Exists then Autotext.Close
-    if wDeleteAutotext("DummyAutotext") = false then
-        Warnlog "Unable to delete created autotext"
-    end if
-    Kontext "Autotext"
-    if Autotext.Exists then Autotext.Close
-
-    PrintLog "Close active document"
-    Call hCloseDocument
-endcase
-
-'----------------------------------------------------------------
-
-testcase tEditHyperlink
-    Printlog "- Edit / Hyperlink"
-
-    PrintLog "Open new document"
-    Call hNewDocument
-
-    PrintLog "Insert / Hyperlink"
-    InsertHyperlink
-
-    kontext "HyperlinkDialog"
-    if ( HyperlinkDialog.exists( 2 ) ) then
-
-        PrintLog "Insert / Hyperlink"
-        Call wEinfuegenHyperlink(1)
-
-        Kontext "TabHyperlinkInternet"
-        printlog( "Check <Internet>" )
-        Internet.Check()
-
-        PrintLog "Enter URL "
-        ZielUrl.Settext "http://www.sonor.de"
-
-        Kontext "Hyperlink"
-        PrintLog "Click 'Apply'"
-        Uebernehmen.Click
-
-        kontext "HyperlinkDialog"
-        PrintLog "Close Hyperlink dialog"
-        hClickButton( CloseButton )
-    else
-        warnlog( "Dialog <Hyperlink> did not open" )
-        hCloseDocument()
-        goto endsub
-    endif
-
-    hSetDocumentContext()
-
-    PrintLog "Check if correct URL has been set to document"
-    if ( hUseAsyncSlot( "EditCopy" ) > -1 ) then
-        if GetClipBoardtext = "" then
-            Warnlog "No Hyperlink or wrong hyperlink in document!" & GetClipBoardtext
-        end if
-    else
-        warnlog( "Slot <EditCopy> could not be executed. Most likely the hyperlink was not selected" )
-    endif
-
-    PrintLog "Set cursor into link"
-    Call wTypeKeys("<Left>")
-
-    PrintLog "Edit / Hyperlink has to be enabled"
-    if ( hUseAsyncSlot( "EditHyperlink" ) > -1 ) then
-        kontext "HyperlinkDialog"
-        hClickButton( CloseButton )
-    else
-        warnlog( "Slot <EditHyperlink> could not be called" )
-    endif
-
-    PrintLog "Close active document"
-    Call hCloseDocument
-endcase
-
-' ----------------------------------------------------------------
-
-testcase tEditFields
-
-    PrintLog( "Edit/Fields: Edit Fields dialog: " & gApplication )
-    dim iCurrentType as integer
-
-    PrintLog( "Open new document" )
-    Call hNewDocument()
-
-    printlog( "Insert->Field->Other" )
-    hUseAsyncSlot( "InsertFieldsOther" )
-
-    ' Note that the tabdialog does not have a unique ID yet, so we treat it as "Active"
-    kontext
-    if ( Active.exists( 2 ) ) then
-
-        printlog( "Switch to <Document> tab" )
-        Active.setPage( TabDokumentFeldbefehle )
-
-        kontext "TabDokumentFeldbefehle"
-        printlog( "Select sender item from the user data, insert the field, close the dialog" )
-        if ( TabDokumentFeldbefehle.isVisible() ) then
-
-            ' Search for the sender item in the "Type" listbox by counting the
-            ' number of items in the "Select" box. Only the sender item has
-            ' more than 12 (usually 15) selectable options.
-            ' This is done to make sure that we have an enabled "Edit..." button
-            ' in the "Edit Fields" dialog called later in this test
-            printlog( "Search for suitable field type" )
-            for iCurrentType = 1 to FeldTyp.getItemCount()
-                FeldTyp.select( iCurrentType )
-                if ( Auswahl.isEnabled() and Auswahl.getItemCount() > 12 ) then
-                    exit for
-                endif
-            next iCurrentType
-
-            hClickButton( Einfuegen )
-            hCloseDialog( TabDokumentFeldbefehle , "close" )
-
-            PrintLog( "Move cursor infront of field (start of document)" )
-            Call wTypeKeys("<Home>")
-
-            PrintLog( "Edit / Fields" )
-            hUseAsyncSlot( "EditFields" )
-
-            Kontext "FeldbefehlBearbeitenDokument"
-            if ( FeldbefehlBearbeitenDokument.exists( 2 ) ) then
-                Call DialogTest ( FeldbefehlBearbeitenDokument )
-
-                PrintLog( "In 'Edit Fields' dialog select 'Edit'" )
-                hClickButton( Bearbeiten )
-
-                Kontext "TabBenutzerdaten"
-                if ( TabBenutzerdaten.exists( 2 ) ) then
-                    printlog( "<TabBenutzerdaten> is open. Good." )
-                    call DialogTest( TabBenutzerdaten )
-                    hCloseDialog( TabBenutzerdaten, "cancel" )
-                else
-                    warnlog( "<TabBenutzerdaten> did not open" )
-                endif
-            else
-                warnlog( "<TabDokumentFeldbefehle> is not visible" )
-            endif
-
-            PrintLog( "Close dialog" )
-            Kontext "FeldbefehlBearbeitenDokument"
-            hCloseDialog( FeldbefehlBearbeitenDokument, "cancel" )
-        else
-            warnlog( "<FeldbefehlBearbeitenDokument> did not open" )
-        endif
-    else
-        warnlog( "Unable to open <InsertFieldsOther>")
-    endif
-
-    PrintLog( "Close active document" )
-    Call hCloseDocument()
-
-endcase
-
-'----------------------------------------------------------------
-
-testcase tEditFieldsInputList
-    PrintLog "- Edit / Fields / Functions"
-    If gApplication = "HTML" then goto endsub
-
-    PrintLog "Open new document"
-    Call hNewDocument
-
-    PrintLog "Select Insert / Fields Other"
-    InsertFieldsOther
-    PrintLog "Goto Tabpage Functions and select 2nd entry (Input list)"
-    Kontext
-    Active.Setpage TabFunktionen
-    Kontext "TabFunktionen"
-    Sleep 1
-    Feldtyp.Select 2
-    if NewListEntry.IsVisible and NewListEntry.IsEnabled then
-        PrintLog "Add 1 entry to list"
-        if NewListEntry.IsEnabled then
-            NewListEntry.Settext "MyNewListEntry"
-            wait 200
-            if AddListEntry.IsEnabled= True then AddListEntry.Click
-        end if
-        PrintLog "Close Fields dialog"
-        if EntrysList.GetItemCount <> 1 then
-            Warnlog "Entry has not been added to list!"
-            Schliessen.Click
-        else
-            Einfuegen.Click
-            Wait 500
-            Schliessen.Click
-            Call wTypeKeys "<Home>"
-            try
-                Call wTypeKeys "<Mod1 Shift F9>"
-                wait 200
-                Kontext "EditInputList"
-                if EditInputList.Exists then
-                    Call DialogTest ( EditInputList )
-                    EditInputList.Cancel
-                else
-                    Warnlog "Dialog 'Edit Input list' is not up!"
-                end if
-            catch
-                Warnlog "Unable to 'Edit / Fields'!"
-            endcatch
-        end if
-    else
-        Warnlog "'Input list' probably not found!"
-    end if
-
-    PrintLog "Close active document"
-    Call hCloseDocument
-endcase
-
-'----------------------------------------------------------------
-
-testcase tEditFootnote
-    PrintLog "- Edit/Footnote"
-
-    PrintLog "Open new document"
-    Call hNewDocument
-
-    PrintLog "Insert / Footnote"
-    InsertFootnote
-    Kontext "FussnoteEinfuegen"
-    FussnoteEinfuegen.OK
-
-    Call wTypeKeys("<PageUp><Left>")
-
-    PrintLog "Edit / Footnote"
-    EditFootnote
-
-    Kontext "FussnoteBearbeiten"
-    Call DialogTest ( FussnoteBearbeiten )
-    PrintLog "Close 'Footnote' dialog"
-    FussnoteBearbeiten.Cancel
-
-    PrintLog "Close active document"
-    Call hCloseDocument
-endcase
-
-'----------------------------------------------------------------
-
-testcase tEditIndexEntry
-    
-    PrintLog "- Edit/Index Entry"
-    if gApplication = "HTML" then
-        printlog "Not in WriterWeb!"
-        goto endsub
-    end if
-
-    PrintLog "Open new document"
-    Call hNewDocument
-
-    PrintLog "Write down something in document"
-    Call wTypeKeys("Ich werde ein Verzeichniseintrag")
-    Call wTypeKeys("<Left>")
-    InsertIndexesEntry
-    PrintLog "Insert / Indexes / Entry"
-    Kontext "VerzeichniseintragEinfuegen"
-    try
-        PrintLog "Close dialog"
-        EintragOk.Click
-    catch
-        Warnlog "Index entry couldn't be inserted!(Button disabled)"
-    endcatch
-    EinfuegenSchliessen.Click
-
-    Call wTypeKeys("<End><Left>")
-    try
-        PrintLog "Point cursor in Index entry"
-        EditIndexEntry
-        PrintLog "Edit / Index entry"
-        Kontext "VerzeichniseintragBearbeiten"
-        Call DialogTest (VerzeichniseintragBearbeiten)
-        BearbeitenSchliessen.Click
-    catch
-        Warnlog "Not able to edit index entry!"
-    endcatch
-
-    Call hCloseDocument
-    PrintLog "Close active document"
-endcase
-
-'----------------------------------------------------------------
-
-testcase tEditLinks
-    PrintLog "- Edit/Links"
-
-    dim sFile as string
-        sFile = gTesttoolPath & "writer\required\input\graphics\jolink.jpg"
-
-    if ( gApplication = "HTML" ) then
-        printlog "Not in WriterWeb!"
-        goto endsub
-    end if
-
-    printlog( "Open a new document" )
-    Call hNewDocument
-
-    printlog( "Insert graphic file (linked): " & sFile )
-    Call hGrafikVerknuepftEinfuegen ( sFile )
-
-    printlog( "Edit->Links" )
-    if ( hUseAsyncSlot( "EditLinksWriter" ) = -1 ) then
-        Warnlog "Error on calling Edit / Links ! (disabled)"
-        Call hCloseDocument
-        goto endsub
-    endif
-
-    Kontext "VerknuepfungenBearbeiten"
-    if ( VerknuepfungenBearbeiten.Exists( 1 ) ) then
-        Call DialogTest ( VerknuepfungenBearbeiten )
-
-        Kontext "VerknuepfungenBearbeiten"
-        printlog( "Click <Change>" )
-        if ( hClickButton( Aendern ) > -1 ) then
-            Kontext "GrafikEinfuegenDlg"
-            call DialogTest( GrafikEinfuegenDlg )
-            hCloseDialog( GrafikEinfuegenDlg, "cancel" )
-        else
-            Warnlog "Error modifying the link!"
-        endif
-
-        Kontext "VerknuepfungenBearbeiten"
-        printlog( "Click <Update>" )
-        if ( hClickButton( Aktualisieren ) = -1 ) then
-            Warnlog "Error on updating the link!"
-        endif
-
-        Kontext "VerknuepfungenBearbeiten"
-        printlog( "Click <Release>" )
-        if ( hClickButton( Loesen ) > -1 ) then
-            Kontext "Active"
-            printlog( "Check for confirmation message" )
-            if ( Active.Exists( 1 ) ) then
-                printlog( "Message displayed, good. Closing with <No>" )
-                printlog( Active.getText() )
-                Active.No
-            else
-                Warnlog( "The <Are you sure you want to remove the selected link?> message is missing" )
-            endif
-        else
-            Warnlog( "Unable to break the link to the file" )
-        endif
-
-        Kontext "VerknuepfungenBearbeiten"
-        hCloseDialog( VerknuepfungenBearbeiten, "close" )
-    else
-        Warnlog "Dialog Edit / Links not opened!"
-    end if
-    PrintLog "Close active document"
-    Call hCloseDocument
-endcase
-
-'------------------------------------------------------
-
-testcase tEditPlugIn
-    PrintLog "- Edit/PlugIn"
-    PrintLog "Open new document"
-    Call hNewDocument
-    PrintLog "Edit / Plugin"
-    EditPlugIn
-    WaitSlot (2000)
-    PrintLog "Edit / Plugin"
-    EditPlugIn
-    PrintLog "Close active document"
-    Call hCloseDocument
-endcase
-
-'------------------------------------------------------
-
-testcase tEditImageMap
-
-     PrintLog "- Edit / ImageMap"
-
-    dim sFile as string
-        sFile = gTesttoolPath & "writer\required\input\graphics\jolink.jpg"
-   
-    PrintLog "Open new document"
-    Call hNewDocument
-
-    printlog( "Insert graphics file: " & sFile )
-    if ( hGrafikEinfuegen( sFile ) ) then
-
-        printlog( "Edit->Imagemap" )
-        EditImageMap
-
-        Kontext "ImageMapEditor"
-        if ( ImageMapEditor.exists( 1 ) ) then
-            Call DialogTest (ImageMapEditor)
-            hCloseDialog( ImageMapEditor, "close" )
-
-            printlog( "Check for <Imagemap changed> messagebox (should not appear)" )
-            kontext "Active"
-            if ( Active.exists( 1 ) ) then
-                Warnlog( "<imagemap changed> message displayed." )
-                printlog( Active.getText )
-                Active.no()
-            else
-                printlog( "No messagebox on close, good." )
-            endif
-
-        else
-            warnlog( "Dialog <ImageMapEditor> did not open" )
-        endif
-    else
-        warnlog( "Insert graphics failed" )
-    end if
-
-    PrintLog "Close active document"
-    Call hCloseDocument
-endcase
-
-'------------------------------------------------------
-
-testcase tEditObjectEdit
-    PrintLog "Edit / Object / Edit"
-
-    PrintLog "Open new document"
-    Call hNewDocument
-
-    InsertObjectChart
-    Call gMouseClick (99,1)
-    Call gMouseClick (99,1)
-    Call gMouseClick (99,1)
-    wait 200
-    Call wTypeKeys("<SHIFT F4>")
-    try
-        EditObjectEdit
-    catch
-        warnlog "Edit/Object/Edit is disabled with chart added"
-    endcatch
-
-    PrintLog "Close active document"
-    Call hCloseDocument
-endcase
-
-'----------------------------------------------------------------
-
-testcase tMasterDocEditNavigator
-    printlog "- View/Navigator"
-    Dim ToolboxOk as boolean
-
-    gApplication = "MASTERDOCUMENT"
-    Call hNewDocument
-    PrintLog "Open new document"
-
-    Kontext "NavigatorGlobalDoc"
-    if Not NavigatorGlobalDoc.Exists then ViewNavigator
-    Kontext "NavigatorGlobalDoc"
-    Call DialogTest ( NavigatorGlobalDoc )
-
-    printlog " - Umschalten"
-    GlobaldokumentToolbox.Click Umschalten
-    Sleep 5
-    kontext "NavigatorWriter"
-
-    try
-        Toolbox.TearOff Navigation
-        Kontext "NavigationsFenster"
-        NavigationsFenster.Close
-    catch
-        Warnlog "Unable to Tear off Navigation Toolbox!"
-    endcatch
-
-    Kontext "NavigatorWriter"
-    Umschalten.Click
-    Kontext "NavigatorGlobalDoc"
-    Sleep (1)
-
-    printlog "  - Bearbeiten"
-    try
-        Bearbeiten.Click
-    catch
-        Sleep (2)
-        try
-            Bearbeiten.Click
-        catch
-            Warnlog " Either taking more than three seconds to switch Navigator-modes, or something has gone wrong."
-        endcatch
-    endcatch
-    wait (300)
-
-    Kontext "Navigator"
-    Navigator.Close
-
-    PrintLog "Close active document"
-    Call hCloseDocument
-    gApplication = "WRITER"
-endcase
-
-'---------------------------------------------------
diff --git a/testautomation/writer/required/includes/w_003_.inc b/testautomation/writer/required/includes/w_003_.inc
deleted file mode 100644
index 1e9f5a7b65ce..000000000000
--- a/testautomation/writer/required/includes/w_003_.inc
+++ /dev/null
@@ -1,641 +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 : helge.delfs@oracle.com
-'*
-'* short description :  Testscripts connected to the View-Menu.
-'*
-'\******************************************************************
-
-sub w_003_
-
-    printLog Chr(13) + "--------- View Menu (w_003_.inc) ----------"
-    gApplication = "WRITER"
-
-    Call tViewPrintLayout
-    Call tViewWebLayout
-    Call tViewHTMLSource
-
-    Call tViewToolbars
-
-    Call tViewStatusBar
-    Call tViewInputMethodStatus
-    Call tViewRuler
-
-    Call tViewTextBoundaries
-    Call tViewFieldShadings
-    Call tViewFields
-    Call tViewNonprintingCharacters
-    Call tViewHiddenParagraphs
-
-    Call tViewDataSources
-
-    Call tViewFullScreen
-    Call tViewZoom
-
-    'Writer Web
-    gApplication = "HTML"
-    Call tHtmlDocViewZoom
-    Call tHtmlDocViewHTMLSource
-    gApplication = "WRITER"
-
-end sub
-
-'------------------------------------------------------
-
-testcase tViewZoom
-    printlog " open application"
-    Call hNewDocument
-    printlog " type something into the document"
-    hTypekeys "<RETURN>", 3
-    UseBindings
-    printlog " View -> Zoom"
-    ViewZoom
-    Kontext "Massstab"
-    if ( Massstab.exists( 1 ) ) then
-        DialogTest ( Massstab )
-        select case uCASE(gApplication)
-        case "HTML" :
-            printlog " check checkbox '100%'"
-            Vergroesserung100.check
-            printlog " check checkbox 'Variable'"
-            VergroesserungStufenlos.check
-        case else :
-            printlog " check checkbox 'Optimal'"
-            Optimal.check
-            printlog " check checkbox 'Fit height and width'"
-            GanzeSeite.check
-            printlog " check checkbox 'Fit Width'"
-            Seitenbreite.check
-            printlog " check checkbox '100%'"
-            Vergroesserung100.check
-            printlog " check checkbox 'Variable'"
-            VergroesserungStufenlos.check
-            printlog " click button MORE on 'Variable'"
-            Stufenlos.more
-            printlog " click button 'Automatic'"
-            Automatic.check
-            printlog " click button 'Single Page'"
-            Singlepage.check
-            printlog " click button 'Columns'"
-            Columns.check
-            printlog " click button MORE on 'Columns'"
-            Columnsfield.more
-            printlog " click button LESS on 'Columns'"
-            Columnsfield.less
-            printlog " Check checkbox 'Book mode'"
-            Bookmode.check
-            printlog " cancel dialog 'Zoom'"
-        end select
-        Massstab.Cancel
-    else
-        warnlog( "Dialog <Massstab> is not available" )
-    endif
-    printlog " close application"
-    Call  hCloseDocument
-endcase
-
-'-----------------------------------------------------------
-
-testcase tViewDataSources
-    PrintLog "- View / Data Sources"
-    printlog " Open new document"
-    Call hNewDocument
-    printlog " View / Data Sources"
-    ViewCurrentDatabaseWriter
-
-    Kontext "DatabaseBeamer"
-    if ( DatabaseBeamer.Exists( 5 ) ) then
-        printlog " Close database beamer with : View Data Sources"
-        ViewCurrentDatabaseWriter
-        
-        Kontext "DatabaseBeamer"
-        if ( DatabaseBeamer.Exists() ) then
-            Warnlog "Could not close Databasebeamer with same slot!"
-            ViewBeamer
-            
-            Kontext "DatabaseBeamer"
-            if DatabaseBeamer.Exists then 
-                Warnlog "Could not close Databasebeamer with Slot->View Beamer!"
-            endif
-        else
-            printlog( "Closed Database Beamer dialog" )
-        endif
-    else
-        Warnlog "Database Beamer has not been opened!"
-    endif
-
-    printlog " Close active document"
-    Call hCloseDocument
-endcase
-
-'-----------------------------------------------------------
-
-testcase tViewToolbars
-    PrintLog "- View / Toolbars"
-    Dim i as integer
-
-    printlog " Close all documents until only backing window is opened"
-    Do Until GetDocumentCount = 0
-        Call hCloseDocument
-    Loop
-
-    printlog " Open a new writer document"
-    Call hNewDocument
-
-    printlog "- Toolbar 'Align'"
-    printlog "-  open"
-    Call hToolbarSelect("Align", true)
-    printlog "-  close"
-    Call hToolbarSelect("Align", false)
-    printlog "-  reset"
-    Call hToolbarSelect("Align", true, true)
-
-    printlog "- Toolbar 'Bullets And Numbering'"
-    printlog "-  open"
-    Call hToolbarSelect("BulletsAndNumbering", true)
-    printlog "-  close"
-    Call hToolbarSelect("BulletsAndNumbering", false)
-    printlog "-  reset"
-    Call hToolbarSelect("BulletsAndNumbering", true, true)
-
-    printlog "- Toolbar 'Drawing'"
-    printlog "-  open"
-    Call hToolbarSelect("Drawing", true)
-    printlog "-  close"
-    Call hToolbarSelect("Drawing", false)
-    printlog "-  reset"
-    Call hToolbarSelect("Drawing", true, true)
-
-    printlog "- Toolbar 'Drawing Object Properties'"
-    printlog "-  open"
-    Call hToolbarSelect("DrawingObjectProperties", true)
-    printlog "-  close"
-    Call hToolbarSelect("DrawingObjectProperties", false)
-    printlog "-  reset"
-    Call hToolbarSelect("DrawingObjectProperties", true, true)
-
-    printlog "- Toolbar 'Form Controls'"
-    printlog "-  open"
-    Call hToolbarSelect("FormControls", true)
-    printlog "-  close"
-    Call hToolbarSelect("FormControls", false)
-    printlog "-  reset"
-    Call hToolbarSelect("FormControls", true, true)
-
-    printlog "- Toolbar 'Form Design'"
-    printlog "-  open"
-    Call hToolbarSelect("FormDesign", true)
-    printlog "-  close"
-    Call hToolbarSelect("FormDesign", false)
-    printlog "-  reset"
-    Call hToolbarSelect("FormDesign", true, true)
-
-    printlog "- Toolbar 'Form Navigation'"
-    printlog "-  open"
-    Call hToolbarSelect("FormNavigation", true)
-    printlog "-  close"
-    Call hToolbarSelect("FormNavigation", false)
-    printlog "-  reset"
-    Call hToolbarSelect("FormNavigation", true, true)
-
-    ' The following toolbar is disabled because it will be found in all documents
-    ' therefore they can't be reactivated once deactivated
-    printlog "- Toolbar 'Formatting'"
-    printlog "-  open"
-    Call hToolbarSelect("Formatting", true)
-    printlog "-  close"
-    Call hToolbarSelect("Formatting", false)
-    printlog "-  reset"
-    Call hToolbarSelect("Formatting", true, true)
-
-    printlog "- Toolbar 'Frame'"
-    printlog "-  open"
-    Call hToolbarSelect("Frame", true)
-    printlog "-  close"
-    Call hToolbarSelect("Frame", false)
-    printlog "-  reset"
-    Call hToolbarSelect("Frame", true, true)
-
-    printlog "- Toolbar 'Insert'"
-    printlog "-  open"
-    Call hToolbarSelect("Insert", true)
-    printlog "-  close"
-    Call hToolbarSelect("Insert", false)
-    printlog "-  reset"
-    Call hToolbarSelect("Insert", true, true)
-
-    printlog "- Toolbar 'Insert Object'"
-    printlog "-  open"
-    Call hToolbarSelect("InsertObject", true)
-    printlog "-  close"
-    Call hToolbarSelect("InsertObject", false)
-    printlog "-  reset"
-    Call hToolbarSelect("InsertObject", true, true)
-
-    printlog "- Toolbar 'Media Playback'"
-    printlog "-  open"
-    Call hToolbarSelect("MediaPlayback", true)
-    printlog "-  close"
-    Call hToolbarSelect("MediaPlayback", false)
-    printlog "-  reset"
-    Call hToolbarSelect("MediaPlayback", true, true)
-
-    printlog "- Toolbar 'OLE Object'"
-    printlog "-  open"
-    Call hToolbarSelect("OLEObject", true)
-    printlog "-  close"
-    Call hToolbarSelect("OLEObject", false)
-    printlog "-  reset"
-    Call hToolbarSelect("OLEObject", true, true)
-
-    printlog "- Toolbar 'Page Preview'"
-    printlog "-  open"
-    Call hToolbarSelect("PagePreview", true)
-    printlog "-  close"
-    Call hToolbarSelect("PagePreview", false)
-    printlog "-  reset"
-    Call hToolbarSelect("PagePreview", true, true)
-
-    printlog "- Toolbar 'Picture'"
-    printlog "-  open"
-    Call hToolbarSelect("Picture", true)
-    printlog "-  close"
-    Call hToolbarSelect("Picture", false)
-    printlog "-  reset"
-    Call hToolbarSelect("Picture", true, true)
-
-    ' The following toolbar is disabled because it will be found in all documents
-    ' therefore they can't be reactivated once deactivated
-    printlog "- Toolbar 'Standard'"
-    printlog "-  open"
-    Call hToolbarSelect("Standard", true)
-    printlog "-  close"
-    Call hToolbarSelect("Standard", false)
-    printlog "-  reset"
-    Call hToolbarSelect("Standard", true, true)
-
-    printlog "- Toolbar 'Standard (Viewing Mode)'"
-    printlog "-  open"
-    Call hToolbarSelect("StandardViewingMode", true)
-    printlog "-  close"
-    Call hToolbarSelect("StandardViewingMode", false)
-    printlog "-  reset"
-    Call hToolbarSelect("StandardViewingMode", true, true)
-
-    printlog "- Toolbar 'Table'"
-    printlog "-  open"
-    Call hToolbarSelect("Table", true)
-    printlog "-  close"
-    Call hToolbarSelect("Table", false)
-    printlog "-  reset"
-    Call hToolbarSelect("Table", true, true)
-
-    printlog "- Toolbar 'Text Object'"
-    printlog "-  open"
-    Call hToolbarSelect("TextObject", true)
-    printlog "-  close"
-    Call hToolbarSelect("TextObject", false)
-    printlog "-  reset"
-    Call hToolbarSelect("TextObject", true, true)
-
-    printlog "- Toolbar 'Tools'"
-    printlog "-  open"
-    Call hToolbarSelect("Tools", true)
-    printlog "-  close"
-    Call hToolbarSelect("Tools", false)
-    printlog "-  reset"
-    Call hToolbarSelect("Tools", true, true)
-
-    printlog "- Toolbar 'Hyperlink Bar'"
-    printlog "-  open"
-    Call hToolbarSelect("HyperlinkBar", true)
-    printlog "-  close"
-    Call hToolbarSelect("HyperlinkBar", false)
-    printlog "-  reset"
-    Call hToolbarSelect("HyperlinkBar", true, true)
-
-    printlog "- Toolbar 'Formula'"
-    printlog "-  open"
-    Call hToolbarSelect("MATH", true)
-    OL_SW_Rechenleiste.TypeKeys "<Enter>"
-
-    printlog " Close active document"
-    Call hCloseDocument
-endcase
-
-'-----------------------------------------------------------
-
-testcase tViewTextBoundaries
-    PrintLog "- View / Text Boundaries"
-    printlog " Open new document"
-    Call hNewDocument
-    printlog " View / Text Boundaries"
-    ViewTextBoundaries
-    WaitSlot (2000)
-    printlog " View / Text Boundaries"
-    ViewTextBoundaries
-    printlog " Close active document"
-    Call hCloseDocument
-endcase
-
-'------------------------------------------------------
-
-testcase tViewFieldShadings
-    PrintLog "- View / Field Shadings"
-    printlog " Open new document"
-    Call hNewDocument
-    printlog " View / Field Shadings"
-    ViewFieldShadings
-    WaitSlot (2000)
-    printlog " View / Field Shadings"
-    ViewFieldShadings
-    printlog " Close active document"
-    Call hCloseDocument
-endcase
-
-'------------------------------------------------------
-
-testcase tViewFields
-    PrintLog "- View / Fields"
-    printlog " Open new document"
-    Call hNewDocument
-    printlog " View / Fields"
-    ViewFields
-    WaitSlot (2000)
-    printlog " View / Fields"
-    ViewFields
-    printlog " Close active document"
-    Call hCloseDocument
-endcase
-
-'------------------------------------------------------
-
-testcase tViewNonprintingCharacters
-    PrintLog "- View / Nonprinting Characters"
-    printlog " Open new document"
-    Call hNewDocument
-    printlog " View / Nonprinting characters"
-    ViewNonprintingCharacters
-    WaitSlot (2000)
-    printlog " View / Nonprinting characters"
-    ViewNonprintingCharacters
-    printlog " Close active document"
-    Call hCloseDocument
-endcase
-
-'-----------------------------------------------------------
-
-testcase tViewHiddenParagraphs
-    printLog "- View / Hidden Paragraphs"
-    printlog " Open new document"
-    Call hNewDocument
-    printlog " View / Hidden paragraphs "
-    ViewHiddenParagraphs
-    WaitSlot(2000)
-    printlog " View / Hidden paragraphs "
-    ViewHiddenParagraphs
-    printlog " Close active document"
-    Call hCloseDocument
-endcase
-
-'-----------------------------------------------------------
-
-testcase tViewWebLayout
-    PrintLog "- View / WebLayout"
-    printlog " Open new document"
-    Call hNewDocument
-    printlog " View / Web Layout "
-    ViewOnlineLayout
-    WaitSlot (2000)
-    printlog " View / Online Layout "
-    ViewOnlineLayout
-    printlog " Close active document"
-    Call hCloseDocument
-endcase
-
-'-----------------------------------------------------------
-
-testcase tViewFullScreen
-    PrintLog "- View / Full Screen"
-    printlog " Open new document"
-    Call hNewDocument
-    printlog " View / Full Screen "
-    ViewFullScreen
-    WaitSlot (2000)
-    printlog " View / Full Screen "
-    ViewFullScreen
-    WaitSlot (2000)
-    printlog " Close active document"
-    Call hCloseDocument
-endcase
-
-'-----------------------------------------------------------
-
-testcase tViewPrintLayout
-    PrintLog "- View / Print Layout"
-    printlog " ONLY HTML-Document"
-    printlog " Open new document"
-    Call hNewDocument
-    WaitSlot (2000)
-    printlog " View / Print Layout "
-    ViewPrintLayout
-    WaitSlot (2000)
-    printlog " View / Print Layout "
-    ViewPrintLayout
-    printlog " Close active document"
-    Call hCloseDocument
-endcase
-
-'-----------------------------------------------------------
-
-testcase tViewStatusBar
-    PrintLog "- View / Status Bar"
-    printlog " Open new document"
-    Call hNewDocument
-    printlog " View / Statusbar "
-    ViewToolbarsStatusbar
-    WaitSlot (2000)
-    printlog " View / Print Layout "
-    ViewToolbarsStatusbar
-    printlog " Close active document"
-    Call hCloseDocument
-endcase
-
-'-----------------------------------------------------------
-
-testcase tViewRuler
-    PrintLog "- View / Ruler"
-
-    printlog " Open new document"
-    Call hNewDocument
-    printlog " View / Ruler "
-    ViewRuler
-    WaitSlot (2000)
-    printlog " View / Ruler "
-    ViewRuler
-    WaitSlot (2000)
-    printlog " Close active document"
-    Call hCloseDocument
-endcase
-
-'-----------------------------------------------------------
-
-testcase tViewInputMethodStatus
-    PrintLog "- View / Input Method Status (only Solaris)"
-    if ( Ucase(gPlatform) <> "SOLARIS" ) then 
-        printlog( "No testing for IME status for OS <> Solaris" )
-        goto endsub
-    endif
-
-    PrintLog " Open new document"
-    Call hNewDocument
-    PrintLog " View / View / Input Method Status"
-    try
-        ViewInputMethodStatus
-    catch
-        Warnlog "Menuentry 'Input Method Status' is disabled!"
-        Call hCloseDocument
-        goto endsub
-    endcatch
-    WaitSlot (2000)
-    PrintLog " View / View / Input Method Status"
-    ViewInputMethodStatus
-    PrintLog " Close active document"
-    Call hCloseDocument
-endcase
-
-'-----------------------------------------------------------
-
-testcase tViewHTMLSource
-    PrintLog "- View / HTML Source (only in HTML-Document)"
-    if ( gApplication <> "HTML" ) then
-        goto endsub
-    endif
-    
-    printlog "Open new document"
-    Call hNewDocument
-    printlog "View / HTML-Source"
-    AnsichtHTMLQuelltext
-
-    printlog "Save-As dialog has to come up"
-    Kontext "SpeichernDlg"
-    if ( SpeichernDlg.exists( 1 ) ) then
-        Dateiname.Settext Convertpath(gofficepath + "user\work\sourcecode.html")
-        printlog "Save sourcecode"
-        Speichern.Click()
-        Kontext "Active"
-        If Active.Exists then
-            if Active.GetRT = 304 then
-                try
-                    Active.Yes
-                catch
-                    Warnlog Active.Gettext
-                    Active.Ok
-                endcatch
-            end if
-        end if
-    else
-        warnlog( "Dialog <SpeichernDlg> is not available" )
-    endif
-
-    Kontext "DocumentHTMLSourceView"
-    DocumentHTMLSourceView.TypeKeys "Check for bug: #116402"
-    wait 500
-    printlog "View / HTML-Source"
-    AnsichtHTMLQuelltext
-    WaitSlot (1000)
-    printlog "Close active document"
-    Call hCloseDocument
-endcase
-
-'-----------------------------------------------------------
-
-testcase tHtmlDocViewZoom
-    gApplication = "HTML"
-    printlog " open application"
-    Call hNewDocument
-    printlog " type something into the document"
-    hTypekeys "<RETURN>", 3
-
-    printlog " View -> Zoom"
-    ViewZoom
-    Kontext "Massstab"
-    if ( Massstab.exists( 1 ) ) then
-        DialogTest ( Massstab )
-        printlog " check checkbox '100%'"
-        Vergroesserung100.check
-        printlog " check checkbox 'Variable'"
-        VergroesserungStufenlos.check
-        Massstab.Cancel
-    else
-        warnlog( "Dialog <Massstab> is not available" )
-    endif
-    printlog " close application"
-    Call  hCloseDocument
-    gApplication = "WRITER"
-endcase
-
-'-----------------------------------------------------------
-
-testcase tHtmlDocViewHTMLSource
-    PrintLog "- View / HTML Source (only in HTML-Document)"
-    gApplication = "HTML"
-    printlog "Open new document"
-    Call hNewDocument
-    printlog "View / HTML-Source"
-    AnsichtHTMLQuelltext
-    WaitSlot (1000)
-    printlog "Save-As dialog has to come up"
-    printlog "Save sourcecode"
-    Kontext "SpeichernDlg"
-    Dateiname.Settext Convertpath(gofficepath + "user\work\sourcecode.html")
-    Speichern.Click
-    Kontext "Active"
-    If Active.Exists then
-        if Active.GetRT = 304 then
-            try
-                Active.Yes
-            catch
-                Warnlog Active.Gettext
-                Active.Ok
-            endcatch
-        end if
-    end if
-    wait 500
-    Kontext "DocumentHTMLSourceView"
-    DocumentHTMLSourceView.TypeKeys "Check for bug: #116402"
-    wait 500
-    printlog "View / HTML-Source"
-    AnsichtHTMLQuelltext
-    WaitSlot (1000)
-    printlog "Close active document"
-    Call hCloseDocument
-    gApplication = "WRITER"
-endcase
-
-'-----------------------------------------------------------
diff --git a/testautomation/writer/required/includes/w_004_.inc b/testautomation/writer/required/includes/w_004_.inc
deleted file mode 100644
index 8a536b715335..000000000000
--- a/testautomation/writer/required/includes/w_004_.inc
+++ /dev/null
@@ -1,1012 +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 : helge.delfs@oracle.com
-'*
-'* short description :  Testcases with connection to the Insert-menu.
-'*
-'\***********************************************************************
-
-sub w_004_
-
-    printLog Chr(13) + "---------  Insert Menu ( w_004_ ) ----------"
-    gApplication = "WRITER"
-
-    call tInsertManualBreak
-    call tInsertFields
-    call tInsertFieldsOther
-    call tInsertSpecialCharacter
-    call tInsertSection
-    call tInsertHyperlink
-    call tInsertFootnote
-    call tInsertCaption
-    call tInsertBookmark
-    call tInsertComment
-    call tInsertCrossReference
-    call tInsertScript
-    call tInsertIndexesEntry
-    call tInsertIndexesIndex
-    call tInsertIndexesBibliographyEntry
-    call tInsertEnvelope
-    call tInsertFrame
-    call tInsertTable
-
-end sub
-
-'-----------------------------------------------------------
-
-testcase tInsertManualBreak
-    PrintLog "- Insert / Manual Break"
-
-    printlog " Open new document"
-    Call hNewDocument
-
-    printlog " Insert / Manual break"
-    InsertManualBreak
-
-    printlog " Close 'Insert break' dialog with cancel"
-    Kontext "UmbruchEinfuegen"
-    Call DialogTest ( UmbruchEinfuegen )
-    UmbruchEinfuegen.Cancel
-
-    printlog " Close active document"
-    Call hCloseDocument
-endcase
-
-'-----------------------------------------------------------
-
-testcase tInsertFields
-    PrintLog "- Insert / Fields"
-
-    printlog " Open new document"
-    Call hNewDocument
-
-    try
-        printlog "Insert / Fields / Date"
-        InsertFieldsDate
-    catch
-        Warnlog "Unable to execute: Insert / Fields / Date "
-    endcatch
-    printlog " Insert / Fields / Date"
-    Call wTypeKeys (" <Return>")
-    try
-        printlog "Insert / Fields / Time"
-        InsertFieldsTime
-    catch
-        Warnlog "Unable to execute: Insert / Fields / Time"
-    endcatch
-    printlog " Insert / Fields / Time"
-    Call wTypeKeys (" <Return>")
-    try
-        printlog "Insert / Fields / Page Number"
-        InsertFieldsPageNumbers
-    catch
-        Warnlog "Unable to execute: Insert / Fields / Page numbers"
-    endcatch
-    printlog " Insert / Fields / Page numbers"
-    Call wTypeKeys (" <Return>")
-    try
-        printlog "Insert / Fields / Page Count"
-        InsertFieldsPageCount
-    catch
-        Warnlog "Unable to execute: Insert / Fields / Page Count"
-    endcatch
-    printlog " Insert / Fields / Page count"
-    Call wTypeKeys (" <Return>")
-    try
-        printlog "Insert / Fields / Title"
-        InsertFieldsTitle
-    catch
-        Warnlog "Unable to execute: Insert / Fields / Title"
-    endcatch
-    printlog " Insert / Fields / Title"
-    Call wTypeKeys (" <Return>")
-    try
-        printlog "Insert / Fields / Author"
-        InsertFieldsAuthor
-    catch
-        Warnlog "Unable to execute: Insert / Fields / Author"
-    endcatch
-    printlog " Insert / Fields / Author"
-    if gApplication <> "HTML" then
-        try
-            printlog "Insert / Fields / Subject"
-            InsertFieldsSubject
-        catch
-            Warnlog "Unable to execute: Insert / Fields / Subject"
-        endcatch
-        printlog " If document not HTML then  'Insert / Fields / Subject"
-        Call wTypeKeys (" <Return>")
-        printlog " Press key 'enter'"
-    end if
-
-    printlog " Close active document"
-    Call hCloseDocument
-endcase
-
-'-----------------------------------------------------------
-
-testcase tInsertFieldsOther
-    Dim i as integer
-    Dim j as integer
-    printlog "- Insert / Fields / Other"
-
-    printlog " Open new document"
-    Call hNewDocument
-
-    printlog " Insert / Fields / Other"
-    InsertFieldsOther
-
-    Kontext
-    printlog " In dialog step through all tabpages"
-    Active.SetPage TabDokumentFeldbefehle
-    Kontext "TabDokumentFeldbefehle"
-    Call Dialogtest ( TabDokumentFeldbefehle )
-
-    Kontext
-    Active.SetPage TabDokumentinfoFeldbefehle
-    Kontext "TabDokumentinfoFeldbefehle"
-    Call Dialogtest ( TabDokumentinfoFeldbefehle )
-
-    Kontext
-    Active.SetPage TabVariablen
-    Kontext "TabVariablen"
-    Call Dialogtest ( TabVariablen )
-
-    if gApplication <> "HTML" then
-        Kontext
-        Active.SetPage TabReferenzen
-        Kontext "TabReferenzen"
-        Call Dialogtest ( TabReferenzen )
-
-        Kontext
-        Active.SetPage TabFunktionen
-        Kontext "TabFunktionen"
-        Call Dialogtest ( TabFunktionen )
-        for i=1 to Feldtyp.GetItemCount
-            Feldtyp.Select i
-            if MakroButton.IsEnabled then
-                MakroButton.Click
-                ' if no JRE is installed a messagebox appears
-                Do
-                    j = j + 1
-                    Kontext "Active"
-                    if Active.Exists then
-                        if Active.GetRT = 304 then
-                            if j = 1 then Warnlog Active.Gettext
-                            Active.Ok
-                        else
-                            exit do
-                        end if
-                    else
-                        exit do
-                    end if
-                Loop
-                
-                Kontext "ScriptSelector"
-                if ( ScriptSelector.exists( 5 ) ) then
-                    ScriptSelector.Close
-                else
-                    warnlog( "Dialog <ScriptSelector> is not available" )
-                endif
-                Kontext "TabFunktionen"
-                i=100
-            end if
-        next i
-
-        Kontext
-        Active.SetPage TabDatenbank
-        Kontext "TabDatenbank"
-        Call Dialogtest ( TabDatenbank )
-
-        printlog " Close dialog"
-        TabDatenbank.Close
-    else
-        printlog " Close dialog"
-        TabVariablen.Close
-    end if
-    printlog " Close active document"
-    Call hCloseDocument
-endcase
-
-'-----------------------------------------------------------
-
-testcase tInsertSpecialCharacter
-    PrintLog "- Insert / Special Character"
-
-    printlog " Open new document"
-    Call hNewDocument
-
-    printlog " Insert / Special Character"
-    InsertSpecialCharacterWriter
-
-    Kontext "Sonderzeichen"
-    Call DialogTest (Sonderzeichen)
-    Sonderzeichen.Cancel
-
-    printlog " Close active document"
-    Call hCloseDocument
-endcase
-
-'-----------------------------------------------------------
-
-testcase tInsertSection
-    PrintLog "- Insert / Section"
-
-    printlog " Open new document"
-    Call hNewDocument
-
-    printlog " Insert / Section"
-    InsertSection
-    Kontext
-
-    printlog "  In dialog step through all tabpages"
-    printlog "-  Tabpage Section"
-    Active.Setpage TabBereiche
-    Kontext "TabBereiche"
-    Call DialogTest (TabBereiche)
-    Verknuepfung.Check
-    if gUseSysDlg = False then
-        Auswaehlen.Click
-        Kontext "OeffnenDlg"
-        OeffnenDlg.Cancel
-    end if
-    Wait 500
-    Kontext
-    printlog "-  Tabpage Columns"
-    Active.Setpage TabSpalten
-    Kontext "TabSpalten"
-    Call DialogTest (TabSpalten)
-
-    Kontext
-    printlog "-  Tabpage Background"
-    Active.Setpage TabHintergrund
-    Kontext "TabHintergrund"
-    Call DialogTest (TabHintergrund)
-
-    if gApplication <> "HTML" then
-        printlog "Tabpage Indents"
-        Kontext
-        Active.Setpage TabSectionIndent
-        Kontext "TabSectionIndent"
-        Call DialogTest (TabSectionIndent)
-
-        printlog "-  Tabpage Footnotes/Endnotes"
-        Kontext
-        Active.Setpage TabFussEndnoten
-        Kontext "TabFussEndnoten"
-        Call DialogTest (TabFussEndnoten)
-        TabFussEndnoten.Cancel
-    else
-        TabHintergrund.Cancel
-    end if
-    printlog " Close active document"
-    Call hCloseDocument
-endcase
-
-'-----------------------------------------------------------
-
-testcase tInsertHyperlink
-    Dim i as integer
-    PrintLog "- Insert / Hyperlink"
-
-    printlog " Open new document"
-    Call hNewDocument
-
-    printlog "-  Internet"
-    printlog " Insert / Hyperlink"
-    InsertHyperlink
-
-    kontext "HyperlinkDialog"
-    if ( HyperlinkDialog.exists( 2 ) ) then
-
-        printlog "  In 'Hyperlink' dialog step through all pages"
-        Call wEinfuegenHyperlink(1)
-        Call DialogTest ( TabHyperlinkInternet )
-
-        Kontext "Hyperlink"
-        printlog "-  Mail & News"
-        Call wEinfuegenHyperlink(2)
-        wait 500
-        Call DialogTest ( TabHyperlinkMailUndNews )
-
-        Kontext "Hyperlink"
-        printlog "-  Document"
-        Call wEinfuegenHyperlink(3)
-        wait 500
-        Call DialogTest ( TabHyperlinkDokument )
-
-        DateiOeffnen.Click
-
-        Kontext "OeffnenDlg"
-        if ( OeffnenDlg.exists( 1 ) ) then
-            OeffnenDlg.Cancel
-        else
-            warnlog( "Dialog <OeffnenDlg> is not available" )
-        endif
-
-        Kontext "Hyperlink"
-        printlog "-  New Document"
-        Call wEinfuegenHyperlink(4)
-        wait 500
-        Call DialogTest ( TabHyperlinkNeuesDokument )
-
-        Pfad.Click
-        Sleep 1
-        Kontext "OeffnenDlg"
-        OeffnenDlg.Cancel
-
-        printlog " Close 'Hyperlink' dialog"
-        kontext "HyperlinkDialog"
-        HyperlinkDialog.Close
-    else
-        warnlog( "Unable to open <HyperlinkDialog>" )
-    endif
-
-    printlog " Close active document"
-    Call hCloseDocument
-endcase
-
-'-----------------------------------------------------------
-
-testcase tInsertFootnote
-    PrintLog "- Insert / Footnote"
-
-    printlog " Open new document"
-    Call hNewDocument
-
-    printlog " Insert / Footnote"
-    InsertFootnote
-    Kontext "FussnoteEinfuegen"
-    Call DialogTest (FussnoteEinfuegen)
-    Durchsuchen.Click
-    printlog " In 'Insert / Footnote' dialog click on browse button"
-
-    printlog " Close 'Special Character' dialog"
-    Kontext "Sonderzeichen"
-    Sonderzeichen.Cancel
-
-    printlog " Close 'Insert Footnote' dialog"
-    Kontext "FussnoteEinfuegen"
-    FussnoteEinfuegen.Cancel
-
-    printlog " Close active document"
-    Call hCloseDocument
-endcase
-
-'-----------------------------------------------------------
-
-testcase tInsertCaption
-    PrintLog "- Insert / Caption"
-
-    printlog " Open new document"
-    Call hNewDocument
-
-    printlog " Insert graphic '..\writer\required\input\graphics\jolink.jpg"
-    Call hGrafikEinfuegen ( gTesttoolPath + "writer\required\input\graphics\jolink.jpg" )
-    try
-        printlog " Insert / Caption"
-        InsertCaption
-        Kontext "Beschriftung"
-        Call DialogTest ( Beschriftung )
-        Sleep 1
-        printlog " In 'Caption' dialog click 'Options'"
-        WeitereOptionen.Click
-        Kontext "NummernkreisOptionen"
-        Call DialogTest ( NummernkreisOptionen )
-        printlog " Close 'Number Range Options' dialog"
-        NummernkreisOptionen.Cancel
-        Sleep 1
-        Kontext "Beschriftung"
-        printlog " Close 'Caption' dialog"
-        Beschriftung.Cancel
-        Sleep 2
-    catch
-        Warnlog "Insert / Caption is disabled!"
-    endcatch
-
-    printlog " Close active document"
-    Call hCloseDocument
-endcase
-
-'-----------------------------------------------------------
-
-testcase tInsertBookmark
-    PrintLog "- Insert / Bookmark"
-
-    printlog " Open new document"
-    Call hNewDocument
-
-    printlog " Insert / Bookmark"
-    InsertBookmark
-    Kontext "TextmarkeEinfuegen"
-    Call DialogTest (TextmarkeEinfuegen)
-    wait 500
-    printlog " Close 'Insert Bookmark' dialog"
-    TextmarkeEinfuegen.Cancel
-
-    printlog " Close active document"
-    Call hCloseDocument
-endcase
-
-'-----------------------------------------------------------
-
-testcase tInsertComment
-    dim sNoteText as String
-    PrintLog "- Insert / Comment"
-
-    Call hNewDocument
-
-    printlog " Insert / Comment"
-    InsertNoteWriter
-    wait 500
-    Kontext "DocumentWriter"
-    sNoteText = "Comment inserted by testtool !"
-    Call wTypeKeys (sNoteText)
-
-    Call wNavigatorAuswahl( 11, 1 )
-    Kontext "NavigatorWriter"
-    if Auswahlliste.Gettext <> sNoteText then
-        warnlog ("Comment was not inserted correctly (Focus problem?")
-    end if
-
-    printlog " Close active document"
-    Call hCloseDocument
-endcase
-
-'-----------------------------------------------------------
-
-testcase tInsertCrossReference
-    Dim i as integer
-    Dim j as integer
-    printlog "- Insert / Reference Field"
-    if gApplication = "HTML" then
-        printlog "Not in WriterWeb!"
-        goto endsub
-    end if
-    printlog " Open new document"
-    Call hNewDocument
-
-    printlog " Insert / Cross reference"
-    InsertReferenceField
-
-    Kontext "TabReferenzen"
-    if NOT TabReferenzen.IsVisible then Warnlog "Reference Tabpage isn't default!"
-
-    printlog " Step through all tabpages"
-    Kontext
-    Active.SetPage TabFunktionen
-    Kontext "TabFunktionen"
-    for i=1 to Feldtyp.GetItemCount
-        Feldtyp.Select i
-        if MakroButton.IsEnabled then
-            MakroButton.Click
-            ' if no JRE is installed a messagebox appears
-            j = 0
-            Do
-                j = j + 1
-                Kontext "Active"
-                if Active.Exists then
-                    if Active.GetRT = 304 then
-                        if j = 1 then Warnlog Active.Gettext
-                        Active.Ok
-                    else
-                        exit do
-                    end if
-                else
-                    exit do
-                end if
-            Loop
-            Kontext "ScriptSelector"
-            if ( ScriptSelector.exists( 3 ) ) then
-                ScriptSelector.Close
-            else
-                warnlog( "Dialog <ScriptSelector> is not available" )
-            endif
-            Kontext "TabFunktionen"
-            i=100
-        end if
-    next i
-
-    Kontext
-    Active.SetPage TabDokumentinfoFeldbefehle
-    Kontext "TabDokumentinfoFeldbefehle"
-
-    Kontext
-    Active.SetPage TabVariablen
-    Kontext "TabVariablen"
-
-    Kontext
-    Active.SetPage TabDatenbank
-    Kontext "TabDatenbank"
-
-    Kontext
-    Active.SetPage TabDokumentFeldbefehle
-    Kontext "TabDokumentFeldbefehle"
-
-    printlog " Close dialog"
-    TabDokumentFeldbefehle.Close
-
-    printlog " Close active document"
-    Call hCloseDocument
-endcase
-
-'-----------------------------------------------------------
-
-testcase tInsertScript
-    PrintLog "- Insert / Script"
-
-    printlog " Open new document"
-    Call hNewDocument
-
-    printlog " Insert / Script"
-    InsertScript
-    Kontext "ScriptEinfuegen"
-    Call DialogTest (ScriptEinfuegen)
-    wait 500
-    ScriptEinfuegen.Cancel
-
-    printlog " Close active document"
-    Call hCloseDocument
-endcase
-
-'-----------------------------------------------------------
-
-testcase tInsertIndexesEntry
-    qaErrorLog "#158646# - Insert Indexes Entry causes crash."
-    goto endsub
-
-    PrintLog "- Insert / Indexes / Entry"
-    if gApplication = "HTML" then
-        printlog "Not in WriterWeb!"
-        goto endsub
-    end if
-    printlog " Open new document"
-    Call hNewDocument
-
-    printlog " Insert / Indexes and Tables / Entry"
-    InsertIndexesEntry
-    Kontext "VerzeichniseintragEinfuegen"
-    Call DialogTest (VerzeichniseintragEinfuegen)
-    printlog " Click 'Insert'"
-    EintragNeu.Click
-
-    Kontext "BenutzerverzeichnisDefinieren"
-    Call DialogTest (BenutzerverzeichnisDefinieren)
-    printlog " Close dialog 'Insert Index Entry'"
-    BenutzerverzeichnisDefinieren.Cancel
-    Kontext "VerzeichniseintragEinfuegen"
-    EinfuegenSchliessen.Click
-
-    printlog " Close active document"
-    Call hCloseDocument
-endcase
-
-'-----------------------------------------------------------
-
-testcase tInsertIndexesIndex
-    Dim i as integer
-    Printlog "- Insert / Indexes / Index"
-    if gApplication = "HTML" then
-        printlog "Not in WriterWeb!"
-        goto endsub
-    end if
-    printlog " Open new document"
-    Call hNewDocument
-
-    printlog " Insert / Indexes and Tables / Indexes and Tables"
-    InsertIndexes
-    WaitSlot (5000)
-    Kontext "Active"
-    if Active.Exists then
-        if Active.GetRT = 304 then
-            Warnlog Active.Gettext
-            Active.Ok
-        end if
-    end if
-    Sleep 1
-    printlog " Step through all Tabpages"
-    Kontext
-    printlog "-  TabPage Indexes"
-    Active.Setpage TabVerzeichnisseVerzeichnis
-    Kontext "TabVerzeichnisseVerzeichnis"
-    For i= 1 to VerzeichnisTyp.GetItemCount
-        Sleep 1
-        VerzeichnisTyp.Select i
-        printlog "- " + VerzeichnisTyp.GetSelText
-        Call DialogTest (TabVerzeichnisseVerzeichnis)
-        printlog "-  Entry's to " + VerzeichnisTyp.GetSelText
-
-        if i = 1 then
-            ErzeugenAusGliederung.Check
-        end if
-
-        if i = 2 then
-            if gUseSysDlg = False then
-                Konkordanzdatei.Check
-                Kontext "KonkordanzdateiOeffnen"
-                if KonkordanzdateiOeffnen.Exists then
-                    KonkordanzdateiOeffnen.Cancel
-                    Warnlog "Open-Dialog comes up at checking the checkbox!"
-                end if
-                Kontext "TabVerzeichnisseVerzeichnis"
-                if KonkordanzAuswahl.IsEnabled then
-                    KonkordanzAuswahl.Click
-                    wait 500
-                    Call hMenuSelectNr ( 1 )
-                    Kontext "KonkordanzdateiOeffnen"
-                    if KonkordanzdateiOeffnen.Exists then
-                        KonkordanzdateiOeffnen.Cancel
-                    else
-                        Warnlog "No Open-Dialog selecting Concordance-File->Open!"
-                    end if
-                    Sleep 1
-                    Kontext "TabVerzeichnisseVerzeichnis"
-                    KonkordanzAuswahl.Click
-                    wait 500
-                    Call hMenuSelectNr ( 2 )
-                    Kontext "SpeichernDlg"
-                    if SpeichernDlg.Exists then
-                        SpeichernDlg.Cancel
-                    else
-                        Warnlog "No Open-Dialog selecting Concordance-File->New!"
-                    end if
-                else
-                    Warnlog "- Concordance-File couldn't be selected, though checkbox is checked!"
-                end if
-                Sleep 1
-            end if
-        end if
-
-        Kontext
-        Active.Setpage TabVerzeichnisseEintraege
-        Kontext "TabVerzeichnisseEintraege"
-        Call DialogTest (TabVerzeichnisseEintraege)
-        Kontext
-        Active.Setpage TabVerzeichnisseVerzeichnis
-        Kontext "TabVerzeichnisseVerzeichnis"
-    next i
-    Sleep 1
-
-    Kontext
-    printlog "-  Tabpage Styles"
-    Active.Setpage TabVerzeichnisseVorlagen
-    Kontext "TabVerzeichnisseVorlagen"
-    Call DialogTest (TabVerzeichnisseVorlagen)
-    Sleep 1
-    printlog "- Tabpage Columns"
-    Kontext
-    Active.Setpage TabSpalten
-    Kontext "TabSpalten"
-    Call DialogTest (TabSpalten)
-    Sleep 1
-    printlog "- Tabpage Background"
-    Kontext
-    Active.Setpage TabHintergrund
-    Kontext "TabHintergrund"
-    TabHintergrund.Cancel
-    Sleep 1
-    printlog " Close active document"
-    Call hCloseDocument
-
-    Sleep 2
-    printlog " Open new document"
-    Call hNewDocument
-    Sleep 2
-
-    printlog " View Zoom"
-    ViewZoom
-
-    Kontext "Massstab"
-    printlog " Check if 100% Zoom is checked ( Had a bug changed after opening Index dialog )"
-    if Massstab.Exists then
-        if Not Vergroesserung100.IsChecked then
-            Warnlog "100% Zoom is not checked.Maybe Bug#95871! Set Zoom to 100%!"
-            Vergroesserung100.Check
-            Massstab.ok
-        else
-            Massstab.Cancel
-            printlog " Close 'Zoom' dialog"
-        end if
-    else
-        Warnlog "Dialog 'Zoom' does not exist!"
-    end if
-    printlog " Close active document"
-    Call hCloseDocument
-endcase
-
-'-----------------------------------------------------------
-
-testcase tInsertIndexesBibliographyEntry
-    Printlog "- Insert / Indexes / Bibliography Entry"
-    if gApplication = "HTML" then
-        printlog "Not in WriterWeb!"
-        goto endsub
-    end if
-    printlog " Open new document"
-    Call hNewDocument
-    
-    printlog " Insert / Indexes and Tables / Bibliography Entry "
-    hUseAsyncSlot( "InsertIndexesBibliographyEntry" )
-    
-    Kontext "Active"
-    if ( Active.Exists() ) then
-        Do
-            try
-                if ( Active.GetRT = 304 ) then
-                    Warnlog Active.Gettext
-                    Active.Ok
-                end if
-            catch
-                exit do
-            endcatch
-        Loop
-    end if
-
-    Kontext "LiteratureintragEinfuegen"
-    if ( LiteratureintragEinfuegen.exists( 1 ) ) then
-        Call DialogTest ( LiteratureintragEinfuegen )
-        
-        printlog " In dialog 'Insert Bibliography Entry' click 'Edit'"
-        EintragBearbeiten.Click
-
-        Kontext "LiteratureintragDefinieren"
-        if ( LiteratureintragDefinieren.exists( 1 ) ) then
-            Call DialogTest ( LiteratureintragDefinieren )
-            printlog " Close dialog 'Define Bibliography Entry'"
-            LiteratureintragDefinieren.Close
-        else
-            warnlog( "Dialog <LiteratureintragDefinieren> is not available" )
-        endif
-        
-        Kontext "LiteratureintragEinfuegen"
-        printlog " Close dialog 'Insert Bibliography Entry'"
-        EintragSchliessen.Click
-    else
-        warnlog( "Dialog <LiteratureintragEinfuegen> is not available" )
-    endif
-    printlog " Close active document"
-    Call hCloseDocument
-endcase
-
-'-----------------------------------------------------------
-
-testcase tInsertEnvelope
-    PrintLog "- Insert / Envelope"
-    if gApplication = "HTML" then
-        printlog "Not in WriterWeb!"
-        goto endsub
-    end if
-
-    printlog " Open new document"
-    Call hNewDocument
-
-    printlog " Insert / Envelope"
-    InsertEnvelope
-
-    Kontext
-    active.SetPage TabEnvelope
-    Kontext "TabEnvelope"
-    Call DialogTest (TabEnvelope)
-
-    Kontext
-    active.SetPage TabFormatEnvelope
-    Kontext "TabFormatEnvelope"
-    Call DialogTest (TabFormatEnvelope)
-    printlog " Step through all tabpages and click all buttons"
-
-    printlog "-  Edit Addressee"
-    Sleep 1
-    AddresseeEdit.Click
-    wait 500
-    Call hMenuSelectNr(1)
-    Kontext
-    Sleep 1
-    Active.Setpage TabFont
-    Kontext "TabFont"
-    TabFont.Cancel
-
-    Kontext "TabFormatEnvelope"
-    Sleep 1
-    SenderEdit.Click
-    wait 500
-    Call hMenuSelectNr(2)
-    Kontext
-    Sleep 1
-    Active.Setpage TabEinzuegeUndAbstaende
-    Kontext "TabEinzuegeUndAbstaende"
-    TabEinzuegeUndAbstaende.Cancel
-
-    Kontext "TabFormatEnvelope"
-    printlog "-  Edit Sender"
-    Sleep 1
-    SenderEdit.Click
-    wait 500
-    Call hMenuSelectNr(1)
-    Kontext
-    Sleep 1
-    Active.Setpage TabFont
-    Kontext "TabFont"
-    TabFont.Cancel
-
-    Kontext "TabFormatEnvelope"
-    Sleep 1
-    SenderEdit.Click
-    wait 500
-    Call hMenuSelectNr(2)
-    Kontext
-    Sleep 1
-    Active.Setpage TabEinzuegeUndAbstaende
-    Kontext "TabEinzuegeUndAbstaende"
-    TabEinzuegeUndAbstaende.Cancel
-
-    Kontext
-    Sleep 2
-    active.SetPage TabDruckerBriefumschlag
-    Kontext "TabDruckerBriefumschlag"
-    Call DialogTest (TabDruckerBriefumschlag)
-    if gPlatgroup = "w95" then
-        Einrichten.Click
-        Kontext "DruckerEinrichten"
-        if DruckerEinrichten.Exists then
-            DruckerEinrichten.Cancel
-        else
-            Warnlog "No Default-Printer!"
-        end if
-        Kontext "TabDruckerBriefumschlag"
-    end if
-    printlog " Close dialog"
-    TabDruckerBriefumschlag.Close
-
-    printlog " Close active document"
-    Call hCloseDocument
-endcase
-
-'-----------------------------------------------------------
-
-testcase tInsertFrame
-    PrintLog "- Insert / Frame"
-
-    printlog " Open new document"
-    Call hNewDocument
-
-    printlog " Insert / Frame"
-    InsertFrame
-    WaitSlot (2000)
-
-    printlog " Step through all tabpages"
-    Kontext
-    active.SetPage TabType
-    Kontext "TabType"
-    Call DialogTest (TabType)
-    Sleep 1
-
-    Kontext
-    active.SetPage TabZusaetze
-    Kontext "TabZusaetze"
-    Call DialogTest (TabZusaetze)
-    Sleep 1
-
-    Kontext
-    active.SetPage TabUmlauf
-    Kontext "TabUmlauf"
-    Call DialogTest (TabUmlauf)
-    Sleep 1
-
-    Kontext
-    active.SetPage TabUmrandung
-    Kontext "TabUmrandung"
-    Call DialogTest (TabUmrandung)
-    Sleep 1
-
-    Kontext
-    active.SetPage TabHintergrund
-    Kontext "TabHintergrund"
-    Call DialogTest (TabHintergrund, 1)
-    Sleep 1
-    try
-        Als.Select (2)
-        Call DialogTest (TabHintergrund, 2)
-        Sleep 1
-    catch
-        Warnlog "Maybe missing combobox!"
-    endcatch
-
-    if gApplication <> "HTML" then
-        Kontext
-        active.SetPage TabHyperlinkRahmen
-        Kontext "TabHyperlinkRahmen"
-        Call DialogTest (TabHyperlinkRahmen)
-        Durchsuchen.Click
-
-        if gUSeSysDlg = False then
-            Kontext "OeffnenDlg"
-            OeffnenDlg.Cancel
-        end if
-
-        Kontext
-        active.SetPage TabSpalten
-        Kontext "TabSpalten"
-        Call DialogTest (TabSpalten)
-        printlog " Close dialog"
-        TabSpalten.Cancel
-    else
-        printlog " Close dialog"
-        TabHintergrund.Cancel
-    end if
-
-    printlog " Close active document"
-    Call hCloseDocument
-endcase
-
-'-----------------------------------------------------------
-
-testcase tInsertTable
-    PrintLog "- Insert / Table"
-
-    printlog " Open new document"
-    Call hNewDocument
-    printlog " Insert / Table"
-    InsertTableWriter
-
-    Kontext "TabelleEinfuegenWriter"
-    Call DialogTest (TabelleEinfuegenWriter)
-    if Spalten.Gettext <> "2" then Warnlog "- Default for Size Columns isn't 2 , it is " + Spalten.Gettext
-    if Zeilen.Gettext <> "2" then Warnlog "- Default for Size Row isn't 2, it is " + Zeilen.Gettext
-    printlog " In 'insert Table' dialog click 'AutoFormat'"
-    Autoformat.Click
-    Kontext "AutoformatTabelle"
-
-    printlog " In 'AutoFormat' dialog click 'More'"
-    Zusaetze.Click
-    Call DialogTest ( AutoformatTabelle )
-
-    if Formatbox.GetItemCount > 2 then
-        Formatbox.Select(3)
-        Zusaetze.Open
-        Umbenennen.Click
-        Kontext "AutoformatHinzufuegenWriter"
-        Call DialogTest ( AutoformatHinzufuegenWriter )
-        TabellenName.SetText "Hallo"
-        AutoformatHinzufuegenWriter.Cancel
-        Kontext "AutoFormatTabelle"
-    else
-        Warnlog "Only " + Formatbox.GetItemCount + " Table formats to select ?"
-    end if
-    printlog " Close dialog 'More'"
-    Zusaetze.Close
-    printlog " Close dialog 'AutoFormat'"
-    AutoformatTabelle.Cancel
-
-    Kontext "TabelleEinfuegenWriter"
-    printlog " Close dialog ''"
-    TabelleEinfuegenWriter.Cancel
-
-    printlog " Close active document"
-    Call hCloseDocument
-endcase
-
diff --git a/testautomation/writer/required/includes/w_004b_.inc b/testautomation/writer/required/includes/w_004b_.inc
deleted file mode 100644
index 3252e30fd450..000000000000
--- a/testautomation/writer/required/includes/w_004b_.inc
+++ /dev/null
@@ -1,953 +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 : Helge.Delfs@Sun.Com
-'*
-'* short description : Testcases with connection to the Insert-menu part II.
-'*
-'\***********************************************************************
-
-sub w_004b_
-
-    printLog Chr(13) + "---------  Insert Menu ( w_004_ ) ----------"
-
-    gApplication = "WRITER"
-    call tInsertHorizontalLine
-    call tInsertGraphicsFromFile
-    call tInsertAllGraphicsFromFile
-    call tInsertObjectOLEObject
-    call tInsertObjectPlugIn
-    call tInsertObjectSound
-    call tInsertObjectVideo
-    call tInsertObjectFormula
-    call tInsertObjectChart
-    call tInsertFile
-
-    gApplication = "HTML"
-    call tHtmlDocInsertFields
-    call tHtmlDocInsertFieldsOther
-    call tHtmlDocInsertSection
-    call tHtmlDocInsertFrame
-    call tHtmlDocInsertGraphicsFromFile
-    gApplication = "WRITER"
-
-end sub
-
-testcase tInsertHorizontalLine
-    PrintLog "- Insert / Horizontal Line"
-
-    printlog " Open new document"
-    Call hNewDocument
-
-    printlog " Insert / Horizontal Line"
-    InsertHorizontalLine
-    Kontext "HorizontaleLinieEinfuegen"
-    Call DialogTest (HorizontaleLinieEinfuegen)
-    printlog " Close dialog 'Insert Horizontal Ruler'"
-    HorizontaleLinieEinfuegen.Cancel
-
-    printlog " Close active document"
-    Call hCloseDocument
-endcase
-
-'-----------------------------------------------------------
-
-testcase tInsertGraphicsFromFile
-    PrintLog "- Insert / Graphics / From File"
-    Dim j as integer
-
-    printlog " Open new document"
-    Call hNewDocument
-
-    printlog " Insert / Graphics from file"
-    InsertGraphicsFromFile
-
-    Kontext "GrafikEinfuegenDlg"
-    printlog " Select as graphic to insert: '...\writer\required\input\graphics\jolink.jpg"
-    Dateiname.Settext ConvertPath ( gTesttoolPath + "writer\required\input\graphics\jolink.jpg" )
-    Oeffnen.Click
-
-    Kontext "Active"
-    if Active.Exists( 1 ) then
-        Warnlog Active.Gettext
-        Active.Ok
-        Kontext "GrafikEinfuegenDlg"
-        GrafikEinfuegenDlg.Cancel
-        Call hCloseDocument
-        goto endsub
-    else
-        printlog " select again 'Insert / Grahics from file'"
-        InsertGraphicsFromFile
-        WaitSlot (2000)
-        printlog " Step through all tabpages"
-        Kontext
-        active.SetPage TabType
-        wait 500
-        Kontext "TabType"
-        Call DialogTest ( TabType )
-
-        Kontext
-        active.SetPage TabZusaetze
-        wait 500
-        Kontext "TabZusaetze"
-        Call DialogTest ( TabZusaetze )
-
-        Kontext
-        active.SetPage TabUmlauf
-        wait 500
-        Kontext "TabUmlauf"
-        Call DialogTest ( TabUmlauf )
-
-        Kontext
-        active.SetPage TabHyperlinkRahmen
-        wait 500
-        Kontext "TabHyperlinkRahmen"
-        Call DialogTest ( TabHyperlinkRahmen )
-
-        Kontext
-        active.SetPage TabGrafik
-        wait 500
-        Kontext "TabGrafik"
-        Call DialogTest ( TabGrafik )
-
-        Kontext
-        active.SetPage TabUmrandung
-        wait 500
-        Kontext "TabUmrandung"
-        Call DialogTest ( TabUmrandung )
-
-        Kontext
-        active.SetPage TabMakro
-        ' if no JRE is installed a messagebox appears
-        j = 0
-        Do
-            j = j + 1
-            Kontext "Active"
-            if Active.Exists() then
-                if Active.GetRT = 304 then
-                    if j = 1 then Warnlog Active.Gettext
-                    Active.Ok
-                else
-                    exit do
-                end if
-            else
-                exit do
-            end if
-        Loop
-        wait 500
-        Kontext "TabMakro"
-        Call DialogTest ( TabMakro )
-
-        if gApplication <> "HTML" then
-            Kontext
-            active.SetPage TabZuschneiden
-            wait 500
-            Kontext "TabZuschneiden"
-            Call DialogTest ( TabZuschneiden )
-
-            Kontext
-            active.SetPage TabHintergrund
-            wait 500
-            Kontext "TabHintergrund"
-            Call DialogTest ( TabHintergrund )
-            printlog " Close dialog"
-            TabHintergrund.Cancel
-        else
-            printlog " Close dialog"
-            TabMakro.Cancel
-        end if
-    end if
-
-    printlog " Close active document"
-    Call hCloseDocument
-endcase
-
-'-----------------------------------------------------------
-
-testcase tInsertAllGraphicsFromFile
-
-    printlog( "Load files of all known graphics formats" )
-
-    dim iCurrentFile as integer
-    dim GraphicFile as String
-    dim Filtername as String
-
-    printlog( "Insert a sample of commonly used file formats into a writer document (not linked)" )
-
-    gApplication = "WRITER"
-    Call hNewDocument
-
-    for iCurrentFile = 1 to 25
-        Kontext "GrafikEinfuegenDlg"
-        if ( not GrafikEinfuegenDlg.exists() ) then
-            InsertGraphicsFromFile
-            Kontext "GrafikEinfuegenDlg"
-        endif
-
-        if ( GrafikEinfuegenDlg.Exists( 2 ) ) then
-            ' the list of files expected to be found in the samples directory
-            select case iCurrentFile
-                case 1  :  GraphicFile = "desp.bmp"
-                case 2  :  GraphicFile = "columbia.dxf"
-                case 3  :  GraphicFile = "extrud.emf"
-                case 4  :  GraphicFile = "ball.eps"
-                case 5  :  GraphicFile = "airshw.met"
-                case 6  :  GraphicFile = "eface.gif"
-                case 7  :  GraphicFile = "purzel.gif"         ' Animated Gif
-                case 8  :  GraphicFile = "borabora.jpg"
-                case 9  :  GraphicFile = "grafix1.pbm"
-                case 10 :  GraphicFile = "circle.pcx"
-                case 11 :  GraphicFile = "papagei1.pcd"
-                case 12 :  GraphicFile = "newtonme.pct"
-                case 13 :  GraphicFile = "grafix2.pgm"
-                case 14 :  GraphicFile = "obst.png"
-                case 15 :  GraphicFile = "london.ppm"
-                case 16 :  GraphicFile = "tiger.psd"
-                case 17 :  GraphicFile = "grafix3.ras"
-                case 18 :  GraphicFile = "mickym.sgf"
-                case 19 :  GraphicFile = "faxpfeil.sgv"
-                case 20 :  GraphicFile = "picture.svm"
-                case 21 :  GraphicFile = "pilz.tga"
-                case 22 :  GraphicFile = "stabler.tif"
-                case 23 :  GraphicFile = "krokodil.wmf"
-                case 24 :  GraphicFile = "grafix4.xbm"
-                case 25 :  GraphicFile = "papagei2.xpm"
-            end select
-
-            GraphicFile = ConvertPath (gTesttoolPath & "global\input\graf_inp\" & GraphicFile)
-            printlog( "Current file " + iCurrentFile + ": " & GraphicFile )
-            printlog( " * Set filter to <All formats>" )
-            DateiName.SetText( GraphicFile )
-            DateiTyp.Select( 1 )
-            WaitSlot()
-
-            printlog( " * Uncheck Preview- and Link-checkbox, load the file" )
-            Vorschau.unCheck
-            Verknuepfen.unCheck()
-            Oeffnen.click()
-            WaitSlot( 2000 )
-
-            Kontext "Active"
-            if ( Active.Exists() ) then
-                Warnlog( "Unexpected messagebox: " & Active.GetText() )
-                Warnlog( "Affected file: " & GraphicFile )
-                Active.OK
-            else
-                try
-                    EditCopy
-                    WaitSlot( 2000 )
-                    EditDeleteContents
-                    WaitSlot( 2000 )
-                catch
-                    Warnlog( "Graphic file not selected/Copy or Delete is disabled: " & GraphicFile )
-                    gMouseClick (90, 90)
-                endcatch
-            endif
-        else
-            warnlog( "Insert Graphics Dialog is not open, aborting" )
-            goto endsub
-        endif
-
-    skipformat:
-    next iCurrentFile
-
-    printlog( "" )
-    printlog( "Test the PCD-Filters directly (3 samples)" )
-
-    for iCurrentFile = 1 to 3
-
-        printlog( "" )
-
-        Kontext "GrafikEinfuegenDlg"
-        if ( not GrafikEinfuegenDlg.exists() ) then
-            InsertGraphicsFromFile
-            Kontext "GrafikEinfuegenDlg"
-        endif
-
-        if ( GrafikEinfuegenDlg.exists( 2 ) ) then
-
-            select case iCurrentFile
-            case 1 : Filtername = "PCD - Kodak Photo CD (768x512) (*.pcd)"
-            case 2 : Filtername = "PCD - Kodak Photo CD (384x256) (*.pcd)"
-            case 3 : Filtername = "PCD - Kodak Photo CD (192x128) (*.pcd)"
-            end select
-
-            GraphicFile = ConvertPath( gTesttoolPath & "global\input\graf_inp\papagei1.pcd" )
-
-            printlog( "Current filter: " & Filtername )
-            printlog( "Current file..: " & GraphicFile )
-            DateiName.SetText ( GraphicFile )
-            DateiTyp.Select( Filtername )
-
-            printlog( " * Uncheck Preview- and Link-checkbox, load the file" )
-            Vorschau.Uncheck()
-            Verknuepfen.unCheck()
-            Oeffnen.click()
-            WaitSlot( 2000 )
-
-            Kontext "Active"
-            if ( Active.Exists() )then
-                Warnlog( "Unexpected messagebox: " & Active.GetText() )
-                Warnlog( "Affected file..: " & GraphicFile )
-                Warnlog( "Affected filter: " & Filtername )
-                Active.OK()
-            else
-                try
-                    EditCopy
-                    WaitSlot( 2000 )
-                    EditDeleteContents
-                    WaitSlot( 2000 )
-                catch
-                    Warnlog( "Problems with filtertype : " & Filtername )
-                    gMouseClick (90, 90)
-                endcatch
-            endif
-        else
-            warnlog( "Insert Graphics Dialog is not open. Aborting" )
-            goto endsub
-        endif
-
-    next iCurrentFile
-
-    Kontext "GrafikEinfuegenDlg"
-    if GrafikEinfuegenDlg.Exists then
-        GrafikEinfuegenDlg.Cancel
-    endif
-
-    Call hCloseDocument
-
-endcase
-
-'-----------------------------------------------------------
-
-testcase tInsertObjectOLEObject
-    PrintLog "- Insert / Object / OLE-Objekt"
-
-    printlog " Open new document"
-    Call hNewDocument
-
-    printlog " Insert / Object / OLE-Object"
-    InsertObjectOLEObject
-
-    Kontext "OLEObjektEinfuegen"
-    printlog " Check both radiobuttons 'Create now' and 'Create from file'"
-    NeuErstellen.Check
-    Call DialogTest (OLEObjektEinfuegen, 1)
-    AusDateiErstellen.Check
-    Call DialogTest (OLEObjektEinfuegen, 2)
-    OLEObjektEinfuegen.Cancel
-
-    printlog " Close active document"
-    Call hCloseDocument
-endcase
-
-'-----------------------------------------------------------
-
-testcase tInsertObjectPlugIn
-    PrintLog "- Insert / Object / Plug-In"
-
-    printlog " Open new document"
-    Call hNewDocument
-
-    printlog " Close 'Plug in' dialog"
-    InsertObjectPlugIn
-
-    Kontext "PlugInEinfuegen"
-    if PlugInEinfuegen.Exists then
-        Call DialogTest (PlugInEinfuegen)
-        PlugInEinfuegen.Cancel
-    else
-        Warnlog "Dialog 'Plugin' is not up!"
-    end if
-
-    printlog " Close active document"
-    Call hCloseDocument
-endcase
-
-'-----------------------------------------------------------
-
-testcase tInsertObjectSound
-    Printlog "- Insert / Object / Sound"
-    printlog " Open new document"
-    Call hNewDocument
-
-    try
-        if gUseSysDlg = False then
-            InsertObjectSound
-            printlog " Insert / Object / Sound"
-            Kontext "OeffnenDlg"
-            if OeffnenDlg.Exists then
-                OeffnenDlg.Cancel
-            else
-                Warnlog "Dialog to insert Sound isn't up!"
-            end if
-        end if
-    catch
-        'Warnlog "- Menu disabled or no Sound-PlugIn installed !?"
-    endcatch
-    printlog " Close active document"
-    Call hCloseDocument
-endcase
-
-'-----------------------------------------------------------
-
-testcase tInsertObjectVideo
-    Printlog "- Insert / Object / Video"
-
-    printlog " Open new document"
-    Call hNewDocument
-
-    try
-        if gUseSysDlg = False then
-            InsertObjectVideo
-            printlog " Insert / Object / Video"
-            Kontext "OeffnenDlg"
-            if OeffnenDlg.Exists then
-                OeffnenDlg.Cancel
-            else
-                Warnlog "Dialog to insert Video isn't up!"
-            end if
-        end if
-    catch
-        'Warnlog "- Menu disabled or no Video-PlugIn installed !?"
-    endcatch
-    printlog " Close active document"
-    Call hCloseDocument
-endcase
-
-'-----------------------------------------------------------
-
-testcase tInsertObjectFormula
-    PrintLog "- Insert / Object / Formula"
-
-    printlog " Open new document"
-    Call hNewDocument
-
-    printlog " Insert / Object / Formular"
-    InsertObjectFormula
-    WaitSlot (2000)
-    Kontext "Active"
-    if Active.Exists then
-        if Active.GetRT = 304 then
-            Warnlog Active.Gettext
-            Active.Ok
-        end if
-    end if
-    Sleep 1
-
-    printlog " Click in 'Math' document"
-    Call gMouseClick(1,1)
-    sleep 1
-    printlog "  'Delete math-object in document"
-    Call wTypeKeys("<Delete>")
-
-    printlog " Close active document"
-    Call hCloseDocument
-endcase
-
-'-----------------------------------------------------------
-
-testcase tInsertObjectChart
-    PrintLog "- Insert / Object / Chart"
-
-    printlog " Open new document"
-    Call hNewDocument
-    ' Chart-Wizard will be invoked if data ranges exist
-    ' Therefor a table will be inserted
-    printlog " Insert / Table"
-    InsertTableWriter
-    Kontext "TabelleEinfuegenWriter"
-    TabelleEinfuegenWriter.Ok
-
-    printlog " Insert / Object / Chart"
-    InsertObjectChart
-
-    Kontext "ChartWizard"
-    if ChartWizard.Exists then
-        printlog "- Chart-Wizard is up=>OK"
-        Call DialogTest ( ChartWizard )
-        printlog " Cancel Chart-Wizard"
-        ChartWizard.Cancel
-    else
-        warnlog "Chart-Wizard is not up though a table has been inserted"
-    end if
-
-    printlog " Close active document"
-    Call hCloseDocument
-endcase
-
-'-----------------------------------------------------------
-
-testcase tInsertFile
-    PrintLog "- Insert / File"
-
-    printlog " Open new document"
-    Call hNewDocument
-    InsertFileWriter
-    WaitSlot( 2000 )
-
-    printlog " Insert / File"
-    Kontext "OeffnenDlg"
-
-    printlog " Check 'File dialog'"
-    if OeffnenDlg.Exists( 2 ) then
-        Call DialogTest ( OeffnenDlg )
-        try
-            Standard.Click
-        catch
-            Exceptlog
-        endcatch
-
-        Kontext "Active"
-        if Active.Exists then
-            Warnlog Active.Gettext
-            Active.Ok
-        else
-            Kontext "OeffnenDlg"
-            OeffnenDlg.Cancel
-        end if
-    end if
-
-    printlog " Close active document"
-    Call hCloseDocument
-endcase
-
-'-----------------------------------------------------------
-
-testcase tHtmlDocInsertFields
-    PrintLog "- Insert / Fields"
-
-    gApplication = "HTML"
-    printlog " Open new document"
-    Call hNewDocument
-
-    try
-        printlog "Insert / Fields / Date"
-        InsertFieldsDate
-    catch
-        Warnlog "Unable to execute: Insert / Fields / Date "
-    endcatch
-    printlog " Insert / Fields / Date"
-    Call wTypeKeys (" <Return>")
-    try
-        printlog "Insert / Fields / Time"
-        InsertFieldsTime
-    catch
-        Warnlog "Unable to execute: Insert / Fields / Time"
-    endcatch
-    printlog " Insert / Fields / Time"
-    Call wTypeKeys (" <Return>")
-    try
-        printlog "Insert / Fields / Page Number"
-        InsertFieldsPageNumbers
-    catch
-        Warnlog "Unable to execute: Insert / Fields / Page numbers"
-    endcatch
-    printlog " Insert / Fields / Page numbers"
-    Call wTypeKeys (" <Return>")
-    try
-        printlog "Insert / Fields / Page Count"
-        InsertFieldsPageCount
-    catch
-        Warnlog "Unable to execute: Insert / Fields / Page Count"
-    endcatch
-    printlog " Insert / Fields / Page count"
-    Call wTypeKeys (" <Return>")
-    try
-        printlog "Insert / Fields / Title"
-        InsertFieldsTitle
-    catch
-        Warnlog "Unable to execute: Insert / Fields / Title"
-    endcatch
-    printlog " Insert / Fields / Title"
-    Call wTypeKeys (" <Return>")
-    try
-        printlog "Insert / Fields / Author"
-        InsertFieldsAuthor
-    catch
-        Warnlog "Unable to execute: Insert / Fields / Author"
-    endcatch
-    printlog " Insert / Fields / Author"
-    if gApplication <> "HTML" then
-        try
-            printlog "Insert / Fields / Subject"
-            InsertFieldsSubject
-        catch
-            Warnlog "Unable to execute: Insert / Fields / Subject"
-        endcatch
-        printlog " If document not HTML then  'Insert / Fields / Subject"
-        Call wTypeKeys (" <Return>")
-        printlog " Press key 'enter'"
-    end if
-
-    printlog " Close active document"
-    Call hCloseDocument
-    gApplication = "WRITER"
-endcase
-
-'-----------------------------------------------------------
-
-testcase tHtmlDocInsertFieldsOther
-    Dim i as integer
-    Dim j as integer
-    printlog "- Insert / Fields / Other"
-
-    gApplication = "HTML"
-    printlog " Open new document"
-    Call hNewDocument
-
-    printlog " Insert / Fields / Other"
-    InsertFieldsOther
-
-    Kontext
-    printlog " In dialog step through all tabpages"
-    Active.SetPage TabDokumentFeldbefehle
-    Kontext "TabDokumentFeldbefehle"
-    Call Dialogtest ( TabDokumentFeldbefehle )
-
-    Kontext
-    Active.SetPage TabDokumentinfoFeldbefehle
-    Kontext "TabDokumentinfoFeldbefehle"
-    Call Dialogtest ( TabDokumentinfoFeldbefehle )
-
-    Kontext
-    Active.SetPage TabVariablen
-    Kontext "TabVariablen"
-    Call Dialogtest ( TabVariablen )
-
-    if gApplication <> "HTML" then
-        Kontext
-        Active.SetPage TabReferenzen
-        Kontext "TabReferenzen"
-        Call Dialogtest ( TabReferenzen )
-
-        Kontext
-        Active.SetPage TabFunktionen
-        Kontext "TabFunktionen"
-        Call Dialogtest ( TabFunktionen )
-        for i=1 to Feldtyp.GetItemCount
-            Feldtyp.Select i
-            if MakroButton.IsEnabled then
-                MakroButton.Click
-                ' if no JRE is installed a messagebox appears
-                Do
-                    j = j + 1
-                    Kontext "Active"
-                    if Active.Exists then
-                        if Active.GetRT = 304 then
-                            if j = 1 then Warnlog Active.Gettext
-                            Active.Ok
-                        else
-                            exit do
-                        end if
-                    else
-                        exit do
-                    end if
-                Loop
-
-                Kontext "ScriptSelector"
-                if ( ScriptSelector.exists( 3 ) ) then
-                    ScriptSelector.Close
-                else
-                    warnlog( "Dialog <ScriptSelector> is not available" )
-                endif
-                Kontext "TabFunktionen"
-                i=100
-            end if
-        next i
-
-        Kontext
-        Active.SetPage TabDatenbank
-        Kontext "TabDatenbank"
-        Call Dialogtest ( TabDatenbank )
-
-        printlog " Close dialog"
-        TabDatenbank.Close
-    else
-        printlog " Close dialog"
-        TabVariablen.Close
-    end if
-    printlog " Close active document"
-    Call hCloseDocument
-    gApplication = "WRITER"
-endcase
-
-'-----------------------------------------------------------
-
-testcase tHtmlDocInsertSection
-    PrintLog "- Insert / Section"
-
-    gApplication = "HTML"
-    printlog " Open new document"
-    Call hNewDocument
-
-    printlog " Insert / Section"
-    InsertSection
-    Kontext
-
-    printlog "  In dialog step through all tabpages"
-    printlog "-  Tabpage Section"
-    Active.Setpage TabBereiche
-    Kontext "TabBereiche"
-    Call DialogTest (TabBereiche)
-    Verknuepfung.Check
-
-    Auswaehlen.Click
-    Kontext "OeffnenDlg"
-    if ( OeffnenDlg.exists( 1 ) ) then
-        OeffnenDlg.Cancel
-    else
-        warnlog( "Dialog <OeffnenDlg> is not available" )
-    endif
-
-    Wait 500
-    Kontext
-    printlog "-  Tabpage Columns"
-    Active.Setpage TabSpalten
-    Kontext "TabSpalten"
-    Call DialogTest (TabSpalten)
-
-    Kontext
-    printlog "-  Tabpage Background"
-    Active.Setpage TabHintergrund
-    Kontext "TabHintergrund"
-    Call DialogTest (TabHintergrund)
-
-    if gApplication <> "HTML" then
-        printlog "Tabpage Indents"
-        Kontext
-        Active.Setpage TabSectionIndent
-        Kontext "TabSectionIndent"
-        Call DialogTest (TabSectionIndent)
-
-        printlog "-  Tabpage Footnotes/Endnotes"
-        Kontext
-        Active.Setpage TabFussEndnoten
-        Kontext "TabFussEndnoten"
-        Call DialogTest (TabFussEndnoten)
-        TabFussEndnoten.Cancel
-    else
-        TabHintergrund.Cancel
-    end if
-    printlog " Close active document"
-    Call hCloseDocument
-    gApplication = "WRITER"
-endcase
-
-'-----------------------------------------------------------
-
-testcase tHtmlDocInsertFrame
-    PrintLog "- Insert / Frame"
-
-    gApplication = "HTML"
-    printlog " Open new document"
-    Call hNewDocument
-
-    printlog " Insert / Frame"
-    InsertFrame
-    WaitSlot (2000)
-
-    printlog " Step through all tabpages"
-    Kontext
-    active.SetPage TabType
-    Kontext "TabType"
-    Call DialogTest (TabType)
-    Sleep 1
-
-    Kontext
-    active.SetPage TabZusaetze
-    Kontext "TabZusaetze"
-    Call DialogTest (TabZusaetze)
-    Sleep 1
-
-    Kontext
-    active.SetPage TabUmlauf
-    Kontext "TabUmlauf"
-    Call DialogTest (TabUmlauf)
-    Sleep 1
-
-    Kontext
-    active.SetPage TabUmrandung
-    Kontext "TabUmrandung"
-    Call DialogTest (TabUmrandung)
-    Sleep 1
-
-    Kontext
-    active.SetPage TabHintergrund
-    Kontext "TabHintergrund"
-    Call DialogTest (TabHintergrund, 1)
-    Sleep 1
-    try
-        Als.Select (2)
-        Call DialogTest (TabHintergrund, 2)
-        Sleep 1
-    catch
-        Warnlog "Maybe missing combobox! (#i29517)"
-    endcatch
-
-    if gApplication <> "HTML" then
-        Kontext
-        active.SetPage TabHyperlinkRahmen
-        Kontext "TabHyperlinkRahmen"
-        Call DialogTest (TabHyperlinkRahmen)
-        Durchsuchen.Click
-
-        if gUSeSysDlg = False then
-            Kontext "OeffnenDlg"
-            OeffnenDlg.Cancel
-        end if
-
-        Kontext
-        active.SetPage TabSpalten
-        Kontext "TabSpalten"
-        Call DialogTest (TabSpalten)
-        printlog " Close dialog"
-        TabSpalten.Cancel
-    else
-        printlog " Close dialog"
-        TabHintergrund.Cancel
-    end if
-
-    printlog " Close active document"
-    Call hCloseDocument
-    gApplication = "WRITER"
-endcase
-
-'-----------------------------------------------------------
-
-testcase tHtmlDocInsertGraphicsFromFile
-    PrintLog "- Insert / Graphics / From File"
-    Dim j as integer
-
-    gApplication = "HTML"
-    printlog " Open new document"
-    Call hNewDocument
-
-    printlog " Insert / Graphics from file"
-    InsertGraphicsFromFile
-
-    Kontext "GrafikEinfuegenDlg"
-    printlog " Select as graphic to insert: '...\writer\required\input\graphics\jolink.jpg"
-    Dateiname.Settext ConvertPath ( gTesttoolPath + "writer\required\input\graphics\jolink.jpg" )
-    Oeffnen.Click
-
-    Kontext "Active"
-    if Active.Exists( 1 ) then
-        Warnlog Active.Gettext
-        Active.Ok
-        Kontext "GrafikEinfuegenDlg"
-        GrafikEinfuegenDlg.Cancel
-        Call hCloseDocument
-        goto endsub
-    else
-        printlog " select again 'Insert / Grahics from file'"
-        InsertGraphicsFromFile
-        WaitSlot (2000)
-        printlog " Step through all tabpages"
-        Kontext
-        active.SetPage TabType
-        wait 500
-        Kontext "TabType"
-        Call DialogTest ( TabType )
-
-        Kontext
-        active.SetPage TabZusaetze
-        wait 500
-        Kontext "TabZusaetze"
-        Call DialogTest ( TabZusaetze )
-
-        Kontext
-        active.SetPage TabUmlauf
-        wait 500
-        Kontext "TabUmlauf"
-        Call DialogTest ( TabUmlauf )
-
-        Kontext
-        active.SetPage TabHyperlinkRahmen
-        wait 500
-        Kontext "TabHyperlinkRahmen"
-        Call DialogTest ( TabHyperlinkRahmen )
-
-        Kontext
-        active.SetPage TabGrafik
-        wait 500
-        Kontext "TabGrafik"
-        Call DialogTest ( TabGrafik )
-
-        Kontext
-        active.SetPage TabUmrandung
-        wait 500
-        Kontext "TabUmrandung"
-        Call DialogTest ( TabUmrandung )
-
-        Kontext
-        active.SetPage TabMakro
-        ' if no JRE is installed a messagebox appears
-        j = 0
-        Do
-            j = j + 1
-            Kontext "Active"
-            if Active.Exists then
-                if Active.GetRT = 304 then
-                    if j = 1 then Warnlog Active.Gettext
-                    Active.Ok
-                else
-                    exit do
-                end if
-            else
-                exit do
-            end if
-        Loop
-        wait 500
-        Kontext "TabMakro"
-        Call DialogTest ( TabMakro )
-
-        if gApplication <> "HTML" then
-            Kontext
-            active.SetPage TabZuschneiden
-            wait 500
-            Kontext "TabZuschneiden"
-            Call DialogTest ( TabZuschneiden )
-
-            Kontext
-            active.SetPage TabHintergrund
-            wait 500
-            Kontext "TabHintergrund"
-            Call DialogTest ( TabHintergrund )
-            printlog " Close dialog"
-            TabHintergrund.Cancel
-        else
-            printlog " Close dialog"
-            TabMakro.Cancel
-        end if
-    end if
-
-    printlog " Close active document"
-    Call hCloseDocument
-    gApplication = "WRITER"
-endcase
-
diff --git a/testautomation/writer/required/includes/w_005_.inc b/testautomation/writer/required/includes/w_005_.inc
deleted file mode 100644
index a1f4d1d4f8f3..000000000000
--- a/testautomation/writer/required/includes/w_005_.inc
+++ /dev/null
@@ -1,1230 +0,0 @@
-'**************************************************************************
-' 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 : helge.delfs@oracle.com
-'*
-'* short description :  Testcases for the Format-Menu
-'*
-'\******************************************************************
-
-sub w_005_
-
-    printLog Chr(13) + "--------- Menu Format (w_005_.inc) ----------"
-    gApplication = "WRITER"
-
-    Call tFormatDefault
-
-    Call tFormatCharacter
-    Call tFormatParagraph
-    Call tFormatNumberingBullets
-    Call tFormatPage
-
-    Call tFormatChangeCase
-    Call tFormatRuby
-    Call tFormatColumn
-    Call tFormatSections
-
-    Call tFormatStylist
-    Call tFormatAutoformatWhileTyping
-
-    Call tFormatAnchor
-    Call tFormatAnchorArea
-    Call tFormatWrap
-    Call tFormatWrapArea
-
-    'Writer Web
-    gApplication = "HTML"
-    Call tHtmlDocFormatParagraph
-    Call tHtmlDocFormatPage
-    Call tHtmlDocFormatStylist
-    gApplication = "WRITER"
-
-end sub
-
-'------------------------------------------------------
-
-testcase tFormatDefault
-    PrintLog "- Format / Default"
-
-    printlog " Open new document"
-    Call hNewDocument
-    printlog " Insert dummy text"
-    Call wBlindtextEinfuegen
-    printlog " Edit / Select All"
-    EditSelectAll
-    printlog " Format / Default"
-    FormatDefaultWriter
-    printlog " Close active document"
-    Call hCloseDocument
-endcase
-
-'------------------------------------------------------
-
-testcase tFormatSections
-    printlog "- Format / Sections"
-    printlog " Open new document"
-    Call hNewDocument
-    printlog " Insert / Section"
-    InsertSection
-    printlog " Step through all tabpages"
-    Kontext
-    Active.Setpage TabBereiche
-    Kontext "TabBereiche"
-    Bereichsliste.SetText "Mein Bereich"
-    TabBereiche.OK
-    
-    hUseAsyncSlot( "FormatSections" )
-    Kontext "BereicheBearbeiten"
-    Call Dialogtest(BereicheBearbeiten)
-    Optionen.Click
-    sleep(2)
-    Kontext
-    Active.SetPage TabSpalten
-    Kontext "TabSpalten"
-    Call Dialogtest(TabSpalten)
-    Kontext
-    Active.SetPage TabHintergrund
-    Kontext "TabHintergrund"
-    Call DialogTest(TabHintergrund, 1)
-    Als.Select(2)
-    Call DialogTest (TabHintergrund,2)
-    Durchsuchen.Click
-    sleep(2)
-    Kontext
-    If Active.Exists then
-        if Active.GetRT = 304 then
-            Warnlog Active.GetText
-            Active.Ok
-        end if
-    end If
-    
-    Kontext "GrafikEinfuegenDlg"
-    if ( GrafikEinfuegenDlg.exists( 1 ) ) then
-        GrafikEinfuegenDlg.Cancel
-        WaitSlot ' NOOP
-    else
-        warnlog( "Dialog <GrafikEinfuegenDlg> is not available" )
-    endif
-    
-    Kontext "TabHintergrund"
-    TabHintergrund.Cancel
-    
-    Kontext "BereicheBearbeiten"
-    if ( BereicheBearbeiten.exists( 1 ) ) then
-        BereicheBearbeiten.Cancel
-    else
-        warnlog( "Dialog <BereicheBearbeiten> is not available" )
-    endif
-    printlog " Close active document"
-    Call hCloseDocument
-endcase
-
-'------------------------------------------------------
-
-testcase tFormatCharacter
-    PrintLog "- Format / Character"
-    Dim j as integer
-
-    printlog " Open new document"
-    Call hNewDocument
-
-    printlog " Format / Character"
-    FormatCharacter
-
-    printlog " Step through all tabpages"
-    Kontext
-    active.SetPage TabFont
-    kontext "TabFont"
-    Call DialogTest ( TabFont )
-
-    Kontext
-    active.SetPage TabFontEffects
-    kontext "TabFontEffects"
-    Call DialogTest ( TabFontEffects )
-
-    Kontext
-    Active.SetPage TabFontPosition
-    Kontext "TabFontPosition"
-    Call DialogTest ( TabFontPosition )
-
-    if gAsianSup = True then
-        try
-            Kontext
-            Active.SetPage TabAsianLayout
-            Kontext "TabAsianLayout"
-            Call DialogTest ( TabAsianLayout )
-        catch
-            Warnlog "Tabpage 'Asian Layout' is not visible! Activated in Options ?"
-        endcatch
-    end if
-
-    Kontext
-    active.SetPage TabHyperlinkZeichen
-    Kontext "TabHyperlinkZeichen"
-    Call DialogTest ( TabHyperlinkZeichen )
-
-    Durchsuchen.Click
-    Kontext "OeffnenDlg"
-    if OeffnenDlg.Exists( 1 ) then
-        OeffnenDlg.Cancel
-    else
-        Warnlog "File-Open dialog is not up!"
-    end if
-
-    Kontext "TabHyperlinkZeichen"
-    Ereignisse.Click
-    ' if no JRE is installed a messagebox appears
-    Do
-        j = j + 1
-        Kontext "Active"
-        if Active.Exists then
-            if Active.GetRT = 304 then
-                if j = 1 then Warnlog Active.Gettext
-                Active.Ok
-            else
-                exit do
-            end if
-        else
-            exit do
-        end if
-    Loop
-    Kontext "MakroZuweisen"
-    Call DialogTest ( MakroZuweisen )
-    MakroZuweisen.Cancel
-    Kontext
-    active.SetPage TabHintergrund
-    kontext "TabHintergrund"
-    Call DialogTest ( TabHintergrund )
-    printlog " Close dialog"
-    TabHintergrund.Close
-
-    printlog " Close active document"
-    Call hCloseDocument
-endcase
-
-'------------------------------------------------
-
-testcase tFormatChangeCase
-    printlog "- Format / Change Case"
-    printlog " Open new document"
-    Call hNewDocument
-    printlog " Insert some text in document and select text"
-    Call wTypeKeys ("call him now ! please")
-    Call wTypeKeys ("<Shift Home>")
-
-    printlog " Format / Case Characters / Upper"
-    hUseAsyncSlot( "FormatChangeCaseUpper" )
-    EditCopy
-    if GetClipboardtext() <> "CALL HIM NOW ! PLEASE" then
-        Warnlog "Sentence not 'CALL HIM NOW ! PLEASE' but " & GetClipboardtext()
-    else
-        printlog "  " & GetClipboardtext()
-    endif
-
-    printlog " Format / Case Characters / Lower"
-    hUseAsyncSlot( "FormatChangeCaseLower" )
-    EditCopy
-    if GetClipboardtext() <> "call him now ! please" then
-        Warnlog "Sentence not 'call him now ! please' but " & GetClipboardtext()
-    else
-        printlog "  " & GetClipboardtext()
-    endif
-
-    printlog " Format / Case Characters / Sentence Case"
-    FormatChangeCaseToSentence
-    EditCopy
-    if GetClipboardtext() <> "Call him now ! Please" then
-        Warnlog "Sentence not 'Call him now ! Please' but " & GetClipboardtext()
-    else
-        printlog "  " & GetClipboardtext()
-    endif
-
-    printlog " Format / Case Characters / Capitalize every word"
-    FormatChangeCaseCapitalizeEveryWord
-    EditCopy
-    if GetClipboardtext() <> "Call Him Now ! Please" then
-        Warnlog "Sentence not 'Call Him Now ! Please' but " & GetClipboardtext()
-    else
-        printlog "  " & GetClipboardtext()
-    endif
-
-
-    printlog " Format / Case Characters / tOGGLE cASE"
-    FormatChangeCaseToggleCase
-    EditCopy
-    if GetClipboardtext() <> "cALL hIM nOW ! pLEASE" then
-        Warnlog "Sentence not 'cALL hIM nOW ! pLEASE' but " & GetClipboardtext()
-    else
-        printlog "  " & GetClipboardtext()
-    endif
-
-
-    if ( gAsianSup ) then
-        try
-            FormatChangeCaseHalfWidth
-            printlog " Format / Case Characters / Half Width"
-        catch
-            Warnlog "Format / Change Case / Half Width does not work. Maybe no Asian support!"
-        endcatch
-        WaitSlot()
-        
-        try
-            printlog " Format / Case Characters / Full Width"
-            FormatChangeCaseFullWidth
-        catch
-            Warnlog "Format / Change Case / Full Width does not work. Maybe no Asian support!"
-        endcatch
-        WaitSlot()
-        
-        try
-            printlog " Format / Case Characters / Hiragana"
-            FormatChangeCaseHiragana
-        catch
-            Warnlog "Format / Change Case / Hiragana does not work. Maybe no Asian support!"
-        endcatch
-        WaitSlot()
-        
-        try
-            printlog " Format / Case Characters / Katagana"
-            FormatChangeCaseKatagana
-        catch
-            Warnlog "Format / Change Case / Katagana does not work. Maybe no Asian support!"
-        endcatch
-    end if
-
-    printlog " Close active document"
-    Call hCloseDocument
-endcase
-
-'------------------------------------------------
-
-testcase tFormatRuby
-    printlog "- Format / Ruby"
-    if gAsianSup = True then
-        if gApplication = "HTML" then
-            printlog "Not in WriterWeb!"
-            goto endsub
-        end if
-        Call hNewDocument
-        printlog " Open new document"
-        Call wTypeKeys ("Hello World!")
-        Call wTypeKeys ("<Shift Home>")
-        printlog " Insert some text in document"
-
-        try
-            printlog " Format / Ruby"
-            FormatRuby
-        catch
-            Warnlog "Format / Ruby does not work. Maybe No Asian support!"
-            Call hCloseDocument
-            goto endsub
-        endcatch
-        Kontext "RubyDialog"
-        Call DialogTest ( RubyDialog )
-
-        printlog " Open Stylist"
-        CallStylist.Click
-
-        Kontext "Stylist"
-        if Stylist.Exists( 1 ) then
-            Stylist.close
-        else
-            Warnlog "Stylist has not been opened!"
-        end if
-
-        printlog " Close Stylist and Ruby dialog"
-        Kontext "RubyDialog"
-        DialogClose.Click
-
-        printlog " Close active document"
-        Call hCloseDocument
-    end if
-endcase
-
-'------------------------------------------------
-
-testcase tFormatParagraph
-    PrintLog "- Format / Paragraph"
-
-    printlog " Open new document"
-    Call hNewDocument
-    printlog " Format / Paragraph"
-    FormatParagraph
-
-    Kontext
-    active.SetPage TabEinzuegeUndAbstaende
-    kontext "TabEinzuegeUndAbstaende"
-    Call DialogTest ( TabEinzuegeUndAbstaende )
-    printlog " Step through all tabpages"
-
-    Kontext
-    Active.SetPage TabAusrichtungAbsatz
-    Kontext "TabAusrichtungAbsatz"
-    Call DialogTest ( TabAusrichtungAbsatz )
-
-    Kontext
-    active.SetPage TabNumerierungAbsatz
-    kontext "TabNumerierungAbsatz"
-    Call DialogTest ( TabNumerierungAbsatz )
-
-    Kontext
-    active.SetPage TabUmrandung
-    kontext "TabUmrandung"
-    Call DialogTest ( TabUmrandung )
-
-    if gApplication <> "HTML" then
-        Kontext
-        active.SetPage TabTextfluss
-        kontext "TabTextfluss"
-        Call DialogTest ( TabTextfluss )
-
-        if ( gAsianSup ) then
-            try
-                Kontext
-                Active.SetPage TabAsianTypography
-                Kontext "TabAsianTypography"
-                Call DialogTest ( TabAsianTypography )
-            catch
-                Warnlog "Tabpage 'Asian Typography' is not visible! Activated in Options ?"
-            endcatch
-        end if
-
-        Kontext
-        active.SetPage TabTabulator
-        kontext "TabTabulator"
-        Call DialogTest ( TabTabulator )
-
-        Kontext
-        active.SetPage TabInitialen
-        kontext "TabInitialen"
-        Anzeigen.Check
-        Call DialogTest ( TabInitialen )
-
-        Kontext
-        active.SetPage TabHintergrund
-        Kontext "TabHintergrund"
-        Call DialogTest ( TabHintergrund, 1 )
-        Als.Select 2
-        Kontext "TabHintergrund"
-        Call DialogTest ( TabHintergrund, 2 )
-        Durchsuchen.Click
-        Kontext "GrafikEinfuegenDlg"
-        GrafikEinfuegenDlg.Cancel
-
-        printlog " Close dialog"
-        kontext "TabHintergrund"
-        TabHintergrund.Close
-    else
-        printlog " Close dialog"
-        TabUmrandung.Close
-    end if
-
-    printlog " Close active document"
-    Call hCloseDocument
-endcase
-
-'------------------------------------------------
-
-testcase tFormatPage
-    PrintLog "- Format / Page"
-
-    printlog " Open new document"
-    Call hNewDocument
-
-    printlog " Format / Page"
-    FormatPageWriter
-
-    Kontext
-    printlog " Step through all tabpages"
-    active.SetPage TabVerwalten
-    kontext "TabVerwalten"
-    Call DialogTest ( TabVerwalten )
-
-    Kontext
-    active.SetPage TabSeite
-    kontext "TabSeite"
-    Call DialogTest ( TabSeite )
-
-    Kontext
-    active.SetPage TabHintergrund
-    Kontext "Active"
-    If Active.GetRT = 304 then Active.Yes         ' Messagebox abfangen-> Seitenr�nder au�erhalb des Bereichs
-
-    Kontext
-    active.SetPage TabHintergrund
-    kontext "TabHintergrund"
-    Call DialogTest ( TabHintergrund, 1 )
-    Als.Select 2
-    Call DialogTest ( TabHintergrund, 2 )
-    Durchsuchen.Click
-    
-    Kontext "GrafikEinfuegenDlg"
-    if ( GrafikEinfuegenDlg.exists( 1 ) ) then
-        GrafikEinfuegenDlg.Cancel
-    else
-        warnlog( "Dialog <GrafikEinfuegenDlg> is not available" )
-    endif
-
-    Kontext
-    active.SetPage TabKopfzeile
-    kontext "TabKopfzeile"
-    Call DialogTest ( TabKopfzeile )
-    if gApplication <> "HTML" then
-        KopfzeileMitAbstand.Check
-        Zusaetze.Click
-
-        Kontext
-        active.SetPage TabUmrandung
-        kontext "TabUmrandung"
-        Call DialogTest ( TabUmrandung )
-        Kontext
-        active.SetPage TabHintergrund
-        kontext "TabHintergrund"
-        Call DialogTest ( TabHintergrund )
-        Als.Select 2
-        Call DialogTest ( TabHintergrund )
-        TabHintergrund.Close
-    end if
-    Kontext
-    active.SetPage TabFusszeile
-    kontext "TabFusszeile"
-    Call DialogTest ( TabFusszeile )
-    if gApplication <> "HTML" then
-        FusszeileMitAbstand.Check
-        Zusaetze.Click
-
-        Kontext
-        active.SetPage TabUmrandung
-        kontext "TabUmrandung"
-        Call DialogTest ( TabUmrandung )
-        Kontext
-        active.SetPage TabHintergrund
-        kontext "TabHintergrund"
-        Call DialogTest ( TabHintergrund, 1 )
-        Als.Select 2
-        Call DialogTest ( TabHintergrund, 2 )
-        TabHintergrund.Close
-
-        Kontext
-        active.SetPage TabUmrandung
-        kontext "TabUmrandung"
-        Call DialogTest ( TabUmrandung )
-
-        Kontext
-        active.SetPage TabSpalten
-        kontext "TabSpalten"
-        Call DialogTest ( TabSpalten )
-
-        if gAsianSup = True then
-            Kontext
-            active.Setpage TabGrid
-            Kontext "TabGrid"
-            Call DialogTest ( TabGrid )
-        end if
-
-        Kontext
-        active.SetPage TabFussnote
-        kontext "TabFussnote"
-        Call DialogTest ( TabFussnote )
-        printlog " Close dialog"
-        TabFussnote.Close
-    else
-        printlog " Close dialog"
-        TabFussZeile.Close
-    end if
-
-    printlog " Close active document"
-    Call hCloseDocument
-endcase
-
-'--------------------------------------------------
-
-testcase tFormatNumberingBullets
-    dim referencecounter as integer
-    PrintLog "- Format / Numbering / Bullets"
-
-    printlog " Open new document"
-    Call hNewDocument
-
-    printlog " Format / Numbering/Bullets"
-    FormatNumberingBullets
-    WaitSlot (5000)
-
-    printlog " Step through all tabpages"
-    Kontext
-    Active.SetPage TabBullet
-    Kontext "TabBullet"
-    Call DialogTest ( TabBullet )
-
-    Kontext
-    Active.SetPage TabNumerierungsart
-    Kontext "TabNumerierungsart"
-    Call DialogTest ( TabNumerierungsart )
-
-    Kontext
-    Active.SetPage TabNumerierung
-    Kontext "TabNumerierung"
-    Call DialogTest ( TabNumerierung )
-
-    Kontext
-    Active.SetPage TabGrafiken
-    Kontext "TabGrafiken"
-    Call DialogTest ( TabGrafiken )
-
-    Kontext
-    Active.SetPage TabPositionNumerierung
-    Kontext "TabPositionNumerierung"
-    Call DialogTest ( TabPositionNumerierung )
-
-    Kontext
-    Active.SetPage TabOptionenNumerierung
-    Kontext "TabOptionenNumerierung"
-    Call DialogTest ( TabOptionenNumerierung )
-    Numerierung.Select 9
-
-    try
-        Auswahl.Click
-    catch
-        QAErrorlog "Numbering option 'Linked graphics' is missing"
-        TabOptionenNumerierung.Cancel
-        Call hCloseDocument
-        goto endsub
-    endcatch
-    Sleep 2
-    Call hMenuSelectNr (1)
-    Sleep 2
-    Kontext "OeffnenDlg"
-    OeffnenDlg.Cancel
-
-    Kontext "TabOptionenNumerierung"
-
-    Sleep 1
-
-    try
-        Auswahl.Click
-        referencecounter = hMenuItemGetCount
-        wait (350)
-        do while (hMenuItemGetCount <> "2")
-            referencecounter = hMenuItemGetCount
-            wait (100)
-        loop
-        Call hMenuSelectNr(2)
-        referencecounter = hMenuItemGetCount
-        wait (100)
-        do while (hMenuItemGetCount <> referencecounter)
-            referencecounter = hMenuItemGetCount
-            wait (150)
-        loop
-        Call hMenuClose
-    catch
-        Exceptlog
-        Call hMenuClose
-    endcatch
-
-    printlog " Close dialog"
-    TabOptionenNumerierung.Cancel
-
-    printlog " Close active document"
-    Call hCloseDocument
-endcase
-
-'------------------------------------------------------
-
-testcase tFormatStylist
-    PrintLog "- Format / Stylist"
-
-    if gPlatgroup = "unx" then
-        QAErrorlog "Doesn't run on unix"
-        goto endsub
-    end if
-    printlog " Open new document"
-    Call hNewDocument
-    Kontext "Gestalter"
-    If Not Gestalter.Exists then FormatStylist
-    printlog " Format / Stylist"
-    Kontext "Gestalter"
-    Call DialogTest ( Gestalter )
-    Zeichenvorlagen.Click
-    printlog " Click all Styles-buttons in Stylist"
-    if gApplication <> "HTML" then
-        WaitSlot()
-        Rahmenvorlagen.Click
-        WaitSlot()
-        Seitenvorlagen.Click
-    end if
-    WaitSlot()
-    Numerierungsvorlagen.Click
-    WaitSlot()
-    Absatzvorlagen.Click
-    WaitSlot()
-
-    TBGestalterRight.Click Giesskanne
-    WaitSlot()
-
-    AusSelektion.OpenMenu
-    Sleep 1
-    hMenuSelectNr(1)
-    
-    Kontext "VorlageErzeugen"
-    if ( VorlageErzeugen.exists( 1 ) ) then
-        DialogTest ( VorlageErzeugen )
-        VorlageErzeugen.Cancel
-    else
-        warnlog( "Dialog <VorlageErzeugen> is not available" )
-    endif
-
-    Kontext "Gestalter"
-    AusSelektion.OpenMenu
-    Sleep 1
-    hMenuSelectNr(2)
-
-    AusSelektion.OpenMenu
-    Sleep 1
-    hMenuSelectNr(3)
-    
-    Kontext "Neu"
-    if ( Neu.exists( 10 ) ) then
-        DialogTest ( Neu )
-        Neu.Cancel
-    else
-        warnlog( "Dialog <Neu> is not available" )
-    endif
-
-    printlog " Close Stylist"
-    Kontext "Gestalter"
-    Gestalter.Close
-
-    printlog " Close active document"
-    Call hCloseDocument
-endcase
-
-'------------------------------------------------------
-
-testcase tFormatAutoformatWhileTyping
-    PrintLog "- Format / Autoformat / "
-
-    printlog " Open new document"
-    Call hNewDocument
-
-    printlog " Uncheck 'Format / Autoformat / While typing'"
-    FormatAutoformatWhileTyping
-    WaitSlot (2000)
-    printlog " Check 'Format / Autoformat / While typing'"
-    FormatAutoformatWhileTyping
-    printlog " Close active document"
-    Call hCloseDocument
-endcase
-
-'-----------------------------------------------------------
-
-testcase tFormatColumn
-    PrintLog "- Format / Column"
-
-    printlog " Open new document"
-    Call hNewDocument
-    printlog " Insert a table"
-    Call hTabelleEinfuegen
-    Wait 500
-    printlog " Format / column / Width"
-    FormatColumnWidthWriter
-    WaitSlot (500)
-    Kontext "SpaltenBreite"
-    Breite.SetText "2,5"
-    Call DialogTest ( SpaltenBreite )
-    printlog " Close dialog"
-    SpaltenBreite.OK
-    Wait 500
-    hSetDocumentContext()
-    printlog " Enter some text in document"
-    Call wTypeKeys ("Dies ist ein langer Text, HALLO HALLO")
-    Wait 500
-    printlog " Format / Column / Optimal Width"
-    FormatColumnOptimalWidthWriter
-    WaitSlot (500)
-    printlog " Format / Row / Select"
-    TableSelectEntireRow
-    WaitSlot (500)
-    printlog " Format / Column / Space equally"
-    FormatColumnSpaceEqually
-    WaitSlot (500)
-    printlog " Format / Column / Select"
-    TableSelectColumn
-    WaitSlot (500)
-    printlog " Format / Cloumn / Delete"
-    TableDeleteColumns
-    WaitSlot (500)
-    hSetDocumentContext()
-    printlog " Press 'up' twice to point cursor in the table"
-    Call wTypeKeys ("<Up>",2)
-    wait 500
-    printlog " Format / Column / Insert "
-    FormatColumnInsert
-    WaitSlot (500)
-    Kontext "EinfuegenSpalten"
-    Anzahl.SetText "3"
-    Call DialogTest ( EinfuegenSpalten )
-    printlog " Close dialog"
-    EinfuegenSpalten.OK
-    printlog " Close active document"
-    Call hCloseDocument
-endcase
-
-'-----------------------------------------------------------
-
-testcase tFormatAnchor
-
-    PrintLog "- Format / Anchor"
-	
-    printlog " Open new document"
-    Call hNewDocument
-    printlog " Insert a graphic from file '..\writer\required\input\graphics\jolink.jpg'"
-    Call hGrafikEinfuegen ( gTesttoolPath + "writer\required\input\graphics\jolink.jpg" )
-
-    try
-        FormatAnchorToPage
-        printlog " Format / Anchor / to page"
-    catch
-        Warnlog "'Page' couldn't be executed!"
-    endcatch
-
-    Sleep 1
-    try
-        FormatAnchorToParagraph
-    catch
-        printlog "  Format / Anchor / to paragraph"
-        Warnlog "'to paragraph' couldn't be executed!"
-    endcatch
-
-    WaitSlot (1000)
-    try
-        FormatAnchorToCharacter
-        printlog " Format / Anchor / to character"
-    catch
-        Warnlog "'To Character' couldn't be executed!"
-    endcatch
-    WaitSlot (1000)
-
-    try
-        FormatAnchorAsCharacter
-        printlog " Format / Anchor / As Character"
-    catch
-        Warnlog "'as Character' couldn't be executed!"
-    endcatch
-    WaitSlot (1000)
-
-    printlog " Close active document"
-    Call hCloseDocument
-endcase
-
-'-----------------------------------------------------------
-
-testcase tFormatWrap
-    PrintLog "- Format / Wrap"
-    if gApplication = "HTML" then
-        printlog "Not in Writer/Web!"
-        goto endsub
-    end if
-    printlog " Open new document"
-    Call hNewDocument
-    printlog " Insert a graphic from file '..\writer\required\input\graphics\jolink.jpg'"
-    Call hGrafikEinfuegen ( gTesttoolPath + "writer\required\input\graphics\jolink.jpg" )
-    try
-        FormatWrapNoWrap
-        printlog " Format / Wrap / No wrap"
-    catch
-        Warnlog "Error on 'No Wrap'"
-    endcatch
-    WaitSlot (1000)
-
-    try
-        FormatWrapPageWrap
-        printlog " Format / Wrap / Page Wrap"
-    catch
-        Warnlog "Error on 'Page Wrap'"
-    endcatch
-    WaitSlot (1000)
-
-    try
-        FormatWrapOptimalPageWrap
-        printlog " Format / Wrap / optimal page wrap"
-    catch
-        Warnlog "Error on 'Optimal Page Wrap'"
-    endcatch
-    WaitSlot (1000)
-
-    try
-        FormatWrapThrough
-        printlog " Format / Wrap / Through"
-    catch
-        Warnlog "Error on 'Wrap Through'"
-    endcatch
-    WaitSlot (1000)
-
-    try
-        FormatWrapInBackground
-        printlog " Format / Wrap / In Background "
-    catch
-        Warnlog "Error on 'In Background'"
-    endcatch
-    WaitSlot (1000)
-
-    try
-        FormatWrapFirstParagraph
-        printlog " Format / Wrap / First paragraph"
-    catch
-        Warnlog "Error on 'First Paragraph'"
-    endcatch
-    WaitSlot (1000)
-
-    try
-        FormatWrapContour
-        printlog " Format / Wrap / Contour"
-        Warnlog "Error on 'Contour'"
-    catch
-        printlog "Contour Wrap disabled->OK"
-    endcatch
-    WaitSlot (1000)
-
-    try
-        FormatWrapEditContour
-        printlog " Format / Wrap / Edit Contour"
-        WaitSlot (5000)
-        Kontext "KonturEditor"
-        Dialogtest ( KonturEditor )
-        Sleep 2
-        KonturEditor.Close
-        printlog " Close contour editor"
-        Kontext
-        if Active.Exists (2) then Active.Yes
-    catch
-        Warnlog "#85505#Error on 'Edit Contur'"
-    endcatch
-
-    printlog " Close active document"
-    Call hCloseDocument
-endcase
-
-'-----------------------------------------------------------
-
-testcase tFormatAnchorArea
-
-    PrintLog "- Format / Anchor drawing objects"
-    if gApplication = "HTML" then
-        printlog "Not in WriterWeb!"
-        goto endsub
-    end if
-    printlog "crashed because of i32539 (fixed in m54)"
-
-    printlog " Open new document"
-    Call hNewDocument
-    printlog " Paste a rectangle from draw via clipboard"
-    Call wRectangleToClipboard
-
-    hUseAsyncSlot( "EditPaste" )
-
-    try
-        printlog " Format / Anchor / To page"
-        FormatAnchorToPage
-    catch
-        Warnlog "Clipboard problem between applications!"
-        Call wZeichenobjektEinfuegen ( "Rechteck", 40, 40, 50, 50 )
-        Call gMouseClick ( 45, 45 )
-        FormatAnchorToPage
-    endcatch
-
-    WaitSlot (1000)
-    printlog " Format / Anchor / to paragraph"
-    FormatAnchorToParagraph
-    WaitSlot (1000)
-    printlog " Format / Anchor / As character"
-    FormatAnchorAsCharacter
-    WaitSlot (1000)
-
-    printlog " Close active document"
-    Call hCloseDocument
-endcase
-
-'-----------------------------------------------------------
-
-testcase tFormatWrapArea
-    PrintLog "- Format / Wrap drawing objects"
-    if gApplication = "HTML" then
-        printlog "Not in WriterWeb!"
-        goto endsub
-    end if
-    printlog "crashed because of i32539 (fixed in m54)"
-
-    printlog " Open new document"
-    Call hNewDocument
-    printlog " Paste a rectangle from draw via clipboard"
-    Call wRectangleToClipboard
-
-    hUseAsyncSlot( "EditPaste" )
-
-    try
-        printlog " Format / Wrap / No wrap"
-        FormatWrapNoWrap
-    catch
-        Warnlog "Clipboard problem between applications!"
-        Call wZeichenobjektEinfuegen ( "Rechteck", 40, 40, 50, 50 )
-        Call gMouseClick ( 45, 45 )
-        FormatWrapNoWrap
-    endcatch
-
-    WaitSlot (1000)
-    printlog " Format / Wrap / Contour"
-    try
-        FormatWrapContour  ' should be disabled with 'No wrap'
-        Warnlog "Format / Wrap / Contour is disabled!"
-    catch
-    endcatch
-    WaitSlot (1000)
-    printlog " Format / Wrap / Page wrap"
-    try
-        FormatWrapPageWrap
-    catch
-        Warnlog "Format / Wrap / Page Wrap is disabled!"
-    endcatch
-    WaitSlot (1000)
-    printlog " Format / Wrap / Contour"
-    try
-        FormatWrapContour
-    catch
-        Warnlog "Format / Wrap / Contour is disabled!"
-    endcatch
-    WaitSlot (1000)
-    printlog " Format / Wrap / optimal page wrap"
-    try
-        FormatWrapOptimalPageWrap
-    catch
-        Warnlog "Format / Wrap / Optimal page wrap is disabled!"
-    endcatch
-    WaitSlot (1000)
-    printlog " Format / Wrap / Through"
-    try
-        FormatWrapThrough
-    catch
-        Warnlog "Format / Wrap /Through is disabled!"
-    endcatch
-    WaitSlot (1000)
-    printlog " Format / Wrap / In Background"
-    try
-        FormatWrapInBackground
-    catch
-        Warnlog "Format / Wrap / In Background is disabled!"
-    endcatch
-    WaitSlot (1000)
-    printlog " Format / Wrap / First paragraph"
-    try
-        FormatWrapFirstParagraph
-    catch
-        Warnlog "Format / Wrap / First paragraph is disabled!"
-    endcatch
-    sleep (2)
-    try
-        printlog " Format / Wrap / Edit"
-        FormatWrapEdit
-    catch
-        Warnlog "Drawing object in wrong format from the clipboard!"
-    endcatch
-    Kontext "TabUmlauf"
-    Call DialogTest ( TabUmlauf )
-    printlog " Close upcoming dialog"
-    TabUmlauf.Cancel
-
-    printlog " Close active document"
-    Call hCloseDocument
-endcase
-
-'-----------------------------------------------------------
-
-testcase tHtmlDocFormatParagraph
-    PrintLog "- Format / Paragraph"
-    gApplication = "HTML"
-    printlog " Open new document"
-    Call hNewDocument
-    printlog " Format / Paragraph"
-    FormatParagraph
-
-    Kontext
-    active.SetPage TabEinzuegeUndAbstaende
-    kontext "TabEinzuegeUndAbstaende"
-    Call DialogTest ( TabEinzuegeUndAbstaende )
-    printlog " Step through all tabpages"
-
-    Kontext
-    Active.SetPage TabAusrichtungAbsatz
-    Kontext "TabAusrichtungAbsatz"
-    Call DialogTest ( TabAusrichtungAbsatz )
-
-    Kontext
-    active.SetPage TabNumerierungAbsatz
-    kontext "TabNumerierungAbsatz"
-    Call DialogTest ( TabNumerierungAbsatz )
-
-    Kontext
-    active.SetPage TabUmrandung
-    kontext "TabUmrandung"
-    Call DialogTest ( TabUmrandung )
-    printlog " Close dialog"
-    TabUmrandung.Close
-
-    printlog " Close active document"
-    Call hCloseDocument
-    gApplication = "WRITER"
-endcase
-
-'------------------------------------------------
-
-testcase tHtmlDocFormatPage
-    PrintLog "- Format / Page"
-    gApplication = "HTML"
-    printlog " Open new document"
-    Call hNewDocument
-
-    printlog " Format / Page"
-    FormatPageWriter
-
-    Kontext
-    printlog " Step through all tabpages"
-    active.SetPage TabVerwalten
-    kontext "TabVerwalten"
-    Call DialogTest ( TabVerwalten )
-
-    Kontext
-    active.SetPage TabSeite
-    kontext "TabSeite"
-    Call DialogTest ( TabSeite )
-
-    Kontext
-    active.SetPage TabHintergrund
-    Kontext "Active"
-    If Active.GetRT = 304 then Active.Yes         ' Messagebox abfangen-> Seitenr�nder au�erhalb des Bereichs
-
-    Kontext
-    active.SetPage TabHintergrund
-    kontext "TabHintergrund"
-    Call DialogTest ( TabHintergrund, 1 )
-    Als.Select 2
-    Call DialogTest ( TabHintergrund, 2 )
-    Durchsuchen.Click
-
-    Kontext "GrafikEinfuegenDlg"
-    if ( GrafikEinfuegenDlg.exists( 1 ) ) then
-        GrafikEinfuegenDlg.Cancel
-    else
-        warnlog( "Dialog <GrafikEinfuegenDlg> is not available" )
-    endif
-
-    Kontext
-    active.SetPage TabKopfzeile
-    kontext "TabKopfzeile"
-    Call DialogTest ( TabKopfzeile )
-    Kontext
-    active.SetPage TabFusszeile
-    kontext "TabFusszeile"
-    Call DialogTest ( TabFusszeile )
-    printlog " Close dialog"
-    TabFussZeile.Close
-
-    printlog " Close active document"
-    Call hCloseDocument
-    gApplication = "WRITER"
-endcase
-
-'--------------------------------------------------
-
-testcase tHtmlDocFormatStylist
-    PrintLog "- Format / Stylist"
-    gApplication = "HTML"
-    if gPlatgroup = "unx" then
-        QAErrorlog "Doesn't run on unix"
-        goto endsub
-    end if
-    printlog " Open new document"
-    Call hNewDocument
-    Kontext "Gestalter"
-    If Not Gestalter.Exists then FormatStylist
-    printlog " Format / Stylist"
-    Kontext "Gestalter"
-    Call DialogTest ( Gestalter )
-    Zeichenvorlagen.Click
-    printlog " Click all Styles-buttons in Stylist"
-    WaitSlot()
-    
-    Numerierungsvorlagen.Click
-    WaitSlot()
-    
-    Absatzvorlagen.Click
-    WaitSlot()
-
-    TBGestalterRight.Click Giesskanne
-    WaitSlot()
-
-    AusSelektion.OpenMenu
-    wait( 500 )
-    hMenuSelectNr( 1 )
-
-    Kontext "VorlageErzeugen"
-    if ( VorlageErzeugen.exists( 1 ) ) then
-        DialogTest ( VorlageErzeugen )
-        VorlageErzeugen.Cancel
-    else
-        warnlog( "Dialog <VorlageErzeugen> is not available" )
-    endif
-    
-
-    Kontext "Gestalter"
-    if ( Gestalter.exists( 1 ) ) then
-        AusSelektion.OpenMenu
-        wait( 500 )
-        hMenuSelectNr(2)
-
-        AusSelektion.OpenMenu
-        wait( 500 )
-        hMenuSelectNr(3)
-        
-        Kontext "Neu"
-        if ( Neu.exists( 10 ) ) then
-            DialogTest ( Neu )
-            Neu.Cancel
-        else
-            warnlog( "Dialog <Neu> is not available" )
-        endif
-
-        printlog " Close Stylist"
-        Kontext "Gestalter"
-        Gestalter.Close
-    else
-        warnlog( "Dialog <Gestalter> is not available" )
-    endif
-
-    printlog " Close active document"
-    Call hCloseDocument
-    gApplication = "WRITER"
-endcase
-
-'------------------------------------------------------
diff --git a/testautomation/writer/required/includes/w_005b_.inc b/testautomation/writer/required/includes/w_005b_.inc
deleted file mode 100644
index 89e04a29e87f..000000000000
--- a/testautomation/writer/required/includes/w_005b_.inc
+++ /dev/null
@@ -1,1514 +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 : helge.delfs@oracle.com
-'*
-'* short description :  Testcases for the Format-Menu.
-'*
-'\***********************************************************************
-
-sub w_005b_
-
-    printLog Chr(13) + "--------- Menu Format / 2 (w_005b_.inc) ----------"
-    gApplication = "WRITER"
-
-    Call tFormatAlignment
-    Call tFormatAlignmentArea
-    Call tFormatAlignmentEdit
-    Call tFormatArrange
-    Call tFormatArrangeArea
-    Call tFormatFlip
-    Call tFormatGroup
-
-    '    Object submenu
-    Call tFormatPositionAndSize
-    Call tFormatPositionAndSizeLegend
-    Call tFormatLine
-    Call tFormatArea
-    Call tFormatText
-    Call tFormatFontwork
-
-    '    Frame
-    Call hExportUmstellung ( TRUE )
-    Call tFormatObject
-    Call tFormatArrangeObject
-    Call tFormatAlignmentObject
-    Call tFormatAnchorObject
-    Call tFormatWrapObject
-    Call hExportUmstellung ( FALSE )
-
-    'Picture ( jolink.jpg )
-    Call tFormatGraphics
-
-    'Editmode with Draw objects
-    Call tFormatStyleEdit
-    Call tFormatLineSpacing
-    Call tFormatParagraphEdit
-
-    'Writer Web
-    gApplication = "HTML"
-    Call tHtmlDocFormatGraphics
-    Call tHtmlDocFormatAlignment
-    Call tHtmlDocFormatObject
-    gApplication = "WRITER"
-
-end sub
-
-'-----------------------------------------------------------
-
-testcase tFormatGraphics
-    PrintLog "- Format / Graphics"
-    Dim j as integer
-
-    printlog " Open new document"
-    Call hNewDocument
-
-    printlog " Insert a graphic (..\writer\required\input\graphics\jolink.jpg)"
-    Call hGrafikEinfuegen ( gTesttoolPath + "writer\required\input\graphics\jolink.jpg" )
-
-    printlog " Format / Graphic"
-    if ( hUseAsyncSlot( "FormatGraphics" ) = -1 ) then
-        Warnlog "- Format / Graphics disabled or hidden!"
-        goto endsub
-    end if
-
-    printlog " Step through all tabpages"
-    Kontext
-    active.SetPage TabType
-    Kontext "TabType"
-    Call DialogTest ( TabType )
-
-    Kontext
-    active.SetPage TabZusaetze
-    Kontext "TabZusaetze"
-    Call DialogTest ( TabZusaetze )
-
-    Kontext
-    active.SetPage TabUmlauf
-    Kontext "TabUmlauf"
-    Call DialogTest ( TabUmlauf )
-
-    Kontext
-    active.SetPage TabHyperlinkRahmen
-    Kontext "TabHyperlinkRahmen"
-    Call DialogTest ( TabHyperlinkRahmen )
-
-    Kontext
-    active.SetPage TabGrafik
-    Kontext "TabGrafik"
-    Call DialogTest ( TabGrafik )
-
-    if gApplication <> "HTML" then
-        Kontext
-        active.SetPage TabZuschneiden
-        Kontext "TabZuschneiden"
-        Call DialogTest ( TabZuschneiden )
-
-        Kontext
-        active.SetPage TabHintergrund
-        Kontext "TabHintergrund"
-        Call DialogTest ( TabHintergrund )
-    end if
-
-    Kontext
-    active.SetPage TabUmrandung
-    Kontext "TabUmrandung"
-    Call DialogTest ( TabUmrandung )
-
-    Kontext
-    active.SetPage TabMakro
-    ' if no JRE is installed a messagebox appears
-    Do
-        j = j + 1
-        Kontext "Active"
-        if Active.Exists then
-            if Active.GetRT = 304 then
-                if j = 1 then Warnlog Active.Gettext
-                Active.Ok
-            else
-                exit do
-            end if
-        else
-            exit do
-        end if
-    Loop
-    Kontext "TabMakro"
-    Call DialogTest ( TabMakro )
-
-    printlog " Close dialog"
-    TabMakro.Cancel
-
-    printlog " Close active document"
-    Call hCloseDocument
-endcase
-
-'-----------------------------------------------------------
-
-testcase tFormatArrange
-    PrintLog "- Format / Arrange"
-
-    printlog " Open new document"
-    Call hNewDocument
-
-    printlog " Insert a graphic from file '..\writer\required\input\graphics\jolink.jpg'"
-    Call hGrafikEinfuegen ( gTesttoolPath + "writer\required\input\graphics\jolink.jpg" )
-    sleep(2)
-    try
-        printlog " Format / Arrange / Bring to front"
-        FormatArrangeBringToFrontCalc
-    catch
-        Warnlog "'Bring to front' couldn't be executed!"
-    endcatch
-    WaitSlot()
-    try
-        FormatArrangeBringForward
-        printlog " Format / Arrange / Bring forward"
-    catch
-        Warnlog "'Bring forward' couldn't be executed!"
-    endcatch
-    WaitSlot()
-    try
-        FormatArrangeSetBackward
-        printlog " Format / Arrange / Set backward"
-    catch
-        Warnlog "'Send backward' couldn't be executed!"
-    endcatch
-    WaitSlot()
-    try
-        FormatArrangeSendToBack
-        printlog " Format / Arrange / Send to back"
-    catch
-        Warnlog "'Send to back' couldn't be executed!"
-        Sleep 1
-    endcatch
-    printlog " Close active document"
-    Call hCloseDocument
-endcase
-
-'-----------------------------------------------------------
-
-testcase tFormatAlignment
-
-    PrintLog "- Format / Alignment"
-
-    printlog " Open new document"
-    Call hNewDocument
-    printlog " Insert a graphic from file '..\writer\required\input\graphics\jolink.jpg'"
-    Call hGrafikEinfuegen ( gTesttoolPath + "writer\required\input\graphics\jolink.jpg" )
-    sleep(2)
-    if ( gApplication = "HTML" ) then
-        printlog " Format / Anchor / to Page"
-        hUseAsyncSlot( "FormatAnchorToPage" )
-    end if
-    
-    try
-        printlog " Format / Alignment / Left"
-        FormatAlignmentLeft
-        WaitSlot()
-    catch
-        Warnlog "'Alignment left' couldn't be executed!"
-    endcatch
-
-    try
-        printlog " Format / Alignment / Right"
-        FormatAlignmentRight
-        WaitSlot()
-    catch
-        Warnlog "'Alignment right' couldn't be executed!"
-    endcatch
-
-    try
-        printlog " Format / Alignment / Top"
-        FormatAlignmentTop
-        WaitSlot()
-    catch
-        Warnlog "'Alignment top' couldn't be executed!"
-    endcatch
-
-    try
-        printlog " Format / Alignment / Center"
-        FormatAlignmentCenter
-        WaitSlot()
-    catch
-        Warnlog "'Alignment center' couldn't be executed!"
-    endcatch
-
-    try
-        printlog " Format / Alignment / Bottom"
-        FormatAlignmentBottom
-        WaitSlot()
-    catch
-        Warnlog "'Alignment bottom' couldn't be executed!"
-    endcatch
-
-    printlog " Close active document"
-    Call hCloseDocument
-endcase
-
-'-----------------------------------------------------------
-
-testcase tFormatObject
-    PrintLog "- Format / Object"
-    Dim j as integer
-
-    printlog " Open new document"
-    Call hNewDocument
-
-    printlog " Insert a frame"
-    Call wInsertFrame
-
-    printlog " Format / Frame"
-    FormatFrame
-
-    printlog " Step through all tabpages"
-    Kontext
-    active.SetPage TabType
-    Kontext "TabType"
-    Call DialogTest ( TabType )
-
-    Kontext
-    active.SetPage TabZusaetze
-    Kontext "TabZusaetze"
-    Call DialogTest ( TabZusaetze )
-
-    Kontext
-    active.SetPage TabUmlauf
-    Kontext "TabUmlauf"
-    Call DialogTest ( TabUmlauf )
-
-    Kontext
-    active.SetPage TabUmrandung
-    Kontext "TabUmrandung"
-    Call DialogTest ( TabUmrandung )
-
-    Kontext
-    active.SetPage TabHintergrund
-    Kontext "TabHintergrund"
-    Call DialogTest ( TabHintergrund )
-
-    if gApplication <> "HTML" then
-        Kontext
-        active.SetPage TabHyperlinkRahmen
-        Kontext "TabHyperlinkRahmen"
-        Call DialogTest ( TabHyperlinkRahmen )
-
-        Kontext
-        active.SetPage TabMakro
-        ' if no JRE is installed a messagebox appears
-        Do
-            j = j + 1
-            Kontext "Active"
-            if Active.Exists then
-                if Active.GetRT = 304 then
-                    if j = 1 then Warnlog Active.Gettext
-                    Active.Ok
-                else
-                    exit do
-                end if
-            else
-                exit do
-            end if
-        Loop
-        Kontext "TabMakro"
-        Call DialogTest ( TabMakro )
-        printlog " Close dialog"
-        TabMakro.Cancel
-    else
-        printlog " Close dialog"
-        TabHintergrund.Cancel
-    end if
-
-    printlog " Close active document"
-    Call hCloseDocument
-endcase
-
-'-----------------------------------------------------------
-
-testcase tFormatArrangeObject
-    PrintLog "- Format / Arrange Frame"
-
-    printlog " Open new document"
-    Call hNewDocument
-    printlog " Insert a frame"
-    Call wInsertFrame
-    printlog " Format / Arrange / Bring to front"
-    FormatArrangeBringToFrontCalc : WaitSlot()
-
-    printlog " Format / Arrange / Bring forward"
-    FormatArrangeBringForward : WaitSlot()
-
-    printlog " Format / Arrange / Set backward"
-    FormatArrangeSetBackward : WaitSlot()
-
-    printlog " Format / Arrange / Send to back "
-    FormatArrangeSendToBack : WaitSlot()
-
-    printlog " Close active document"
-    Call hCloseDocument
-endcase
-
-'-----------------------------------------------------------
-
-testcase tFormatAlignmentObject
-    PrintLog "- Format / Alignment Frame"
-    if gApplication = "HTML" then
-        printlog "Not in WriterWeb!"
-        goto endsub
-    end if
-    printlog " Open new document"
-    Call hNewDocument
-    printlog " Insert a frame"
-    Call wInsertFrame
-    printlog " Format / Alignment / Left"
-    FormatAlignmentLeft : WaitSlot()
-
-    printlog " Format / Alignment / Centered"
-    FormatAlignmentCentered : WaitSlot()
-
-    printlog " Format / Alignment / Right"
-    FormatAlignmentRight : WaitSlot()
-
-    printlog " Format / Alignment / Top"
-    FormatAlignmentTop : WaitSlot()
-
-    printlog " Format / Alignment / Center"
-    FormatAlignmentCenter : WaitSlot()
-
-    printlog " Format / Alignment / Bottom"
-    FormatAlignmentBottom : WaitSlot()
-
-    printlog " Close active document"
-    Call hCloseDocument
-endcase
-
-'-----------------------------------------------------------
-
-testcase tFormatAnchorObject
-
-    PrintLog "- Format / Anchor Frame"
-
-    printlog " Open new document"
-    Call hNewDocument
-    printlog " Insert a frame"
-    Call wInsertFrame
-    printlog " Format / Anchor / to page"
-    FormatAnchorToPage : WaitSlot()
-
-    printlog " Format / Anchor / to paragraph"
-    FormatAnchorToParagraph : WaitSlot()
-
-    printlog " Format / Anchor / to character"
-    FormatAnchorToCharacter : WaitSlot()
-
-    printlog " Format / Anchor / as character"
-    FormatAnchorAsCharacter : WaitSlot()
-
-    printlog " Close active document"
-    Call hCloseDocument
-endcase
-
-'-----------------------------------------------------------
-
-testcase tFormatWrapObject
-
-    PrintLog "- Format / Wrap (Frame)"
-
-    if ( gApplication = "HTML" ) then
-        printlog "Not in WriterWeb!"
-        goto endsub
-    end if
-
-    printlog " Open new document"
-    Call hNewDocument
-
-    printlog " Insert a frame"
-    Call wInsertFrame
-
-    printlog " Format / Wrap / no wrap"
-    FormatWrapNoWrap : WaitSlot()
-
-    printlog " Format / Wrap / page wrap"
-    FormatWrapPageWrap : WaitSlot()
-
-    printlog " Format / Wrap / optimal page wrap"
-    FormatWrapOptimalPageWrap : WaitSlot()
-
-    printlog " Format / Wrap / through"
-    FormatWrapThrough : WaitSlot()
-
-    printlog " Format / Wrap / in background"
-    FormatWrapInBackground : WaitSlot()
-
-    printlog " Format / Wrap / first paragraph"
-    FormatWrapFirstParagraph : WaitSlot()
-
-    if ( hUseAsyncSlot( "FormatWrapContour" ) = -1 ) then
-        printlog( "Format / Wrap / Contour disabled. Good." )
-    else
-        warnlog( "Format / Wrap / Contour should not be enabled for frames" )
-    end if
-
-    printlog " Format / Wrap / Edit Contour"
-    if ( hUseAsyncSlot( "FormatWrapEditContour" ) = -1 ) then
-        printlog( "Format / Wrap / Edit Contour disabled. Good." )
-    else
-        Warnlog( "Wrap / Edit Contour should not be enabled for frames" )
-
-        Kontext "KonturEditor"
-        if ( KonturEditor.exists( 2 ) ) then
-            KonturEditor.Close()
-        else
-            warnlog( "Slot <FormatWrapEditContour> is enabled but doesn't trigger the dialog" )
-        end if
-    end if
-
-    Kontext
-    if ( Active.Exists( 2 ) ) then 
-        qaerrorlog( "JSK: Undocumented active handled silently - fix it" )
-        Active.Yes()
-    end if
-
-    printlog " Close active document"
-    Call hCloseDocument
-
-endcase
-
-'-----------------------------------------------------------
-
-testcase tFormatLine
-    PrintLog "- Format / Line in drawing object"
-    if gApplication = "HTML" then
-        printlog "Not in WriterWeb!"
-        goto endsub
-    end if
-
-    printlog " Open new document"
-    Call hNewDocument
-    printlog " Insert a rectangle"
-    Call wRectangleToClipboard
-
-    printlog " Edit / Paste"
-    hUseAsyncSlot( "EditPaste" )
-
-    printlog " Format / Line"
-    if ( hUseAsyncSlot( "FormatLine" ) = -1 ) then
-        Warnlog "Clipboard problem between applications!"
-        Call wZeichenobjektEinfuegen ( "Rechteck", 40, 40, 50, 50 )
-        Call gMouseClick ( 45, 45 )
-        if ( hUseAsyncSlot( "FormatLine" ) = -1 ) then
-            warnlog( "Failed to execute slot <FormatLine>" )
-        end if
-    end if
-
-    Kontext
-    printlog " Step through all tabpages"
-    wait 500
-    active.SetPage TabLinie
-
-    kontext "TabLinie"
-    Call DialogTest ( TabLinie )
-
-    Kontext
-    active.SetPage TabLinienstile
-
-    kontext "TabLinienstile"
-    Call DialogTest ( TabLinienstile )
-    try
-        Aendern.Click
-        Kontext "NameDlg"
-        Call DialogTest ( NameDlg )
-        NameDlg.Cancel
-    catch
-        Warnlog "Modify is disabled!"
-        if Linienstil.GetItemCount = 0 then
-            Warnlog "List of 'Line styles is empty! (Bug#99882)"
-        end if
-    endcatch
-
-    Kontext
-    active.SetPage TabLinienenden
-
-    Kontext "Linienstil"
-    if Linienstil.Exists then
-        Warnlog "Messagebox appears changing to Tabpage 'Arrow Styles!"
-        Linienstil.Cancel
-    else
-        kontext "TabLinienenden"
-
-        Call DialogTest ( TabLinienenden )
-        Aendern.Click
-        Kontext
-        Active.OK
-        kontext "NameDlg"
-        Call DialogTest ( NameDlg )
-        NameDlg.Cancel
-    end if
-
-    kontext "TabLinienenden"
-    printlog " Close dialog"
-    TabLinienenden.cancel
-    printlog " Close active document"
-    Call hCloseDocument
-endcase
-
-'-----------------------------------------------------------
-
-testcase tFormatArea
-    Dim i as integer
-    PrintLog "- Format / Area in drawing object"
-    if gApplication = "HTML" then
-        printlog "Not in WriterWeb!"
-        goto endsub
-    end if
-
-    printlog " Open new document"
-    Call hNewDocument
-    printlog " Insert a rectangle"
-    Call wRectangleToClipboard
-
-    hUseAsyncSlot( "EditPaste" )
-
-    printlog " Format / Area"
-    if ( hUseAsyncSlot( "FormatArea" ) = -1 ) then
-        Warnlog "Clipboard problem between applications!"
-        Call wZeichenobjektEinfuegen ( "Rechteck", 40, 40, 50, 50 )
-        Call gMouseClick ( 45, 45 )
-        FormatArea
-    end if
-
-    Kontext
-    wait 500
-    printlog " Step through all tabpages"
-    active.SetPage TabArea
-    Kontext "TabArea"
-    For i = 1 to 5
-        FillOptions.Select i
-        Call DialogTest ( TabArea, i )
-    next i
-    Kontext
-    active.SetPage TabSchatten
-    kontext "TabSchatten"
-    Anzeigen.Check
-    Call DialogTest ( TabSchatten )
-
-    Kontext
-    active.SetPage TabTransparenz
-    kontext "TabTransparenz"
-    Call DialogTest ( TabTransparenz )
-
-    Kontext
-    active.SetPage TabFarben
-    kontext "TabFarben"
-    Sleep 1
-    Farbmodell.Select 2
-    Call DialogTest ( TabFarben )
-
-    Bearbeiten.Click
-
-    Kontext "FarbeDlg"
-    if ( FarbeDlg.exists( 1 ) ) then
-        Call DialogTest ( FarbeDlg )
-        FarbeDlg.cancel
-        WaitSlot()
-    else
-        warnlog( "Dialog <FarbeDlg> is not available" )
-    end if
-
-    Kontext
-    active.SetPage TabFarbverlaeufe
-    kontext "TabFarbverlaeufe"
-    Call DialogTest ( TabFarbverlaeufe )
-    Aendern.Click
-    Kontext "NameDlg"
-    Call DialogTest ( NameDlg )
-    NameDlg.Cancel
-
-    Kontext
-    active.SetPage TabSchraffuren
-    kontext "TabSchraffuren"
-    Call DialogTest ( TabSchraffuren)
-    try
-        Aendern.Click
-    catch
-        Warnlog "Button 'Modify' does not work!"
-        if Tabelle.GetItemcount = 0 then
-            Warnlog "Table of Hatching's is empty! (Bug#99882)"
-        end if
-    endcatch
-
-    Kontext "NameDlg"
-    if ( NameDlg.exists( 1 ) ) then
-        Call DialogTest ( NameDlg )
-        NameDlg.Cancel
-    else
-        warnlog( "Dialog <NameDlg> is not available" )
-    end if
-
-    Kontext
-    active.SetPage TabBitmap
-    kontext "TabBitmap"
-    Call DialogTest ( TabBitmap )
-
-    try
-        Aendern.Click
-    catch
-        WarnLog "#36902#Modify is disabled. Wrong default-list loaded"
-    endcatch
-
-    Kontext "NameDlg"
-    if ( NameDlg.exists( 1 ) ) then
-        Call DialogTest ( NameDlg )
-        NameDlg.Cancel
-    else
-        warnlog( "Dialog <NameDlg> is not available" )
-    end if
-
-    kontext "TabBitmap"
-    Import.Click
-    Kontext "GrafikEinfuegenDlg"
-    if ( GrafikEinfuegenDlg.exists( 1 ) ) then
-        Call DialogTest ( GrafikEinfuegenDlg )
-        GrafikEinfuegenDlg.Cancel
-    else
-        warnlog( "Dialog <GrafikEinfuegenDlg> is not available" )
-    end if
-
-    printlog " Close Tabdialog"
-    kontext "TabBitmap"
-    TabBitmap.Cancel
-    printlog " Close active document"
-    Call hCloseDocument
-endcase
-
-'-----------------------------------------------------------
-
-testcase tFormatText
-    PrintLog "- Format / Text in drawing object"
-    if gApplication = "HTML" then
-        printlog "Not in WriterWeb!"
-        goto endsub
-    end if
-
-    printlog " Open new document"
-    Call hNewDocument
-    printlog " Paste a rectangle from draw via clipboard"
-    Call wRectangleToClipboard
-    EditPaste
-    Sleep (1)
-
-    try
-        printlog " Format / Text"
-        FormatTextWriter
-    catch
-        Warnlog "Clipboard problem between applications!"
-        Call wZeichenobjektEinfuegen ( "Rechteck", 40, 40, 50, 50 )
-        Call gMouseClick ( 45, 45 )
-        FormatTextWriter
-    endcatch
-
-    Kontext
-    printlog " Step through all tabpages"
-    wait 500
-    Active.SetPage TabText
-    Kontext "TabText"
-    DialogTest ( TabText )
-
-    Kontext
-    Active.SetPage TabLauftext
-    Kontext "TabLauftext"
-    DialogTest ( TabLauftext )
-
-    printlog " Close dialog"
-    TabLauftext.Cancel
-    printlog " Close active document"
-    Call hCloseDocument
-endcase
-
-'-----------------------------------------------------------
-
-testcase tFormatPositionAndSize
-    PrintLog "- Format / Position and Size in drawing object"
-    if gApplication = "HTML" then
-        printlog "Not in WriterWeb!"
-        goto endsub
-    end if
-
-    printlog " Open new document"
-    Call hNewDocument
-    printlog " Paste a rectangle from draw via clipboard"
-    Call wRectangleToClipboard
-    hUseAsyncSlot( "EditPaste" )
-
-    printlog " Format Position and Size"
-    if ( hUseAsyncSlot( "ContextPositionAndSize" ) = -1 ) then
-        Warnlog "Clipboard problem between applications!"
-        Call wZeichenobjektEinfuegen ( "Rechteck", 40, 40, 50, 50 )
-        Call gMouseClick ( 45, 45 )
-        if ( hUseAsyncSlot( "ContextPositionAndSize" ) = -1 ) then
-            warnlog( "Failed to execute slot <ContextPositionAndSize>" )
-        end if
-    end if
-
-    printlog " Step through all tabpages"
-    Kontext
-    active.setpage TabPositionAndSizeWriter
-    Kontext "TabPositionAndSizeWriter"
-    call Dialogtest ( TabPositionAndSizeWriter )
-
-    Kontext
-    active.setPage TabDrehung
-    Kontext "TabDrehung"
-    call Dialogtest ( TabDrehung )
-
-    Kontext
-    active.setpage TabSchraegstellen
-    Kontext "TabSchraegstellen"
-    call Dialogtest ( TabSchraegstellen )
-    printlog " Close dialog"
-    TabSchraegstellen.cancel
-
-    printlog " Close active document"
-    Call hCloseDocument
-endcase
-
-'-----------------------------------------------------------
-
-testcase tFormatFlip
-
-    PrintLog "- Format / Flip drawing objects"
-    if gApplication = "HTML" then
-        printlog "Not in WriterWeb!"
-        goto endsub
-    end if
-
-    printlog " Open new document"
-    Call hNewDocument
-
-    printlog " Paste a rectangle from draw via clipboard"
-    Call wRectangleToClipboard
-    hUseAsyncSlot( "EditPaste" )
-
-    printlog " Format / Flip vertically"
-    if ( hUseAsyncSlot( "FormatFlipVertically" ) = -1 ) then
-        Warnlog "Clipboard problem between applications!"
-        Call wZeichenobjektEinfuegen ( "Rechteck", 40, 40, 50, 50 )
-        Call gMouseClick ( 45, 45 )
-        if ( hUseAsyncSlot( "FormatFlipVertically" ) = -1 ) then
-            warnlog( "Failed to execute slot <FormatFlipVertically>" )
-        end if
-    end if
-
-    WaitSlot (3000)
-
-    printlog " Format / Flip horizontally"
-    hUseAsyncSlot( "FormatFlipHorizontally" )
-    printlog " Close active document"
-    Call hCloseDocument
-endcase
-
-'-----------------------------------------------------------
-
-testcase tFormatArrangeArea
-
-    PrintLog "- Format / Arrange drawing objects"
-    if gApplication = "HTML" then
-        printlog "Not in WriterWeb!"
-        goto endsub
-    end if
-
-    printlog " Open new document"
-    Call hNewDocument
-
-    printlog " Paste a rectangle from draw via clipboard"
-    Call wRectangleToClipboard
-    hUseAsyncSlot( "EditPaste" )
-
-    printlog " Format / Arrange / Bring to front"
-    if ( hUseAsyncSlot( "FormatArrangeBringToFrontCalc" ) = -1 ) then
-
-        Warnlog "Clipboard problem between applications!"
-        Call wZeichenobjektEinfuegen ( "Rechteck", 40, 40, 50, 50 )
-        Call gMouseClick ( 45, 45 )
-        if ( hUseAsyncSlot( "FormatArrangeBringToFrontCalc" ) = -1 ) then
-            warnlog( "Failed to execute slot <FormatArrangeBringToFrontCalc>" )
-        end if
-    end if
-
-    WaitSlot()
-    printlog " Format / Arrange / Bring Forward"
-    FormatArrangeBringForward
-    WaitSlot()
-    printlog " Format / Arrange / Set backward"
-    FormatArrangeSetBackward
-    WaitSlot()
-    printlog " Format / Arrange / Send to back"
-    FormatArrangeSendToBack
-    WaitSlot()
-
-    printlog " Close active document"
-    Call hCloseDocument
-endcase
-
-'-----------------------------------------------------------
-
-testcase tFormatAlignmentArea
-
-    PrintLog "- Format / Alignment drawing objects"
-    if gApplication = "HTML" then
-        printlog "Not in WriterWeb!"
-        goto endsub
-    end if
-    printlog " Open new document"
-    Call hNewDocument
-
-    printlog " Paste a rectangle from draw via clipboard"
-    Call wZeichenobjektEinfuegen ( "Rechteck", 45, 30, 55, 45 )
-    sleep (1)
-    Call wObjektSelektieren ( 43, 25, 60, 50 )
-    Sleep 1
-    try
-        printlog " Format / Anchor / As Character"
-        FormatAnchorAsCharacter
-        WaitSlot()
-    catch
-        Warnlog "Anchor could not be set to character! No test!"
-        Call hCloseDocument
-        printlog " Close active document"
-        goto endsub
-    endcatch
-
-    try
-        printlog " Format / Object / Alignment left"
-        FormatObjectAlignmentLeft
-        WaitSlot()
-    catch
-        Warnlog "Format / Object / Alignment / Left could not be executed!"
-    endcatch
-
-    try
-        printlog " Format / Object / Alignment centered"
-        FormatObjectAlignmentCentered
-        WaitSlot()
-    catch
-        Warnlog "Format / Object / Alignment / Centered could not be executed!"
-    endcatch
-
-    try
-        printlog " Format / Object / Alignment right"
-        FormatObjectAlignmentRight
-        WaitSlot()
-    catch
-        Warnlog "Format / Object / Alignment / Right could not be executed!"
-    endcatch
-
-    try
-        printlog " Format / Object / Alignment Top"
-        FormatObjectAlignmentTop
-        WaitSlot()
-    catch
-        Warnlog "Format / Object / Alignment / Top could not be executed!"
-    endcatch
-
-    try
-        printlog " Format / Object / Alignment Center"
-        FormatObjectAlignmentCenter
-        WaitSlot()
-    catch
-        Warnlog "Format / Object / Alignment / Center could not be executed!"
-    endcatch
-
-    try
-        printlog " Format / Object / Alignment bottom"
-        FormatObjectAlignmentBottom
-        WaitSlot()
-    catch
-        Warnlog "Format / Object / Alignment / Bottom could not be executed!"
-    endcatch
-
-    printlog " Close active document"
-    Call hCloseDocument
-endcase
-
-'-----------------------------------------------------------
-
-testcase tFormatGroup
-    Dim x%
-    Dim y%
-    Dim x1%
-    Dim y1%
-
-    PrintLog "- Format / Group drawing objects"
-
-    if ( gApplication = "HTML" ) then
-        printlog "Not in WriterWeb!"
-        goto endsub
-    end if
-
-    printlog " Open new document"
-    Call hNewDocument
-
-    printlog " Insert 2 rectangles and select both"
-    if gPlatGroup <> "unx" then
-        Call wZeichenobjektEinfuegen ( "Rechteck", 25, 25, 30, 30 )
-        Call wTypeKeys ( "<Escape>" )
-        Call wZeichenobjektEinfuegen ( "Rechteck", 35, 35, 45, 45 )
-        Call wTypeKeys ( "<Escape>" )
-        Call wObjektSelektieren ( 23, 23, 50, 50 )
-        x% = 25
-        y% = 25
-        x1% = 35
-        y1% = 45
-    else
-        Call wZeichenobjektEinfuegen ( "Rechteck", 50, 60, 30, 30 )
-        Call wTypeKeys ( "<Escape>" )
-        Call wZeichenobjektEinfuegen ( "Rechteck", 65, 80, 45, 45 )
-        Call wTypeKeys ( "<Escape>" )
-        Call wObjektSelektieren ( 23, 23, 70, 90 )
-        x% = 55
-        y% = 55
-        x1% = 55
-        y1% = 65
-    end if
-
-    printlog " Format / Group / Group"
-    if ( hUseAsyncSlot( "FormatGroupGroup" ) = -1 ) then
-        QAErrorlog "Unable to execute Format / Group / Group. Maybe objects not selected!"
-        Call hCloseDocument
-        goto endsub
-    end if
-
-    printlog " Format / Group / Edit Group"
-    if ( hUseAsyncSlot( "FormatGroupEditGroupCalc" ) = -1 ) then
-        Warnlog "Unable to execute Format / Group / Group. Maybe objects not selected!"
-        Call hCloseDocument
-        goto endsub
-    end if
-
-    Call wTypeKeys ( "<Shift F4>" )
-
-    printlog " Format / Exit Group"
-    if ( hUseAsyncSlot( "FormatExitGroupDraw" ) = -1 ) then
-        Warnlog "Unable to execute Format / Group / Exit Group. Maybe objects not selected!"
-        Call hCloseDocument
-        goto endsub
-    end if
-
-    Call wTypeKeys ( "<Shift F4>" )
-    
-    printlog " Format / Ungroup"
-    if ( hUseAsyncSlot( "FormatUngroupDraw" ) = -1 ) then
-        Warnlog "Unable to execute Format / Group / Ungroup. Maybe objects not selected!"
-        Call hCloseDocument
-        goto endsub
-    end if
-
-    printlog " Close active document"
-    Call hCloseDocument
-endcase
-
-'-----------------------------------------------------------
-
-testcase tFormatFontwork
-
-    PrintLog "- Format / Fontwork drawing objects"
-
-    if ( gApplication = "HTML" ) then
-        printlog "Not in WriterWeb!"
-        goto endsub
-    end if
-
-    printlog " Open new document"
-    Call hNewDocument
-    printlog " Paste a rectangle from draw via clipboard"
-    Call wRectangleToClipboard
-
-    hUseAsyncSlot( "EditPaste" )
-
-    printlog " Format / Font Work"
-    if ( hUseAsyncSlot( "FormatFontWork" ) = -1 ) then
-        Warnlog "Clipboard problem between applications!"
-        Call wZeichenobjektEinfuegen ( "Rechteck", 40, 40, 50, 50 )
-        Call gMouseClick ( 45, 45 )
-        FormatFontwork
-    end if
-
-    Kontext "Fontwork"
-    if ( Fontwork.Exists( 1 ) ) then
-        call Dialogtest ( Fontwork )
-        printlog " Close Fontwork dialog"
-        FormatFontwork
-    else
-        Warnlog "Dialog 'Fontwork' does not exist!"
-    end if
-
-    printlog " Close active document"
-    Call hCloseDocument
-endcase
-
-'-----------------------------------------------------------
-
-testcase tFormatPositionAndSizeLegend
-
-    PrintLog "- Format / Position and Size in Legend"
-
-    if ( gApplication = "HTML" ) then
-        printlog "Not in WriterWeb!"
-        goto endsub
-    end if
-
-    printlog " Open new document"
-    Call hNewDocument
-    Kontext "NavigatorWriter"
-    if NavigatorWriter.Exists then ViewNavigator
-
-	printlog " Insert a legend"
-    Call wZeichenobjektEinfuegen ( "Legende", 45, 35, 50, 50 )
-	Call wTypeKeys "<ESCAPE>"
-    Call wTypeKeys "<SHIFT F4>"
-
-    Call hUseAsyncSlot( "FormatPositionAndSize" )
-    kontext "active"
-    if ( active.exists( 1 ) ) then
-        printlog( "Dialog open. Good" )
-    else
-        Warnlog "Format / Position and Size does not work! Maybe object not selected!"
-        printlog " Close active document"
-        Call hCloseDocument
-        goto endsub
-    end if
-
-    printlog " In upcoming dialog step through all tabpages"
-    Kontext
-    active.setpage TabPositionAndSizeWriter
-
-    Kontext "TabPositionAndSizeWriter"
-    call Dialogtest ( TabPositionAndSizeWriter )
-
-    Kontext
-    active.setpage TabLegende
-
-    Kontext "TabLegende"
-    call Dialogtest ( TabLegende )
-
-    printlog " Close dialog"
-    TabLegende.Cancel
-
-    printlog " Close active document"
-    Call hCloseDocument
-endcase
-
-'-----------------------------------------------------------
-
-testcase tFormatStyleEdit
-
-    PrintLog "- Format / Style Text objects"
-
-    if ( gApplication = "HTML" ) then
-        printlog "Not in WriterWeb !"
-        goto endsub
-    end if
-
-    printlog " Open new document"
-    Call hNewDocument
-
-    Kontext "DrawBar"
-    if Not DrawBar.Exists then 
-        Call hToolbarSelect("Drawing", true)
-    end if
-
-    if Drawbar.Exists then
-        Textobjekt.Click
-        printlog " Insert a textobject from toolbar"
-        Sleep 2
-
-        Call gMouseMove(50, 20, 70, 40)
-        hUseAsyncSlot( "FormatStyleBold" )
-
-        printlog " Format / Style / Bold"
-        Call wTypeKeys ("a")
-        printlog " Format / Style / Italic"
-        FormatStyleItalic
-        WaitSlot()
-        printlog " Insert a letter in text object"
-        Call wTypeKeys ("a")
-        printlog " Format / Style / Underline"
-        FormatStyleUnderline
-        WaitSlot()
-
-        printlog " Insert a letter in text object"
-        Call wTypeKeys ("a")
-        printlog " Format /Style / Strike through"
-        UseBindings
-        FormatStyleStrikeThrough
-        WaitSlot()
-        printlog " Insert a letter in text object"
-        Call wTypeKeys ("b")
-        printlog " Format / Style / Shadow"
-        UseBindings
-        FormatStyleShadow
-        WaitSlot()
-        printlog " Insert a letter in text object"
-        Call wTypeKeys ("b")
-        printlog " Format / Style / Outline"
-        UseBindings
-        FormatStyleOutline
-        WaitSlot()
-        printlog " Insert a letter in text object"
-        Call wTypeKeys ("b")
-        printlog " Format / Style / Superscript"
-        FormatStyleSuperscript
-        WaitSlot()
-        printlog " Insert a letter in text object"
-        Call wTypeKeys ("a")
-        printlog " Format / Style / Subscript "
-        FormatStyleSubscript
-        WaitSlot()
-        printlog " Insert a letter in text object"
-        Call wTypeKeys ("a")
-        Kontext "Drawbar"
-        Drawbar.Close
-    else
-        Warnlog "Toolbar 'Drawbar' is not opened!"
-    end if
-    printlog " Close active document"
-    Call hCloseDocument
-endcase
-
-'-----------------------------------------------------------
-
-testcase tFormatAlignmentEdit
-    PrintLog "- Format / Alignment text objects"
-    if gApplication = "HTML" then
-        printlog "Not in WriterWeb!"
-        goto endsub
-    end if
-    Call hNewDocument
-    printlog " Open new document"
-    Kontext "DrawBar"
-    if Not DrawBar.Exists then Call hToolbarSelect("Drawing", true)
-
-    Textobjekt.Click
-    printlog " Insert a textbox via 'Draw functions' toolbar"
-
-    Call gMouseMove(50, 20, 70, 40)
-    printlog " Insert some text in document"
-
-    Call wTypeKeys ("Ein Wort")
-    printlog " Format / Alignment / Left"
-    hUseAsyncSlot( "FormatAlignmentLeftText" )
-    WaitSlot()
-    printlog " Format / Alignment / Right"
-    FormatAlignmentRightText
-    WaitSlot()
-    printlog " Format / Alignment / Centered"
-    FormatAlignmentCenteredText
-    WaitSlot()
-    printlog " Format  Alignment / Justify"
-    FormatAlignmentJustifiedText
-    WaitSlot()
-
-    Kontext "Drawbar"
-    Drawbar.Close
-    printlog " Close active document"
-    Call hCloseDocument
-endcase
-
-'-----------------------------------------------------------
-
-testcase tFormatLineSpacing
-    PrintLog "- Format / Line Spacing text objects"
-    if gApplication = "HTML" then
-        printlog "Not in WriterWeb!"
-        goto endsub
-    end if
-    Call hNewDocument
-    printlog " Open new document"
-    Kontext "DrawBar"
-    if Not DrawBar.Exists then Call hToolbarSelect("Drawing", true)
-
-    Textobjekt.Click
-    printlog " In a textbox via 'Draw Functions' toolbox"
-
-    Call gMouseMove(50, 20, 70, 40)
-    Sleep 1
-
-    printlog " Format / Spacing / Single line"
-    Call wTypeKeys ("Hallo<Return>Andere Zeile")
-
-    printlog " Format / Line Spacing / Single line"
-    FormatLineSpacingSingleLine
-    WaitSlot()
-
-    printlog " Format / Line Spacing  / 1.5 line"
-    FormatLineSpacing15Lines
-    WaitSlot()
-
-    printlog " Format / Line spacing / Double"
-    FormatLineSpacingDouble
-    WaitSlot()
-
-    Kontext "Drawbar"
-    Drawbar.Close
-    printlog " Close active document"
-    Call hCloseDocument
-
-endcase
-
-'-----------------------------------------------------------
-
-testcase tFormatParagraphEdit
-    PrintLog "- Format / Paragraph text objects"
-    if gApplication = "HTML" then
-        printlog "Not in WriterWeb!"
-        goto endsub
-    end if
-    Call hNewDocument
-    printlog " Open new document"
-    Kontext "DrawBar"
-    if Not DrawBar.Exists then Call hToolbarSelect("Drawing", true)
-
-    Textobjekt.Click
-    printlog " In a textbox via 'Draw Functions' toolbox"
-
-    Call gMouseMove(50, 20, 70, 40)
-
-    printlog " Format / Paragraph "
-    hUseAsyncSlot( "FormatParagraph" )
-    printlog " Step through all tabpages"
-    Kontext
-    Active.SetPage TabEinzuegeUndAbstaende
-    Kontext "TabEinzuegeUndAbstaende"
-    Call DialogTest ( TabEinzuegeUndAbstaende )
-
-    Kontext
-    Active.SetPage TabAusrichtungAbsatz
-    Kontext "TabAusrichtungAbsatz"
-    Call DialogTest ( TabAusrichtungAbsatz )
-
-    Kontext
-    Active.SetPage TabTabulator
-    Kontext "TabTabulator"
-    Call DialogTest ( TabTabulator )
-
-    TabTabulator.Cancel
-    Sleep 1
-    printlog " Close dialog"
-    Kontext "Drawbar"
-    Drawbar.Close
-
-    printlog " Close active document"
-    Call hCloseDocument
-endcase
-
-'-----------------------------------------------------------
-
-testcase tHtmlDocFormatGraphics
-    PrintLog "- Format / Graphics"
-    Dim j as integer
-
-    gApplication = "HTML"
-    printlog " Open new document"
-    Call hNewDocument
-
-    printlog " Insert a graphic (..\writer\required\input\graphics\jolink.jpg)"
-    Call hGrafikEinfuegen ( gTesttoolPath + "writer\required\input\graphics\jolink.jpg" )
-
-    if ( hUseAsyncSlot( "FormatGraphics" ) = -1 ) then
-        Warnlog "- Format / Graphics disabled or hidden!"
-        goto endsub
-    end if
-
-    printlog " Step through all tabpages"
-    Kontext
-    active.SetPage TabType
-    Kontext "TabType"
-    Call DialogTest ( TabType )
-
-    Kontext
-    active.SetPage TabZusaetze
-    Kontext "TabZusaetze"
-    Call DialogTest ( TabZusaetze )
-
-    Kontext
-    active.SetPage TabUmlauf
-    Kontext "TabUmlauf"
-    Call DialogTest ( TabUmlauf )
-
-    Kontext
-    active.SetPage TabHyperlinkRahmen
-    Kontext "TabHyperlinkRahmen"
-    Call DialogTest ( TabHyperlinkRahmen )
-
-    Kontext
-    active.SetPage TabGrafik
-    Kontext "TabGrafik"
-    Call DialogTest ( TabGrafik )
-
-    Kontext
-    active.SetPage TabUmrandung
-    Kontext "TabUmrandung"
-    Call DialogTest ( TabUmrandung )
-
-    Kontext
-    active.SetPage TabMakro
-    ' if no JRE is installed a messagebox appears
-    Do
-        j = j + 1
-        Kontext "Active"
-        if Active.Exists then
-            if Active.GetRT = 304 then
-                if j = 1 then Warnlog Active.Gettext
-                Active.Ok
-            else
-                exit do
-            end if
-        else
-            exit do
-        end if
-    Loop
-    Kontext "TabMakro"
-    Call DialogTest ( TabMakro )
-
-    printlog " Close dialog"
-    TabMakro.Cancel
-
-    printlog " Close active document"
-    Call hCloseDocument
-    gApplication = "WRITER"
-endcase
-
-'-----------------------------------------------------------
-
-testcase tHtmlDocFormatAlignment
-
-	gApplication = "HTML"
-    PrintLog "- Format / Alignment"
-
-    printlog " Open new document"
-    Call hNewDocument
-    printlog " Insert a graphic from file '..\writer\required\input\graphics\jolink.jpg'"
-    Call hGrafikEinfuegen ( gTesttoolPath + "writer\required\input\graphics\jolink.jpg" )
-    wait 500
-    printlog " Format / Anchor / to Page"
-    FormatAnchorToPage
-
-    try
-        printlog " Format / Alignment / Left"
-        FormatAlignmentLeft
-        WaitSlot()
-    catch
-        Warnlog "'Alignment left' couldn't be executed!"
-    endcatch
-
-    try
-        printlog " Format / Alignment / Right"
-        FormatAlignmentRight
-        WaitSlot()
-    catch
-        Warnlog "'Alignment right' couldn't be executed!"
-    endcatch
-
-    try
-        printlog " Format / Alignment / Top"
-        FormatAlignmentTop
-        WaitSlot()
-    catch
-        Warnlog "'Alignment top' couldn't be executed!"
-    endcatch
-
-    try
-        printlog " Format / Alignment / Center"
-        FormatAlignmentCenter
-        WaitSlot()
-    catch
-        Warnlog "'Alignment center' couldn't be executed!"
-    endcatch
-
-    try
-        printlog " Format / Alignment / Bottom"
-        FormatAlignmentBottom
-        WaitSlot()
-    catch
-        Warnlog "'Alignment bottom' couldn't be executed!"
-    endcatch
-
-    printlog " Close active document"
-    Call hCloseDocument
-    gApplication = "WRITER"
-endcase
-
-'-----------------------------------------------------------
-
-testcase tHtmlDocFormatObject
-    PrintLog "- Format / Object"
-    Dim j as integer
-
-    gApplication = "HTML"
-    printlog " Open new document"
-    Call hNewDocument
-
-    printlog " Insert a frame"
-    Call wInsertFrame
-
-    printlog " Format / Frame"
-    FormatFrame
-
-    printlog " Step through all tabpages"
-    Kontext
-    active.SetPage TabType
-    Kontext "TabType"
-    Call DialogTest ( TabType )
-
-    Kontext
-    active.SetPage TabZusaetze
-    Kontext "TabZusaetze"
-    Call DialogTest ( TabZusaetze )
-
-    Kontext
-    active.SetPage TabUmlauf
-    Kontext "TabUmlauf"
-    Call DialogTest ( TabUmlauf )
-
-    Kontext
-    active.SetPage TabUmrandung
-    Kontext "TabUmrandung"
-    Call DialogTest ( TabUmrandung )
-
-    Kontext
-    active.SetPage TabHintergrund
-    Kontext "TabHintergrund"
-    Call DialogTest ( TabHintergrund )
-
-    printlog " Close dialog"
-    TabHintergrund.Cancel
-
-    printlog " Close active document"
-    Call hCloseDocument
-    gApplication = "WRITER"
-endcase
-
-'-----------------------------------------------------------
diff --git a/testautomation/writer/required/includes/w_006_.inc b/testautomation/writer/required/includes/w_006_.inc
deleted file mode 100644
index ba671b26d1ff..000000000000
--- a/testautomation/writer/required/includes/w_006_.inc
+++ /dev/null
@@ -1,292 +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 : helge.delfs@oracle.com
-'*
-'* short description : Call all functions in table menu
-'*
-'\***********************************************************************
-
-sub w_006_
-
-    printLog Chr(13) + "--------- Table Menu (w_006_.inc) ----------"
-    gApplication = "WRITER"
-
-    Call tFormatTable
-    Call tFormatSplitTables
-    Call tFormatJoinTables
-    Call tFormatNumberFormat
-    Call tTableCell
-    Call tTableRow
-    Call tFormatAutoformatTable
-
-end sub
-
-'---------------------------------------------------------------------------------------------------------
-
-testcase tFormatTable
-    PrintLog "- Format / Table"
-
-    printlog " Open new document"
-    Call hNewDocument
-
-    printlog " Insert a table"
-    Call hTabelleEinfuegen
-
-    printlog " Format / Table"
-    TableProperties
-
-    Kontext
-    printlog " In dialog step through all tabpages"
-    Active.SetPage TabTabelle
-    Kontext "TabTabelle"
-    Call DialogTest ( TabTabelle )
-
-    Kontext
-    Active.SetPage TabTextflussTabelle
-    Kontext "TabTextflussTabelle"
-    Call DialogTest ( TabTextflussTabelle )
-
-    Kontext
-    Active.SetPage TabSpaltenTabelle
-    Kontext "TabSpaltenTabelle"
-    Call DialogTest ( TabSpaltenTabelle )
-
-    Kontext
-    Active.SetPage TabUmrandung
-    Kontext "TabUmrandung"
-    Call DialogTest ( TabUmrandung )
-
-    Kontext
-    Active.SetPage TabHintergrund
-    Kontext "TabHintergrund"
-    Call DialogTest ( TabHintergrund )
-
-    printlog " Close dialog"
-    TabHintergrund.Cancel
-
-    printlog " Close active document"
-    Call hCloseDocument
-
-endcase
-
-'----------------------------------------------------------
-
-testcase tFormatSplitTables
-    PrintLog "- Format / Split Table"
-    printlog " Open new document"
-    Call hNewDocument
-    printlog " Insert a table"
-    Call hTabelleEinfuegen
-    printlog " Select all"
-    Call wTypeKeys ("<Mod1 a>")
-    Sleep 1
-    printlog " Format / Split Table"
-    FormatSplitTable
-    Kontext "TabelleAuftrennen"
-    Call DialogTest ( TabelleAuftrennen )
-    printlog " Close dialog"
-    TabelleAuftrennen.Cancel
-    printlog " Close active document"
-    Call hCloseDocument
-endcase
-
-'-----------------------------------------------------------
-
-testcase tFormatJoinTables
-    PrintLog "- Format / Join Table"
-    printlog " Open new document"
-    Call hNewDocument
-    printlog " Insert a table"
-    Call hTabelleEinfuegen
-    printlog " Point cursor under the table"
-    Call wTypeKeys ("<Down><Down>")
-    printlog " Insert a table"
-    Call hTabelleEinfuegen
-    printlog " Point cursor under the table"
-    Call wTypeKeys ("<Down><Down>")
-    printlog " Insert a table"
-    Call hTabelleEinfuegen
-    printlog " Point cursor in 3rd table"
-    Call wTypeKeys ("<Up><Up>")
-    printlog " Format / Merge Tables"
-    FormatMergeTables
-    Kontext "TabellenVerbinden"
-    Call DialogTest (TabellenVerbinden)
-    printlog " Close dialog"
-    TabellenVerbinden.Cancel
-    printlog " Close active document"
-    Call hCloseDocument
-endcase
-
-'-----------------------------------------------------------
-
-testcase tFormatNumberFormat
-    printLog "- Format / Number Format"
-    printlog " Open new document"
-    Call hNewDocument
-    printlog " Format / Number Format"
-    Call hTabelleEinfuegen
-    FormatNumberFormat
-    Kontext "Zahlenformat"
-    Call DialogTest ( Zahlenformat )
-    printlog " Close dialog"
-    Zahlenformat.Cancel
-    printlog " Close active document"
-    Call hCloseDocument
-endcase
-
-'-----------------------------------------------------------
-
-testcase tTableCell
-    PrintLog "- Format / Cell"
-    printlog " Open new document"
-    Call hNewDocument
-    printlog " Insert a table"
-    Call hTabelleEinfuegen
-
-    printlog " Table / Column / Select"
-    TableSelectColumn
-    printlog " Table / Merge Cells"
-    TableMergeCell
-    printlog " Table / Split Cells"
-    TableSplitCell
-
-    Kontext "ZellenTeilen"
-    Call DialogTest ( ZellenTeilen )
-    printlog " Close dialog 'Split Table'"
-    ZellenTeilen.OK
-    printlog " Table / Protect Cells"
-    TableCellProtect
-
-    Call wTypeKeys ("<Left>")
-    printlog " Open Contextmenu"
-    printlog " Select 'Cell->Unprotect"
-    Kontext "DocumentWriter"
-    Call wTypeKeys "<Shift F10>"
-    wait (500)
-    Call hMenuFindSelect (".uno:CellMenu", true, 9, false)   'Find "CellMenu" and call the slot.
-    wait (500)
-    try
-        Call hMenuFindSelect (20519, true, 1, false)   'Find "UnProtect" and call the slot.
-    catch
-        Warnlog "Unable to unprotect cell"
-    endcatch
-    printlog " Close active document"
-    Call hCloseDocument
-endcase
-
-'-----------------------------------------------------------
-
-testcase tTableRow
-    PrintLog "- Format / Row"
-    printlog " Open new document"
-    Call hNewDocument
-    printlog "  Insert a table"
-    Call hTabelleEinfuegen
-
-    printlog " Format / Row / Height"
-    FormatRowHeight
-    Kontext "ZellenHoehe"
-    Hoehe.SetText "2,5"
-    Call DialogTest ( ZellenHoehe )
-    printlog " Close dialog"
-    ZellenHoehe.OK
-    printlog " Format / Column / Select"
-    TableSelectColumn
-    WaitSlot (500)
-    printlog " Format / Row / Space equally"
-    FormatRowSpaceEqually
-    WaitSlot (500)
-    printlog " Format / Row / Select"
-    TableSelectEntireRow
-    WaitSlot (500)
-    printlog " Format / Row / Optimal Height"
-    TableAutoFitSetOptimalRowHeight
-    WaitSlot (500)
-    printlog " Format / Row / Insert"
-    FormatRowInsert
-    Kontext "EinfuegenZeilen"
-    Anzahl.SetText "3"
-    Call DialogTest ( EinfuegenZeilen )
-    printlog " Close dialog"
-    EinfuegenZeilen.OK
-    printlog " Format / Row / Delete"
-    FormatRowDelete
-
-    printlog " Close active document"
-    Call hCloseDocument
-endcase
-
-'-----------------------------------------------------------
-
-testcase tFormatAutoformatTable
-    PrintLog "- Format / Autoformat - Table"
-
-    Call hNewDocument
-    printlog " Open new document"
-    Sleep 1
-    printlog " Insert a table"
-    Call hTabelleEinfuegen
-
-    printlog " Format / Autoformat"
-    FormatAutoformat
-    WaitSlot (2000)
-
-    Kontext "AutoformatTabelle"
-    printlog " In dialog click 'More..'"
-    Zusaetze.Click
-    Call DialogTest ( AutoformatTabelle )
-
-    printlog " Click 'Add'"
-    Einfuegen.Click
-    Kontext "AutoformatHinzufuegenWriter"
-    Call DialogTest ( AutoformatHinzufuegenWriter )
-    TabellenName.SetText "Hallo"
-    printlog " Enter a new table name"
-    AutoformatHinzufuegenWriter.OK
-
-    Kontext "AutoformatTabelle"
-    printlog " Click 'Rename'"
-    Umbenennen.Click
-    Kontext "AutoformatHinzufuegenWriter"
-    Call DialogTest ( AutoformatHinzufuegenWriter )
-    printlog " Enter an new table name"
-    TabellenName.SetText "Hallo1"
-    AutoformatHinzufuegenWriter.OK
-    Kontext "AutoformatTabelle"
-    printlog " Click 'Delete'"
-    Loeschen.Click
-    Kontext
-    Active.OK
-    printlog " Close dialog"
-    AutoformatTabelle.Cancel
-
-    printlog " Close active document"
-    Call hCloseDocument
-endcase
-
diff --git a/testautomation/writer/required/includes/w_007_.inc b/testautomation/writer/required/includes/w_007_.inc
deleted file mode 100644
index 86fd50a3f3c4..000000000000
--- a/testautomation/writer/required/includes/w_007_.inc
+++ /dev/null
@@ -1,1307 +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 : helge.delfs@oracle.com
-'*
-'* short description : Testcases for the Tools-Menu
-'*
-'\***********************************************************************
-
-sub w_007_
-
-    printLog Chr(13) + "--------- Tools Menu (w_007_.inc) ----------"
-    gApplication = "WRITER"
-
-    Call tToolsSpellcheck
-    Call tToolsThesaurus
-    Call tToolsHyphenation
-    Call tToolsWordCount
-    Call tToolsAutocorrectAutoformat
-    Call tToolsOutlineNumbering
-    Call tToolsLineNumbering
-    Call tToolsFootnotes
-    Call tToolsGallery
-    Call tToolsMailMergeWizard
-    Call tToolsTextInTables
-    Call tToolsSort
-    Call tToolsCalculate
-    Call tToolsUpdate
-    Call tToolsOptionsTest
-    Call tToolsHangulHanjaConversion
-    Call tToolsChineseTranslation
-
-    'Writer Web
-    gApplication = "HTML"
-    Call tHtmlDocToolsHangulHanjaConversion
-
-    'Writer Master Document
-    gApplication = "MASTERDOCUMENT"
-    Call tMasterDocToolsHyphenation
-    gApplication = "WRITER"
-end sub
-
-' -------------------------------------------
-
-testcase tToolsSpellcheck
-    PrintLog "- Tools / Spellcheck"
-    Dim i as integer
-    Dim TheFile as string
-    Dim IsWriteable as boolean
-
-    ' As long as OOo has no modules for that, disabled
-    if ( gOOO ) then
-        printlog "No spellchecking in OOo"
-        goto endsub
-    end if
-
-    printlog " Open document where the formatting is set to the language we wish to test."
-    TheFile = Convertpath (gTesttoolpath + "writer\optional\input\spellcheck\spellcheck_" + iSprache + ".odt")
-    if ( not FileExists ( TheFile ) ) then
-        Warnlog "Found no Document for the language you're testing in, Please inform the Test-Developer."
-        goto endsub
-    end if
-    hFileOpenLocally( TheFile )
-
-    printlog " Insert some faulty text"
-    select case iSprache
-    case 01 : Call wTypeKeys ("This is a spellchecktestttttt<Home>")
-    case 33 : Call wTypeKeys ("Je Suiss la Penneeee<Home>")
-    case 34 : Call wTypeKeys ("Habla Espanollll<Home>")
-    case 39 : Call wTypeKeys ("Don Cara Mio, capitoliooo?<Home>")
-    case 49 : Call wTypeKeys ("Dies ist ein Rechtschreibtexxxxt<Home>")
-    case 46 : Call wTypeKeys ("Det här är en rättstavningstexxxxt<Home>")
-    case 07 : Printlog "- No Spellcheck in Russian!"
-        goto endsub
-    case 48 : Printlog "- No Spellcheck in Polish!"
-        goto endsub
-    case 55 : Printlog "- No Spellcheck in Brazilian!"
-        goto endsub
-    case 81 : Printlog "- No Spellcheck in Japanese!"
-        goto endsub
-    case 82 : Printlog "- No Spellcheck in Korean!"
-        goto endsub
-    case 86 : Printlog "- No Spellcheck in Chinese (simplified)!"
-        goto endsub
-    case 88 : Printlog "- No Spellcheck in Chinese (traditional)!"
-        goto endsub
-    case 03, 30, 35, 36, 37, 42, 47, 51, 90
-        Printlog "- No Spellcheck available !"
-        goto endsub
-    case else
-    end select
-
-    printlog " Tools / Spellcheck / Check"
-    ToolsSpellcheckWriter
-    Kontext "Active"
-    if ( Active.Exists( 1 ) ) then
-        if Active.GetRT = 304 then
-            try
-                Active.Yes  ' Start from beginning ?
-                if Active.exists then
-                    if Active.GetRT = 304 then Active.Ok
-                    Warnlog "Dialog 'Spellcheck' not up!"
-                    hFileCloseAll()
-                    goto endsub
-                end if
-            catch
-                Active.Ok
-                Warnlog "Dialog 'Spellcheck' not up!"
-                Call hCloseDocument
-                goto endsub
-            endcatch
-        end if
-    end if
-
-    printlog " Spellcheck dialog has to come up"
-    Kontext "Spellcheck"
-    DialogTest ( Spellcheck )
-
-    printlog " Click 'Options'"
-    SpellcheckOptions.Click
-    Wait 500
-
-    kontext "TabLinguistik"
-    DialogTest ( TabLinguistik )
-
-    printlog " Step through all options in list and if 'Edit' is enabled click 'Edit'"
-    for i = 1 to 12
-        kontext "TabLinguistik"
-        Optionen.TypeKeys "<Down>"
-        if OptionenBearbeiten.IsEnabled then
-            OptionenBearbeiten.Click
-            wait 500
-            Kontext "HyphenationOptions"
-            DialogTest ( HyphenationOptions )
-            HyphenationOptions.Cancel
-        end if
-    next i
-
-    printlog " Click 'New' in Options dialog"
-    Neu.Click
-    wait 500
-
-    Kontext "BenutzerwoerterbuchAnlegen"
-    Call DialogTest ( BenutzerwoerterbuchAnlegen )
-    BenutzerwoerterbuchAnlegen.Close
-
-    printlog " Check if there s a writeable dictionary and select it"
-    Kontext "TabLinguistik"
-    for i = 1 to Benutzerwoerterbuch.GetItemCount
-        Benutzerwoerterbuch.Select i
-        if Bearbeiten.IsEnabled = true then
-            IsWriteable = true
-            exit for
-        end if
-    next i
-
-    if IsWriteable = true then
-        Bearbeiten.Click
-        printlog " Click 'Edit' in 'Options dialog'"
-
-        Kontext "BenutzerwoerterbuchBearbeiten"
-        if BenutzerwoerterbuchBearbeiten.Exists(1) then
-            Call DialogTest ( BenutzerwoerterbuchBearbeiten )
-            BenutzerwoerterbuchBearbeiten.Close
-        else
-            Warnlog "Dialog 'Edit Dictionary' is not up!"
-        end if
-    else
-        Warnlog "All dictionarys are write protected!"
-    end if
-
-    printlog " Close 'Options' dialog"
-    Kontext "TabLinguistik"
-    TabLinguistik.Close
-    wait 500
-
-    Kontext "Spellcheck"
-    printlog " Close 'Spellcheck' dialog"
-    Spellcheck.Close
-    wait 500
-    PrintLog "Close active documents"
-    hFileCloseAll()
-
-endcase
-
-' -------------------------------------------
-
-testcase tToolsThesaurus
-    PrintLog "- Tools / Thesaurus"
-    Dim TheFile as string
-
-    ' As long as OOo has no modules for that, disabled
-    if gOOO = True then
-        printlog "No spellchecking in OOo"
-        goto endsub
-    end if
-
-    select case iSprache
-    case 07 : Printlog "- No Thesaurus in Russian!"
-        goto endsub
-    case 48 : Printlog "- No Thesaurus in Polish!"
-        goto endsub
-    case 55 : Printlog "- No Thesaurus in Brazilian!"
-        goto endsub
-    case 81 : Printlog "- No Thesaurus in Japanese!"
-        goto endsub
-    case 82 : Printlog "- No Thesaurus in Korean!"
-        goto endsub
-    case 86 : Printlog "- No Thesaurus in Chinese (simplified)!"
-        goto endsub
-    case 88 : Printlog "- No Thesaurus in Chinese (traditional)!"
-        goto endsub
-    case 03, 30, 35, 36, 37, 42, 47, 51, 90
-        Printlog "- No Thesaurus available !"
-        goto endsub
-    end select
-
-    printlog " Open document where the formatting is set to the language we wish to test."
-    TheFile = Convertpath (gTesttoolpath + "writer\optional\input\spellcheck\spellcheck_" + iSprache + ".odt")
-    if ( not FileExists ( TheFile ) ) then
-        Warnlog "Found no Document for the language you're testing in, Please inform the Test-Developer."
-        goto endsub
-    end if
-    call hFileOpenLocally( TheFile )
-
-    printlog " Insert some faulty text"
-    select case iSprache
-    case 01 : Call wTypeKeys ("This is a spellchecktestttttt<Home>")
-    case 33 : Call wTypeKeys ("Je Suiss la Penneeee<Home>")
-    case 34 : Call wTypeKeys ("Habla Espanollll<Home>")
-    case 39 : Call wTypeKeys ("Don Cara Mio, capitoliooo?<Home>")
-    case 49 : Call wTypeKeys ("Dies ist ein Rechtschreibtexxxxt<Home>")
-    case 46 : Call wTypeKeys ("Det här är en rättstavningstexxxxt<Home>")
-    case 07 : Printlog "- No Thesaurus in Russian!"
-        goto endsub
-    case 48 : Printlog "- No Thesaurus in Polish!"
-        goto endsub
-    case 55 : Printlog "- No Thesaurus in Brazilian!"
-        goto endsub
-    case 81 : Printlog "- No Thesaurus in Japanese!"
-        goto endsub
-    case 82 : Printlog "- No Thesaurus in Korean!"
-        goto endsub
-    case 86 : Printlog "- No Thesaurus in Chinese (simplified)!"
-        goto endsub
-    case 88 : Printlog "- No Thesaurus in Chinese (traditional)!"
-        goto endsub
-    case 03, 30, 35, 36, 37, 42, 47, 51, 90
-        Printlog "- No Thesaurus available !"
-        goto endsub
-    case else
-    end select
-
-    ToolsLanguageThesaurus
-    Kontext "Active"
-    if Active.Exists then
-        Active.Ok
-        Warnlog "Dialog 'Thesaurus' not up!"
-        Call hCloseDocument
-        goto endsub
-    end if
-
-    Kontext "Thesaurus"
-    DialogTest ( Thesaurus )
-    printlog " Close 'Thesaurus' dialog"
-    Thesaurus.Cancel
-    PrintLog "Close active documents"
-    hFileCloseAll()
-    
-endcase
-
-' -------------------------------------------
-
-testcase tToolsHyphenation
-    Dim DieDatei as string
-    Dim LingFile as string
-
-    PrintLog "- Tools / Hyphenation"
-    ' As long as OOo has no modules for that, disabled
-    if gOOO = True then
-        printlog "No hyphenation in OOo"
-        goto endsub
-    end if
-
-    if gBuild < 9239 then
-        QAErrorlog "Hyphenation dialog freezes office!"
-        goto endsub
-    end if
-
-    select case iSprache
-    case 1,01 : LingFile = "01-44-hyph.dat"
-        DieDatei = ConvertPath( gTesttoolpath + "writer\required\input\linguistik\001.odt" )
-    case 7,07 :  DieDatei = ConvertPath( gTesttoolpath + "writer\required\input\linguistik\007.odt" )
-    case 3,03 :  DieDatei = ConvertPath( gTesttoolpath + "writer\required\input\linguistik\003.odt" )
-    case 81 : Printlog "- No Hyphenation in Japanese!"
-        goto endsub
-    case 82 : Printlog "- No Hyphenation in Korean!"
-        goto endsub
-    case 86 : Printlog "- No Hyphenation in Chinese (simplified)!"
-        goto endsub
-    case 88 : Printlog "- No Hyphenation in Chinese (traditional)!"
-        goto endsub
-    case else : DieDatei = ConvertPath( gTesttoolpath + "writer\required\input\linguistik\0" + trim$(str$(iSprache)) + ".odt" )
-        LingFile = str$(iSprache) + "-hyph.dat"
-    end select
-
-    if ( not FileExists( DieDatei ) ) then
-        Warnlog "No defined Errortext for language: " + isprache + "! Exit!"
-        goto endsub
-    end if
-
-    Select Case gApplication
-    Case "WRITER"
-        hFileOpenLocally( DieDatei )
-
-    Case "MASTERDOCUMENT"
-        if wInsertDocumentinMasterDoc(DieDatei) = False then
-            Warnlog "Loading document did not work!"
-            goto endsub
-        else
-            Call hNewDocument
-            printlog " Open new document"
-            hUseAsyncSlot( "EditPaste" )
-        end if
-
-    Case "HTML"
-        printlog "- No Hyphenation in WriterWeb!"
-        goto endsub
-    end select
-
-    printlog " Insert file 'writer\required\input\linguistik\0 + [OfficeLanguage] + '.odt'"
-    Sleep 1
-    Call wTypeKeys ("<Mod1 Home>")
-
-    hUseAsyncSlot( "ToolsLanguageHyphenate" )
-    printlog " Tools / Hyphenate"
-    Kontext "Active"
-    try
-        Active.Yes
-    catch
-    endcatch
-    if ( Active.Exists( 1 ) )then
-        if Active.GetRT = 304 then
-            Active.Ok
-            ' Force pagesize change to bringup Hyphenation-dialog
-            hUseAsyncSlot( "FormatPageWriter" )
-            Kontext
-            active.SetPage TabSeite
-            Kontext "TabSeite"
-            Breite.Settext "15"
-            TabSeite.Ok
-
-            hUseAsyncSlot( "ToolsLanguageHyphenate" )
-        end if
-    end if
-
-    Kontext "Hyphenation"
-    printlog " Close upcoming 'Hyphenation' dialog"
-    if Hyphenation.Exists then
-        Call DialogTest ( Hyphenation )
-        Hyphenation.Cancel
-    else
-        Warnlog "Dialog 'Hyphenation' not up!"
-        Kontext "Active"
-        if Active.Exists then
-            try
-                Active.Ok
-            catch
-            endcatch
-        end if
-    end if
-
-    PrintLog "Close active documents"
-    Do Until GetDocumentCount = 0
-        Call hCloseDocument
-    Loop
-endcase
-
-' -------------------------------------------
-
-testcase tToolsWordCount
-    Printlog "- Tools / Word Count"
-    printlog " New Text document"
-    Call hNewDocument
-    printlog "  Tools / Word Count"
-    ToolsWordCount
-    printlog " If if dialog has been opened"
-    Kontext "WordCount"
-    if ( WordCount.Exists( 1 ) ) then
-        Call DialogTest ( WordCount )
-        printlog " Close dialog 'WordCount'"
-        WordCount.Close
-    else
-        Warnlog "Dialog 'WordCount' has not been opened!"
-    end if
-    printlog " Close Text document"
-    Call hCloseDocument
-endcase
-
-' -------------------------------------------
-
-testcase tToolsAutocorrectAutoformat
-    PrintLog "- Tools / Autocorrect / Autoformat"
-    Dim i as integer
-
-    Call hNewDocument
-    printlog " Open new document"
-    ToolsAutoCorrect
-    printlog " Tools / Autocorrect/Autoformat"
-
-    Kontext "Active"
-    if Active.Exists then
-        if Active.GetRT = 304 then
-            Warnlog Active.Gettext
-            Active.Ok
-        end if
-    end if
-
-    printlog " Step through all tabpages"
-    Kontext
-    active.SetPage TabErsetzung
-    Kontext "Active"
-    if Active.Exists then
-        if Active.GetRT = 304 then
-            Warnlog Active.Gettext
-            Active.Ok
-        end if
-    end if
-    Kontext "TabErsetzung"
-    Call DialogTest ( TabErsetzung )
-
-    Kontext
-    active.SetPage TabAusnahmen
-    Kontext "Active"
-    if Active.Exists then
-        if Active.GetRT = 304 then
-            Warnlog Active.Gettext
-            Active.Ok
-        end if
-    end if
-    Kontext "TabAusnahmen"
-    Call DialogTest ( TabAusnahmen )
-
-    Kontext
-    active.SetPage TabOptionenAutokorrektur
-    Kontext "TabOptionenAutokorrektur"
-    Call DialogTest ( TabOptionenAutokorrektur )
-    printlog " Step through all options in list"
-    printlog " Tabpage Options: With entry 10 button 'Edit' should be enabled"
-    Einstellungen.TypeKeys "<Down>",9
-    Wait 500
-    if Bearbeiten.IsEnabled then
-        Bearbeiten.Click
-        Kontext "Sonderzeichen"
-        DialogTest (Sonderzeichen)
-        Sonderzeichen.Cancel
-    else
-        Warnlog "- Button 'Edit' on Entry 10 disabled!"
-    end if
-
-    Kontext "TabOptionenAutokorrektur"
-    printlog " Tabpage Options: With entry 16 button 'Edit' should be enabled"
-    Einstellungen.TypeKeys "<Down>",6
-    Wait 500
-    if Bearbeiten.IsEnabled then
-        Bearbeiten.Click
-        Kontext "Sonderzeichen"
-        DialogTest (Sonderzeichen)
-        Sonderzeichen.Cancel
-    else
-        Warnlog "- Button 'Edit' on Entry 16 disabled!"
-    end if
-
-    Kontext "TabOptionenAutokorrektur"
-    printlog " Tabpage Options: With entry 17 button 'Edit' should be enabled"
-    Einstellungen.TypeKeys "<Down>",1
-    Wait 500
-    if Bearbeiten.IsEnabled then
-        Bearbeiten.Click
-        Kontext "Zusammenfassen"
-        DialogTest (Zusammenfassen)
-        Zusammenfassen.Cancel
-        Kontext "TabOptionenAutokorrektur"
-    else
-        Warnlog "- Button 'Edit' on Entry 17 disabled!"
-    end if
-
-    Kontext
-    active.SetPage TabLocalizedOptions
-    Kontext "TabLocalizedOptions"
-    SingleQuotesStart.Click
-    Kontext "Sonderzeichen"
-    Call DialogTest ( Sonderzeichen, 1 )
-    Sonderzeichen.Cancel
-
-    Kontext "TabLocalizedOptions"
-    SingleQuotesEnd.Click
-    Kontext "Sonderzeichen"
-    Call DialogTest ( Sonderzeichen, 2 )
-    Sonderzeichen.Cancel
-
-    Kontext "TabLocalizedOptions"
-    SingleQuotesDefault.Click
-
-    Kontext "TabLocalizedOptions"
-    DoubleQuotesStart.Click
-    Kontext "Sonderzeichen"
-    Call DialogTest ( Sonderzeichen, 3 )
-    Sonderzeichen.Cancel
-
-    Kontext "TabLocalizedOptions"
-    DoubleQuotesEnd.Click
-    Kontext "Sonderzeichen"
-    Call DialogTest ( Sonderzeichen, 4 )
-    Sonderzeichen.Cancel
-
-    Kontext "TabLocalizedOptions"
-    DoubleQuotesDefault.Click
-
-    Kontext
-    Active.Setpage TabWortergaenzung
-    Kontext "TabWortergaenzung"
-    Call DialogTest ( TabWortergaenzung )
-    printlog " Close Autocorrect dialogue"
-    TabWortergaenzung.Cancel
-
-    printlog " Close active document"
-    Call hCloseDocument
-endcase
-
-' -------------------------------------------
-
-testcase tToolsOutlineNumbering
-    PrintLog "- Tools / Outline Numbering"
-
-    Call hNewDocument
-    printlog " Open new document"
-    ToolsOutlineNumbering
-    printlog " Tools / Outline Numbering"
-    Kontext
-    Active.SetPage TabKapitelnumerierung
-    Kontext "TabKapitelnumerierung"
-    Call DialogTest ( TabKapitelnumerierung )
-
-    Kontext
-    Active.SetPage TabPositionKapitelnumerierung
-    Call DialogTest ( TabPositionKapitelnumerierung )
-    printlog " Step through tabpages and close dialog"
-
-    TabPositionKapitelnumerierung.Cancel
-    printlog " Close active document"
-    Call hCloseDocument
-endcase
-
-' -------------------------------------------
-
-testcase tToolsLineNumbering
-    PrintLog "- Tools / Line Numbering"
-
-    Call hNewDocument
-    printlog " Open new document"
-    ToolsLineNumbering
-    printlog " Tools / Line Numbering"
-    Kontext "TabZeilennumerierung"
-    printlog " Check checkbox 'Show numbering'"
-    Einschalten.Check
-    Call DialogTest ( TabZeilennumerierung )
-    printlog " Close dialog"
-    TabZeilennumerierung.Cancel
-    printlog " Close active document"
-    Call hCloseDocument
-endcase
-
-'-----------------------------------------------------------
-
-testcase tToolsFootnotes
-    PrintLog "- Tools / Footnotes"
-
-    Call hNewDocument
-    printlog " Open new document"
-    ToolsFootnote
-    printlog " Tools / Footnotes"
-    Kontext
-    Active.Setpage TabFussnoten
-    Kontext "TabFussnoten"
-    DialogTest ( TabFussnoten )
-    printlog " Step through all tabpages"
-    Kontext
-    Active.SetPage TabEndnoten
-    Kontext "TabEndnoten"
-    DialogTest ( TabEndnoten )
-    printlog " Close dialog"
-    TabEndnoten.Cancel
-    printlog " Close active document"
-    Call hCloseDocument
-endcase
-
-' -------------------------------------------
-
-testcase tToolsGallery
-    Dim i as integer
-
-    printlog "- Tools / Gallery"
-    Call hNewDocument
-    printlog " Open new document"
-    Kontext "Gallery"
-    if Not Gallery.Exists then ToolsGallery
-    printlog " Tools / Gallery"
-    WaitSlot (3000)
-    Kontext "Gallery"
-    printlog " Gallery has to be opened"
-    if Not Gallery.Exists then
-        Warnlog "Gallery has not been opened! No test"
-        goto endsub
-    else
-        printlog " Step through all themes"
-        printlog "- Step through all Themes"
-        For i = 1 to Gallerys.GetItemCount
-            Gallerys.Select i
-            Wait 500
-        next i
-        printlog "- New theme"
-    end if
-
-    Kontext
-    ToolsGallery
-    printlog " Close gallery with Tools / Gallery"
-    Kontext "Gallery"
-    if Gallery.Exists then Warnlog "Gallery has not been closed!"
-
-    printlog " Close active document"
-    Call hCloseDocument
-endcase
-
-' -------------------------------------------
-
-testcase tToolsMailMergeWizard
-    Dim i as integer
-
-    PrintLog "- Tools / Mail Merge"
-    if gApplication = "HTML" then goto endsub
-
-    Call hNewDocument
-    printlog " Open new document"
-    ToolsMailMergeWizard
-
-    printlog " Tools / Mail Merge Wizard"
-    Kontext "MailMergeWizard"
-    if ( MailMergeWizard.Exists( 5 ) ) then
-        printlog( "Dialog <MailmergeWizard> is available" )
-    else
-        Warnlog( "FATAL: Dialog <MailmergeWizard> not available" )
-        Call hCloseDocument
-        goto endsub
-    end if
-
-    Call DialogTest ( MailMergeWizard )
-    Kontext "TabMailMergeSourceDocument"
-    Call DialogTest ( TabMailMergeSourceDocument )
-    Wait 500
-    printlog " Click document 'Browse' button"
-    BrowseDocument.Click
-
-    Kontext "OeffnenDlg"
-    if ( OeffnenDlg.Exists( 1 ) ) then
-        OeffnenDlg.Cancel
-    else
-        Warnlog "Filedialog not up on document 'Browse' button"
-    end if
-
-    Kontext "TabMailMergeSourceDocument"
-    printlog " Click template 'Browse' button"
-    BrowseTemplate.Click
-    
-    Kontext "Neu"
-    if ( Neu.exists( 1 ) ) then
-        Call DialogTest ( Neu )
-        Neu.Cancel
-    else
-        warnlog( "Dialog <Neu> is not available" )
-    end if
-
-    Kontext "TabMailMergeSourceDocument"
-    printlog " Check 'Use the current document' radio button"
-    UseTheCurrentDocument.Check
-
-    printlog " Click 'Next' button"
-    Kontext "MailMergeWizard"
-    NextButton.Click
-    Sleep 1
-    Kontext "TabMailMergeDocumentType"
-    Call DialogTest ( TabMailMergeDocumentType )
-    wait 500
-    printlog " Click 'Next' button"
-    Kontext "MailMergeWizard"
-    NextButton.Click
-    Sleep 1
-    Kontext "TabMailMergeAddressBlock"
-    Call DialogTest ( TabMailMergeAddressBlock )
-    wait 500
-    printlog " Click 'Select Address List'"
-    SelectAddressListButton.Click
-    
-    Kontext "Active"
-    if ( Active.Exists( 1 ) ) then
-        if Active.GetRT = 304 then
-            Warnlog Active.Gettext
-            Active.Ok
-        end if
-    end if
-   
-    Kontext "SelectAddressList"
-    if ( SelectAddressList.exists( 2 ) ) then
-        Call DialogTest ( SelectAddressList )
-    else
-        Warnlog "Problems selecting addresses"
-        Kontext "MailMergeWizard"
-        MailMergeWizard.Cancel
-        Call hCloseDocument
-        goto endsub
-    end if
-
-    printlog " In 'Select address list' dialog click 'Add'"
-    Add.Click
-
-    Kontext "OeffnenDlg"
-    if ( OeffnenDlg.Exists( 1 ) ) then
-        OeffnenDlg.Cancel
-    else
-        Warnlog "Filedialog not up on template 'Browse' button"
-    end if
-
-    Kontext "SelectAddressList"
-    if ( SelectAddressList.exists( 1 ) ) then
-        printlog " In 'Select address list' dialog click 'Create'"
-        Create.Click
-    else
-        warnlog( "Dialog <SelectAddressList> is not available" )
-    end if
-
-    Kontext "NewAddressList"
-    if ( NewAddressList.exists( 1 ) ) then
-        Call DialogTest ( NewAddressList )
-        printlog " In 'New address' dialog click 'Find' button"
-        Find.Click
-    else
-        warnlog( "Dialog <NewAddressList> is not available" )
-    end if
-
-    Kontext "FindEntry"
-    if ( FindEntry.Exists( 1 ) ) then
-        Call DialogTest ( FindEntry )
-        FindEntry.Cancel
-    else
-        Warnlog "Dialog 'Find entry' not up"
-    end if
-
-    printlog " In 'New address' dialog click 'Customize' button"
-    Kontext "NewAddressList"
-    Customize.Click
-
-    Kontext "CustomizeAddressList"
-    if ( CustomizeAddressList.Exists( 1 ) ) then
-        Call DialogTest ( CustomizeAddressList )
-        printlog " In 'Customize Addresss List' dialog select first entry in list"
-        AddressListElements.Select 1
-        printlog " Click 'add' button"
-        Add.Click
-        Kontext "RenameElement"
-        Call DialogTest ( RenameElement )
-        printlog " Close 'Add Element' dialog"
-        RenameElement.Cancel
-        Kontext "CustomizeAddressList"
-        printlog " Click 'Rename' button"
-        Rename.Click
-        Kontext "RenameElement"
-        Call DialogTest ( RenameElement )
-        RenameElement.Cancel
-        wait 500
-        Kontext "CustomizeAddressList"
-        CustomizeAddressList.Cancel
-    else
-        Warnlog "Dialog 'Customize Address List' is not up"
-    end if
-
-    printlog " Close all open dialogs"
-
-    Kontext "NewAddressList"
-    if ( NewAddressList.exists( 1 ) ) then
-        NewAddressList.Cancel
-    else
-        warnlog( "Dialog <NewAddressList> is not available" )
-    end if
-
-    Kontext "SelectAddressList"
-    if ( SelectAddressList.exists( 1 ) ) then
-        SelectAddressList.Cancel
-    else
-        warnlog( "Dialog <SelectAddressList> is not available" )
-    end if
-
-    Kontext "MailMergeWizard"
-    if ( MailMergeWizard.exists( 1 ) ) then
-        MailMergeWizard.Cancel
-    else
-        warnlog( "Dialog <MailMergeWizard> is not available" )
-    end if
-
-    printlog " Close active document"
-    Call hCloseDocument
-endcase
-
-' -------------------------------------------
-
-testcase tToolsTextInTables
-    PrintLog "- Tools / Text <-> Tables"
-    printlog " Open new document"
-    Call hNewDocument
-    printlog " Insert some text and select it"
-    Call wTypeKeys ("Hallo dieser Text soll in eine Tabelle")
-    Call wTypeKeys ("<Shift Home>")
-    ToolsTextInTable
-    printlog " Tools / Text<->Table"
-    Kontext "TextInTabelleUmwandeln"
-    DialogTest ( TextInTabelleUmwandeln )
-    printlog " Close upcoming dialog"
-    TextInTabelleUmwandeln.Cancel
-    printlog " Close active document"
-    Call hCloseDocument
-endcase
-
-' -------------------------------------------
-
-testcase tToolsSort
-    Dim i as integer
-    PrintLog "- Tools / Sort"
-
-    Call hNewDocument
-    printlog " Open new document"
-    For i = 1 to 5
-        Call wTypeKeys (i)
-        Call wTypeKeys ("<Return>")
-    next i
-    Call wTypeKeys ("<Mod1 A>")
-    ToolsSort
-    Kontext "Sortieren"
-    Call DialogTest ( Sortieren )
-    Sortieren.Cancel
-    printlog " Close active document"
-    Call hCloseDocument
-endcase
-
-' -------------------------------------------
-
-testcase tToolsCalculate
-    PrintLog "- Tools / Calculate"
-
-    Call hNewDocument
-    printlog " Open new document"
-    Call wTypeKeys( "2+4" )
-    printlog " Insert text: 2+4"
-    EditSelectAll
-    printlog " Edit / Select All"
-    ToolsCalculate
-    printlog " Tools / Calculate"
-    Call wTypeKeys ("<End>  Das Ergebnis ist = ")
-    printlog " Paste result of calculation with Edit / Paste"
-    EditPaste
-    Call hCloseDocument
-    printlog " Close active document"
-endcase
-
-' -------------------------------------------
-
-testcase tToolsUpdate
-    PrintLog "- Tools / Update"
-    if gApplication = "HTML" then
-        printlog "Not in WriterWeb !"
-        goto endsub
-    end if
-    printlog " Open new document"
-    Call hNewDocument
-
-    printlog "  - Update Indexes ( all, current )"
-    printlog " Add a text to document"
-    Call wTypeKeys ("Dieser Text ist zur Aktualisierung")
-    printlog " Insert / Indexes"
-    InsertIndexes
-    sleep 1
-
-    Kontext "Active"
-    if ( Active.Exists( 2 ) ) then
-        if active.GetRT = 304 then
-            Warnlog Active.Gettext
-            Active.Ok
-        end if
-    end if
-    Sleep 5
-    
-    Kontext
-    Active.Setpage TabVerzeichnisseVerzeichnis
-
-    printlog " Close upcoming Index dialog"
-    Kontext "TabVerzeichnisseVerzeichnis"
-    TabVerzeichnisseVerzeichnis.OK
-
-    printlog " Tools / Update / All Indexes"
-    hUseAsyncSlot( "ToolsUpdateAllIndexes" )
-
-    printlog " Tools / Update / Current Index"
-    ToolsUpdateCurrentIndex
-
-    printlog "  - Update Fields"
-    Call wTypeKeys ("<Up><Home><Tab>")
-
-    printlog " Insert / Fields / Author"
-    InsertFieldsAuthor
-
-    printlog " Insert / Fields / Time"
-    InsertFieldsTime
-
-    printlog " Tools / Update / Fields"
-    hUseAsyncSlot( "ToolsUpdateFields" )
-
-    printlog "  - Update links"
-    printlog " Insert a graphic from file"
-    Call hGrafikVerknuepftEinfuegen ( gTesttoolPath + "writer\required\input\graphics\jolink.jpg" )
-    if ( hUseAsyncSlot( "ToolsUpdateLinks" ) = -1 ) then
-        Warnlog "Links can't be updated!"
-    end if
-
-    printlog "  - Update / Reformat Pages  with  Tools / Page formatting"
-    ToolsPageFormatting
-
-    printlog "  - update all   with   Tools / Update / Update All"
-    ToolsUpdateUpdateAll
-
-    printlog " Close all active documents"
-    hFileCloseAll()
-endcase
-
-' -------------------------------------------
-
-testcase tToolsHangulHanjaConversion
-    Dim bAsianLanguage as Boolean
-    Dim sTestFile as String
-
-    if ( gApplication = "MASTERDOCUMENT" ) then
-        goto endsub
-    end if
-
-    select case gApplication
-    case "HTML"   : sTestFile = gTesttoolpath & "writer\required\input\hangul.html"
-    case "WRITER" : sTestFile = gTesttoolpath & "writer\required\input\hangul.sxw"
-    case default  : goto endsub
-    end select
-
-    PrintLog "- Tools / HangulHanjaConversion"
-
-    printlog " Enable 'Asian Language support' ON"
-    bAsianLanguage = ActiveDeactivateAsianSupport(TRUE)
-
-    printlog " Open the test file"
-    hFileOpenLocally(sTestFile)
-    Call wTypeKeys("<MOD1 Home>")
-
-    printlog " Tools / HangulHanjaConversion"
-    try
-        ToolsLanguageHangulHanjaConversion
-    catch
-        Warnlog "- Format / HangulHanjaConversion is disabled or hidden!"
-        bAsianLanguage = ActiveDeactivateAsianSupport(False)
-        Call hCloseDocument
-        goto endsub
-    endcatch
-
-    Kontext "HangulHanjaConversion"
-    if HangulHanjaConversion.Exists then
-        Call DialogTest ( HangulHanjaConversion )
-    else
-        Warnlog "- Format / HangulHanjaConversion doesn't work. Dialog is not up"
-        bAsianLanguage = ActiveDeactivateAsianSupport(False)
-        Call hCloseDocument
-        goto endsub
-    end if
-
-    printlog " Click button 'Options'"
-    try
-        Options.Click
-        Kontext "HangulHanjaOptions"
-        Call DialogTest ( HangulHanjaOptions )
-    catch
-        Warnlog "- Something is wrong in the button 'Options' !"
-        Call hCloseDocument
-        goto endsub
-    endcatch
-
-    NewDictionary.Click
-    Kontext "HangulHanjaNewDictionary"
-    Call DialogTest ( HangulHanjaNewDictionary )
-    HangulHanjaNewDictionary.Close
-
-    Kontext "HangulHanjaOptions"
-    HangulHanjaOptions.Cancel
-
-    Kontext "HangulHanjaConversion"
-    printlog " Close HangulHanja dialog"
-    HangulHanjaConversion.Close
-
-    printlog " Set the 'Asian Language support' to default"
-    if bAsianLanguage = FALSE then
-        Call ActiveDeactivateAsianSupport(FALSE)
-    end if
-
-    printlog " Close all active documents"
-    Do Until GetDocumentCount = 0
-        Call hCloseDocument
-    Loop
-endcase
-
-' -------------------------------------------
-
-testcase tToolsChineseTranslation
-
-    Dim bAsianLanguage as Boolean
-
-    PrintLog "- Tools / Language / Chinese Translation"
-
-    printlog " Open a new document"
-    Call hNewDocument
-
-    printlog " Enable 'Asian Language support' ON"
-    bAsianLanguage = ActiveDeactivateAsianSupport(TRUE)
-
-    printlog " Tools / Language / Chinese Translation"
-    try
-        ToolsLanguageChineseTranslation
-    catch
-        Warnlog "- Tools/language / Chinese Translation is disabled or hidden!"
-        Call hCloseDocument
-        goto endsub
-    endcatch
-
-    Kontext "ChineseTranslation"
-    if ChineseTranslation.Exists then
-        Call DialogTest ( ChineseTranslation )
-    else
-        Warnlog "Tools-> Language -> Chinese Translation does not work!"
-        Call hCloseDocument
-        goto endsub
-    end if
-
-    printlog " Press 'Edit Terms' button , a new dialog should appear"
-    try
-        EditTerms.Click
-    catch
-        Warnlog "- Something is wrong in the button 'Edit Terms' !"
-        Kontext "ChineseTranslation"
-        ChineseTranslation.Cancel
-        Call hCloseDocument
-        goto endsub
-    endcatch
-
-    Kontext "ChineseDictionary"
-    if ChineseDictionary.Exists then
-        Call DialogTest ( ChineseDictionary )
-    else
-        Warnlog "Button 'Edit Terms' does not bring up the dialog!"
-        Kontext "ChineseTranslation"
-        ChineseTranslation.Cancel
-        Call hCloseDocument
-        goto endsub
-    end if
-    ChineseDictionary.Cancel
-
-    Kontext "ChineseTranslation"
-    ChineseTranslation.Cancel
-
-    printlog " Set the 'Asian Language support' to default"
-    if bAsianLanguage = FALSE then
-        Call ActiveDeactivateAsianSupport(FALSE)
-    end if
-
-    printlog " Close active document"
-    Call hCloseDocument
-endcase
-
-' -------------------------------------------
-
-testcase tHtmlDocToolsHangulHanjaConversion
-
-    Dim bAsianLanguage as Boolean
-    Dim sTestFile as String
-
-    gApplication = "HTML"
-    PrintLog "- Tools / HangulHanjaConversion"
-    sTestFile = Convertpath (gTesttoolpath + "writer\required\input\hangul.html")
-
-    printlog " Enable 'Asian Language support' ON"
-    bAsianLanguage = ActiveDeactivateAsianSupport(TRUE)
-
-    printlog " Open the test file"
-    hFileOpenLocally(sTestFile)
-    Call wTypeKeys("<MOD1 Home>")
-
-    printlog " Tools / HangulHanjaConversion"
-    if ( hUseAsyncSlot( "ToolsLanguageHangulHanjaConversion" ) = -1 ) then
-        Warnlog "- Format / HangulHanjaConversion is disabled or hidden!"
-        bAsianLanguage = ActiveDeactivateAsianSupport(False)
-        Call hCloseDocument
-        goto endsub
-    end if
-
-    Kontext "HangulHanjaConversion"
-    if ( HangulHanjaConversion.Exists( 1 ) ) then
-        Call DialogTest ( HangulHanjaConversion )
-    else
-        Warnlog "- Format / HangulHanjaConversion doesn't work. Dialog is not up"
-        bAsianLanguage = ActiveDeactivateAsianSupport(False)
-        Call hCloseDocument
-        goto endsub
-    end if
-
-    printlog " Click button 'Options'"
-    try
-        Options.Click
-        Kontext "HangulHanjaOptions"
-        Call DialogTest ( HangulHanjaOptions )
-    catch
-        Warnlog "- Something is wrong in the button 'Options' !"
-        Call hCloseDocument
-        goto endsub
-    endcatch
-
-    NewDictionary.Click
-    Kontext "HangulHanjaNewDictionary"
-    Call DialogTest ( HangulHanjaNewDictionary )
-    HangulHanjaNewDictionary.Close
-
-    Kontext "HangulHanjaOptions"
-    HangulHanjaOptions.Cancel
-
-    Kontext "HangulHanjaConversion"
-    printlog " Close HangulHanja dialog"
-    HangulHanjaConversion.Close
-
-    printlog " Set the 'Asian Language support' to default"
-    if bAsianLanguage = FALSE then
-        Call ActiveDeactivateAsianSupport(FALSE)
-    end if
-
-    PrintLog "Close active documents"
-    Do Until GetDocumentCount = 0
-        Call hCloseDocument
-    Loop
-    gApplication = "WRITER"
-endcase
-
-' -------------------------------------------
-
-testcase tMasterDocToolsHyphenation
-    Dim sTestFile as string
-    Dim LingFile as string
-
-    gApplication = "MASTERDOCUMENT"
-    PrintLog "- Tools / Hyphenation"
-
-    ' As long as OOo has no modules for that, disabled
-    if ( gOOO ) then
-        printlog "No hyphenation in OOo"
-        goto endsub
-    end if
-
-    select case iSprache
-    case 1,01
-        LingFile = "01-44-hyph.dat"
-        sTestFile = gTesttoolpath + "writer\required\input\linguistik\001.odt"
-    case 7,07
-        sTestFile = gTesttoolpath + "writer\required\input\linguistik\007.odt"
-    case 3,03
-        sTestFile = gTesttoolpath + "writer\required\input\linguistik\003.odt"
-    case 81
-        Printlog "- No Hyphenation in Japanese!"
-        goto endsub
-    case 82
-        Printlog "- No Hyphenation in Korean!"
-        goto endsub
-    case 86
-        Printlog "- No Hyphenation in Chinese (simplified)!"
-        goto endsub
-    case 88
-        Printlog "- No Hyphenation in Chinese (traditional)!"
-        goto endsub
-    case else
-        sTestFile = gTesttoolpath + "writer\required\input\linguistik\0" + trim$(str$(iSprache)) + ".odt"
-        LingFile = str$(iSprache) + "-hyph.dat"
-    end select
-
-    sTestFile = convertpath( sTestFile )
-    if ( not FileExists( sTestFile ) )then
-        Warnlog "No defined Errortext for language: " + isprache + "! Exit!"
-        goto endsub
-    end if
-
-    if ( not wInsertDocumentinMasterDoc( sTestFile ) ) then
-        Warnlog "Loading document did not work!"
-        goto endsub
-    else
-        Call hNewDocument
-        printlog " Open new document"
-        hUseAsyncSlot( "EditPaste" )
-    end if
-
-    
-    printlog " Insert file 'writer\required\input\linguistik\0 + [OfficeLanguage] + '.odt'"
-    Sleep 1
-    Call wTypeKeys ("<Mod1 Home>")
-
-    printlog " Tools / Hyphenate"
-    hUseAsyncSlot( "ToolsLanguageHyphenate" )
-    
-    ' This is probably a workaround to make the hyphenation dialog work in any case.
-    
-    ' We really only know of three possible dialogs (in order of appearance):
-    ' 1: Continue checking at the beginning of the document (Yes/No)
-    ' 2: Hyphenation for language not installed (Ok)
-    ' 3: Hyphenation completed (Ok)
-    
-    ' I have not changed the code, only beautified it a little but i feel the outcome of
-    ' this test is somewhat random.
-    Kontext "Active"
-    if ( Active.exists( 1 ) ) then
-    
-        ' JSK: These messagboxes were originally handled silently.
-        '      So i have no idea which of those is expected and which is not...
-        printlog( "Messagebox: " & Active.getText() )
-        try
-            printlog( "Trying to close messageboy with <YES>" )
-            Active.Yes
-        catch
-            printlog( "<YES> failed... (Whatever that means)" )
-        endcatch
-        
-        if ( Active.Exists() ) then
-            printlog( "Messagebx: " & Active.getText() )
-            if ( Active.GetRT() = 304 ) then
-                Active.Ok
-                ' Force pagesize change to bringup Hyphenation-dialog
-                hUseAsyncSlot( "FormatPageWriter" )
-                
-                Kontext
-                active.SetPage TabSeite
-                
-                Kontext "TabSeite"
-                Breite.Settext "15"
-                TabSeite.Ok
-                hUseAsyncSlot( "ToolsLanguageHyphenate" )
-            end if
-        end if
-    end if
-
-    Kontext "Hyphenation"
-    printlog " Close upcoming 'Hyphenation' dialog"
-    if ( Hyphenation.Exists( 2 ) ) then
-        Call DialogTest ( Hyphenation )
-        Hyphenation.Cancel
-    else
-        Warnlog "Dialog 'Hyphenation' not up!"
-        Kontext "Active"
-        if ( Active.Exists() ) then
-            try
-                Active.Ok
-            catch
-            endcatch
-        end if
-    end if
-
-    printlog " Close active documents"
-    hFileCloseAll()
-    gApplication = "WRITER"
-endcase
-
-' -------------------------------------------
diff --git a/testautomation/writer/required/includes/w_008_.inc b/testautomation/writer/required/includes/w_008_.inc
deleted file mode 100644
index 1cd171219a65..000000000000
--- a/testautomation/writer/required/includes/w_008_.inc
+++ /dev/null
@@ -1,61 +0,0 @@
-'**************************************************************************
-' 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 : helge.delfs@oracle.com
-'*
-'* short description :   Diverse Testcases for the office.
-'*
-'\******************************************************************
-
-sub w_008_
-
-    printLog Chr(13) + "--------- Window Menu (w_008_.inc) ----------"
-    gApplication = "WRITER"
-
-    Call tWindowNewWindow
-
-end sub
-
-'-----------------------------------------------------------
-
-testcase tWindowNewWindow
-    PrintLog "- Window / New Window"
-    if gApplication = "HTML" then
-        printlog "Not in WriterWeb !"
-        goto endsub
-    end if
-    Call hNewDocument
-    printlog " Open new document"
-    Call hTabelleEinfuegen
-    printlog " Insert Table"
-    WindowNewWindow
-    printlog " Window / New Window"
-    WaitSlot (2000)
-    Call hCloseDocument
-    printlog " Close active document"
-endcase
-
-'-----------------------------------------------------------
diff --git a/testautomation/writer/required/includes/w_009_.inc b/testautomation/writer/required/includes/w_009_.inc
deleted file mode 100644
index fcc0b0e64cf8..000000000000
--- a/testautomation/writer/required/includes/w_009_.inc
+++ /dev/null
@@ -1,95 +0,0 @@
-'**************************************************************************
-' 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 : helge.delfs@oracle.com                                    **
-'*                                                                **
-'* short description :   Testcases for the Help-Menu
-'*
-'\******************************************************************
-
-sub w_009_
-
-    printLog Chr(13) + "--------- Menu Help (w_009_.inc) ----------"
-    gApplication = "WRITER"
-
-    Call tHelpTip
-    Call tHelpExtendedTips
-    Call tHelpAboutStarOffice
-
-end sub
-
-'-----------------------------------------------------------
-
-testcase tHelpTip
-    PrintLog "- Help / Tip"
-
-    printlog " Open new document"
-    Call hNewDocument
-    printlog " Help / Tips"
-    HelpTips
-    WaitSlot (2000)
-    printlog " Help / Tips"
-    HelpTips
-    printlog " Close active document"
-    Call hCloseDocument
-endcase
-
-'-----------------------------------------------------------
-
-testcase tHelpExtendedTips
-    PrintLog "- Help / Extended Tips"
-
-    printlog " Open new document"
-    Call hNewDocument
-    printlog " Help / Extended Help"
-    HelpEntendedHelp
-    WaitSlot (2000)
-    printlog " Help / Extended Help"
-    HelpEntendedHelp
-    printlog " Close active document"
-    Call hCloseDocument
-endcase
-
-'-----------------------------------------------------------
-
-testcase tHelpAboutStarOffice
-    PrintLog "- Help / About StarOffice"
-
-    printlog " Open new document"
-    Call hNewDocument
-    printlog " Help / About"
-    HelpAboutStarOffice
-    Kontext "UeberStarWriter"
-    DialogTest ( UeberStarWriter )
-    printlog " In About dialog enter key <Strg+Alt+Del>"
-    UeberStarWriter.TypeKeys "<Mod1 S><Mod1 D><Mod1 T>"
-    printlog " Close About dialog"
-    hCloseDialog( UeberStarWriter, "ok" )
-    printlog " Close active document"
-    Call hCloseDocument
-endcase
-
-'-----------------------------------------------------------
diff --git a/testautomation/writer/required/includes/w_010_.inc b/testautomation/writer/required/includes/w_010_.inc
deleted file mode 100644
index 7f717166e4f9..000000000000
--- a/testautomation/writer/required/includes/w_010_.inc
+++ /dev/null
@@ -1,1242 +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 : helge.delfs@oracle.com
-'*
-'* short description :  Testcases for the Objectbars.
-'*
-'\******************************************************************
-
-sub w_010_
-
-    printLog Chr(13) + "--------- Objectbars (w_010_.inc) ----------"
-    gApplication = "WRITER"
-
-    '   ** Objectbar
-    Call tFormatting
-    Call tNumbering
-    Call tEnumerating
-    Call tIndentIncreaseDecrease
-
-    '   ** Objectbar Numbering / Aufzaehlung
-    Call tNumFormatting
-    Call tNumLevelUpDown
-    Call tNumSubpointsUpDown
-    Call tNumMoveUpMoveDown
-    Call tNumSubpointsMoveUpMoveDown
-    Call tNumUnnumberedEntry
-    Call tNumRestartNumbering
-    Call tNumNumberingOff
-    Call tNumNumberingEnumerating
-    Call tUpFormatting
-    Call tUpLevelUpDown
-    Call tUpSubpointsUpDown
-    Call tUpMoveUpMoveDown
-    Call tUpSubpointsMoveUpMoveDown
-    Call tUpUnnumberedEntry
-    Call tUpRestartNumbering
-    Call tUpNumberingOff
-    Call tUpNumberingEnumerating
-
-    'Writer Web
-    gApplication = "HTML"
-    Call tHtmlDocFormatting
-    gApplication = "MASTERDOCUMENT"
-    Call tMasterDocFormatting
-    gApplication = "WRITER"
-    
-end sub
-
-'-----------------------------------------------------------
-
-testcase tFormatting
-
-    GLOBAL_USE_NEW_SLEEP = TRUE
-
-    printlog "- Objectbar ( normal ) : Formatting"
-    Call hNewDocument
-    printlog " Open new document"
-    Call wTypeKeys ("Formatting <Shift Home>")
-    Kontext "TextObjectbar"
-    if Not TextObjectbar.Exists then Call hToolbarSelect ( "FORMATTING", true )
-
-    printlog "  - Style"
-    try
-        Vorlage.Select 1
-    catch
-        Warnlog "Style could not be changed in TextObjectbar"
-    endcatch
-    printlog " Choose first 'style' in object bar"
-    Sleep 5
-    printlog "  - Font"
-    printlog " Select 5th 'Font' in object bar"
-    try
-        Schriftart.Select 5
-    catch
-        Warnlog "Unable to select font in object bar"
-    endcatch
-    Schriftart.TypeKeys "<Return>"
-    Sleep 1
-    printlog "  - Font Size"
-    printlog " Select 10th 'Font Size' in object bar"
-    try
-        Schriftgroesse.Select 10
-        Schriftgroesse.TypeKeys "<Return>"
-    catch
-        Warnlog "Uanble to change font size in toolbar"
-    endcatch
-    Sleep 1
-    printlog "  - Bold"
-    printlog " Select 'Bold' in object bar"
-    Fett.Click
-    Sleep 1
-    printlog "  - Italic"
-    printlog " Select 'Italic' in object bar"
-    Kursiv.Click
-    Sleep 1
-    printlog "  - Underline"
-    printlog " Select 'Underline' in object bar"
-    Unterstrichen.Click
-    Sleep 1
-    printlog "  - Align Left"
-    printlog " Select 'Align Left' in object bar"
-    Linksbuendig.Click
-    Sleep 1
-    printlog "  - Align Right"
-    printlog " Select 'Align Right' in object bar"
-    Rechtsbuendig.Click
-    Sleep 1
-    printlog "  - Centered"
-    printlog " Select 'Centered' in object bar"
-    Zentriert.Click
-    Sleep 1
-    if gApplication <> "HTML" then
-        printlog "  - Justify"
-        printlog " Select 'Justify' in object bar (not in HTML)"
-        Blocksatz.Click
-        Sleep 1
-    end if
-    printlog "  - Font color"
-    printlog " Select 'Font color' in object bar"
-    Schriftfarbe.Click
-    Sleep 1
-    printlog "  - Highlighting"
-    printlog " Select 'Highlighting' in object bar"
-    Zeichenhintergrund.Click
-    Sleep 1
-    Call hCloseDocument
-    printlog " Close active document"
-
-    GLOBAL_USE_NEW_SLEEP = FALSE
-    
-endcase
-
-'-----------------------------------------------------------
-
-testcase tNumbering
-    printlog "- Objectbar ( normal ) : Insert Numbering"
-    Call hNewDocument
-    printlog " Open new document"
-    Kontext "TextObjectbar"
-    if Not TextObjectbar.Exists then Call hToolbarSelect ( "FORMATTING", true )
-    printlog " Select 'Numbering' in object bar"
-    Numerierung.Click
-    Call wTypeKeys ("Numbering <Return>", 2)
-    printlog " Enter word 'Numbering' and '<Return>' two times"
-    Call hCloseDocument
-    printlog " Close active document"
-endcase
-
-'-----------------------------------------------------------
-
-testcase tEnumerating
-    printlog "- Objectbar ( normal ) : Insert Bullets"
-    Call hNewDocument
-    printlog " Open new document"
-    Kontext "TextObjectbar"
-    if Not TextObjectbar.Exists then Call hToolbarSelect ( "FORMATTING", true )
-    printlog " In object bar click 'Bullets'"
-    BulletsOnOff.Click
-    Call wTypeKeys ("Bullets <Return>", 2)
-    printlog " Enter word 'Bullets' and '<Return>' two times"
-    Call hCloseDocument
-    printlog " Close active document"
-endcase
-
-'-----------------------------------------------------------
-
-testcase tIndentIncreaseDecrease
-    dim i as Integer
-
-    printlog "- Objectbar ( normal ) : Increase Indent with numbering"
-    Call hNewDocument
-    printlog " Open new document"
-    Kontext "TextObjectbar"
-    if Not TextObjectbar.Exists then Call hToolbarSelect ( "FORMATTING", true )
-    printlog " Click 'Numbering' in object bar"
-    Numerierung.Click
-    Sleep 1
-    try
-        EinzugErhoehen.Click
-        printlog " Select 'Increase Indent' in object bar (if not possible switch toolbar)"
-    catch
-        Warnlog "Unable to select function in Toolbar"
-        Call hCloseDocument
-        goto endsub
-    endcatch
-
-    Sleep 1
-    for i=1 to 7
-        if EinzugErhoehen.IsEnabled then
-            printlog " Select 'Increase Indent' 7 times"
-            EinzugErhoehen.Click
-        else
-            if i = 1 then Warnlog "Increase Indent is disabled !"
-        end if
-        wait 500
-    next i
-
-    printlog "- Objectbar ( normal ) : Decrease Indent with numbering"
-    for i=1 to 8
-        printlog " Select 'Decrease Indent' 8 times"
-        if EinzugVermindern.IsEnabled then
-            EinzugVermindern.Click
-        else
-            if i = 1 then Warnlog "Decrease Indent is disabled !"
-        end if
-        wait 500
-    next i
-    printlog " Enter '<Return>' 2 times"
-    Call wTypeKeys ("<Return>", 2)
-    Sleep 1
-
-    printlog "- Objectbar ( normal ) : Increase Indent with Bullets"
-    Kontext "TextObjectbar"
-    if Not TextObjectbar.Exists then Call hToolbarSelect ( "FORMATTING", true )
-    printlog " Select 'Bullets' in object bar"
-    BulletsOnOff.Click
-    Sleep 1
-    for i=1 to 8
-        printlog " Select 'Increase Indent' 8 times"
-        if EinzugErhoehen.IsEnabled then
-            EinzugErhoehen.Click
-        else
-            if i = 1 then Warnlog "Increase Indent is disabled !"
-        end if
-        wait 500
-    next i
-
-    printlog "- Objectbar ( normal ) : Decrease Indent with Bullets"
-    for i=1 to 8
-        printlog " Select 'Decrease Indent' 8 times"
-        if EinzugVermindern.IsEnabled then
-            EinzugVermindern.Click
-        else
-            if i = 1 then Warnlog "Decrease Indent is disabled !"
-        end if
-        wait 500
-    next i
-
-    Call wTypeKeys ("<Return>", 2)
-    printlog " Enter '<Return>' 2 times"
-    Call hCloseDocument
-    printlog " Close active document"
-endcase
-
-'-----------------------------------------------------------
-
-testcase tNumFormatting
-    printlog "- Objectbar Numbering : Numbering => Style, Font and Size"
-    Call hNewDocument
-    printlog " Open new document"
-    Kontext "TextObjectbar"
-    if Not TextObjectbar.Exists then Call hToolbarSelect ( "FORMATTING", true )
-    printlog " Select 'Numbering' in object bar"
-    Numerierung.Click
-    Sleep 1
-    Call wTypeKeys ("Objectbar Numbering : Numbering => Style, Font and Size <Shift Home>")
-    printlog " Enter some text in document and select it"
-    Kontext "TextObjectbar"
-    printlog "  - Style"
-    printlog " Change 'Style' in object bar'"
-    try
-        Vorlage.Select 1
-    catch
-        Warnlog "Unable to select function in Toolbar"
-        Call hCloseDocument
-        goto endsub
-    endcatch
-    Sleep 1
-    printlog "  - Font"
-    printlog " Change 'Font Style' in object bar'"
-    try
-        Schriftart.Select 10
-        Schriftart.TypeKeys "<Return>"
-    catch
-        Warnlog "Unable to select 'Font Style' in object bar"
-    endcatch
-    Sleep 1
-    printlog "  - Font Size"
-    printlog " Change 'Font Size' in object bar'"
-    try
-        Schriftgroesse.Select 10
-        Schriftgroesse.TypeKeys "<Return>"
-    catch
-        Warnlog "Unable to select 'Font Sitze' in object bar"
-    endcatch
-    Sleep 1
-    printlog " Enter '<Return>'"
-    Call wTypeKeys ("<Return>")
-
-    Call hCloseDocument
-    printlog " Close active document"
-endcase
-
-'-----------------------------------------------------------
-
-testcase tNumLevelUpDown
-    dim i as Integer
-
-    printlog "- Objectbar Numbering : Numbering Level-Up and Down"
-    Call hNewDocument
-    printlog " Open new document"
-    Kontext "TextObjectbar"
-    if Not TextObjectbar.Exists then Call hToolbarSelect ( "FORMATTING", true )
-    printlog " Select 'Numbering' in object bar"
-    Numerierung.Click
-    Sleep 1
-
-    Kontext "NumObjectbar"
-    if Not NumObjectbar.Exists then Call hToolbarSelect("BULLETSANDNUMBERING", true)
-    printlog "   - 11 times level down"
-    Kontext "NumObjectbar"
-    printlog " Select 11 times 'Level down' in object bar"
-    try
-        Hinunterstufen.Click
-    catch
-        Warnlog "Unable to select function in Toolbar"
-        Call hCloseDocument
-        goto endsub
-    endcatch
-    sleep (2)
-    for i=1 to 9
-        if Hinunterstufen.IsEnabled = True then
-            Hinunterstufen.Click
-        else
-            if i = 1 then Warnlog "Level down is disabled!"
-        end if
-        sleep (2)
-    next i
-
-    printlog "   - 11 times level up"
-    printlog " Select 11 times 'Level up' in object bar"
-    for i=1 to 11
-        if Hochstufen.IsEnabled then
-            Hochstufen.Click
-        else
-            if i = 1 then Warnlog "Level up is disabled!"
-        end if
-        sleep (2)
-    next i
-
-    Call hCloseDocument
-    printlog " Close active document"
-endcase
-
-'-----------------------------------------------------------
-
-testcase tNumSubpointsUpDown
-    dim i as Integer
-
-    printlog "- Objectbar Numbering : Numbering with subpoints up and down"
-    Call hNewDocument
-    printlog " Open new document"
-    Kontext "TextObjectbar"
-    if Not TextObjectbar.Exists then Call hToolbarSelect ( "FORMATTING", true )
-    Numerierung.Click
-    printlog " Click 'Numbering' in Object bar"
-    Call wTypeKeys ("Numbering <Return><Tab>", 2)
-    Call wTypeKeys ("<Tab>Numbering<Up><Up><Up>")
-
-    Kontext "NumObjectbar"
-    if ( NumObjectbar.Exists( 1 ) ) then 
-        ' all good
-    else
-        Call hToolbarSelect("BULLETSANDNUMBERING", true)
-    endif
-
-    printlog "   - 6 times subpoints down"
-    printlog " click 6 times subpoints down in object bar"
-    if HinunterstufenMitUnterpunkten.IsEnabled then
-        HinunterstufenMitUnterpunkten.Click
-    else
-        if i = 1 then Warnlog "Move up with subpoints is disabled!"
-    end if
-    Sleep (1)
-
-    for i=1 to 5
-        if HinunterstufenMitUnterpunkten.IsEnabled then
-            HinunterstufenMitUnterpunkten.Click
-        else
-            if i = 1 then Warnlog "Move down with subpoints is disabled!"
-        end if
-        Sleep (1)
-    next i
-
-    if HinunterstufenMitUnterpunkten.IsEnabled then
-        Warnlog "Move down with subpoints is enabled though on Level 10"
-    end if
-    Sleep (1)
-
-    printlog "   - 6 times subpoints up"
-    printlog " click 6 times subpoints up in object bar"
-    for i=1 to 6
-        if HochstufenMitUnterpunkten.IsEnabled then
-            HochstufenMitUnterpunkten.Click
-        else
-            if i = 1 then Warnlog "Move up with subpoints is disabled!"
-        end if
-        Sleep (1)
-    next i
-
-    if HochstufenMitUnterpunkten.IsEnabled then
-        Warnlog "Move up with subpoints is enabled!"
-    end if
-
-    Call hCloseDocument
-    printlog " Close active document"
-endcase
-
-'-----------------------------------------------------------
-
-testcase tNumMoveUpMoveDown
-    dim i as Integer
-
-    printlog "- Objectbar Numbering : Move Numbering up and down"
-    Call hNewDocument
-    printlog " Open new document"
-    Kontext "TextObjectbar"
-    if Not TextObjectbar.Exists then Call hToolbarSelect ( "FORMATTING", true )
-    Numerierung.Click
-    printlog " Click 'Numbering' in object bar"
-    Call wTypeKeys ("Numbering up <Return><Tab>", 3)
-    Call wTypeKeys ("<Tab>Hallo<Return>")
-    Call wTypeKeys ("<Shift Tab>", 5)
-    Call wTypeKeys ("Numbering down <Up><Up>")
-    Sleep 1
-
-    printlog "   - 3 times move up"
-    printlog " click 3 times move up in object bar"
-    Kontext "NumObjectbar"
-    if Not NumObjectbar.Exists then Call hToolbarSelect("BULLETSANDNUMBERING", true)
-    try
-        Hochschieben.Click
-    catch
-        Warnlog "Unable to select function in Toolbar"
-        Call hCloseDocument
-        goto endsub
-    endcatch
-    Hochschieben.Click
-
-    printlog "   - 4 times move down"
-    printlog " click 4 times move down in object bar"
-    for i=1 to 4
-        Hinunterschieben.Click
-        Sleep 1
-    next i
-
-    Call hCloseDocument
-    printlog " Close active document"
-endcase
-
-'-----------------------------------------------------------
-
-testcase tNumSubpointsMoveUpMoveDown
-    dim i as Integer
-
-    printlog "- Objectbar Numbering : Move Numbering with subpoints up and down"
-    Call hNewDocument
-    printlog " Open new document"
-    Kontext "TextObjectbar"
-    if Not TextObjectbar.Exists then Call hToolbarSelect ( "FORMATTING", true )
-    Numerierung.Click
-    printlog " Click 'Numbering' in object bar"
-    Call wTypeKeys ("hallo <Return><Tab>", 3)
-    Call wTypeKeys ("<Tab>Hallo<Return>")
-    Call wTypeKeys ("<Shift Tab>", 5)
-    Call wTypeKeys ("Hallo <Up><Up>")
-    Sleep 1
-
-    printlog "   - move up 3 times"
-    printlog " click 3 times move up in object bar"
-    Kontext "NumObjectbar"
-    if Not NumObjectbar.Exists then Call hToolbarSelect("BULLETSANDNUMBERING", true)
-    try
-        HochschiebenMitUnterpunkten.Click
-    catch
-        Warnlog "Unable to select function in Toolbar"
-        Call hCloseDocument
-        goto endsub
-    endcatch
-    HochschiebenMitUnterpunkten.Click
-
-    printlog "   - move down 3 times"
-    if Val(mid$(gMinor, 2, Len(gMinor))) >= 139 and Val(mid$(gMinor, 2, Len(gMinor))) <= 140 then
-        QAErrorlog "Loop when moving numbered list up and down with subpoints"
-    else
-        printlog " click 3 times move down in object bar"
-        for i=1 to 3
-            HinunterschiebenMitUnterpunkten.Click
-            Sleep 1
-        next i
-    end if
-
-    Call hCloseDocument
-    printlog " Close active document"
-endcase
-
-'-----------------------------------------------------------
-
-testcase tNumUnnumberedEntry
-    printlog "- Objectbar Numbering: Paragraph without Numbering"
-
-    Call hNewDocument
-    printlog " Open new document"
-    Kontext "TextObjectbar"
-    if Not TextObjectbar.Exists then Call hToolbarSelect ( "FORMATTING", true )
-    Numerierung.Click
-    printlog " Click 'Numbering' in object bar"
-    Call wTypeKeys ("Paragraph without numbering")
-    Kontext "NumObjectbar"
-    if Not NumObjectbar.Exists then Call hToolbarSelect("BULLETSANDNUMBERING", true)
-    try
-        printlog " Click 'Insert Unnumbered Entry'"
-        AbsatzOhne.Click
-    catch
-        Warnlog "Unable to select function in Toolbar"
-    endcatch
-
-    Call hCloseDocument
-    printlog " Close active document"
-endcase
-
-'-----------------------------------------------------------
-
-testcase tNumRestartNumbering
-    printlog "- Objectbar Numbering: Restart numbering"
-    Call hNewDocument
-    printlog " Open new document"
-    Kontext "TextObjectbar"
-    if Not TextObjectbar.Exists then Call hToolbarSelect ( "FORMATTING", true )
-    printlog " Click 'Numbering' in object bar"
-    Numerierung.Click
-    Call wTypeKeys ("Restart numbering<Return>", 3)
-    printlog " Enter Text and hit <Return> 3 times"
-    Kontext "NumObjectbar"
-    if Not NumObjectbar.Exists then Call hToolbarSelect("BULLETSANDNUMBERING", true)
-    try
-        printlog " Click 'Restart Numbering' in object bar"
-        NeuStarten.Click
-    catch
-        Warnlog "Unable to select function in Toolbar"
-    endcatch
-
-    Call wTypeKeys ("Restart Numbering<Return>", 3)
-    Call hCloseDocument
-    printlog " Close active document"
-endcase
-
-'-----------------------------------------------------------
-
-testcase tNumNumberingOff
-    printlog "- Objectbar Numbering: Numbering off"
-    Call hNewDocument
-    printlog " Open new document"
-    Kontext "TextObjectbar"
-    if Not TextObjectbar.Exists then Call hToolbarSelect ( "FORMATTING", true )
-    printlog " Click 'Numbering' in object bar"
-    Numerierung.Click
-    Call wTypeKeys ("Numbering Off<Return>", 3)
-    printlog " Enter Text and hit <Return> 3 times"
-    Kontext "NumObjectbar"
-    if Not NumObjectbar.Exists then Call hToolbarSelect("BULLETSANDNUMBERING", true)
-    try
-        printlog " Click 'Numbering off' in objectbar"
-        Ausschalten.Click
-    catch
-        Warnlog "Unable to select function in Toolbar"
-    endcatch
-
-    Call wTypeKeys ("Numbering Off<Return>", 3)
-    printlog " Enter Text and hit <Return> 3 times"
-    Call hCloseDocument
-    printlog " Close active document"
-endcase
-
-'-----------------------------------------------------------
-
-testcase tNumNumberingEnumerating
-    printlog "- Objectbar Numbering: Numbering within a Numbering"
-    Call hNewDocument
-    printlog " Open new document"
-    Kontext "TextObjectbar"
-    if Not TextObjectbar.Exists then Call hToolbarSelect ( "FORMATTING", true )
-    printlog " Click 'Numbering' in object bar"
-    Numerierung.Click
-    Kontext
-    try
-        Active.Setpage TabBullet
-        Kontext "TabBullet"
-        Warnlog "For some unknown reason the Numbering/Bullets dialog has been opened!"
-        TabBullet.Cancel
-    catch
-    endcatch
-    Call wTypeKeys ("Numbering within a Numbering<Return>")
-    printlog " Enter text and hit <Return>"
-
-    Kontext "NumObjectbar"
-    if Not NumObjectbar.Exists then Call hToolbarSelect("BULLETSANDNUMBERING", true)
-    if NumObjectBar.IsDocked then NumObjectbar.Undock
-    try
-        printlog " Click 'Edit Numbering' in object bar"
-        NumerierungAufzaehlung.Click
-        wait 500
-    catch
-        Kontext
-        try
-            Active.Setpage TabBullet
-            Kontext "TabBullet"
-            Warnlog "For some unknown reason the Numbering/Bullets dialog is already opened!"
-        catch
-            Warnlog "Unable to select function in Toolbar"
-            Call hCloseDocument
-            goto endsub
-        endcatch
-    endcatch
-
-    Kontext
-    printlog " Step through all tabpages in 'Numbering/Bullets' dialog"
-    Active.SetPage TabBullet
-    Kontext "TabBullet"
-    Call DialogTest ( TabBullet )
-    Sleep 1
-
-    Kontext
-    Active.SetPage TabNumerierungsart
-    Kontext "TabNumerierungsart"
-    Call DialogTest ( TabNumerierungsart )
-    Sleep 1
-
-    Kontext
-    Active.SetPage TabNumerierung
-    Kontext "TabNumerierung"
-    Call DialogTest ( TabNumerierung )
-    Sleep 1
-
-    Kontext
-    Active.SetPage TabGrafiken
-    Kontext "TabGrafiken"
-    Call DialogTest ( TabGrafiken )
-    Sleep 1
-
-    Kontext
-    Active.SetPage TabPositionNumerierung
-    Kontext "TabPositionNumerierung"
-    Call DialogTest ( TabPositionNumerierung )
-    Sleep 1
-
-    Kontext
-    Active.SetPage TabOptionenNumerierung
-    Kontext "TabOptionenNumerierung"
-    Call DialogTest ( TabOptionenNumerierung )
-    Sleep 1
-    printlog " Close 'Numbering/Bullets' dialog"
-    TabOptionenNumerierung.Cancel
-    wait 500
-    Call hCloseDocument
-    printlog " Close active document"
-endcase
-
-'-----------------------------------------------------------
-
-testcase tUpFormatting
-    printlog "- Objectbar Numbering : Bullets => Style, Font and -Size"
-    Call hNewDocument
-    printlog " Open new document"
-    Kontext "TextObjectbar"
-    if Not TextObjectbar.Exists then Call hToolbarSelect ( "FORMATTING", true )
-    printlog " Click 'Bullets on/off' in object bar"
-    BulletsOnOff.Click
-    Sleep 1
-    printlog " Enter some text and select it"
-    Call wTypeKeys ("Bullets => Style, Font and -Size <Shift Home>")
-    Kontext "TextObjectbar"
-    printlog "  - Style"
-    try
-        Vorlage.Select 1
-    catch
-        Warnlog "Unable to select style in Toolbar"
-        Call hCloseDocument
-        goto endsub
-    endcatch
-    printlog " Select 1st entry in 'Apply Style'"
-    Sleep 5
-    printlog "  - Font"
-    printlog " Select 5th 'Font Name'"
-    try
-        Schriftart.Select 5
-    catch
-        Warnlog "Unable to select font in object bar"
-    endcatch
-    Schriftart.TypeKeys "<Return>"
-    Sleep 1
-    printlog "  - Font Size"
-    printlog " Select 10th 'Font Size'"
-    Schriftgroesse.Select 10
-    Schriftgroesse.TypeKeys "<Return>"
-    Sleep 1
-    printlog " Hit <Return> in document"
-    Call wTypeKeys ("<Return>")
-
-    Call hCloseDocument
-    printlog " Close active document"
-endcase
-
-'-----------------------------------------------------------
-
-testcase tUpLevelUpDown
-    dim i as Integer
-
-    printlog "- Objectbar Numbering : Bullets level up and down"
-    Call hNewDocument
-    printlog " Open new document"
-    Kontext "TextObjectbar"
-    if Not TextObjectbar.Exists then Call hToolbarSelect ( "FORMATTING", true )
-    printlog " Click 'Bullets on/off' in object bar"
-    BulletsOnOff.Click
-    Sleep 1
-    Kontext "NumObjectbar"
-    if Not NumObjectbar.Exists then Call hToolbarSelect("BULLETSANDNUMBERING", true)
-
-    printlog "   - 11 times level down"
-    try
-        Hinunterstufen.Click
-    catch
-        Warnlog "Unable to select function in Toolbar"
-        Call hCloseDocument
-        goto endsub
-    endcatch
-    sleep (2)
-    for i=1 to 9
-        printlog " Click 'Down One Level' in object bar 11 times"
-        if Hinunterstufen.IsEnabled then
-            Hinunterstufen.Click
-        else
-            if i = 1 then Warnlog "Level down is disabled !"
-        end if
-        sleep (2)
-    next i
-
-    printlog "   - 11 times level up"
-    printlog " Click 'Up One Level' in object bar 11 times"
-    for i=1 to 11
-        if Hochstufen.IsEnabled then
-            Hochstufen.Click
-        else
-            if i = 1 then Warnlog "Level up is disabled !"
-        end if
-        sleep (2)
-    next i
-
-    Call hCloseDocument
-    printlog " Close active document"
-endcase
-
-'-----------------------------------------------------------
-
-testcase tUpSubpointsUpDown
-    dim i as Integer
-
-    printlog "- Objectbar Numbering : Bullets with Subpoints up and down"
-    Call hNewDocument
-    printlog " Open new document"
-    Kontext "TextObjectbar"
-    if Not TextObjectbar.Exists then Call hToolbarSelect ( "FORMATTING", true )
-    printlog " Click 'Bullets on/off' in object bar"
-    BulletsOnOff.Click
-    printlog " Enter some text, hit 'Return' and 'Tab' 2 times"
-    Call wTypeKeys ("Bullets with Subpoints <Return><Tab>", 2)
-    printlog " Hit 'Tab', enter some text, and hit 'Cursor Up' 3 times"
-    Call wTypeKeys ("<Tab>up and down<Up><Up><Up>")
-    Sleep 1
-
-    printlog "   - down 6 times"
-    printlog " Click 'Move Down with Subpoints' 11 times "
-    Kontext "NumObjectbar"
-    if Not NumObjectbar.Exists then Call hToolbarSelect("BULLETSANDNUMBERING", true)
-    try
-        HinunterstufenMitUnterpunkten.Click
-    catch
-        Warnlog "Unable to select function in Toolbar"
-        Call hCloseDocument
-        goto endsub
-    endcatch
-    Sleep 1
-
-    for i=1 to 5
-        if HinunterstufenMitUnterpunkten.IsEnabled then
-            HinunterstufenMitUnterpunkten.Click
-        else
-            if i = 1 then Warnlog "Move with Subpoints down is disabled!"
-        end if
-        Sleep 1
-    next i
-    if HinunterstufenMitUnterpunkten.IsEnabled then
-        Warnlog "Move with Subpoints down is enabled though on level 10!"
-    end if
-
-    printlog "   - up 6 times"
-    for i=1 to 6
-        printlog " Click 'Move Up with Subpoints' 11 times "
-        if HochstufenMitUnterpunkten.IsEnabled then
-            HochstufenMitUnterpunkten.Click
-        else
-            if i = 1 then Warnlog "Move with Subpoints up is disabled!"
-        end if
-        Sleep 1
-    next i
-    if HochstufenMitUnterpunkten.IsEnabled then
-        Warnlog "Move with Subpoints up is enabled though on level 1!"
-    end if
-
-    Call hCloseDocument
-    printlog " Close active document"
-endcase
-
-'-----------------------------------------------------------
-
-testcase tUpMoveUpMoveDown
-    dim i as Integer
-
-    printlog "- Objectbar Numbering : move bullets up and down"
-    Call hNewDocument
-    printlog " Open new document"
-    Kontext "TextObjectbar"
-    if Not TextObjectbar.Exists then Call hToolbarSelect ( "FORMATTING", true )
-    BulletsOnOff.Click
-    printlog " Click 'Bullets on/off' in object bar"
-    Call wTypeKeys ("move bullets <Return><Tab>", 3)
-    printlog " enter some text hit <Return> and <Tab> 3 Times"
-    Call wTypeKeys ("<Tab>up<Return>")
-    printlog " Enter one word"
-    Call wTypeKeys ("<Shift Tab>", 5)
-    printlog " Hit <Tab> 5 Times"
-    Call wTypeKeys ("and down <Up><Up>")
-    printlog " enter text and hit <Cursor Up> 2 times"
-    Sleep 1
-    Kontext "NumObjectbar"
-    if Not NumObjectbar.Exists then Call hToolbarSelect("BULLETSANDNUMBERING", true)
-    printlog "   - 3 times up"
-    try
-        Hochschieben.Click
-    catch
-        Warnlog "Unable to select function in Toolbar"
-        Call hCloseDocument
-        goto endsub
-    endcatch
-
-    for i=1 to 2
-        printlog " Click 'Move Up' in object bar 3 times"
-        Hochschieben.Click
-        Sleep 1
-    next i
-
-    printlog "   - 4 times down"
-    for i=1 to 4
-        printlog " Click 'Move Down' in object bar 4 times"
-        Hochschieben.Click
-        Sleep 1
-    next i
-
-    Call hCloseDocument
-    printlog " Close active document"
-endcase
-
-'-----------------------------------------------------------
-
-testcase tUpSubpointsMoveUpMoveDown
-    dim i as Integer
-
-    printlog "- Objectbar Numbering : Move up and down bullets with subpoints"
-    Call hNewDocument
-    printlog " Open new document"
-    Kontext "TextObjectbar"
-    if Not TextObjectbar.Exists then Call hToolbarSelect ( "FORMATTING", true )
-    BulletsOnOff.Click
-    printlog " Click 'Bullets on/off' in object bar"
-    Call wTypeKeys ("move bullets <Return><Tab>", 3)
-    printlog " enter some text hit <Return> and <Tab> 3 Times"
-    Call wTypeKeys ("<Tab>up and down<Return>")
-    printlog " Enter one word"
-    Call wTypeKeys ("<Shift Tab>", 5)
-    printlog " Hit <Tab> 5 Times"
-    Call wTypeKeys ("with subpoints <Up><Up>")
-    printlog " enter text and hit <Cursor Up> 2 times"
-    Sleep 1
-    printlog "   - move up 3 times"
-    Kontext "NumObjectbar"
-    if Not NumObjectbar.Exists then Call hToolbarSelect("BULLETSANDNUMBERING", true)
-    try
-        HochschiebenMitUnterpunkten.Click
-    catch
-        Warnlog "Unable to select function in Toolbar"
-        Call hCloseDocument
-        goto endsub
-    endcatch
-
-    printlog " Click 'Move Up with subpoints' 3 times"
-    HochschiebenMitUnterpunkten.Click
-
-    if Val(mid$(gMinor, 2, Len(gMinor))) >= 139 and Val(mid$(gMinor, 2, Len(gMinor))) <= 140 then
-        QAErrorlog "Loop when moving numbered list up and down with subpoints"
-    else
-        printlog "   - move down 3 times"
-        for i=1 to 3
-            printlog " Click 'Move Down with subpoints' 3 times"
-            HinunterschiebenMitUnterpunkten.Click
-            Sleep 1
-        next i
-    end if
-
-    Call hCloseDocument
-    printlog " Close active document"
-endcase
-
-'-----------------------------------------------------------
-
-testcase tUpUnnumberedEntry
-    printlog "- Objectbar Numbering: Paragraph without Bullets"
-
-    Call hNewDocument
-    printlog " Open new document"
-    Kontext "TextObjectbar"
-    if Not TextObjectbar.Exists then Call hToolbarSelect ( "FORMATTING", true )
-    BulletsOnOff.Click
-    printlog " Click 'Bullets on/off' in object bar"
-    Call wTypeKeys ("Paragraph without Bullets")
-    Kontext "NumObjectbar"
-    if Not NumObjectbar.Exists then Call hToolbarSelect("BULLETSANDNUMBERING", true)
-
-    try
-        printlog " Click 'Insert Unnumbered Entry' in object bar"
-        AbsatzOhne.Click
-    catch
-        Warnlog "Unable to select function in Toolbar"
-    endcatch
-    Call hCloseDocument
-    printlog " Close active document"
-endcase
-
-'-----------------------------------------------------------
-
-testcase tUpRestartNumbering
-    printlog "- Objectbar Numbering: restart Numbering"
-    Call hNewDocument
-    printlog " Open new document"
-    Kontext "TextObjectbar"
-    if Not TextObjectbar.Exists then Call hToolbarSelect ( "FORMATTING", true )
-    BulletsOnOff.Click
-    printlog " Click 'Bullets on/off' in object bar"
-    Call wTypeKeys ("restart Numbering<Return>", 3)
-    printlog " enter Text and hit <Return> 3 Times"
-    Kontext "NumObjectbar"
-    if Not NumObjectbar.Exists then Call hToolbarSelect("BULLETSANDNUMBERING", true)
-    try
-        printlog " Click 'Restart Numbering' in object bar"
-        NeuStarten.Click
-    catch
-        Warnlog "Unable to select function in Toolbar"
-    endcatch
-
-    Call wTypeKeys ("restart Numbering<Return>", 3)
-    printlog " enter Text and hit <Return> 3 Times"
-    Call hCloseDocument
-    printlog " Close active document"
-endcase
-
-'-----------------------------------------------------------
-
-testcase tUpNumberingOff
-    printlog "- Objectbar Numbering: Numbering off"
-    Call hNewDocument
-    printlog " Open new document"
-    Kontext "TextObjectbar"
-    if Not TextObjectbar.Exists then Call hToolbarSelect ( "FORMATTING", true )
-    BulletsOnOff.Click
-    printlog " Click 'Bullets on/off' in object bar"
-    Call wTypeKeys ("Numbering off<Return>", 3)
-    printlog " enter Text and hit <Return> 3 Times"
-    Kontext "NumObjectbar"
-    if Not NumObjectbar.Exists then Call hToolbarSelect("BULLETSANDNUMBERING", true)
-    try
-        printlog " Click 'Numbering off' in object bar"
-        Ausschalten.Click
-    catch
-        Warnlog "Unable to select function in Toolbar"
-    endcatch
-
-    Call wTypeKeys ("Numbering off<Return>", 3)
-    printlog " enter Text and hit <Return> 3 Times"
-    Call hCloseDocument
-    printlog " Close active document"
-endcase
-
-'-----------------------------------------------------------
-
-testcase tUpNumberingEnumerating
-    printlog "- Objectbar Numbering: Numbering and Bullets within numbering"
-    Call hNewDocument
-    printlog " Open new document"
-    Kontext "TextObjectbar"
-    if Not TextObjectbar.Exists then Call hToolbarSelect ( "FORMATTING", true )
-    BulletsOnOff.Click
-    printlog " Click 'Numbering on/off' in object bar"
-    Call wTypeKeys ("Numbering and Bullets within numbering<Return>")
-    printlog " enter Text and hit <Return>"
-    Kontext "NumObjectbar"
-    if Not NumObjectbar.Exists then Call hToolbarSelect("BULLETSANDNUMBERING", true)
-    try
-        printlog " Click ' Edit Numbering' in object bar"
-        NumerierungAufzaehlung.Click
-    catch
-        Warnlog "Unable to select function in Toolbar"
-        Call hCloseDocument
-        goto endsub
-    endcatch
-
-    Sleep 1
-    printlog " In 'Numbering/Bullets' dialog step through all tabpages"
-    Kontext
-    Active.SetPage TabBullet
-    Kontext "TabBullet"
-    Call DialogTest ( TabBullet )
-
-    Kontext
-    Active.SetPage TabNumerierungsart
-    Kontext "TabNumerierungsart"
-    Call DialogTest ( TabNumerierungsart )
-
-    Kontext
-    Active.SetPage TabNumerierung
-    Kontext "TabNumerierung"
-    Call DialogTest ( TabNumerierung )
-
-    Kontext
-    Active.SetPage TabGrafiken
-    Kontext "TabGrafiken"
-    Call DialogTest ( TabGrafiken )
-
-    Kontext
-    Active.SetPage TabPositionNumerierung
-    Kontext "TabPositionNumerierung"
-    Call DialogTest ( TabPositionNumerierung )
-
-    Kontext
-    Active.SetPage TabOptionenNumerierung
-    Kontext "TabOptionenNumerierung"
-    Call DialogTest ( TabOptionenNumerierung )
-
-    printlog " Close 'Numbering/Bullets' dialog"
-    TabOptionenNumerierung.Cancel
-    Call hCloseDocument
-    printlog " Close active document"
-endcase
-
-'-----------------------------------------------------------
-
-testcase tHtmlDocFormatting
-    printlog "- Objectbar ( normal ) : Formatting"
-    gApplication = "HTML"
-
-    printlog " Open new document"
-    Call hNewDocument
-
-    Kontext "NavigatorWriter"
-    if NavigatorWriter.Exists then ViewNavigator
-
-    Call wTypeKeys ("Formatting <Shift Home>")
-    Kontext "TextObjectbar"
-    if Not TextObjectbar.Exists then Call hToolbarSelect ( "FORMATTING", true )
-
-    printlog "  - Style"
-    try
-        Vorlage.Select 1
-    catch
-        Warnlog "Style could not be changed in TextObjectbar"
-    endcatch
-    printlog " Choose first 'style' in object bar"
-    Sleep 5
-    printlog "  - Font"
-    printlog " Select 5th 'Font' in object bar"
-    try
-        Schriftart.Select 5
-    catch
-        Warnlog "Unable to select font in object bar"
-    endcatch
-    Schriftart.TypeKeys "<Return>"
-    Sleep 1
-    printlog "  - Font Size"
-    printlog " Select 10th 'Font Size' in object bar"
-    try
-        Schriftgroesse.Select 10
-        Schriftgroesse.TypeKeys "<Return>"
-    catch
-        Warnlog "Uanble to change font size in toolbar"
-    endcatch
-    Sleep 1
-    printlog "  - Bold"
-    printlog " Select 'Bold' in object bar"
-    Fett.Click
-    Sleep 1
-    printlog "  - Italic"
-    printlog " Select 'Italic' in object bar"
-    Kursiv.Click
-    Sleep 1
-    printlog "  - Underline"
-    printlog " Select 'Underline' in object bar"
-    Unterstrichen.Click
-    Sleep 1
-    printlog "  - Align Left"
-    printlog " Select 'Align Left' in object bar"
-    Linksbuendig.Click
-    Sleep 1
-    printlog "  - Align Right"
-    printlog " Select 'Align Right' in object bar"
-    Rechtsbuendig.Click
-    Sleep 1
-    printlog "  - Centered"
-    printlog " Select 'Centered' in object bar"
-    Zentriert.Click
-    Sleep 1
-    printlog "  - Font color"
-    printlog " Select 'Font color' in object bar"
-    Schriftfarbe.Click
-    Sleep 1
-    printlog "  - Highlighting"
-    printlog " Select 'Highlighting' in object bar"
-    Zeichenhintergrund.Click
-    Sleep 1
-    printlog " Close active document"
-    Call hCloseDocument
-    gApplication = "WRITER"
-endcase
-
-'-----------------------------------------------------------
-
-testcase tMasterDocFormatting
-    printlog "- Objectbar ( normal ) : Formatting"
-    gApplication = "MASTERDOCUMENT"
-
-    printlog " Open new document"
-    Call hNewDocument
-
-    Kontext "NavigatorGlobalDoc"
-    if NavigatorGlobalDoc.Exists then ViewNavigator
-
-
-    Call wTypeKeys ("Formatting <Shift Home>")
-    Kontext "TextObjectbar"
-    if Not TextObjectbar.Exists then Call hToolbarSelect ( "FORMATTING", true )
-
-    printlog "  - Style"
-    try
-        Vorlage.Select 1
-    catch
-        Warnlog "Style could not be changed in TextObjectbar"
-    endcatch
-    printlog " Choose first 'style' in object bar"
-    Sleep 5
-    printlog "  - Font"
-    printlog " Select 5th 'Font' in object bar"
-    try
-        Schriftart.Select 5
-    catch
-        Warnlog "Unable to select font in object bar"
-    endcatch
-    Schriftart.TypeKeys "<Return>"
-    Sleep 1
-    printlog "  - Font Size"
-    printlog " Select 10th 'Font Size' in object bar"
-    try
-        Schriftgroesse.Select 10
-        Schriftgroesse.TypeKeys "<Return>"
-    catch
-        Warnlog "Uanble to change font size in toolbar"
-    endcatch
-    Sleep 1
-    printlog "  - Bold"
-    printlog " Select 'Bold' in object bar"
-    Fett.Click
-    Sleep 1
-    printlog "  - Italic"
-    printlog " Select 'Italic' in object bar"
-    Kursiv.Click
-    Sleep 1
-    printlog "  - Underline"
-    printlog " Select 'Underline' in object bar"
-    Unterstrichen.Click
-    Sleep 1
-    printlog "  - Align Left"
-    printlog " Select 'Align Left' in object bar"
-    Linksbuendig.Click
-    Sleep 1
-    printlog "  - Align Right"
-    printlog " Select 'Align Right' in object bar"
-    Rechtsbuendig.Click
-    Sleep 1
-    printlog "  - Centered"
-    printlog " Select 'Centered' in object bar"
-    Zentriert.Click
-    Sleep 1
-    printlog "  - Justify"
-    printlog " Select 'Justify' in object bar (not in HTML)"
-    Blocksatz.Click
-    Sleep 1
-    printlog "  - Font color"
-    printlog " Select 'Font color' in object bar"
-    Schriftfarbe.Click
-    Sleep 1
-    printlog "  - Highlighting"
-    printlog " Select 'Highlighting' in object bar"
-    Zeichenhintergrund.Click
-    Sleep 1
-    printlog " Close active document"
-    Call hCloseDocument
-    gApplication = "WRITER"
-endcase
-
-'-----------------------------------------------------------
diff --git a/testautomation/writer/required/includes/w_010_1.inc b/testautomation/writer/required/includes/w_010_1.inc
deleted file mode 100644
index 5b746eaf4ad2..000000000000
--- a/testautomation/writer/required/includes/w_010_1.inc
+++ /dev/null
@@ -1,878 +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 : helge.delfs@oracle.com
-'*
-'* short description :  Testcases for the Objectbars.
-'*
-'\******************************************************************
-
-sub w_010_1
-
-    printLog Chr(13) + "--------- Objectbars . Part two. (w_010_1.inc) ----------"
-    gApplication = "WRITER"
-
-    '   ** Objectbar Table
-    Call tInsertFormula
-    Call tMergeCells
-    Call tSplitCells
-    Call tOptimize
-    Call tInsertCellRow
-    Call tDeleteRow
-    Call tDeleteColumn
-
-    '   ** Graphics ( same as OLE-Objects and Frames )
-    Call tGraphicWrap
-    Call tGraphicAlign
-    Call tGraphicFlip
-    Call tGraphicArrange
-    Call tGraphicBorders
-    Call tGraphicProperties
-    Call tGraphicAnchor
-
-    '   ** Formula Bar
-    Call tFormulaCancel
-    Call tFormulaApply
-
-    'Writer Web
-    gApplication = "HTML"
-    Call tHtmlDocGraphicWrap
-    Call tHtmlDocGraphicAlign
-    Call tHtmlDocGraphicProperties
-    gApplication = "WRITER"
-
-end sub
-'-----------------------------------------------------------
-
-testcase tInsertFormula
-    printlog "- Table-Objectbar: Formula border in Writer"
-    printlog " Open new document"
-    Call hNewDocument
-    printlog " Insert a table"
-    Call hTabelleEinfuegen
-    printlog " Click 'Sum' in object bar"
-    Call hToolbarSelect ( "Table", true )
-    if TableObjectbar.IsVisible = true then
-        try
-            FormelEingeben.Click
-        catch
-            Warnlog "Unable to access 'Formula'-Button on toolbar!"
-            Call hCloseDocument
-            goto endsub
-        endcatch
-    else
-        Warnlog "TableObjectbar is not visible!"
-        Call hCloseDocument
-        goto endsub
-    end if
-
-    Sleep 1
-    Kontext "OL_SW_Rechenleiste"
-    if OL_SW_Rechenleiste.NotExists then
-        warnlog "Formula border doesn't come up"
-    else
-        printlog " Click 'Cancel' in object bar"
-        Verwerfen.Click
-    end if
-
-    printlog " Close active document"
-    Call hCloseDocument
-endcase
-
-'-----------------------------------------------------------
-
-testcase tMergeCells
-    printlog "- Table-Objectbar: Merge Cells"
-    printlog " Open new document"
-    Call hNewDocument
-    printlog " Insert a table"
-    Call hTabelleEinfuegen
-    printlog " Hit <Shift Right> 2 times"
-    Call wTypeKeys ("<Shift Right>", 2)
-    Sleep 2
-    printlog " Click 'Merge cells' in object bar"
-    Call hToolbarSelect ( "Table", true )
-    if TableObjectbar.IsVisible = true then
-        ZellenVerbinden.Click
-    else
-        Warnlog "TableObjectbar is not visible!"
-        Call hCloseDocument
-        goto endsub
-    end if
-
-    printlog " Close active document"
-    Call hCloseDocument
-endcase
-
-'-----------------------------------------------------------
-
-testcase tSplitCells
-    printlog "- Table-Objectbar: Split Cells"
-    printlog " Open new document"
-    Call hNewDocument
-    printlog " Insert a table"
-    Call hTabelleEinfuegen
-    Call hToolbarSelect ( "Table", true )
-    printlog " Click 'Split Cells' in object bar"
-    if TableObjectbar.IsVisible = true then
-        ZelleTeilen.Click
-    else
-        Warnlog "TableObjectbar is not visible!"
-        Call hCloseDocument
-        goto endsub
-    end if
-    printlog " Cancel upcoming dialog"
-    Kontext "ZellenTeilen"
-    ZellenTeilen.Cancel
-    printlog " Close active document"
-    Call hCloseDocument
-endcase
-
-'-----------------------------------------------------------
-
-testcase tOptimize
-    printlog "- Table-Objectbar: Optimize Table"
-    printlog " Open new document"
-    Call hNewDocument
-
-    printlog " Insert a table and select all in document"
-    Call hTabelleEinfuegen
-    Call wTypeKeys ("<Mod1 A>")
-    Call hToolbarSelect ( "Table", true )
-    wait 500
-    printlog " Tear Off toolbar 'Optimize'"
-    Kontext "TableObjectBar"
-    try
-        Optimieren.TearOff
-    catch
-        Warnlog "Unable to Tear Off Toolbox 'Optimize'"
-        Call hCloseDocument
-        goto endsub
-    endcatch
-    Call wTypeKeys ("<Mod1 a>")
-    Sleep 1
-
-    Kontext "OptimizeTablebar"
-    printlog " Click 'Space Columns Equally'"
-    SpaltenGleichmaessig.Click
-    printlog " Click 'Space Rows Equally'"
-    ZeilenGleichmaessig.Click
-    Sleep 2
-    printlog " Click 'Optimal Row Height'"
-    OptimaleZeilenhoehe.Click
-
-    Call wTypeKeys ("Optimize Table")
-    printlog " Enter some text"
-    Sleep 1
-    Kontext "OptimizeTablebar"
-    printlog " Click 'Optimal Column Width'"
-    OptimaleSpaltenbreite.Click
-    Sleep 1
-    printlog " Close toolbar 'Optimize'"
-    OptimizeTablebar.Close
-    printlog " Close active document"
-    Call hCloseDocument
-endcase
-
-'-----------------------------------------------------------
-
-testcase tInsertCellRow
-    printlog "- Table-Objectbar: Insert Cell"
-    printlog " Open new document"
-    Call hNewDocument
-    printlog " Insert Table"
-    Call hTabelleEinfuegen
-    Call hToolbarSelect ( "Table", true )
-    if TableObjectbar.IsVisible = true then
-        ZeileEinfuegen.Click
-    else
-        Warnlog "TableObjectbar is not visible!"
-        Call hCloseDocument
-        goto endsub
-    end if
-
-    printlog " Click 'Insert Column' in object bar"
-    Sleep 1
-    printlog "- Table-Objectbar: Insert Row"
-    printlog " Click 'Insert Row' in object bar"
-    SpalteEinfuegen.Click
-    printlog " Close active document"
-    Call hCloseDocument
-endcase
-
-'-----------------------------------------------------------
-
-testcase tDeleteRow
-    printlog "- Table-Objectbar: Delete Row"
-    printlog " Open new document"
-    Call hNewDocument
-    printlog " Insert a table"
-    Call hTabelleEinfuegen
-    Call hToolbarSelect ( "Table", true )
-    printlog " Click 'Delete Row'"
-    if TableObjectbar.IsVisible = true then
-        ZeileLoeschen.Click
-    else
-        Warnlog "TableObjectbar is not visible!"
-        Call hCloseDocument
-        goto endsub
-    end if
-
-    Sleep 1
-    printlog " Click 'Delete Row'"
-    ZeileLoeschen.Click
-    printlog " Close active document"
-    Call hCloseDocument
-endcase
-
-'-----------------------------------------------------------
-
-testcase tDeleteColumn
-    dim i as Integer
-    printlog "- Table-Objectbar: Delete Column"
-    printlog " Open new document"
-    Call hNewDocument
-    printlog " Insert a table"
-    Call hTabelleEinfuegen
-    printlog " Click 'Delete Column' 2 times"
-    for i=1 to 2
-        Call hToolbarSelect ( "Table", true )
-        if TableObjectbar.IsVisible = true then
-            SpalteLoeschen.Click
-        else
-            Warnlog "TableObjectbar is not visible!"
-            Call hCloseDocument
-            goto endsub
-        end if
-        Sleep 1
-    next i
-    printlog " Close active document"
-    Call hCloseDocument
-endcase
-
-'-----------------------------------------------------------
-
-testcase tGraphicWrap
-    printlog "- Grafik-(Rahmen)-Objectbar: Wrap"
-    printlog " Open new document"
-    Call hNewDocument
-    printlog " Insert graphic 'writer/input/grafik/jolink.jpg'"
-    Call hGrafikEinfuegen ( gTesttoolPath + "writer\required\input\graphics\jolink.jpg" )
-    Call hToolbarSelect("Frame", true)
-    try
-        printlog " Check 'Wrap Off' in object bar"
-        NoWrap.Click
-        Sleep 1
-    catch
-        Warnlog "'Wrap Off' in Objectbar couldn't be checked"
-    endcatch
-
-    if gApplication <> "HTML" then
-        try
-            printlog " Check 'Wrap through' in object bar"
-            Durchlauf.Click
-            Sleep 1
-        catch
-            Warnlog "'Wrap through' in Objectbar couldn't be checked"
-        endcatch
-
-        try
-            printlog " Check 'Wrap On' in object bar"
-            Wrap.Click
-            Sleep 1
-        catch
-            Warnlog "'Wrap on' in Objectbar couldn't be checked"
-        endcatch
-    else
-        Call hToolbarSelect("Picture", true)
-        try
-            printlog " Check 'Wrap Left' in object bar"
-            WrapLeft.Click
-            Sleep 1
-        catch
-            Warnlog "'Wrap Left' in Objectbar couldn't be checked"
-        endcatch
-
-        try
-            printlog " Check 'Wrap Right' in object bar"
-            WrapRight.Click
-            Sleep 1
-        catch
-            Warnlog "'Wrap Right' in Objectbar couldn't be checked"
-        endcatch
-    end if
-
-    printlog " Close active document"
-    Call hCloseDocument
-endcase
-
-'-----------------------------------------------------------
-
-testcase tGraphicAlign
-    printlog "- Graphic-(Frame)-Objectbar: Align"
-    printlog " Open new document"
-    Call hNewDocument
-    printlog " Insert graphic 'writer/input/grafik/jolink.jpg'"
-    Call hGrafikEinfuegen ( gTesttoolPath + "writer\required\input\graphics\jolink.jpg" )
-
-    Call hToolbarSelect("Frame", true)
-    try
-        printlog " Click 'Left' in object bar"
-        Links.Click
-        Sleep 1
-    catch
-        Warnlog "'Left' in Objectbar couldn't be checked"
-    endcatch
-
-    try
-        printlog " Click 'Right' in object bar"
-        Rechts.Click
-        Sleep 1
-    catch
-        Warnlog "'Right' in Objectbar couldn't be checked"
-    endcatch
-
-    ' Only Left and Right in WriterWeb
-    if gApplication = "HTML" then
-        printlog " Close active document"
-        Call hCloseDocument
-        goto endsub
-    end if
-
-    try
-        printlog " Click 'Centered' in object bar (Not WriterWeb)"
-        Zentriert.Click
-        Sleep 1
-    catch
-        Warnlog "'Centered' in Objectbar couldn't be checked"
-    endcatch
-
-    try
-        printlog " Click 'Center' in object bar (Not WriterWeb)"
-        Mitte.Click
-        Sleep 1
-    catch
-        Warnlog "'Center' in Objectbar couldn't be checked"
-    endcatch
-
-    try
-        printlog " Click 'Top' in object bar (Not WriterWeb)"
-        Oben.Click
-        Sleep 1
-    catch
-        Warnlog "'Top' in Objectbar couldn't be checked"
-    endcatch
-
-    try
-        printlog " Click 'Bottom' in object bar (Not WriterWeb)"
-        Unten.Click
-        Sleep 1
-    catch
-        Warnlog "'Bottom' auf Objectbar couldn't be checked"
-    endcatch
-
-    printlog " Close active document"
-    Call hCloseDocument
-endcase
-
-'-----------------------------------------------------------
-
-testcase tGraphicFlip
-    printlog "- Graphic-(Frame)-Objectbar: Flip"
-    if gApplication = "HTML" then
-        Printlog "Not in WriterWeb!"
-        goto endsub
-    end if
-
-    printlog " Open new document"
-    Call hNewDocument
-    printlog " Insert graphic 'writer/input/grafik/jolink.jpg'"
-    Call hGrafikEinfuegen ( gTesttoolPath + "writer\required\input\graphics\jolink.jpg" )
-
-    Call hToolbarSelect("Picture", true)
-    try
-        printlog " Click 'Flip Horizontal' in object bar"
-        HorizontalSpiegeln.Click
-        Sleep 1
-    catch
-        Warnlog "'Flip Horizontal' in Objectbar couldn't be checked"
-    endcatch
-
-    try
-        printlog " Click 'Flip Vertical' in object bar"
-        VertikalSpiegeln.Click
-        Sleep 1
-    catch
-        Warnlog "'Flip vertical' in Objectbar couldn't be checked"
-    endcatch
-
-    try
-        printlog " Click 'Flip Horizontal' in object bar"
-        HorizontalSpiegeln.Click
-        Sleep 1
-        printlog " Click 'Flip Vertical' in object bar"
-        VertikalSpiegeln.Click
-        Sleep 1
-    catch
-    endcatch
-
-    printlog " Close active document"
-    Call hCloseDocument
-endcase
-
-'-----------------------------------------------------------
-
-testcase tGraphicArrange
-    printlog "- Graphic-(Frame)-Objectbar: Arrange"
-    printlog " Open new document"
-    Call hNewDocument
-    printlog " Insert graphic 'writer/input/grafik/jolink.jpg'"
-    Call hGrafikEinfuegen ( gTesttoolPath + "writer\required\input\graphics\jolink.jpg" )
-
-    Call hToolbarSelect("Frame", true)
-    try
-        printlog " Click 'Send to back' in object bar"
-        GanzNachHinten.Click
-        Sleep 1
-    catch
-        Warnlog "'Send to back' in Objectbar couldn't be checked"
-    endcatch
-
-    try
-        printlog " Click 'Bring to front' in object bar"
-        GanzNachVorn.Click
-        Sleep 1
-    catch
-        Warnlog "'Bring to front' in Objectbar couldn't be checked"
-    endcatch
-
-    printlog " Close active document"
-    Call hCloseDocument
-endcase
-
-'-----------------------------------------------------------
-
-testcase tGraphicBorders
-    printlog "- Graphic-(Frame)-Objectbar: Border"
-    printlog " Open new document"
-    Call hNewDocument
-    printlog " Insert graphic 'writer/input/grafik/jolink.jpg'"
-    Call hGrafikEinfuegen ( gTesttoolPath + "writer\required\input\graphics\jolink.jpg" )
-    Call hToolbarSelect("Frame", true)
-    try
-        printlog " Tear off Toolbox Border"
-        Umrandung.TearOff
-        Sleep 1
-        Kontext "TB_Umrandung"
-        TB_Umrandung.Move ( 20, 20 )
-        printlog " Close toolbox"
-        TB_Umrandung.Close
-        Sleep 1
-    catch
-        Warnlog "Error in Toolbox Border"
-    endcatch
-
-    try
-        Kontext "FrameObjectbar"
-        printlog " Tear off toolbox 'Borderstyle'"
-        Linienstil.TearOff
-        Sleep 1
-        Kontext "TB_Umrandungsstil"
-        TB_Umrandungsstil.Move ( 20, 20 )
-        printlog " Close toolbox"
-        TB_Umrandungsstil.Close
-        Sleep 1
-    catch
-        Warnlog "Error in Toolbox Borderstyle"
-    endcatch
-
-    try
-        Kontext "FrameObjectbar"
-        printlog " Tear off Toolbox 'Color'"
-        LinienFarbe.TearOff
-        Sleep 1
-        Kontext "TB_Farbe"
-        TB_Farbe.Move ( 20, 20 )
-        TB_Farbe.Close
-        printlog " Close toolbox"
-        Sleep 1
-    catch
-        warnlog "Error in Toolbox Colour"
-    endcatch
-
-    printlog " Close active document"
-    Call hCloseDocument
-endcase
-
-'-----------------------------------------------------------
-
-testcase tGraphicProperties
-    printlog "- Graphic-(Frame)-Objectbar: Properties"
-    Dim j as integer
-
-    printlog " Open new document"
-    Call hNewDocument
-    printlog " Insert graphic 'writer/input/grafik/jolink.jpg'"
-    Call hGrafikEinfuegen ( gTesttoolPath + "writer\required\input\graphics\jolink.jpg" )
-    Call hToolbarSelect("Picture", true)
-    try
-        printlog " Click 'Graphic Properties' in object bar"
-        InsertGraphic.Click
-    catch
-        Warnlog "Error in Objectproperties in Objectbar"
-        printlog " Close active document"
-        Call hCloseDocument
-        goto endsub
-    endcatch
-
-    printlog " In 'Graphic' dialog step through all tabpages"
-    Kontext
-    active.SetPage TabType
-    Kontext "TabType"
-    Call DialogTest ( TabType )
-
-    Kontext
-    active.SetPage TabZusaetze
-    Kontext "TabZusaetze"
-    Call DialogTest ( TabZusaetze )
-
-    Kontext
-    active.SetPage TabUmlauf
-    Kontext "TabUmlauf"
-    Call DialogTest ( TabUmlauf )
-
-    Kontext
-    active.SetPage TabHyperlinkRahmen
-    Kontext "TabHyperlinkRahmen"
-    Call DialogTest ( TabHyperlinkRahmen )
-
-    Kontext
-    active.SetPage TabGrafik
-    Kontext "TabGrafik"
-    Call DialogTest ( TabGrafik )
-
-    Kontext
-    active.SetPage TabUmrandung
-    Kontext "TabUmrandung"
-    Call DialogTest ( TabUmrandung )
-
-    Kontext
-    active.SetPage TabMakro
-    ' if no JRE is installed a messagebox appears
-    Do
-        j = j + 1
-        Kontext "Active"
-        if Active.Exists then
-            if Active.GetRT = 304 then
-                if j = 1 then Warnlog Active.Gettext
-                Active.Ok
-            else
-                exit do
-            end if
-        else
-            exit do
-        end if
-    Loop
-    Kontext "TabMakro"
-    Call DialogTest ( TabMakro )
-
-    printlog " Close 'Graphic' dialog"
-    if gApplication <> "HTML" then
-        Kontext
-        active.SetPage TabHintergrund
-        Kontext "TabHintergrund"
-        Call DialogTest ( TabHintergrund )
-
-        Kontext
-        active.SetPage TabZuschneiden
-        Kontext "TabZuschneiden"
-        Call DialogTest ( TabZuschneiden )
-        TabZuschneiden.Cancel
-    else
-        TabMakro.Cancel
-    end if
-    printlog " Close active document"
-    Call hCloseDocument
-endcase
-
-'-----------------------------------------------------------
-
-testcase tGraphicAnchor
-
-    printlog "- Graphic-(Frame)-Objectbar: Anchor"
-    printlog " Open new document"
-    Call hNewDocument
-    printlog " Insert graphic 'writer/input/grafik/jolink.jpg'"
-    Call hGrafikEinfuegen ( gTesttoolPath + "writer\required\input\graphics\jolink.jpg" )
-
-    Call hToolbarSelect("Frame", true)
-    Sleep 2
-    printlog " Select Anchor 'to page'"
-    try
-        VerankerungWechseln.Click
-        printlog " Click 'Change Anchor' in object bar"
-    catch
-        Warnlog "Error on anchoring objects"
-        Call hCloseDocument
-        printlog " Close active document"
-        goto endsub
-    endcatch
-    Sleep 1
-    MenuSelect ( MenuGetItemID (1) )
-    Sleep 1
-    printlog " Select Anchor 'Paragraph'"
-    Kontext "FrameObjectbar"
-    VerankerungWechseln.Click
-    MenuSelect ( MenuGetItemID (2) )
-    Sleep 1
-    printlog " Select Anchor 'To Character'"
-    Kontext "FrameObjectbar"
-    VerankerungWechseln.Click
-    MenuSelect ( MenuGetItemID (3) )
-    Sleep 1
-    printlog " Select Anchor 'As Character'"
-    Kontext "FrameObjectbar"
-    VerankerungWechseln.Click
-    MenuSelect ( MenuGetItemID (4) )
-    Sleep 1
-
-    printlog " Close active document"
-    Call hCloseDocument
-endcase
-
-'-----------------------------------------------------------
-
-testcase tFormulaCancel
-    printlog "- Formula Writer: Cancel"
-    printlog " Open new document"
-    Call hNewDocument
-    printlog " Press <F2>"
-    Call wTypeKeys ("<F2>")
-
-    printlog " enter a formula"
-    Kontext "OL_SW_Rechenleiste"
-    Eingabefeld.TypeKeys "=summe(a+b)"
-    printlog " Click 'Cancel' in formula bar"
-    Verwerfen.Click
-    printlog " Close active document"
-    Call hCloseDocument
-endcase
-
-'-----------------------------------------------------------
-
-testcase tFormulaApply
-    printlog "- Formula Writer: Apply"
-    Call hNewDocument
-    printlog " Open new document"
-    Call hTabelleEinfuegen
-    printlog " Insert a table"
-    Call wTypeKeys ("12<Right>13<Down>")
-    printlog " Write in document 12<Cursor Right>13<Cursor Down>"
-    Call hToolbarSelect ( "Table", true )
-    printlog " Click 'Sum' in object bar"
-    if TableObjectbar.IsVisible = true then
-        FormelEingeben.Click
-    else
-        Warnlog "TableObjectbar is not visible!"
-        Call hCloseDocument
-        goto endsub
-    end if
-
-    Kontext "OL_SW_Rechenleiste"
-    Eingabefeld.TypeKeys "(" + Chr(60)+ "A1:B1"
-    Eingabefeld.TypeKeys Chr(62) + ")"
-    printlog " Enter as formula (A1:B1) and click 'Apply'"
-    Uebernehmen.Click
-    Sleep 2
-    printlog " Check result of formula"
-    Call wTypeKeys ("<Mod1 A>")
-    EditCopy
-    if GetClipboardText <> "25" then
-        warnlog "Not possible to calculate in tables anymore. Result isn't 25, is: " + GetClipboardText
-    end if
-    printlog " Close active document"
-    Call hCloseDocument
-endcase
-
-'-----------------------------------------------------------
-
-testcase tHtmlDocGraphicWrap
-    printlog "- Grafik-(Rahmen)-Objectbar: Wrap"
-    gApplication = "HTML"
-
-    printlog " Open new document"
-    Call hNewDocument
-
-    Call hGrafikEinfuegen ( gTesttoolPath + "writer\required\input\graphics\jolink.jpg" )
-    printlog " Insert graphic 'writer/input/grafik/jolink.jpg'"
-    Call hToolbarSelect("Frame", true)
-    try
-        printlog " Check 'Wrap Off' in object bar"
-        NoWrap.Click
-        Sleep 1
-    catch
-        Warnlog "'Wrap Off' in Objectbar couldn't be checked"
-    endcatch
-
-    Call hToolbarSelect("Picture", true)
-    try
-        WrapLeft.Click
-        printlog " Check 'Wrap Left' in object bar"
-        Sleep 1
-    catch
-        Warnlog "'Wrap Left' in Objectbar couldn't be checked"
-    endcatch
-
-    try
-        printlog " Check 'Wrap Right' in object bar"
-        WrapRight.Click
-        Sleep 1
-    catch
-        Warnlog "'Wrap Right' in Objectbar couldn't be checked"
-    endcatch
-
-    Call hCloseDocument
-    printlog " Close active document"
-    gApplication = "WRITER"
-endcase
-
-'-----------------------------------------------------------
-
-testcase tHtmlDocGraphicAlign
-    printlog "- Graphic-(Frame)-Objectbar: Align"
-    gApplication = "HTML"
-
-    printlog " Open new document"
-    Call hNewDocument
-    printlog " Insert graphic 'writer/input/grafik/jolink.jpg'"
-    Call hGrafikEinfuegen ( gTesttoolPath + "writer\required\input\graphics\jolink.jpg" )
-
-    Call hToolbarSelect("Frame", true)
-    try
-        Links.Click
-        printlog " Click 'Left' in object bar"
-        Sleep 1
-    catch
-        Warnlog "'Left' in Objectbar couldn't be checked"
-    endcatch
-
-    try
-        Rechts.Click
-        printlog " Click 'Right' in object bar"
-        Sleep 1
-    catch
-        Warnlog "'Right' in Objectbar couldn't be checked"
-    endcatch
-
-    ' Only Left and Right in WriterWeb
-    printlog " Close active document"
-    Call hCloseDocument
-    gApplication = "WRITER"
-endcase
-
-'-----------------------------------------------------------
-
-testcase tHtmlDocGraphicProperties
-    printlog "- Graphic-(Frame)-Objectbar: Properties"
-    Dim j as integer
-
-    gApplication = "HTML"
-    printlog " Open new document"
-    Call hNewDocument
-
-    printlog " Insert graphic 'writer/input/grafik/jolink.jpg'"
-    Call hGrafikEinfuegen ( gTesttoolPath + "writer\required\input\graphics\jolink.jpg" )
-    Call hToolbarSelect("Picture", true)
-    try
-        printlog " Click 'Graphic Properties' in object bar"
-        InsertGraphic.Click
-    catch
-        Warnlog "Error in Objectproperties in Objectbar"
-        printlog " Close active document"
-        Call hCloseDocument
-        goto endsub
-    endcatch
-
-    printlog " In 'Graphic' dialog step through all tabpages"
-    Kontext
-    active.SetPage TabType
-    Kontext "TabType"
-    Call DialogTest ( TabType )
-
-    Kontext
-    active.SetPage TabZusaetze
-    Kontext "TabZusaetze"
-    Call DialogTest ( TabZusaetze )
-
-    Kontext
-    active.SetPage TabUmlauf
-    Kontext "TabUmlauf"
-    Call DialogTest ( TabUmlauf )
-
-    Kontext
-    active.SetPage TabHyperlinkRahmen
-    Kontext "TabHyperlinkRahmen"
-    Call DialogTest ( TabHyperlinkRahmen )
-
-    Kontext
-    active.SetPage TabGrafik
-    Kontext "TabGrafik"
-    Call DialogTest ( TabGrafik )
-
-    Kontext
-    active.SetPage TabUmrandung
-    Kontext "TabUmrandung"
-    Call DialogTest ( TabUmrandung )
-
-    Kontext
-    active.SetPage TabMakro
-    ' if no JRE is installed a messagebox appears
-    Do
-        j = j + 1
-        Kontext "Active"
-        if Active.Exists then
-            if Active.GetRT = 304 then
-                if j = 1 then Warnlog Active.Gettext
-                Active.Ok
-            else
-                exit do
-            end if
-        else
-            exit do
-        end if
-    Loop
-    Kontext "TabMakro"
-    Call DialogTest ( TabMakro )
-    printlog " Close dialog"
-    TabMakro.Cancel
-
-    printlog " Close active document"
-    Call hCloseDocument
-    gApplication = "WRITER"
-endcase
-
-'-----------------------------------------------------------
diff --git a/testautomation/writer/required/includes/w_011_.inc b/testautomation/writer/required/includes/w_011_.inc
deleted file mode 100644
index 9cd7bbc9f393..000000000000
--- a/testautomation/writer/required/includes/w_011_.inc
+++ /dev/null
@@ -1,787 +0,0 @@
-'**************************************************************************
-' 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 : helge.delfs@oracle.com
-'*
-'* short description:  Testcases for the Toolbar.
-'*
-'\******************************************************************
-
-sub w_011_
-
-    printLog Chr(13) + "---------   Toolbar ( w_011_.inc )   ----------"
-    gApplication = "WRITER"
-    'Objektleiste Grafik
-    Call tGraphicFilters
-
-    'Objektleiste Zeichenobjekt
-    Call tZOEditPoints
-    Call tZOLine
-    Call tZOArea
-    Call tZORest
-    Call tZOText
-    Call tZOVerticalText
-
-end sub
-
-'-----------------------------------------------------------
-
-testcase tGraphicFilters
-    printlog "- Objectbar Graphic (Filters)"
-    if gApplication = "HTML" then
-        printlog "This test applies not to HTML-Document"
-        Printlog "Not in WriterWeb!"
-        goto endsub
-    end if
-
-    printlog "Open new document"
-    Call hNewDocument
-    printlog "Insert graphic '/writer/required/input/grafik/jolink.jpg'"
-    Call hGrafikEinfuegen ( gTesttoolPath + "writer\required\input\graphics\jolink.jpg" )
-
-    printlog "- Select all Filters"
-    Kontext "GraphicObjectbar"
-    printlog "In graphic toolbox taer off 'Filter' Toolbox"
-    if Not GraphicObjectbar.Exists then hToolbarSelect ( "Picture", true )
-    try
-        Filter.TearOff
-    catch
-        Warnlog "Unable to tear off 'Filter'-Toolbar"
-        Call hCloseDocument
-        goto endsub
-    endcatch
-
-    Kontext "GraphicFilterBar"
-    try
-        GraphicFilterBar.Move ( 20, 20 )
-    catch
-        Warnlog "Unable to move toolbar"
-    endcatch
-
-    printlog "-  Invert"
-    printlog "Select 'Invert'"
-    if Invert.IsEnabled then
-        Invert.Click
-    else
-        Warnlog "-  'Invert' is disabled !"
-    end if
-
-    if CheckForFilters=False then
-        printlog "Close active document"
-        Call hCloseDocument
-        goto endsub
-    end if
-    printlog "Click 'Smooth'"
-    printlog "-  Smooth"
-    if Smooth.IsEnabled then
-        Smooth.Click
-    else
-        Warnlog "-  'Smooth' is disabled!"
-    end if
-
-    if CheckForFilters=False then
-        printlog "Close active document"
-        Call hCloseDocument
-        goto endsub
-    end if
-    printlog "-  Sharpen"
-    printlog "Click 'Sharpen'"
-    if Sharpen.IsEnabled then
-        Sharpen.Click
-    else
-        Warnlog "-  'Sharpen' is disabled!"
-    end if
-
-    UseBindings
-    if CheckForFilters=False then
-        printlog "Close active document"
-        Call hCloseDocument
-        goto endsub
-    end if
-    printlog "-  Remove Noise"
-    printlog "Click 'Remove Noise'"
-    if Remove.IsEnabled then
-        Remove.Click
-    else
-        Warnlog "-  'Remove Noise' is disabled!"
-    end if
-    sleep (1)
-
-    if ( CheckForFilters=False ) then
-        printlog "Close active document"
-        Call hCloseDocument
-        goto endsub
-    end if
-    printlog "-  Solarization"
-    printlog "Click 'Solarization'"
-    if Solarization.IsEnabled then
-        Solarization.Click
-        Kontext "Solarization"
-        printlog "Cancel upcoming 'Solarization' dialog"
-        if Solarization.Exists then
-            Call Dialogtest( Solarization )
-            Solarization.Cancel
-        else
-            Warnlog "-  Dialog 'Solarisation' has not been opened! Try a second time!"
-            Kontext "GraphicFilterBar"
-            if Solarization.IsEnabled then
-                Solarization.Click
-                Kontext "Solarization"
-                if Solarization.Exists then
-                    Call Dialogtest( Solarization )
-                    Solarization.Cancel
-                else
-                    Warnlog "-  Dialog 'Solarisation' has not been opened!"
-                end if
-            end if
-        end if
-    else
-        Warnlog "-  'Solarization' is disabled!"
-    end if
-
-    if CheckForFilters=False then
-        printlog "Close active document"
-        Call hCloseDocument
-        goto endsub
-    end if
-    printlog "-  Aging"
-    printlog "Click 'Aging'"
-    if Aging.IsEnabled then
-        Aging.Click
-        printlog "Cancel upcoming 'Aging' dialog"
-        Kontext "Aging"
-        if Aging.Exists then
-            Call Dialogtest( Aging )
-            Aging.Cancel
-        else
-            Warnlog "-  Dialog 'Aging' has not been opened! Try a second time!"
-            Kontext "GraphicFilterBar"
-            if Aging.IsEnabled then
-                Aging.Click
-                Kontext "Aging"
-                if Aging.Exists then
-                    Call Dialogtest( Aging )
-                    Aging.Cancel
-                else
-                    Warnlog "-  Dialog 'Aging' has not been opened!"
-                end if
-            end if
-        end if
-    else
-        Warnlog "-  'Aging' is disabled!"
-    end if
-
-    if CheckForFilters=False then
-        printlog "Close active document"
-        Call hCloseDocument
-        goto endsub
-    end if
-    printlog "-  Posterize"
-    printlog "Click 'Posterize'"
-    if Posterize.IsEnabled then
-        Posterize.Click
-        printlog "Cancel upcoming 'Posterize' dialog"
-        Kontext "Posterize"
-        if Posterize.Exists then
-            Call Dialogtest( Posterize )
-            Posterize.Cancel
-        else
-            Warnlog "-  Dialog 'Posterize' has not been opened! Try a second time!"
-            Kontext "GraphicFilterBar"
-            if Posterize.IsEnabled then
-                Posterize.Click
-                Kontext "Posterize"
-                if Posterize.Exists then
-                    Call Dialogtest( Posterize )
-                    Posterize.Cancel
-                else
-                    Warnlog "-  Dialog 'Posterize' has not been opened!"
-                end if
-            end if
-        end if
-    else
-        Warnlog "-  'Posterize' is disabled!"
-    end if
-
-    if CheckForFilters=False then
-        printlog "Close active document"
-        Call hCloseDocument
-        goto endsub
-    end if
-    printlog "Click 'Pop Art'"
-    printlog "-  Pop Art"
-    if Art.IsEnabled then
-        Art.Click
-    else
-        Warnlog "-  'Pop Art' is disabled!"
-    end if
-
-    if CheckForFilters=False then
-        printlog "Close active document"
-        Call hCloseDocument
-        goto endsub
-    end if
-    printlog "-  Charcoal Sketch"
-    printlog "Click 'Charcoal Sketch'"
-    if CharcoalSketch.IsEnabled then
-        CharcoalSketch.Click
-    else
-        Warnlog "-  'Charcoal Sketch' is disabled!"
-    end if
-
-    if CheckForFilters=False then
-        printlog "Close active document"
-        Call hCloseDocument
-        goto endsub
-    end if
-    printlog "-  Relief"
-    printlog "Click 'Relief'"
-    if Relief.IsEnabled then
-        Relief.Click
-        Kontext "Relief"
-        if Relief.Exists then
-            Call Dialogtest( Relief )
-            Relief.Cancel
-        else
-            printlog "Cancel upcoming 'relief' dialog"
-            Warnlog "-  Dialog 'Relief' has not been opened! Try a second time!"
-            Kontext "GraphicFilterBar"
-            if Relief.IsEnabled then
-                Relief.Click
-                Kontext "Relief"
-                if Relief.Exists then
-                    Call Dialogtest( Relief )
-                    Relief.Cancel
-                else
-                    Warnlog "-  Dialog 'Relief' has not been opened!"
-                end if
-            end if
-        end if
-    else
-        Warnlog "-  'Relief' is disabled!"
-    end if
-
-    if CheckForFilters=False then
-        Printlog "Close active document"
-        Call hCloseDocument
-        goto endsub
-    end if
-    printlog "-  Mosaic"
-    Printlog "Clock 'Mosaic'"
-    if Mosaic.IsEnabled then
-        Mosaic.Click
-        Kontext "Mosaic"
-        Printlog "Cancel upcoming 'Mosaic' dialog"
-        if Mosaic.Exists then
-            Call Dialogtest( Mosaic )
-            Mosaic.Cancel
-        else
-            Warnlog "-  Dialog 'Mosaic' has not been opened!"
-        end if
-    else
-        Warnlog "-  'Mosaic' is disabled!"
-    end if
-
-    Printlog "Close active document"
-    Call hCloseDocument
-endcase
-
-'-----------------------------------------------------------
-
-testcase tZOEditPoints
-    printlog "- Draw Functions-Objectbar: Edit Points"
-    if gApplication = "HTML" then
-        Printlog "This test does not apply to HTML documents"
-        Printlog "Not in WriterWeb!"
-        goto endsub
-    end if
-    Printlog "Open new document"
-    Call hNewDocument
-    Printlog "Insert a drawing object (rectangle)"
-    Call wZeichenobjektEinfuegen ( "Rechteck", 30, 30, 50, 60 )
-    Printlog "Select drawing object with shortcut 'Shift F4'"
-    Call wTypeKeys ( "<Shift F4>" )
-
-    Kontext "Drawbar"
-    if Not Drawbar.Exists then Call hToolbarSelect("Drawing", true)
-
-    Sleep 1
-    Printlog "In Toolbox click 'Edit Points'"
-    try
-        Points.Click
-    catch
-        Warnlog "Shortcut selecting objects doesn't work"
-        Printlog "Close active document"
-        Call hCloseDocument
-        goto endsub
-    endcatch
-    Sleep 1
-    Printlog "Click 'Edit Points' in toolbox again"
-    Points.Click
-    Printlog "Close active document"
-    Call hCloseDocument
-endcase
-
-'-----------------------------------------------------------
-
-testcase tZOLine
-    printlog "- Draw Functions-Objectbar: all within Line"
-    if gApplication = "HTML" then
-        Printlog "This test does not apply to HTML documents"
-        Printlog "Not in WriterWeb!"
-        goto endsub
-    end if
-    printlog "Open new document"
-    Call hNewDocument
-
-    printlog "Insert a drawing object ( rectangle )"
-    Call wZeichenobjektEinfuegen ( "Rechteck", 30, 30, 50, 60 )
-    Call gMouseClick ( 25, 25 )
-    printlog "Select drawing object with shortcut 'Shift F4'"
-    Call wTypeKeys ( "<Shift F4>" )
-
-    Kontext "DrawingObjectbar"
-    if Not DrawingObjectbar.Exists then hToolbarSelect("GRAPHIC", true)
-
-    printlog "  - Line-Tabdialog"
-    wait 500
-    try
-        Linie.Click
-        printlog "In Toolbox click 'Line'"
-    catch
-        Warnlog "Shortcut selecting objects doesn't work"
-        Call hCloseDocument
-        goto endsub
-    endcatch
-    Kontext
-    printlog "Step through all tabpages in upcoming dialog"
-    wait 500
-    Active.SetPage TabLinie
-    Kontext "TabLinie"
-    TabLinie.OK
-    Kontext "DrawingObjectbar"
-    if Not DrawingObjectbar.Exists then hToolbarSelect("GRAPHIC", true)
-
-    printlog "  - Arrow Styles"
-    Linienendenstil.TearOff
-    Kontext "Linienenden"
-    Call Dialogtest(Linienenden)
-    printlog "Close dialog"
-    Linienenden.Close
-
-    Sleep 1
-    printlog "Close active document"
-    Call hCloseDocument
-endcase
-
-'-----------------------------------------------------------
-
-testcase tZOArea
-    printlog "- Draw Functions-Objectbar: all within rectangle"
-    if gApplication = "HTML" then
-        printlog "This test applies not to HTML document"
-        Printlog "Not in WriterWeb!"
-        goto endsub
-    end if
-
-    printlog "Open new document"
-    Call hNewDocument
-    printlog "Insert a draw object ( rectangle )"
-    Call wZeichenobjektEinfuegen ( "Rechteck", 30, 30, 50, 60 )
-    ' Set focus to document
-    Call gMouseMove2 ( 50, 25 )
-    Call gMouseClick ( 50, 25 )
-    printlog "Select drawing object with shortcut 'Shift F4'"
-    Call wTypeKeys ( "<Shift F4>" )
-
-    Kontext "DrawingObjectbar"
-    if Not DrawingObjectbar.Exists then hToolbarSelect("GRAPHIC", true)
-    printlog "  - Rectangle-Tabdialog"
-    wait 500
-    try
-        printlog "In toolbox click 'Area'"
-        Flaeche.Click
-    catch
-        Warnlog "Shortcut selecting objects doesn't work"
-        Call hCloseDocument
-        goto endsub
-    endcatch
-    printlog "Close upcoming dialog"
-    Kontext
-    Active.SetPage TabArea
-    Kontext "TabArea"
-    TabArea.OK
-
-    printlog "Close active document"
-    Call hCloseDocument
-endcase
-
-'-----------------------------------------------------------
-
-testcase tZORest
-
-    printlog "- Draw Functions-Objectbar: Rest"
-    if gApplication = "HTML" then
-        printlog "This test does not apply to HTML documents"
-        Printlog "Not in WriterWeb!"
-        goto endsub
-    end if
-
-    printlog "Open new document"
-    Call hNewDocument
-    printlog "Insert a draw object ( rectangle )"
-    Call wZeichenobjektEinfuegen ( "Rechteck", 30, 30, 50, 60 )
-    ' Set focus to document
-    Call gMouseMove2 ( 50, 25 )
-    Call gMouseClick ( 50, 25 )
-    printlog "Select drawing object with shortcut 'Shift F4'"
-    Call wTypeKeys ( "<Shift F4>" )
-
-    printlog "  - Object rotation mode"
-    Sleep 2
-    try
-        printlog "Intoolbox click 'Object rotation mode'"
-        Kontext "DrawingObjectbar"
-        Drehen.Click
-        wait 500
-    catch
-        Warnlog "Shortcut selecting objects doesn't work"
-        Call hCloseDocument
-        goto endsub
-    endcatch
-
-    printlog "  - Change Anchor"
-    printlog "Click 'Change Anchor' in Toolbox and select 1st entry in anchor list"
-    VerankerungWechseln.Click
-    Sleep 1
-    Call hMenuSelectNr (1)
-    wait 500
-
-    VerankerungWechseln.Click
-    printlog "Click 'Change Anchor' in Toolbox and select 2nd entry in anchor list"
-    Sleep 1
-    Call hMenuSelectNr (2)
-    wait 500
-
-    VerankerungWechseln.Click
-    Sleep 1
-    printlog "Click 'Change Anchor' in Toolbox and select 3rd entry in anchor list"
-    Call hMenuSelectNr (3)
-    wait 500
-
-    printlog "  - To Background"
-    printlog "Click 'To Background' in toolbox"
-    InDenHintergrund.Click
-    Sleep 2
-    printlog "  - To Foreground"
-    printlog "Click 'To Foreground' in toolbox"
-    InDenVordergrund.Click
-
-    printlog "  - Send to back"
-    printlog "Click 'Send To back' in toolbox"
-    GanzNachHinten.Click
-
-    printlog "  - Bring to Front"
-    printlog "Click 'To Background' in toolbox"
-    GanzNachVorn.Click
-
-    printlog "Close active document"
-    Call hCloseDocument
-endcase
-
-'-----------------------------------------------------------
-
-testcase tZOText
-    printlog "- Draw Functions-Objectbar: Text"
-    if gApplication = "HTML" then
-        printlog "This test does not apply to HTML documents"
-        Printlog "Not in WriterWeb!"
-        goto endsub
-    end if
-
-    printlog "Open new document"
-    Call hNewDocument
-
-    Call wZeichenobjektEinfuegen ( "Text", 30, 30, 50, 60 )
-    printlog "Insert draw object ( Text )"
-    printlog "Insert some text to textbox"
-    Call wTypeKeys ("Draw Functions-Objectbar: Text")
-    printlog "Select the text in textbox with <Strg A>"
-    Call wTypeKeys ("<Mod1 A>", 3)
-    Sleep 4
-
-    Kontext "DrawTextObjectBar"
-    if DrawTextObjectBar.Exists = false then
-        Call hToolbarSelect("TextObject", true)
-    end if
-
-    printlog "  - Font Size"
-    printlog "For font size select 9th entry"
-    try
-        Schriftgroesse.Select 9
-        Schriftgroesse.TypeKeys "<Return>"
-    catch
-        Warnlog "Unable to change font size"
-    endcatch
-    Wait 500
-
-    printlog "  - Font"
-    printlog "In object bar select 6th entry in combobox 'Font'"
-    try
-        Schriftart.Select 6
-    catch
-        Warnlog "Unable to select font in object bar"
-    endcatch
-    Schriftart.TypeKeys "<Return>"
-    Wait 500
-
-    printlog "  - Bold"
-    printlog "Click 'Bold' in object bar"
-    Fett.Click
-    Wait 500
-
-    printlog "  - Italic"
-    printlog "Click 'Italic' in object bar"
-    Kursiv.Click
-    Wait 500
-
-    printlog "  - Underline"
-    printlog "Click 'Underline' in object bar"
-    Unterstrichen.Click
-    Wait 500
-
-    printlog "  - Align Left"
-    printlog "Click Align left in object bar"
-    Linksbuendig.Click
-    Wait 500
-
-    printlog "  - Align Right"
-    printlog "Click 'Align right' in object bar"
-    Rechtsbuendig.Click
-    Wait 500
-
-    printlog "  - Centered"
-    printlog "Click 'Centered' in object bar"
-    Zentriert.Click
-    Wait 500
-
-    printlog "  - Justify"
-    printlog "Click 'Justify' in object bar"
-    Blocksatz.Click
-    Wait 500
-
-    printlog "  - Superscript"
-    printlog "Click 'Superscript' in object bar"
-    try
-        Hochgestellt.Click
-        Wait 500
-    catch
-        Warnlog "- Superscript is probably faded out!"
-    endcatch
-
-    printlog "  - Subscript"
-    try
-        printlog "Click 'Subscript' in object bar"
-        Tiefgestellt.Click
-        Wait 500
-    catch
-        Warnlog "- Subscript is probably faded out!"
-    endcatch
-
-    printlog "  - Font attributes"
-    try
-        printlog "Click 'Font attributes' in object bar"
-        Zeichenformat.Click
-        wait 500
-        printlog "Close upcoming dialog"
-        Kontext
-        Active.Setpage TabFont
-        Kontext "TabFont"
-        TabFont.OK
-        Sleep 2
-        Kontext "TextObjectbar"
-    catch
-        Warnlog "- Font attributes is probably faded out!"
-    endcatch
-
-    printlog "  - Format:Paragraph"
-    Sleep 3
-    try
-        printlog "Click Format:Paragraph in object bar"
-        Absatzformat.Click
-        wait 500
-        printlog "Close upcoming dialog"
-        Kontext
-        Active.Setpage TabEinzuegeUndAbstaende
-        Kontext "TabEinzuegeUndAbstaende"
-        TabEinzuegeUndAbstaende.OK
-        Sleep 2
-    catch
-        Warnlog "- Format:Paragraph is probably faded out!"
-    endcatch
-
-    printlog "Close active document"
-    Call hCloseDocument
-endcase
-
-'-----------------------------------------------------------
-
-testcase tZOVerticalText
-    printlog "- Draw Functions-Objectbar: Vertical Text"
-    if gAsianSup = False then goto endsub
-    if gApplication = "HTML" then
-        printlog "This test applies not to HTML document and only if Asian Support is enabled"
-        Printlog "Not in WriterWeb!"
-        goto endsub
-    end if
-
-    printlog "Open new document"
-    Call hNewDocument
-
-    printlog "Insert Draw object ( 'vertical Text' )"
-    Call wZeichenobjektEinfuegen ( "VText", 30, 30, 50, 60 )
-    printlog "Insert some text in textbox and select it"
-    Call wTypeKeys ("Checking vertical text")
-    Call wTypeKeys ("<Shift Home>")
-    Sleep 4
-
-    printlog "In object bar select 6th entry in combobox 'Font'"
-    Call hToolbarSelect ( "Textobject", true  )
-    printlog "  - Font"
-    Schriftart.Select 6
-    Schriftart.TypeKeys "<Return>"
-    Wait 500
-
-    printlog "  - Font Size"
-    printlog "For font size select 9th entry"
-    Schriftgroesse.Select 9
-    Schriftgroesse.TypeKeys "<Return>"
-    Wait 500
-
-    printlog "  - Bold"
-    printlog "Click 'Bold' in object bar"
-    Fett.Click
-    Wait 500
-
-    printlog "  - Italic"
-    printlog "Click 'Italic' in object bar"
-    Kursiv.Click
-    Wait 500
-
-    printlog "  - Underline"
-    printlog "Click 'Underline' in object bar"
-    Unterstrichen.Click
-    Wait 500
-
-    printlog "  - Align Left"
-    printlog "Click 'Align left' in object bar"
-    Linksbuendig.Click
-    Wait 500
-
-    printlog "  - Align Right"
-    printlog "Click 'Align Right' in object bar"
-    Rechtsbuendig.Click
-    Wait 500
-
-    printlog "  - Centered"
-    printlog "Click 'Centered' in object bar"
-    Zentriert.Click
-    Wait 500
-
-    printlog "  - Justify"
-    printlog "Click 'Justify' in object bar"
-    Blocksatz.Click
-    Wait 500
-
-    printlog "  - Superscript"
-    try
-        printlog "Click 'Superscript' in object bar"
-        Hochgestellt.Click
-        Wait 500
-    catch
-        Warnlog "- Superscript is probably faded out!"
-    endcatch
-
-    printlog "  - Subscript"
-    try
-        printlog "Click 'Subscript' in object bar"
-        Tiefgestellt.Click
-        Wait 500
-    catch
-        Warnlog "- Subscript is probably faded out!"
-    endcatch
-
-    printlog "  - Font attributes"
-    try
-        printlog "Click 'Font attributes' in object bar"
-        Zeichenformat.Click
-        wait 500
-        Kontext
-        Active.Setpage TabFont
-        Kontext "TabFont"
-        TabFont.OK
-        Sleep 2
-        Kontext "TextObjectbar"
-    catch
-        Warnlog "- Font attributes is probably faded out!"
-    endcatch
-
-    printlog "  - Format:Paragraph"
-    Sleep 3
-
-    try
-        printlog "Click 'Textdirection:Left To Right' in Objectbar"
-        TextdirectionLeftToRight.Click
-        wait 500
-    catch
-        Warnlog "Textdirection Left To Right probably faded out!"
-    endcatch
-
-    try
-        printlog "Click 'Textdirection:Top to Bottom' in Objectbar"
-        TextdirectionTopToBottom.Click
-        wait 500
-    catch
-        Warnlog "Textdirection Top to Bottom probably faded out!"
-    endcatch
-
-    try
-        printlog "Click 'Format: Paragraph' in object bar."
-        Absatzformat.Click
-        wait 500
-        printlog "Close upcoming dialog"
-        Kontext
-        Active.Setpage TabEinzuegeUndAbstaende
-        Kontext "TabEinzuegeUndAbstaende"
-        TabEinzuegeUndAbstaende.OK
-        Sleep 2
-    catch
-        Warnlog "- Format:Paragraph is probably faded out!"
-    endcatch
-
-    printlog "Close active document"
-    Call hCloseDocument
-endcase
diff --git a/testautomation/writer/required/includes/w_020_.inc b/testautomation/writer/required/includes/w_020_.inc
deleted file mode 100644
index 3eee667be02d..000000000000
--- a/testautomation/writer/required/includes/w_020_.inc
+++ /dev/null
@@ -1,971 +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 : helge.delfs@oracle.com
-'*
-'* short description: Testcases for Toolbars.
-'*
-'\******************************************************************
-
-sub w_020_
-
-    printLog Chr(13) + "--------- Toolbars (w_020_.inc) ----------"
-
-    'Toolbar
-    Call t_TB_Insert
-    Call t_TB_InsertFields
-    Call t_TB_ShowDrawFunctions
-    Call t_TB_Form
-    Call t_TB_EditAutotext
-    Call t_TB_Graphics
-    Call t_TB_DirektCursor
-    Call t_TB_Find
-    Call t_TB_Rest
-
-    'Writer Web
-    gApplication = "HTML"
-    Call tHtmlDoc_TB_Insert
-    Call tHtmlDoc_TB_InsertFields
-    Call tHtmlDoc_TB_Form
-    Call tHtmlDoc_TB_Rest
-    gApplication = "WRITER"
-
-    Call tUpdtFindBar()
-
-end sub
-
-'-----------------------------------------------------------
-
-testcase t_TB_Insert
-
-    ' JSK: This issue is solved since OOO300m9, enabling test again
-    'qaErrorLog "#158646# - Inserting Indexes causes crash."
-    'goto endsub
-
-    printlog "- Toolbox ( normal ) : All within Insert"
-
-    printlog " Open new document"
-    Call hNewDocument
-    printlog "- TearOff Insert-Toolbox"
-    Kontext "Insertbar"
-    if Not Insertbar.Exists then Call hToolbarSelect("Insert", true)
-
-    if gApplication <> "HTML" then
-        Kontext "Insertbar"
-        printlog "  - Frame"
-        printlog " Click 'Frame' and Insert a Frame"
-        Rahmen.Click
-        Call gMouseMove(40, 40, 60, 60)
-        Call wTypeKeys ("<Delete>")
-        printlog " Hit 'Delete' to remove the frame"
-    end if
-
-    printlog "  - Graphic"
-    Kontext "Insertbar"
-    if ( Insertbar.Exists ) then 
-        ' all good
-    else    
-        Call hToolbarSelect("Insert", true)
-    endif
-    wait 500
-
-    printlog " Click 'Insert Graphics' in Toolbox"
-    if Grafik.IsEnabled then
-        Grafik.Click
-        Kontext "GrafikEinfuegenDlg"
-        if GrafikEinfuegenDlg.Exists then
-            printlog " Select graphic from file '..\writer\required\input\graphics\jolink.jpg'"
-            Dateiname.SetText ( ConvertPath ( gTesttoolPath + "writer\required\input\graphics\jolink.jpg" ) )
-            Oeffnen.Click
-        else
-            Warnlog "Dialog 'Insert Graphic' not up!"
-        end if
-
-        Kontext "Active"
-        if Active.Exists( 1 ) then
-            Warnlog Active.Gettext
-            Active.Ok
-            Kontext "GrafikEinfuegenDlg"
-            GrafikEinfuegenDlg.Cancel
-        end if
-        printlog " Hit 'Delete' to remove graphic"
-        Call wTypeKeys ("<Delete>")
-    else
-        Warnlog "Button 'Graphic' on Insertbar is not enabled!"
-    end if
-
-    printlog "  - Table"
-    printlog " Click 'Insert Table' in Toolbox"
-    Kontext "Insertbar"
-    if ( Insertbar.Exists() ) then 
-        ' No action required
-    else
-        Call hToolbarSelect("Insert", true)
-    endif
-
-    sleep( 2 ) ' Too fast for some machines. Using dirty fix.
-    if Tabelle.IsEnabled then
-        Tabelle.Click
-        Kontext "TabelleEinfuegenWriter"
-        TabelleEinfuegenWriter.OK
-        printlog " Move cursor under table"
-        Call wTypeKeys ("<Down>",2)
-    else
-        Warnlog "Button 'Table' on Insertbar is not enabled!"
-    end if
-
-    printlog "  - Document"
-    Kontext "Insertbar"
-    if Not Insertbar.Exists then Call hToolbarSelect("Insert", true)
-
-    if gApplication <> "HTML" then
-        printlog "  - Footnote"
-        printlog " Click 'Insert Footnote Directly' in Toolbox"
-        Kontext "Insertbar"
-        if Not Insertbar.Exists then Call hToolbarSelect("Insert", true)
-        if Fussnote.IsEnabled then
-            Fussnote.Click
-            Call wTypeKeys ("<PageUp>")
-        else
-            Warnlog "Button 'Footnote' on Insertbar is not enabled!"
-        end if
-
-        Sleep 2
-        printlog "  - Endnote"
-        printlog " Click 'Insert Endnote Directly' in Toolbox"
-        Kontext "Insertbar"
-        if Not Insertbar.Exists then Call hToolbarSelect("Insert", true)
-        if Endnote.IsEnabled then
-            Endnote.Click
-            Call wTypeKeys ("<PageUp>")
-        else
-            Warnlog "Button 'Endnote' on Insertbar is not enabled!"
-        end if
-
-        printlog "  - Index Marker"
-        Call wTypeKeys ("Index Marker <Shift Home>")
-        printlog " Click 'Insert Index Marker' in Toolbox"
-        Kontext "Insertbar"
-        if Not Insertbar.Exists then Call hToolbarSelect("Insert", true)
-        if Verzeichnis.IsEnabled then
-            Verzeichnis.Click
-            printlog " Close upcoming 'Insert Index Entry' dialog"
-            Kontext "VerzeichniseintragEinfuegen"
-            VerzeichniseintragEinfuegen.Close
-        else
-            Warnlog "Button 'Index Marker' on Insertbar is not enabled!"
-        end if
-    end if
-
-    printlog "  - Special Character"
-    printlog " Click 'Insert Special Character' in Toolbox"
-    Kontext "Insertbar"
-    if Not Insertbar.Exists then Call hToolbarSelect("Insert", true)
-    if Sonderzeichen.IsEnabled then
-        Sonderzeichen.Click
-        printlog " Cancel upcoming 'Special Character' dialog"
-        Kontext "Sonderzeichen"
-        Sonderzeichen.Cancel
-    else
-        Warnlog "Button 'Special Character' on Insertbar is not enabled!"
-    end if
-
-    printlog "  - Insert Section"
-    printlog " Click 'Insert Section' in Toolbox"
-    Kontext "Insertbar"
-    if Not Insertbar.Exists then Call hToolbarSelect("Insert", true)
-    if BereichEinfuegen.IsEnabled then
-        BereichEinfuegen.Click
-        printlog " Close upcoming 'Section' dialog"
-        Kontext
-        Active.Setpage TabBereiche
-        Kontext "TabBereiche"
-        TabBereiche.Ok
-    else
-        Warnlog "Button 'Insert Section' on Insertbar is not enabled!"
-    end if
-
-    printlog "  - Bookmark"
-    printlog " Click 'Insert Bookmark' in Toolbox"
-    Kontext "Insertbar"
-    if Not Insertbar.Exists then Call hToolbarSelect("Insert", true)
-    if Textmarke.IsEnabled then
-        Textmarke.Click
-        printlog " Enter a bookmark name and close dialog"
-        Kontext "TextmarkeEinfuegen"
-        Textmarken.SetText "Bookmark"
-        TextmarkeEinfuegen.OK
-    else
-        Warnlog "Button 'Bookmark' on Insertbar is not enabled!"
-    end if
-
-    'Only with closing the toolbox the dialog is accessible for TT
-    printlog " Close toolbar"
-    Kontext "Insertbar"
-    if Insertbar.Exists then Insertbar.Close
-
-    printlog " Close active document"
-    Call hCloseDocument
-endcase
-
-'-----------------------------------------------------------
-
-testcase t_TB_InsertFields
-    Dim Ende as Integer
-    Dim i as Integer
-    printlog "- Toolbox ( normal ) : Fields"
-
-    if gPlatgroup = "unx" then
-        printlog( "Test not suitable for Unix(like) OS" )
-        goto endsub
-    end if
-    printlog " Open new document"
-    Call hNewDocument
-    printlog "- TearOff Insert Toolbox"
-    printlog " Tear off toolbar and open insert toolbar"
-    printlog " Click 'Insert Fields' in insertbar"
-    Kontext "Insertbar"
-    if Not Insertbar.Exists then Call hToolbarSelect("Insert", true)
-    Sleep 1
-    Feldbefehle.OpenMenu
-    wait 500
-    if gApplication = "HTML" then
-        Call hMenuSelectNr(6)
-    else
-        Call hMenuSelectNr(8)
-    end if
-    Kontext
-    try
-        Active.SetPage TabDokumentFeldbefehle
-        Kontext "TabDokumentFeldbefehle"
-        printlog " Cancel upcoming 'Fields' dialog"
-        TabDokumentFeldbefehle.Cancel
-    catch
-        QAErrorlog "Dialog for Fields is not up !"
-    endcatch
-    printlog " Close active document"
-    Call hCloseDocument
-endcase
-
-'-----------------------------------------------------------
-
-testcase t_TB_ShowDrawFunctions
-    printlog "- Toolbox ( normal ) : Draw Functions"
-    if gApplication = "HTML" then
-        printlog "Not in WriterWeb!"
-        goto endsub
-    end if
-
-    printlog " Open new document"
-    Call hNewDocument
-    ViewZoom
-    Kontext "Massstab"
-    Optimal.Check
-    Massstab.OK
-
-    printlog " Open 'Draw functions' toolbar"
-    Kontext "DrawBar"
-    if Not DrawBar.Exists then Call hToolbarSelect("Drawing", true)
-    Sleep 5
-
-    printlog "  - Draw Line"
-    Kontext "Drawbar"
-    printlog " Draw a Line"
-    try
-        Linie.Click
-        Call gMouseMove(20, 20, 30, 30)
-        Call wTypeKeys ("<Escape>")
-    catch
-        Warnlog " Line could not be created !"
-    endcatch
-
-    printlog "  - Draw Rectangle"
-    Kontext "Drawbar"
-    printlog " Draw a Rectangle"
-    Rechteck.Click
-    Call gMouseMove(31, 20, 40, 40)
-    Call wTypeKeys ("<Escape>")
-
-    printlog "  - Draw Ellipse"
-    Kontext "Drawbar"
-    printlog " Draw an Ellipse"
-    Ellipse.Click
-    Call gMouseMove(31, 30, 60, 50)
-    Call wTypeKeys ("<Escape>")
-
-    printlog "  - Draw Freeform"
-    Kontext "Drawbar"
-    Freihand.Click
-    printlog " Draw a Freeform"
-    Call gMouseMove ( 23, 20, 35, 31 )
-    Call gMouseMove ( 35, 31, 40, 90 )
-    Call gMouseMove ( 41, 91, 55 , 70 )
-    Call gMouseClick( 55, 70 )
-    Call wTypeKeys ("<Escape>")
-
-    printlog "  - Draw Textobject"
-    Kontext "Drawbar"
-    printlog " Draw a Textobject"
-    Textobjekt.Click
-    Call gMouseMove ( 17, 17, 28, 25 )
-    Call wTypeKeys ("Textobject")
-    Call gMouseClick ( 50, 99 )
-    Call wTypeKeys ("<Escape>")
-
-    printlog "  - Draw Callouts"
-    Kontext "Drawbar"
-    printlog " Draw a Callout"
-    Legende.Click
-    Call gMouseMove (15, 20, 50, 60)
-    Call gMouseClick( 50, 60 )
-    Call wTypeKeys ("<Escape>")
-
-    printlog " Close toolbar 'Draw Functions'"
-    Kontext "Drawbar"
-    Drawbar.Close
-    ViewZoom
-    Kontext "Massstab"
-    Vergroesserung100.Check
-    Massstab.OK
-
-    printlog " Close active document"
-    Call hCloseDocument
-endcase
-
-'-----------------------------------------------------------
-
-testcase t_TB_Form
-    printlog "- Toolbox ( normal ) : Formular"
-
-    printlog " Open new document"
-    Call hNewDocument
-    
-    Kontext "FormControls"
-    if ( FormControls.Exists( 1 ) ) then 
-        'do nothing
-    else
-        Call hToolbarSelect("Controls", true)
-    endif
-
-    try
-        printlog " Tear off 'Form' Toolbox"
-        Kontext "FormControls"
-        if Not FormControls.Exists then
-            Warnlog "Toolbar 'FormControls' is not opened!"
-            Call hCloseDocument
-            goto endsub
-        end if
-        wait 500
-        Pushbutton.Click
-        printlog " Insert a pushbutton from toolbox"
-        Call hMalZeichnenMitSelektion ( 35, 20, 30, 25 )
-        Sleep 2
-        Kontext "FormControls"
-        if NOT ControlProperties.IsEnabled then
-            if gPlatform = "osx" then
-                warnlog "Mac OS X (Aqua): Drawing function does not draw anything"
-            else
-                warnlog "Control properties button disabled!"
-            end if
-        else
-            ControlProperties.Click
-            sleep(2)
-        end if
-        printlog "+ Open Control Properties"
-        printlog "   - Control Properties"
-        Call sMenufunktionen("-Pushbutton-")
-
-        Kontext "FormControls"
-        wait 500
-        Radiobutton.Click
-        printlog " Insert a Radiobutton from toolbox"
-        Call hMalZeichnenMitSelektion ( 32, 20, 42, 25 )
-        printlog "+ Open Control Properties"
-        Call sMenufunktionen("-Radiobutton-")
-
-        Kontext "FormControls"
-        wait 500
-        Checkbox.Click
-        printlog " Insert a Checkbox from toolbox"
-        Call hMalZeichnenMitSelektion ( 45, 20, 55, 25 )
-        printlog "+ Open Control Properties"
-        Call sMenufunktionen("-Checkbox-")
-
-        Kontext "FormControls"
-        if gApplication <> "HTML" then
-            wait 500
-            Label.Click
-            printlog " Insert a textbox from toolbox"
-            Call hMalZeichnenMitSelektion ( 57, 20, 68, 25 )
-            printlog "+ Open Control Properties"
-            Call sMenufunktionen("-Textbox-")
-        end if
-
-        Sleep 3
-        Kontext "FormControls"
-        printlog " Insert an Edit Field from toolbox"
-        Edit.Click
-        Wait 500
-        Call hMalZeichnenMitSelektion ( 32, 30, 42, 35 )
-        printlog "+ Open Control Properties"
-        Call sMenufunktionen("-Edit-")
-
-        Kontext "FormControls"
-        Listbox.Click
-        Wait 500
-        printlog " Insert a listbox"
-        Call hMalZeichnenMitSelektion ( 45, 30, 55, 35 )
-        printlog "+ Step through pages of upcoming Autopilot"
-        Call sAutopilot_ListboxCombobox("Listbox")
-        printlog "+ Open Control Properties"
-        Call sMenufunktionen("-Listbox-")
-
-        Kontext "FormControls"
-        if ( gApplication <> "HTML" ) then
-            Combobox.Click
-            printlog " Insert a Combobox from toolbox"
-            Wait 500
-            Call hMalZeichnenMitSelektion ( 57, 30, 68, 35 )
-            printlog "+ Step through pages of upcoming Autopilot"
-            Call sAutopilot_ListboxCombobox("Combo")
-            printlog "+ Open Control Properties"
-            Call sMenufunktionen("-Combobox-")
-        end if
-
-        printlog " Insert a Formatted Field from toolbox"
-        Kontext "FormControls"
-        if ( gApplication <> "HTML" ) then
-            FormattedField.Click
-            Wait 500
-            Call hMalZeichnenMitSelektion ( 45, 50, 55, 55 )
-            printlog "+ Open Control Properties"
-            Call sMenufunktionen("-Formatted Field-")
-        end if
-        Sleep 3
-        Call gMouseClick ( 40, 80 )
-        Kontext "FormControls"
-        printlog " Click 'Design Mode' in Toolbox"
-        wait 500
-        SwitchControlDesignMode.Click
-        Sleep 1
-        printlog " Click 'Design Mode' in Toolbox"
-        SwitchControlDesignMode.Click
-        printlog "   - Design mode"
-        Kontext "FormControls"
-        FormControls.Close
-    catch
-        Exceptlog
-    endcatch
-
-    Call hCloseDocument
-    printlog " Close active document"
-endcase
-
-'-----------------------------------------------------------
-
-testcase t_TB_EditAutotext
-    printlog "- Toolbox ( normal ) : Autotext"
-
-    printlog " Open new document"
-    Call hNewDocument
-    Kontext "Insertbar"
-    if Not Insertbar.Exists then Call hToolbarSelect("Insert", true)
-    Sleep 2
-    Autotext.Click
-    printlog " Click 'Autotext' in Toolbar"
-
-    Kontext "Active"
-    if ( Active.Exists( 1 ) ) then
-        Active.Gettext
-        Active.Ok
-    end if
-    
-    Kontext "Autotext"
-    if ( Autotext.exists( 4 ) ) then
-        printlog " Close upcoming 'Autotext' dialog"
-        Autotext.Close
-    else
-        warnlog( "Dialog <Autotext> is not available" )
-    endif
-    printlog " Close active document"
-    Call hCloseDocument
-endcase
-
-'-----------------------------------------------------------
-
-testcase t_TB_Find
-    printlog "- Toolbox ( normal ) : Find & Replace"
-    printlog " Open new document"
-    Call hNewDocument
-    Kontext "Standardbar"
-    if Not Standardbar.Exists then Call hToolbarSelect("Standard", true)
-    printlog " Click 'Find' in Toolbar"
-    FindAndReplace.Click
-    Kontext "FindAndReplace"
-    printlog " Close 'Find&Replace' dialog"
-    FindAndReplace.Close
-    printlog " Close active document"
-    Call hCloseDocument
-endcase
-
-'-----------------------------------------------------------
-
-testcase t_TB_Graphics
-    printlog "- Toolbox ( normal ) : Graphic"
-
-    printlog " Open new document"
-    Call hNewDocument
-    printlog " Insert graphic from file ..\writer\required\input\graphics\jolink.jpg"
-    Call hGrafikEinfuegen ( gTesttoolpath + "writer\required\input\graphics\jolink.jpg" )
-
-    Kontext "Toolbar"
-    if Not Toolbar.Exists then Call hToolbarSelect("Tools", true)
-    try
-        printlog " Click 'Graphic' in Toolbar"
-        GrafikenAusEin.Click
-    catch
-        Warnlog "Error on switching Graphic off!"
-    endcatch
-    Sleep 2
-    try
-        printlog " Click 'Graphic' in Toolbar"
-        GrafikenAusEin.Click
-    catch
-        Warnlog "Error on switching Graphic on!"
-    endcatch
-    Sleep 2
-
-    printlog " Close active document"
-    Call hCloseDocument
-endcase
-
-'-----------------------------------------------------------
-
-testcase t_TB_DirektCursor
-    printlog "- Toolbox ( normal ) : Direct Cursor"
-    if gApplication = "HTML" then
-        printlog "Not in WriterWeb!"
-        goto endsub
-    end if
-
-    printlog " Open new document"
-    Call hNewDocument
-    printlog " Click 'Direct Cursor' in Toolbar"
-    Kontext "Toolbar"
-    if Not Toolbar.Exists then Call hToolbarSelect("Tools", true)
-    Direktcursor.Click
-    Sleep 1
-    printlog " Point cursor somewhere in document"
-    Call gMouseDoubleClick(50, 70)
-    printlog " Insert some words in document"
-    Call wTypeKeys ("Direct Cursor On")
-
-    printlog " Click 'Direct Cursor' in Toolbar"
-    Kontext "Toolbar"
-    if Not Toolbar.Exists then Call hToolbarSelect("Tools", true)
-    Direktcursor.Click
-    printlog " Insert some text in document"
-    Call gMouseDoubleClick (80, 20)
-    Call wTypeKeys ("Direct Cursor Off")
-
-    printlog " Close active document"
-    Call hCloseDocument
-endcase
-
-'-----------------------------------------------------------
-
-testcase t_TB_Rest
-    printlog "- Toolbox ( normal ) : Rest"
-
-    printlog " Open new document"
-    Call hNewDocument
-    printlog "  - Hyperlink"
-    Kontext "Toolbar"
-    if Not Toolbar.Exists then Call hToolbarSelect("Tools", true)
-    try
-        printlog " Click 'Hyperlink' in Toolbar"
-        Hyperlink.Click
-        Sleep 2
-        printlog " Click 'Hyperlink' in Toolbar"
-        Hyperlink.Click
-        Warnlog "Button 'Hyperlink' should have been removed!"
-    catch
-    endcatch
-
-    printlog "  - OnlineLayout"
-    if gApplication <> "HTML" then
-        Kontext "Toolbar"
-        if Not Toolbar.Exists then Call hToolbarSelect("Tools", true)
-        try
-            printlog " Click 'Online Layout' in Toolbar"
-            OnlineLayout.Click
-            Sleep 2
-            printlog " Click 'Online Layout' in Toolbar"
-            OnlineLayout.Click
-        catch
-            Warnlog "Button 'OnlineLayout' is missing or disabled!"
-        endcatch
-    end if
-
-    printlog "  - Nonprinting Characters"
-    Kontext "Toolbar"
-    if Not Toolbar.Exists then Call hToolbarSelect("Tools", true)
-    try
-        printlog " Click 'Nonprinting Characters' in Toolbar"
-        SteuerzeichenEinAus.Click
-        Sleep 2
-        printlog " Click 'Nonprinting Characters' in Toolbar"
-        SteuerzeichenEinAus.Click
-    catch
-        Warnlog "Button 'Nonprinting Characters' is missing or disabled!"
-    endcatch
-
-    printlog "  - Graphics on/off"
-    Kontext "Toolbar"
-    if Not Toolbar.Exists then Call hToolbarSelect("Tools", true)
-    try
-        printlog " Click 'Graphics' in Toolbar "
-        GrafikenAusEin.Click
-        Sleep 2
-        printlog " Click 'Graphics' in Toolbar "
-        GrafikenAusEin.Click
-    catch
-        Warnlog "Button 'Graphics' is missing or disabled!"
-    endcatch
-    printlog " Close active document"
-    Call hCloseDocument
-endcase
-
-'-----------------------------------------------------------
-
-testcase tHtmlDoc_TB_Insert
-
-    ' JSK: This issue is solved since OOO300m9, enabling test again
-    'qaErrorLog "#158646# - Inserting Indexes causes crash."
-    'goto endsub
-
-    printlog "- Toolbox ( normal ) : All within Insert"
-    gApplication = "HTML"
-
-    printlog " Open new document"
-    Call hNewDocument
-    printlog "- TearOff Insert-Toolbox"
-    Kontext "Insertbar"
-    if Not Insertbar.Exists then Call hToolbarSelect("Insert", true)
-
-    printlog "  - Graphic"
-    printlog " Click 'Insert Graphics' in Toolbox"
-    Kontext "Insertbar"
-    if Not Insertbar.Exists then Call hToolbarSelect("Insert", true)
-    wait 500
-    
-    if Grafik.IsEnabled then
-        Grafik.Click
-        Kontext "GrafikEinfuegenDlg"
-        if ( GrafikEinfuegenDlg.Exists( 1 ) ) then
-            printlog " Select graphic from file '..\writer\required\input\graphics\jolink.jpg'"
-            Dateiname.SetText ( ConvertPath ( gTesttoolPath + "writer\required\input\graphics\jolink.jpg" ) )
-            Oeffnen.Click
-        else
-            Warnlog "Dialog 'Insert Graphic' not up!"
-        end if
-
-        Kontext "Active"
-        if ( Active.Exists( 1 ) ) then
-            Warnlog Active.Gettext
-            Active.Ok
-            Kontext "GrafikEinfuegenDlg"
-            GrafikEinfuegenDlg.Cancel
-        end if
-        printlog " Hit 'Delete' to remove graphic"
-        Call wTypeKeys ("<Delete>")
-    else
-        Warnlog "Button 'Graphic' on Insertbar is not enabled!"
-    end if
-
-    Sleep 2
-    printlog "  - Table"
-    printlog " Click 'Insert Table' in Toolbox"
-    Kontext "Insertbar"
-    if Not Insertbar.Exists then Call hToolbarSelect("Insert", true)
-    if Tabelle.IsEnabled then
-        Tabelle.Click
-        Kontext "TabelleEinfuegenWriter"
-        TabelleEinfuegenWriter.OK
-        printlog " Move cursor under table"
-        Call wTypeKeys ("<Down>",2)
-    else
-        Warnlog "Button 'Table' on Insertbar is not enabled!"
-    end if
-
-    printlog "  - Document"
-    Kontext "Insertbar"
-    if Not Insertbar.Exists then Call hToolbarSelect("Insert", true)
-
-    printlog "  - Special Character"
-    Kontext "Insertbar"
-    if Not Insertbar.Exists then Call hToolbarSelect("Insert", true)
-    if Sonderzeichen.IsEnabled then
-        Sonderzeichen.Click
-        Kontext "Sonderzeichen"
-        printlog " Click 'Insert Special Character' in Toolbox"
-        Sonderzeichen.Cancel
-        printlog " Cancel upcoming 'Special Character' dialog"
-    else
-        Warnlog "Button 'Special Character' on Insertbar is not enabled!"
-    end if
-
-    printlog "  - Insert Section"
-    printlog " Click 'Insert Section' in Toolbox"
-    Kontext "Insertbar"
-    if Not Insertbar.Exists then Call hToolbarSelect("Insert", true)
-    if BereichEinfuegen.IsEnabled then
-        BereichEinfuegen.Click
-        printlog " Close upcoming 'Section' dialog"
-        Kontext
-        Active.Setpage TabBereiche
-        Kontext "TabBereiche"
-        TabBereiche.Ok
-    else
-        Warnlog "Button 'Insert Section' on Insertbar is not enabled!"
-    end if
-
-    printlog "  - Bookmark"
-    printlog " Click 'Insert Bookmark' in Toolbox"
-    Kontext "Insertbar"
-    if Not Insertbar.Exists then Call hToolbarSelect("Insert", true)
-    if Textmarke.IsEnabled then
-        Textmarke.Click
-        printlog " Enter a bookmark name and close dialog"
-        Kontext "TextmarkeEinfuegen"
-        Textmarken.SetText "Bookmark"
-        TextmarkeEinfuegen.OK
-    else
-        Warnlog "Button 'Bookmark' on Insertbar is not enabled!"
-    end if
-
-    'Only with closing the toolbox the dialog is accessible for TT
-    printlog " Close toolbar"
-    Kontext "Insertbar"
-    if Insertbar.Exists then Insertbar.Close
-
-    printlog " Close active document"
-    Call hCloseDocument
-    gApplication = "WRITER"
-endcase
-
-'-----------------------------------------------------------
-
-testcase tHtmlDoc_TB_InsertFields
-    Dim Ende as Integer
-    Dim i as Integer
-    printlog "- Toolbox ( normal ) : Fields"
-    gApplication = "HTML"
-
-    if gPlatgroup = "unx" then
-        printlog( "Test not suitable for Unix(like) OS" )
-        goto endsub
-    end if
-
-    printlog " Open new document"
-    Call hNewDocument
-    printlog "- TearOff Insert Toolbox"
-    printlog " Tear off toolbar and open insert toolbar"
-    Kontext "Insertbar"
-    if Not Insertbar.Exists then Call hToolbarSelect("Insert", true)
-    printlog " Click 'Insert Fields' in insertbar"
-    Sleep 1
-    Feldbefehle.OpenMenu
-    wait 500
-    Call hMenuSelectNr(6)
-    Kontext
-    try
-        Active.SetPage TabDokumentFeldbefehle
-        Kontext "TabDokumentFeldbefehle"
-        printlog " Cancel upcoming 'Fields' dialog"
-        TabDokumentFeldbefehle.Cancel
-    catch
-        QAErrorlog "Dialog for Fields is not up !"
-    endcatch
-
-    printlog " Close active document"
-    Call hCloseDocument
-    gApplication = "WRITER"
-endcase
-
-'-----------------------------------------------------------
-testcase tHtmlDoc_TB_Form
-    printlog "- Toolbox ( normal ) : Formular"
-    gApplication = "HTML"
-
-    printlog " Open new document"
-    Call hNewDocument
-    
-    Kontext "FormControls"
-    if ( FormControls.Exists( 1 ) ) then
-        ' do nothing
-    else
-        Call hToolbarSelect("Controls", true)
-    end if
-
-    try
-        printlog " Tear off 'Form' Toolbox"
-        Kontext "FormControls"
-        if Not FormControls.Exists then
-            Warnlog "Toolbar 'FormControls' is not opened!"
-            Call hCloseDocument
-            goto endsub
-        end if
-        wait 500
-        Pushbutton.Click
-        printlog " Insert a pushbutton from toolbox"
-        Call hMalZeichnenMitSelektion ( 35, 20, 30, 25 )
-        Sleep 2
-        Kontext "FormControls"
-        if NOT ControlProperties.IsEnabled then
-            if gPlatform = "osx" then
-                warnlog "Mac OS X (Aqua): Drawing function does not draw anything"
-            else
-                warnlog "Control properties button disabled!"
-            end if
-        else
-            ControlProperties.Click
-            sleep(2)
-        end if
-        printlog "+ Open Control Properties"
-        printlog "   - Control Properties"
-        Call sMenufunktionen("-Pushbutton-")
-
-        Kontext "FormControls"
-        wait 500
-        Radiobutton.Click
-        printlog " Insert a Radiobutton from toolbox"
-        Call hMalZeichnenMitSelektion ( 32, 20, 42, 25 )
-        printlog "+ Open Control Properties"
-        Call sMenufunktionen("-Radiobutton-")
-
-        Kontext "FormControls"
-        wait 500
-        Checkbox.Click
-        printlog " Insert a Checkbox from toolbox"
-        Call hMalZeichnenMitSelektion ( 45, 20, 55, 25 )
-        printlog "+ Open Control Properties"
-        Call sMenufunktionen("-Checkbox-")
-
-        Kontext "FormControls"
-        printlog " Insert an Edit Field from toolbox"
-        Edit.Click
-        Wait 500
-        Call hMalZeichnenMitSelektion ( 32, 30, 42, 35 )
-        printlog "+ Open Control Properties"
-        Call sMenufunktionen("-Edit-")
-
-        Kontext "FormControls"
-        Listbox.Click
-        Wait 500
-        printlog " Insert a listbox"
-        Call hMalZeichnenMitSelektion ( 45, 30, 55, 35 )
-        printlog "+ Step through pages of upcoming Autopilot"
-        Call sAutopilot_ListboxCombobox("Listbox")
-        printlog "+ Open Control Properties"
-        Call sMenufunktionen("-Listbox-")
-
-        printlog " Insert a Formatted Field from toolbox"
-        Kontext "FormControls"
-        Sleep 1
-        Call gMouseClick ( 40, 80 )
-        Kontext "FormControls"
-        printlog " Click 'Design Mode' in Toolbox"
-        wait 500
-        SwitchControlDesignMode.Click
-        Sleep 1
-        printlog " Click 'Design Mode' in Toolbox"
-        SwitchControlDesignMode.Click
-        printlog "   - Design mode"
-        Kontext "FormControls"
-        FormControls.Close
-    catch
-        Exceptlog
-    endcatch
-
-    printlog " Close active document"
-    Call hCloseDocument
-    gApplication = "WRITER"
-endcase
-
-'-----------------------------------------------------------
-
-testcase tHtmlDoc_TB_Rest
-    printlog "- Toolbox ( normal ) : Rest"
-
-    printlog " Open new document"
-    Call hNewDocument
-    printlog "  - Hyperlink"
-    Kontext "Toolbar"
-    if Not Toolbar.Exists then Call hToolbarSelect("Tools", true)
-    try
-        printlog " Click 'Hyperlink' in Toolbar"
-        Hyperlink.Click
-        Sleep 2
-        printlog " Click 'Hyperlink' in Toolbar"
-        Hyperlink.Click
-        Warnlog "Button 'Hyperlink' should have been removed!"
-    catch
-    endcatch
-
-    printlog "  - OnlineLayout"
-    printlog "  - Nonprinting Characters"
-    Kontext "Toolbar"
-    if Not Toolbar.Exists then Call hToolbarSelect("Tools", true)
-    try
-        printlog " Click 'Nonprinting Characters' in Toolbar"
-        SteuerzeichenEinAus.Click
-        Sleep 2
-        printlog " Click 'Nonprinting Characters' in Toolbar"
-        SteuerzeichenEinAus.Click
-    catch
-        Warnlog "Button 'Nonprinting Characters' is missing or disabled!"
-    endcatch
-
-    printlog "  - Graphics on/off"
-    Kontext "Toolbar"
-    if Not Toolbar.Exists then Call hToolbarSelect("Tools", true)
-    try
-        printlog " Click 'Graphics' in Toolbar "
-        GrafikenAusEin.Click
-        Sleep 2
-        printlog " Click 'Graphics' in Toolbar "
-        GrafikenAusEin.Click
-    catch
-        Warnlog "Button 'Graphics' is missing or disabled!"
-    endcatch
-    printlog " Close active document"
-    Call hCloseDocument
-    gApplication = "WRITER"
-endcase
-
-'-----------------------------------------------------------
diff --git a/testautomation/writer/required/input/bt.sxw b/testautomation/writer/required/input/bt.sxw
deleted file mode 100644
index a67d115ae63c..000000000000
--- a/testautomation/writer/required/input/bt.sxw
+++ /dev/null
diff --git a/testautomation/writer/required/input/graphics/jolink.jpg b/testautomation/writer/required/input/graphics/jolink.jpg
deleted file mode 100644
index 6200757dd797..000000000000
--- a/testautomation/writer/required/input/graphics/jolink.jpg
+++ /dev/null
diff --git a/testautomation/writer/required/input/hangul.html b/testautomation/writer/required/input/hangul.html
deleted file mode 100755
index ed94de74fd50..000000000000
--- a/testautomation/writer/required/input/hangul.html
+++ /dev/null
@@ -1,32 +0,0 @@
-<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 3.2//EN">
-<HTML>
-<HEAD>
-	<META HTTP-EQUIV="CONTENT-TYPE" CONTENT="text/html; charset=gb2312">
-	<TITLE></TITLE>
-	<META NAME="GENERATOR" CONTENT="StarOffice 8 Beta (Win32)">
-	<META NAME="CREATED" CONTENT="20041214;16325382">
-	<META NAME="CHANGED" CONTENT="20041214;16344789">
-</HEAD>
-<BODY LANG="en-US" DIR="LTR">
-<DL>
-	<DT><A HREF="http://nuclina.hoseo.ac.kr/ps/test-ks.html">http://nuclina.hoseo.ac.kr/ps/test-ks.html</A></DL>
-<H1>
-<SPAN LANG="ko-KR">&#50640;&#49436; &#54620;&#51088; &#50752; &#44592;&#54840;&#47484;
-&#51077;&#47141;&#54624;&#46412;</SPAN></H1>
-<DL>
-	<DT><SPAN LANG="ko-KR">&#54620;&#51088;&#51077;&#47141;&#51008; &#54644;&#45817;&#54616;&#45716;
-	&#54620;&#44544; &#54620;&#44544;&#51088;&#47484; &#51077;&#47141;&#54616;&#44256;
-	</SPAN>ctrl + F9 <SPAN LANG="ko-KR">&#47484; &#45580;&#47084; &#54644;&#45817;&#54616;&#45716;
-	&#54620;&#51088;&#51032; &#48264;&#54840;&#47484; &#49440;&#53469;&#54620;&#45796;</SPAN>.
-	
-</DL>
-<P><SPAN LANG="ko-KR">&#44592;&#54840;&#51032;   &#51077; &#47141;&#51008;&#54620;&#44544;
-&#52488;&#49457; &#54620;&#44544;&#51088;&#47484; &#51077;&#47141;&#54616;&#44256;
-</SPAN>ctrl + F9 <SPAN LANG="ko-KR">&#47484; &#45580;&#47084; &#54644;&#45817;&#54616;&#45716;
-&#44592;&#54840;&#51032; &#48264;&#54840;&#47484; &#49440;&#53469;&#54620;&#45796;</SPAN>.
-</P>
-<P><SPAN LANG="ko-KR">&#12593; &#44284; &#12596; &#51032; &#44221;&#50864;&#44032;
-&#45796;&#47476;&#45796;</SPAN>.</P>
-<P><SPAN LANG="ko-KR">����</SPAN></P>
-</BODY>
-</HTML>
\ No newline at end of file
diff --git a/testautomation/writer/required/input/hangul.sxw b/testautomation/writer/required/input/hangul.sxw
deleted file mode 100644
index a825084bf25c..000000000000
--- a/testautomation/writer/required/input/hangul.sxw
+++ /dev/null
diff --git a/testautomation/writer/required/input/htmltest.sxg b/testautomation/writer/required/input/htmltest.sxg
deleted file mode 100644
index 75758bb88c5c..000000000000
--- a/testautomation/writer/required/input/htmltest.sxg
+++ /dev/null
diff --git a/testautomation/writer/required/input/htmltest.sxw b/testautomation/writer/required/input/htmltest.sxw
deleted file mode 100644
index 835069a95783..000000000000
--- a/testautomation/writer/required/input/htmltest.sxw
+++ /dev/null
diff --git a/testautomation/writer/required/input/linguistik/001.odt b/testautomation/writer/required/input/linguistik/001.odt
deleted file mode 100644
index 052964e27383..000000000000
--- a/testautomation/writer/required/input/linguistik/001.odt
+++ /dev/null
diff --git a/testautomation/writer/required/input/linguistik/003.odt b/testautomation/writer/required/input/linguistik/003.odt
deleted file mode 100644
index 63ba1b6b2318..000000000000
--- a/testautomation/writer/required/input/linguistik/003.odt
+++ /dev/null
diff --git a/testautomation/writer/required/input/linguistik/007.odt b/testautomation/writer/required/input/linguistik/007.odt
deleted file mode 100644
index 44531c1f89d1..000000000000
--- a/testautomation/writer/required/input/linguistik/007.odt
+++ /dev/null
diff --git a/testautomation/writer/required/input/linguistik/031.odt b/testautomation/writer/required/input/linguistik/031.odt
deleted file mode 100644
index e6090b1ee7c5..000000000000
--- a/testautomation/writer/required/input/linguistik/031.odt
+++ /dev/null
diff --git a/testautomation/writer/required/input/linguistik/033.odt b/testautomation/writer/required/input/linguistik/033.odt
deleted file mode 100644
index e6f821b7e084..000000000000
--- a/testautomation/writer/required/input/linguistik/033.odt
+++ /dev/null
diff --git a/testautomation/writer/required/input/linguistik/034.odt b/testautomation/writer/required/input/linguistik/034.odt
deleted file mode 100644
index 6f15867d703e..000000000000
--- a/testautomation/writer/required/input/linguistik/034.odt
+++ /dev/null
diff --git a/testautomation/writer/required/input/linguistik/036.odt b/testautomation/writer/required/input/linguistik/036.odt
deleted file mode 100644
index 78182150294e..000000000000
--- a/testautomation/writer/required/input/linguistik/036.odt
+++ /dev/null
diff --git a/testautomation/writer/required/input/linguistik/039.odt b/testautomation/writer/required/input/linguistik/039.odt
deleted file mode 100644
index 90288d93236a..000000000000
--- a/testautomation/writer/required/input/linguistik/039.odt
+++ /dev/null
diff --git a/testautomation/writer/required/input/linguistik/045.odt b/testautomation/writer/required/input/linguistik/045.odt
deleted file mode 100644
index fd2fdc2f8d87..000000000000
--- a/testautomation/writer/required/input/linguistik/045.odt
+++ /dev/null
diff --git a/testautomation/writer/required/input/linguistik/046.odt b/testautomation/writer/required/input/linguistik/046.odt
deleted file mode 100644
index 021c60ad86b3..000000000000
--- a/testautomation/writer/required/input/linguistik/046.odt
+++ /dev/null
diff --git a/testautomation/writer/required/input/linguistik/048.odt b/testautomation/writer/required/input/linguistik/048.odt
deleted file mode 100644
index c2c259f2f635..000000000000
--- a/testautomation/writer/required/input/linguistik/048.odt
+++ /dev/null
diff --git a/testautomation/writer/required/input/linguistik/049.odt b/testautomation/writer/required/input/linguistik/049.odt
deleted file mode 100644
index 95de87ebb282..000000000000
--- a/testautomation/writer/required/input/linguistik/049.odt
+++ /dev/null
diff --git a/testautomation/writer/required/input/linguistik/055.odt b/testautomation/writer/required/input/linguistik/055.odt
deleted file mode 100644
index 56560cccce52..000000000000
--- a/testautomation/writer/required/input/linguistik/055.odt
+++ /dev/null
diff --git a/testautomation/writer/required/input/linguistik/sprache.odt b/testautomation/writer/required/input/linguistik/sprache.odt
deleted file mode 100644
index d3d43ae0f16b..000000000000
--- a/testautomation/writer/required/input/linguistik/sprache.odt
+++ /dev/null
diff --git a/testautomation/writer/required/input/st1_1.sxw b/testautomation/writer/required/input/st1_1.sxw
deleted file mode 100644
index 0b7825936dcf..000000000000
--- a/testautomation/writer/required/input/st1_1.sxw
+++ /dev/null
diff --git a/testautomation/writer/required/w_updt.bas b/testautomation/writer/required/w_updt.bas
deleted file mode 100644
index b8779647281b..000000000000
--- a/testautomation/writer/required/w_updt.bas
+++ /dev/null
@@ -1,96 +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 : helge.delfs@oracle.com
-'*
-'* short description : Ressource-Test Writer Document
-'*
-'\******************************************************************
-
-sub main
-    use "writer\tools\includes\w_tools.inc"                  		' global subroutines for Writer-application
-    use "writer\tools\includes\w_tool1.inc"                  		' global subroutines for Writer-application
-    use "writer\tools\includes\w_tool2.inc"                  		' global subroutines for Writer-application
-
-    use "writer\required\includes\w_001_.inc"
-    use "writer\required\includes\w_001a_.inc"
-    use "writer\required\includes\w_001b_.inc"
-    use "writer\required\includes\w_002_.inc"
-    use "writer\required\includes\w_003_.inc"
-    use "writer\required\includes\w_004_.inc"
-    use "writer\required\includes\w_004b_.inc"
-    use "writer\required\includes\w_005_.inc"
-    use "writer\required\includes\w_005b_.inc"
-    use "writer\required\includes\w_006_.inc"
-    use "writer\required\includes\w_007_.inc"
-    use "writer\required\includes\w_008_.inc"
-    use "writer\required\includes\w_009_.inc"
-    use "writer\required\includes\w_010_.inc"
-    use "writer\required\includes\w_010_1.inc"
-    use "writer\required\includes\w_011_.inc"
-    use "writer\required\includes\w_020_.inc"
-    
-    Printlog "******* Ressource-Test Writer Document *******"
-
-    Call wChangeDefaultView()
-
-    Call hStatusIn ( "writer", "w_updt.bas" )
-    Call w_001_              ' Menu File
-    Call w_001a_             ' Menu File
-    Call w_001b_             ' Menu File
-    Call w_002_              ' Menu Edit
-    Call w_003_              ' Menu View
-    Call w_004_              ' Menu Insert
-    Call w_004b_             ' Menu Insert
-    Call w_005_              ' Menu Format
-    Call w_005b_             ' Menu Format (2)
-    Call w_006_              ' Menu Table
-    Call w_007_              ' Menu Tools
-    Call w_008_              ' Menu Window
-    Call w_009_              ' Menu Help
-    Call w_010_              ' Objectbar
-    Call w_010_1             ' Objectbar. Part 2
-    Call w_011_              ' Rest of Objectbar
-    Call w_020_              ' Toolbar
-    Call hStatusOut
-
-end sub
-
-sub LoadIncludeFiles
-    use "global\system\includes\master.inc"
-    use "global\system\includes\gvariabl.inc"
-    use "global\required\includes\g_001.inc"
-    use "global\required\includes\g_option.inc"                	' global subroutines for Tools / Options
-    use "global\required\includes\g_printing.inc"
-    use "global\required\includes\g_findbar.inc"
-    use "global\tools\includes\optional\t_xml_filter1.inc"       ' global routines for XML-functionality
-    use "global\tools\includes\optional\t_docfuncs.inc"
-    use "global\tools\includes\optional\t_control_objects.inc"
-
-    gApplication   = "WRITER"
-    GetUseFiles ()
-end sub
diff --git a/testautomation/writer/tools/includes/w_get_locale_strings.inc b/testautomation/writer/tools/includes/w_get_locale_strings.inc
deleted file mode 100644
index 23cd09eedadb..000000000000
--- a/testautomation/writer/tools/includes/w_get_locale_strings.inc
+++ /dev/null
@@ -1,180 +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 : helge.delfs@oracle.com
-'*
-'* short description : testcase to get Locale Strings used in Writer Optional-Test
-'*
-'\***********************************************************************
-
-sub w_get_locale_strings
-
-    Call wAllFieldNames
-    Call wUsedInTableTest
-    Call wUsedInLoadSaveTests
-
-end sub
-
-'------------------------------------------------------------------------------------------------
-
-testcase wAllFieldNames
-    Dim i as integer
-    Dim j as integer
-
-    printlog " get all field descriptions (used in w_tools.inc)"
-    Call hNewDocument
-
-    InsertFieldsOther
-    for i = 1 to 5
-        Kontext
-        Select Case i
-        Case 1
-            printlog "Tabpage Document"
-            Active.Setpage TabDokumentFeldbefehle
-            Kontext "TabDokumentFeldbefehle"
-        Case 2
-            printlog "Tabpage References"
-            Active.Setpage TabReferenzen
-            Kontext "TabReferenzen"
-        Case 3
-            printlog "Tabpage Functions"
-            Active.Setpage TabFunktionen
-            Kontext "TabFunktionen"
-        Case 4
-            printlog "Tabpage DocInformation"
-            Active.Setpage TabDokumentInfoFeldbefehle
-            Kontext "TabDokumentInfoFeldbefehle"
-        Case 5
-            printlog "Tabpage Variables"
-            Active.Setpage TabVariablen
-            Kontext "TabVariablen"
-        end select
-
-        if i = 4 then
-            for j = 1 to Feldtyp.GetItemCount
-                Feldtyp.Select j
-                Feldtyp.TypeKeys "+"
-            next j
-        end if
-
-        for j = 1 to Feldtyp.GetItemCount
-            Feldtyp.Select j
-            printlog "- " & Feldtyp.GetSelText
-        next j
-    next i
-    Call hCloseDocument
-endcase
-
-'------------------------------------------------------------------------------------------------
-
-testcase wUsedInTableTest
-
-    Dim pos as integer
-    Dim wTableName as string
-
-    printlog " gets all strings which are used in '.\\optional\\w_table.bas'"
-    printlog " add these entries into file : .\\optional\input\\table\\locale.txt"
-    Call hNewDocument
-
-    InsertTableWriter
-    Kontext "TabelleEinfuegenWriter"
-    TabelleEinfuegenWriter.Ok
-    Sleep 1
-    Kontext "TableObjectbar"
-    printlog " Table Heading: " & Vorlage2.GetSelText
-    Kontext "DocumentWriter"
-    Call wTypeKeys "<Down>"
-    Sleep 1
-    Kontext "TableObjectbar"
-    printlog " Table Contents: " & Vorlage2.GetSelText
-    Kontext "DocumentWriter"
-    wait 500
-    FormatNumberFormat
-    Kontext "Zahlenformat"
-    Kategorie.Select 3
-    printlog "Number: " & Kategorie.GetSelText
-    Kategorie.Select 11
-    printlog "Text: " & Kategorie.GetSelText
-    Kategorie.Select 5
-    printlog "Currency: " & Kategorie.GetSelText
-    Kategorie.Select 6
-    printlog "Date: " & Kategorie.GetSelText
-    Kategorie.Select 7
-    printlog "Time: " & Kategorie.GetSelText
-    Kategorie.Select 4
-    printlog "Percent: " & Kategorie.GetSelText
-    Kategorie.Select 8
-    printlog "Scientific: " & Kategorie.GetSelText
-    Kategorie.Select 9
-    printlog "Fraction: " & Kategorie.GetSelText
-    Kategorie.Select 10
-    printlog "Boolean Value: " & Kategorie.GetSelText
-    Zahlenformat.Cancel
-    InsertTableWriter
-    Wait 500
-    Kontext "TabelleEinfuegenWriter"
-    wTableName = TabellenName.Gettext
-    pos = Instr(wTableName, "2")
-    if pos > 0 then
-        wTableName = Left$(wTableName, pos -1)
-    end if
-    printlog "Table: " & wTableName
-    TabelleEinfuegenWriter.Cancel
-
-    Call hCloseDocument
-endcase
-
-'------------------------------------------------------------------------------------------------
-
-testcase wUsedInLoadSaveTests
-    Dim i as integer
-
-    Call hNewDocument
-    printlog "- All filters from open dialog:"
-    FileOpen
-    Kontext "OeffnenDlg"
-    For i = 1 to Dateityp.GetItemCount
-        Dateityp.Select i
-        printlog " - " & Dateityp.GetSelText
-    next i
-
-    OeffnenDlg.Cancel
-
-    printlog "- All filters from save dialog:"
-    FileSaveAs
-    Kontext "SpeichernDlg"
-    For i = 1 to Dateityp.GetItemCount
-        Dateityp.Select i
-        printlog " - " & Dateityp.GetSelText
-    next i
-
-    SpeichernDlg.Cancel
-
-    Call hCloseDocument
-endcase
-
-'------------------------------------------------------------------------------------------------
diff --git a/testautomation/writer/tools/includes/w_locale_strings2.inc b/testautomation/writer/tools/includes/w_locale_strings2.inc
deleted file mode 100644
index 354bcc44b936..000000000000
--- a/testautomation/writer/tools/includes/w_locale_strings2.inc
+++ /dev/null
@@ -1,394 +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 : helge.delfs@oracle.com
-'*
-'* short description : defining locale dependant strings for language guessing
-'*
-'\***********************************************************************
-function wGetLanguageGuessString(sValue as string, iLanguageCount as integer) as string 'function for getting strings out of this file
-
-    'Variables:
-    DIM WordPreSet as string 'string as it shoud be for words
-    DIM ParagraphPreSet as string 'string as it shoud be for paragraphs
-
-    '///already covered Office languages: ///'
-    '///english     01 ///'
-    '///russian     07 ///'
-    '///dutch       31 ///'
-    '///french      33///'
-    '///spanish     34 ///'
-    '///hungarian   36 ///'
-    '///italian     39 ///'
-    '///swedish     46 ///'
-    '///polish      48 ///'
-    '///german      49 ///'
-    '///slovenian      50 ///'
-    '///german      55 ///'
-
-    '///already covered languages in the test document: ///'
-    '///Case 1: english ///'
-    '///Case 2: portugese///'
-    '///Case 3: russian///'
-    '///Case 4: dutch///'
-    '///Case 5: french///'
-    '///Case 6: spanish///'
-    '///Case 7: hungarian///'
-    '///Case 8: italian///'
-    '///Case 9: swedish///'
-    '///Case 10: polish///'
-    '///Case 11: german///'
-
-    Select Case iSprache        'Detecting Office language
-    Case 01         'Case 01:  english
-        '-----------------------------------------------------------------------
-        Select Case iLanguageCount
-        Case 1: WordPreSet      = "Word is English (USA)"
-            ParagraphPreSet = "Paragraph is English (USA)"
-        Case 2: WordPreSet      = "Word is Portuguese (Portugal)"
-            ParagraphPreSet = "Paragraph is Portuguese (Portugal)"
-        Case 3: WordPreSet      = "Word is Russian"
-            ParagraphPreSet = "Paragraph is Russian"
-        Case 4: WordPreSet      = "Word is Dutch (Netherlands)"
-            ParagraphPreSet = "Paragraph is Dutch (Netherlands)"
-        Case 5: WordPreSet      = "Word is French (France)"
-            ParagraphPreSet = "Paragraph is French (France)"
-        Case 6: WordPreSet      = "Word is Spanish (Spain)"
-            ParagraphPreSet = "Paragraph is Spanish (Spain)"
-        Case 7: WordPreSet      = "Word is Hungarian"
-            ParagraphPreSet = "Paragraph is Hungarian"
-        Case 8: WordPreSet      = "Word is Italian (Italy)"
-            ParagraphPreSet = "Paragraph is Italian (Italy)"
-        Case 9: WordPreSet      = "Word is Swedish (Sweden)"
-            ParagraphPreSet = "Paragraph is Swedish (Sweden)"
-        Case 10:WordPreSet      = "Word is Polish"
-            ParagraphPreSet = "Paragraph is Polish"
-        Case 11:WordPreSet      = "Word is German (Germany)"
-            ParagraphPreSet = "Paragraph is German (Germany)"
-        end select
-        '-----------------------------------------------------------------------
-    Case 07        'Case 07: russian
-        Select Case iLanguageCount
-        Case 1: WordPreSet      = "Язык слова: Английский (США)"
-            ParagraphPreSet = "Язык абзаца: Английский (США)"
-        Case 2: WordPreSet      = "Язык слова: Португальский (Португалия)"
-            ParagraphPreSet = "Язык абзаца: Португальский (Португалия)"
-        Case 3: WordPreSet      = "Язык слова: Русский"
-            ParagraphPreSet = "Язык абзаца: Русский"
-        Case 4: WordPreSet      = "Язык слова: Голландский (Нидерланды)"
-            ParagraphPreSet = "Язык абзаца: Голландский (Нидерланды)"
-        Case 5: WordPreSet      = "Язык слова: Французский (Франция)"
-            ParagraphPreSet = "Язык абзаца: Французский (Франция)"
-        Case 6: WordPreSet      = "Язык слова: Испанский (Испания)"
-            ParagraphPreSet = "Язык абзаца: Испанский (Испания)"
-        Case 7: WordPreSet      = "Язык слова: Венгерский"
-            ParagraphPreSet = "Язык абзаца: Венгерский"
-        Case 8: WordPreSet      = "Язык слова: Итальянский (Италия) "
-            ParagraphPreSet = "Язык абзаца: Итальянский (Италия) "
-        Case 9: WordPreSet      = "Язык слова: Шведский (Швеция)"
-            ParagraphPreSet = "Язык абзаца: Шведский (Швеция)"
-        Case 10:WordPreSet      = "Язык слова: Польский"
-            ParagraphPreSet = "Язык абзаца: Польский"
-        Case 11:WordPreSet      = "Язык слова: Немецкий (Германия)"
-            ParagraphPreSet = "Язык абзаца: Немецкий (Германия)"
-        end select
-        '-----------------------------------------------------------------------
-    Case 31        'Case 31: dutch
-        Select Case iLanguageCount
-        Case 1: WordPreSet      = "Woord is Engels (VS)"
-            ParagraphPreSet = "Alinea is Engels (VS)"
-        Case 2: WordPreSet      = "Woord is Portugees (Portugal)"
-            ParagraphPreSet = "Alinea is Portugees (Portugal)"
-        Case 3: WordPreSet      = "Woord is Russisch"
-            ParagraphPreSet = "Alinea is Russisch"
-        Case 4: WordPreSet      = "Woord is Nederlands (NL)"
-            ParagraphPreSet = "Alinea is Nederlands (NL)"
-        Case 5: WordPreSet      = "Woord is Frans (Frankrijk)"
-            ParagraphPreSet = "Alinea is Frans (Frankrijk)"
-        Case 6: WordPreSet      = "Woord is Spaans (Spanje)"
-            ParagraphPreSet = "Alinea is Spaans (Spanje)"
-        Case 7: WordPreSet      = "Woord is Hongaars"
-            ParagraphPreSet = "Alinea is Hongaars"
-        Case 8: WordPreSet      = "Woord is Italiaans (Italië)"
-            ParagraphPreSet = "Alinea is Italiaans (Italië)"
-        Case 9: WordPreSet      = "Woord is Zweeds (Zweden)"
-            ParagraphPreSet = "Alinea is Zweeds (Zweden)"
-        Case 10:WordPreSet      = "Woord is Pools"
-            ParagraphPreSet = "Alinea is Pools"
-        Case 11:WordPreSet      = "Woord is Duits (Duitsland)"
-            ParagraphPreSet = "Alinea is Duits (Duitsland)"
-        end select
-        '-----------------------------------------------------------------------
-    Case 33        'Case 33: french
-        Select Case iLanguageCount
-        Case 1: WordPreSet      = "Le mot est en Anglais (U.S.A.)"
-            ParagraphPreSet = "Le paragraphe est en Anglais (U.S.A.)"
-        Case 2: WordPreSet      = "Le mot est en Portugais (Portugal)"
-            ParagraphPreSet = "Le paragraphe est en Portugais (Portugal)"
-        Case 3: WordPreSet      = "Le mot est en Russe"
-            ParagraphPreSet = "Le paragraphe est en Russe"
-        Case 4: WordPreSet      = "Le mot est en Néerlandais (Pays-Bas)"
-            ParagraphPreSet = "Le paragraphe est en Néerlandais (Pays-Bas)"
-        Case 5: WordPreSet      = "Le mot est en Français (France)"
-            ParagraphPreSet = "Le paragraphe est en Français (France)"
-        Case 6: WordPreSet      = "Le mot est en Espagnol (Espagne)"
-            ParagraphPreSet = "Le paragraphe est en Espagnol (Espagne)"
-        Case 7: WordPreSet      = "Le mot est en Hongrois"
-            ParagraphPreSet = "Le paragraphe est en Hongrois"
-        Case 8: WordPreSet      = "Le mot est en Italien (Italie)"
-            ParagraphPreSet = "Le paragraphe est en Italien (Italie)"
-        Case 9: WordPreSet      = "Le mot est en Suédois (Suède)"
-            ParagraphPreSet = "Le paragraphe est en Suédois (Suède)"
-        Case 10: WordPreSet     = "Le mot est en Polonais"
-            ParagraphPreSet = "Le paragraphe est en Polonais"
-        Case 11: WordPreSet     = "Le mot est en Allemand (Allemagne)"
-            ParagraphPreSet = "Le paragraphe est en Allemand (Allemagne)"
-        end select
-        '-----------------------------------------------------------------------
-    Case 34        'Case 34: spanish
-        Select Case iLanguageCount
-        Case 1: WordPreSet      = "La palabra está Inglés (Estados Unidos)"
-            ParagraphPreSet = "El párrafo es  Inglés (Estados Unidos)"
-        Case 2: WordPreSet      = "La palabra está Español (España)"
-            ParagraphPreSet = "El párrafo es  Portugués (Portugal)"
-        Case 3: WordPreSet      = "La palabra está Ruso"
-            ParagraphPreSet = "El párrafo es  Ruso"
-        Case 4: WordPreSet      = "La palabra está Holandés (Países Bajos)"
-            ParagraphPreSet = "El párrafo es  Holandés (Países Bajos)"
-        Case 5: WordPreSet      = "La palabra está Francés (Francia)"
-            ParagraphPreSet = "El párrafo es  Francés (Francia)"
-        Case 6: WordPreSet      = "La palabra está Español (España)"
-            ParagraphPreSet = "El párrafo es  Español (España)"
-        Case 7: WordPreSet      = "La palabra está Húngaro"
-            ParagraphPreSet = "El párrafo es  Húngaro"
-        Case 8: WordPreSet      = "La palabra está Italiano (Italia)"
-            ParagraphPreSet = "El párrafo es  Italiano (Italia)"
-        Case 9: WordPreSet      = "La palabra está Sueco (Suecia)"
-            ParagraphPreSet = "El párrafo es  Sueco (Suecia)"
-        Case 10:WordPreSet     = "La palabra está Polaco"
-            ParagraphPreSet = "El párrafo es  Polaco"
-        Case 11:WordPreSet     = "La palabra está Alemán (Alemania)"
-            ParagraphPreSet = "El párrafo es  Alemán (Alemania)"
-        end select
-        '-----------------------------------------------------------------------
-    Case 36        'Case 36: hungarian
-        Select Case iLanguageCount
-        Case 1: WordPreSet      = "A szó: Angol (USA)"
-            ParagraphPreSet = "Bekezdés: Angol (USA)"
-        Case 2: WordPreSet      = "A szó: Portugál (Portugália)"
-            ParagraphPreSet = "Bekezdés: Portugál (Portugália)"
-        Case 3: WordPreSet      = "A szó: Orosz"
-            ParagraphPreSet = "Bekezdés: Orosz"
-        Case 4: WordPreSet      = "A szó: Holland (Hollandia)"
-            ParagraphPreSet = "Bekezdés: Holland (Hollandia)"
-        Case 5: WordPreSet      = "A szó: Francia (Franciaország)"
-            ParagraphPreSet = "Bekezdés: Francia (Franciaország)"
-        Case 6: WordPreSet      = "A szó: Spanyol (Spanyolország)"
-            ParagraphPreSet = "Bekezdés: Spanyol (Spanyolország)"
-        Case 7: WordPreSet      = "A szó: Magyar"
-            ParagraphPreSet = "Bekezdés: Magyar"
-        Case 8: WordPreSet      = "A szó: Olasz (Olaszország)"
-            ParagraphPreSet = "Bekezdés: Olasz (Olaszország)"
-        Case 9: WordPreSet      = "A szó: Svéd (Svédország)"
-            ParagraphPreSet = "Bekezdés: Svéd (Svédország)"
-        Case 10:WordPreSet      = "A szó: Lengyel"
-            ParagraphPreSet = "Bekezdés: Lengyel"
-        Case 11:WordPreSet      = "A szó: Német (Németország)"
-            ParagraphPreSet = "Bekezdés: Német (Németország)"
-        end select
-        '-----------------------------------------------------------------------
-    Case 39        'Case 39: italian
-        Select Case iLanguageCount
-        Case 1: WordPreSet      = "La parola è Inglese (USA)"
-            ParagraphPreSet = "Il paragrafo è Inglese (USA)"
-        Case 2: WordPreSet      = "La parola è Portoghese (Portogallo)"
-            ParagraphPreSet = "Il paragrafo è Portoghese (Portogallo)"
-        Case 3: WordPreSet      = "La parola è Russo"
-            ParagraphPreSet = "Il paragrafo è Russo"
-        Case 4: WordPreSet      = "La parola è Olandese (Paesi Bassi)"
-            ParagraphPreSet = "Il paragrafo è Olandese (Paesi Bassi)"
-        Case 5: WordPreSet      = "La parola è Francese (Francia)"
-            ParagraphPreSet = "Il paragrafo è Francese (Francia)"
-        Case 6: WordPreSet      = "La parola è Spagnolo (Spagna)"
-            ParagraphPreSet = "Il paragrafo è Spagnolo (Spagna)"
-        Case 7: WordPreSet      = "La parola è Ungherese"
-            ParagraphPreSet = "Il paragrafo è Ungherese"
-        Case 8: WordPreSet      = "La parola è Italiano (Italia)"
-            ParagraphPreSet = "Il paragrafo è Italiano (Italia)"
-        Case 9: WordPreSet      = "La parola è Svedese (Svezia)"
-            ParagraphPreSet = "Il paragrafo è Svedese (Svezia)"
-        Case 10: WordPreSet     = "La parola è Polacco"
-            ParagraphPreSet = "Il paragrafo è Polacco"
-        Case 11: WordPreSet     = "La parola è Tedesco (Germania)"
-            ParagraphPreSet = "Il paragrafo è Tedesco (Germania)"
-        end select
-        '-----------------------------------------------------------------------
-    Case 46        'Case 46: swedish
-        Select Case iLanguageCount
-        Case 1: WordPreSet      = "Ordet är  Engelska (USA)"
-            ParagraphPreSet = "Stycket är  Engelska (USA)"
-        Case 2: WordPreSet      = "Ordet är  Portugisiska (Portugal)"
-            ParagraphPreSet = "Stycket är  Portugisiska (Portugal)"
-        Case 3: WordPreSet      = "Ordet är  Ryska"
-            ParagraphPreSet = "Stycket är  Ryska"
-        Case 4: WordPreSet      = "Ordet är  Svenska (Sverige)"
-            ParagraphPreSet = "Stycket är  Holländska (Nederländerna)"
-        Case 5: WordPreSet      = "Ordet är  Franska (Frankrike)"
-            ParagraphPreSet = "Stycket är  Franska (Frankrike)"
-        Case 6: WordPreSet      = "Ordet är  Spanska (Spanien)"
-            ParagraphPreSet = "Stycket är  Spanska (Spanien)"
-        Case 7: WordPreSet      = "Ordet är  Ungerska"
-            ParagraphPreSet = "Stycket är  Ungerska"
-        Case 8: WordPreSet      = "Ordet är  Italienska (Italien)"
-            ParagraphPreSet = "Stycket är  Italienska (Italien)"
-        Case 9: WordPreSet      = "Ordet är  Svenska (Sverige)"
-            ParagraphPreSet = "Stycket är  Svenska (Sverige)"
-        Case 10:WordPreSet      = "Ordet är  Polska"
-            ParagraphPreSet = "Stycket är  Polska"
-        Case 11:WordPreSet      = "Ordet är  Tyska (Tyskland)"
-            ParagraphPreSet = "Stycket är  Tyska (Tyskland)"
-        end select
-        '-----------------------------------------------------------------------
-    Case 48        'Case 48: polish
-        Select Case iLanguageCount
-        Case 1: WordPreSet      = "Wyraz jest Angielski (USA)"
-            ParagraphPreSet = "Akapit jest Angielski (USA)"
-        Case 2: WordPreSet      = "Wyraz jest Portugalski (Portugalia)"
-            ParagraphPreSet = "Akapit jest Portugalski (Portugalia)"
-        Case 3: WordPreSet      = "Wyraz jest Rosyjski"
-            ParagraphPreSet = "Akapit jest Rosyjski"
-        Case 4: WordPreSet      = "Wyraz jest Holenderski (Holandia)"
-            ParagraphPreSet = "Akapit jest Holenderski (Holandia)"
-        Case 5: WordPreSet      = "Wyraz jest Francuski (Francja)"
-            ParagraphPreSet = "Akapit jest Francuski (Francja)"
-        Case 6: WordPreSet      = "Wyraz jest Hiszpański (Hiszpania)"
-            ParagraphPreSet = "Akapit jest Hiszpański (Hiszpania)"
-        Case 7: WordPreSet      = "Wyraz jest Węgierski"
-            ParagraphPreSet = "Akapit jest Węgierski"
-        Case 8: WordPreSet      = "Wyraz jest Włoski (Włochy)"
-            ParagraphPreSet = "Akapit jest Włoski (Włochy)"
-        Case 9: WordPreSet      = "Wyraz jest Szwedzki (Szwecja)"
-            ParagraphPreSet = "Akapit jest Szwedzki (Szwecja)"
-        Case 10:WordPreSet      = "Wyraz jest Polski"
-            ParagraphPreSet = "Akapit jest Polski"
-        Case 11:WordPreSet      = "Wyraz jest Niemiecki (Niemcy)"
-            ParagraphPreSet = "Akapit jest Niemiecki (Niemcy)"
-        end select
-        '-----------------------------------------------------------------------
-    Case 49        'Case 49: german
-        Select Case iLanguageCount
-        Case 1: WordPreSet      = "Wort ist Englisch (USA)"
-            ParagraphPreSet = "Absatz ist Englisch (USA)"
-        Case 2: WordPreSet      = "Wort ist Portugiesisch (Portugal)"
-            ParagraphPreSet = "Absatz ist Portugiesisch (Portugal)"
-        Case 3: WordPreSet      = "Wort ist Russisch"
-            ParagraphPreSet = "Absatz ist Russisch"
-        Case 4: WordPreSet      = "Wort ist Niederländisch (Niederlande)"
-            ParagraphPreSet = "Absatz ist Niederländisch (Niederlande)"
-        Case 5: WordPreSet      = "Wort ist Französisch (Frankreich)"
-            ParagraphPreSet = "Absatz ist Französisch (Frankreich)"
-        Case 6: WordPreSet      = "Wort ist Spanisch (Spanien)"
-            ParagraphPreSet = "Absatz ist Spanisch (Spanien)"
-        Case 7: WordPreSet      = "Wort ist Ungarisch"
-            ParagraphPreSet = "Absatz ist Ungarisch"
-        Case 8: WordPreSet      = "Wort ist Italienisch (Italien)"
-            ParagraphPreSet = "Absatz ist Italienisch (Italien)"
-        Case 9: WordPreSet      = "Wort ist Schwedisch (Schweden)"
-            ParagraphPreSet = "Absatz ist Schwedisch (Schweden)"
-        Case 10:WordPreSet      = "Wort ist Polnisch"
-            ParagraphPreSet = "Absatz ist Polnisch"
-        Case 11:WordPreSet      = "Wort ist Deutsch (Deutschland)"
-            ParagraphPreSet = "Absatz ist Deutsch (Deutschland)"
-        end select
-        '-----------------------------------------------------------------------
-    Case 50        'Case 50: slovenian
-       Select Case iLanguageCount
-       Case 1: WordPreSet      = "Jezik besede je angleški (ZDA)"
-           ParagraphPreSet = "Jezik odstavka je angleški (ZDA)"
-       Case 2: WordPreSet      = "Jezik besede je portugalski (Portugalska)"
-           ParagraphPreSet = "Jezik odstavka je portugalski (Portugalska)"
-       Case 3: WordPreSet      = "Jezik besede je ruski"
-           ParagraphPreSet = "Jezik odstavka je ruski"
-       Case 4: WordPreSet      = "Jezik besede je nizozemski (Nizozemska)"
-           ParagraphPreSet = "Jezik odstavka je nizozemski (Nizozemska)"
-       Case 5: WordPreSet      = "Jezik besede je francoski (Francija)"
-           ParagraphPreSet = "Jezik odstavka je francoski (Francija)"
-       Case 6: WordPreSet      = "Jezik besede je španski (Španija)"
-           ParagraphPreSet = "Jezik odstavka je španski (Španija)"
-       Case 7: WordPreSet      = "Jezik besede je madžarski"
-           ParagraphPreSet = "Jezik odstavka je madžarski"
-       Case 8: WordPreSet      = "Jezik besede je italijanski (Italija)"
-           ParagraphPreSet = "Jezik odstavka je italijanski (Italija)"
-       Case 9: WordPreSet      = "Jezik besede je švedski (Švedska)"
-           ParagraphPreSet = "Jezik odstavka je švedski (Švedska)"
-       Case 10:WordPreSet      = "Jezik besede je poljski"
-           ParagraphPreSet = "Jezik odstavka je poljski"
-       Case 11:WordPreSet      = "Jezik besede je nemški (Nemčija)"
-           ParagraphPreSet = "Jezik odstavka je nemški (Nemčija)"
-       end select
-       '-----------------------------------------------------------------------
-    Case 55        'Case 55: Portuguese (Brazil)
-        Select Case iLanguageCount
-        Case 1: WordPreSet      = "a palavra é Inglês (EUA)"
-            ParagraphPreSet = "O parágrafo é Inglês (EUA)"
-        Case 2: WordPreSet      = "a palavra é Português (Brasil)"
-            ParagraphPreSet = "O parágrafo é Português (Portugal)"
-        Case 3: WordPreSet  	= "a palavra é Russo"
-            ParagraphPreSet = "O parágrafo é Russo"
-        Case 4: WordPreSet      = "a palavra é Holandês (Holanda)"
-            ParagraphPreSet = "O parágrafo é Holandês (Holanda)"
-        Case 5: WordPreSet      = "a palavra é Francês (França)"
-            ParagraphPreSet = "O parágrafo é Francês (França)"
-        Case 6: WordPreSet      = "a palavra é Português (Brasil)"
-            ParagraphPreSet = "O parágrafo é Espanhol (Espanha)"
-        Case 7: WordPreSet      = "a palavra é Húngaro"
-            ParagraphPreSet = "O parágrafo é Húngaro"
-        Case 8: WordPreSet      = "a palavra é Italiano (Itália)"
-            ParagraphPreSet = "O parágrafo é Italiano (Itália)"
-        Case 9: WordPreSet      = "a palavra é Sueco (Suécia)"
-            ParagraphPreSet = "O parágrafo é Sueco (Suécia)"
-        Case 10:WordPreSet      = "a palavra é Polonês"
-            ParagraphPreSet = "O parágrafo é Polonês"
-        Case 11:WordPreSet      = "a palavra é Alemão (Alemanha)"
-            ParagraphPreSet = "O parágrafo é Alemão (Alemanha)"
-        end select
-        '-----------------------------------------------------------------------
-    case else
-        'if Office language is not already covered: warning appears.
-        Warnlog "Language has to be added to testcase. Please see w_locale_strings2.inc for further details"
-        QAErrorlog "Please add " & iSprache & " to file!"
-        wGetLanguageGuessString = ""
-    end select
-    '-----------------------------------------------------------------------
-    'distinguishing if string for word or string for paragraph is handed over
-    if sValue = "WordPreSet" then
-        wGetLanguageGuessString = WordPreSet
-    elseif sValue = "ParagraphPreSet" then
-        wGetLanguageGuessString = ParagraphPreSet
-    end if
-
-end function
diff --git a/testautomation/writer/tools/includes/w_tool1.inc b/testautomation/writer/tools/includes/w_tool1.inc
deleted file mode 100644
index 17f5432edff3..000000000000
--- a/testautomation/writer/tools/includes/w_tool1.inc
+++ /dev/null
@@ -1,1041 +0,0 @@
-'*******************************************************************************
-' 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 : helge.delfs@oracle.com
-'*
-'* short description : Put description here
-'*
-' \*****************************************************************************
-
-sub hInhalte
-
-    Dim Anzahl as Integer
-    Dim i as Integer
-
-    if ( hUseAsyncSlot( "EditCut" ) = -1 ) then
-        Warnlog "Unable to execute 'Edit / Cut'!. Maybe object not selected!"
-        exit sub
-    endif
-
-    Sleep 1
-    Call gMouseClick ( 99,80 )
-    Sleep 1
-
-    hUseAsyncSlot( "EditPasteSpecialWriter" )
-    
-    Kontext "InhaltEinfuegen"
-    if ( InhaltEinfuegen.exists( 1 ) ) then
-        Anzahl = Auswahl.GetItemCount
-        for i = 1 to Anzahl
-            Auswahl.Select i
-            InhaltEinfuegen.OK
- 
-            if ( hUseAsyncSlot( "EditDeleteContents" ) = -1 ) then
-                Warnlog "Unable to execute Edit / Delete / Contents ! Entry: " + i
-            else
-                Call gMouseClick ( 99,80 )
-                if ( hUseAsyncSlot( "EditPasteSpecialWriter" ) = -1 ) then
-                    warnlog "Unable to execute Edit / Paste / Special!"
-                endif
-            endif
-            Kontext "InhaltEinfuegen"
-        next i
-        InhaltEinfuegen.Cancel
-    else
-        warnlog( "Dialog <InhaltEinfuegen> is not available" )
-    endif     
-end sub
-
-' -----------------------------------------------------------------------
-
-sub hObjektmalen
-    Kontext "DocumentWriter"
-    DocumentWriter.MouseDown 35, 25
-    DocumentWriter.MouseMove 70, 60
-    DocumentWriter.MouseUp 70, 60
-    Sleep 1
-end sub
-
-' -----------------------------------------------------------------------
-
-sub hClipboarden
-    
-    if ( hUseAsyncSlot( "EditCut" ) = -1 ) then
-        Warnlog "Unable to Cut object. 'Edit / Cut' is disabled!"
-        exit sub
-    endif
-
-    Call wTypeKeys "<Escape>"
-    hUseAsyncSlot( "EditPaste" )
-
-    hUseAsyncSlot( "EditCopy" )
-    Call wTypeKeys "<Escape>"
-
-    hUseAsyncSlot( "EditPaste" )
-
-    Call wTypeKeys "<Delete>"
-    WaitSlot() ' NOOP
-    Call wTypeKeys "<Escape>"
-    WaitSlot() ' NOOP
-end sub
-
-' -----------------------------------------------------------------------
-
-sub FeldbefehlAendernUndKontrollieren ( Selektion as Integer )
-
-    Dim Merk_dir_das as String
-
-    Call wTypeKeys "<Left>"
-    EditFields
-    Kontext "FeldbefehlBearbeitenDokument"
-    if ( FeldbefehlBearbeitenDokument.exists( 1 ) ) then
-        if Formatliste.IsVisible AND Formatliste.IsEnabled then
-            Formatliste.Select Selektion
-            Merk_dir_das=Formatliste.GetSelText
-        else
-            if Zahlenformat.IsVisible AND Zahlenformat.IsEnabled then
-                Zahlenformat.Select Selektion
-                Merk_dir_das=Zahlenformat.GetSelText
-            else
-                Auswahl.Select 2
-            end if
-        end if
-        FeldbefehlBearbeitenDokument.OK
-    else
-        warnlog( "Dialog <FeldbefehlBearbeitenDokument> not available" )
-    endif
-
-    EditFields
-    Kontext "FeldbefehlBearbeitenDokument"
-    if ( FeldbefehlBearbeitenDokument.exists( 1 ) ) then
-        if Formatliste.IsVisible AND Formatliste.IsEnabled then
-            if Formatliste.GetSelText <> Merk_dir_das then Warnlog "Changing the field has not been worked. Format " + Merk_dir_das + "   Is : Format " + Formatliste.GetSelText
-        else
-            if Zahlenformat.IsVisible AND Zahlenformat.IsEnabled then
-                if Zahlenformat.GetSelText <> Merk_dir_das then Warnlog "Changing the field has not been worked. Format " + Merk_dir_das + "   Is : Format " + Zahlenformat.GetSelText
-            else
-                if Auswahl.GetSelIndex <> 2 then Warnlog "Changing the field has not been worked."
-            end if
-        end if
-        FeldbefehlBearbeitenDokument.OK
-    else
-        warnlog( "Dialog <FeldbefehlBearbeitenDokument> not available" )
-    endif
-    Call wTypeKeys "<End>"
-    WaitSlot() ' NOOP
-    Call wTypeKeys "<Return>"
-end sub
-
-' -----------------------------------------------------------------------
-
-sub hEinfuegenFloatingFrame
-
-    InsertFloatingFrame
-
-    Kontext "TabEigenschaften"
-    if ( Tabeigenschaften.exists( 2 ) ) then
-        FrameName.SetText "Hallo"
-        Inhalt.SetText ConvertPath ( gTesttoolpath + "input\desktop\frameset.htm" )
-        hCloseDialog( TabEigenschaften, "ok" )
-    else
-        warnlog( "Failed to open <TabEigenschaften>" )
-    endif
-    
-end sub
-
-' -----------------------------------------------------------------------
-
-sub hEinfuegenRahmen
-
-    InsertFrame
-
-    Kontext
-    if ( Active.exists( 2 ) ) then
-        Active.SetPage TabType
-        Kontext "TabType"
-        hCloseDialog( TabType, "ok" )
-    else
-        warnlog( "Failed to open <TabType>" )
-    endif
-
-end sub
-
-' -----------------------------------------------------------------------
-
-sub hEinfuegenChart
-
-    InsertObjectChart
-
-    Kontext "AutoformatDiagramm1"
-    if ( AutoformatDiagramm1.exists( 2 ) ) then
-        hClickButton( Fertigstellen )
-    else
-        warnlog( "Failed to open <AutoformatDiagramm1>" )
-    endif
-    
-end sub
-
-' -----------------------------------------------------------------------
-
-sub hLegendeEinfugen
-    Kontext "Toolbar"
-    Zeichnen.TearOff
-    Kontext "Drawbar"
-    Sleep 2
-    Legende.Click
-    Kontext "DocumentWriter"
-    DocumentWriter.MouseDown 20, 20
-    DocumentWriter.MouseMove 40, 40
-    DocumentWriter.MouseUp 40, 40
-    Kontext "Drawbar"
-    Drawbar.Close
-end sub
-
-' -----------------------------------------------------------------------
-
-sub wWriterKickBoxAway
-    ' Call this routine if you don't expect a messagebox
-    ' expect on an error. Closes messagebox and gives a Warnlog
-    Kontext "Active"
-    if Active.Exists then
-        if Active.GetRT = 304 then
-            Warnlog Active.Gettext
-            try
-                Active.Ok
-            catch
-                Active.Yes
-            endcatch
-        end if
-    end if
-end sub
-
-'----------------------------------------------------------------
-
-sub tCheckAutotextInGroup(NumberOff as integer, NumberVariant as integer)
-    Dim j as integer
-    for j = 1 to NumberOff
-        Liste.Select j + NumberVariant
-        printlog "- " & Liste.GetSelText
-        Wait 500
-        try
-            AutoText.Ok
-            Wait 100
-            Kontext "Active"    ' Messagebox bei Basic-Fehler
-            if Active.Exists then
-                Warnlog Active.Gettext + "Group " + NumberVariant + " Entry " + j
-                Active.Ok
-            end if
-            wait 500
-            Kontext "Eingabefeld"
-            if Eingabefeld.Exists then Eingabefeld.Cancel
-            wait 500
-            Call wTypeKeys "<Mod1 a>"
-            EditCopy
-            if GetClipboard = "" then Warnlog "No autotext inserted. Variant: "+ NumberVariant + "  " + j
-        catch
-            Warnlog "Variant "+ NumberVariant + " " + j +" has a Problem."
-        endcatch
-        Call wTypeKeys "<Delete>"  ' only text
-        Call wMarkObjects(TRUE)
-        EditAutotext
-        Kontext "Active"
-        if active.Exists then
-            QAErrorlog Active.Gettext
-            Active.Ok
-        end if
-        Kontext "AutoText"
-        if not Vorschau_anzeigen.IsChecked then Warnlog "Preview isn't checked anymore!"
-    next j
-end sub
-
-'----------------------------------------------------------------
-
-sub hMalZeichnenMitSelektion ( xS, yS, xE, yE )
-    Select Case gApplication
-    Case "WRITER"
-        Kontext "DocumentWriter"
-        DocumentWriter.MouseDown ( xS, yS )
-        DocumentWriter.MouseMove ( xE, yE )
-        DocumentWriter.MouseUp   ( xE, yE )
-
-    Case "HTML"
-        Kontext "DocumentWriterWeb"
-        DocumentWriterWeb.MouseDown ( xS, yS )
-        DocumentWriterWeb.MouseMove ( xE, yE )
-        DocumentWriterWeb.MouseUp   ( xE, yE )
-
-    Case "MASTERDOCUMENT"
-        Kontext "DocumentMasterDoc"
-        DocumentMasterDoc.MouseDown ( xS, yS )
-        DocumentMasterDoc.MouseMove ( xE, yE )
-        DocumentMasterDoc.MouseUp   ( xE, yE )
-
-    end select
-    WaitSlot() ' NOOP
-end sub
-
-'----------------------------------------------------------------
-
-sub hMalZeichnen ( xS, yS, xE, yE )
-    Select Case gApplication
-    Case "WRITER"
-        Kontext "DocumentWriter"
-        DocumentWriter.MouseDown ( xS, yS )
-        DocumentWriter.MouseMove ( xE, yE )
-        DocumentWriter.MouseUp   ( xE, yE )
-        WaitSlot() ' NOOP
-        if DocumentWriter.IsEnabled then Call wTypeKeys "<Escape>"
-
-    Case "HTML"
-        Kontext "DocumentWriterWeb"
-        DocumentWriterWeb.MouseDown ( xS, yS )
-        DocumentWriterWeb.MouseMove ( xE, yE )
-        DocumentWriterWeb.MouseUp   ( xE, yE )
-        WaitSlot() ' NOOP
-        if DocumentWriterWeb.IsEnabled then DocumentWriterWeb.TypeKeys "<Escape>"
-
-    Case "MASTERDOCUMENT"
-        Kontext "DocumentMasterDoc"
-        DocumentMasterDoc.MouseDown ( xS, yS )
-        DocumentMasterDoc.MouseMove ( xE, yE )
-        DocumentMasterDoc.MouseUp   ( xE, yE )
-        WaitSlot() ' NOOP
-        if DocumentMasterDoc.IsEnabled then DocumentMasterDoc.TypeKeys "<Escape>"
-
-    end select
-end sub
-
-'----------------------------------------------------------------
-
-sub sMenufunktionen(Fuer_Was as string)
-
-    const RC_FAILURE = -1
-    Dim i as integer
-
-    Kontext "FormControls"
-    Sleep 3
-    for i = 1 to 20
-        if ControlProperties.IsEnabled then
-            ControlProperties.Click          ' Formularfunktion über Toolbox abschalten
-            i=21
-        else
-            Sleep 1
-            if i >= 20 then
-                if gPlatform = "osx" then
-                    Warnlog "Mac OS X (Aqua): Drawing function does not draw anything"
-                else
-                    Warnlog "Button (" + i + ")" + Fuer_Was + " is disabled "
-                end if
-            end if
-        end if
-    next i
-
-    Kontext
-    if ( hUseAsyncSlot( "FormatControl" ) <> RC_FAILURE ) then
-        
-        Kontext "ControlPropertiesDialog"
-        if ControlPropertiesDialog.Exists( 2 ) then
-            hCloseDialog( ControlPropertiesDialog, "close" )
-        endif
-        printlog Fuer_Was
-    else
-        if gPlatform = "osx" then
-            Warnlog "Mac OS X (Aqua): Drawing function does not draw anything"
-        else
-            Warnlog "  - Controlfieldproperties "+ Fuer_Was +" from Menu not available!"
-        end if
-    endif
-
-    Call wTypeKeys "<Escape>"
-    Kontext "FormControls"
-end sub
-
-'----------------------------------------------------------------
-
-sub sAutopilot_Groupelement
-    Kontext "AutopilotGroupelement"
-    if AutopilotGroupelement.Exists then
-        printlog "  -Autopilot-Group-Box Page 1"
-        Kontext "TabGroupBoxData"
-        Call DialogTest ( TabGroupBoxData )
-        Names.Settext "Optionsfeld 1"
-        if AddTo.IsEnabled then
-            AddTo.Click
-        else
-            Warnlog "Entry couldn't be overtaken in 1st Window of the Group Box-Autopilot!"
-            Kontext "AutopilotGroupelement"
-            CancelButton.Click
-        end if
-        Sleep 3
-        Kontext "AutopilotGroupelement"
-        if NextButton.IsEnabled then
-            NextButton.Click
-        else
-            Warnlog "In 1st Window the 'Next'-button is disabled!"
-            CancelButton.Click
-        end if
-        Sleep 3
-        printlog "  -Autopilot-Group-Box Page 2"
-        Kontext "TabDefaultFieldSelection"
-        Call DialogTest ( TabDefaultFieldSelection )
-        Kontext "AutopilotGroupelement"
-        if NextButton.IsEnabled then
-            NextButton.Click
-        else
-            Warnlog "In 2nd Window the 'Next'-button is disabled!!"
-            AutopilotGroupelement.Cancel
-        end if
-        Sleep 3
-        printlog "  -Autopilot-Group-Box Page 3"
-        Kontext "TabDatabaseValues"
-        Call DialogTest ( TabDatabaseValues )
-        Kontext "AutopilotGroupelement"
-        if NextButton.IsEnabled then
-            NextButton.Click
-        else
-            Warnlog "In 3rd Window the 'Next'-button is disabled!"
-            AutopilotGroupelement.Cancel
-        end if
-        Sleep 3
-        printlog "  -Autopilot-Group-Box Page 4"
-        Kontext "TabCreateOptionGroup"
-        Call DialogTest ( TabCreateOptionGroup )
-        Kontext "AutopilotGroupelement"
-        if CreateButton.IsEnabled then
-            CreateButton.Click
-        else
-            Warnlog "In 4th Window the 'Create'-button is disabled!"
-            AutopilotGroupelement.Cancel
-        end if
-    else
-        Warnlog "- Autopilot for Group Box didn't appear!"
-    end if
-    Sleep 2
-end sub
-
-'----------------------------------------------------------------
-
-sub sAutopilot_ListboxCombobox(WhichBox as String)
-    Dim iCount as integer
-    iCount = 1
-    Kontext "AutoPilotListComboBox"
-    if AutoPilotListComboBox.Exists then
-        printlog "  -Autopilot-Listbox Page 1"
-        Kontext "TabListBoxData"
-        if TabListboxData.Exists then
-            Call DialogTest( TabListBoxData )
-            DataSource.Select 1
-            Do
-                if iCount >= 15 then exit do
-                try
-                    Table.Select 1
-                    exit do
-                catch
-                    wait 500
-                    printlog "  - attempt " & i & " to select table"
-                    iCount = iCount + 1
-                endcatch
-            Loop
-            
-            if Table.GetItemCount > 0 then
-                Table.Select 1
-            else
-                Kontext "Messagebox"
-                Do
-                    if Messagebox.Exists then
-                        Warnlog Messagebox.Gettext
-                        Messagebox.Ok
-                    else
-                        Warnlog "No table selectable!"
-                        exit do
-                    end if
-                Loop
-                Kontext "AutoPilotListComboBox"
-                CancelButton.Click
-                exit sub
-            end if
-        end if
-        Sleep 5
-        Kontext "AutoPilotListComboBox"
-        if NextButton.IsEnabled then
-            NextButton.Click
-            printlog "  -Autopilot-Listbox Page 2"
-            Kontext "TabTableSelection"
-            Call DialogTest ( TabTableSelection )
-            if TableSelection.GetItemCount > 0 then
-                TableSelection.Select 1
-                Kontext "AutoPilotListComboBox"
-                if NextButton.IsEnabled then
-                    NextButton.Click
-                    printlog "  -Autopilot-Listbox Page 3"
-                    Kontext "TabFieldSelection"
-                    Call DialogTest ( TabFieldSelection )
-                    ExistingFields.Select 1
-                    Kontext "AutoPilotListComboBox"
-                    if NextButton.IsEnabled then
-                        NextButton.Click
-                        Select Case Ucase(WhichBox)
-                        Case "LISTBOX"
-                            printlog "  -Autopilot-Listbox Page 4"
-                            Kontext "TabFieldLink"
-                            Call DialogTest ( TabFieldLink )
-                        Case "COMBO"
-                            Kontext "TabDatabaseField"
-                            Call DialogTest ( TabDatabaseField )
-                        end select
-                        Kontext "AutoPilotListComboBox"
-                        CancelButton.Click
-                    else
-                        Warnlog "Next-Button on 3rd Tabpage disabled!"
-                        CancelButton.Click
-                        exit sub
-                    end if
-                else
-                    Warnlog "Next-Button on Second Tabpage disabled!"
-                    CancelButton.Click
-                    exit sub
-                end if
-            else
-                Warnlog "Unable to select table on second tabpage!"
-                CancelButton.Click
-                exit sub
-            end if
-        else
-            Warnlog "Next-Button on first Tabpage disabled!"
-            CancelButton.Click
-            Exit sub
-        end if
-    else
-        Warnlog "Autopilot is not up!"
-    end if
-end sub
-
-'----------------------------------------------------------------
-
-sub sAutopilotTableElement
-    Kontext "AutopilotTableElement"
-    if AutopilotTableElement.Exists then
-        Call DialogTest ( AutopilotTableElement )
-        Kontext "TabListBoxData"
-        if TabListboxData.Exists then
-            Call DialogTest( TabListBoxData )
-            DataSource.Select 1
-            if Table.GetItemCount > 0 then
-                Table.Select 1
-            else
-                Kontext "Messagebox"
-                if Messagebox.Exists then
-                    Warnlog Messagebox.Gettext
-                    Messagebox.Ok
-                else
-                    Warnlog "No table selectable!"
-                end if
-                Kontext "AutopilotTableElement"
-                CancelButton.Click
-                exit sub
-            end if
-        end if
-        Kontext "AutopilotTableElement"
-        CancelButton.Click
-    else
-        Warnlog "Autopilot Table Element is not up"
-    end if
-end sub
-
-' *****************************************************
-' ************* Subroutines for Fields ****************
-' *****************************************************
-
-function uTabDokument as Integer
-    Dim i : Dim j : Dim k : Dim Ende : Dim NichtMachen
-    Dim Zaehler
-    Dim AlterWert as String : Dim Naechster as String
-
-    printlog "  - Tabpage Document"
-    try
-        Kontext
-        Active.SetPage TabDokumentFeldbefehle
-        Kontext "TabDokumentFeldbefehle"
-        for i=1 to Feldtyp.GetItemCount
-            Feldtyp.Select i
-            Sleep 1
-            if Formatliste.IsVisible then
-                if Formatliste.IsEnabled then
-                    if Auswahl.IsEnabled then
-                        for j=1 to Auswahl.GetItemCount
-                            Auswahl.Select j
-                            for k=1 to Formatliste.GetItemCount
-                                Formatliste.Select k
-                                Zaehler=Zaehler+1
-                                Einfuegen.Click
-                            next k
-                            k=0
-                        next j
-                        j=0
-                    else
-                        for k=1 to Formatliste.GetItemCount
-                            Formatliste.Select k
-                            Zaehler=Zaehler+1
-                            Einfuegen.Click
-                        next k
-                        k=0
-                    end if
-                else
-                    if Auswahl.IsEnabled then
-                        for j=1 to Auswahl.GetItemCount
-                            Auswahl.Select j
-                            Zaehler=Zaehler+1
-                            Einfuegen.Click
-                        next j
-                        j=0
-                    end if
-                end if
-            else
-                if Zahlenformat.IsEnabled then
-                    if Auswahl.IsEnabled then
-                        for j=1 to Auswahl.GetItemCount
-                            Auswahl.Select j
-                            for k=1 to Zahlenformat.GetItemCount
-                                Zahlenformat.Select k
-                                BeseitigeTabZahlen
-                                Zaehler=Zaehler+1
-                                Einfuegen.Click
-                            next k
-                            k=0
-                        next j
-                        j=0
-                    else
-                        for k=1 to Zahlenformat.GetItemCount
-                            Zahlenformat.Select k
-                            BeseitigeTabZahlen
-                            Zaehler=Zaehler+1
-                            Einfuegen.Click
-                        next k
-                        k=0
-                    end if
-                else
-                    if Auswahl.IsEnabled then
-                        for j=1 to Auswahl.GetItemCount
-                            Auswahl.Select j
-                            Zaehler=Zaehler+1
-                            Einfuegen.Click
-                        next j
-                        j=0
-                    end if
-                end if
-            end if
-            Sleep 1
-        next i
-        printlog "    here are " + Zaehler + " Fields selectable"
-    catch
-        Exceptlog
-        Warnlog "Tabpage Document: Error in variant " + i + "  " + j + "  " + k
-    endcatch
-    uTabDokument = Zaehler
-end function
-
-' -----------------------------------------------------------------------
-
-function uTabReferenzen as Integer
-    Dim i : Dim Zaehler
-
-    printlog "  - Tabpage Reference"
-    try
-        Zaehler = 0 : i=0
-        Kontext
-        Active.SetPage TabReferenzen
-        Kontext "TabReferenzen"
-        if NOT NameFeld.IsEnabled then Feldtyp.Select 2
-        NameFeld.SetText "Testtool"
-        TabReferenzen.OK
-        Feldtyp.Select 1
-        if NameFeld.IsEnabled then Feldtyp.Select 2
-        for i=1 to Formatliste.GetItemCount
-            Formatliste.Select i
-            Zaehler=Zaehler+1
-            if Einfuegen.IsEnabled then Einfuegen.Click
-            Sleep 1
-        next i
-        printlog "  - here are " + Zaehler + " Fields selectable"
-    catch
-        Exceptlog
-        Warnlog "Tabpage References: Error in Listentry Type " + i
-    endcatch
-    uTabReferenzen = Zaehler
-end function
-
-' -----------------------------------------------------------------------
-
-function uTabFunktionen as Integer
-    Dim i : Dim j : Dim k : Dim Ende : Dim NichtMachen
-    Dim Zaehler, x as integer
-    Dim weiter as Boolean
-    Dim AlterWert as String : Dim Naechster as String
-
-    printlog "  - Tabpage Function"
-    try
-        Zaehler = 0 : i=0 : j=0 : k= 0
-        Kontext
-        Active.SetPage TabFunktionen
-        Kontext "TabFunktionen"
-        for i=1 to Feldtyp.GetItemCount
-            Feldtyp.Select i
-            weiter = TRUE
-            if Formatliste.IsVisible AND Formatliste.IsEnabled then
-                for j=1 to FormatListe.GetItemCount
-                    FormatListe.Select j
-                    Platzhalter.SetText "Ein"
-                    Hinweis.SetText "Test"
-                    Zaehler=Zaehler+1
-                    if Einfuegen.IsEnabled then Einfuegen.Click
-                    weiter = FALSE
-                next j
-                j=0
-            else
-                if Dann.IsVisible AND Dann.IsEnabled then
-                    Bedingung.SetText "Hallo"
-                    Dann.SetText "Ein"
-                    Sonst.SetText "Test"
-                    Zaehler=Zaehler+1
-                    if Einfuegen.IsEnabled then Einfuegen.Click
-                    weiter = FALSE
-                end if
-
-                if weiter = TRUE then
-                    if ( Hinweis.IsVisible AND Hinweis.IsEnabled ) AND NOT Namefeld.IsEnabled then
-                        Hinweis.SetText "Testtool"
-                        Zaehler=Zaehler+1
-                        Einfuegen.Click
-                        Kontext "Eingabefeld"
-                        if Eingabefeld.Exists then
-                            Eingabefeld.OK
-                        else
-                            Warnlog "The textfield is missing in Variant " + i + " " + j + " " + k + " !"
-                        end if
-                        Kontext "TabFunktionen"
-                        weiter = FALSE
-                    end if
-                end if
-
-                if weiter = TRUE then
-                    if MakroButton.IsEnabled then
-                        MakroButton.Click
-                        ' if no JRE is installed a messagebox appears
-                        Do
-                            x = x + 1
-                            Kontext "Active"
-                            if Active.Exists then
-                                if Active.GetRT = 304 then
-                                    if x = 1 then Warnlog Active.Gettext
-                                    Active.Ok
-                                else
-                                    exit do
-                                end if
-                            else
-                                exit do
-                            end if
-                        Loop
-                        Kontext "Makro"
-                        if Ausfuehren.IsEnabled then
-                            Ausfuehren.Click
-                        else
-                            Makro.Cancel
-                        end if
-                        Kontext "TabFunktionen"
-                        Zaehler=Zaehler+1
-                        if Einfuegen.IsEnabled then Einfuegen.Click
-                        weiter = FALSE
-                    end if
-                end if
-
-                if weiter = TRUE then
-                    if Bedingung.IsEnabled AND TextEinfuegen.IsEnabled then
-                        Bedingung.SetText "Ein"
-                        TextEinfuegen.SetText "Test"
-                        Zaehler=Zaehler+1
-                        if Einfuegen.IsEnabled then Einfuegen.Click
-                        weiter = FALSE
-                    end if
-                end if
-
-                if weiter = TRUE then
-                    if Bedingung.IsEnabled AND NOT Wert.IsEnabled then
-                        Bedingung.SetText "Ein Test"
-                        Zaehler=Zaehler+1
-                        if Einfuegen.IsEnabled then Einfuegen.Click
-                        weiter = FALSE
-                    end if
-                end if
-            end if
-            Sleep 1
-        next i
-        printlog "  - here are " + Zaehler + " Fields selectable"
-    catch
-        Exceptlog
-        Warnlog "Tabpage Functions: Error in entry type " + i + " "  + j
-    endcatch
-    uTabFunktionen = Zaehler
-end function
-
-' -----------------------------------------------------------------------
-
-function uTabDokumentinfo as Integer
-    Dim i : Dim j : Dim k : Dim Ende : Dim NichtMachen
-    Dim Zaehler
-    Dim AlterWert as String : Dim Naechster as String
-
-    printlog "  - Tabpage DocInformation"
-    try
-        Zaehler = 0 : i=0 : j=0 : k= 0
-        Kontext
-        Active.SetPage TabDokumentInfoFeldbefehle
-        Kontext "TabDokumentInfoFeldbefehle"
-
-        for i=1 to 20
-            AlterWert = Feldtyp.GetText
-            Feldtyp.TypeKeys "<Down>"
-            Naechster = Feldtyp.GetText
-            Feldtyp.TypeKeys "<Up>"
-            Feldtyp.TypeKeys "<Add>"
-            Feldtyp.TypeKeys "<Down>"
-            if Feldtyp.GetText <> Naechster then NichtMachen=i
-            Feldtyp.TypeKeys "<Up>"
-            Feldtyp.TypeKeys "<Down>"
-            if Feldtyp.GetText = AlterWert then
-                Ende = i
-                i=21
-            end if
-            Sleep 1
-        next i
-        Feldtyp.TypeKeys "<Up>", Ende+1
-
-        i=0
-        for i=1 to Ende         ' Alle Feldtypen
-            Sleep 1
-            if Auswahl.IsEnabled then
-                for j=1 to Auswahl.GetItemCount
-                    Auswahl.Select j
-                    if Zahlenformat.IsEnabled then
-                        for k=1 to Zahlenformat.GetItemCount
-                            Zahlenformat.Select k
-                            Zaehler = Zaehler + 1
-                            Kontext "TabZahlen"
-                            if TabZahlen.Exists then TabZahlen.Cancel
-                            Kontext "TabDokumentinfoFeldbefehle"
-                            if Einfuegen.IsEnabled then Einfuegen.Click
-                        next k
-                        k=0
-                    else
-                        Zaehler = Zaehler + 1
-                        if Einfuegen.IsEnabled then Einfuegen.Click
-                    end if
-                next j
-                j=0
-            else
-                if Zahlenformat.IsEnabled then
-                    for k=1 to Zahlenformat.GetItemCount
-                        Zahlenformat.Select k
-                        Zaehler = Zaehler + 1
-                        Kontext "TabZahlen"
-                        if TabZahlen.Exists then TabZahlen.Cancel
-                        Kontext "TabDokumentinfoFeldbefehle"
-                        if Einfuegen.IsEnabled then Einfuegen.Click
-                    next k
-                    k=0
-                else
-                    Zaehler = Zaehler + 1
-                    if Einfuegen.IsEnabled then Einfuegen.Click
-                end if
-            end if
-            if i = NichtMachen-1 then
-                Feldtyp.TypeKeys "<Down><Down>"
-            else
-                Feldtyp.TypeKeys "<Down>"
-            end if
-            Sleep 1
-        next i
-        printlog "  - here are " + Zaehler + " Fields selectable"
-    catch
-        Exceptlog
-        Warnlog "Tabpage Variables: Error on type entry " + i + " " + j + " " + k
-    endcatch
-    uTabDokumentinfo = Zaehler
-end function
-
-' -----------------------------------------------------------------------
-
-function uTabVariablen as Integer
-    Dim i : Dim j : Dim k : Dim Ende : Dim NichtMachen
-    Dim Zaehler
-    Dim AlterWert as String : Dim Naechster as String
-    printlog "  - Tabpage Variables"
-
-    try
-        Zaehler = 0 : i=0 : j=0 : k=0
-        Kontext
-        Active.SetPage TabVariablen
-        Kontext "TabVariablen"
-
-        for i=1 to Feldtyp.GetItemCount
-            Feldtyp.Select i
-            if i=9 then
-                Feldtyp.TypeKeys "<Up>"
-                Feldtyp.TypeKeys "<Down>"
-            end if
-            if NameText.IsEnabled then NameText.SetText "Hallo"
-            if Wert.IsEnabled then Wert.SetText "189882"
-
-            if Auswahl.IsEnabled AND ( Formatliste.IsEnabled OR Zahlenformat.IsEnabled )then
-                for j=1 to Auswahl.GetItemCount
-                    Auswahl.Select j
-                    if FormatListe.IsVisible AND FormatListe.IsEnabled then
-                        for k=1 to Formatliste.GetItemCount
-                            Formatliste.Select k
-                            Zaehler = Zaehler + 1
-                            if Einfuegen.IsEnabled then Einfuegen.Click
-                        next k
-                        k=0
-                    else
-                        if Zahlenformat.IsVisible AND Zahlenformat.IsEnabled then
-                            for k=1 to Zahlenformat.GetItemCount
-                                Zahlenformat.Select k
-                                Zaehler = Zaehler + 1
-                                Kontext "TabZahlen"
-                                if TabZahlen.Exists then TabZahlen.OK
-                                Kontext "TabVariablen"
-                                if Einfuegen.IsEnabled then Einfuegen.Click
-                                Kontext "Eingabefeld"
-                                if Eingabefeld.Exists then Eingabefeld.OK
-                                Kontext "TabVariablen"
-                            next k
-                            k=0
-                        end if
-                    end if
-                next j
-                j=0
-            else
-                if FormatListe.IsVisible AND FormatListe.IsEnabled then
-                    for k=1 to Formatliste.GetItemCount
-                        Formatliste.Select k
-                        Zaehler =  Zaehler + 1
-                        if Einfuegen.IsEnabled then Einfuegen.Click
-                        Kontext "TabZahlen"
-                        if TabZahlen.Exists then TabZahlen.OK
-                        Kontext "TabVariablen"
-                    next k
-                    k=0
-                else
-                    if Zahlenformat.IsVisible AND Zahlenformat.IsEnabled then
-                        for k=1 to Zahlenformat.GetItemCount
-                            Zahlenformat.Select k
-                            Zaehler =  Zaehler + 1
-                            Kontext "TabZahlen"
-                            if TabZahlen.Exists then TabZahlen.OK
-                            Kontext "TabVariablen"
-                            if Einfuegen.IsEnabled then Einfuegen.Click
-                            Kontext "Eingabefeld"
-                            if Eingabefeld.Exists then Eingabefeld.OK
-                            Kontext "TabVariablen"
-                        next k
-                        k=0
-                    end if
-                end if
-            end if
-            Sleep 1
-        next i
-        i=0
-        printlog "  - here are " + Zaehler + " Fields selectable"
-    catch
-        Exceptlog
-        Warnlog "Tabpage Variables: Error on entry type" + i + " " + j + " " + k
-    endcatch
-    uTabVariablen = Zaehler
-end function
-
-' -----------------------------------------------------------------------
-
-function uTabDatenbank as Integer
-    Dim i : Dim j : Dim k : Dim Ende : Dim NichtMachen
-    Dim Zaehler
-    Dim AlterWert as String : Dim Naechster as String
-
-    printlog "  - Tabpage Database"
-    try
-        Zaehler = 0 : i=0 : j=0 : k= 0
-        Kontext
-        Active.SetPage TabDatenbank
-        Kontext "TabDatenbank"
-
-        Datenbankauswahl.TypeKeys "<Up>", 5
-        for i=1 to Feldtyp.GetItemCount
-            j=0 : k=0
-            Feldtyp.Select i
-            if Satznummer.IsEnabled then Satznummer.SetText "Na_mal_sehen"
-            for j=1 to 20
-                AlterWert = Datenbankauswahl.GetText
-                if j=1 then
-                    Datenbankauswahl.TypeKeys "<Add>"
-                    Datenbankauswahl.TypeKeys "<Down>"
-                    Datenbankauswahl.TypeKeys "<Add>"
-                    Datenbankauswahl.TypeKeys "<Down>"
-                else
-                    Datenbankauswahl.TypeKeys "<Down>"
-                end if
-                if Datenbankauswahl.GetText = AlterWert then
-                    if j=1 then printlog "Address book contains no data"
-                    j=21
-                else
-                    if Selbstdefiniert.IsEnabled AND Selbstdefiniert.IsChecked then
-                        for k=1 to Formatliste.GetItemCount
-                            Formatliste.Select k
-                            Zaehler = Zaehler + 1
-                            if Einfuegen.IsEnabled then Einfuegen.Click
-                        next k
-                    else
-                        Zaehler = Zaehler + 1
-                        if Einfuegen.IsEnabled then Einfuegen.Click
-                    end if
-                end if
-            next j
-            Datenbankauswahl.TypeKeys "<up>", 20
-            Sleep 1
-        next i
-
-        printlog "  - here are " + Zaehler + " Fields selectable"
-    catch
-        Exceptlog
-        Warnlog "Tabpage Database: Error on field entry " + i + " " + j + " " + k
-    endcatch
-    uTabDatenbank = Zaehler
-end function
-
-' -----------------------------------------------------------------------
-
-sub BeseitigeTabZahlen
-    Kontext "TabZahlen"
-    if TabZahlen.Exists then TabZahlen.Cancel
-    Kontext "TabDokumentFeldbefehle"
-end sub
diff --git a/testautomation/writer/tools/includes/w_tool2.inc b/testautomation/writer/tools/includes/w_tool2.inc
deleted file mode 100755
index c067977ec8c7..000000000000
--- a/testautomation/writer/tools/includes/w_tool2.inc
+++ /dev/null
@@ -1,416 +0,0 @@
-'**************************************************************************
-' 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 : helge.delfs@oracle.com                                    **
-'*                                                                **
-'* short description : Description of file                        **
-'*                                                                **
-'\******************************************************************
-
-sub OptionenAufrufen(Seite as string)
-    Dim i as integer, GotItAlready as Boolean
-    Kontext
-    ToolsAutoCorrect
-    For i = 1 to 5
-        Kontext "Active"
-        if Active.Exists then
-            if Active.GetRT = 304 then
-                if i = 1 then
-                    Warnlog Active.Gettext + " Bug#90025"
-                    GotItAlready = True
-                end if
-                Active.Ok
-            end if
-        end if
-    next i
-    Kontext
-    Select case Seite
-    case "TabErsetzung"   : active.SetPage TabErsetzung
-    case "TabAusnahmen"   : active.SetPage TabAusnahmen
-    case "TabOptionen"    : active.SetPage TabOptionen
-    case "TabLocalizedOptions": active.SetPage TabLocalizedOptions
-    end select
-    for i = 1 to 5
-        Kontext "Active"
-        if Active.Exists then
-            if Active.GetRT = 304 then
-                if i = 1 and GotItAlready = False then Warnlog Active.Gettext + " Bug#90025"
-                Active.Ok
-            end if
-        end if
-    next i
-    Kontext Seite
-end sub
-
-
-
-sub CheckUberpruefen ( Pruefung$ )
-    Call wTypeKeys Pruefung$
-    wait 100
-    Call wTypeKeys "<Home><Shift End>"
-    EditCopy
-    if GetClipboardText = Pruefung$ then Warnlog "Text has not been replaced"
-    Call wTypeKeys "<Home><Shift End><Delete>"
-end sub
-
-sub UnCheckUeberpruefen ( Pruefung$ )
-    Call wTypeKeys Pruefung$
-    wait 100
-    Call wTypeKeys "<Home><Shift End>"
-    EditCopy
-    if GetClipboardText <> Pruefung$ then Warnlog "Text has been replaced"
-    Call wTypeKeys "<Home><Shift End><Delete>"
-end sub
-
-
-sub WortErgaenzen(Tastaturbefehl as string)
-    Call wTypeKeys "Die"
-    Wait 500
-    Call wTypeKeys Tastaturbefehl
-    Call wTypeKeys "<End><Mod1 Shift Left>"
-    EditCopy
-    if GetClipBoardtext = "Dies" then Warnlog "Word 'Dies' has been completed!"
-    if Tastaturbefehl = "<Return>" then Call wTypeKeys "<Return>"
-
-    Call wTypeKeys "auto"
-    Wait 500
-    Call wTypeKeys Tastaturbefehl
-    Call wTypeKeys "<End><Mod1 Shift Left>"
-    EditCopy
-    if GetClipBoardtext <> "automatischen" then Warnlog "Word 'automatischen' has not been completed!"
-    if Tastaturbefehl = "<Return>" then Call wTypeKeys "<Return>"
-
-    Call wTypeKeys "Wor"
-    Wait 500
-    Call wTypeKeys Tastaturbefehl
-    Call wTypeKeys "<End><Mod1 Shift Left>"
-    EditCopy
-    if GetClipBoardtext <> "Worterkennung" then Warnlog "Word 'Worterkennung' has not been completed!"
-    if Tastaturbefehl = "<Return>" then Call wTypeKeys "<Return>"
-
-end sub
-
-' -----------------------------------------------------------------------------
-
-function wCreateAutotextCategory(vCategoryName as string) as boolean
-    Dim i as integer, bCategoryExist as boolean
-    '/// This function creates an autotext-category
-    '/// requires CategoryName to create
-    '/// returns true if category could be created
-    '/// Attention: Autotext-Dialog leaves open after creating category
-    Kontext "Autotext"
-    if Not Autotext.Exists then EditAutotext
-
-    Kontext "Active"
-    if Active.Exists then
-        if Active.GetRT = 304 then
-            QAErrorlog Active.Gettext
-            Active.Ok
-        end if
-    end if
-
-    Kontext "Autotext"
-    try
-        Bereiche.Click
-        Kontext "Active"
-        if Active.Exists then
-            if Active.GetRT = 304 then
-                QAErrorlog Active.Gettext
-                Active.Ok
-            end if
-        end if
-    catch
-        Warnlog "Button 'Categories' is disabled!"
-        exit function
-    endcatch
-
-    Kontext "BereicheBearbeitenAutotext"
-    if ( BereicheBearbeitenAutotext.Exists( 1 ) ) then
-
-        Liste.TypeKeys "<Home>"
-        For i = 1 to Liste.GetItemCount
-            if Liste.GetText = vCategoryName then
-                QAErrorlog "Category " & vCategoryName & " already existing"
-                bCategoryExist = true
-                exit for
-            end if
-        next i
-
-        if bCategoryExist = false then
-            for i = 1 to Pfad.GetItemCount
-                Pfad.Select i
-                Bereich.Settext vCategoryName
-                try
-                    Neu.Click
-                    exit for
-                catch
-                    if i = Pfad.GetItemCount then
-                        Warnlog "Unable to create new category"
-                        BereicheBearbeitenAutotext.Close
-                        exit function
-                    end if
-                endcatch
-            next i
-
-            if Liste.GetText <> vCategoryName then
-                Warnlog "New category is not selected after creation"
-                try
-                    Liste.Select vCategoryName
-                    wCreateAutotextCategory = true
-                catch
-                    exit function
-                endcatch
-            else
-                wCreateAutotextCategory = true
-            end if
-        else
-            wCreateAutotextCategory = true
-        end if
-
-        BereicheBearbeitenAutotext.Ok
-
-        Kontext "Active"
-        if Active.Exists then
-            if Active.GetRT = 304 then
-                QAErrorlog Active.Gettext
-                Active.Ok
-            end if
-        end if
-
-    else
-        warnlog( "Dialog <BereicheBearbeitenAutotext> is not available" )
-    endif
-
-end function
-
-' -----------------------------------------------------------------------------
-
-function wSelectAutotextCategory(vCategoryName as string) as boolean
-    Dim i as integer
-    '/// This function selects an autotext-category
-    '/// requires CategoryName to select
-    '/// returns true if category could be selected
-    '/// Attention: Autotext-Dialog leaves open after selecting category
-    Kontext "Autotext"
-    if Not Autotext.Exists then EditAutotext
-
-    Kontext "Active"
-    if Active.Exists then
-        if Active.GetRT = 304 then
-            QAErrorlog Active.Gettext
-            Active.Ok
-        end if
-    end if
-    '/// close all categories
-    Kontext "Autotext"
-    Liste.Select 1
-    for i=1 to 10
-        Liste.TypeKeys "-"
-        Liste.TypeKeys "<Down>"
-        wait 500
-    next i
-
-    Liste.TypeKeys "<Home>"
-    for i=1 to 10
-        if Liste.Gettext <>  vCategoryName then
-            Liste.TypeKeys "<Down>"
-            wait 500
-        end if
-    next i
-
-    if Liste.Gettext =  vCategoryName then wSelectAutotextCategory = true
-
-end function
-
-' -----------------------------------------------------------------------------
-
-function wDeleteAutotextCategory(vCategoryName as string) as boolean
-    Dim i as integer
-    '/// This function deletes an autotext-category
-    '/// requires CategoryName to delete
-    '/// returns true if category could be deleted
-    '/// Attention: Autotext-Dialog leaves open after deleting category
-    Kontext "Autotext"
-    if Not Autotext.Exists then EditAutotext
-
-    Kontext "Active"
-    if Active.Exists then
-        if Active.GetRT = 304 then
-            QAErrorlog Active.Gettext
-            Active.Ok
-        end if
-    end if
-
-    Kontext "Autotext"
-    try
-        Bereiche.Click
-
-        Kontext "Active"
-        if Active.Exists then
-            if Active.GetRT = 304 then
-                QAErrorlog Active.Gettext
-                Active.Ok
-            end if
-        end if
-
-    catch
-        Warnlog "Button 'Categories' is disabled!"
-        exit function
-    endcatch
-
-    wait 500
-    Kontext "BereicheBearbeitenAutotext"
-    if Not BereicheBearbeitenAutotext.Exists then exit function
-
-    Liste.TypeKeys "<Home>"
-    for i=1 to 10
-        if Liste.Gettext <>  vCategoryName then
-            Liste.TypeKeys "<Down>"
-            wait 500
-        end if
-    next i
-
-    if Liste.Gettext = vCategoryName then
-        try
-            Loeschen.Click
-        catch
-            exit function
-            BereicheBearbeitenAutotext.Close
-        endcatch
-    end if
-    BereicheBearbeitenAutotext.Ok
-
-    Kontext "Active"
-    if Active.Exists then
-        if Active.GetRT = 304 then
-            try
-                Active.Yes
-                wDeleteAutotextCategory = true
-                Sleep 1
-            catch
-                Active.Ok
-            endcatch
-        end if
-    end if
-
-    Kontext "Active"
-    if Active.Exists then
-        if Active.GetRT = 304 then
-            QAErrorlog Active.Gettext
-            Active.Ok
-        end if
-    end if
-
-end function
-
-'----------------------------------------------------------------------
-
-function wDeleteAutotext(vAutotextName as string) as boolean
-    '/// This function deletes an autotext
-    '/// requires AutotextName to delete
-    '/// returns true if Autotext could be deleted
-    '/// Attention: Autotext-Dialog leaves open after deleting autotext
-
-    Dim j as integer
-    Dim ik as integer
-    Dim bDeleted as boolean
-    Dim sAllGroups as integer
-    Dim sAllInGroups as integer
-
-    Kontext "Autotext"
-    if Not Autotext.Exists then EditAutotext
-
-    Kontext "Active"
-    if Active.Exists then
-        if Active.GetRT = 304 then
-            QAErrorlog Active.Gettext
-            Active.Ok
-        end if
-    end if
-
-    Kontext "Autotext"
-    Liste.Select 1
-    for j=1 to 10
-        Liste.TypeKeys "-"
-        Liste.TypeKeys "<Down>"
-        wait 500
-    next j
-
-    bDeleted = false
-    ' count all groups
-    sAllGroups = Liste.GetItemCount
-    ' travel through all groups
-    For ik = 1 to sAllGroups
-        Liste.Select ik
-        Liste.TypeKeys "+"
-
-        sAllInGroups = Liste.GetItemCount - sAllGroups
-        For j = 1 to sAllInGroups
-            Liste.TypeKeys "<Down>"
-            if Liste.Gettext = vAutotextName then
-                try
-                    Menue.Click
-                    wait 500
-                    Call hMenuSelectNr ( 3 )
-                    Kontext "Active"
-                    if Active.Exists and Active.GetRT = 304 then
-                        Active.yes
-                        wDeleteAutotext = true
-                    else
-                        Warnlog "No messages to confirm deleting the Autotext!"
-                    end if
-                    bDeleted = true
-                    exit for
-                catch
-                    Warnlog "Menu Autotext->'Delete' disabled ! Test failed !"
-                endcatch
-            end if
-        next j
-        if bDeleted = true then exit for
-        ' close group
-        Liste.Select ik
-        Liste.TypeKeys "-"
-    next ik
-
-end function
-
-
-sub wChangeDefaultView()
-
-    ' #This code forces the writer to display one page only which is
-    ' zoomed to pagewidth, filling the entire - previously maximized - window.
-    ' This is required because the VCL Testtool might eventually draw objects
-    ' outside the document window depending on display size
-
-    Call hNewDocument
-    ViewZoom
-    Kontext "Massstab"
-    Vergroesserung100.check
-    Singlepage.check
-    Massstab.Ok
-    Call hCloseDocument
-
-end sub
diff --git a/testautomation/writer/tools/includes/w_tool3.inc b/testautomation/writer/tools/includes/w_tool3.inc
deleted file mode 100644
index 5aa58e2f967c..000000000000
--- a/testautomation/writer/tools/includes/w_tool3.inc
+++ /dev/null
@@ -1,643 +0,0 @@
-'*******************************************************************************
-' 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 : helge.delfs@oracle.com
-'*
-'* short description : Description of file
-'*
-'\******************************************************************************
-
-sub InTabelleKontrollieren
-    Call wTypeKeys ("<Home>")
-    Call wTypeKeys ("<Tab><Shift End>")
-    hUseAsyncSlot( "EditCopy" )
-    if GetClipBoardText <> "Text" then
-        Warnlog "Text has not been inserted in a table"
-    else
-        Call wTypeKeys "<Home>"
-        Call wTypeKeys "<Shift End>"
-    end if
-end sub
-
-' ****
-sub InTabelleKontrollierenExtra
-    Call wTypeKeys ("<Home><Shift Tab><Shift End>")
-    hUseAsyncSlot( "EditCopy" )
-    if GetClipBoardText <> "Der" then
-        Warnlog "Text has not been inserted in a table"
-    else
-        Call wTypeKeys "<Home>"
-        Call wTypeKeys "<Shift End>"
-    end if
-end sub
-
-'***
-sub InTextKontrollieren
-    Call wTypeKeys ("<Home><Shift Mod1 Right>")
-    hUseAsyncSlot( "EditCopy" )
-    if Left$(GetClipBoardText,3) <> "Der" AND Left$(GetClipboardText,4) <> "Der " then
-        Warnlog "Table has not been changed to text"
-    else
-        Call wTypeKeys "<Home>"
-        Call wTypeKeys "<Shift End>"
-    end if
-end sub
-
-'***
-sub AufsteigendKontrollieren ( Zahl as Boolean )
-    Call wTypeKeys "<Home><Up>",6
-    wait 500
-    Call wTypeKeys ("<Home><Shift End>" )
-    hUseAsyncSlot( "EditCopy" )
-    if Zahl = TRUE then
-        if GetClipboardText <> "23" then Warnlog "1. Number not correctly sorted"
-    else
-        if GetClipboardText <> "Ahallo" then Warnlog "1. Word is not correctly sorted"
-    end if
-    Call wTypeKeys ( "<Down><Down><Home><Shift End>" )
-    hUseAsyncSlot( "EditCopy" )
-    if Zahl = TRUE then
-        if GetClipboardText <> "54" then Warnlog "3. Number not correctly sorted"
-    else
-        if GetClipboardText <> "Ohallo" then Warnlog "3. Word not correctly sorted"
-    end if
-    Call wTypeKeys ( "<Down><Down><Home><Shift End>" )
-    hUseAsyncSlot( "EditCopy" )
-    if Zahl = TRUE then
-        if GetClipboardText <> "65" then Warnlog "Last number is not correctly sorted"
-    else
-        if GetClipboardText <> "Zhallo" then Warnlog "Last word is not correctly sorted"
-    end if
-end sub
-
-'***
-sub AbsteigendKontrollieren ( Zahl as Boolean )
-    Call wTypeKeys "<Home><Up>",6
-    wait 500
-    Call wTypeKeys ( "<Home><Shift End>" )
-    hUseAsyncSlot( "EditCopy" )
-    if Zahl = TRUE then
-        if GetClipboardText <> "65" then Warnlog "1. Number not correctly sorted"
-    else
-        if GetClipboardText <> "Zhallo" then Warnlog "1. word not correctly sorted"
-    end if
-    Call wTypeKeys ( "<Down><Down><Down><Home><Shift End>" )
-    hUseAsyncSlot( "EditCopy" )
-    if Zahl = TRUE then
-        if GetClipboardText <> "43" then Warnlog "4th number not correctly sorted"
-    else
-        if GetClipboardText <> "Ghallo" then Warnlog "4th word not correctly sorted"
-    end if
-    Call wTypeKeys ( "<Down><Home><Shift End>" )
-    hUseAsyncSlot( "EditCopy" )
-    if Zahl = TRUE then
-        if GetClipboardText <> "23" then Warnlog "Wrong sort: last number. Should => "+"Ohallo"+"   Is =>"+GetClipboardText
-    else
-        if GetClipboardText <> "Ahallo" then Warnlog "Wrong sort: last word. Should => "+"Ohallo"+"   Is =>"+GetClipboardText
-    end if
-end sub
-
-'***
-sub AufSortierungPruefen(i as integer)
-    Call wTypeKeys "<Home>"
-    Call wTypeKeys "<up>",6
-    Call wTypeKeys "<Shift Mod1 Right>"
-    hUseAsyncSlot( "EditCopy" )
-    if GetClipboardText = Trennzeichen then
-        QaErrorLog "#i94661# - Marked the Separator-Sign, correcting now."
-        Call wTypeKeys "<Right><Shift Mod1 Right>"
-        EditCopy
-    end if
-    if Left$(GetClipboardText,3) <> "AAA" then Warnlog "Entry in 1.Column/1.Row incorrect"
-    if i <> 1 then
-        Call wTypeKeys "<Mod1 Right>", 3
-    else
-        Call wTypeKeys "<Mod1 Right>"
-    end if
-    Call wTypeKeys "<Shift Mod1 Right>"
-    hUseAsyncSlot( "EditCopy" )
-    if Left$(GetClipboardText,3) <> "CCC" then Warnlog "Entry in 2.Column/1.Row incorrect"
-    Call wTypeKeys "<Down><Home>"
-    Call wTypeKeys "<Shift Mod1 Right>"
-    hUseAsyncSlot( "EditCopy" )
-    if GetClipboardText = Trennzeichen then
-        QaErrorLog "#i94661# - Marked the Separator-Sign, correcting now."
-        Call wTypeKeys "<Home><Shift Mod1 Right>"
-        EditCopy
-    end if
-    if Left$(GetClipboardText,3) <> "AAA" then Warnlog "Entry in 1.Column/2.Row incorrect"
-    if i <> 1 then
-        Call wTypeKeys "<Mod1 Right>", 3
-    else
-        Call wTypeKeys "<Mod1 Right>"
-    end if
-    Call wTypeKeys "<Shift Mod1 Right>"
-    hUseAsyncSlot( "EditCopy" )
-    if GetClipboardText = Trennzeichen then
-        QaErrorLog "#i94661# - Marked the Separator-Sign, correcting now."
-        Call wTypeKeys "<Right><Shift Mod1 Right>"
-        EditCopy
-    end if
-    if Left$(GetClipboardText,3) <> "DDD" then Warnlog "Entry in 2.Column/2.Row incorrect"
-    Call wTypeKeys "<Down><Home>"
-    if i <> 1 then
-        Call wTypeKeys "<Mod1 Right>", 10
-    else
-        Call wTypeKeys "<Mod1 Right>", 5
-    end if
-    Call wTypeKeys "<Shift Mod1 Right>"
-    hUseAsyncSlot( "EditCopy" )
-    if GetClipboardText = Trennzeichen then
-        QaErrorLog "#i94661# - Marked the Separator-Sign, correcting now."
-        Call wTypeKeys "<Right><Shift Mod1 Right>"
-        EditCopy
-    end if
-    if Left$(GetClipboardText,3) <> "AAA" then Warnlog "Entry in 4.Column/3.Row incorrect"
-end sub
-
-'***
-sub AbSortierungPruefen(i as integer)
-    Call wTypeKeys "<Home>"
-    Call wTypeKeys "<up>", 6
-    Call wTypeKeys "<Shift Mod1 Right>"
-    hUseAsyncSlot( "EditCopy" )
-    if GetClipboardText = Trennzeichen then
-        QaErrorLog "#i94661# - Marked the Separator-Sign, correcting now."
-        Call wTypeKeys "<Right><Shift Mod1 Right>"
-        EditCopy
-    end if
-    if Left$(GetClipboardText,3) <> "CCC" then Warnlog "Entry in 1.Column/1.Row incorrect"
-    Call wTypeKeys "<Down><Shift Mod1 Left>"
-    hUseAsyncSlot( "EditCopy" )
-    if GetClipboardText = Trennzeichen then
-        QaErrorLog "#i94661# - Marked the Separator-Sign, correcting now."
-        Call wTypeKeys "<Home><Shift Mod1 Right>"
-        EditCopy
-    end if
-    if Left$(GetClipboardText,3) <> "CCC" then Warnlog "Entry in 1.Column/2.Row incorrect"
-    if i <> 1 then
-        Call wTypeKeys "<Mod1 Right>" , 4
-    else
-        Call wTypeKeys "<Mod1 Right>" , 2
-    end if
-    Call wTypeKeys "<Shift Mod1 Right>"
-    hUseAsyncSlot( "EditCopy" )
-    if GetClipboardText = Trennzeichen then
-        QaErrorLog "#i94661# - Marked the Separator-Sign, correcting now."
-        Call wTypeKeys "<MOD1 Left>", 2
-        Call wTypeKeys "<Shift MOD1 Right>"
-        EditCopy
-    end if
-    if Left$(GetClipboardText,3) <> "BBB" then Warnlog "Entry in 2.Column/2.Row incorrect"
-    Call wTypeKeys "<Left><Up>"
-    Call wTypeKeys "<Right>"
-    Call wTypeKeys "<Shift Mod1 Left>"
-    hUseAsyncSlot( "EditCopy" )
-    if GetClipboardText = Trennzeichen then
-        QaErrorLog "#i94661# - Marked the Separator-Sign, correcting now."
-        Call wTypeKeys "<Right><Shift Mod1 Right>"
-        EditCopy
-    end if
-    if Left$(GetClipboardText,3) <> "EEE" then Warnlog "Entry in 2.Column/1.Row incorrect"
-    if i <> 1 then
-        Call wTypeKeys "<Mod1 Right>", 6
-        Call wTypeKeys "<Down>", 3
-        Call wTypeKeys "<End><Shift Mod1 Left>"
-    else
-        Call wTypeKeys "<Mod1 Right>", 3
-        Call wTypeKeys "<Down>", 3
-        Call wTypeKeys "<Shift Mod1 Right>"
-    end if
-    hUseAsyncSlot( "EditCopy" )
-    if GetClipboardText = Trennzeichen then
-        QaErrorLog "#i94661# - Marked the Separator-Sign, correcting now."
-        Call wTypeKeys "<Right><Shift Mod1 Right>"
-        EditCopy
-    end if
-    if Left$(GetClipboardText,3) <> "AAA" then Warnlog "Entry in 2.Column/1.Row incorrect"
-end sub
-
-'***
-sub UndoRichtigBeiSortierung
-    Dim Fehler as Boolean
-    Call wTypeKeys "<Left Right>"
-    wait 100
-    EditUndo
-    Sleep 1
-    Call wTypeKeys "<Home>"
-    Call wTypeKeys "<up>", 6
-    Call wTypeKeys "<Shift Mod1 Right>"
-    EditCopy
-    if Left$(GetClipboardText,3) <> "AAA" then Fehler = TRUE
-    Call wTypeKeys "<Down><Home><Shift Mod1 Right>"
-    hUseAsyncSlot( "EditCopy" )
-    if Left$(GetClipboardText,3) <> "BBB" then Fehler = TRUE
-    Call wTypeKeys "<Down><Home><Shift Mod1 Right>"
-    hUseAsyncSlot( "EditCopy" )
-    if Left$(GetClipboardText,3) <> "CCC" then Fehler = TRUE
-    Call wTypeKeys "<Down><Home><Shift Mod1 Right>"
-    hUseAsyncSlot( "EditCopy" )
-    if Left$(GetClipboardText,3) <> "AAA" then Fehler = TRUE
-    Call wTypeKeys "<Down><Home><Shift Mod1 Right>"
-    hUseAsyncSlot( "EditCopy" )
-    if Left$(GetClipboardText,3) <> "BBB" then Fehler = TRUE
-    Call wTypeKeys "<Down><Home><Shift Mod1 Right>"
-    hUseAsyncSlot( "EditCopy" )
-    if Left$(GetClipboardText,3) <> "CCC" then Fehler = TRUE
-    if Fehler = TRUE then
-        Warnlog "Undo after sorting has not been functioned correctly"
-        Call hCloseDocument
-        hFileOpenLocally(  gTesttoolPath + "writer\optional\input\st1_5.sdw" )
-    end if
-    Call wTypeKeys "<End>"
-    Call wTypeKeys "<Down>",6
-    Call wTypeKeys "<Mod1 a>"
-    wait 100
-end sub
-
-'***
-sub TrennzeichenSetzen ( Trennstring as String )
-    EditSearchAndReplace
-    Kontext "FindAndReplace"
-    if FindAndReplace.NotExists then EditSearchAndReplace
-    Kontext "FindAndReplace"
-    if Not RegularExpressions.IsVisible then More.Click
-    Select Case Trennstring
-    Case ";"
-        RegularExpressions.Check
-        SearchFor.SetText "\t"
-
-    Case "|"
-        RegularExpressions.Check
-        SearchFor.SetText "\t"
-
-    end select
-
-    ReplaceWith.SetText TrennString
-    ReplaceAll.Click
-
-    Kontext
-    if MessageBox.Exists then
-        if InStr( MessageBox.GetText, "30" ) = 0 then
-            MessageBox.OK
-            Kontext "FindAndReplace"
-            RegularExpressions.Check
-            SearchFor.SetText "\t"
-            ReplaceWith.SetText TrennString
-            ReplaceAll.Click
-            Sleep 1
-            Kontext
-            if MessageBox.Exists then
-                if InStr( MessageBox.GetText, "30" ) = 0 then
-                    MessageBox.OK
-                else
-                    Warnlog "Unable to insert Character. Following test doesn't work!"
-                    MessageBox.OK
-                end if
-            end if
-        else
-            MessageBox.OK
-        end if
-    end if
-    Kontext "FindAndReplace"
-    More.Click
-    if FindAndReplace.Exists then FindAndReplace.Close
-end sub
-
-'***
-function ZelleRuntertesten ( Wert$ ) as Boolean
-    Call wTypeKeys "<Down>"
-    Call wTypeKeys "<Mod1 a>"
-    hUseAsyncSlot( "EditCopy" )
-    if GetClipboardText = Wert$ then
-        ZelleRuntertesten = TRUE
-    else
-        ZelleRuntertesten = FALSE
-    end if
-end function
-
-'***
-
-sub wEinfuegenEintragAlle ( NaWieSollErheissen$ )
-    Call wTypeKeys NaWieSollErheissen$
-    Call wTypeKeys "<Mod1 Left><Shift Mod1 Right>"
-    InsertIndexesEntry
-    Kontext "VerzeichniseintragEinfuegen"
-    Verzeichnis.Select 1
-    VerzeichniseintragEinfuegen.OK
-
-    Call wTypeKeys "<End> "
-    Call wTypeKeys "<Left><Shift Mod1 Left>"
-    InsertIndexesEntry
-    Kontext "VerzeichniseintragEinfuegen"
-    Verzeichnis.Select 2
-    VerzeichniseintragEinfuegen.OK
-
-    Call wTypeKeys "<End> "
-    Call wTypeKeys "<Left><Left><Shift Mod1 Left>"
-    InsertIndexesEntry
-    Kontext "VerzeichniseintragEinfuegen"
-    Verzeichnis.Select 3
-    VerzeichniseintragEinfuegen.OK
-    Call wTypeKeys "<End> "
-end sub
-
-'***
-
-sub ReihenfolgePruefen
-    Dim sDummy$
-
-    printlog "     - Checking entry's on first page"
-    Call wTypeKeys "<Down><Shift Mod1 Right>"
-    hUseAsyncSlot( "EditCopy" )
-    sDummy$ = GetClipboardText
-    if sDummy$ <> "Zhallo" then
-        if sDummy$ <> "Ahallo" then
-            Warnlog "Wrong Sort: Should -> Zhallo   Is -> "+ sDummy$
-        else
-            Warnlog "Sort infinitely is not in alphabetical order"
-            Call wTypeKeys "<Home><Down><Shift Mod1 Right>"
-            wait 100
-            EditCopy
-            if GetClipboardText <> "Zhallo" then Warnlog "2. entry not Zhallo but "+GetClipboardText
-        end if
-    else
-        Call wTypeKeys "<Home><Down><Shift Mod1 Right>"
-        wait 100
-        EditCopy
-        if GetClipboardText <> "Ahallo" then Warnlog "2. entry not Ahallo but "+GetClipboardText
-    end if
-    Call wTypeKeys "<Home><Down><Shift Mod1 Right>"
-    hUseAsyncSlot( "EditCopy" )
-    if GetClipboardText <> "Xhallo" then Warnlog "3. entry not Xhallo but "+GetClipboardText
-    Call wTypeKeys "<Home><Down><Shift Mod1 Right>"
-    hUseAsyncSlot( "EditCopy" )
-    if GetClipboardText <> "Ghallo" then Warnlog "4. entry not Ghallo but "+GetClipboardText
-
-    printlog "     - checking entrys on 3rd page"
-    Call wTypeKeys "<Home><Down><Shift Mod1 Right>"
-    hUseAsyncSlot( "EditCopy" )
-    sDummy$ = GetClipboardText
-    if sDummy$ <> "Zhallo" then
-        if sDummy$ <> "Ahallo" then
-            Warnlog "Wrong Sort: Should -> Zhallo   Is -> "+ sDummy$
-        else
-            Warnlog "Sort infinitely is not in alphabetical order"
-            Call wTypeKeys "<Home><Down><Shift Mod1 Right>"
-            wait 100
-            EditCopy
-            if GetClipboardText <> "Zhallo" then Warnlog "6. entry not Zhallo but "+GetClipboardText
-        end if
-    else
-        Call wTypeKeys "<Home><Down><Shift Mod1 Right>"
-        wait 100
-        EditCopy
-        if GetClipboardText <> "Ahallo" then Warnlog "6. entry not Ahallo but "+GetClipboardText
-    end if
-    Call wTypeKeys "<Home><Down><Shift Mod1 Right>"
-    hUseAsyncSlot( "EditCopy" )
-    if GetClipboardText <> "Xhallo" then Warnlog "7. entry not Xhallo but "+GetClipboardText
-    Call wTypeKeys "<Home><Down><Shift Mod1 Right>"
-    hUseAsyncSlot( "EditCopy" )
-    if GetClipboardText <> "Ghallo" then Warnlog "8. entry not Ghallo but "+GetClipboardText
-
-    printlog "     - checking page entrys"
-    Call wTypeKeys "<End><Shift Mod1 Left>"
-    hUseAsyncSlot( "EditCopy" )
-    if GetClipboardText <> "3" then Warnlog "8. Entry: Not page 3 but "+ GetClipboardText
-    Call wTypeKeys "<End><Up><Shift Mod1 Left>"
-    hUseAsyncSlot( "EditCopy" )
-    if GetClipboardText <> "3" then Warnlog "7. Entry: Not page 3 but "+ GetClipboardText
-    Call wTypeKeys "<End><Up><Shift Mod1 Left>"
-    hUseAsyncSlot( "EditCopy" )
-    if GetClipboardText <> "3" then Warnlog "6. entry: Not page 3 but "+ GetClipboardText
-    Call wTypeKeys "<End><Up><Shift Mod1 Left>"
-    hUseAsyncSlot( "EditCopy" )
-    if GetClipboardText <> "3" then Warnlog "5. entry: Not page 3 but "+ GetClipboardText
-    Call wTypeKeys "<End><Up><Shift Mod1 Left>"
-    hUseAsyncSlot( "EditCopy" )
-    if GetClipboardText <> "1" then Warnlog "4. entry: Not page 1 but "+ GetClipboardText
-    Call wTypeKeys "<End><Up><Shift Mod1 Left>"
-    hUseAsyncSlot( "EditCopy" )
-    if GetClipboardText <> "1" then Warnlog "3. entry: Not page 1 but "+ GetClipboardText
-    Call wTypeKeys "<End><Up><Shift Mod1 Left>"
-    hUseAsyncSlot( "EditCopy" )
-    if GetClipboardText <> "1" then Warnlog "2. entry: Not page 1 but "+ GetClipboardText
-    Call wTypeKeys "<End><Up><Shift Mod1 Left>"
-    hUseAsyncSlot( "EditCopy" )
-    if GetClipboardText <> "1" then Warnlog "1. entry: Not page 1 but "+ GetClipboardText
-    Call wTypeKeys "<End><Up><Shift Mod1 Left>"
-end sub
-
-'***
-sub ReihenfolgePruefen2
-    printlog "     - checking entrys"
-    Call wTypeKeys "<Down><Shift Mod1 Right>"
-    hUseAsyncSlot( "EditCopy" )
-    if GetClipboardText <> "Ahallo" then Warnlog "1. entry not Ahallo but "+GetClipboardText
-    Call wTypeKeys "<Home><Down><Shift Mod1 Right>"
-    hUseAsyncSlot( "EditCopy" )
-    if GetClipboardText <> "Ghallo" then Warnlog "2. entry not Ghallo but "+GetClipboardText
-    Call wTypeKeys "<Home><Down><Shift Mod1 Right>"
-    hUseAsyncSlot( "EditCopy" )
-    if GetClipboardText <> "Xhallo" then Warnlog "3. entry not Xhallo but "+GetClipboardText
-    Call wTypeKeys "<Home><Down><Shift Mod1 Right>"
-    hUseAsyncSlot( "EditCopy" )
-    if GetClipboardText <> "Zhallo" then Warnlog "4. entry not Zhallo but "+GetClipboardText
-    Call wTypeKeys "<Down><Mod1 Left><Shift Mod1 Right>"
-    hUseAsyncSlot( "EditCopy" )
-    if GetClipboardText <> "Bhallo " then Warnlog "Number of entrys more then 4."
-
-    printlog "     - checking page entrys"
-    Call wTypeKeys "<Up>"
-    Call wTypeKeys "<Shift Mod1 Right>", 3
-    hUseAsyncSlot( "EditCopy" )
-    if GetClipboardText <> "1, 3" then Warnlog "4. entry: Not '1, 3' but "+ GetClipboardText
-    Call wTypeKeys "<Up>"
-    Call wTypeKeys "<Shift Mod1 Left>", 3
-    hUseAsyncSlot( "EditCopy" )
-    if GetClipboardText <> "1, 3" then Warnlog "3. entry: Not '1, 3' but "+ GetClipboardText
-    Call wTypeKeys "<Up>"
-    Call wTypeKeys "<Shift Mod1 Right>", 3
-    hUseAsyncSlot( "EditCopy" )
-    if GetClipboardText <> "1, 3" then Warnlog "2. entry: Not '1, 3' but "+ GetClipboardText
-    Call wTypeKeys "<Up>"
-    Call wTypeKeys "<Shift Mod1 Left>", 3
-    hUseAsyncSlot( "EditCopy" )
-    if GetClipboardText <> "1, 3" then Warnlog "1. entry: Not '1, 3' but "+ GetClipboardText
-end sub
-' ***
-function SchriftFormatTesten ( sName$ ) as String
-    SchriftFormatTesten = sName$
-    FormatCharacter
-    Kontext
-    Active.SetPage TabFont
-    Kontext "TabFont"
-    if FontWest.GetSelText <> sName then SchriftFormatTesten = FontWest.GetSelText
-    TabFont.OK
-end function
-
-' *******************************************************************
-
-function ErmittleErgebnis ( Ergebnis as String ) as Boolean
-    ErmittleErgebnis = TRUE
-    Kontext "DocumentWriter"
-    Call wTypeKeys "<End><Shift Home>"
-    EditCopy
-    Wait 500
-    if GetClipboardText <> Ergebnis then ErmittleErgebnis = FALSE
-end function
-
-' *******************************************************************
-
-sub VerzeichnisUeberNavigator(Welches as integer)
-    dim j as integer
-    Kontext "Navigator"
-    if Navigator.NotExists then ViewNavigator
-    Kontext "NavigatorWriter"
-    if Auswahlliste.GetItemCount<11 then Inhaltsansicht.Click
-
-    if Auswahlliste.GetItemCount >11 then
-        For j= 1 to 11
-            Auswahlliste.Select j
-            Auswahlliste.TypeKeys "-"
-        next j
-    end if
-
-    wait 500
-
-    Auswahlliste.Select 10
-    Auswahlliste.TypeKeys "+"
-    Auswahlliste.Select 10 + Welches
-    Auswahlliste.TypeKeys "<Return>"
-    Kontext "DocumentWriter"
-end sub
-
-'**********************************************************
-
-sub sZahlenformatfuerZelle
-    Kontext "DocumentWriter"
-    FormatNumberFormat
-    Kontext "Zahlenformat"
-    Kategorie.Select 3
-    KategorieFormat.Select 1
-    Zahlenformat.OK
-    Kontext "DocumentWriter"
-end sub
-
-'**********************************************************
-
-sub sNavigatorInBrauchbarenZustand
-    dim j as integer
-    Kontext "NavigatorWriter"
-    if NavigatorWriter.NotExists then ViewNavigator
-    if Auswahlliste.GetItemCount<11 then Inhaltsansicht.Click
-    Wait 500
-    if Auswahlliste.GetItemCount >11 then
-        For j= 1 to 11
-            Auswahlliste.Select j
-            Auswahlliste.TypeKeys "-"
-        next j
-    end if
-
-    Wait 500
-    Auswahlliste.Select 2
-    Auswahlliste.TypeKeys "+"
-    Inhaltsansicht.Click
-    Kontext "DocumentWriter"
-end sub
-
-'**********************************************************
-
-sub sZellinhaltInZwischenablage(VergleichDas as string,Aktion as string)
-    Call wTypeKeys "<Home><Shift End>"
-    EditCopy
-    if VergleichDas <> GetClipboardText then Warnlog "- Table has not been splitted correctly!(" + Aktion + ")"
-end sub
-
-'**********************************************************
-
-sub sSeiteMitBrauchbarerTabelleEinrichten
-    Call hTabelleEinfuegen
-    FormatTable
-    Kontext
-    Active.SetPage TabTabelle
-    Kontext "TabTabelle"
-    Tabellenname.Settext "MeineTabelle"
-    TabTabelle.OK
-
-    Call wTypeKeys "�berschrift 1"
-    Call wTypeKeys "<Down>"
-    Call wTypeKeys "Text 1"
-    Call wTypeKeys "<Down>"
-    wait 500
-    Call hTabelleEinfuegen
-    wait 500
-    Call wTypeKeys "�berschrift 2"
-    Call wTypeKeys "<Down>"
-    Call wTypeKeys "Text 2"
-    Call wTypeKeys "<Up>",1
-end sub
-
-'**********************************************************
-
-sub wOpenContextMenu ( optional FocusParam as boolean)
-    if IsMissing(FocusParam) = True then
-        Select Case gApplication
-        Case "WRITER"
-            Kontext "DocumentWriter"
-            Call DocumentWriter.TypeKeys "<SHIFT F10>"  'OpenContextMenu
-
-        Case "MASTERDOCUMENT"
-            Kontext "DocumentMasterDoc"
-            Call DocumentMasterDoc.TypeKeys "<SHIFT F10>"  'OpenContextMenu
-
-        end select
-    else
-        if FocusParam = True then
-            Select Case gApplication
-            Case "WRITER"
-                Kontext "DocumentWriter"
-                Call DocumentWriter.OpenContextMenu true
-
-            Case "MASTERDOCUMENT"
-                Kontext "DocumentMasterDoc"
-                Call DocumentMasterDoc.OpenContextMenu true
-
-            end select
-        else
-            Select Case gApplication
-            Case "WRITER"
-                Kontext "DocumentWriter"
-                Call DocumentWriter.OpenContextMenu
-
-            Case "MASTERDOCUMENT"
-                Kontext "DocumentMasterDoc"
-                Call DocumentMasterDoc.OpenContextMenu
-            end select
-        end if
-    end if
-end sub
diff --git a/testautomation/writer/tools/includes/w_tool4.inc b/testautomation/writer/tools/includes/w_tool4.inc
deleted file mode 100644
index c2133c1ff4bc..000000000000
--- a/testautomation/writer/tools/includes/w_tool4.inc
+++ /dev/null
@@ -1,210 +0,0 @@
-'**************************************************************************
-' 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 : helge.delfs@oracle.com                                    **
-'*                                                                **
-'* short description : Misc tools for writer tests                **
-'*                                                                **
-'*******************************************************************
-'*                                                                **
-' #1 CountItemsInNavigatorGroup(Group as integer) as Integer
-' #1 wCheckOutline
-' #1 wSetZoom
-' #1 wGetSpellcheckDocumentName
-' #1 wToolsSpellcheckCheckWriter
-' #1 wEnableAutoSpellcheck
-' #1 wEnableHyphenation
-'*                                                                **
-'\******************************************************************
-
-function CountItemsInNavigatorGroup(Group as integer) as Integer
-    Dim j as integer,SelectInNavigator as integer
-    'First, select the Navigator depending on the application
-    Kontext "Navigator"
-    If Not Navigator.Exists then ViewNavigator
-    Kontext "NavigatorWriter"
-
-    'In Navigator, close all groups and set focus to first group
-    Sleep 2
-    if Auswahlliste.GetItemCount<12 then Inhaltsansicht.Click
-    Wait 500
-    'Close all groups in Navigator
-    if Auswahlliste.GetItemCount >12 then
-        For j= 1 to 12
-            Auswahlliste.Select j
-            Auswahlliste.TypeKeys "-"
-        next j
-    end if
-
-    Wait 500
-    'Select group given by the function
-    Auswahlliste.Select Group
-    ' Open group
-    Auswahlliste.TypeKeys "+"
-    Inhaltsansicht.Click
-    CountItemsInNavigatorGroup = Auswahlliste.GetItemCount - 1
-    Inhaltsansicht.Click
-
-end function
-
-'*******************************************************************
-
-function wCheckOutline(WhatToFind as string) as boolean
-    '/// This function checks the Outline in level 1 test.
-    '/// Purpose is to have a little tolerance, because when resolution changes, the
-    '/// line breaks are different
-    wCheckOutline = False
-    Kontext "DocumentImpressOutlineView"
-    DocumentImpressOutlineView.TypeKeys "<Home><Down>" ,1
-    DocumentImpressOutlineView.TypeKeys "<Home><Shift End>"
-    EditCopy
-    if GetClipboardText <> WhatToFind then
-        DocumentImpressOutlineView.TypeKeys "<Home><Up>" ,2
-        DocumentImpressOutlineView.TypeKeys "<Home><Shift End>"
-        EditCopy
-        if GetClipboardText = WhatToFind then
-            wCheckOutline = True
-        end if
-    else
-        wCheckOutline = True
-    end if
-end function
-
-'*******************************************************************
-
-function wSetZoom (  )
-    '/// This function sets the zoom size to 100% in a text document
-
-    ViewZoom
-    Kontext "Massstab"
-    Vergroesserung100.Check
-    Massstab.OK
-    Sleep 1
-
-
-end function
-
-'*******************************************************************
-
-function wGetSpellcheckDocumentName(xCategory as integer) as string
-    Dim sTemp as string, sReturn as string
-    '/// This function is to return the document to load in spellcheck test
-    select case xCategory
-    case 1:
-        select case iSprache
-        case 81, 82, 86, 88
-            sReturn = "None"
-        case 1
-            sTemp = Convertpath(gTesttoolpath + "writer\optional\input\spellcheck\st1_2_01.odt")
-        case 3
-            sTemp = Convertpath(gTesttoolpath + "writer\optional\input\spellcheck\st1_2_03.odt")
-        case 7
-            sTemp = Convertpath(gTesttoolpath + "writer\optional\input\spellcheck\st1_2_07.odt")
-        case else
-            sTemp = Convertpath(gTesttoolpath + "writer\optional\input\spellcheck\st1_2_" & iSprache & ".odt")
-        end select
-
-    case 2:
-        select case iSprache
-        case 81, 82, 86, 88
-            sReturn = "None"
-        case 1
-            sTemp = Convertpath(gTesttoolpath + "writer\optional\input\linguistik\001.odt")
-        case 3
-            sTemp = Convertpath(gTesttoolpath + "writer\optional\input\linguistik\003.odt")
-        case 7
-            sTemp = Convertpath(gTesttoolpath + "writer\optional\input\linguistik\007.odt")
-        case else
-            sTemp = Convertpath(gTesttoolpath + "writer\optional\input\linguistik\0" & iSprache & ".odt")
-        end select
-    end select
-
-    if sReturn <> "None" then
-        if FileExists(sTemp) then
-            sReturn = sTemp
-        else
-            sReturn = "Empty"
-        end if
-    end if
-
-    wGetSpellcheckDocumentName = sReturn
-
-end function
-
-'*******************************************************************
-
-sub wToolsSpellcheckCheckWriter
-    '/// This function opens the spellcheck-dialog in all applications
-    Select Case Ucase(gApplication)
-    Case "WRITER"		: ToolsSpellcheckWriter
-    Case "MASTERDOCUMENT"	: ToolsSpellcheckWriter
-    Case "HTML" : ToolsSpellcheckWriter
-    case "DRAW"         : ToolsSpellcheck
-    case "IMPRESS"     	: ToolsSpellcheck
-    end select
-end sub
-
-'*******************************************************************
-
-sub wEnableAutoSpellcheck(sEnable as boolean)
-    '/// This function checks option 'AutoCheck' in Options
-    '/// requires a bool to indicate state
-    '/// from 680m61 on it is checked by default
-    ExtrasOptionen
-    Kontext "ExtrasOptionenDLG"
-    Call hToolsOptions("LanguageSettings","WritingAids")
-    Optionen.Select 1
-    Select Case sEnable
-    Case true
-        Optionen.Check
-    Case false
-        Optionen.UnCheck
-    end select
-    Kontext "ExtrasOptionenDLG"
-    ExtrasOptionenDLG.Ok
-
-end sub
-
-'*******************************************************************
-
-sub wEnableHyphenation(sEnable as boolean)
-    '/// This function enables/disables hyphenation
-    '/// through Format / Paragraph / Textflow
-    Call hNewDocument
-    FormatParagraph
-    Kontext
-    Active.SetPage TabTextfluss
-    kontext "TabTextfluss"
-    Select Case sEnable
-    case true
-        Automatisch.Check
-    case false
-        Automatisch.UnCheck
-    end select
-    TabTextfluss.OK
-    Call hCloseDocument
-
-end sub
diff --git a/testautomation/writer/tools/includes/w_tool5.inc b/testautomation/writer/tools/includes/w_tool5.inc
deleted file mode 100644
index 6ac59f3f8365..000000000000
--- a/testautomation/writer/tools/includes/w_tool5.inc
+++ /dev/null
@@ -1,235 +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 : helge.delfs@oracle.com
-'*
-'* short description : Description of file
-'*
-'\******************************************************************************
-
-function hLevelContent () as String
-    ' presupposition: just stay in line with the to check content
-    ' easy to enhance; on demand you can add text to the paragraph and only have to chage this function
-    ' input : -
-    ' output: paragraph content
-    dim sTemp as string
-    wTypeKeys "<end><shift home>" 'select line
-    editcopy
-    sTemp = GetClipboardText()
-    'i don't need the first '-', so i start searching at 2. char
-    hLevelContent = Right(sTemp, Len(sTemp)-InStr(2,sTemp,"-")
-end function
-
-'------------------------------------------------------------------------------
-
-function hLevelChange(aL() as integer,i as integer,x as integer ,y as integer, sublevel as boolean ) as boolean
-    ' ALSO boolean, if it schould be checked, if it got changed! else don't adjust array!!!
-    ' input: level Nr., how many levels +/-
-    ' return: false, if wrong paragraph
-
-    dim itemp as integer
-    dim xtemp as integer
-    dim ytemp as integer
-    dim stemp as integer
-    dim j as integer
-
-    if (hLevelOk (i)) then
-        if (aL (i,1) + x) > 0 then  ' CHG <-> level 'stufen'
-            ' has to work for +/- x
-            xTemp = aL (i,1)
-            aL (i,1) = aL (i,1) + x
-            if (sublevel) then
-                iTemp = i+1
-                do while (aL (iTemp,1) > xTemp)
-                    aL (iTemp,1) = aL (iTemp,1) + x
-                    iTemp=iTemp + 1
-                loop
-            end if
-        else
-            'warnlog "This makes no sense; you trie to 'move to the left'; it doesn't go further! Entry: "+i
-        end if
-        iTemp = 1
-        do while (i <> aL(itemp,2))
-            inc iTemp
-        loop
-        printlog "CHG: found i="+i+" at: "+iTemp
-
-        ' move entry without sublevels
-        if (y < -1) OR (y > 1) then warnlog "y ! aus (-1,1) is not implemented :-( yet !"
-        if (y > 0) then
-            xtemp = aL( itemp+y ,1)
-            aL( itemp+y ,1) = aL( itemp ,1)
-            aL( itemp ,1) = xtemp
-            xtemp = aL( itemp+y ,2)
-            aL( itemp+y ,2) = aL( itemp ,2)
-            aL( itemp ,2) = xtemp
-            if (sublevel) then            ' with sublevel
-                yTemp = aL( iTemp+y ,1)            ' save hor <-> level in yTemp
-                sTemp = 2
-                do while (aL (iTemp ,1) > yTemp)
-                    xtemp = aL( itemp+sTemp ,1)
-                    aL( itemp+sTemp ,1) = aL( itemp ,1)
-                    aL( itemp ,1) = xtemp
-                    xtemp = aL( itemp+sTemp ,2)
-                    aL( itemp+sTemp ,2) = aL( itemp ,2)
-                    aL( itemp ,2) = xtemp
-                    inc sTemp
-                loop
-            end if
-        else
-            if (y < 0) then
-                for j=-1 to y
-                    xtemp = aL( itemp+j ,1)              ' hori <-> level copy
-                    aL( itemp+j ,1) = aL( itemp+j+1 ,1)
-                    aL( itemp+j+1 ,1) = xtemp            '      ^
-                    xtemp = aL( itemp+j ,2)              ' vert | level copy
-                    aL( itemp+j ,2) = aL( itemp+j+1 ,2)  '      v
-                    aL( itemp+j+1 ,2) = xtemp
-                next j
-                if (sublevel) then            ' with sublevel
-                    yTemp = aL( iTemp+y ,1)            ' save hor <-> level in yTemp
-                    iTemp = itemp+1
-                    do while (aL (iTemp,1) > yTemp)
-                        xtemp = aL( itemp+y ,1)
-                        aL( itemp+y ,1) = aL( itemp+y+1 ,1)
-                        aL( itemp+y+1 ,1) = xtemp
-                        xtemp = aL( itemp+y ,2)
-                        aL( itemp+y ,2) = aL( itemp+y+1 ,2)
-                        aL( itemp+y+1 ,2) = xtemp
-                        iTemp=iTemp + 1
-                    loop
-                end if
-            else ' 0
-            end if
-        end if
-    end if
-end function
-
-'------------------------------------------------------------------------------
-
-function hLevelPrint (aL()as integer) as boolean
-    dim sTemp as string
-    dim iTemp as integer
-    dim i,j as integer
-    ' how big is this array??!!! pd: it has to be in aL(0,0)
-    printlog "---------------------------------------------------------------------"
-    for i=1 to aL(0,0)
-        sTemp = ""
-        for j=1 to aL(i,1)
-            sTemp = sTemp + "..."
-        next j
-        printlog sTemp + i + "  "+aL(i,2)+ "                   +1: "+aL(i,1)
-    next i
-    printlog "---------------------------------------------------------------------"
-end function
-
-'------------------------------------------------------------------------------
-
-function hIsNumberingBullets () as Boolean
-    '/// am i in a NumberingBullets area ?? ///'
-    '/// Output: True / False (as Boolean)  ///'
-    dim NOerror as Boolean
-
-    hIsNumberingBullets = false
-    NOerror = false
-
-    sleep (1)
-    try
-        FormatNumberingBullets
-        NOerror = true
-    catch
-        Warnlog "w_tool5.inc::hIsNumberingBullets::Slot not available"
-        NOerror = false
-    endcatch
-
-    if NOerror then
-        Kontext
-        Active.SetPage TabBullet
-        Kontext "TabBullet"
-        sleep (1)
-        if (remove.isEnabled) then
-            hIsNumberingBullets = true
-        else
-            hIsNumberingBullets = false
-        end if
-        TabBullet.cancel
-    end if
-    sleep (1)
-end function
-
-'------------------------------------------------------------------------------
-
-sub hFormatParagraphNumbering (sStyle as string,bRestart as integer,sStartW as string)
-
-    FormatParagraph
-    Kontext
-    Active.SetPage TabNumerierungAbsatz
-    Kontext "TabNumerierungAbsatz"
-
-    try
-        if (sStyle <> "") then
-            Vorlage.Select sStyle
-        else
-            Vorlage.Select 2
-        end if
-        if (bRestart <> -1) then
-            select case bRestart
-            case 0: NumerierungNeuBeginnen.UnCheck
-            case 1: NumerierungNeuBeginnen.Check
-            case 2: NumerierungNeuBeginnen.TriState
-            end select
-        end if
-        if (sStartW <> -1) then
-            select case sStartW
-            case 0: NumerierungBeginnenBei.UnCheck
-            case 1: NumerierungBeginnenBei.Check
-            end select
-        end if
-    catch
-        Warnlog "Not possible; wrong style=none??"
-    endcatch
-
-    TabNumerierungAbsatz.OK
-
-end sub
-
-'------------------------------------------------------------------------------
-
-function hFindInDocument (sTempSearch as string) as boolean
-    dim  sTemp as string
-
-    hFindInDocument = FALSE
-    Call hFindeImDokument (sTempSearch, 1)
-    EditCopy
-    sTemp = right (GetClipboardText(), len(sTempSearch))
-    if (sTemp <> sTempSearch) then
-        Warnlog "Found: '" & sTemp & "'  and not: " & sTempSearch
-        hFindInDocument = FALSE
-    else
-        hFindInDocument = TRUE
-    end if
-end function
diff --git a/testautomation/writer/tools/includes/w_tool6.inc b/testautomation/writer/tools/includes/w_tool6.inc
deleted file mode 100644
index 6bac06fb9ff5..000000000000
--- a/testautomation/writer/tools/includes/w_tool6.inc
+++ /dev/null
@@ -1,725 +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 : helge.delfs@oracle.com
-'*
-'* short description : Tools for writer tests.
-'*
-'\******************************************************************************
-
-sub wOfficeRestart
-
-    hFileCloseAll()
-    ' Close the backing windows
-    FileExit "SynchronMode", TRUE
-
-    Call hStartTheOffice
-
-    ' Open new document
-    Call hNewDocument
-
-end sub
-
-'--------------------------------------------------------------
-' end of temporaly functions
-'--------------------------------------------------------------
-
-function LiberalMeasurement ( sShould$, sActual$) as Boolean
-    '/// Input : (1. Should, 2. Actual) as Number with or without MeasurementUnit 'NumericField' as String ///'
-    '///+ if input has no MeasurementUnit i take it as 'cm' (was the default in old tests) ///'
-    '///+ Output: Boolean are they likely the same?
-    '/// NEEDED: mathematical proofment of iTolerance, by now just some guesses :-| ///'
-    '/// reason for this function:///'
-    '///+ because SO counts internaly in 'twip┤s' 'twentieth of a point' there are some rounding errors ///'
-    '///+ there are also some rounding errors because of the internal representatio of floating point numbers in computers ///'
-    '///+ now lets try to get rid of them and have a nicer output in tests... ///'
-    dim iTolerance as Double
-
-    LiberalMeasurement = False ' worst case
-
-    if (sShould$ = sActual$) then
-        LiberalMeasurement = True
-    else
-        ' check if measunit is the same !!
-        if (GetMeasUnit(sShould$) <> GetMeasUnit(sActual$) ) then
-            warnlog "in function LiberalMeasurement the measUnit is different, compare not possible yet :-("
-        else
-            ' set factor for liberality ;-)
-            iTolerance = 0.04
-            if ( (StrToDouble(sShould$) + iTolerance) >= StrToDouble(sActual$) ) AND ((StrToDouble ( sShould$ ) - iTolerance) <= StrToDouble ( sActual$ )) then
-                LiberalMeasurement = True
-            else
-                LiberalMeasurement = False
-            end if
-        end if
-    end if
-end function
-
-'--------------------------------------------------------------
-
-function GetMeasUnit ( sWert$ ) as String
-    '/// Input : Number with or without MeasurementUnit 'NumericField' as String ///'
-    '///+ Output: Initials of MeasurementUnit as String or "" when only a number ///'
-
-    '/// first lets check, if there is a number -> no unit there ///
-    if isNumeric (right (sWert$, 1)) then
-        GetMeasUnit = ""
-    else
-        '/// the only single character is '"' all others are two chars ///
-        if (  StrComp (right (sWert$, 1), chr$(34) ) = 0 ) then
-            GetMeasUnit = right (sWert$, 1)
-        else
-            GetMeasUnit = right (sWert$, 2)
-        end if
-    end if
-end function
-
-'--------------------------------------------------------------
-
-function StrToDouble ( sWert$ ) as Double
-    Dim sDummy$, test
-    dim i, i1, i2 as integer
-    dim a as integer
-    dim b as integer
-    dim c as double
-    dim n as integer
-
-    '/// Input : {'a[. ,]b[mm cm " pi pt]' with a, b as integer} as String ///'
-    '///+ Output: a[. , ]b as double ///'
-
-    ' get rid of measure unit, the only single character is '"' all others are two chars
-    ' there was a problem, if there is NO meas.unit!!!
-    if Len(sWert$) > Len(mUnit) then
-        test = Left$(sWert$, (len(sWert$) - Len(mUnit)))
-        StrToDouble = cDbl(rtrim(test))
-        exit function
-        if (isNumeric (sWert$) = FALSE) then
-            if (  StrComp (right (sWert$, 1), chr$(34) ) = 0 ) then
-                sDummy$ = Left$ ( sWert$, Len(sWert$)-1 )
-            else
-                sDummy$ = Left$ ( sWert$, Len(sWert$)-2 )
-            end if
-        else
-            sDummy$ = sWert$
-        end if
-        ' get position of fraction mark
-        i1 = instr (sDummy$, ",")  ' wrong output
-        i2 = instr (sDummy$, ".")
-        if i1 > i2 then i = i1 else i = i2
-        ' vorkommateil
-        try
-            a = val (left$ (sDummy$,i-1))
-        catch
-        endcatch
-        n = (len (sDummy$)-i)
-        b = val (right$ (sDummy$, n) )
-        c = b * 10 ^ -n
-        StrToDouble = a + c
-    else
-        StrToDouble = 0
-    end if
-end function
-
-'--------------------------------------------------------------
-
-function wKillUpcomingActives(optional sDocument as string)
-    ' primary used in import/export tests
-    '/// to get any aktive killed & print the content of the aktive ///'
-    ' to catch errors during loading document
-    Kontext "Active"
-    if Active.Exists then
-        if Strcomp(Left(Active.GetText,42),"Saving in external formats may have caused") = 0 then
-            printlog "info loss, messg!! OK??"
-        end if
-        try
-            Active.Yes
-        catch
-            printLog Active.GetText
-        endcatch
-        sleep(2)
-        Kontext "Active"
-        if Active.Exists then
-            if IsMissing(sDocument) then
-                Warnlog "(1/2): " + Active.GetText ' Changed from Warn to print.
-            else
-                Select case sDocument
-                Case "sw31.sdw", "sw31.vor"
-                    warnlog "Saving sdw-file as sxw fails"
-                Case else
-                    Warnlog Active.Gettext
-                end select
-            end if
-            try
-                Active.Ok ' Read Error
-            catch
-                Active.No ' Style is different ...
-            endcatch
-        end if
-    end if
-    ' catching style after read error :-)
-    sleep(2)
-    Kontext "Active"
-    if Active.Exists then
-        WarnLog "(2/2): "+Active.GetText
-        try
-            Active.No ' Style is different ...
-        catch
-            Active.Ok ' maybe...
-        endcatch
-    end if
-end function
-
-'--------------------------------------------------------------
-
-function wGetCharacterFont as String
-    Dim wasAsianLan as boolean
-    '/// Input : nothing ///'
-    '///+ Output: Fontname at cursor position as String ///'
-    FormatCharacter
-    Kontext
-    sleep (1)
-    Active.SetPage TabFont
-    Kontext "TabFont"
-    sleep (1)
-    try
-        if gAsianSup = True then
-            wGetCharacterFont = FontWest.GetSelText
-        else
-            wGetCharacterFont = Font.GetSelText
-        end if
-        TabFont.Cancel
-        sleep (1)
-    catch
-        TabFont.Cancel
-        wasAsianLan = ActiveDeactivateAsianSupport (True)
-        FormatCharacter
-        Kontext
-        sleep (1)
-        Active.SetPage TabFont
-        Kontext "TabFont"
-        sleep (1)
-        wGetCharacterFont = FontWest.GetSelText
-        TabFont.Cancel
-        sleep (1)
-        wasAsianLan = ActiveDeactivateAsianSupport (True)
-    endcatch
-end function
-
-'--------------------------------------------------------------
-
-function wGetCharacterFontSize as String
-    Dim wasAsianLan as boolean
-    '/// Input : nothing ///'
-    '///+ Output: FontSize at cursor position as String ///'
-    FormatCharacter
-    Kontext
-    sleep (1)
-    Active.SetPage TabFont
-    Kontext "TabFont"
-    sleep (1)
-    try
-        if gAsianSup = True then
-            wGetCharacterFontSize = SizeWest.GetSelText
-        else
-            wGetCharacterFontSize = Size.GetSelText
-        end if
-        TabFont.Cancel
-        sleep (1)
-    catch
-        TabFont.Cancel
-        wasAsianLan = ActiveDeactivateAsianSupport (True)
-        FormatCharacter
-        Kontext
-        sleep (1)
-        Active.SetPage TabFont
-        Kontext "TabFont"
-        sleep (1)
-        wGetCharacterFontSize = SizeWest.GetSelText
-        TabFont.Cancel
-        sleep (1)
-        wasAsianLan = ActiveDeactivateAsianSupport (True)
-    endcatch
-end function
-
-'--------------------------------------------------------------
-
-function ZeilenHoeheHolen as Double
-    '/// input: nothing///'
-    '///+ output: FormatRowHeight as double///'
-    Dim zWert as Double : Dim Ausgabe$
-    FormatRowHeight
-    Wait 100
-    Kontext "ZellenHoehe"
-    Ausgabe$ = Hoehe.GetText
-    zWert = ZahlAusSpinnfield ( Ausgabe$ )
-    if zWert = 0.01 then
-        ZeilenHoeheHolen = 0.00
-    else
-        ZeilenHoeheHolen = zWert
-    end if
-    ZellenHoehe.OK
-end function
-
-'--------------------------------------------------------------
-
-sub ZeilenHoeheTesten ( Wert as Double )
-    '/// input: FormatRowHeight as double///'
-    '///+ output: warnlog, if not eaqual ///'
-    '/// LiberalMeasurement enabled///'
-    Dim zWert as Double
-    FormatRowHeight
-    Kontext "ZellenHoehe"
-    zWert = ZahlAusSpinnfield ( Hoehe.GetText )
-    if (LiberalMeasurement (Wert, zWert) <> TRUE) then QAErrorlog "Die Zeilenh�he ist nicht "+ Wert + " sondern "+ zWert + "."
-    ZellenHoehe.OK
-end sub
-
-'--------------------------------------------------------------
-
-function SpaltenBreiteHolen as Double
-    FormatColumnWidthWriter
-    Kontext "SpaltenBreite"
-    SpaltenBreiteHolen = ZahlAusSpinnfield (Breite.GetText )
-    SpaltenBreite.OK
-end function
-
-'--------------------------------------------------------------
-
-sub SpaltenBreiteTesten ( Wert as Double )
-    Dim zWert as Double
-    FormatColumnWidthWriter
-    Kontext "SpaltenBreite"
-    zWert = ZahlAusSpinnfield ( Breite.GetText )
-    if Not Wert = zWert then
-        Warnlog "Die Spaltenbreite ist nicht "+ Wert +" sondern "+ zWert
-    end if
-    SpaltenBreite.OK
-end sub
-
-'--------------------------------------------------------------
-
-sub SeitenAbstaendeHolen ( ZweiWerte() as Double )
-    FormatTable
-    Kontext
-    Active.SetPage TabTabelle
-    Kontext "TabTabelle"
-    ZweiWerte(1) = ZahlAusSpinnfield ( NachLinks.GetText )
-    ZweiWerte(2) = ZahlAusSpinnfield ( NachRechts.GetText )
-    TabTabelle.Cancel
-end sub
-
-'--------------------------------------------------------------
-
-sub SeitenAbstaendeTesten ( WertLi as Double, WertRe as Double )
-    '/// liberalMeasurement implemented ///'
-    Dim zWert1 as Double : Dim zWert2 as Double
-    FormatTable
-    Kontext
-    Active.SetPage TabTabelle
-    Kontext "TabTabelle"
-    zWert1 = ZahlAusSpinnfield ( NachLinks.GetText )
-    zWert2 = ZahlAusSpinnfield ( NachRechts.GetText )
-
-    if (LiberalMeasurement (zWert1, WertLi) <> TRUE) then Warnlog "Left distance not " + WertLi + "  but " + zWert1
-    if (LiberalMeasurement (zWert2, WertRe) <> TRUE) then Warnlog "Right distance not " + WertRe + "  but " + zWert2
-    wait 300
-    TabTabelle.Cancel
-end sub
-
-'--------------------------------------------------------------
-
-function ZahlAusSpinnfield ( sWert$ ) as Double
-    ZahlAusSpinnfield = StrToDouble ( sWert$)
-    printlog ZahlAusSpinnfield
-end function
-
-'--------------------------------------------------------------
-
-sub ZeilenTesten ( Anzahl% )
-    dim temp(10) as string
-    Dim i as Integer
-    Dim Dummy as Integer
-    Kontext "DocumentWriter"
-    DocumentWriter.TypeKeys "<Up>", 5 ' Move out of table ????!!!!
-    for i=2 to Anzahl% +4   ' might work, but if there are some more tables, it doesn't!!
-        try
-            Call wTypeKeys "<Down>"
-            FormatRowHeight       'This is OK; but different evaluation is necessary
-            Kontext "ZellenHoehe"
-            ZellenHoehe.Cancel
-            dummy = i
-        catch
-            i = Anzahl% +20
-        endcatch
-    next i
-    if dummy <> Anzahl% then Warnlog "Die Tabelle hat wohl mehr Zeilen als erwartet: soll => "+ Anzahl% +" sind "+ dummy
-    Kontext "DocumentWriter"
-    DocumentWriter.TypeKeys "<Up><Left>", 10
-end sub
-
-'--------------------------------------------------------------
-
-sub SpaltenTesten ( Anzahl% )
-    FormatColumnWidthWriter
-    Kontext "SpaltenBreite"
-    Spalte.More Anzahl%
-    if Anzahl% <> Spalte.GetText then Warnlog "Table has mohl column then expected: should => "+ Anzahl% +" is "+ Spalte.GetText
-    SpaltenBreite.Cancel
-end sub
-
-'--------------------------------------------------------------
-
-sub TBOhTabelleEinfuegen (optional tName as string, optional tHeader as boolean, optional tRepeat as boolean, optional tSeperate as boolean, optional tBorder as boolean, optional tWidth as string, optional tHeight as string )
-    '///   TBOhTabelleEinfuegen ("Garfield",0,1,0,1,"10",tHeight:="7") ///'
-    ' maybe TODO: return of an array, that tells you the state of an existing / name table/ cause, you create a table in a tabl÷e :-)
-    ' try with switching tabpage
-    InsertTableWriter
-    Sleep 2
-    Kontext "TabelleEinfuegenWriter"
-    wait 500
-
-    ' Default had been changed. Not to rewrite the whole test I decided to changed the row-number
-    Spalten.Settext "5"
-    wait 500
-
-    if (IsMissing (tName) <> True) then TabellenName.SetText tName
-    if (IsMissing (tHeader) <> True) then
-        if tHeader then
-            Ueberschrift.Check
-            if (IsMissing (tRepeat) <> True) then if tRepeat then UeberschriftWiederholen.Check else UeberschriftWiederholen.UnCheck
-        else
-            Ueberschrift.UnCheck
-        end if
-    end if
-
-    if IsMissing (tSeperate) <> True then
-        if tSeperate then
-            TabelleNichtTrennen.Check
-        else
-            TabelleNichtTrennen.UnCheck
-        end if
-    end if
-
-    if IsMissing(tBorder) <> True then
-        if tBorder then
-            Umrandung.check
-        else
-            Umrandung.check
-        end if
-    end if
-
-    if IsMissing(tWidth) <> True then
-        Spalten.SetText tWidth
-    else
-        Spalten.Settext "5"
-    end if
-    if IsMissing(tHeight) <> True then Zeilen.SetText tHeight
-
-    TabelleEinfuegenWriter.OK
-    Sleep 1
-
-    Kontext "TableObjectbar"
-    Sleep 1
-    if TableObjectbar.NotExists then
-        Kontext "TextObjectbar"
-        TextObjectbar.SetNextToolBox
-    end if
-
-    Select Case gApplication
-    Case "WRITER"
-        Kontext "DocumentWriter"
-
-    Case "MASTERDOCUMENT"
-        Kontext "DocumentMasterDoc"
-
-    Case "HTML"
-        Kontext "DocumentWriterWeb"
-
-    end select
-    Sleep 1
-end sub
-
-'--------------------------------------------------------------
-
-function hGetTableName () as string
-    hGetTableName = "" ' Worst Case
-    TableTableProperties                ' get into existing table
-    Sleep (1)
-    try
-        Kontext
-        Active.SetPage TabTabelle
-        Sleep (1)
-        Kontext "TabTabelle"
-        Sleep (1)
-        hGetTableName = TabellenName.GetText
-        TabTabelle.Cancel
-    catch
-        Kontext "TabelleEinfuegenWriter"
-        if TabelleEinfuegenWriter.Exists then
-            hGetTableName = TabellenName.Gettext
-            TabelleEinfuegenWriter.Ok
-        else
-            hGetTableName = ""
-        end if
-    endcatch
-    Sleep (1)
-end function
-
-'--------------------------------------------------------------
-
-function dec(Ref as integer)
-    ' ----------------------------------------
-    ' to give this func a var as ref: call without ANNY brackets => 'dec Variable'
-    ' opposite of this to call it via value ! WE DON'T WANT THIS !
-    ' (would be 'dec (Variable)' or in declaration 'function dec (ByVal x)')
-    Ref = Ref - 1
-end function
-
-'--------------------------------------------------------------
-
-function inc(Ref as integer)
-    'printlog "inc:"+ref
-    Ref = Ref + 1
-end function
-
-'--------------------------------------------------------------
-
-function hGetColumn() as integer
-    try
-        FormatColumnWidthWriter
-    catch
-        printlog "func1.inc->hGetColumn asks for table."
-        hTypeKeys "<left>"
-        try
-            FormatColumnWidthWriter
-        catch
-            print "giving up to find a table: func1 hgetcolumn 2"
-        endcatch
-    endcatch
-    Kontext "SpaltenBreite"
-    if SpaltenBreite.exists then
-        hGetColumn = Spalte.GetText
-        SpaltenBreite.Cancel
-    else
-        hGetColumn = 0
-    end if
-end function
-
-'--------------------------------------------------------------
-
-function hNavigatorOpenWindows() as Integer
-    hNavigatorOpenWindows = 0
-
-    goto ENDE
-    '/// Input: (); Output: 0: for the usual started SO first window / +1 for each other open Window ///'
-    '///+                    -2 if no window is open :-) (i think then there is another problem ...)///'
-    '///+ this fuunction depends on navigator-fuunction:  ///'
-    '///+ NO nav avail in: Formular; NOT CATCHED UPTONOW ///'
-    '///+ count classes - only windows in this class are visible in their nav ///'
-    '///+ Spreadsheet ///'
-    '///+ Presentation, Drawing///'
-    '///+ Text Doc, HTML Doc, Labels, Business cards, AND ///'
-    '///+ !Master Doc! in his nav are no windows countable!; NOT CATCHED UPTONOW ///'
-
-    '/// usually it counts 2 windows; 1. the window, that results in starting office ///'
-    '///+ 2. The entry 'Active Window', is always there (entries in navigator changes automatical ///'
-    '///+    to the visible window ->  2 this is the minima! ///'
-    '///+ so i give back a count of x-2 everything below 0 is an error !///'
-
-    dim j as integer, WelcherEintrag as integer
-    ' Navigator zur├�?cksetzen
-    Kontext "NavigatorWriter"
-    if NavigatorWriter.NotExists then ViewNavigator
-    sleep (1)
-    Kontext
-    do while (Active.Exists)
-        printlog Active.GetText
-        try
-            active.yes ' ....
-        catch
-            active.ok ' ...new since 638a5 7001 :-(
-        endcatch
-        Kontext
-    loop
-    Kontext "NavigatorWriter"
-    sleep (3)
-    hNavigatorOpenWindows = DokumentListe.GetItemCount - 2  ' couldn' see dokumentliste :-( reason:: active that prevents it :-(
-    sleep (3)
-    '   printlog " hnow: "+DokumentListe.GetItemCount +" "+DokumentListe.GetSelText
-    if (DokumentListe.GetItemCount = 0) then print "waassss o ??!!?!??!?!"
-    '   close Navigator
-    ViewNavigator
-    Kontext "DocumentWriter"
-    ENDE:
-end function
-
-'--------------------------------------------------------------
-
-sub hSetSpellHypLanguage
-    dim sTrieit
-    if bAsianLan then
-        Printlog " to get it to work, ihave to change the default languge in the options! FOR CURRENT DOCUMENT ONLY!!!!!"
-        ToolsOptions
-        Call hToolsOptions ("LANGUAGESETTINGS","LANGUAGES")
-        AktuellesDokument.Check
-        if glLocale (4) = "" then
-            warnlog "choose a spellbokk from the list below and insert it into the file <\testtool\input\impress\locale_1.txt> on position (4) (only enabled for asiann languages!) - '"+glLocale(4)+"'"
-            Kontext "ExtrasOptionenDlg"
-            ExtrasOptionenDlg.Cancel
-            sTrieit = hFindSpellHypLanguage
-            ToolsOptions
-            Call hToolsOptions ("LANGUAGESETTINGS","LANGUAGES")
-            AktuellesDokument.Check
-            if sTrieit <> "" then
-                Westlich.Select sTrieit
-            else
-                warnlog "SOrry no spellbook found :-("
-            end if
-        else
-            Westlich.Select glLocale (4)
-        end if
-        printlog "selected: "+Westlich.GetSelText
-        Kontext "ExtrasOptionenDlg"
-        ExtrasOptionenDlg.OK
-    end if
-end sub
-
-'--------------------------------------------------------------
-
-sub hFindSpellHypLanguage as string
-    dim iListLength as integer
-    dim i as integer
-
-    if bAsianLan then
-        ToolsOptions                                             ' take length of list
-        Call hToolsOptions ("LANGUAGESETTINGS","WRITINGAIDS")
-        SprachmoduleBearbeiten.click
-        Kontext "ModuleBearbeiten"
-        for i = 1 to Sprache.GetItemCount
-            Sprache.Select i
-            sleep 1
-            Printlog " "+i+": '"+Sprache.GetSelText +"'"
-            if i = 1 then hFindSpellHypLanguage = Sprache.GetSelText
-        next i
-        ModuleBearbeiten.Close
-        Kontext "ExtrasOptionenDlg"
-        ExtrasOptionenDlg.OK
-        sleep 1
-    end if
-end sub
-
-'--------------------------------------------------------------
-
-function wCheckRowHeight ( ShouldValue as string ) as boolean
-    FormatRowHeight
-    Kontext "ZellenHoehe"
-    if Hoehe.Gettext <> ShouldValue then
-        Warnlog "Height is not " + ShouldValue + " but " + Hoehe.Gettext
-        wCheckRowHeight = False
-    else
-        wCheckRowHeight = True
-    end if
-    ZellenHoehe.Cancel
-end function
-
-'--------------------------------------------------------------
-
-sub wSearchWriteableArea ()
-    Dim PageDownNow as boolean, NowWriteable as boolean
-    Dim i as integer
-    ' This sup has not been properly worked
-    ' Looks complicated but isn't
-    ' Searches for messagebox, if found makes a PageDown in document 5 times
-    ' if writeable then, the moves curors up 1000 times. Hope it helps
-    ' Document is completely writeprotected the sup would loop endless
-    NowWriteable = False
-    PageDownNow = True
-    Do until NowWriteable = True
-        Call wTypeKeys " "
-        Kontext "Active"
-        if Active.Exists then
-            if Active.GetRT = 304 then
-                Active.Ok
-                if PageDownNow = True then
-                    for i = 1 to 10
-                        Call wTypeKeys "<Down>", 5
-                        Call wTypeKeys " "
-                        Kontext "Active"
-                        if Active.Exists then
-                            if Active.GetRT = 304 then
-                                Active.Ok
-                            end if
-                        else
-                            NowWriteable = True
-                            i = 11
-                        end if
-                    next i
-                else
-                    for i = 1 to 1000
-                        Call wTypeKeys "<Up>", 1
-                        Call wTypeKeys " "
-                        Kontext "Active"
-                        if Active.Exists then
-                            if Active.GetRT = 304 then
-                                Active.Ok
-                            end if
-                        else
-                            NowWriteable = True
-                            i = 1002
-                        end if
-                    next i
-                end if
-            else
-                NowWriteable = True
-                Exit Do
-            end if
-        else
-            NowWriteable = True
-            Exit Do
-        end if
-    Loop
-end sub
-
-'---------------------------------------------------
-
-function fInsertFrame (x1 as Integer , y1 as Integer , x2 as Integer , y2 as Integer)
-    'This function will insert a frame with the coordinate
-
-    hSetDocumentContext()
-
-    Call hToolbarSelect("INSERT", true )
-    Sleep 1
-    Kontext "Insertbar"
-    Rahmen.Click
-    Sleep 1
-
-    Call gMouseDown ( x1,y1 )
-    Call gMouseMove ( x1,y1,x2,y2 )
-    Call gMouseUp( x2,y2 )
-    wait 500
-
-end function
diff --git a/testautomation/writer/tools/includes/w_tool7.inc b/testautomation/writer/tools/includes/w_tool7.inc
deleted file mode 100644
index 1079a4c3dbcc..000000000000
--- a/testautomation/writer/tools/includes/w_tool7.inc
+++ /dev/null
@@ -1,460 +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 :  helge.delfs@oracle.com
-'*
-'* short description : Functions mostly used for fields
-'*
-'*******************************************************************
-'*
-' #0 fSetLocale
-' #0 fSetWestern
-' #0 fSetAsian
-' #0 fGetType
-' #0 fGetFieldContent
-' #0 fGetDate
-' #0 fGetDate1
-'*
-'\***********************************************************************
-
-function fSetLocale(sLocaleSetting as String)  as String
-
-    'This function is set Locale in Tools/Options/Language Settings / Languages
-    ToolsOptions
-    Call hToolsOptions("LANGUAGESETTINGS","LANGUAGES")
-    fSetLocale = Gebietsschema.GetSelText
-    Gebietsschema.Select  sLocaleSetting
-    Kontext "ExtrasOptionenDlg"
-    ExtrasOptionenDlg.OK
-
-end function
-
-'----------------------------------------------------
-
-function fSetWestern(sWestern as String)  as String
-
-    'This function is set western language in Tools/Options/Language Settings / Languages
-    ToolsOptions
-    Call hToolsOptions("LANGUAGESETTINGS","LANGUAGES")
-    fSetWestern = Westlich.GetSelText
-    if sWestern = "Null" then
-        Westlich.Select  1
-        goto GoON
-    end if
-    Westlich.Select  sWestern
-    GoON:
-    Kontext "ExtrasOptionenDlg"
-    ExtrasOptionenDlg.OK
-
-end function
-
-'----------------------------------------------------
-
-function fSetAsian(sAsian as String)  as String
-
-    'This function is set CJK language in Tools/Options/Language Settings / Languages
-    ToolsOptions
-    Call hToolsOptions("LANGUAGESETTINGS","LANGUAGES")
-    fSetAsian = Asiatisch.GetSelText
-    if sAsian = "Null" then
-        if Asiatisch.IsEnabled then Asiatisch.Select  1
-    else
-        if Asiatisch.IsEnabled then Asiatisch.Select sAsian
-    end if
-    Kontext "ExtrasOptionenDlg"
-    ExtrasOptionenDlg.OK
-
-end function
-
-'----------------------------------------------------
-
-function fGetType(sType as String)  as String
-
-    'This function will RETURN TYPE
-    select case sType
-    case "Author"
-        select case iSprache
-        case 1:   	fGetType = "Author"
-        case 7:		fGetType = "Автор"
-        case 31:  	fGetType = "Gebruiker"
-        case 33:  	fGetType = "Utilisateur"
-        case 34:  	fGetType = "Autor"
-        case 36:  	fGetType = "Szerzó"
-        case 39:  	fGetType = "Autore"
-        case 46:  	fGetType = "Användare"
-        case 49:  	fGetType = "Benutzer"
-        case 55:  	fGetType = "Autor"
-        case 81:  	fGetType = "ユーザー"
-        case 82:  	fGetType = "작성�?"
-        case 86:  	fGetType = "使用者"
-        case 88:  	fGetType = "使用者"
-        case else :
-            QAErrorLog "Now, the test does not support for the language " +iSprache
-            fGetType = ""
-        end select
-    case "Chapter"
-        select case iSprache
-        case 1:      	fGetType = "Chapter"
-        case 7:		fGetType = "Глава"
-        case 31:     	fGetType = "Hoofdstuk"
-        case 33:     	fGetType = "Chapitre"
-        case 34:     	fGetType = "Capítulo"
-        case 36:     	fGetType = "Fejezet"
-        case 39:     	fGetType = "Capitolo"
-        case 46:     	fGetType = "Kapitel"
-        case 49:     	fGetType = "Kapitel"
-        case 55:     	fGetType = "Capítulo"
-        case 81:     	fGetType = "章"
-        case 82:     	fGetType = "장"
-        case 86:     	fGetType = "章"
-        case 88:     	fGetType = "章"
-        case else :
-            QAErrorLog "Now, the test does not support for the language " +iSprache
-            fGetType = ""
-        end select
-    case "Date"
-        select case iSprache
-        case 1:      	fGetType = "Date"
-        case 7:		fGetTYpe = "Дата"
-        case 31:     	fGetType = "Datum"
-        case 33:     	fGetType = "Date"
-        case 34:     	fGetType = "Fecha"
-        case 36:     	fGetType = "Dátum"
-        case 39:     	fGetType = "Data"
-        case 46:     	fGetType = "Datum"
-        case 49:     	fGetType = "Datum"
-        case 55:     	fGetType = "Data"
-        case 81:     	fGetType = "日付"
-        case 82:     	fGetType = "날짜"
-        case 86:     	fGetType = "日期"
-        case 88:     	fGetType = "日期"
-        case else :
-            QAErrorLog "Now, the test does not support for the language " +iSprache
-            fGetType = ""
-        end select
-    case "File name"
-        select case iSprache
-        case 1:      	fGetType = "File name"
-        case 7:		fGetType = "Имя файла"
-        case 31:     	fGetType = "Bestandsnaam"
-        case 33:     	fGetType = "Nom de fichier"
-        case 34:     	fGetType = "Nombre del archivo"
-        case 36:     	fGetType = "Fájlnév"
-        case 39:     	fGetType = "Nome file"
-        case 46:     	fGetType = "Filnamn"
-        case 49:     	fGetType = "Dateiname"
-        case 55:     	fGetType = "Nome do arquivo"
-        case 81:     	fGetType = "ファイル�??"
-        case 82:     	fGetType = "파�?� �?�름"
-        case 86:     	fGetType = "文件�??"
-        case 88:     	fGetType = "檔案�??"
-        case else :
-            QAErrorLog "Now, the test does not support for the language " +iSprache
-            fGetType = ""
-        end select
-    case "Page"
-        select case iSprache
-        case 1:      	fGetType = "Page"
-        case 7:		fGetType = "Страница"
-        case 31:     	fGetType = "Pagina"
-        case 33:     	fGetType = "Page"
-        case 34:     	fGetType = "Página"
-        case 36:     	fGetType = "Oldal"
-        case 39:     	fGetType = "Pagina"
-        case 46:     	fGetType = "Sida"
-        case 49:     	fGetType = "Seite"
-        case 55:     	fGetType = "Página"
-        case 81:     	fGetType = "ページ"
-        case 82:     	fGetType = "페�?�지"
-        case 86:     	fGetType = "页"
-        case 88:     	fGetType = "�?"
-        case else :
-            QAErrorLog "Now, the test does not support for the language " +iSprache
-            fGetType = ""
-        end select
-    case "Sender"
-        select case iSprache
-        case 1:      	fGetType = "Sender"
-        case 7:		fGetType = "Отправитель"
-        case 31:     	fGetType = "Afzender"
-        case 33:     	fGetType = "Expéditeur"
-        case 34:     	fGetType = "Remitente"
-        case 36:     	fGetType = "Feladó"
-        case 39:     	fGetType = "Mittente"
-        case 46:     	fGetType = "Avsändare"
-        case 49:     	fGetType = "Absender"
-        case 55:     	fGetType = "Remetente"
-        case 81:     	fGetType = "差出人"
-        case 82:     	fGetType = "보낸 사람"
-        case 86:     	fGetType = "�?�件人"
-        case 88:     	fGetType = "寄件者"
-        case else :
-            QAErrorLog "Now, the test does not support for the language " +iSprache
-            fGetType = ""
-        end select
-    case "Statistics"
-        select case iSprache
-        case 1:      fGetType = "Statistics"
-        case 7:		fGetType = "Статистика"
-        case 31:     fGetType = "Statistiek"
-        case 33:     fGetType = "Statistiques"
-        case 34:     fGetType = "Estadística"
-        case 36:     fGetType = "Statisztika"
-        case 39:     fGetType = "Statistiche"
-        case 46:     fGetType = "Statistik"
-        case 49:     fGetType = "Statistik"
-        case 55:     fGetType = "Estatísticas"
-        case 81:     fGetType = "統計"
-        case 82:     fGetType = "통계"
-        case 86:     fGetType = "统计"
-        case 88:     fGetType = "統計"
-        case else :
-            QAErrorLog "Now, the test does not support for the language " +iSprache
-            fGetType = ""
-        end select
-    case "Templates"
-        select case iSprache
-        case 1:      	fGetType = "Templates"
-        case 7:      	fGetType = "Шаблоны"
-        case 31:     	fGetType = "Sjablonen"
-        case 33:     	fGetType = "Modèle de document"
-        case 34:     	fGetType = "Plantillas"
-        case 36:     	fGetType = "Sablonok"
-        case 39:     	fGetType = "Modello"
-        case 46:     	fGetType = "Dokumentmall"
-        case 49:     	fGetType = "Dokumentvorlage"
-        case 55:     	fGetType = "Modelos"
-        case 81:     	fGetType = "ドキュメントテンプレート"
-        case 82:     	fGetType = "서�? 파�?�"
-        case 86:     	fGetType = "文档�?样"
-        case 88:     	fGetType = "文件樣�?"
-        case else :
-            QAErrorLog "Now, the test does not support for the language " +iSprache
-            fGetType = ""
-        end select
-    case "Time"
-        select case iSprache
-        case 1:      	fGetType = "Time"
-        case 7:		fGetTYpe = "Время"
-        case 31:     	fGetType = "Tijd"
-        case 33:     	fGetType = "Heure"
-        case 34:     	fGetType = "Hora"
-        case 36:     	fGetTYpe = "Idó"
-        case 39:     	fGetType = "Orario"
-        case 46:     	fGetType = "Klockslag"
-        case 49:     	fGetType = "Uhrzeit"
-        case 55:     	fGetType = "Hora"
-        case 81:     	fGetType = "時刻"
-        case 82:     	fGetType = "시간"
-        case 86:     	fGetType = "时间"
-        case 88:     	fGetType = "時間"
-        case else :
-            QAErrorLog "Now, the test does not support for the language " +iSprache
-            fGetType = ""
-        end select
-    case else :        ' Fallback
-        QAErrorLog "Now, the test does not support for the type -- " &sType
-        fGetType = ""
-    end select
-
-end function
-
-'----------------------------------------------------
-
-function fGetFieldContent( ) as String
-
-    Call fFormatCharacter("TabHyperlinkZeichen")
-    fGetFieldContent = Hinweis.GetText
-    TabHyperlinkZeichen.Cancel
-
-end function
-
-'----------------------------------------------------
-
-function fSetToBigSize( )
-
-    Call fFormatCharacter("TabFont")
-    try
-        SizeWest.Select SizeWest.GetItemCount
-    catch
-        Size.Select Size.GetItemCount
-    endcatch
-    TabFont.OK
-
-end function
-
-
-'----------------------------------------------------
-
-function fGetDirLanguage( ) as String
-
-    'This function will RETURN language name for
-    'install directory ,
-    'eg . $SO_path/share/template/?? <- What you need to know
-    Select case iSprache
-    case 01   : fGetDirLanguage = "en-US"    '(English USA)
-    case 31   : fGetDirLanguage = "nl"    ' Dutch
-    case 33   : fGetDirLanguage = "fr-FR"    '(French)
-    case 34   : fGetDirLanguage = "es-ES"    '(Spanish)
-    case 39   : fGetDirLanguage = "it-IT"    '(Italian)
-    case 46   : fGetDirLanguage = "sv-SE"    '(Swedish)
-    case 49   : fGetDirLanguage = "de-DE"    '(German)
-    case 55   : fGetDirLanguage = "pt-BR"    '(Portuguese)
-    case 81   : fGetDirLanguage = "ja-JP"    '(Japanese)
-    case 82   : fGetDirLanguage = "ko-KR"    '(Korean)
-    case 86   : fGetDirLanguage = "zh-CN"    '(Simplified Chinese)
-    case 88   : fGetDirLanguage = "zh-TW"    '(Traditional Chinese)
-    case else : QAErrorLog "The test does not support the language " + iSprache
-        fGetDirLanguage = "en-US"
-    end select
-
-end function
-
-'----------------------------------------------------
-
-function fGetCategory( ) as String
-
-    'This function will RETURN Category when inserting from template
-    Select case iSprache
-    case 01   : fGetCategory = "Education"
-    case 31   : fGetCategory = "Opleiding"
-    case 33   : fGetCategory = "Éducation"
-    case 34   : fGetCategory = "Educación"
-    case 39   : fGetCategory = "Formazione"
-    case 46   : fGetCategory = "Utbildning"
-    case 49   : fGetCategory = "Bildung"
-    case 55   : fGetCategory = "Formação"
-    case 81   : fGetCategory = "教養"
-    case 82   : fGetCategory = "�?사 학위 논문"
-    case 86   : fGetCategory = "教育"
-    case 88   : fGetCategory = "教育"
-    case else : QAErrorLog "The test does not support the language " + iSprache
-    end select
-
-end function
-
-'----------------------------------------------------
-
-function fGetStyle( ) as String
-
-    'This function will RETURN Style when inserting from template
-    Select case iSprache
-    case 01   : fGetStyle = "Master's Thesis"
-    case 33   : fGetStyle = "Mémoire"
-    case 34   : fGetStyle = "Trabajo de licenciatura"
-    case 39   : fGetStyle = "Tesi di laurea"
-    case 46   : fGetStyle = "Examensarbete"
-    case 49   : fGetStyle = "Diplomarbeit"
-    case 55   : fGetStyle = "Dissertação de Mestrado"
-    case 81   : fGetStyle = "�?�業論文"
-    case 82   : fGetStyle = "�?육"
-    case 86   : fGetStyle = "硕士论文"
-    case 88   : fGetStyle = "碩士論文"
-    case else : QAErrorLog "The test does not support the language " + iSprache
-    end select
-
-end function
-
-'----------------------------------------------------
-
-function fGetDate(sDate as String) as String
-
-    Dim sMonth , sDay , sYear as String
-
-    'This function will RETURN Style when inserting from template
-
-    select case iSystemSprache
-    case 01   :
-        sMonth = Left (sDate , 2)
-        sDay   = Mid  (sDate , 4 , 2)
-        sYear  = Right(sDate , 2)
-    case 49   :
-        sMonth = Mid  (sDate , 4 , 2)
-        sDay   = Left (sDate , 2)
-        sYear  = Right(sDate , 2)
-    case 86   :
-        sMonth = Mid  (sDate , 6 , 2)
-        sDay   = Right(sDate , 2)
-        sYear  = Mid  (sDate , 3 , 2)
-    case else:
-
-    end select
-    fGetDate = sMonth & "/" & sDay & "/" & sYear
-
-end function
-
-'----------------------------------------------------
-
-function fGetDate1(sDate as String) as String
-
-    Dim sMonth , sDay , sYear as String
-
-    'This function will RETURN Style when inserting from template
-
-    select case iSystemSprache
-    case 01   :
-        sMonth = Left (sDate , 2)
-        sDay   = Mid  (sDate , 4 , 2)
-        sYear  = Right(sDate , 4)
-    case 49   :
-        sMonth = Mid  (sDate , 4 , 2)
-        sDay   = Left (sDate , 2)
-        sYear  = Right(sDate , 4)
-    case 86   :
-        sMonth = Mid  (sDate , 6 , 2)
-        sDay   = Right(sDate , 2)
-        sYear  = Left (sDate , 4)
-    case else:
-
-    end select
-    fGetDate1 = sMonth & "/" & sDay & "/" & sYear
-
-end function
-
-'-------------------------------------------------------------------------------------------
-
-function fConvertBacklashToSlash (sTest) as String
-    '/// convert all \ to / , return the string with /
-    '///+ eg, \tmp\test\optional\includes\ ==> /tmp/test/optional/includes/
-
-    Dim i    as Integer
-    Dim s1$ : Dim s2$ : Dim s3$
-
-    s1$ = sTest
-
-    'convert all \ to /
-    do
-        i = InStr( s1$, "\" )
-        if i = 0 then exit do
-        s2$ = Left( s1$ , i-1 )
-        s1$ = Mid( s1$ , i+1 )
-        s3$ = s3$ + s2$ + "/"
-    loop until s1$=""
-    fConvertBacklashToSlash = s3$ + s1$
-
-end function
-
diff --git a/testautomation/writer/tools/includes/w_tools.inc b/testautomation/writer/tools/includes/w_tools.inc
deleted file mode 100755
index cfe0aa6e07f3..000000000000
--- a/testautomation/writer/tools/includes/w_tools.inc
+++ /dev/null
@@ -1,1353 +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 : helge.delfs@oracle.com
-'*
-'* short description : Writer-Tools
-'*
-'\******************************************************************************
-
-sub wDokSchreiben ( OutputText , optional iLoop as Integer )
-    Dim i as integer
-    If lcase(OutputText) = "<mod1 a>" then
-        If iSprache = 34 then OutputText = "<Mod1 E>"
-    end if
-    If IsMissing(iLoop) = True then iLoop = 1
-    For i = 1 to iLoop
-        Select Case Ucase(gApplication)
-        Case "WRITER"
-            Kontext "DocumentWriter"
-            DocumentWriter.TypeKeys OutputText
-
-        Case "MASTERDOCUMENT"
-            Kontext "DocumentMasterDoc"
-            DocumentMasterDoc.TypeKeys OutputText
-
-        Case "HTML"
-            Kontext "DocumentWriterWeb"
-            DocumentWriterWeb.TypeKeys OutputText
-
-        case "DRAW"
-            Call hTextrahmenErstellen (OutputText,35,35,50,20)
-        case "IMPRESS"
-            Call hTextrahmenErstellen (OutputText,35,35,50,20)
-
-        end select
-        wait 500
-    next i
-end sub
-
-' -----------------------------------------------------------------------
-
-sub wTypeKeys ( OutputText , optional iLoop as Integer )
-
-    Dim i as integer
-    If lcase(OutputText) = "<mod1 a>" then
-        If iSprache = 34 then OutputText = "<Mod1 E>"
-    end if
-    If IsMissing(iLoop) = True then iLoop = 1
-    For i = 1 to iLoop
-        Select Case Ucase(gApplication)
-        Case "WRITER"
-            Kontext "DocumentWriter"
-            DocumentWriter.TypeKeys OutputText
-
-        Case "MASTERDOCUMENT"
-            Kontext "DocumentMasterDoc"
-            DocumentMasterDoc.TypeKeys OutputText
-
-        Case "HTML"
-            Kontext "DocumentWriterWeb"
-            DocumentWriterWeb.TypeKeys OutputText
-
-        case "DRAW"
-            Call hTextrahmenErstellen (OutputText,35,35,50,20)
-        case "IMPRESS"
-            Call hTextrahmenErstellen (OutputText,35,35,50,20)
-        end select
-        wait 500
-    next i
-
-end sub
-
-' -----------------------------------------------------------------------
-
-function wBlindtextEinfuegen() as boolean
-    '/// This functions inserts a Dummytext and returns true if it was inserted
-    Dim BlindText as string, bTemp as boolean
-    bTemp = False
-    select case iSprache
-    case 01    : BlindText = "DT<F3>"
-    case 03    : BlindText = "TE<F3>"
-    case 07    : BlindText = "DT<F3>"
-    case 31    : BlindText = "BT<F3>"
-    case 34    : BlindText = "TE<F3>"
-    case 33    : BlindText = "TEX<F3>"
-    case 39    : BlindText = "TE<F3>"
-    case 45    : BlindText = "ET<F3>"
-    case 46    : BlindText = "BT<F3>"
-    case 48    : BlindText = "TW<F3>"
-    case 49    : BlindText = "BT<F3>"
-    case 55    : BlindText = "TP<F3>"
-    case 81    : BlindText = "DT<F3>"
-    case 82    : BlindText = "BT<F3>"
-    case 86    : BlindText = "DT<F3>"
-    case 88    : BlindText = "BT<F3>"
-    case else : QAErrorlog "No Shortcut for Dummytext available!"
-    end select
-
-    if BlindText > "" then
-        Call wTypeKeys BlindText
-        Kontext "Active"
-        if Active.Exists then
-            if Active.GetRT = 304 then
-                Warnlog Active.Gettext
-                Active.Ok
-            else
-                bTemp = True
-            end if
-        else
-            bTemp = True
-        end if
-    end if
-
-    wBlindtextEinfuegen = bTemp
-
-end function
-
-' -----------------------------------------------------------------------
-
-sub wZeichenobjektEinfuegen ( Objekt$, xStart%, yStart%, xEnde%, yEnde%, optional sCloseToolbar as boolean, optional bLeaveSelected as boolean )
-
-    Kontext "DrawBar"
-    if Not DrawBar.Exists then Call hToolbarSelect("Drawing", true)
-    Sleep 2
-    if IsMissing(bLeaveSelected) then
-        bLeaveSelected = false
-    endif
-
-    Objekt = UCase( Objekt )
-    select case Objekt
-    case "RECHTECK" : Rechteck.Click
-    case "LINIE"     : Linie.Click
-    case "ELLIPSE"  : Ellipse.Click
-    case "TEXT"      : Textobjekt.Click
-    case "VTEXT"     :
-        try
-            VerticalText.Click
-        catch
-            if gAsianSup = True then
-                Warnlog "Unable to insert Vertical Text! Asian Support in Options activated ?"
-            end if
-        endcatch
-    case "LAUFTEXT" : Lauftext.Click
-    case "LEGENDE"  : Legende.Click
-    case "VLEGENDE" :
-        try
-            VerticalCallout.Click
-        catch
-            Warnlog "Unable to insert Vertical Callout! Asian Support in Options activated ?"
-        endcatch
-    end select
-    Sleep (2)
-
-    Select Case gApplication
-    Case "WRITER"
-        Kontext "DocumentWriter"
-        DocumentWriter.MouseDown xStart%, yStart%
-        DocumentWriter.MouseMove xEnde%, yEnde%
-        DocumentWriter.MouseUp xEnde%, yEnde%
-        wait 100
-        Kontext "Drawbar"
-        if IsMissing(sCloseToolbar) then
-            Drawbar.Close
-        else
-            if sCloseToolbar = true then Drawbar.Close
-        end if
-        if Objekt <> "TEXT" and Objekt <> "VTEXT" then
-            Kontext "DocumentWriter"
-            if bLeaveSelected = false then
-                Call gMouseClick (10, 10)
-                wait 100
-            endif
-        end if
-
-    Case "MASTERDOCUMENT"
-        Kontext "DocumentMasterDoc"
-        DocumentMasterDoc.MouseDown xStart%, yStart%
-        DocumentMasterDoc.MouseMove xEnde%, yEnde%
-        DocumentMasterDoc.MouseUp xEnde%, yEnde%
-        wait 100
-        Kontext "Drawbar"
-        if IsMissing(sCloseToolbar) then
-            Drawbar.Close
-        else
-            if sCloseToolbar = true then Drawbar.Close
-        end if
-        if Objekt <> "TEXT" and Objekt <> "VTEXT" then
-            Kontext "DocumentMasterDoc"
-            if bLeaveSelected = false then
-                Call gMouseClick (10, 10)
-                wait 100
-            endif
-        end if
-    end select
-    sleep (1)
-end sub
-
-' -----------------------------------------------------------------------
-
-sub wObjektSelektieren ( xStart%, yStart%, xEnde%, yEnde% )
-    Call hToolbarSelect("DRAWING",true)
-    if Auswahl.Getstate(2) = 0 then
-        Auswahl.Click
-    endif
-    Select Case gApplication
-    Case "WRITER"
-        Kontext "DocumentWriter"
-        DocumentWriter.MouseDown xStart%, yStart%
-        wait 500
-        DocumentWriter.MouseMove xEnde%, yEnde%
-        DocumentWriter.MouseUp xEnde%, yEnde%
-    Case "MASTERDOCUMENT"
-        Kontext "DocumentMasterDoc"
-        DocumentMasterDoc.MouseDown xStart%, yStart%
-        wait 500
-        DocumentMasterDoc.MouseMove xEnde%, yEnde%
-        DocumentMasterDoc.MouseUp xEnde%, yEnde%
-    end select
-    wait 200
-end sub
-
-' -----------------------------------------------------------------------
-
-sub wFindSelectObjectBelow ( xStart%, yStart%, xEnde%, yEnde% )
-    WL_TB_ZF_Auswahl
-    Select Case gApplication
-    Case "WRITER"
-        Kontext "DocumentWriter"
-        DocumentWriter.MouseMove xStart%, yStart%
-        DocumentWriter.MouseDown xStart%, yStart%
-        DocumentWriter.MouseUp xStart%, yStart%
-
-        do while (Mousepointer<>"Normalpointer")
-            DocumentWriter.MouseMove xEnde%, yEnde%
-            DocumentWriter.MouseDown xEnde%, yEnde%
-            DocumentWriter.MouseUp
-        loop
-
-        i = 1
-        while ((getMouseStyle = 0) AND (i<80))
-            sleep 1
-            inc (i)
-            printlog getMouseStyle
-            if (getMouseStyle <> 0) then i = 80
-        wend
-
-    Case "MASTERDOCUMENT"
-        Kontext "DocumentMasterDoc"
-        DocumentMasterDoc.MouseDown xStart%, yStart%
-        DocumentMasterDoc.MouseMove xEnde%, yEnde%
-        DocumentMasterDoc.MouseUp xEnde%, yEnde%
-    end select
-    wait 200
-end sub
-
-' -----------------------------------------------------------------------
-
-function WortAusWoerterbuchLoeschen ( Aufnahme$ ) as Boolean
-    Dim i as integer : Dim AnzahlBuecher as string
-    Dim j as integer
-
-    ToolsOptions
-    Call hToolsOptions("LanguageSettings","WritingAids")
-    WortAusWoerterbuchLoeschen = FALSE
-    for j = 1 to Benutzerwoerterbuch.GetItemCount
-        try
-            Bearbeiten.Click
-            exit for
-        catch
-            Benutzerwoerterbuch.Select j
-        endcatch
-    next j
-    Kontext "BenutzerwoerterbuchBearbeiten"
-    AnzahlBuecher = Buch.GetItemCount
-
-    for i= 1 to AnzahlBuecher
-        Buch.Select i
-        printlog "      - search word in module: " + Buch.GetSelText
-        Kontext "BenutzerwoerterbuchBearbeiten"
-        Inhalt.SetText Aufnahme$
-        Sleep 1
-        if Entfernen.IsEnabled then
-            Entfernen.Click
-            WortAusWoerterbuchLoeschen = TRUE
-            i = AnzahlBuecher + 1
-        end if
-    next i
-    if WortAusWoerterbuchLoeschen = FALSE then Warnlog "The added word has not been found in modules"
-    BenutzerwoerterbuchBearbeiten.Close
-    Kontext "ExtrasOptionenDlg"
-    ExtrasOptionenDlg.OK
-end function
-
-' -----------------------------------------------------------------------
-
-function wIgnorierenlisteLoeschen
-    Dim i as integer : Dim j as integer : Dim AlleBuecher as integer
-
-    ToolsOptions
-    Call hToolsOptions("LANGUAGESETTINGS","WRITINGAIDS")
-    Sleep 3
-    for j = 1 to Benutzerwoerterbuch.GetItemCount
-        try
-            Bearbeiten.Click
-            exit for
-        catch
-            Benutzerwoerterbuch.Select j
-        endcatch
-    next j
-    Kontext "BenutzerwoerterbuchBearbeiten"
-    sleep 1
-    AlleBuecher = Buch.GetItemCount
-    for i = 1 to AlleBuecher
-        Buch.Select i
-        if Left$(Buch.GetSelText,13)="IgnoreAllList" then
-            sleep 2
-            for j = 1 to 100
-                if Loeschen.IsEnabled then
-                    Loeschen.Click
-                    sleep 1
-                else
-                    Kontext "Active"
-                    if Active.Exists then
-                        Warnlog Active.Gettext
-                        Active.Ok
-                    end if
-                    Kontext "BenutzerwoerterbuchBearbeiten"
-                    BenutzerwoerterbuchBearbeiten.Cancel
-                    sleep 1
-                    j=101
-                end if
-                wait 500
-            next j
-            i=AlleBuecher + 1
-        end if
-    next i
-    Kontext "ExtrasOptionenDlg"
-    ExtrasOptionenDlg.OK
-end function
-
-' -----------------------------------------------------------------------
-
-sub hLeisteUmschalten(welche as integer)
-    Sleep 2
-    Select Case welche
-    case 1:
-        try                                             ' Textobjectbar
-            Kontext "NumObjectbar"
-            NumObjectbar.SetNextToolbox
-        catch
-        endcatch
-        Sleep 1
-        if gApplication = "HTML" then
-            Kontext "TextObjectbar"
-        else
-            Kontext "TextObjectbar"
-        end if
-        Sleep 1
-        try
-            Fett.Click    ' Sonst sind Comboboxen fȭr Testtool nicht sichtbar
-            Sleep 1
-            Fett.Click
-        catch
-            Warnlog "Error on switching the function bar!"
-        endcatch
-        Sleep 1
-
-    case 2:
-        Select Case gApplication
-            ' Numbering-Objectbar
-        Case "HTML"
-            Kontext "TextObjectbar"
-            try
-                TextObjectbar.SetNextToolbox
-            catch
-            endcatch
-
-        Case else
-            Kontext "TextObjectbar"
-            try
-                TextObjectbar.SetNextToolbox
-            catch
-            endcatch
-        end select
-        Sleep 1
-        Kontext "NumObjectbar"
-        try
-            Hinunterstufen.Click
-        catch
-            try
-                Hochstufen.Click
-            catch
-                Warnlog "Error on switching the function bar!"
-            endcatch
-        endcatch
-        Sleep 2
-    end select
-end sub
-
-' -----------------------------------------------------------------------
-
-sub hGrafikleisteUmschalten(welche as integer)
-    Select Case welche
-    case 1:
-        try
-            Kontext "GraphicObjectbar"
-            Wait 500
-            GraphicObjectbar.SetNextToolBox
-        catch
-        endcatch
-        Kontext "FrameObjectbar"
-        Sleep 1
-
-    case 2:
-        try
-            Kontext "FrameObjectbar"
-            Wait 500
-            FrameObjectbar.SetNextToolBox
-        catch
-        endcatch
-        Kontext "GraphicObjectbar"
-        Sleep 1
-    end select
-end sub
-
-' -----------------------------------------------------------------------
-
-sub wEinfuegenHyperlink(welcheSeite as integer)
-    Kontext "Hyperlink"
-    Auswahl.MouseDown 2,2
-    Auswahl.MouseUp 2,2
-    wait 500
-    Auswahl.TypeKeys "<Down>",1
-    wait 500
-    Auswahl.TypeKeys "<Up>",4
-    Sleep 1
-
-    Select case welcheSeite
-    case 1:
-        Kontext "TabHyperlinkInternet"
-
-    case 2:
-        Auswahl.TypeKeys "<Down>",1
-        Kontext "TabHyperlinkMailUndNews"
-
-    case 3:
-        Auswahl.TypeKeys "<Down>",2
-        Kontext "TabHyperlinkDokument"
-
-    case 4:
-        Auswahl.TypeKeys "<Down>",3
-        Kontext "TabHyperlinkNeuesDokument"
-
-    end select
-end sub
-
-' -----------------------------------------------------------------------
-
-sub wNavigatorAuswahl(Gruppe as integer, Eintrag as integer,optional LeaveFocus as boolean)
-    dim j as integer, WelcherEintrag as integer
-    Dim MinEntrys as integer
-
-    If IsMissing(LeaveFocus) = True then LeaveFocus = False
-
-    Select Case Ucase(gApplication)
-    Case "CALC"
-        Kontext "NavigatorCalc"
-        if NavigatorCalc.NotExists then ViewNavigator
-        wait 500
-        Kontext "NavigatorCalc"
-        MinEntrys = 8
-    Case "WRITER", "HTML", "HTML"
-        Kontext "NavigatorWriter"
-        if NavigatorWriter.NotExists then ViewNavigator
-        wait 500
-        Kontext "NavigatorWriter"
-        MinEntrys = 11
-    Case "MASTERDOCUMENT"
-        Kontext "NavigatorGlobalDoc"
-        if NavigatorGlobalDoc.NotExists then ViewNavigator
-        wait 500
-        Kontext "NavigatorGlobalDoc"
-        if Liste.IsVisible then
-            Kontext "GlobaldokumentToolbox"
-            Umschalten.Click
-            Kontext "NavigatorWriter"
-        end if
-        MinEntrys = 11
-    Case Else ' for all others!!!!
-        Warnlog "Not supported application!"
-        exit sub
-    end select
-
-    Sleep 2
-
-    Select Case gApplication
-    Case "CALC"
-        if (Liste.GetItemCount < MinEntrys) then Umschalten.Click
-        if Liste.GetItemCount >MinEntrys then
-            For j= 1 to 9
-                Liste.Select j
-                Liste.TypeKeys "-"
-            next j
-        end if
-
-        Liste.Select Gruppe
-        if Eintrag >0 then
-            WelcherEintrag = Gruppe + Eintrag
-            Liste.TypeKeys "+"
-            Liste.Select WelcherEintrag
-            Liste.TypeKeys "<Return>"
-        end if
-
-    Case "WRITER","HTML"
-        if (Auswahlliste.GetItemCount < MinEntrys) then
-            try
-                Inhaltsansicht.Click
-            catch
-            endcatch
-        end if
-        if Auswahlliste.GetItemCount >MinEntrys then
-            For j= 1 to 12
-                Auswahlliste.Select j
-                Auswahlliste.TypeKeys "-"
-            next j
-        end if
-
-        Auswahlliste.Select Gruppe
-        if Eintrag >0 then
-            WelcherEintrag = Gruppe + Eintrag
-            Auswahlliste.TypeKeys "+"
-            Auswahlliste.Select WelcherEintrag
-            Auswahlliste.TypeKeys "<Return>"
-        end if
-
-    Case "MASTERDOCUMENT"
-        if Liste.IsVisible = True then
-            Umschalten.Click
-        end if
-
-        if Auswahlliste.GetItemCount >MinEntrys then
-            For j= 1 to 12
-                Auswahlliste.Select j
-                Auswahlliste.TypeKeys "-"
-            next j
-        end if
-
-        Auswahlliste.Select Gruppe
-        if Eintrag >0 then
-            WelcherEintrag = Gruppe + Eintrag
-            Auswahlliste.TypeKeys "+"
-            Auswahlliste.Select WelcherEintrag
-            Auswahlliste.TypeKeys "<Return>"
-        end if
-    end select
-
-    if LeaveFocus = False then
-        Select Case Ucase(gApplication)
-        Case "CALC"
-            Kontext "DocumentCalc"
-        Case "HTML", "HTML"
-            Kontext "DocumentWriter"
-        Case "WRITER"
-            Kontext "DocumentWriter"
-        Case "MASTERDOCUMENT"
-            Kontext "DocumentMasterDoc"
-        end select
-    end if
-end sub
-
-' ---------------------------------------------------------------
-
-function wNavigatorClose
-    '/// Close Navigator
-    Kontext "Navigator"
-    if Navigator.Exists(2) then
-        Navigator.Close
-        WaitSlot()
-    end if
-end function
-
-' ---------------------------------------------------------------
-
-sub wClearDocument
-    Dim i as integer : Dim j as integer
-    '/// Remove all Text, Drawing-objects or Objects from document ///
-    Call wTypeKeys "<PageUp><Home>"
-    Call wTypeKeys "<Backspace>",5
-    DocumentWriter.MouseDown ( 30,30 )
-    DocumentWriter.MouseMove ( 75,60 )
-    wait 500
-    DocumentWriter.MouseUp ( 75, 60 )
-    Sleep 1
-    Call wTypeKeys "<Delete>"
-    Sleep 3
-
-    Kontext "NavigatorWriter"
-    if Not NavigatorWriter.Exists then ViewNavigator
-    wait 500
-
-    Kontext "NavigatorWriter"
-    if Auswahlliste.GetItemCount <11 then Inhaltsansicht.Click  ' Grundzustand
-
-    if Auswahlliste.GetItemCount >11 then
-        For j= 1 to 12
-            Auswahlliste.Select j
-            Auswahlliste.TypeKeys "-"
-        next j
-    end if
-    wait 500
-    for i = 1 to 12
-        Auswahlliste.Select i
-        Auswahlliste.TypeKeys "+"
-        if Auswahlliste.GetItemCount > 11 then
-            for j = 1 to 5 ' maximal 5 Elemente in einer Gruppe
-                Auswahlliste.TypeKeys "<Down>"
-                Auswahlliste.TypeKeys "<Delete>"
-                wait 500
-                if Auswahlliste.GetItemCount > 11 then Auswahlliste.Select i
-            next j
-        end if
-    next i
-    if j= 5 then Warnlog "Try another way to clear page !"
-
-    Kontext "Navigator"
-    try
-        Navigator.Close
-    catch
-        Errorlog
-        ViewNavigator
-    endcatch
-
-    try
-        Call wTypeKeys "<Mod1 A>"
-    catch
-    endcatch
-    Call wTypeKeys "<Delete>"
-    DocumentWriter.MouseDown ( 50,10 )
-    DocumentWriter.MouseUp ( 50,10 )
-    Sleep 2
-    Call wTypeKeys "<Home><PageUp>"
-    Sleep 5
-end sub
-
-' ---------------------------------------------------------------
-
-sub wMarkObjects(delete as boolean)
-    ' The drawing objects has to be selected before deleting them
-    Select Case gApplication
-    Case "WRITER"
-        Kontext "DocumentWriter"
-    Case "MASTERDOCUMENT"
-        Kontext "DocumentMasterDoc"
-    Case "HTML"
-        Kontext "DocumentWriterWeb"
-    end select
-
-    Call gMouseClick 50,50
-    Call wTypeKeys "<PageUp><Home>"
-    Call wTypeKeys "<Backspace>",5
-    Call gMouseClick 50,50
-    Select Case gApplication
-    Case "WRITER"
-        DocumentWriter.TypeKeys "<Shift F4>"
-
-    Case "MASTERDOCUMENT"
-        DocumentMasterDoc.TypeKeys "<Shift F4>"
-
-    Case "HTML"
-        DocumentWriterWeb.TypeKeys "<Shift F4>"
-    end select
-
-    Sleep 1
-    if delete = TRUE then
-        Call wTypeKeys "<Delete>"
-        Sleep 3
-    end if
-end sub
-
-' -----------------------------------------------------------------------
-
-sub hExportUmstellung ( WasDenn as Boolean )
-    if Ucase(gApplication) = "HTML" then
-        ToolsOptions
-        Call hToolsOptions("LoadSave","HTMLCompatibility")
-        if WasDenn = TRUE then
-            'Select Case iSprache
-            ' Case 81 : Export.Select "Microsoft Internet Explorer 4.0"
-            ' Case else : Export.Select "MS Internet Explorer 4.0"
-            'end select
-            try
-                Export.Select "Microsoft Internet Explorer"
-            catch
-                Warnlog "Unable to choose browser for export !"
-            endcatch
-        else
-            Export.Select "Netscape Navigator"
-        end if
-        Kontext "ExtrasOptionenDlg"
-        ExtrasOptionenDlg.OK
-    end if
-end sub
-
-' -----------------------------------------------------------------------
-
-sub wSetMacroSecurityLevel ( wLevel as integer ) as boolean
-    ToolsOptions
-    Call hToolsOptions("StarOffice","Security")
-    wSetMacroSecurityLevel = False
-    try
-        MacroSecurity.Click
-    catch
-        Warnlog "Unable to set macro security level (Button 'Macro Security' not found)"
-        Goto EarlyExit
-    endcatch
-
-    Kontext
-    Active.SetPage TabSecurityLevel
-    Kontext "TabSecurityLevel"
-
-    Select Case wLevel
-    Case 1:     VeryHigh.Check
-    Case 2:     High.Check
-    Case 3:     Medium.Check
-    Case 4:     Low.Check
-    Case else:  Warnlog "Wrong level number entered. Unknown"
-        goto EarlyExit
-    end select
-    TabSecurityLevel.Ok
-    wSetMacroSecurityLevel = True
-
-    EarlyExit:
-    Kontext "ExtrasOptionenDlg"
-    ExtrasOptionenDlg.OK
-
-end sub
-
-' -----------------------------------------------------------------------
-
-sub wInsertFrame
-    InsertFrame
-    Kontext
-    Active.SetPage TabType
-    Kontext "TabType"
-    TabType.OK
-    Sleep 3
-end sub
-
-' -----------------------------------------------------------------------
-
-sub wRectangleToClipboard
-    Dim tempApplication as string
-    tempApplication = gApplication
-    gApplication = "DRAW"
-    Call hNewDocument
-    Call hRechteckErstellen ( 45, 45, 60, 60 )
-    ' select the drawn object
-    try
-        EditSelectAll
-    catch
-        warnlog "Unable to select object. Maybe not drawn!"
-    endcatch
-    ' copy the selected object
-    try
-        EditCopy
-    catch
-        Warnlog "Unable to copy object. Maybe not selected!"
-    endcatch
-
-    Call hCloseDocument
-    gApplication = tempApplication
-    Select Case gApplication
-    Case "WRITER"
-        Kontext "DocumentWriter"
-    Case "MASTERDOCUMENT"
-        Kontext "DocumentMasterDoc"
-    end select
-    Call gMouseClick 10,10
-end sub
-
-' -----------------------------------------------------------------------
-
-sub wRectangleToClipboardHTML
-    gApplication = "DRAW"
-    Call hNewDocument
-    Call hRechteckErstellen ( 45, 45, 60, 60 )
-    EditSelectAll
-    EditCopy
-    Call hCloseDocument
-    gApplication = "HTML"
-    Kontext "DocumentWriterWeb"
-    Call gMouseClick
-end sub
-
-' -----------------------------------------------------------------------
-
-function MachMirDenEintrag(WoDenn as integer,WieLang as integer, optional Welches as string)
-    Call wTypeKeys "<Home>"
-    Call wTypeKeys "<Down>",WoDenn
-    Call wTypeKeys "<Mod1 Shift Right>" , WieLang
-    Kontext "VerzeichniseintragEinfuegen"
-    if Welches > "" then
-        Select case Welches
-        case "Inhalt" : Verzeichnis.Select 1
-        case "Stich"  : Verzeichnis.Select 2
-        case "Benutz" : Verzeichnis.Select 3
-        end select
-    end if
-    Verzeichniseintrag.TypeKeys "<Up>"
-    Wait 500
-    EintragOk.Click
-end function
-
-' -----------------------------------------------------------------------
-
-sub wOptionsUndo ( sOption$ )
-    Dim i as integer
-    Dim sTempSeparator as string
-    Dim sTempUnit as integer
-
-    Printlog "  - Initial state"
-
-    Call hNewDocument
-
-    Kontext "ExtrasOptionenDlg"
-    if Not ExtrasOptionenDlg.Exists then
-        ToolsOptions
-    end if
-
-    Call hToolsOptions("WRITER","General")
-    if Instr(Tabulatorenabstand.Gettext, ",") then
-        sTempSeparator = ","
-    else
-        sTempSeparator = "."
-    end if
-    sTempUnit = Masseinheit.GetSelIndex
-
-    if sOption$ = "Laden" OR sOption$ = "All" then
-        ' Update
-        AufNachfrage.Check
-        Feldbefehle.Check
-        Diagramme.Uncheck
-        ' Settings
-        Select Case sTempUnit
-        Case 1:     'Millimeter
-            Tabulatorenabstand.Settext "12" & sTempSeparator & "51"
-        Case 2:     ' Centimeter
-            Tabulatorenabstand.Settext "1" & sTempSeparator & "25"
-        Case 3:     ' Inch
-            Tabulatorenabstand.Settext "0" & sTempSeparator & "49"
-        Case 4:     ' Pica
-            Tabulatorenabstand.Settext "2" & sTempSeparator & "95"
-        Case 5:     ' Point
-            Tabulatorenabstand.Settext "35" & sTempSeparator & "5"
-        end select
-    end if
-
-    Call hToolsOptions("WRITER","View")
-    if sOption$ = "Inhalte" OR sOption$ = "All" then
-        ' Guides
-        Hilfslinien.Uncheck
-        FarbigeHandles.Check
-        GrosseHandles.Uncheck
-        ' View
-        HorizontaleBildlaufleiste.Check
-        VertikaleBildlaufleiste.Check
-        Lineal.Check
-        HorizontalesLineal.Check
-        VertikalesLineal.Check
-        WeichesScrollen.Uncheck
-        ' Display
-        GrafikenUndObjekte.Check
-        Zeichnungen.Check
-        Feldname.Uncheck
-        Notizen.Check
-    end if
-
-    if sOption$ = "Cursor" OR sOption$ = "All" then
-        Call hToolsOptions("WRITER","FormattingAids")
-        ' Display of
-        Absatzenden.UnCheck
-        WeicheTrenner.Check
-        Leerzeichen.UnCheck
-        GeschLeerzeichen.Check
-        Tabulatoren.UnCheck
-        Umbrueche.UnCheck
-        VersteckterText.Uncheck
-        VersteckteAbsatze.Check
-        'Direct-Cursor
-        DirektCursor.Uncheck
-        Absatzausrichtung.Check
-        'Cursor in protected areas
-        Zonen_Cursor.Check
-    end if
-
-    if sOption$ = "Raster" OR sOption$ = "All" then
-        Call hToolsOptions("WRITER","Grid")
-        ' Grid
-        FangrasterBenutzen.Uncheck
-        RasterSichtbar.Uncheck
-        ' Resolution
-        AchsenSynchronisieren.Uncheck
-        Select Case sTempUnit
-        Case 1:     'Millimeter
-            RasterAufloesungXAchse.SetText "10" & sTempSeparator & "00"
-            RasterAufloesungYAchse.SetText "10" & sTempSeparator & "00"
-        Case 2:     ' Centimeter
-            RasterAufloesungXAchse.SetText "1" & sTempSeparator & "00"
-            RasterAufloesungYAchse.SetText "1" & sTempSeparator & "00"
-        Case 3:     ' Inch
-            RasterAufloesungXAchse.SetText "0" & sTempSeparator & "39"
-            RasterAufloesungYAchse.SetText "0" & sTempSeparator & "39"
-        Case 4:     ' Pica
-            RasterAufloesungXAchse.SetText "2" & sTempSeparator & "36"
-            RasterAufloesungYAchse.SetText "2" & sTempSeparator & "36"
-        Case 5:     ' Point
-            RasterAufloesungXAchse.SetText "28" & sTempSeparator & "3"
-            RasterAufloesungYAchse.SetText "28" & sTempSeparator & "3"
-        end select
-        RasterUnterteilungXAchse.ToMin
-        RasterUnterteilungXAchse.More 1
-        RasterUnterteilungYAchse.ToMin
-        RasterUnterteilungYAchse.More 1
-    end if
-
-    if sOption$ = "Grundschriften" OR sOption$ = "All" then
-        Call hToolsOptions("WRITER","BasicFonts")
-        Standard.Click
-        AktuellesDokument.Uncheck
-    end if
-
-    if sOption$ = "Drucken" OR sOption$ = "All" then
-        Call hToolsOptions("WRITER","Print")
-        ' Contents
-        Grafiken.Check
-        Kontrollfelder.Check
-        Hintergrund.Check
-        SchwarzDrucken.Uncheck
-        ' Pages
-        LinkeSeiten.Check
-        RechteSeiten.Check
-        Prospekt.Uncheck
-        ' Notes
-        Keine.Check
-        ' Other
-        LeereSeitenDrucken.Check
-        AusDruckereinstellung.Uncheck
-        Fax.SetNoSelection
-    end if
-
-    if sOption$ = "Tabelle" OR sOption$ = "All" then
-        Call hToolsOptions("WRITER","Table")
-        ' Default
-        Ueberschrift.Check
-        Wiederholen.Check
-        NichtTrennen.Uncheck
-        Umrandung.Check
-        ' Input in Tables
-        AutomatischeZahlenerkennung.Check
-        Zahlenformaterkennung.Check
-        AutomatischeAusrichtung.Check
-        AutomatischeZahlenerkennung.UnCheck
-        ' Keyboard handling
-        Select Case sTempUnit
-        Case 1:     'Millimeter
-            VerschiebenZeile.SetText "4" & sTempSeparator & "99"
-            VerschiebenSpalte.SetText "4" & sTempSeparator & "99"
-            EinfuegenZeile.SetText "4" & sTempSeparator & "99"
-            EinfuegenSpalte.SetText "24" & sTempSeparator & "99"
-        Case 2:     ' Centimeter
-            VerschiebenZeile.SetText "0" & sTempSeparator & "50"
-            VerschiebenSpalte.SetText "0" & sTempSeparator & "50"
-            EinfuegenZeile.SetText "0" & sTempSeparator & "50"
-            EinfuegenSpalte.SetText "2" & sTempSeparator & "50"
-        Case 3:     ' Inch
-            VerschiebenZeile.SetText "0" & sTempSeparator & "20"
-            VerschiebenSpalte.SetText "0" & sTempSeparator & "20"
-            EinfuegenZeile.SetText "0" & sTempSeparator & "20"
-            EinfuegenSpalte.SetText "0" & sTempSeparator & "98"
-        Case 4:     ' Pica
-            VerschiebenZeile.SetText "1" & sTempSeparator & "18"
-            VerschiebenSpalte.SetText "1" & sTempSeparator & "18"
-            EinfuegenZeile.SetText "1" & sTempSeparator & "18"
-            EinfuegenSpalte.SetText "5" & sTempSeparator & "90"
-        Case 5:     ' Point
-            VerschiebenZeile.SetText "14" & sTempSeparator & "2"
-            VerschiebenSpalte.SetText "14" & sTempSeparator & "2"
-            EinfuegenZeile.SetText "14" & sTempSeparator & "2"
-            EinfuegenSpalte.SetText "70" & sTempSeparator & "9"
-        end select
-        Sleep 1
-        ' Behaviour of rows/columns
-        Variabel.Check
-    end if
-
-    if sOption$ = "Aenderung" OR sOption$ = "All" then
-        Call hToolsOptions("WRITER","Changes")
-        ' Text display
-        EinfuegenAttribute.Select 4
-        EinfuegenFarbe.Select 2
-        LoeschenAttribute.Select 4
-        LoeschenFarbe.Select 2
-        AendernAttribute.Select 2
-        AendernFarbe.Select 2
-        ' Lines changed
-        Zeilenmarkierung.Select 2
-        Zeilenfarbe.Select 1
-    end if
-
-    if sOption$ = "AutoCaption" OR sOption$ = "All" then
-        Call hToolsOptions("WRITER","Autocaption")
-        for i = 1 to ObjectList.GetItemCount
-            ObjectList.Select i
-            ' uncheck only if checked, else it might crash on macosx, see issue 111883 for further information
-            if ObjectList.getState (i) > 1 then
-                ObjectList.UnCheck
-            endif
-        next i
-    end if
-
-    Kontext "ExtrasOptionenDlg"
-    ExtrasOptionenDlg.OK
-
-    Call hCloseDocument
-end sub
-
-' -----------------------------------------------------------------------
-
-function wInsertDocumentinMasterDoc(DocumentName as string) as boolean
-    Call hNewDocument
-    hFileOpenLocally( DocumentName)
-    Sleep 2
-    Call wTypeKeys "<Mod1 A>"
-    Sleep 2
-    EditCopy
-    Call hCloseDocument
-    wInsertDocumentinMasterDoc = True
-end function
-
-' -----------------------------------------------------------------------
-
-function CheckForFilters() as boolean
-    Kontext "GraphicFilterBar"
-    if not GraphicFilterBar.Exists then
-        Warnlog "- Toolbox has been closed!"
-        Kontext "GraphicObjectbar"
-        if Filter.IsEnabled then
-            GraphicObjectbar.TearOff Filter
-            Kontext "GraphicFilterBar"
-            GraphicFilterBar.Move ( 20, 20 )
-            CheckForFilters = True
-        else
-            Warnlog "- Though graphic is selected, the filter button in objectbar is disabled!"
-            Select Case gApplication
-            Case "WRITER"
-                Kontext "DocumentWriter"
-                DocumentWriter.MouseDoubleClick 10,10
-                DocumentWriter.MouseDown 50,20
-                DocumentWriter.MouseUp 50,20
-            case else
-                Kontext "DocumentMasterDoc"
-                DocumentMasterDoc.MouseDoubleClick 10,10
-                DocumentMasterDoc.MouseDown 50,20
-                DocumentMasterDoc.MouseUp 50,20
-            end select
-            Wait 500
-            Kontext "GraphicObjectbar"
-            if Filter.IsEnabled then
-                GraphicObjectbar.TearOff Filter
-                Kontext "GraphicFilterBar"
-                GraphicFilterBar.Move ( 20, 20 )
-                CheckForFilters = True
-            else
-                Warnlog "- Reselecting the graphic didn't enable the button in the toolbar! No further test!"
-                CheckForFilters = False
-            end if
-        end if
-    else
-        CheckForFilters=True
-    end if
-    Kontext "GraphicFilterBar"
-end function
-
-' -----------------------------------------------------------------------
-
-sub hInsertFloatingFrame
-    Sleep 3
-    InsertFloatingFrame
-    Sleep 3
-    Kontext "TabEigenschaften"
-    FrameName.SetText "Hallo"
-    TabEigenschaften.OK
-    Sleep 2
-    Kontext "OeffnenDlg"
-    if OeffnenDlg.Exists(2) then OeffnenDlg.Cancel
-end sub
-
-' -----------------------------------------------------------------------
-
-function wStyleCreate( sStyleName as string, sType as string, optional NotFromSelection as boolean ) as boolean
-    '/// This function creates a new style through stylist
-
-    Kontext "Stylist"
-    If Not Stylist.Exists then FormatStylist
-
-    select case sType
-    case "Paragraph":	Absatzvorlagen.Click
-    case "Character":	Zeichenvorlagen.Click
-    case "Frame":		Rahmenvorlagen.Click
-    case "Page":		Seitenvorlagen.Click
-    case "Numbering":	Numerierungsvorlagen.Click
-    end select
-
-    if IsMissing ( NotFromSelection ) then
-        wait 500
-        AusSelektion.OpenMenu
-        Sleep 1
-        Call hMenuSelectNr(1)
-        Sleep 1
-        wait 500
-        Kontext "VorlageErzeugen"
-        Vorlagenname.Settext sStyleName
-        VorlageErzeugen.Ok
-    else
-        if NotFromSelection = true then
-            VorlagenListe.TypeKeys "<Mod1 End>"
-            Vorlagenliste.TypeKeys "<Mod1 Home>"
-            Vorlagenliste.OpenContextMenu
-            Sleep 1
-            Call hMenuSelectNr(1)
-            wait 500
-            Kontext
-            Active.SetPage TabVerwalten
-            wait 500
-            Kontext "TabVerwalten"
-            VorlagenName.SetText sStyleName
-            wait 500
-            TabVerwalten.OK
-        end if
-    end if
-
-    Kontext "Stylist"
-
-    if wStyleSelect ( sStyleName, sType ) = true then
-        wStyleCreate = False
-    else
-        wStyleCreate = True
-    end if
-    Stylist.Close
-end function
-
-' -----------------------------------------------------------------------
-
-function wStyleSelect( sStyleName as string, optional sType as string ) as boolean
-    '/// This function selects a given style in Stylist
-    '/// function leaves Stylist opened
-
-    Dim i as integer
-
-    Kontext "Stylist"
-    If Not Stylist.Exists then FormatStylist
-
-    wait 500
-    Gruppenliste.Select 2	'-> 'All Styles' has to be selected
-    wait 500
-    if IsMissing (sType) then
-        Absatzvorlagen.Click
-    else
-        select case sType
-        case "Paragraph":	Absatzvorlagen.Click
-        case "Character":	Zeichenvorlagen.Click
-        case "Frame":		Rahmenvorlagen.Click
-        case "Page":		Seitenvorlagen.Click
-        case "Numbering":	Numerierungsvorlagen.Click
-        end select
-    end if
-
-    Sleep 1
-    Vorlagenliste.Select 1
-    wait 500
-    if Vorlagenliste.GetSelText <> sStyleName then
-        For i = 1 to 200
-            if Vorlagenliste.GetSelText = sStyleName then
-                wStyleSelect = true
-                i = 202
-            else
-                Vorlagenliste.TypeKeys "<Down>"
-            end if
-        next i
-        if i = 202 then wStyleSelect = true
-    else
-        wStyleSelect = true
-    end if
-
-end function
-
-' -----------------------------------------------------------------------
-
-function wStyleDelete ( sStyleName as string, sType as string ) as boolean
-    '/// This function selects a given style in Stylist
-    '/// function leaves Stylist opened
-
-    Dim i as integer
-
-    Kontext "Stylist"
-    If Not Stylist.Exists then FormatStylist
-
-    select case sType
-    case "Paragraph":	Absatzvorlagen.Click
-    case "Character":	Zeichenvorlagen.Click
-    case "Frame":		Rahmenvorlagen.Click
-    case "Page":		Seitenvorlagen.Click
-    case "Numbering":	Numerierungsvorlagen.Click
-    end select
-
-    Vorlagenliste.TypeKeys "<Mod1 End>"
-    Vorlagenliste.TypeKeys "<Mod1 Home>"
-    if Vorlagenliste.GetSelText <> sStyleName then
-        For i = 1 to 200
-            if Vorlagenliste.GetSelText = sStyleName then
-                Vorlagenliste.OpenContextMenu
-                Sleep 1
-                Call hMenuSelectNr(3)
-                wait 500
-                Kontext "Active"
-                if Active.Exists then
-                    if Active.GetRT = 304 then
-                        Active.Yes
-                        i = 203
-                    end if
-                end if
-            else
-                Vorlagenliste.TypeKeys "<Down>"
-            end if
-        next i
-        if i = 204 then wStyleDelete = true
-    else
-        Vorlagenliste.OpenContextMenu
-        Sleep 1
-        Call hMenuSelectNr(3)
-        wait 500
-        Kontext "Active"
-        if Active.Exists then
-            if Active.GetRT = 304 then
-                Active.Yes
-            end if
-        end if
-        wStyleDelete = true
-    end if
-
-end function
-
-' -----------------------------------------------------------------------
-
-function wStyleSet( sStyleName as string, optional sType as string ) as boolean
-    '/// This function sets a given style in Stylist
-    '/// function leaves Stylist opened
-
-    Dim i as integer
-
-    Kontext "Stylist"
-    If Not Stylist.Exists then FormatStylist
-
-    wait 500
-    Gruppenliste.Select 2	'-> 'All Styles' has to be selected
-    wait 500
-    if IsMissing (sType) then
-        Absatzvorlagen.Click
-    else
-        select case sType
-        case "Paragraph":	Absatzvorlagen.Click
-        case "Character":	Zeichenvorlagen.Click
-        case "Frame":		Rahmenvorlagen.Click
-        case "Page":		Seitenvorlagen.Click
-        case "Numbering":	Numerierungsvorlagen.Click
-        end select
-    end if
-
-    Sleep 1
-    Vorlagenliste.Select 1
-    wait 500
-    if Vorlagenliste.GetSelText <> sStyleName then
-        For i = 1 to 200
-            if Vorlagenliste.GetSelText = sStyleName then
-                wStyleSet = true
-                Vorlagenliste.TypeKeys "<Return>"
-                exit for
-            else
-                Vorlagenliste.TypeKeys "<Down>"
-            end if
-        next i
-    else
-        wStyleSet = true
-    end if
-
-end function
-
-' -----------------------------------------------------------------------
-
-function wStyleGet( sStyleName as string, optional sType as string ) as boolean
-    '/// This function checks if a given style is selected in Stylist
-    '/// function leaves Stylist opened
-
-    Dim i as integer
-
-    Kontext "Stylist"
-    If Not Stylist.Exists then FormatStylist
-
-    wait 500
-    Gruppenliste.Select 2	'-> 'All Styles' has to be selected
-    wait 500
-    if IsMissing (sType) then
-        Absatzvorlagen.Click
-    else
-        select case sType
-        case "Paragraph":	Absatzvorlagen.Click
-        case "Character":	Zeichenvorlagen.Click
-        case "Frame":		Rahmenvorlagen.Click
-        case "Page":		Seitenvorlagen.Click
-        case "Numbering":	Numerierungsvorlagen.Click
-        end select
-    end if
-
-    wait 500
-    if Vorlagenliste.GetSelText = sStyleName then
-        wStyleGet = true
-    end if
-
-end function
diff --git a/testautomation/writer/tools/includes/w_tools_autocorrection.inc b/testautomation/writer/tools/includes/w_tools_autocorrection.inc
deleted file mode 100644
index 0b745c207696..000000000000
--- a/testautomation/writer/tools/includes/w_tools_autocorrection.inc
+++ /dev/null
@@ -1,157 +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 : helge.delfs@oracle.com
-'*
-'* short description : Test the AutoCorrect/AutoFormat/Word tools
-'*
-'************************************************************************
-'*
-' #0 fFormatCharacter
-'*
-'\***********************************************************************
-
-function fAutocorrectOptions(Options as String, iModify as integer, iType as integer)
-    '/// Open Tools/Autocorrect/Autoformat diglog with tab page Options
-    '///+ then choose the relevant Options and press 'space bar'
-    Dim iDown as integer
-
-    ToolsAutocorrect
-    Kontext
-    Active.Setpage TabOptionenAutokorrektur
-    Kontext "TabOptionenAutokorrektur"
-
-    Select case Options
-        case "UseReplacementTable"         : iDown = 1
-        case "CorrectTWoINitialCApitals"   : iDown = 2
-        case "CapitalizeFirstLetter"       : iDown = 3
-        case "AutomaticBoldAndUnderline"   : iDown = 4
-        case "URLRecognition"              : iDown = 5
-        case "ReplaceDashes"               : iDown = 6
-        case "DeleteSpaceParagraph"        : iDown = 7
-        case "DeleteSpaceLine"             : iDown = 8
-        case "IgnoreDoubleSpaces"          : iDown = 9
-        case "ApplyNumbering"              : iDown = 10
-        case "ApplyBorder"                 : iDown = 11
-        case "CreateTable"                 : iDown = 12
-        case "ApplyStyles"                 : iDown = 13
-        case "RemoveBlankParagraphs"       : iDown = 14
-        case "ReplaceCustomStyles"         : iDown = 15
-        case "ReplaceBullets"              : iDown = 16
-        case "CombineSingleLine"           : iDown = 17
-    end select
-
-    ' *** Set requested state ***
-    ' ### Modify
-    Select Case iDown
-        Case 1,2,3,4,5,6,7,8,14,15,16,17
-            if iModify = 1 then
-                Einstellungen.Check(iDown,2)
-            else
-                Einstellungen.UnCheck(iDown,2)
-            endif
-            if iDown < 9 then
-                ' ### Type
-                if iType = 1 then
-                    Einstellungen.Check(iDown,3)
-                else
-                    Einstellungen.UnCheck(iDown,3)
-                endif
-            endif
-        Case 9,10,11,12,13
-        ' ### Type
-        if iType = 1 then
-            Einstellungen.Check(iDown,3)
-        else
-            Einstellungen.UnCheck(iDown,3)
-        endif
-    end select
-    wait 100
-    TabOptionenAutokorrektur.OK
-
-end function
-
-'---------------------------------------------------------------
-
-function fFormatCharacter(Options as string)
-    '/// Open format/character diglog with Options.
-    Kontext
-    FormatCharacter
-
-    Select case Options
-    case "TabFont"                     : active.SetPage TabFont
-    case "TabFontEffects"              : active.SetPage TabFontEffects
-    case "TabFontPosition"             : active.SetPage TabFontPosition
-    case "TabHyperlinkZeichen"         : active.SetPage TabHyperlinkZeichen
-    case "TabHintergrund"              : active.SetPage TabHintergrund
-    end select
-
-    Kontext Options
-
-end function
-
-'-------------------------------------------------------------------------
-
-function fFormatParagraph(Options as string)
-    '/// Open format/paragraph diglog with Options
-    Kontext
-    FormatParagraph
-
-    Select case Options
-    case "TabUmrandung"                : active.SetPage TabUmrandung             'Borders
-    case "TabEinzuegeUndAbstaende"     : active.SetPage TabEinzuegeUndAbstaende  'Indents & Spacing
-    end select
-
-    Kontext Options
-
-end function
-
-'-------------------------------------------------------------------------
-
-function fDeleteAllEntries()
-    '/// This function is to delete all entries in tools/autocorrect/Word completions.
-    Dim i as Integer
-
-    ToolsAutocorrect
-    Kontext
-    Active.Setpage TabWortergaenzung
-    Kontext "TabWortergaenzung"
-
-    if GesammelteWorte.GetItemCount > 0 then
-        for i= 1 to GesammelteWorte.GetItemCount
-            GesammelteWorte.Select 1
-            if EintragLoeschen.IsEnabled then
-                EintragLoeschen.Click
-            else
-                i = GesammelteWorte.GetItemCount + 1
-            end if
-        next i
-    end if
-
-    TabWortergaenzung.OK
-end function
-
diff --git a/testautomation/writer/tools/includes/w_tools_drawing.inc b/testautomation/writer/tools/includes/w_tools_drawing.inc
deleted file mode 100644
index 6fd3064f4d88..000000000000
--- a/testautomation/writer/tools/includes/w_tools_drawing.inc
+++ /dev/null
@@ -1,68 +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 : helge.delfs@oracle.com
-'*
-'* short description : Test the AutoCorrect/AutoFormat/Word tools
-'*
-'************************************************************************
-'*
-' #0 fPositionAndSize
-'*
-'\***********************************************************************
-
-function fPositionAndSize(Options as string)
-    '/// Open Format/Position and Size diglog with Options.
-    Kontext
-    FormatPositionAndSize
-
-    Select case Options
-    case "TabPositionAndSizeWriter"  : active.SetPage TabPositionAndSizeWriter
-    case "TabDrehung"                : active.SetPage TabDrehung
-    case "TabSchraegstellen"         : active.SetPage TabSchraegstellen
-    end Select
-
-    Kontext Options
-end function
-
-'-------------------------------------------------------------------------
-
-function fFormatLine(Options as string)
-    '/// Open Format/Line with Options.
-    Kontext
-    FormatLine
-
-    Select case Options
-    case "TabLinie"           : active.SetPage TabLinie
-    case "TabLinienstile"     : active.SetPage TabLinienstile
-    case "TabLinienenden"     : active.SetPage TabLinienenden
-    end Select
-
-    Kontext Options
-end function
-
-'-------------------------------------------------------------------------
diff --git a/testautomation/writer/tools/includes/w_tools_hyphenation.inc b/testautomation/writer/tools/includes/w_tools_hyphenation.inc
deleted file mode 100644
index 8511197269db..000000000000
--- a/testautomation/writer/tools/includes/w_tools_hyphenation.inc
+++ /dev/null
@@ -1,79 +0,0 @@
-'**************************************************************************
-' 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 : helge.delfs@oracle.com                                    **
-'*                                                                **
-'* short description : Misc tools for writer hyphenation tests    **
-'*                                                                **
-'\******************************************************************
-
-
-
-function fPrepareHyphenationDocument(testWord as string)
-
-	Dim SpaceTickCount as integer
-	
-	SpaceTickCount = 1
-	Do
-		Call wTypeKeys "<Mod1 Home>"
-		Call wTypeKeys "<Down>"
-		Call wTypeKeys "<Mod1 Shift Right>"
-		try
-			EditCopy
-		catch
-		endcatch
-		if trim(GetClipboardText) <> testWord then
-			EditSearchAndReplace
-			Kontext "FindAndReplace"
-			SearchFor.SetText testWord
-			SearchNow.Click
-			Kontext "Active"
-			if Active.Exists then
-				if Active.GetRT = 304 then
-					try
-						active.Yes
-					catch
-						Warnlog Active.Gettext
-						Active.ok
-					endcatch
-				end if
-			end if
-			Kontext "FindAndReplace"
-			FindAndReplace.Close
-			Call wTypeKeys "<Mod1 Left>"
-			Call wTypeKeys "<Space>"
-			inc SpaceTickCount
-			if SpaceTickCount >= 30 then
-				fPrepareHyphenationDocument = false
-				exit do
-			end if
-		else
-			fPrepareHyphenationDocument = true
-			exit do			
-		end if
-	Loop
-
-end function
diff --git a/testautomation/writer/tools/includes/w_tools_undo.inc b/testautomation/writer/tools/includes/w_tools_undo.inc
deleted file mode 100644
index ff25c3889fe5..000000000000
--- a/testautomation/writer/tools/includes/w_tools_undo.inc
+++ /dev/null
@@ -1,867 +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 : helge.delfs@oracle.com
-'*
-'* short description : Tools for w_undo.bas
-'*
-'************************************************************************
-'*
-' #1 CheckUndoStringInUndoList
-'*
-'\***********************************************************************
-
-sub CheckUndoStringInUndoList(vType as integer, optional vShould as string)
-	'/// This function checks the string (localized) in Undo-List
-	Dim CurrentUndoString(1) as string, vTypeString as string
-	Dim UndoStringFromUndoList as string
-
-	Kontext "StandardBar"
-	Sleep 1
-	if Undo.IsEnabled = true then
-		Undo.OpenMenu
-	else
-		Warnlog "Unable to read from Undo-Box!"
-		exit sub
-	end if
-
-	Sleep 1
-	Kontext "UndoRedoBox"
-	UndoStringFromUndoList = UndoRedoList.GetItemText(1)
-	Select case vType
-		' Typing
-		case 1:
-			CurrentUndoString() = Split(UndoStringFromUndoList, ":")
-			Select Case iSprache
-				Case 01:	vTypeString = "Typing"
-				Case 49: 	vTypeString = "EinfÆgen"
-				Case 34:        vTypeString = "Escritura"
-				Case 86:        vTypeString = "键入"
-				Case else: QAErrorlog "Please adapt tests for current language! (" & CurrentUndoString(0) & ")"
-			end select
-		' Overwrite
-		case 2:
-			CurrentUndoString() = Split(UndoStringFromUndoList, ":")
-			Select Case iSprache
-				Case 01: vTypeString = "Overwrite"
-				Case 34: vTypeString = "Sobrescribir"
-				Case 86: vTypeString = "覆盖"
-				Case else: QAErrorlog "Please adapt tests for current language! (" & CurrentUndoString(0) & ")"
-			end select
-		' Replace
-		case 3:
-			CurrentUndoString() = Split(UndoStringFromUndoList, ":")
-			Select Case iSprache
-				Case 01: vTypeString = "Replace"
-				Case 34: vTypeString = "Reemplazar"
-				Case 86: vTypeString = "替�?�"
-				Case else: QAErrorlog "Please adapt tests for current language! (" & CurrentUndoString(0) & ")"
-			end select
-		' Delete
-		case 4:
-			Select Case iSprache
-				Case 01: if UndoStringFromUndoList <> "Delete multiple selection" then Warnlog "Wrong text in Undo-List: " & UndoStringFromUndoList
-				Case 34: if UndoStringFromUndoList <> "Eliminar selección múltiple" then Warnlog "Wrong text in Undo-List: " & UndoStringFromUndoList
-				Case 86: if UndoStringFromUndoList <> "删除 多项选择" then Warnlog "Wrong text in Undo-List: " & UndoStringFromUndoList
-				Case else: QAErrorlog "Please adapt tests for current language! (" & CurrentUndoString(0) & ")"
-			end select
-		' Replace all
-		case 5:
-			Select Case vShould
-				case "14 occurrences of 'and'"
-					Select Case iSprache
-						Case 01: if UndoStringFromUndoList <> "Replace: 14 occurrences of 'and'" then Warnlog "Wrong text in Undo-List: " & UndoStringFromUndoList
-				                Case 34: if UndoStringFromUndoList <> "Reemplazar: 6 ocurrencias de 'and'" then Warnlog "Wrong text in Undo-List: " & UndoStringFromUndoList
-						Case 86: if UndoStringFromUndoList <> "�?�入自动图文集" then Warnlog "Wrong text in Undo-List: " & UndoStringFromUndoList
-						Case else: QAErrorlog "Please adapt test for this language: "  & UndoStringFromUndoList
-					end select
-			end select
-		' Sort text
-		case 6:
-			Select Case iSprache
-				Case 01: if UndoStringFromUndoList <> "Sort text" then Warnlog "Wrong text in Undo-List: " & UndoStringFromUndoList
-				Case 34: if UndoStringFromUndoList <> "Ordenar texto" then Warnlog "Wrong text in Undo-List: " & UndoStringFromUndoList
-				Case 86: if UndoStringFromUndoList <> "排�?文字" then Warnlog "Wrong text in Undo-List: " & UndoStringFromUndoList
-				Case else: QAErrorlog "Please adapt test for this language: " & UndoStringFromUndoList
-			end select
-		' Convert text -> table
-		case 7:
-			Select Case iSprache
-				Case 01: if UndoStringFromUndoList <> "Convert text -> table" then Warnlog "Wrong text in Undo-List: " & UndoStringFromUndoList
-				Case 34: if UndoStringFromUndoList <> "Convertir texto en tabla" then Warnlog "Wrong text in Undo-List: " & UndoStringFromUndoList
-				Case 86: if UndoStringFromUndoList <> "文字转�?��?表格" then Warnlog "Wrong text in Undo-List: " & UndoStringFromUndoList
-				Case else: QAErrorlog "Please adapt test for this language: "  & UndoStringFromUndoList
-			end select
-
-		'Paragraph
-		case 8:
-			Select Case vShould
-				Case "New Paragraph"
-					Select Case iSprache
-						Case 01: if UndoStringFromUndoList <> "New Paragraph" then Warnlog "Wrong text in Undo-List: " & UndoStringFromUndoList
-						Case 34: if UndoStringFromUndoList <> "Párrafo nuevo" then Warnlog "Wrong text in Undo-List: " & UndoStringFromUndoList
-						Case 86: if UndoStringFromUndoList <> "新建段�?�" then Warnlog "Wrong text in Undo-List: " & UndoStringFromUndoList
-						Case else: QAErrorlog "Please adapt test for this language: "  & UndoStringFromUndoList
-					end select
-
-				Case "Delete Paragraph"
-					Select Case iSprache
-						Case 01: if UndoStringFromUndoList <> "Delete paragraph" then Warnlog "Wrong text in Undo-List: " & UndoStringFromUndoList
-						Case 34: if UndoStringFromUndoList <> "Eliminar Párrafo" then Warnlog "Wrong text in Undo-List: " & UndoStringFromUndoList
-						Case 86: if UndoStringFromUndoList <> "删除 段�?�" then Warnlog "Wrong text in Undo-List: " & UndoStringFromUndoList
-						Case else: QAErrorlog "Please adapt test for this language: "  & UndoStringFromUndoList
-					end select
-			end select
-
-		'Copy / Paste
-		case 9:
-			Select Case iSprache
-				Case 01: if UndoStringFromUndoList <> "Paste clipboard" then Warnlog "Wrong text in Undo-List: " & UndoStringFromUndoList
-				Case 34: if UndoStringFromUndoList <> "Pegar del portapapeles" then Warnlog "Wrong text in Undo-List: " & UndoStringFromUndoList
-				Case 86: if UndoStringFromUndoList <> "粘贴剪贴�?�" then Warnlog "Wrong text in Undo-List: " & UndoStringFromUndoList
-				Case else: QAErrorlog "Please adapt test for this language: "  & UndoStringFromUndoList
-			end select
-
-		case 10:
-			Select Case vShould
-				Case "Accept"
-					Select Case iSprache
-						Case 01: if UndoStringFromUndoList <> "Accept change: Insert 'This is a test'" then Warnlog "Wrong text in Undo-List: " & UndoStringFromUndoList
-						Case 34: if UndoStringFromUndoList <> "Aplicar cambio: Insertar 'This is a test'" then Warnlog "Wrong text in Undo-List: " & UndoStringFromUndoList
-						Case 86: if UndoStringFromUndoList <> "接�?�修改：�?�入 'This is a test'" then Warnlog "Wrong text in Undo-List: " & UndoStringFromUndoList
-						Case else: QAErrorlog "Please adapt test for this language: "  & UndoStringFromUndoList
-					end select
-
-				Case "Reject"
-					Select Case iSprache
-                                                Case 01: if UndoStringFromUndoList <> "Reject change: Insert 'This is a test'" then 
-                                                         elseif UndoStringFromUndoList = "Reject change: $1" then 
-                                                             QaErrorlog "#i97506# - Bug with Undo - Reject."
-                                                         else
-                                                             Warnlog "Wrong text in Undo-List: " & UndoStringFromUndoList
-                                                         end if
-                                                Case 34: if UndoStringFromUndoList = "Rechazar cambio: $1" then 
-                                                             QaErrorlog "#i97506# - Bug with Undo - Reject."
-                                                         else
-                                                             Warnlog "Tell script-writer issue i97506 seems to be fixed, or that a string has to be set to: " & UndoStringFromUndoList
-                                                         end if
-                                                Case 86: if UndoStringFromUndoList = "拒�?修改：$1" then
-                                                             QaErrorlog "#i97506# - Bug with Undo - Reject."
-                                                         else
-                                                             Warnlog "Tell script-writer issue i97506 seems to be fixed, or that a string has to be set to: " & UndoStringFromUndoList
-                                                         end if
-			                        Case else: QAErrorlog "Please adapt test for this language: "  & UndoStringFromUndoList
-					end select
-
-				Case "InsertLineBreak"
-					Select Case iSprache
-						Case 01: if UndoStringFromUndoList <> "Typing: 1 line break(s)" then Warnlog "Wrong text in Undo-List: " & UndoStringFromUndoList
-						Case 34: if UndoStringFromUndoList <> "Escritura: 1 salto(s) de línea" then Warnlog "Wrong text in Undo-List: " & UndoStringFromUndoList
-						Case 86: if UndoStringFromUndoList <> "键入: 1 �?�行符" then Warnlog "Wrong text in Undo-List: " & UndoStringFromUndoList
-						Case else: QAErrorlog "Please adapt test for this language: "  & UndoStringFromUndoList
-					end select
-
-				Case "DeleteLineBreak"
-					Select Case iSprache
-						Case 01: if UndoStringFromUndoList <> "Delete 1 line break(s)" then Warnlog "Wrong text in Undo-List: " & UndoStringFromUndoList
-						Case 34: if UndoStringFromUndoList <> "Eliminar 1 salto(s) de línea" then Warnlog "Wrong text in Undo-List: " & UndoStringFromUndoList
-						Case 86: if UndoStringFromUndoList <> "删除 1 �?�行符" then Warnlog "Wrong text in Undo-List: " & UndoStringFromUndoList
-						Case else: QAErrorlog "Please adapt test for this language: "  & UndoStringFromUndoList
-					end select
-
-				Case "InsertColumnBreak"
-					Select Case iSprache
-						Case 01: if UndoStringFromUndoList <> "Insert column break" then Warnlog "Wrong text in Undo-List: " & UndoStringFromUndoList
-						Case 34: if UndoStringFromUndoList <> "Insertar salto de columna" then Warnlog "Wrong text in Undo-List: " & UndoStringFromUndoList
-						Case 86: if UndoStringFromUndoList <> "�?�入分�?符" then Warnlog "Wrong text in Undo-List: " & UndoStringFromUndoList
-						Case else: QAErrorlog "Please adapt test for this language: "  & UndoStringFromUndoList
-					end select
-
-				Case "DeleteColumnBreak"
-					Select Case iSprache
-						Case 01: if UndoStringFromUndoList <> "Delete paragraph" then Warnlog "Wrong text in Undo-List: " & UndoStringFromUndoList
-						Case 34: if UndoStringFromUndoList <> "Eliminar Párrafo" then Warnlog "Wrong text in Undo-List: " & UndoStringFromUndoList
-						Case 86: if UndoStringFromUndoList <> "删除 段�?�" then Warnlog "Wrong text in Undo-List: " & UndoStringFromUndoList
-						Case else: QAErrorlog "Please adapt test for this language: "  & UndoStringFromUndoList
-					end select
-
-				Case "InsertPageBreak"
-					Select Case iSprache
-						Case 01: if UndoStringFromUndoList <> "Insert page break" then Warnlog "Wrong text in Undo-List: " & UndoStringFromUndoList
-						Case 34: if UndoStringFromUndoList <> "Insertar salto de página" then Warnlog "Wrong text in Undo-List: " & UndoStringFromUndoList
-						Case 86: if UndoStringFromUndoList <> "�?�入分页符" then Warnlog "Wrong text in Undo-List: " & UndoStringFromUndoList
-						Case else: QAErrorlog "Please adapt test for this language: "  & UndoStringFromUndoList
-					end select
-
-				Case "DeletePageBreak"
-					Select Case iSprache
-						Case 01: if UndoStringFromUndoList <> "Delete paragraph" then Warnlog "Wrong text in Undo-List: " & UndoStringFromUndoList
-						Case 34: if UndoStringFromUndoList <> "Eliminar Párrafo" then Warnlog "Wrong text in Undo-List: " & UndoStringFromUndoList
-						Case 86: if UndoStringFromUndoList <> "删除 段�?�" then Warnlog "Wrong text in Undo-List: " & UndoStringFromUndoList
-						Case else: QAErrorlog "Please adapt test for this language: "  & UndoStringFromUndoList
-					end select
-
-				Case "InsertField"
-					Select Case iSprache
-						Case 01: if UndoStringFromUndoList <> "Insert field" then Warnlog "Wrong text in Undo-List: " & UndoStringFromUndoList
-						Case 34: if UndoStringFromUndoList <> "Insertar campo" then Warnlog "Wrong text in Undo-List: " & UndoStringFromUndoList
-						Case 86: if UndoStringFromUndoList <> "�?�入 字段" then Warnlog "Wrong text in Undo-List: " & UndoStringFromUndoList
-						Case else: QAErrorlog "Please adapt test for this language: "  & UndoStringFromUndoList
-					end select
-
-				Case "ChangedField"
-					Select Case iSprache
-						Case 01: if UndoStringFromUndoList <> "Field changed" then Warnlog "Wrong text in Undo-List: " & UndoStringFromUndoList
-						Case 34: if UndoStringFromUndoList <> "Cambio modificado" then Warnlog "Wrong text in Undo-List: " & UndoStringFromUndoList
-						Case 86: if UndoStringFromUndoList <> "字段已�?被修改" then Warnlog "Wrong text in Undo-List: " & UndoStringFromUndoList
-						Case else: QAErrorlog "Please adapt test for this language: "  & UndoStringFromUndoList
-					end select
-
-				Case "DeleteField"
-					Select Case iSprache
-						Case 01: if UndoStringFromUndoList <> "Delete field" then Warnlog "Wrong text in Undo-List: " & UndoStringFromUndoList
-						Case 34: if UndoStringFromUndoList <> "Eliminar campo" then Warnlog "Wrong text in Undo-List: " & UndoStringFromUndoList
-						Case 86: if UndoStringFromUndoList <> "删除 字段" then Warnlog "Wrong text in Undo-List: " & UndoStringFromUndoList
-						Case else: QAErrorlog "Please adapt test for this language: "  & UndoStringFromUndoList
-					end select
-
-				Case "InsertSpecialCharacter"
-					Select Case iSprache
-						Case 01: if UndoStringFromUndoList <> "Insert special character" then Warnlog "Wrong text in Undo-List: " & UndoStringFromUndoList
-						Case 34: if UndoStringFromUndoList <> "Insertar carácter especial" then Warnlog "Wrong text in Undo-List: " & UndoStringFromUndoList
-						Case 86: if UndoStringFromUndoList <> "�?�入 特殊字符" then Warnlog "Wrong text in Undo-List: " & UndoStringFromUndoList
-						Case else: QAErrorlog "Please adapt test for this language: "  & UndoStringFromUndoList
-					end select
-
-				Case "DeleteSpecialCharacter"
-					Select Case iSprache
-						Case 01: if UndoStringFromUndoList <> "Delete '#'" then Warnlog "Wrong text in Undo-List: " & UndoStringFromUndoList
-						Case 34: if UndoStringFromUndoList <> "Eliminar '#'" then Warnlog "Wrong text in Undo-List: " & UndoStringFromUndoList
-						Case 86: if UndoStringFromUndoList <> "删除 '#'" then Warnlog "Wrong text in Undo-List: " & UndoStringFromUndoList
-						Case else: QAErrorlog "Please adapt test for this language: "  & UndoStringFromUndoList
-					end select
-
-				Case "ApplyStyles"
-					Select Case iSprache
-						Case 01: if UndoStringFromUndoList <> "Apply Styles: AUndoHistory" then Warnlog "Wrong text in Undo-List: " & UndoStringFromUndoList
-						Case 34: if UndoStringFromUndoList <> "Aplicar estilos: AUndoHistory" then Warnlog "Wrong text in Undo-List: " & UndoStringFromUndoList
-						Case 86: if UndoStringFromUndoList <> "应用样�?: AUndoHistory" then Warnlog "Wrong text in Undo-List: " & UndoStringFromUndoList
-						Case else: QAErrorlog "Please adapt test for this language: "  & UndoStringFromUndoList
-					end select
-
-				Case "ChangeStyles"
-					Select Case iSprache
-						Case 01: if UndoStringFromUndoList <> "Change style: AUndoHistory" then Warnlog "Wrong text in Undo-List: " & UndoStringFromUndoList
-                                                Case 34: if UndoStringFromUndoList <> "Cambiar estilo: AUndoHistory" then Warnlog "Wrong text in Undo-List: " & UndoStringFromUndoList
-						Case 86: if UndoStringFromUndoList <> "修改样�?：AUndoHistory" then Warnlog "Wrong text in Undo-List: " & UndoStringFromUndoList
-						Case else: QAErrorlog "Please adapt test for this language: "  & UndoStringFromUndoList
-					end select
-
-				Case "DemoteOutline"
-					Select Case iSprache
-						Case 01: if UndoStringFromUndoList <> "Promote/demote outline" then Warnlog "Wrong text in Undo-List: " & UndoStringFromUndoList
-                                                Case 34: if UndoStringFromUndoList <> "Aumentar/Disminuir nivel" then Warnlog "Wrong text in Undo-List: " & UndoStringFromUndoList
-						Case 86: if UndoStringFromUndoList <> "�?�级/�?级外框" then Warnlog "Wrong text in Undo-List: " & UndoStringFromUndoList
-						Case else: QAErrorlog "Please adapt test for this language: "  & UndoStringFromUndoList
-					end select
-
-				Case "PromoteOutline"
-					Select Case iSprache
-						Case 01: if UndoStringFromUndoList <> "Promote/demote outline" then Warnlog "Wrong text in Undo-List: " & UndoStringFromUndoList
-                                                Case 34: if UndoStringFromUndoList <> "Aumentar/Disminuir nivel" then Warnlog "Wrong text in Undo-List: " & UndoStringFromUndoList
-						Case 86: if UndoStringFromUndoList <> "�?�级/�?级外框" then Warnlog "Wrong text in Undo-List: " & UndoStringFromUndoList
-						Case else: QAErrorlog "Please adapt test for this language: "  & UndoStringFromUndoList
-					end select
-
-				Case "InsertSection"
-					Select Case iSprache
-						Case 01: if UndoStringFromUndoList <> "Insert section" then Warnlog "Wrong text in Undo-List: " & UndoStringFromUndoList
-                                                Case 34: if UndoStringFromUndoList <> "Insertar área" then Warnlog "Wrong text in Undo-List: " & UndoStringFromUndoList
-						Case 86: if UndoStringFromUndoList <> "�?�入区域" then Warnlog "Wrong text in Undo-List: " & UndoStringFromUndoList
-						Case else: QAErrorlog "Please adapt test for this language: "  & UndoStringFromUndoList
-					end select
-
-				Case "ModifySection"
-					Select Case iSprache
-						Case 01: if UndoStringFromUndoList <> "Modify section" then Warnlog "Wrong text in Undo-List: " & UndoStringFromUndoList
-						Case 34: if UndoStringFromUndoList <> "Modificar área" then Warnlog "Wrong text in Undo-List: " & UndoStringFromUndoList
-						Case 86: if UndoStringFromUndoList <> "修改区域" then Warnlog "Wrong text in Undo-List: " & UndoStringFromUndoList
-						Case else: QAErrorlog "Please adapt test for this language: "  & UndoStringFromUndoList
-					end select
-
-				Case "DeleteSection"
-					Select Case iSprache
-						Case 01: if UndoStringFromUndoList <> "Delete section" then Warnlog "Wrong text in Undo-List: " & UndoStringFromUndoList
-                                                Case 34: if UndoStringFromUndoList <> "Eliminar área" then Warnlog "Wrong text in Undo-List: " & UndoStringFromUndoList
-						Case 86: if UndoStringFromUndoList <> "删除区域" then Warnlog "Wrong text in Undo-List: " & UndoStringFromUndoList
-						Case else: QAErrorlog "Please adapt test for this language: "  & UndoStringFromUndoList
-					end select
-
-				Case "InsertHyperlink"
-					Select Case iSprache
-						Case 01: if UndoStringFromUndoList <> "Insert Hyperlink" then Warnlog "Wrong text in Undo-List: " & UndoStringFromUndoList
-						Case 34: if UndoStringFromUndoList <> "Insertar hiperenlace" then Warnlog "Wrong text in Undo-List: " & UndoStringFromUndoList
-						Case 86: if UndoStringFromUndoList <> "�?�入超链接" then Warnlog "Wrong text in Undo-List: " & UndoStringFromUndoList
-						Case else: QAErrorlog "Please adapt test for this language: "  & UndoStringFromUndoList
-					end select
-
-				Case "InsertHyperlinkButton"
-					Select Case iSprache
-						Case 01: if UndoStringFromUndoList <> "insert URL button" then Warnlog "Wrong text in Undo-List: " & UndoStringFromUndoList
-						Case 34: if UndoStringFromUndoList <> "Insertar botón URL" then Warnlog "Wrong text in Undo-List: " & UndoStringFromUndoList
-						Case 86: if UndoStringFromUndoList <> "�?�入 URL 按钮" then Warnlog "Wrong text in Undo-List: " & UndoStringFromUndoList
-						Case else: QAErrorlog "Please adapt test for this language: "  & UndoStringFromUndoList
-					end select
-
-				Case "HeaderFooter"
-					Select Case iSprache
-						Case 01: if UndoStringFromUndoList <> "Header/footer changes" then Warnlog "Wrong text in Undo-List: " & UndoStringFromUndoList
-						
-						Case else: QAErrorlog "Please adapt test for this language: "  & UndoStringFromUndoList
-					end select
-
-				Case "InsertFootnote"
-					Select Case iSprache
-						Case 01: if UndoStringFromUndoList <> "Insert footnote" then Warnlog "Wrong text in Undo-List: " & UndoStringFromUndoList
-						Case 34: if UndoStringFromUndoList <> "Insertar nota al pie" then Warnlog "Wrong text in Undo-List: " & UndoStringFromUndoList
-						Case 86: if UndoStringFromUndoList <> "�?�入脚注" then Warnlog "Wrong text in Undo-List: " & UndoStringFromUndoList
-        					Case else: QAErrorlog "Please adapt test for this language: "  & UndoStringFromUndoList
-					end select
-
-				Case "ModifyFootnote"
-					Select Case iSprache
-						Case 01: if UndoStringFromUndoList <> "Modify footnote options" then Warnlog "Wrong text in Undo-List: " & UndoStringFromUndoList
-						Case 34: if UndoStringFromUndoList <> "Modificar opciones de nota al pie" then Warnlog "Wrong text in Undo-List: " & UndoStringFromUndoList
-						Case 86: if UndoStringFromUndoList <> "修改脚注设置" then Warnlog "Wrong text in Undo-List: " & UndoStringFromUndoList
-						Case else: QAErrorlog "Please adapt test for this language: "  & UndoStringFromUndoList
-					end select
-
-				Case "DeleteFootnote"
-					Select Case iSprache
-						Case 01: if UndoStringFromUndoList <> "Delete footnote" then Warnlog "Wrong text in Undo-List: " & UndoStringFromUndoList
-						Case 34: if UndoStringFromUndoList <> "Eliminar nota al pie" then Warnlog "Wrong text in Undo-List: " & UndoStringFromUndoList
-						Case 86: if UndoStringFromUndoList <> "删除 脚注" then Warnlog "Wrong text in Undo-List: " & UndoStringFromUndoList
-						Case else: QAErrorlog "Please adapt test for this language: "  & UndoStringFromUndoList
-					end select
-
-				Case "InsertCaption"
-					Select Case iSprache
-						Case 01: if UndoStringFromUndoList <> "Insert caption: 'This capt...aracters'" then Warnlog "Wrong text in Undo-List: " & UndoStringFromUndoList
-						Case 34: if UndoStringFromUndoList <> "Insertar título: 'This capt...aracters'" then Warnlog "Wrong text in Undo-List: " & UndoStringFromUndoList
-						Case 86: if UndoStringFromUndoList <> "�?�入标题: 'This capt...aracters'" then Warnlog "Wrong text in Undo-List: " & UndoStringFromUndoList
-						Case else: QAErrorlog "Please adapt test for this language: "  & UndoStringFromUndoList
-					end select
-
-				Case "InsertAutotext"
-					Select Case iSprache
-						Case 01: if UndoStringFromUndoList <> "Insert AutoText" then Warnlog "Wrong text in Undo-List: " & UndoStringFromUndoList
-						Case 34: if UndoStringFromUndoList <> "Insertar AutoTexto" then Warnlog "Wrong text in Undo-List: " & UndoStringFromUndoList
-						Case 86: if UndoStringFromUndoList <> "�?�入自动图文集" then Warnlog "Wrong text in Undo-List: " & UndoStringFromUndoList
-						Case else: QAErrorlog "Please adapt test for this language: "  & UndoStringFromUndoList
-					end select
-
-				Case "InsertBookmark"
-					Select Case iSprache
-						Case 01: if UndoStringFromUndoList <> "Insert bookmark: I'm a bookmark" then Warnlog "Wrong text in Undo-List: " & UndoStringFromUndoList
-						Case 34: if UndoStringFromUndoList <> "Insertar marcador: I'm a bookmark" then Warnlog "Wrong text in Undo-List: " & UndoStringFromUndoList
-						Case 86: if UndoStringFromUndoList <> "�?�入书签: I'm a bookmark" then Warnlog "Wrong text in Undo-List: " & UndoStringFromUndoList
-						Case else: QAErrorlog "Please adapt test for this language: "  & UndoStringFromUndoList
-					end select
-
-				Case "RenameBookmark"
-					Select Case iSprache
-						Case 01: if UndoStringFromUndoList <> "Rename bookmark: 'I'm a bookmark' -> 'a book'" then Warnlog "Wrong text in Undo-List: " & UndoStringFromUndoList & " -> #i33498"
-						Case 34: if UndoStringFromUndoList <> "marcador renombrado: 'I'm a bookmark' -> 'a book'" then Warnlog "Wrong text in Undo-List: " & UndoStringFromUndoList & " -> #i33498"
-						Case 86: if UndoStringFromUndoList <> "�?命�??书签: 'I'm a bookmark' -> 'a book'" then Warnlog "Wrong text in Undo-List: " & UndoStringFromUndoList & " -> #i33498"
-						Case else: QAErrorlog "Please adapt test for this language: "  & UndoStringFromUndoList
-					end select
-
-				Case "DeleteBookmark"
-					Select Case iSprache
-						Case 01: if UndoStringFromUndoList <> "Delete bookmark: a book" then Warnlog "Wrong text in Undo-List: " & UndoStringFromUndoList
-						Case 34: if UndoStringFromUndoList <> "Borrar marcador: a book" then Warnlog "Wrong text in Undo-List: " & UndoStringFromUndoList
-						Case 86: if UndoStringFromUndoList <> "删除书签: a book" then Warnlog "Wrong text in Undo-List: " & UndoStringFromUndoList
-						Case else: QAErrorlog "Please adapt test for this language: "  & UndoStringFromUndoList
-					end select
-
-				Case "InsertComment"
-					Select Case iSprache
-						Case 01: if UndoStringFromUndoList <> "Insert comment" then Warnlog "Wrong text in Undo-List: " & UndoStringFromUndoList
-						Case 34: if UndoStringFromUndoList <> "Insertar nota" then Warnlog "Wrong text in Undo-List: " & UndoStringFromUndoList
-						Case 86: if UndoStringFromUndoList <> "�?�入 批注" then Warnlog "Wrong text in Undo-List: " & UndoStringFromUndoList
-						Case else: QAErrorlog "Please adapt test for this language: "  & UndoStringFromUndoList
-					end select
-
-				Case "DeleteComment"
-					Select Case iSprache
-						Case 01: if UndoStringFromUndoList <> "Delete comment" then Warnlog "Wrong text in Undo-List: " & UndoStringFromUndoList
-						Case 34: if UndoStringFromUndoList <> "Eliminar nota" then Warnlog "Wrong text in Undo-List: " & UndoStringFromUndoList
-						Case 86: if UndoStringFromUndoList <> "删除 批注" then Warnlog "Wrong text in Undo-List: " & UndoStringFromUndoList
-						Case else: QAErrorlog "Please adapt test for this language: "  & UndoStringFromUndoList
-					end select
-
-				Case "InsertScript"
-					Select Case iSprache
-						Case 01: if UndoStringFromUndoList <> "Insert script" then Warnlog "Wrong text in Undo-List: " & UndoStringFromUndoList
-						Case 34: if UndoStringFromUndoList <> "Insertar secuencia de comandos" then Warnlog "Wrong text in Undo-List: " & UndoStringFromUndoList
-						Case 86: if UndoStringFromUndoList <> "�?�入 脚本" then Warnlog "Wrong text in Undo-List: " & UndoStringFromUndoList
-						Case else: QAErrorlog "Please adapt test for this language: "  & UndoStringFromUndoList
-					end select
-
-				Case "DeleteScript"
-					Select Case iSprache
-						Case 01: if UndoStringFromUndoList <> "Delete script" then Warnlog "Wrong text in Undo-List: " & UndoStringFromUndoList
-						Case 34: if UndoStringFromUndoList <> "Eliminar secuencia de comandos" then Warnlog "Wrong text in Undo-List: " & UndoStringFromUndoList
-						Case 86: if UndoStringFromUndoList <> "删除 脚本" then Warnlog "Wrong text in Undo-List: " & UndoStringFromUndoList
-						Case else: QAErrorlog "Please adapt test for this language: "  & UndoStringFromUndoList
-					end select
-
-				Case "InsertIndexEntry"
-					Select Case iSprache
-						Case 01: if UndoStringFromUndoList <> "Insert index entry" then Warnlog "Wrong text in Undo-List: " & UndoStringFromUndoList
-						Case 34: if UndoStringFromUndoList <> "Insertar entrada de índice" then Warnlog "Wrong text in Undo-List: " & UndoStringFromUndoList
-						Case 86: if UndoStringFromUndoList <> "�?�入索引�?�目" then Warnlog "Wrong text in Undo-List: " & UndoStringFromUndoList
-						Case else: QAErrorlog "Please adapt test for this language: "  & UndoStringFromUndoList
-					end select
-
-				Case "DeleteIndexEntry"
-					Select Case iSprache
-						Case 01: if UndoStringFromUndoList <> "Delete 'IndexEntry'" then Warnlog "Wrong text in Undo-List: " & UndoStringFromUndoList
-						Case 34: if UndoStringFromUndoList <> "Eliminar 'IndexEntry'" then Warnlog "Wrong text in Undo-List: " & UndoStringFromUndoList
-						Case 86: if UndoStringFromUndoList <> "删除 'IndexEntry'" then Warnlog "Wrong text in Undo-List: " & UndoStringFromUndoList
-						Case else: QAErrorlog "Please adapt test for this language: "  & UndoStringFromUndoList
-					end select
-
-				Case "InsertBibliographyEntry"
-					Select Case iSprache
-						Case 01: if UndoStringFromUndoList <> "Insert bibliography entry" then Warnlog "Wrong text in Undo-List: " & UndoStringFromUndoList
-						Case 34: if UndoStringFromUndoList <> "Insertar entrada de bibliografía" then Warnlog "Wrong text in Undo-List: " & UndoStringFromUndoList
-						Case 86: if UndoStringFromUndoList <> "�?�入 文献目录�?�目" then Warnlog "Wrong text in Undo-List: " & UndoStringFromUndoList
-						Case else: QAErrorlog "Please adapt test for this language: "  & UndoStringFromUndoList
-					end select
-
-				Case "DeleteBibliographyEntry"
-					Select Case iSprache
-						Case 01: if UndoStringFromUndoList <> "Delete bibliography entry" then Warnlog "Wrong text in Undo-List: " & UndoStringFromUndoList
-						Case 34: if UndoStringFromUndoList <> "Eliminar entrada de bibliografía" then Warnlog "Wrong text in Undo-List: " & UndoStringFromUndoList
-						Case 86: if UndoStringFromUndoList <> "删除 文献目录�?�目" then Warnlog "Wrong text in Undo-List: " & UndoStringFromUndoList
-						Case else: QAErrorlog "Please adapt test for this language: "  & UndoStringFromUndoList
-					end select
-
-				Case "InsertFrame"
-					Select Case iSprache
-						Case 01: if UndoStringFromUndoList <> "Insert frame" then Warnlog "Wrong text in Undo-List: " & UndoStringFromUndoList
-						Case 34: if UndoStringFromUndoList <> "Insertar marco" then Warnlog "Wrong text in Undo-List: " & UndoStringFromUndoList
-						Case 86: if UndoStringFromUndoList <> "�?�入 框架" then Warnlog "Wrong text in Undo-List: " & UndoStringFromUndoList
-						Case else: QAErrorlog "Please adapt test for this language: "  & UndoStringFromUndoList
-					end select
-
-				Case "RenameFrame"
-					Select Case iSprache
-						Case 01: if UndoStringFromUndoList <> "Rename frame: 'MyFrame' -> 'MyRenamedFrame'" then QaErrorLog "#i94486# - Wrong text in Undo-List: " & UndoStringFromUndoList
-						Case 34: if InStr(UndoStringFromUndoList, "renombrado") then QaErrorLog "#i94486# - Wrong text in Undo-List: " & UndoStringFromUndoList
-						Case 86: if UndoStringFromUndoList <> "�?�入 框架" then QaErrorLog "#i94486# - Wrong text in Undo-List: " & UndoStringFromUndoList
-						Case else: QAErrorlog "Please adapt test for this language: " & UndoStringFromUndoList
-					end select
-
-				Case "DeleteFrame"
-					Select Case iSprache
-						Case 01: if UndoStringFromUndoList <> "Delete frame" then Warnlog "Wrong text in Undo-List: " & UndoStringFromUndoList
-                                                Case 34: if UndoStringFromUndoList <> "Eliminar marco" then Warnlog "Wrong text in Undo-List: " & UndoStringFromUndoList
-						Case 86: if UndoStringFromUndoList <> "删除框对象" then Warnlog "Wrong text in Undo-List: " & UndoStringFromUndoList
-						Case else: QAErrorlog "Please adapt test for this language: "  & UndoStringFromUndoList
-					end select
-
-				Case "InsertTable"
-					Select Case iSprache
-						Case 01: if UndoStringFromUndoList <> "Insert table: 'Table1'" then Warnlog "Wrong text in Undo-List: " & UndoStringFromUndoList
-						Case 34: if UndoStringFromUndoList <> "Insertar tabla: 'Tabla1'" then Warnlog "Wrong text in Undo-List: " & UndoStringFromUndoList
-						Case 86: if UndoStringFromUndoList <> "�?�入表格: '表格1'" then Warnlog "Wrong text in Undo-List: " & UndoStringFromUndoList
-						Case else: QAErrorlog "Please adapt test for this language: "  & UndoStringFromUndoList
-					end select
-
-				Case "InsertRow"
-					Select Case iSprache
-						Case 01: if UndoStringFromUndoList <> "Insert Row" then Warnlog "Wrong text in Undo-List: " & UndoStringFromUndoList
-						Case 34: if UndoStringFromUndoList <> "Insertar fila" then Warnlog "Wrong text in Undo-List: " & UndoStringFromUndoList
-						Case 86: if UndoStringFromUndoList <> "�?�入行" then Warnlog "Wrong text in Undo-List: " & UndoStringFromUndoList
-						Case else: QAErrorlog "Please adapt test for this language: "  & UndoStringFromUndoList
-					end select
-
-				Case "InsertColumn"
-					Select Case iSprache
-						Case 01: if UndoStringFromUndoList <> "Insert Column" then Warnlog "Wrong text in Undo-List: " & UndoStringFromUndoList
-						Case 34: if UndoStringFromUndoList <> "Insertar columna" then Warnlog "Wrong text in Undo-List: " & UndoStringFromUndoList
-						Case 86: if UndoStringFromUndoList <> "�?�入列" then Warnlog "Wrong text in Undo-List: " & UndoStringFromUndoList
-						Case else: QAErrorlog "Please adapt test for this language: "  & UndoStringFromUndoList
-					end select
-
-				Case "DeleteRow"
-					Select Case iSprache
-						Case 01: if UndoStringFromUndoList <> "Delete row" then Warnlog "Wrong text in Undo-List: " & UndoStringFromUndoList
-						Case 34: if UndoStringFromUndoList <> "Borrar fila" then Warnlog "Wrong text in Undo-List: " & UndoStringFromUndoList
-						Case 86: if UndoStringFromUndoList <> "删除行" then Warnlog "Wrong text in Undo-List: " & UndoStringFromUndoList
-						Case else: QAErrorlog "Please adapt test for this language: "  & UndoStringFromUndoList
-					end select
-
-				Case "DeleteColumn"
-					Select Case iSprache
-						Case 01: if UndoStringFromUndoList <> "Delete column" then Warnlog "Wrong text in Undo-List: " & UndoStringFromUndoList
-						Case 34: if UndoStringFromUndoList <> "Borrar columna" then Warnlog "Wrong text in Undo-List: " & UndoStringFromUndoList
-						Case 86: if UndoStringFromUndoList <> "删除列" then Warnlog "Wrong text in Undo-List: " & UndoStringFromUndoList
-						Case else: QAErrorlog "Please adapt test for this language: "  & UndoStringFromUndoList
-					end select
-
-				Case "FormatCell"
-					Select Case iSprache
-						Case 01: if UndoStringFromUndoList <> "Format cell" then Warnlog "Wrong text in Undo-List: " & UndoStringFromUndoList
-						Case 34: if UndoStringFromUndoList <> "Formatear celda" then Warnlog "Wrong text in Undo-List: " & UndoStringFromUndoList
-						Case 86: if UndoStringFromUndoList <> "格�?化�?�元格" then Warnlog "Wrong text in Undo-List: " & UndoStringFromUndoList
-						Case else: QAErrorlog "Please adapt test for this language: "  & UndoStringFromUndoList
-					end select
-
-				Case "ApplyTableAttributes"
-					Select Case iSprache
-						Case 01: if UndoStringFromUndoList <> "Apply table attributes" then Warnlog "Wrong text in Undo-List: " & UndoStringFromUndoList
-						Case 34: if UndoStringFromUndoList <> "Aplicar atributos de la tabla" then Warnlog "Wrong text in Undo-List: " & UndoStringFromUndoList
-						Case 86: if UndoStringFromUndoList <> "应用表格属性" then Warnlog "Wrong text in Undo-List: " & UndoStringFromUndoList
-						Case else: QAErrorlog "Please adapt test for this language: "  & UndoStringFromUndoList
-					end select
-
-				Case "MergeTable"
-					Select Case iSprache
-						Case 01: if UndoStringFromUndoList <> "Merge table" then Warnlog "Wrong text in Undo-List: " & UndoStringFromUndoList
-						Case 34: if UndoStringFromUndoList <> "unir tablas" then Warnlog "Wrong text in Undo-List: " & UndoStringFromUndoList
-						Case 86: if UndoStringFromUndoList <> "�?�并表格" then Warnlog "Wrong text in Undo-List: " & UndoStringFromUndoList
-						Case else: QAErrorlog "Please adapt test for this language: "  & UndoStringFromUndoList
-					end select
-
-				Case "ConvertTable"
-					Select Case iSprache
-						Case 01: if UndoStringFromUndoList <> "Convert text -> table" then Warnlog "Wrong text in Undo-List: " & UndoStringFromUndoList
-						Case 34: if UndoStringFromUndoList <> "Convertir texto en tabla" then Warnlog "Wrong text in Undo-List: " & UndoStringFromUndoList
-						Case 86: if UndoStringFromUndoList <> "文字转�?��?表格" then Warnlog "Wrong text in Undo-List: " & UndoStringFromUndoList
-						Case else: QAErrorlog "Please adapt test for this language: "  & UndoStringFromUndoList
-					end select
-
-				Case "SortTable"
-					Select Case iSprache
-						Case 01: if UndoStringFromUndoList <> "Sort table" then Warnlog "Wrong text in Undo-List: " & UndoStringFromUndoList
-						Case 34: if UndoStringFromUndoList <> "Ordenar tabla" then Warnlog "Wrong text in Undo-List: " & UndoStringFromUndoList
-						Case 86: if UndoStringFromUndoList <> "排�?表格" then Warnlog "Wrong text in Undo-List: " & UndoStringFromUndoList
-						Case else: QAErrorlog "Please adapt test for this language: "  & UndoStringFromUndoList
-					end select
-
-				Case "SplitTable"
-					Select Case iSprache
-						Case 01: if UndoStringFromUndoList <> "Split Table" then Warnlog "Wrong text in Undo-List: " & UndoStringFromUndoList
-						Case 34: if UndoStringFromUndoList <> "Dividir tabla" then Warnlog "Wrong text in Undo-List: " & UndoStringFromUndoList
-						Case 86: if UndoStringFromUndoList <> "拆分表格" then Warnlog "Wrong text in Undo-List: " & UndoStringFromUndoList
-						Case else: QAErrorlog "Please adapt test for this language: "  & UndoStringFromUndoList
-					end select
-
-				Case "DeleteTable"
-					Select Case iSprache
-						Case 01: if UndoStringFromUndoList <> "Delete table: 'AnotherTable'" then Warnlog "Wrong text in Undo-List: " & UndoStringFromUndoList & " -> #i33497"
-						Case 34: if UndoStringFromUndoList <> "Eliminar tabla 'AnotherTable'" then Warnlog "Wrong text in Undo-List: " & UndoStringFromUndoList & " -> #i33497"
-						Case 86: if UndoStringFromUndoList <> "删除 表格: 'AnotherTable'" then Warnlog "Wrong text in Undo-List: " & UndoStringFromUndoList & " -> #i33497"
-						Case else: QAErrorlog "Please adapt test for this language: "  & UndoStringFromUndoList
-					end select
-
-				Case "InsertRuler"
-					Select Case iSprache
-						Case 01: if UndoStringFromUndoList <> "Insert horizontal ruler" then Warnlog "Wrong text in Undo-List: " & UndoStringFromUndoList
-						Case 34: if UndoStringFromUndoList <> "Insertar regla horizontal" then Warnlog "Wrong text in Undo-List: " & UndoStringFromUndoList
-						Case 86: if UndoStringFromUndoList <> "�?�入水平标尺" then Warnlog "Wrong text in Undo-List: " & UndoStringFromUndoList
-						Case else: QAErrorlog "Please adapt test for this language: "  & UndoStringFromUndoList
-					end select
-
-				Case "InsertGraphic"
-					Select Case iSprache
-                                                Case 01: if (UndoStringFromUndoList = "Insert graphics") OR (UndoStringFromUndoList = "Insert picture") then
-                                                         else
-                                                             Warnlog "Wrong text in Undo-List: " & UndoStringFromUndoList
-                                                         end if
-                                                Case 34: if (UndoStringFromUndoList = "Insertar gráficos") OR (UndoStringFromUndoList = "Insertar imagen") then
-                                                         else
-                                                             Warnlog "Wrong text in Undo-List: " & UndoStringFromUndoList
-                                                         end if
-					        Case 86: if (UndoStringFromUndoList = "�?�入 图形") OR (UndoStringFromUndoList = "�?�入 图片") then
-                                                         else
-                                                             Warnlog "Wrong text in Undo-List: " & UndoStringFromUndoList
-                                                         end if
-		              	                Case else: QAErrorlog "Please adapt test for this language: "  & UndoStringFromUndoList
-				        end select
-
-				Case "DeleteGraphic"
-					Select Case iSprache
-						Case 01: if UndoStringFromUndoList <> "Delete graphics" then Warnlog "Wrong text in Undo-List: " & UndoStringFromUndoList
-						Case 34: if UndoStringFromUndoList <> "Eliminar imagen" then Warnlog "Wrong text in Undo-List: " & UndoStringFromUndoList
-						Case 86: if UndoStringFromUndoList <> "删除图形" then Warnlog "Wrong text in Undo-List: " & UndoStringFromUndoList
-						Case else: QAErrorlog "Please adapt test for this language: "  & UndoStringFromUndoList
-					end select
-
-				Case "ReplaceGraphic"
-					Select Case iSprache
-						Case 01: if UndoStringFromUndoList <> "Replace graphics" then Warnlog "Wrong text in Undo-List: " & UndoStringFromUndoList
-						Case 34: if UndoStringFromUndoList <> "Reemplazar imagen" then Warnlog "Wrong text in Undo-List: " & UndoStringFromUndoList
-						Case 86: if UndoStringFromUndoList <> "替�?�图形" then Warnlog "Wrong text in Undo-List: " & UndoStringFromUndoList
-						Case else: QAErrorlog "Please adapt test for this language: "  & UndoStringFromUndoList
-					end select
-
-				Case "InsertObject"
-					Select Case iSprache
-						Case 01: if UndoStringFromUndoList <> "Insert OLE-object" then Warnlog "Wrong text in Undo-List: " & UndoStringFromUndoList
-						Case 34: if UndoStringFromUndoList <> "Insertar Objeto OLE" then Warnlog "Wrong text in Undo-List: " & UndoStringFromUndoList
-						Case 86: if UndoStringFromUndoList <> "�?�入 OLE 对象" then Warnlog "Wrong text in Undo-List: " & UndoStringFromUndoList
-						Case else: QAErrorlog "Please adapt test for this language: "  & UndoStringFromUndoList
-					end select
-
-				Case "DeleteObject"
-					Select Case iSprache
-						Case 01: if UndoStringFromUndoList <> "Delete OLE-object" then Warnlog "Wrong text in Undo-List: " & UndoStringFromUndoList
-						Case 34: if UndoStringFromUndoList <> "Eliminar Objeto OLE" then Warnlog "Wrong text in Undo-List: " & UndoStringFromUndoList
-						Case 86: if UndoStringFromUndoList <> "删除 OLE 对象" then Warnlog "Wrong text in Undo-List: " & UndoStringFromUndoList
-						Case else: QAErrorlog "Please adapt test for this language: "  & UndoStringFromUndoList
-					end select
-
-				Case "InsertFloatingFrame"
-					Select Case iSprache
-						Case 01: if UndoStringFromUndoList <> "Insert OLE-object" then Warnlog "Wrong text in Undo-List: " & UndoStringFromUndoList
-						Case 34: if UndoStringFromUndoList <> "Insertar Objeto OLE" then Warnlog "Wrong text in Undo-List: " & UndoStringFromUndoList
-						Case 86: if UndoStringFromUndoList <> "�?�入 OLE 对象" then Warnlog "Wrong text in Undo-List: " & UndoStringFromUndoList
-						Case else: QAErrorlog "Please adapt test for this language: "  & UndoStringFromUndoList
-					end select
-
-				Case "DeleteFloatingFrame"
-					Select Case iSprache
-						Case 01: if UndoStringFromUndoList <> "Delete OLE-object" then Warnlog "Wrong text in Undo-List: " & UndoStringFromUndoList
-						Case 34: if UndoStringFromUndoList <> "Eliminar Objeto OLE" then Warnlog "Wrong text in Undo-List: " & UndoStringFromUndoList
-						Case 86: if UndoStringFromUndoList <> "删除 OLE 对象" then Warnlog "Wrong text in Undo-List: " & UndoStringFromUndoList
-						Case else: QAErrorlog "Please adapt test for this language: "  & UndoStringFromUndoList
-					end select
-
-				Case "InsertDocument"
-					Select Case iSprache
-						Case 01: if UndoStringFromUndoList <> "Insert file" then Warnlog "Wrong text in Undo-List: " & UndoStringFromUndoList
-						Case 34: if UndoStringFromUndoList <> "Insertar archivo" then Warnlog "Wrong text in Undo-List: " & UndoStringFromUndoList
-						Case 86: if UndoStringFromUndoList <> "�?�入文件" then Warnlog "Wrong text in Undo-List: " & UndoStringFromUndoList
-						Case else: QAErrorlog "Please adapt test for this language: "  & UndoStringFromUndoList
-					end select
-
-				Case "APGS"
-					Select Case iSprache
-						Case 01: if UndoStringFromUndoList <> "Asian Phonetic Guides Setting" then QaErrorLog "#i94534# - Wrong text in Undo-List: " & UndoStringFromUndoList
-						Case 34: if UndoStringFromUndoList <> "Aplicar símbolos fonéticos" then QaErrorLog "#i94534# - Wrong text in Undo-List: " & UndoStringFromUndoList
-						Case 86: if UndoStringFromUndoList <> "加上拼音或注音符�?�" then QaErrorLog "#i94534# - Wrong text in Undo-List: " & UndoStringFromUndoList
-						Case else: QAErrorlog "Please adapt test for this language: "  & UndoStringFromUndoList
-					end select
-
-				Case "AutoCorrect"
-					Select Case iSprache
-						Case 01: if UndoStringFromUndoList <> "AutoCorrect" then Warnlog "Wrong text in Undo-List: " & UndoStringFromUndoList
-                                                Case 34: if UndoStringFromUndoList <> "AutoCorrección" then Warnlog "Wrong text in Undo-List: " & UndoStringFromUndoList
-						Case 86: if UndoStringFromUndoList <> "自动更正" then Warnlog "Wrong text in Undo-List: " & UndoStringFromUndoList
-						Case else: QAErrorlog "Please adapt test for this language: "  & UndoStringFromUndoList
-					end select
-
-				Case "AutoFormat"
-					Select Case iSprache
-						Case 01: if UndoStringFromUndoList <> "AutoFormat" then Warnlog "Wrong text in Undo-List: " & UndoStringFromUndoList
-                                                Case 34: if UndoStringFromUndoList <> "Formateado automático" then Warnlog "Wrong text in Undo-List: " & UndoStringFromUndoList
-						Case 86: if UndoStringFromUndoList <> "自动格�?" then Warnlog "Wrong text in Undo-List: " & UndoStringFromUndoList
-						Case else: QAErrorlog "Please adapt test for this language: "  & UndoStringFromUndoList
-					end select
-
-                                Case "FreeForm"
-				    Select Case iSprache
-                                        Case 01: if UndoStringFromUndoList <> "Insert Polyline with 3 corners" then
-                                                     if UndoStringFromUndoList = "Insert Polyline with %2 corners" then
-                                                         QaErrorlog "#i94530# - Bug with Undo-History for Polygon-Line-tool. " + UndoStringFromUndoList
-                                                     else
-                                                         Warnlog "Wrong text in Undo-List: " & UndoStringFromUndoList
-                                                     end if
-                                                 end if
-                                        Case 34: if UndoStringFromUndoList <> "Insertar Polilínea con 3 puntos" then
-                                                     if UndoStringFromUndoList = "Insertar Polilínea con %2 puntos" then
-                                                         QaErrorlog "#i94530# - Bug with Undo-History for Polygon-Line-tool. " + UndoStringFromUndoList
-                                                     else
-                                                         Warnlog "Wrong text in Undo-List: " & UndoStringFromUndoList
-                                                     end if
-                                                 end if
-                                        Case 86: if UndoStringFromUndoList <> "�?�入 有 3 个角的折线" then
-                                                     if UndoStringFromUndoList = "�?�入 有 %2 个角的折线" then
-                                                         QaErrorlog "#i94530# - Bug with Undo-History for Polygon-Line-tool. " + UndoStringFromUndoList
-                                                     else
-                                                         Warnlog "Wrong text in Undo-List: " & UndoStringFromUndoList
-                                                     end if
-                                                 end if
-				        Case else: QAErrorlog "Please adapt test for this language: "  & UndoStringFromUndoList
-			            end select
-
-				Case "DrawGroup"
-					Select Case iSprache
-						Case 01: if UndoStringFromUndoList <> "Group draw objects" then Warnlog "Wrong text in Undo-List: " & UndoStringFromUndoList
-                                                Case 34: if UndoStringFromUndoList <> "Agrupar objetos de dibujo" then Warnlog "Wrong text in Undo-List: " & UndoStringFromUndoList
-						Case 86: if UndoStringFromUndoList <> "组�?�绘图对象" then Warnlog "Wrong text in Undo-List: " & UndoStringFromUndoList
-						Case else: QAErrorlog "Please adapt test for this language: "  & UndoStringFromUndoList
-					end select
-
-				Case "DrawUnGroup"
-					Select Case iSprache
-						Case 01: if UndoStringFromUndoList <> "Ungroup drawing objects" then Warnlog "Wrong text in Undo-List: " & UndoStringFromUndoList
-						Case 34: if UndoStringFromUndoList <> "Resolver objeto de grupo" then Warnlog "Wrong text in Undo-List: " & UndoStringFromUndoList
-						Case 86: if UndoStringFromUndoList <> "�?�消组�?�绘图对象" then Warnlog "Wrong text in Undo-List: " & UndoStringFromUndoList
-						Case else: QAErrorlog "Please adapt test for this language: "  & UndoStringFromUndoList
-					end select
-
-				Case "RenameGroup"
-					Select Case iSprache
-						Case 01: if UndoStringFromUndoList <> "Rename 2 Rectangles" then QaErrorLog "#i94486# - Wrong text in Undo-List: " & UndoStringFromUndoList
-						Case 34: if UndoStringFromUndoList <> "" then QaErrorLog "#i94486# - Wrong text in Undo-List: " & UndoStringFromUndoList
-						Case 86: if UndoStringFromUndoList <> "组�?�绘图对象" then QaErrorLog "#i94486# - Wrong text in Undo-List: " & UndoStringFromUndoList
-						Case else: QAErrorlog "Please adapt test for this language: "  & UndoStringFromUndoList
-					end select
-
-				Case "DeleteGroup"
-					Select Case iSprache
-						Case 01: if UndoStringFromUndoList <> "Delete 2 Rectangles" then Warnlog "Wrong text in Undo-List: " & UndoStringFromUndoList
-						Case 34: if UndoStringFromUndoList <> "Eliminar 2 Rectángulos" then Warnlog "Wrong text in Undo-List: " & UndoStringFromUndoList
-						Case 86: if UndoStringFromUndoList <> "删除 2 矩形" then Warnlog "Wrong text in Undo-List: " & UndoStringFromUndoList
-						Case else: QAErrorlog "Please adapt test for this language: "  & UndoStringFromUndoList
-					end select
-
-				Case "Autocheck/Spellcheck"
-					Select Case iSprache
-						Case 01: if UndoStringFromUndoList <> "Replace: 'Testp' -> 'Test'" then QaErrorLog "#i97506# - Wrong text in Undo-List: " & UndoStringFromUndoList
-						Case 34: if UndoStringFromUndoList = "Sobrescribir: $1" then
-						         elseif InStr(UndoStringFromUndoList, "'Testp'") then 
-							     QaErrorLog "#i97506# - Wrong text in Undo-List: " & UndoStringFromUndoList
-							 end if
-						Case 86: if UndoStringFromUndoList = "覆盖: $1" then
-						             QaErrorLog "#i97506# - Wrong text in Undo-List: " & UndoStringFromUndoList
-						         elseif InStr(UndoStringFromUndoList, "'Testp'") then 
-							     QaErrorlog "#i97506# - Bug fixed: " & UndoStringFromUndoList
-							 end if
-						Case else: QAErrorlog "Please adapt test for this language: "  & UndoStringFromUndoList
-					end select
-
-				Case "ControlInsert"
-					Select Case iSprache
-						Case 01: if UndoStringFromUndoList <> "Insert Control" then Warnlog "Wrong text in Undo-List: " & UndoStringFromUndoList
-						Case 34: if UndoStringFromUndoList <> "Insertar Campo de control" then Warnlog "Wrong text in Undo-List: " & UndoStringFromUndoList
-						Case 86: if UndoStringFromUndoList <> "�?�入 控制" then Warnlog "Wrong text in Undo-List: " & UndoStringFromUndoList
-						Case else: QAErrorlog "Please adapt test for this language: "  & UndoStringFromUndoList
-					end select
-
-				Case "ControlMove"
-					Select Case iSprache
-						Case 01: if UndoStringFromUndoList <> "Move Control" then Warnlog "Wrong text in Undo-List: " & UndoStringFromUndoList
-						Case 34: if UndoStringFromUndoList <> "Desplazar Campo de control" then Warnlog "Wrong text in Undo-List: " & UndoStringFromUndoList
-						Case 86: if UndoStringFromUndoList <> "移动 控制" then Warnlog "Wrong text in Undo-List: " & UndoStringFromUndoList
-						Case else: QAErrorlog "Please adapt test for this language: "  & UndoStringFromUndoList
-					end select
-
-				Case "ControlResize"
-					Select Case iSprache
-						Case 01: if UndoStringFromUndoList <> "Resize Control" then Warnlog "Wrong text in Undo-List: " & UndoStringFromUndoList
-						Case 34: if UndoStringFromUndoList <> "Modificar el tamaño de Campo de control" then Warnlog "Wrong text in Undo-List: " & UndoStringFromUndoList
-						Case 86: if UndoStringFromUndoList <> "更改大�? 控制" then Warnlog "Wrong text in Undo-List: " & UndoStringFromUndoList
-						Case else: QAErrorlog "Please adapt test for this language: "  & UndoStringFromUndoList
-					end select
-
-				Case "ControlReplace"
-					Select Case iSprache
-						Case 01: if UndoStringFromUndoList <> "Replace Control" then Warnlog "Wrong text in Undo-List: " & UndoStringFromUndoList
-						Case 34: if UndoStringFromUndoList <> "Reemplazar campo de control" then Warnlog "Wrong text in Undo-List: " & UndoStringFromUndoList
-						Case 86: if UndoStringFromUndoList <> "替�?�控制" then Warnlog "Wrong text in Undo-List: " & UndoStringFromUndoList
-						Case else: QAErrorlog "Please adapt test for this language: "  & UndoStringFromUndoList
-					end select
-
-				Case "ControlChange"
-					Select Case iSprache
-						Case 01: if UndoStringFromUndoList <> "Set property 'Name'" then Warnlog "Wrong text in Undo-List: " & UndoStringFromUndoList
-						Case 34: if UndoStringFromUndoList <> "Establecer propiedad 'Name'" then Warnlog "Wrong text in Undo-List: " & UndoStringFromUndoList
-						Case 86: if UndoStringFromUndoList <> "设置属性 'Name'" then Warnlog "Wrong text in Undo-List: " & UndoStringFromUndoList
-						Case else: QAErrorlog "Please adapt test for this language: "  & UndoStringFromUndoList
-					end select
-
-				Case "ControlDelete"
-					Select Case iSprache
-						Case 01: if UndoStringFromUndoList <> "Delete Control" then Warnlog "Wrong text in Undo-List: " & UndoStringFromUndoList
-						Case 34: if UndoStringFromUndoList <> "Eliminar Campo de control" then Warnlog "Wrong text in Undo-List: " & UndoStringFromUndoList
-						Case 86: if UndoStringFromUndoList <> "删除 控制" then Warnlog "Wrong text in Undo-List: " & UndoStringFromUndoList
-						Case else: QAErrorlog "Please adapt test for this language: "  & UndoStringFromUndoList
-					end select
-
-				Case "Header/Footer"
-					Select Case iSprache
-						Case 01: if UndoStringFromUndoList <> "Header/footer changed" then Warnlog "Wrong text in Undo-List: " & UndoStringFromUndoList
-						Case 34: if UndoStringFromUndoList <> "" then Warnlog "Wrong text in Undo-List: " & UndoStringFromUndoList
-						Case 86: if UndoStringFromUndoList <> "" then Warnlog "Wrong text in Undo-List: " & UndoStringFromUndoList
-						Case else: QAErrorlog "Please adapt test for this language: "  & UndoStringFromUndoList
-					end select
-
-				Case else
-					Warnlog "Wrong string for this function!"
-
-			end select
-
-        case 11:  'Delete ' ###'
-            Select Case iSprache
-				Case 01: if UndoStringFromUndoList <> "Delete ' ###'" then Warnlog "Wrong text in Undo-List: " & UndoStringFromUndoList
-                                Case 34: if UndoStringFromUndoList <> "Eliminar 'g'" then Warnlog "Wrong text in Undo-List: " & UndoStringFromUndoList
-				Case 86: if UndoStringFromUndoList <> "�?�入自动图文集" then Warnlog "Wrong text in Undo-List: " & UndoStringFromUndoList
-				Case else: QAErrorlog "Please adapt tests for current language! (" & CurrentUndoString(0) & ")"
-			end select
-
-		case else:
-			QAErrorlog "Wrong type!"
-
-	end select
-
-	if vTypeString > "" then
-		if Trim(CurrentUndoString(0)) <> vTypeString then
-			Warnlog "Wrong Type in Undo list. Not " & vTypeString & " but " & Trim(CurrentUndoString(0))
-		else
-			Printlog "-  Type in Undo-List is ok"
-		end if
-		try
-			if Trim(CurrentUndoString(1)) <> vShould then
-				Warnlog "Wrong String in Undo list. Not " & vShould & " but " & Trim(CurrentUndoString(1))
-			else
-				Printlog "-  String in Undo-List is ok"
-			end if
-		catch
-			warnlog "Something wrong with type: " & vTypeString
-		endcatch
-	end if
-	wait 500
-    Kontext "StandardBar"
-    Undo.Click
-    Call wTypeKeys "<ESCAPE>"
-end sub
diff --git a/testautomation/writer/tools/w_get_locale_strings.bas b/testautomation/writer/tools/w_get_locale_strings.bas
deleted file mode 100644
index ba1010027388..000000000000
--- a/testautomation/writer/tools/w_get_locale_strings.bas
+++ /dev/null
@@ -1,50 +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 : helge.delfs@oracle.com
-'*
-'* short description : Get Locale Strings for Writer Level1-Test
-'*
-'\***********************************************************************
-
-
-sub main
-    use "writer\tools\includes\w_tools.inc"
-    use "writer\tools\includes\w_get_locale_strings.inc"
-    
-    Call w_get_locale_strings
-    
-end sub
-
-
-
-sub LoadIncludeFiles
-    use "global\system\includes\master.inc"
-    use "global\system\includes\gvariabl.inc"
-    Call GetUseFiles
-    gApplication = "WRITER"
-end sub