testautomation/writer/optional/includes/tools/tools1.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: tools1.inc,v $
  10 '*
  11 '* $Revision: 1.2 $
  12 '*
  13 '* last change: $Author: vg $ $Date: 2008-08-18 12:38:22 $
  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 writer/Optional - 1
  37 '*
  38 '************************************************************************
  39 '*
  40 ' #0 fFileProperties
  41 ' #0 fFormatGraphic
  42 ' #0 fFormatFrame
  43 ' #0 fFormatPageWriter
  44 ' #0 fFormatParagraph
  45 ' #0 fFormatCharacter
  46 ' #0 fFormatTable
  47 ' #0 fFormatStylesCatalog
  48 ' #0 fPositionAndSize
  49 ' #0 fInsertFieldsOther
  50 ' #0 fInsertSection
  51 ' #0 fToolsAutocorrect
  52 '*
  53 '\***********************************************************************
  54
  55
  56 'This routine is executing file/properties , then tabpage Options
  57 '*****************************************************************
  58 function fFileProperties(Options as string)
  59
  60   FileProperties
  61   sleep(1)
  62   Kontext
  63   Select case Options
  64     case "TabDokument"        : active.SetPage TabDokument
  65     case "TabBeschreibung"    : active.SetPage TabBeschreibung
  66     case "TabBenutzer"        : active.SetPage TabBenutzer
  67     case "TabInternet"        : active.SetPage TabInternet
  68     case "TabStatistik"       : active.SetPage TabStatistik
  69   end Select
  70
  71   Kontext Options
  72
  73 end function
  74
  75
  76
  77 '*****************************************************************
  78 'This routine is executing format/graphic , then tabpage Options
  79 '*****************************************************************
  80 function fFormatGraphic(Options as string) as boolean
  81     Dim j as integer, sSlotOK as boolean
  82
  83         try
  84                 FormatGraphics
  85                 sSlotOK = true
  86         catch
  87                 warnlog "Unable to execute Format / Graphics"
  88         endcatch
  89     sleep(1)
  90     Kontext
  91     if sSlotOK = true then
  92         Select case Options
  93             case "TabType"                     : active.SetPage TabType
  94             case "TabZusaetze"                 : active.SetPage TabZusaetze
  95             case "TabUmlauf"                   : active.SetPage TabUmlauf
  96             case "TabHyperlinkRahmen"          : active.SetPage TabHyperlinkRahmen
  97             case "TabGrafik"                   : active.SetPage TabGrafik
  98             case "TabZuschneiden"              : active.SetPage TabZuschneiden
  99             case "TabUmrandung"                : active.SetPage TabUmrandung
 100             case "TabHintergrund"              : active.SetPage TabHintergrund
 101             case "TabMakro"
 102                 active.SetPage TabMakro
 103                 ' if no JRE is installed a messagebox appears
 104                 Do
 105                     j = j + 1
 106                     Kontext "Active"
 107                     if Active.Exists then
 108                         if Active.GetRT = 304 then
 109                             if j = 1 then Warnlog Active.Gettext
 110                             Active.Ok
 111                         else
 112                             exit do
 113                         end if
 114                     else
 115                         exit do
 116                     end if
 117                 Loop
 118         end select
 119
 120         Kontext Options
 121     end if
 122     fFormatGraphic = sSlotOK
 123 end function
 124
 125
 126
 127 '*****************************************************************
 128 'This routine is executing format/frame , then tabpage Options
 129 '****************************************************************
 130 function fFormatFrame(Options as string)
 131
 132   Sleep 1
 133   FormatFrame
 134   Kontext
 135
 136   Select case Options
 137     case "TabType"                     : active.SetPage TabType
 138     case "TabZusaetze"                 : active.SetPage TabZusaetze
 139     case "TabUmlauf"                   : active.SetPage TabUmlauf
 140     case "TabHyperlinkRahmen"          : active.SetPage TabHyperlinkRahmen
 141     case "TabUmrandung"                : active.SetPage TabUmrandung
 142     case "TabHintergrund"              : active.SetPage TabHintergrund
 143     case "TabSpalten"                  : active.SetPage TabSpalten
 144     case "TabMakro"                    : active.SetPage TabMakro
 145   end Select
 146
 147   Kontext Options
 148
 149 end function
 150
 151
 152 '*************************************************************************
 153 'This routine is executing format/page in writer , then tabpage Options
 154 '*************************************************************************
 155 function fFormatPageWriter(Options as string)
 156
 157   FormatPageWriter
 158   Kontext
 159
 160   Select case Options
 161     case "TabVerwalten"                : active.SetPage TabVerwalten
 162     case "TabSeite"                    : active.SetPage TabSeite
 163     case "TabHintergrund"              : active.SetPage TabHintergrund
 164     case "TabKopfzeile"                : active.SetPage TabKopfzeile
 165     case "TabFusszeile"                : active.SetPage TabFusszeile
 166     case "TabUmrandung"                : active.SetPage TabUmrandung
 167     case "TabSpalten"                  : active.SetPage TabSpalten
 168     case "TabFussnote"                 : active.SetPage TabFussnote
 169     case "TabGrid"                     : active.SetPage TabGrid
 170   end Select
 171
 172   Kontext Options
 173
 174 end function
 175
 176
 177 '*************************************************************************
 178 'This routine is executing format/paragraph in writer , then tabpage Options
 179 '*************************************************************************
 180 function fFormatParagraph(Options as string)
 181
 182   FormatParagraph
 183   Kontext
 184
 185   Select case Options
 186     case "TabEinzuegeUndAbstaende" : active.SetPage TabEinzuegeUndAbstaende
 187     case "TabAusrichtungAbsatz"    : active.SetPage TabAusrichtungAbsatz
 188     case "TabTextfluss"            : active.SetPage TabTextfluss
 189     case "TabAsianTypography"      : active.SetPage TabAsianTypography
 190     case "TabNumerierungAbsatz"    : active.SetPage TabNumerierungAbsatz
 191     case "TabTabulatoren"          : active.SetPage TabTabulatoren
 192     case "TabInitialen"            : active.SetPage TabInitialen
 193     case "TabUmrandung"            : active.SetPage TabUmrandung
 194     case "TabHintergrund"          : active.SetPage TabHintergrund
 195   end Select
 196
 197   Kontext Options
 198
 199 end function
 200
 201
 202 '*************************************************************************
 203 'This routine is executing format/character in writer , then tabpage Options
 204 '*************************************************************************
 205 function fFormatCharacter(Options as string)
 206
 207   FormatCharacter
 208   Kontext
 209
 210   Select case Options
 211     case "TabFont"                  : active.SetPage TabFont
 212     case "TabFontEffects"           : active.SetPage TabFontEffects
 213     case "TabFontPosition"          : active.SetPage TabFontPosition
 214     case "TabAsianLayout"           : active.SetPage TabAsianLayout
 215     case "TabHyperlinkZeichen"      : active.SetPage TabHyperlinkZeichen
 216     case "TabHintergrund"           : active.SetPage TabHintergrund
 217   end Select
 218
 219   Kontext Options
 220
 221 end function
 222
 223
 224
 225 '*************************************************************************
 226 'This routine is executing format/table in writer , then tabpage Options
 227 '*************************************************************************
 228 function fFormatTable(Options as string)
 229
 230   FormatTable
 231   Kontext
 232
 233   Select case Options
 234     case "TabTabelle"               : active.SetPage TabTabelle
 235     case "TabTextflussTabelle"      : active.SetPage TabTextflussTabelle
 236     case "TabSpaltenTabelle"        : active.SetPage TabSpaltenTabelle
 237     case "TabUmrandung"             : active.SetPage TabUmrandung
 238     case "TabHintergrund"           : active.SetPage TabHintergrund
 239   end Select
 240
 241   Kontext Options
 242
 243 end function
 244
 245
 246 '*************************************************************************
 247 'This routine is executing Format/Styles / Catalog in writer , then tabpage Options
 248 '*************************************************************************
 249 function fFormatStylesCatalog(Options as string)
 250
 251   FormatStylesCatalog
 252   Kontext "VorlagenKatalog"
 253
 254   Select case Options
 255     case "Paragraph"      : Vorlagen.Select 1
 256     case "Character"      : Vorlagen.Select 2
 257     case "Frame"          : Vorlagen.Select 3
 258     case "Page"           : Vorlagen.Select 4
 259     case "Numbering"      : Vorlagen.Select 5
 260   end Select
 261
 262 end function
 263
 264
 265 '******************************************************************************
 266 'This routine is executing insert/fields/other in writer , then tabpage Options
 267 '*******************************************************************************
 268 function fInsertFieldsOther(Options as string)
 269
 270   InsertFieldsOther
 271   Kontext
 272
 273   Select case Options
 274     case "TabDokumentFeldbefehle"     : active.SetPage TabDokumentFeldbefehle
 275     case "TabReferenzen"              : active.SetPage TabReferenzen
 276     case "TabFunktionen"              : active.SetPage TabFunktionen
 277     case "TabDokumentinfoFeldbefehle" : active.SetPage TabDokumentinfoFeldbefehle
 278     case "TabVariablen"               : active.SetPage TabVariablen
 279     case "TabDatenbank"               : active.SetPage TabDatenbank
 280   end Select
 281
 282   Kontext Options
 283
 284 end function
 285
 286
 287 '******************************************************
 288 '* insert a section with tabpage Options             **
 289 '******************************************************
 290 function fInsertSection(Options as string)
 291
 292    InsertSection
 293    wait 500
 294    Kontext
 295
 296    Select case Options
 297        case "TabBereiche"       : active.SetPage TabBereiche
 298        case "TabSpalten"        : active.SetPage TabSpalten
 299        case "TabSectionIndent"  : active.SetPage TabSectionIndent
 300        case "TabHintergrund"    : active.SetPage TabHintergrund
 301        case "TabFussEndnoten"   : active.SetPage TabFussEndnoten
 302    end Select
 303
 304    Kontext Options
 305    Sleep 1
 306
 307 end function
 308
 309
 310 '*************************************************************************
 311 'This routine is executing Tools/AutoCorrect in writer , then tabpage Options
 312 '*************************************************************************
 313 function fToolsAutocorrect(Options as string)
 314
 315   Kontext
 316   ToolsAutoCorrect
 317
 318   Select case Options
 319     case "TabErsetzung"                : active.SetPage TabErsetzung
 320     case "TabAusnahmen"                : active.SetPage TabAusnahmen
 321     case "TabOptionenAutokorrektur"    : active.SetPage TabOptionenAutokorrektur
 322     case "TabTypografisch"             : active.SetPage TabTypografisch
 323     case "TabWortergaenzung"           : active.SetPage TabWortergaenzung
 324   end Select
 325
 326   Kontext Options
 327
 328 end function
 329
 330
 331 '******************************************************
 332 '* Open Format/Position and Size diglog with Options **
 333 '******************************************************
 334 function fPositionAndSize(Options as string)
 335
 336   Kontext
 337   FormatPositionAndSize
 338
 339   Select case Options
 340     case "TabPositionAndSizeWriter"  : active.SetPage TabPositionAndSizeWriter
 341     case "TabDrehung"                : active.SetPage TabDrehung
 342     case "TabSchraegstellen"         : active.SetPage TabSchraegstellen
 343   end Select
 344
 345   Kontext Options
 346
 347 end function
 348