Commits

Philipp Lohmann [pl]  committed 63b0748

printerpullpages: #i106219# latest updates

  • Participants
  • Parent commits 4030ace

Comments (0)

Files changed (8)

File testautomation/global/win/tab_a_d.win

 Dokumentende SW:RADIOBUTTON:TP_OPTPRINT_PAGE:RB_END
 Seitenende SW:RADIOBUTTON:TP_OPTPRINT_PAGE:RB_PAGEEND
 AusDruckereinstellung SW:CHECKBOX:TP_OPTPRINT_PAGE:CB_PAPERFROMSETUP
+LeereSeitenDrucken sw:CheckBox:TP_OPTPRINT_PAGE:CB_PRINTEMPTYPAGES
 Fax SW:LISTBOX:TP_OPTPRINT_PAGE:LB_FAX
 
 *TabDruckenWriter HID_OPTPRINT_PAGE

File testautomation/writer/optional/includes/option/wh_o_1.inc

 '------------------------------------------------------------------------------
 testcase tToolsOptionsHTMLContent
 
-    Dim irgendwas(17) as boolean
+    Dim bCheckboxStatus(17) as boolean
 
     printlog "tToolsOptionsHTMLContent datei erstellen zum laden"
     '/// uses "input\\writer\\optional\\options\\options1.sxw"  ///
     ToolsOptions
     Call hToolsOptions ("HTML","View")
 
-    irgendwas(1) = GrafikenUndObjekte.IsChecked
-    irgendwas(2) = Tabellen.IsChecked
-    irgendwas(3) = Zeichnungen.IsChecked
-    irgendwas(4) = Feldnamen.IsChecked
-    irgendwas(5) = Notizen.IsChecked
+    bCheckboxStatus(1) = GrafikenUndObjekte.IsChecked
+    bCheckboxStatus(3) = Zeichnungen.IsChecked
+    bCheckboxStatus(4) = Feldnamen.IsChecked
+    bCheckboxStatus(5) = Notizen.IsChecked
 
-    'irgendwas(9) = Felder.IsChecked
+    'bCheckboxStatus(9) = Felder.IsChecked
 
     printlog ("'/// - all states inverting ///")
 
-    if irgendwas(1) Then GrafikenUndObjekte.UnCheck Else GrafikenUndObjekte.Check
-    if irgendwas(2) Then Tabellen.UnCheck Else Tabellen.Check
-    if irgendwas(3) Then Zeichnungen.UnCheck Else Zeichnungen.Check
-    if irgendwas(4) Then Feldnamen.UnCheck Else Feldnamen.Check
-    if irgendwas(5) Then Notizen.UnCheck Else Notizen.Check
+    if bCheckboxStatus(1) Then GrafikenUndObjekte.UnCheck Else GrafikenUndObjekte.Check
+    if bCheckboxStatus(3) Then Zeichnungen.UnCheck Else Zeichnungen.Check
+    if bCheckboxStatus(4) Then Feldnamen.UnCheck Else Feldnamen.Check
+    if bCheckboxStatus(5) Then Notizen.UnCheck Else Notizen.Check
     
-    'if irgendwas(9) Then Felder.UnCheck Else Felder.Check
+    'if bCheckboxStatus(9) Then Felder.UnCheck Else Felder.Check
     
     Kontext "ExtrasOptionenDlg"
     ExtrasOptionenDlg.OK
     ToolsOptions
     Call hToolsOptions ( "HTML","View" )
     
-    if ( irgendwas(1) = GrafikenUndObjekte.IsChecked ) Then WarnLog "GrafikenUndObjekte state changed"
-    if ( irgendwas(2) = Tabellen.IsChecked  ) Then WarnLog "Tabellen state changed"
-    if ( irgendwas(3) = Zeichnungen.IsChecked  ) Then WarnLog "Zeichnungen state changed"
-    if ( irgendwas(4) = Feldnamen.IsChecked  ) Then  WarnLog "Feldnamen state changed"
-    if ( irgendwas(5) = Notizen.IsChecked  ) Then  WarnLog "Notizen state changed"
+    if ( bCheckboxStatus(1) = GrafikenUndObjekte.IsChecked ) Then WarnLog "Grafiken state changed"
+    if ( bCheckboxStatus(3) = Zeichnungen.IsChecked  ) Then WarnLog "Zeichnungen state changed"
+    if ( bCheckboxStatus(4) = Feldnamen.IsChecked  ) Then  WarnLog "Feldnamen state changed"
+    if ( bCheckboxStatus(5) = Notizen.IsChecked  ) Then  WarnLog "Notizen state changed"
     
     printlog ("'/// - all UnCheck -> o ///")
     
     GrafikenUndObjekte.UnCheck
-    Tabellen.UnCheck
     Zeichnungen.UnCheck
     Feldnamen.UnCheck
     Notizen.UnCheck
     ToolsOptions
     hToolsOptions ( "HTML","View" )
     
-    if GrafikenUndObjekte.IsChecked Then WarnLog "GrafikenUndObjekte x"
-    if Tabellen.IsChecked Then WarnLog "Tabellen x"
+    if GrafikenUndObjekte.IsChecked Then WarnLog "Grafiken x"
     if Zeichnungen.IsChecked Then WarnLog "Zeichnungen x"
     if Feldnamen.IsChecked Then  WarnLog "Feldnamen x"
     if Notizen.IsChecked Then  WarnLog "Notizen x"
     
     Printlog ("'/// - all Check -> x ///")
     GrafikenUndObjekte.Check
-    Tabellen.Check
     Zeichnungen.Check
     Feldnamen.Check
     Notizen.Check
     ToolsOptions
     Call hToolsOptions ( "HTML","View" )
     
-    if true <> GrafikenUndObjekte.IsChecked Then WarnLog "GrafikenUndObjekte o"
-    if True <> Tabellen.IsChecked Then WarnLog "Tabellen o"
+    if true <> GrafikenUndObjekte.IsChecked Then WarnLog "Grafiken o"
     if True <> Zeichnungen.IsChecked Then WarnLog "Zeichnungen o"
     if True <> Feldnamen.IsChecked Then  WarnLog "Feldnamen o"
     if True <> Notizen.IsChecked Then  WarnLog "Notizen o"
     
     printlog ("'/// - restore states ///")    
-    if ( irgendwas(1) = TRUE ) Then  GrafikenUndObjekte.Check Else GrafikenUndObjekte.UnCheck
-    if ( irgendwas(2) = TRUE ) Then  Tabellen.Check Else Tabellen.UnCheck
-    if ( irgendwas(3) = TRUE ) Then  Zeichnungen.Check Else Zeichnungen.UnCheck
-    if ( irgendwas(4) = TRUE ) Then  Feldnamen.Check Else Feldnamen.UnCheck
-    if ( irgendwas(5) = TRUE ) Then  Notizen.Check Else Notizen.UnCheck
+    if ( bCheckboxStatus(1) = TRUE ) Then  GrafikenUndObjekte.Check Else GrafikenUndObjekte.UnCheck
+    if ( bCheckboxStatus(3) = TRUE ) Then  Zeichnungen.Check Else Zeichnungen.UnCheck
+    if ( bCheckboxStatus(4) = TRUE ) Then  Feldnamen.Check Else Feldnamen.UnCheck
+    if ( bCheckboxStatus(5) = TRUE ) Then  Notizen.Check Else Notizen.UnCheck
     
     Kontext "ExtrasOptionenDlg"
     ExtrasOptionenDlg.OK
 
 '------------------------------------------------------------------------------
 testcase tToolsOptionsHTMLLayout
-    Dim irgendwas(11) as boolean
+    Dim bCheckboxStatus(11) as boolean
     Dim iMasseinheit(3) as integer
     Dim iTemp(3) as integer
     '///Open "writer\\optional\\input\\options\\options1.sxw ///
     ToolsOptions
     Call hToolsOptions ( "HTML" , "VIEW" ) '*TabLayoutHTML/ (1)
     
-    irgendwas(1) = Hilfslinien.IsChecked
-    irgendwas(2) = FarbigeHandles.IsChecked
-    irgendwas(3) = GrosseHandles.IsChecked
-    irgendwas(4) = HorizontaleBildlaufleiste.IsChecked
-    irgendwas(5) = VertikaleBildlaufleiste.IsChecked
-    irgendwas(10) = Lineal.IsChecked
-    irgendwas(6) = HorizontalesLineal.IsChecked
-    irgendwas(7) = VertikalesLineal.IsChecked
-    irgendwas(8) = WeichesScrollen.IsChecked
+    bCheckboxStatus(1) = Hilfslinien.IsChecked
+    bCheckboxStatus(2) = FarbigeHandles.IsChecked
+    bCheckboxStatus(3) = GrosseHandles.IsChecked
+    bCheckboxStatus(4) = HorizontaleBildlaufleiste.IsChecked
+    bCheckboxStatus(5) = VertikaleBildlaufleiste.IsChecked
+    bCheckboxStatus(10) = Lineal.IsChecked
+    bCheckboxStatus(6) = HorizontalesLineal.IsChecked
+    bCheckboxStatus(7) = VertikalesLineal.IsChecked
+    bCheckboxStatus(8) = WeichesScrollen.IsChecked
     
     iMasseinheit(2) = HorizontalesLinealMasseinheit.GetSelIndex
     iMasseinheit(3) = VertikalesLinealMasseinheit.GetSelIndex
     printlog ("'/// - all states inverting ///")
     
     'this one has 2 places:  ViewTextBoundaries
