Задачка для програмистов

[Design_Nick]

Вопрос такой. Имеем папку с файлами word2003 нужно как-то обработать эту папку, чтобы получить на выходе список фалов с указанием количества страниц в каждом.Реально? Может кто сделать? Работа не бесплатная естественно!

[dorald]

реально : ) но будет работать медленно зато писать быстро, есть другой вариант, щас почитаю... Изменено 4 июля, 2008 пользователем dorald

[Design_Nick]

Да в принципе и пофиг. Среднее количество фалов в папке 50-120. Запуск раз в месяц при обновлении базы данных, что ты мне писал...

[Loster aka Serg]

VB 6.0 вам в помощь! И статьи www.vbrussian.com. Придется попотеть один вечер и все будет!Работать действительно будет медленно...

[Design_Nick]

VB 6.0 вам в помощь! И статьи www.vbrussian.com. Придется попотеть один вечер и все будет!Работать действительно будет медленно...

Ты куда меня послал? Я же директор, а не программист!А про медленно: могу запускать на серваке и на ночь.

[Leonid]

Посади админа обрабатывать вручную Ему это быстро надоест и он сам напишет, что нужно

[Design_Nick]

Посади админа обрабатывать вручную Ему это быстро надоест и он сам напишет, что нужно

Отсутствует как класс у меня. Фрилансеры помогают, некоторые уже очень давно! Ну и мои знания, радиоинженера...

[dorald]

Да почти написал, только блин забыл имя метода, щас минут 10 и допишу только не на vba6.0 а непостредственно на бэйсике вордовском

[Loster aka Serg]

только не на vba6.0 а непостредственно на бэйсике вордовском

Базаров нет! Можно и прямо на vba катать! Только он мне не нравится, кривой он какой-то, да еще и антивирусники могут брыкаться. Типа использование небезопасных скриптов...

Посади админа обрабатывать вручную Ему это быстро надоест и он сам напишет, что нужно

+1! Отличное решение!

Ты куда меня послал? Я же директор, а не программист!А про медленно: могу запускать на серваке и на ночь.

Дык ить basic - это социально-направленный язык программирования, расчитанный на продвинутого пользователя. Многие программеры его вообще за язык программирования не считают! Говорят, что он для домохозяек! ))

[dorald]

Sub a()Dim dlgOpen As FileDialog Set dlgOpen = Application.FileDialog( _ FileDialogType:=msoFileDialogFolderPicker) With dlgOpen .Show End Withkkk = dlgOpen.SelectedItems(1)With Application.FileSearch .NewSearch .LookIn = kkk .SearchSubFolders = False .FileName = "*.doc" .MatchTextExactly = True .FileType = msoFileTypeWordDocuments If .Execute() > 0 ThenFor i = 1 To .FoundFiles.Countbbb = .FoundFiles(i)Application.Documents.Open (bbb)ccc = Application.ActiveDocument.BuiltInDocumentProperties(wdPropertyPages)Application.ActiveDocument.Saved = TrueApplication.ActiveDocument.CloseSelection.TypeText Text:=bbb & vbTab & CStr(ccc)Selection.TypeParagraphNext iEnd IfEnd WithEnd Sub

[Loster aka Serg]

Ну теперь осталось добавить процедуру для форматирования получившегося текста и будет совсем все в шоколаде! Дык и полный путь, имхо, не нужен, т.к. я думаю, что каталог с файлами известен.

[dorald]

Из-за глючности ворда, а именно что он сам не знает сколько в нем страниц надо перед строчкойccc = Application.ActiveDocument.BuiltInDocumentProperties(wdPropertyPages)вставить ddd = Application.ActiveDocument.ComputeStatistics(wdStatisticPages)

[Estet]

Народ, вы бы еще бэйсикочайникам сказали куда этот текст вставить чтоб он из "просто текста" стал "программой"