|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
05.05.2010, 11:16 | #1 |
Форумчанин
Регистрация: 08.06.2009
Сообщений: 179
|
количество строк на последней странице документа
Добрый день! Как с помощью VBA в Excel узнать количество заполненных строк на последней странице документа Word? Пример выкладываю. В данном примере их должно быть 10.
|
05.05.2010, 13:36 | #2 |
Программист VBA
СуперМодератор
Регистрация: 13.07.2008
Сообщений: 6,856
|
Если речь про таблицы, то я насчитал 2 строки - по одной в каждой таблице
Если же считать всё подряд - то, конечно, их будет 10 (только уже не строк, а абзацев), но... позвольте узнать, зачем это надо вычислять? В общем случае, как мне кажется, посчитать их будет затруднительно - поскольку таблица состоит нескольких абзацев (если смотреть по тому, что возвращает код MsgBox ActiveDocument.Paragraphs.Count)
__Полезные надстройки для Excel. Парсинг сайтов и файлов.
Макросы любой сложности на заказ. Мониторинг цен конкурентов Последний раз редактировалось EducatedFool; 05.05.2010 в 13:43. |
05.05.2010, 14:04 | #3 |
Форумчанин
Регистрация: 08.06.2009
Сообщений: 179
|
EducatedFool!
Я делаю много таких файлов. И если перед подписью количество абзацев 4-5 это выглядит на последней странице некрасиво. Поэтому я хочу знать сколько абзацев на последней странице, для того чтобы увеличить междустрочный интервал по всему документу. А как узнать номер последней страницы документа? MsgBox ActiveDocument.Paragraphs.Count выдает число 13. |
05.05.2010, 14:27 | #4 |
Новичок
СтарожилДжуниор
Регистрация: 05.02.2008
Сообщений: 9,487
|
страниц:
MsgBox ActiveWindow.Panes(1).Pages.Count вот такая процедура Selection.EndKey unit:=wdStory c = 0 Do l = Selection.MoveUp(wdLine, 1) c = c + l Loop Until l = 0 MsgBox c + 1 скажет сколько строк на последней странице
Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете
|
05.05.2010, 14:41 | #5 |
Форумчанин
Регистрация: 08.06.2009
Сообщений: 179
|
Спасибо, IgorGO
|
08.06.2010, 08:43 | #6 |
Форумчанин
Регистрация: 08.06.2009
Сообщений: 179
|
Вот ответ на мой вопрос:
Код:
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Количество строк | Яр|/||< (^_^) | Общие вопросы Delphi | 2 | 31.07.2009 07:32 |
количество строк | ciaonataha | Общие вопросы C/C++ | 3 | 05.05.2009 16:31 |
Количество строк | delphin100 | Общие вопросы Delphi | 2 | 26.03.2009 11:58 |
ListBox (количество строк) | Vali_T | Помощь студентам | 6 | 06.10.2008 15:30 |
количество строк в memo | Albenous | Компоненты Delphi | 4 | 15.01.2007 19:00 |