testautomation/writer/required/includes/w_011_.inc

   1 '**************************************************************************
   2 '* DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER.
   3 '*
   4 '* Copyright 2008 by Sun Microsystems, Inc.
   5 '*
   6 '* OpenOffice.org - a multi-platform office productivity suite
   7 '*
   8 '* $RCSfile: w_011_.inc,v $
   9 '*
  10 '* $Revision: 1.2 $
  11 '*
  12 '* last change: $Author: vg $ $Date: 2008-08-18 12:42:23 $
  13 '*
  14 '* This file is part of OpenOffice.org.
  15 '*
  16 '* OpenOffice.org is free software: you can redistribute it and/or modify
  17 '* it under the terms of the GNU Lesser General Public License version 3
  18 '* only, as published by the Free Software Foundation.
  19 '*
  20 '* OpenOffice.org is distributed in the hope that it will be useful,
  21 '* but WITHOUT ANY WARRANTY; without even the implied warranty of
  22 '* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  23 '* GNU Lesser General Public License version 3 for more details
  24 '* (a copy is included in the LICENSE file that accompanied this code).
  25 '*
  26 '* You should have received a copy of the GNU Lesser General Public License
  27 '* version 3 along with OpenOffice.org.  If not, see
  28 '* <http://www.openoffice.org/license.html>
  29 '* for a copy of the LGPLv3 License.
  30 '*
  31 '/************************************************************************
  32 '*
  33 '* owner : helge.delfs@sun.com
  34 '*
  35 '* short description:  Testcases for the Toolbar.
  36 '*
  37 '\******************************************************************
  38
  39 sub w_011_
  40
  41     printLog Chr(13) + "---------   Toolbar ( w_011_.inc )   ----------"
  42     gApplication = "WRITER"
  43     'Objektleiste Grafik
  44     Call tGraphicFilters
  45
  46     'Objektleiste Zeichenobjekt
  47     Call tZOEditPoints
  48     Call tZOLine
  49     Call tZOArea
  50     Call tZORest
  51     Call tZOText
  52     Call tZOVerticalText
  53
  54 end sub
  55
  56 '-----------------------------------------------------------
  57
  58 testcase tGraphicFilters
  59     printlog "- Objectbar Graphic (Filters)"
  60     if gApplication = "HTML" then
  61         printlog "This test applies not to HTML-Document"
  62         Printlog "Not in WriterWeb!"
  63         goto endsub
  64     end if
  65
  66     printlog "Open new document"
  67     Call hNewDocument
  68     printlog "Insert graphic '/writer/required/input/grafik/jolink.jpg'"
  69     Call hGrafikEinfuegen ( gTesttoolPath + "writer\required\input\graphics\jolink.jpg" )
  70
  71     printlog "- Select all Filters"
  72     Kontext "GraphicObjectbar"
  73     printlog "In graphic toolbox taer off 'Filter' Toolbox"
  74     if Not GraphicObjectbar.Exists then hToolbarSelect ( "Picture", true )
  75     try
  76         Filter.TearOff
  77     catch
  78         Warnlog "Unable to tear off 'Filter'-Toolbar"
  79         Call hCloseDocument
  80         goto endsub
  81     endcatch
  82
  83     Kontext "GraphicFilterBar"
  84     try
  85         GraphicFilterBar.Move ( 20, 20 )
  86     catch
  87         Warnlog "Unable to move toolbar"
  88     endcatch
  89
  90     printlog "-  Invert"
  91     printlog "Select 'Invert'"
  92     if Invert.IsEnabled then
  93         Invert.Click
  94     else
  95         Warnlog "-  'Invert' is disabled !"
  96     end if
  97
  98     if CheckForFilters=False then
  99         printlog "Close active document"
 100         Call hCloseDocument
 101         goto endsub
 102     end if
 103     printlog "Click 'Smooth'"
 104     printlog "-  Smooth"
 105     if Smooth.IsEnabled then
 106         Smooth.Click
 107     else
 108         Warnlog "-  'Smooth' is disabled!"
 109     end if
 110
 111     if CheckForFilters=False then
 112         printlog "Close active document"
 113         Call hCloseDocument
 114         goto endsub
 115     end if
 116     printlog "-  Sharpen"
 117     printlog "Click 'Sharpen'"
 118     if Sharpen.IsEnabled then
 119         Sharpen.Click
 120     else
 121         Warnlog "-  'Sharpen' is disabled!"
 122     end if
 123
 124     UseBindings
 125     if CheckForFilters=False then
 126         printlog "Close active document"
 127         Call hCloseDocument
 128         goto endsub
 129     end if
 130     printlog "-  Remove Noise"
 131     printlog "Click 'Remove Noise'"
 132     if Remove.IsEnabled then
 133         Remove.Click
 134     else
 135         Warnlog "-  'Remove Noise' is disabled!"
 136     end if
 137     sleep (1)
 138
 139     if ( CheckForFilters=False ) then
 140         printlog "Close active document"
 141         Call hCloseDocument
 142         goto endsub
 143     end if
 144     printlog "-  Solarization"
 145     printlog "Click 'Solarization'"
 146     if Solarization.IsEnabled then
 147         Solarization.Click
 148         Kontext "Solarization"
 149         printlog "Cancel upcoming 'Solarization' dialog"
 150         if Solarization.Exists then
 151             Call Dialogtest( Solarization )
 152             Solarization.Cancel
 153         else
 154             Warnlog "-  Dialog 'Solarisation' has not been opened! Try a second time!"
 155             Kontext "GraphicFilterBar"
 156             if Solarization.IsEnabled then
 157                 Solarization.Click
 158                 Kontext "Solarization"
 159                 if Solarization.Exists then
 160                     Call Dialogtest( Solarization )
 161                     Solarization.Cancel
 162                 else
 163                     Warnlog "-  Dialog 'Solarisation' has not been opened!"
 164                 end if
 165             end if
 166         end if
 167     else
 168         Warnlog "-  'Solarization' is disabled!"
 169     end if
 170
 171     if CheckForFilters=False then
 172         printlog "Close active document"
 173         Call hCloseDocument
 174         goto endsub
 175     end if
 176     printlog "-  Aging"
 177     printlog "Click 'Aging'"
 178     if Aging.IsEnabled then
 179         Aging.Click
 180         printlog "Cancel upcoming 'Aging' dialog"
 181         Kontext "Aging"
 182         if Aging.Exists then
 183             Call Dialogtest( Aging )
 184             Aging.Cancel
 185         else
 186             Warnlog "-  Dialog 'Aging' has not been opened! Try a second time!"
 187             Kontext "GraphicFilterBar"
 188             if Aging.IsEnabled then
 189                 Aging.Click
 190                 Kontext "Aging"
 191                 if Aging.Exists then
 192                     Call Dialogtest( Aging )
 193                     Aging.Cancel
 194                 else
 195                     Warnlog "-  Dialog 'Aging' has not been opened!"
 196                 end if
 197             end if
 198         end if
 199     else
 200         Warnlog "-  'Aging' is disabled!"
 201     end if
 202
 203     if CheckForFilters=False then
 204         printlog "Close active document"
 205         Call hCloseDocument
 206         goto endsub
 207     end if
 208     printlog "-  Posterize"
 209     printlog "Click 'Posterize'"
 210     if Posterize.IsEnabled then
 211         Posterize.Click
 212         printlog "Cancel upcoming 'Posterize' dialog"
 213         Kontext "Posterize"
 214         if Posterize.Exists then
 215             Call Dialogtest( Posterize )
 216             Posterize.Cancel
 217         else
 218             Warnlog "-  Dialog 'Posterize' has not been opened! Try a second time!"
 219             Kontext "GraphicFilterBar"
 220             if Posterize.IsEnabled then
 221                 Posterize.Click
 222                 Kontext "Posterize"
 223                 if Posterize.Exists then
 224                     Call Dialogtest( Posterize )
 225                     Posterize.Cancel
 226                 else
 227                     Warnlog "-  Dialog 'Posterize' has not been opened!"
 228                 end if
 229             end if
 230         end if
 231     else
 232         Warnlog "-  'Posterize' is disabled!"
 233     end if
 234
 235     if CheckForFilters=False then
 236         printlog "Close active document"
 237         Call hCloseDocument
 238         goto endsub
 239     end if
 240     printlog "Click 'Pop Art'"
 241     printlog "-  Pop Art"
 242     if Art.IsEnabled then
 243         Art.Click
 244     else
 245         Warnlog "-  'Pop Art' is disabled!"
 246     end if
 247
 248     if CheckForFilters=False then
 249         printlog "Close active document"
 250         Call hCloseDocument
 251         goto endsub
 252     end if
 253     printlog "-  Charcoal Sketch"
 254     printlog "Click 'Charcoal Sketch'"
 255     if CharcoalSketch.IsEnabled then
 256         CharcoalSketch.Click
 257     else
 258         Warnlog "-  'Charcoal Sketch' is disabled!"
 259     end if
 260
 261     if CheckForFilters=False then
 262         printlog "Close active document"
 263         Call hCloseDocument
 264         goto endsub
 265     end if
 266     printlog "-  Relief"
 267     printlog "Click 'Relief'"
 268     if Relief.IsEnabled then
 269         Relief.Click
 270         Kontext "Relief"
 271         if Relief.Exists then
 272             Call Dialogtest( Relief )
 273             Relief.Cancel
 274         else
 275             printlog "Cancel upcoming 'relief' dialog"
 276             Warnlog "-  Dialog 'Relief' has not been opened! Try a second time!"
 277             Kontext "GraphicFilterBar"
 278             if Relief.IsEnabled then
 279                 Relief.Click
 280                 Kontext "Relief"
 281                 if Relief.Exists then
 282                     Call Dialogtest( Relief )
 283                     Relief.Cancel
 284                 else
 285                     Warnlog "-  Dialog 'Relief' has not been opened!"
 286                 end if
 287             end if
 288         end if
 289     else
 290         Warnlog "-  'Relief' is disabled!"
 291     end if
 292
 293     if CheckForFilters=False then
 294         Printlog "Close active document"
 295         Call hCloseDocument
 296         goto endsub
 297     end if
 298     printlog "-  Mosaic"
 299     Printlog "Clock 'Mosaic'"
 300     if Mosaic.IsEnabled then
 301         Mosaic.Click
 302         Kontext "Mosaic"
 303         Printlog "Cancel upcoming 'Mosaic' dialog"
 304         if Mosaic.Exists then
 305             Call Dialogtest( Mosaic )
 306             Mosaic.Cancel
 307         else
 308             Warnlog "-  Dialog 'Mosaic' has not been opened!"
 309         end if
 310     else
 311         Warnlog "-  'Mosaic' is disabled!"
 312     end if
 313
 314     Printlog "Close active document"
 315     Call hCloseDocument
 316 endcase
 317
 318 '-----------------------------------------------------------
 319
 320 testcase tZOEditPoints
 321     printlog "- Draw Functions-Objectbar: Edit Points"
 322     if gApplication = "HTML" then
 323         Printlog "This test does not apply to HTML documents"
 324         Printlog "Not in WriterWeb!"
 325         goto endsub
 326     end if
 327     Printlog "Open new document"
 328     Call hNewDocument
 329     Printlog "Insert a drawing object (rectangle)"
 330     Call wZeichenobjektEinfuegen ( "Rechteck", 30, 30, 50, 60 )
 331     Printlog "Select drawing object with shortcut 'Shift F4'"
 332     Call wTypeKeys ( "<Shift F4>" )
 333
 334     Kontext "Drawbar"
 335     if Not Drawbar.Exists then Call hToolbarSelect("Drawing", true)
 336
 337     Sleep 1
 338     Printlog "In Toolbox click 'Edit Points'"
 339     try
 340         Points.Click
 341     catch
 342         Warnlog "#i56594#Shortcut selecting objects doesn't work"
 343         Printlog "Close active document"
 344         Call hCloseDocument
 345         goto endsub
 346     endcatch
 347     Sleep 1
 348     Printlog "Click 'Edit Points' in toolbox again"
 349     Points.Click
 350     Printlog "Close active document"
 351     Call hCloseDocument
 352 endcase
 353
 354 '-----------------------------------------------------------
 355
 356 testcase tZOLine
 357     printlog "- Draw Functions-Objectbar: all within Line"
 358     if gApplication = "HTML" then
 359         Printlog "This test does not apply to HTML documents"
 360         Printlog "Not in WriterWeb!"
 361         goto endsub
 362     end if
 363     printlog "Open new document"
 364     Call hNewDocument
 365
 366     printlog "Insert a drawing object ( rectangle )"
 367     Call wZeichenobjektEinfuegen ( "Rechteck", 30, 30, 50, 60 )
 368     Call gMouseClick ( 25, 25 )
 369     printlog "Select drawing object with shortcut 'Shift F4'"
 370     Call wTypeKeys ( "<Shift F4>" )
 371
 372     Kontext "DrawingObjectbar"
 373     if Not DrawingObjectbar.Exists then hToolbarSelect("GRAPHIC", true)
 374
 375     printlog "  - Line-Tabdialog"
 376     wait 500
 377     try
 378         Linie.Click
 379         printlog "In Toolbox click 'Line'"
 380     catch
 381         Warnlog "#i56594#Shortcut selecting objects doesn't work"
 382         Call hCloseDocument
 383         goto endsub
 384     endcatch
 385     Kontext
 386     printlog "Step through all tabpages in upcoming dialog"
 387     wait 500
 388     Active.SetPage TabLinie
 389     Kontext "TabLinie"
 390     TabLinie.OK
 391     Kontext "DrawingObjectbar"
 392     if Not DrawingObjectbar.Exists then hToolbarSelect("GRAPHIC", true)
 393
 394     printlog "  - Arrow Styles"
 395     Linienendenstil.TearOff
 396     Kontext "Linienenden"
 397     Call Dialogtest(Linienenden)
 398     printlog "Close dialog"
 399     Linienenden.Close
 400
 401     Sleep 1
 402     printlog "Close active document"
 403     Call hCloseDocument
 404 endcase
 405
 406 '-----------------------------------------------------------
 407
 408 testcase tZOArea
 409     printlog "- Draw Functions-Objectbar: all within rectangle"
 410     if gApplication = "HTML" then
 411         printlog "This test applies not to HTML document"
 412         Printlog "Not in WriterWeb!"
 413         goto endsub
 414     end if
 415
 416     printlog "Open new document"
 417     Call hNewDocument
 418     printlog "Insert a draw object ( rectangle )"
 419     Call wZeichenobjektEinfuegen ( "Rechteck", 30, 30, 50, 60 )
 420     Call gMouseClick ( 25, 25 )
 421     printlog "Select drawing object with shortcut 'Shift F4'"
 422     Call wTypeKeys ( "<Shift F4>" )
 423
 424     Kontext "DrawingObjectbar"
 425     if Not DrawingObjectbar.Exists then hToolbarSelect("GRAPHIC", true)
 426     printlog "  - Rectangle-Tabdialog"
 427     wait 500
 428     try
 429         printlog "In toolbox click 'Area'"
 430         Flaeche.Click
 431     catch
 432         Warnlog "#i56594#Shortcut selecting objects doesn't work"
 433         Call hCloseDocument
 434         goto endsub
 435     endcatch
 436     printlog "Close upcoming dialog"
 437     Kontext
 438     Active.SetPage TabArea
 439     Kontext "TabArea"
 440     TabArea.OK
 441
 442     printlog "Close active document"
 443     Call hCloseDocument
 444 endcase
 445
 446 '-----------------------------------------------------------
 447
 448 testcase tZORest
 449
 450     printlog "- Draw Functions-Objectbar: Rest"
 451     if gApplication = "HTML" then
 452         printlog "This test does not apply to HTML documents"
 453         Printlog "Not in WriterWeb!"
 454         goto endsub
 455     end if
 456
 457     printlog "Open new document"
 458     Call hNewDocument
 459     printlog "Insert a draw object ( rectangle )"
 460     Call wZeichenobjektEinfuegen ( "Rechteck", 30, 30, 50, 60 )
 461     Call gMouseClick ( 25, 25 )
 462     printlog "Select drawing object with shortcut 'Shift F4'"
 463     Call wTypeKeys ( "<Shift F4>" )
 464
 465     printlog "  - Object rotation mode"
 466     Sleep 2
 467     try
 468         printlog "Intoolbox click 'Object rotation mode'"
 469         Kontext "DrawingObjectbar"
 470         Drehen.Click
 471         wait 500
 472     catch
 473         Warnlog "#i56594#Shortcut selecting objects doesn't work"
 474         Call hCloseDocument
 475         goto endsub
 476     endcatch
 477
 478     printlog "  - Change Anchor"
 479     printlog "Click 'Change Anchor' in Toolbox and select 1st entry in anchor list"
 480     VerankerungWechseln.Click
 481     Sleep 1
 482     Call hMenuSelectNr (1)
 483     wait 500
 484
 485     VerankerungWechseln.Click
 486     printlog "Click 'Change Anchor' in Toolbox and select 2nd entry in anchor list"
 487     Sleep 1
 488     Call hMenuSelectNr (2)
 489     wait 500
 490
 491     VerankerungWechseln.Click
 492     Sleep 1
 493     printlog "Click 'Change Anchor' in Toolbox and select 3rd entry in anchor list"
 494     Call hMenuSelectNr (3)
 495     wait 500
 496
 497     printlog "  - To Background"
 498     printlog "Click 'To Background' in toolbox"
 499     InDenHintergrund.Click
 500     Sleep 2
 501     printlog "  - To Foreground"
 502     printlog "Click 'To Foreground' in toolbox"
 503     InDenVordergrund.Click
 504
 505     printlog "  - Send to back"
 506     printlog "Click 'Send To back' in toolbox"
 507     GanzNachHinten.Click
 508
 509     printlog "  - Bring to Front"
 510     printlog "Click 'To Background' in toolbox"
 511     GanzNachVorn.Click
 512
 513     printlog "Close active document"
 514     Call hCloseDocument
 515 endcase
 516
 517 '-----------------------------------------------------------
 518
 519 testcase tZOText
 520     printlog "- Draw Functions-Objectbar: Text"
 521     if gApplication = "HTML" then
 522         printlog "This test does not apply to HTML documents"
 523         Printlog "Not in WriterWeb!"
 524         goto endsub
 525     end if
 526
 527     printlog "Open new document"
 528     Call hNewDocument
 529
 530     Call wZeichenobjektEinfuegen ( "Text", 30, 30, 50, 60 )
 531     printlog "Insert draw object ( Text )"
 532     printlog "Insert some text to textbox"
 533     Call wTypeKeys ("Draw Functions-Objectbar: Text")
 534     printlog "Select the text in textbox with <Strg A>"
 535     Call wTypeKeys ("<Mod1 A>", 3)
 536     Sleep 4
 537
 538     Kontext "DrawTextObjectBar"
 539     if DrawTextObjectBar.Exists = false then
 540         Call hToolbarSelect("TextObject", true)
 541     end if
 542
 543     printlog "  - Font Size"
 544     printlog "For font size select 9th entry"
 545     try
 546         Schriftgroesse.Select 9
 547         Schriftgroesse.TypeKeys "<Return>"
 548     catch
 549         Warnlog "Unable to change font size"
 550     endcatch
 551     Wait 500
 552
 553     printlog "  - Font"
 554     printlog "In object bar select 6th entry in combobox 'Font'"
 555     try
 556         Schriftart.Select 6
 557     catch
 558         Warnlog "Unable to select font in object bar"
 559     endcatch
 560     Schriftart.TypeKeys "<Return>"
 561     Wait 500
 562
 563     printlog "  - Bold"
 564     printlog "Click 'Bold' in object bar"
 565     Fett.Click
 566     Wait 500
 567
 568     printlog "  - Italic"
 569     printlog "Click 'Italic' in object bar"
 570     Kursiv.Click
 571     Wait 500
 572
 573     printlog "  - Underline"
 574     printlog "Click 'Underline' in object bar"
 575     Unterstrichen.Click
 576     Wait 500
 577
 578     printlog "  - Align Left"
 579     printlog "Click Align left in object bar"
 580     Linksbuendig.Click
 581     Wait 500
 582
 583     printlog "  - Align Right"
 584     printlog "Click 'Align right' in object bar"
 585     Rechtsbuendig.Click
 586     Wait 500
 587
 588     printlog "  - Centered"
 589     printlog "Click 'Centered' in object bar"
 590     Zentriert.Click
 591     Wait 500
 592
 593     printlog "  - Justify"
 594     printlog "Click 'Justify' in object bar"
 595     Blocksatz.Click
 596     Wait 500
 597
 598     printlog "  - Superscript"
 599     printlog "Click 'Superscript' in object bar"
 600     try
 601         Hochgestellt.Click
 602         Wait 500
 603     catch
 604         Warnlog "- Superscript is probably faded out!"
 605     endcatch
 606
 607     printlog "  - Subscript"
 608     try
 609         printlog "Click 'Subscript' in object bar"
 610         Tiefgestellt.Click
 611         Wait 500
 612     catch
 613         Warnlog "- Subscript is probably faded out!"
 614     endcatch
 615
 616     printlog "  - Font attributes"
 617     try
 618         printlog "Click 'Font attributes' in object bar"
 619         Zeichenformat.Click
 620         wait 500
 621         printlog "Close upcoming dialog"
 622         Kontext
 623         Active.Setpage TabFont
 624         Kontext "TabFont"
 625         TabFont.OK
 626         Sleep 2
 627         Kontext "TextObjectbar"
 628     catch
 629         Warnlog "- Font attributes is probably faded out!"
 630     endcatch
 631
 632     printlog "  - Format:Paragraph"
 633     Sleep 3
 634     try
 635         printlog "Click Format:Paragraph in object bar"
 636         Absatzformat.Click
 637         wait 500
 638         printlog "Close upcoming dialog"
 639         Kontext
 640         Active.Setpage TabEinzuegeUndAbstaende
 641         Kontext "TabEinzuegeUndAbstaende"
 642         TabEinzuegeUndAbstaende.OK
 643         Sleep 2
 644     catch
 645         Warnlog "- Format:Paragraph is probably faded out!"
 646     endcatch
 647
 648     printlog "Close active document"
 649     Call hCloseDocument
 650 endcase
 651
 652 '-----------------------------------------------------------
 653
 654 testcase tZOVerticalText
 655     printlog "- Draw Functions-Objectbar: Vertical Text"
 656     if gAsianSup = False then goto endsub
 657     if gApplication = "HTML" then
 658         printlog "This test applies not to HTML document and only if Asian Support is enabled"
 659         Printlog "Not in WriterWeb!"
 660         goto endsub
 661     end if
 662
 663     printlog "Open new document"
 664     Call hNewDocument
 665
 666     printlog "Insert Draw object ( 'vertical Text' )"
 667     Call wZeichenobjektEinfuegen ( "VText", 30, 30, 50, 60 )
 668     printlog "Insert some text in textbox and select it"
 669     Call wTypeKeys ("Checking vertical text")
 670     Call wTypeKeys ("<Shift Home>")
 671     Sleep 4
 672
 673     printlog "In object bar select 6th entry in combobox 'Font'"
 674     Call hToolbarSelect ( "Textobject", true  )
 675     printlog "  - Font"
 676     Schriftart.Select 6
 677     Schriftart.TypeKeys "<Return>"
 678     Wait 500
 679
 680     printlog "  - Font Size"
 681     printlog "For font size select 9th entry"
 682     Schriftgroesse.Select 9
 683     Schriftgroesse.TypeKeys "<Return>"
 684     Wait 500
 685
 686     printlog "  - Bold"
 687     printlog "Click 'Bold' in object bar"
 688     Fett.Click
 689     Wait 500
 690
 691     printlog "  - Italic"
 692     printlog "Click 'Italic' in object bar"
 693     Kursiv.Click
 694     Wait 500
 695
 696     printlog "  - Underline"
 697     printlog "Click 'Underline' in object bar"
 698     Unterstrichen.Click
 699     Wait 500
 700
 701     printlog "  - Align Left"
 702     printlog "Click 'Align left' in object bar"
 703     Linksbuendig.Click
 704     Wait 500
 705
 706     printlog "  - Align Right"
 707     printlog "Click 'Align Right' in object bar"
 708     Rechtsbuendig.Click
 709     Wait 500
 710
 711     printlog "  - Centered"
 712     printlog "Click 'Centered' in object bar"
 713     Zentriert.Click
 714     Wait 500
 715
 716     printlog "  - Justify"
 717     printlog "Click 'Justify' in object bar"
 718     Blocksatz.Click
 719     Wait 500
 720
 721     printlog "  - Superscript"
 722     try
 723         printlog "Click 'Superscript' in object bar"
 724         Hochgestellt.Click
 725         Wait 500
 726     catch
 727         Warnlog "- Superscript is probably faded out!"
 728     endcatch
 729
 730     printlog "  - Subscript"
 731     try
 732         printlog "Click 'Subscript' in object bar"
 733         Tiefgestellt.Click
 734         Wait 500
 735     catch
 736         Warnlog "- Subscript is probably faded out!"
 737     endcatch
 738
 739     printlog "  - Font attributes"
 740     try
 741         printlog "Click 'Font attributes' in object bar"
 742         Zeichenformat.Click
 743         wait 500
 744         Kontext
 745         Active.Setpage TabFont
 746         Kontext "TabFont"
 747         TabFont.OK
 748         Sleep 2
 749         Kontext "TextObjectbar"
 750     catch
 751         Warnlog "- Font attributes is probably faded out!"
 752     endcatch
 753
 754     printlog "  - Format:Paragraph"
 755     Sleep 3
 756
 757     try
 758         printlog "Click 'Textdirection:Left To Right' in Objectbar"
 759         TextdirectionLeftToRight.Click
 760         wait 500
 761     catch
 762         Warnlog "Textdirection Left To Right probably faded out!"
 763     endcatch
 764
 765     try
 766         printlog "Click 'Textdirection:Top to Bottom' in Objectbar"
 767         TextdirectionTopToBottom.Click
 768         wait 500
 769     catch
 770         Warnlog "Textdirection Top to Bottom probably faded out!"
 771     endcatch
 772
 773     try
 774         printlog "Click 'Format: Paragraph' in object bar."
 775         Absatzformat.Click
 776         wait 500
 777         printlog "Close upcoming dialog"
 778         Kontext
 779         Active.Setpage TabEinzuegeUndAbstaende
 780         Kontext "TabEinzuegeUndAbstaende"
 781         TabEinzuegeUndAbstaende.OK
 782         Sleep 2
 783     catch
 784         Warnlog "- Format:Paragraph is probably faded out!"
 785     endcatch
 786
 787     printlog "Close active document"
 788     Call hCloseDocument
 789 endcase