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

[ac1-caesar]

Уважаемые форумчане!

В свойствах word файла есть информация о количестве страниц.
Подскажите пожалуйста, как обратиться к этой информации из excel, как определить количество страниц word файла не открывая его?
В excel таблице есть список с именами файлов.
В папке word файлы. Необходимо узнать количество страниц каждого word файла.

[EducatedFool]

в этой теме вам дали несколько вариантов решения
Что не устраивает?

[pashulka]

Вот здесь можно найти ещё один вариант получения свойств закрытого документа.

Применительно к поставленной задаче, это может выглядить, например, так :

Private Sub getNumberOfPagesInCloseDocument()
    Dim iFolder As Object, iFolderItem As Object
    Dim iPath As Variant, iCount#, SCID$

    iPath = "C:\Мои документы\" 'Укажите свою папку
    SCID = "{F29F85E0-4FF9-1068-AB91-08002B27B3D9} 14"
    
    Set iFolder = CreateObject("Shell.Application").NameSpace(iPath)
    If Not iFolder Is Nothing Then
       For Each iFolderItem In iFolder.Items
           If iFolderItem.Name Like "*.doc" Then
              iCount = iFolderItem.ExtendedProperty(SCID)
              MsgBox iCount, , iFolderItem.Name
           End If
       Next
    Else
       MsgBox "Укажите реально существующую папку", vbCritical, ""
    End If
End Sub

[Hugo121]

Посмотрите
http://www.planetaexcel.ru/forum/ind...vami&buf_fid=1
Там правда количество страниц не извлекается... Зато другого много, 40 свойств.

[ac1-caesar]

Hugo121, спасибо! Очень полезный код. Но на данный момент необходимо именно количество страниц.

[ac1-caesar]

pashulka, спасибо! Вы пока единственный, кто предложил вариант, который отвечает на поставленный вопрос.

[ac1-caesar]

pashulka, макрос отрабатывает, однако не считает страницы и не выводит Msgbox.
Пошагово смотрел в Locals Window, ловит путь, имя файла, размер, дату изменения, а вот количество страниц всегда 0.
Здесь нашел конструкцию из вашего кода - Page Count {F29F85E0-4FF9-1068-AB91-08002B27B3D9}, 14
Может в ней дело?

[pashulka]

ac1-caesar, Если макрос действительно не выводит MsgBox, то это означает, что в указанной папке нет файлов, имена которых заканчиваются на .doc (что вполне вероятно, ибо в папке могут находиться документы с расширением .docx или .docm)

В этом случае, рекомендую "заменить" "*.doc" на "*.doc*" или, если в папке находятся только документы word, вообще избавиться от проверки.

[ac1-caesar]

Сообщение от pashulka

ac1-caesar, Если макрос действительно не выводит MsgBox, то это означает, что в указанной папке нет файлов, имена которых заканчиваются на .doc (что вполне вероятно, ибо в папке могут находиться документы с расширением .docx или .docm)

В этом случае, рекомендую "заменить" "*.doc" на "*.doc*" или, если в папке находятся только документы word, вообще избавиться от проверки.

Да, у меня только docx и я сразу заменил. Я же говорю, пошагово смотрел в Locals Window, перебирает файлы, ловит путь, имя файла, размер, дату изменения, а вот количество страниц всегда 0.
И Msgbox не выводит.

Да, еще не знаю что означают две запятые в этой строчке

MsgBox iCount, , iFolderItem.Name

[pashulka]

Я не сомневаюсь, что Вы пошагово убедились, что макрос перебирает файлы и папки, но повторюсь, если функция MsgBox не выводит количеством страниц, значит собака порылась именно в проверке … так что либо вообще убирайте её или замените на If LCase(iFolderItem.Name) Like "*.doc*" Then