Zeichen-Sprache per Makro ändern

Antwort erstellen


BBCode ist eingeschaltet
[img] ist ausgeschaltet
[url] ist eingeschaltet
Smileys sind ausgeschaltet

Die letzten Beiträge des Themas
   

Ansicht erweitern Die letzten Beiträge des Themas: Zeichen-Sprache per Makro ändern

von Stephan » Mo, 26.09.2005 16:13

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

Es funktioniert, aber ...

von skraszewski » Mo, 26.09.2005 16:05

... 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

von Stephan » So, 25.09.2005 20:10

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



Gruß
Stephan

Zeichen-Sprache per Makro ändern

von skraszewski » So, 25.09.2005 14:47

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

Nach oben