当前位置:软件学习 > Word >>

VB 中调用 Word 拼写检查

  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

CopyRight © 2022 站长资源库 编程知识问答 zzzyk.com All Rights Reserved
部分文章来自网络,