vitomation01: #i109562 - Added issue #i111909 for failing to access rename menuitem in context menu, reformatted files to coding standards (Partially)

5 files changed, 1618 insertions, 1620 deletions

diff --git a/testautomation/writer/optional/includes/undo/w_undo1.inc b/testautomation/writer/optional/includes/undo/w_undo1.inc
index c4c602dc6373..9fe34e5880a7 100644
--- a/testautomation/writer/optional/includes/undo/w_undo1.inc
+++ b/testautomation/writer/optional/includes/undo/w_undo1.inc
@@ -28,11 +28,6 @@
 '*
 '* short description : Writer Undo/Redo - Test
 '*
-'************************************************************************
-'*
-' #1 tEditUndoRedo
-' #1 tEditUndoTOX		' undo with table of contents
-'*
 '\***********************************************************************
 
 testcase tEditUndoRedo
@@ -142,216 +137,216 @@ endcase
 testcase tEditUndoTOX
     QaErrorLog "tEditUndoTOX outcommented due to makeover."
     goto endsub
-    
-	Dim CompareThis as string, Compare1 as string, Compare2 as string, Compare3 as string
-	Dim CompareWith1 as string, CompareWith2 as string, MenuEntryEnabled as boolean
-	' Strings depends on the language so this testcase has to be adapted for all languages
-	Select Case iSprache
-		Case 1:	Compare1 = "Undo: "
-				Compare2 = "Insert index/table"
-				Compare3 = "Remove index/table"
-		Case 49:Compare1 = "R�ckg�ngig"
-				Compare2 = "Einf�gen Verzeichnis"
-				Compare3 = "Verzeichnis aufheben"
-		Case else:
-				QAErrorlog "Please adapt this testcase for this language!"
-				Compare1 = "Undo: "
-				Compare2 = "Insert index/table"
-				Compare3 = "Remove index/table"
-	end select
-	CompareWith1 = Compare1 & Compare2
-	CompareWith2 = Compare1 & Compare3	
-	
-	'/// Open a new writerdocument
-	Call hNewDocument
 
-	'/// Insert an index in document
-	printlog "Insert Index"
-	InsertIndexes
+    Dim CompareThis as string, Compare1 as string, Compare2 as string, Compare3 as string
+    Dim CompareWith1 as string, CompareWith2 as string, MenuEntryEnabled as boolean
+    ' Strings depends on the language so this testcase has to be adapted for all languages
+    Select Case iSprache
+    Case 1:	Compare1 = "Undo: "
+        Compare2 = "Insert index/table"
+        Compare3 = "Remove index/table"
+    Case 49:Compare1 = "R�ckg�ngig"
+        Compare2 = "Einf�gen Verzeichnis"
+        Compare3 = "Verzeichnis aufheben"
+    Case else:
+        QAErrorlog "Please adapt this testcase for this language!"
+        Compare1 = "Undo: "
+        Compare2 = "Insert index/table"
+        Compare3 = "Remove index/table"
+    end select
+    CompareWith1 = Compare1 & Compare2
+    CompareWith2 = Compare1 & Compare3
+
+    '/// Open a new writerdocument
+    Call hNewDocument
+
+    '/// Insert an index in document
+    printlog "Insert Index"
+    InsertIndexes
 
-	Kontext
+    Kontext
     Active.Setpage TabVerzeichnisseVerzeichnis
     Kontext "TabVerzeichnisseVerzeichnis"
-	Verzeichnistitel.Settext "MyUndoRedoIndex"
-	TabVerzeichnisseVerzeichnis.Ok
-	
-	'/// Check if Edit/Undo menu shows 'Undo: Insert Index'
-	Call hUseMenu()
-	try
-		MenuSelect(Menugetitemid(2))	' Opens the Edit - Menu
-		MenuEntryEnabled = True
-	catch
-		MenuEntryEnabled = False
-	endcatch
-	if MenuEntryEnabled = True then
-		CompareThis = hhEntferneTilde(MenuGetItemText(Menugetitemid(1))) 
-		Call MenuSelect(0)
-		if CompareWith1 > "" then
-			if CompareThis <> CompareWith1 then
-				Warnlog "Edit / Undo entry is wrong: " & CompareThis
-				else
-					printlog " - Menu Edit / Undo is ok"
-				end if
-		else
-			QAErrorLog "Use this string in this testcase: " & CompareThis
-			Call hCloseDocument
-			goto endsub
-		end if
-	else
-		Warnlog "Edit / Undo in menu is disabled !"
-	end if
-	
-	Kontext "DocumentWriter"
-	DocumentWriter.TypeKeys "<Up><Home>"
-	Wait 500
-	'/// Check if Undo dropdown-Icon shows:	'Insert index'
-	Select Case CheckUndoEntry ( 1, Compare2 )
-		Case 0:	Warnlog " - Undo-dropdown is disabled!"
-		Case 1:	Warnlog " - Entry in Undo-dropdown is wrong!"
-		Case 2:	printlog " - Entry in Undo-dropdown is ok!"
-	end select
-	
-	'/// Update index with context menu entry: Update index"
-	Kontext "DocumentWriter"
-	DocumentWriter.OpenContextMenu
-	' Update Index/table in context menu
-	printlog "Update Index"
-	Call MenuSelect(Menugetitemid(7))
+    Verzeichnistitel.Settext "MyUndoRedoIndex"
+    TabVerzeichnisseVerzeichnis.Ok
+
+    '/// Check if Edit/Undo menu shows 'Undo: Insert Index'
+    Call hUseMenu()
+    try
+        MenuSelect(Menugetitemid(2))	' Opens the Edit - Menu
+        MenuEntryEnabled = True
+    catch
+        MenuEntryEnabled = False
+    endcatch
+    if MenuEntryEnabled = True then
+        CompareThis = hhEntferneTilde(MenuGetItemText(Menugetitemid(1)))
+        Call MenuSelect(0)
+        if CompareWith1 > "" then
+            if CompareThis <> CompareWith1 then
+                Warnlog "Edit / Undo entry is wrong: " & CompareThis
+            else
+                printlog " - Menu Edit / Undo is ok"
+            end if
+        else
+            QAErrorLog "Use this string in this testcase: " & CompareThis
+            Call hCloseDocument
+            goto endsub
+        end if
+    else
+        Warnlog "Edit / Undo in menu is disabled !"
+    end if
+
+    Kontext "DocumentWriter"
+    DocumentWriter.TypeKeys "<Up><Home>"
+    Wait 500
+    '/// Check if Undo dropdown-Icon shows:	'Insert index'
+    Select Case CheckUndoEntry ( 1, Compare2 )
+    Case 0:	Warnlog " - Undo-dropdown is disabled!"
+    Case 1:	Warnlog " - Entry in Undo-dropdown is wrong!"
+    Case 2:	printlog " - Entry in Undo-dropdown is ok!"
+    end select
+
+    '/// Update index with context menu entry: Update index"
+    Kontext "DocumentWriter"
+    DocumentWriter.OpenContextMenu
+    ' Update Index/table in context menu
+    printlog "Update Index"
+    Call MenuSelect(Menugetitemid(7))
+
+    '/// Check if Edit/Undo menu shows 'Undo: Insert Index' after index update
+    Call hUseMenu()
+    try
+        MenuSelect(Menugetitemid(2))	' Opens the Edit - Menu
+        MenuEntryEnabled = True
+    catch
+        MenuEntryEnabled = False
+    endcatch
+    if MenuEntryEnabled = True then
+        CompareThis = hhEntferneTilde(MenuGetItemText(Menugetitemid(1)))
+        Call MenuSelect(0)
+        if CompareWith1 > "" then
+            if CompareThis <> CompareWith1 then
+                Warnlog "Edit / Undo entry is wrong: " & CompareThis
+            else
+                printlog " - Menu Edit / Undo is ok"
+            end if
+        else
+            QAErrorLog "Use this string in this testcase: " & CompareThis
+            Call hCloseDocument
+            goto endsub
+        end if
+    else
+        Warnlog "Edit / Undo in menu is disabled !"
+    end if
 
-	'/// Check if Edit/Undo menu shows 'Undo: Insert Index' after index update
-	Call hUseMenu()
-	try
-		MenuSelect(Menugetitemid(2))	' Opens the Edit - Menu
-		MenuEntryEnabled = True
-	catch
-		MenuEntryEnabled = False
-	endcatch
-	if MenuEntryEnabled = True then
-		CompareThis = hhEntferneTilde(MenuGetItemText(Menugetitemid(1)))
-		Call MenuSelect(0)
-		if CompareWith1 > "" then
-			if CompareThis <> CompareWith1 then
-				Warnlog "Edit / Undo entry is wrong: " & CompareThis
-				else
-					printlog " - Menu Edit / Undo is ok"
-				end if
-		else
-			QAErrorLog "Use this string in this testcase: " & CompareThis
-			Call hCloseDocument
-			goto endsub
-		end if
-	else
-		Warnlog "Edit / Undo in menu is disabled !"
-	end if
-	
-	Kontext "DocumentWriter"
-	DocumentWriter.TypeKeys "<Up><Home>" 
-	Wait 500
-	'/// Check if Undo dropdown-Icon shows: 'Insert index' after index update
-	Select Case CheckUndoEntry ( 1, Compare2 )
-		Case 0:	Warnlog " - Undo-dropdown is disabled!"
-		Case 1:	Warnlog " - Entry in Undo-dropdown is wrong!"
-		Case 2:	printlog " - Entry in Undo-dropdown is ok!"
-	end select
-	
-	'/// Delete index with context menu entry: Delete index"
-	Kontext "DocumentWriter"
-	DocumentWriter.OpenContextMenu
-	' Delete Index/table in context menu
-	printlog "Remove Index"
-	Call MenuSelect(Menugetitemid(9))
+    Kontext "DocumentWriter"
+    DocumentWriter.TypeKeys "<Up><Home>"
+    Wait 500
+    '/// Check if Undo dropdown-Icon shows: 'Insert index' after index update
+    Select Case CheckUndoEntry ( 1, Compare2 )
+    Case 0:	Warnlog " - Undo-dropdown is disabled!"
+    Case 1:	Warnlog " - Entry in Undo-dropdown is wrong!"
+    Case 2:	printlog " - Entry in Undo-dropdown is ok!"
+    end select
 
-	'/// Check if Edit/Undo menu shows 'Undo: Remove index' after deleting index
-	Call hUseMenu()
-	try
-		MenuSelect(Menugetitemid(2))	' Opens the Edit - Menu
-		MenuEntryEnabled = True
-	catch
-		MenuEntryEnabled = False
-	endcatch
-	if MenuEntryEnabled = True then
-		CompareThis = hhEntferneTilde(MenuGetItemText(Menugetitemid(1))) 
-		Call MenuSelect(0)
-		if CompareWith2 > "" then
-			if CompareThis <> CompareWith2 then
-				Warnlog "Edit / Undo entry is wrong: " & CompareThis
-				else
-					printlog " - Menu Edit / Undo is ok"
-				end if
-		else
-			QAErrorLog "Use this string in this testcase: " & CompareThis
-			Call hCloseDocument
-			goto endsub
-		end if
-	else
-		Warnlog "Edit / Undo in menu is disabled !"
-	end if
-	
-	Kontext "DocumentWriter"
-	DocumentWriter.TypeKeys "<Up><Home>"
-	Wait 500
-	'/// Check if Undo dropdown-Icon shows: 'Remove index' after deleting index
-	Select Case CheckUndoEntry ( 1, Compare3 )
-		Case 0:	Warnlog " - Undo-dropdown is disabled!"
-		Case 1:	Warnlog " - Entry in Undo-dropdown is wrong!"
-		Case 2:	printlog " - Entry in Undo-dropdown is ok!"
-	end select
-	
-	printlog "Working undo"
-	'/// Edit / Undo 1 time -> Index should be restored
-	EditUndo
-	Sleep 1
-	Call wNavigatorAuswahl ( 10, 1 )
-	wait 500
-	InsertIndexes
+    '/// Delete index with context menu entry: Delete index"
+    Kontext "DocumentWriter"
+    DocumentWriter.OpenContextMenu
+    ' Delete Index/table in context menu
+    printlog "Remove Index"
+    Call MenuSelect(Menugetitemid(9))
 
-	wait 500
-	Kontext
+    '/// Check if Edit/Undo menu shows 'Undo: Remove index' after deleting index
+    Call hUseMenu()
     try
-		Active.Setpage TabVerzeichnisseVerzeichnis
-	catch
-		Warnlog "Index dialog has not been opened!"
-		Call hCloseDocument
-		goto endsub
-	endcatch
+        MenuSelect(Menugetitemid(2))	' Opens the Edit - Menu
+        MenuEntryEnabled = True
+    catch
+        MenuEntryEnabled = False
+    endcatch
+    if MenuEntryEnabled = True then
+        CompareThis = hhEntferneTilde(MenuGetItemText(Menugetitemid(1)))
+        Call MenuSelect(0)
+        if CompareWith2 > "" then
+            if CompareThis <> CompareWith2 then
+                Warnlog "Edit / Undo entry is wrong: " & CompareThis
+            else
+                printlog " - Menu Edit / Undo is ok"
+            end if
+        else
+            QAErrorLog "Use this string in this testcase: " & CompareThis
+            Call hCloseDocument
+            goto endsub
+        end if
+    else
+        Warnlog "Edit / Undo in menu is disabled !"
+    end if
 
-    Kontext "TabVerzeichnisseVerzeichnis"	
-	if Verzeichnistitel.Gettext = "MyUndoRedoIndex" then
-		printlog " - Index has been restored"
-		TabVerzeichnisseVerzeichnis.Cancel
-		'/// Check if Undo dropdown-Icon shows: 'Insert index'
-		Select Case CheckUndoEntry ( 1, Compare2 )
-			Case 0:	Warnlog " - Undo-dropdown is disabled!"
-			Case 1:	Warnlog " - Entry in Undo-dropdown is wrong!"
-			Case 2:	printlog " - Entry in Undo-dropdown is ok!"
-		end select
+    Kontext "DocumentWriter"
+    DocumentWriter.TypeKeys "<Up><Home>"
+    Wait 500
+    '/// Check if Undo dropdown-Icon shows: 'Remove index' after deleting index
+    Select Case CheckUndoEntry ( 1, Compare3 )
+    Case 0:	Warnlog " - Undo-dropdown is disabled!"
+    Case 1:	Warnlog " - Entry in Undo-dropdown is wrong!"
+    Case 2:	printlog " - Entry in Undo-dropdown is ok!"
+    end select
 
-		'/// Check if Redo dropdown-Icon shows: 'Remove index' after deleting index
-		Select Case CheckRedoEntry ( 1, Compare3 )
-			Case 0:	Warnlog " - Redo-dropdown is disabled!"
-			Case 1:	Warnlog " - Entry in Redo-dropdown is wrong!"
-			Case 2:	printlog " - Entry in Redo-dropdown is ok!"
-		end select
+    printlog "Working undo"
+    '/// Edit / Undo 1 time -> Index should be restored
+    EditUndo
+    Sleep 1
+    Call wNavigatorAuswahl ( 10, 1 )
+    wait 500
+    InsertIndexes
 
-		'/// Edit / Undo one more time 
-		'/// Check if Undo dropdown-Icon is disabled
-		Select Case CheckUndoEntry ( 1, Compare2 )
-			Case 0:	printlog " - Undo-dropdown is disabled!"
-			Case 1:	Warnlog " - Entry in Undo-dropdown is enabled!"
-			Case 2:	Warnlog " - Entry in Undo-dropdown is enabled!"
-		end select
+    wait 500
+    Kontext
+    try
+        Active.Setpage TabVerzeichnisseVerzeichnis
+    catch
+        Warnlog "Index dialog has not been opened!"
+        Call hCloseDocument
+        goto endsub
+    endcatch
+
+    Kontext "TabVerzeichnisseVerzeichnis"
+    if Verzeichnistitel.Gettext = "MyUndoRedoIndex" then
+        printlog " - Index has been restored"
+        TabVerzeichnisseVerzeichnis.Cancel
+        '/// Check if Undo dropdown-Icon shows: 'Insert index'
+        Select Case CheckUndoEntry ( 1, Compare2 )
+        Case 0:	Warnlog " - Undo-dropdown is disabled!"
+        Case 1:	Warnlog " - Entry in Undo-dropdown is wrong!"
+        Case 2:	printlog " - Entry in Undo-dropdown is ok!"
+        end select
+
+        '/// Check if Redo dropdown-Icon shows: 'Remove index' after deleting index
+        Select Case CheckRedoEntry ( 1, Compare3 )
+        Case 0:	Warnlog " - Redo-dropdown is disabled!"
+        Case 1:	Warnlog " - Entry in Redo-dropdown is wrong!"
+        Case 2:	printlog " - Entry in Redo-dropdown is ok!"
+        end select
 
-		'/// Check if Redo dropdown-Icon shows: 'Insert index' after Undo 2 times
-		Select Case CheckRedoEntry ( 1, Compare2 )
-			Case 0:	Warnlog " - Redo-dropdown is disabled!"
-			Case 1:	Warnlog " - Entry in Redo-dropdown is wrong!"
-			Case 2:	printlog " - Entry in Redo-dropdown is ok!"
-		end select
+        '/// Edit / Undo one more time
+        '/// Check if Undo dropdown-Icon is disabled
+        Select Case CheckUndoEntry ( 1, Compare2 )
+        Case 0:	printlog " - Undo-dropdown is disabled!"
+        Case 1:	Warnlog " - Entry in Undo-dropdown is enabled!"
+        Case 2:	Warnlog " - Entry in Undo-dropdown is enabled!"
+        end select
 
-	else
-		Warnlog "Index has not been removed!"
-		TabVerzeichnisseVerzeichnis.Cancel
-	end if
+        '/// Check if Redo dropdown-Icon shows: 'Insert index' after Undo 2 times
+        Select Case CheckRedoEntry ( 1, Compare2 )
+        Case 0:	Warnlog " - Redo-dropdown is disabled!"
+        Case 1:	Warnlog " - Entry in Redo-dropdown is wrong!"
+        Case 2:	printlog " - Entry in Redo-dropdown is ok!"
+        end select
 
