Страницы: 1
RSS
Из excel узнать количество страниц в файле word.
 
Уважаемые форумчане!
Подскажите пожалуйста, как определить количество страниц word файла?
В excel таблице есть список с именами файлов.
В папке word файлы. Необходимо узнать количество страниц каждого word файла.
Изменено: ac1-caesar - 01.02.2015 20:47:10
 
справка Word предлагает следующую конструкцию
Код
ActiveDocument.ActiveWindow.Panes(1).Pages.Count
чудовищно, конечно :)
фрилансер Excel, VBA - контакты в профиле
"Совершенствоваться не обязательно. Выживание — дело добровольное." Э.Деминг
 
Где-то в сети помнится вычитал про:

Код
Selection.Information(4)  'wdNumberOfPagesInDocument
Еще вот так можно:

Код
ActiveDocument.BuiltInDocumentProperties(14) 'wdPropertyPages 
Изменено: Все_просто - 01.02.2015 21:04:48
С уважением,
Федор/Все_просто
 
Можно ли получить количество страниц не открывая word файла?
 
Цитата
ac1-caesar пишет: Можно ли получить количество страниц не открывая word файла?
очевидно - да.
Win7 по правому щелчку на файле на вкладке "Подробно" такую информацию показывает.
а вот как именно туда добраться из VBA - гугл в помощь.
фрилансер Excel, VBA - контакты в профиле
"Совершенствоваться не обязательно. Выживание — дело добровольное." Э.Деминг
 
Так ищу, пока безуспешно....
 
за три минуты нагуглилось:
1. PowerShell (ps) скрипт http://blogs.technet.com/b/heyscriptingguy/archive/2009/12/30/hey-scripting-guy-december-30-2009.aspx
2. как вызвать скрипт PowerShell из VBA https://social.technet.microsoft.com/Forums/windowsserver/en-US/c8478b8d-53a5-4c41-b229-1b35c25277b3/calling-a-ps-script-from-vba?forum=winserverpowershell

ну и ещё много чего здесь: https://www.google.ru/search?client=opera&q=vba+powershell&sourceid=opera&ie=UTF-8&oe=UTF-8  
фрилансер Excel, VBA - контакты в профиле
"Совершенствоваться не обязательно. Выживание — дело добровольное." Э.Деминг
 
Вот есть на сайте всезнающего Чипа: http://www.cpearson.com/excel/docprop.aspx
DSO OLE Document Properties Reader 2.1 - надо будет отметить в References.
На сайте Microsoft есть соответствующая библиотека.
Изменено: Все_просто - 01.02.2015 21:24:13
С уважением,
Федор/Все_просто
 
Ребят, спасибо конечно, но что то сложновато для меня. Не так силен. Попроще бы пример... :)
 
Цитата
ac1-caesar пишет: Попроще бы пример
И без открытия файла, и попроще...Вы определитесь - шашечки или ехать.
Даже самый простой вопрос можно превратить в огромную проблему. Достаточно не уметь формулировать вопросы...
 
Понимаю, что без открытия файла макрос отработает гораздо быстрее, так как word файлов более сотни.
Однако глубоких познаний в программировании не имею для оперирования по предоставленным ссылкам.
Изменено: ac1-caesar - 01.02.2015 22:07:54
 
офф. не ожидал такой робости от человека, в чьём нике присутствует цезарь.  ;)
фрилансер Excel, VBA - контакты в профиле
"Совершенствоваться не обязательно. Выживание — дело добровольное." Э.Деминг
 
ac1-caesar, а по другому никак. Нужно приобщаться к сложностям. Два года назад мое программирование ограничивалось вставкой в цикл записанного в макрорекодере. Благодаря расширению кругозора, задачи, казавшиеся сложными, для меня сегодня стали достаточно тривиальными. Нельзя оставаться в зоне комфорта, нужно все время осваивать что-то новое.
С уважением,
Федор/Все_просто
 
Все_просто, согласен с Вами. Будем осваивать. С открытием word файла уже нашел, а вот с закрытыми нужно будет почитать.
В любом случае, всем спасибо за участие и помощь.  
Страницы: 1
Читают тему
Наверх