Function CheckSpell(IncorrectText as string) as string Dim Word As Object, retText$ On Error Resume Next ' 建立对象并打开 WORD Set Word = CreateObject("Word.Basic") ' 把需要检查的 STRING 放到 WORD Word.AppShow Word.FileNew Word.Insert IncorrectText
' 运行 WORD 拼写检查 Word.ToolsSpelling Word.EditSelectAll