VB调用Word拼写检查功能实例
<p>众所周知，Word有自带的拼写检查功能。VB中想要实现调用 Word 拼写检查功能其实很简单就可以实现，方法是先建立word对象，然后把需要检查的字符串放到 WORD中，调用word拼写检查，再取出返回值，最后关闭对象。</p><p>各个步骤的具体实现代码如下所示：</p>
<div class="jb51code">
<pre class="brush:vb;">
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
</pre>
</div>
<p>本实例备有详细的注释，帮助读者理解，此外读者还可以在本实例的基础上参阅其他资料做进一步的改善，以实现更为强大的功能！</p>
<div class="art_xg">
<b>您可能感兴趣的文章:</b><ul><li>VB6实现连接Access数据库的ADODB代码实现方法</li><li>VB的TextBox文本框实现垂直居中显示的方法</li><li>VB的32位程序在64位系统中出现文件和注册表自动转向的解决方法</li><li>VB实现鼠标绘图实例代码</li><li>VB实现屏蔽文本框右键菜单的复制、粘贴等功能的方法</li><li>VB使用XMLHTTP实现Post与Get的方法</li><li>VB读取线程、句柄及写入内存的API代码实例</li><li>VB实现的倒计时类代码详解</li><li>VB使用shell函数打开外部exe程序的实现方法</li></ul>
</div>
</div>
<!--endmain-->
頁:
[1]