View Single Post
 
Old 02-17-2014, 03:11 AM
KKChris KKChris is offline Windows 8 Office 2010 32bit
Novice
 
Join Date: Feb 2014
Posts: 2
KKChris is on a distinguished road
Default Russian ComboBox Value

Hi Forum,
I need your help.
I have got a ComboBox with 2 entries “conforms” and “not tested” and die Values are Russian words. The goal is to select the words in English and get the Russian words as output.

Code at the moment:
Code:
  PrivateSubDocument_ContentControlOnExit(ByValContentControl AsContentControl, Cancel AsBoolean)
      Dimrng AsRange
      Dimbm AsBookmark
      Dimbmt AsBookmark
  
  
      If(ContentControl.Type = wdContentControlComboBox) Then
          Setrng = ContentControl.Range
          Setbm = rng.Bookmarks(1)
          Setbmt = ActiveDocument.Bookmarks(bm & "tgt")
  
  
      ElseIf(ContentControl.Type = wdContentControlText) Then
  
      EndIf
  
  EndSub


Bmt stands for the Combobox/Textfield – Textmark.
Now I got 2 problems.
On the one hand, I believe that I have to solve that problem by using a second ComboBox, cause I can’t work with Russian letters in VBA. On the other hand: How can I get the Indexchoice from the first ComboBox in a second one? Look at the image for more information.


Reply With Quote