OpenOffice.info

Verfasst: **Di, 10.01.2006 09:44**

Hallo,

über das folgende Makro

******************************************************************************************************
' Anrede
If oDialog.getControl("txt_anrede").text="Herrn" Then
PutValue("Anrede", "Sehr geehrter Herr " + oDialog.getControl("txt_zuname").text + ",")

ElseIf oDialog.getControl("txt_anrede").text="Frau" Then
PutValue("Anrede", "Sehr geehrte Frau " + oDialog.getControl("txt_zuname").text + ",")

Else
PutValue("Anrede", "Sehr geehrte Damen und Herren,")
End If

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

erreiche ich, das bei der Briefanrede

Herrn, in der Anrede " sehr geehrter Herr "Name" erscheint.

bei der Briefanrede

Frau, in der Anrede " sehr geeehrte Frau "Name" erscheint.

Wie erweitere ich das Makro, dass bei der Briefanrede "Eheleute"

sehr geehrte Frau "Name", sehr geehrter Herr "Name" erscheint ?

mfg
mike6

Verfasst: **Di, 10.01.2006 14:34**

Einfach ein weiteres elseif anhängen.

elseif oDialog.getControl("txt_anrede").text="Eheleute" Then ...

oder

"select ... case" verwenden.

mfg
Michael

Verfasst: **Mi, 11.01.2006 10:17**

Hallo,

vielen Dank für den Tipp.

wie bereits unter

viewtopic.php?t=5722"

angeregt, hier der komplette Code.

'********************************************************
If oDialog.getControl("txt_anrede").text="Herrn" Then
PutValue("Anrede", "Sehr geehrter Herr " + oDialog.getControl("txt_zuname").text + ",")

ElseIf oDialog.getControl("txt_anrede").text="Frau" Then
PutValue("Anrede", "Sehr geehrte Frau " + oDialog.getControl("txt_zuname").text + ",")

ElseIf oDialog.getControl("txt_anrede").text="Eheleute" Then
PutValue("Anrede", "Sehr geehrte Frau " + oDialog.getControl("txt_zuname").text + ", sehr geehrter Herr " + oDialog.getControl("txt_zuname").text ,

Else
PutValue("Anrede", "Sehr geehrte Damen und Herren,")
End If
'********************************************************

mfg
mike6