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
'得到返回值
retText = Word.Selection$()
CheckSpell = Left$(retText, Len(retText) - 1)
'关闭文件
Word.FileClose 2
Show
Set Word = Nothing
End Function
机械节能产品生产企业官网模板...
大气智能家居家具装修装饰类企业通用网站模板...
礼品公司网站模板
宽屏简约大气婚纱摄影影楼模板...
蓝白WAP手机综合医院类整站源码(独立后台)...苏ICP备2024110244号-2 苏公网安备32050702011978号 增值电信业务经营许可证编号:苏B2-20251499 | Copyright 2018 - 2025 源码网商城 (www.ymwmall.com) 版权所有