Hallo,
ich möchte mit Word 2003 eine Vorlage erstellen, bei der man über ein Dropdownfeld einen Ansprechpartner auswählt und automatisch die restlichen Daten wie z.B. Telefon, Email, Zimmernr, etc. ausgefüllt werden.
Für eure (hoffentlich schnelle) Hilfe bin euch sehr dankbar!
Hi Florian,
hier eine kleine Lösung.
Du gehst über Extras - Optionen - Makro - Visual Basic-Editor ins Visual Basic für Word, wählst mit Doppelklick das Projekt aus, in dem der Dateiname / Vorlagenname Deiner Vorlage steht (Bsp. Projekt(Dokument1)
Anschließend gehst Du in der Symbolleiste auf „Einfügen“ und wählst dort „Makro“ aus. Unter dem ausgewählten Projekt öffnet sich ein neuer „Ordner“ Namens „Module“ mit dem Unterpunkt Modul1.
Modul1 öffnest Du und fügst den untenstehenden Code ein.
Dropdown (Textmarkenname = Dropdown1) mit 3 Einträgen
Die Ergebnisse kommen in die Formularfelder „Text1“ (=Telefonnummer), „Text2“ (= Email) und „Text3“ (=Zimmernummer")
Sub beispiel()
nam = ActiveDocument.FormFields("Dropdown1").Result
If nam = "Max Müller" Then
tel = „0 12 34 / 56 78 - 90“
mail = „[email protected]“
zimnr = "1"ElseIf nam = „Mandy Mustermann“ Then
tel = „0 12 34 / 56 78 - 01“
mail = „[email protected]“
zimnr = "2"Else
tel = „0 12 34 / 56 78 - 23“
mail = „[email protected]“
zimnr = "3"End If
ActiveDocument.FormFields(„Text1“).Result = tel
ActiveDocument.FormFields(„Text2“).Result = mail
ActiveDocument.FormFields(„Text3“).Result = zimnr
End Sub
Nun gehst Du wieder zurück nach Word und fügst dort die geforderten Dropdownfelder und Formularfelder ein (natürlich je nach bedarf mehr od. weniger). Das Dropdownfeld, in welchem die Namensauswahl stattfinden soll, wählst Du mit Doppelklick aus und wählst unter „Makros ausführen bei“ die Option beenden aus. Dies bestätigst Du mit Ok.
Um das Makro ausführen zu können, muss das Dokument Schreibgeschützt sein!!!
Viel Spaß beim testen.
Wenn Du fragen hast, kannst Du mich gerne per Mail oder hier im Forum erreichen!
Schöne Grüße und schönen Abend noch
LadyN
[Bei dieser Antwort wurde das Vollzitat nachträglich automatisiert entfernt]