OpenOffice.info

Ich habe ein Word Makro mit den nachstehenden Befehlen. Kann mir jemand schreiben, wie dieser Befehl übersetzt in oobasic lautet? Danke
Hier der Windows Makro
Sub MAIN()
'
' DlgTBS.MAIN Makro
''
If Tasks.Exists("Auswahl der Textbausteine") Then
Tasks("Auswahl der Textbausteine").Activate
Tasks("Auswahl der Textbausteine").WindowState = wdWindowStateNormal
Else
Datei$ = System.PrivateProfileString("APP.ini", "ProgramFile", "TBS")
Shell Datei$, vbNormalFocus
End If
End Sub