BASIC-Laufzeitfehler.
Eigenschaft oder Methode nicht gefunden: CurrentController.
Das hier ist der Code bis zum Fehler kann mir jemand erklären was ich falsch mache?

sub komplett
rem ----------------------------------------------------------------------
rem define variables
dim document as object
dim dispatcher as object
rem ----------------------------------------------------------------------
rem get access to the document
document = ThisComponent.CurrentController.Frame
dispatcher = createUnoService("com.sun.star.frame.DispatchHelper")
Grüße dat Frettchen