> Надежды самому разобраться почти нет...  
 
Да ладно...  
Первые 2 пункта уже сделаны - см. второй пример в прикреплённом к статье файле:  
http://excelvba.ru/code/FilenamesCollection  
 
Пункты 3 и 5 - что-то по сути похожее, можно считать, они готовы наполовину.  
Осталось дело за малым)  
 
 
4 пункт - вот вам код, чуточку только переделать  
(прописывает информацию в открытом файле Excel):    
 
 
Sub FillWorkbookProperties_test()  
 
   FillWorkbookProperties ActiveWorkbook, "Мой заголовок", "Тема файла", _  
   "EducatedFool", , , "EducatedFool", , "http://excelvba.ru/"  
     
End Sub  
 
 
Sub FillWorkbookProperties(ByRef wb As Workbook, _  
                          Optional ByVal Title As String = vbNullString, Optional ByVal Subject As String = vbNullString, _  
                          Optional ByVal Author As String = vbNullString, Optional ByVal Keywords As String = vbNullString, _  
                          Optional ByVal Template As String = vbNullString, Optional ByVal LastAuthor As String = vbNullString, _  
                          Optional ByVal Manager As String = vbNullString, Optional ByVal Company As String = vbNullString)  
   On Error Resume Next  
 
   MyComment = "http://excelvba.ru/" & vbNewLine & "Разработка макросов любой сложности для Excel"  
 
   With wb.BuiltinDocumentProperties  
       If Len(Title) Then .item(1) = Title  
       If Len(Subject) Then .item(2) = Subject  
       If Len(Author) Then .item(3) = Author  
       If Len(Template) Then .item(4) = Template  
       .item(5) = MyComment  
       If Len(LastAuthor) Then .item(7) = LastAuthor  
       If Len(Manager) Then .item(20) = Manager  
       If Len(Company) Then .item(21) = Company  
   End With  
End Sub