関連するボタンがクリックされたときに明らかに呼び出される、イントラネットから編集するために Word ドキュメントを開く次のようなコードがあります。
Dim objWord
Sub Btn956_onclick()
call OpenDoc("\\server01\folder1\docname.docx")
End Sub
Sub OpenDoc(strLocation)
Set objWord = CreateObject("Word.Application")
objWord.Visible = true
objWord.Documents.Open strLocation
End Sub
これを IE (スタッフ用の標準ブラウザ) で動作させるには、インターネット セキュリティ設定を一度だけ変更してもらう必要があります (そうしないと、javascript エラーが発生するだけです)。特に、イントラネット ゾーンの [安全とマークされていない ActiveX コントロールの初期化とスクリプトの作成] 設定が無効から有効に変更されました。
ユーザーが技術的なサポートなしでこの設定を更新できるようにするには、正しく設定されていない場合に設定を変更する必要があることをユーザーに通知する方法が必要です。上記の OpenDoc コマンドが設定を更新していないために失敗していることをプログラムで検出する方法はありますか?