-	Call hCloseDocument
+    else
+        Warnlog "Index has not been removed!"
+        TabVerzeichnisseVerzeichnis.Cancel
+    end if
+
+    Call hCloseDocument
 endcase
diff --git a/testautomation/writer/optional/includes/undo/w_undo_history_1.inc b/testautomation/writer/optional/includes/undo/w_undo_history_1.inc
index 43356c09017c..72fe352b2319 100755..100644
--- a/testautomation/writer/optional/includes/undo/w_undo_history_1.inc
+++ b/testautomation/writer/optional/includes/undo/w_undo_history_1.inc
@@ -33,172 +33,172 @@
 
 sub w_undo_history_1
 
-	' a < 20 characters long string
-	Call tUndoOverwrite		' Typing & Overwrite
-	Call tUndoFindAndReplace		' Replace
-	Call tUndoReplaceAll		' Replace all & Delete
-	Call tUndoSort		' Sort
-	Call tUndoTableConvert		' Text convert to table
+    ' a < 20 characters long string
+    Call tUndoOverwrite		' Typing & Overwrite
+    Call tUndoFindAndReplace		' Replace
+    Call tUndoReplaceAll		' Replace all & Delete
+    Call tUndoSort		' Sort
+    Call tUndoTableConvert		' Text convert to table
 
 end sub
 
 testcase tUndoOverwrite
 
-	'/// new document
-	Call hNewDocument
-	'/// <U><B>CHECK: Typing</B></U>
-	printlog "- TYPING"
-	'/// write a < 20 characters long string: If20CharactersThere
-	Call wTypeKeys "If20CharactersThere"
-	'/// string in Undo list has to be: Typing: If20CharactersThere
-	Call CheckUndoStringInUndoList ( 1, "'If20Char...rsThere'" )
-    
-	'/// <U><B>CHECK: Overwrite</B></U>
-	printlog "- OVERWRITE"
-	'/// press 'Home' key
-	Call wTypeKeys "<Home>"
-	'/// press 'Ins' key
-	Call wTypeKeys "<Insert>"
-	'/// write a < 20 characters long string: IsThatDifferent4You
-	Call wTypeKeys "IsThatDifferent4You"
-	'/// string in Undo list has to be: Overwrite: IsThatDifferent4You
-	Call CheckUndoStringInUndoList ( 2, "'IsThatDifferent4You'" )
-    
-	'/// CloseDocument
-	Call hCloseDocument
+    '/// new document
+    Call hNewDocument
+    '/// <U><B>CHECK: Typing</B></U>
+    printlog "- TYPING"
+    '/// write a < 20 characters long string: If20CharactersThere
+    Call wTypeKeys "If20CharactersThere"
+    '/// string in Undo list has to be: Typing: If20CharactersThere
+    Call CheckUndoStringInUndoList ( 1, "'If20Char...rsThere'" )
+
+    '/// <U><B>CHECK: Overwrite</B></U>
+    printlog "- OVERWRITE"
+    '/// press 'Home' key
+    Call wTypeKeys "<Home>"
+    '/// press 'Ins' key
+    Call wTypeKeys "<Insert>"
+    '/// write a < 20 characters long string: IsThatDifferent4You
+    Call wTypeKeys "IsThatDifferent4You"
+    '/// string in Undo list has to be: Overwrite: IsThatDifferent4You
+    Call CheckUndoStringInUndoList ( 2, "'IsThatDifferent4You'" )
+
+    '/// CloseDocument
+    Call hCloseDocument
 endcase
 
 testcase tUndoFindAndReplace
 
-	'/// new Document
-	'/// <U><B>CHECK: Replace</B></U>
-	printlog "- REPLACE"
-	Call hNewDocument
-	'/// write a < 20 characters long string: If20CharactersThere
-	Call wTypeKeys "If20CharactersThere"
-	'/// Select text
-	Call wTypeKeys "<Shift Home>"
-	'/// Edit / Find and Replace
-	EditSearchAndReplace
-	Kontext "FindAndReplace"
-	'/// Type 'ThisReplacementText' in 'Replace with' field
-	ReplaceWith.Settext "ThisReplacementText"
-	'/// Choose Button 'Replace' and close dialog
-	ReplaceBtn.Click
-	wait 500
-	Kontext "Active"
-	if Active.Exists then
-		if Active.GetRT = 304 then
-			try
-				Active.Yes
-			catch
-				Active.Ok
-			endcatch
-		end if
-	end if
-	Kontext "FindAndReplace"
-	FindAndReplace.Close
-	Kontext "DocumentWriter"
-	'/// string in Undo list has to be: Replace: 'IsThatDifferent4You' -> 'ThisReplacementText'
-	Call CheckUndoStringInUndoList ( 3, "'If20CharactersThere' -> 'ThisReplacementText'" )
-
-	'/// Close document
-	Call hCloseDocument
+    '/// new Document
+    '/// <U><B>CHECK: Replace</B></U>
+    printlog "- REPLACE"
+    Call hNewDocument
+    '/// write a < 20 characters long string: If20CharactersThere
+    Call wTypeKeys "If20CharactersThere"
+    '/// Select text
+    Call wTypeKeys "<Shift Home>"
+    '/// Edit / Find and Replace
+    EditSearchAndReplace
+    Kontext "FindAndReplace"
+    '/// Type 'ThisReplacementText' in 'Replace with' field
+    ReplaceWith.Settext "ThisReplacementText"
+    '/// Choose Button 'Replace' and close dialog
+    ReplaceBtn.Click
+    wait 500
+    Kontext "Active"
+    if Active.Exists then
+        if Active.GetRT = 304 then
+            try
+                Active.Yes
+            catch
+                Active.Ok
+            endcatch
+        end if
+    end if
+    Kontext "FindAndReplace"
+    FindAndReplace.Close
+    Kontext "DocumentWriter"
+    '/// string in Undo list has to be: Replace: 'IsThatDifferent4You' -> 'ThisReplacementText'
+    Call CheckUndoStringInUndoList ( 3, "'If20CharactersThere' -> 'ThisReplacementText'" )
+
+    '/// Close document
+    Call hCloseDocument
 endcase
 
 
 testcase tUndoReplaceAll
-	Dim CheckString as string
-	
-	'///  new document
-	'/// <U><B>CHECK: Replace all</B></U>
-	printlog "- REPLACE ALL"
-	Call hNewDocument
-	'/// Insert the dummy text and point cursor at the top of the document
-	Call wBlindtextEinfuegen
-	Call wTypeKeys "<Mod1 Home>"
-	'/// Edit / Find and Replace
-	EditSearchAndReplace
-	Kontext "FindAndReplace"
-	'/// Type 'and' in 'Search for' field
-	SearchFor.Settext "and"
-	'/// Type 'ThisReplacementText' in 'Replace with' field
-	ReplaceWith.Settext "###"
-	'/// Choose Button 'Replace' and close dialog
-	ReplaceAll.Click
-	wait 500
-	Kontext "Active"
-	if Active.Exists then
-		if Active.GetRT = 304 then Active.Ok
-	end if
-	Kontext "FindAndReplace"
-	FindAndReplace.Close
-
-	Kontext "DocumentWriter"
-	'/// string in Undo list has to be: Replace: '14 occurences of and'
-	Call CheckUndoStringInUndoList ( 5, "14 occurences of 'and'" )
-
-	'/// <U><B>CHECK: Delete</B></U>
-	'///  Backspace 4 times to delete characters
-	Call wTypeKeys "<Backspace>", 4
-	'/// string in Undo list has to be: Delete: '###'
-	printlog "- DELETE"
-	Call CheckUndoStringInUndoList ( 11, "' ###'" )
-
-	'/// Close document
-	Call hCloseDocument
+    Dim CheckString as string
+
+    '///  new document
+    '/// <U><B>CHECK: Replace all</B></U>
+    printlog "- REPLACE ALL"
+    Call hNewDocument
+    '/// Insert the dummy text and point cursor at the top of the document
+    Call wBlindtextEinfuegen
+    Call wTypeKeys "<Mod1 Home>"
+    '/// Edit / Find and Replace
+    EditSearchAndReplace
+    Kontext "FindAndReplace"
+    '/// Type 'and' in 'Search for' field
+    SearchFor.Settext "and"
+    '/// Type 'ThisReplacementText' in 'Replace with' field
+    ReplaceWith.Settext "###"
+    '/// Choose Button 'Replace' and close dialog
+    ReplaceAll.Click
+    wait 500
+    Kontext "Active"
+    if Active.Exists then
+        if Active.GetRT = 304 then Active.Ok
+    end if
+    Kontext "FindAndReplace"
+    FindAndReplace.Close
+
+    Kontext "DocumentWriter"
+    '/// string in Undo list has to be: Replace: '14 occurences of and'
+    Call CheckUndoStringInUndoList ( 5, "14 occurences of 'and'" )
+
+    '/// <U><B>CHECK: Delete</B></U>
+    '///  Backspace 4 times to delete characters
+    Call wTypeKeys "<Backspace>", 4
+    '/// string in Undo list has to be: Delete: '###'
+    printlog "- DELETE"
+    Call CheckUndoStringInUndoList ( 11, "' ###'" )
+
+    '/// Close document
+    Call hCloseDocument
 endcase
 
 
 testcase tUndoSort
 
-	'/// new document
-	Call hNewDocument
-	'/// CHECK: Text sort
-	printlog "- TEXT SORT"
-	'/// Enter some text like "This<Return>is a<Return>test<Return>"
-	Call wTypeKeys "This"
-	Call wTypeKeys "<Return>"
-	Call wTypeKeys "is a"
-	Call wTypeKeys "<Return>"
-	Call wTypeKeys "test"
-	Call wTypeKeys "<Return>"
-	'/// Select all and Tools -> Sort
-	Call wTypeKeys "<Mod1 A>"
-	ToolsSort
+    '/// new document
+    Call hNewDocument
+    '/// CHECK: Text sort
+    printlog "- TEXT SORT"
+    '/// Enter some text like "This<Return>is a<Return>test<Return>"
+    Call wTypeKeys "This"
+    Call wTypeKeys "<Return>"
+    Call wTypeKeys "is a"
+    Call wTypeKeys "<Return>"
+    Call wTypeKeys "test"
+    Call wTypeKeys "<Return>"
+    '/// Select all and Tools -> Sort
+    Call wTypeKeys "<Mod1 A>"
+    ToolsSort
     Kontext "Sortieren"
     Sortieren.Ok
-	
-	'/// string in Undo list has to be: "Sort text"
-	Call CheckUndoStringInUndoList ( 6, "Sort text" )
-	
-	'/// Close document
-	Call hCloseDocument
+
+    '/// string in Undo list has to be: "Sort text"
+    Call CheckUndoStringInUndoList ( 6, "Sort text" )
+
+    '/// Close document
+    Call hCloseDocument
 endcase
 
 
 testcase tUndoTableConvert
 
-	'/// new document
-	Call hNewDocument
-	'/// CHECK: Text convert to table
-	printlog "TEXT CONVERT TO TABLE"
-	'/// Enter some text like "This<Return>is a<Return>test<Return>"
-	Call wTypeKeys "This"
-	Call wTypeKeys "<Return>"
-	Call wTypeKeys "is a"
-	Call wTypeKeys "<Return>"
-	Call wTypeKeys "test"
-	Call wTypeKeys "<Return>"
-	'/// Select all and Tools - Text <> Table
-	Call wTypeKeys "<Mod1 A>"
-	ToolsTextInTable
-	Kontext "TextInTabelleUmwandeln"
-	Absatz.Check
-	TextInTabelleUmwandeln.Ok
-	'/// string in Undo list has to be: "Convert text -> table"
-	Call CheckUndoStringInUndoList ( 7, "Convert text -> table" )
-	
-	'/// Close document
-	Call hCloseDocument
+    '/// new document
+    Call hNewDocument
+    '/// CHECK: Text convert to table
+    printlog "TEXT CONVERT TO TABLE"
+    '/// Enter some text like "This<Return>is a<Return>test<Return>"
+    Call wTypeKeys "This"
+    Call wTypeKeys "<Return>"
+    Call wTypeKeys "is a"
+    Call wTypeKeys "<Return>"
+    Call wTypeKeys "test"
+    Call wTypeKeys "<Return>"
+    '/// Select all and Tools - Text <> Table
+    Call wTypeKeys "<Mod1 A>"
+    ToolsTextInTable
+    Kontext "TextInTabelleUmwandeln"
+    Absatz.Check
+    TextInTabelleUmwandeln.Ok
+    '/// string in Undo list has to be: "Convert text -> table"
+    Call CheckUndoStringInUndoList ( 7, "Convert text -> table" )
+
+    '/// Close document
+    Call hCloseDocument
 endcase
diff --git a/testautomation/writer/optional/includes/undo/w_undo_history_2.inc b/testautomation/writer/optional/includes/undo/w_undo_history_2.inc
index a2f305a45f8c..5104b29af85b 100755..100644
--- a/testautomation/writer/optional/includes/undo/w_undo_history_2.inc
+++ b/testautomation/writer/optional/includes/undo/w_undo_history_2.inc
@@ -33,496 +33,496 @@
 
 sub w_undo_history_2
 
-	' a > 20 characters long string
-	Call tUndoOverwriteLong			' Typing & Overwrite
-	Call tUndoFindAndReplaceLong			' Replace
-	Call tUndoDeleteMultiSelection			' Delete a multi-selection
-	Call tUndoParagraph			' Paragraphs
-	Call tUndoClipboard		' Copy/Paste
-	Call tUndoChanges		' Changes accept an reject
-	Call tUndoLineBreak		' Manual breaks - line break
-	Call tUndoColumnBreak		' Manual breaks - column break
-	Call tUndoPageBreak		' Manual breaks - page break
-	Call tUndoFields		' Fields (Insert/Modify / Delete)
-	Call tUndoSpecialCharacter		' Special Character (Insert/ Delete)
-	Call tUndoStyles		' Styles (Apply/Modify/Find&Replace/Promote/Demote)
+    ' a > 20 characters long string
+    Call tUndoOverwriteLong			' Typing & Overwrite
+    Call tUndoFindAndReplaceLong			' Replace
+    Call tUndoDeleteMultiSelection			' Delete a multi-selection
+    Call tUndoParagraph			' Paragraphs
+    Call tUndoClipboard		' Copy/Paste
+    Call tUndoChanges		' Changes accept an reject
+    Call tUndoLineBreak		' Manual breaks - line break
+    Call tUndoColumnBreak		' Manual breaks - column break
+    Call tUndoPageBreak		' Manual breaks - page break
+    Call tUndoFields		' Fields (Insert/Modify / Delete)
+    Call tUndoSpecialCharacter		' Special Character (Insert/ Delete)
+    Call tUndoStyles		' Styles (Apply/Modify/Find&Replace/Promote/Demote)
 
 end sub
 
 testcase tUndoOverwriteLong
 
-	'/// <B>Typing & overwrite a > 20 characters long string</B>
-	'/// new document
-	Call hNewDocument
-	'/// <U><B>CHECK: Typing</B></U>
-	printlog "- TYPING"
-	'/// write a > 20 characters long string: ThisSentenceHasMoreThan20Characters
-	Call wTypeKeys ( "ThisSentenceHasMoreThan20Characters" )
-	'/// string in Undo list has to be: Typing: ThisSente...aracters
-	Call CheckUndoStringInUndoList ( 1, "'ThisSent...racters'" )
-
-	'/// <U><B>CHECK: Overwrite</B></U>
-	printlog "- OVERWRITE"
-	'/// press 'Home' key
-	Call wTypeKeys "<Home>"
-	'/// press 'Ins' key
-	Call wTypeKeys "<Insert>"
-	'/// write a > 20 characters long string: ThePreviousSentenceHasBeenOverwritten
-	Call wTypeKeys ( "ThePreviousSentenceHasBeenOverwritten" )
-	'/// string in Undo list has to be: Overwrite: ThePrevio...rwritten
-	Call CheckUndoStringInUndoList ( 2, "'ThePrevio...rwritten'" )
-
-	'/// CloseDocument
-	Call hCloseDocument
+    '/// <B>Typing & overwrite a > 20 characters long string</B>
+    '/// new document
+    Call hNewDocument
+    '/// <U><B>CHECK: Typing</B></U>
+    printlog "- TYPING"
+    '/// write a > 20 characters long string: ThisSentenceHasMoreThan20Characters
+    Call wTypeKeys ( "ThisSentenceHasMoreThan20Characters" )
+    '/// string in Undo list has to be: Typing: ThisSente...aracters
+    Call CheckUndoStringInUndoList ( 1, "'ThisSent...racters'" )
+
+    '/// <U><B>CHECK: Overwrite</B></U>
+    printlog "- OVERWRITE"
+    '/// press 'Home' key
+    Call wTypeKeys "<Home>"
+    '/// press 'Ins' key
+    Call wTypeKeys "<Insert>"
+    '/// write a > 20 characters long string: ThePreviousSentenceHasBeenOverwritten
+    Call wTypeKeys ( "ThePreviousSentenceHasBeenOverwritten" )
+    '/// string in Undo list has to be: Overwrite: ThePrevio...rwritten
+    Call CheckUndoStringInUndoList ( 2, "'ThePrevio...rwritten'" )
+
+    '/// CloseDocument
+    Call hCloseDocument
 endcase
 
 
 testcase tUndoFindAndReplaceLong
 