-    if irgendwas(1) Then Hilfslinien.UnCheck               Else Hilfslinien.Check
-    if irgendwas(2) Then FarbigeHandles.UnCheck            Else FarbigeHandles.Check
-    if irgendwas(3) Then GrosseHandles.UnCheck             Else GrosseHandles.Check
+    if bCheckboxStatus(1) Then Hilfslinien.UnCheck               Else Hilfslinien.Check
+    if bCheckboxStatus(2) Then FarbigeHandles.UnCheck            Else FarbigeHandles.Check
+    if bCheckboxStatus(3) Then GrosseHandles.UnCheck             Else GrosseHandles.Check
     
     'this one has 2 places:   ViewRuler
-    if irgendwas(4) Then HorizontaleBildlaufleiste.UnCheck Else HorizontaleBildlaufleiste.Check
-    if irgendwas(5) Then VertikaleBildlaufleiste.UnCheck   Else VertikaleBildlaufleiste.Check
-    if irgendwas(10) then Lineal.UnCheck  Else Lineal.Check ' has to be checked to enable Horizontal and Vertical Ruler
+    if bCheckboxStatus(4) Then HorizontaleBildlaufleiste.UnCheck Else HorizontaleBildlaufleiste.Check
+    if bCheckboxStatus(5) Then VertikaleBildlaufleiste.UnCheck   Else VertikaleBildlaufleiste.Check
+    if bCheckboxStatus(10) then Lineal.UnCheck  Else Lineal.Check ' has to be checked to enable Horizontal and Vertical Ruler
     if Lineal.IsChecked then
-        if irgendwas(6) Then HorizontalesLineal.UnCheck        Else HorizontalesLineal.Check
-        if irgendwas(7) Then VertikalesLineal.UnCheck          Else VertikalesLineal.Check
+        if bCheckboxStatus(6) Then HorizontalesLineal.UnCheck        Else HorizontalesLineal.Check
+        if bCheckboxStatus(7) Then VertikalesLineal.UnCheck          Else VertikalesLineal.Check
         if ( HorizontalesLinealMasseinheit.GetItemCount <> iMasseinheit(2) ) Then HorizontalesLinealMasseinheit.Select (HorizontalesLinealMasseinheit.GetItemCount) Else HorizontalesLinealMasseinheit.Select (1)
         if ( VertikalesLinealMasseinheit.GetItemCount <> iMasseinheit(3) ) Then VertikalesLinealMasseinheit.Select (VertikalesLinealMasseinheit.GetItemCount) Else VertikalesLinealMasseinheit.Select (1)
         iTemp(2) = HorizontalesLinealMasseinheit.GetSelIndex
         '/// if Asian Language enabled there has to be a checkbox 'Right-aligned' for 'Vertical-Ruler' ///
         if gAsianSup = True and VertikalesLineal.IsChecked = True then
             if RechtsAusgerichtet.IsVisible = True then
-                if irgendwas(9) Then RechtsAusgerichtet.Uncheck  Else RechtsAusgerichtet.Check
+                if bCheckboxStatus(9) Then RechtsAusgerichtet.Uncheck  Else RechtsAusgerichtet.Check
             else
                 Warnlog "- Checkbox 'Right-aligned' is not visible !"
             end if
         end if
     end if
-    if irgendwas(8) Then WeichesScrollen.UnCheck           Else WeichesScrollen.Check
+    if bCheckboxStatus(8) Then WeichesScrollen.UnCheck           Else WeichesScrollen.Check
     
     Kontext "ExtrasOptionenDlg"
     ExtrasOptionenDlg.OK
     ToolsOptions
     Call hToolsOptions ( "HTML" , "VIEW" ) '*TabLayoutHTML/ (1)
     
-    if ( irgendwas(1) = Hilfslinien.IsChecked               ) Then WarnLog "Hilfslinien state changed"
-    if ( irgendwas(2) = FarbigeHandles.IsChecked            ) Then WarnLog "FarbigeHandles state changed"
-    if ( irgendwas(3) = GrosseHandles.IsChecked             ) Then WarnLog "GrosseHandles state changed"
-    if ( irgendwas(4) = HorizontaleBildlaufleiste.IsChecked ) Then WarnLog "HorizontaleBildlaufleiste state changed"
-    if ( irgendwas(5) = VertikaleBildlaufleiste.IsChecked   ) Then WarnLog "VertikaleBildlaufleiste state changed"
-    if ( irgendwas(8) = WeichesScrollen.IsChecked          ) Then WarnLog "WeichesScrollen state changed"
-    if ( irgendwas(10) = Lineal.IsChecked ) Then
+    if ( bCheckboxStatus(1) = Hilfslinien.IsChecked               ) Then WarnLog "Hilfslinien state changed"
+    if ( bCheckboxStatus(2) = FarbigeHandles.IsChecked            ) Then WarnLog "FarbigeHandles state changed"
+    if ( bCheckboxStatus(3) = GrosseHandles.IsChecked             ) Then WarnLog "GrosseHandles state changed"
+    if ( bCheckboxStatus(4) = HorizontaleBildlaufleiste.IsChecked ) Then WarnLog "HorizontaleBildlaufleiste state changed"
+    if ( bCheckboxStatus(5) = VertikaleBildlaufleiste.IsChecked   ) Then WarnLog "VertikaleBildlaufleiste state changed"
+    if ( bCheckboxStatus(8) = WeichesScrollen.IsChecked          ) Then WarnLog "WeichesScrollen state changed"
+    if ( bCheckboxStatus(10) = Lineal.IsChecked ) Then
         WarnLog "Ruler state changed"
-        if ( irgendwas(6) = HorizontalesLineal.IsChecked        ) Then WarnLog "HorizontalesLineal state changed"
-        if ( irgendwas(7) = VertikalesLineal.IsChecked         ) Then WarnLog "VertikalesLineal state changed"
+        if ( bCheckboxStatus(6) = HorizontalesLineal.IsChecked        ) Then WarnLog "HorizontalesLineal state changed"
+        if ( bCheckboxStatus(7) = VertikalesLineal.IsChecked         ) Then WarnLog "VertikalesLineal state changed"
         if ( HorizontalesLinealMasseinheit.GetSelIndex <> iTemp(2) ) Then WarnLog "HorizontalesLinealMasseinheit state changed"
         if ( VertikalesLinealMasseinheit.GetSelIndex <> iTemp(3) ) Then WarnLog "VertikalesLinealMasseinheit   state changed"
     
         if gAsianSup = True and VertikalesLineal.IsChecked = True then
             if RechtsAusgerichtet.IsVisible = True then
-                if irgendwas(9) = RechtsAusgerichtet.IsChecked then WarnLog "Right-aligned state changed"
+                if bCheckboxStatus(9) = RechtsAusgerichtet.IsChecked then WarnLog "Right-aligned state changed"
             else
                 Warnlog "- Checkbox 'Right-aligned' is not visible !"
             end if
     ToolsOptions
     Call hToolsOptions ( "HTML" , "VIEW" )
     
-    if ( irgendwas(1) =  TRUE ) Then  Hilfslinien.Check               Else Hilfslinien.UnCheck
-    if ( irgendwas(2) =  TRUE ) Then  FarbigeHandles.Check            Else FarbigeHandles.UnCheck
-    if ( irgendwas(3) =  TRUE ) Then  GrosseHandles.Check             Else GrosseHandles.UnCheck
+    if ( bCheckboxStatus(1) =  TRUE ) Then  Hilfslinien.Check               Else Hilfslinien.UnCheck
+    if ( bCheckboxStatus(2) =  TRUE ) Then  FarbigeHandles.Check            Else FarbigeHandles.UnCheck
+    if ( bCheckboxStatus(3) =  TRUE ) Then  GrosseHandles.Check             Else GrosseHandles.UnCheck
     
-    if ( irgendwas(4) =  TRUE ) Then  HorizontaleBildlaufleiste.Check Else HorizontaleBildlaufleiste.UnCheck
-    if ( irgendwas(5) =  TRUE ) Then  VertikaleBildlaufleiste.Check   Else VertikaleBildlaufleiste.UnCheck
+    if ( bCheckboxStatus(4) =  TRUE ) Then  HorizontaleBildlaufleiste.Check Else HorizontaleBildlaufleiste.UnCheck
+    if ( bCheckboxStatus(5) =  TRUE ) Then  VertikaleBildlaufleiste.Check   Else VertikaleBildlaufleiste.UnCheck
     Lineal.Check
-    if ( irgendwas(6) =  TRUE ) Then  HorizontalesLineal.Check        Else HorizontalesLineal.UnCheck
-    if ( irgendwas(7) = TRUE ) Then  VertikalesLineal.Check          Else VertikalesLineal.UnCheck
+    if ( bCheckboxStatus(6) =  TRUE ) Then  HorizontalesLineal.Check        Else HorizontalesLineal.UnCheck
+    if ( bCheckboxStatus(7) = TRUE ) Then  VertikalesLineal.Check          Else VertikalesLineal.UnCheck
     HorizontalesLinealMasseinheit.Select (iMasseinheit(2))
     VertikalesLinealMasseinheit.Select (iMasseinheit(3))
     
-    if ( irgendwas(8) = TRUE ) Then  WeichesScrollen.Check           Else WeichesScrollen.UnCheck
+    if ( bCheckboxStatus(8) = TRUE ) Then  WeichesScrollen.Check           Else WeichesScrollen.UnCheck
     
     Kontext "ExtrasOptionenDlg"
     ExtrasOptionenDlg.OK
 '------------------------------------------------------------------------------
 testcase tToolsOptionsHTMLGrid
 
-    Dim irgendwas(3) as boolean
+    Dim bCheckboxStatus(3) as boolean
     Dim sMetricField(4) as string      ' MetricField
     Dim sTempMetricField(4) as string
         
     
     printlog ("'///TabRaster all UnCheck ! ///")
     
