国产探花免费观看_亚洲丰满少妇自慰呻吟_97日韩有码在线_资源在线日韩欧美_一区二区精品毛片,辰东完美世界有声小说,欢乐颂第一季,yy玄幻小说排行榜完本

首頁 > 學院 > 開發(fā)設計 > 正文

VB中調用Word拼寫檢查

2019-11-18 17:49:42
字體：大 中 小
來源：轉載
供稿：網友
FunctionCheckSpell(IncorrectTextasstring)asstring
DimWordAsObject,retText$
OnErrorResumeNext
'建立對象并打開WORD
SetWord=CreateObject("Word.Basic")

'把需要檢查的STRING放到WORD
Word.AppShow
Word.FileNew
Word.InsertIncorrectText

'運行WORD拼寫檢查
Word.ToolsSpelling
Word.EditSelectAll

'取返回值
retText=Word.Selection$()
CheckSpell=Left$(retText,Len(retText)-1)

'關閉文件并回到VB應用
Word.FileClose2
Show

SetWord=Nothing
EndFunction->

發(fā)表評論 共有條評論
用戶名: 密碼:
驗證碼: 匿名發(fā)表
主站蜘蛛池模板： 科尔| 罗定市| 合山市| 洞口县| 罗源县| 会理县| 宁夏| 伊春市| 靖安县| 资源县| 肇州县| 镇康县| 墨玉县| 普格县| 金川县| 北川| 永康市| 吉安县| 海兴县| 汝阳县| 永平县| 平山县| 故城县| 岳阳县| 沁阳市| 建宁县| 朔州市| 呈贡县| 鹿泉市| 眉山市| 仁怀市| 台湾省| 彭阳县| 崇文区| 平塘县| 日土县| 万安县| 竹山县| 凤冈县| 图木舒克市| 繁昌县|