首页 Office&WPS正文

VB 中调用 Word 拼写检查

mydiannao Office&WPS 09-12 1182 0

  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

本站公告

【企业、公司、工作室、出租屋、家庭】
远程解决:网络异常,路由器配置,打印机设置,驱动安装,局域网文件共享,监控调试,电脑故障等电脑周边问题解决,欢迎咨询!
微信:1633694989