-	'/// <B>Replace a > 20 characters long string</B>
-	'/// new Document
-	'/// <U><B>CHECK: Replace</B></U>
-	printlog "- REPLACE"
-	Call hNewDocument
-	'/// write a > 20 characters long string: ThePreviousSentenceHasBeenOverwritten
-	Call wTypeKeys ( "ThePreviousSentenceHasBeenOverwritten" )
-	'/// Select text
-	Call wTypeKeys ( "<Shift Home>" )
-	'/// Edit / Find and Replace
-	EditSearchAndReplace
-	Kontext "FindAndReplace"
-	'/// Type 'ThisIsAboutALongTextThatHadToBeReplaced' in 'Replace with' field
-	ReplaceWith.Settext "ThisIsAboutALongTextThatHadToBeReplaced"
-	'/// Choose Button 'Replace' and close dialog
-	ReplaceBtn.Click
-	wait 500
-	Kontext "Active"
-	if Active.Exists then
-		if Active.GetRT = 304 then
-			try
-				Active.Yes
-			catch
-				Active.Ok
-			endcatch
-		end if
-	end if
-	Kontext "FindAndReplace"
-	FindAndReplace.Close
-	Kontext "DocumentWriter"
-	'/// string in Undo list has to be: Replace: 'ThePrevio...rwritten' -> 'ThisIsAbo...Replaced'
-	Call CheckUndoStringInUndoList ( 3, "'ThePrevio...rwritten' -> 'ThisIsAbo...Replaced'" )
-
-	'/// Close document
-	Call hCloseDocument
+    '/// <B>Replace a > 20 characters long string</B>
+    '/// new Document
+    '/// <U><B>CHECK: Replace</B></U>
+    printlog "- REPLACE"
+    Call hNewDocument
+    '/// write a > 20 characters long string: ThePreviousSentenceHasBeenOverwritten
+    Call wTypeKeys ( "ThePreviousSentenceHasBeenOverwritten" )
+    '/// Select text
+    Call wTypeKeys ( "<Shift Home>" )
+    '/// Edit / Find and Replace
+    EditSearchAndReplace
+    Kontext "FindAndReplace"
+    '/// Type 'ThisIsAboutALongTextThatHadToBeReplaced' in 'Replace with' field
+    ReplaceWith.Settext "ThisIsAboutALongTextThatHadToBeReplaced"
+    '/// Choose Button 'Replace' and close dialog
+    ReplaceBtn.Click
+    wait 500
+    Kontext "Active"
+    if Active.Exists then
+        if Active.GetRT = 304 then
+            try
+                Active.Yes
+            catch
+                Active.Ok
+            endcatch
+        end if
+    end if
+    Kontext "FindAndReplace"
+    FindAndReplace.Close
+    Kontext "DocumentWriter"
+    '/// string in Undo list has to be: Replace: 'ThePrevio...rwritten' -> 'ThisIsAbo...Replaced'
+    Call CheckUndoStringInUndoList ( 3, "'ThePrevio...rwritten' -> 'ThisIsAbo...Replaced'" )
+
+    '/// Close document
+    Call hCloseDocument
 endcase
 
 
 testcase tUndoDeleteMultiSelection
 
-	'/// <B>Delete a multi-selection</B>
-	printlog "- Delete a multi-selection"
-	'/// new Document
-	Call hNewDocument
-	'/// write down: the deletion of a multi-selection
-	Call wTypeKeys ( "the deletion of a multi-selection" )
-	'/// with Shift + F8 enter multi-selection mode
-	Call wTypeKeys ( "<SHIFT F8>" )
-	'/// multi-select "the ", " a" and "multi-"
-	Call wTypeKeys ( "<MOD1 Left>" )
-	Call wTypeKeys ( "<MOD1 SHIFT Left>", 2)
-	Call wTypeKeys ( "<Left>" )
-	Call wTypeKeys ( "<SHIFT Left>", 2)
-	Call wTypeKeys ( "<Left>" )	
-	Call wTypeKeys ( "<MOD1 Left>", 2)
-	Call wTypeKeys ( "<Left>" )
-	Call wTypeKeys ( "<MOD1 SHIFT Left>")
-	'/// Delete the multi-selection
-	Call wTypeKeys ( "<DELETE>" )
-	'/// string in Undo-list has to be: 'Delete: multi-selection'"
-	Call CheckUndoStringInUndoList ( 4, "Delete multiple selection" )
-	'/// Close document
-	Call hCloseDocument
+    '/// <B>Delete a multi-selection</B>
+    printlog "- Delete a multi-selection"
+    '/// new Document
+    Call hNewDocument
+    '/// write down: the deletion of a multi-selection
+    Call wTypeKeys ( "the deletion of a multi-selection" )
+    '/// with Shift + F8 enter multi-selection mode
+    Call wTypeKeys ( "<SHIFT F8>" )
+    '/// multi-select "the ", " a" and "multi-"
+    Call wTypeKeys ( "<MOD1 Left>" )
+    Call wTypeKeys ( "<MOD1 SHIFT Left>", 2)
+    Call wTypeKeys ( "<Left>" )
+    Call wTypeKeys ( "<SHIFT Left>", 2)
+    Call wTypeKeys ( "<Left>" )
+    Call wTypeKeys ( "<MOD1 Left>", 2)
+    Call wTypeKeys ( "<Left>" )
+    Call wTypeKeys ( "<MOD1 SHIFT Left>")
+    '/// Delete the multi-selection
+    Call wTypeKeys ( "<DELETE>" )
+    '/// string in Undo-list has to be: 'Delete: multi-selection'"
+    Call CheckUndoStringInUndoList ( 4, "Delete multiple selection" )
+    '/// Close document
+    Call hCloseDocument
 
 endcase
 
 
 testcase tUndoParagraph
 
-	'/// <B>Insert and delete a paragraph</B>
-	printlog "- Insert Paragraph"
-	'/// new document
-	Call hNewDocument
-	'/// press return to insert a new paragraph
-	Call wTypeKeys ( "<Return>" )
-	'///  string in Undo-list has to be: "New paragraph"
-	Call CheckUndoStringInUndoList ( 8, "New Paragraph" )
-	printlog "- Delete Paragraph"
-	'/// press Backspace to delete paragraph
-	Call wTypeKeys ( "<Backspace>" )
-	'///  string in Undo-list has to be: "Delete paragraph"
-	Call CheckUndoStringInUndoList ( 8, "Delete Paragraph" )
-
-	'/// close document
-	Call hCloseDocument
+    '/// <B>Insert and delete a paragraph</B>
+    printlog "- Insert Paragraph"
+    '/// new document
+    Call hNewDocument
+    '/// press return to insert a new paragraph
+    Call wTypeKeys ( "<Return>" )
+    '///  string in Undo-list has to be: "New paragraph"
+    Call CheckUndoStringInUndoList ( 8, "New Paragraph" )
+    printlog "- Delete Paragraph"
+    '/// press Backspace to delete paragraph
+    Call wTypeKeys ( "<Backspace>" )
+    '///  string in Undo-list has to be: "Delete paragraph"
+    Call CheckUndoStringInUndoList ( 8, "Delete Paragraph" )
+
+    '/// close document
+    Call hCloseDocument
 endcase
 
 
 testcase tUndoClipboard
-	Dim i as integer
-
-	'/// <B>Copy / Paste</B>
-	printlog "- Copy/Paste"
-	'/// new document
-	Call hNewDocument
-	'/// Insert some text in document and copy it
-	Call wTypeKeys ( "CopyAndPasteInUndoList" )
-	Call wTypeKeys ( "<Shift Home>" )
-	EditCopy
-	Call wTypeKeys ( "<End><Return>" )
-	'/// Paste the text in all available formats
-	For i = 1 to 4
-		Sleep 2
-		try
-			EditPasteSpecialWriter
-		catch
-			i=5
-		endcatch
-		Kontext "InhaltEinfuegen"
-		try
-			Auswahl.Select i
-			printlog " - Paste as: " + Auswahl.GetSeltext
-			wait 500
-		catch
-			Warnlog "Not 4 but " & Auswahl.GetItemCount & " Clipboard-formats"
-		endcatch
-		InhaltEinfuegen.Ok
-		'///  string in Undo-list has to be: "Paste clipboard"
-		Call CheckUndoStringInUndoList ( 9 )
-		Call wTypeKeys ( "<Return>" )
-	next i
-	'/// close document
-	Call hCloseDocument
+    Dim i as integer
+
+    '/// <B>Copy / Paste</B>
+    printlog "- Copy/Paste"
+    '/// new document
+    Call hNewDocument
+    '/// Insert some text in document and copy it
+    Call wTypeKeys ( "CopyAndPasteInUndoList" )
+    Call wTypeKeys ( "<Shift Home>" )
+    EditCopy
+    Call wTypeKeys ( "<End><Return>" )
+    '/// Paste the text in all available formats
+    For i = 1 to 4
+        Sleep 2
+        try
+            EditPasteSpecialWriter
+        catch
+            i=5
+        endcatch
+        Kontext "InhaltEinfuegen"
+        try
+            Auswahl.Select i
+            printlog " - Paste as: " + Auswahl.GetSeltext
+            wait 500
+        catch
+            Warnlog "Not 4 but " & Auswahl.GetItemCount & " Clipboard-formats"
+        endcatch
+        InhaltEinfuegen.Ok
+        '///  string in Undo-list has to be: "Paste clipboard"
+        Call CheckUndoStringInUndoList ( 9 )
+        Call wTypeKeys ( "<Return>" )
+    next i
+    '/// close document
+    Call hCloseDocument
 endcase
 
 
 testcase tUndoChanges
-	
-	'/// <B>Changes accept and reject</B>
-	printlog "- Changes accept and reject"
-	'/// new document
-	Call hNewDocument
+
+    '/// <B>Changes accept and reject</B>
+    printlog "- Changes accept and reject"
+    '/// new document
+    Call hNewDocument
     UseBindings
     '/// Select Edit / Changes / Record
     EditChangesRecord
-	'/// Insert a string in document
-	Call wTypeKeys ( "This is a test" )
-	'/// Select Edit / Changes / Accept or Reject
+    '/// Insert a string in document
+    Call wTypeKeys ( "This is a test" )
+    '/// Select Edit / Changes / Accept or Reject
     EditChangesAcceptOrReject
     '/// Dialog 'Accept or reject changes' has to come up ///
     Kontext "Redlining"
     if Redlining.Exists then
-	   '/// + Select tabpage 'List'
-	   TabControl.SetPage TabListe
-	   '/// + Select 'Accept All'
-	   Akzeptieren.Click
-	   Sleep 2
-	   '/// + Close Redlining dialog
-	   Redlining.Close
-	else
-		Warnlog "Redlining dialog not up!"
-		Call hCloseDocument
-		goto endsub
-	end if
-	'///  string in Undo-list has to be: "Accept change: Insert 'this is a test'")
-	Call CheckUndoStringInUndoList ( 10, "Accept" )
-
-	'/// Insert a line break in document
-	Call wTypeKeys ( "<Return>" )
-	'/// Insert a string in document
-	Call wTypeKeys ( "This is a test" )
-	'/// Select Edit / Changes / Accept or Reject
+        '/// + Select tabpage 'List'
+        TabControl.SetPage TabListe
+        '/// + Select 'Accept All'
+        Akzeptieren.Click
+        Sleep 2
+        '/// + Close Redlining dialog
+        Redlining.Close
+    else
+        Warnlog "Redlining dialog not up!"
+        Call hCloseDocument
+        goto endsub
+    end if
+    '///  string in Undo-list has to be: "Accept change: Insert 'this is a test'")
+    Call CheckUndoStringInUndoList ( 10, "Accept" )
+
+    '/// Insert a line break in document
+    Call wTypeKeys ( "<Return>" )
+    '/// Insert a string in document
+    Call wTypeKeys ( "This is a test" )
+    '/// Select Edit / Changes / Accept or Reject
     EditChangesAcceptOrReject
     '/// Dialog 'Accept or reject changes' has to come up ///
     Kontext "Redlining"
     if Redlining.Exists then
-	   '/// + Select tabpage 'List'
-	   TabControl.SetPage TabListe
-	   '/// + Select 'Accept All'
-	   wait 500
-	   ListItem.TypeKeys "<Up>"
-	   wait 500
-	   Ablehnen.Click
-	   Sleep 2
-	   '/// + Close Redlining dialog
-	   Redlining.Close
-	else
-		Warnlog "Redlining dialog not up!"
-		Call hCloseDocument
-		goto endsub
-	end if
-
-	'///  string in Undo-list has to be: "Reject change: Insert 'this is a test'")
-	Call CheckUndoStringInUndoList ( 10, "Reject" )
-
-	Call hCloseDocument
+        '/// + Select tabpage 'List'
+        TabControl.SetPage TabListe
+        '/// + Select 'Accept All'
+        wait 500
+        ListItem.TypeKeys "<Up>"
+        wait 500
+        Ablehnen.Click
+        Sleep 2
+        '/// + Close Redlining dialog
+        Redlining.Close
+    else
+        Warnlog "Redlining dialog not up!"
+        Call hCloseDocument
+        goto endsub
+    end if
+
+    '///  string in Undo-list has to be: "Reject change: Insert 'this is a test'")
+    Call CheckUndoStringInUndoList ( 10, "Reject" )
+
+    Call hCloseDocument
 endcase
 
 
 testcase tUndoLineBreak
 
-	'/// <B>Manual breaks (line breaks)</B>
-	printlog "Manual breaks (line breaks)"
-	printlog "- Insert line break"
-	'/// new document
-	Call hNewDocument
-	'/// Insert a line break (Shift return)
-	Call wTypeKeys ( "<SHIFT RETURN>" )
-	'///  string in Undo-list has to be: "Insert line break")
-	Call CheckUndoStringInUndoList ( 10, "InsertLineBreak" )
-
-	'/// Delete line break
-	printlog "- Delete line break"
-	Call wTypeKeys ( "<SHIFT RETURN><Backspace>" )
-	'///  string in Undo-list has to be: "Delete line break")
-	Call CheckUndoStringInUndoList ( 10, "DeleteLineBreak" )
-
-	'/// Close document
-	Call hCloseDocument
+    '/// <B>Manual breaks (line breaks)</B>
+    printlog "Manual breaks (line breaks)"
+    printlog "- Insert line break"
+    '/// new document
+    Call hNewDocument
+    '/// Insert a line break (Shift return)
+    Call wTypeKeys ( "<SHIFT RETURN>" )
+    '///  string in Undo-list has to be: "Insert line break")
+    Call CheckUndoStringInUndoList ( 10, "InsertLineBreak" )
+
+    '/// Delete line break
+    printlog "- Delete line break"
+    Call wTypeKeys ( "<SHIFT RETURN><Backspace>" )
+    '///  string in Undo-list has to be: "Delete line break")
+    Call CheckUndoStringInUndoList ( 10, "DeleteLineBreak" )
+
+    '/// Close document
+    Call hCloseDocument
 endcase
 
 
 testcase tUndoColumnBreak
 
-	'/// <B>Column breaks</B>
-	printlog "- Column breaks"
-	'/// new document
-	Call hNewDocument
-	'/// Format / Columns
-	FormatColumns
-	Kontext "FormatColumn"
-	'/// set number of columns to 2
-	Columns.Settext 2
-	FormatColumn.Ok
-	'/// Insert a column break (Strg+Shift+Return)
-	Call wTypeKeys ( "<Mod1 Shift Return>" )
-	printlog "Insert a column break"
-	'///  string in Undo-list has to be: "Insert column break") 
-	Call CheckUndoStringInUndoList ( 10, "InsertColumnBreak" )
-
-	'/// Delete a column break (Strg+Shift+Return+Backspace)
-	printlog "Delete a column break"
-	Call wTypeKeys ( "<Mod1 Shift Return><Backspace>" )
-	'///  string in Undo-list has to be: "Delete column break") 
-	Call CheckUndoStringInUndoList ( 10, "DeleteColumnBreak" )
-
-	'/// Close document
-	Call hCloseDocument
+    '/// <B>Column breaks</B>
+    printlog "- Column breaks"
+    '/// new document
+    Call hNewDocument
+    '/// Format / Columns
+    FormatColumns
+    Kontext "FormatColumn"
+    '/// set number of columns to 2
+    Columns.Settext 2
+    FormatColumn.Ok
+    '/// Insert a column break (Strg+Shift+Return)
+    Call wTypeKeys ( "<Mod1 Shift Return>" )
+    printlog "Insert a column break"
+    '///  string in Undo-list has to be: "Insert column break")
+    Call CheckUndoStringInUndoList ( 10, "InsertColumnBreak" )
+
+    '/// Delete a column break (Strg+Shift+Return+Backspace)
+    printlog "Delete a column break"
+    Call wTypeKeys ( "<Mod1 Shift Return><Backspace>" )
+    '///  string in Undo-list has to be: "Delete column break")
+    Call CheckUndoStringInUndoList ( 10, "DeleteColumnBreak" )
+
+    '/// Close document
+    Call hCloseDocument
 endcase
 
 
 testcase tUndoPageBreak
 
-	'/// <B>Page breaks</B>
-	printlog "- Page breaks"
-	'/// new document
-	Call hNewDocument
-	'/// Format / Columns
-	InsertManualBreak
-	Kontext "UmbruchEinfuegen"
-	printlog "Insert a page break"
-	Seitenumbruch.Check
-	UmbruchEinfuegen.Ok
-	'///  string in Undo-list has to be: "Insert page break") 
-	Call CheckUndoStringInUndoList ( 10, "InsertPageBreak" )
-
-	printlog "Delete a page break"
-	InsertManualBreak
-	Kontext "UmbruchEinfuegen"
-	'/// Insert a page break
-	Seitenumbruch.Check
-	UmbruchEinfuegen.Ok
-	Call wTypeKeys ( "<Backspace>" )
-	'///  string in Undo-list has to be: "Delete page break") 
-	Call CheckUndoStringInUndoList ( 10, "DeletePageBreak" )
-
-	'/// Close document
-	Call hCloseDocument
+    '/// <B>Page breaks</B>
+    printlog "- Page breaks"
+    '/// new document
+    Call hNewDocument
+    '/// Format / Columns
+    InsertManualBreak
+    Kontext "UmbruchEinfuegen"
+    printlog "Insert a page break"
+    Seitenumbruch.Check
+    UmbruchEinfuegen.Ok
+    '///  string in Undo-list has to be: "Insert page break")
+    Call CheckUndoStringInUndoList ( 10, "InsertPageBreak" )
+
+    printlog "Delete a page break"
+    InsertManualBreak
+    Kontext "UmbruchEinfuegen"
+    '/// Insert a page break
+    Seitenumbruch.Check
+    UmbruchEinfuegen.Ok
+    Call wTypeKeys ( "<Backspace>" )
+    '///  string in Undo-list has to be: "Delete page break")
+    Call CheckUndoStringInUndoList ( 10, "DeletePageBreak" )
+
+    '/// Close document
+    Call hCloseDocument
 endcase
 
 
 testcase tUndoFields
 
