Re: Rechtschreibung Calc / Writer
Verfasst: Di, 25.12.2007 18:26
Nehme den folgenden dispatcher-Code, speichere in einem Modul Deiner Standard-Bilbliothek, und verbinde das Makro mit dem "Dokument erzeugen"-Ereignis der Writer-Vorlage(n), bei denen eine Rechtschreibprüfung funktionieren soll.
Hilft das auf Dauer?
Code: Alles auswählen
Sub switchSpellCheckOn
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:SpellOnline", "", 0, Array())
End Sub