Rechtschreibung Calc / Writer

[komma4]

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.

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

Hilft das auf Dauer?

[pmoegenb]

Viel zu kompliziert.

Dann lege Dir eine Calc-Dokumentvorlage an, in der bei Sprache in der Zellenvorlage (Formatvorlage) Standard keine ausgewählt ist.

[chrk]

Gilt aber dann nur für neue Dateien!

Was hindert dich, bei älteren Dateien die Zellvorlage Standard anzupassen?