-	'/// <B>Fields (Insert/Modify / Delete)</B>
-	printlog "- Fields (Insert)"
-	'/// new document
-	Call hNewDocument
-	'/// Insert Field 'Date'
-	InsertFieldsDate
-	'///  string in Undo-list has to be: "Insert field") 
-	Call CheckUndoStringInUndoList ( 10, "InsertField" )
-
-	printlog "- Fields (Modify)"
-	'/// Press Home-key
-	Call wTypeKeys ( "<Home>" )
-	'/// Edit fields and select 4th entry in Format-list
-	EditFields
-	Kontext "FeldbefehlBearbeitenDokument"
-	Zahlenformat.Select 4
-	FeldbefehlBearbeitenDokument.Ok	
-	'///  string in Undo-list has to be: "Changed field") 
-	Call CheckUndoStringInUndoList ( 10, "ChangedField" )
-
-	printlog "- Fields (Delete)"
-	'/// Press delete-key
-	Call wTypeKeys ( "<Delete>" )
-	'///  string in Undo-list has to be: "Delete field") 
-	Call CheckUndoStringInUndoList ( 10, "DeleteField" )
-
-	'/// Close document
-	Call hCloseDocument
+    '/// <B>Fields (Insert/Modify / Delete)</B>
+    printlog "- Fields (Insert)"
+    '/// new document
+    Call hNewDocument
+    '/// Insert Field 'Date'
+    InsertFieldsDate
+    '///  string in Undo-list has to be: "Insert field")
+    Call CheckUndoStringInUndoList ( 10, "InsertField" )
+
+    printlog "- Fields (Modify)"
+    '/// Press Home-key
+    Call wTypeKeys ( "<Home>" )
+    '/// Edit fields and select 4th entry in Format-list
+    EditFields
+    Kontext "FeldbefehlBearbeitenDokument"
+    Zahlenformat.Select 4
+    FeldbefehlBearbeitenDokument.Ok
+    '///  string in Undo-list has to be: "Changed field")
+    Call CheckUndoStringInUndoList ( 10, "ChangedField" )
+
+    printlog "- Fields (Delete)"
+    '/// Press delete-key
+    Call wTypeKeys ( "<Delete>" )
+    '///  string in Undo-list has to be: "Delete field")
+    Call CheckUndoStringInUndoList ( 10, "DeleteField" )
+
+    '/// Close document
+    Call hCloseDocument
 endcase
 
 
 testcase tUndoSpecialCharacter
 
-	'/// <B>Special Character (Insert / Delete )</B>
-	printlog "- Special Character (Insert)"
-	'/// new document
-	Call hNewDocument
-	'/// Insert a special Character
+    '/// <B>Special Character (Insert / Delete )</B>
+    printlog "- Special Character (Insert)"
+    '/// new document
+    Call hNewDocument
+    '/// Insert a special Character
     InsertSpecialCharacterWriter
     Kontext "Sonderzeichen"
-	SchriftListe.TypeKeys "<Home>"
-	SchriftListe.TypeKeys "<Right>", 3
-	Sonderzeichen.Ok
-	'///  string in Undo-list has to be: "Insert special character") 
-	Call CheckUndoStringInUndoList ( 10, "InsertSpecialCharacter" )
-
-	printlog "- Special Character (Delete)"
-	'/// Delete special character with <Backspace>
-	Call wTypeKeys ("<Backspace>" )
-	Call CheckUndoStringInUndoList ( 10, "DeleteSpecialCharacter" )
-
-	'/// Close document
-	Call hCloseDocument
+    SchriftListe.TypeKeys "<Home>"
+    SchriftListe.TypeKeys "<Right>", 3
+    Sonderzeichen.Ok
+    '///  string in Undo-list has to be: "Insert special character")
+    Call CheckUndoStringInUndoList ( 10, "InsertSpecialCharacter" )
+
+    printlog "- Special Character (Delete)"
+    '/// Delete special character with <Backspace>
+    Call wTypeKeys ("<Backspace>" )
+    Call CheckUndoStringInUndoList ( 10, "DeleteSpecialCharacter" )
+
+    '/// Close document
+    Call hCloseDocument
 endcase
 
 
 testcase tUndoStyles
-	Dim i as integer, StyleText as string, UndoText as string
-	Dim NewStyle as string
-
-	'/// <B>Styles (Apply/Modify/Find&Replace/Promote/Demote)</B>
-	printlog "- Styles (Apply)"
-	'/// new document
-	Call hNewDocument
-	'/// type some text
-	Call wTypeKeys ( "I have the new style" )
-	'/// Select text
-	Call wTypeKeys ( "<Shift Home>" )
-	'/// Apply Style to a newly created style
-	Call wStyleCreate ( "AUndoHistory", "Paragraph" )
-	'///  string in Undo-list has to be: "Apply styles: AUndoHistory")
-	Call CheckUndoStringInUndoList ( 10, "ApplyStyles" )
-
-	'/// Modify Style through Stylist
-   	if wStyleSelect ( "AUndoHistory" ) = false then
-		Warnlog "Defined style has not been found in Stylist->Test aborted"
-		Call hCloseDocument
-		goto endsub
-	end if
-
-	Vorlagenliste.OpenContextMenu
-	Call hMenuSelectNr(2)
-	Kontext
-	Active.Setpage TabFontEffects
-	Kontext "TabFontEffects"
-	FontColor.Select FontColor.GetItemCount
-	TabFontEffects.Ok
-	Sleep 1
-	'///  string in Undo-list has to be: "Change styles: AUndoHistory") 
-	Call CheckUndoStringInUndoList ( 10, "ChangeStyles" )
-
-	printlog "Styles (Replace)"
-	'/// Edit / Search and Replace
-	EditSearchAndReplace
-	kontext "FindAndReplace"
-        if SearchForStyles.IsVisible = False then More.Click
-        SearchForStyles.Check
-	Sleep 1
-	ReplaceWithStyle.Select 4
-	wait 500
-	ReplaceBtn.Click
-	NewStyle = ReplaceWithStyle.GetSelText
-	Select Case iSprache
-		Case 01: StyleText = "Replace style: AUndoHistory -> " & NewStyle
-                Case 34: StyleText = "Reemplazar estilo: AUndoHistory -> " & NewStyle
-	        Case 86: StyleText = "替换样式: AUndoHistory -> " & NewStyle
-		Case else: QAErrorlog "Please adapt test for this language"
-	end select
-	wait 500
-	Kontext "Active"
-	if Active.Exists then
-		if Active.GetRT = 304 then
-			try
-				Active.Yes
-			catch
-				Active.Ok
-			endcatch
-		end if
-	end if
-	kontext "FindAndReplace"
-	SearchForStyles.UnCheck
-	FindAndReplace.Close
-
-	'///  string in Undo-list has to be: "Replace Styles: 'AUndoHistory -> ...")
-	Kontext "StandardBar"
-	try
-		Undo.OpenMenu
-		Kontext "UndoRedoBox"
-		UndoText = UndoRedoList.GetItemText(1)
-		if UndoText <> StyleText then
-			Warnlog "Wrong text in Undo-List: " & UndoText
-		end if
-		Kontext "StandardBar"
-		Undo.Click
-	catch
-		Warnlog "Something wrong checking Undo-List!"
-	endcatch
-
-	printlog "Styles (Promote)"
-	'/// point cursor to beginning of document
-	Call wTypeKeys ( "<Mod1 Home>" )
-	' To promote style it has to be in the heading group
-	ToolsOutlineNumbering
-	Kontext
-	Active.SetPage TabKapitelnumerierung
-	Kontext "TabKapitelnumerierung"
-	Absatzvorlage.Select NewStyle
-	TabKapitelnumerierung.Ok
-
-	Call wNavigatorAuswahl ( 1, 1, true )
-	Kontext "NavigatorWriter"
-	'/// Select Promote in Navigator
-	try
-		Senken.Click
-		'///  string in Undo-list has to be: "Demote Outline")
-		Call CheckUndoStringInUndoList ( 10, "DemoteOutline" )
-	catch
-		Warnlog "Unable to demote outline"
-	endcatch
-
-	'/// Select Demote in Navigator
-	printlog "Styles (Demote)"
-	Kontext "NavigatorWriter"
-	try
-		Senken.Click
-		'///  string in Undo-list has to be: "Promote Outline") 
-		Call CheckUndoStringInUndoList ( 10, "PromoteOutline" )
-	catch
-		Warnlog "Unable to promote outline"
-	endcatch
-
-	'/// CloseDocument
-	Call hCloseDocument
+    Dim i as integer, StyleText as string, UndoText as string
+    Dim NewStyle as string
+
+    '/// <B>Styles (Apply/Modify/Find&Replace/Promote/Demote)</B>
+    printlog "- Styles (Apply)"
+    '/// new document
+    Call hNewDocument
+    '/// type some text
+    Call wTypeKeys ( "I have the new style" )
+    '/// Select text
+    Call wTypeKeys ( "<Shift Home>" )
+    '/// Apply Style to a newly created style
+    Call wStyleCreate ( "AUndoHistory", "Paragraph" )
+    '///  string in Undo-list has to be: "Apply styles: AUndoHistory")
+    Call CheckUndoStringInUndoList ( 10, "ApplyStyles" )
+
+    '/// Modify Style through Stylist
+    if wStyleSelect ( "AUndoHistory" ) = false then
+        Warnlog "Defined style has not been found in Stylist->Test aborted"
+        Call hCloseDocument
+        goto endsub
+    end if
+
+    Vorlagenliste.OpenContextMenu
+    Call hMenuSelectNr(2)
+    Kontext
+    Active.Setpage TabFontEffects
+    Kontext "TabFontEffects"
+    FontColor.Select FontColor.GetItemCount
+    TabFontEffects.Ok
+    Sleep 1
+    '///  string in Undo-list has to be: "Change styles: AUndoHistory")
+    Call CheckUndoStringInUndoList ( 10, "ChangeStyles" )
+
+    printlog "Styles (Replace)"
+    '/// Edit / Search and Replace
+    EditSearchAndReplace
+    kontext "FindAndReplace"
+    if SearchForStyles.IsVisible = False then More.Click
+    SearchForStyles.Check
+    Sleep 1
+    ReplaceWithStyle.Select 4
+    wait 500
+    ReplaceBtn.Click
+    NewStyle = ReplaceWithStyle.GetSelText
+    Select Case iSprache
+    Case 01: StyleText = "Replace style: AUndoHistory -> " & NewStyle
+    Case 34: StyleText = "Reemplazar estilo: AUndoHistory -> " & NewStyle
+    Case 86: StyleText = "替换样式: AUndoHistory -> " & NewStyle
+    Case else: QAErrorlog "Please adapt test for this language"
+    end select
+    wait 500
+    Kontext "Active"
+    if Active.Exists then
+        if Active.GetRT = 304 then
+            try
+                Active.Yes
+            catch
+                Active.Ok
+            endcatch
+        end if
+    end if
+    kontext "FindAndReplace"
+    SearchForStyles.UnCheck
+    FindAndReplace.Close
+
+    '///  string in Undo-list has to be: "Replace Styles: 'AUndoHistory -> ...")
+    Kontext "StandardBar"
+    try
+        Undo.OpenMenu
+        Kontext "UndoRedoBox"
+        UndoText = UndoRedoList.GetItemText(1)
+        if UndoText <> StyleText then
+            Warnlog "Wrong text in Undo-List: " & UndoText
+        end if
+        Kontext "StandardBar"
+        Undo.Click
+    catch
+        Warnlog "Something wrong checking Undo-List!"
+    endcatch
+
+    printlog "Styles (Promote)"
+    '/// point cursor to beginning of document
+    Call wTypeKeys ( "<Mod1 Home>" )
+    ' To promote style it has to be in the heading group
+    ToolsOutlineNumbering
+    Kontext
+    Active.SetPage TabKapitelnumerierung
+    Kontext "TabKapitelnumerierung"
+    Absatzvorlage.Select NewStyle
+    TabKapitelnumerierung.Ok
+
+    Call wNavigatorAuswahl ( 1, 1, true )
+    Kontext "NavigatorWriter"
+    '/// Select Promote in Navigator
+    try
+        Senken.Click
+        '///  string in Undo-list has to be: "Demote Outline")
+        Call CheckUndoStringInUndoList ( 10, "DemoteOutline" )
+    catch
+        Warnlog "Unable to demote outline"
+    endcatch
+
+    '/// Select Demote in Navigator
+    printlog "Styles (Demote)"
+    Kontext "NavigatorWriter"
+    try
+        Senken.Click
+        '///  string in Undo-list has to be: "Promote Outline")
+        Call CheckUndoStringInUndoList ( 10, "PromoteOutline" )
+    catch
+        Warnlog "Unable to promote outline"
+    endcatch
+
+    '/// CloseDocument
+    Call hCloseDocument
 endcase
diff --git a/testautomation/writer/optional/includes/undo/w_undo_history_3.inc b/testautomation/writer/optional/includes/undo/w_undo_history_3.inc
index 1d30a87dd406..2a5471733642 100644
--- a/testautomation/writer/optional/includes/undo/w_undo_history_3.inc
+++ b/testautomation/writer/optional/includes/undo/w_undo_history_3.inc
@@ -33,268 +33,268 @@
 
 sub w_undo_history_3
 
-	Call tUndoSection			' Section (Insert/Modify/Delete)
-	Call tUndoHyperlink			' Hyperlink (Insert as Text/as URL button)
-	Call tUndoFootnote			' Footnote (Insert/Modify/Delete)
-	Call tUndoCaption			' Insert Caption
-	Call tUndoAutoText			' Insert Autotext	
-	Call tUndoBookmark			' Bookmark (Insert/Rename/Delete)
-	Call tUndoComment			' Comment (Insert/Delete)
-	Call tUndoScript			' Script (Insert/Delete)
-	Call tUndoIndexes			' Index/Bibliography entrys (Insert/Delete)
-	Call tUndoFrames			' Frames (Insert/Rename/Delete)
-	Call tUndoTableGeneral			' Tables Part 1
-	Call tUndoTableOptionsMerge			' Tables Part 2
-	Call tUndoTableConvertSort			' Tables Part 3
-	Call tUndoTableSplitDelete			' Tables Part 4
-	Call tUndoHorizontalRuler			' Horizontal ruler
-	Call tUndoGraphics			' Graphics (Insert/Replace/Delete)
-	
+    Call tUndoSection			' Section (Insert/Modify/Delete)
+    Call tUndoHyperlink			' Hyperlink (Insert as Text/as URL button)
+    Call tUndoFootnote			' Footnote (Insert/Modify/Delete)
+    Call tUndoCaption			' Insert Caption
+    Call tUndoAutoText			' Insert Autotext
+    Call tUndoBookmark			' Bookmark (Insert/Rename/Delete)
+    Call tUndoComment			' Comment (Insert/Delete)
+    Call tUndoScript			' Script (Insert/Delete)
+    Call tUndoIndexes			' Index/Bibliography entrys (Insert/Delete)
+    Call tUndoFrames			' Frames (Insert/Rename/Delete)
+    Call tUndoTableGeneral			' Tables Part 1
+    Call tUndoTableOptionsMerge			' Tables Part 2
+    Call tUndoTableConvertSort			' Tables Part 3
+    Call tUndoTableSplitDelete			' Tables Part 4
+    Call tUndoHorizontalRuler			' Horizontal ruler
+    Call tUndoGraphics			' Graphics (Insert/Replace/Delete)
+
 end sub
 
 testcase tUndoSection
 
