既読のタブを閉じるスクリプトです。

※このスクリプトはバージョンアップされています。最新版は、既読のタブを閉じるスクリプトのページにあります。

※2009/04/15: クローズロック状態のタブは閉じないように修正

JavaScript 版

// 既読のタブを閉じるスクリプト

var objTabGrp = TabGroups.ActiveGroup;

for (var i = objTabGrp.Count - 1; i >= 0; i -= 1) {
  var objTabItem = objTabGrp(i)
  if ((objTabItem.TabState == 4) && (objTabItem.CloseLock == false))
    objTabItem.close();
}

VBScript 版 


' 既読のタブを閉じるスクリプト

Option Explicit
Dim i, objTabGrp, objTabItem

Set objTabGrp = TabGroups.ActiveGroup

For i = objTabGrp.Count - 1 To 0 Step -1
  Set objTabItem = objTabGrp(i)
  If ((objTabItem.TabState = 4) and (objTabItem.CloseLock = False)) Then
    objTabItem.Close
  End If
Next