'
'ユーザー定義されたスタイルをすべて削除
'

If Msgbox("ドロップされた全てのファイル内のユーザー定義スタイルを削除します。" & vbCrLf & vbCrLf & _
          "よろしいですか？",vbOKCancel,"スタイル削除") = vbCancel Then WScript.Quit

Dim objBook   'ブックオブジェクト

Set objXls = CreateObject("Excel.Application")  'エクセルオブジェクトを作成
objXls.Visible = True                           '可視

'
'パラメータ（ファイル名）をすべて処理
'
For Each strFile In WScript.Arguments

  Set objBook = objXls.Workbooks.Open(strFile)   'ファイルを開く

  For Each Target In objBook.Styles  'すべてのスタイルを処理
    If Not Target.BuiltIn Then      '  既定以外？
      Target.Delete                 '  削除
    End If
  Next

  objBook.Save          'ブックを保存
  objBook.Close         'ブックを閉じる
  Set objBook = Nothing 'ブックオブジェクトを破棄

Next

objXls.Quit             'エクセルを終了

MsgBox "すべて終了しました。",,"処理完了"