-	'/// <B>Section (Insert/Modify/Delete)</B>
-	printlog "Section (Insert)"
-	'/// new document
-	Call hNewDocument
-	'/// Insert a section
-	InsertSection
-	Kontext
-	Active.Setpage TabBereiche
-	Kontext "TabBereiche"
-	TabBereiche.Ok
-	'///  string in Undo-list has to be: "Insert section")
-	Call CheckUndoStringInUndoList ( 10, "InsertSection" )
-
-	printlog "Section (Modify)"
-	'/// Open navigator and select section
-	Call wNavigatorAuswahl ( 7, 1, true )
-	Kontext "NavigatorWriter"
-	'/// Open contextmenu and choose 'Edit'
-	Auswahlliste.OpenContextMenu
-	wait 500
-	Call hMenuSelectNr(4)
-	
-	'/// Change Background-Color
-	Kontext "BereicheBearbeiten"
-	Optionen.Click
-	Kontext
-	Active.Setpage TabHintergrund
-	Kontext "TabHintergrund"
-	Hintergrundfarbe.TypeKeys "<Down>", 5
-	TabHintergrund.Ok
-	
-	Kontext "BereicheBearbeiten"
-	BereicheBearbeiten.Ok
-	'///  string in Undo-list has to be: "Modify section") 
-	Call CheckUndoStringInUndoList ( 10, "ModifySection" )
-	
-	printlog "Section (Delete)"
-	'/// Open navigator and select section
-	Call wNavigatorAuswahl ( 7, 1, true )
-	Kontext "NavigatorWriter"
-	'/// Open contextmenu and choose 'Edit'
-	Auswahlliste.OpenContextMenu
-	wait 500
-	Call hMenuSelectNr(4)
-	'/// In 'Edit sections' dialog choose 'remove'
-	Kontext "BereicheBearbeiten"
-	Aufheben.Click
-	BereicheBearbeiten.Ok
-	'///  string in Undo-list has to be: "Delete section") 
-	Call CheckUndoStringInUndoList ( 10, "DeleteSection" )
-	
-	'/// Close Document
-	Call hCloseDocument
+    '/// <B>Section (Insert/Modify/Delete)</B>
+    printlog "Section (Insert)"
+    '/// new document
+    Call hNewDocument
+    '/// Insert a section
+    InsertSection
+    Kontext
+    Active.Setpage TabBereiche
+    Kontext "TabBereiche"
+    TabBereiche.Ok
+    '///  string in Undo-list has to be: "Insert section")
+    Call CheckUndoStringInUndoList ( 10, "InsertSection" )
+
+    printlog "Section (Modify)"
+    '/// Open navigator and select section
+    Call wNavigatorAuswahl ( 7, 1, true )
+    Kontext "NavigatorWriter"
+    '/// Open contextmenu and choose 'Edit'
+    Auswahlliste.OpenContextMenu
+    wait 500
+    Call hMenuSelectNr(4)
+
+    '/// Change Background-Color
+    Kontext "BereicheBearbeiten"
+    Optionen.Click
+    Kontext
+    Active.Setpage TabHintergrund
+    Kontext "TabHintergrund"
+    Hintergrundfarbe.TypeKeys "<Down>", 5
+    TabHintergrund.Ok
+
+    Kontext "BereicheBearbeiten"
+    BereicheBearbeiten.Ok
+    '///  string in Undo-list has to be: "Modify section")
+    Call CheckUndoStringInUndoList ( 10, "ModifySection" )
+
+    printlog "Section (Delete)"
+    '/// Open navigator and select section
+    Call wNavigatorAuswahl ( 7, 1, true )
+    Kontext "NavigatorWriter"
+    '/// Open contextmenu and choose 'Edit'
+    Auswahlliste.OpenContextMenu
+    wait 500
+    Call hMenuSelectNr(4)
+    '/// In 'Edit sections' dialog choose 'remove'
+    Kontext "BereicheBearbeiten"
+    Aufheben.Click
+    BereicheBearbeiten.Ok
+    '///  string in Undo-list has to be: "Delete section")
+    Call CheckUndoStringInUndoList ( 10, "DeleteSection" )
+
+    '/// Close Document
+    Call hCloseDocument
 
 endcase
 
 
 testcase tUndoHyperlink
 
-	'///<B>Hyperlink (Insert as Text/as URL button)</B>
-	printlog "- Insert hyperlink as text"
-	'/// new document
-	Call hNewDocument
-	'/// Insert / Hyperlink as Text
-	InsertHyperlink
-	Call wEinfuegenHyperlink(1)
-	ZielURL.Settext "www.sun.com"
-	Form.Select 1
-	Kontext "Hyperlink"
-	Uebernehmen.Click
-	Hyperlink.Close
-	'///  string in Undo-list has to be: "Insert Hyperlink") 
-	Call CheckUndoStringInUndoList ( 10, "InsertHyperlink" )
-
-	Call wTypeKeys "<Return>"
-
-	'/// Insert / Hyperlink as Button
-	printlog "- Insert hyperlink as Button"
-	InsertHyperlink
-	Call wEinfuegenHyperlink(1)
-	ZielURL.Settext "www.sun.com"
-	Form.Select 2
-	Kontext "Hyperlink"
-	Uebernehmen.Click
-	Hyperlink.Close
-	
-	'///  string in Undo-list has to be: "insert URL Button") 
-	Call CheckUndoStringInUndoList ( 10, "InsertHyperlinkButton" )
-	
-	'/// Close Document
-	Call hCloseDocument
-	
-endcase	
+    '///<B>Hyperlink (Insert as Text/as URL button)</B>
+    printlog "- Insert hyperlink as text"
+    '/// new document
+    Call hNewDocument
+    '/// Insert / Hyperlink as Text
+    InsertHyperlink
+    Call wEinfuegenHyperlink(1)
+    ZielURL.Settext "www.sun.com"
+    Form.Select 1
+    Kontext "Hyperlink"
+    Uebernehmen.Click
+    Hyperlink.Close
+    '///  string in Undo-list has to be: "Insert Hyperlink")
+    Call CheckUndoStringInUndoList ( 10, "InsertHyperlink" )
+
+    Call wTypeKeys "<Return>"
+
+    '/// Insert / Hyperlink as Button
+    printlog "- Insert hyperlink as Button"
+    InsertHyperlink
+    Call wEinfuegenHyperlink(1)
+    ZielURL.Settext "www.sun.com"
+    Form.Select 2
+    Kontext "Hyperlink"
+    Uebernehmen.Click
+    Hyperlink.Close
+
+    '///  string in Undo-list has to be: "insert URL Button")
+    Call CheckUndoStringInUndoList ( 10, "InsertHyperlinkButton" )
+
+    '/// Close Document
+    Call hCloseDocument
+
+endcase
 
 
 testcase tUndoFootnote
 
-	'/// <B>Footnote (Insert/Modify/Delete)</B>
-	printlog "- Footnote (Insert)"
-	'/// new document
-	Call hNewDocument
-	'/// Insert / Footnote
-	InsertFootnote	
-	Kontext "FussnoteEinfuegen"
-	FussnoteEinfuegen.Ok
-	'///  string in Undo-list has to be: "Insert footnote") 
-	Call CheckUndoStringInUndoList ( 10, "InsertFootnote" )
-
-	printlog "- Footnote (Modify)"
-	'/// Tools/Footnote
-	ToolsFootnote
-	Kontext
-	Active.Setpage TabFussnoten
-	Kontext "TabFussnoten"
-	
-	'/// Change any option in footnote dialog
-	if Seitenende.IsChecked then
-		Dokumentende.Check
-	else
-		Seitenende.Check
-	end if
-	'/// Close dialog
-	TabFussnoten.Ok
-	'///  string in Undo-list has to be: "Modify footnote options") 
-	Call CheckUndoStringInUndoList ( 10, "ModifyFootnote" )
-
-	printlog "- Footnote (Delete)"
-	'/// Point cursor directly to the footnote anchor
-	Call wTypeKeys "<Mod1 Home>"
-	'/// press 'delete' to remove footnote
-	Call wTypeKeys "<Delete>"
-	'///  string in Undo-list has to be: "Delete footnote options") 
-	Call CheckUndoStringInUndoList ( 10, "DeleteFootnote" )
-	
-	'/// Close document
-	Call hCloseDocument
+    '/// <B>Footnote (Insert/Modify/Delete)</B>
+    printlog "- Footnote (Insert)"
+    '/// new document
+    Call hNewDocument
+    '/// Insert / Footnote
+    InsertFootnote
+    Kontext "FussnoteEinfuegen"
+    FussnoteEinfuegen.Ok
+    '///  string in Undo-list has to be: "Insert footnote")
+    Call CheckUndoStringInUndoList ( 10, "InsertFootnote" )
+
+    printlog "- Footnote (Modify)"
+    '/// Tools/Footnote
+    ToolsFootnote
+    Kontext
+    Active.Setpage TabFussnoten
+    Kontext "TabFussnoten"
+
+    '/// Change any option in footnote dialog
+    if Seitenende.IsChecked then
+        Dokumentende.Check
+    else
+        Seitenende.Check
+    end if
+    '/// Close dialog
+    TabFussnoten.Ok
+    '///  string in Undo-list has to be: "Modify footnote options")
+    Call CheckUndoStringInUndoList ( 10, "ModifyFootnote" )
+
+    printlog "- Footnote (Delete)"
+    '/// Point cursor directly to the footnote anchor
+    Call wTypeKeys "<Mod1 Home>"
+    '/// press 'delete' to remove footnote
+    Call wTypeKeys "<Delete>"
+    '///  string in Undo-list has to be: "Delete footnote options")
+    Call CheckUndoStringInUndoList ( 10, "DeleteFootnote" )
+
+    '/// Close document
+    Call hCloseDocument
 endcase
 
 
 testcase tUndoCaption
 
-	'/// <B>Insert a caption</B>
-	printlog "- Insert Caption"
-	'/// new document
-	Call hNewDocument
-	'/// Insert a graphic
-	Call hGrafikEinfuegen ( gTesttoolPath & "writer\optional\input\graphics\jolink.jpg" )	
-	'/// Insert / Caption
-	InsertCaption
-	Kontext "Beschriftung"
-	'/// Insert a caption more than 20 characters long
-	Beschriftungstext.Settext "This caption has more than 20 characters"
-	Beschriftung.Ok
-	
-	'///  string in Undo-list has to be: "Insert Caption: This capt...aracters") 
-	Call CheckUndoStringInUndoList ( 10, "InsertCaption" )
-	
-	'/// Close document
-	Call hCloseDocument
+    '/// <B>Insert a caption</B>
+    printlog "- Insert Caption"
+    '/// new document
+    Call hNewDocument
+    '/// Insert a graphic
+    Call hGrafikEinfuegen ( gTesttoolPath & "writer\optional\input\graphics\jolink.jpg" )
+    '/// Insert / Caption
+    InsertCaption
+    Kontext "Beschriftung"
+    '/// Insert a caption more than 20 characters long
+    Beschriftungstext.Settext "This caption has more than 20 characters"
+    Beschriftung.Ok
+
+    '///  string in Undo-list has to be: "Insert Caption: This capt...aracters")
+    Call CheckUndoStringInUndoList ( 10, "InsertCaption" )
+
+    '/// Close document
+    Call hCloseDocument
 endcase
 
 
 testcase tUndoAutoText
 
-	'/// <B>Insert autotext</B>
-	printlog "- Insert autotext"
-	'/// new document
-	Call hNewDocument
-	'/// Insert dummy text
-	Call wBlindtextEinfuegen
-	
-	'///  string in Undo-list has to be: "Insert Auto Text") 
-	Call CheckUndoStringInUndoList ( 10, "InsertAutotext" )
-	
-	'/// Close document
-	Call hCloseDocument
+    '/// <B>Insert autotext</B>
+    printlog "- Insert autotext"
+    '/// new document
+    Call hNewDocument
+    '/// Insert dummy text
+    Call wBlindtextEinfuegen
+
+    '///  string in Undo-list has to be: "Insert Auto Text")
+    Call CheckUndoStringInUndoList ( 10, "InsertAutotext" )
+
+    '/// Close document
+    Call hCloseDocument
 endcase
 
 
 testcase tUndoBookmark
 
-Warnlog "#i102310# - tUndoBookmark outcommented due to bug."
-goto endsub
-
-
-	'/// <B>Bookmark (Insert/Rename/Delete)</B>
-	printlog "- Insert Bookmark"
-	'/// new document
-	Call hNewDocument
-	'/// Insert / Bookmark
-	InsertBookmark
-	Kontext "TextmarkeEinfuegen"
-	Textmarken.Settext "I'm a bookmark"
-	TextmarkeEinfuegen.Ok
-	'///  string in Undo-list has to be: "Insert Bookmark: I'm a bookmark") 
-	Call CheckUndoStringInUndoList ( 10, "InsertBookmark" )
-
-	printlog "- Rename Bookmark"
-	'/// Open navigator and select bookmark
-	Call wNavigatorAuswahl ( 6, 1, true )
-	Kontext "NavigatorWriter"
-	'/// Open contextmenu and choose 'Edit'
-	Auswahlliste.OpenContextMenu
-	wait 500
-	Call hMenuSelectNr(4)
-	wait 500
-	Call hMenuSelectNr(3)	
-	wait 500
-	Kontext "ObjekteUmbenennen"
-	Objektname.Settext "a book"
-	ObjekteUmbenennen.Ok	
-	'///  string in Undo-list has to be: "Rename Bookmark: a book") 
-	Call CheckUndoStringInUndoList ( 10, "RenameBookmark" )
-
-	printlog "- Delete Bookmark"
-	'/// Open navigator and select bookmark
-	Call wNavigatorAuswahl ( 6, 1, true )
-	Kontext "NavigatorWriter"
-	'/// Open contextmenu and choose 'Edit'
-	Auswahlliste.OpenContextMenu
-	wait 500
-	Call hMenuSelectNr(4)
-	wait 500
-	Call hMenuSelectNr(2)	
-	wait 500
-	'///  string in Undo-list has to be: "Rename Bookmark: a book") 
-	Call CheckUndoStringInUndoList ( 10, "DeleteBookmark" )
-	
-	'/// Close document
-	Call hCloseDocument
+    Warnlog "#i102310# - tUndoBookmark outcommented due to bug."
+    goto endsub
+
+
+    '/// <B>Bookmark (Insert/Rename/Delete)</B>
+    printlog "- Insert Bookmark"
+    '/// new document
+    Call hNewDocument
+    '/// Insert / Bookmark
+    InsertBookmark
+    Kontext "TextmarkeEinfuegen"
+    Textmarken.Settext "I'm a bookmark"
+    TextmarkeEinfuegen.Ok
+    '///  string in Undo-list has to be: "Insert Bookmark: I'm a bookmark")
+    Call CheckUndoStringInUndoList ( 10, "InsertBookmark" )
+
+    printlog "- Rename Bookmark"
+    '/// Open navigator and select bookmark
+    Call wNavigatorAuswahl ( 6, 1, true )
+    Kontext "NavigatorWriter"
+    '/// Open contextmenu and choose 'Edit'
+    Auswahlliste.OpenContextMenu
+    wait 500
+    Call hMenuSelectNr(4)
+    wait 500
+    Call hMenuSelectNr(3)
+    wait 500
+    Kontext "ObjekteUmbenennen"
+    Objektname.Settext "a book"
+    ObjekteUmbenennen.Ok
+    '///  string in Undo-list has to be: "Rename Bookmark: a book")
+    Call CheckUndoStringInUndoList ( 10, "RenameBookmark" )
+
+    printlog "- Delete Bookmark"
+    '/// Open navigator and select bookmark
+    Call wNavigatorAuswahl ( 6, 1, true )
+    Kontext "NavigatorWriter"
+    '/// Open contextmenu and choose 'Edit'
+    Auswahlliste.OpenContextMenu
+    wait 500
+    Call hMenuSelectNr(4)
+    wait 500
+    Call hMenuSelectNr(2)
+    wait 500
+    '///  string in Undo-list has to be: "Rename Bookmark: a book")
+    Call CheckUndoStringInUndoList ( 10, "DeleteBookmark" )
+
+    '/// Close document
+    Call hCloseDocument
 endcase
 
 
 testcase tUndoComment
 
-	printlog "New document"
-	Call hNewDocument
-	printlog "Insert / Comment"
-	InsertNoteWriter
-	printlog "String in Undo-list has to be: 'Insert Comment'" 
-	Call CheckUndoStringInUndoList ( 10, "InsertComment" )
+    printlog "New document"
+    Call hNewDocument
+    printlog "Insert / Comment"
+    InsertNoteWriter
+    printlog "String in Undo-list has to be: 'Insert Comment'"
+    Call CheckUndoStringInUndoList ( 10, "InsertComment" )
     printlog "- Delete Comment"
     printlog "Bring up the Navigator, find the entry 'Comments', expand it, and select the expanded section."
     Call wNavigatorAuswahl( 11, 1 )
@@ -302,370 +302,373 @@ testcase tUndoComment
     Navigator.TypeKeys "<DELETE>"
     '/// Close the Navigator
     ViewNavigator
-    '///  string in Undo-list has to be: "Delete comment") 
-	Call CheckUndoStringInUndoList ( 10, "DeleteComment" )
+    '///  string in Undo-list has to be: "Delete comment")
+    Call CheckUndoStringInUndoList ( 10, "DeleteComment" )
 
-	'/// Close document
-	Call hCloseDocument
+    '/// Close document
+    Call hCloseDocument
 endcase
 
 
 testcase tUndoScript
-	
-	'/// <B>Script (Insert/Delete)</B>
-	printlog "- Insert Script"
-	'/// new document
-	Call hNewDocument
-	'/// Insert / Script
-	InsertScript
-	Kontext "ScriptEinfuegen"
-	ScriptEinfuegen.Ok
-	'///  string in Undo-list has to be: "Insert script") 
-	Call CheckUndoStringInUndoList ( 10, "InsertScript" )
-
-	'/// Point cursor directly to the script
-	Call wTypeKeys "<Mod1 Home>"
-	'/// press 'delete' to remove script
-	Call wTypeKeys "<Delete>"
-	'///  string in Undo-list has to be: "Delete script")
-	Call CheckUndoStringInUndoList ( 10, "DeleteScript" )
-	
-	'/// Close document
-	Call hCloseDocument
+
+    '/// <B>Script (Insert/Delete)</B>
+    printlog "- Insert Script"
+    '/// new document
+    Call hNewDocument
+    '/// Insert / Script
+    InsertScript
+    Kontext "ScriptEinfuegen"
+    ScriptEinfuegen.Ok
+    '///  string in Undo-list has to be: "Insert script")
+    Call CheckUndoStringInUndoList ( 10, "InsertScript" )
+
+    '/// Point cursor directly to the script
+    Call wTypeKeys "<Mod1 Home>"
+    '/// press 'delete' to remove script
+    Call wTypeKeys "<Delete>"
+    '///  string in Undo-list has to be: "Delete script")
+    Call CheckUndoStringInUndoList ( 10, "DeleteScript" )
+
+    '/// Close document
+    Call hCloseDocument
 endcase
 
 
 testcase tUndoIndexes
 