-    irgendwas(1) = FangrasterBenutzen.IsChecked
-    irgendwas(2) = RasterSichtbar.IsChecked
-    irgendwas(3) = AchsenSynchronisieren.IsChecked
+    bCheckboxStatus(1) = FangrasterBenutzen.IsChecked
+    bCheckboxStatus(2) = RasterSichtbar.IsChecked
+    bCheckboxStatus(3) = AchsenSynchronisieren.IsChecked
     
     sMetricField(1) = RasterAufloesungXAchse.GetText
     sMetricField(2) = RasterAufloesungYAchse.GetText
     
     printlog ("'/// - all states inverting ///")
     
-    if irgendwas(1) Then FangrasterBenutzen.UnCheck    Else FangrasterBenutzen.Check
-    if irgendwas(2) Then RasterSichtbar.UnCheck        Else RasterSichtbar.Check
-    '      if irgendwas(3) Then AchsenSynchronisieren.UnCheck Else AchsenSynchronisieren.Check
+    if bCheckboxStatus(1) Then FangrasterBenutzen.UnCheck    Else FangrasterBenutzen.Check
+    if bCheckboxStatus(2) Then RasterSichtbar.UnCheck        Else RasterSichtbar.Check
+    '      if bCheckboxStatus(3) Then AchsenSynchronisieren.UnCheck Else AchsenSynchronisieren.Check
     '   this CheckBox interacts with the MetricBoxes:
     AchsenSynchronisieren.UnCheck
     
     ToolsOptions
     Call hToolsOptions ( "HTML","Grid" )
     
-    if (irgendwas(1) = FangrasterBenutzen.IsChecked    ) Then WarnLog "FangrasterBenutzen state changed BugID: 82944 "
-    if (irgendwas(2) = RasterSichtbar.IsChecked        ) Then WarnLog "RasterSichtbar state changed"
+    if (bCheckboxStatus(1) = FangrasterBenutzen.IsChecked    ) Then WarnLog "FangrasterBenutzen state changed BugID: 82944 "
+    if (bCheckboxStatus(2) = RasterSichtbar.IsChecked        ) Then WarnLog "RasterSichtbar state changed"
     if ( AchsenSynchronisieren.IsChecked = TRUE ) Then WarnLog "AchsenSynchronisieren state changed"
     if ( RasterAufloesungXAchse.GetText <>   sTempMetricField(1) ) Then WarnLog "RasterAufloesungXAchse state changed"
     if ( RasterAufloesungYAchse.GetText <>   sTempMetricField(2) ) Then WarnLog "RasterAufloesungYAchse state changed"
     ToolsOptions
     Call hToolsOptions ( "HTML","Grid" )
     
-    if ( irgendwas(1) =  TRUE ) Then FangrasterBenutzen.Check    Else FangrasterBenutzen.UnCheck
-    if ( irgendwas(2) =  TRUE ) Then RasterSichtbar.Check        Else RasterSichtbar.UnCheck
-    if ( irgendwas(3) =  TRUE ) Then AchsenSynchronisieren.Check Else AchsenSynchronisieren.UnCheck
+    if ( bCheckboxStatus(1) =  TRUE ) Then FangrasterBenutzen.Check    Else FangrasterBenutzen.UnCheck
+    if ( bCheckboxStatus(2) =  TRUE ) Then RasterSichtbar.Check        Else RasterSichtbar.UnCheck
+    if ( bCheckboxStatus(3) =  TRUE ) Then AchsenSynchronisieren.Check Else AchsenSynchronisieren.UnCheck
     RasterAufloesungXAchse.SetText   (sMetricField(1))
     RasterAufloesungYAchse.SetText   (sMetricField(2))
     RasterUnterteilungXAchse.SetText (sMetricField(3))

File testautomation/writer/optional/includes/option/wh_o_2.inc

 '------------------------------------------------------------------------------
 testcase tToolsOptionsHTMLPrint
 
-    dim irgendwas(12) as boolean    ' Checkbox states
+    dim bCheckboxStatus(12) as boolean    ' Checkbox states
     dim iListBox(1) as integer         ' ListBox
     dim iTempListBox(1) as integer
     dim bRadioBut(4) as boolean         ' RadioButtons
     dim bTempRadioBut(4) as boolean
 
-    ' sMetricField(i) and sTempMetricField(i)
-    '(1) = Grafiken
-    '(2) = Tabellen
-    '(3) = Zeichnungen
-    '(4) = Kontrollfelder
-    '(5) = Hintergrund
-    '(6) = SchwarzDrucken
-    '
-    '(7) = LinkeSeiten
-    '(8) = RechteSeiten
-    '(9) = Umgekehrt
-    '(10)= Prospekt
-    '
-    '(11)= EinzelneDruckauftraege
-    '(12)= AusDruckereinstellung
-
-    ' bRadioBut(i) and bTempRadioBut(i) / RadioButton
-    '(1) = Keine
-    '(2) = NurNotizen
-    '(3) = Dokumentende
-    '(4) = Seitenende
-
     Call hFileOpen ( gTesttoolPath + "writer\optional\input\options\test.html" )
     Call sMakeReadOnlyDocumentEditable
-    printlog "'///- Tools/Options/HTML: PrintHTML ///"
+    printlog "- Tools/Options/HTML: PrintHTML "
 
-    printlog ("'/// - save states ///")
+    printlog (" - save states ")
     ToolsOptions
     Call hToolsOptions ("HTML","PRINT")
 
-    irgendwas(1) = Grafiken.IsChecked
-    irgendwas(2) = Tabellen.IsChecked
-    irgendwas(4) = Kontrollfelder.IsChecked
-    irgendwas(5) = Hintergrund.IsChecked
-    irgendwas(6) = SchwarzDrucken.IsChecked
+    bCheckboxStatus(1) = Grafiken.IsChecked
+    bCheckboxStatus(2) = Kontrollfelder.IsChecked
+    bCheckboxStatus(3) = Hintergrund.IsChecked
+    bCheckboxStatus(4) = SchwarzDrucken.IsChecked
 
-    irgendwas(9) = Umgekehrt.IsChecked
-    irgendwas(10)= Prospekt.IsChecked
+    bCheckboxStatus(5)= Prospekt.IsChecked
 
-    irgendwas(11)= EinzelneDruckauftraege.IsChecked
-    irgendwas(12)= AusDruckereinstellung.IsChecked
+    bCheckboxStatus(6)= LeereSeitenDrucken.IsChecked
+    bCheckboxStatus(7)= AusDruckereinstellung.IsChecked
 
     iListBox(1) = Fax.GetSelIndex
 
     bRadioBut(3) = Dokumentende.IsChecked
     bRadioBut(4) = Seitenende.IsChecked
 
-    printlog ("'/// - all states inverting ///")
+    printlog (" - all states inverting ")
 
-    if irgendwas(1) Then Grafiken.UnCheck               Else Grafiken.Check
-    if irgendwas(2) Then Tabellen.UnCheck               Else Tabellen.Check
-    if irgendwas(4) Then Kontrollfelder.UnCheck         Else Kontrollfelder.Check
-    if irgendwas(5) Then Hintergrund.UnCheck            Else Hintergrund.Check
-    if irgendwas(6) Then SchwarzDrucken.UnCheck         Else SchwarzDrucken.Check
+    if bCheckboxStatus(1) Then Grafiken.UnCheck               Else Grafiken.Check
+    if bCheckboxStatus(2) Then Kontrollfelder.UnCheck         Else Kontrollfelder.Check
+    if bCheckboxStatus(3) Then Hintergrund.UnCheck            Else Hintergrund.Check
+    if bCheckboxStatus(4) Then SchwarzDrucken.UnCheck         Else SchwarzDrucken.Check
 
-    if irgendwas(9) Then Umgekehrt.UnCheck              Else Umgekehrt.Check
-    if irgendwas(10) Then Prospekt.UnCheck               Else Prospekt.Check
+    if bCheckboxStatus(5) Then Prospekt.UnCheck               Else Prospekt.Check
 
-    if irgendwas(11) Then EinzelneDruckauftraege.UnCheck Else EinzelneDruckauftraege.Check
-    if irgendwas(12) Then AusDruckereinstellung.UnCheck  Else AusDruckereinstellung.Check
+    if bCheckboxStatus(6) Then LeereSeitenDrucken.UnCheck Else LeereSeitenDrucken.Check
+    if bCheckboxStatus(7) Then AusDruckereinstellung.UnCheck  Else AusDruckereinstellung.Check
 
     if (Keine.IsChecked = True) Then NurNotizen.Check Else Keine.Check
 
     Call hFileSaveAsKill(gOfficepath + "user\work\printtest.html")
     Call hCloseDocument
 
-    printlog ("'/// - SO quit - start ///")
+    printlog (" - SO quit - start ")
 
     Call wOfficeRestart
 
-    printlog ("'/// - checking states ///")
+    printlog (" - checking states ")
     ToolsOptions
     Call hToolsOptions ( "HTML" , "PRINT" )
 
-    if ( irgendwas(1) = Grafiken.IsChecked               ) Then WarnLog "'Graphics' state changed"
-    if ( irgendwas(2) = Tabellen.IsChecked               ) Then WarnLog "'Tables' state changed"
-    if ( irgendwas(4) = Kontrollfelder.IsChecked         ) Then WarnLog "'Controls' state changed"
-    if ( irgendwas(5) = Hintergrund.IsChecked            ) Then WarnLog "'Background' state changed"
-    if ( irgendwas(6) = SchwarzDrucken.IsChecked         ) Then WarnLog "'Print black' state changed"
+    if ( bCheckboxStatus(1) = Grafiken.IsChecked               ) Then WarnLog "#i108219#'Graphics' state changed"
+    if ( bCheckboxStatus(2) = Kontrollfelder.IsChecked         ) Then WarnLog "'Controls' state changed"
+    if ( bCheckboxStatus(3) = Hintergrund.IsChecked            ) Then WarnLog "'Background' state changed"
+    if ( bCheckboxStatus(4) = SchwarzDrucken.IsChecked         ) Then WarnLog "'Print black' state changed"
 
