「ファイルロック (排他制御) 的なもの」を編集中 (節単位)

=== Open｜Again.vbs ===
<syntaxhighlight lang="vbscript" copy>
#title = "自動選択で読み直し"
'------------------------------------------------------------------------------
'    Summary | 編集中の文書を、エンコーディング自動選択で読み直す
' Assumption | ポップアップメニュー，ツールバー
' 
' ・バグ/欠陥
'    - タブ位置が、一番右側に開き直されてしまう (本当は同じ位置に開き直したい)
'------------------------------------------------------------------------------
'                                                                   2019-03-09
Option Explicit

Dim fso, sh, sPath, nCount
Set fso = CreateObject("Scripting.FileSystemObject")
Set sh  = CreateObject("WScript.Shell")
sh.CurrentDirectory = fso.GetParentFolderName(ScriptFullName)
sPath  = Editor.ActiveDocument.FullName
nCount = Editor.Documents.Count
sh.Run """Utility\FileLock.vbs"" 0 """ & sPath & """"
Window.Sleep 350
  '└ 必ず、Utility\FileLock.vbs の Interval 設定より大きな値にすべき
  '    ( ただし、大きすぎると再ロックまでの時間がかかってしまう.. )
Editor.ActiveDocument.Close
If 1 < nCount Then Editor.NewFile
Editor.OpenFile(sPath)
Set sh  = Nothing
Set fso = Nothing
</syntaxhighlight>