请教版主一个很菜的问题

luoxuqi

版主.你好,我想请教一下,如何在EXCEL中实现繁简转换.诚谢!

tanjh

凑合一下吧（执行前先引用word 9.0库）Sub 简转繁()

Dim mStr As String

Dim mDoc As New Word.Application

mDoc.Documents.Add

mDoc.Selection.TypeText Text:="你想要转换的文字"

mDoc.Selection.Range.TCSCConverter WdTCSCConverterDirection:= _

        wdTCSCConverterDirectionSCTC, CommonTerms:=True, UseVariants:=True

mDoc.Selection.WholeStory

Sheet1.Range("a1") = mDoc.Selection.Text

mDoc.Quit False

End Sub[em04][em04]