diff options
Diffstat (limited to 'testautomation')
35 files changed, 1281 insertions, 1416 deletions
diff --git a/testautomation/framework/optional/f_basic_gridcontrol.bas b/testautomation/framework/optional/f_basic_gridcontrol.bas index 697618e7fc65..697618e7fc65 100755..100644 --- a/testautomation/framework/optional/f_basic_gridcontrol.bas +++ b/testautomation/framework/optional/f_basic_gridcontrol.bas diff --git a/testautomation/framework/optional/includes/CJK_CollationDialogue_1.inc b/testautomation/framework/optional/includes/CJK_CollationDialogue_1.inc index 06f262f654cb..06f262f654cb 100644..100755 --- a/testautomation/framework/optional/includes/CJK_CollationDialogue_1.inc +++ b/testautomation/framework/optional/includes/CJK_CollationDialogue_1.inc diff --git a/testautomation/framework/optional/includes/CJK_FeatureSwitchTest_1.inc b/testautomation/framework/optional/includes/CJK_FeatureSwitchTest_1.inc index e57146b3c018..e57146b3c018 100644..100755 --- a/testautomation/framework/optional/includes/CJK_FeatureSwitchTest_1.inc +++ b/testautomation/framework/optional/includes/CJK_FeatureSwitchTest_1.inc diff --git a/testautomation/framework/optional/includes/CJK_RubyDialogueProposal_1.inc b/testautomation/framework/optional/includes/CJK_RubyDialogueProposal_1.inc index 61d516534f8c..61d516534f8c 100644..100755 --- a/testautomation/framework/optional/includes/CJK_RubyDialogueProposal_1.inc +++ b/testautomation/framework/optional/includes/CJK_RubyDialogueProposal_1.inc diff --git a/testautomation/framework/optional/includes/basic_gridcontrol.inc b/testautomation/framework/optional/includes/basic_gridcontrol.inc index c0e766222631..c0e766222631 100755..100644 --- a/testautomation/framework/optional/includes/basic_gridcontrol.inc +++ b/testautomation/framework/optional/includes/basic_gridcontrol.inc diff --git a/testautomation/framework/optional/includes/w_grid_layout1.inc b/testautomation/framework/optional/includes/w_grid_layout1.inc index 6cc3de0eb6f3..6cc3de0eb6f3 100644..100755 --- a/testautomation/framework/optional/includes/w_grid_layout1.inc +++ b/testautomation/framework/optional/includes/w_grid_layout1.inc diff --git a/testautomation/global/required/includes/g_option.inc b/testautomation/global/required/includes/g_option.inc index 3e21e78e0366..65e6bcf817fa 100755 --- a/testautomation/global/required/includes/g_option.inc +++ b/testautomation/global/required/includes/g_option.inc @@ -608,11 +608,6 @@ testcase tToolsOptionsInternet gefunden = FALSE Kontext "OptionenDlg" Optionsliste.TypeKeys "<Down>" - Kontext "ProxyWarnung" - if ProxyWarnung.Exists(1) then - NichtMehrAnzeigen.Check - ProxyWarnung.OK - endif select case i case 1 : diff --git a/testautomation/global/required/includes/g_printing.inc b/testautomation/global/required/includes/g_printing.inc index 9e2a65a87979..9e2a65a87979 100755..100644 --- a/testautomation/global/required/includes/g_printing.inc +++ b/testautomation/global/required/includes/g_printing.inc diff --git a/testautomation/global/sid/bars.sid b/testautomation/global/sid/bars.sid index c22ff6975c02..1e3da63fd1ec 100644..100755 --- a/testautomation/global/sid/bars.sid +++ b/testautomation/global/sid/bars.sid @@ -133,7 +133,6 @@ OL_Objekt_SW_Hintergrundfarbe SID_BACKGROUND_COLOR OL_Objekt_SW_GanzNachVorn SID_FRAME_TO_TOP OL_Objekt_SW_GanzNachHinten SID_FRAME_TO_BOTTOM OL_Objekt_SW_Verankerungwechseln FN_TOOL_ANKER -OL_Objekt_SW_GrafikBearbeiten SID_SIM_START OL_Objekt_SW_HorizontalSpiegeln FN_FLIP_HORZ_GRAFIC OL_Objekt_SW_VertikalSpiegeln FN_FLIP_VERT_GRAFIC OL_Objekt_SW_PositionUndGroesse SID_ATTR_TRANSFORM diff --git a/testautomation/global/tools/includes/required/t_option.inc b/testautomation/global/tools/includes/required/t_option.inc index e17dd0781636..cb1e4b5d25f1 100755 --- a/testautomation/global/tools/includes/required/t_option.inc +++ b/testautomation/global/tools/includes/required/t_option.inc @@ -273,11 +273,6 @@ function hToolsOptions ( Applicationname as string, Tabpagename as string, OPTIO Kontext "ExtrasOptionenDlg" select case Tabpagename case "PROXY" - Kontext "ProxyWarnung" - if ProxyWarnung.Exists then - NichtMehrAnzeigen.Check - ProxyWarnung.OK - end if Kontext "TabProxyServer" if TabProxyServer.exists(2) then bCorPage = TRUE case "SEARCH" diff --git a/testautomation/global/win/bars.win b/testautomation/global/win/bars.win index 9d74f2685847..bbd72a12bf82 100755 --- a/testautomation/global/win/bars.win +++ b/testautomation/global/win/bars.win @@ -586,7 +586,6 @@ EigenschaftenControls SID_SHOW_BROWSER EigenschaftenObjekt .uno:FrameDialog GanzNachHinten .uno:SendToBack GanzNachVorn .uno:BringToFront -GrafikBearbeiten SID_SIM_START Hintergrundfarbe .uno:BackgroundColor Hintergrundmuster SID_BACKGROUND_PATTERN HorizontalSpiegeln FN_FLIP_HORZ_GRAFIC @@ -666,7 +665,6 @@ Flaechenstil SID_ATTR_FILL_STYLE Gamma .uno:GrafGamma GanzNachHinten SID_FRAME_TO_BOTTOM GanzNachVorn SID_FRAME_TO_TOP -GrafikBearbeiten SID_SIM_START GrafikEigenschaften FN_FORMAT_GRAFIC_DLG Grafikmodus .uno:GrafMode Gruenanteil .uno:GrafGreen diff --git a/testautomation/global/win/dial_d_h.win b/testautomation/global/win/dial_d_h.win index e7af03c506e6..48724c5eaa27 100755 --- a/testautomation/global/win/dial_d_h.win +++ b/testautomation/global/win/dial_d_h.win @@ -286,15 +286,15 @@ Groesse svtools:RadioButton:DLG_EXPORT_VEC:RB_SIZE_VEC Breite svtools:MetricField:DLG_EXPORT_VEC:MTF_SIZEX_VEC Hoehe svtools:MetricField:DLG_EXPORT_VEC:MTF_SIZEY_VEC -*EPSOptionen goodies:ModalDialog:DLG_EXPORT_EPS -VorschauTif goodies:CheckBox:DLG_EXPORT_EPS:CB_PREVIEW_TIFF -InterchangeEPSI goodies:CheckBox:DLG_EXPORT_EPS:CB_PREVIEW_EPSI -Level1 goodies:RadioButton:DLG_EXPORT_EPS:RB_LEVEL1 -Level2 goodies:RadioButton:DLG_EXPORT_EPS:RB_LEVEL2 -Farbe goodies:RadioButton:DLG_EXPORT_EPS:RB_COLOR -Graustufen goodies:RadioButton:DLG_EXPORT_EPS:RB_GRAYSCALE -LZWKodierung goodies:RadioButton:DLG_EXPORT_EPS:RB_COMPRESSION_LZW -Keine goodies:RadioButton:DLG_EXPORT_EPS:RB_COMPRESSION_NONE +*EPSOptionen filter:ModalDialog:DLG_EXPORT_EPS +VorschauTif filter:CheckBox:DLG_EXPORT_EPS:CB_PREVIEW_TIFF +InterchangeEPSI filter:CheckBox:DLG_EXPORT_EPS:CB_PREVIEW_EPSI +Level1 filter:RadioButton:DLG_EXPORT_EPS:RB_LEVEL1 +Level2 filter:RadioButton:DLG_EXPORT_EPS:RB_LEVEL2 +Farbe filter:RadioButton:DLG_EXPORT_EPS:RB_COLOR +Graustufen filter:RadioButton:DLG_EXPORT_EPS:RB_GRAYSCALE +LZWKodierung filter:RadioButton:DLG_EXPORT_EPS:RB_COMPRESSION_LZW +Keine filter:RadioButton:DLG_EXPORT_EPS:RB_COMPRESSION_NONE *EtikettenSynchronisieren HID_SYNC_BTN Synchronisieren SW:PUSHBUTTON:DLG_SYNC_BTN:BTN_SYNC @@ -489,9 +489,9 @@ Aktualisieren HID_TEMPLDLG_UPDATEBYEXAMPLE Vorlagenliste HID_TEMPLATE_FMT Gruppenliste HID_TEMPLATE_FILTER -*GifOptionen goodies:ModalDialog:DLG_EXPORT_GIF -Interlace goodies:CheckBox:DLG_EXPORT_GIF:CBX_INTERLACED -TransparentSpeichern goodies:CheckBox:DLG_EXPORT_GIF:CBX_TRANSLUCENT +*GifOptionen filter:ModalDialog:DLG_EXPORT_GIF +Interlace filter:CheckBox:DLG_EXPORT_GIF:CBX_INTERLACED +TransparentSpeichern filter:CheckBox:DLG_EXPORT_GIF:CBX_TRANSLUCENT *GroupingDlg HID_SC_DPDATEGROUP AutoStart sc:RadioButton:RID_SCDLG_DPNUMGROUP:RB_AUTOSTART diff --git a/testautomation/global/win/dial_i_o.win b/testautomation/global/win/dial_i_o.win index 629da180900d..aa965b42f51d 100755 --- a/testautomation/global/win/dial_i_o.win +++ b/testautomation/global/win/dial_i_o.win @@ -259,11 +259,11 @@ Vorgaben1 sc:ImageButton:RID_SCDLG_TABOP:RB_FORMULARANGE Vorgaben2 sc:ImageButton:RID_SCDLG_TABOP:RB_ROWCELL Vorgaben3 sc:ImageButton:RID_SCDLG_TABOP:RB_COLCELL -*MetOptionen GOODIES:MODALDIALOG:DLG_EXPORT_EMET -Original GOODIES:RADIOBUTTON:DLG_EXPORT_EMET:RB_ORIGINAL -Groesse GOODIES:RADIOBUTTON:DLG_EXPORT_EMET:RB_SIZE -Breite GOODIES:METRICFIELD:DLG_EXPORT_EMET:MTF_SIZEX -Hoehe GOODIES:METRICFIELD:DLG_EXPORT_EMET:MTF_SIZEY +*MetOptionen FILTER:MODALDIALOG:DLG_EXPORT_EMET +Original FILTER:RADIOBUTTON:DLG_EXPORT_EMET:RB_ORIGINAL +Groesse FILTER:RADIOBUTTON:DLG_EXPORT_EMET:RB_SIZE +Breite FILTER:METRICFIELD:DLG_EXPORT_EMET:MTF_SIZEX +Hoehe FILTER:METRICFIELD:DLG_EXPORT_EMET:MTF_SIZEY *ModuleBearbeiten HID_EDIT_MODULES Sprache cui:ListBox:RID_SVXDLG_EDIT_MODULES:LB_EDIT_MODULES_LANGUAGE diff --git a/testautomation/global/win/dial_p_s.win b/testautomation/global/win/dial_p_s.win index 30e5ae62e6e4..6f76fe17b2bd 100755 --- a/testautomation/global/win/dial_p_s.win +++ b/testautomation/global/win/dial_p_s.win @@ -15,24 +15,24 @@ SchutzAufheben HID_CHG_PROTECT PasswortEingabe sfx2:Edit:DLG_PASSWD:ED_PASSWD_USER PasswortBestaetigen sfx2:Edit:DLG_PASSWD:ED_PASSWD_CONFIRM -*PBMOptionen goodies:ModalDialog:DLG_EXPORT_EPBM -Binaer goodies:RadioButton:DLG_EXPORT_EPBM:RB_RAW -Ascii goodies:RadioButton:DLG_EXPORT_EPBM:RB_ASCII +*PBMOptionen filter:ModalDialog:DLG_EXPORT_EPBM +Binaer filter:RadioButton:DLG_EXPORT_EPBM:RB_RAW +Ascii filter:RadioButton:DLG_EXPORT_EPBM:RB_ASCII *PfadeAuswaehlen HID_MULTIPATH Pfade HID_OPTIONS_MULTIPATH_LIST Hinzufuegen cui:PUSHBUTTON:RID_SVXDLG_MULTIPATH:BTN_ADD_MULTIPATH Loeschen cui:PUSHBUTTON:RID_SVXDLG_MULTIPATH:BTN_DEL_MULTIPATH -*PGMOptionen goodies:ModalDialog:DLG_EXPORT_EPGM -Binaer goodies:RadioButton:DLG_EXPORT_EPGM:RB_RAW -Ascii goodies:RadioButton:DLG_EXPORT_EPGM:RB_ASCII +*PGMOptionen filter:ModalDialog:DLG_EXPORT_EPGM +Binaer filter:RadioButton:DLG_EXPORT_EPGM:RB_RAW +Ascii filter:RadioButton:DLG_EXPORT_EPGM:RB_ASCII -*PICTOPtionen goodies:ModalDialog:DLG_EXPORT_EPCT -Original goodies:RadioButton:DLG_EXPORT_EPCT:RB_ORIGINAL -Groesse goodies:RadioButton:DLG_EXPORT_EPCT:RB_SIZE -Breite goodies:MetricField:DLG_EXPORT_EPCT:MTF_SIZEX -Hoehe goodies:MetricField:DLG_EXPORT_EPCT:MTF_SIZEY +*PICTOPtionen filter:ModalDialog:DLG_EXPORT_EPCT +Original filter:RadioButton:DLG_EXPORT_EPCT:RB_ORIGINAL +Groesse filter:RadioButton:DLG_EXPORT_EPCT:RB_SIZE +Breite filter:MetricField:DLG_EXPORT_EPCT:MTF_SIZEX +Hoehe filter:MetricField:DLG_EXPORT_EPCT:MTF_SIZEY *Pipette SID_BMPMASK svx:DockingWindow:RID_SVXDLG_BMPMASK PipetteKnopf HID_BMPMASK_TBI_PIPETTE @@ -79,12 +79,9 @@ Optionen cui:MULTILINEEDIT:MD_INSERT_OBJECT_PLUGIN:ED_PLUGINS_OPTIONS Kompression svtools:NumericField:DLG_EXPORT_EPNG:NUM_COMPRESSION Interlaced svtools:CheckBox:DLG_EXPORT_EPNG:CBX_INTERLACED -*PPMOptionen goodies:ModalDialog:DLG_EXPORT_EPPM -Binaer goodies:RadioButton:DLG_EXPORT_EPPM:RB_RAW -Ascii goodies:RadioButton:DLG_EXPORT_EPPM:RB_ASCII - -*ProxyWarnung cui:ModalDialog:RID_OFADLG_OPTIONS_TREE_HINT -NichtMehrAnzeigen cui:CheckBox:RID_OFADLG_OPTIONS_TREE_HINT:CB_DISABLE +*PPMOptionen filter:ModalDialog:DLG_EXPORT_EPPM +Binaer filter:RadioButton:DLG_EXPORT_EPPM:RB_RAW +Ascii filter:RadioButton:DLG_EXPORT_EPPM:RB_ASCII *QuelleAuswaehlen HID_DATAPILOT_TYPE AktuelleSelektion sc:RadioButton:RID_SCDLG_DAPITYPE:BTN_SELECTION @@ -235,11 +232,11 @@ FormatStarWriter sw:CheckBox:DLG_MAILMERGE:CB_FORMAT_SW Datenbankfeldliste sw:ListBox:DLG_MAILMERGE:LB_COLUMN *Silbentrennung HID_HYPHENATE svx:ModalDialog:RID_SVXDLG_HYPHENATE -Wort svx:Edit:RID_SVXDLG_HYPHENATE:ED_WORD -Vor svx:ImageButton:RID_SVXDLG_HYPHENATE:BTN_LEFT -Zurueck svx:ImageButton:RID_SVXDLG_HYPHENATE:BTN_RIGHT -Weiter svx:PushButton:RID_SVXDLG_HYPHENATE:BTN_HYPH_CONTINUE -Entfernen svx:PushButton:RID_SVXDLG_HYPHENATE:BTN_HYPH_DELETE +Wort cui:Edit:RID_SVXDLG_HYPHENATE:ED_WORD +Vor cui:ImageButton:RID_SVXDLG_HYPHENATE:BTN_LEFT +Zurueck cui:ImageButton:RID_SVXDLG_HYPHENATE:BTN_RIGHT +Weiter cui:PushButton:RID_SVXDLG_HYPHENATE:BTN_HYPH_CONTINUE +Entfernen cui:PushButton:RID_SVXDLG_HYPHENATE:BTN_HYPH_DELETE *SilbentrennungOptionen HID_LNGDLG_NUM_PREBREAK ZeichenVorUmbruch cui:NumericField:RID_SVXDLG_LNG_ED_NUM_PREBREAK:ED_PREBREAK @@ -345,7 +342,7 @@ FilterkriterienMin sc:ImageButton:RID_SCDLG_SPEC_FILTER:RB_CRITERIA_AREA FilterergebnisMin sc:ImageButton:RID_SCDLG_SPEC_FILTER:RB_COPY_AREA *SpracheAuswaehlen HID_THES_LANGUAGE -Auswahl svx:ListBox:RID_SVXDLG_THES_LANGUAGE:LB_THES_LANGUAGE +Auswahl cui:ListBox:RID_SVXDLG_THES_LANGUAGE:LB_THES_LANGUAGE *StandardFilter SID_FILTER FeldName1 sc:ListBox:RID_SCDLG_FILTER:LB_FIELD1 diff --git a/testautomation/global/win/dial_t_z.win b/testautomation/global/win/dial_t_z.win index 5c52f92c1de4..e660fdaeaf96 100755 --- a/testautomation/global/win/dial_t_z.win +++ b/testautomation/global/win/dial_t_z.win @@ -142,12 +142,12 @@ Textmarken sw:ComboBox:DLG_INSERT_BOOKMARK:CB_BOOKMARK Loeschen sw:PushButton:DLG_INSERT_BOOKMARK:BT_DELETE *Thesaurus SID_THESAURUS -Wort svx:ListBox:RID_SVXDLG_THESAURUS:LB_WORD -Ersetzen svx:Edit:RID_SVXDLG_THESAURUS:ED_REPL -Bedeutung svx:ListBox:RID_SVXDLG_THESAURUS:LB_MEAN -Synonym svx:ListBox:RID_SVXDLG_THESAURUS:LB_SYNON -Nachschlagen svx:PushButton:RID_SVXDLG_THESAURUS:BTN_LOOKUP -Sprache svx:PushButton:RID_SVXDLG_THESAURUS:BTN_LANGUAGE +Wort cui:ListBox:RID_SVXDLG_THESAURUS:LB_WORD +Ersetzen cui:Edit:RID_SVXDLG_THESAURUS:ED_REPL +Bedeutung cui:ListBox:RID_SVXDLG_THESAURUS:LB_MEAN +Synonym cui:ListBox:RID_SVXDLG_THESAURUS:LB_SYNON +Nachschlagen cui:PushButton:RID_SVXDLG_THESAURUS:BTN_LOOKUP +Sprache cui:PushButton:RID_SVXDLG_THESAURUS:BTN_LANGUAGE *Ueberblenden SID_POLYGON_MORPHING Attributierung sd:CheckBox:DLG_MORPH:CBX_ATTRIBUTES diff --git a/testautomation/global/win/etab_h_o.win b/testautomation/global/win/etab_h_o.win index 60334e1c287d..244e02f717bc 100755 --- a/testautomation/global/win/etab_h_o.win +++ b/testautomation/global/win/etab_h_o.win @@ -67,6 +67,18 @@ Records HID_DSADMIN_LDAP_ROWCOUNT DataSource extensions:ListBox:RID_PAGE_TABLESELECTION:LB_DATASOURCE Table extensions:ListBox:RID_PAGE_TABLESELECTION:LB_TABLE +*TabLocalizedOptions HID_OFAPAGE_AUTOCORR_QUOTE +LocalizedOptionsList HID_OFAPAGE_QUOTE_CLB +LocalizedOptions HID_OFAPAGE_QUOTE_SW_CLB +SingleQuotesReplace cui:Checkbox:RID_OFAPAGE_AUTOCORR_QUOTE:CB_SGL_TYPO +SingleQuotesStart cui:PushButton:RID_OFAPAGE_AUTOCORR_QUOTE:PB_SGL_STARTQUOTE +SingleQuotesEnd cui:PushButton:RID_OFAPAGE_AUTOCORR_QUOTE:PB_SGL_ENDQUOTE +SingleQuotesDefault cui:PushButton:RID_OFAPAGE_AUTOCORR_QUOTE:PB_SGL_STD +DoubleQuotesReplace cui:CheckBox:RID_OFAPAGE_AUTOCORR_QUOTE:CB_TYPO +DoubleQuotesStart cui:PushButton:RID_OFAPAGE_AUTOCORR_QUOTE:PB_STARTQUOTE +DoubleQuotesEnd cui:PushButton:RID_OFAPAGE_AUTOCORR_QUOTE:PB_ENDQUOTE +DoubleQuotesDefault cui:PushButton:RID_OFAPAGE_AUTOCORR_QUOTE:PB_DBL_STD + *TabMailMergeEMail HID_TP_MAILCONFIG YourName sw:Edit:TP_MAILCONFIG:ED_DISPLAYNAME EmailAddress sw:Edit:TP_MAILCONFIG:ED_ADDRESS diff --git a/testautomation/global/win/etab_p_s.win b/testautomation/global/win/etab_p_s.win index 49a253bdb128..46f4a46b2f63 100755 --- a/testautomation/global/win/etab_p_s.win +++ b/testautomation/global/win/etab_p_s.win @@ -65,6 +65,8 @@ PrintOnly sc:CheckBox:RID_SCPAGE_PRINT:BTN_SELECTEDSHEETS ProxyServer cui:ListBox:RID_SVXPAGE_INET_PROXY:LB_PROXYMODE HttpProxy cui:Edit:RID_SVXPAGE_INET_PROXY:ED_HTTP_PROXY HttpPort cui:Edit:RID_SVXPAGE_INET_PROXY:ED_HTTP_PORT +HttpsProxy cui:Edit:RID_SVXPAGE_INET_PROXY:ED_HTTPS_PROXY +HttpsPort cui:Edit:RID_SVXPAGE_INET_PROXY:ED_HTTPS_PORT FtpProxy cui:Edit:RID_SVXPAGE_INET_PROXY:ED_FTP_PROXY FtpPort cui:Edit:RID_SVXPAGE_INET_PROXY:ED_FTP_PORT NoProxy cui:Edit:RID_SVXPAGE_INET_PROXY:ED_NOPROXYFOR diff --git a/testautomation/global/win/tab_t_z.win b/testautomation/global/win/tab_t_z.win index aa054c4b8406..be8f4870de47 100755 --- a/testautomation/global/win/tab_t_z.win +++ b/testautomation/global/win/tab_t_z.win @@ -169,17 +169,6 @@ MFRand cui:MetricField:RID_SVXPAGE_TRANSPARENCE:MTR_TRGR_BORDER MFStartwert cui:MetricField:RID_SVXPAGE_TRANSPARENCE:MTR_TRGR_START_VALUE MFEndwert cui:MetricField:RID_SVXPAGE_TRANSPARENCE:MTR_TRGR_END_VALUE -*TabTypografisch HID_OFAPAGE_AUTOCORR_QUOTE -EinfacheErsetzen cui:Checkbox:RID_OFAPAGE_AUTOCORR_QUOTE:CB_SGL_TYPO -DoppelteErsetzen cui:CheckBox:RID_OFAPAGE_AUTOCORR_QUOTE:CB_TYPO -EinfachWortanfang cui:PushButton:RID_OFAPAGE_AUTOCORR_QUOTE:PB_SGL_STARTQUOTE -EinfachWortende cui:PushButton:RID_OFAPAGE_AUTOCORR_QUOTE:PB_SGL_ENDQUOTE -EinfachStandard cui:PushButton:RID_OFAPAGE_AUTOCORR_QUOTE:PB_SGL_STD -DoppeltWortanfang cui:PushButton:RID_OFAPAGE_AUTOCORR_QUOTE:PB_STARTQUOTE -DoppeltWortende cui:PushButton:RID_OFAPAGE_AUTOCORR_QUOTE:PB_ENDQUOTE -DoppeltStandard cui:PushButton:RID_OFAPAGE_AUTOCORR_QUOTE:PB_DBL_STD -Zurueck HID_TABDLG_RESET_BTN - *TabUmlauf HID_FRM_EXT Kein sw:ImageRadioButton:TP_FRM_WRAP:RB_NO_WRAP Links sw:ImageRadioButton:TP_FRM_WRAP:RB_WRAP_LEFT diff --git a/testautomation/graphics/optional/includes/global/g_autocorrection.inc b/testautomation/graphics/optional/includes/global/g_autocorrection.inc index 7572d447e750..b4eb6af10ae1 100755 --- a/testautomation/graphics/optional/includes/global/g_autocorrection.inc +++ b/testautomation/graphics/optional/includes/global/g_autocorrection.inc @@ -211,15 +211,15 @@ testcase tToolsAutocorrectCustomQuotes(bSimple as boolean) Printlog " - replace quotes" '------------------------------------------------------------------------------------------ ToolsAutocorrect Kontext - active.SetPage TabTypografisch - Kontext "TabTypografisch" + active.SetPage TabLocalizedOptions + Kontext "TabLocalizedOptions" if bSimple then - EinfacheErsetzen.Check + SingleQuotesReplace.Check else - DoppelteErsetzen.Check - DoppeltStandard.Click + DoubleQuotesReplace.Check + DoubleQuotesDefault.Click endif - TabTypografisch.OK + TabLocalizedOptions.OK sleep 5 gMouseClick 50,50 sleep 5 @@ -246,14 +246,14 @@ testcase tToolsAutocorrectCustomQuotes(bSimple as boolean) Printlog " - dont replace quotes" '------------------------------------------------------------------------------------------ ToolsAutocorrect Kontext - Active.SetPage TabTypografisch - Kontext "TabTypografisch" + Active.SetPage TabLocalizedOptions + Kontext "TabLocalizedOptions" if bSimple then - EinfacheErsetzen.Uncheck + SingleQuotesReplace.Uncheck else - DoppelteErsetzen.Uncheck + DoubleQuotesReplace.Uncheck endif - TabTypografisch.OK + TabLocalizedOptions.OK sleep 1 gMouseClick 50,50 sleep 1 @@ -279,14 +279,14 @@ testcase tToolsAutocorrectCustomQuotes(bSimple as boolean) Printlog " - replace quotes" '------------------------------------------------------------------------------------------ ToolsAutocorrect Kontext - active.SetPage TabTypografisch - Kontext "TabTypografisch" + active.SetPage TabLocalizedOptions + Kontext "TabLocalizedOptions" if bSimple then - EinfacheErsetzen.Check - EinfachWortAnfang.Click + SingleQuotesReplace.Check + SingleQuotesStart.Click else - DoppelteErsetzen.Check - DoppeltWortAnfang.Click + DoubleQuotesReplace.Check + DoubleQuotesStart.Click endif Kontext "Sonderzeichen" sleep 1 @@ -295,11 +295,11 @@ testcase tToolsAutocorrectCustomQuotes(bSimple as boolean) sleep 1 Sonderzeichen.OK - Kontext "TabTypografisch" + Kontext "TabLocalizedOptions" if bSimple then - EinfachWortEnde.Click + SingleQuotesEnd.Click else - DoppeltWortEnde.Click + DoubleQuotesEnd.Click endif Kontext "Sonderzeichen" sleep 1 @@ -308,8 +308,8 @@ testcase tToolsAutocorrectCustomQuotes(bSimple as boolean) sleep 1 Sonderzeichen.OK - Kontext "TabTypografisch" - TabTypografisch.OK + Kontext "TabLocalizedOptions" + TabLocalizedOptions.OK sleep 5 gMouseClick 50,50 sleep 5 @@ -335,17 +335,17 @@ testcase tToolsAutocorrectCustomQuotes(bSimple as boolean) Printlog " - back to standard" '------------------------------------------------------------------------------------------ ToolsAutocorrect Kontext - active.SetPage TabTypografisch - Kontext "TabTypografisch" + active.SetPage TabLocalizedOptions + Kontext "TabLocalizedOptions" if bSimple then - EinfacheErsetzen.Check - EinfachStandard.Click + SingleQuotesReplace.Check + SingleQuotesDefault.Click else - DoppelteErsetzen.Check - DoppeltStandard.Click + DoubleQuotesReplace.Check + DoubleQuotesDefault.Click endif - TabTypografisch.OK + TabLocalizedOptions.OK sleep 1 hTextrahmenErstellen ( Normal$ + "Hello" + Normal$ + " ",20,20,60,30) sleep 2 @@ -368,14 +368,14 @@ testcase tToolsAutocorrectCustomQuotes(bSimple as boolean) ToolsAutocorrect Kontext - active.SetPage TabTypografisch - Kontext "TabTypografisch" + active.SetPage TabLocalizedOptions + Kontext "TabLocalizedOptions" if bSimple then - EinfacheErsetzen.UnCheck + SingleQuotesReplace.UnCheck else - DoppelteErsetzen.UnCheck + DoubleQuotesReplace.UnCheck endif - TabTypografisch.OK + TabLocalizedOptions.OK sleep 1 hCloseDocument @@ -384,7 +384,7 @@ endcase '------------------------------------------------------------------------------- testcase tToolsAutocorrectOption - const cEntryCount = 9 + const cEntryCount = 7 dim i as integer dim iEntryCount as integer dim sEntries (20, 2) as string @@ -401,14 +401,14 @@ testcase tToolsAutocorrectOption sEntries (4,2) = "*Hello* " '"_Hello_ " sEntries (5,1) = "URL Recognition" sEntries (5,2) = "It is www.ksta.de " - sEntries (6,1) = "Replace 1st... with 1^st..." - sEntries (6,2) = "1st " - sEntries (7,1) = "Replace 1/2 ... with û ..." - sEntries (7,2) = "1/2 " - sEntries (8,1) = "Replace dashes" - sEntries (8,2) = "Hello - Hrbert " - sEntries (9,1) = "Ignore double spaces" - sEntries (9,2) = "Hello this is 2 blanks " + 'sEntries (6,1) = "Replace 1st... with 1^st..." + 'sEntries (6,2) = "1st " + 'sEntries (7,1) = "Replace 1/2 ... with û ..." + 'sEntries (7,2) = "1/2 " + sEntries (6,1) = "Replace dashes" + sEntries (6,2) = "Hello - Hrbert " + sEntries (7,1) = "Ignore double spaces" + sEntries (7,2) = "Hello this is 2 blanks " Printlog "- Tools / Autocorrect -options" Call hNewDocument() diff --git a/testautomation/graphics/optional/includes/global/id_006.inc b/testautomation/graphics/optional/includes/global/id_006.inc index 9fa0ba4d9903..4f9a0404de30 100755 --- a/testautomation/graphics/optional/includes/global/id_006.inc +++ b/testautomation/graphics/optional/includes/global/id_006.inc @@ -193,35 +193,35 @@ testcase tiToolsAutoCorrect Kontext "TabOptionen" Call DialogTest ( TabOptionen ) Kontext - Messagebox.SetPage TabTypografisch - Kontext "TabTypografisch" ' 1a - EinfacheErsetzen.Check - EinfachWortAnfang.Click + Messagebox.SetPage TabLocalizedOptions + Kontext "TabLocalizedOptions" ' 1a + SingleQuotesReplace.Check + SingleQuotesStart.Click Kontext "Sonderzeichen" Call DialogTest ( Sonderzeichen, 1 ) Sonderzeichen.Cancel - Kontext "TabTypografisch" ' 1b - EinfachWortEnde.Click + Kontext "TabLocalizedOptions" ' 1b + SingleQuotesEnd.Click Kontext "Sonderzeichen" Call DialogTest ( Sonderzeichen, 2 ) Sonderzeichen.Cancel - Kontext "TabTypografisch" ' 1s - EinfachStandard.Click + Kontext "TabLocalizedOptions" ' 1s + SingleQuotesDefault.Click - Kontext "TabTypografisch" ' 2a - DoppeltWortAnfang.Click + Kontext "TabLocalizedOptions" ' 2a + DoubleQuotesStart.Click Kontext "Sonderzeichen" Call DialogTest ( Sonderzeichen, 3 ) Sonderzeichen.Cancel - Kontext "TabTypografisch" ' 2b - DoppeltWortEnde.Click + Kontext "TabLocalizedOptions" ' 2b + DoubleQuotesEnd.Click Kontext "Sonderzeichen" Call DialogTest ( Sonderzeichen, 4 ) Sonderzeichen.Cancel - Kontext "TabTypografisch" ' 2s - DoppeltStandard.Click - EinfacheErsetzen.UnCheck - TabTypografisch.cancel + Kontext "TabLocalizedOptions" ' 2s + DoubleQuotesDefault.Click + SingleQuotesReplace.UnCheck + TabLocalizedOptions.cancel Call hCloseDocument endcase diff --git a/testautomation/graphics/required/includes/global/id_006.inc b/testautomation/graphics/required/includes/global/id_006.inc index d2f820923303..91bd2a00adbe 100755 --- a/testautomation/graphics/required/includes/global/id_006.inc +++ b/testautomation/graphics/required/includes/global/id_006.inc @@ -244,50 +244,50 @@ testcase tiToolsAutoCorrect Call DialogTest ( TabOptionen ) Kontext '/// select tabpage 'Custom Quotes' ///' - Messagebox.SetPage TabTypografisch - Kontext "TabTypografisch" ' 1a + Messagebox.SetPage TabLocalizedOptions + Kontext "TabLocalizedOptions" ' 1a '/// in the part of 'single quotes': ///' '///+ check 'replace' ///' '///+ click 'start quote' ///' - EinfacheErsetzen.Check - EinfachWortAnfang.Click + SingleQuotesReplace.Check + SingleQuotesStart.Click Kontext "Sonderzeichen" Call DialogTest ( Sonderzeichen, 1 ) '///+ cancel dialog 'start quote' ///' Sonderzeichen.Cancel - Kontext "TabTypografisch" ' 1b + Kontext "TabLocalizedOptions" ' 1b '///+ click 'end quote' ///' - EinfachWortEnde.Click + SingleQuotesEnd.Click Kontext "Sonderzeichen" Call DialogTest ( Sonderzeichen, 2 ) '///+ cancel dialog 'end quote' ///' Sonderzeichen.Cancel - Kontext "TabTypografisch" ' 1s + Kontext "TabLocalizedOptions" ' 1s '///+ click button 'default' ///' - EinfachStandard.Click + SingleQuotesDefault.Click - Kontext "TabTypografisch" ' 2a + Kontext "TabLocalizedOptions" ' 2a '/// in the part of 'double quotes': ///' '///+ click 'start quote' ///' - DoppeltWortAnfang.Click + DoubleQuotesStart.Click Kontext "Sonderzeichen" Call DialogTest ( Sonderzeichen, 3 ) '///+ cancel dialog 'start quote' ///' Sonderzeichen.Cancel - Kontext "TabTypografisch" ' 2b + Kontext "TabLocalizedOptions" ' 2b '///+ click 'end quote' ///' - DoppeltWortEnde.Click + DoubleQuotesEnd.Click Kontext "Sonderzeichen" Call DialogTest ( Sonderzeichen, 4 ) '///+ cancel dialog 'end quote' ///' Sonderzeichen.Cancel - Kontext "TabTypografisch" ' 2s + Kontext "TabLocalizedOptions" ' 2s '///+ click button 'default' ///' - DoppeltStandard.Click + DoubleQuotesDefault.Click '///+ UNcheck 'replace' ///' - EinfacheErsetzen.UnCheck + SingleQuotesReplace.UnCheck '/// cancel dialog 'AtorCorrect' ///' - TabTypografisch.cancel + TabLocalizedOptions.cancel '/// close application ///' Call hCloseDocument endcase diff --git a/testautomation/graphics/tools/id_tools_2.inc b/testautomation/graphics/tools/id_tools_2.inc index 258e0c43a40a..f9a2e7752cd1 100755 --- a/testautomation/graphics/tools/id_tools_2.inc +++ b/testautomation/graphics/tools/id_tools_2.inc @@ -136,8 +136,8 @@ sub sCheckCheck (i, Pruefung$, bEnabled) select case i ' Disabled sCheckUnderlined due to start of external program (web-browser) - FHA case 5: bEnabled 'sCheckUnderlined (bEnabled) - case 6: sCheckSupperscript (bEnabled) - case 8: sCheckDash (bEnabled) + case 6: sCheckDash (bEnabled) + case 8: sCheckSupperscript (bEnabled) case else: hTypeKeys "<Home><Shift End>" EditCopy diff --git a/testautomation/spreadsheet/optional/c_validity.bas b/testautomation/spreadsheet/optional/c_validity.bas index ed76836f40f7..ed76836f40f7 100755..100644 --- a/testautomation/spreadsheet/optional/c_validity.bas +++ b/testautomation/spreadsheet/optional/c_validity.bas diff --git a/testautomation/spreadsheet/optional/includes/validity/c_validity.inc b/testautomation/spreadsheet/optional/includes/validity/c_validity.inc index 142ce064719b..142ce064719b 100755..100644 --- a/testautomation/spreadsheet/optional/includes/validity/c_validity.inc +++ b/testautomation/spreadsheet/optional/includes/validity/c_validity.inc diff --git a/testautomation/spreadsheet/required/includes/c_upd_toolsmenu.inc b/testautomation/spreadsheet/required/includes/c_upd_toolsmenu.inc index 6fa56de16ada..e63f38913848 100755 --- a/testautomation/spreadsheet/required/includes/c_upd_toolsmenu.inc +++ b/testautomation/spreadsheet/required/includes/c_upd_toolsmenu.inc @@ -609,50 +609,50 @@ testcase tToolsAutoCorrect '/// Switch to tabpage 'Custom Quotes' printlog " Switch to tabpage 'Custom Quotes'" Kontext - active.SetPage TabTypografisch - Kontext "TabTypografisch" - Call DialogTest ( TabTypografisch ) + active.SetPage TabLocalizedOptions + Kontext "TabLocalizedOptions" + Call DialogTest ( TabLocalizedOptions ) '/// Press on button for 'Start quote' for 'Single quotes' printlog " Press on button for 'Start quote' for 'Single quotes'" - EinfachWortAnfang.Click + SingleQuotesStart.Click Kontext "Sonderzeichen" '/// Close 'Start quote' dialog with 'Cancel' printlog " Close 'Start quote' dialog with 'Cancel'" Sonderzeichen.Cancel - Kontext "TabTypografisch" + Kontext "TabLocalizedOptions" '/// Press on button for 'End quote' for 'Single quotes' printlog " Press on button for 'End quote' for 'Single quotes'" - EinfachWortEnde.Click + SingleQuotesEnd.Click Kontext "Sonderzeichen" '/// Close 'End quote' dialog with 'Cancel' printlog " Close 'End quote' dialog with 'Cancel'" Sonderzeichen.Cancel - Kontext "TabTypografisch" + Kontext "TabLocalizedOptions" '/// Click on 'Default' button for 'Single quotes' printlog " Click on 'Default' button for 'Single quotes'" - EinfachStandard.Click + SingleQuotesDefault.Click '/// Press on button for 'Start quote' for 'Double quotes' printlog " Press on button for 'Start quote' for 'Double quotes'" - DoppeltWortAnfang.Click + DoubleQuotesStart.Click Kontext "Sonderzeichen" '/// Close 'Start quote' dialog with 'Cancel' printlog " Close 'Start quote' dialog with 'Cancel'" Sonderzeichen.Cancel - Kontext "TabTypografisch" + Kontext "TabLocalizedOptions" '/// Press on button for 'End quote' for 'Double quotes' printlog " Press on button for 'End quote' for 'Double quotes'" - DoppeltWortEnde.Click + DoubleQuotesEnd.Click Kontext "Sonderzeichen" '/// Close 'End quote' dialog with 'Cancel' printlog " Close 'End quote' dialog with 'Cancel'" Sonderzeichen.Cancel - Kontext "TabTypografisch" + Kontext "TabLocalizedOptions" '/// Click on 'Default' button for 'Double quotes' printlog " Click on 'Default' button for 'Double quotes'" - DoppeltStandard.Click + DoubleQuotesDefault.Click '/// Close 'AutoCorrect' dialog with 'Cancel' printlog " Close 'AutoCorrect' dialog with 'Cancel'" - TabTypografisch.cancel + TabLocalizedOptions.cancel '/// Close document printlog " Close document" call hCloseDocument diff --git a/testautomation/spreadsheet/tools/includes/c_validity_tools.inc b/testautomation/spreadsheet/tools/includes/c_validity_tools.inc index d9e00e1e6d1e..d9e00e1e6d1e 100755..100644 --- a/testautomation/spreadsheet/tools/includes/c_validity_tools.inc +++ b/testautomation/spreadsheet/tools/includes/c_validity_tools.inc diff --git a/testautomation/writer/optional/includes/autocorrection/w_autocorrect1.inc b/testautomation/writer/optional/includes/autocorrection/w_autocorrect1.inc index baa280aa2400..bcb454f5a0d8 100755 --- a/testautomation/writer/optional/includes/autocorrection/w_autocorrect1.inc +++ b/testautomation/writer/optional/includes/autocorrection/w_autocorrect1.inc @@ -29,30 +29,9 @@ '* '* short description : Test the AutoCorrect/AutoFormat/Options '* -'************************************************************************ -'* -' #1 tOpenDialog_1 -' #1 tReplaceDashes_1 -' #1 tToolsAutocorrectOptions_1 -' #1 tToolsAutocorrectOptions_2 -' #1 tToolsAutocorrectOptions_3 -' #1 tToolsAutocorrectOptions_4_1 -' #1 tToolsAutocorrectOptions_4_2 -' #1 tToolsAutocorrectOptions_5 -' #1 tToolsAutocorrectOptions_6 -' #1 tToolsAutocorrectOptions_7 -' #1 tToolsAutocorrectOptions_8 -' #1 tToolsAutocorrectOptions_11 -' #1 tToolsAutocorrectOptions_12 -' #1 tToolsAutocorrectOptions_13 -' #1 tToolsAutocorrectOptions_14 -' #1 tToolsAutocorrectOptions_16 -' #1 tToolsAutocorrectOptions_18 -' #1 tToolsAutocorrectOptions_19 -'* '\*********************************************************************** -sub w_autocorrect_autoformat_1 +sub w_autocorrect1 printLog Chr(13) + "- Test the AutoCorrect/AutoFormat Options features" @@ -64,16 +43,14 @@ sub w_autocorrect_autoformat_1 Call tToolsAutocorrectOptions_4_1 'Automatic bold Call tToolsAutocorrectOptions_4_2 'Automatic underline Call tToolsAutocorrectOptions_5 'URL Recognition - Call tToolsAutocorrectOptions_6 'Replace 1st ... with 1^st... - Call tToolsAutocorrectOptions_7 'Replace 1/2 ... with ½ ... - Call tToolsAutocorrectOptions_8 'Replace dashes - Call tToolsAutocorrectOptions_11 'Ignore double spaces - Call tToolsAutocorrectOptions_12 'Apply numbering - Call tToolsAutocorrectOptions_13 'Apply Border - Call tToolsAutocorrectOptions_14 'Create Table - Call Ttoolsautocorrectoptions_16 'Remove Blank Paragraphs - Call Ttoolsautocorrectoptions_18 'Replace bullets with • - Call tToolsAutocorrectOptions_19 'Replace standard quotes with custom quotes + Call tToolsAutocorrectOptions_6 'Replace dashes + Call tToolsAutocorrectOptions_7 'Ignore double spaces + Call tToolsAutocorrectOptions_8 'Apply numbering + Call tToolsAutocorrectOptions_9 'Apply Border + Call tToolsAutocorrectOptions_10 'Create Table + Call tToolsAutocorrectOptions_11 'Remove Blank Paragraphs + Call tToolsAutocorrectOptions_12 'Replace bullets with • + Call tToolsAutocorrectOptions_13 'Replace standard quotes with custom quotes end sub @@ -137,19 +114,27 @@ testcase tToolsAutocorrectOptions_1 Kuerzel.SetText "Aabbcc" ErsetzenDurch.SetText "Aaccbb" Sleep 1 - Neu.Click + try + Neu.Click + catch + Warnlog "Seems settings are already made. Please remove entries from replacement table" + endcatch Sleep 1 TabErsetzung.OK - '/// M:Y T:Y (default) + printlog "- M:Y T:Y (default)" ToolsAutoCorrect Kontext Active.SetPage TabOptionenAutokorrektur Kontext "TabOptionenAutokorrektur" - Einstellungen.Select 1 - if Not Einstellungen.IsChecked then Warnlog "First Checkbox: " & Einstellungen.IsChecked - Einstellungen.TypeKeys "<Right>" - if Not Einstellungen.IsChecked then Warnlog "Second Checkbox: " & Einstellungen.IsChecked + if Einstellungen.IsChecked(1,2) = FALSE then + Warnlog "First Checkbox not checked by default" + Einstellungen.Check(1,2) + endif + if Einstellungen.IsChecked(1,3) = FALSE then + Warnlog "Second Checkbox not checked by default" + Einstellungen.Check(1,3) + endif TabOptionenAutokorrektur.Ok Call wTypeKeys "Aabbcc" @@ -160,8 +145,8 @@ testcase tToolsAutocorrectOptions_1 Call wTypeKeys "<DELETE>" - '/// M:Y T:N - Call fAutocorrectOptions("UseReplacementTable") + printlog "- M:Y T:N" + Call fAutocorrectOptions("UseReplacementTable", 1, 0) Call wTypeKeys "Aabbcc" Call wTypeKeys " " @@ -183,8 +168,8 @@ testcase tToolsAutocorrectOptions_1 Call wTypeKeys "<DELETE>" - '/// M:N T:Y - Call fAutocorrectOptions("UseReplacementTable") + printlog "- M:N T:Y" + Call fAutocorrectOptions("UseReplacementTable", 0, 1) Call wTypeKeys "Aabbcc" Call wTypeKeys " " @@ -195,8 +180,8 @@ testcase tToolsAutocorrectOptions_1 Call wTypeKeys "<DELETE>" - '/// M:N T:N - Call fAutocorrectOptions("UseReplacementTable") + printlog "- M:N T:N" + Call fAutocorrectOptions("UseReplacementTable", 0, 0) Call wTypeKeys "Aabbcc" Call wTypeKeys " " @@ -204,9 +189,9 @@ testcase tToolsAutocorrectOptions_1 EditCopy if GetClipboardText <> "Aabbcc" then Warnlog "The content should NOT be changed before Autoformat! M:N T:N" - goto testend - else - + Call hCloseDocument + goto endsub + else Call wTypeKeys "<ESCAPE>" FormatAutoformatApply Call wTypeKeys "<Home><Shift End>" @@ -217,8 +202,8 @@ testcase tToolsAutocorrectOptions_1 end if end if - '/// Recover to the default M:Y T:Y - Call fAutocorrectOptions("UseReplacementTable") + printlog "- Recover to the default M:Y T:Y" + Call fAutocorrectOptions("UseReplacementTable", 1, 1) 'remove the test words which you insert in the replacement table Dim i as Integer @@ -244,95 +229,94 @@ endcase testcase tToolsAutocorrectOptions_2 - Dim testContent as String - Dim hopeResult as String - Dim hopeResultBeforeAutoformat as String - Dim hopeResultAfterAutoformat as String + Dim testContent as String + Dim hopeResult as String + Dim hopeResultBeforeAutoformat as String + Dim hopeResultAfterAutoformat as String - printLog "Test 'Correct TWo INitial CApital' " - '/// Test 'Correct TWo INitial CApital' - Call hNewDocument + printLog "Test 'Correct TWo INitial CApital' " + '/// Test 'Correct TWo INitial CApital' + Call hNewDocument '/// M:Y T:Y (default) - testContent = "TEst" - hopeResult = "Test" - Call wTypeKeys testContent - Call wTypeKeys " " - Call wTypeKeys "<BACKSPACE><Shift Home>" - EditCopy - if GetClipboardText <> hopeResult then Warnlog "Something wrong in Correct TWo INitial CApital when M:Y T:Y" + testContent = "TEst" + hopeResult = "Test" + Call wTypeKeys testContent + Call wTypeKeys " " + Call wTypeKeys "<BACKSPACE><Shift Home>" + EditCopy + if GetClipboardText <> hopeResult then Warnlog "Something wrong in Correct TWo INitial CApital when M:Y T:Y" - Call wTypeKeys "<DELETE>" + Call wTypeKeys "<DELETE>" '/// M:Y T:N - testContent = "TEst" - hopeResultBeforeAutoformat = "TEst" - hopeResultAfterAutoformat = "Test" + testContent = "TEst" + hopeResultBeforeAutoformat = "TEst" + hopeResultAfterAutoformat = "Test" - Call fAutocorrectOptions("CorrectTWoINitialCApitals") + Call fAutocorrectOptions("CorrectTWoINitialCApitals",1,0) - Call wTypeKeys testContent - Call wTypeKeys " " - Call wTypeKeys "<BACKSPACE><Shift Home>" + Call wTypeKeys testContent + Call wTypeKeys " " + Call wTypeKeys "<BACKSPACE><Shift Home>" - EditCopy - if GetClipboardText <> hopeResultBeforeAutoformat then - Warnlog "The content should NOT be changed before Autoformat! M:Y T:N" - goto GOING1 - end if + EditCopy + if GetClipboardText <> hopeResultBeforeAutoformat then + Warnlog "The content should NOT be changed before Autoformat! M:Y T:N" + goto GOING1 + end if - Call wTypeKeys "<ESCAPE>" - FormatAutoformatApply - Call wTypeKeys "<Shift End>" - EditCopy - if GetClipboardText <> hopeResultAfterAutoformat then - Warnlog "The content should be changed after Autoformat!M:Y T:N" - end if + Call wTypeKeys "<ESCAPE>" + FormatAutoformatApply + Call wTypeKeys "<Shift End>" + EditCopy + if GetClipboardText <> hopeResultAfterAutoformat then + Warnlog "The content should be changed after Autoformat!M:Y T:N" + end if -GOING1: - Call wTypeKeys "<DELETE>" + GOING1: + Call wTypeKeys "<DELETE>" '/// M:N T:Y - testContent = "TEst" - hopeResult = "Test" + testContent = "TEst" + hopeResult = "Test" - Call fAutocorrectOptions("CorrectTWoINitialCApitals") + Call fAutocorrectOptions("CorrectTWoINitialCApitals",0,1) - Call wTypeKeys testContent - Call wTypeKeys " " - Call wTypeKeys "<BACKSPACE><Shift Home>" - EditCopy - if GetClipboardText <> hopeResult then Warnlog "Something wrong in Correct TWo INitial CApital when M:N T:Y" + Call wTypeKeys testContent + Call wTypeKeys " " + Call wTypeKeys "<BACKSPACE><Shift Home>" + EditCopy + if GetClipboardText <> hopeResult then Warnlog "Something wrong in Correct TWo INitial CApital when M:N T:Y" - Call wTypeKeys "<DELETE>" + Call wTypeKeys "<DELETE>" '/// M:N T:N - testContent = "TEst" - hopeResultBeforeAutoformat = "TEst" - hopeResultAfterAutoformat = "TEst" + testContent = "TEst" + hopeResultBeforeAutoformat = "TEst" + hopeResultAfterAutoformat = "TEst" - Call fAutocorrectOptions("CorrectTWoINitialCApitals") + Call fAutocorrectOptions("CorrectTWoINitialCApitals",0,0) - Call wTypeKeys testContent - Call wTypeKeys " " - Call wTypeKeys "<BACKSPACE><Shift Home>" - EditCopy - if GetClipboardText <> hopeResultBeforeAutoformat then + Call wTypeKeys testContent + Call wTypeKeys " " + Call wTypeKeys "<BACKSPACE><Shift Home>" + EditCopy + if GetClipboardText <> hopeResultBeforeAutoformat then Warnlog "The content should NOT be changed before Autoformat! M:N T:N" - goto testend - end if + Call hCloseDocument + end if - Call wTypeKeys "<ESCAPE>" - FormatAutoformatApply - Call wTypeKeys "<Shift End>" - EditCopy - if GetClipboardText <> hopeResultAfterAutoformat then + Call wTypeKeys "<ESCAPE>" + FormatAutoformatApply + Call wTypeKeys "<Shift End>" + EditCopy + if GetClipboardText <> hopeResultAfterAutoformat then Warnlog "The content should NOT be changed after Autoformat! M:N T:N" - end if + end if -testend: '/// Recover to the default M:Y T:Y - Call fAutocorrectOptions("CorrectTWoINitialCApitals") + Call fAutocorrectOptions("CorrectTWoINitialCApitals",1,1) Call hCloseDocument @@ -342,14 +326,14 @@ endcase testcase tToolsAutocorrectOptions_3 - Dim testContent as String - Dim hopeResult as String - Dim hopeResultBeforeAutoformat as String - Dim hopeResultAfterAutoformat as String + Dim testContent as String + Dim hopeResult as String + Dim hopeResultBeforeAutoformat as String + Dim hopeResultAfterAutoformat as String - printLog "Test 'Capitalize first letter of every setence'" - '/// Test 'Capitalize first letter of every setence' - Call hNewDocument + printLog "Test 'Capitalize first letter of every setence'" + '/// Test 'Capitalize first letter of every setence' + Call hNewDocument '/// M:Y T:Y (default) testContent = "the test for StarOffice automation. who is the author?" @@ -366,7 +350,7 @@ testcase tToolsAutocorrectOptions_3 hopeResultBeforeAutoformat = "the test for StarOffice automation. who is the author?" hopeResultAfterAutoformat = "The test for StarOffice automation. Who is the author?" - Call fAutocorrectOptions("CapitalizeFirstLetter") + Call fAutocorrectOptions("CapitalizeFirstLetter",1,0) Call wTypeKeys testContent Call wTypeKeys "<Shift Home>" EditCopy @@ -390,7 +374,7 @@ GOING1: testContent = "the test for StarOffice automation. who is the author?" hopeResult = "The test for StarOffice automation. Who is the author?" - Call fAutocorrectOptions("CapitalizeFirstLetter") + Call fAutocorrectOptions("CapitalizeFirstLetter",0,1) Call wTypeKeys testContent Call wTypeKeys "<Shift Home>" EditCopy @@ -403,7 +387,7 @@ GOING1: hopeResultBeforeAutoformat = "the test for StarOffice automation. who is the author?" hopeResultAfterAutoformat = "the test for StarOffice automation. who is the author?" - Call fAutocorrectOptions("CapitalizeFirstLetter") + Call fAutocorrectOptions("CapitalizeFirstLetter",0,0) Call wTypeKeys testContent Call wTypeKeys "<Shift Home>" @@ -424,7 +408,7 @@ GOING1: testend: '/// Recover to the default - Call fAutocorrectOptions("CapitalizeFirstLetter") + Call fAutocorrectOptions("CapitalizeFirstLetter",1,1) Call hCloseDocument @@ -435,16 +419,16 @@ endcase testcase tToolsAutocorrectOptions_4_1 - Dim testContent as String - Dim hopeResult as String - Dim hopeResultBeforeAutoformat as String - Dim hopeResultAfterAutoformat as String - Dim getStyle as String - Dim hopeStyle as String + Dim testContent as String + Dim hopeResult as String + Dim hopeResultBeforeAutoformat as String + Dim hopeResultAfterAutoformat as String + Dim getStyle as String + Dim hopeStyle as String - printLog "Test 'Automatic bold and underline' --- bold " - '/// Test 'Automatic bold' - Call hNewDocument + printLog "Test 'Automatic bold and underline' --- bold " + '/// Test 'Automatic bold' + Call hNewDocument '/// M:Y T:Y (default) testContent = "*Test*" @@ -458,193 +442,193 @@ testcase tToolsAutocorrectOptions_4_1 fFormatCharacter("TabFont") try - getStyle = Style.GetSelText - Style.Select 3 - hopeStyle = Style.GetSelText + getStyle = Style.GetSelText + Style.Select 3 + hopeStyle = Style.GetSelText catch - getStyle = StyleWest.GetSelText - StyleWest.Select 3 - hopeStyle = StyleWest.GetSelText + getStyle = StyleWest.GetSelText + StyleWest.Select 3 + hopeStyle = StyleWest.GetSelText endcatch Sleep 1 - if getStyle <> hopeStyle then Warnlog "The style is NOT bold style when M:Y T:Y" + if getStyle <> hopeStyle then Warnlog "The style is NOT bold style when M:Y T:Y" try - Style.Select 1 + Style.Select 1 catch - StyleWest.Select 1 + StyleWest.Select 1 endcatch Sleep 1 - TabFont.OK - Sleep 1 + TabFont.OK + Sleep 1 - Call wTypeKeys "<DELETE>" + Call wTypeKeys "<DELETE>" '/// M:Y T:N - testContent = "*Test*" - hopeResultBeforeAutoformat = "*Test*" - hopeResultAfterAutoformat = "Test" + testContent = "*Test*" + hopeResultBeforeAutoformat = "*Test*" + hopeResultAfterAutoformat = "Test" - Call fAutocorrectOptions("AutomaticBoldAndUnderline") + Call fAutocorrectOptions("AutomaticBoldAndUnderline",1,0) - Call wTypeKeys testContent - Call wTypeKeys "<Shift Home>" + Call wTypeKeys testContent + Call wTypeKeys "<Shift Home>" - EditCopy - if GetClipboardText <> hopeResultBeforeAutoformat then - Warnlog "The content should NOT be changed before Autoformat! M:Y T:N" - goto GOING1 - end if + EditCopy + if GetClipboardText <> hopeResultBeforeAutoformat then + Warnlog "The content should NOT be changed before Autoformat! M:Y T:N" + goto GOING1 + end if - fFormatCharacter("TabFont") + fFormatCharacter("TabFont") try - getStyle = Style.GetSelText - Style.Select 1 - hopeStyle = Style.GetSelText + getStyle = Style.GetSelText + Style.Select 1 + hopeStyle = Style.GetSelText catch - getStyle = StyleWest.GetSelText - StyleWest.Select 1 - hopeStyle = StyleWest.GetSelText + getStyle = StyleWest.GetSelText + StyleWest.Select 1 + hopeStyle = StyleWest.GetSelText endcatch Sleep 1 - if getStyle <> hopeStyle then Warnlog "The style should be standard style before autoformat!" - TabFont.Cancel + if getStyle <> hopeStyle then Warnlog "The style should be standard style before autoformat!" + TabFont.Cancel - Call wTypeKeys "<ESCAPE>" - FormatAutoformatApply - Call wTypeKeys "<Shift End>" - EditCopy - if GetClipboardText <> hopeResultAfterAutoformat then + Call wTypeKeys "<ESCAPE>" + FormatAutoformatApply + Call wTypeKeys "<Shift End>" + EditCopy + if GetClipboardText <> hopeResultAfterAutoformat then Warnlog "The content should be changed after Autoformat!M:Y T:N" - end if + end if - fFormatCharacter("TabFont") + Call fFormatCharacter("TabFont") try - getStyle = Style.GetSelText - Style.Select 3 - hopeStyle = Style.GetSelText + getStyle = Style.GetSelText + Style.Select 3 + hopeStyle = Style.GetSelText catch - getStyle = StyleWest.GetSelText - StyleWest.Select 3 - hopeStyle = StyleWest.GetSelText + getStyle = StyleWest.GetSelText + StyleWest.Select 3 + hopeStyle = StyleWest.GetSelText endcatch Sleep 1 - if getStyle <> hopeStyle then Warnlog "The style is NOT bold style when M:Y T:Y" + if getStyle <> hopeStyle then Warnlog "The style is NOT bold style when M:Y T:Y" try - Style.Select 1 + Style.Select 1 catch - StyleWest.Select 1 + StyleWest.Select 1 endcatch - Sleep 1 + Sleep 1 - TabFont.OK - Sleep 1 + TabFont.OK + Sleep 1 -GOING1: + GOING1: - Call wTypeKeys "<DELETE>" + Call wTypeKeys "<DELETE>" '/// M:N T:Y - testContent = "*Test*" - hopeResult = "Test" + testContent = "*Test*" + hopeResult = "Test" - Call fAutocorrectOptions("AutomaticBoldAndUnderline") + Call fAutocorrectOptions("AutomaticBoldAndUnderline",0,1) - Call wTypeKeys testContent - Call wTypeKeys "<Shift Home>" - EditCopy - if GetClipboardText <> hopeResult then Warnlog "Something wrong in Automatic bold when M:Y T:Y" + Call wTypeKeys testContent + Call wTypeKeys "<Shift Home>" + EditCopy + if GetClipboardText <> hopeResult then Warnlog "Something wrong in Automatic bold when M:Y T:Y" - fFormatCharacter("TabFont") + Call fFormatCharacter("TabFont") try - getStyle = Style.GetSelText - Style.Select 3 - hopeStyle = Style.GetSelText + getStyle = Style.GetSelText + Style.Select 3 + hopeStyle = Style.GetSelText catch - getStyle = StyleWest.GetSelText - StyleWest.Select 3 - hopeStyle = StyleWest.GetSelText + getStyle = StyleWest.GetSelText + StyleWest.Select 3 + hopeStyle = StyleWest.GetSelText endcatch Sleep 1 - if getStyle <> hopeStyle then Warnlog "The style is NOT bold style when M:Y T:Y" + if getStyle <> hopeStyle then Warnlog "The style is NOT bold style when M:Y T:Y" try - Style.Select 1 + Style.Select 1 catch - StyleWest.Select 1 + StyleWest.Select 1 endcatch - TabFont.OK - Sleep 1 + TabFont.OK + Sleep 1 - Call wTypeKeys "<DELETE>" + Call wTypeKeys "<DELETE>" '/// M:N T:N - testContent = "*Test*" - hopeResultBeforeAutoformat = "*Test*" - hopeResultAfterAutoformat = "*Test*" + testContent = "*Test*" + hopeResultBeforeAutoformat = "*Test*" + hopeResultAfterAutoformat = "*Test*" - Call fAutocorrectOptions("AutomaticBoldAndUnderline") + Call fAutocorrectOptions("AutomaticBoldAndUnderline",0,0) - Call wTypeKeys testContent - Call wTypeKeys "<Shift Home>" - EditCopy - if GetClipboardText <> hopeResultBeforeAutoformat then + Call wTypeKeys testContent + Call wTypeKeys "<Shift Home>" + EditCopy + if GetClipboardText <> hopeResultBeforeAutoformat then Warnlog "The content should NOT be changed before Autoformat! M:N T:N" goto testend - end if + end if - fFormatCharacter("TabFont") + Call fFormatCharacter("TabFont") try - getStyle = Style.GetSelText - Style.Select 1 - hopeStyle = Style.GetSelText + getStyle = Style.GetSelText + Style.Select 1 + hopeStyle = Style.GetSelText catch - getStyle = StyleWest.GetSelText - StyleWest.Select 1 - hopeStyle = StyleWest.GetSelText + getStyle = StyleWest.GetSelText + StyleWest.Select 1 + hopeStyle = StyleWest.GetSelText endcatch Sleep 1 - if getStyle <> hopeStyle then Warnlog "The style should be standard style before autoformat!" - TabFont.Cancel + if getStyle <> hopeStyle then Warnlog "The style should be standard style before autoformat!" + TabFont.Cancel - Call wTypeKeys "<ESCAPE>" - FormatAutoformatApply - Call wTypeKeys "<Shift End>" - EditCopy - if GetClipboardText <> hopeResultAfterAutoformat then + Call wTypeKeys "<ESCAPE>" + FormatAutoformatApply + Call wTypeKeys "<Shift End>" + EditCopy + if GetClipboardText <> hopeResultAfterAutoformat then Warnlog "The content should NOT be changed after Autoformat! M:N T:N" - end if + end if - fFormatCharacter("TabFont") + Call fFormatCharacter("TabFont") try - getStyle = Style.GetSelText - Style.Select 1 - hopeStyle = Style.GetSelText + getStyle = Style.GetSelText + Style.Select 1 + hopeStyle = Style.GetSelText catch - getStyle = StyleWest.GetSelText - StyleWest.Select 1 - hopeStyle = StyleWest.GetSelText + getStyle = StyleWest.GetSelText + StyleWest.Select 1 + hopeStyle = StyleWest.GetSelText endcatch Sleep 1 - if getStyle <> hopeStyle then Warnlog "The style should be standard style after autoformat!" - TabFont.OK - Sleep 1 + if getStyle <> hopeStyle then Warnlog "The style should be standard style after autoformat!" + TabFont.OK + Sleep 1 -testend: + testend: '/// Recover to the default M:Y T:Y - Call fAutocorrectOptions("AutomaticBoldAndUnderline") + Call fAutocorrectOptions("AutomaticBoldAndUnderline",1,1) Call hCloseDocument @@ -654,155 +638,155 @@ endcase testcase tToolsAutocorrectOptions_4_2 - Dim testContent as String - Dim hopeResult as String - Dim hopeResultBeforeAutoformat as String - Dim hopeResultAfterAutoformat as String - Dim getUnderlineStatus as Integer - Dim hopeUnderlineStatus as Integer ' 1 = without , 2 = single + Dim testContent as String + Dim hopeResult as String + Dim hopeResultBeforeAutoformat as String + Dim hopeResultAfterAutoformat as String + Dim getUnderlineStatus as Integer + Dim hopeUnderlineStatus as Integer ' 1 = without , 2 = single - printLog "Test 'Automatic bold and underline' --- underline " - '/// Test 'Automatic underline' - Call hNewDocument + printLog "Test 'Automatic bold and underline' --- underline " + '/// Test 'Automatic underline' + Call hNewDocument '/// M:Y T:Y (default) - testContent = "_Test_" - hopeResult = "Test" + testContent = "_Test_" + hopeResult = "Test" - Call wTypeKeys testContent - Call wTypeKeys "<Shift Home>" - EditCopy - if GetClipboardText <> hopeResult then Warnlog "Something wrong in Automatic underline when M:Y T:Y" + Call wTypeKeys testContent + Call wTypeKeys "<Shift Home>" + EditCopy + if GetClipboardText <> hopeResult then Warnlog "Something wrong in Automatic underline when M:Y T:Y" - fFormatCharacter("TabFontEffects") + Call fFormatCharacter("TabFontEffects") - getUnderlineStatus = Underline.GetSelIndex - Underline.Select 2 - hopeUnderlineStatus = Underline.GetSelIndex + getUnderlineStatus = Underline.GetSelIndex + Underline.Select 2 + hopeUnderlineStatus = Underline.GetSelIndex - if getUnderlineStatus <> hopeUnderlineStatus then Warnlog "The content is NOT underlined when M:Y T:Y" - Underline.Select 1 - TabFontEffects.OK - Sleep 1 + if getUnderlineStatus <> hopeUnderlineStatus then Warnlog "The content is NOT underlined when M:Y T:Y" + Underline.Select 1 + TabFontEffects.OK + Sleep 1 - Call wTypeKeys "<DELETE>" + Call wTypeKeys "<DELETE>" '/// M:Y T:N - testContent = "_Test_" - hopeResultBeforeAutoformat = "_Test_" - hopeResultAfterAutoformat = "Test" + testContent = "_Test_" + hopeResultBeforeAutoformat = "_Test_" + hopeResultAfterAutoformat = "Test" - Call fAutocorrectOptions("AutomaticBoldAndUnderline") + Call fAutocorrectOptions("AutomaticBoldAndUnderline",1,0) - Call wTypeKeys testContent - Call wTypeKeys "<Shift Home>" + Call wTypeKeys testContent + Call wTypeKeys "<Shift Home>" - EditCopy - if GetClipboardText <> hopeResultBeforeAutoformat then + EditCopy + if GetClipboardText <> hopeResultBeforeAutoformat then Warnlog "The content should NOT be changed before Autoformat! M:Y T:N" goto GOING1 - end if + end if - fFormatCharacter("TabFontEffects") + Call fFormatCharacter("TabFontEffects") - getUnderlineStatus = Underline.GetSelIndex - Underline.Select 1 - Sleep 1 - hopeUnderlineStatus = Underline.GetSelIndex + getUnderlineStatus = Underline.GetSelIndex + Underline.Select 1 + Sleep 1 + hopeUnderlineStatus = Underline.GetSelIndex - if getUnderlineStatus <> hopeUnderlineStatus then Warnlog "The content should NOT be underlined when M:Y T:N before autoformat!" - TabFontEffects.OK - Sleep 1 + if getUnderlineStatus <> hopeUnderlineStatus then Warnlog "The content should NOT be underlined when M:Y T:N before autoformat!" + TabFontEffects.OK + Sleep 1 - Call wTypeKeys "<ESCAPE>" - FormatAutoformatApply - Call wTypeKeys "<Shift End>" - EditCopy - if GetClipboardText <> hopeResultAfterAutoformat then + Call wTypeKeys "<ESCAPE>" + FormatAutoformatApply + Call wTypeKeys "<Shift End>" + EditCopy + if GetClipboardText <> hopeResultAfterAutoformat then Warnlog "The content should be changed after Autoformat!M:Y T:N" - end if + end if - fFormatCharacter("TabFontEffects") - getUnderlineStatus = Underline.GetSelIndex - Underline.Select 2 - hopeUnderlineStatus = Underline.GetSelIndex + Call fFormatCharacter("TabFontEffects") + getUnderlineStatus = Underline.GetSelIndex + Underline.Select 2 + hopeUnderlineStatus = Underline.GetSelIndex - if getUnderlineStatus <> hopeUnderlineStatus then Warnlog "The content should be underlined when M:Y T:N" - Underline.Select 1 - TabFontEffects.OK - Sleep 1 -GOING1: - Call wTypeKeys "<DELETE>" + if getUnderlineStatus <> hopeUnderlineStatus then Warnlog "The content should be underlined when M:Y T:N" + Underline.Select 1 + TabFontEffects.OK + Sleep 1 + GOING1: + Call wTypeKeys "<DELETE>" '/// M:N T:Y - testContent = "_Test_" - hopeResult = "Test" + testContent = "_Test_" + hopeResult = "Test" - Call fAutocorrectOptions("AutomaticBoldAndUnderline") + Call fAutocorrectOptions("AutomaticBoldAndUnderline",0,1) - Call wTypeKeys testContent - Call wTypeKeys "<Shift Home>" - EditCopy - if GetClipboardText <> hopeResult then Warnlog "Something wrong in Automatic bold when M:N T:Y" + Call wTypeKeys testContent + Call wTypeKeys "<Shift Home>" + EditCopy + if GetClipboardText <> hopeResult then Warnlog "Something wrong in Automatic bold when M:N T:Y" - fFormatCharacter("TabFontEffects") - getUnderlineStatus = Underline.GetSelIndex - Underline.Select 2 - Sleep 1 - hopeUnderlineStatus = Underline.GetSelIndex + Call fFormatCharacter("TabFontEffects") + getUnderlineStatus = Underline.GetSelIndex + Underline.Select 2 + Sleep 1 + hopeUnderlineStatus = Underline.GetSelIndex - if getUnderlineStatus <> hopeUnderlineStatus then Warnlog "The content is NOT underlined when M:N T:Y" - Underline.Select 1 - Sleep 1 - TabFontEffects.OK - Sleep 1 + if getUnderlineStatus <> hopeUnderlineStatus then Warnlog "The content is NOT underlined when M:N T:Y" + Underline.Select 1 + Sleep 1 + TabFontEffects.OK + Sleep 1 - Call wTypeKeys "<DELETE>" + Call wTypeKeys "<DELETE>" '/// M:N T:N - testContent = "_Test_" - hopeResultBeforeAutoformat = "_Test_" - hopeResultAfterAutoformat = "_Test_" + testContent = "_Test_" + hopeResultBeforeAutoformat = "_Test_" + hopeResultAfterAutoformat = "_Test_" - Call fAutocorrectOptions("AutomaticBoldAndUnderline") + Call fAutocorrectOptions("AutomaticBoldAndUnderline",0,0) - Call wTypeKeys testContent - Call wTypeKeys "<Shift Home>" - EditCopy - if GetClipboardText <> hopeResultBeforeAutoformat then + Call wTypeKeys testContent + Call wTypeKeys "<Shift Home>" + EditCopy + if GetClipboardText <> hopeResultBeforeAutoformat then Warnlog "The content should NOT be changed before Autoformat! M:N T:N" goto testend - end if + end if - fFormatCharacter("TabFontEffects") - getUnderlineStatus = Underline.GetSelIndex - Underline.Select 1 - hopeUnderlineStatus = Underline.GetSelIndex + Call fFormatCharacter("TabFontEffects") + getUnderlineStatus = Underline.GetSelIndex + Underline.Select 1 + hopeUnderlineStatus = Underline.GetSelIndex - if getUnderlineStatus <> hopeUnderlineStatus then Warnlog "The content should NOT be underlined before autoformat!M:N T:N " - TabFontEffects.OK + if getUnderlineStatus <> hopeUnderlineStatus then Warnlog "The content should NOT be underlined before autoformat!M:N T:N " + TabFontEffects.OK - Call wTypeKeys "<ESCAPE>" - FormatAutoformatApply - Call wTypeKeys "<Shift End>" - EditCopy - if GetClipboardText <> hopeResultAfterAutoformat then - Warnlog "The content should NOT be changed after Autoformat! M:N T:N" - end if + Call wTypeKeys "<ESCAPE>" + FormatAutoformatApply + Call wTypeKeys "<Shift End>" + EditCopy + if GetClipboardText <> hopeResultAfterAutoformat then + Warnlog "The content should NOT be changed after Autoformat! M:N T:N" + end if - fFormatCharacter("TabFontEffects") - getUnderlineStatus = Underline.GetSelIndex - Underline.Select 1 - Sleep 1 - hopeUnderlineStatus = Underline.GetSelIndex + Call fFormatCharacter("TabFontEffects") + getUnderlineStatus = Underline.GetSelIndex + Underline.Select 1 + Sleep 1 + hopeUnderlineStatus = Underline.GetSelIndex - if getUnderlineStatus <> hopeUnderlineStatus then Warnlog "The content should NOT be underlined after autoformat! M:N T:N" - TabFontEffects.OK - Sleep 1 + if getUnderlineStatus <> hopeUnderlineStatus then Warnlog "The content should NOT be underlined after autoformat! M:N T:N" + TabFontEffects.OK + Sleep 1 -testend: + testend: '/// Recover to the default M:Y T:Y - Call fAutocorrectOptions("AutomaticBoldAndUnderline") + Call fAutocorrectOptions("AutomaticBoldAndUnderline",1,1) Call hCloseDocument @@ -812,100 +796,100 @@ endcase testcase tToolsAutocorrectOptions_5 - Dim testContent as String - Dim hopeResult as String - Dim hopeResultBeforeAutoformat as String - Dim hopeResultAfterAutoformat as String + Dim testContent as String + Dim hopeResult as String + Dim hopeResultBeforeAutoformat as String + Dim hopeResultAfterAutoformat as String - printLog "URL Recognition" - '/// URL Recognition - Call hNewDocument + printLog "URL Recognition" + '/// URL Recognition + Call hNewDocument '/// M:Y T:Y (default) - testContent = "WWW.sun.com" - hopeResult = "http://WWW.sun.com/" + testContent = "WWW.sun.com" + hopeResult = "http://WWW.sun.com/" - Call wTypeKeys testContent - Call wTypeKeys " " - Call wTypeKeys "<Home>" + Call wTypeKeys testContent + Call wTypeKeys " " + Call wTypeKeys "<Home>" - fFormatCharacter("TabHyperlinkZeichen") - if URLName.GetText <> hopeResult then Warnlog "The URL is NOT appeared when M:Y T:Y" - URLName.SetText "" - TabHyperlinkZeichen.OK + Call fFormatCharacter("TabHyperlinkZeichen") + if URLName.GetText <> hopeResult then Warnlog "The URL is NOT appeared when M:Y T:Y" + URLName.SetText "" + TabHyperlinkZeichen.OK Call hCloseDocument Call hNewDocument '/// M:Y T:N - testContent = "WWW.sun.com" - hopeResultBeforeAutoformat = "" - hopeResultAfterAutoformat = "http://WWW.sun.com/" + testContent = "WWW.sun.com" + hopeResultBeforeAutoformat = "" + hopeResultAfterAutoformat = "http://WWW.sun.com/" - Call fAutocorrectOptions("URLRecognition") + Call fAutocorrectOptions("URLRecognition",1,0) - Call wTypeKeys testContent - Call wTypeKeys " " - Call wTypeKeys "<Home>" + Call wTypeKeys testContent + Call wTypeKeys " " + Call wTypeKeys "<Home>" - fFormatCharacter("TabHyperlinkZeichen") - if URLName.GetText <> hopeResultBeforeAutoformat then Warnlog "The URL should NOT appeare when M:Y T:N before autoformat!" - URLName.SetText "" - TabHyperlinkZeichen.OK + Call fFormatCharacter("TabHyperlinkZeichen") + if URLName.GetText <> hopeResultBeforeAutoformat then Warnlog "The URL should NOT appeare when M:Y T:N before autoformat!" + URLName.SetText "" + TabHyperlinkZeichen.OK - FormatAutoformatApply + FormatAutoformatApply - fFormatCharacter("TabHyperlinkZeichen") - if URLName.GetText <> hopeResultAfterAutoformat then Warnlog "The URL should appeare when M:Y T:N after autoformat!" - URLName.SetText "" - TabHyperlinkZeichen.OK + Call fFormatCharacter("TabHyperlinkZeichen") + if URLName.GetText <> hopeResultAfterAutoformat then Warnlog "The URL should appeare when M:Y T:N after autoformat!" + URLName.SetText "" + TabHyperlinkZeichen.OK Call hCloseDocument Call hNewDocument '/// M:N T:Y - testContent = "WWW.sun.com" - hopeResult = "http://WWW.sun.com/" + testContent = "WWW.sun.com" + hopeResult = "http://WWW.sun.com/" - Call fAutocorrectOptions("URLRecognition") + Call fAutocorrectOptions("URLRecognition",0,1) - Call wTypeKeys testContent - Call wTypeKeys " " - Call wTypeKeys "<Home>" + Call wTypeKeys testContent + Call wTypeKeys " " + Call wTypeKeys "<Home>" - fFormatCharacter("TabHyperlinkZeichen") - if URLName.GetText <> hopeResult then Warnlog "The URL is NOT appeared when M:N T:Y" - URLName.SetText "" - TabHyperlinkZeichen.OK + Call fFormatCharacter("TabHyperlinkZeichen") + if URLName.GetText <> hopeResult then Warnlog "The URL is NOT appeared when M:N T:Y" + URLName.SetText "" + TabHyperlinkZeichen.OK Call hCloseDocument Call hNewDocument '/// M:N T:N - testContent = "WWW.sun.com" - hopeResultBeforeAutoformat = "" - hopeResultAfterAutoformat = "" + testContent = "WWW.sun.com" + hopeResultBeforeAutoformat = "" + hopeResultAfterAutoformat = "" - Call fAutocorrectOptions("URLRecognition") + Call fAutocorrectOptions("URLRecognition",0,0) - Call wTypeKeys testContent - Call wTypeKeys " " - Call wTypeKeys "<Home>" + Call wTypeKeys testContent + Call wTypeKeys " " + Call wTypeKeys "<Home>" - fFormatCharacter("TabHyperlinkZeichen") - if URLName.GetText <> hopeResultBeforeAutoformat then Warnlog "The URL should NOT appeare when M:N T:N before autoformat!" - URLName.SetText "" - TabHyperlinkZeichen.OK + Call fFormatCharacter("TabHyperlinkZeichen") + if URLName.GetText <> hopeResultBeforeAutoformat then Warnlog "The URL should NOT appeare when M:N T:N before autoformat!" + URLName.SetText "" + TabHyperlinkZeichen.OK - FormatAutoformatApply + FormatAutoformatApply - fFormatCharacter("TabHyperlinkZeichen") - if URLName.GetText <> hopeResultAfterAutoformat then Warnlog "The URL should NOT appeare when M:N T:N after autoformat!" - URLName.SetText "" - TabHyperlinkZeichen.OK + Call fFormatCharacter("TabHyperlinkZeichen") + if URLName.GetText <> hopeResultAfterAutoformat then Warnlog "The URL should NOT appeare when M:N T:N after autoformat!" + URLName.SetText "" + TabHyperlinkZeichen.OK '/// Recover to the default M:Y T:Y - Call fAutocorrectOptions("URLRecognition") + Call fAutocorrectOptions("URLRecognition",1,1) Call hCloseDocument @@ -915,279 +899,93 @@ endcase testcase tToolsAutocorrectOptions_6 - Dim testContent as String - - printLog "Replace 1st ... with 1^st..." - '/// Replace 1st ... with 1^st... - Call hNewDocument - - testContent = "1st" - - '/// M:Y T:Y (default) - Call wTypeKeys testContent - Call wTypeKeys " " - Call wTypeKeys "<BACKSPACE><Shift Left><Shift Left>" - - fFormatCharacter("TabFontPosition") - if SuperScript.IsChecked <> TRUE then Warnlog "The superscript should be checked when M:Y T:Y" - Normal.Check - TabFontPosition.OK - - EditSelectAll - Call wTypeKeys "<DELETE>" - - '/// M:Y T:N - Call fAutocorrectOptions("Replace1st") - - Call wTypeKeys testContent - Call wTypeKeys " " - Call wTypeKeys "<BACKSPACE><Shift Left><Shift Left>" - - fFormatCharacter("TabFontPosition") - if SuperScript.IsChecked = TRUE then Warnlog "The superscript should NOT be checked when M:Y T:N before autoformat!" - Normal.Check - TabFontPosition.OK - - FormatAutoformatApply - - fFormatCharacter("TabFontPosition") - if SuperScript.IsChecked <> TRUE then Warnlog "The superscript should be checked when M:Y T:N after autoformat!" - Normal.Check - TabFontPosition.OK - - EditSelectAll - Call wTypeKeys "<DELETE>" - - '/// M:N T:Y - Call fAutocorrectOptions("Replace1st") - - Call wTypeKeys testContent - Call wTypeKeys " " - Call wTypeKeys "<BACKSPACE><Shift Left><Shift Left>" - - fFormatCharacter("TabFontPosition") - if SuperScript.IsChecked <> TRUE then Warnlog "The superscript should be checked when M:N T:Y" - Normal.Check - TabFontPosition.OK - - EditSelectAll - Call wTypeKeys "<DELETE>" - - '/// M:N T:N - Call fAutocorrectOptions("Replace1st") - - Call wTypeKeys testContent - Call wTypeKeys " " - Call wTypeKeys "<BACKSPACE><Shift Left><Shift Left>" - - fFormatCharacter("TabFontPosition") - if SuperScript.IsChecked = TRUE then Warnlog "The superscript should NOT be checked when M:N T:N before autoformat!" - Normal.Check - TabFontPosition.OK - - FormatAutoformatApply - - fFormatCharacter("TabFontPosition") - if SuperScript.IsChecked = TRUE then Warnlog "The superscript should NOT be checked when M:N T:N after autoformat!" - Normal.Check - TabFontPosition.OK - - '/// Recover to the default M:Y T:Y - Call fAutocorrectOptions("Replace1st") - - Call hCloseDocument + Dim testContent as String + Dim hopeResult as String + Dim hopeResultBeforeAutoformat + Dim hopeResultAfterAutoformat as String - -endcase - -'------------------------------------------------------------------------- - -testcase tToolsAutocorrectOptions_7 - - Dim testContent as String - Dim hopeResult as String - Dim hopeResultBeforeAutoformat as String - Dim hopeResultAfterAutoformat as String - - printLog "Replace 1/2 ... with ½ ... " - '/// Replace 1/2 ... with ½ ... - Call hNewDocument - - '/// M:Y T:Y (default) - testContent = "1/2" - hopeResult = "½" - Call wTypeKeys testContent - Call wTypeKeys " " - Call wTypeKeys "<BACKSPACE><Shift Home>" - EditCopy - if GetClipboardText <> hopeResult then Warnlog "Something wrong in Replace 1/2 ... with ½ ... M:Y T:Y" - - Call wTypeKeys "<DELETE>" - - '/// M:Y T:N - testContent = "1/2" - hopeResultBeforeAutoformat = "1/2" - hopeResultAfterAutoformat = "½" - - Call fAutocorrectOptions("Replace1/2") - Call wTypeKeys testContent - Call wTypeKeys " " - Call wTypeKeys "<BACKSPACE><Shift Home>" - EditCopy - if GetClipboardText <> hopeResultBeforeAutoformat then - Warnlog "The content should NOT be changed before Autoformat! M:Y T:N" - goto GOING1 - end if - - Call wTypeKeys "<ESCAPE>" - FormatAutoformatApply - Call wTypeKeys "<Shift End>" - EditCopy - if GetClipboardText <> hopeResultAfterAutoformat then - Warnlog "The content should be changed after Autoformat!M:Y T:N" - end if - -GOING1: - Call wTypeKeys "<DELETE>" - - '/// M:N T:Y - testContent = "1/2" - hopeResult = "½" - - Call fAutocorrectOptions("Replace1/2") - Call wTypeKeys testContent - Call wTypeKeys " " - Call wTypeKeys "<BACKSPACE><Shift Home>" - EditCopy - if GetClipboardText <> hopeResult then Warnlog "Something wrong in Replace 1/2 ... with ½ ... when M:N T:Y" - - Call wTypeKeys "<DELETE>" - - '/// M:N T:N - testContent = "1/2" - hopeResultBeforeAutoformat = "1/2" - hopeResultAfterAutoformat = "1/2" - - Call fAutocorrectOptions("Replace1/2") - - Call wTypeKeys testContent - Call wTypeKeys " " - Call wTypeKeys "<BACKSPACE><Shift Home>" - EditCopy - if GetClipboardText <> hopeResultBeforeAutoformat then - Warnlog "The content should NOT be changed before Autoformat! M:N T:N" - goto testend - end if - - Call wTypeKeys "<ESCAPE>" - FormatAutoformatApply - Call wTypeKeys "<Shift End>" - EditCopy - if GetClipboardText <> hopeResultAfterAutoformat then - Warnlog "The content should NOT be changed after Autoformat! M:N T:N" - end if - -testend: - - '/// Recover to the default - Call fAutocorrectOptions("Replace1/2") - - Call hCloseDocument - - -endcase - -'------------------------------------------------------------------------- - -testcase tToolsAutocorrectOptions_8 - - Dim testContent as String - Dim hopeResult as String - Dim hopeResultBeforeAutoformat - Dim hopeResultAfterAutoformat as String - - printLog "Replace dashes" - '/// Replace dashes - Call hNewDocument + printLog "Replace dashes" + '/// Replace dashes + Call hNewDocument '/// M:Y T:Y (default) - testContent = "Bla - Bla" - hopeResult = "Bla – Bla" - Call wTypeKeys testContent - Call wTypeKeys " " - Call wTypeKeys "<BACKSPACE><Shift Home>" - EditCopy - if GetClipboardText <> hopeResult then Warnlog "Something wrong in Replace dashes M:Y T:Y" + testContent = "Bla - Bla" + hopeResult = "Bla – Bla" + Call wTypeKeys testContent + Call wTypeKeys " " + Call wTypeKeys "<BACKSPACE><Shift Home>" + EditCopy + if GetClipboardText <> hopeResult then Warnlog "Something wrong in Replace dashes M:Y T:Y" - Call wTypeKeys "<DELETE>" + Call wTypeKeys "<DELETE>" '/// M:Y T:N - testContent = "Bla - Bla" - hopeResultBeforeAutoformat = "Bla - Bla" - hopeResultAfterAutoformat = "Bla – Bla" + testContent = "Bla - Bla" + hopeResultBeforeAutoformat = "Bla - Bla" + hopeResultAfterAutoformat = "Bla – Bla" - Call fAutocorrectOptions("ReplaceDashes") - Call wTypeKeys testContent - Call wTypeKeys " " - Call wTypeKeys "<BACKSPACE><Shift Home>" - EditCopy - if GetClipboardText <> hopeResultBeforeAutoformat then + Call fAutocorrectOptions("ReplaceDashes",1,0) + Call wTypeKeys testContent + Call wTypeKeys " " + Call wTypeKeys "<BACKSPACE><Shift Home>" + EditCopy + if GetClipboardText <> hopeResultBeforeAutoformat then Warnlog "The content should NOT be changed before Autoformat! M:Y T:N" goto GOING1 - end if + end if - Call wTypeKeys "<ESCAPE>" - FormatAutoformatApply - Call wTypeKeys "<Shift End>" - EditCopy - if GetClipboardText <> hopeResultAfterAutoformat then + Call wTypeKeys "<ESCAPE>" + FormatAutoformatApply + Call wTypeKeys "<Shift End>" + EditCopy + if GetClipboardText <> hopeResultAfterAutoformat then Warnlog "The content should be changed after Autoformat!M:Y T:N" - end if + end if -GOING1: - Call wTypeKeys "<DELETE>" + GOING1: + Call wTypeKeys "<DELETE>" '/// M:N T:Y - testContent = "Bla - Bla" - hopeResult = "Bla – Bla" + testContent = "Bla - Bla" + hopeResult = "Bla – Bla" - Call fAutocorrectOptions("ReplaceDashes") - Call wTypeKeys testContent - Call wTypeKeys " " - Call wTypeKeys "<BACKSPACE><Shift Home>" - EditCopy - if GetClipboardText <> hopeResult then Warnlog "Something wrong in Replace dashes when M:N T:Y" + Call fAutocorrectOptions("ReplaceDashes",0,1) + Call wTypeKeys testContent + Call wTypeKeys " " + Call wTypeKeys "<BACKSPACE><Shift Home>" + EditCopy + if GetClipboardText <> hopeResult then Warnlog "Something wrong in Replace dashes when M:N T:Y" - Call wTypeKeys "<DELETE>" + Call wTypeKeys "<DELETE>" '/// M:N T:N - testContent = "Bla - Bla" - hopeResultBeforeAutoformat = "Bla - Bla" - hopeResultAfterAutoformat = "Bla - Bla" + testContent = "Bla - Bla" + hopeResultBeforeAutoformat = "Bla - Bla" + hopeResultAfterAutoformat = "Bla - Bla" - Call fAutocorrectOptions("ReplaceDashes") + Call fAutocorrectOptions("ReplaceDashes",0,0) - Call wTypeKeys testContent - Call wTypeKeys " " - Call wTypeKeys "<BACKSPACE><Shift Home>" - EditCopy - if GetClipboardText <> hopeResultBeforeAutoformat then + Call wTypeKeys testContent + Call wTypeKeys " " + Call wTypeKeys "<BACKSPACE><Shift Home>" + EditCopy + if GetClipboardText <> hopeResultBeforeAutoformat then Warnlog "The content should NOT be changed before Autoformat! M:N T:N" goto testend - end if + end if - Call wTypeKeys "<ESCAPE>" - FormatAutoformatApply - Call wTypeKeys "<Shift End>" - EditCopy - if GetClipboardText <> hopeResultAfterAutoformat then + Call wTypeKeys "<ESCAPE>" + FormatAutoformatApply + Call wTypeKeys "<Shift End>" + EditCopy + if GetClipboardText <> hopeResultAfterAutoformat then Warnlog "The content should NOT be changed after Autoformat! M:N T:N" - end if + end if -testend: + testend: '/// Recover to the default - Call fAutocorrectOptions("ReplaceDashes") + Call fAutocorrectOptions("ReplaceDashes",1,1) Call hCloseDocument @@ -1195,14 +993,14 @@ endcase '------------------------------------------------------------------------- -testcase tToolsAutocorrectOptions_11 +testcase tToolsAutocorrectOptions_7 - Dim testContent as String - Dim hopeResult as String + Dim testContent as String + Dim hopeResult as String - printLog "Ignore double spaces" - '/// Ignore double spaces - Call hNewDocument + printLog "Ignore double spaces" + '/// Ignore double spaces + Call hNewDocument '/// + T:N (default) testContent = "Two Space" @@ -1218,7 +1016,7 @@ testcase tToolsAutocorrectOptions_11 testContent = "Two Space" hopeResult = "Two Space" - Call fAutocorrectOptions("IgnoreDoulbeSpaces") + Call fAutocorrectOptions("IgnoreDoubleSpaces",1,1) Call wTypeKeys testContent Call wTypeKeys "<Shift Home>" EditCopy @@ -1228,7 +1026,7 @@ testcase tToolsAutocorrectOptions_11 Call wTypeKeys "<ESCAPE>" '/// Recover to the default - Call fAutocorrectOptions("IgnoreDoulbeSpaces") + Call fAutocorrectOptions("IgnoreDoubleSpaces",0,0) Call hCloseDocument @@ -1236,49 +1034,54 @@ endcase '------------------------------------------------------------------------- -testcase tToolsAutocorrectOptions_12 +testcase tToolsAutocorrectOptions_8 - Dim firstLine as String - Dim testContent as String - Dim hopeResult as String + Dim firstLine as String + Dim testContent as String + Dim hopeResult as String - printLog "Apply numbering" - '/// Apply numbering + printLog "Apply numbering" + '/// Apply numbering - Call hNewDocument + Call hNewDocument '/// + T:Y (default) - firstLine = "1. FirstLine" - testContent = "Test1" - hopeResult = "1.Test1" + firstLine = "1. FirstLine" + testContent = "Test1" + hopeResult = "1.Test1" - Call wTypeKeys firstLine - Call wTypeKeys "<Return>" - Call wTypeKeys testContent - Call wTypeKeys "<Return><Up><Home><Shift End>" - EditCopy - if GetClipboardText <> hopeResult then Warnlog "Should Apply numbering when T:Y " + Call wTypeKeys firstLine + Call wTypeKeys "<Return>" + Call wTypeKeys testContent + Call wTypeKeys "<Return>" + Call wTypeKeys "<Up><End>" + Call wTypeKeys "<Mod1 Shift Up>" + EditCopy + printlog GetClipBoardtext + if GetClipboardText <> hopeResult then Warnlog "Should Apply numbering when T:Y. Not " & hopeResult & " but " & GetClipboardtext - EditSelectAll - Call wTypeKeys "<DELETE>" - Call wTypeKeys "<BACKSPACE>",3 + EditSelectAll + Call wTypeKeys "<DELETE>" + Call wTypeKeys "<BACKSPACE>",3 '/// + T:N - testContent = "Test1" - hopeResult = "Test1" - - Call fAutocorrectOptions("ApplyNumbering") - Call wTypeKeys firstLine - Call wTypeKeys "<Return>" - Call wTypeKeys testContent - Call wTypeKeys "<Return><Up><Home><Shift End>" - EditCopy + testContent = "Test1" + hopeResult = "Test1" + + Call fAutocorrectOptions("ApplyNumbering",0,0) + Call wTypeKeys firstLine + Call wTypeKeys "<Return>" + Call wTypeKeys testContent + Call wTypeKeys "<Return>" + Call wTypeKeys "<Up><End>" + Call wTypeKeys "<Mod1 Shift Up>" + EditCopy - if GetClipboardText <> hopeResult then Warnlog "Should NOT Apply numbering when T:Y" + if GetClipboardText <> hopeResult then Warnlog "Should NOT Apply numbering when T:N. Not " & hopeResult & " but " & GetClipboardtext '/// Recover to the default - Call fAutocorrectOptions("ApplyNumbering") + Call fAutocorrectOptions("ApplyNumbering",1,1) Call hCloseDocument @@ -1286,132 +1089,124 @@ endcase '------------------------------------------------------------------------- -testcase tToolsAutocorrectOptions_13 - - Dim testList() as String - Dim testContent as String - Dim hopeResult as String - Dim i as String - Dim j as Integer - Dim bottom as String - - bottom = "0" + gSeperator + "10" + gMeasurementUnit +testcase tToolsAutocorrectOptions_9 - testList = Array( _ - "---" , _ - "___" , _ - "===" , _ - "***" , _ - "~~~" , _ - "###" , _ - ) - j = UBound(testList) + Dim testList() as String + Dim testContent as String + Dim hopeResult as String + Dim i as integer + Dim bottom as String - '/// Apply border test , including - '/// + '---' , '___", "===", "***" , "~~~", "###" - printLog "Apply border" + bottom = "0" + gSeperator + "10" + gMeasurementUnit - Call hNewDocument + testList = Array( "---", "___", "===", "***", "~~~" , "###" ) - For i = 0 to j + '/// Apply border test , including + '/// + '---' , '___", "===", "***" , "~~~", "###" + printLog "Apply border" - '/// + T:Y (default) - testContent = testlist(i) + Call hNewDocument - Call wTypeKeys testContent - Call wTypeKeys "<Return><Up><Home><Shift End>" - try + For i = 0 to 5 + + printlog testlist(i) + printlog "- T:Y (default)" + testContent = testlist(i) + + Call wTypeKeys testContent + Call wTypeKeys "<Return><Up><Home><Shift End>" + try + EditCopy + Warnlog "Apply border is NOT correct when T:Y " +testlist(i) + catch + endcatch + + Call fFormatParagraph("TabUmrandung") + try + Unten.SetText bottom + catch + Warnlog "Apply border is NOT correct when T:Y " +testlist(i) + endcatch + TabUmrandung.Cancel + + Call wTypeKeys "<Down>" + + printlog "- T:N" + testContent = testlist(i) + hopeResult = testlist(i) + + Call fAutocorrectOptions("ApplyBorder",0,0) + Call wTypeKeys testContent + Call wTypeKeys "<Return><Up><Home><Shift End>" EditCopy - Warnlog "Apply border is NOT correct when T:Y " +testlist(i) - catch - endcatch - fFormatParagraph("TabUmrandung") - try - Unten.SetText bottom - catch - Warnlog "Apply border is NOT correct when T:Y " +testlist(i) - endcatch - TabUmrandung.Cancel + if GetClipboardText <> hopeResult then Warnlog "Something wrong when T:N "+testlist(i) - Call wTypeKeys "<Down>" + Call fFormatParagraph("TabUmrandung") + try + Unten.SetText bottom + Warnlog "Apply border is NOT correct when T:N "+testlist(i) + catch + endcatch + TabUmrandung.Cancel - '/// + T:N - testContent = testlist(i) - hopeResult = testlist(i) - - Call fAutocorrectOptions("ApplyBorder") - Call wTypeKeys testContent - Call wTypeKeys "<Return><Up><Home><Shift End>" - EditCopy - - if GetClipboardText <> hopeResult then Warnlog "Something wrong when T:N "+testlist(i) - - fFormatParagraph("TabUmrandung") - try - Unten.SetText bottom - Warnlog "Apply border is NOT correct when T:N "+testlist(i) - catch - endcatch - TabUmrandung.Cancel - - '/// Recover to the default - Call fAutocorrectOptions("ApplyBorder") + printlog "- Recover to the default" + Call fAutocorrectOptions("ApplyBorder",1,1) - next i + next i - Call hCloseDocument + Call hCloseDocument endcase '------------------------------------------------------------------------- -testcase tToolsAutocorrectOptions_14 +testcase tToolsAutocorrectOptions_10 - Dim testContent as String - Dim hopeResult as String + Dim testContent as String + Dim hopeResult as String - printLog "Create Table" - '/// Create Table - Call hNewDocument + printLog "Create Table" + '/// Create Table + Call hNewDocument '/// + T:Y (default) - testContent = "+---+" - Call wTypeKeys testContent - Call wTypeKeys "<Return><Up><Home><Shift End>" - try + testContent = "+---+" + Call wTypeKeys testContent + Call wTypeKeys "<Return><Up><Home><Shift End>" + try EditCopy Warnlog "Something wrong in create table T:Y" - catch - endcatch + catch + endcatch - try + try FormatRowDelete Sleep 1 - catch + catch Warnlog "Can't delete table ,T:Y" - endcatch + endcatch '/// + T:N - testContent = "+---+" - hopeResult = "+---+" + testContent = "+---+" + hopeResult = "+---+" - Call fAutocorrectOptions("CreateTable") - Call wTypeKeys testContent - Call wTypeKeys "<Return><Up><Home><Shift End>" - EditCopy + Call fAutocorrectOptions("CreateTable",0,0) + Call wTypeKeys testContent + Call wTypeKeys "<Return><Up><Home><Shift End>" + EditCopy - if GetClipboardText <> hopeResult then Warnlog "Something wrong when T:N" + if GetClipboardText <> hopeResult then Warnlog "Something wrong when T:N" - try + try FormatRowDelete Sleep 1 Warnlog "Should NOT generate table when T:N" - catch - endcatch + catch + endcatch '/// Recover to the default - Call fAutocorrectOptions("CreateTable") + Call fAutocorrectOptions("CreateTable",1,1) Call hCloseDocument @@ -1419,74 +1214,73 @@ endcase '------------------------------------------------------------------------- -testcase tToolsAutocorrectOptions_16 - - Dim testContent1 as String - Dim testContent2 as String - Dim hopeResultAfterAutoformat1 as String - Dim hopeResultAfterAutoformat2 as String +testcase tToolsAutocorrectOptions_11 - testContent1 = "ABCD1234" - testContent2 = "EFGH5678" + Dim testContent1 as String + Dim testContent2 as String + Dim hopeResultAfterAutoformat1 as String + Dim hopeResultAfterAutoformat2 as String - hopeResultAfterAutoformat1 = "ABCD1234" - hopeResultAfterAutoformat2 = "EFGH5678" + testContent1 = "ABCD1234" + testContent2 = "EFGH5678" + hopeResultAfterAutoformat1 = "ABCD1234" + hopeResultAfterAutoformat2 = "EFGH5678" - printLog "Remove Blank Paragraphs" - '/// Remove Blank Paragraphs + printLog "Remove Blank Paragraphs" + '/// Remove Blank Paragraphs - Call hNewDocument + Call hNewDocument '/// M:N (default) - wTypeKeys testContent1 - wTypeKeys "<Return>",2 - wTypeKeys testContent2 + Call wTypeKeys testContent1 + Call wTypeKeys "<Return>",2 + Call wTypeKeys testContent2 - FormatAutoformatApply + FormatAutoformatApply - wTypeKeys "<Up><Up><Home><Shift End>" - wait 200 - EditCopy - if GetClipboardText <> hopeResultAfterAutoformat1 then Warnlog "the first line's content is NOT correct when M:N" + Call wTypeKeys "<Up><Up><Home><Shift End>" + wait 200 + EditCopy + if GetClipboardText <> hopeResultAfterAutoformat1 then Warnlog "the first line's content is NOT correct when M:N" - wTypeKeys "<Down><Home><Shift End>" - try + Call wTypeKeys "<Down><Home><Shift End>" + try EditCopy Warnlog "the second line's content is NOT correct when M:N" - catch - endcatch + catch + endcatch - wTypeKeys "<Down><Home><Shift End>" - wait 200 - EditCopy - if GetClipboardText <> hopeResultAfterAutoformat2 then Warnlog "the third line's content is NOT correct when M:N" + Call wTypeKeys "<Down><Home><Shift End>" + wait 200 + EditCopy + if GetClipboardText <> hopeResultAfterAutoformat2 then Warnlog "the third line's content is NOT correct when M:N" Call hCloseDocument Call hNewDocument '/// M:Y - Call fAutocorrectOptions("RemoveBlankParagraphs") + Call fAutocorrectOptions("RemoveBlankParagraphs",1,1) - wTypeKeys testContent1 - wTypeKeys "<Return>",2 - wTypeKeys testContent2 + Call wTypeKeys testContent1 + Call wTypeKeys "<Return>",2 + Call wTypeKeys testContent2 - FormatAutoformatApply + FormatAutoformatApply - wTypeKeys "<Up><Up><Home><Shift End>" - wait 200 - EditCopy - if GetClipboardText <> hopeResultAfterAutoformat1 then Warnlog "the first line's content is NOT correct when M:Y" + Call wTypeKeys "<Up><Up><Home><Shift End>" + wait 200 + EditCopy + if GetClipboardText <> hopeResultAfterAutoformat1 then Warnlog "the first line's content is NOT correct when M:Y" - wTypeKeys "<Down><Home><Shift End>" - wait 200 - EditCopy - if GetClipboardText <> hopeResultAfterAutoformat2 then Warnlog "the second line's content is NOT correct when M:Y" + Call wTypeKeys "<Down><Home><Shift End>" + wait 200 + EditCopy + if GetClipboardText <> hopeResultAfterAutoformat2 then Warnlog "the second line's content is NOT correct when M:Y" '/// Recover to the default - Call fAutocorrectOptions("RemoveBlankParagraphs") + Call fAutocorrectOptions("RemoveBlankParagraphs",0,0) Call hCloseDocument @@ -1494,39 +1288,39 @@ endcase '------------------------------------------------------------------------- -testcase tToolsAutocorrectOptions_18 +testcase tToolsAutocorrectOptions_12 - Dim testContent as String - Dim hopeResultBeforeAutoformat as String - Dim hopeResultAfterAutoformat as String + Dim testContent as String + Dim hopeResultBeforeAutoformat as String + Dim hopeResultAfterAutoformat as String - printLog "Replace bullets with •" - '/// Replace bullets with • + printLog "Replace bullets with •" + '/// Replace bullets with • - Call hNewDocument + Call hNewDocument '/// M:Y (default) printLog "M:Y (default)" - testContent = "+ Hello" - hopeResultBeforeAutoformat = "+ Hello" - hopeResultAfterAutoformat = "• Hello" - - wTypeKeys testContent - wait 100 - wTypeKeys "<Shift Home>" - Sleep 1 - GetClipboardText = "" - EditCopy - if GetClipboardText <> hopeResultBeforeAutoformat then Warnlog "should NOT change before autoformat " + testContent = "+ Hello" + hopeResultBeforeAutoformat = "+ Hello" + hopeResultAfterAutoformat = "• Hello" - FormatAutoformatApply + Call wTypeKeys testContent + wait 100 + Call wTypeKeys "<Shift Home>" + Sleep 1 + GetClipboardText = "" + EditCopy + if GetClipboardText <> hopeResultBeforeAutoformat then Warnlog "should NOT change before autoformat " - wTypeKeys "<Home><Shift End>" - Sleep 1 - GetClipboardText = "" - EditCopy - Sleep 1 - if GetClipboardText <> hopeResultAfterAutoformat then Warnlog "should change after autoformat " + FormatAutoformatApply + + Call wTypeKeys "<Home><Shift End>" + Sleep 1 + GetClipboardText = "" + EditCopy + Sleep 1 + if GetClipboardText <> hopeResultAfterAutoformat then Warnlog "should change after autoformat " Call hCloseDocument @@ -1534,30 +1328,30 @@ testcase tToolsAutocorrectOptions_18 '/// M:N printLog "M:N" - testContent = "+ Hello" - hopeResultBeforeAutoformat = "+ Hello" - hopeResultAfterAutoformat = "+ Hello" + testContent = "+ Hello" + hopeResultBeforeAutoformat = "+ Hello" + hopeResultAfterAutoformat = "+ Hello" - Call fAutocorrectOptions("ReplaceBullets") + Call fAutocorrectOptions("ReplaceBullets",0,0) - wTypeKeys testContent - wait 100 - wTypeKeys "<Shift Home>" - Sleep 1 - GetClipboardText = "" - EditCopy - if GetClipboardText <> hopeResultBeforeAutoformat then Warnlog "Should NOT change before autoformat " + Call wTypeKeys testContent + wait 100 + Call wTypeKeys "<Shift Home>" + Sleep 1 + GetClipboardText = "" + EditCopy + if GetClipboardText <> hopeResultBeforeAutoformat then Warnlog "Should NOT change before autoformat " - FormatAutoformatApply - Sleep 1 - wTypeKeys "<Home><Shift End>" - Sleep 1 - GetClipboardText = "" - EditCopy - if GetClipboardText <> hopeResultAfterAutoformat then Warnlog "Should NOT change after autoformat " + FormatAutoformatApply + Sleep 1 + Call wTypeKeys "<Home><Shift End>" + Sleep 1 + GetClipboardText = "" + EditCopy + if GetClipboardText <> hopeResultAfterAutoformat then Warnlog "Should NOT change after autoformat " '/// Recover to the default - Call fAutocorrectOptions("ReplaceBullets") + Call fAutocorrectOptions("ReplaceBullets",1,1) Call hCloseDocument @@ -1565,89 +1359,88 @@ endcase '------------------------------------------------------------------------- -testcase tToolsAutocorrectOptions_19 +testcase tToolsAutocorrectOptions_13 - Dim testContent as String - Dim hopeResultBeforeAutoformat as String - Dim hopeResultAfterAutoformat as String + Dim testContent as String + Dim hopeResultBeforeAutoformat as String + Dim hopeResultAfterAutoformat as String - printLog "Replace standard quotes with custom quotes" - '/// Replace standard quotes with custom quotes + printLog "Replace standard quotes with custom quotes" + '/// Replace standard quotes with custom quotes - Call hNewDocument + Call hNewDocument '/// M:Y (default) - testContent = "'" - hopeResultBeforeAutoformat = "'" - hopeResultAfterAutoformat = "[" - - ToolsAutoCorrect - Kontext - Active.SetPage TabTypografisch - Kontext "TabTypografisch" - EinfacheErsetzen.UnCheck - EinfachWortAnfang.Click - Kontext "Sonderzeichen" - Schriftliste.TypeKeys "<PageUp><Home>" - Schriftliste.TypeKeys "<Right>", 59 ' is [ - Schriftliste.TypeKeys "<Space>" - Sonderzeichen.OK - - Kontext "TabTypografisch" - TabTypografisch.OK - - wTypeKeys (testContent + "Hello") - wait 100 - wTypeKeys "<Home><Shift Right>" - Sleep 1 - EditCopy - if GetClipboardText <> hopeResultBeforeAutoformat then Warnlog "Should NOT change before autoformat " + testContent = "'" + hopeResultBeforeAutoformat = "'" + hopeResultAfterAutoformat = "[" - FormatAutoformatApply + ToolsAutoCorrect + Kontext + Active.SetPage TabLocalizedOptions + Kontext "TabLocalizedOptions" + SingleQuotesReplace.UnCheck + SingleQuotesStart.Click + Kontext "Sonderzeichen" + Schriftliste.TypeKeys "<PageUp><Home>" + Schriftliste.TypeKeys "<Right>", 59 ' is [ + Schriftliste.TypeKeys "<Space>" + Sonderzeichen.OK + + Kontext "TabLocalizedOptions" + TabLocalizedOptions.OK + + Call wTypeKeys (testContent + "Hello") + wait 100 + Call wTypeKeys "<Home><Shift Right>" + Sleep 1 + EditCopy + if GetClipboardText <> hopeResultBeforeAutoformat then Warnlog "Should NOT change before autoformat " - wTypeKeys "<Home><Shift Right>" - Sleep 1 - EditCopy - if GetClipboardText <> hopeResultAfterAutoformat then Warnlog "Should change after autoformat " + FormatAutoformatApply + + Call wTypeKeys "<Home><Shift Right>" + Sleep 1 + EditCopy + if GetClipboardText <> hopeResultBeforeAutoformat then Warnlog "Should change after autoformat " Call hCloseDocument Call hNewDocument '/// M:N - testContent = "'" - hopeResultBeforeAutoformat = "'" - hopeResultAfterAutoformat = "'" + testContent = "'" + hopeResultBeforeAutoformat = "'" + hopeResultAfterAutoformat = "'" - Call fAutocorrectOptions("ReplaceQuotes") + Call fAutocorrectOptions("ReplaceQuotes",0,0) - wTypeKeys (testContent + "Hello") - wait 100 - wTypeKeys "<Home><Shift Right>" - Sleep 1 - EditCopy - if GetClipboardText <> hopeResultBeforeAutoformat then Warnlog "Should NOT change before autoformat " + Call wTypeKeys (testContent + "Hello") + wait 100 + Call wTypeKeys "<Home><Shift Right>" + Sleep 1 + EditCopy + if GetClipboardText <> hopeResultBeforeAutoformat then Warnlog "Should NOT change before autoformat " - FormatAutoformatApply + FormatAutoformatApply - wTypeKeys "<Home><Shift Right>" - Sleep 1 - EditCopy - if GetClipboardText <> hopeResultAfterAutoformat then Warnlog "Should NOT change after autoformat " + Call wTypeKeys "<Home><Shift Right>" + Sleep 1 + EditCopy + if GetClipboardText <> hopeResultAfterAutoformat then Warnlog "Should NOT change after autoformat " '/// Recover to the default - Call fAutocorrectOptions("ReplaceQuotes") + Call fAutocorrectOptions("ReplaceQuotes",1,1) - ToolsAutoCorrect - Kontext - Active.Setpage TabTypografisch - Kontext "TabTypografisch" - EinfacheErsetzen.Check - EinfachStandard.Click - wait 100 - TabTypografisch.OK + ToolsAutoCorrect + Kontext + Active.Setpage TabLocalizedOptions + Kontext "TabLocalizedOptions" + SingleQuotesReplace.Check + SingleQuotesDefault.Click + wait 100 + TabLocalizedOptions.OK Call hCloseDocument endcase - diff --git a/testautomation/writer/optional/includes/autocorrection/w_autocorrect2.inc b/testautomation/writer/optional/includes/autocorrection/w_autocorrect2.inc index a84bb87787df..788a0e54900a 100755 --- a/testautomation/writer/optional/includes/autocorrection/w_autocorrect2.inc +++ b/testautomation/writer/optional/includes/autocorrection/w_autocorrect2.inc @@ -29,86 +29,80 @@ '* '* short description : Test AutoCorrect/AutoFormat/Word Completion '* -'************************************************************************ -'* -' #1 tToolsAutocorrectWordCompletion_1 -' #1 tToolsAutocorrectWordCompletion_2 -' #1 tToolsAutocorrectWordCompletion_3 -' #1 tToolsAutocorrectWordCompletion_4 -' #1 tToolsAutocorrectWordCompletion_5 -'* '\*********************************************************************** -sub w_autocorrect_autoformat_2 +sub w_autocorrect2 printLog Chr(13) + "- Test the AutoCorrect/AutoFormat Word Completion features" Call tToolsAutocorrectWordCompletion_1 'Check the default settings Call tToolsAutocorrectWordCompletion_2 'Check entries Call tToolsAutocorrectWordCompletion_3 'Check list of suggestions can be "scrolled" Call tToolsAutocorrectWordCompletion_4 'Test Max entries - Call Ttoolsautocorrectwordcompletion_5 'Check 'When closing a document, save the list for later use in other documents' - + Call tToolsAutocorrectWordCompletion_5 'Check 'When closing a document, save the list for later use in other documents' + Call tToolsAutocorrectWordCompletion_6 + end sub '------------------------------------------------------------------------- testcase tToolsAutocorrectWordCompletion_1 - Dim iAcceptWith as String - Dim iEntriesNumber as Integer - Dim sMinWordLength as String - Dim sMaxEntries as String - Dim sMinMaxEntries as String - - iAcceptWith = 2 - iEntriesNumber = 0 - sMinWordLength = "10" - sMaxEntries = "500" - sMinMaxEntries = "50" - - 'Delete all entries in the list - fDeleteAllEntries() - - printLog "Check the default settings" - '/// Check the default settings - '/// - Check box "Enable word completion" (default: checked) - '/// - Check box "Append Space" (default: unchecked) - '/// - Check box "Show as tip" (default: unchecked) - '/// - Check box "Collect Words" (default: checked) - '/// - Check box "When closing a document, save the list for later use in other documents" (default: checked) - '/// - List box "Accept with" (Default = "Return") - '/// - Spin box "minimal number of characters" default = 10 - '/// - Spin box "Max. entries" (default =500, minimum = 50) - '/// - Box: "List of words collected" -- should be empty after Office restart. - - Call hNewDocument - - ToolsAutocorrect - Active.Setpage TabWortergaenzung - Kontext "TabWortergaenzung" - - if WoerterErgaenzen.IsChecked <> TRUE then Warnlog "Complete words should be checked ." - if AppendSpace.IsChecked = TRUE then Warnlog "Append space should be UNchecked ." - if AlsTipphilfe.IsChecked = TRUE then Warnlog "Show as tip should be UNchecked ." - if VorschlaegeSammeln.IsChecked <> TRUE then Warnlog "Collect suggestions should be checked ." - if KeepList.IsChecked <> TRUE then Warnlog "When closing a document, save the list for later use in other documents should be checked ." - if AnnehmenMit.GetSelIndex <> iAcceptWith then Warnlog "The Accept with should be 'Enter' ." - if MinWortlaenge.GetText <> sMinWordLength then Warnlog "#i40540# Min word length should be " + sMinWordLength - if MaxEintraege.GetText <> sMaxEntries then Warnlog "Max entries should be " + sMaxEntries - if GesammelteWorte.GetItemCount <> iEntriesNumber then Warnlog "Entries number should be " + iEntriesNumber - - MaxEintraege.SetText "49" - - TabWortergaenzung.OK - - ToolsAutocorrect - Active.Setpage TabWortergaenzung - Kontext "TabWortergaenzung" - if MaxEintraege.GetText <> sMinMaxEntries then Warnlog "Max entries should be " + sMinMaxEntries - MaxEintraege.SetText sMaxEntries - TabWortergaenzung.OK - - Call hCloseDocument + Dim iAcceptWith as String + Dim iEntriesNumber as Integer + Dim sMinWordLength as String + Dim sMaxEntries as String + Dim sMinMaxEntries as String + + iAcceptWith = 2 + iEntriesNumber = 0 + sMinWordLength = "10" + sMaxEntries = "500" + sMinMaxEntries = "50" + + printLog "Check the default settings" + '/// Check the default settings + '/// - Check box "Enable word completion" (default: checked) + '/// - Check box "Append Space" (default: unchecked) + '/// - Check box "Show as tip" (default: unchecked) + '/// - Check box "Collect Words" (default: checked) + '/// - Check box "When closing a document, remove the words collected from it from the list" (default: unchecked) + '/// - List box "Accept with" (Default = "Return") + '/// - Spin box "minimal number of characters" default = 10 + '/// - Spin box "Max. entries" (default =500, minimum = 50) + '/// - Box: "List of words collected" -- should be empty after Office restart. + + Call hNewDocument + 'Delete all entries in the list + Call fDeleteAllEntries() + + ToolsAutocorrect + Kontext + Active.Setpage TabWortergaenzung + Kontext "TabWortergaenzung" + + if WoerterErgaenzen.IsChecked = False then Warnlog "Complete words should be checked ." + if AppendSpace.IsChecked = TRUE then Warnlog "Append space should be UNchecked ." + if AlsTipphilfe.IsChecked = TRUE then Warnlog "Show as tip should be UNchecked ." + if VorschlaegeSammeln.IsChecked <> TRUE then Warnlog "Collect suggestions should be checked ." + if KeepList.IsChecked = TRUE then Warnlog "When closing a document, remove the words collected from it from the list should be unchecked ." + if AnnehmenMit.GetSelIndex <> iAcceptWith then Warnlog "The Accept with should be 'Enter' ." + if MinWortlaenge.GetText <> sMinWordLength then Warnlog "Min word length should be " + sMinWordLength + if MaxEintraege.GetText <> sMaxEntries then Warnlog "Max entries should be " + sMaxEntries + if GesammelteWorte.GetItemCount <> iEntriesNumber then Warnlog "Entries number should be " + iEntriesNumber + + MaxEintraege.SetText "49" + + TabWortergaenzung.OK + + ToolsAutocorrect + Kontext + Active.Setpage TabWortergaenzung + Kontext "TabWortergaenzung" + if MaxEintraege.GetText <> sMinMaxEntries then Warnlog "Max entries should be " + sMinMaxEntries + MaxEintraege.SetText sMaxEntries + TabWortergaenzung.OK + + Call hCloseDocument endcase @@ -116,66 +110,68 @@ endcase testcase tToolsAutocorrectWordCompletion_2 - Dim iDefaultEntriesNumber as Integer - Dim iEntriesNumber as Integer - Dim i as Integer - Dim sMinWordLength as String - - iDefaultEntriesNumber = 0 - iEntriesNumber = 3 - sMinWordLength = "5" - - 'Delete all entries in the list - fDeleteAllEntries() - - printLog "Check the default settings" - '/// Check entries - '/// delete all entries first - '/// input some test words - '/// check if some words should are remembered in the entries - '/// delete all entries - '/// close and reopen dialog, check entries again - - Call hNewDocument - - ToolsAutocorrect - Active.Setpage TabWortergaenzung - Kontext "TabWortergaenzung" - if GesammelteWorte.GetItemCount <> iDefaultEntriesNumber then - Warnlog "Entries number should be " + iDefaultEntriesNumber - Warnlog "No test for this case" - TabWortergaenzung.Cancel - Goto NoTest - end if - MinWortlaenge.SetText sMinWordLength - TabWortergaenzung.OK - - Call wTypeKeys "Hello World ! This is a StarOffice Test .<Return>" + Dim iDefaultEntriesNumber as Integer + Dim iEntriesNumber as Integer + Dim i as Integer + Dim sMinWordLength as String + + iDefaultEntriesNumber = 0 + iEntriesNumber = 3 + sMinWordLength = "5" + + printLog "Check the default settings" + '/// Check entries + '/// delete all entries first + '/// input some test words + '/// check if some words should are remembered in the entries + '/// delete all entries + '/// close and reopen dialog, check entries again + + Call hFileOpen ( gTesttoolPath + "writer\optional\input\autocorrection\01.odt" ) + Call sMakeReadOnlyDocumentEditable + 'Delete all entries in the list + Call fDeleteAllEntries() + + ToolsAutocorrect + Kontext + Active.Setpage TabWortergaenzung + Kontext "TabWortergaenzung" + if GesammelteWorte.GetItemCount <> 0 then + Warnlog "Entries number should be " + iDefaultEntriesNumber + Warnlog "No test for this case" + TabWortergaenzung.Cancel + Call hCloseDocument + end if + MinWortlaenge.SetText sMinWordLength + TabWortergaenzung.OK + + Call wTypeKeys "Hello World ! This is a OpenOffice.org Test .<Return>" Sleep 3 ToolsAutocorrect + Kontext Active.Setpage TabWortergaenzung Kontext "TabWortergaenzung" - if GesammelteWorte.GetItemCount <> iEntriesNumber then Warnlog "Entries number should be " + iEntriesNumber - for i = 1 to GesammelteWorte.GetItemCount - GesammelteWorte.Select 1 - if EintragLoeschen.IsEnabled then - EintragLoeschen.Click - else - i = GesammelteWorte.GetItemCount + 1 - end if - next i - TabWortergaenzung.OK - Sleep 1 + if GesammelteWorte.GetItemCount <> 3 then Warnlog "Entries number should be " + iEntriesNumber + for i = 1 to GesammelteWorte.GetItemCount + GesammelteWorte.Select 1 + if EintragLoeschen.IsEnabled then + EintragLoeschen.Click + else + i = GesammelteWorte.GetItemCount + 1 + end if + next i + TabWortergaenzung.OK + Sleep 1 ToolsAutocorrect + Kontext Active.Setpage TabWortergaenzung Kontext "TabWortergaenzung" - if GesammelteWorte.GetItemCount <> iDefaultEntriesNumber then Warnlog "Entries number should be " + iDefaultEntriesNumber + if GesammelteWorte.GetItemCount <> 0 then Warnlog "Entries number should be " + 0 TabWortergaenzung.Cancel -NoTest: - Call hCloseDocument + Call hCloseDocument endcase @@ -183,101 +179,78 @@ endcase testcase tToolsAutocorrectWordCompletion_3 - Dim aTestWord() as String - Dim sPartOfTestWord as String - Dim i as Integer - Dim j as Integer - - aTestWord = Array( _ - "accessibility" , _ - "accomplish" , _ - "account" , _ - ) - j = UBound(aTestWord) + Dim aTestWord() as String + Dim sPartOfTestWord as String + Dim i as Integer + Dim j as integer - sPartOfTestWord = "acc" - - printLog "Check list of suggestions can be 'scrolled'" - '/// Check list of suggestions can be 'scrolled' + aTestWord = Array( "accessibility", "accomplish", "accounting" ) + + sPartOfTestWord = "acc" - '/// input some test words with first 3 letters are same - '/// forward with <CTRL-Tab> - '/// backwards with <SHIFT-CTRL-Tab> - '/// endless loop test + printLog "Check list of suggestions can be 'scrolled'" + '/// Check list of suggestions can be 'scrolled' - 'Delete all entries in the list - fDeleteAllEntries() + '/// input some test words with first 3 letters are same + '/// forward with <CTRL-Tab> + '/// backwards with <SHIFT-CTRL-Tab> + '/// endless loop test - Call hNewDocument + Call hFileOpen ( gTesttoolPath + "writer\optional\input\autocorrection\01.odt" ) + Call sMakeReadOnlyDocumentEditable + 'Delete all entries in the list + Call fDeleteAllEntries() - 'forward with <CTRL-Tab> - For i = 0 to j + 'forward with <CTRL-Tab> + For i = 0 to 2 Call wTypeKeys aTestWord(i) Call wTypeKeys "<Return>" next i Sleep 2 - For i = 0 to j + For i = 0 to 2 Call wTypeKeys sPartOfTestWord - if i > 0 then Call wTypeKeys "<MOD1 TAB>", i Sleep 2 - Call wTypeKeys "<Return>" - Sleep 2 Call wTypeKeys "<Shift Home>" - Sleep 2 EditCopy - Sleep 2 if GetClipboardText <> aTestWord(i) then Warnlog "#102535# Should be " +aTestWord(i) +" but get " +GetClipboardText Call wTypeKeys "<Delete>" next i - 'endless loop test + 'endless loop test Call wTypeKeys sPartOfTestWord - Call wTypeKeys "<MOD1 TAB>", j+1 - Sleep 2 + Call wTypeKeys "<MOD1 TAB>", 3 Call wTypeKeys "<Return>" - Sleep 2 Call wTypeKeys "<Shift Home>" - Sleep 2 EditCopy - Sleep 2 if GetClipboardText <> aTestWord(0) then Warnlog "#102535# Should be " +aTestWord(0) +" but get " +GetClipboardText Call wTypeKeys "<Delete>" - 'backwards with <SHIFT-CTRL-Tab> + 'backwards with <SHIFT-CTRL-Tab> + j = UBound (aTestWord) + For i = j to 0 step -1 Call wTypeKeys sPartOfTestWord - Call wTypeKeys "<MOD1 TAB>", j - if i > 0 then Call wTypeKeys "<Shift MOD1 TAB>", i - - Sleep 2 Call wTypeKeys "<Return>" - Sleep 2 Call wTypeKeys "<Shift Home>" - Sleep 2 EditCopy - Sleep 2 if GetClipboardText <> aTestWord(j-i) then Warnlog "#102535# Should be " +aTestWord(j-i) +" but get " +GetClipboardText Call wTypeKeys "<Delete>" next i - 'endless loop test + 'endless loop test Call wTypeKeys sPartOfTestWord Call wTypeKeys "<Shift MOD1 TAB>" - Sleep 2 Call wTypeKeys "<Return>" - Sleep 2 Call wTypeKeys "<Shift Home>" - Sleep 2 EditCopy - Sleep 2 - if GetClipboardText <> aTestWord(j) then Warnlog "#102535# Should be " +aTestWord(j) +" but get " +GetClipboardText + if GetClipboardText <> "accounting" then Warnlog "#102535# Should be 'accounting' but get " +GetClipboardText - Call hCloseDocument + Call hCloseDocument endcase @@ -285,48 +258,50 @@ endcase testcase tToolsAutocorrectWordCompletion_4 - Dim sDefaultMaxEntries as String - Dim sTestMaxEntries as String - Dim sTestFile as String - Dim iTestMaxEntries as Integer + Dim sDefaultMaxEntries as String + Dim sTestMaxEntries as String + Dim sTestFile as String + Dim iTestMaxEntries as Integer - sDefaultMaxEntries = "500" - sTestMaxEntries = "50" - sTestFile = "tToolsAutocorrectWordCompletion_4.sxw" - iTestMaxEntries = 50 + sDefaultMaxEntries = "500" + sTestMaxEntries = "50" + sTestFile = "tToolsAutocorrectWordCompletion_4.sxw" + iTestMaxEntries = 50 - printLog "Test Max entries" - '/// Test Max entries + printLog "Test Max entries" + '/// Test Max entries - '/// Delete all entries in the list - '/// set Max entries to 50 - '/// Open the test file ( The entries number is > 50 when Max entries is 500) - '/// check the number of entries. + '/// Delete all entries in the list + '/// set Max entries to 50 + '/// Open the test file ( The entries number is > 50 when Max entries is 500) + '/// check the number of entries. - 'Delete all entries in the list - fDeleteAllEntries() - - Call hNewDocument + Call hNewDocument + 'Delete all entries in the list + Call fDeleteAllEntries() ToolsAutocorrect + Kontext Active.Setpage TabWortergaenzung Kontext "TabWortergaenzung" MaxEintraege.SetText sTestMaxEntries TabWortergaenzung.OK Call hFileOpen ( gTesttoolPath + "writer\optional\input\advanced\" + sTestFile ) + Call sMakeReadOnlyDocumentEditable Sleep 4 ToolsAutocorrect + Kontext Active.Setpage TabWortergaenzung Kontext "TabWortergaenzung" if GesammelteWorte.GetItemCount > iTestMaxEntries then Warnlog "Entries number should be less than " + iTestMaxEntries - 'Recover to default - MaxEintraege.SetText sDefaultMaxEntries - TabWortergaenzung.OK + 'Recover to default + MaxEintraege.SetText sDefaultMaxEntries + TabWortergaenzung.OK - Call hCloseDocument + Call hCloseDocument endcase @@ -334,154 +309,166 @@ endcase testcase tToolsAutocorrectWordCompletion_5 - Dim sTestWord1 as String - Dim sTestWord2 as String - Dim sTestWord3 as String - Dim iEntriesNumber_Checked as Integer - Dim iEntriesNumber_UnChecked as Integer - - sTestWord1 = "kilometer " - sTestWord2 = "entertainment " - sTestWord3 = "education " - iEntriesNumber_Checked = 3 - iEntriesNumber_UnChecked = 1 - - printLog "Check 'When closing a document, save the list for later use in other documents'" - '/// Check 'When closing a document, save the list for later use in other documents' - '/// delete all entries first. - '/// 1) check when the checkbox is checked - '/// a) Open a file, type "kilometer" - '/// b) Open 2nd file, type "entertainment" and "education" - '/// c) Close 2nd file, the number of entries in first file should be 3 - '/// 2) check when the checkbox is Unchecked - '/// delete all entries , and Uncheck the testing checkbox - '/// a) Open a file, type "kilometer" - '/// b) Open 2nd file, type "entertainment" and "education" - '/// c) Close 2nd file, the number of entries in first file should be 1 - - 'Test when checkbox is checkec -- default - - 'Open 1st file - Call hNewDocument + Dim sTestWord1 as String + Dim sTestWord2 as String + Dim sTestWord3 as String + Dim iEntriesNumber_Checked as Integer + Dim iEntriesNumber_UnChecked as Integer + + sTestWord1 = "kilometer " + sTestWord2 = "entertainment " + sTestWord3 = "education " + iEntriesNumber_Checked = 3 + iEntriesNumber_UnChecked = 1 + + printLog "Check 'When closing a document, remove the words collected from it from the list'" + '/// Check 'When closing a document, remove the words collected from it from the list' + '/// delete all entries first. + '/// 1) check when the checkbox is unchecked + '/// a) Open a file, type "kilometer" + '/// b) Open 2nd file, type "entertainment" and "education" + '/// c) Close 2nd file, the number of entries in first file should be 3 + '/// 2) check when the checkbox is checked + '/// delete all entries , and Uncheck the testing checkbox + '/// a) Open a file, type "kilometer" + '/// b) Open 2nd file, type "entertainment" and "education" + '/// c) Close 2nd file, the number of entries in first file should be 1 + + 'Test when checkbox is checkec -- default + + 'Open 1st file + Call hFileOpen ( gTesttoolPath + "writer\optional\input\autocorrection\01.odt" ) + Call sMakeReadOnlyDocumentEditable 'Delete all entries in the list - fDeleteAllEntries() + Call fDeleteAllEntries() - Call wTypeKeys sTestWord1 + ' check checkbox + ToolsAutocorrect + Kontext + Active.Setpage TabWortergaenzung + Kontext "TabWortergaenzung" + MinWortlaenge.SetText "5" + KeepList.UnCheck + TabWortergaenzung.Ok + + Call wTypeKeys sTestWord1 'Open 2nd file - Call hNewDocument + Call hFileOpen ( gTesttoolPath + "writer\optional\input\autocorrection\01-01.odt" ) + Call sMakeReadOnlyDocumentEditable - Call wTypeKeys sTestWord2 - Call wTypeKeys sTestWord3 + Call wTypeKeys sTestWord2 + Call wTypeKeys sTestWord3 ToolsAutocorrect + Kontext Active.Setpage TabWortergaenzung Kontext "TabWortergaenzung" - if GesammelteWorte.GetItemCount <> iEntriesNumber_Checked then - Warnlog "Checked:Entries number should be equal " + iEntriesNumber_Checked + " in 2nd file ,but get " +GesammelteWorte.GetItemCount + if GesammelteWorte.GetItemCount <> 3 then + Warnlog "Checked:Entries number should be equal 3 in 2nd file ,but get " + GesammelteWorte.GetItemCount end if TabWortergaenzung.Cancel 'Close 2nd file - Call hCloseDocument + Call hCloseDocument ToolsAutocorrect + Kontext Active.Setpage TabWortergaenzung Kontext "TabWortergaenzung" - if GesammelteWorte.GetItemCount <> iEntriesNumber_Checked then - Warnlog "Checked:Entries number should be equal " + iEntriesNumber_Checked + " in 1st file ,but get " +GesammelteWorte.GetItemCount - end if - TabWortergaenzung.Cancel + if GesammelteWorte.GetItemCount <> 3 then + Warnlog "Checked:Entries number should be equal 3 in 1st file ,but get " + GesammelteWorte.GetItemCount + end if + TabWortergaenzung.Cancel - Call hCloseDocument + Call hCloseDocument - 'Test when checkbox is Unchecked - 'Open 1st file - Call hNewDocument + 'Test when checkbox is Checked + 'Open 1st file + Call hFileOpen ( gTesttoolPath + "writer\optional\input\autocorrection\01.odt" ) + Call sMakeReadOnlyDocumentEditable 'Delete all entries in the list - fDeleteAllEntries() + fDeleteAllEntries() ToolsAutocorrect + Kontext Active.Setpage TabWortergaenzung Kontext "TabWortergaenzung" - KeepList.Uncheck - TabWortergaenzung.OK + KeepList.Check + TabWortergaenzung.OK - Call wTypeKeys sTestWord1 + Call wTypeKeys sTestWord1 'Open 2nd file - Call hNewDocument + Call hFileOpen ( gTesttoolPath + "writer\optional\input\autocorrection\01-01.odt" ) + Call sMakeReadOnlyDocumentEditable - Call wTypeKeys sTestWord2 - Call wTypeKeys sTestWord3 + Call wTypeKeys sTestWord2 + Call wTypeKeys sTestWord3 ToolsAutocorrect + Kontext Active.Setpage TabWortergaenzung Kontext "TabWortergaenzung" - if GesammelteWorte.GetItemCount <> iEntriesNumber_Checked then - Warnlog "UnChecked:Entries number should be equal " + iEntriesNumber_Checked + " in 2nd file ,but get " +GesammelteWorte.GetItemCount + if GesammelteWorte.GetItemCount <> 3 then + Warnlog "UnChecked:Entries number should be equal 3 in 2nd file ,but get " + GesammelteWorte.GetItemCount end if TabWortergaenzung.Cancel 'Close 2nd file - Call hCloseDocument + Call hCloseDocument ToolsAutocorrect + Kontext Active.Setpage TabWortergaenzung Kontext "TabWortergaenzung" - if GesammelteWorte.GetItemCount <> iEntriesNumber_UnChecked then - Warnlog "UnChecked:Entries number should be equal " + iEntriesNumber_UnChecked + " in 2nd file ,but get " +GesammelteWorte.GetItemCount + if GesammelteWorte.GetItemCount <> 1 then + Warnlog "UnChecked:Entries number should be equal 1 in 2nd file ,but get " +GesammelteWorte.GetItemCount end if TabWortergaenzung.Cancel - 'Recover to the default - ToolsAutocorrect - Active.Setpage TabWortergaenzung - Kontext "TabWortergaenzung" - KeepList.Check - TabWortergaenzung.OK - - 'Close 1st file - Call hCloseDocument + 'Close 1st file + Call hCloseDocument endcase '------------------------------------------------------------------------- -testcase tToolsAutocorrectWordCompletion_x +testcase tToolsAutocorrectWordCompletion_6 - Dim sTestWord as String - Dim sPartOfTestWord as String + Dim sTestWord as String + Dim sPartOfTestWord as String - sTestWord = "StarOffice" - sPartOfTestWord = "Sta" + sTestWord = "OpenOffice.org" + sPartOfTestWord = "Ope" - printLog "Check Show as Tip" - '/// Check Show as Tip + printLog "Check Show as Tip" + '/// Check Show as Tip - '/// When uncheck ( default) , the left word will be highlight - '/// When check , the left word will NOT be appeared, <--- can test - '/// and a help tip will appear <--- no way to test yet + '/// When uncheck ( default) , the left word will be highlight + '/// When check , the left word will NOT be appeared, <--- can test + '/// and a help tip will appear <--- no way to test yet - 'Show as Tip -- uncheck (default) - Call hNewDocument + 'Show as Tip -- uncheck (default) + Call hFileOpen ( gTesttoolPath + "writer\optional\input\autocorrection\01.odt" ) + Call sMakeReadOnlyDocumentEditable - Call wTypeKeys sTestWord - Call wTypeKeys "<Return>" - Sleep 1 - Call wTypeKeys sPartOfTestWord - Sleep 4 - Call wTypeKeys "<Return>" - Call wTypeKeys "<Shift Home>" + Call wTypeKeys sTestWord + Call wTypeKeys "<Return>" + Sleep 1 + Call wTypeKeys sPartOfTestWord + Sleep 4 + Call wTypeKeys "<Return>" + Call wTypeKeys "<Shift Home>" - Sleep 1 - Call wTypeKeys "StaS" - Sleep 4 - Call wTypeKeys "<Return>" + Sleep 1 + Call wTypeKeys "StaS" + Sleep 4 + Call wTypeKeys "<Return>" - Call hCloseDocument + Call hCloseDocument endcase diff --git a/testautomation/writer/optional/includes/tools/tools1.inc b/testautomation/writer/optional/includes/tools/tools1.inc index 1fce833ad499..4ce4e436ad05 100755 --- a/testautomation/writer/optional/includes/tools/tools1.inc +++ b/testautomation/writer/optional/includes/tools/tools1.inc @@ -313,7 +313,7 @@ function fToolsAutocorrect(Options as string) case "TabErsetzung" : active.SetPage TabErsetzung case "TabAusnahmen" : active.SetPage TabAusnahmen case "TabOptionenAutokorrektur" : active.SetPage TabOptionenAutokorrektur - case "TabTypografisch" : active.SetPage TabTypografisch + case "TabLocalizedOptions" : active.SetPage TabLocalizedOptions case "TabWortergaenzung" : active.SetPage TabWortergaenzung end Select diff --git a/testautomation/writer/optional/input/autocorrection/01-01.odt b/testautomation/writer/optional/input/autocorrection/01-01.odt Binary files differnew file mode 100644 index 000000000000..584bf749eaa9 --- /dev/null +++ b/testautomation/writer/optional/input/autocorrection/01-01.odt diff --git a/testautomation/writer/optional/input/autocorrection/01.odt b/testautomation/writer/optional/input/autocorrection/01.odt Binary files differnew file mode 100644 index 000000000000..97e76c18a1f1 --- /dev/null +++ b/testautomation/writer/optional/input/autocorrection/01.odt diff --git a/testautomation/writer/optional/w_autocorrection.bas b/testautomation/writer/optional/w_autocorrection.bas new file mode 100644 index 000000000000..a8549293f681 --- /dev/null +++ b/testautomation/writer/optional/w_autocorrection.bas @@ -0,0 +1,78 @@ +'encoding UTF-8 Do not remove or change this line! +'************************************************************************** +'* 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_drawing_tools.bas,v $ +'* +'* $Revision: 1.1 $ +'* +'* last change: $Author: fredrikh $ $Date: 2008-06-18 09:11:25 $ +'* +'* 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 : Tools / Autocorrection test +'* +'\******************************************************************* + +global gSeperator as String +global gMeasurementUnit as String + +sub main + Dim StartZeit + StartZeit = Now() + + use "writer\tools\includes\w_tools.inc" + use "writer\tools\includes\w_tool3.inc" + use "writer\tools\includes\w_tools_autocorrection.inc" + use "writer\optional\includes\autocorrection\w_autocorrect1.inc" + use "writer\optional\includes\autocorrection\w_autocorrect2.inc" + + printlog Chr(13) + "Loading of Include - Files takes: " + Wielange ( StartZeit ) + printlog Chr(13) + "******* Writer - Autocorrection - Test *******" + 'Getting the decimal seperator from global function + gSeperator = GetDecimalSeperator() + 'Setting the measurement unit to centimeters. + gMeasurementUnit = fSetMeasurementToCM() + + Call hStatusIn ( "writer" , "w_autocorrection.bas" ) + + Call w_autocorrect1 + Call w_autocorrect2 + + Call hStatusOut + + Printlog Chr(13) + "End of Autocorrect - Test :" + Printlog "Duration: "+ WieLange ( StartZeit ) + Printlog "Date: " + Date + " Time: " + Time + +end sub + +sub LoadIncludeFiles + use "global\system\includes\master.inc" + use "global\system\includes\gvariabl.inc" + Call GetUseFiles + gApplication = "WRITER" +end sub diff --git a/testautomation/writer/required/includes/w_007_.inc b/testautomation/writer/required/includes/w_007_.inc index 4f214b2c5ac6..a50e9838f0f4 100755 --- a/testautomation/writer/required/includes/w_007_.inc +++ b/testautomation/writer/required/includes/w_007_.inc @@ -482,8 +482,8 @@ testcase tToolsAutocorrectAutoformat Kontext "TabOptionenAutokorrektur" Call DialogTest ( TabOptionenAutokorrektur ) printlog " Step through all options in list" - printlog " Tabpage Options: With entry 11 button 'Edit' should be enabled" - Einstellungen.TypeKeys "<Down>",11 + printlog " Tabpage Options: With entry 10 button 'Edit' should be enabled" + Einstellungen.TypeKeys "<Down>",9 Wait 500 if Bearbeiten.IsEnabled then Bearbeiten.Click @@ -491,11 +491,11 @@ testcase tToolsAutocorrectAutoformat DialogTest (Sonderzeichen) Sonderzeichen.Cancel else - Warnlog "- Button 'Edit' on Entry 11 disabled!" + Warnlog "- Button 'Edit' on Entry 10 disabled!" end if Kontext "TabOptionenAutokorrektur" - printlog " Tabpage Options: With entry 17 button 'Edit' should be enabled" + printlog " Tabpage Options: With entry 16 button 'Edit' should be enabled" Einstellungen.TypeKeys "<Down>",6 Wait 500 if Bearbeiten.IsEnabled then @@ -508,8 +508,8 @@ testcase tToolsAutocorrectAutoformat end if Kontext "TabOptionenAutokorrektur" - printlog " Tabpage Options: With entry 19 button 'Edit' should be enabled" - Einstellungen.TypeKeys "<Down>",2 + printlog " Tabpage Options: With entry 17 button 'Edit' should be enabled" + Einstellungen.TypeKeys "<Down>",1 Wait 500 if Bearbeiten.IsEnabled then Bearbeiten.Click @@ -518,40 +518,40 @@ testcase tToolsAutocorrectAutoformat Zusammenfassen.Cancel Kontext "TabOptionenAutokorrektur" else - Warnlog "- Button 'Edit' on Entry 18 disabled!" + Warnlog "- Button 'Edit' on Entry 17 disabled!" end if Kontext - active.SetPage TabTypografisch - Kontext "TabTypografisch" - EinfachWortAnfang.Click + active.SetPage TabLocalizedOptions + Kontext "TabLocalizedOptions" + SingleQuotesStart.Click Kontext "Sonderzeichen" Call DialogTest ( Sonderzeichen, 1 ) Sonderzeichen.Cancel - Kontext "TabTypografisch" - EinfachWortEnde.Click + Kontext "TabLocalizedOptions" + SingleQuotesEnd.Click Kontext "Sonderzeichen" Call DialogTest ( Sonderzeichen, 2 ) Sonderzeichen.Cancel - Kontext "TabTypografisch" - EinfachStandard.Click + Kontext "TabLocalizedOptions" + SingleQuotesDefault.Click - Kontext "TabTypografisch" - DoppeltWortAnfang.Click + Kontext "TabLocalizedOptions" + DoubleQuotesStart.Click Kontext "Sonderzeichen" Call DialogTest ( Sonderzeichen, 3 ) Sonderzeichen.Cancel - Kontext "TabTypografisch" - DoppeltWortEnde.Click + Kontext "TabLocalizedOptions" + DoubleQuotesEnd.Click Kontext "Sonderzeichen" Call DialogTest ( Sonderzeichen, 4 ) Sonderzeichen.Cancel - Kontext "TabTypografisch" - DoppeltStandard.Click + Kontext "TabLocalizedOptions" + DoubleQuotesDefault.Click Kontext Active.Setpage TabWortergaenzung diff --git a/testautomation/writer/tools/includes/w_tool2.inc b/testautomation/writer/tools/includes/w_tool2.inc index 8af56bba2110..2a9ff8c754e2 100755 --- a/testautomation/writer/tools/includes/w_tool2.inc +++ b/testautomation/writer/tools/includes/w_tool2.inc @@ -58,7 +58,7 @@ sub OptionenAufrufen(Seite as string) case "TabErsetzung" : active.SetPage TabErsetzung case "TabAusnahmen" : active.SetPage TabAusnahmen case "TabOptionen" : active.SetPage TabOptionen - case "TabTypografisch": active.SetPage TabTypografisch + case "TabLocalizedOptions": active.SetPage TabLocalizedOptions end select for i = 1 to 5 Kontext "Active" diff --git a/testautomation/writer/tools/includes/w_tools_autocorrection.inc b/testautomation/writer/tools/includes/w_tools_autocorrection.inc index a2736e3223d1..d1b71d2b27cc 100755 --- a/testautomation/writer/tools/includes/w_tools_autocorrection.inc +++ b/testautomation/writer/tools/includes/w_tools_autocorrection.inc @@ -35,42 +35,62 @@ '* '\*********************************************************************** -function fAutocorrectOptions(Options as String) +function fAutocorrectOptions(Options as String, iModify as integer, iType as integer) '/// Open Tools/Autocorrect/Autoformat diglog with tab page Options '///+ then choose the relevant Options and press 'space bar' + Dim iDown as integer ToolsAutocorrect Kontext Active.Setpage TabOptionenAutokorrektur Kontext "TabOptionenAutokorrektur" - Einstellungen.TypeKeys "<Home>" - Select case Options - case "UseReplacementTable" : wait 500 - case "CorrectTWoINitialCApitals" : Einstellungen.TypeKeys "<Down>" - case "CapitalizeFirstLetter" : Einstellungen.TypeKeys "<Down>",2 - case "AutomaticBoldAndUnderline" : Einstellungen.TypeKeys "<Down>",3 - case "URLRecognition" : Einstellungen.TypeKeys "<Down>",4 - case "Replace1st" : Einstellungen.TypeKeys "<Down>",5 - case "Replace1/2" : Einstellungen.TypeKeys "<Down>",6 - case "ReplaceDashes" : Einstellungen.TypeKeys "<Down>",7 - case "DeleteSpaceParagraph" : Einstellungen.TypeKeys "<Down>",8 - case "DeleteSpaceLine" : Einstellungen.TypeKeys "<Down>",9 - case "IgnoreDoulbeSpaces" : Einstellungen.TypeKeys "<Down>",10 - case "ApplyNumbering" : Einstellungen.TypeKeys "<Down>",11 - case "ApplyBorder" : Einstellungen.TypeKeys "<Down>",12 - case "CreateTable" : Einstellungen.TypeKeys "<Down>",13 - case "ApplyStyles" : Einstellungen.TypeKeys "<Down>",14 - case "RemoveBlankParagraphs" : Einstellungen.TypeKeys "<Down>",15 - case "ReplaceCustomStyles" : Einstellungen.TypeKeys "<Down>",16 - case "ReplaceBullets" : Einstellungen.TypeKeys "<Down>",17 - case "ReplaceQuotes" : Einstellungen.TypeKeys "<Down>",18 - case "CombineSingleLine" : Einstellungen.TypeKeys "<End>" - + case "UseReplacementTable" : iDown = 1 + case "CorrectTWoINitialCApitals" : iDown = 2 + case "CapitalizeFirstLetter" : iDown = 3 + case "AutomaticBoldAndUnderline" : iDown = 4 + case "URLRecognition" : iDown = 5 + case "ReplaceDashes" : iDown = 6 + case "DeleteSpaceParagraph" : iDown = 7 + case "DeleteSpaceLine" : iDown = 8 + case "IgnoreDoubleSpaces" : iDown = 9 + case "ApplyNumbering" : iDown = 10 + case "ApplyBorder" : iDown = 11 + case "CreateTable" : iDown = 12 + case "ApplyStyles" : iDown = 13 + case "RemoveBlankParagraphs" : iDown = 14 + case "ReplaceCustomStyles" : iDown = 15 + case "ReplaceBullets" : iDown = 16 + case "CombineSingleLine" : iDown = 17 end select - Einstellungen.TypeKeys "<SPACE>" + ' *** Set requested state *** + ' ### Modify + Select Case iDown + Case 1,2,3,4,5,6,7,8,14,15,16,17 + if iModify = 1 then + Einstellungen.Check(iDown,2) + else + Einstellungen.UnCheck(iDown,2) + endif + if iDown < 9 then + ' ### Type + if iType = 1 then + Einstellungen.Check(iDown,3) + else + Einstellungen.UnCheck(iDown,3) + endif + endif + Case 9,10,11,12,13 + ' ### Type + if iType = 1 then + Einstellungen.Check(iDown,3) + else + Einstellungen.UnCheck(iDown,3) + endif + end select + wait 100 TabOptionenAutokorrektur.OK end function |