CWS-TOOLING: integrate CWS automationdev300m85

51 files changed, 636 insertions, 1202 deletions

diff --git a/testautomation/chart2/optional/includes/loadsave/ch2_xml_format.inc b/testautomation/chart2/optional/includes/loadsave/ch2_xml_format.inc
index fee95afb3..ef61dc36e 100755..100644
--- a/testautomation/chart2/optional/includes/loadsave/ch2_xml_format.inc
+++ b/testautomation/chart2/optional/includes/loadsave/ch2_xml_format.inc
@@ -221,10 +221,10 @@ testcase tCompareXMLFormatLoad
     SAXSeekElement("chart:plot-area")
     '/// If the attribute value of 'table:cell-range-address' is 'Sheet1.A1:Sheet1.B2'
     '///+ the second characteristics validation has been passed.
-    if SAXGetAttributeValue("table:cell-range-address") = "Sheet1.A1:B2" then
+    if SAXGetAttributeValue("table:cell-range-address") = "Sheet1.A1:Sheet1.B2" then
         printlog "The cell range for chart:plot-area is correct"
     else
-        warnlog "#i100780#: The cell range is not Sheet1.A1:B2, it is " & SaxGetAttributeValue("table:cell-range-address")
+        warnlog "The cell range is not Sheet1.A1:Sheet1.B2, it is " & SaxGetAttributeValue("table:cell-range-address")
     endif
     printlog "Seek for chart:series"
     printlog "               |-chart:series"
@@ -232,10 +232,10 @@ testcase tCompareXMLFormatLoad
     SAXSeekElement("chart:series")
     '/// If the attribute valie of 'chart:values-cell-range-address' is Sheet1.A1:Sheet1.A2''
     '///+ the hird characteristics validation has been passed.
-    if SAXGetAttributeValue("chart:values-cell-range-address") = "Sheet1.A1:A2" then
+    if SAXGetAttributeValue("chart:values-cell-range-address") = "Sheet1.A1:Sheet1.A2" then
         printlog "The cell range for chart:series is correct"
     else
-        warnlog "#i100780#: The cell range is not Sheet1.A1:A2, it is " & SaxGetAttributeValue("chart:values-cell-range-address")
+        warnlog "The cell range is not Sheet1.A1:Sheet1.A2, it is " & SaxGetAttributeValue("chart:values-cell-range-address")
     endif
     ' DEBUG: printlog "I'm here: " & SAXGetElementName
     '/// Close the XML editor.
diff --git a/testautomation/extensions/optional/includes/platforms.inc b/testautomation/extensions/optional/includes/platforms.inc
index db5d79149..eaac40b77 100755..100644
--- a/testautomation/extensions/optional/includes/platforms.inc
+++ b/testautomation/extensions/optional/includes/platforms.inc
@@ -75,7 +75,7 @@ testcase tExtensionPlatforms
         end select
 
         printlog( "" )
-        printlog( "Current extension: " & cCurrentExtensionFile )
+        printlog( "("+iCurrentExtension+"/"+iExtensionCount+") Current extension: " & cCurrentExtensionFile )
         iStatus = hExtensionAddGUI( cCurrentExtensionPath, "InstallForUser, NoLicense, NoUpdate, Verbose" )
         
         if ( iStatus = -7 or iStatus >= 0 ) then
diff --git a/testautomation/framework/optional/includes/basic_spectemplate.inc b/testautomation/framework/optional/includes/basic_spectemplate.inc
index eeed6b047..7fc265837 100755..100644
--- a/testautomation/framework/optional/includes/basic_spectemplate.inc
+++ b/testautomation/framework/optional/includes/basic_spectemplate.inc
@@ -94,10 +94,12 @@ testcase tBasicSpecTemplate
     printlog( "Load the file again" )
     hFileOpen( cWorkFile )
     hAllowMacroExecution()
+
+    ' This sleep here is needed after loading the document otherwise the document is closed too early during execution of the macros, which results in basic runtime error messagebox, that can not be handled.
+    SLEEP(1)
     
     printlog( "Cleanup: Close the document and delete the file" )
     hDestroyDocument()
     hDeleteFile( cWorkFile )
-
 endcase
 
diff --git a/testautomation/framework/optional/input/gridcontrol.odt b/testautomation/framework/optional/input/gridcontrol.odt
index 46be0c44a..2f467b3f2 100755
--- a/testautomation/framework/optional/input/gridcontrol.odt
+++ b/testautomation/framework/optional/input/gridcontrol.odt
diff --git a/testautomation/graphics/optional/g_spellcheck.bas b/testautomation/graphics/optional/g_spellcheck.bas
index 7dad1b0d9..f8a8eb6c0 100644..100755
--- a/testautomation/graphics/optional/g_spellcheck.bas
+++ b/testautomation/graphics/optional/g_spellcheck.bas
@@ -42,19 +42,16 @@ sub main
     use "graphics\optional\includes\global\g_spellcheck.inc"
 
     hSetLocaleStrings ( gTesttoolPath + "graphics\tools\locale_1.txt" , glLocale () )
-
-    PrintLog "-------------------------" + gApplication + "-------------------"
-    Call tiToolsSpellcheckCorrect
-    Call tiToolsSpellcheckError
-    Call tiToolsSpellcheckCheck
-    Call tToolsSpellcheckAutoSpellcheck
+    PrintLog "-------------------------" + gApplication + "-------------------"    
+    call tiToolsSpellcheckCheck_AlwaysIgnore
+    call tiToolsSpellcheckCheck_Change
+    call tiToolsSpellcheckCheck_ChangeAll
 
     gApplication = "DRAW"
     PrintLog "-------------------------" + gApplication + "-------------------"
-    Call tiToolsSpellcheckCorrect
-    Call tiToolsSpellcheckError
-    Call tiToolsSpellcheckCheck
-    Call tToolsSpellcheckAutoSpellcheck
+    call tiToolsSpellcheckCheck_AlwaysIgnore
+    call tiToolsSpellcheckCheck_Change
+    call tiToolsSpellcheckCheck_ChangeAll
 
     Call hStatusOut
 end sub
diff --git a/testautomation/graphics/optional/i_only_updt_1.bas b/testautomation/graphics/optional/i_only_updt_1.bas
index fd1e4ae68..98d226424 100644..100755
--- a/testautomation/graphics/optional/i_only_updt_1.bas
+++ b/testautomation/graphics/optional/i_only_updt_1.bas
@@ -58,7 +58,7 @@ sub main
     call im_004_
     call id_004
     call id_005
-    call id_006
+    call id_Tools
 
     Call hStatusOut
 end sub
diff --git a/testautomation/graphics/optional/includes/global/g_clipexport.inc b/testautomation/graphics/optional/includes/global/g_clipexport.inc
index 64385ffd7..c9569cbf8 100644
--- a/testautomation/graphics/optional/includes/global/g_clipexport.inc
+++ b/testautomation/graphics/optional/includes/global/g_clipexport.inc
@@ -165,87 +165,138 @@ global Text5 as string
 global Text6 as string
 global Text7 as string
 
+'--------------------------- Tests for Writer ----------------------------------
+sub writertest
+
+    try
+        call Make_And_Check_Formatted_Text_Line_From_Application
+    catch
+        warnlog "Something went wrong with testing writertest"
+    endcatch
+
+    try
+        call Make_Rectangle_From_Application
+        call Full_test_Draw
+        call Full_test_Impress
+        call Full_test_Writer
+        call Full_test_Calc
+    catch
+        warnlog "something wrong with testing writertest"
+    endcatch
+end sub ' big one
+
+'---------------------------- Tests for Calc -----------------------------------
+sub calctest
+
+    try
+        call Make_Rectangle_From_Application
+        call Full_test_Draw
+        call Full_test_Impress
+        call Full_test_Writer
+        call Full_test_Calc
+    catch
+        warnlog "something wrong with calctest"
+    endcatch
+    printlog "currently no specific tests from Calc"
+end sub
+
+'-------------------------------------------------------------------------------
+sub tClipboardFromDrawTest
+
+    EnableQAErrors = false
+    FromApp2 = gApplication
+    printlog "gApplication = " + gApplication
+
+    select case( gApplication )
+    case "WRITER" : call writertest()
+    case "CALC"   : call calctest()
+    case else     : warnlog( "Unsupported gApplication provided: " & gApplication )
+    end select
+
+end sub
+
 '------------------------------- "object"-dependant tests ----------------------
 
-try
-    call Make_Rectangle_From_Application
-    call Full_test_Draw
-    call Full_test_Impress
-    call Full_test_Writer
-    call Full_test_Calc
-catch
-    warnlog "something wrong with testing Rectangle"
-endcatch
-
-try
-    call Make_Make3dObject_From_Application
-    call Full_test_Draw
-    call Small_test_Impress
-    call Small_test_Calc
-    call Small_test_Writer
-catch
-    warnlog "something wrong with testing 3dObject"
-endcatch
-
-'qaerrorlog "Make_CurveObject_From_Application needs an overview - FHA"
-try
-    call Make_CurveObject_From_Application
-    call Small_test_Draw
-    call Small_test_Impress
-    call Small_test_Calc
-    call Small_test_Writer
-catch
-    warnlog "something wrong with testing CurveObj"
-endcatch
-
-try
-    call Make_ConnectorObject_From_Application
-    call Small_test_Draw
-    call Small_test_Impress
-    call Small_test_Calc
-    call Small_test_Writer
-catch
-    warnlog "something wrong with testing ConnectorObject"
-endcatch
-
-try
-    call Make_LineObject_From_Application
-    call Small_test_Draw
-    call Small_test_Impress
-    '   call Small_test_Calc
-    '   call Small_test_Writer
-catch
-    warnlog "something wrong with testing LineObject"
-endcatch
-
-try
-catch
-    warnlog "something wrong with testing ConnectorObject"
-endcatch
-
-try
-    call Make_Circle_From_Application
-    call Small_test_Draw
-    call Small_test_Impress
-    call Small_test_Calc
-    call Small_test_Writer
-catch
-    warnlog "something wrong with testing Circle"
-endcatch
-
-try
-    call Make_TextSquare_From_Application
-    call Small_test_Draw
-    call Small_test_Impress
-    call Small_test_Calc
-    call Small_test_Writer
-
-catch
-    warnlog "something wrong with testing TextSquare"
-endcatch
-
-call clear_all_and_close
-Printlog "tClipboardFromDrawTest finished"
+sub g_clipexport
+    try
+        call Make_Rectangle_From_Application
+        call Full_test_Draw
+        call Full_test_Impress
+        call Full_test_Writer
+        call Full_test_Calc
+    catch
+        warnlog "something wrong with testing Rectangle"
+    endcatch
+
+    try
+        call Make_Make3dObject_From_Application
+        call Full_test_Draw
+        call Small_test_Impress
+        call Small_test_Calc
+        call Small_test_Writer
+    catch
+        warnlog "something wrong with testing 3dObject"
+    endcatch
+
+    'qaerrorlog "Make_CurveObject_From_Application needs an overview - FHA"
+    try
+        call Make_CurveObject_From_Application
+        call Small_test_Draw
+        call Small_test_Impress
+        call Small_test_Calc
+        call Small_test_Writer
+    catch
+        warnlog "something wrong with testing CurveObj"
+    endcatch
+
+    try
+        call Make_ConnectorObject_From_Application
+        call Small_test_Draw
+        call Small_test_Impress
+        call Small_test_Calc
+        call Small_test_Writer
+    catch
+        warnlog "something wrong with testing ConnectorObject"
+    endcatch
+
+    try
+        call Make_LineObject_From_Application
+        call Small_test_Draw
+        call Small_test_Impress
+        '   call Small_test_Calc
+        '   call Small_test_Writer
+    catch
+        warnlog "something wrong with testing LineObject"
+    endcatch
+
+    try
+    catch
+        warnlog "something wrong with testing ConnectorObject"
+    endcatch
+
+    try
+        call Make_Circle_From_Application
+        call Small_test_Draw
+        call Small_test_Impress
+        call Small_test_Calc
+        call Small_test_Writer
+    catch
+        warnlog "something wrong with testing Circle"
+    endcatch
+
+    try
+        call Make_TextSquare_From_Application
+        call Small_test_Draw
+        call Small_test_Impress
+        call Small_test_Calc
+        call Small_test_Writer
+
+    catch
+        warnlog "something wrong with testing TextSquare"
+    endcatch
+
+    call clear_all_and_close
+    Printlog "tClipboardFromDrawTest finished"
 end sub
 
 
