OpenOffice.info

[quote="Neuer Nutzer"]Gilt aber dann nur für neue Dateien![/quote]Was hindert dich, bei älteren Dateien die Zellvorlage Standard anzupassen?

[quote="Neuer Nutzer"]Viel zu kompliziert.[/quote]
Dann lege Dir eine Calc-Dokumentvorlage an, in der bei Sprache in der Zellenvorlage (Formatvorlage) [b]Standard [/b][color=#0000FF]keine [/color]ausgewählt ist.

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

Nehme den folgenden [i]dispatcher-Code[/i], speichere in einem Modul Deiner Standard-Bilbliothek, und verbinde das Makro mit dem "[color=#008000]Dokument erzeugen[/color]"-Ereignis der Writer-Vorlage(n), bei denen eine Rechtschreibprüfung funktionieren soll.

[code]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
[/code]

Hilft das auf Dauer?