'''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'Create a new document and list all open documento paths'
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''
dim  doc,i

doc = Application.NewDocument

for i = 0 to Application.DocumentCount-1
  doc.Lines.Add (CStr(i) + " - " + Application.Documents(i).Filename)
next