Zeichen-Sprache per Makro ändern

[skraszewski]

Hallo an Alle,

da ich ziemlich viele Dokumente erstelle, wo in einem Text englische, deutsche und polnische Wörter vorkommen, wollte ich die einstellung des Attributs Sprache automatisieren. Ich habe ein Makro aufgezeichnet, mit dem Dem Zeichen die Eigenschaft Deuitsch zugeordnet werden sollte.:

**************
sub Deutsch
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 ----------------------------------------------------------------------
dim args1(0) as new com.sun.star.beans.PropertyValue
args1(0).Name = "Language"
args1(0).Value = 1031

dispatcher.executeDispatch(document, ".uno:Language", "", 0, args1())

end sub

**************

Eine böse Überraschung ist: es läuft nicht. Das Dialogfenster Zeichen wird eingeblendet und alles bleibt stehen. Wo liegt denn die Ursache des Fehlers?

Grüße aus Polen
skraszewski

[Stephan]

Der Code arbeitet bei mir fehlerfrei. Vielleicht ist kein Text markiert wenn Du das Makro startest?



Gruß
Stephan

[skraszewski]

... in StarOffice 7.0 und OOO. Das Problem betrifft die deutsche Beta-Version 8.0 von StarOffice.

Sollte das etwa heißen, dass die Programiersprache in diesen Office-Packeten Unterschiede aufweist?

Viele Grüße
s.kraszewski

[Stephan]

Das Problem betrifft die deutsche Beta-Version 8.0 von StarOffice

OK, dort hatte ich nicht geprüft.

Sollte das etwa heißen, dass die Programiersprache in diesen Office-Packeten Unterschiede aufweist?

In dieser allgemeinen Formulierung definitiv ja.
Ich weiß beispielsweise das es einige Unterschiede im 'Umfeld' des Zugriffs auf Datenbanken mit Basic gibt, habe das aber noch nicht genau ausgetestet.

Somit: es gibt geringfügige Unterschiede, nur auch geringfügige Unterschiede sind letzlich Unterschiede.



Gruß
Stephan