Не открывая word файла узнать количество его страниц?

[Hugo121]

If iFolderItem.Type Like "*Word*" Then

[IgorGO]

ac1-caesar пишет

перебирает файлы, ловит путь, имя файла, размер, дату изменения, а вот количество страниц всегда 0.

о файлах видно много чего, только не видно количества страниц из-за которых все это затеяно

[pashulka]

Если же нет желания "мучить" имя/тип файла, то :

Private Sub getNumberOfPagesInCloseDocument2()
    Dim iFolder As Object, iFile As Object
    Dim iPath$, iFileName$, iCount# ', SCID$

    iPath = "C:\Мои документы\": iFileName = Dir(iPath & "*.doc*")
    
    Set iFolder = CreateObject("Shell.Application").NameSpace((iPath)) 'CVar(iPath)
    
    Do Until iFileName = "" 'Or Len(iFileName) = 0
       Set iFile = iFolder.ParseName(iFileName)
       iCount = iFile.ExtendedProperty("{F29F85E0-4FF9-1068-AB91-08002B27B3D9} 14")
       MsgBox iCount, , iFileName     
       iFileName = Dir
    Loop
End Sub

[Hugo121]

У меня количество страниц вывело. С моей поправкой.
Правда у меня английская винда, может на русской нужно писать *Ворд*

[The_Prist]

Еще как вариант Мои Документы и Пользователи надо прописать в пути на английском:
MyDocuments и Users соответственно.

[Hugo121]

Да, я проверил без присутствия кириллицы - ни в пути, ни в названии файла кириллицы не было.

[ac1-caesar]

Да, ребята, все отлично заработало! Спасибо за помощь!!!

P.S. Все таки осталось непонятно для чего две запятые... (неведом синтаксис)

MsgBox iCount, , iFileName

Ага, понял - свойство Msgbox