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
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
Bitte markiere auch die Kommentare, die zur Lösung des Beitrags beigetragen haben
Content-ID: 113589
Url: https://administrator.de/forum/word-2003-formularsteuerung-ueber-vb-macros-113589.html
Ausgedruckt am: 23.12.2024 um 02:12 Uhr