Russian ComboBox Value

NobodysPerfect · #5 02-18-2014, 09:49 AM

As I always try not to use linked documents, I use my quick workaround for short terms:

Type the needed term in Word, select it and then call the following function.

Code:

Function GetUnicodeString(Optional UniCode As String) As String
Dim oData As New DataObject         'Link to Microsoft Forms 2.0 Object Library 
Dim i%
    
    If UniCode = "" Then UniCode = Selection
        For i = 1 To Len(UniCode)
            GetUnicodeString = GetUnicodeString & "ChrW(" & (AscW(Mid(UniCode, i, i))) & ") & "
        Next
        GetUnicodeString = Left(GetUnicodeString, Len(GetUnicodeString) - 3)
        
    With oData
        .SetText GetUnicodeString
        .PutInClipboard
    End With
    
    MsgBox "String in clipboard for use in VBA ...   ", vbOKOnly + vbInformation, "In Clipboard"

End Function

The "GetUnicodeString" function returns the corresponding ChrW()%ChrW()& ... string which can be pasted directly into the VBA code.

Only suitable for short strings in Userforms or ListBoxes, etc.

NP

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
combobox issue	Deepa Shrestha	Word	0	07-29-2013 09:47 PM
Typing in Russian	shekala	Outlook	0	11-12-2012 05:57 PM
ComboBox ListIndex = -1 even though it does NOT = -1	Joe Patrick	Word VBA	0	08-03-2011 08:34 AM
Code to export value from ComboBox	ilkks	Word VBA	7	05-25-2011 04:06 AM
Combobox manipulation	vsempoux	Word VBA	3	10-31-2009 08:58 AM