オプション explicit
' esempio di utilizzo per l'esecuzione di una regola ilogic
' suggerimento: クレア un modulo separato con tutte le macro per l'esecuzione delle regole ilogic
メニュー
' サブ pesi_selezione()
' runilogic.eseguiregola "pesi_selezione"
' 末尾サブ
パブリックサブ eseguiregola(文字列としてrulename, bool = true)
dim ilogicauto オブジェクトとして
odoc をドキュメントとして
odoc = thisapplication.activedocument を設定する
もし(odocは何もない)
ilogicauto = getilogicaddin() の設定
if (ilogicautoは何もない) サブを終了します
外部ルール = true の場合
ilogicauto.runexternalrule odoc, ルール名
その他
ilogicauto。 Runrule odoc, 正規名
端 もし
その他
msgbox "エラー! ドキュメンテーション・ディ・インベンター・ノン・トラバト、Vbcritical、"errore runrule"
端 もし
エンドサブ
オブジェクトとしてのプライベート関数 getilogicaddin()
appaddin として ilogicaddin を薄暗くして下さい
getilogicaddin の設定 = 何もしない
エラー goto notfound
ilogicaddin = thisapplicationaddins.itembyid("{3bdd8d79-2179-4b11-8a5a-257b1c0263ac")
もし(ilogicaddinが何もない)
ilogicaddin.activate は、
getilogicaddin = ilogicaddin.automation の設定
端 もし
コメント:
err.clearの特長
エンド機能