Sub Test() Dim Wnd As Window Dim s As String For Each Wnd In ActiveDocument.Windows s = s & Wnd.Index & " - " & Wnd.Caption & vbCr Next Wnd MsgBox "The current document contains the following windows: " & vbCr & s Set Wnd = NothingEnd Sub