testautomation/writer/tools/includes/w_tools_undo.inc

   1 'encoding UTF-8  Do not remove or change this line!
   2 '**************************************************************************
   3 '* DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER.
   4 '*
   5 '* Copyright 2008 by Sun Microsystems, Inc.
   6 '*
   7 '* OpenOffice.org - a multi-platform office productivity suite
   8 '*
   9 '* $RCSfile: w_tools_undo.inc,v $
  10 '*
  11 '* $Revision: 1.3 $
  12 '*
  13 '* last change: $Author: rt $ $Date: 2008-09-04 09:21:57 $
  14 '*
  15 '* This file is part of OpenOffice.org.
  16 '*
  17 '* OpenOffice.org is free software: you can redistribute it and/or modify
  18 '* it under the terms of the GNU Lesser General Public License version 3
  19 '* only, as published by the Free Software Foundation.
  20 '*
  21 '* OpenOffice.org is distributed in the hope that it will be useful,
  22 '* but WITHOUT ANY WARRANTY; without even the implied warranty of
  23 '* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  24 '* GNU Lesser General Public License version 3 for more details
  25 '* (a copy is included in the LICENSE file that accompanied this code).
  26 '*
  27 '* You should have received a copy of the GNU Lesser General Public License
  28 '* version 3 along with OpenOffice.org.  If not, see
  29 '* <http://www.openoffice.org/license.html>
  30 '* for a copy of the LGPLv3 License.
  31 '*
  32 '/************************************************************************
  33 '*
  34 '* owner : helge.delfs@sun.com
  35 '*
  36 '* short description : Tools for w_undo.bas
  37 '*
  38 '************************************************************************
  39 '*
  40 ' #1 CheckUndoStringInUndoList
  41 '*
  42 '\***********************************************************************
  43
  44 sub CheckUndoStringInUndoList(vType as integer, optional vShould as string)
  45         '/// This function checks the string (localized) in Undo-List
  46         Dim CurrentUndoString(1) as string, vTypeString as string
  47         Dim UndoStringFromUndoList as string
  48
  49         Kontext "StandardBar"
  50         Sleep 1
  51         if Undo.IsEnabled = true then
  52                 Undo.OpenMenu
  53         else
  54                 Warnlog "Unable to read from Undo-Box!"
  55                 exit sub
  56         end if
  57
  58         Sleep 1
  59         Kontext "UndoRedoBox"
  60         UndoStringFromUndoList = UndoRedoList.GetItemText(1)
  61         Select case vType
  62                 ' Typing
  63                 case 1:
  64                         CurrentUndoString() = Split(UndoStringFromUndoList, ":")
  65                         Select Case iSprache
  66                                 Case 01:        vTypeString = "Typing"
  67                                 Case 49:        vTypeString = "EinfÆgen"
  68                                 Case 34:        vTypeString = "Escritura"
  69                                 Case 86:        vTypeString = "键入"
  70                                 Case else: QAErrorlog "Please adapt tests for current language! (" & CurrentUndoString(0) & ")"
  71                         end select
  72                 ' Overwrite
  73                 case 2:
  74                         CurrentUndoString() = Split(UndoStringFromUndoList, ":")
  75                         Select Case iSprache
  76                                 Case 01: vTypeString = "Overwrite"
  77                                 Case 34: vTypeString = "Sobrescribir"
  78                                 Case 86: vTypeString = "覆盖"
  79                                 Case else: QAErrorlog "Please adapt tests for current language! (" & CurrentUndoString(0) & ")"
  80                         end select
  81                 ' Replace
  82                 case 3:
  83                         CurrentUndoString() = Split(UndoStringFromUndoList, ":")
  84                         Select Case iSprache
  85                                 Case 01: vTypeString = "Replace"
  86                                 Case 34: vTypeString = "Reemplazar"
  87                                 Case 86: vTypeString = "替换"
  88                                 Case else: QAErrorlog "Please adapt tests for current language! (" & CurrentUndoString(0) & ")"
  89                         end select
  90                 ' Delete
  91                 case 4:
  92                         Select Case iSprache
  93                                 Case 01: if UndoStringFromUndoList <> "Delete multiple selection" then Warnlog "Wrong text in Undo-List: " & UndoStringFromUndoList
  94                                 Case 34: if UndoStringFromUndoList <> "Eliminar selección múltiple" then Warnlog "Wrong text in Undo-List: " & UndoStringFromUndoList
  95                                 Case 86: if UndoStringFromUndoList <> "删除 多项选择" then Warnlog "Wrong text in Undo-List: " & UndoStringFromUndoList
  96                                 Case else: QAErrorlog "Please adapt tests for current language! (" & CurrentUndoString(0) & ")"
  97                         end select
  98                 ' Replace all
  99                 case 5:
 100                         Select Case vShould
 101                                 case "14 occurences of 'and'"
 102                                         Select Case iSprache
 103                                                 Case 01: if UndoStringFromUndoList <> "Replace: 14 occurrences of 'and'" then Warnlog "Wrong text in Undo-List: " & UndoStringFromUndoList
 104                                                 Case 34: if UndoStringFromUndoList <> "Reemplazar: 6 ocurrencias de 'and'" then Warnlog "Wrong text in Undo-List: " & UndoStringFromUndoList
 105                                                 Case 86: if UndoStringFromUndoList <> "插入自动图文集" then Warnlog "Wrong text in Undo-List: " & UndoStringFromUndoList
 106                                                 Case else: QAErrorlog "Please adapt test for this language: "  & UndoStringFromUndoList
 107                                         end select
 108                         end select
 109                 ' Sort text
 110                 case 6:
 111                         Select Case iSprache
 112                                 Case 01: if UndoStringFromUndoList <> "Sort text" then Warnlog "Wrong text in Undo-List: " & UndoStringFromUndoList
 113                                 Case 34: if UndoStringFromUndoList <> "Ordenar texto" then Warnlog "Wrong text in Undo-List: " & UndoStringFromUndoList
 114                                 Case 86: if UndoStringFromUndoList <> "排序文字" then Warnlog "Wrong text in Undo-List: " & UndoStringFromUndoList
 115                                 Case else: QAErrorlog "Please adapt test for this language: " & UndoStringFromUndoList
 116                         end select
 117                 ' Convert text -> table
 118                 case 7:
 119                         Select Case iSprache
 120                                 Case 01: if UndoStringFromUndoList <> "Convert text -> table" then Warnlog "Wrong text in Undo-List: " & UndoStringFromUndoList
 121                                 Case 34: if UndoStringFromUndoList <> "Convertir texto en tabla" then Warnlog "Wrong text in Undo-List: " & UndoStringFromUndoList
 122                                 Case 86: if UndoStringFromUndoList <> "文字转换成表格" then Warnlog "Wrong text in Undo-List: " & UndoStringFromUndoList
 123                                 Case else: QAErrorlog "Please adapt test for this language: "  & UndoStringFromUndoList
 124                         end select
 125
 126                 'Paragraph
 127                 case 8:
 128                         Select Case vShould
 129                                 Case "New Paragraph"
 130                                         Select Case iSprache
 131                                                 Case 01: if UndoStringFromUndoList <> "New Paragraph" then Warnlog "Wrong text in Undo-List: " & UndoStringFromUndoList
 132                                                 Case 34: if UndoStringFromUndoList <> "Párrafo nuevo" then Warnlog "Wrong text in Undo-List: " & UndoStringFromUndoList
 133                                                 Case 86: if UndoStringFromUndoList <> "新建段落" then Warnlog "Wrong text in Undo-List: " & UndoStringFromUndoList
 134                                                 Case else: QAErrorlog "Please adapt test for this language: "  & UndoStringFromUndoList
 135                                         end select
 136
 137                                 Case "Delete Paragraph"
 138                                         Select Case iSprache
 139                                                 Case 01: if UndoStringFromUndoList <> "Delete paragraph" then Warnlog "Wrong text in Undo-List: " & UndoStringFromUndoList
 140                                                 Case 34: if UndoStringFromUndoList <> "Eliminar Párrafo" then Warnlog "Wrong text in Undo-List: " & UndoStringFromUndoList
 141                                                 Case 86: if UndoStringFromUndoList <> "删除 段落" then Warnlog "Wrong text in Undo-List: " & UndoStringFromUndoList
 142                                                 Case else: QAErrorlog "Please adapt test for this language: "  & UndoStringFromUndoList
 143                                         end select
 144                         end select
 145
 146                 'Copy / Paste
 147                 case 9:
 148                         Select Case iSprache
 149                                 Case 01: if UndoStringFromUndoList <> "Paste clipboard" then Warnlog "Wrong text in Undo-List: " & UndoStringFromUndoList
 150                                 Case 34: if UndoStringFromUndoList <> "Pegar del portapapeles" then Warnlog "Wrong text in Undo-List: " & UndoStringFromUndoList
 151                                 Case 86: if UndoStringFromUndoList <> "粘贴剪贴板" then Warnlog "Wrong text in Undo-List: " & UndoStringFromUndoList
 152                                 Case else: QAErrorlog "Please adapt test for this language: "  & UndoStringFromUndoList
 153                         end select
 154
 155                 case 10:
 156                         Select Case vShould
 157                                 Case "Accept"
 158                                         Select Case iSprache
 159                                                 Case 01: if UndoStringFromUndoList <> "Accept change: Insert 'This is a test'" then Warnlog "Wrong text in Undo-List: " & UndoStringFromUndoList
 160                                                 Case 34: if UndoStringFromUndoList <> "Aplicar cambio: Insertar 'This is a test'" then Warnlog "Wrong text in Undo-List: " & UndoStringFromUndoList
 161                                                 Case 86: if UndoStringFromUndoList <> "接受修改：插入 'This is a test'" then Warnlog "Wrong text in Undo-List: " & UndoStringFromUndoList
 162                                                 Case else: QAErrorlog "Please adapt test for this language: "  & UndoStringFromUndoList
 163                                         end select
 164
 165                                 Case "Reject"
 166                                         Select Case iSprache
 167                                                 Case 01: if UndoStringFromUndoList <> "Reject change: Insert 'This is a test'" then
 168                                                          elseif UndoStringFromUndoList = "Reject change: $1" then
 169                                                              QaErrorlog "#i94489# - Bug with Undo - Reject."
 170                                                          else
 171                                                              Warnlog "Wrong text in Undo-List: " & UndoStringFromUndoList
 172                                                          end if
 173                                                 Case 34: if UndoStringFromUndoList = "Rechazar cambio: $1" then
 174                                                              QaErrorlog "#i94489# - Bug with Undo - Reject."
 175                                                          else
 176                                                              Warnlog "Tell script-writer issue i94489 seems to be fixed, or that a string has to be set to: " & UndoStringFromUndoList
 177                                                          end if
 178                                                 Case 86: if UndoStringFromUndoList = "拒绝修改：$1" then
 179                                                              QaErrorlog "#i94489# - Bug with Undo - Reject."
 180                                                          else
 181                                                              Warnlog "Tell script-writer issue i94489 seems to be fixed, or that a string has to be set to: " & UndoStringFromUndoList
 182                                                          end if
 183                                                 Case else: QAErrorlog "Please adapt test for this language: "  & UndoStringFromUndoList
 184                                         end select
 185
 186                                 Case "InsertLineBreak"
 187                                         Select Case iSprache
 188                                                 Case 01: if UndoStringFromUndoList <> "Typing: 1 line break(s)" then Warnlog "Wrong text in Undo-List: " & UndoStringFromUndoList
 189                                                 Case 34: if UndoStringFromUndoList <> "Escritura: 1 salto(s) de línea" then Warnlog "Wrong text in Undo-List: " & UndoStringFromUndoList
 190                                                 Case 86: if UndoStringFromUndoList <> "键入: 1 换行符" then Warnlog "Wrong text in Undo-List: " & UndoStringFromUndoList
 191                                                 Case else: QAErrorlog "Please adapt test for this language: "  & UndoStringFromUndoList
 192                                         end select
 193
 194                                 Case "DeleteLineBreak"
 195                                         Select Case iSprache
 196                                                 Case 01: if UndoStringFromUndoList <> "Delete 1 line break(s)" then Warnlog "Wrong text in Undo-List: " & UndoStringFromUndoList
 197                                                 Case 34: if UndoStringFromUndoList <> "Eliminar 1 salto(s) de línea" then Warnlog "Wrong text in Undo-List: " & UndoStringFromUndoList
 198                                                 Case 86: if UndoStringFromUndoList <> "删除 1 换行符" then Warnlog "Wrong text in Undo-List: " & UndoStringFromUndoList
 199                                                 Case else: QAErrorlog "Please adapt test for this language: "  & UndoStringFromUndoList
 200                                         end select
 201
 202                                 Case "InsertColumnBreak"
 203                                         Select Case iSprache
 204                                                 Case 01: if UndoStringFromUndoList <> "Insert column break" then Warnlog "Wrong text in Undo-List: " & UndoStringFromUndoList
 205                                                 Case 34: if UndoStringFromUndoList <> "Insertar salto de columna" then Warnlog "Wrong text in Undo-List: " & UndoStringFromUndoList
 206                                                 Case 86: if UndoStringFromUndoList <> "插入分栏符" then Warnlog "Wrong text in Undo-List: " & UndoStringFromUndoList
 207                                                 Case else: QAErrorlog "Please adapt test for this language: "  & UndoStringFromUndoList
 208                                         end select
 209
 210                                 Case "DeleteColumnBreak"
 211                                         Select Case iSprache
 212                                                 Case 01: if UndoStringFromUndoList <> "Delete paragraph" then Warnlog "Wrong text in Undo-List: " & UndoStringFromUndoList
 213                                                 Case 34: if UndoStringFromUndoList <> "Eliminar Párrafo" then Warnlog "Wrong text in Undo-List: " & UndoStringFromUndoList
 214                                                 Case 86: if UndoStringFromUndoList <> "删除 段落" then Warnlog "Wrong text in Undo-List: " & UndoStringFromUndoList
 215                                                 Case else: QAErrorlog "Please adapt test for this language: "  & UndoStringFromUndoList
 216                                         end select
 217
 218                                 Case "InsertPageBreak"
 219                                         Select Case iSprache
 220                                                 Case 01: if UndoStringFromUndoList <> "Insert page break" then Warnlog "Wrong text in Undo-List: " & UndoStringFromUndoList
 221                                                 Case 34: if UndoStringFromUndoList <> "Insertar salto de página" then Warnlog "Wrong text in Undo-List: " & UndoStringFromUndoList
 222                                                 Case 86: if UndoStringFromUndoList <> "插入分页符" then Warnlog "Wrong text in Undo-List: " & UndoStringFromUndoList
 223                                                 Case else: QAErrorlog "Please adapt test for this language: "  & UndoStringFromUndoList
 224                                         end select
 225
 226                                 Case "DeletePageBreak"
 227                                         Select Case iSprache
 228                                                 Case 01: if UndoStringFromUndoList <> "Delete paragraph" then Warnlog "Wrong text in Undo-List: " & UndoStringFromUndoList
 229                                                 Case 34: if UndoStringFromUndoList <> "Eliminar Párrafo" then Warnlog "Wrong text in Undo-List: " & UndoStringFromUndoList
 230                                                 Case 86: if UndoStringFromUndoList <> "删除 段落" then Warnlog "Wrong text in Undo-List: " & UndoStringFromUndoList
 231                                                 Case else: QAErrorlog "Please adapt test for this language: "  & UndoStringFromUndoList
 232                                         end select
 233
 234                                 Case "InsertField"
 235                                         Select Case iSprache
 236                                                 Case 01: if UndoStringFromUndoList <> "Insert field" then Warnlog "Wrong text in Undo-List: " & UndoStringFromUndoList
 237                                                 Case 34: if UndoStringFromUndoList <> "Insertar campo" then Warnlog "Wrong text in Undo-List: " & UndoStringFromUndoList
 238                                                 Case 86: if UndoStringFromUndoList <> "插入 字段" then Warnlog "Wrong text in Undo-List: " & UndoStringFromUndoList
 239                                                 Case else: QAErrorlog "Please adapt test for this language: "  & UndoStringFromUndoList
 240                                         end select
 241
 242                                 Case "ChangedField"
 243                                         Select Case iSprache
 244                                                 Case 01: if UndoStringFromUndoList <> "Field changed" then Warnlog "Wrong text in Undo-List: " & UndoStringFromUndoList
 245                                                 Case 34: if UndoStringFromUndoList <> "Cambio modificado" then Warnlog "Wrong text in Undo-List: " & UndoStringFromUndoList
 246                                                 Case 86: if UndoStringFromUndoList <> "字段已经被修改" then Warnlog "Wrong text in Undo-List: " & UndoStringFromUndoList
 247                                                 Case else: QAErrorlog "Please adapt test for this language: "  & UndoStringFromUndoList
 248                                         end select
 249
 250                                 Case "DeleteField"
 251                                         Select Case iSprache
 252                                                 Case 01: if UndoStringFromUndoList <> "Delete field" then Warnlog "Wrong text in Undo-List: " & UndoStringFromUndoList
 253                                                 Case 34: if UndoStringFromUndoList <> "Eliminar campo" then Warnlog "Wrong text in Undo-List: " & UndoStringFromUndoList
 254                                                 Case 86: if UndoStringFromUndoList <> "删除 字段" then Warnlog "Wrong text in Undo-List: " & UndoStringFromUndoList
 255                                                 Case else: QAErrorlog "Please adapt test for this language: "  & UndoStringFromUndoList
 256                                         end select
 257
 258                                 Case "InsertSpecialCharacter"
 259                                         Select Case iSprache
 260                                                 Case 01: if UndoStringFromUndoList <> "Insert special character" then Warnlog "Wrong text in Undo-List: " & UndoStringFromUndoList
 261                                                 Case 34: if UndoStringFromUndoList <> "Insertar carácter especial" then Warnlog "Wrong text in Undo-List: " & UndoStringFromUndoList
 262                                                 Case 86: if UndoStringFromUndoList <> "插入 特殊字符" then Warnlog "Wrong text in Undo-List: " & UndoStringFromUndoList
 263                                                 Case else: QAErrorlog "Please adapt test for this language: "  & UndoStringFromUndoList
 264                                         end select
 265
 266                                 Case "DeleteSpecialCharacter"
 267                                         Select Case iSprache
 268                                                 Case 01: if UndoStringFromUndoList <> "Delete '#'" then Warnlog "Wrong text in Undo-List: " & UndoStringFromUndoList
 269                                                 Case 34: if UndoStringFromUndoList <> "Eliminar '#'" then Warnlog "Wrong text in Undo-List: " & UndoStringFromUndoList
 270                                                 Case 86: if UndoStringFromUndoList <> "删除 '#'" then Warnlog "Wrong text in Undo-List: " & UndoStringFromUndoList
 271                                                 Case else: QAErrorlog "Please adapt test for this language: "  & UndoStringFromUndoList
 272                                         end select
 273
 274                                 Case "ApplyStyles"
 275                                         Select Case iSprache
 276                                                 Case 01: if UndoStringFromUndoList <> "Apply Styles: AUndoHistory" then Warnlog "Wrong text in Undo-List: " & UndoStringFromUndoList
 277                                                 Case 34: if UndoStringFromUndoList <> "Aplicar estilos: AUndoHistory" then Warnlog "Wrong text in Undo-List: " & UndoStringFromUndoList
 278                                                 Case 86: if UndoStringFromUndoList <> "应用样式: AUndoHistory" then Warnlog "Wrong text in Undo-List: " & UndoStringFromUndoList
 279                                                 Case else: QAErrorlog "Please adapt test for this language: "  & UndoStringFromUndoList
 280                                         end select
 281
 282                                 Case "ChangeStyles"
 283                                         Select Case iSprache
 284                                                 Case 01: if UndoStringFromUndoList <> "Change style: AUndoHistory" then Warnlog "Wrong text in Undo-List: " & UndoStringFromUndoList
 285                                                 Case 34: if UndoStringFromUndoList <> "Cambiar estilo: AUndoHistory" then Warnlog "Wrong text in Undo-List: " & UndoStringFromUndoList
 286                                                 Case 86: if UndoStringFromUndoList <> "修改样式：AUndoHistory" then Warnlog "Wrong text in Undo-List: " & UndoStringFromUndoList
 287                                                 Case else: QAErrorlog "Please adapt test for this language: "  & UndoStringFromUndoList
 288                                         end select
 289
 290                                 Case "DemoteOutline"
 291                                         Select Case iSprache
 292                                                 Case 01: if UndoStringFromUndoList <> "Promote/demote outline" then Warnlog "Wrong text in Undo-List: " & UndoStringFromUndoList
 293                                                 Case 34: if UndoStringFromUndoList <> "Aumentar/Disminuir nivel" then Warnlog "Wrong text in Undo-List: " & UndoStringFromUndoList
 294                                                 Case 86: if UndoStringFromUndoList <> "升级/降级外框" then Warnlog "Wrong text in Undo-List: " & UndoStringFromUndoList
 295                                                 Case else: QAErrorlog "Please adapt test for this language: "  & UndoStringFromUndoList
 296                                         end select
 297
 298                                 Case "PromoteOutline"
 299                                         Select Case iSprache
 300                                                 Case 01: if UndoStringFromUndoList <> "Promote/demote outline" then Warnlog "Wrong text in Undo-List: " & UndoStringFromUndoList
 301                                                 Case 34: if UndoStringFromUndoList <> "Aumentar/Disminuir nivel" then Warnlog "Wrong text in Undo-List: " & UndoStringFromUndoList
 302                                                 Case 86: if UndoStringFromUndoList <> "升级/降级外框" then Warnlog "Wrong text in Undo-List: " & UndoStringFromUndoList
 303                                                 Case else: QAErrorlog "Please adapt test for this language: "  & UndoStringFromUndoList
 304                                         end select
 305
 306                                 Case "InsertSection"
 307                                         Select Case iSprache
 308                                                 Case 01: if UndoStringFromUndoList <> "Insert section" then Warnlog "Wrong text in Undo-List: " & UndoStringFromUndoList
 309                                                 Case 34: if UndoStringFromUndoList <> "Insertar área" then Warnlog "Wrong text in Undo-List: " & UndoStringFromUndoList
 310                                                 Case 86: if UndoStringFromUndoList <> "插入区域" then Warnlog "Wrong text in Undo-List: " & UndoStringFromUndoList
 311                                                 Case else: QAErrorlog "Please adapt test for this language: "  & UndoStringFromUndoList
 312                                         end select
 313
 314                                 Case "ModifySection"
 315                                         Select Case iSprache
 316                                                 Case 01: if UndoStringFromUndoList <> "Modify section" then Warnlog "Wrong text in Undo-List: " & UndoStringFromUndoList
 317                                                 Case 34: if UndoStringFromUndoList <> "Modificar área" then Warnlog "Wrong text in Undo-List: " & UndoStringFromUndoList
 318                                                 Case 86: if UndoStringFromUndoList <> "修改区域" then Warnlog "Wrong text in Undo-List: " & UndoStringFromUndoList
 319                                                 Case else: QAErrorlog "Please adapt test for this language: "  & UndoStringFromUndoList
 320                                         end select
 321
 322                                 Case "DeleteSection"
 323                                         Select Case iSprache
 324                                                 Case 01: if UndoStringFromUndoList <> "Delete section" then Warnlog "Wrong text in Undo-List: " & UndoStringFromUndoList
 325                                                 Case 34: if UndoStringFromUndoList <> "Eliminar área" then Warnlog "Wrong text in Undo-List: " & UndoStringFromUndoList
 326                                                 Case 86: if UndoStringFromUndoList <> "删除区域" then Warnlog "Wrong text in Undo-List: " & UndoStringFromUndoList
 327                                                 Case else: QAErrorlog "Please adapt test for this language: "  & UndoStringFromUndoList
 328                                         end select
 329
 330                                 Case "InsertHyperlink"
 331                                         Select Case iSprache
 332                                                 Case 01: if UndoStringFromUndoList <> "Insert Hyperlink" then Warnlog "Wrong text in Undo-List: " & UndoStringFromUndoList
 333                                                 Case 34: if UndoStringFromUndoList <> "Insertar hiperenlace" then Warnlog "Wrong text in Undo-List: " & UndoStringFromUndoList
 334                                                 Case 86: if UndoStringFromUndoList <> "插入超链接" then Warnlog "Wrong text in Undo-List: " & UndoStringFromUndoList
 335                                                 Case else: QAErrorlog "Please adapt test for this language: "  & UndoStringFromUndoList
 336                                         end select
 337
 338                                 Case "InsertHyperlinkButton"
 339                                         Select Case iSprache
 340                                                 Case 01: if UndoStringFromUndoList <> "insert URL button" then Warnlog "Wrong text in Undo-List: " & UndoStringFromUndoList
 341                                                 Case 34: if UndoStringFromUndoList <> "Insertar botón URL" then Warnlog "Wrong text in Undo-List: " & UndoStringFromUndoList
 342                                                 Case 86: if UndoStringFromUndoList <> "插入 URL 按钮" then Warnlog "Wrong text in Undo-List: " & UndoStringFromUndoList
 343                                                 Case else: QAErrorlog "Please adapt test for this language: "  & UndoStringFromUndoList
 344                                         end select
 345
 346                                 Case "HeaderFooter"
 347                                         Select Case iSprache
 348                                                 Case 01: if UndoStringFromUndoList <> "Header/footer changes" then Warnlog "Wrong text in Undo-List: " & UndoStringFromUndoList
 349
 350                                                 Case else: QAErrorlog "Please adapt test for this language: "  & UndoStringFromUndoList
 351                                         end select
 352
 353                                 Case "InsertFootnote"
 354                                         Select Case iSprache
 355                                                 Case 01: if UndoStringFromUndoList <> "Insert footnote" then Warnlog "Wrong text in Undo-List: " & UndoStringFromUndoList
 356                                                 Case 34: if UndoStringFromUndoList <> "Insertar nota al pie" then Warnlog "Wrong text in Undo-List: " & UndoStringFromUndoList
 357                                                 Case 86: if UndoStringFromUndoList <> "插入脚注" then Warnlog "Wrong text in Undo-List: " & UndoStringFromUndoList
 358                                                 Case else: QAErrorlog "Please adapt test for this language: "  & UndoStringFromUndoList
 359                                         end select
 360
 361                                 Case "ModifyFootnote"
 362                                         Select Case iSprache
 363                                                 Case 01: if UndoStringFromUndoList <> "Modify footnote options" then Warnlog "Wrong text in Undo-List: " & UndoStringFromUndoList
 364                                                 Case 34: if UndoStringFromUndoList <> "Modificar opciones de nota al pie" then Warnlog "Wrong text in Undo-List: " & UndoStringFromUndoList
 365                                                 Case 86: if UndoStringFromUndoList <> "修改脚注设置" then Warnlog "Wrong text in Undo-List: " & UndoStringFromUndoList
 366                                                 Case else: QAErrorlog "Please adapt test for this language: "  & UndoStringFromUndoList
 367                                         end select
 368
 369                                 Case "DeleteFootnote"
 370                                         Select Case iSprache
 371                                                 Case 01: if UndoStringFromUndoList <> "Delete footnote" then Warnlog "Wrong text in Undo-List: " & UndoStringFromUndoList
 372                                                 Case 34: if UndoStringFromUndoList <> "Eliminar nota al pie" then Warnlog "Wrong text in Undo-List: " & UndoStringFromUndoList
 373                                                 Case 86: if UndoStringFromUndoList <> "删除 脚注" then Warnlog "Wrong text in Undo-List: " & UndoStringFromUndoList
 374                                                 Case else: QAErrorlog "Please adapt test for this language: "  & UndoStringFromUndoList
 375                                         end select
 376
 377                                 Case "InsertCaption"
 378                                         Select Case iSprache
 379                                                 Case 01: if UndoStringFromUndoList <> "Insert caption: 'This capt...aracters'" then Warnlog "Wrong text in Undo-List: " & UndoStringFromUndoList
 380                                                 Case 34: if UndoStringFromUndoList <> "Insertar título: 'This capt...aracters'" then Warnlog "Wrong text in Undo-List: " & UndoStringFromUndoList
 381                                                 Case 86: if UndoStringFromUndoList <> "插入标题: 'This capt...aracters'" then Warnlog "Wrong text in Undo-List: " & UndoStringFromUndoList
 382                                                 Case else: QAErrorlog "Please adapt test for this language: "  & UndoStringFromUndoList
 383                                         end select
 384
 385                                 Case "InsertAutotext"
 386                                         Select Case iSprache
 387                                                 Case 01: if UndoStringFromUndoList <> "Insert AutoText" then Warnlog "Wrong text in Undo-List: " & UndoStringFromUndoList
 388                                                 Case 34: if UndoStringFromUndoList <> "Insertar AutoTexto" then Warnlog "Wrong text in Undo-List: " & UndoStringFromUndoList
 389                                                 Case 86: if UndoStringFromUndoList <> "插入自动图文集" then Warnlog "Wrong text in Undo-List: " & UndoStringFromUndoList
 390                                                 Case else: QAErrorlog "Please adapt test for this language: "  & UndoStringFromUndoList
 391                                         end select
 392
 393                                 Case "InsertBookmark"
 394                                         Select Case iSprache
 395                                                 Case 01: if UndoStringFromUndoList <> "Insert bookmark: I'm a bookmark" then Warnlog "Wrong text in Undo-List: " & UndoStringFromUndoList
 396                                                 Case 34: if UndoStringFromUndoList <> "Insertar marcador: I'm a bookmark" then Warnlog "Wrong text in Undo-List: " & UndoStringFromUndoList
 397                                                 Case 86: if UndoStringFromUndoList <> "插入书签: I'm a bookmark" then Warnlog "Wrong text in Undo-List: " & UndoStringFromUndoList
 398                                                 Case else: QAErrorlog "Please adapt test for this language: "  & UndoStringFromUndoList
 399                                         end select
 400
 401                                 Case "RenameBookmark"
 402                                         Select Case iSprache
 403                                                 Case 01: if UndoStringFromUndoList <> "Rename bookmark: 'I'm a bookmark' -> 'a book'" then Warnlog "Wrong text in Undo-List: " & UndoStringFromUndoList & " -> #i33498"
 404                                                 Case 34: if UndoStringFromUndoList <> "marcador renombrado: 'I'm a bookmark' -> 'a book'" then Warnlog "Wrong text in Undo-List: " & UndoStringFromUndoList & " -> #i33498"
 405                                                 Case 86: if UndoStringFromUndoList <> "重命名书签: 'I'm a bookmark' -> 'a book'" then Warnlog "Wrong text in Undo-List: " & UndoStringFromUndoList & " -> #i33498"
 406                                                 Case else: QAErrorlog "Please adapt test for this language: "  & UndoStringFromUndoList
 407                                         end select
 408
 409                                 Case "DeleteBookmark"
 410                                         Select Case iSprache
 411                                                 Case 01: if UndoStringFromUndoList <> "Delete bookmark: a book" then Warnlog "Wrong text in Undo-List: " & UndoStringFromUndoList
 412                                                 Case 34: if UndoStringFromUndoList <> "Borrar marcador: a book" then Warnlog "Wrong text in Undo-List: " & UndoStringFromUndoList
 413                                                 Case 86: if UndoStringFromUndoList <> "删除书签: a book" then Warnlog "Wrong text in Undo-List: " & UndoStringFromUndoList
 414                                                 Case else: QAErrorlog "Please adapt test for this language: "  & UndoStringFromUndoList
 415                                         end select
 416
 417                                 Case "InsertNote"
 418                                         Select Case iSprache
 419                                                 Case 01: if UndoStringFromUndoList <> "Insert note" then Warnlog "Wrong text in Undo-List: " & UndoStringFromUndoList
 420                                                 Case 34: if UndoStringFromUndoList <> "Insertar nota" then Warnlog "Wrong text in Undo-List: " & UndoStringFromUndoList
 421                                                 Case 86: if UndoStringFromUndoList <> "插入 批注" then Warnlog "Wrong text in Undo-List: " & UndoStringFromUndoList
 422                                                 Case else: QAErrorlog "Please adapt test for this language: "  & UndoStringFromUndoList
 423                                         end select
 424
 425                                 Case "DeleteNote"
 426                                         Select Case iSprache
 427                                                 Case 01: if UndoStringFromUndoList <> "Delete note" then Warnlog "Wrong text in Undo-List: " & UndoStringFromUndoList
 428                                                 Case 34: if UndoStringFromUndoList <> "Eliminar nota" then Warnlog "Wrong text in Undo-List: " & UndoStringFromUndoList
 429                                                 Case 86: if UndoStringFromUndoList <> "删除 批注" then Warnlog "Wrong text in Undo-List: " & UndoStringFromUndoList
 430                                                 Case else: QAErrorlog "Please adapt test for this language: "  & UndoStringFromUndoList
 431                                         end select
 432
 433                                 Case "InsertScript"
 434                                         Select Case iSprache
 435                                                 Case 01: if UndoStringFromUndoList <> "Insert script" then Warnlog "Wrong text in Undo-List: " & UndoStringFromUndoList
 436                                                 Case 34: if UndoStringFromUndoList <> "Insertar secuencia de comandos" then Warnlog "Wrong text in Undo-List: " & UndoStringFromUndoList
 437                                                 Case 86: if UndoStringFromUndoList <> "插入 脚本" then Warnlog "Wrong text in Undo-List: " & UndoStringFromUndoList
 438                                                 Case else: QAErrorlog "Please adapt test for this language: "  & UndoStringFromUndoList
 439                                         end select
 440
 441                                 Case "DeleteScript"
 442                                         Select Case iSprache
 443                                                 Case 01: if UndoStringFromUndoList <> "Delete script" then Warnlog "Wrong text in Undo-List: " & UndoStringFromUndoList
 444                                                 Case 34: if UndoStringFromUndoList <> "Eliminar secuencia de comandos" then Warnlog "Wrong text in Undo-List: " & UndoStringFromUndoList
 445                                                 Case 86: if UndoStringFromUndoList <> "删除 脚本" then Warnlog "Wrong text in Undo-List: " & UndoStringFromUndoList
 446                                                 Case else: QAErrorlog "Please adapt test for this language: "  & UndoStringFromUndoList
 447                                         end select
 448
 449                                 Case "InsertIndexEntry"
 450                                         Select Case iSprache
 451                                                 Case 01: if UndoStringFromUndoList <> "Insert index entry" then Warnlog "Wrong text in Undo-List: " & UndoStringFromUndoList
 452                                                 Case 34: if UndoStringFromUndoList <> "Insertar entrada de índice" then Warnlog "Wrong text in Undo-List: " & UndoStringFromUndoList
 453                                                 Case 86: if UndoStringFromUndoList <> "插入索引条目" then Warnlog "Wrong text in Undo-List: " & UndoStringFromUndoList
 454                                                 Case else: QAErrorlog "Please adapt test for this language: "  & UndoStringFromUndoList
 455                                         end select
 456
 457                                 Case "DeleteIndexEntry"
 458                                         Select Case iSprache
 459                                                 Case 01: if UndoStringFromUndoList <> "Delete 'IndexEntry'" then Warnlog "Wrong text in Undo-List: " & UndoStringFromUndoList
 460                                                 Case 34: if UndoStringFromUndoList <> "Eliminar 'IndexEntry'" then Warnlog "Wrong text in Undo-List: " & UndoStringFromUndoList
 461                                                 Case 86: if UndoStringFromUndoList <> "删除 'IndexEntry'" then Warnlog "Wrong text in Undo-List: " & UndoStringFromUndoList
 462                                                 Case else: QAErrorlog "Please adapt test for this language: "  & UndoStringFromUndoList
 463                                         end select
 464
 465                                 Case "InsertBibliographyEntry"
 466                                         Select Case iSprache
 467                                                 Case 01: if UndoStringFromUndoList <> "Insert bibliography entry" then Warnlog "Wrong text in Undo-List: " & UndoStringFromUndoList
 468                                                 Case 34: if UndoStringFromUndoList <> "Insertar entrada de bibliografía" then Warnlog "Wrong text in Undo-List: " & UndoStringFromUndoList
 469                                                 Case 86: if UndoStringFromUndoList <> "插入 文献目录条目" then Warnlog "Wrong text in Undo-List: " & UndoStringFromUndoList
 470                                                 Case else: QAErrorlog "Please adapt test for this language: "  & UndoStringFromUndoList
 471                                         end select
 472
 473                                 Case "DeleteBibliographyEntry"
 474                                         Select Case iSprache
 475                                                 Case 01: if UndoStringFromUndoList <> "Delete bibliography entry" then Warnlog "Wrong text in Undo-List: " & UndoStringFromUndoList
 476                                                 Case 34: if UndoStringFromUndoList <> "Eliminar entrada de bibliografía" then Warnlog "Wrong text in Undo-List: " & UndoStringFromUndoList
 477                                                 Case 86: if UndoStringFromUndoList <> "删除 文献目录条目" then Warnlog "Wrong text in Undo-List: " & UndoStringFromUndoList
 478                                                 Case else: QAErrorlog "Please adapt test for this language: "  & UndoStringFromUndoList
 479                                         end select
 480
 481                                 Case "InsertFrame"
 482                                         Select Case iSprache
 483                                                 Case 01: if UndoStringFromUndoList <> "Insert frame" then Warnlog "Wrong text in Undo-List: " & UndoStringFromUndoList
 484                                                 Case 34: if UndoStringFromUndoList <> "Insertar marco" then Warnlog "Wrong text in Undo-List: " & UndoStringFromUndoList
 485                                                 Case 86: if UndoStringFromUndoList <> "插入 框架" then Warnlog "Wrong text in Undo-List: " & UndoStringFromUndoList
 486                                                 Case else: QAErrorlog "Please adapt test for this language: "  & UndoStringFromUndoList
 487                                         end select
 488
 489                                 Case "RenameFrame"
 490                                         Select Case iSprache
 491                                                 Case 01: if UndoStringFromUndoList <> "Rename frame: 'MyFrame' -> 'MyRenamedFrame'" then QaErrorLog "#i94486# - Wrong text in Undo-List: " & UndoStringFromUndoList
 492                                                 Case 34: if InStr(UndoStringFromUndoList, "renombrado") then QaErrorLog "#i94486# - Wrong text in Undo-List: " & UndoStringFromUndoList
 493                                                 Case 86: if UndoStringFromUndoList <> "插入 框架" then QaErrorLog "#i94486# - Wrong text in Undo-List: " & UndoStringFromUndoList
 494                                                 Case else: QAErrorlog "Please adapt test for this language: " & UndoStringFromUndoList
 495                                         end select
 496
 497                                 Case "DeleteFrame"
 498                                         Select Case iSprache
 499                                                 Case 01: if UndoStringFromUndoList <> "Delete frame" then Warnlog "Wrong text in Undo-List: " & UndoStringFromUndoList
 500                                                 Case 34: if UndoStringFromUndoList <> "Eliminar marco" then Warnlog "Wrong text in Undo-List: " & UndoStringFromUndoList
 501                                                 Case 86: if UndoStringFromUndoList <> "删除框对象" then Warnlog "Wrong text in Undo-List: " & UndoStringFromUndoList
 502                                                 Case else: QAErrorlog "Please adapt test for this language: "  & UndoStringFromUndoList
 503                                         end select
 504
 505                                 Case "InsertTable"
 506                                         Select Case iSprache
 507                                                 Case 01: if UndoStringFromUndoList <> "Insert table: 'Table1'" then Warnlog "Wrong text in Undo-List: " & UndoStringFromUndoList
 508                                                 Case 34: if UndoStringFromUndoList <> "Insertar tabla: 'Tabla1'" then Warnlog "Wrong text in Undo-List: " & UndoStringFromUndoList
 509                                                 Case 86: if UndoStringFromUndoList <> "插入表格: '表格1'" then Warnlog "Wrong text in Undo-List: " & UndoStringFromUndoList
 510                                                 Case else: QAErrorlog "Please adapt test for this language: "  & UndoStringFromUndoList
 511                                         end select
 512
 513                                 Case "InsertRow"
 514                                         Select Case iSprache
 515                                                 Case 01: if UndoStringFromUndoList <> "Insert Row" then Warnlog "Wrong text in Undo-List: " & UndoStringFromUndoList
 516                                                 Case 34: if UndoStringFromUndoList <> "Insertar fila" then Warnlog "Wrong text in Undo-List: " & UndoStringFromUndoList
 517                                                 Case 86: if UndoStringFromUndoList <> "插入行" then Warnlog "Wrong text in Undo-List: " & UndoStringFromUndoList
 518                                                 Case else: QAErrorlog "Please adapt test for this language: "  & UndoStringFromUndoList
 519                                         end select
 520
 521                                 Case "InsertColumn"
 522                                         Select Case iSprache
 523                                                 Case 01: if UndoStringFromUndoList <> "Insert Column" then Warnlog "Wrong text in Undo-List: " & UndoStringFromUndoList
 524                                                 Case 34: if UndoStringFromUndoList <> "Insertar columna" then Warnlog "Wrong text in Undo-List: " & UndoStringFromUndoList
 525                                                 Case 86: if UndoStringFromUndoList <> "插入列" then Warnlog "Wrong text in Undo-List: " & UndoStringFromUndoList
 526                                                 Case else: QAErrorlog "Please adapt test for this language: "  & UndoStringFromUndoList
 527                                         end select
 528
 529                                 Case "DeleteRow"
 530                                         Select Case iSprache
 531                                                 Case 01: if UndoStringFromUndoList <> "Delete row" then Warnlog "Wrong text in Undo-List: " & UndoStringFromUndoList
 532                                                 Case 34: if UndoStringFromUndoList <> "Borrar fila" then Warnlog "Wrong text in Undo-List: " & UndoStringFromUndoList
 533                                                 Case 86: if UndoStringFromUndoList <> "删除行" then Warnlog "Wrong text in Undo-List: " & UndoStringFromUndoList
 534                                                 Case else: QAErrorlog "Please adapt test for this language: "  & UndoStringFromUndoList
 535                                         end select
 536
 537                                 Case "DeleteColumn"
 538                                         Select Case iSprache
 539                                                 Case 01: if UndoStringFromUndoList <> "Delete column" then Warnlog "Wrong text in Undo-List: " & UndoStringFromUndoList
 540                                                 Case 34: if UndoStringFromUndoList <> "Borrar columna" then Warnlog "Wrong text in Undo-List: " & UndoStringFromUndoList
 541                                                 Case 86: if UndoStringFromUndoList <> "删除列" then Warnlog "Wrong text in Undo-List: " & UndoStringFromUndoList
 542                                                 Case else: QAErrorlog "Please adapt test for this language: "  & UndoStringFromUndoList
 543                                         end select
 544
 545                                 Case "FormatCell"
 546                                         Select Case iSprache
 547                                                 Case 01: if UndoStringFromUndoList <> "Format cell" then Warnlog "Wrong text in Undo-List: " & UndoStringFromUndoList
 548                                                 Case 34: if UndoStringFromUndoList <> "Formatear celda" then Warnlog "Wrong text in Undo-List: " & UndoStringFromUndoList
 549                                                 Case 86: if UndoStringFromUndoList <> "格式化单元格" then Warnlog "Wrong text in Undo-List: " & UndoStringFromUndoList
 550                                                 Case else: QAErrorlog "Please adapt test for this language: "  & UndoStringFromUndoList
 551                                         end select
 552
 553                                 Case "ApplyTableAttributes"
 554                                         Select Case iSprache
 555                                                 Case 01: if UndoStringFromUndoList <> "Apply table attributes" then Warnlog "Wrong text in Undo-List: " & UndoStringFromUndoList
 556                                                 Case 34: if UndoStringFromUndoList <> "Aplicar atributos de la tabla" then Warnlog "Wrong text in Undo-List: " & UndoStringFromUndoList
 557                                                 Case 86: if UndoStringFromUndoList <> "应用表格属性" then Warnlog "Wrong text in Undo-List: " & UndoStringFromUndoList
 558                                                 Case else: QAErrorlog "Please adapt test for this language: "  & UndoStringFromUndoList
 559                                         end select
 560
 561                                 Case "MergeTable"
 562                                         Select Case iSprache
 563                                                 Case 01: if UndoStringFromUndoList <> "Merge table" then Warnlog "Wrong text in Undo-List: " & UndoStringFromUndoList
 564                                                 Case 34: if UndoStringFromUndoList <> "unir tablas" then Warnlog "Wrong text in Undo-List: " & UndoStringFromUndoList
 565                                                 Case 86: if UndoStringFromUndoList <> "合并表格" then Warnlog "Wrong text in Undo-List: " & UndoStringFromUndoList
 566                                                 Case else: QAErrorlog "Please adapt test for this language: "  & UndoStringFromUndoList
 567                                         end select
 568
 569                                 Case "ConvertTable"
 570                                         Select Case iSprache
 571                                                 Case 01: if UndoStringFromUndoList <> "Convert text -> table" then Warnlog "Wrong text in Undo-List: " & UndoStringFromUndoList
 572                                                 Case 34: if UndoStringFromUndoList <> "Convertir texto en tabla" then Warnlog "Wrong text in Undo-List: " & UndoStringFromUndoList
 573                                                 Case 86: if UndoStringFromUndoList <> "文字转换成表格" then Warnlog "Wrong text in Undo-List: " & UndoStringFromUndoList
 574                                                 Case else: QAErrorlog "Please adapt test for this language: "  & UndoStringFromUndoList
 575                                         end select
 576
 577                                 Case "SortTable"
 578                                         Select Case iSprache
 579                                                 Case 01: if UndoStringFromUndoList <> "Sort table" then Warnlog "Wrong text in Undo-List: " & UndoStringFromUndoList
 580                                                 Case 34: if UndoStringFromUndoList <> "Ordenar tabla" then Warnlog "Wrong text in Undo-List: " & UndoStringFromUndoList
 581                                                 Case 86: if UndoStringFromUndoList <> "排序表格" then Warnlog "Wrong text in Undo-List: " & UndoStringFromUndoList
 582                                                 Case else: QAErrorlog "Please adapt test for this language: "  & UndoStringFromUndoList
 583                                         end select
 584
 585                                 Case "SplitTable"
 586                                         Select Case iSprache
 587                                                 Case 01: if UndoStringFromUndoList <> "Split Table" then Warnlog "Wrong text in Undo-List: " & UndoStringFromUndoList
 588                                                 Case 34: if UndoStringFromUndoList <> "Dividir tabla" then Warnlog "Wrong text in Undo-List: " & UndoStringFromUndoList
 589                                                 Case 86: if UndoStringFromUndoList <> "拆分表格" then Warnlog "Wrong text in Undo-List: " & UndoStringFromUndoList
 590                                                 Case else: QAErrorlog "Please adapt test for this language: "  & UndoStringFromUndoList
 591                                         end select
 592
 593                                 Case "DeleteTable"
 594                                         Select Case iSprache
 595                                                 Case 01: if UndoStringFromUndoList <> "Delete table: 'AnotherTable'" then Warnlog "Wrong text in Undo-List: " & UndoStringFromUndoList & " -> #i33497"
 596                                                 Case 34: if UndoStringFromUndoList <> "Eliminar tabla 'AnotherTable'" then Warnlog "Wrong text in Undo-List: " & UndoStringFromUndoList & " -> #i33497"
 597                                                 Case 86: if UndoStringFromUndoList <> "删除 表格: 'AnotherTable'" then Warnlog "Wrong text in Undo-List: " & UndoStringFromUndoList & " -> #i33497"
 598                                                 Case else: QAErrorlog "Please adapt test for this language: "  & UndoStringFromUndoList
 599                                         end select
 600
 601                                 Case "InsertRuler"
 602                                         Select Case iSprache
 603                                                 Case 01: if UndoStringFromUndoList <> "Insert horizontal ruler" then Warnlog "Wrong text in Undo-List: " & UndoStringFromUndoList
 604                                                 Case 34: if UndoStringFromUndoList <> "Insertar regla horizontal" then Warnlog "Wrong text in Undo-List: " & UndoStringFromUndoList
 605                                                 Case 86: if UndoStringFromUndoList <> "插入水平标尺" then Warnlog "Wrong text in Undo-List: " & UndoStringFromUndoList
 606                                                 Case else: QAErrorlog "Please adapt test for this language: "  & UndoStringFromUndoList
 607                                         end select
 608
 609                                 Case "InsertGraphic"
 610                                         Select Case iSprache
 611                                                 Case 01: if (UndoStringFromUndoList = "Insert graphics") OR (UndoStringFromUndoList = "Insert picture") then
 612                                                          else
 613                                                              Warnlog "Wrong text in Undo-List: " & UndoStringFromUndoList
 614                                                          end if
 615                                                 Case 34: if (UndoStringFromUndoList = "Insertar gráficos") OR (UndoStringFromUndoList = "Insertar imagen") then
 616                                                          else
 617                                                              Warnlog "Wrong text in Undo-List: " & UndoStringFromUndoList
 618                                                          end if
 619                                                 Case 86: if (UndoStringFromUndoList = "插入 图形") OR (UndoStringFromUndoList = "插入 图片") then
 620                                                          else
 621                                                              Warnlog "Wrong text in Undo-List: " & UndoStringFromUndoList
 622                                                          end if
 623                                                 Case else: QAErrorlog "Please adapt test for this language: "  & UndoStringFromUndoList
 624                                         end select
 625
 626                                 Case "DeleteGraphic"
 627                                         Select Case iSprache
 628                                                 Case 01: if UndoStringFromUndoList <> "Delete graphics" then Warnlog "Wrong text in Undo-List: " & UndoStringFromUndoList
 629                                                 Case 34: if UndoStringFromUndoList <> "Eliminar imagen" then Warnlog "Wrong text in Undo-List: " & UndoStringFromUndoList
 630                                                 Case 86: if UndoStringFromUndoList <> "删除图形" then Warnlog "Wrong text in Undo-List: " & UndoStringFromUndoList
 631                                                 Case else: QAErrorlog "Please adapt test for this language: "  & UndoStringFromUndoList
 632                                         end select
 633
 634                                 Case "ReplaceGraphic"
 635                                         Select Case iSprache
 636                                                 Case 01: if UndoStringFromUndoList <> "Replace graphics" then Warnlog "Wrong text in Undo-List: " & UndoStringFromUndoList
 637                                                 Case 34: if UndoStringFromUndoList <> "Reemplazar imagen" then Warnlog "Wrong text in Undo-List: " & UndoStringFromUndoList
 638                                                 Case 86: if UndoStringFromUndoList <> "替换图形" then Warnlog "Wrong text in Undo-List: " & UndoStringFromUndoList
 639                                                 Case else: QAErrorlog "Please adapt test for this language: "  & UndoStringFromUndoList
 640                                         end select
 641
 642                                 Case "InsertObject"
 643                                         Select Case iSprache
 644                                                 Case 01: if UndoStringFromUndoList <> "Insert OLE-object" then Warnlog "Wrong text in Undo-List: " & UndoStringFromUndoList
 645                                                 Case 34: if UndoStringFromUndoList <> "Insertar Objeto OLE" then Warnlog "Wrong text in Undo-List: " & UndoStringFromUndoList
 646                                                 Case 86: if UndoStringFromUndoList <> "插入 OLE 对象" then Warnlog "Wrong text in Undo-List: " & UndoStringFromUndoList
 647                                                 Case else: QAErrorlog "Please adapt test for this language: "  & UndoStringFromUndoList
 648                                         end select
 649
 650                                 Case "DeleteObject"
 651                                         Select Case iSprache
 652                                                 Case 01: if UndoStringFromUndoList <> "Delete OLE-object" then Warnlog "Wrong text in Undo-List: " & UndoStringFromUndoList
 653                                                 Case 34: if UndoStringFromUndoList <> "Eliminar Objeto OLE" then Warnlog "Wrong text in Undo-List: " & UndoStringFromUndoList
 654                                                 Case 86: if UndoStringFromUndoList <> "删除 OLE 对象" then Warnlog "Wrong text in Undo-List: " & UndoStringFromUndoList
 655                                                 Case else: QAErrorlog "Please adapt test for this language: "  & UndoStringFromUndoList
 656                                         end select
 657
 658                                 Case "InsertFloatingFrame"
 659                                         Select Case iSprache
 660                                                 Case 01: if UndoStringFromUndoList <> "Insert OLE-object" then Warnlog "Wrong text in Undo-List: " & UndoStringFromUndoList
 661                                                 Case 34: if UndoStringFromUndoList <> "Insertar Objeto OLE" then Warnlog "Wrong text in Undo-List: " & UndoStringFromUndoList
 662                                                 Case 86: if UndoStringFromUndoList <> "插入 OLE 对象" then Warnlog "Wrong text in Undo-List: " & UndoStringFromUndoList
 663                                                 Case else: QAErrorlog "Please adapt test for this language: "  & UndoStringFromUndoList
 664                                         end select
 665
 666                                 Case "DeleteFloatingFrame"
 667                                         Select Case iSprache
 668                                                 Case 01: if UndoStringFromUndoList <> "Delete OLE-object" then Warnlog "Wrong text in Undo-List: " & UndoStringFromUndoList
 669                                                 Case 34: if UndoStringFromUndoList <> "Eliminar Objeto OLE" then Warnlog "Wrong text in Undo-List: " & UndoStringFromUndoList
 670                                                 Case 86: if UndoStringFromUndoList <> "删除 OLE 对象" then Warnlog "Wrong text in Undo-List: " & UndoStringFromUndoList
 671                                                 Case else: QAErrorlog "Please adapt test for this language: "  & UndoStringFromUndoList
 672                                         end select
 673
 674                                 Case "InsertDocument"
 675                                         Select Case iSprache
 676                                                 Case 01: if UndoStringFromUndoList <> "Insert file" then Warnlog "Wrong text in Undo-List: " & UndoStringFromUndoList
 677                                                 Case 34: if UndoStringFromUndoList <> "Insertar archivo" then Warnlog "Wrong text in Undo-List: " & UndoStringFromUndoList
 678                                                 Case 86: if UndoStringFromUndoList <> "插入文件" then Warnlog "Wrong text in Undo-List: " & UndoStringFromUndoList
 679                                                 Case else: QAErrorlog "Please adapt test for this language: "  & UndoStringFromUndoList
 680                                         end select
 681
 682                                 Case "APGS"
 683                                         Select Case iSprache
 684                                                 Case 01: if UndoStringFromUndoList <> "Asian Phonetic Guides Setting" then QaErrorLog "#i94534# - Wrong text in Undo-List: " & UndoStringFromUndoList
 685                                                 Case 34: if UndoStringFromUndoList <> "Aplicar símbolos fonéticos" then QaErrorLog "#i94534# - Wrong text in Undo-List: " & UndoStringFromUndoList
 686                                                 Case 86: if UndoStringFromUndoList <> "加上拼音或注音符号" then QaErrorLog "#i94534# - Wrong text in Undo-List: " & UndoStringFromUndoList
 687                                                 Case else: QAErrorlog "Please adapt test for this language: "  & UndoStringFromUndoList
 688                                         end select
 689
 690                                 Case "AutoCorrect"
 691                                         Select Case iSprache
 692                                                 Case 01: if UndoStringFromUndoList <> "AutoCorrect" then Warnlog "Wrong text in Undo-List: " & UndoStringFromUndoList
 693                                                 Case 34: if UndoStringFromUndoList <> "AutoCorrección" then Warnlog "Wrong text in Undo-List: " & UndoStringFromUndoList
 694                                                 Case 86: if UndoStringFromUndoList <> "自动更正" then Warnlog "Wrong text in Undo-List: " & UndoStringFromUndoList
 695                                                 Case else: QAErrorlog "Please adapt test for this language: "  & UndoStringFromUndoList
 696                                         end select
 697
 698                                 Case "AutoFormat"
 699                                         Select Case iSprache
 700                                                 Case 01: if UndoStringFromUndoList <> "AutoFormat" then Warnlog "Wrong text in Undo-List: " & UndoStringFromUndoList
 701                                                 Case 34: if UndoStringFromUndoList <> "Formateado automático" then Warnlog "Wrong text in Undo-List: " & UndoStringFromUndoList
 702                                                 Case 86: if UndoStringFromUndoList <> "自动格式" then Warnlog "Wrong text in Undo-List: " & UndoStringFromUndoList
 703                                                 Case else: QAErrorlog "Please adapt test for this language: "  & UndoStringFromUndoList
 704                                         end select
 705
 706                                 Case "FreeForm"
 707                                     Select Case iSprache
 708                                         Case 01: if UndoStringFromUndoList <> "Insert Polyline with 3 corners" then
 709                                                      if UndoStringFromUndoList = "Insert Polyline with %2 corners" then
 710                                                          QaErrorlog "#i94530# - Bug with Undo-History for Polygon-Line-tool. " + UndoStringFromUndoList
 711                                                      else
 712                                                          Warnlog "Wrong text in Undo-List: " & UndoStringFromUndoList
 713                                                      end if
 714                                                  end if
 715                                         Case 34: if UndoStringFromUndoList <> "Insertar Polilínea con 3 puntos" then
 716                                                      if UndoStringFromUndoList = "Insertar Polilínea con %2 puntos" then
 717                                                          QaErrorlog "#i94530# - Bug with Undo-History for Polygon-Line-tool. " + UndoStringFromUndoList
 718                                                      else
 719                                                          Warnlog "Wrong text in Undo-List: " & UndoStringFromUndoList
 720                                                      end if
 721                                                  end if
 722                                         Case 86: if UndoStringFromUndoList <> "插入 有 3 个角的折线" then
 723                                                      if UndoStringFromUndoList = "插入 有 %2 个角的折线" then
 724                                                          QaErrorlog "#i94530# - Bug with Undo-History for Polygon-Line-tool. " + UndoStringFromUndoList
 725                                                      else
 726                                                          Warnlog "Wrong text in Undo-List: " & UndoStringFromUndoList
 727                                                      end if
 728                                                  end if
 729                                         Case else: QAErrorlog "Please adapt test for this language: "  & UndoStringFromUndoList
 730                                     end select
 731
 732                                 Case "DrawGroup"
 733                                         Select Case iSprache
 734                                                 Case 01: if UndoStringFromUndoList <> "Group draw objects" then Warnlog "Wrong text in Undo-List: " & UndoStringFromUndoList
 735                                                 Case 34: if UndoStringFromUndoList <> "Agrupar objetos de dibujo" then Warnlog "Wrong text in Undo-List: " & UndoStringFromUndoList
 736                                                 Case 86: if UndoStringFromUndoList <> "组合绘图对象" then Warnlog "Wrong text in Undo-List: " & UndoStringFromUndoList
 737                                                 Case else: QAErrorlog "Please adapt test for this language: "  & UndoStringFromUndoList
 738                                         end select
 739
 740                                 Case "DrawUnGroup"
 741                                         Select Case iSprache
 742                                                 Case 01: if UndoStringFromUndoList <> "Ungroup drawing objects" then Warnlog "Wrong text in Undo-List: " & UndoStringFromUndoList
 743                                                 Case 34: if UndoStringFromUndoList <> "Resolver objeto de grupo" then Warnlog "Wrong text in Undo-List: " & UndoStringFromUndoList
 744                                                 Case 86: if UndoStringFromUndoList <> "取消组合绘图对象" then Warnlog "Wrong text in Undo-List: " & UndoStringFromUndoList
 745                                                 Case else: QAErrorlog "Please adapt test for this language: "  & UndoStringFromUndoList
 746                                         end select
 747
 748                                 Case "RenameGroup"
 749                                         Select Case iSprache
 750                                                 Case 01: if UndoStringFromUndoList <> "Rename 2 Rectangles" then QaErrorLog "#i94486# - Wrong text in Undo-List: " & UndoStringFromUndoList
 751                                                 Case 34: if UndoStringFromUndoList <> "" then QaErrorLog "#i94486# - Wrong text in Undo-List: " & UndoStringFromUndoList
 752                                                 Case 86: if UndoStringFromUndoList <> "组合绘图对象" then QaErrorLog "#i94486# - Wrong text in Undo-List: " & UndoStringFromUndoList
 753                                                 Case else: QAErrorlog "Please adapt test for this language: "  & UndoStringFromUndoList
 754                                         end select
 755
 756                                 Case "DeleteGroup"
 757                                         Select Case iSprache
 758                                                 Case 01: if UndoStringFromUndoList <> "Delete 2 Rectangles" then Warnlog "Wrong text in Undo-List: " & UndoStringFromUndoList
 759                                                 Case 34: if UndoStringFromUndoList <> "Eliminar 2 Rectángulos" then Warnlog "Wrong text in Undo-List: " & UndoStringFromUndoList
 760                                                 Case 86: if UndoStringFromUndoList <> "删除 2 矩形" then Warnlog "Wrong text in Undo-List: " & UndoStringFromUndoList
 761                                                 Case else: QAErrorlog "Please adapt test for this language: "  & UndoStringFromUndoList
 762                                         end select
 763
 764                                 Case "Autocheck/Spellcheck"
 765                                         Select Case iSprache
 766                                                 Case 01: if UndoStringFromUndoList <> "Replace: 'Testp' -> 'Test'" then QaErrorLog "#i94489# - Wrong text in Undo-List: " & UndoStringFromUndoList
 767                                                 Case 34: if UndoStringFromUndoList = "Sobrescribir: $1" then
 768                                                          elseif InStr(UndoStringFromUndoList, "'Testp'") then
 769                                                              QaErrorLog "#i94489# - Wrong text in Undo-List: " & UndoStringFromUndoList
 770                                                          end if
 771                                                 Case 86: if UndoStringFromUndoList = "覆盖: $1" then
 772                                                              QaErrorLog "#i94489# - Wrong text in Undo-List: " & UndoStringFromUndoList
 773                                                          elseif InStr(UndoStringFromUndoList, "'Testp'") then
 774                                                              QaErrorlog "#i94489# - Bug fixed: " & UndoStringFromUndoList
 775                                                          end if
 776                                                 Case else: QAErrorlog "Please adapt test for this language: "  & UndoStringFromUndoList
 777                                         end select
 778
 779                                 Case "ControlInsert"
 780                                         Select Case iSprache
 781                                                 Case 01: if UndoStringFromUndoList <> "Insert Control" then Warnlog "Wrong text in Undo-List: " & UndoStringFromUndoList
 782                                                 Case 34: if UndoStringFromUndoList <> "Insertar Campo de control" then Warnlog "Wrong text in Undo-List: " & UndoStringFromUndoList
 783                                                 Case 86: if UndoStringFromUndoList <> "插入 控制" then Warnlog "Wrong text in Undo-List: " & UndoStringFromUndoList
 784                                                 Case else: QAErrorlog "Please adapt test for this language: "  & UndoStringFromUndoList
 785                                         end select
 786
 787                                 Case "ControlMove"
 788                                         Select Case iSprache
 789                                                 Case 01: if UndoStringFromUndoList <> "Move Control" then Warnlog "Wrong text in Undo-List: " & UndoStringFromUndoList
 790                                                 Case 34: if UndoStringFromUndoList <> "Desplazar Campo de control" then Warnlog "Wrong text in Undo-List: " & UndoStringFromUndoList
 791                                                 Case 86: if UndoStringFromUndoList <> "移动 控制" then Warnlog "Wrong text in Undo-List: " & UndoStringFromUndoList
 792                                                 Case else: QAErrorlog "Please adapt test for this language: "  & UndoStringFromUndoList
 793                                         end select
 794
 795                                 Case "ControlResize"
 796                                         Select Case iSprache
 797                                                 Case 01: if UndoStringFromUndoList <> "Resize Control" then Warnlog "Wrong text in Undo-List: " & UndoStringFromUndoList
 798                                                 Case 34: if UndoStringFromUndoList <> "Modificar el tamaño de Campo de control" then Warnlog "Wrong text in Undo-List: " & UndoStringFromUndoList
 799                                                 Case 86: if UndoStringFromUndoList <> "更改大小 控制" then Warnlog "Wrong text in Undo-List: " & UndoStringFromUndoList
 800                                                 Case else: QAErrorlog "Please adapt test for this language: "  & UndoStringFromUndoList
 801                                         end select
 802
 803                                 Case "ControlReplace"
 804                                         Select Case iSprache
 805                                                 Case 01: if UndoStringFromUndoList <> "Replace Control" then Warnlog "Wrong text in Undo-List: " & UndoStringFromUndoList
 806                                                 Case 34: if UndoStringFromUndoList <> "Reemplazar campo de control" then Warnlog "Wrong text in Undo-List: " & UndoStringFromUndoList
 807                                                 Case 86: if UndoStringFromUndoList <> "替换控制" then Warnlog "Wrong text in Undo-List: " & UndoStringFromUndoList
 808                                                 Case else: QAErrorlog "Please adapt test for this language: "  & UndoStringFromUndoList
 809                                         end select
 810
 811                                 Case "ControlChange"
 812                                         Select Case iSprache
 813                                                 Case 01: if UndoStringFromUndoList <> "Set property 'Name'" then Warnlog "Wrong text in Undo-List: " & UndoStringFromUndoList
 814                                                 Case 34: if UndoStringFromUndoList <> "Establecer propiedad 'Name'" then Warnlog "Wrong text in Undo-List: " & UndoStringFromUndoList
 815                                                 Case 86: if UndoStringFromUndoList <> "设置属性 'Name'" then Warnlog "Wrong text in Undo-List: " & UndoStringFromUndoList
 816                                                 Case else: QAErrorlog "Please adapt test for this language: "  & UndoStringFromUndoList
 817                                         end select
 818
 819                                 Case "ControlDelete"
 820                                         Select Case iSprache
 821                                                 Case 01: if UndoStringFromUndoList <> "Delete Control" then Warnlog "Wrong text in Undo-List: " & UndoStringFromUndoList
 822                                                 Case 34: if UndoStringFromUndoList <> "Eliminar Campo de control" then Warnlog "Wrong text in Undo-List: " & UndoStringFromUndoList
 823                                                 Case 86: if UndoStringFromUndoList <> "删除 控制" then Warnlog "Wrong text in Undo-List: " & UndoStringFromUndoList
 824                                                 Case else: QAErrorlog "Please adapt test for this language: "  & UndoStringFromUndoList
 825                                         end select
 826
 827                                 Case "Header/Footer"
 828                                         Select Case iSprache
 829                                                 Case 01: if UndoStringFromUndoList <> "Header/footer changed" then Warnlog "Wrong text in Undo-List: " & UndoStringFromUndoList
 830                                                 Case 34: if UndoStringFromUndoList <> "" then Warnlog "Wrong text in Undo-List: " & UndoStringFromUndoList
 831                                                 Case 86: if UndoStringFromUndoList <> "" then Warnlog "Wrong text in Undo-List: " & UndoStringFromUndoList
 832                                                 Case else: QAErrorlog "Please adapt test for this language: "  & UndoStringFromUndoList
 833                                         end select
 834
 835                                 Case else
 836                                         Warnlog "Wrong string for this function!"
 837
 838                         end select
 839
 840         case 11:  'Delete ' ###'
 841             Select Case iSprache
 842                                 Case 01: if UndoStringFromUndoList <> "Delete ' ###'" then Warnlog "Wrong text in Undo-List: " & UndoStringFromUndoList
 843                                 Case 34: if UndoStringFromUndoList <> "Eliminar 'g'" then Warnlog "Wrong text in Undo-List: " & UndoStringFromUndoList
 844                                 Case 86: if UndoStringFromUndoList <> "插入自动图文集" then Warnlog "Wrong text in Undo-List: " & UndoStringFromUndoList
 845                                 Case else: QAErrorlog "Please adapt tests for current language! (" & CurrentUndoString(0) & ")"
 846                         end select
 847
 848                 case else:
 849                         QAErrorlog "Wrong type!"
 850
 851         end select
 852
 853         if vTypeString > "" then
 854                 if Trim(CurrentUndoString(0)) <> vTypeString then
 855                         Warnlog "Wrong Type in Undo list. Not " & vTypeString & " but " & Trim(CurrentUndoString(0))
 856                 else
 857                         Printlog "-  Type in Undo-List is ok"
 858                 end if
 859                 try
 860                         if Trim(CurrentUndoString(1)) <> vShould then
 861                                 Warnlog "Wrong String in Undo list. Not " & vShould & " but " & Trim(CurrentUndoString(1))
 862                         else
 863                                 Printlog "-  String in Undo-List is ok"
 864                         end if
 865                 catch
 866                         warnlog "Something wrong with type: " & vTypeString
 867                 endcatch
 868         end if
 869         wait 500
 870     Kontext "StandardBar"
 871     Undo.Click
 872     Call wTypeKeys "<ESCAPE>"
 873 end sub