Public Sub ПрочитатьПапку(ByVal path As String, ByRef spisoK As Variant)

Dim DPath As String
Dim x As Integer
Dim FName As String

Erase spisoK
x =  0 
    FName = Dir(path, vbNormal)
    
    Do While FName <> ""
        If FName <> "." And FName <> ".." Then
        x = x +  1 
        End If
        FName = Dir
    Loop
If x >  0  Then
ReDim spisoK( 1  To x) As string
x =  0 
    FName = Dir(path, vbNormal)
    
    Do While FName <> ""
        If FName <> "." And FName <> ".." Then
           x = x +  1 
           spisoK( 1  To x) = Dir
        End If
        FName = Dir
    Loop

End If
End Sub

For Each property In w.BuiltinDocumentProperties
    If property.Name = "Author" Then property.Value = "Me"
    If property.Name = "Manager" Then property.Value = "MyBoss"
    If property.Name = "Hyperlink base" Then property.Value = "www.ru/base"
Next property