Makro Frage
Verfasst: Mo, 20.12.2010 11:26
Hallo,
mit dem Code:
wähle ich aus dem Dropdownfeld cmb_vgv eine Adresse aus. Die entsprechenden Daten, die an der Adresse hängen, wie strasse, plz und Ort werden automatisch in die Feldbefehle geschrieben.
Nun möchte ich zusätzlich aus einem Dropdownfeld noch einen Bearbeiter wählen. Auch hier sollen die Daten, die am Bearbeiter hängen, wie Tel-Nr., email, und Fax-Nr. automatisch in die jeweiligen Feldbefehle [ Einfügen / Feldbefehl / Variablen ] geschrieben werden.
Wie ergänze ich den Code?
mit dem Code:
Code: Alles auswählen
Sub DatenInBrief
Dim oForm as Object
Dim oForms as Object
Dim oDocument as Object
Dim DocCtl as Object
Dim oObj as Object
Dim oCheckBox as Object
'Dokument holen
oDocument = thisComponent
DocCtl = oDocument.getCurrentController()
oForms = oDocument.Drawpage.Forms
'oForm = oForms.getByIndex(0)
oDoc = thisComponent
Dim address(4)
address() = split(oD1.getControl("cmb_vgv").Text, ",")
ChangeVariable(oDoc, "adresse_vgv", address(0) + " " + address(1))
ChangeVariable(oDoc, "adresse_strasse", address(2))
ChangeVariable(oDoc, "adresse_plz", address(3))
ChangeVariable(oDoc, "adresse_ort", address(4))
Nun möchte ich zusätzlich aus einem Dropdownfeld noch einen Bearbeiter wählen. Auch hier sollen die Daten, die am Bearbeiter hängen, wie Tel-Nr., email, und Fax-Nr. automatisch in die jeweiligen Feldbefehle [ Einfügen / Feldbefehl / Variablen ] geschrieben werden.
Wie ergänze ich den Code?