VB.net 2010 视频教程 VB.net 2010 视频教程 python基础视频教程
SQL Server 2008 视频教程 c#入门经典教程 Visual Basic从门到精通视频教程
当前位置:
首页 > 编程开发 > vb >

  • vb教程之VB中调用Word拼写检查

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) 

‘关闭文件并回到 VB 应用
Word.FileClose 2 
Show 

Set Word = Nothing 
End Function

相关教程