Подсчет количества страниц документа doc

[Viktorkv]

Здравствуйте. Есть острая необходимость в программе, которая бы определила количество документов doc в папке и общее количество их страниц. Может у кого есть готовый результат. Спасибо заранее.

[eval]

количество документов это легко, а сколько там их может быть?

[Viktorkv]

200, может больше

[Viktorkv]

Количество действительно леско узнать, а вот сколько там страниц...

[eval]

это много, каждый надо открыть, другого способа не знаю

[Viktorkv]

With CreateObject("word.application")
  For Each x In CreateObject("scripting.filesystemobject").getfile(wscript.scriptfullname).parentfolder.Files
    If LCase(Mid(x.Name, InStrRev(x.Name, ".") + 1, 3)) = "doc" Then
      With .documents.open(x.Path, , True) 'ReadOnly
        numDocs = numDocs + 1
        sumPages = sumPages + .Content.ComputeStatistics(2) 'wdStatisticPages
'        sumPages = sumPages + .BuiltInDocumentProperties(14) 'wdPropertyPages 'считает неправильно!
        .Close False 'don't save changes
      End With
    End If
  Next
  .Quit
End With
wscript.echo "Всего страниц " & sumPages & Chr(13) & "Документов " & numDocs

Это для ворда, как этот скрипт изменить для экселя?

[eval]

а при чем тут скрипт?

[Viktorkv]

я уже понял, что мне в другой форум нужно

[Аватар]

Ну это и в делфи нет особых проблем сделать, с тем же word.application. И для экселя тоже. Только 200 файлов - долговато будет на любом языке.

[Viktorkv]

Я никуда не спешу Еще дольше все эти 200 файлов открывать + ctrl+end, а потом еще и суммировать