diff --git a/testautomation/graphics/optional/includes/global/g_clipexport2.inc b/testautomation/graphics/optional/includes/global/g_clipexport2.inc
index fae2cdcc7..44fb7bbd5 100644
--- a/testautomation/graphics/optional/includes/global/g_clipexport2.inc
+++ b/testautomation/graphics/optional/includes/global/g_clipexport2.inc
@@ -61,7 +61,7 @@ sub MakeRectangle
 end sub
 
 '-------------------------------------------------------------------------------
-sub MakeCircle
+testcase MakeCircle
 
     printlog "Create Circle"
     if gApplication = "WRITER" then
@@ -81,10 +81,10 @@ sub MakeCircle
     gMouseUp (30,30)
     sleep 1
 
-end sub
+endcase
 
 '-------------------------------------------------------------------------------
-sub Make3dObject
+testcase Make3dObject
 
     printlog "Create 3dObject"
     if (Ucase(gApplication) = "CALC") then
@@ -158,10 +158,10 @@ sub Make3dObject
         endif
     end if
 
-end sub
+endcase
 
 '-------------------------------------------------------------------------------
-sub MakeCurveObject
+testcase MakeCurveObject
 
     if (Ucase(gApplication) = "WRITER") then
         warnlog "Cant make circle in this application"
@@ -195,10 +195,10 @@ sub MakeCurveObject
     hMenuItemUnCheck (7)
     sleep 1
 
-end sub
+endcase
 
 '-------------------------------------------------------------------------------
-sub MakeLineObject
+testcase MakeLineObject
 
     if gApplication = "WRITER" then
         warnlog "Currently no support for line-object in this application"
@@ -224,10 +224,10 @@ sub MakeLineObject
     Kontext "Arrowshapes"
     Arrowshapes.Close
 
-end sub
+endcase
 
 '-------------------------------------------------------------------------------
-sub MakeConnectorObject
+testcase MakeConnectorObject
 
     if gApplication = "WRITER" then
         warnlog "Cant make connector in this application"
@@ -268,7 +268,7 @@ sub MakeConnectorObject
         gMouseUp (30,37)
     end if
 
-end sub
+endcase
 
 '-------------------------------------------------------------------------------
 sub MakeFormattedTextLine
diff --git a/testautomation/graphics/optional/includes/global/g_clipexport3.inc b/testautomation/graphics/optional/includes/global/g_clipexport3.inc
index 5a6e86ac2..63eb77cd6 100644
--- a/testautomation/graphics/optional/includes/global/g_clipexport3.inc
+++ b/testautomation/graphics/optional/includes/global/g_clipexport3.inc
@@ -412,7 +412,7 @@ sub Check_Text_Formatting
                                 SetKontextApplication
                                 printlog "   Check_Text_Formatting Ends"
 
-
+end suB
                                 '----------------------------------------------------------------------------------------------------
 sub Check_Colors_Borders_Attributes
 
@@ -558,26 +558,10 @@ sub Check_Colors_Borders_Attributes
                                                                                                 ColorModel = Farbmodell.GetSelText
                                                                                                 printlog "   " + ColorModel
 
-                                                                                                select case iSprache      ' Prepared for future language-problematics.
-                                                                                                    if ColorR <> R.GetText then Warnlog "Wrong R-Color. Should be: " + ColorR + " but was: " + R.GetText
-                                                                                                        if ColorG <> G.GetText then Warnlog "Wrong V-Color. Should be: " + ColorG + " but was: " + G.GetText
-                                                                                                            if ColorB <> B.GetText then Warnlog "Wrong B-Color. Should be: " + ColorB + " but was: " + B.GetText
-                                                                                                            Else
                                                                                                                 if ColorC <> C.GetText then Warnlog "Wrong C-Color. Should be: " + ColorC + " but was: " + C.GetText
                                                                                                                     if ColorM <> M.GetText then Warnlog "Wrong M-Color. Should be: " + ColorM + " but was: " + M.GetText
                                                                                                                         if ColorY <> Y.GetText then Warnlog "Wrong J-Color. Should be: " + ColorY + " but was: " + Y.GetText
                                                                                                                             if ColorK <> K.GetText then Warnlog "Wrong N-Color. Should be: " + ColorK + " but was: " + K.GetText
-                                                                                                                            End if
-                                                                                                                            if ColorR <> R.GetText then Warnlog "Wrong R-Color. Should be: " + ColorR + " but was: " + R.GetText
-                                                                                                                                if ColorG <> G.GetText then Warnlog "Wrong G-Color. Should be: " + ColorG + " but was: " + G.GetText
-                                                                                                                                    if ColorB <> B.GetText then Warnlog "Wrong B-Color. Should be: " + ColorB + " but was: " + B.GetText
-                                                                                                                                    Else
-                                                                                                                                        if ColorC <> C.GetText then Warnlog "Wrong C-Color. Should be: " + ColorC + " but was: " + C.GetText
-                                                                                                                                            if ColorM <> M.GetText then Warnlog "Wrong M-Color. Should be: " + ColorM + " but was: " + M.GetText
-                                                                                                                                                if ColorY <> Y.GetText then Warnlog "Wrong Y-Color. Should be: " + ColorY + " but was: " + Y.GetText
-                                                                                                                                                    if ColorK <> K.GetText then Warnlog "Wrong K-Color. Should be: " + ColorK + " but was: " + K.GetText
-                                                                                                                                                    End if
-                                                                                                                                                end select
 
                                                                                                                                                 Kontext
                                                                                                                                                 Active.setpage TabFarbverlaeufe
@@ -624,7 +608,8 @@ sub Check_Colors_Borders_Attributes
                                                                                                                                                 Printlog "End of one application"
 
 
-                                                                                                                                                '---------------------------------- Set the Kontext to the current Application ----------------------------------'
+end sub
+   '---------------------------------- Set the Kontext to the current Application ----------------------------------'
 sub SetKontextApplication
 
     sleep 1
@@ -698,7 +683,7 @@ sub New_Writer
 end sub
 
 '-------------------------------------------------------------------------------
-sub Choose_Toapplication
+testcase Choose_Toapplication
 
     For ToAppCounter = 1 to 4
 
@@ -724,6 +709,6 @@ sub Choose_Toapplication
     Call hNewDocument
     SetKontextApplication
 
-end sub
+endcase
 
 '--------------------------------------------------------------------------------------------------------
diff --git a/testautomation/graphics/optional/includes/global/g_spellcheck.inc b/testautomation/graphics/optional/includes/global/g_spellcheck.inc
index 74f617728..7f0993d09 100644
--- a/testautomation/graphics/optional/includes/global/g_spellcheck.inc
+++ b/testautomation/graphics/optional/includes/global/g_spellcheck.inc
@@ -29,398 +29,210 @@
 '*
 '* short description :
 '*
-'*******************************************************************
-'*
-' #1 tiToolsSpellcheckCorrect
-' #1 tiToolsSpellcheckError
-' #1 tiToolsSpellcheckCheck
-' #1 tToolsSpellcheckAutoSpellcheck
-'*
 '\*******************************************************************
-testcase tiToolsSpellcheckCorrect
-    if iSprache = 48 then
-        qaerrorlog "This test is not adapted for polish, 48."
-        got endsub
+testcase tiToolsSpellcheckCheck_AlwaysIgnore
+    
+    Dim sExt as string
+    
+    Dim sWrongWord as String
+    Dim sRightWord as string
+
+    dim aWords(2) as string
+    aWords() = getWordsForLanguage()
+
+    sWrongWord = aWords(0)
+    sRightWord = aWords(1)
+    
+    if(sWrongWord = "" OR sRightWord = "") then ' if any word is empty then the test should stop
+        qaerrorlog "no spellcheck test for the langauges " + iSprache + " available."            
+        goto endsub
     endif
 