-    if ( irgendwas(9) = Umgekehrt.IsChecked              ) Then WarnLog "'Reversed' state changed"
-    if ( irgendwas(10)= Prospekt.IsChecked               ) Then WarnLog "'Brochure' state changed"
+    if ( bCheckboxStatus(5)= Prospekt.IsChecked               ) Then WarnLog "'Brochure' state changed"
 
-    if ( irgendwas(11)= EinzelneDruckauftraege.IsChecked ) Then WarnLog "'Create single print jobs' state changed"
-    if ( irgendwas(12)= AusDruckereinstellung.IsChecked  ) Then WarnLog "'Paper tray from printer settings' state changed"
+    if ( bCheckboxStatus(6)= LeereSeitenDrucken.IsChecked ) Then WarnLog "#i108219#'Create single print jobs' state changed"
+    if ( bCheckboxStatus(7)= AusDruckereinstellung.IsChecked  ) Then WarnLog "'Paper tray from printer settings' state changed"
 
     if ( bTempRadioBut(1) <> Keine.IsChecked       ) Then WarnLog "'None' state changed (Bug#99202)"
     if ( bTempRadioBut(2) <> NurNotizen.IsChecked  ) Then WarnLog "'Notes only' state changed (Bug#99202)"
 
     if ( Fax.GetSelIndex <> iTempListBox(1) ) Then warnlog "Fax state changed"
 
-    printlog ("'/// - all UnCheck -> o ///")
+    printlog (" - all UnCheck -> o ")
 
     Grafiken.UnCheck
-    Tabellen.UnCheck
     Kontrollfelder.UnCheck
     Hintergrund.UnCheck
     SchwarzDrucken.UnCheck
 
-    Umgekehrt.UnCheck
     Prospekt.UnCheck
 
-    EinzelneDruckauftraege.UnCheck
+    LeereSeitenDrucken.UnCheck
     AusDruckereinstellung.UnCheck
 
     if (NurNotizen.IsChecked = True) Then Dokumentende.Check Else NurNotizen.Check
     Kontext "ExtrasOptionenDlg"
     ExtrasOptionenDlg.OK
 
-    printlog ("'/// - check if all UnChecked ///")
+    printlog (" - check if all UnChecked ")
     ToolsOptions
     Call hToolsOptions ( "HTML" , "PRINT" )
 
     if Grafiken.IsChecked       Then WarnLog "'Graphics' x"
-    if Tabellen.IsChecked       Then WarnLog "'Tables' x"
     if Kontrollfelder.IsChecked Then WarnLog "'Controls' x"
     if Hintergrund.IsChecked    Then WarnLog "'Background' x"
     if SchwarzDrucken.IsChecked Then WarnLog "'Print black' x"
 
-    if Umgekehrt.IsChecked      Then WarnLog "'Reversed' x"
     if Prospekt.IsChecked       Then WarnLog "'Brochure' x"
 
-    if EinzelneDruckauftraege.IsChecked Then WarnLog "'Create single print jobs' x"
+    if LeereSeitenDrucken.IsChecked Then WarnLog "'Create single print jobs' x"
     if AusDruckereinstellung.IsChecked  Then WarnLog "'Paper tray from printer settings' x"
 
     ' Is saved with document
 
     if ( Fax.GetSelIndex <> 1 ) Then WarnLog "Fax is not item 1"
 
-    Printlog ("'/// - all Check -> x ///")
+    Printlog (" - all Check -> x ")
 
     Grafiken.Check
-    Tabellen.Check
     Kontrollfelder.Check
     Hintergrund.Check
     SchwarzDrucken.Check
 
-    Umgekehrt.Check
     Prospekt.Check
 
-    EinzelneDruckauftraege.Check
+    LeereSeitenDrucken.Check
     AusDruckereinstellung.Check
 
     if (Dokumentende.IsChecked = True) Then Seitenende.Check Else Dokumentende.Check
     Kontext "ExtrasOptionenDlg"
     ExtrasOptionenDlg.OK
 
-    printlog ("'/// - check if all Checked ///")
+    printlog (" - check if all Checked ")
     ToolsOptions
     Call hToolsOptions ( "HTML" , "PRINT" )
 
     if not Grafiken.IsChecked                Then WarnLog "'Graphics' o"
-    if not Tabellen.IsChecked                Then WarnLog "'Tables' o"
     if not Kontrollfelder.IsChecked          Then WarnLog "'Controls' o"
     if not Hintergrund.IsChecked             Then WarnLog "'Background' o"
     if not SchwarzDrucken.IsChecked          Then WarnLog "'Print black' o"
 
-    if not Umgekehrt.IsChecked               Then WarnLog "'Reversed' o"
     if not Prospekt.IsChecked                Then WarnLog "'Brochure' o"
 
-    if not EinzelneDruckauftraege.IsChecked  Then WarnLog "'Create single print jobs' o"
+    if not LeereSeitenDrucken.IsChecked  Then WarnLog "'Create single print jobs' o"
     if not AusDruckereinstellung.IsChecked   Then WarnLog "'Paper tray from printer settings' o"
 
     if ( bTempRadioBut(1) <> Keine.IsChecked       ) Then WarnLog "'None' state changed"
     Kontext "ExtrasOptionenDlg"
     ExtrasOptionenDlg.Cancel
 
-    printlog ("'/// - restore states ///")
+    printlog (" - restore states ")
     ToolsOptions
     Call hToolsOptions ( "HTML" , "PRINT" )
 
-    if ( irgendwas(1) =  TRUE ) Then  Grafiken.Check                Else Grafiken.UnCheck
-    if ( irgendwas(2) =  TRUE ) Then  Tabellen.Check                Else Tabellen.UnCheck
-    if ( irgendwas(4) =  TRUE ) Then  Kontrollfelder.Check          Else Kontrollfelder.UnCheck
-    if ( irgendwas(5) =  TRUE ) Then  Hintergrund.Check             Else Hintergrund.UnCheck
-    if ( irgendwas(6) =  TRUE ) Then  SchwarzDrucken.Check          Else SchwarzDrucken.UnCheck
+    if ( bCheckboxStatus(1) =  TRUE ) Then  Grafiken.Check                Else Grafiken.UnCheck
+    if ( bCheckboxStatus(2) =  TRUE ) Then  Kontrollfelder.Check          Else Kontrollfelder.UnCheck
+    if ( bCheckboxStatus(3) =  TRUE ) Then  Hintergrund.Check             Else Hintergrund.UnCheck
+    if ( bCheckboxStatus(4) =  TRUE ) Then  SchwarzDrucken.Check          Else SchwarzDrucken.UnCheck
 
-    if ( irgendwas(9) =  TRUE ) Then  Umgekehrt.Check               Else Umgekehrt.UnCheck
-    if ( irgendwas(10) = TRUE ) Then  Prospekt.Check                Else Prospekt.UnCheck
+    if ( bCheckboxStatus(5) = TRUE ) Then  Prospekt.Check                Else Prospekt.UnCheck
 
-    if ( irgendwas(11) = TRUE ) Then  EinzelneDruckauftraege.Check  Else EinzelneDruckauftraege.UnCheck
-    if ( irgendwas(12) = TRUE ) Then  AusDruckereinstellung.Check   Else AusDruckereinstellung.UnCheck
+    if ( bCheckboxStatus(6) = TRUE ) Then  LeereSeitenDrucken.Check  Else LeereSeitenDrucken.UnCheck
+    if ( bCheckboxStatus(7) = TRUE ) Then  AusDruckereinstellung.Check   Else AusDruckereinstellung.UnCheck
 
     try
         Fax.Select (iListBox(1))
     '(3) = Variabel
 
     Call hNewDocument
-    printlog ("'///- Tools/Options/HTML: Table ///")
+    printlog ("- Tools/Options/HTML: Table ")
 
-    printlog ("'/// - save states ///")
+    printlog (" - save states ")
     ToolsOptions
     Call hToolsOptions ("HTML","Table")
 
 
     if ((bRadioBut(1) Xor bRadioBut(2) Xor bRadioBut(3)) = False) Then Warnlog (" RadioButtons have NO init state: " + bRadioBut(1) +", BugID: 83097")
 
-    printlog ("'/// - all states inverting ///")
+    printlog (" - all states inverting ")
 
     VerschiebenZeile.ToMax
     VerschiebenSpalte.ToMax
     Kontext "ExtrasOptionenDlg"
     ExtrasOptionenDlg.OK
 
-    printlog ("'/// - SO quit - start ///")
+    printlog (" - SO quit - start ")
 
     Call wOfficeRestart
 
-    printlog ("'/// - checking states ///")
+    printlog (" - checking states ")
     ToolsOptions
     Call hToolsOptions ( "HTML" , "Table" )
 
     Kontext "ExtrasOptionenDlg"
     ExtrasOptionenDlg.OK
 
-    printlog ("'/// - all UnCheck -> o ///")
+    printlog (" - all UnCheck -> o ")
     ToolsOptions
     Call hToolsOptions ( "HTML" , "Table" )
 
     sTempMetricField(2) = VerschiebenSpalte.GetText
     sTempMetricField(3) = EinfuegenZeile.GetText
     sTempMetricField(4) = EinfuegenSpalte.GetText
-    printlog ("'/// More test ///'")
+    printlog (" More test ///'")
     VerschiebenZeile.More
     VerschiebenSpalte.More
     EinfuegenZeile.More
     Kontext "ExtrasOptionenDlg"
     ExtrasOptionenDlg.OK
 
-    printlog ("'/// - check if all UnChecked ///")
+    printlog (" - check if all UnChecked ")
     ToolsOptions
     Call hToolsOptions ( "HTML" , "Table" )
 
     if ( bTempRadioBut(2) <> FixProportional.IsChecked) Then WarnLog "Behaviour of rows/columns : 'Fixed, proportional' state changed"
     if ( bTempRadioBut(3) <> Variabel.IsChecked       ) Then WarnLog "Behaviour of rows/columns : 'Variable' state changed"
 
