正文

VB调用Word拼写检查功能实例

︶ㄣSDDLL学院 メ
SDDLL学院V管理员 / 阅读
0630
这篇文章主要介绍了VB调用Word拼写检查功能,非常实用的功能,需要的朋友可以参考下

这篇文章主要介绍了VB调用Word拼写检查功能,非常实用的功能,需要的朋友可以参考下

众所周知，Word有自带的拼写检查功能。VB中想要实现调用 Word 拼写检查功能其实很简单就可以实现，方法是先建立word对象，然后把需要检查的字符串放到 WORD中，调用word拼写检查，再取出返回值，最后关闭对象。

各个步骤的具体实现代码如下所示：

?
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
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

本实例备有详细的注释，帮助读者理解，此外读者还可以在本实例的基础上参阅其他资料做进一步的改善，以实现更为强大的功能！