Serienbriefassistent per Makro starten

[Freund]

Hallo Leute!

Bin leider ein kompletter Neuling, was OO und Makros angeht..

Hat jemand vielleicht ein passendes Makro da, oder kann mir erläutern, wie dieses aussehen muss?

Liebe Grüße

[pmoegenb]

Hallo,

siehe Programmhilfe und das Hilfethema Makros aufnehmen oder http://www.dannenhoefer.de/faqstarbasic/index.html

[Freund]

Hallo,

siehe Programmhilfe und das Hilfethema Makros aufnehmen oder http://www.dannenhoefer.de/faqstarbasic/index.html

Danke!
Habe mein Makro aufgenommen!

Wenn ich es allerdings starte, passiert rein gar nichts.
Eine Ahnung woran es liegt?

Code: Alles auswählen

REM  *****  BASIC  *****

sub Serienbrief
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")

rem ----------------------------------------------------------------------
rem dispatcher.executeDispatch(document, ".uno:MailMergeWizard", "", 0, Array())


end sub

[F3K Total]

Hi,
suche mal im Forum oder bei Dannenhöfer nach MailMerge
Gruß R

[Stephan]

Du musst das "Rem" in:

Code: Alles auswählen

rem dispatcher.executeDispatch(document, ".uno:MailMergeWizard", "", 0, Array())

löschen, also:

Code: Alles auswählen

sub Serienbrief
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")

rem ----------------------------------------------------------------------
dispatcher.executeDispatch(document, ".uno:MailMergeWizard", "", 0, Array())


end Sub

Gruß
Stephan