-    Printlog ("'/// - all Check -> x ///")
+    Printlog (" - all Check -> x ")
 
     VerschiebenZeile.ToMax
     VerschiebenSpalte.ToMax
     sTempMetricField(2) = VerschiebenSpalte.GetText
     sTempMetricField(3) = EinfuegenZeile.GetText
     sTempMetricField(4) = EinfuegenSpalte.GetText
-    printlog ("'/// Less test ///'")
+    printlog (" Less test ///'")
     VerschiebenZeile.Less
     VerschiebenSpalte.Less
     EinfuegenZeile.Less
     Kontext "ExtrasOptionenDlg"
     ExtrasOptionenDlg.OK
 
-    printlog ("'/// - check if all Checked ///")
+    printlog (" - check if all Checked ")
     ToolsOptions
     Call hToolsOptions ( "HTML" , "Table" )
 
     if ( bTempRadioBut(2) <> FixProportional.IsChecked) Then WarnLog "Behaviour of rows/columns : 'Fixed, proportional' state changed"
     if ( bTempRadioBut(3) <> Variabel.IsChecked       ) Then WarnLog "Behaviour of rows/columns : 'Variable' state changed"
 
-    printlog ("'/// - restore states ///")
+    printlog (" - restore states ")
 
     VerschiebenZeile.SetText  (sMetricField(1))
     VerschiebenSpalte.SetText (sMetricField(2))
     '/// This testcase check for this bug ///
 
     Call hNewDocument
-    printlog ("'///- Tools/Options/Text document: Table ///")
+    printlog ("- Tools/Options/Text document: Table ")
 
     ToolsOptions
     Call hToolsOptions ("WRITER","Table")

File testautomation/writer/optional/includes/option/wr_o_1.inc

     Call hToolsOptions ("WRITER","VIEW")
 
     option_value(1) = GrafikenUndObjekte.IsChecked
-    option_value(2) = Tabellen.IsChecked
-    option_value(3) = Zeichnungen.IsChecked
-    option_value(4) = Feldname.IsChecked
-    option_value(5) = Notizen.IsChecked
+    option_value(2) = Zeichnungen.IsChecked
+    option_value(3) = Feldname.IsChecked
+    option_value(4) = Notizen.IsChecked
 
     printlog ("'/// - all states inverting ///")
 
     if option_value(1) then GrafikenUndObjekte.UnCheck else GrafikenUndObjekte.Check
-    if option_value(2) then Tabellen.UnCheck else Tabellen.Check
-    if option_value(3) then Zeichnungen.UnCheck else Zeichnungen.Check
-    if option_value(4) then Feldname.UnCheck else Feldname.Check
-    if option_value(5) then Notizen.UnCheck else Notizen.Check
+    if option_value(2) then Zeichnungen.UnCheck else Zeichnungen.Check
+    if option_value(3) then Feldname.UnCheck else Feldname.Check
+    if option_value(4) then Notizen.UnCheck else Notizen.Check
 
     Kontext "ExtrasOptionenDlg"
     ExtrasOptionenDlg.OK
     ToolsOptions
     Call hToolsOptions ( "WRITER" , "VIEW" )
 
-    if ( option_value(1) = GrafikenUndObjekte.IsChecked ) then WarnLog "GrafikenUndObjekte state changed"
-    if ( option_value(2) = Tabellen.IsChecked  ) then WarnLog "Tabellen state changed"
-    if ( option_value(3) = Zeichnungen.IsChecked  ) then WarnLog "Zeichnungen state changed"
-    if ( option_value(4) = Feldname.IsChecked  ) then  WarnLog "Feldname state changed"
-    if ( option_value(5) = Notizen.IsChecked  ) then  WarnLog "Notizen state changed"
+    if ( option_value(1) = GrafikenUndObjekte.IsChecked ) then WarnLog "Graphics and objects state changed"
+    if ( option_value(2) = Zeichnungen.IsChecked  ) then WarnLog "Zeichnungen state changed"
+    if ( option_value(3) = Feldname.IsChecked  ) then  WarnLog "Feldname state changed"
+    if ( option_value(4) = Notizen.IsChecked  ) then  WarnLog "Notizen state changed"
 
     Kontext "ExtrasOptionenDlg"
     ExtrasOptionenDlg.OK
     Call hToolsOptions ("WRITER","VIEW")
 
     option_value(1) = GrafikenUndObjekte.IsChecked
-    option_value(2) = Tabellen.IsChecked
-    option_value(3) = Zeichnungen.IsChecked
-    option_value(4) = Feldname.IsChecked
-    option_value(5) = Notizen.IsChecked
+    option_value(2) = Zeichnungen.IsChecked
+    option_value(3) = Feldname.IsChecked
+    option_value(4) = Notizen.IsChecked
 
     printlog ("'/// - all states unchecked ///")
 
     GrafikenUndObjekte.UnCheck
-    Tabellen.UnCheck
     Zeichnungen.UnCheck
     Feldname.UnCheck
     Notizen.UnCheck
     ToolsOptions
     Call hToolsOptions ( "WRITER" , "VIEW" )
 
-    if GrafikenUndObjekte.IsChecked then WarnLog "GrafikenUndObjekte x"
-    if Tabellen.IsChecked then WarnLog "Tabellen x"
+    if GrafikenUndObjekte.IsChecked then WarnLog "Graphics and objects x"
     if Zeichnungen.IsChecked then WarnLog "Zeichnungen x"
     if Feldname.IsChecked then  WarnLog "Feldname x"
     if Notizen.IsChecked then  WarnLog "Notizen x"
     
     printlog ("'/// - restore states ///")
     if ( option_value(1) = TRUE ) Then  GrafikenUndObjekte.Check Else GrafikenUndObjekte.UnCheck
-    if ( option_value(2) = TRUE ) Then  Tabellen.Check Else Tabellen.UnCheck
-    if ( option_value(3) = TRUE ) Then  Zeichnungen.Check Else Zeichnungen.UnCheck
-    if ( option_value(4) = TRUE ) Then  Feldname.Check Else Feldname.UnCheck
-    if ( option_value(5) = TRUE ) Then  Notizen.Check Else Notizen.UnCheck
+    if ( option_value(2) = TRUE ) Then  Zeichnungen.Check Else Zeichnungen.UnCheck
+    if ( option_value(3) = TRUE ) Then  Feldname.Check Else Feldname.UnCheck
+    if ( option_value(4) = TRUE ) Then  Notizen.Check Else Notizen.UnCheck
 
     Kontext "ExtrasOptionenDlg"
     ExtrasOptionenDlg.OK
     Call hToolsOptions ("WRITER","VIEW")
 
     option_value(1) = GrafikenUndObjekte.IsChecked
-    option_value(2) = Tabellen.IsChecked
-    option_value(3) = Zeichnungen.IsChecked
-    option_value(4) = Feldname.IsChecked
-    option_value(5) = Notizen.IsChecked
+    option_value(2) = Zeichnungen.IsChecked
+    option_value(3) = Feldname.IsChecked
+    option_value(4) = Notizen.IsChecked
 
     printlog ("'/// - all Check -> x ///")
 
     GrafikenUndObjekte.Check
-    Tabellen.Check
     Zeichnungen.Check
     Feldname.Check
     Notizen.Check
     ToolsOptions
     hToolsOptions ( "WRITER" , "VIEW" )
 
-    if true <> GrafikenUndObjekte.IsChecked then WarnLog "GrafikenUndObjekte o"
-    if true <> Tabellen.IsChecked then WarnLog "Tabellen."
+    if true <> GrafikenUndObjekte.IsChecked then WarnLog "Graphics and objects o"
     if true <> Zeichnungen.IsChecked then WarnLog "Zeichnungen o"
     if true <> Feldname.IsChecked then  WarnLog "Feldname o"
     if true <> Notizen.IsChecked then  WarnLog "Notizen o"

File testautomation/writer/optional/includes/option/wr_o_2.inc

     ' sMetricField(i) and sTempMetricField(i)
     '(1) = Grafiken
     '(2) = Tabellen
-    '(3) = Zeichnungen
     '(4) = Kontrollfelder
     '(5) = Hintergrund
     '(6) = SchwarzDrucken
     '
     '(7) = LinkeSeiten
     '(8) = RechteSeiten
-    '(9) = Umgekehrt
     '(10)= Prospekt
     '
     '(11)= EinzelneDruckauftraege
     Call hToolsOptions ("WRITER","PRINT")
 
     bCheckboxes(1) = Grafiken.IsChecked
-    bCheckboxes(2) = Tabellen.IsChecked
-    bCheckboxes(3) = Zeichnungen.IsChecked
-    bCheckboxes(4) = Kontrollfelder.IsChecked
-    bCheckboxes(5) = Hintergrund.IsChecked
-    bCheckboxes(6) = SchwarzDrucken.IsChecked
+    bCheckboxes(2) = Kontrollfelder.IsChecked
+    bCheckboxes(3) = Hintergrund.IsChecked
+    bCheckboxes(4) = SchwarzDrucken.IsChecked
+    bCheckboxes(5) = HiddenText.IsChecked
+    bCheckboxes(6) = TextPlaceholder.IsChecked
 
     bCheckboxes(7) = LinkeSeiten.IsChecked
     bCheckboxes(8) = RechteSeiten.IsChecked
-    bCheckboxes(9) = Umgekehrt.IsChecked
-    bCheckboxes(10)= Prospekt.IsChecked
+    bCheckboxes(9)= Prospekt.IsChecked
 