-	'/// <B>Indexes (Insert/Delete)</B>
-	printlog "- Insert Index entry"
-	'/// new document
-	Call hNewDocument
-	'/// Type a word
-	Call wTypeKeys "IndexEntry"
-	Call wTypeKeys "<Shift Home>"
-	'/// Insert / Indexes and Tables / Entry
-	InsertIndexesEntry
-	Kontext "VerzeichnisEintragEinfuegen"
-	EintragOk.Click
-	VerzeichnisEintragEinfuegen.Close
-	'///  string in Undo-list has to be: "Insert index entry")
-	Call CheckUndoStringInUndoList ( 10, "InsertIndexEntry" )
-
-	printlog "delete index entry with 'Backspace'"
-	Call wTypeKeys ( "<Backspace>"
-	'///  string in Undo-list has to be: "Delete index entry")
-	Call CheckUndoStringInUndoList ( 10, "DeleteIndexEntry" )
-
-	'/// Type a word
-	Call wTypeKeys "BibliographyEntry"
-	Call wTypeKeys "<Shift Home>"
-	printlog "- Insert Bibliography entry"
-	printlog "Insert / Index / Bibliography entry"
-	InsertIndexesBibliographyEntry
-	Kontext "LiteratureintragEinfuegen"
-	EintragEinfuegen.Click
-	LiteratureintragEinfuegen.Close
-	'///  string in Undo-list has to be: "Insert bibliography entry")
-	Call CheckUndoStringInUndoList ( 10, "InsertBibliographyEntry" )
-
-	Printlog "delete bibliography entry with 'Backspace'"
-	Call wTypeKeys ( "<Backspace>"
-	'///  string in Undo-list has to be: "Delete bibliography entry")
-	Call CheckUndoStringInUndoList ( 10, "DeleteBibliographyEntry" )
-	
-	'/// Close document
-	Call hCloseDocument
+    '/// <B>Indexes (Insert/Delete)</B>
+    printlog "- Insert Index entry"
+    '/// new document
+    Call hNewDocument
+    '/// Type a word
+    Call wTypeKeys "IndexEntry"
+    Call wTypeKeys "<Shift Home>"
+    '/// Insert / Indexes and Tables / Entry
+    InsertIndexesEntry
+    Kontext "VerzeichnisEintragEinfuegen"
+    EintragOk.Click
+    VerzeichnisEintragEinfuegen.Close
+    '///  string in Undo-list has to be: "Insert index entry")
+    Call CheckUndoStringInUndoList ( 10, "InsertIndexEntry" )
+
+    printlog "delete index entry with 'Backspace'"
+    Call wTypeKeys ( "<Backspace>"
+    '///  string in Undo-list has to be: "Delete index entry")
+    Call CheckUndoStringInUndoList ( 10, "DeleteIndexEntry" )
+
+    '/// Type a word
+    Call wTypeKeys "BibliographyEntry"
+    Call wTypeKeys "<Shift Home>"
+    printlog "- Insert Bibliography entry"
+    printlog "Insert / Index / Bibliography entry"
+    InsertIndexesBibliographyEntry
+    Kontext "LiteratureintragEinfuegen"
+    EintragEinfuegen.Click
+    LiteratureintragEinfuegen.Close
+    '///  string in Undo-list has to be: "Insert bibliography entry")
+    Call CheckUndoStringInUndoList ( 10, "InsertBibliographyEntry" )
+
+    Printlog "delete bibliography entry with 'Backspace'"
+    Call wTypeKeys ( "<Backspace>"
+    '///  string in Undo-list has to be: "Delete bibliography entry")
+    Call CheckUndoStringInUndoList ( 10, "DeleteBibliographyEntry" )
+
+    '/// Close document
+    Call hCloseDocument
 endcase
 
 
 testcase tUndoFrames
 
-	'/// <B>Frames (Insert/Rename/Delete)</B>
-	printlog "- Insert Frame"
-	'/// new document
-	Call hNewDocument
-	'/// Insert / Frame
-	InsertFrame
-	Kontext
-	Active.Setpage TabZusaetze
-	Kontext "TabZusaetze"
-	ObjektName.Settext "MyFrame"
-	TabZusaetze.Ok
-	'///  string in Undo-list has to be: "Insert frame: MyFrame")
-	Call CheckUndoStringInUndoList ( 10, "InsertFrame" )
-
-	printlog "- Rename Frame"
-	'/// Open navigator and select frame
-	Call wNavigatorAuswahl ( 3, 1, true )
-	Kontext "NavigatorWriter"
-	'/// Open contextmenu and choose 'Edit'
-	Auswahlliste.OpenContextMenu
-	Call hMenuSelectNr(4)
-	Call hMenuSelectNr(3)	
-	Kontext "ObjekteUmbenennen"
-	Objektname.Settext "MyRenamedFrame"
-	ObjekteUmbenennen.Ok
-	'///  string in Undo-list has to be: "Rename frame: 'MyFrame' -> 'MyRenamedFrame'") 
-	Call CheckUndoStringInUndoList ( 10, "RenameFrame" )
-	printlog "- Delete Frame"
-	'/// Type 'Del' to delete the frame
-	Call wTypeKeys "<Delete>"
-	'///  string in Undo-list has to be: "Delete frame: 'MyRenamedFrame'") 
-	Call CheckUndoStringInUndoList ( 10, "DeleteFrame" )
-	
-	'/// Close document
-	Call hCloseDocument
+    warnlog( "#111909# - Cannot access <rename> item in context menu" )
+    goto endsub
+
+    '/// <B>Frames (Insert/Rename/Delete)</B>
+    printlog "- Insert Frame"
+    '/// new document
+    Call hNewDocument
+    '/// Insert / Frame
+    InsertFrame
+    Kontext
+    Active.Setpage TabZusaetze
+    Kontext "TabZusaetze"
+    ObjektName.Settext "MyFrame"
+    TabZusaetze.Ok
+    '///  string in Undo-list has to be: "Insert frame: MyFrame")
+    Call CheckUndoStringInUndoList ( 10, "InsertFrame" )
+
+    printlog "- Rename Frame"
+    '/// Open navigator and select frame
+    Call wNavigatorAuswahl ( 3, 1, true )
+    Kontext "NavigatorWriter"
+    '/// Open contextmenu and choose 'Edit'
+    Auswahlliste.OpenContextMenu
+    Call hMenuSelectNr(4)
+    Call hMenuSelectNr(3)
+    Kontext "ObjekteUmbenennen"
+    Objektname.Settext "MyRenamedFrame"
+    ObjekteUmbenennen.Ok
+    '///  string in Undo-list has to be: "Rename frame: 'MyFrame' -> 'MyRenamedFrame'")
+    Call CheckUndoStringInUndoList ( 10, "RenameFrame" )
+    printlog "- Delete Frame"
+    '/// Type 'Del' to delete the frame
+    Call wTypeKeys "<Delete>"
+    '///  string in Undo-list has to be: "Delete frame: 'MyRenamedFrame'")
+    Call CheckUndoStringInUndoList ( 10, "DeleteFrame" )
+
+    '/// Close document
+    Call hCloseDocument
 endcase
 
 
 testcase tUndoTableGeneral
-	Dim sTableName as string
-
-	'/// <B>Tables Part 1</B>
-	printlog "- insert table"
-	'/// new document
-	Call hNewDocument
-	'/// Insert a table
-	InsertTableWriter
-	Kontext "TabelleEinfuegenWriter"
-	sTableName = "MyTable"
-	Tabellenname.Settext sTableName
-	TabelleEinfuegenWriter.Ok
-	'///  string in Undo-list has to be: "Insert table")
-	Call CheckUndoStringInUndoList ( 10, "InsertTable" )
-	printlog "- Insert a row"
-	'/// <B>Insert a row</B>
-	Call hToolbarSelect("Table", true)
-	ZeileEinfuegen.Click
-	'///  string in Undo-list has to be: "Insert row")
-	Call CheckUndoStringInUndoList ( 10, "InsertRow" )
-	printlog "- Insert a column"
-	'/// <B>Insert a column</B>
-	Call hToolbarSelect("Table", true)
-	SpalteEinfuegen.Click
-	'///  string in Undo-list has to be: "Insert column")
-	Call CheckUndoStringInUndoList ( 10, "InsertColumn" )
-	printlog "- Delete a row"
-	'/// <B>Delete a row</B>
-	Call hToolbarSelect("Table", true)
-	ZeileLoeschen.Click
-	'///  string in Undo-list has to be: "Delete row")
-	Call CheckUndoStringInUndoList ( 10, "DeleteRow" )
-	printlog "- Delete a column"
-	'/// <B>Delete a column</B>
-	Call hToolbarSelect("Table", true)
-	SpalteLoeschen.Click
-	'///  string in Undo-list has to be: "Delete column")
-	Call CheckUndoStringInUndoList ( 10, "DeleteColumn" )
-	printlog "- format a cell"
-	'/// <B>Format cell (enable number recognition form that)</B>
+    Dim sTableName as string
+
+    '/// <B>Tables Part 1</B>
+    printlog "- insert table"
+    '/// new document
+    Call hNewDocument
+    '/// Insert a table
+    InsertTableWriter
+    Kontext "TabelleEinfuegenWriter"
+    sTableName = "MyTable"
+    Tabellenname.Settext sTableName
+    TabelleEinfuegenWriter.Ok
+    '///  string in Undo-list has to be: "Insert table")
+    Call CheckUndoStringInUndoList ( 10, "InsertTable" )
+    printlog "- Insert a row"
+    '/// <B>Insert a row</B>
+    Call hToolbarSelect("Table", true)
+    ZeileEinfuegen.Click
+    '///  string in Undo-list has to be: "Insert row")
+    Call CheckUndoStringInUndoList ( 10, "InsertRow" )
+    printlog "- Insert a column"
+    '/// <B>Insert a column</B>
+    Call hToolbarSelect("Table", true)
+    SpalteEinfuegen.Click
+    '///  string in Undo-list has to be: "Insert column")
+    Call CheckUndoStringInUndoList ( 10, "InsertColumn" )
+    printlog "- Delete a row"
+    '/// <B>Delete a row</B>
+    Call hToolbarSelect("Table", true)
+    ZeileLoeschen.Click
+    '///  string in Undo-list has to be: "Delete row")
+    Call CheckUndoStringInUndoList ( 10, "DeleteRow" )
+    printlog "- Delete a column"
+    '/// <B>Delete a column</B>
+    Call hToolbarSelect("Table", true)
+    SpalteLoeschen.Click
+    '///  string in Undo-list has to be: "Delete column")
+    Call CheckUndoStringInUndoList ( 10, "DeleteColumn" )
+    printlog "- format a cell"
+    '/// <B>Format cell (enable number recognition form that)</B>
     ToolsOptions
     Call hToolsOptions ("WRITER","Table")
     if Not AutomatischeZahlenerkennung.IsChecked then AutomatischeZahlenerkennung.Check
     Kontext "ExtrasOptionenDlg"
     ExtrasOptionenDlg.Cancel
 
-	'/// type '1' in a cell
-	Call wTypeKeys ( "1" )
-	Call wTypeKeys ( "<Right>" )
-	'///  string in Undo-list has to be: "Format cell")
-	Call CheckUndoStringInUndoList ( 10, "FormatCell" )
-	
+    '/// type '1' in a cell
+    Call wTypeKeys ( "1" )
+    Call wTypeKeys ( "<Right>" )
+    '///  string in Undo-list has to be: "Format cell")
+    Call CheckUndoStringInUndoList ( 10, "FormatCell" )
+
     ToolsOptions
     Call hToolsOptions ("WRITER","Table")
     if AutomatischeZahlenerkennung.IsChecked then AutomatischeZahlenerkennung.UnCheck
     Kontext "ExtrasOptionenDlg"
     ExtrasOptionenDlg.Cancel
 
-	'/// CloseDocument
-	Call hCloseDocument
+    '/// CloseDocument
+    Call hCloseDocument
 endcase
 
 
 testcase tUndoTableOptionsMerge
 
-	'/// <B>Tables Part 2</B>
-	printlog "- apply table attributes"
-	'/// new document
-	Call hNewDocument
-	'/// Insert a table
-	InsertTableWriter
-	Kontext "TabelleEinfuegenWriter"
-	TabelleEinfuegenWriter.Ok
-	
-	printlog "- apply attributes"
-	'/// Format / Table
-	FormatTable
-	'/// change some table options
-	Kontext
-	Active.Setpage TabTextflussTabelle
-	Kontext "TabTextflussTabelle"
-	if Umbruch.IsChecked then
-		Umbruch.Uncheck
-	else
-		Umbruch.Check
-	end if
-	TabTextflussTabelle.Ok
-	'///  string in Undo-list has to be: "Apply table attributes") 
-	Call CheckUndoStringInUndoList ( 10, "ApplyTableAttributes" )
-
-	printlog "- merge tables"
-	'/// <B>Merge tables</B>
-	Call wTypeKeys ( "<Down>" ,2 )
-	'/// Insert a second table
-	InsertTableWriter
-	Kontext "TabelleEinfuegenWriter"
-	TabelleEinfuegenWriter.Ok
-	'/// Format / Merge  / Tables
-	FormatMergeTables	
-	'///  string in Undo-list has to be: "Merge table") 
-	Call CheckUndoStringInUndoList ( 10, "MergeTable" )
-
-	'/// close Document
-	Call hCloseDocument
+    '/// <B>Tables Part 2</B>
+    printlog "- apply table attributes"
+    '/// new document
+    Call hNewDocument
+    '/// Insert a table
+    InsertTableWriter
+    Kontext "TabelleEinfuegenWriter"
+    TabelleEinfuegenWriter.Ok
+
+    printlog "- apply attributes"
+    '/// Format / Table
+    FormatTable
+    '/// change some table options
+    Kontext
+    Active.Setpage TabTextflussTabelle
+    Kontext "TabTextflussTabelle"
+    if Umbruch.IsChecked then
+        Umbruch.Uncheck
+    else
+        Umbruch.Check
+    end if
+    TabTextflussTabelle.Ok
+    '///  string in Undo-list has to be: "Apply table attributes")
+    Call CheckUndoStringInUndoList ( 10, "ApplyTableAttributes" )
+
+    printlog "- merge tables"
+    '/// <B>Merge tables</B>
+    Call wTypeKeys ( "<Down>" ,2 )
+    '/// Insert a second table
+    InsertTableWriter
+    Kontext "TabelleEinfuegenWriter"
+    TabelleEinfuegenWriter.Ok
+    '/// Format / Merge  / Tables
+    FormatMergeTables
+    '///  string in Undo-list has to be: "Merge table")
+    Call CheckUndoStringInUndoList ( 10, "MergeTable" )
+
+    '/// close Document
+    Call hCloseDocument
 endcase
 
 
 testcase tUndoTableConvertSort
 
-	'/// <B>Tables Part 3</B>
-	printlog "- Convert to text"
-	'/// new document
-	Call hNewDocument
-	'/// Insert text "This<Return>is a<Return>table to text<Return>text"
-	Call wTypeKeys ("This<Return>is a<Return>table to text<Return>text")
-	'/// select all
-	Call wTypeKeys ( "<Mod1 A>" )
-	'/// Format / Text <-> Table
-	ToolsTextInTable
+    '/// <B>Tables Part 3</B>
+    printlog "- Convert to text"
+    '/// new document
+    Call hNewDocument
+    '/// Insert text "This<Return>is a<Return>table to text<Return>text"
+    Call wTypeKeys ("This<Return>is a<Return>table to text<Return>text")
+    '/// select all
+    Call wTypeKeys ( "<Mod1 A>" )
+    '/// Format / Text <-> Table
+    ToolsTextInTable
     Kontext "TextInTabelleUmwandeln"
     TextInTabelleUmwandeln.OK
-	'///  string in Undo-list has to be: "Convert table -> text")
-	Call CheckUndoStringInUndoList ( 10, "ConvertTable" )
-
-	printlog "- Sort table"
-	'/// <B>Sort table</B>	
-	Call wTypeKeys ( "<Mod1 A>", 2 )
-	'/// Select all -> Tools / Sort
-	ToolsSort
-	Kontext "Sortieren"
-	Sortieren.Ok
-	'///  string in Undo-list has to be: "Sort table") 
-	Call CheckUndoStringInUndoList ( 10, "SortTable" )
-
-	'/// Close Document
-	Call hCloseDocument
+    '///  string in Undo-list has to be: "Convert table -> text")
+    Call CheckUndoStringInUndoList ( 10, "ConvertTable" )
+
+    printlog "- Sort table"
+    '/// <B>Sort table</B>
+    Call wTypeKeys ( "<Mod1 A>", 2 )
+    '/// Select all -> Tools / Sort
+    ToolsSort
+    Kontext "Sortieren"
+    Sortieren.Ok
+    '///  string in Undo-list has to be: "Sort table")
+    Call CheckUndoStringInUndoList ( 10, "SortTable" )
+
+    '/// Close Document
+    Call hCloseDocument
 endcase
 
 
 testcase tUndoTableSplitDelete
 
-	'/// <B>Tables Part 4</B>
-	printlog "- Split tables"
-	'/// new document
-	Call hNewDocument
-	'/// Insert 2 tables
-	InsertTableWriter
-	Kontext  "TabelleEinfuegenWriter"
-	TabelleEinfuegenWriter.Ok
-	Call wTypeKeys ( "<Down>", 3 )
-	InsertTableWriter
-	Kontext  "TabelleEinfuegenWriter"
-	TabellenName.Settext "AnotherTable"
-	TabelleEinfuegenWriter.Ok
-	'/// MergeTables
-	FormatMergeTables
-	wait 500
-	'/// Split tables
-	FormatSplitTable
-	Kontext "TabelleAuftrennen"
-	TabelleAuftrennen.Ok
-	'///  string in Undo-list has to be: "Split table") 
-	Call CheckUndoStringInUndoList ( 10, "SplitTable" )
-
-	'/// <B>Delete table</B>
-	printlog "- Delete table"
-	'/// Open navigator and select table
-	Call wNavigatorAuswahl ( 2, 1, true )
-	Kontext "NavigatorWriter"
-	'/// Open contextmenu and choose 'Delete'
-	Auswahlliste.OpenContextMenu
-	Call hMenuSelectNr(4)
-	Call hMenuSelectNr(2)
-	'///  string in Undo-list has to be: "Delete table: 'AnotherTable'") 
-	Call CheckUndoStringInUndoList ( 10, "DeleteTable" )
-
-	'/// Close document
-	Call hCloseDocument
+    '/// <B>Tables Part 4</B>
+    printlog "- Split tables"
+    '/// new document
+    Call hNewDocument
+    '/// Insert 2 tables
+    InsertTableWriter
+    Kontext  "TabelleEinfuegenWriter"
+    TabelleEinfuegenWriter.Ok
+    Call wTypeKeys ( "<Down>", 3 )
+    InsertTableWriter
+    Kontext  "TabelleEinfuegenWriter"
+    TabellenName.Settext "AnotherTable"
+    TabelleEinfuegenWriter.Ok
+    '/// MergeTables
+    FormatMergeTables
+    wait 500
+    '/// Split tables
+    FormatSplitTable
+    Kontext "TabelleAuftrennen"
+    TabelleAuftrennen.Ok
+    '///  string in Undo-list has to be: "Split table")
+    Call CheckUndoStringInUndoList ( 10, "SplitTable" )
+
+    '/// <B>Delete table</B>
+    printlog "- Delete table"
+    '/// Open navigator and select table
+    Call wNavigatorAuswahl ( 2, 1, true )
+    Kontext "NavigatorWriter"
+    '/// Open contextmenu and choose 'Delete'
+    Auswahlliste.OpenContextMenu
+    Call hMenuSelectNr(4)
+    Call hMenuSelectNr(2)
+    '///  string in Undo-list has to be: "Delete table: 'AnotherTable'")
+    Call CheckUndoStringInUndoList ( 10, "DeleteTable" )
+
+    '/// Close document
+    Call hCloseDocument
 endcase
 
 
 testcase tUndoHorizontalRuler
 
-	'/// <B>HorizontalRuler</B>
-	printlog "- Horizontal ruler"
-	'/// new document
-	Call hNewDocument
-	'/// Insert / Horizontal Line
-	InsertHorizontalLine
+    '/// <B>HorizontalRuler</B>
+    printlog "- Horizontal ruler"
+    '/// new document
+    Call hNewDocument
+    '/// Insert / Horizontal Line
+    InsertHorizontalLine
     '/// Select one line
-	Kontext "HorizontaleLinieEinfuegen"
-	Auswahl.TypeKeys "<Down>", 4
-	HorizontaleLinieEinfuegen.Ok
-	'///  string in Undo-list has to be: "Insert horizontal ruler")
-	Call CheckUndoStringInUndoList ( 10, "InsertRuler" )
-
-	'/// close document
-	Call hCloseDocument
+    Kontext "HorizontaleLinieEinfuegen"
+    Auswahl.TypeKeys "<Down>", 4
+    HorizontaleLinieEinfuegen.Ok
+    '///  string in Undo-list has to be: "Insert horizontal ruler")
+    Call CheckUndoStringInUndoList ( 10, "InsertRuler" )
+
+    '/// close document
+    Call hCloseDocument
 endcase
 
 
 testcase tUndoGraphics
 
-	'/// <B>Graphics (Insert/Delete/Replace)</B>
-	printlog "- Insert graphics from file"
-	'/// new document
-	Call hNewDocument
-	'/// Insert a graphic from file
-	Call hGrafikEinfuegen ( gTesttoolPath & "writer\optional\input\graphics\jolink.jpg" )
-	'///  string in Undo-list has to be: "Insert graphics") 
-	Call CheckUndoStringInUndoList ( 10, "InsertGraphic" )
+    '/// <B>Graphics (Insert/Delete/Replace)</B>
+    printlog "- Insert graphics from file"
+    '/// new document
+    Call hNewDocument
+    '/// Insert a graphic from file
+    Call hGrafikEinfuegen ( gTesttoolPath & "writer\optional\input\graphics\jolink.jpg" )
+    '///  string in Undo-list has to be: "Insert graphics")
+    Call CheckUndoStringInUndoList ( 10, "InsertGraphic" )
 
     '/// <B>Delete graphic</B>
-	printlog "- delete graphic"
-	'/// press 'delete' to remove graphic
-	Call wTypeKeys "<Delete>"
-	'///  string in Undo-list has to be: "Delete graphics") 
-	Call CheckUndoStringInUndoList ( 10, "DeleteGraphic" )
-
-	'/// <B>Insert graphic from gallery</B>
-	printlog "- insert graphic from gallery"
-	Kontext "Gallery"
+    printlog "- delete graphic"
+    '/// press 'delete' to remove graphic
+    Call wTypeKeys "<Delete>"
+    '///  string in Undo-list has to be: "Delete graphics")
+    Call CheckUndoStringInUndoList ( 10, "DeleteGraphic" )
+
+    '/// <B>Insert graphic from gallery</B>
+    printlog "- insert graphic from gallery"
+    Kontext "Gallery"
     if Gallery.NotExists(2) then ToolsGallery
     Sleep (2)
 
-	View.OpenContextMenu
-	Call hMenuSelectNr(1)
-	Call hMenuSelectNr(1)
-	'///  string in Undo-list has to be: "Insert graphics") 
-	Call CheckUndoStringInUndoList ( 10, "InsertGraphic" )
+    View.OpenContextMenu
+    Call hMenuSelectNr(1)
+    Call hMenuSelectNr(1)
+    '///  string in Undo-list has to be: "Insert graphics")
+    Call CheckUndoStringInUndoList ( 10, "InsertGraphic" )
     Sleep (1)
 
-	'/// <B>Replace graphic</B>
-	printlog "- replace graphic"
-	'/// Insert another graphics from gallery
-	Kontext "Gallery"
-	View.OpenContextMenu
-	Call hMenuSelectNr(1)
-	Call hMenuSelectNr(1)
-	'///  string in Undo-list has to be: "Replace graphics") 
-	Call CheckUndoStringInUndoList ( 10, "ReplaceGraphic" )
-	
-	'/// Close gallery
-	Kontext "Gallery"
-	if Gallery.Exists then ToolsGallery
-	
-	'/// Close document
-	Call hCloseDocument
+    '/// <B>Replace graphic</B>
+    printlog "- replace graphic"
+    '/// Insert another graphics from gallery
+    Kontext "Gallery"
+    View.OpenContextMenu
+    Call hMenuSelectNr(1)
+    Call hMenuSelectNr(1)
+    '///  string in Undo-list has to be: "Replace graphics")
+    Call CheckUndoStringInUndoList ( 10, "ReplaceGraphic" )
+
+    '/// Close gallery
+    Kontext "Gallery"
+    if Gallery.Exists then ToolsGallery
+
+    '/// Close document
+    Call hCloseDocument
 endcase
diff --git a/testautomation/writer/optional/includes/undo/w_undo_history_4.inc b/testautomation/writer/optional/includes/undo/w_undo_history_4.inc
index 3f0940fc7537..4b80936ffbaa 100644
--- a/testautomation/writer/optional/includes/undo/w_undo_history_4.inc
+++ b/testautomation/writer/optional/includes/undo/w_undo_history_4.inc
@@ -33,178 +33,178 @@
 
 sub w_undo_history_4
 
-	Call tUndoOLEObject			' Objects (Insert/Delete)
-	Call tUndoFloatingFrame			' Floating Frame (Insert/Delete)
-	Call tUndoInsertFile			' Insert file
-	Call tUndoAsianPhoneticGuides			' Asian Phonetic Guides
-	Call tUndoAutocorrect			' Autocorrect / Autoformat
-	Call tUndoDrawObject			' Draw Object (Insert)
-	Call tUndoDrawObjectGroup			' Draw Object (Group/ungroup/Name/Delete)
-	Call tUndoSpellcheck			' Spellcheck (Autocheck/Spellcheck)	
-	Call tUndoFormControl			' Form Control (Insert/resize/move/replace/change property/delete)
-	Call tUndoHeaderFooter			' Header/Footer insert and delete
-	
+    Call tUndoOLEObject			' Objects (Insert/Delete)
+    Call tUndoFloatingFrame			' Floating Frame (Insert/Delete)
+    Call tUndoInsertFile			' Insert file
+    Call tUndoAsianPhoneticGuides			' Asian Phonetic Guides
+    Call tUndoAutocorrect			' Autocorrect / Autoformat
+    Call tUndoDrawObject			' Draw Object (Insert)
+    Call tUndoDrawObjectGroup			' Draw Object (Group/ungroup/Name/Delete)
+    Call tUndoSpellcheck			' Spellcheck (Autocheck/Spellcheck)
+    Call tUndoFormControl			' Form Control (Insert/resize/move/replace/change property/delete)
+    Call tUndoHeaderFooter			' Header/Footer insert and delete
+
 end sub
 
 testcase tUndoOLEObject
-	
-	'/// <B>OLE-Objects (Insert/Delete)</B>
-	printlog "- Insert OLE-Object"
-	'/// new Document
-	Call hNewDocument
+
+    '/// <B>OLE-Objects (Insert/Delete)</B>
+    printlog "- Insert OLE-Object"
+    '/// new Document
+    Call hNewDocument
     '/// Insert / Object / OLE-Object ///
-	InsertObjectOLEObject
+    InsertObjectOLEObject
     Kontext "OLEObjektEinfuegen"
-	Objekttyp.Select 1
-	OLEObjektEinfuegen.Ok
+    Objekttyp.Select 1
+    OLEObjektEinfuegen.Ok
     wait 500
-	Call wTypeKeys "<Esc>"
+    Call wTypeKeys "<Esc>"
     wait 500
     Call gMouseClick(15,5)
     wait 500
-	'///  string in Undo-list has to be: "Insert object") 
-	Call CheckUndoStringInUndoList ( 10, "InsertObject" )
+    '///  string in Undo-list has to be: "Insert object")
+    Call CheckUndoStringInUndoList ( 10, "InsertObject" )
 
-	printlog "- delete object"	
-	'/// Select object with <Shift F4>
+    printlog "- delete object"
+    '/// Select object with <Shift F4>
     Call wTypeKeys "<Shift F4>"
     wait 500
     '/// <B>Delete object</B>
-	Call wTypeKeys "<Delete>"
+    Call wTypeKeys "<Delete>"
     wait 500
-	'/// press 'delete' to remove object
-	'///  string in Undo-list has to be: "Delete object") 
-	Call CheckUndoStringInUndoList ( 10, "DeleteObject" )
-	
-	'/// close Document
-	Call hCloseDocument
+    '/// press 'delete' to remove object
+    '///  string in Undo-list has to be: "Delete object")
+    Call CheckUndoStringInUndoList ( 10, "DeleteObject" )
+
+    '/// close Document
+    Call hCloseDocument
 endcase
 
 
 testcase tUndoFloatingFrame
 
-	'/// <B>Floating frames</B>
-	printlog "- Insert floating frame"
-	'/// new document
-	Call hNewDocument
-	'/// Insert / Floating frame
-	InsertFloatingFrame
-	Kontext "TabEigenschaften"	
-	'/// Choose a file as floating frame
-	Inhalt.Settext Convertpath (gTesttoolPath & "writer\optional\input\graphics\jolink.jpg" )
-	TabEigenschaften.Ok
-	Sleep 2
-	'///  string in Undo-list has to be: "Insert floating frame") 
-	Call CheckUndoStringInUndoList ( 10, "InsertFloatingFrame" )
-
-	'/// Delete floating frame
-	printlog "- delete floating frame"
-	Call wTypeKeys "<Delete>"	
-	'///  string in Undo-list has to be: "Delete floating frame") 
-	Call CheckUndoStringInUndoList ( 10, "DeleteFloatingFrame" )
-	
-	'/// close document
-	Call hCloseDocument
+    '/// <B>Floating frames</B>
+    printlog "- Insert floating frame"
+    '/// new document
+    Call hNewDocument
+    '/// Insert / Floating frame
+    InsertFloatingFrame
+    Kontext "TabEigenschaften"
+    '/// Choose a file as floating frame
+    Inhalt.Settext Convertpath (gTesttoolPath & "writer\optional\input\graphics\jolink.jpg" )
+    TabEigenschaften.Ok
+    Sleep 2
+    '///  string in Undo-list has to be: "Insert floating frame")
+    Call CheckUndoStringInUndoList ( 10, "InsertFloatingFrame" )
+
+    '/// Delete floating frame
+    printlog "- delete floating frame"
+    Call wTypeKeys "<Delete>"
+    '///  string in Undo-list has to be: "Delete floating frame")
+    Call CheckUndoStringInUndoList ( 10, "DeleteFloatingFrame" )
+
+    '/// close document
+    Call hCloseDocument
 endcase
 
 
 testcase tUndoInsertFile
 
-	'/// <B>Insert File</B>
-	printlog "- Insert file"
-	'/// new document
-	Call hNewDocument
-	'/// Insert / File
-	InsertFileWriter
+    '/// <B>Insert File</B>
+    printlog "- Insert file"
+    '/// new document
+    Call hNewDocument
+    '/// Insert / File
+    InsertFileWriter
     Sleep 3
     Kontext "OeffnenDlg"
     Sleep 2
     '/// Choose "..\\writer\\input\\htmltest.sxw"
-	if OeffnenDlg.Exists then
-		Dateiname.Settext Convertpath (gTesttoolPath & "writer\optional\input\undo\htmltest.sxw" )
-		Oeffnen.Click
-	else
-		Warnlog "File open dialog missing"
-		Call hCloseDocument
-		goto endsub
-	end if
-
-	'///  string in Undo-list has to be: "Insert document") 
-	Call CheckUndoStringInUndoList ( 10, "InsertDocument" )
-
-	'/// close document
-	Call hCloseDocument
+    if OeffnenDlg.Exists then
+        Dateiname.Settext Convertpath (gTesttoolPath & "writer\optional\input\undo\htmltest.sxw" )
+        Oeffnen.Click
+    else
+        Warnlog "File open dialog missing"
+        Call hCloseDocument
+        goto endsub
+    end if
+
+    '///  string in Undo-list has to be: "Insert document")
+    Call CheckUndoStringInUndoList ( 10, "InsertDocument" )
+
+    '/// close document
+    Call hCloseDocument
 endcase
 
 
 testcase tUndoAsianPhoneticGuides
 
-	'/// <B>Asian Phonetic Guides</B>
-	printlog "- Asian Phonetic Guides"
-	'/// new document
-	Call hNewDocument
-	'/// type some text and select it
-	Call wTypeKeys ( "JuppHeidiUndJuppHeida" )
-	Call wTypeKeys ( "<Home>" )
-	'/// Check if Asian support is enabled, if not enable it
-	if gAsianSup = true then
-		FormatRuby
-		Kontext "RubyDialog"
-		RubyText1.Settext "SeppHeidiUndSeppHeida"
-		RubyDialog.Ok
-		RubyDialog.Close
-	else
-		Call ActiveDeactivateAsianSupport(True)
-		FormatRuby
-		Kontext "RubyDialog"
-		RubyText1.Settext "SeppHeidiUndSeppHeida"
-		RubyDialog.Ok
-		RubyDialog.Close
-		Call ActiveDeactivateAsianSupport(False)	
-	end if
-	
-	'///  string in Undo-list has to be: "Asian Phonectic Guides Setting") 
-	Call CheckUndoStringInUndoList ( 10, "APGS" )
-
-	'/// close document
-	Call hCloseDocument
+    '/// <B>Asian Phonetic Guides</B>
+    printlog "- Asian Phonetic Guides"
+    '/// new document
+    Call hNewDocument
+    '/// type some text and select it
+    Call wTypeKeys ( "JuppHeidiUndJuppHeida" )
+    Call wTypeKeys ( "<Home>" )
+    '/// Check if Asian support is enabled, if not enable it
+    if gAsianSup = true then
+        FormatRuby
+        Kontext "RubyDialog"
+        RubyText1.Settext "SeppHeidiUndSeppHeida"
+        RubyDialog.Ok
+        RubyDialog.Close
+    else
+        Call ActiveDeactivateAsianSupport(True)
+        FormatRuby
+        Kontext "RubyDialog"
+        RubyText1.Settext "SeppHeidiUndSeppHeida"
+        RubyDialog.Ok
+        RubyDialog.Close
+        Call ActiveDeactivateAsianSupport(False)
+    end if
+
+    '///  string in Undo-list has to be: "Asian Phonectic Guides Setting")
+    Call CheckUndoStringInUndoList ( 10, "APGS" )
+
+    '/// close document
+    Call hCloseDocument
 endcase
 
 
 testcase tUndoAutocorrect
 
-	'/// <B>Autocorrect / Autoformat</B>
-	printlog "- Autocorrect / Autoformat"
-	'/// new document
-	Call hNewDocument
-	'/// <B>Autocorrect</B>
-	printlog "- Autocorrect"
-	'/// type with quote and blank at the end 'www.sun.com ' 
-	Call wTypeKeys ( "www.sun.com " )
-	'///  string in Undo-list has to be: "AutoCorrect") 
-	Call CheckUndoStringInUndoList ( 10, "AutoCorrect" )	
+    '/// <B>Autocorrect / Autoformat</B>
+    printlog "- Autocorrect / Autoformat"
+    '/// new document
+    Call hNewDocument
+    '/// <B>Autocorrect</B>
+    printlog "- Autocorrect"
+    '/// type with quote and blank at the end 'www.sun.com '
+    Call wTypeKeys ( "www.sun.com " )
+    '///  string in Undo-list has to be: "AutoCorrect")
+    Call CheckUndoStringInUndoList ( 10, "AutoCorrect" )
 
     '/// insert a line break
-	Call wTypeKeys ( "<Return>" )
-	'/// <B>Autoformat</B>
-	printlog "- Autoformat"
-	'/// type - AutoFormat test<Return>
-	Call wTypeKeys ( "- AutoFormat test<Return>" )
-	'///  string in Undo-list has to be: "AutoCorrect") 
-	Call CheckUndoStringInUndoList ( 10, "AutoFormat" )	
-	
-	'/// close document
-	Call hCloseDocument
+    Call wTypeKeys ( "<Return>" )
+    '/// <B>Autoformat</B>
+    printlog "- Autoformat"
+    '/// type - AutoFormat test<Return>
+    Call wTypeKeys ( "- AutoFormat test<Return>" )
+    '///  string in Undo-list has to be: "AutoCorrect")
+    Call CheckUndoStringInUndoList ( 10, "AutoFormat" )
+
+    '/// close document
+    Call hCloseDocument
 endcase
 
 
 testcase tUndoDrawObject
-	'/// <B>Draw object</B>
-	printlog "- Draw object"
-	'/// new document
-	Call hNewDocument
-	'/// Insert a freeform line object
-	
+    '/// <B>Draw object</B>
+    printlog "- Draw object"
+    '/// new document
+    Call hNewDocument
+    '/// Insert a freeform line object
+
     ViewZoom
     Kontext "Massstab"
     Optimal.Check
@@ -220,18 +220,18 @@ testcase tUndoDrawObject
     Call gMouseClick( 55, 70 )
     Call wTypeKeys ("<Escape>")
 
-	'///  string in Undo-list has to be: "Insert draw object: freeform line") 
-	Call CheckUndoStringInUndoList ( 10, "FreeForm" )
+    '///  string in Undo-list has to be: "Insert draw object: freeform line")
+    Call CheckUndoStringInUndoList ( 10, "FreeForm" )
 
-	'/// close document
-	Call hCloseDocument	
+    '/// close document
+    Call hCloseDocument
 endcase
 
 
 testcase tUndoDrawObjectGroup
 
-	'/// <B>Group of Drawing objects</B>
-	printlog "- Group of Drawing objects"
+    '/// <B>Group of Drawing objects</B>
+    printlog "- Group of Drawing objects"
     '/// new document ///
     Call hNewDocument
     ViewZoom
@@ -249,172 +249,172 @@ testcase tUndoDrawObjectGroup
     '/// Select Format / Group / Group ///
     try
         printlog "- group objects"
-		FormatGroupGroup
+        FormatGroupGroup
         Sleep 1
-		'///  string in Undo-list has to be: "Group draw objects") 
-		Call CheckUndoStringInUndoList ( 10, "DrawGroup" )
-
-		'/// Format / Name object
-		printlog "- name objects"
-		FormatNameObject
-		Kontext "NameDlgObject"
-		NameField.Settext "MyGroup"
-		NameDlgObject.OK
-		'///  string in Undo-list has to be: "Rename 2 Rectangles")
-		Call CheckUndoStringInUndoList ( 10, "RenameGroup" )
-
-		'/// Select Format / Group / Ungroup ///
-		printlog "- ungroup objects"
-		FormatUngroupDraw
-		'///  string in Undo-list has to be: "Ungroup group object") 
-		Call CheckUndoStringInUndoList ( 10, "DrawUnGroup" )
-
-		'/// Select 1 object and delete it
-		Call gMouseClick ( 40, 52 )
-		printlog "- delete object"
-		Call wTypeKeys "<Delete>"
-		'///  string in Undo-list has to be: "Delete 2 Rectangles") 
-		Call CheckUndoStringInUndoList ( 10, "DeleteGroup" )
-	catch
+        '///  string in Undo-list has to be: "Group draw objects")
+        Call CheckUndoStringInUndoList ( 10, "DrawGroup" )
+
+        '/// Format / Name object
+        printlog "- name objects"
+        FormatNameObject
+        Kontext "NameDlgObject"
+        NameField.Settext "MyGroup"
+        NameDlgObject.OK
+        '///  string in Undo-list has to be: "Rename 2 Rectangles")
+        Call CheckUndoStringInUndoList ( 10, "RenameGroup" )
+
+        '/// Select Format / Group / Ungroup ///
+        printlog "- ungroup objects"
+        FormatUngroupDraw
+        '///  string in Undo-list has to be: "Ungroup group object")
+        Call CheckUndoStringInUndoList ( 10, "DrawUnGroup" )
+
+        '/// Select 1 object and delete it
+        Call gMouseClick ( 40, 52 )
+        printlog "- delete object"
+        Call wTypeKeys "<Delete>"
+        '///  string in Undo-list has to be: "Delete 2 Rectangles")
+        Call CheckUndoStringInUndoList ( 10, "DeleteGroup" )
+    catch
         Warnlog "Unable to execute 'Format / Group / Group' -> disabled!"
     endcatch
 
-	'/// close document
-	Call hCloseDocument
+    '/// close document
+    Call hCloseDocument
 endcase
 
 
 testcase tUndoSpellcheck
-	Dim sReplace as string
+    Dim sReplace as string
 
-	'/// <B>Spellcheck(Autocheck/Spellcheck)</B>
-	printlog "- Spellcheck: Autocheck"
+    '/// <B>Spellcheck(Autocheck/Spellcheck)</B>
+    printlog "- Spellcheck: Autocheck"
     '/// new document ///
     hfileOpen (gTesttoolpath + "writer\optional\input\undo\spellcheck_undo.odt")
     Call sMakeReadOnlyDocumentEditable
-	'/// Type "This is a testp<End>"
-	Call wTypeKeys ( "<End>" )  'This is a testp
-	'/// Select word' testp'
-	Call wTypeKeys ( "<Mod1 Shift Left>" )
-	'/// Tools / Spellcheck
-	ToolsSpellcheckWriter
-	Kontext "Spellcheck"
-	Suggestions.Select 1
-	sReplace = Suggestions.GetSelText
-	'///Replace with 1st word in suggestion list
-	printlog "-> Replace with word: " & sReplace
-	Change.Click
-	Kontext "Active"
-	if Active.Exists then
-		if Active.GetRT = 304 then
-			Active.Ok
-		end if
-	end if
-	Kontext "Spellcheck"
-	if Spellcheck.Exists then Spellcheck.Close
-	'///  string in Undo-list has to be: "Replace: 'Testp' -> 'Test'") 
-	Call CheckUndoStringInUndoList ( 10, "Autocheck/Spellcheck" )
+    '/// Type "This is a testp<End>"
+    Call wTypeKeys ( "<End>" )  'This is a testp
+    '/// Select word' testp'
+    Call wTypeKeys ( "<Mod1 Shift Left>" )
+    '/// Tools / Spellcheck
+    ToolsSpellcheckWriter
+    Kontext "Spellcheck"
+    Suggestions.Select 1
+    sReplace = Suggestions.GetSelText
+    '///Replace with 1st word in suggestion list
+    printlog "-> Replace with word: " & sReplace
+    Change.Click
+    Kontext "Active"
+    if Active.Exists then
+        if Active.GetRT = 304 then
+            Active.Ok
+        end if
+    end if
+    Kontext "Spellcheck"
+    if Spellcheck.Exists then Spellcheck.Close
+    '///  string in Undo-list has to be: "Replace: 'Testp' -> 'Test'")
+    Call CheckUndoStringInUndoList ( 10, "Autocheck/Spellcheck" )
 
     '/// Uncheck 'Autospellcheck' in Toolbar ///
     ToolsSpellcheckAutoSpellcheck
 
-	printlog "- Spellcheck"
-	Call wTypeKeys ( "<End><Return>", 2 )
-	'/// retype 'testp'
-	Call wTypeKeys ( "testp<Shift Home>" )
-	ToolsSpellcheckWriter
-	Kontext "Spellcheck"
-	' Workaround: For some reasons sometimes dialog is disabled here
-	' Only reproducable by testtool
-	try
-		Suggestions.Select 1
-	catch
-		Spellcheck.Close
-		ToolsSpellcheckWriter
-		Kontext "Spellcheck"
-		Suggestions.Select 1
-	endcatch		
-	Change.Click
-	Kontext "Active"
-	if Active.Exists then
-		if Active.GetRT = 304 then
-			try
-				Active.No
-			catch
-				Active.Ok
-			endcatch
-		end if
-	end if
-	Kontext "Spellcheck"
-	if Spellcheck.Exists then Spellcheck.Close
-	
-	'///  string in Undo-list has to be: "Replace: 'Testp' -> 'Test'") 
-	Call CheckUndoStringInUndoList ( 10, "Autocheck/Spellcheck" )
-
-	'/// close document
+    printlog "- Spellcheck"
+    Call wTypeKeys ( "<End><Return>", 2 )
+    '/// retype 'testp'
+    Call wTypeKeys ( "testp<Shift Home>" )
+    ToolsSpellcheckWriter
+    Kontext "Spellcheck"
+    ' Workaround: For some reasons sometimes dialog is disabled here
+    ' Only reproducable by testtool
+    try
+        Suggestions.Select 1
+    catch
+        Spellcheck.Close
+        ToolsSpellcheckWriter
+        Kontext "Spellcheck"
+        Suggestions.Select 1
+    endcatch
+    Change.Click
+    Kontext "Active"
+    if Active.Exists then
+        if Active.GetRT = 304 then
+            try
+                Active.No
+            catch
+                Active.Ok
+            endcatch
+        end if
+    end if
+    Kontext "Spellcheck"
+    if Spellcheck.Exists then Spellcheck.Close
+
+    '///  string in Undo-list has to be: "Replace: 'Testp' -> 'Test'")
+    Call CheckUndoStringInUndoList ( 10, "Autocheck/Spellcheck" )
+
+    '/// close document
     Call hCloseDocument
 endcase
 
 
 testcase tUndoFormControl
 
-	'/// <B>Form Control (Insert/resize/move/replace/change property/delete)</B>
-	printlog "- Form control (insert)"
-	'/// new document
-	Call hNewDocument
-	'/// Open 'Form' Toolbox ///
-	Call hToolbarSelect ("FormControls", true)
-	'Formsbar.Move 20, 30
-	'/// Insert a pushbutton from toolbox ///
-	Pushbutton.Click
+    '/// <B>Form Control (Insert/resize/move/replace/change property/delete)</B>
+    printlog "- Form control (insert)"
+    '/// new document
+    Call hNewDocument
+    '/// Open 'Form' Toolbox ///
+    Call hToolbarSelect ("FormControls", true)
+    'Formsbar.Move 20, 30
+    '/// Insert a pushbutton from toolbox ///
+    Pushbutton.Click
     Kontext "DocumentWriter"
     DocumentWriter.MouseDown ( 40, 50 )
     DocumentWriter.MouseMove ( 50, 55 )
     DocumentWriter.MouseUp   ( 50, 55 )
     Sleep 1
 
-	'///  string in Undo-list has to be: "Insert control") 
-	Call CheckUndoStringInUndoList ( 10, "ControlInsert" )
-
-	printlog "- Form control (move)"
-	'/// Press '<Up>' to move control
-	Call wTypeKeys ( "<Up>" )
-	'///  string in Undo-list has to be: "Move control")
-	Call CheckUndoStringInUndoList ( 10, "ControlMove" )
-
-	printlog "- Form control (resize)"
-	'/// Press '<Ctrl+Tab>' to enter handle selection mode
-	Call wTypeKeys ( "<Mod1 Tab>" )
-	'/// Press '<Up>' to resize control
-	Call wTypeKeys ( "<Up>" )
-	'///  string in Undo-list has to be: "Resize control")
-	Call CheckUndoStringInUndoList ( 10, "ControlResize" )
-
-	printlog "- Form control (replace)"
-	'/// Select 'Format->Replace with-> Text box'
-	FormatReplaceWithTextBox
-	wait 500
-	'///  string in Undo-list has to be: "Replace control")
-	Call CheckUndoStringInUndoList ( 10, "ControlReplace" )
-
-	printlog "- Form control (change property)"
-	'/// Select 'Format->Control' and change name of control
-	FormatControl
-	Kontext "ControlPropertiesTabControl"
+    '///  string in Undo-list has to be: "Insert control")
+    Call CheckUndoStringInUndoList ( 10, "ControlInsert" )
+
+    printlog "- Form control (move)"
+    '/// Press '<Up>' to move control
+    Call wTypeKeys ( "<Up>" )
+    '///  string in Undo-list has to be: "Move control")
+    Call CheckUndoStringInUndoList ( 10, "ControlMove" )
+
+    printlog "- Form control (resize)"
+    '/// Press '<Ctrl+Tab>' to enter handle selection mode
+    Call wTypeKeys ( "<Mod1 Tab>" )
+    '/// Press '<Up>' to resize control
+    Call wTypeKeys ( "<Up>" )
+    '///  string in Undo-list has to be: "Resize control")
+    Call CheckUndoStringInUndoList ( 10, "ControlResize" )
+
+    printlog "- Form control (replace)"
+    '/// Select 'Format->Replace with-> Text box'
+    FormatReplaceWithTextBox
+    wait 500
+    '///  string in Undo-list has to be: "Replace control")
+    Call CheckUndoStringInUndoList ( 10, "ControlReplace" )
+
+    printlog "- Form control (change property)"
+    '/// Select 'Format->Control' and change name of control
+    FormatControl
+    Kontext "ControlPropertiesTabControl"
     ControlPropertiesTabControl.setPage TabGeneralControl
-	Kontext "TabGeneralControl"
-	NameText.Settext "MyControl"
+    Kontext "TabGeneralControl"
+    NameText.Settext "MyControl"
     FormatControl
-	'///  string in Undo-list has to be: "Set property 'Name'")
-	Call CheckUndoStringInUndoList ( 10, "ControlChange" )
-
-	printlog "- Form control (delete)"
-	'/// Press '<Delete>' to delete control
-	Call wTypeKeys ( "<Delete>" )
-	'///  string in Undo-list has to be: "Delete control")
-	Call CheckUndoStringInUndoList ( 10, "ControlDelete" )
-	
-	'/// close document
+    '///  string in Undo-list has to be: "Set property 'Name'")
+    Call CheckUndoStringInUndoList ( 10, "ControlChange" )
+
+    printlog "- Form control (delete)"
+    '/// Press '<Delete>' to delete control
+    Call wTypeKeys ( "<Delete>" )
+    '///  string in Undo-list has to be: "Delete control")
+    Call CheckUndoStringInUndoList ( 10, "ControlDelete" )
+
+    '/// close document
     Call hCloseDocument
 endcase
 
@@ -423,73 +423,73 @@ testcase tUndoHeaderFooter
 
     QAErrorlog "#i56552#footer deletion cannot be undone"
     goto endsub
-	'/// Insert header
-	printlog "- Insert header"
-	'/// new Document
-	Call hNewDocument
-	'/// Insert / Header / Default
-     DocumentWriter.UseMenu
-     MenuSelect(Menugetitemid(4))
-     Sleep 2
-     MenuSelect(Menugetitemid(9))
-     Sleep 2
-     MenuSelect(Menugetitemid(1))
-     Sleep 2
-	'///  string in Undo-list has to be: "Header/footer changed")
-	Call CheckUndoStringInUndoList ( 10, "Header/Footer" )
-
-	'///  Delete header
-	printlog "- Delete header"
+    '/// Insert header
+    printlog "- Insert header"
+    '/// new Document
+    Call hNewDocument
+    '/// Insert / Header / Default
+    DocumentWriter.UseMenu
+    MenuSelect(Menugetitemid(4))
+    Sleep 2
+    MenuSelect(Menugetitemid(9))
+    Sleep 2
+    MenuSelect(Menugetitemid(1))
+    Sleep 2
+    '///  string in Undo-list has to be: "Header/footer changed")
+    Call CheckUndoStringInUndoList ( 10, "Header/Footer" )
+
+    '///  Delete header
+    printlog "- Delete header"
     Kontext "DocumentWriter"
-	DocumentWriter.UseMenu
+    DocumentWriter.UseMenu
     MenuSelect(Menugetitemid(4))
     Sleep 2
     MenuSelect(Menugetitemid(9))
     Sleep 2
     MenuSelect(Menugetitemid(1))
     Sleep 2
-	Kontext "Active"
-	if Active.Exists then
-		if Active.GetRT = 304 then
-			Active.Yes
-		end if
-	end if
-	'///  string in Undo-list has to be: "Header/footer changed")
-	Call CheckUndoStringInUndoList ( 10, "Header/Footer" )
-
-	'/// Insert footer
-	printlog "- Insert footer"
-	'/// Insert / Header / Default
-     Kontext "DocumentWriter"
-	 DocumentWriter.UseMenu
-     MenuSelect(Menugetitemid(4))
-     Sleep 2
-     MenuSelect(Menugetitemid(10))
-     Sleep 2
-     MenuSelect(Menugetitemid(1))
-     Sleep 2
-	'///  string in Undo-list has to be: "Header/footer changed")
-	Call CheckUndoStringInUndoList ( 10, "Header/Footer" )
-
-	'///  Delete footer
-	printlog "- Delete footer"
+    Kontext "Active"
+    if Active.Exists then
+        if Active.GetRT = 304 then
+            Active.Yes
+        end if
+    end if
+    '///  string in Undo-list has to be: "Header/footer changed")
+    Call CheckUndoStringInUndoList ( 10, "Header/Footer" )
+
+    '/// Insert footer
+    printlog "- Insert footer"
+    '/// Insert / Header / Default
     Kontext "DocumentWriter"
-	DocumentWriter.UseMenu
+    DocumentWriter.UseMenu
     MenuSelect(Menugetitemid(4))
     Sleep 2
     MenuSelect(Menugetitemid(10))
     Sleep 2
     MenuSelect(Menugetitemid(1))
     Sleep 2
-	Kontext "Active"
-	if Active.Exists then
-		if Active.GetRT = 304 then
-			Active.Yes
-		end if
-	end if
-	'///  string in Undo-list has to be: "Header/footer changed")
-	Call CheckUndoStringInUndoList ( 10, "Header/Footer" )
-
-	 '/// close document
-	 Call hCloseDocument
+    '///  string in Undo-list has to be: "Header/footer changed")
+    Call CheckUndoStringInUndoList ( 10, "Header/Footer" )
+
+    '///  Delete footer
+    printlog "- Delete footer"
+    Kontext "DocumentWriter"
+    DocumentWriter.UseMenu
+    MenuSelect(Menugetitemid(4))
+    Sleep 2
+    MenuSelect(Menugetitemid(10))
+    Sleep 2
+    MenuSelect(Menugetitemid(1))
+    Sleep 2
+    Kontext "Active"
+    if Active.Exists then
+        if Active.GetRT = 304 then
+            Active.Yes
+        end if
+    end if
+    '///  string in Undo-list has to be: "Header/footer changed")
+    Call CheckUndoStringInUndoList ( 10, "Header/Footer" )
+
+    '/// close document
+    Call hCloseDocument
 endcase