Liebe all,

anbei HÜ Gruppe 3

lg, Birgit und Jana

## 1 ##

Word = .OLEObject~New("Word.Application")

Word~Visible = .TRUE

Doc = Word~Documents~Add

Selection = Word~Selection

Selection~Style = "Title"

Font = Selection~Font

Font~Name="Verdana"

Font~Size="14"

Font~Bold = .TRUE

Selection~TypeText("G03 T07")

say "Dies ist Ihr Titel.Druecken Sie die Eingabetaste, um fortzufahren"

parse pull

Selection~TypeParagraph

Selection~Style = "Heading 1"

Font~Name="Verdana"

Font~Size="12"

Font~Bold = .TRUE

Selection~TypeText("Programm 1")

say "Dies ist Ihr Untertitel.Druecken Sie die Eingabetaste, um fortzufahren"

parse pull

Selection~TypeParagraph

Selection~Style = "Normal"

Font~Name="Verdana"

Font~Size="12"

Selection~TypeText("Dies ist das erste Programm")

/* get the environment variable TEMP and create filename to save */

TempDir =  VALUE( "TEMP",,ENVIRONMENT)

FileName = TempDir || "\" || "G03 T01"

Doc~SaveAs(FileName)

Word~Quit

say "Erstellt" FileName". Druecken Sie zum Beenden die Eingabetaste"

pull

output

Dies ist Ihr Titel.Druecken Sie die Eingabetaste, um fortzufahren

Dies ist Ihr Untertitel.Druecken Sie die Eingabetaste, um fortzufahren

Erstellt C:\Users\ADMINI~1\AppData\Local\Temp\G03 T01. Druecken Sie zum Beenden die Eingabetaste

## 2 ##

ieWU=.OLEObject~New("InternetExplorer.Application")

ieWU~visible=.true

Say "Der Internet Explorer ist geoeffnet. Druecken Sie die Eingabetaste, um zur Webseite des des Teams des Instituts fur Wirtschaftsinformatik und Gesellschaft zu gelangen"

parse pull

ieWU~navigate("https://www.wu.ac.at/ec/team-vo")

Say "Der Webseite des des Teams des Instituts fur Wirtschaftsinformatik und Gesellschaft ist geoefnet. Druecken Sie die Eingabetaste,  um zur Seite von Rony Flatsche zu navigieren"

parse pull

ieWU~navigate("https://www.wu.ac.at/ec/team-vo/rony-g-flatscher-1/")

say "Bitte druecken Sie die Eingabetaste, um die Telefonnummer von Rony Flatscher zu erhalten."

parse pull

do counter i until ieWU~busy=.false | i>1000

call sysSleep 0.001 -- sleep 1/1000 second

end

doc=ieWU~document -- get loaded document

source=doc~body~outerhtml

ieWU~quit

parse var source '<li><p class="hyphenate">Tel.: ' tel '</p></li>'

say "Die Telephonnummer von Rony Flatscher ist:" tel

say "Sorry, ich konnte die Telefonnummer nicht bekommen, mein Code hat Fehler"

say "Druecken Sie eine beliebige Taste, um den Versuch abzubrechen"

output

Der Internet Explorer ist geoeffnet. Druecken Sie die Eingabetaste, um zur Webseite des des Teams des Instituts fur Wirtschaftsinformatik und Gesellschaft zu gelangen

Der Webseite des des Teams des Instituts fur Wirtschaftsinformatik und Gesellschaft ist geoefnet. Druecken Sie die Eingabetaste,  um zur Seite von Rony Flatsche zu navigieren

Bitte druecken Sie die Eingabetaste, um die Telefonnummer von Rony Flatscher zu erhalten.

Dann verschwindet alles :)