-    bCheckboxes(11)= EinzelneDruckauftraege.IsChecked
-    bCheckboxes(12)= AusDruckereinstellung.IsChecked
-    bCheckboxes(13)= LeereSeitenDrucken.IsChecked
+    bCheckboxes(10)= LeereSeitenDrucken.IsChecked
+    bCheckboxes(11)= AusDruckereinstellung.IsChecked
 
     iListBox(1) = Fax.GetSelText
 
 
     printlog ("'/// - all states inverting ///")
 
-    if bCheckboxes(1) then Grafiken.UnCheck               else Grafiken.Check
-    if bCheckboxes(2) then Tabellen.UnCheck               else Tabellen.Check
-    if bCheckboxes(3) then Zeichnungen.UnCheck            else Zeichnungen.Check
-    if bCheckboxes(4) then Kontrollfelder.UnCheck         else Kontrollfelder.Check
-    if bCheckboxes(5) then Hintergrund.UnCheck            else Hintergrund.Check
-    if bCheckboxes(6) then SchwarzDrucken.UnCheck         else SchwarzDrucken.Check
+    if bCheckboxes(1) then Grafiken.UnCheck             else Grafiken.Check
+    if bCheckboxes(2) then Kontrollfelder.UnCheck       else Kontrollfelder.Check
+    if bCheckboxes(3) then Hintergrund.UnCheck          else Hintergrund.Check
+    if bCheckboxes(4) then SchwarzDrucken.UnCheck       else SchwarzDrucken.Check
+    if bCheckboxes(5) then HiddenText.UnCheck           else HiddenText.Check
+    if bCheckboxes(6) then TextPlaceholder.UnCheck      else TextPlaceholder.Check
 
-    if bCheckboxes(7) then LinkeSeiten.UnCheck            else LinkeSeiten.Check
-    if bCheckboxes(8) then RechteSeiten.UnCheck           else RechteSeiten.Check
-    if bCheckboxes(9) then Umgekehrt.UnCheck              else Umgekehrt.Check
-    if bCheckboxes(10) then Prospekt.UnCheck               else Prospekt.Check
+    if bCheckboxes(7) then LinkeSeiten.UnCheck          else LinkeSeiten.Check
+    if bCheckboxes(8) then RechteSeiten.UnCheck         else RechteSeiten.Check
+    if bCheckboxes(9) then Prospekt.UnCheck            else Prospekt.Check
 
-    if bCheckboxes(11) then EinzelneDruckauftraege.UnCheck else EinzelneDruckauftraege.Check
-    if bCheckboxes(12) then AusDruckereinstellung.UnCheck  else AusDruckereinstellung.Check
-    if bCheckboxes(13) then LeereSeitenDrucken.UnCheck  else LeereSeitenDrucken.Check
+    if bCheckboxes(10) then LeereSeitenDrucken.UnCheck else LeereSeitenDrucken.Check
+    if bCheckboxes(11) then AusDruckereinstellung.UnCheck  else AusDruckereinstellung.Check
 
     if (Keine.IsChecked = True) then NurNotizen.Check else Keine.Check
 
     ToolsOptions
     Call hToolsOptions ( "WRITER" , "PRINT" )
 
-    if ( bCheckboxes(1) = Grafiken.IsChecked               ) then WarnLog "Grafiken state changed"
-    if ( bCheckboxes(2) = Tabellen.IsChecked               ) then WarnLog "Tabellen state changed"
-    if ( bCheckboxes(3) = Zeichnungen.IsChecked            ) then WarnLog "Zeichnungen state changed"
-    if ( bCheckboxes(4) = Kontrollfelder.IsChecked         ) then WarnLog "Kontrollfelder state changed"
-    if ( bCheckboxes(5) = Hintergrund.IsChecked            ) then WarnLog "Hintergrund state changed"
-    if ( bCheckboxes(6) = SchwarzDrucken.IsChecked         ) then WarnLog "SchwarzDrucken state changed"
+    if ( bCheckboxes(1) = Grafiken.IsChecked        ) then WarnLog "Grafiken state changed"
+    if ( bCheckboxes(2) = Kontrollfelder.IsChecked  ) then WarnLog "Kontrollfelder state changed"
+    if ( bCheckboxes(3) = Hintergrund.IsChecked     ) then WarnLog "Hintergrund state changed"
+    if ( bCheckboxes(4) = SchwarzDrucken.IsChecked  ) then WarnLog "SchwarzDrucken state changed"
+    if ( bCheckboxes(5) = HiddenText.IsChecked      ) then WarnLog "HiddenText state changed"
+    if ( bCheckboxes(6) = TextPlaceholder.IsChecked ) then WarnLog "TextPlaceholder state changed"
 
     if ( bCheckboxes(7) = LinkeSeiten.IsChecked            ) then WarnLog "LinkeSeiten state changed"
     if ( bCheckboxes(8) = RechteSeiten.IsChecked           ) then WarnLog "RechteSeiten state changed"
-    if ( bCheckboxes(9) = Umgekehrt.IsChecked              ) then WarnLog "Umgekehrt state changed"
-    if ( bCheckboxes(10)= Prospekt.IsChecked               ) then WarnLog "Prospekt state changed"
+    if ( bCheckboxes(9)= Prospekt.IsChecked               ) then WarnLog "Prospekt state changed"
 
-    if ( bCheckboxes(11)= EinzelneDruckauftraege.IsChecked ) then WarnLog "EinzelneDruckauftraege state changed"
-    if ( bCheckboxes(12)= AusDruckereinstellung.IsChecked  ) then WarnLog "AusDruckereinstellung state changed"
-    if ( bCheckboxes(13)= LeereSeitenDrucken.IsChecked  ) then WarnLog "'Print automatically inserted blank pages' state changed"
+    if ( bCheckboxes(10)= LeereSeitenDrucken.IsChecked  ) then WarnLog "'Print automatically inserted blank pages' state changed"
+    if ( bCheckboxes(11)= AusDruckereinstellung.IsChecked  ) then WarnLog "AusDruckereinstellung state changed"
 
     if ( Fax.GetSelIndex <> iTempListBox(1) ) Then warnlog "Fax state changed"
 
     printlog ("'/// - all UnCheck -> o ///")
 
     Grafiken.UnCheck
-    Tabellen.UnCheck
-    Zeichnungen.UnCheck
     Kontrollfelder.UnCheck
     Hintergrund.UnCheck
     SchwarzDrucken.UnCheck
+    HiddenText.UnCheck
+    TextPlaceholder.UnCheck
 
     LinkeSeiten.UnCheck
     RechteSeiten.UnCheck
-    Umgekehrt.UnCheck
     Prospekt.UnCheck
 
-    EinzelneDruckauftraege.UnCheck
+    LeereSeitenDrucken.UnCheck
     AusDruckereinstellung.UnCheck
 
     if (NurNotizen.IsChecked = True) then Dokumentende.Check else NurNotizen.Check
     ToolsOptions
     Call hToolsOptions ( "WRITER" , "PRINT" )
 
-    if Grafiken.IsChecked       then WarnLog "Grafiken x"
-    if Tabellen.IsChecked       then WarnLog "Tabellen x"
-    if Zeichnungen.IsChecked    then WarnLog "Zeichnungen x"
-    if Kontrollfelder.IsChecked then WarnLog "Kontrollfelder x"
-    if Hintergrund.IsChecked    then WarnLog "Hintergrund x"
-    if SchwarzDrucken.IsChecked then WarnLog "SchwarzDrucken x"
+    if Grafiken.IsChecked           then WarnLog "Grafiken is checked"
+    if Kontrollfelder.IsChecked     then WarnLog "Kontrollfelder is checked"
+    if Hintergrund.IsChecked        then WarnLog "Hintergrund is checked"
+    if SchwarzDrucken.IsChecked     then WarnLog "SchwarzDrucken is checked"
+    if HiddenText.IsChecked         then WarnLog "HiddenText is checked"
+    if TextPlaceholder.IsChecked    then WarnLog "TextPlaceholder is checked"
 
-    if LinkeSeiten.IsChecked    then WarnLog "LinkeSeiten x"
-    if RechteSeiten.IsChecked   then WarnLog "RechteSeiten x"
-    if Umgekehrt.IsChecked      then WarnLog "Umgekehrt x"
-    if Prospekt.IsChecked       then WarnLog "Prospekt x"
+    if LinkeSeiten.IsChecked    then WarnLog "LinkeSeiten is checked"
+    if RechteSeiten.IsChecked   then WarnLog "RechteSeiten is checked"
+    if Prospekt.IsChecked       then WarnLog "Prospekt is checked"
 
-    if EinzelneDruckauftraege.IsChecked then WarnLog "EinzelneDruckauftraege x"
-    if AusDruckereinstellung.IsChecked  then WarnLog "AusDruckereinstellung x"
+    if LeereSeitenDrucken.IsChecked then WarnLog "LeereSeitenDrucken is checked"
+    if AusDruckereinstellung.IsChecked  then WarnLog "AusDruckereinstellung is checked"
 
     if ( bTempRadioBut(1) <> Keine.IsChecked       ) then WarnLog "Keine state changed"
     if ( bTempRadioBut(2) <> NurNotizen.IsChecked  ) then WarnLog "NurNotizen state changed"
     Printlog ("'/// - all Check -> x ///")
 
     Grafiken.Check
-    Tabellen.Check
-    Zeichnungen.Check
     Kontrollfelder.Check
     Hintergrund.Check
     SchwarzDrucken.Check
+    HiddenText.Check
+    TextPlaceholder.Check
 
     LinkeSeiten.Check
     RechteSeiten.Check
-    Umgekehrt.Check
     Prospekt.Check
 
-    EinzelneDruckauftraege.Check
+    LeereSeitenDrucken.Check
     AusDruckereinstellung.Check
 
     if (Dokumentende.IsChecked = True) then Seitenende.Check else Dokumentende.Check
     ToolsOptions
     Call hToolsOptions ( "WRITER" , "PRINT" )
 
