ghost-in-the-shell
Goto Top

Word 2003 Formularsteuerung über VB-Macros ?!

Servus Community,
Ich habe ein warscheinlich "kleines" Problem mit Variablen Typen in der VBA-Macroprogrammierung eines Word-Formulars.

Kurz die Funktionsweise vorweg:

Ich habe einen Brief mit Formular-Dropdownfed("Name") als Unterschrift für den Brief mit ca 10 verschiedenen Nutzernamen erstellt.

Wenn jetzt der Nutzer seine unterschrift unten über das Dropdownfeld ändert möchte ich
das folgende Textformularfelder entsprechend geändert werden: Zeichen, Email, Durchwahl.

Dazu habe ich ein Macro aufgezeichnet (Macro1) und in dem VB-Editor folgenden Code eingefügt:

Sub Makro1()

Select Case ActiveDocument.FormFields("Name").Result
Case Is = "User1"
ActiveDocument.FormFields("Zeichen").Result = "U1"
ActiveDocument.FormFields("Email").Result = "user1@domain.de"
ActiveDocument.FormFields("Durchwahl").Result = " 11"
Case Is = "User2"
ActiveDocument.FormFields("Zeichen").Result = "U2"
ActiveDocument.FormFields("Email").Result = "user2@domain.de"
ActiveDocument.FormFields("Durchwahl").Result = " 22"

...

End Select
End Sub

Das Macro habe ich in dem Dropdownelement als "Ausfüren bei Ereignis und Beenden" hinterlegt.
Eine "OnChange"-Routine gibt es ja scheinbar nicht für die Formulardropdownfelder oder?!

Das Problem ist das die Select Case - Anweisung nicht ausgewertet wird.
Ich vermute das ich einen Fehler in den Ausdrücken habe.
Es wäre schön wenn mir einer von euch helfen könnte den Syntax zu korrigieren.

LG

Marcel

Content-Key: 113589

Url: https://administrator.de/contentid/113589

Printed on: April 25, 2024 at 01:04 o'clock