>>826
Dim sw As New ShDocVw.ShellWindows
Dim i As Object
For Each i In sw
　　i.document.〜
Next i