-    if not Grafiken.IsChecked                then WarnLog "Grafiken o"
-    if not Tabellen.IsChecked                then WarnLog "Tabellen o"
-    if not Zeichnungen.IsChecked             then WarnLog "Zeichnungen o"
-    if not Kontrollfelder.IsChecked          then WarnLog "Kontrollfelder o"
-    if not Hintergrund.IsChecked             then WarnLog "Hintergrund o"
-    if not SchwarzDrucken.IsChecked          then WarnLog "SchwarzDrucken o"
+    if not Grafiken.IsChecked           then WarnLog "Grafiken is unchecked"
+    if not Kontrollfelder.IsChecked     then WarnLog "Kontrollfelder is unchecked"
+    if not Hintergrund.IsChecked        then WarnLog "Hintergrund is unchecked"
+    if not SchwarzDrucken.IsChecked     then WarnLog "SchwarzDrucken is unchecked"
+    if not HiddenText.IsChecked         then WarnLog "HiddenText is unchecked "
+    if not TextPlaceholder.IsChecked    then WarnLog "TextPlaceholder is unchecked"
 
-    if not LinkeSeiten.IsChecked             then WarnLog "LinkeSeiten o"
-    if not RechteSeiten.IsChecked            then WarnLog "RechteSeiten o"
-    if not Umgekehrt.IsChecked               then WarnLog "Umgekehrt o"
-    if not Prospekt.IsChecked                then WarnLog "Prospekt o"
+    if not LinkeSeiten.IsChecked             then WarnLog "LinkeSeiten is unchecked"
+    if not RechteSeiten.IsChecked            then WarnLog "RechteSeiten is unchecked"
+    if not Prospekt.IsChecked                then WarnLog "Prospekt is unchecked"
 
-    if not EinzelneDruckauftraege.IsChecked  then WarnLog "EinzelneDruckauftraege o"
-    if not AusDruckereinstellung.IsChecked   then WarnLog "AusDruckereinstellung o"
+    if not LeereSeitenDrucken.IsChecked  then WarnLog "LeereSeitenDrucken is unchecked"
+    if not AusDruckereinstellung.IsChecked   then WarnLog "AusDruckereinstellung is unchecked"
 
     ' This state will be saved with the document
     if ( bTempRadioBut(1) <> Keine.IsChecked       ) then WarnLog "Keine state changed"
     ToolsOptions
     Call hToolsOptions ( "WRITER" , "PRINT" )
 
-    if ( bCheckboxes(1) =  TRUE ) then  Grafiken.Check                else Grafiken.UnCheck
-    if ( bCheckboxes(2) =  TRUE ) then  Tabellen.Check                else Tabellen.UnCheck
-    if ( bCheckboxes(3) =  TRUE ) then  Zeichnungen.Check             else Zeichnungen.UnCheck
-    if ( bCheckboxes(4) =  TRUE ) then  Kontrollfelder.Check          else Kontrollfelder.UnCheck
-    if ( bCheckboxes(5) =  TRUE ) then  Hintergrund.Check             else Hintergrund.UnCheck
-    if ( bCheckboxes(6) =  TRUE ) then  SchwarzDrucken.Check          else SchwarzDrucken.UnCheck
+    if ( bCheckboxes(1) = TRUE ) then Grafiken.Check else Grafiken.Uncheck
+    if ( bCheckboxes(2) = TRUE ) then Kontrollfelder.Check else Kontrollfelder.UnCheck
+    if ( bCheckboxes(3) = TRUE ) then Hintergrund.Check else Hintergrund.Uncheck
+    if ( bCheckboxes(4) = TRUE ) then SchwarzDrucken.Check else  SchwarzDrucken.UnCheck
+    if ( bCheckboxes(5) = TRUE ) then HiddenText.check else HiddenText.Uncheck
+    if ( bCheckboxes(6) = TRUE ) then TextPlaceholder.check else TextPlaceholder.Uncheck
 
-    if ( bCheckboxes(7) =  TRUE ) then  LinkeSeiten.Check             else LinkeSeiten.UnCheck
-    if ( bCheckboxes(8) =  TRUE ) then  RechteSeiten.Check            else RechteSeiten.UnCheck
-    if ( bCheckboxes(9) =  TRUE ) then  Umgekehrt.Check               else Umgekehrt.UnCheck
-    if ( bCheckboxes(10) = TRUE ) then  Prospekt.Check                else Prospekt.UnCheck
+    if ( bCheckboxes(7) = TRUE ) then LinkeSeiten.Check else LinkeSeiten.Uncheck
+    if ( bCheckboxes(8) = TRUE ) then RechteSeiten.Check else RechteSeiten.Uncheck
+    if ( bCheckboxes(9) = TRUE ) then Prospekt.Check else Prospekt.Uncheck
 
-    if ( bCheckboxes(11) = TRUE ) then  EinzelneDruckauftraege.Check  else EinzelneDruckauftraege.UnCheck
-    if ( bCheckboxes(12) = TRUE ) then  AusDruckereinstellung.Check   else AusDruckereinstellung.UnCheck
-    if ( bCheckboxes(13) = TRUE ) then  LeereSeitenDrucken.Check   else LeereSeitenDrucken.UnCheck
+    if ( bCheckboxes(10) = TRUE ) then LeereSeitenDrucken.Check else LeereSeitenDrucken.UnCheck
+    if ( bCheckboxes(11) = TRUE ) then AusDruckereinstellung.Check else AusDruckereinstellung.UnCheck
 
     try
         Fax.Select (iListBox(1))

File testautomation/writer/optional/includes/option/wr_o_4.inc

     '- !!! -Current Document only- ist bei office beenden zu beachten!!!
 
     Call hNewDocument
-    printlog ("'///- Tools/Options/Writer: General ///")
+    printlog ("- Tools/Options/Writer: General ")
 
-    printlog ("'/// - save states ///")
+    printlog (" - save states ")
     ToolsOptions
     Call hToolsOptions ("WRITER","GENERAL")
 
     iMasseinheit = Masseinheit.GetSelIndex
     sTabAbstand = Tabulatorenabstand.GetText
 
-    printlog ("'/// - all states inverting ///")
+    printlog ("- all states inverting ")
 
     if irgendwas(2) Then Feldbefehle.UnCheck Else Feldbefehle.Check
     if Feldbefehle.IsChecked  Then if irgendwas(3) Then Diagramme.UnCheck Else Diagramme.Check
     Kontext "ExtrasOptionenDlg"
     ExtrasOptionenDlg.OK
 
-    printlog ("'/// - SO quit - start ///")
+    printlog ("- SO quit - start ")
 
     Call wOfficeRestart
 
-    printlog ("'/// - checking states ///")
+    printlog ("- checking states ")
     ToolsOptions
     Call hToolsOptions ( "WRITER" , "GENERAL" )
 
     Kontext "ExtrasOptionenDlg"
     ExtrasOptionenDlg.OK
 
-    printlog ("'/// - all UnCheck -> o ///")
+    printlog ("- all UnCheck -> o ")
     ToolsOptions
     Call hToolsOptions ( "WRITER" , "GENERAL" )
 
     Masseinheit.Select (1)
     Tabulatorenabstand.ToMin
     sTemp = Tabulatorenabstand.GetText
-    printlog ("'/// More test ///'")
+    printlog ("More test ///'")
     Tabulatorenabstand.More
     if ( sTemp = Tabulatorenabstand.GetText ) Then WarnLog "Tabulatorenabstand More-Button not working; stemp1: "+sTemp + " =? (2) " +Tabulatorenabstand.GetText
     sTemp = Tabulatorenabstand.GetText
     Kontext "ExtrasOptionenDlg"
     ExtrasOptionenDlg.OK
 
-    printlog ("'/// - check if all UnChecked ///")
+    printlog ("- check if all UnChecked ")
     ToolsOptions
     Call hToolsOptions ( "WRITER" , "GENERAL" )
 
 
 '---------------------------------------------------------------------------------
 
-    printlog ("'///  check if tab stops get saved in document ///")
+    printlog ("- check if tab stops get saved in document ")
     Call hNewDocument
 
     ' set Default Tab Stop to 2,5cm
     Call hCloseDocument
 
 '---------------------------------------------------------------------------------
-    Printlog ("'/// - all Check -> x ///")
+    Printlog ("- all Check -> x ")
 
     ToolsOptions
     Call hToolsOptions ("WRITER","GENERAL")
     Kontext "ExtrasOptionenDlg"
     ExtrasOptionenDlg.OK
 
-    printlog ("'/// - check if all Checked ///")
+    printlog ("- check if all Checked ")
     ToolsOptions
     Call hToolsOptions ( "WRITER" , "GENERAL" )
 
     if ( Masseinheit.GetSelIndex <> iTemp ) Then WarnLog "Masseinheit is not item " + iTemp + " it's: " + Masseinheit.GetSelIndex
     if (LiberalMeasurement (sTemp,Tabulatorenabstand.GetText) <> TRUE ) Then WarnLog "Tabulatorenabstand is not " + sTemp + " it's: " + Tabulatorenabstand.GetText
 
-    printlog ("'/// - restore states ///")
+    printlog ("- restore states ")
 
 '   if ( irgendwas(1) =  TRUE ) Then NurFuerAktuellesDokument.Check            Else NurFuerAktuellesDokument.UnCheck
     if ( irgendwas(2) =  TRUE ) Then Feldbefehle.Check                         Else Feldbefehle.UnCheck
     fHoleTabPage2 = ConvertPath(gOfficePath + "user\work\opt2_" + iSprache + "." + gPlatGroup)
 
     '------------------------
-    Printlog "'///(1/3) Get all items before selecting smth. ///"
+    Printlog "(1/3) Get all items before selecting smth. "
     ' put them in lsHoleTabPage and write them to 'user\work\opt__...'
 
     Call hNewDocument
 
 '   ------------------------
 
