Hi
> zu realisieren. Dazu benötige ich aber im Hauptdokument ein
> Eingabefeld für die Sprache. Das ist lästig zu bedienen (eine
> Drop-Down Box mit den
> Sprachen habe ich noch nicht zustande gebracht).
Z.B. mit dem nachstehenden Makro änderst Du den Inhalt eines
Benutzerfeldes. Als Auslöser sind Formularfelder denkbar oder eine
Symbolleiste, die Du mit dem Dokument speicherst.
--------------------------------------
DIM oSprache As String
Sub Deutsch
oSprache = "D"
SprachWahl(oSprache)
End Sub
Sub Franzoesisch
oSprache = "F"
SprachWahl(oSprache)
End Sub
Sub Englisch
oSprache = "E"
SprachWahl(oSprache)
End Sub
Sub SprachWahl(oSprache As String)
REM im Dokument muss ein Benutzerfeld vorhanden sein
REM vom Typ "Text" mit Namen LANG
DIM oDok as Object
DIM oFeld as object ' das Textfeld
oDok = ThisComponent.getTextFieldMasters()
oFeld = oDok.getByName("com.sun.star.text.FieldMaster.User.LANG")
oFeld.content = oSprache
thisComponent.textfields.refresh()
End Sub
--------------------------------------
Schöne Grüsse
---------------------------------------------------------------------
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
