OpenOffice.info

Hey Super!
Tausend Dank!
das ist genau dass, was ich brauchte!

martin

Hey danke für die Antwort!
hier kommt mein bisheriger versuch:

Public Sub find(myQuery As String)
dim document as object
dim dispatcher as object
dim oCell as object
dim myResult as double


document = ThisComponent.CurrentController.Frame
dispatcher = createUnoService("com.sun.star.frame ...

Danke für die vielen Tipps, bin auch schon etwas weitergekommen.
Nun ist es so, dass ich eine Suche durchführe und das Ergebnis kopieren möchte, um es in einer anderen Tabelle einzufügen.
Das klappt leider nicht so ganz.

// hier ist die Suche:
dispatcher.executeDispatch(document, ".uno ...

Hallo Leute
ich möchte anfangen ein Makro zu erstellen, da ich absolut neu bin, wollte ich erstmal eine ganz einfache funktion implementieren:
eine Zelle kopieren und sieben spalten weiter einfügen:

sub autoCopy
rem ----------------------------------------------------------------------
rem define ...