図脳RAPID用：一要素消去DeleteIt

マウスで選択した一要素を消去する、シンプルなコマンドです。 動作にはWindowsScriptingHostが必要です。

短いので、以下に全文を掲載します。

Option Explicit Dim Doc,App Const RegistryKeyCode = "zwRapid7Pro" Const DeleteItMessage = "消去する要素を選択してください" Const EndOfCommand = "コマンドを終了しますか？" Set Doc = CreateObject(RegistryKeyCode) Set App = Doc.Application Set Doc = App.GetDoc Do   App.SetMessage DeleteItMessage   Doc.GetTouchPrimitive   Doc.RemoveS   App.SetMessage ""   If MsgBox(EndOfCommand,vbYesNo) = vbYes Then     Exit Do   End If Loop Set Doc = Nothing Set App = Nothing

メインはもちろん、後半のループです。
お気付きのように、Loop〜While または Loop〜Until にすれば、３行節約になります。
でも、後判定のループ特にUntilの条件って、勘違いする事ありしませんか？
私はそうなので、急ぎの場合(スクリプトは大抵急ぐ要件で書きますが)は、
とりあえず無限ループで逃げて、後で落ち着いてから書き直す、と言う事をよくやります。
今回は、あえて初期の状態を残してみました。