Как посчитать количество строк в ворде

Количество строк на странице: ограничения

При написании документа возникла следующяя проблема — необходимо чтобы на странице было определенное количество строк. Как возможно задать данный параметр?

Стандартной возможности установить это в редакторе не существует, так как количество строк на странице зависит от множества факторов: размера шрифта, междустрочного интервала и др.

Однако можно опытным путем настроить редактор так, чтобы на каждой странице было определенное количество строк. Как я уже сказал, это настраивается междустрочным интервалом (меню Формат — Абзац ), размером шрифта (меню Формат — Шрифт ), размером полей документа (меню Файл — Параметры страницы ). Но как только будет вставлены на страницу заголовки (со своими стилями), либо колонтитулы, то соответственно, будет изменяться и количество строк.

Еще записи по вопросам использования Microsoft Word:

• 10 вопросов и ответов по редактору Word (1 часть)
• 3 способа очистки списка недавно открытых документов
• Microsoft Office: популярные команды на одной вкладке
• Ribbon XML Editor — программа редактирования интерфейса Word 2007, 2010
• Word 2007: добавляем свою вкладку и свои команды
• Word 2007: полотно, рисунки, линии
• Word 2007: смена формата сохранения файла
• Word 97 — решение проблемы с отображением символов на линейке
• Автоматизация текстового набора в Word
• Автоматическая нумерация билетов
• Автоматическая расстановка переносов
• Автоматическое сохранение всех открытых документов
• Автоматическое сохранение документа при его закрытии
• Автотекст и Word 2007
• Автотекст с последовательной нумерацией
• Белый текст на синем фоне в Word 2007
• Белый текст на синем фоне: ностальгия по DOS
• Быстрая смена ориентации страниц документа
• Быстрая смена регистра букв (слов) или их размеров
• Быстрое изменение стиля форматирования текста
• Быстрое создание нового документа на основе шаблона
• Быстрый доступ к диалоговому окну Параметры страницы
• Быстрый доступ к папке с шаблонами Word
• Ввод повторяющихся фрагментов текста в Word 2007
• Ввод часто повторяющихся фрагментов текста

Как посчитать количество строк в ворде

Здравствуйте Уважаемые программисты!
Скажите пожалуйста как поправить код. Ситуация такая:

В документе Word 2003 создана таблица и следующим кодом ниже получается вывести сообщение о количестве строк:

Sub bb() Const TXT$ = "произвольный текст" Dim r As Range, x Set r = Selection.Range r.Collapse Direction:=wdCollapseStart For Each x In Split(TXT) r.InsertAfter x & " " r.Collapse Direction:=wdCollapseEnd Next MsgBox r.Information(wdFirstCharacterLineNumber) End Sub

Вопрос такой: Как вывести аналогичное сообщение (поправить код), если таблица размещена внутри надписи?

______________
форматируйте код с помощью тегов!

Последний раз редактировалось Serge_Bliznykov; 13.09.2013 в 13:39 .

Подсчет количества строк или столбцов в Excel

Если вам нужен быстрый способ подсчета строк, содержащих данные, вы можете выбрать все ячейки в первом столбце этих данных (возможно, это не столбец A). Просто щелкните заглавную кнопку столбца. В строке состояния в правом нижнем углу окна Excel вы можете подсчитать количество строк.

Сделайте то же самое, чтобы подсчитать количество столбцов, но в этот раз щелкните селектор строки в левой части строки.

Затем в области состояния отображается количество, что-то вроде этого:

Если вы выберете всю строку или столбец, Excel подсчитываются только ячейки, содержащие данные. Если вы выберете блок ячеек, будет подсчитано количество выбранных ячеек. Если выбранная строка или столбец содержит только одну ячейку с данными, строка состояния останется пустой.

• Если вам нужно подсчитать символы в ячейках, см. подсчет символов в ячейках.
• Если вы хотите узнать, сколько ячеек имеет данные, см. подсчет непустых ячеек с помощью счёта СЧЁТ.
• Вы можете управлять сообщениями, которые отображаются в панели состояния, щелкнув правой кнопкой мыши ее и щелкнув элемент, который вы хотите увидеть или удалить. Дополнительные сведения см. в Excel состояния.

Дополнительные сведения

Вы всегда можете задать вопрос эксперту в Excel Tech Community или получить поддержку в сообществах.

Как посчитать количество строк в ворде

С меньшим количеством действий.
Код перемещает курсор в конец первой ячейки первой таблицы.

Sub Procedure_1() Dim rEnd As Word.Range Dim oTable As Word.Table Set oTable = ActiveDocument.Tables(1) Set rEnd = _ ActiveDocument.Range(Start:=oTable.Cell(1, 1).Range.End - 1, _ End:=oTable.Cell(1, 1).Range.End - 1) rEnd.Select End Sub

Балуюсь кодами
Участник клуба
Регистрация: 09.01.2009
Сообщений: 1,837

никакой коллекции строк не существует. Нужно перемещаться по строкам, одновременно отслеживая смену ячейки

Лучше день потерять — потом за пять минут долететь!©
Регистрация: 31.12.2010
Сообщений: 2,133
Делал подобное: http://www.cyberforum.ru/vba/thread724457.html
exceleved@yandex.ru Яндекс.Деньги: 410011500007619
Форумчанин
Регистрация: 24.12.2012
Сообщений: 906

Можно ещё использовать Information(wdVerticalPositionRelat iveToPage).
Ниже код работает, если курсор находится в ячейке таблицы.
Результат выводится в View — Immediate Window.

Sub Procedure_1() Dim myRange As Word.Range '1. В оперативной памяти компьютера создаём диапазон "myRange", 'который содержит информацию о фрагменте документа, где находится ячейка, 'в которой находится курсор. 'Т.к. выделено может быть несколько ячеек, то в скобках - Cells(1) - 'нужно указать порядковый номер ячейки. Даже если выделена 'всего одна ячейка всё-равно нужно указать в скобках порядковый номер. Set myRange = Selection.Cells(1).Range '2. Смотрим расстояние между началом диапазона и верхом страницы. 'Хоть в коде и не указано, что нас интересует начало, но 'анализируется именно начало. Debug.Print myRange.Information(wdVerticalPositionRelativeToPage) '3. В оперативной памяти компьютера изменяем диапазон "myRange". 'Если в программе Word включить режим отображения непечатаемых 'символов, то в каждой ячейке видно кружок - знак ячейки. 'Создаём диапазон, который будет собой представлять место 'в документе перед знаком ячейки. 'Если не делать "- 1", то диапазон представляет собой место 'в документе уже в следующей ячейке. myRange.SetRange Start:=myRange.End - 1, End:=myRange.End - 1 '4. Смотрим, на каком расстоянии от верха страницы находится 'конец диапазона ячейки. Debug.Print myRange.Information(wdVerticalPositionRelativeToPage) End Sub

Последний раз редактировалось Скрипт; 11.01.2013 в 12:18 .