свойства файла в документ Word

[Sta1917]

Здравствуйте, помогите пожалуйста с решением следующей задачи: в папке есть Паспорт.doc и Название_файла.dwg (единственный *.dwg в директории) , в паспорте нужно отобразить свойства *.dwg тремя полями: дату и время последнего изменения (до секунд); полный объем в байтах (размер, а не на "диске") и по возможности название файла. Нашел похожий макрос но только для экселя
К сожалению связка word-exсel не подходит.

[Ципихович Эндрю]

помоему узнать нужное у файла *.dwg - большая проблема, но может я не прав

[Sasha_Smirnov]

Кой-чего добился самопальной процедурой SomeFileParameters (она в документе).

Использовал справку Word (рисунок приложен); тяжеловато, но что делать!

[Sta1917]

Сообщение от Ципихович Эндрю

помоему узнать нужное у файла *.dwg - большая проблема, но может я не прав

Если так, то можно вставить остальные данные о файле?

Sasha_Smirnov эти поля я находил поиском, спасибо.

[Казанский]

> Нашел похожий макрос но только для экселя

Какая разница? Там используется сторонний компонент filesystemobject. Пробуйте:

Sub bb()
Dim sPath$, sFileName$
sPath = ThisDocument.Path & "\"
sFileName = Dir(sPath & "*.dwg")
If sFileName <> "" Then
    With CreateObject("scripting.filesystemobject").GetFile(sPath & sFileName)
        Debug.Print .Size, .DateLastAccessed, .DateLastModified, .Name
    End With
End If
End Sub

[Sta1917]

Что-то не получается, может не правильно делаю: вставил макрос в word, в поле вставил bb говорит "Ошибка! Закладка не определена."

[Казанский]

Этот макрос выводит данные в окно Immediate, и только. Чтобы понять, как вставлять данные в ваш документ, надо его видеть.

[Sta1917]

Вопрос решен на OsZone Спасибо Iska