| 本月文章推荐 |
VB中调用Word拼写检查发表日期：2006-2-27
|
|
FunctionCheckSpell(IncorrectTextasstring)asstring
DimWordAsObject,retText$ OnErrorResumeNext '建立对象并打开WORD SetWord=CreateObject("Word.Basic") '把需要检查的STRING放到WORD Word.AppShow Word.FileNew Word.InsertIncorrectText '运行WORD拼写检查 Word.ToolsSpelling Word.EditSelectAll '取返回值 retText=Word.Selection$() CheckSpell=Left$(retText,Len(retText)-1) '关闭文件并回到VB应用 Word.FileClose2 Show SetWord=Nothing EndFunction-> |
| 上一篇：在VB中控制Word
人气:5229 下一篇：在Word中嵌入应用程序 人气:4149 |
| 浏览全部Visual Basic的内容
Dreamweaver插件下载 网页广告代码 祝你圣诞节快乐 2009年新年快乐 |