-    Dim DieDatei as String
-    dim lFiles(100) as string
-    dim i as integer
-    dim iFiles as integer
-
-    lFiles(0)=0
-    Printlog "- Checking Dictionary-Files" ' borrowed from w_106.inc
-    select case iSprache
-    case 01 : DieDatei = "01-44-hyph.dat"
-    case else : DieDatei =  "" & iSprache & "-hyph.dat"
-    end select
-    DieDatei = Convertpath(gNetzOfficePath + "share\dict\" + DieDatei)
-    if gPlatGroup <> "unx" then
-        if (Dir(DieDatei) = "") then
-            if bAsianLan then
-                printlog "Dictionary not found : " + DieDatei + ", but is AsianLan, so OK :-)"
-            else
-                if gNetzInst then
-                    printlog "Dictionary not found : " + DieDatei
-                else
-                    warnlog "Dictionary not found : " + DieDatei
-                end if
-            end if
-        else
-            Printlog "    Dictionary has been installed : " + DieDatei
-        end if
-    end if
-    iFiles = GetFileList (Convertpath (gNetzOfficePath + "share\dict\"), "*.dat" ,lFiles())
-    for i = 1 to iFiles
-        printlog " " + i + ": " + DateiExtract(lFiles(i))
-    next i
+    delete_word_from_dictionary(sWrongWord,"IgnoreAllList")
 
-    Call hNewDocument
-    '    sleep 2
-    ToolsSpellcheck
-    Kontext "Active"
-    if Active.Exists(5) then
-        try
-            printlog "Message: Finished: Want to continue at the beginning? '" + active.gettext + "'"
-            Active.No
-        catch
-            Warnlog "The Active-dialoge didn't have a No-button, tries with OK instead."
-            Active.Ok
-        endcatch
+    if Ucase(gApplication) = "DRAW" then
+        sExt = ".odg"
     else
-        Warnlog "No 'Spellcheck finished, do you wish to continue?' message appeared"
-    end if
-    sleep 2
+        sExt = ".odp"
+    endif
 
-    PrintLog "- Spellcheck with correct text"
-    select case iSprache
-    case 01   : hTextrahmenErstellen ("This is a text without any error.<Return>",10,10,50,20)
-    case 33   : hTextrahmenErstellen ("Il nous faut donc un de temps pour examiner avec soin tous les dossiers.<Return>",10,10,70,20)
-    case 34   : hTextrahmenErstellen ("Este es un chico muy importante.",10,10,50,20)
-    case 36   : hTextrahmenErstellen ("akit a b�r�s�g vagy a szab�lys�rt�si hat�s�g a eltiltott",10,10,70,20)
-    case 39   : hTextrahmenErstellen ("La ringraziamo per l'interesse mostrato a collaborare con la firma.<Return>",10,10,70,20)
-    case 46   : hTextrahmenErstellen ("Det varierar vad som behandlas och ur vilket perspektiv.<Return>",10,10,50,20)
-    case 49   : hTextrahmenErstellen ("Dies ist ein Text ohne Fehler.<Return>",10,10,50,20)
-    case 55   : hTextrahmenErstellen ("Esta poderia ser a resposta para suas preces?<Return>",10,10,50,20)
-    case else :
-        if bAsianLan then
-            printlog "For the language  " + iSprache +" nothing is prepared yet, but is AsianLan, so OK :-) will use english instaed"
-            ' there was smth wrong, try to find out :
-            kontext
-            if active.exists then
-                printlog "ERROR: active: '"+active.gettext+"'"
-                active.ok
-            end if
-            hTextrahmenErstellen ("This is a text without any error.<Return>",10,10,50,20)
-        else
-            Warnlog "For the language  " + iSprache +" nothing is prepared yet: insert text here"
-            hTextrahmenErstellen ("This is a text without any error.<Return>",10,10,50,20)
-        end if
-    end select
-    ToolsSpellcheck
-    WaitSlot (2000)
-    Kontext "Active"
-    if active.exists(5) then
-        printlog "Message: spellchecking has finished?: '" + active.gettext + "'"
-        Active.OK
+    Call hFileOpen (gTesttoolpath + "graphics\required\input\recht_"+iSprache+sExt)
+    call fMakeDocumentWritable()
+
+    sleep(1)
+
+    ' Perform the test now:
+    printlog "Call Tools->Spellcheck"
+    ToolsSpellcheck    
+    sleep(2)
+    Kontext "Spellcheck"
+    printlog "Click button 'Always ignore' on dialog."
+    IgnoreAll.Click
+    Sleep 2    
+
+    ToolsOptions
+    printlog "Select in category 'Languagesettings' entry 'Writing Aids.'"
+    hToolsOptions ("LANGUAGESETTINGS","WRITINGAIDS")
+
+    fSelectWithString(Benutzerwoerterbuch,"IgnoreAllList")
+
+    Bearbeiten.Click
+
+    Kontext "BenutzerwoerterbuchBearbeiten"
+    if(Inhalt.getText <> sWrongWord) then
+        warnlog " added word is not in dictionary: '" + Buch.getSelText + "'"
     else
-        errorLog "Spellcheck started :"
-        Kontext "Spellcheck"
-        if Spellcheck.exists then
-            errorlog " - spellcheck came up and will be closed now"
-            Spellcheck.Close
-        else
-            printlog "spellcheck didn't come up"
-        end if
+        printlog " added word is in dictionary: '" + Buch.getSelText + "'"
     end if
-    WaitSlot (2000)
+
+    printlog "Close dialog 'Edit Custom Dictionary'."
+    BenutzerwoerterbuchBearbeiten.Close
+    Kontext "ExtrasOptionenDlg"
+    printlog "Close the Option dialog."
+    ExtrasOptionenDlg.OK
+
+    printlog "Close document"
     Call hCloseDocument
-endcase 'tiToolsSpellcheckCorrect
 
-'------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
-testcase tiToolsSpellcheckError
-    if iSprache = 48 then
-        qaerrorlog "This test is not adapted for polish, 48."
-        got endsub
-    endif
-    Dim Fehler$
-    Dim Sprachenname$
-    Dim Dummy$
-    Dim FehlerText$
-    Dim i as integer
-
-    printlog "New document"
-    Call hNewDocument
-    printlog "Selecting language case: " & iSprache
-    select case iSprache
-    case 01 : FehlerText$ = "Thatt is a failure test."                      : Fehler$ = "Thatt" : Sprachenname$ = "English (US)"
-    case 34 : FehlerText$ = "Ezte es un chico muy importante."              : Fehler$ = "Ezte"  : Sprachenname$ = "Niederlaendisch"
-    case 33 : FehlerText$ = "Ler nous faut donc un de temps pour examiner." : Fehler$ = "Ler"   : Sprachenname$ = "Franzoesisch"
-    case 36 : FehlerText$ = "Boszniai americkai kontingens háromnegyedesek – mintegy négyezer katona – magyarországi telepítése egy éven belül megtörténhet" : Fehler$ = "tellepítésel"   : Sprachenname$ = "Ungarisch"
-    case 39 : FehlerText$ = "Ringrarziamo per l'interessa mostrato a collaborare con la firma." : Fehler$ = "Ringrarziamo" : Sprachenname$ = "Italienisch"
-    case 46 : FehlerText$ = "Detd varierar vad som behandlas och ur vilket perspektiv."         : Fehler$ = "Detd"         : Sprachenname$ = "Schwedisch"
-    case 49 : FehlerText$ = "Diees ist ein Fehler."                         : Fehler$ = "Diees" : Sprachenname$ = "Deutsch"
-    case 55 : FehlerText$ = "Eesta poderia ser a resposta para suas preces?": Fehler$ = "Eesta" : Sprachenname$ = "Portugiesisch"
-    case else :
-        if bAsianLan then
-            printlog "For the language  " + iSprache +" nothing is prepared yet, but is AsianLan, so OK :-) using english"
-            FehlerText$ = "Thatt is a failure test."
-            Fehler$ = "Thatt"
-            Sprachenname$ = "English (US)"
-            call hSetSpellHypLanguage
-        else
-            Warnlog "For the language  " + iSprache +" nothing is prepared yet: insert text here"
-        end if
-    end select
-    printlog "Error Text taken for testing is: " & FehlerText$
-    sleep 2
+    ' remove the word again from the dictionary
+    delete_word_from_dictionary(sWrongWord,"IgnoreAllList")
+
+endcase 'tiToolsSpellcheckCheck
+'-------------------------------------------------------------------------------
+testcase tiToolsSpellcheckCheck_Change
 
-    printlog "Delete ignore word list"
-    if (not wIgnorierenlisteLoeschen) then
-        qaErrorLog "Can't get into Dictionary lists"
+    Dim sExt as string
+    Dim sWrongWord as String
+    Dim sRightWord as string
+
+    dim aWords(2) as string
+    aWords() = getWordsForLanguage()
+
+    sWrongWord = aWords(0)
+    sRightWord = aWords(1)
+    
+    if(sWrongWord = "" OR sRightWord = "") then ' if any word is empty then the test should stop
+        qaerrorlog "no spellcheck test for the langauges " + iSprache + " available."            
         goto endsub
-    end if
-    printlog "Setting doc language to english"
-    ToolsOptions
-    Kontext "ExtrasOptionenDlg"
-    hToolsOptions("LANGUAGESETTINGS","Languages")
-    Westlich.Select 34
-    Kontext "ExtrasOptionenDlg"
-    ExtrasOptionenDlg.OK
-    printlog "Create 1 textbox with 1 spelling error (test replace always)"
-    hTextrahmenErstellen (FehlerText$,30,30,90,40)
+    endif
+
+    if Ucase(gApplication) = "DRAW" then
+        sExt = ".odg"
+    else
+        sExt = ".odp"
+    endif
+
+    Call hFileOpen (gTesttoolpath + "graphics\required\input\recht_"+iSprache+sExt)
+
+    call fMakeDocumentWritable
 
-    hTypeKeys "<HOME>"
-    printlog "Call 'Tools->Spellcheck->Check'"
+    ' Perform the test now:
+    printlog "Call Tools->Spellcheck"
     ToolsSpellcheck
-    printlog "Spellcheck dialog has to come up, wrong word is selected."
+    sleep(2)
     Kontext "Spellcheck"
-    if Spellcheck.Exists then
-        printlog "There has to be at least ONE suggestion."
-        if (Suggestions.GetItemCount < 1) then
-            printlog "If no suggestion avilable:"
-            warnlog "   - no suggestion for the language: "+DictionaryLanguage.GetSelIndex+" '"+DictionaryLanguage.GetSelText+"' , press check button..."
-            printlog "+ press button 'Check word'"
-            Pruefen.click
-            if (Suggestions.GetItemCount < 1) then
-                warnlog " STILL no suggestions :-( errors will follow "
-            else
-                printlog "   - now suggestion for the language: "+DictionaryLanguage.GetSelIndex+" '"+DictionaryLanguage.GetSelText+"'" + Suggestions.GetItemCount
-            end if
-        end if
-        Dummy$=Suggestions.GetItemText (1)
-        printlog "Select first spellcheck suggestion (click it!)."
-        Suggestions.Select (1)
-        printlog "Check if textfield 'word' has changed to selected word."
-        if (Suggestions.GetSelText <> Dummy$) Then
-            Warnlog "Suggestion not used"
-        else
-            Printlog "Suggestion is used"
-        end if
-        sleep 1
-        kontext "Spellcheck"
-        printlog "click button 'Always replace'"
-        ChangeAll.Click
-        printlog "spellcheck dialog has to disappear and"
-        printlog "There has to come up only one active: 'Spellcheck of entire document has been completed [OK]'"
-        Kontext "Active"
-        if Active.Exists(5) then
-            Printlog "Message: Spellchecking has finished?: '" + active.gettext + "'"
-            Active.OK
-        else
-            Printlog "'Change All' seems to have worked correctly."
-            Kontext "Spellcheck"
-            Spellcheck.Close
-            Kontext "Active"
-            if active.exists(5) then
-                Printlog "Spellcheck dialog closed'" + active.gettext + "'"
-                Active.OK
-            else
-                Printlog "Spellcheck dialog closed'"
-            end if
-        end if
+    printlog "Click button 'Change' on dialog."
+    Change.Click
+    sleep(10)
+    SpellcheckClose.click
+
+    if Ucase(gApplication) = "DRAW" then
+        Kontext "DocumentDraw"
+        DocumentDraw.TypeKeys("<TAB>",true)
+        DocumentDraw.TypeKeys("<SPACE>",true)        
     else
-        Warnlog "  Error not recognized by the Spellchecker"
-        if active.exists(5) then
-            Kontext "Active"
-            printlog "Message: spellchecking has finished?: '" + active.gettext + "'"
-            Active.OK
-        end if
-    end if
+        Kontext "DocumentImpress"
+        DocumentImpress.TypeKeys("<TAB>",true)
+        DocumentImpress.TypeKeys("<SPACE>",true)
+    endif
 
-    printlog "delete textbox"
     EditSelectAll
-    hTypeKeys "<DELETE>"
-    sleep 1
+    EditCopy
+    
+    dim s as string
+    s = getClipBoard()
 
-    printlog "Create same textbox again (test IGNORE function)."
-    Printlog "Check function Ignore"
-    hTextrahmenErstellen (FehlerText$,30,30,80,40)
-    printlog "All 'Tools->Spellcheck->Check'."
-
-    'printlog "Setting Text to english"
-    'sleep 1
-    'EditSelectAll
-    'FormatCharacter
-    'sleep 1
-    'Kontext
-    'Messagebox.SetPage TabFont
-    'Kontext "TabFont"
-    'Language.Select 41
-    'TabFont.OK
+    printlog s
 
-    ToolsSpellcheck
-    Kontext "Spellcheck"
-    printlog "press button 'Ignore'"
-    IgnoreOnce.Click
-    printlog "spellcheck dialog has to disappear and "
-    printlog " There has to come up only one active: 'Spellcheck of entire document has been completed [OK]'."
-    Kontext "Active"
-    if Active.Exists(5) Then
-        Printlog " Spellcheck ended because of only 1 defined error. And Ignore worked.'" + active.gettext + "'"
-        Active.OK
+    if(Instr(s,sWrongWord) <> 0) then    	
+        warnlog "word not changed. '" + s + "' contains still wrong word '" + sWrongWord + "'"
     else
-        Printlog " 'Ignore Once' seems to work correctly."
-        Kontext "Spellcheck"
-        Spellcheck.Close
-        Kontext "Active"
-        if active.exists(5) then
-            Printlog " Spellcheck dialog closed'" + active.gettext + "'"
-            Active.OK
-        else
-            Printlog " Spellcheck dialog closed'"
-        end if
-    end if
+        printlog "word changed."
+    endif
 
-    printlog "Call 'Tools->Spellcheck->Check."
-    ToolsSpellcheck
-    Kontext "Spellcheck"
-    if Spellcheck.Exists Then
-        Printlog "  Ignore worked"
-        Spellcheck.Close
-        Kontext "Active"
-        if active.exists(5) then
-            Printlog " " + active.gettext + "'"
-            Active.OK
-        else
-            Printlog " Spellcheck dialog closed'"
-        end if
+    if(Instr(s,sRightWord) <> 0) then
+        printlog "word changed."
     else
-        Warnlog "  Spellcheck ended even we only ignored the error"
-    end if
+        warnlog "word not changed."
+    endif
+    
+    printlog "Close document"
+    Call hCloseDocument
 
-    printlog "delete textbox."
-    EditSelectAll
-    hTypeKeys "<DELETE>"
-    sleep 1
+endcase
+'-------------------------------------------------------------------------------
+testcase tiToolsSpellcheckCheck_ChangeAll
+
+
+
+    Dim sExt as string
+    Dim sRightWord as String
+    Dim sWrongWord as string
+
+    dim aWords(2) as string
+    aWords() = getWordsForLanguage()
+
+    sWrongWord = aWords(0)
+    sRightWord = aWords(1)
+    
+    if(sWrongWord = "" OR sRightWord = "") then ' if any word is empty then the test should stop
+        qaerrorlog "no spellcheck test for the langauges " + iSprache + " available."
+        goto endsub
+    endif
+
+    'delete_word_from_dictionary(sWord,"IgnoreListAll")
+
+    if Ucase(gApplication) = "DRAW" then
+        sExt = ".odg"
+    else
+        sExt = ".odp"
+    endif
+
+    Call hFileOpen (gTesttoolpath + "graphics\required\input\recht_"+iSprache+sExt)
+
+    call fMakeDocumentWritable()
 
-    printlog "create same textbox again (test ALWAYS IGNORE function)."
-    hTextrahmenErstellen (FehlerText$,30,30,60,40)
-
-    'printlog "Setting Text to english"
-    'sleep 1
-    'EditSelectAll
-    'FormatCharacter
-    'sleep 1
-    'Kontext
-    'Messagebox.SetPage TabFont
-    'Kontext "TabFont"
-    'Language.Select 41
-    'TabFont.OK
-
-    printlog "Call 'Tools->Spellcheck->Check'."
+    ' Perform the test now:
+    printlog "Call Tools->Spellcheck"
     ToolsSpellcheck
+    sleep(2)
     Kontext "Spellcheck"
-    printlog "click button 'Always Ignore."
-    IgnoreAll.Click
-    printlog "spellcheck dialog has to disappear and"
-    printlog "There has to come up only one active: 'Spellcheck of entire document has been completed [OK]'."
-    Kontext "Active"
-    if active.exists(5) then
-        Printlog " Spellcheck ended because of only 1 defined error. And Ignore worked.'" + active.gettext + "'"
-        Active.OK
-    else
-        Printlog " 'Ignore All' seems to work."
-        Kontext "Spellcheck"
-        Spellcheck.Close
-        Kontext "Active"
-        if active.exists(5) then
-            Printlog " Spellcheck dialog closed'" + active.gettext + "'"
-            Active.OK
-        else
-            Printlog " Spellcheck dialog closed'"
-        end if
-    end if
+    printlog "Click button 'Change' on dialog."
+    ChangeAll.Click
+    'TODO: check result beware of issue 110688
+    Sleep 2
 
-    Printlog "- Delete ignore list"
-    sleep 1
-    printlog "Delete ignore word list."
-    if (not wIgnorierenlisteLoeschen) then
-        qaErrorLog "Can't get into Dictionary lists"
-        goto endsub
-    end if
+    SpellCheckClose.click
+
+    printlog "Close document"
     Call hCloseDocument
-endcase 'tiToolsSpellcheckError
 
-'------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
-testcase tiToolsSpellcheckCheck
-    if iSprache = 48 then
-        qaerrorlog "This test is not adapted for polish, 48."
-        got endsub
-    endif
-    Dim Datei$
-    Dim sWord(2) as string
-    Dim i as integer
-    Dim j as integer
-    Dim s as integer
-    Dim AlleBuecher as integer
-    Dim sExt as string
-    Dim sWordOne as string
-    Dim sWordTwo as string
-    Dim iBooks as integer
-    Dim bWordFound(2) as boolean
-    Dim iSuggestions as integer
-    Dim iWord(2) as integer
-    Dim bFound as boolean
-
-    Select Case Ucase(gApplication)
-    case "DRAW"         : sExt = ".odg"
-    case "IMPRESS"      : sExt = ".odp"
-    end select
+endcase
 
-    printlog "Load prepared document containing 4 errors : graphics\\required\\input\\recht_" & iSprache & sExt
-    if (not bAsianLan) then
-        printlog "Check if the document is writable."
-        Call hFileOpen (gTesttoolpath + "graphics\required\input\recht_"+iSprache+sExt)
-    else
-        Call hFileOpen (gTesttoolpath + "graphics\required\input\recht_1"+sExt)
-    end if
-    if fIsDocumentWritable = false then
-        printlog "Make the document writable and check if it's succesfull."
-        if fMakeDocumentWritable = false then
-            warnlog "The document can't be make writeable. Test stopped."
-            goto endsub
-        end if
-    end if
-    select case iSprache  ' sWord(1)=red     : sWord(2)=turquoise
-    case 01 : sWord(1) = "documente"     : sWord(2) = "expriss"
-    case 33 : sWord(1) = "intercu"       : sWord(2) = "Lees"
-    case 34 : sWord(1) = "afekto"        : sWord(2) = "fratternal"
-    case 36 : sWord(1) = "szeerint"       : sWord(2) = "tervvezi"
-    case 39 : sWord(1) = "Millano"       : sWord(2) = "tarrget"
-    case 46 : sWord(1) = "desa"          : sWord(2) = "occh"
-    case 49 : sWord(1) = "Texxt"         : sWord(2) = "reichtt"
-    case 55 : sWord(1) = "esktava"         : sWord(2) = "noitee"
-    case else :
-        if bAsianLan then
-            sWord(1) = "documente"     : sWord(2) = "expriss"
-        else
-            Warnlog "For the language  " + iSprache +" nothing is prepared yet: insert text here and create the file"
-        end if
-    end select
-    sleep 2
 
-    Printlog "Delete all added words from dictionaries."
+
+
+
+'-------------------------------------------------------------------------------
+function delete_all_added_words(aWords)
+
+    '/// this function delete the words in sWords in all user dictionaries
+
+    Dim iBookCounter as integer
+    Dim iWordCounter as integer
+    Dim iBooks as integer
+
+    Printlog "Delete the given words from dictionaries."
     printlog "Call Tools->Options."
     ToolsOptions
     printlog "Select in category 'Languagesettings' entry 'Writing Aids.'"
@@ -428,487 +240,138 @@ testcase tiToolsSpellcheckCheck
     sleep 1
     Kontext "WRITINGAIDS"
     sleep 1
-    printlog "Click on button 'edit' in section 'User-defined dictionaries.'"
-    if (fGetIntoDictionary) then
-        qaErrorLog "wTSC"
-        goto endsub
-    end if
+    printlog "select the first User-defined dictionaries and click EDIT"
+    Benutzerwoerterbuch.select 1
+    Bearbeiten.Click
+
     Kontext "BenutzerwoerterbuchBearbeiten"
     sleep 1
-    printlog "Check every book, if it contains the words that will be added in this test."
-    iBooks = Buch.getItemCount
-    bWordFound(1) = false
-    bWordFound(2) = false
-    for i = 1 to iBooks
-        Buch.select(i)
+    printlog "Check every book, if it contains the words."
+    iBooks = Buch.getItemCount    
+    for iBookCounter = 1 to iBooks
+        Buch.select(iBookCounter)
         printlog "Items in Booklist: " & WordList.getItemCount
-        for j = 1 to 2
-            Wort.setText sWord(j)
+        for iWordCounter = 1 to uBound(aWords)
+            Wort.setText aWords(iWordCounter)
             sleep 1
             if ((not neu.isEnabled) and Loeschen.isEnabled) then
                 printlog "If it contains the word, press button 'delete'."
                 Loeschen.click
-                bWordFound(j) = true
-                printlog "Added word WAS in dictionary: '" + Buch.getSelText + "' - '" + sWord(j) + "'"
+                printlog "Added word WAS in dictionary: '" + Buch.getSelText + "' - '" + aWords(iWordCounter) + "'"
             end if
-        next j
-    next i
-    if (bWordFound(1) OR bWordFound(2))then
-        qaErrorLog "Word was found in dictionary - check why it was there. '" + sWord(1) + "': " + bWordFound(1) + "  '" + sWord(2) + "': " + bWordFound(2)
-    end if
+        next iWordCounter
+    next iBookCounter
     printlog "Close dialog 'Edit Custom Dictionary.'"
     BenutzerwoerterbuchBearbeiten.Close
     sleep 1
     Kontext "ExtrasOptionenDlg"
     printlog "Press button 'OK' on dialog 'Writing Aids'."
     ExtrasOptionenDlg.OK
-    printlog "Call dialog again and delete all remaining words from dictionary 'IgnoreAllList'."
-    if (not wIgnorierenlisteLoeschen) then
-        qaErrorLog "Can't get into Dictionary lists"
-        goto endsub
-    end if
-
-    printlog "Test if spellcheck dialog comes up and check/set direction of spellcheck."
-    printlog "Call 'Tools->Spellcheck->Check'."
-    ToolsSpellcheck
-    Kontext "Spellcheck"
-    WaitSlot (1000)
-    printlog "If no dictionary for the language is available, a messagebox comes up:"
-    printlog ". . . 'Error executing the spellcheck.: Language is not supported by spellchecker funtion."
-    kontext "active"
-    if active.exists(5) then
-        warnlog "$Language is not supported by spellchecker funtion: '" + active.gettext + "'"
-        Active.OK
-        printlog ". . . exiting testcase."
-        goto endsub
-    end if
-    Kontext "Spellcheck"
-    printlog "Close dialog 'Spellcheck'."
-    Spellcheck.Close
-    Kontext "Active"
-    if active.exists(5) then
-        Warnlog " Should not be any message here: " + active.gettext + "'"
-        Active.OK
-    else
-        printlog "Spellcheck ended, dialog closed"
-    end if
-    printlog "Select all."
-    hTypeKeys "<MOD1 A>"
-    printlog "Check presupposition: 12 Words have to be complained about."
-    printlog "All 'Tools->Spellcheck->Check'."
-    ToolsSpellcheck
-    WaitSlot (2000)
-    Kontext "Spellcheck"
-    printlog "Click button 'Ignore' 12 times."
-
-    for i = 1 to 11
-        Kontext "Spellcheck"
-        IgnoreOnce.Click
-        Kontext "Active"
-        if active.exists(5) then
-            warnlog "Presupposition not met: there are less than 12 errors in the document! " + i
-            Active.OK
-            printlog "If errors < 12 -> exiting testcase."
-            goto endsub
-        end if
-    next i
-    Kontext "Spellcheck"
-    IgnoreOnce.Click
-    printlog "Spellcheck dialog has to disapear and messagebox with OK has to come up."
-    Kontext "Active"
-    if active.exists(5) then
-        printlog "Active dialog said: " + active.gettext + "'"
-        Active.OK
-    end if
-    Kontext "Spellcheck"
-    if Spellcheck.Exists(5) then
-        warnlog "Presupposition not met: there are more than 12 errors in the document!"
-        Spellcheck.Close
-        kontext "Active"
-        if active.exists(5) then
-            Active.OK
-        else
-            printlog "bug fixed #111972# "
-        end if
-        printlog "If errors > 12 -> exiting testcase."
-        goto endsub
-    else
-        Kontext "Active"
-        if active.exists(5) then
-            warnlog "There was a Message where none was supposed to be: '" + active.gettext + "'"
-            Active.NO
-        end if
-        printlog "Presupposition met: there are 12 errors in the document!"
-    end if
-
-    printlog "Perform the test now:"
-    printlog "Call 'Tools->Spellcheck->Check'"
-    ToolsSpellcheck
-    WaitSlot (2000)
-    Kontext "Spellcheck"
-    Printlog "----------------------------------------------------------------------------"
-    Printlog "1st Test:   - Ignore now"
-    printlog "1st error: ignore : 1st pink word in 1st Paragraph."
-    printlog "Backwards: last green word in 3rd Paragraph."
-    sWordOne = Suggestions.GetSelText
-    printlog "********* Suggestion word found: '" + sWordOne + "'"
-    printlog "##### suggestions: "+Suggestions.GetItemCount+"; Language: "+DictionaryLanguage.getSelText '+" ; dictionary: "+woerterbuch.getSelText
-    if (Suggestions.GetItemCount > 0) then
-        printlog "----- "+i+": "+Suggestions.GetSelText (1)
-    end if
-    printlog "Click button 'Ignore'."
-    IgnoreOnce.Click
-    Sleep 2
-
-    Printlog "----------------------------------------------------------------------------"
-    Printlog "2nd Test:   - Add"
-    printlog "2nd error: add : 1st red word in 1st Paragraph -> hasn't to show up anymore from now on."
-    printlog "Backwards: last turquoise word in 3rd Paragraph -> hasn't to show up anymore from now on."
-    printlog "Check if word in textfield 'Word' changed."
-    printlog "(Check if it is the expected next error - you have to look into the source code for the right word!)."
-    sWordTwo = Suggestions.GetSelText
-    if (sWordOne = sWordTwo) then
-        warnlog "Ignore didn't work? Spellcheck didn't go on"
-    end if
-    if (sWord(iWord(1)) <> sWordTwo) then
-        Printlog "The errornous word '" + sWord(iWord(1)) + "' would be replaced with: '" + sWordTwo + "'"
-    end if
-    printlog "********* word found: '" + sWordTwo + "'"
-    printlog "##### suggestions: "+Suggestions.GetItemCount+"; Language: "+DictionaryLanguage.getSelText ' +" ; dictionary: "+woerterbuch.getSelText
-    if (Suggestions.GetItemCount > 0) then
-        printlog "----- "+i+": "+Suggestions.GetSelText (1)
-    end if
-    Sleep 1
-    printlog "Click button 'Add' on dialog '"
-    AddToDictionary.Click
-    Sleep 2
-    printlog "The menu has: " + MenuGetItemCount + " entries."
-    hMenuSelectNr(1) 'Default
-    Kontext "Active"
-    if Active.Exists(5) Then
-        Warnlog " - Word could not be added to dictionary: '" + active.getText + "'"
-        Active.OK
-        Sleep 1
-    end if
-    printlog "Check in options, if word exists in word list."
-    printlog "Click button 'Options' on dialog 'Spellcheck'."
-    Kontext "Spellcheck"
-    SpellcheckOptions.Click
-    Kontext "TabLinguistik"
-    printlog "Click button 'Edit ...' on dialog 'Writing Aids' in section 'User-defined dictionaries'."
-    if TabLinguistik.exists(5) then
-        sleep 3
-        if (fGetIntoDictionary) then
-            qaErrorLog "wTSC"
-            goto endsub
-        end if
-    else
-        qaerrorlog "baeh"
-    end if
-    Kontext "BenutzerwoerterbuchBearbeiten"
-    printlog "Check every book, if it contains the added word."
-    if not BenutzerwoerterbuchBearbeiten.exists(5) then
-        sleep 5
-        qaerrorlog "baeh"
-    end if
-    iBooks = Buch.getItemCount
-    bWordFound(1) = false
-    for i = 1 to iBooks
-        Buch.select(i)
-        printlog "Book number selected: " & i
-        Wort.setText sWord(iWord(1))
-        sleep 1
-        if ((not neu.isEnabled) and Loeschen.isEnabled) then
-            bWordFound(1) = true
-            printlog "Added word is in dictionary: '" + Buch.getSelText + "'"
-        end if
-    next i
-    if (not bWordFound(1)) then
-        warnlog "Word was not added to dictionary"
-    end if
-    printlog "Cancel dialog 'Edit Custom Dictionary'."
-    BenutzerwoerterbuchBearbeiten.Close
-    Kontext "TabLinguistik"
-    printlog "Cancel dialog 'Writing Aids'."
-    TabLinguistik.Close
-    Kontext "Spellcheck"
-
-    Printlog "----------------------------------------------------------------------------"
-    Printlog " 3rd Test:  - Always Ignore"
-    printlog "3rd error: always ignore : 1st turquoise word in 1st Paragraph -> hasn't to show up anymore from now on."
-    printlog "Check if word in textfield 'Word' changed."
-    printlog "(check if it is the expected next error - you have to look into the source code for the right word!)"
-    sWordOne = sWordTwo
-    sWordTwo = Suggestions.GetSelText 'wort.getText
-    if (sWordOne = sWordTwo) then
-        warnlog "Add didn't work? Spellcheck didn't go on."
-    end if
-    if (sWord(iWord(2)) <> sWordTwo) then
-        Printlog "The erroneous word '" + sWord(iWord(2)) + "' would be replaced with: '" + sWordTwo + "'"
-    else
-        warnlog "ERROR: SAME WORD in the dictionary as in the text??? Must be wrong."
-    end if
-    printlog "********* word found: '" + sWordTwo + "'"
-    printlog "##### suggestions: "+Suggestions.GetItemCount+"; Language: "+DictionaryLanguage.getSelText  ' +" ; dictionary: "+DictionaryLanguage.getSelText   'Wort.GetItemCount  'Woerterbuch.GetSelText
-    if (Suggestions.GetItemCount > 0) then  'Wort.GetItemCount > 0) then
-        printlog "----- "+i+": "+Suggestions.GetItemText (1)  'Wort.GetItemText (1)
-    end if
-    Sleep 1
-    printlog "Click button 'Always ignore' on dialog."
-    IgnoreAll.Click
-    Sleep 2
-    printlog "Check in options, if word exists in word list."
-    printlog "Click button 'Options' on dialog 'Spellcheck'."
-    SpellcheckOptions.Click
-    Kontext "TabLinguistik"
-    printlog "Click button 'Edit ...' on dialog 'Writing Aids' in section 'User-defined dictionaries."
-    if TabLinguistik.exists(5) then
-        sleep 3 'culprint swedish windows; wait until butrton exists?
-        if (fGetIntoDictionary) then
-            qaErrorLog "wTSC"
-            goto endsub
-        end if
-    else
-        qaerrorlog "baeh"
-    end if
-    Kontext "BenutzerwoerterbuchBearbeiten"
-    if not BenutzerwoerterbuchBearbeiten.exists(5) then
-        sleep 3
-        qaerrorlog "baeh"
-    end if
-    printlog "Check every book, if it contains the added word."
-    iBooks = Buch.getItemCount
-    bWordFound(2) = false
-    for i = 1 to iBooks
-        Kontext "BenutzerwoerterbuchBearbeiten"
-        Buch.select(i)
-        Inhalt.setText sWord(iWord(2)) 'Wort.setText sWord(iWord(2))
-        sleep 1
-        if ((not neu.isEnabled) and Loeschen.isEnabled) then
-            bWordFound(2) = true
-            printlog " added word is in dictionary: '" + Buch.getSelText + "'"
-        end if
-    next i
-    if (not bWordFound(2)) then
-        warnlog "Word was not added to dictionary, #ixxxxxx"
-    end if
-    printlog "Cancel dialog 'Edit Custom Dictionary'."
-    BenutzerwoerterbuchBearbeiten.Close
-    Kontext "TabLinguistik"
-    printlog "Cancel dialog 'Writing Aids'."
-    TabLinguistik.Close
-    kontext "Spellcheck"
-
-    Printlog "----------------------------------------------------------------------------"
-    Printlog "4th test:   - Replace"
-    printlog "4th error: replace : 1st green word in 1st Paragraph."
-    printlog "Check if word in textfield 'Word' changed."
-    printlog "(check if it is the expected next error - you have to look into the source code for the right word!)."
-    sWordOne = sWordTwo
-    sWordTwo = Suggestions.GetSelText
-    if (sWordOne = sWordTwo) then
-        warnlog "Always ignore didn't work? Spellcheck didn't go on."
-    end if
-    printlog "********* word found: '" + sWordTwo + "'"
-    iSuggestions = Suggestions.GetItemCount
-    printlog "##### suggestions: " + iSuggestions + "; Language: "+DictionaryLanguage.getSelText  '+"; dictionary: "+woerterbuch.getSelText
-    if (Suggestions.GetItemCount > 0) then
-        printlog "----- "+i+": "+Suggestions.GetItemText (1)
-    end if
-    Sleep 1
-    printlog "Click button 'Replace'."
-    if (iSuggestions > 0) then
-        Change.click
-    else
-        qaerrorlog "Please change the text in the file, so the spellchecker can make a suggestion for the word: '" + sWordTwo + "'"
-        IgnoreOnce.Click
-    end if
-
-    Printlog "----------------------------------------------------------------------------"
-    Printlog "5th Test:   - Always Replace"
-    printlog "5th error: always replace : 1st pink word in 2nd Paragraph -> hasn't to show up anymore from now on."
-    printlog "backwards: 1st green word in 2nd Paragraph -> hasn't to show up anymore from now on."
-    printlog "check if word in textfield 'Word' changed."
-    printlog "(check if it is the expected next error - you have to look into the source code for the right word!)."
-    sWordOne = sWordTwo
-    sWordTwo = Suggestions.GetSelText
-    if (sWordOne = sWordTwo) then
-        warnlog "Replace didn't work? Spellcheck didn't go on"
-    end if
-    printlog "********* word found: '" + sWordTwo + "'"
-    iSuggestions = Suggestions.GetItemCount
-    printlog "##### suggestions: " + iSuggestions + "; Language: "+DictionaryLanguage.getSelText  ' +"   ; dictionary: "+woerterbuch.getSelText
-    if (Suggestions.GetItemCount > 0) then
-        printlog "----- "+i+": "+Suggestions.GetItemText (1)
-    end if
-    Sleep 1
-    printlog "click button 'Always Replace'."
-    if (iSuggestions > 0) then
-        ChangeAll.click
-    else
-        qaErrorLog "Please change the text in the file, so the spellchecker can make a suggestion for the word: '" + sWordTwo + "'"
-        IgnoreOnce.Click
-    end if
+    
+end function
+'-------------------------------------------------------------------------------
+function delete_word_from_dictionary(sWord as String, sDictionary as String)
 
-    printlog "2 errors are left: 4th word (green) in 2nd and 3rd paragraph."
-    printlog "backwards: 1st word (pink) in 2nd and 1st paragraph."
-    Kontext "Spellcheck"
-    sWordOne = sWordTwo
-    sWordTwo = Suggestions.GetSelText
-    if (sWordOne <> sWordTwo) then
-        printlog sWordTwo
-    else
-        warnlog "there is anopther word left, that wasn't expected!. '" + sWordTwo +"'"
-    end if
-    printlog "Click button 'Ignore' 2 times."
-    IgnoreOnce.Click
+    '/// this function delete the words in sWords in all user dictionaries
 
-    Kontext "Spellcheck"
-    sWordOne = sWordTwo
-    sWordTwo = Suggestions.GetSelText
-    if (sWordOne <> sWordTwo) then
-        warnlog "there is anopther word left, that wasn't expected!. '" + sWordTwo +"'"
-    else
-        printlog sWordTwo
-    end if
-    printlog "Click button 'Ignore' 2 times."
-    IgnoreOnce.Click
-    Kontext "Active"
-    if active.exists(5) then
-        printlog "Spellcheck works :-) '" + active.gettext + "'"
-        Active.No
-    else
-        warnlog "Spellcheck didn't work :-(! there are still errors in the document."
-        Kontext "Spellcheck"
-        Spellcheck.Close
-        Kontext "Active"
-        if active.exists(5) then
-            qaErrorLog "    Spellcheck dialog closed'" + active.gettext + "'"
-            Active.No
-        end if
-    end if
-    sleep 2
+    Dim iBookCounter as integer
+    Dim iWordCounter as integer
+    Dim iBooks as integer
 
-    Printlog "Delete all added words from dictionaries."
+    Printlog "Delete the given word from dictionaries."
     printlog "Call Tools->Options."
     ToolsOptions
-    printlog "Select in category 'Languagesettings' entry 'Writing Aids'."
+    printlog "Select in category 'Languagesettings' entry 'Writing Aids.'"
     hToolsOptions ("LANGUAGESETTINGS","WRITINGAIDS")
     sleep 1
     Kontext "WRITINGAIDS"
-    printlog "Click on button 'edit' in section 'User-defined dictionaries'."
-    if (fGetIntoDictionary) then
-        qaErrorLog "wTSC"
-        goto endsub
-    end if
+    sleep 1
+    printlog "select the dictionary and click EDIT"
+
+    fSelectWithString(Benutzerwoerterbuch,sDictionary)
+
+    Bearbeiten.Click
+
     Kontext "BenutzerwoerterbuchBearbeiten"
-    printlog "Check every book, if it contains the added word."
-    iBooks = Buch.getItemCount
-    bWordFound(1) = false
-    bWordFound(2) = false
-    for i = 1 to iBooks
-        Buch.select(i)
-        for j = 1 to 2
-            Wort.setText sWord(j)
-            sleep 1
-            if ((not neu.isEnabled) and Loeschen.isEnabled) then
-                printlog "If it contains the word, press button 'delete'."
-                Loeschen.click
-                bWordFound(j) = true
-                printlog " added word is in dictionary: '" + Buch.getSelText + "' - '" + sWord(j) + "'"
-            end if
-        next j
-    next i
-    if ((not bWordFound(1)) AND (not bWordFound(2)))then
-        warnlog "Word was not found in dictionary. '" + sWord(1) + "': " + bWordFound(1) + "  '" + sWord(2) + "': " + bWordFound(2)
+
+    Wort.setText sWord
+    sleep 1
+    if ((not neu.isEnabled) and Loeschen.isEnabled) then
+        printlog "If it contains the word, press button 'delete'."
+        Loeschen.click
+        printlog "Added word WAS in dictionary: '" + Buch.getSelText + "' - '" + sWord + "'"
     end if
-    printlog "Close dialog 'Edit Custom Dictionary'."
+        
+    printlog "Close dialog 'Edit Custom Dictionary.'"
     BenutzerwoerterbuchBearbeiten.Close
     sleep 1
     Kontext "ExtrasOptionenDlg"
-    printlog "press button 'OK' on dialog 'Writing Aids'."
+    printlog "Press button 'OK' on dialog 'Writing Aids'."
     ExtrasOptionenDlg.OK
-    printlog "Call dialog again and delete all remaining words from dictionary 'IgnoreAllList'."
-    if (not wIgnorierenlisteLoeschen) then
-        qaErrorLog "Can't get into Dictionary lists"
-        goto endsub
-    end if
 
-    printlog "Close document"
-    Call hCloseDocument
-endcase 'tiToolsSpellcheckCheck
+end function
 
-'-------------------------------------------------------------------------------
-testcase tToolsSpellcheckAutoSpellcheck
-
-    QaErrorLog  "#i81928# - outcommented tToolsSpellcheckAutoSpellcheck due to bug."
-    goto endsub
-    dim i as integer
-    dim x as integer
-    dim y as integer
-    dim q as integer
-    dim z as integer
-    dim iResult as long
-    dim iTemp as long
-    dim iTemp2 as long
-    dim sTemp as string
-    dim sCompare as string
-    dim iCompare as long
-    dim iError as long
-    dim sError as string
-
-    call hNewDocument
-
-    call hTextrahmenErstellen ("Ein Tipp: Schiffahrt schreibt man nun mit 3f Tunfisch Amboss a", 10, 10, 90, 50)
+function fSelectWithString(oControl as Object,sText as String)
 
-    EditSelectAll
-    setCharacterLanguage(glLocale(4))
-    sleep 10
-    printlog "## check ENGLISH auto spellchecking"
-    iError = 0
-    ' Get underlined words / wrong recognized words by spellchecker
-    iResult = sAnalyseContextMenu(11, iError)
-    sTemp = sLongToBinary(iResult, 11)
-    sError = sLongToBinary(iError, 11)
-    ' reference of words, which should be underlined
-    sCompare = "11011001011"
-    iCompare = sBinaryToLong(sCompare)
-    ' compare result with reference -> get the difference
-    iTemp = not (iResult EQV iCompare)
-    ' eliminate errors from open bugs -> get the real errors
-    iTemp2 = iTemp AND NOT iError
-    if (iTemp2 > 0) then
-        warnlog "wrong words are not underlined? Should be: " + sCompare
-        warnlog "Is:                                        " + sTemp
-        warnlog "Differences:                               " + sLongToBinary(iTemp, 11)
-        warnlog "Wrong after merging errors from bugs       " + sLongToBinary(iTemp2, 11)
-    end if
+    dim iCounter as Integer
+    dim iNumberOfItems as Integer
+    iNumberOfItems = oControl.getItemCount()
 
-    sleep 1
-    '    call hTypeKeys "<F2>"
-    call hTypeKeys "<mod1 end> <Shift mod1 home>"
-    setCharacterLanguage(glLocale(6))
-    sleep 10
-    printlog "## check GERMAN auto spellchecking"
-    iError = 0
-    iResult = sAnalyseContextMenu(11, iError)
-    sTemp = sLongToBinary(iResult, 11)
-    sError = sLongToBinary(iError, 11)
-    sCompare = "00010000000"
-    iCompare = sBinaryToLong(sCompare)
-    ' compare result with reference -> get the difference
-    iTemp = not (iResult EQV iCompare)
-    ' eliminate errors from open bugs -> get the real errors
-    iTemp2 = iTemp AND NOT iError
-    if (iTemp2 > 0) then
-        warnlog "wrong words are not underlined? Should be: " + sCompare
-        warnlog "Is:                                        " + sTemp
-        warnlog "Differences:                               " + sLongToBinary(iTemp, 11)
-        warnlog "Wrong after merging errors from bugs       " + sLongToBinary(iTemp2, 11)
-    end if
-    printlog "-----------------------------------"
+    for iCounter = 1 to iNumberOfItems
+        oControl.select iCounter
+        if( Instr(oControl.getSelText,sText) <> 0 ) then ' the correct entry is selected
+            iCounter = iNumberOfItems ' stop the loop
+        endif
+    next
 
-    hCloseDocument()
-endcase 'tToolsSpellcheckAutoSpellcheck
+end function
 
-'-------------------------------------------------------------------------------
+
+function getWordsForLanguage()
+
+    dim sWrongWord as String
+    dim sRightWord as String
+    dim aWords(2) as String
+
+    select case iSprache
+        case 1 :
+                sWrongWord = "documente"
+                sRightWord = "document"
+        case 31 :
+                sWrongWord = "miejn"
+                sRightWord = "mijn"
+        case 33 :
+                sWrongWord = "projjet"
+                sRightWord = "projet"
+        case 34 :
+                sWrongWord = "lazsos"
+                sRightWord = "lazos"
+        case 36 :
+                sWrongWord = "Bozniai"
+                sRightWord = "Boszniai"
+        case 39 :
+                sWrongWord = "borrdo"
+                sRightWord = "borro"
+        case 46 :
+                sWrongWord = "desa"
+                sRightWord = "edas"
+        case 48 :
+                sWrongWord = "werrsji"
+                sRightWord = "wersji"
+        case 49 :
+                sWrongWord = "Feehlern"
+                sRightWord = "Fehlern"
+        case 55 :
+                sWrongWord = "Elle"
+                sRightWord = "Elze"
+        case else :
+                sWrongWord = ""
+                sRightWord = ""
+    end select
+
+    aWords(0) = sWrongWord
+    aWords(1) = sRightWord
+
+    getWordsForLanguage = aWords
+
+end function
diff --git a/testautomation/graphics/required/includes/global/gallery2.inc b/testautomation/graphics/required/includes/global/gallery2.inc
index 0662b3412..97f28a998 100644
--- a/testautomation/graphics/required/includes/global/gallery2.inc
+++ b/testautomation/graphics/required/includes/global/gallery2.inc
@@ -102,6 +102,7 @@ testcase tLoad100GalleryGraphicFiles
             '///    + Deleting the graphic with &lt;delete&gt; of the keyboard
             '/// <i>Loop ends</i>
             x = LoadGraphic ( lsGraphics(t), corLoad )
+            sleep(1)
             printlog
         catch
             ExceptLog
diff --git a/testautomation/graphics/required/includes/global/id_001.inc b/testautomation/graphics/required/includes/global/id_001.inc
index 18555fcfc..5e2b4912f 100644
--- a/testautomation/graphics/required/includes/global/id_001.inc
+++ b/testautomation/graphics/required/includes/global/id_001.inc
@@ -30,7 +30,34 @@
 '* short description :
 '*
 '\******************************************************************************
-
+sub id_001
+
+    printLog Chr(13) + "---------    id_001    ----------"
+
+    qaerrorlog "#74988# tiFilePassword outcommented due to bug. -FHA"
+    call tiFilePassword
+    call tiFileSaveAs
+    call tiFileReload
+    call tiFileVersion
+    printlog " File->Send not possible to test, because extrnal prg get's called!"
+    call tiFileTemplates
+    '   Call tiFileNew instead i call:
+    call tmFileNewFromTemplate
+    call tmFileOpen
+    call tmFileClose
+    call tmFileSave
+    call tmFileSaveAs
+    call tmFileExit
+
+    call tmFileSaveAll
+    call tmFileProperties
+    call tdFileExport
+    call tmFilePrinterSetting
+    ' special cases
+    '   Call AutoPilot      'inc\desktop\autopilo.inc
+    call tmFileExit ' don't test because unpredictable behaviour
+end sub
+'------------------------------------------------------------------------------
 testcase tiFileSaveAs
 
     dim sFileName as string ' test document & new created doc
diff --git a/testautomation/graphics/required/includes/global/id_002.inc b/testautomation/graphics/required/includes/global/id_002.inc
index 2aac13baa..8f4e7cf1b 100644
--- a/testautomation/graphics/required/includes/global/id_002.inc
+++ b/testautomation/graphics/required/includes/global/id_002.inc
@@ -30,6 +30,27 @@
 '* short description :
 '*
 '\******************************************************************************
+sub id_002
+
+    printLog Chr(13) + "---------    id_002    ----------"
+
+    call tiEditUndoRedo
+    call tiEditRepeat
+    call tiEditCutPasteCopySelectall
+    call tiEditPasteSpecial
+    call tiEditSearchAndReplace
+    call tiEditDuplicate
+    call tEditPoints
+    call tiEditFields
+    call tdEditDeleteSlide
+    call tiEditLinks
+    call tiEditImageMap
+    call tiEditObjectProperties
+    call tiEditObjectEdit
+    call tiEditPlugIn
+    call tiEditHyperlink
+end sub
+'-------------------------------------------------------------------------
 testcase tiEditUndoRedo
 
     printlog " open application"
diff --git a/testautomation/graphics/required/includes/global/id_003.inc b/testautomation/graphics/required/includes/global/id_003.inc
index 65e11b8a4..e7c47b2c4 100644
--- a/testautomation/graphics/required/includes/global/id_003.inc
+++ b/testautomation/graphics/required/includes/global/id_003.inc
@@ -30,6 +30,21 @@
 '* short description :
 '*
 '\******************************************************************************
+
+sub id_003
+
+    printLog Chr(13) + "---------    id_003    ----------"
+
+    call tiViewNavigator
+    call tiViewZoom
+    call tiViewToolbar
+    Call tToolsCustomize			     'global\required\include
+    call tiViewDisplayQuality
+    call tiViewLayer
+    call tViewSnapLines
+    call tViewGrid
+end sub
+'-------------------------------------------------------------------------
 testcase tiViewNavigator
 
     printlog " open application "
diff --git a/testautomation/graphics/required/includes/global/id_004.inc b/testautomation/graphics/required/includes/global/id_004.inc
index 3e4d3d86c..42b0170fe 100644
--- a/testautomation/graphics/required/includes/global/id_004.inc
+++ b/testautomation/graphics/required/includes/global/id_004.inc
@@ -30,6 +30,34 @@
 '* short description :
 '*
 '\******************************************************************************
+sub id_004
+
+    printLog Chr(13) + "---------    id_004    ----------"
+
+    call tiInsertSlide
+    call tiInsertDuplicateSlide
+    ' v expand slide
+    '  v summary slide
+    call tiInsertField
+    call tiInsertSpecialCharacter
+    call tiInsertHyperlink
+    call tiInsertScan
+    call tiInsertGraphic
+    call tiInsertObjectSound
+    call tiInsertObjectVideo
+    call tiInsertObjectSound
+    call tiInsertObjectVideo
+    call tiInsertChart
+    call tiInsertObjectOLEObjects
+    call tiInsertSpreadsheet
+    call tiInsertFormula
+    call tiInsertFloatingFrame
+    call tiInsertFile
+    call tiInsertPlugin
+    call tiInsertSnappointLine
+    call tdInsertLayer ' IMPRESS: Edit->Layer->Insert
+end sub
+'------------------------------------------------------------------------------
 testcase tiInsertSlide
 
     printlog "Dateiname.settext Convertpath (gTesttoolPath + global\input\graf_inp\stabler.tif) "
diff --git a/testautomation/graphics/required/includes/global/id_005.inc b/testautomation/graphics/required/includes/global/id_005.inc
index 07783761b..6ec5a5988 100644
--- a/testautomation/graphics/required/includes/global/id_005.inc
+++ b/testautomation/graphics/required/includes/global/id_005.inc
@@ -30,6 +30,33 @@
 '* short description :
 '*
 '\******************************************************************************
+sub id_005
+
+    printLog Chr(13) + "---------    id_005    ----------"
+
+    call tiFormatDefault
+    call tiFormatLine
+    call tdFormatArea
+    call tiFormatText
+    call tiFormatPositionAndSize
+    call tiFormatCharacter
+    call tiFormatControlForm
+    '       ^ Form
+    call tiFormatDimensions
+    call tiFormatConnector
+    call tiFormat3D_Effects
+    call tiFormatNumberingBullets
+    call tiFormatCaseCharacter
+    call tiFormatParagraph
+    call tiFormatPage
+    call tiFormatStylesAndFormatting
+    call tiFormatStylesSlideDesign
+    call tiFormatFontwork
+    call tiFormatGroup
+    printlog " format->group is also modify->group "
+    '        tiFormatLayer ' not in impress
+end sub
+'------------------------------------------------------------------------------
 testcase tiFormatDefault
 
     printlog "open application"
@@ -985,8 +1012,8 @@ testcase tiFormatStylesSlideDesign
       DeleteUnusedBackgrounds.check
     printlog "click button 'Load...'"
       Laden.Click
-      kontext "Neu"
-    printlog "click button 'more'"
+      sleep (10)
+    Kontext "Neu"
          Zusaetze.click
          sleep 1
       kontext "Neu"
diff --git a/testautomation/graphics/required/includes/global/id_006.inc b/testautomation/graphics/required/includes/global/id_006.inc
index 0b210157e..434959a7a 100644
--- a/testautomation/graphics/required/includes/global/id_006.inc
+++ b/testautomation/graphics/required/includes/global/id_006.inc
@@ -30,7 +30,6 @@
 '* short description :
 '*
 '\**********************************************************************************
-
 sub id_Tools
     printLog "---------    id_006    ----------"
     call tiToolsSpellchecking
diff --git a/testautomation/graphics/required/includes/global/id_007.inc b/testautomation/graphics/required/includes/global/id_007.inc
index 17a4456cc..29791d4b7 100644
--- a/testautomation/graphics/required/includes/global/id_007.inc
+++ b/testautomation/graphics/required/includes/global/id_007.inc
@@ -29,8 +29,33 @@
 '*
 '* short description :
 '*
-'\**********************************************************************************
-
+'\******************************************************************************
+
+sub id_007
+
+    printLog Chr(13) + "---------    id_007    ----------"
+    ' in imp available via context menu, in draw via modify menu
+
+    call tdModifyFlipVertikal
+    call tdModifyFlipHorizontal
+    call tdContextConvertIntoCurve
+    call tdContextConvertIntoPolygon
+    call tdContextConvertIntoContour
+    call tdContextConvertInto3D
+    call tdContextConvertIntoRotationObject
+    call tdContextConvertIntoBitmap
+    call tdContextConvertIntoMetaFile
+    call tdModifyArrange
+    call tdModifyArrangeObjects
+    call tdModifyAlignment
+    call tdContextDistribution
+    call tdContextDescriptionObject
+    call tdContextNameObject
+    call tdModifyConnectBreak
+    call tdModifyShapes
+    call tdModifyCombineSplit
+end sub
+'-------------------------------------------------------------------------------
 testcase tdModifyFlipVertikal
 
     '/// open application ///'
diff --git a/testautomation/graphics/required/includes/global/id_008.inc b/testautomation/graphics/required/includes/global/id_008.inc
index 4add85a48..8848c7337 100644
--- a/testautomation/graphics/required/includes/global/id_008.inc
+++ b/testautomation/graphics/required/includes/global/id_008.inc
@@ -30,7 +30,15 @@
 '* short description :
 '*
 '\*****************************************************************
+sub id_008
 
+    printLog Chr(13) + "---------    id_008    ----------"
+
+    Call tiWindowNewWindow
+    call tidWindow123
+
+end sub
+'-------------------------------------------------------------------------------
 testcase tiWindowNewWindow
 
     '/// open application ///'
diff --git a/testautomation/graphics/required/includes/global/id_009.inc b/testautomation/graphics/required/includes/global/id_009.inc
index 57ff31138..d03d99b60 100644
--- a/testautomation/graphics/required/includes/global/id_009.inc
+++ b/testautomation/graphics/required/includes/global/id_009.inc
@@ -30,7 +30,19 @@
 '* short description : Testcases to test the Help-Menu.
 '*
 '\******************************************************************************
-'
+sub id_009
+
+    printLog Chr(13) + "---------    id_009    ----------"
+
+    call tCheckIfTheHelpExists
+    Call tmHelpContents
+    Call tmHelpHelpAgent
+    Call tmHelpTips
+    Call tmHelpExtendedTips
+    Call tmHelpAboutStarOffice
+
+end sub
+'------------------------------------------------------------------------------
 testcase tmHelpHelpAgent
 
     Call hNewDocument
diff --git a/testautomation/graphics/required/includes/global/id_011.inc b/testautomation/graphics/required/includes/global/id_011.inc
index 0bc685678..186c5e1b5 100644
--- a/testautomation/graphics/required/includes/global/id_011.inc
+++ b/testautomation/graphics/required/includes/global/id_011.inc
@@ -30,7 +30,18 @@
 '* short description :
 '*
 '\******************************************************************************
+sub id_011
 
+    printLog Chr(13) + "---------    id_011    ----------"
+
+    call tdBezierToolbar
+    call tiDrawObjectBar
+    call tiTextToolbar
+    call tiGraphicsObjectBar
+    call tiGluepointToolbar
+
+end sub
+'-------------------------------------------------------------------------------
 testcase tiTextToolbar
 
     Dim iWaitIndex as integer
diff --git a/testautomation/graphics/required/includes/impress/im_003_.inc b/testautomation/graphics/required/includes/impress/im_003_.inc
index 685a9d7e6..3c73b7827 100644
--- a/testautomation/graphics/required/includes/impress/im_003_.inc
+++ b/testautomation/graphics/required/includes/impress/im_003_.inc
@@ -210,12 +210,18 @@ testcase tiViewToolbar_1
 
     Dim NumberOfGraphicModes as integer
     Dim iCurrentGraphicsMode as integer
-
     dim TestFile as string
+    dim i as integer
+    
     TestFile = ConvertPath (gTesttoolPath + "global\input\graf_inp\desp.bmp")
 
     printlog "open application "
     Call hNewDocument
+    Call sSelectEmptyLayout
+    printlog "delete default content"
+    hUseAsyncSlot( "EditSelectAll" )
+    Kontext "DocumentImpress"
+    DocumentImpress.typeKeys("<DELETE>",true)
 
     printlog "Insert->Graphic... : global\input\graf_inp\desp.bmp "
     hUseAsyncSlot( "InsertGraphicsFromFile" )
@@ -235,8 +241,17 @@ testcase tiViewToolbar_1
         printlog "select graphic "
         hUseAsyncSlot( "EditSelectAll" )
 
-        Kontext "GraphicObjectbar"
         printlog "The Graphics Toolbar has to be visible now; If not -> ERROR "
+        ' workaround for i113609; there should have been a style selected without elements on creating the document - what failed; the elements should have been deleted before inserting the grafik in this test - which failed; so the workaround is to use <tab> to travel to the graphic selection here:
+        for i=1 to 3
+        Kontext "GraphicObjectbar"
+        if ( not GraphicObjectbar.Exists( DEFAULT_DELAY ) ) Then
+            hTypeKeys("<tab>")
+            qaerrorlog "delete default content failed"
+        end if
+        next i
+
+        Kontext "GraphicObjectbar"
         if ( GraphicObjectbar.Exists( DEFAULT_DELAY ) ) Then
 
             Printlog "- graphic object toolbar exists"
diff --git a/testautomation/graphics/required/includes/impress/im_004_.inc b/testautomation/graphics/required/includes/impress/im_004_.inc
index 02587ea83..2c55bc4c2 100644
--- a/testautomation/graphics/required/includes/impress/im_004_.inc
+++ b/testautomation/graphics/required/includes/impress/im_004_.inc
@@ -49,6 +49,7 @@ testcase tiInsertSlideExpandSummary
     Kontext "DocumentImpressOutlineView"
     printlog "Type 2 rows "
     DocumentImpressOutlineView.TypeKeys "Herbert<Return>Rudi"
+    sleep(1)
     printlog "View->Master View->Drawing View "
     ViewWorkspaceDrawingView
     WaitSlot()
diff --git a/testautomation/graphics/required/input/recht_1.odg b/testautomation/graphics/required/input/recht_1.odg
index 7463fbaf1..720c437fa 100755
--- a/testautomation/graphics/required/input/recht_1.odg
+++ b/testautomation/graphics/required/input/recht_1.odg
diff --git a/testautomation/graphics/required/input/recht_1.odp b/testautomation/graphics/required/input/recht_1.odp
index 24442ce94..fbad5296d 100755
--- a/testautomation/graphics/required/input/recht_1.odp
+++ b/testautomation/graphics/required/input/recht_1.odp
diff --git a/testautomation/graphics/required/input/recht_3.odg b/testautomation/graphics/required/input/recht_3.odg
index c2f3461b9..b2df97654 100755
--- a/testautomation/graphics/required/input/recht_3.odg
+++ b/testautomation/graphics/required/input/recht_3.odg
diff --git a/testautomation/graphics/required/input/recht_3.odp b/testautomation/graphics/required/input/recht_3.odp
index 768fbad4b..84ab26098 100644..100755
--- a/testautomation/graphics/required/input/recht_3.odp
+++ b/testautomation/graphics/required/input/recht_3.odp
diff --git a/testautomation/graphics/required/input/recht_31.odg b/testautomation/graphics/required/input/recht_31.odg
index abe6d48ed..e7b1c4561 100755
--- a/testautomation/graphics/required/input/recht_31.odg
+++ b/testautomation/graphics/required/input/recht_31.odg
diff --git a/testautomation/graphics/required/input/recht_31.odp b/testautomation/graphics/required/input/recht_31.odp
index 23f5c77c1..4f74eee30 100644..100755
--- a/testautomation/graphics/required/input/recht_31.odp
+++ b/testautomation/graphics/required/input/recht_31.odp
diff --git a/testautomation/graphics/required/input/recht_33.odg b/testautomation/graphics/required/input/recht_33.odg
index 1288c85f2..03b6119a0 100755
--- a/testautomation/graphics/required/input/recht_33.odg
+++ b/testautomation/graphics/required/input/recht_33.odg
diff --git a/testautomation/graphics/required/input/recht_33.odp b/testautomation/graphics/required/input/recht_33.odp
index c6acada25..c49571f51 100644..100755
--- a/testautomation/graphics/required/input/recht_33.odp
+++ b/testautomation/graphics/required/input/recht_33.odp
diff --git a/testautomation/graphics/required/input/recht_34.odg b/testautomation/graphics/required/input/recht_34.odg
index b3fd1da6d..5789dd14f 100755
--- a/testautomation/graphics/required/input/recht_34.odg
+++ b/testautomation/graphics/required/input/recht_34.odg
diff --git a/testautomation/graphics/required/input/recht_34.odp b/testautomation/graphics/required/input/recht_34.odp
index 2dcbd561f..fec4da84f 100644..100755
--- a/testautomation/graphics/required/input/recht_34.odp
+++ b/testautomation/graphics/required/input/recht_34.odp
diff --git a/testautomation/graphics/required/input/recht_36.odg b/testautomation/graphics/required/input/recht_36.odg
index 81951c928..a328b9827 100755
--- a/testautomation/graphics/required/input/recht_36.odg
+++ b/testautomation/graphics/required/input/recht_36.odg
diff --git a/testautomation/graphics/required/input/recht_36.odp b/testautomation/graphics/required/input/recht_36.odp
index 45f7fd3a4..318c75fb1 100644..100755
--- a/testautomation/graphics/required/input/recht_36.odp
+++ b/testautomation/graphics/required/input/recht_36.odp
diff --git a/testautomation/graphics/required/input/recht_39.odg b/testautomation/graphics/required/input/recht_39.odg
index 0ef147755..6f0404a13 100755
--- a/testautomation/graphics/required/input/recht_39.odg
+++ b/testautomation/graphics/required/input/recht_39.odg
diff --git a/testautomation/graphics/required/input/recht_39.odp b/testautomation/graphics/required/input/recht_39.odp
index bf649b488..777844272 100644..100755
--- a/testautomation/graphics/required/input/recht_39.odp
+++ b/testautomation/graphics/required/input/recht_39.odp
diff --git a/testautomation/graphics/required/input/recht_46.odg b/testautomation/graphics/required/input/recht_46.odg
index 1ad25dad2..35abb9663 100755
--- a/testautomation/graphics/required/input/recht_46.odg
+++ b/testautomation/graphics/required/input/recht_46.odg
diff --git a/testautomation/graphics/required/input/recht_46.odp b/testautomation/graphics/required/input/recht_46.odp
index e9de83b58..2c73a2a83 100644..100755
--- a/testautomation/graphics/required/input/recht_46.odp
+++ b/testautomation/graphics/required/input/recht_46.odp
diff --git a/testautomation/graphics/required/input/recht_48.odg b/testautomation/graphics/required/input/recht_48.odg
index 1e3206ffc..ec17c200c 100755
--- a/testautomation/graphics/required/input/recht_48.odg
+++ b/testautomation/graphics/required/input/recht_48.odg
diff --git a/testautomation/graphics/required/input/recht_48.odp b/testautomation/graphics/required/input/recht_48.odp
index f836b0521..635063049 100644..100755
--- a/testautomation/graphics/required/input/recht_48.odp
+++ b/testautomation/graphics/required/input/recht_48.odp
diff --git a/testautomation/graphics/required/input/recht_48.sxd b/testautomation/graphics/required/input/recht_48.sxd
deleted file mode 100755
index ef01f9ff9..000000000
--- a/testautomation/graphics/required/input/recht_48.sxd
+++ /dev/null
diff --git a/testautomation/graphics/required/input/recht_48.sxi b/testautomation/graphics/required/input/recht_48.sxi
deleted file mode 100755
index bdbd34003..000000000
--- a/testautomation/graphics/required/input/recht_48.sxi
+++ /dev/null
diff --git a/testautomation/graphics/required/input/recht_49.odg b/testautomation/graphics/required/input/recht_49.odg
index 0898a8b99..d3bd17ae6 100755
--- a/testautomation/graphics/required/input/recht_49.odg
+++ b/testautomation/graphics/required/input/recht_49.odg
diff --git a/testautomation/graphics/required/input/recht_49.odp b/testautomation/graphics/required/input/recht_49.odp
index 88c93c285..d8c6e495c 100644..100755
--- a/testautomation/graphics/required/input/recht_49.odp
+++ b/testautomation/graphics/required/input/recht_49.odp
diff --git a/testautomation/graphics/required/input/recht_55.odg b/testautomation/graphics/required/input/recht_55.odg
index fc21ecba1..6f4f649b1 100755
--- a/testautomation/graphics/required/input/recht_55.odg
+++ b/testautomation/graphics/required/input/recht_55.odg
diff --git a/testautomation/graphics/required/input/recht_55.odp b/testautomation/graphics/required/input/recht_55.odp
index 6e78d94e8..001e79a70 100644..100755
--- a/testautomation/graphics/required/input/recht_55.odp
+++ b/testautomation/graphics/required/input/recht_55.odp
diff --git a/testautomation/graphics/tools/id_tools.inc b/testautomation/graphics/tools/id_tools.inc
index c774710c8..99bb30a41 100644
--- a/testautomation/graphics/tools/id_tools.inc
+++ b/testautomation/graphics/tools/id_tools.inc
@@ -264,7 +264,7 @@ function fMakeDocumentWritable() as boolean
         printlog "Document is already writable."
         fMakeDocumentWritable = true
     endif
-
+    sleep(1)
 end function
 
 '-------------------------------------------------------------------------------
diff --git a/testautomation/graphics/tools/id_tools_2.inc b/testautomation/graphics/tools/id_tools_2.inc
index 6c5ca705f..cbb12e545 100644
--- a/testautomation/graphics/tools/id_tools_2.inc
+++ b/testautomation/graphics/tools/id_tools_2.inc
@@ -181,56 +181,6 @@ sub sPrintCheckOrder (optional bcheck as boolean)
     Printlog "-----------------------------------"
 end sub
 
-'--------------------------- Tests for Writer ----------------------------------
-sub writertest
-
-    try
-        call Make_And_Check_Formatted_Text_Line_From_Application
-    catch
-        warnlog "Something went wrong with testing writertest"
-    endcatch
-
-    try
-        call Make_Rectangle_From_Application
-        call Full_test_Draw
-        call Full_test_Impress
-        call Full_test_Writer
-        call Full_test_Calc
-    catch
-        warnlog "something wrong with testing writertest"
-    endcatch
-end sub ' big one
-
-'---------------------------- Tests for Calc -----------------------------------
-sub calctest
-
-    try
-        call Make_Rectangle_From_Application
-        call Full_test_Draw
-        call Full_test_Impress
-        call Full_test_Writer
-        call Full_test_Calc
-    catch
-        warnlog "something wrong with calctest"
-    endcatch
-    printlog "currently no specific tests from Calc"
-end sub
-
-'-------------------------------------------------------------------------------
-sub tClipboardFromDrawTest
-
-    EnableQAErrors = false
-    FromApp2 = gApplication
-    printlog "gApplication = " + gApplication
-
-    select case( gApplication )
-    case "WRITER" : call writertest()
-    case "CALC"   : call calctest()
-    case else     : warnlog( "Unsupported gApplication provided: " & gApplication )
-    end select
-    
-end sub
-
 '-------------------------------------------------------------------------------
 sub Select_Copy
 
@@ -620,212 +570,7 @@ sub GetOnlyGraphics ( OldList() as String, NewList() as String )
         end if
     next i
 end sub
-
-'-------------------------------------------------------------------------
-sub id_001
-
-    printLog Chr(13) + "---------    id_001    ----------"
-
-    qaerrorlog "#74988# tiFilePassword outcommented due to bug. -FHA"
-    call tiFilePassword
-    call tiFileSaveAs
-    call tiFileReload
-    call tiFileVersion
-    printlog " File->Send not possible to test, because extrnal prg get's called!"
-    call tiFileTemplates
-    '   Call tiFileNew instead i call:
-    call tmFileNewFromTemplate
-    call tmFileOpen
-    call tmFileClose
-    call tmFileSave
-    call tmFileSaveAs
-    call tmFileExit
-
-    call tmFileSaveAll
-    call tmFileProperties
-    call tdFileExport
-    call tmFilePrinterSetting
-    ' special cases
-    '   Call AutoPilot      'inc\desktop\autopilo.inc
-    call tmFileExit ' don't test because unpredictable behaviour
-end sub
-
-'------------------------------------------------------------------------------
-sub id_002
-
-    printLog Chr(13) + "---------    id_002    ----------"
-
-    call tiEditUndoRedo
-    call tiEditRepeat
-    call tiEditCutPasteCopySelectall
-    call tiEditPasteSpecial
-    call tiEditSearchAndReplace
-    call tiEditDuplicate
-    call tEditPoints
-    call tiEditFields
-    call tdEditDeleteSlide
-    call tiEditLinks
-    call tiEditImageMap
-    call tiEditObjectProperties
-    call tiEditObjectEdit
-    call tiEditPlugIn
-    call tiEditHyperlink
-end sub
-
-'-------------------------------------------------------------------------
-sub id_003
-
-    printLog Chr(13) + "---------    id_003    ----------"
-
-    call tiViewNavigator
-    call tiViewZoom
-    call tiViewToolbar
-    Call tToolsCustomize			     'global\required\include
-    call tiViewDisplayQuality
-    call tiViewLayer
-    call tViewSnapLines
-    call tViewGrid
-end sub
-
-'-------------------------------------------------------------------------
-sub id_004
-
-    printLog Chr(13) + "---------    id_004    ----------"
-
-    call tiInsertSlide
-    call tiInsertDuplicateSlide
-    ' v expand slide
-    '  v summary slide
-    call tiInsertField
-    call tiInsertSpecialCharacter
-    call tiInsertHyperlink
-    call tiInsertScan
-    call tiInsertGraphic
-    call tiInsertObjectSound
-    call tiInsertObjectVideo
-    call tiInsertObjectSound
-    call tiInsertObjectVideo
-    call tiInsertChart
-    call tiInsertObjectOLEObjects
-    call tiInsertSpreadsheet
-    call tiInsertFormula
-    call tiInsertFloatingFrame
-    call tiInsertFile
-    call tiInsertPlugin
-    call tiInsertSnappointLine
-    call tdInsertLayer ' IMPRESS: Edit->Layer->Insert
-end sub
-
-'------------------------------------------------------------------------------
-sub id_005
-
-    printLog Chr(13) + "---------    id_005    ----------"
-
-    call tiFormatDefault
-    call tiFormatLine
-    call tdFormatArea
-    call tiFormatText
-    call tiFormatPositionAndSize
-    call tiFormatCharacter
-    call tiFormatControlForm
-    '       ^ Form
-    call tiFormatDimensions
-    call tiFormatConnector
-    call tiFormat3D_Effects
-    call tiFormatNumberingBullets
-    call tiFormatCaseCharacter
-    call tiFormatParagraph
-    call tiFormatPage
-    call tiFormatStylesAndFormatting
-    call tiFormatStylesSlideDesign
-    call tiFormatFontwork
-    call tiFormatGroup
-    printlog " format->group is also modify->group "
-    '        tiFormatLayer ' not in impress
-end sub
-
-'------------------------------------------------------------------------------
-sub id_006
-
-    printLog Chr(13) + "---------    id_006    ----------"
-
-    call tiToolsSpellchecking
-    call tiToolsSpellcheckingAutomatic
-    call tiToolsThesaurus
-    call tiToolsHyphenation
-    call tiToolsAutoCorrect
-    call tChineseTranslation
-    call tiToolsMacro
-    call tiToolsGallery
-    call tiToolsEyedropper
-    call tiToolsOptions ' get just called one time here...
-    Call tToolsOptionsTest ' global one
-end sub
-
 '-------------------------------------------------------------------------------
-sub id_007
-
-    printLog Chr(13) + "---------    id_007    ----------"
-    ' in imp available via context menu, in draw via modify menu
-
-    call tdModifyFlipVertikal
-    call tdModifyFlipHorizontal
-    call tdContextConvertIntoCurve
-    call tdContextConvertIntoPolygon
-    call tdContextConvertIntoContour
-    call tdContextConvertInto3D
-    call tdContextConvertIntoRotationObject
-    call tdContextConvertIntoBitmap
-    call tdContextConvertIntoMetaFile
-    call tdModifyArrange
-    call tdModifyArrangeObjects
-    call tdModifyAlignment
-    call tdContextDistribution
-    call tdContextDescriptionObject
-    call tdContextNameObject
-    call tdModifyConnectBreak
-    call tdModifyShapes
-    call tdModifyCombineSplit
-end sub
-
-'-------------------------------------------------------------------------------
-sub id_008
-
-    printLog Chr(13) + "---------    id_008    ----------"
-
-    Call tiWindowNewWindow
-    call tidWindow123
-end sub
-
-'------------------------------------------------------------------------------
-sub id_009
-
-    printLog Chr(13) + "---------    id_009    ----------"
-
-    call tCheckIfTheHelpExists
-    Call tmHelpContents
-    Call tmHelpHelpAgent
-    Call tmHelpTips
-    Call tmHelpExtendedTips
-    Call tmHelpAboutStarOffice
-
-end sub
-
-'------------------------------------------------------------------------------
-sub id_011
-
-    printLog Chr(13) + "---------    id_011    ----------"
-
-    call tdBezierToolbar
-    call tiDrawObjectBar
-    call tiTextToolbar
-    call tiGraphicsObjectBar
-    call tiGluepointToolbar
-
-end sub
-
-'-------------------------------------------------------------------------------'
-
 sub hWalkTheStyles (optional a as integer,optional b as integer)
     dim i as integer
 
@@ -991,4 +736,4 @@ sub sSelectEmptyLayout
     else
         printlog "No change of Layout needed."
     endif
-end sub
\ No newline at end of file
+end sub
diff --git a/testautomation/spreadsheet/required/includes/c_upd_filemenu.inc b/testautomation/spreadsheet/required/includes/c_upd_filemenu.inc
index 296387d64..a2e3f5a70 100755..100644
--- a/testautomation/spreadsheet/required/includes/c_upd_filemenu.inc
+++ b/testautomation/spreadsheet/required/includes/c_upd_filemenu.inc
@@ -238,6 +238,7 @@ testcase tFileOpenCSV
     Oeffnen.Click
     Kontext "TextImport"
     TextImport.ok
+    sleep (2)
     Printlog " - CSV import dialog is in function"
     Kontext "DocumentCalc"
     printlog " Close document"
diff --git a/testautomation/spreadsheet/tools/input/Functionnames.ods b/testautomation/spreadsheet/tools/input/Functionnames.ods
index e7d59b7e9..1d9f3edab 100755
--- a/testautomation/spreadsheet/tools/input/Functionnames.ods
+++ b/testautomation/spreadsheet/tools/input/Functionnames.ods