-    Printlog "'///(2/3) Select every ListItem & exit with OK ///"
+    Printlog "(2/3) Select every ListItem & exit with OK "
     ToolsOptions
     Call hToolsOptions ("WRITER","AutoCaption")
     Kontext "TabAutoCaption"
     ExtrasOptionenDlg.OK
 
     '------------------------
-    Printlog "'///(3/3) Get all items after selecting all ///"
+    Printlog "(3/3) Get all items after selecting all "
     ' put them in lsHoleTabPage2 and write them to 'user\work\opt2_...'
 
     ToolsOptions
 
     '/// !no more Listentries than 9, you have to update the allocation for the var's! ///'
     Call hNewDocument
-    printlog "'///- Tools/Options/Writer: AutoCaption ///"
+    printlog "- Tools/Options/Writer: AutoCaption "
 
-    printlog ("'/// - save states ///")
+    printlog ("- save states ")
     ToolsOptions
     Call hToolsOptions ("WRITER","AutoCaption")
     Kontext "TabAutoCaption"
     next i
 
     '-- just checking the checkboxes of 'ObjectList'
-    printlog ("'/// - uncheck all object - checkboxes ///")
+    printlog ("- uncheck all object - checkboxes ")
     for i=1 to NumberOfObjects
         ObjectList.Select (i)
         ObjectList.UnCheck
     Kontext "ExtrasOptionenDlg"
     ExtrasOptionenDlg.OK
     
-    printlog ("'/// - verify if all unchecked and check all ///")
+    printlog ("- verify if all unchecked and check all ")
     ToolsOptions
     Call hToolsOptions ("WRITER","AutoCaption")
     Kontext "TabAutoCaption"
     Kontext "ExtrasOptionenDlg"
     ExtrasOptionenDlg.OK
 
-    printlog ("'/// - verify all checkboxes are checked ///")
+    printlog ("- verify all checkboxes are checked ")
     ToolsOptions
     Call hToolsOptions ("WRITER","AutoCaption")
     Kontext "TabAutoCaption"
         end if
     next i
 
-    printlog ("'/// - change states ///")
+    printlog ("- change states ")
     '/// look if properties get saved for each list item
     for i=1 to NumberOfObjects
         ObjectList.Select (i)
+        printlog " - " & ObjectList.GetText
         if ObjectList.IsChecked Then
             if i <= 7 then Numbering.Select i
             CaptionSeparator.Settext "Caption Separator " & cstr(i)
                     ApplyBorderAndShadow.Check
                 case 4:
                     Category.Select 5
-                    Position.Select 2
                 case 5:
                     Category.Select 2
-                    Position.Select 1
                 case 6:
                     Category.Select 3
-                    Position.Select 2
                 case 7:
                     Category.Select 4
-                    Position.Select 1
                 case 8:
                     Category.Select 5
                     if Numbering.GetItemCount > 7 then
                     else
                         Numbering.Select 4
                     end if
-                    Position.Select 2
                 case 9:
                     Category.Select 2
                     if Numbering.GetItemCount > 7 then
                     else
                         Numbering.Select 5
                     end if
-                    Position.Select 1
 
                 end select
                 vCategoryTmp(i) = Category.GetSelText
     Kontext "ExtrasOptionenDlg"
     ExtrasOptionenDlg.OK
 
-    printlog ("'/// - SO quit - start ///")
+    printlog ("- SO quit - start")
 
     Call wOfficeRestart
 
-    printlog ("'/// - checking states ///")
+    printlog ("- checking states ")
     ToolsOptions
     Call hToolsOptions ("WRITER","AutoCaption")
     Kontext "TabAutoCaption"
     for i=1 to NumberOfObjects
-        printlog "-   checking: " & ObjectList.Gettext
         ObjectList.Select (i)
+        printlog " - " & ObjectList.GetText
 		wait 500
         if ObjectList.IsChecked Then
             if i <= 7 then
                     end if
 
                 case 4:
-                    if Position.GetSelIndex <> 2 then
-                        Warnlog "-    'Position' changed after restart"
+                    if Position.IsEnabled = true then
+                        Warnlog "-    'Position' should be disabled"
                     else
-                        printlog "-    'Position' => ok"
+                        printlog "-    'Position' disabled => ok"
                     end if
 
                 case 5:
-                    if Position.GetSelIndex <> 1 then
-                        Warnlog "-    'Position' changed after restart"
+                    if Position.IsEnabled = true then
+                        Warnlog "-    'Position' should be disabled"
                     else
-                        printlog "-    'Position' => ok"
+                        printlog "-    'Position' disabled => ok"
                     end if
 
                 case 6:
-                    if Position.GetSelIndex <> 2 then
-                        Warnlog "-    'Position' changed after restart"
+                    if Position.IsEnabled = true then
+                        Warnlog "-    'Position' should be disabled"
                     else
-                        printlog "-    'Position' => ok"
+                        printlog "-    'Position' disabled => ok"
                     end if
 
                 case 7:
-                    if Position.GetSelIndex <> 1 then
-                        Warnlog "-    'Position' changed after restart"
+                    if Position.IsEnabled = true then
+                        Warnlog "-    'Position' should be disabled"
                     else
-                        printlog "-    'Position' => ok"
+                        printlog "-    'Position' disabled => ok"
                     end if
 
                 case 8:
                         end if
                     end if
 
-                    if Position.GetSelIndex <> 2 then
-                        Warnlog "-    'Position' changed after restart"
+                    if Position.IsEnabled = true then
+                        Warnlog "-    'Position' should be disabled"
                     else
-                        printlog "-    'Position' => ok"
+                        printlog "-    'Position' disabled => ok"
                     end if
 
                 case 9:
                         end if
                     end if
 
-                    if Position.GetSelIndex <> 1 then
-                        Warnlog "-    'Position' changed after restart"
+                    if Position.IsEnabled = true then
+                        Warnlog "-    'Position' should be disabled"
                     else
-                        printlog "-    'Position' => ok"
+                        printlog "-    'Position' disabled => ok"
                     end if
 
             end select
     Kontext "ExtrasOptionenDlg"
     ExtrasOptionenDlg.OK
 
-    printlog ("'/// - restore states ///")
+    printlog ("- restore states ")
 
     ToolsOptions
     Call hToolsOptions ("WRITER","AutoCaption")
 
     ' State is saved with document. Thats why I use 3 docs
     Call hNewDocument
-    printlog "'///- Extras / Optionen / Sonstiges / Verkn?pfungen aktualisieren ///"
+    printlog "- Extras / Optionen / Sonstiges / Verkn?pfungen aktualisieren "
     ToolsOptions
     Call hToolsOptions("WRITER","GENERAL")
-    printlog "'///- Update links when loading -> always ///"
+    printlog "- Update links when loading -> always "
     Immer.Check
     Kontext "ExtrasOptionenDlg"
     ExtrasOptionenDlg.OK
     ToolsOptions
     Call hToolsOptions("WRITER","GENERAL")
     if not Immer.IsChecked then Warnlog "Option 'always' has not been changed"
-    printlog "'///- Update links when loading -> On request ///"
+    printlog "- Update links when loading -> On request "
     AufNachfrage.Check
     Kontext "ExtrasOptionenDlg"
     ExtrasOptionenDlg.OK
     ToolsOptions
     Call hToolsOptions("WRITER","GENERAL")
     if not AufNachfrage.IsChecked then Warnlog "Option 'On request' has been changed"
-    printlog "'///- Update links when loading -> Never ///"
+    printlog "- Update links when loading -> Never "
     Nie.Check
     Kontext "ExtrasOptionenDlg"
     ExtrasOptionenDlg.OK
 testcase tToolsOptionsWriterMailMerge
 
     Call hNewDocument
-    printlog ("'///- Tools/Options/Writer: Mail Merge ///")
+    printlog ("- Tools/Options/Writer: Mail Merge ")
     Kontext "Navigator"
     if Navigator.Exists then ViewNavigator
     ToolsOptions

File testautomation/writer/optional/includes/option/wr_o_a.inc

     Call hToolsOptions("WRITER","PRINT")
 
     Grafiken.Check
-    Tabellen.Check
-    Zeichnungen.Check
     Kontrollfelder.Check
     Hintergrund.Check
     SchwarzDrucken.Check
     LinkeSeiten.Check
     RechteSeiten.Check
-    Umgekehrt.Check
-
     Prospekt.UnCheck
 
     Seitenende.Check
     Printlog "  - uncheck everything"
 
     Grafiken.UnCheck
-    Tabellen.UnCheck
-    Zeichnungen.UnCheck
     Kontrollfelder.UnCheck
     Hintergrund.UnCheck
     SchwarzDrucken.UnCheck
     LinkeSeiten.Check               ' that's so, otherwise there will be no printing
     RechteSeiten.Check              ' that's so, otherwise there will be no printing
-    Umgekehrt.UnCheck
     Prospekt.UnCheck
     Keine.Check
     AusDruckereinstellung.UnCheck

File testautomation/writer/tools/includes/w_tools.inc

         WeichesScrollen.Uncheck
         ' Display
         GrafikenUndObjekte.Check
-        Tabellen.Check
         Zeichnungen.Check
         Feldname.Uncheck
         Notizen.Check
         Call hToolsOptions("WRITER","Print")
         ' Contents
         Grafiken.Check
-        Tabellen.Check
-        Zeichnungen.Check
         Kontrollfelder.Check
         Hintergrund.Check
         SchwarzDrucken.Uncheck
         ' Pages
         LinkeSeiten.Check
         RechteSeiten.Check
-        Umgekehrt.Uncheck
         Prospekt.Uncheck
         ' Notes
         Keine.Check
         ' Other
-        EinzelneDruckauftraege.Uncheck
+        LeereSeitenDrucken.Check
         AusDruckereinstellung.Uncheck
         Fax.SetNoSelection
     end if