diff options
Diffstat (limited to 'testautomation/writer/tools/includes/w_tool3.inc')
| -rwxr-xr-x | testautomation/writer/tools/includes/w_tool3.inc | 649 |
1 files changed, 649 insertions, 0 deletions
diff --git a/testautomation/writer/tools/includes/w_tool3.inc b/testautomation/writer/tools/includes/w_tool3.inc new file mode 100755 index 000000000000..9453d9c671f4 --- /dev/null +++ b/testautomation/writer/tools/includes/w_tool3.inc @@ -0,0 +1,649 @@ +'******************************************************************************* +'* DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER. +'* +'* Copyright 2008 by Sun Microsystems, Inc. +'* +'* OpenOffice.org - a multi-platform office productivity suite +'* +'* $RCSfile: w_tool3.inc,v $ +'* +'* $Revision: 1.2 $ +'* +'* last change: $Author: vg $ $Date: 2008-08-18 12:43:26 $ +'* +'* This file is part of OpenOffice.org. +'* +'* OpenOffice.org is free software: you can redistribute it and/or modify +'* it under the terms of the GNU Lesser General Public License version 3 +'* only, as published by the Free Software Foundation. +'* +'* OpenOffice.org is distributed in the hope that it will be useful, +'* but WITHOUT ANY WARRANTY; without even the implied warranty of +'* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the +'* GNU Lesser General Public License version 3 for more details +'* (a copy is included in the LICENSE file that accompanied this code). +'* +'* You should have received a copy of the GNU Lesser General Public License +'* version 3 along with OpenOffice.org. If not, see +'* <http://www.openoffice.org/license.html> +'* for a copy of the LGPLv3 License. +'* +'/****************************************************************************** +'* +'* owner : helge.delfs@sun.com +'* +'* short description : Description of file +'* +'\****************************************************************************** + +sub InTabelleKontrollieren + Call wTypeKeys ("<Home>") + Call wTypeKeys ("<Tab><Shift End>") + EditCopy + if GetClipBoardText <> "Text" then + Warnlog "Text has not been inserted in a table" + else + Call wTypeKeys "<Home>" + Call wTypeKeys "<Shift End>" + end if +end sub + +' **** +sub InTabelleKontrollierenExtra + Call wTypeKeys ("<Home><Shift Tab><Shift End>") + EditCopy + if GetClipBoardText <> "Der" then + Warnlog "Text has not been inserted in a table" + else + Call wTypeKeys "<Home>" + Call wTypeKeys "<Shift End>" + end if +end sub + +'*** +sub InTextKontrollieren + Call wTypeKeys ("<Home><Shift Mod1 Right>") + EditCopy + if Left$(GetClipBoardText,3) <> "Der" AND Left$(GetClipboardText,4) <> "Der " then + Warnlog "Table has not been changed to text" + else + Call wTypeKeys "<Home>" + Call wTypeKeys "<Shift End>" + end if +end sub + +'*** +sub AufsteigendKontrollieren ( Zahl as Boolean ) + Call wTypeKeys "<Home><Up>",6 + wait 500 + Call wTypeKeys ("<Home><Shift End>" ) + hUseAsyncSlot( "EditCopy" ) + if Zahl = TRUE then + if GetClipboardText <> "23" then Warnlog "1. Number not correctly sorted" + else + if GetClipboardText <> "Ahallo" then Warnlog "1. Word is not correctly sorted" + end if + Call wTypeKeys ( "<Down><Down><Home><Shift End>" ) + hUseAsyncSlot( "EditCopy" ) + if Zahl = TRUE then + if GetClipboardText <> "54" then Warnlog "3. Number not correctly sorted" + else + if GetClipboardText <> "Ohallo" then Warnlog "3. Word not correctly sorted" + end if + Call wTypeKeys ( "<Down><Down><Home><Shift End>" ) + hUseAsyncSlot( "EditCopy" ) + if Zahl = TRUE then + if GetClipboardText <> "65" then Warnlog "Last number is not correctly sorted" + else + if GetClipboardText <> "Zhallo" then Warnlog "Last word is not correctly sorted" + end if +end sub + +'*** +sub AbsteigendKontrollieren ( Zahl as Boolean ) + Call wTypeKeys "<Home><Up>",6 + wait 500 + Call wTypeKeys ( "<Home><Shift End>" ) + hUseAsyncSlot( "EditCopy" ) + if Zahl = TRUE then + if GetClipboardText <> "65" then Warnlog "1. Number not correctly sorted" + else + if GetClipboardText <> "Zhallo" then Warnlog "1. word not correctly sorted" + end if + Call wTypeKeys ( "<Down><Down><Down><Home><Shift End>" ) + hUseAsyncSlot( "EditCopy" ) + if Zahl = TRUE then + if GetClipboardText <> "43" then Warnlog "4th number not correctly sorted" + else + if GetClipboardText <> "Ghallo" then Warnlog "4th word not correctly sorted" + end if + Call wTypeKeys ( "<Down><Home><Shift End>" ) + hUseAsyncSlot( "EditCopy" ) + if Zahl = TRUE then + if GetClipboardText <> "23" then Warnlog "Wrong sort: last number. Should => "+"Ohallo"+" Is =>"+GetClipboardText + else + if GetClipboardText <> "Ahallo" then Warnlog "Wrong sort: last word. Should => "+"Ohallo"+" Is =>"+GetClipboardText + end if +end sub + +'*** +sub AufSortierungPruefen(i as integer) + Call wTypeKeys "<Home>" + Call wTypeKeys "<up>",6 + Call wTypeKeys "<Shift Mod1 Right>" + hUseAsyncSlot( "EditCopy" ) + if GetClipboardText = Trennzeichen then + QaErrorLog "#i94661# - Marked the Separator-Sign, correcting now." + Call wTypeKeys "<Right><Shift Mod1 Right>" + EditCopy + end if + if Left$(GetClipboardText,3) <> "AAA" then Warnlog "Entry in 1.Column/1.Row incorrect" + if i <> 1 then + Call wTypeKeys "<Mod1 Right>", 3 + else + Call wTypeKeys "<Mod1 Right>" + end if + Call wTypeKeys "<Shift Mod1 Right>" + hUseAsyncSlot( "EditCopy" ) + if Left$(GetClipboardText,3) <> "CCC" then Warnlog "Entry in 2.Column/1.Row incorrect" + Call wTypeKeys "<Down><Home>" + Call wTypeKeys "<Shift Mod1 Right>" + hUseAsyncSlot( "EditCopy" ) + if GetClipboardText = Trennzeichen then + QaErrorLog "#i94661# - Marked the Separator-Sign, correcting now." + Call wTypeKeys "<Home><Shift Mod1 Right>" + EditCopy + end if + if Left$(GetClipboardText,3) <> "AAA" then Warnlog "Entry in 1.Column/2.Row incorrect" + if i <> 1 then + Call wTypeKeys "<Mod1 Right>", 3 + else + Call wTypeKeys "<Mod1 Right>" + end if + Call wTypeKeys "<Shift Mod1 Right>" + hUseAsyncSlot( "EditCopy" ) + if GetClipboardText = Trennzeichen then + QaErrorLog "#i94661# - Marked the Separator-Sign, correcting now." + Call wTypeKeys "<Right><Shift Mod1 Right>" + EditCopy + end if + if Left$(GetClipboardText,3) <> "DDD" then Warnlog "Entry in 2.Column/2.Row incorrect" + Call wTypeKeys "<Down><Home>" + if i <> 1 then + Call wTypeKeys "<Mod1 Right>", 10 + else + Call wTypeKeys "<Mod1 Right>", 5 + end if + Call wTypeKeys "<Shift Mod1 Right>" + hUseAsyncSlot( "EditCopy" ) + if GetClipboardText = Trennzeichen then + QaErrorLog "#i94661# - Marked the Separator-Sign, correcting now." + Call wTypeKeys "<Right><Shift Mod1 Right>" + EditCopy + end if + if Left$(GetClipboardText,3) <> "AAA" then Warnlog "Entry in 4.Column/3.Row incorrect" +end sub + +'*** +sub AbSortierungPruefen(i as integer) + Call wTypeKeys "<Home>" + Call wTypeKeys "<up>", 6 + Call wTypeKeys "<Shift Mod1 Right>" + hUseAsyncSlot( "EditCopy" ) + if GetClipboardText = Trennzeichen then + QaErrorLog "#i94661# - Marked the Separator-Sign, correcting now." + Call wTypeKeys "<Right><Shift Mod1 Right>" + EditCopy + end if + if Left$(GetClipboardText,3) <> "CCC" then Warnlog "Entry in 1.Column/1.Row incorrect" + Call wTypeKeys "<Down><Shift Mod1 Left>" + hUseAsyncSlot( "EditCopy" ) + if GetClipboardText = Trennzeichen then + QaErrorLog "#i94661# - Marked the Separator-Sign, correcting now." + Call wTypeKeys "<Home><Shift Mod1 Right>" + EditCopy + end if + if Left$(GetClipboardText,3) <> "CCC" then Warnlog "Entry in 1.Column/2.Row incorrect" + if i <> 1 then + Call wTypeKeys "<Mod1 Right>" , 4 + else + Call wTypeKeys "<Mod1 Right>" , 2 + end if + Call wTypeKeys "<Shift Mod1 Right>" + hUseAsyncSlot( "EditCopy" ) + if GetClipboardText = Trennzeichen then + QaErrorLog "#i94661# - Marked the Separator-Sign, correcting now." + Call wTypeKeys "<MOD1 Left>", 2 + Call wTypeKeys "<Shift MOD1 Right>" + EditCopy + end if + if Left$(GetClipboardText,3) <> "BBB" then Warnlog "Entry in 2.Column/2.Row incorrect" + Call wTypeKeys "<Left><Up>" + Call wTypeKeys "<Right>" + Call wTypeKeys "<Shift Mod1 Left>" + hUseAsyncSlot( "EditCopy" ) + if GetClipboardText = Trennzeichen then + QaErrorLog "#i94661# - Marked the Separator-Sign, correcting now." + Call wTypeKeys "<Right><Shift Mod1 Right>" + EditCopy + end if + if Left$(GetClipboardText,3) <> "EEE" then Warnlog "Entry in 2.Column/1.Row incorrect" + if i <> 1 then + Call wTypeKeys "<Mod1 Right>", 6 + Call wTypeKeys "<Down>", 3 + Call wTypeKeys "<End><Shift Mod1 Left>" + else + Call wTypeKeys "<Mod1 Right>", 3 + Call wTypeKeys "<Down>", 3 + Call wTypeKeys "<Shift Mod1 Right>" + end if + hUseAsyncSlot( "EditCopy" ) + if GetClipboardText = Trennzeichen then + QaErrorLog "#i94661# - Marked the Separator-Sign, correcting now." + Call wTypeKeys "<Right><Shift Mod1 Right>" + EditCopy + end if + if Left$(GetClipboardText,3) <> "AAA" then Warnlog "Entry in 2.Column/1.Row incorrect" +end sub + +'*** +sub UndoRichtigBeiSortierung + Dim Fehler as Boolean + Call wTypeKeys "<Left Right>" + wait 100 + EditUndo + Sleep 1 + Call wTypeKeys "<Home>" + Call wTypeKeys "<up>", 6 + Call wTypeKeys "<Shift Mod1 Right>" + EditCopy + if Left$(GetClipboardText,3) <> "AAA" then Fehler = TRUE + Call wTypeKeys "<Down><Home><Shift Mod1 Right>" + hUseAsyncSlot( "EditCopy" ) + if Left$(GetClipboardText,3) <> "BBB" then Fehler = TRUE + Call wTypeKeys "<Down><Home><Shift Mod1 Right>" + hUseAsyncSlot( "EditCopy" ) + if Left$(GetClipboardText,3) <> "CCC" then Fehler = TRUE + Call wTypeKeys "<Down><Home><Shift Mod1 Right>" + hUseAsyncSlot( "EditCopy" ) + if Left$(GetClipboardText,3) <> "AAA" then Fehler = TRUE + Call wTypeKeys "<Down><Home><Shift Mod1 Right>" + hUseAsyncSlot( "EditCopy" ) + if Left$(GetClipboardText,3) <> "BBB" then Fehler = TRUE + Call wTypeKeys "<Down><Home><Shift Mod1 Right>" + hUseAsyncSlot( "EditCopy" ) + if Left$(GetClipboardText,3) <> "CCC" then Fehler = TRUE + if Fehler = TRUE then + Warnlog "Undo after sorting has not been functioned correctly" + Call hCloseDocument + Call hFileOpen ( gTesttoolPath + "writer\optional\input\st1_5.sdw" ) + end if + Call wTypeKeys "<End>" + Call wTypeKeys "<Down>",6 + Call wTypeKeys "<Mod1 a>" + wait 100 +end sub + +'*** +sub TrennzeichenSetzen ( Trennstring as String ) + EditSearchAndReplace + Kontext "FindAndReplace" + if FindAndReplace.NotExists then EditSearchAndReplace + Kontext "FindAndReplace" + if Not RegularExpressions.IsVisible then More.Click + Select Case Trennstring + Case ";" + RegularExpressions.Check + SearchFor.SetText "\t" + + Case "|" + RegularExpressions.Check + SearchFor.SetText "\t" + + end select + + ReplaceWith.SetText TrennString + ReplaceAll.Click + + Kontext + if MessageBox.Exists then + if InStr( MessageBox.GetText, "30" ) = 0 then + MessageBox.OK + Kontext "FindAndReplace" + RegularExpressions.Check + SearchFor.SetText "\t" + ReplaceWith.SetText TrennString + ReplaceAll.Click + Sleep 1 + Kontext + if MessageBox.Exists then + if InStr( MessageBox.GetText, "30" ) = 0 then + MessageBox.OK + else + Warnlog "Unable to insert Character. Following test doesn't work!" + MessageBox.OK + end if + end if + else + MessageBox.OK + end if + end if + Kontext "FindAndReplace" + More.Click + if FindAndReplace.Exists then FindAndReplace.Close +end sub + +'*** +function ZelleRuntertesten ( Wert$ ) as Boolean + Call wTypeKeys "<Down>" + Call wTypeKeys "<Mod1 a>" + hUseAsyncSlot( "EditCopy" ) + if GetClipboardText = Wert$ then + ZelleRuntertesten = TRUE + else + ZelleRuntertesten = FALSE + end if +end function + +'*** + +sub wEinfuegenEintragAlle ( NaWieSollErheissen$ ) + Call wTypeKeys NaWieSollErheissen$ + Call wTypeKeys "<Mod1 Left><Shift Mod1 Right>" + InsertIndexesEntry + Kontext "VerzeichniseintragEinfuegen" + Verzeichnis.Select 1 + VerzeichniseintragEinfuegen.OK + + Call wTypeKeys "<End> " + Call wTypeKeys "<Left><Shift Mod1 Left>" + InsertIndexesEntry + Kontext "VerzeichniseintragEinfuegen" + Verzeichnis.Select 2 + VerzeichniseintragEinfuegen.OK + + Call wTypeKeys "<End> " + Call wTypeKeys "<Left><Left><Shift Mod1 Left>" + InsertIndexesEntry + Kontext "VerzeichniseintragEinfuegen" + Verzeichnis.Select 3 + VerzeichniseintragEinfuegen.OK + Call wTypeKeys "<End> " +end sub + +'*** + +sub ReihenfolgePruefen + Dim sDummy$ + + printlog " - Checking entry's on first page" + Call wTypeKeys "<Down><Shift Mod1 Right>" + hUseAsyncSlot( "EditCopy" ) + sDummy$ = GetClipboardText + if sDummy$ <> "Zhallo" then + if sDummy$ <> "Ahallo" then + Warnlog "Wrong Sort: Should -> Zhallo Is -> "+ sDummy$ + else + Warnlog "Sort infinitely is not in alphabetical order" + Call wTypeKeys "<Home><Down><Shift Mod1 Right>" + wait 100 + EditCopy + if GetClipboardText <> "Zhallo" then Warnlog "2. entry not Zhallo but "+GetClipboardText + end if + else + Call wTypeKeys "<Home><Down><Shift Mod1 Right>" + wait 100 + EditCopy + if GetClipboardText <> "Ahallo" then Warnlog "2. entry not Ahallo but "+GetClipboardText + end if + Call wTypeKeys "<Home><Down><Shift Mod1 Right>" + hUseAsyncSlot( "EditCopy" ) + if GetClipboardText <> "Xhallo" then Warnlog "3. entry not Xhallo but "+GetClipboardText + Call wTypeKeys "<Home><Down><Shift Mod1 Right>" + hUseAsyncSlot( "EditCopy" ) + if GetClipboardText <> "Ghallo" then Warnlog "4. entry not Ghallo but "+GetClipboardText + + printlog " - checking entrys on 3rd page" + Call wTypeKeys "<Home><Down><Shift Mod1 Right>" + hUseAsyncSlot( "EditCopy" ) + sDummy$ = GetClipboardText + if sDummy$ <> "Zhallo" then + if sDummy$ <> "Ahallo" then + Warnlog "Wrong Sort: Should -> Zhallo Is -> "+ sDummy$ + else + Warnlog "Sort infinitely is not in alphabetical order" + Call wTypeKeys "<Home><Down><Shift Mod1 Right>" + wait 100 + EditCopy + if GetClipboardText <> "Zhallo" then Warnlog "6. entry not Zhallo but "+GetClipboardText + end if + else + Call wTypeKeys "<Home><Down><Shift Mod1 Right>" + wait 100 + EditCopy + if GetClipboardText <> "Ahallo" then Warnlog "6. entry not Ahallo but "+GetClipboardText + end if + Call wTypeKeys "<Home><Down><Shift Mod1 Right>" + hUseAsyncSlot( "EditCopy" ) + if GetClipboardText <> "Xhallo" then Warnlog "7. entry not Xhallo but "+GetClipboardText + Call wTypeKeys "<Home><Down><Shift Mod1 Right>" + hUseAsyncSlot( "EditCopy" ) + if GetClipboardText <> "Ghallo" then Warnlog "8. entry not Ghallo but "+GetClipboardText + + printlog " - checking page entrys" + Call wTypeKeys "<End><Shift Mod1 Left>" + hUseAsyncSlot( "EditCopy" ) + if GetClipboardText <> "3" then Warnlog "8. Entry: Not page 3 but "+ GetClipboardText + Call wTypeKeys "<End><Up><Shift Mod1 Left>" + hUseAsyncSlot( "EditCopy" ) + if GetClipboardText <> "3" then Warnlog "7. Entry: Not page 3 but "+ GetClipboardText + Call wTypeKeys "<End><Up><Shift Mod1 Left>" + hUseAsyncSlot( "EditCopy" ) + if GetClipboardText <> "3" then Warnlog "6. entry: Not page 3 but "+ GetClipboardText + Call wTypeKeys "<End><Up><Shift Mod1 Left>" + hUseAsyncSlot( "EditCopy" ) + if GetClipboardText <> "3" then Warnlog "5. entry: Not page 3 but "+ GetClipboardText + Call wTypeKeys "<End><Up><Shift Mod1 Left>" + hUseAsyncSlot( "EditCopy" ) + if GetClipboardText <> "1" then Warnlog "4. entry: Not page 1 but "+ GetClipboardText + Call wTypeKeys "<End><Up><Shift Mod1 Left>" + hUseAsyncSlot( "EditCopy" ) + if GetClipboardText <> "1" then Warnlog "3. entry: Not page 1 but "+ GetClipboardText + Call wTypeKeys "<End><Up><Shift Mod1 Left>" + hUseAsyncSlot( "EditCopy" ) + if GetClipboardText <> "1" then Warnlog "2. entry: Not page 1 but "+ GetClipboardText + Call wTypeKeys "<End><Up><Shift Mod1 Left>" + hUseAsyncSlot( "EditCopy" ) + if GetClipboardText <> "1" then Warnlog "1. entry: Not page 1 but "+ GetClipboardText + Call wTypeKeys "<End><Up><Shift Mod1 Left>" +end sub + +'*** +sub ReihenfolgePruefen2 + printlog " - checking entrys" + Call wTypeKeys "<Down><Shift Mod1 Right>" + hUseAsyncSlot( "EditCopy" ) + if GetClipboardText <> "Ahallo" then Warnlog "1. entry not Ahallo but "+GetClipboardText + Call wTypeKeys "<Home><Down><Shift Mod1 Right>" + hUseAsyncSlot( "EditCopy" ) + if GetClipboardText <> "Ghallo" then Warnlog "2. entry not Ghallo but "+GetClipboardText + Call wTypeKeys "<Home><Down><Shift Mod1 Right>" + hUseAsyncSlot( "EditCopy" ) + if GetClipboardText <> "Xhallo" then Warnlog "3. entry not Xhallo but "+GetClipboardText + Call wTypeKeys "<Home><Down><Shift Mod1 Right>" + hUseAsyncSlot( "EditCopy" ) + if GetClipboardText <> "Zhallo" then Warnlog "4. entry not Zhallo but "+GetClipboardText + Call wTypeKeys "<Down><Mod1 Left><Shift Mod1 Right>" + hUseAsyncSlot( "EditCopy" ) + if GetClipboardText <> "Bhallo " then Warnlog "Number of entrys more then 4." + + printlog " - checking page entrys" + Call wTypeKeys "<Up>" + Call wTypeKeys "<Shift Mod1 Right>", 3 + hUseAsyncSlot( "EditCopy" ) + if GetClipboardText <> "1, 3" then Warnlog "4. entry: Not '1, 3' but "+ GetClipboardText + Call wTypeKeys "<Up>" + Call wTypeKeys "<Shift Mod1 Left>", 3 + hUseAsyncSlot( "EditCopy" ) + if GetClipboardText <> "1, 3" then Warnlog "3. entry: Not '1, 3' but "+ GetClipboardText + Call wTypeKeys "<Up>" + Call wTypeKeys "<Shift Mod1 Right>", 3 + hUseAsyncSlot( "EditCopy" ) + if GetClipboardText <> "1, 3" then Warnlog "2. entry: Not '1, 3' but "+ GetClipboardText + Call wTypeKeys "<Up>" + Call wTypeKeys "<Shift Mod1 Left>", 3 + hUseAsyncSlot( "EditCopy" ) + if GetClipboardText <> "1, 3" then Warnlog "1. entry: Not '1, 3' but "+ GetClipboardText +end sub +' *** +function SchriftFormatTesten ( sName$ ) as String + SchriftFormatTesten = sName$ + FormatCharacter + Kontext + Active.SetPage TabFont + Kontext "TabFont" + if FontWest.GetSelText <> sName then SchriftFormatTesten = FontWest.GetSelText + TabFont.OK +end function + +' ******************************************************************* + +function ErmittleErgebnis ( Ergebnis as String ) as Boolean + ErmittleErgebnis = TRUE + Kontext "DocumentWriter" + Call wTypeKeys "<End><Shift Home>" + EditCopy + Wait 500 + if GetClipboardText <> Ergebnis then ErmittleErgebnis = FALSE +end function + +' ******************************************************************* + +sub VerzeichnisUeberNavigator(Welches as integer) + dim j as integer + Kontext "Navigator" + if Navigator.NotExists then ViewNavigator + Kontext "NavigatorWriter" + if Auswahlliste.GetItemCount<11 then Inhaltsansicht.Click + + if Auswahlliste.GetItemCount >11 then + For j= 1 to 11 + Auswahlliste.Select j + Auswahlliste.TypeKeys "-" + next j + end if + + wait 500 + + Auswahlliste.Select 10 + Auswahlliste.TypeKeys "+" + Auswahlliste.Select 10 + Welches + Auswahlliste.TypeKeys "<Return>" + Kontext "DocumentWriter" +end sub + +'********************************************************** + +sub sZahlenformatfuerZelle + Kontext "DocumentWriter" + FormatNumberFormat + Kontext "Zahlenformat" + Kategorie.Select 3 + KategorieFormat.Select 1 + Zahlenformat.OK + Kontext "DocumentWriter" +end sub + +'********************************************************** + +sub sNavigatorInBrauchbarenZustand + dim j as integer + Kontext "NavigatorWriter" + if NavigatorWriter.NotExists then ViewNavigator + if Auswahlliste.GetItemCount<11 then Inhaltsansicht.Click + Wait 500 + if Auswahlliste.GetItemCount >11 then + For j= 1 to 11 + Auswahlliste.Select j + Auswahlliste.TypeKeys "-" + next j + end if + + Wait 500 + Auswahlliste.Select 2 + Auswahlliste.TypeKeys "+" + Inhaltsansicht.Click + Kontext "DocumentWriter" +end sub + +'********************************************************** + +sub sZellinhaltInZwischenablage(VergleichDas as string,Aktion as string) + Call wTypeKeys "<Home><Shift End>" + EditCopy + if VergleichDas <> GetClipboardText then Warnlog "- Table has not been splitted correctly!(" + Aktion + ")" +end sub + +'********************************************************** + +sub sSeiteMitBrauchbarerTabelleEinrichten + Call hTabelleEinfuegen + FormatTable + Kontext + Active.SetPage TabTabelle + Kontext "TabTabelle" + Tabellenname.Settext "MeineTabelle" + TabTabelle.OK + + Call wTypeKeys "�berschrift 1" + Call wTypeKeys "<Down>" + Call wTypeKeys "Text 1" + Call wTypeKeys "<Down>" + wait 500 + Call hTabelleEinfuegen + wait 500 + Call wTypeKeys "�berschrift 2" + Call wTypeKeys "<Down>" + Call wTypeKeys "Text 2" + Call wTypeKeys "<Up>",1 +end sub + +'********************************************************** + +sub wOpenContextMenu ( optional FocusParam as boolean) + if IsMissing(FocusParam) = True then + Select Case gApplication + Case "WRITER" + Kontext "DocumentWriter" + Call DocumentWriter.TypeKeys "<SHIFT F10>" 'OpenContextMenu + + Case "MASTERDOCUMENT" + Kontext "DocumentMasterDoc" + Call DocumentMasterDoc.TypeKeys "<SHIFT F10>" 'OpenContextMenu + + end select + else + if FocusParam = True then + Select Case gApplication + Case "WRITER" + Kontext "DocumentWriter" + Call DocumentWriter.OpenContextMenu true + + Case "MASTERDOCUMENT" + Kontext "DocumentMasterDoc" + Call DocumentMasterDoc.OpenContextMenu true + + end select + else + Select Case gApplication + Case "WRITER" + Kontext "DocumentWriter" + Call DocumentWriter.OpenContextMenu + + Case "MASTERDOCUMENT" + Kontext "DocumentMasterDoc" + Call DocumentMasterDoc.OpenContextMenu + end select + end if + end if +end sub |