Convert font VNI sang UNI trong ACCESS!

[doantel]

Mình có một đoạn code VBA để convert fonts VNI sang UNICODE.
Nhưng mình không biết cách up file trong diễn đàn này.
Các PRO chỉ cho cách UP file với. Bác nào có nhu cầu gửi mail cho mình nhé: haquocquanln@vnn.vn hoặc quanhqvbspln@gmail.com

View more random threads:

• Vấn đề ngày tháng trong Access
• [Hỏi] Lấy hàng được bán nhiều nhất mỗi quý
• Mã hóa trong Access !
• Trang web học Access.
• giúp em sử dụng đoạn code này với!!!
• Chạy 1 function vbscript trong Access???
• Ai giúp mình với nhỉ? Sao không ai giúp vậy :(
• Tính toán và đăng nhập thời gian như nào?
• Làm sao để tính số lượng sách của 1 mã sách còn lại trong thư viện. ac ơi..giúp e với
• Hỏi về cách tô màu từ tìm kiếm và mở 1 form mới từ form trước đó

[thuthunga]

Ðề: Convert font VNI sang UNI trong ACCESS!

Mình đánh giá cao chia sẻ của bạn, nhưng Mình nghĩ bạn nên up lên 1 host free nào đó rồi share cho mọi người sẽ hay hơn (ví dụ http://www.mediafire.com), tránh spam vô ích!

[daothuhuyen93]

Ðề: Convert font VNI sang UNI trong ACCESS!

Mình có một đoạn code VBA để convert fonts VNI sang UNICODE.
Nhưng mình không biết cách up file trong diễn đàn này.
Các PRO chỉ cho cách UP file với. Bác nào có nhu cầu gửi mail cho mình nhé: haquocquanln@vnn.vn hoặc quanhqvbspln@gmail.com

Ngoài ra, nếu là code VBA thì bạn có thể coy rồi paste thẳng vào Diễn Đàn.

[incomviet]

Ðề: Convert font VNI sang UNI trong ACCESS!

Mình có một đoạn code VBA để convert fonts VNI sang UNICODE.
Nhưng mình không biết cách up file trong diễn đàn này.
Các PRO chỉ cho cách UP file với. Bác nào có nhu cầu gửi mail cho mình nhé: haquocquanln@vnn.vn hoặc quanhqvbspln@gmail.com

bạn hiểu sai về font rồi. unicode là bảng mã chứ không phải Font nhé bạn, font VNI thì đi kèm với bảng mã viniwindows, font .vntime-> TCVN3 (ABC), font time newroman đi kèm bảng mã Unicode. hiểu rỏ được vấn đề này tự nhiên bản sẽ chuyển qua lại được giữa các bảng mã với nhau.
bạn cứ gửi đoạn code qua mail lychicao@yahoo.com, mình sẽ chuyển rồi gửi lại cho bạn, chỉ cần thao tác 30 s là xong.
các bạn nào có yêu cầu chuyển font chử qua lại , bài sao mình sẽ hướng dẫn cách chuyển.

[vipthuhuongictu]

Ðề: Convert font VNI sang UNI trong ACCESS!

Code đây các bạn:

Public Function ConvertToUnicode(sText As String, Optional InHoa As Boolean)
    Dim i As Integer, j As Integer
    Dim sCurChar As String, sPreChar As String, sPreTxt As String
    For j = 1 To 2
        For i = 2 To Len(sText)
            sCurChar = mID(sText, i, 1)
            sPreTxt = Left(sText, i - 2)
            sPreChar = mID(sText, i - 1, 1)
            Select Case sCurChar
                Case "1"
                    Select Case sPreChar
                        'a
                        Case "a": sText = sPreTxt & ChrW$(&HE1) & Right(sText, Len(sText) - i)
                        Case "A": sText = sPreTxt & ChrW$(&HC1) & Right(sText, Len(sText) - i)
                        Case ChrW$(&HE2): sText = sPreTxt & ChrW$(&H1EA5) & Right(sText, Len(sText) - i)
                        Case ChrW$(&HC2): sText = sPreTxt & ChrW$(&H1EA4) & Right(sText, Len(sText) - i)
                        Case ChrW$(&H103): sText = sPreTxt & ChrW$(&H1EAF) & Right(sText, Len(sText) - i)
                        Case ChrW$(&H102): sText = sPreTxt & ChrW$(&H1EAE) & Right(sText, Len(sText) - i)

                        'e
                        Case "e": sText = sPreTxt & ChrW$(&HE9) & Right(sText, Len(sText) - i)
                        Case "E": sText = sPreTxt & ChrW$(&HC9) & Right(sText, Len(sText) - i)
                        Case ChrW$(&HEA): sText = sPreTxt & ChrW$(&H1EBF) & Right(sText, Len(sText) - i)
                        Case ChrW$(&HCA): sText = sPreTxt & ChrW$(&H1EBE) & Right(sText, Len(sText) - i)

                        'i
                        Case "i": sText = sPreTxt & ChrW$(&HED) & Right(sText, Len(sText) - i)
                        Case "I": sText = sPreTxt & ChrW$(&HCD) & Right(sText, Len(sText) - i)

                        'o
                        Case "o": sText = sPreTxt & ChrW$(&HF3) & Right(sText, Len(sText) - i)
                        Case "O": sText = sPreTxt & ChrW$(&HD3) & Right(sText, Len(sText) - i)
                        Case ChrW$(&HF4): sText = sPreTxt & ChrW$(&H1ED1) & Right(sText, Len(sText) - i)
                        Case ChrW$(&HD4): sText = sPreTxt & ChrW$(&H1ED0) & Right(sText, Len(sText) - i)
                        Case ChrW$(&H1A1): sText = sPreTxt & ChrW$(&H1EDB) & Right(sText, Len(sText) - i)
                        Case ChrW$(&H1A0): sText = sPreTxt & ChrW$(&H1EDA) & Right(sText, Len(sText) - i)

                        'u
                        Case "u": sText = sPreTxt & ChrW$(&HFA) & Right(sText, Len(sText) - i)
                        Case "U": sText = sPreTxt & ChrW$(&HDA) & Right(sText, Len(sText) - i)
                        Case ChrW$(&H1B0): sText = sPreTxt & ChrW$(&H1EE9) & Right(sText, Len(sText) - i)
                        Case ChrW$(&H1AF): sText = sPreTxt & ChrW$(&H1EE8) & Right(sText, Len(sText) - i)

                        'y
                        Case "y": sText = sPreTxt & ChrW$(&HFD) & Right(sText, Len(sText) - i)
                        Case "Y": sText = sPreTxt & ChrW$(&HDD) & Right(sText, Len(sText) - i)

                    End Select

                Case "2"
                    Select Case sPreChar
                        'a
                        Case "a": sText = sPreTxt & ChrW$(&HE0) & Right(sText, Len(sText) - i)
                        Case "A": sText = sPreTxt & ChrW$(&HC0) & Right(sText, Len(sText) - i)
                        Case ChrW$(&HE2): sText = sPreTxt & ChrW$(&H1EA7) & Right(sText, Len(sText) - i)
                        Case ChrW$(&HC2): sText = sPreTxt & ChrW$(&H1EA6) & Right(sText, Len(sText) - i)
                        Case ChrW$(&H103): sText = sPreTxt & ChrW$(&H1EB1) & Right(sText, Len(sText) - i)
                        Case ChrW$(&H102): sText = sPreTxt & ChrW$(&H1EB0) & Right(sText, Len(sText) - i)

                        'e
                        Case "e": sText = sPreTxt & ChrW$(&HE8) & Right(sText, Len(sText) - i)
                        Case "E": sText = sPreTxt & ChrW$(&HC8) & Right(sText, Len(sText) - i)
                        Case ChrW$(&HEA): sText = sPreTxt & ChrW$(&H1EC1) & Right(sText, Len(sText) - i)
                        Case ChrW$(&HCA): sText = sPreTxt & ChrW$(&H1EC0) & Right(sText, Len(sText) - i)

                        'i
                        Case "i": sText = sPreTxt & ChrW$(&HEC) & Right(sText, Len(sText) - i)
                        Case "I": sText = sPreTxt & ChrW$(&HCC) & Right(sText, Len(sText) - i)

                        'o
                        Case "o": sText = sPreTxt & ChrW$(&HF2) & Right(sText, Len(sText) - i)
                        Case "O": sText = sPreTxt & ChrW$(&HD2) & Right(sText, Len(sText) - i)
                        Case ChrW$(&HF4): sText = sPreTxt & ChrW$(&H1ED3) & Right(sText, Len(sText) - i)
                        Case ChrW$(&HD4): sText = sPreTxt & ChrW$(&H1ED2) & Right(sText, Len(sText) - i)
                        Case ChrW$(&H1A1): sText = sPreTxt & ChrW$(&H1EDD) & Right(sText, Len(sText) - i)
                        Case ChrW$(&H1A0): sText = sPreTxt & ChrW$(&H1EDC) & Right(sText, Len(sText) - i)

                        'u
                        Case "u": sText = sPreTxt & ChrW$(&HF9) & Right(sText, Len(sText) - i)
                        Case "U": sText = sPreTxt & ChrW$(&HD9) & Right(sText, Len(sText) - i)
                        Case ChrW$(&H1B0): sText = sPreTxt & ChrW$(&H1EEB) & Right(sText, Len(sText) - i)
                        Case ChrW$(&H1AF): sText = sPreTxt & ChrW$(&H1EEA) & Right(sText, Len(sText) - i)

                        'y
                        Case "y": sText = sPreTxt & ChrW$(&H1EF3) & Right(sText, Len(sText) - i)
                        Case "Y": sText = sPreTxt & ChrW$(&H1EF2) & Right(sText, Len(sText) - i)

                    End Select

                Case "3"
                    Select Case sPreChar
                        'a
                        Case "a": sText = sPreTxt & ChrW$(&H1EA3) & Right(sText, Len(sText) - i)
                        Case "A": sText = sPreTxt & ChrW$(&H1EA2) & Right(sText, Len(sText) - i)
                        Case ChrW$(&HE2): sText = sPreTxt & ChrW$(&H1EA9) & Right(sText, Len(sText) - i)
                        Case ChrW$(&HC2): sText = sPreTxt & ChrW$(&H1EA8) & Right(sText, Len(sText) - i)
                        Case ChrW$(&H103): sText = sPreTxt & ChrW$(&H1EB3) & Right(sText, Len(sText) - i)
                        Case ChrW$(&H102): sText = sPreTxt & ChrW$(&H1EB2) & Right(sText, Len(sText) - i)

                        'e
                        Case "e": sText = sPreTxt & ChrW$(&H1EBB) & Right(sText, Len(sText) - i)
                        Case "E": sText = sPreTxt & ChrW$(&H1EBA) & Right(sText, Len(sText) - i)
                        Case ChrW$(&HEA): sText = sPreTxt & ChrW$(&H1EC3) & Right(sText, Len(sText) - i)
                        Case ChrW$(&HCA): sText = sPreTxt & ChrW$(&H1EC2) & Right(sText, Len(sText) - i)

                        'i
                        Case "i": sText = sPreTxt & ChrW$(&H1EC9) & Right(sText, Len(sText) - i)
                        Case "I": sText = sPreTxt & ChrW$(&H1EC8) & Right(sText, Len(sText) - i)

                        'o
                        Case "o": sText = sPreTxt & ChrW$(&H1ECF) & Right(sText, Len(sText) - i)
                        Case "O": sText = sPreTxt & ChrW$(&H1ECE) & Right(sText, Len(sText) - i)
                        Case ChrW$(&HF4): sText = sPreTxt & ChrW$(&H1ED5) & Right(sText, Len(sText) - i)
                        Case ChrW$(&HD4): sText = sPreTxt & ChrW$(&H1ED4) & Right(sText, Len(sText) - i)
                        Case ChrW$(&H1A1): sText = sPreTxt & ChrW$(&H1EDF) & Right(sText, Len(sText) - i)
                        Case ChrW$(&H1A0): sText = sPreTxt & ChrW$(&H1EDE) & Right(sText, Len(sText) - i)

                        'u
                        Case "u": sText = sPreTxt & ChrW$(&H1EE7) & Right(sText, Len(sText) - i)
                        Case "U": sText = sPreTxt & ChrW$(&H1EE6) & Right(sText, Len(sText) - i)
                        Case ChrW$(&H1B0): sText = sPreTxt & ChrW$(&H1EED) & Right(sText, Len(sText) - i)
                        Case ChrW$(&H1AF): sText = sPreTxt & ChrW$(&H1EEC) & Right(sText, Len(sText) - i)

                        'y
                        Case "y": sText = sPreTxt & ChrW$(&H1EF7) & Right(sText, Len(sText) - i)
                        Case "Y": sText = sPreTxt & ChrW$(&H1EF6) & Right(sText, Len(sText) - i)

                    End Select

                Case "4"
                    Select Case sPreChar
                        'a
                        Case "a": sText = sPreTxt & ChrW$(&HE3) & Right(sText, Len(sText) - i)
                        Case "A": sText = sPreTxt & ChrW$(&HC3) & Right(sText, Len(sText) - i)
                        Case ChrW$(&HE2): sText = sPreTxt & ChrW$(&H1EAB) & Right(sText, Len(sText) - i)
                        Case ChrW$(&HC2): sText = sPreTxt & ChrW$(&H1EAA) & Right(sText, Len(sText) - i)
                        Case ChrW$(&H103): sText = sPreTxt & ChrW$(&H1EB5) & Right(sText, Len(sText) - i)
                        Case ChrW$(&H102): sText = sPreTxt & ChrW$(&H1EB4) & Right(sText, Len(sText) - i)

                        'e
                        Case "e": sText = sPreTxt & ChrW$(&H1EBD) & Right(sText, Len(sText) - i)
                        Case "E": sText = sPreTxt & ChrW$(&H1EBC) & Right(sText, Len(sText) - i)
                        Case ChrW$(&HEA): sText = sPreTxt & ChrW$(&H1EC5) & Right(sText, Len(sText) - i)
                        Case ChrW$(&HCA): sText = sPreTxt & ChrW$(&H1EC4) & Right(sText, Len(sText) - i)

                        'i
                        Case "i": sText = sPreTxt & ChrW$(&H129) & Right(sText, Len(sText) - i)
                        Case "I": sText = sPreTxt & ChrW$(&H128) & Right(sText, Len(sText) - i)

                        'o
                        Case "o": sText = sPreTxt & ChrW$(&HF5) & Right(sText, Len(sText) - i)
                        Case "O": sText = sPreTxt & ChrW$(&HD5) & Right(sText, Len(sText) - i)
                        Case ChrW$(&HF4): sText = sPreTxt & ChrW$(&H1ED7) & Right(sText, Len(sText) - i)
                        Case ChrW$(&HD4): sText = sPreTxt & ChrW$(&H1ED6) & Right(sText, Len(sText) - i)
                        Case ChrW$(&H1A1): sText = sPreTxt & ChrW$(&H1EE1) & Right(sText, Len(sText) - i)
                        Case ChrW$(&H1A0): sText = sPreTxt & ChrW$(&H1EE0) & Right(sText, Len(sText) - i)

                        'u
                        Case "u": sText = sPreTxt & ChrW$(&H169) & Right(sText, Len(sText) - i)
                        Case "U": sText = sPreTxt & ChrW$(&H168) & Right(sText, Len(sText) - i)
                        Case ChrW$(&H1B0): sText = sPreTxt & ChrW$(&H1EEF) & Right(sText, Len(sText) - i)
                        Case ChrW$(&H1AF): sText = sPreTxt & ChrW$(&H1EEE) & Right(sText, Len(sText) - i)

                        'y
                        Case "y": sText = sPreTxt & ChrW$(&H1EF9) & Right(sText, Len(sText) - i)
                        Case "Y": sText = sPreTxt & ChrW$(&H1EF8) & Right(sText, Len(sText) - i)
                    End Select

                Case "5"
                    Select Case sPreChar
                        'a
                        Case "a": sText = sPreTxt & ChrW$(&H1EA1) & Right(sText, Len(sText) - i)
                        Case "A": sText = sPreTxt & ChrW$(&H1EA0) & Right(sText, Len(sText) - i)
                        Case ChrW$(&HE2): sText = sPreTxt & ChrW$(&H1EAD) & Right(sText, Len(sText) - i)
                        Case ChrW$(&HC2): sText = sPreTxt & ChrW$(&H1EAC) & Right(sText, Len(sText) - i)
                        Case ChrW$(&H103): sText = sPreTxt & ChrW$(&H1EB7) & Right(sText, Len(sText) - i)
                        Case ChrW$(&H102): sText = sPreTxt & ChrW$(&H1EB6) & Right(sText, Len(sText) - i)

                        'e
                        Case "e": sText = sPreTxt & ChrW$(&H1EB9) & Right(sText, Len(sText) - i)
                        Case "E": sText = sPreTxt & ChrW$(&H1EB8) & Right(sText, Len(sText) - i)
                        Case ChrW$(&HEA): sText = sPreTxt & ChrW$(&H1EC7) & Right(sText, Len(sText) - i)
                        Case ChrW$(&HCA): sText = sPreTxt & ChrW$(&H1EC6) & Right(sText, Len(sText) - i)

                        'i
                        Case "i": sText = sPreTxt & ChrW$(&H1ECB) & Right(sText, Len(sText) - i)
                        Case "I": sText = sPreTxt & ChrW$(&H1ECA) & Right(sText, Len(sText) - i)

                        'o
                        Case "o": sText = sPreTxt & ChrW$(&H1ECD) & Right(sText, Len(sText) - i)
                        Case "O": sText = sPreTxt & ChrW$(&H1ECC) & Right(sText, Len(sText) - i)
                        Case ChrW$(&HF4): sText = sPreTxt & ChrW$(&H1ED9) & Right(sText, Len(sText) - i)
                        Case ChrW$(&HD4): sText = sPreTxt & ChrW$(&H1ED8) & Right(sText, Len(sText) - i)
                        Case ChrW$(&H1A1): sText = sPreTxt & ChrW$(&H1EE3) & Right(sText, Len(sText) - i)
                        Case ChrW$(&H1A0): sText = sPreTxt & ChrW$(&H1EE2) & Right(sText, Len(sText) - i)

                        'u
                        Case "u": sText = sPreTxt & ChrW$(&H1EE5) & Right(sText, Len(sText) - i)
                        Case "U": sText = sPreTxt & ChrW$(&H1EE4) & Right(sText, Len(sText) - i)
                        Case ChrW$(&H1B0): sText = sPreTxt & ChrW$(&H1EF1) & Right(sText, Len(sText) - i)
                        Case ChrW$(&H1AF): sText = sPreTxt & ChrW$(&H1EF0) & Right(sText, Len(sText) - i)

                        'y
                        Case "y": sText = sPreTxt & ChrW$(&H1EF5) & Right(sText, Len(sText) - i)
                        Case "Y": sText = sPreTxt & ChrW$(&H1EF4) & Right(sText, Len(sText) - i)
                    End Select

                Case "6"
                    Select Case sPreChar
                        'a
                        Case "a": sText = sPreTxt & ChrW$(&HE2) & Right(sText, Len(sText) - i)
                        Case "A": sText = sPreTxt & ChrW$(&HC2) & Right(sText, Len(sText) - i)

                        'e
                        Case "e": sText = sPreTxt & ChrW$(&HEA) & Right(sText, Len(sText) - i)
                        Case "E": sText = sPreTxt & ChrW$(&HCA) & Right(sText, Len(sText) - i)

                        'o
                        Case "o": sText = sPreTxt & ChrW$(&HF4) & Right(sText, Len(sText) - i)
                        Case "O": sText = sPreTxt & ChrW$(&HD4) & Right(sText, Len(sText) - i)
                    End Select

                Case "7"
                    Select Case sPreChar
                        'o
                        Case "o": sText = sPreTxt & ChrW$(&H1A1) & Right(sText, Len(sText) - i)
                        Case "O": sText = sPreTxt & ChrW$(&H1A0) & Right(sText, Len(sText) - i)

                        'u
                        Case "u": sText = sPreTxt & ChrW$(&H1B0) & Right(sText, Len(sText) - i)
                        Case "U": sText = sPreTxt & ChrW$(&H1AF) & Right(sText, Len(sText) - i)
                    End Select

                Case "8"
                    Select Case sPreChar
                        'a
                        Case "a": sText = sPreTxt & ChrW$(&H103) & Right(sText, Len(sText) - i)
                        Case "A": sText = sPreTxt & ChrW$(&H102) & Right(sText, Len(sText) - i)
                    End Select

                Case "9"
                    Select Case sPreChar
                        'd
                        Case "d": sText = sPreTxt & ChrW$(&H111) & Right(sText, Len(sText) - i)
                        Case "D": sText = sPreTxt & ChrW$(&H110) & Right(sText, Len(sText) - i)
                    End Select

            End Select
        Next i
    Next j
    If InHoa Then
        ConvertToUnicode = UCase(sText)
    Else
        ConvertToUnicode = sText
    End If
End Function

-----------------------------------------------------------------------------------------
Đoạn code này mình cũng sưu tầm được trên net, mình đã cho thêm tham số InHoa để convert ra chữ hoa. Tuy nhiên có một điều lạ là nguyên bản của hàm (chưa thêm tham số InHoa) đã chuyển được cả chữ hoa và chữ thường nếu code trong môi trường VBA của Excel hoặc word.
VD:
ConvertToUnicode("Co65ng hoa2 xa4 ho65i chu3 nghi4a vie65t nam") -> "Cộng hòa xã hội chủ nghĩa việt nam"

ConvertToUnicode("CO65NG HOA2 XA4 HO65I CHU3 NGHI4A VIE65T NAM") -> "CỘNG HÒA XÃ HỘI CHỦ NGHĨA VIỆT NAM"

Còn trong Access thì:

ConvertToUnicode("Co65ng hoa2 xa4 ho65i chu3 nghi4a vie65t nam") -> "Cộng hòa xã hội chủ nghĩa việt nam"

ConvertToUnicode("CO65NG HOA2 XA4 HO65I CHU3 NGHI4A VIE65T NAM") -> "CộNG HOà Xã HộI CHủ NGHĩA VIệT NAM"

Các pro nghiên cứu và giải thích giùm nhé

[tungbkhd]

Ðề: Convert font VNI sang UNI trong ACCESS!

Xin lỗi nhé, mình nhầm mất.
Đoạn code của mình là chuyển từ VNI-DOS (chứ không phải VNI-WIN) sang UNICODE. Các PRO có code chuyển TCVN3 - UNICODE, UNICODE - TCVN3 cho mình xin nhé.
Code: VNI-DOS, VRES sang UNICODE

Option Compare Database 

Public Function VNI_UNI(chuoi) 
Dim st As String 
Dim a As Byte 
If Len(Trim(chuoi)) < 1 Or IsNull(chuoi) Then 
VNI_UNI = "" 
Else 
st = "" 
For i = 1 To Len(Trim(chuoi)) 
st = st + Ascii_text(Right(Left(chuoi, i), 1)) 
Next 
VNI_UNI = ConvertToUnicode(st) 
End If 

End Function 

Public Function Ascii_text(ch As String) 
VNIarray = Array(97, 225, 224, 945, 223, 915, 226, 960, 931, 963, 181, 964, 934, 920, 937, 948, 8734, 966, 101, 233, 232, 252, 228, 229, 234, 235, 239, 196, 197, 188, 111, 243, 242, 230, 198, 246, 244, 251, 255, 214, 220, 162, 8804, 8992, 8993, 247, 8776, 176, 105, 237, 238, 8976, 172, 189, 121, 949, 8745, 8801, 177, 8805, 161, 117, 250, 249, 163, 165, 8359, 402, 241, 209, 170, 186, 191, 171, 178, 8319, 8729, 9632, 8730, 183) 
UNIarray = Array("a", "a1", "a2", "a3", "a4", "a5", "a6", "a61", "a62", "a63", "a64", "a65", "a8", "a81", "a82", "a83", "a84", "a85", "e", "e1", "e2", "e3", "e4", "e5", "e6", "e61", "e62", "e63", "e64", "e65", "o", "o1", "o2", "o3", "o4", "o5", "o6", "o61", "o62", "o63", "o64", "o65", "o7", "o71", "o72", "o73", "o74", "o75", "i", "i1", "i2", "i3", "i4", "i5", "y", "y1", "y2", "y3", "y4", "y5", "d9", "u", "u1", "u2", "u3", "u4", "u5", "u7", "u71", "u72", "u73", "u74", "u75", "D9", "A6", "A8", "O6", "E6", "U7", "O7") 
For i = 0 To 79 
If AscW(ch) = VNIarray(i) Then 
ch = UNIarray(i) 
End If 
Next 
Ascii_text = ch 
End Function 

Public Function ConvertToUnicode(sText As String) 
Dim i As Integer, j As Integer 
Dim sCurChar As String, sPreChar As String, sPreTxt As String 
For j = 1 To 2 
For i = 2 To Len(sText) 
sCurChar = Mid(sText, i, 1) 
sPreTxt = Left(sText, i - 2) 
sPreChar = Mid(sText, i - 1, 1) 
Select Case sCurChar 
Case "1" 
Select Case sPreChar 
'a 
Case "a": sText = sPreTxt & ChrW$(&HE1) & Right(sText, Len(sText) - i) 
Case "A": sText = sPreTxt & ChrW$(&HC1) & Right(sText, Len(sText) - i) 
Case ChrW$(&HE2): sText = sPreTxt & ChrW$(&H1EA5) & Right(sText, Len(sText) - i) 
Case ChrW$(&HC2): sText = sPreTxt & ChrW$(&H1EA4) & Right(sText, Len(sText) - i) 
Case ChrW$(&H103): sText = sPreTxt & ChrW$(&H1EAF) & Right(sText, Len(sText) - i) 
Case ChrW$(&H102): sText = sPreTxt & ChrW$(&H1EAE) & Right(sText, Len(sText) - i) 

'e 
Case "e": sText = sPreTxt & ChrW$(&HE9) & Right(sText, Len(sText) - i) 
Case "E": sText = sPreTxt & ChrW$(&HC9) & Right(sText, Len(sText) - i) 
Case ChrW$(&HEA): sText = sPreTxt & ChrW$(&H1EBF) & Right(sText, Len(sText) - i) 
Case ChrW$(&HCA): sText = sPreTxt & ChrW$(&H1EBE) & Right(sText, Len(sText) - i) 

'i 
Case "i": sText = sPreTxt & ChrW$(&HED) & Right(sText, Len(sText) - i) 
Case "I": sText = sPreTxt & ChrW$(&HCD) & Right(sText, Len(sText) - i) 

'o 
Case "o": sText = sPreTxt & ChrW$(&HF3) & Right(sText, Len(sText) - i) 
Case "O": sText = sPreTxt & ChrW$(&HD3) & Right(sText, Len(sText) - i) 
Case ChrW$(&HF4): sText = sPreTxt & ChrW$(&H1ED1) & Right(sText, Len(sText) - i) 
Case ChrW$(&HD4): sText = sPreTxt & ChrW$(&H1ED0) & Right(sText, Len(sText) - i) 
Case ChrW$(&H1A1): sText = sPreTxt & ChrW$(&H1EDB) & Right(sText, Len(sText) - i) 
Case ChrW$(&H1A0): sText = sPreTxt & ChrW$(&H1EDA) & Right(sText, Len(sText) - i) 

'u 
Case "u": sText = sPreTxt & ChrW$(&HFA) & Right(sText, Len(sText) - i) 
Case "U": sText = sPreTxt & ChrW$(&HDA) & Right(sText, Len(sText) - i) 
Case ChrW$(&H1B0): sText = sPreTxt & ChrW$(&H1EE9) & Right(sText, Len(sText) - i) 
Case ChrW$(&H1AF): sText = sPreTxt & ChrW$(&H1EE8) & Right(sText, Len(sText) - i) 

'y 
Case "y": sText = sPreTxt & ChrW$(&HFD) & Right(sText, Len(sText) - i) 
Case "Y": sText = sPreTxt & ChrW$(&HDD) & Right(sText, Len(sText) - i) 

End Select 

Case "2" 
Select Case sPreChar 
'a 
Case "a": sText = sPreTxt & ChrW$(&HE0) & Right(sText, Len(sText) - i) 
Case "A": sText = sPreTxt & ChrW$(&HC0) & Right(sText, Len(sText) - i) 
Case ChrW$(&HE2): sText = sPreTxt & ChrW$(&H1EA7) & Right(sText, Len(sText) - i) 
Case ChrW$(&HC2): sText = sPreTxt & ChrW$(&H1EA6) & Right(sText, Len(sText) - i) 
Case ChrW$(&H103): sText = sPreTxt & ChrW$(&H1EB1) & Right(sText, Len(sText) - i) 
Case ChrW$(&H102): sText = sPreTxt & ChrW$(&H1EB0) & Right(sText, Len(sText) - i) 

'e 
Case "e": sText = sPreTxt & ChrW$(&HE8) & Right(sText, Len(sText) - i) 
Case "E": sText = sPreTxt & ChrW$(&HC8) & Right(sText, Len(sText) - i) 
Case ChrW$(&HEA): sText = sPreTxt & ChrW$(&H1EC1) & Right(sText, Len(sText) - i) 
Case ChrW$(&HCA): sText = sPreTxt & ChrW$(&H1EC0) & Right(sText, Len(sText) - i) 

'i 
Case "i": sText = sPreTxt & ChrW$(&HEC) & Right(sText, Len(sText) - i) 
Case "I": sText = sPreTxt & ChrW$(&HCC) & Right(sText, Len(sText) - i) 

'o 
Case "o": sText = sPreTxt & ChrW$(&HF2) & Right(sText, Len(sText) - i) 
Case "O": sText = sPreTxt & ChrW$(&HD2) & Right(sText, Len(sText) - i) 
Case ChrW$(&HF4): sText = sPreTxt & ChrW$(&H1ED3) & Right(sText, Len(sText) - i) 
Case ChrW$(&HD4): sText = sPreTxt & ChrW$(&H1ED2) & Right(sText, Len(sText) - i) 
Case ChrW$(&H1A1): sText = sPreTxt & ChrW$(&H1EDD) & Right(sText, Len(sText) - i) 
Case ChrW$(&H1A0): sText = sPreTxt & ChrW$(&H1EDC) & Right(sText, Len(sText) - i) 

'u 
Case "u": sText = sPreTxt & ChrW$(&HF9) & Right(sText, Len(sText) - i) 
Case "U": sText = sPreTxt & ChrW$(&HD9) & Right(sText, Len(sText) - i) 
Case ChrW$(&H1B0): sText = sPreTxt & ChrW$(&H1EEB) & Right(sText, Len(sText) - i) 
Case ChrW$(&H1AF): sText = sPreTxt & ChrW$(&H1EEA) & Right(sText, Len(sText) - i) 

'y 
Case "y": sText = sPreTxt & ChrW$(&H1EF3) & Right(sText, Len(sText) - i) 
Case "Y": sText = sPreTxt & ChrW$(&H1EF2) & Right(sText, Len(sText) - i) 

End Select 

Case "3" 
Select Case sPreChar 
'a 
Case "a": sText = sPreTxt & ChrW$(&H1EA3) & Right(sText, Len(sText) - i) 
Case "A": sText = sPreTxt & ChrW$(&H1EA2) & Right(sText, Len(sText) - i) 
Case ChrW$(&HE2): sText = sPreTxt & ChrW$(&H1EA9) & Right(sText, Len(sText) - i) 
Case ChrW$(&HC2): sText = sPreTxt & ChrW$(&H1EA8) & Right(sText, Len(sText) - i) 
Case ChrW$(&H103): sText = sPreTxt & ChrW$(&H1EB3) & Right(sText, Len(sText) - i) 
Case ChrW$(&H102): sText = sPreTxt & ChrW$(&H1EB2) & Right(sText, Len(sText) - i) 

'e 
Case "e": sText = sPreTxt & ChrW$(&H1EBB) & Right(sText, Len(sText) - i) 
Case "E": sText = sPreTxt & ChrW$(&H1EBA) & Right(sText, Len(sText) - i) 
Case ChrW$(&HEA): sText = sPreTxt & ChrW$(&H1EC3) & Right(sText, Len(sText) - i) 
Case ChrW$(&HCA): sText = sPreTxt & ChrW$(&H1EC2) & Right(sText, Len(sText) - i) 

'i 
Case "i": sText = sPreTxt & ChrW$(&H1EC9) & Right(sText, Len(sText) - i) 
Case "I": sText = sPreTxt & ChrW$(&H1EC8) & Right(sText, Len(sText) - i) 

'o 
Case "o": sText = sPreTxt & ChrW$(&H1ECF) & Right(sText, Len(sText) - i) 
Case "O": sText = sPreTxt & ChrW$(&H1ECE) & Right(sText, Len(sText) - i) 
Case ChrW$(&HF4): sText = sPreTxt & ChrW$(&H1ED5) & Right(sText, Len(sText) - i) 
Case ChrW$(&HD4): sText = sPreTxt & ChrW$(&H1ED4) & Right(sText, Len(sText) - i) 
Case ChrW$(&H1A1): sText = sPreTxt & ChrW$(&H1EDF) & Right(sText, Len(sText) - i) 
Case ChrW$(&H1A0): sText = sPreTxt & ChrW$(&H1EDE) & Right(sText, Len(sText) - i) 

'u 
Case "u": sText = sPreTxt & ChrW$(&H1EE7) & Right(sText, Len(sText) - i) 
Case "U": sText = sPreTxt & ChrW$(&H1EE6) & Right(sText, Len(sText) - i) 
Case ChrW$(&H1B0): sText = sPreTxt & ChrW$(&H1EED) & Right(sText, Len(sText) - i) 
Case ChrW$(&H1AF): sText = sPreTxt & ChrW$(&H1EEC) & Right(sText, Len(sText) - i) 

'y 
Case "y": sText = sPreTxt & ChrW$(&H1EF7) & Right(sText, Len(sText) - i) 
Case "Y": sText = sPreTxt & ChrW$(&H1EF6) & Right(sText, Len(sText) - i) 

End Select 

Case "4" 
Select Case sPreChar 
'a 
Case "a": sText = sPreTxt & ChrW$(&HE3) & Right(sText, Len(sText) - i) 
Case "A": sText = sPreTxt & ChrW$(&HC3) & Right(sText, Len(sText) - i) 
Case ChrW$(&HE2): sText = sPreTxt & ChrW$(&H1EAB) & Right(sText, Len(sText) - i) 
Case ChrW$(&HC2): sText = sPreTxt & ChrW$(&H1EAA) & Right(sText, Len(sText) - i) 
Case ChrW$(&H103): sText = sPreTxt & ChrW$(&H1EB5) & Right(sText, Len(sText) - i) 
Case ChrW$(&H102): sText = sPreTxt & ChrW$(&H1EB4) & Right(sText, Len(sText) - i) 

'e 
Case "e": sText = sPreTxt & ChrW$(&H1EBD) & Right(sText, Len(sText) - i) 
Case "E": sText = sPreTxt & ChrW$(&H1EBC) & Right(sText, Len(sText) - i) 
Case ChrW$(&HEA): sText = sPreTxt & ChrW$(&H1EC5) & Right(sText, Len(sText) - i) 
Case ChrW$(&HCA): sText = sPreTxt & ChrW$(&H1EC4) & Right(sText, Len(sText) - i) 

'i 
Case "i": sText = sPreTxt & ChrW$(&H129) & Right(sText, Len(sText) - i) 
Case "I": sText = sPreTxt & ChrW$(&H128) & Right(sText, Len(sText) - i) 

'o 
Case "o": sText = sPreTxt & ChrW$(&HF5) & Right(sText, Len(sText) - i) 
Case "O": sText = sPreTxt & ChrW$(&HD5) & Right(sText, Len(sText) - i) 
Case ChrW$(&HF4): sText = sPreTxt & ChrW$(&H1ED7) & Right(sText, Len(sText) - i) 
Case ChrW$(&HD4): sText = sPreTxt & ChrW$(&H1ED6) & Right(sText, Len(sText) - i) 
Case ChrW$(&H1A1): sText = sPreTxt & ChrW$(&H1EE1) & Right(sText, Len(sText) - i) 
Case ChrW$(&H1A0): sText = sPreTxt & ChrW$(&H1EE0) & Right(sText, Len(sText) - i) 

'u 
Case "u": sText = sPreTxt & ChrW$(&H169) & Right(sText, Len(sText) - i) 
Case "U": sText = sPreTxt & ChrW$(&H168) & Right(sText, Len(sText) - i) 
Case ChrW$(&H1B0): sText = sPreTxt & ChrW$(&H1EEF) & Right(sText, Len(sText) - i) 
Case ChrW$(&H1AF): sText = sPreTxt & ChrW$(&H1EEE) & Right(sText, Len(sText) - i) 

'y 
Case "y": sText = sPreTxt & ChrW$(&H1EF9) & Right(sText, Len(sText) - i) 
Case "Y": sText = sPreTxt & ChrW$(&H1EF8) & Right(sText, Len(sText) - i) 
End Select 

Case "5" 
Select Case sPreChar 
'a 
Case "a": sText = sPreTxt & ChrW$(&H1EA1) & Right(sText, Len(sText) - i) 
Case "A": sText = sPreTxt & ChrW$(&H1EA0) & Right(sText, Len(sText) - i) 
Case ChrW$(&HE2): sText = sPreTxt & ChrW$(&H1EAD) & Right(sText, Len(sText) - i) 
Case ChrW$(&HC2): sText = sPreTxt & ChrW$(&H1EAC) & Right(sText, Len(sText) - i) 
Case ChrW$(&H103): sText = sPreTxt & ChrW$(&H1EB7) & Right(sText, Len(sText) - i) 
Case ChrW$(&H102): sText = sPreTxt & ChrW$(&H1EB6) & Right(sText, Len(sText) - i) 

'e 
Case "e": sText = sPreTxt & ChrW$(&H1EB9) & Right(sText, Len(sText) - i) 
Case "E": sText = sPreTxt & ChrW$(&H1EB8) & Right(sText, Len(sText) - i) 
Case ChrW$(&HEA): sText = sPreTxt & ChrW$(&H1EC7) & Right(sText, Len(sText) - i) 
Case ChrW$(&HCA): sText = sPreTxt & ChrW$(&H1EC6) & Right(sText, Len(sText) - i) 

'i 
Case "i": sText = sPreTxt & ChrW$(&H1ECB) & Right(sText, Len(sText) - i) 
Case "I": sText = sPreTxt & ChrW$(&H1ECA) & Right(sText, Len(sText) - i) 

'o 
Case "o": sText = sPreTxt & ChrW$(&H1ECD) & Right(sText, Len(sText) - i) 
Case "O": sText = sPreTxt & ChrW$(&H1ECC) & Right(sText, Len(sText) - i) 
Case ChrW$(&HF4): sText = sPreTxt & ChrW$(&H1ED9) & Right(sText, Len(sText) - i) 
Case ChrW$(&HD4): sText = sPreTxt & ChrW$(&H1ED8) & Right(sText, Len(sText) - i) 
Case ChrW$(&H1A1): sText = sPreTxt & ChrW$(&H1EE3) & Right(sText, Len(sText) - i) 
Case ChrW$(&H1A0): sText = sPreTxt & ChrW$(&H1EE2) & Right(sText, Len(sText) - i) 

'u 
Case "u": sText = sPreTxt & ChrW$(&H1EE5) & Right(sText, Len(sText) - i) 
Case "U": sText = sPreTxt & ChrW$(&H1EE4) & Right(sText, Len(sText) - i) 
Case ChrW$(&H1B0): sText = sPreTxt & ChrW$(&H1EF1) & Right(sText, Len(sText) - i) 
Case ChrW$(&H1AF): sText = sPreTxt & ChrW$(&H1EF0) & Right(sText, Len(sText) - i) 

'y 
Case "y": sText = sPreTxt & ChrW$(&H1EF5) & Right(sText, Len(sText) - i) 
Case "Y": sText = sPreTxt & ChrW$(&H1EF4) & Right(sText, Len(sText) - i) 
End Select 

Case "6" 
Select Case sPreChar 
'a 
Case "a": sText = sPreTxt & ChrW$(&HE2) & Right(sText, Len(sText) - i) 
Case "A": sText = sPreTxt & ChrW$(&HC2) & Right(sText, Len(sText) - i) 

'e 
Case "e": sText = sPreTxt & ChrW$(&HEA) & Right(sText, Len(sText) - i) 
Case "E": sText = sPreTxt & ChrW$(&HCA) & Right(sText, Len(sText) - i) 

'o 
Case "o": sText = sPreTxt & ChrW$(&HF4) & Right(sText, Len(sText) - i) 
Case "O": sText = sPreTxt & ChrW$(&HD4) & Right(sText, Len(sText) - i) 
End Select 

Case "7" 
Select Case sPreChar 
'o 
Case "o": sText = sPreTxt & ChrW$(&H1A1) & Right(sText, Len(sText) - i) 
Case "O": sText = sPreTxt & ChrW$(&H1A0) & Right(sText, Len(sText) - i) 

'u 
Case "u": sText = sPreTxt & ChrW$(&H1B0) & Right(sText, Len(sText) - i) 
Case "U": sText = sPreTxt & ChrW$(&H1AF) & Right(sText, Len(sText) - i) 
End Select 

Case "8" 
Select Case sPreChar 
'a 
Case "a": sText = sPreTxt & ChrW$(&H103) & Right(sText, Len(sText) - i) 
Case "A": sText = sPreTxt & ChrW$(&H102) & Right(sText, Len(sText) - i) 
End Select 

Case "9" 
Select Case sPreChar 
'd 
Case "d": sText = sPreTxt & ChrW$(&H111) & Right(sText, Len(sText) - i) 
Case "D": sText = sPreTxt & ChrW$(&H110) & Right(sText, Len(sText) - i) 
End Select 

End Select 
Next i 
Next j 
ConvertToUnicode = sText 
End Function

[newbiess]

Các bác ơi! bác nào có code VBA: Chuyển đổi mã VNI, Unicode, TCVN3-ACB trong word cho em xin nhé! Hoặc post lên đây hoặc gửi mail cho em theo ĐC: tocmay_kn[MENTION=91118]YAHOO[/MENTION].com hay dinhthithu88[MENTION=162562]gmail[/MENTION].com. Em cảm ơn lắm lắm!