2018年10月
  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 26 27
28 29 30 31      
無料ブログはココログ

« Microsoft Script Editor ヘルプのショートカット | トップページ | コマンドラインでタスク スケジューラのタスクを一覧表示する。 »

2007年9月16日 (日)

英文のスペルが正しいかチェックする。

正しいスペルは教えてくれないけれど、正誤だけなら。。。

Set Excel=CreateObject("Excel.Application")
Do
  words=InputBox(Excel.CheckSpelling(words),"CheckSpelling",words)
Loop While words<>""

« Microsoft Script Editor ヘルプのショートカット | トップページ | コマンドラインでタスク スケジューラのタスクを一覧表示する。 »