vba 繁体转简体？

Sub uv繁简()

十年专业网站制作公司历程，坚持以创新为先导的网站服务，服务超过成百上千家企业及个人，涉及网站设计、重庆APP开发公司、微信开发、平面设计、互联网整合营销等多个领域。在不同行业和领域给人们的工作和生活带来美好变化。

Dim i As Long, r As Long

r = Range("u" Rows.Count).End(xlUp).Row

For i = 1 To r

Range("u" i).Value = T_S_Cvt(Range("u" i).Text)

Next i

r = Range("v" Rows.Count).End(xlUp).Row

For i = 1 To r

Range("v" i).Value = T_S_Cvt(Range("v" i).Text)

Next i

End Sub

Public Function T_S_Cvt(strData, Optional bytOption As Byte = 1) As String

With CreateObject("Word.Document")

.Content = strData

.Range.TCSCConverter bytOption, True, True

T_S_Cvt = .Content

.Close False

End With

End Function

vb 如何实现 繁简转换 功能?

有现成的API函数：

Option Explicit

Private Declare Function LCMapString Lib "kernel32" Alias "LCMapStringA" (ByVal Locale As Long, ByVal dwMapFlags As Long, ByVal lpSrcStr As String, ByVal cchSrc As Long, ByVal lpDestStr As String, ByVal cchDest As Long) As Long

Private Sub Form_Load()

Command1.Caption = "简体转繁体"

Command2.Caption = "繁体转简体"

End Sub

Private Sub Command1_Click()

Text1.Text = StoT(Text1.Text)

End Sub

Private Sub Command2_Click()

Text1.Text = TtoS(Text1.Text)

End Sub

Private Function StoT(sIn As String) As String

Dim lStrLen As Long

lStrLen = LenB(sIn)

StoT = Space(lStrLen)

LCMapString H804, H4000000, sIn, lStrLen, StoT, lStrLen

End Function

Private Function TtoS(sIn As String) As String

Dim lStrLen As Long

lStrLen = LenB(sIn)

TtoS = Space(lStrLen)

LCMapString H804, H2000000, sIn, lStrLen, TtoS, lStrLen

End Function

怎样把简体字转为繁体字？

1.用WORD的简繁转换功能转换.全部粘贴到word，word中有个繁体简体互转的按键的。 “工具”——“语言”——“繁简文字转换”

2.安装紫光拼音输入法

紫光可以打繁体字

下载地址

安装紫光拼音软件然后点击输入法菜单再选择繁体字就行了

3.在线汉字简体繁体转换:(速度有点慢)

4.c3中请参考:

5.软件如《东方快车XP》

GB与BIG5转换器 2.0

GB-Big5编辑器 1.10

还可参考:

当前文章：繁简转换vb.net 繁简转换通
转载来源：http://hbruida.cn/article/dogiigd.html