testautomation/writer/required/includes/w_011_.inc

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