|
Hallo Forum,
ich bräuchte eure Hilfe bei einem Problem.
Folgendes will ich umsetzen:
Ich habe eine ComboBox in der ich zur Auswahl "conforms" und "not tested" habe, also Value dazu sind die russischen Wörter angegeben. Ziel des ganzen sollte sein, dass ich auf Englisch meine Auswahl treffe und in einer anderen ComboBox oder Textfeld erscheint das russische Wort dazu. Also Eingabe englisch, Ausgabe russisch, es handelt sich hierbei immer nur um die 2 Wörter.
Bisheriger Code:
Private Sub Document_ContentControlOnExit(ByVal ContentControl As ContentControl, Cancel As Boolean)
Dim rng As Range
Dim bm As Bookmark
Dim bmt As Bookmark
If (ContentControl.Type = wdContentControlComboBox) Then
Set rng = ContentControl.Range
Set bm = rng.Bookmarks(1)
Set bmt = ActiveDocument.Bookmarks(bm & "tgt")
ElseIf (ContentControl.Type = wdContentControlText) Then
End If
End Sub
Bmt steht in diesem Sinne für die Textmarke einer ComboBox bzw. eines Textfeldes.
Nun 2 Probleme:
Zum einen glaube ich, dass ich das durch eine 2. Combobox machen muss, da ich ja im VB selbst nicht mit russischen Ziffern arbeiten kann. Da entsteht aber nun das Problem: Wie kann ich die Indexauswahl der 1. Combobox (z.B. erste Auswahl gewählt) auf die 2. ComboBox übertragen? (Damit dort dann auch automatisch die 1. Auswahl getroffen wird)
|