summaryrefslogtreecommitdiff
path: root/testautomation/writer/optional/includes/undo/w_undo_history_4.inc
diff options
context:
space:
mode:
Diffstat (limited to 'testautomation/writer/optional/includes/undo/w_undo_history_4.inc')
-rw-r--r--testautomation/writer/optional/includes/undo/w_undo_history_4.inc650
1 files changed, 325 insertions, 325 deletions
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