■ [Q3] スペルチェック (3)

エディットビュー上で修正する部分などを作りこむのはおいおい考えるとしても、外部のスペルチェッカを簡単に呼び出せると便利かもしれません。そんな機能を入れてみようかと思ったのですが、スクリプトでやれそうなので試しに書いてみました。

以下のスクリプトを保存してscriptsフォルダに適当なファイル名で（拡張子は.jsで）入れると、エディットビューの[Tool]-[Script]から呼び出せるようになります。ショートカットキーを割り当てておくと良いかもしれません。

この例では、ispellのwin32版を呼び出していますが、他のスペルチェッカやスペルチェック機能つきのエディタなどでも少しスクリプトに手を加えてやれば対処できそうです。

var ispell = "\"C:\\ispell\\ispell-w32\\bin\\ispell.exe\"";
var tempFile = "C:\\temp\\spellcheck.txt";

// テキストをすべて選択してクリップボードにいれ、
// クリップボード経由でテキストを取得する
editFrameWindow.invokeAction("EditSelectAll");
editFrameWindow.invokeAction("EditCopy");
var getClipboardMacro = macroParser.parse("@Clipboard()");
var inText = getClipboardMacro.evaluate(application.nothing, document.accounts(0));

// 取得したテキストを一時ファイルに書き込む
var fs = new ActiveXObject("Scripting.FileSystemObject");
try {
  var inFile = fs.OpenTextFile(tempFile, 2, true);
  try {
    inFile.Write(inText);
  }
  finally {
    inFile.Close();
  }

  // ispellを起動して終了するまで待つ
  var shell = new ActiveXObject("WScript.Shell");
  shell.Run(ispell + " -x \"" + tempFile + "\"", 5, true);

  // ispellが修正したファイルを読み込む
  var outText = null;
  var outFile = fs.OpenTextFile(tempFile, 1);
  try {
    outText = outFile.ReadAll();
  }
  finally {
    outFile.Close();
  }

  // クリップボードを経由してエディットビューに貼り付け
  var setClipboardMacro = macroParser.parse("@Clipboard($value)");
  setClipboardMacro.setVariable("value", outText);
  setClipboardMacro.evaluate(application.nothing, document.accounts(0));
  editFrameWindow.invokeAction("EditPaste");
}
finally {
  fs.DeleteFile(tempFile);
}