时间: 2021-07-31 作者:daque
function checkspell(incorrecttext as string) as stringdim word as object, rettext$ on error resume next ‘ 创造东西并翻开 wordset 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