請問在程序中如何調用word中的中文簡繁體互換功能?

Question

try run Macro:WordBasic.ToolsSCTCTranslate Direction:=0, Varients:=0, TranslateCommon:=0

Answer 1

添加相应的引用
http://dev.csdn.net/develop/article/20/20901.shtm

Answer 2

great thanks
i got it.
code as following:        Dim Wordapp As Object
        Wordapp = CreateObject("Word.Document.8")        Call Wordapp.application.documents.add()        Dim selection As Object
        selection = Wordapp.application.selection        selection.TypeText(Me.TextBox3.Text)
        Dim wordbasic As Object = Wordapp.application.Wordbasic
        wordbasic.ToolsTCSCTranslate(1, 0, 1)        Me.TextBox3.Text = Wordapp.application.activedocument.content.text        Wordapp.application.activeDocument.close()
        Wordapp.application.quit()