Office中国论坛/Access中国论坛

标题: 请教版主一个很菜的问题 [打印本页]

作者: luoxuqi 时间: 2005-3-28 23:42
标题: 请教版主一个很菜的问题
版主.你好,我想请教一下,如何在EXCEL中实现繁简转换.诚谢!

作者: tanjh 时间: 2005-3-30 03:32
凑合一下吧（执行前先引用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]

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)