Статьи из блога
Макрос подсчета количества строк в таблице
Если ваш документ содержит таблицу и вам нужно подсчитать количество строк в ней, то результат можно получить двумя способами.
Первый способ заключается в том, что вы выделяете таблицу, открываете диалоговое окно Свойства таблицы и на вкладке Строка узнаете количество строк:
Второй способ заключается в написании простейшего макроса, который подсчитывает количество строк в текущей таблице (в которой находится курсор ввода) и выводит окошко с информацией:
Откройте редактор Visual Basic (Alt+F11) и вставьте в какой-либо модуль шаблона Normal.dot следующий код:
Sub rowsCount() ' Подсчет количества строк в текущей таблице Dim n As Integer n = Selection.Tables(1).Rows.Count MsgBox prompt:="В таблице " & n & " строк", _ Title:="Подсчет строк в таблице" End Sub
Чтобы иметь быстрый доступ к этому макросу, назначьте для него сочетание клавиш или создайте кнопку на панели инструментов или в панели быстрого доступа (Word 2007).
Рубрика: Макросы, Таблицы Word
Метки: макросы | статистика | таблицы
Просмотров: 58600
Подписаться на комментарии по RSS
Версия для печати
Метки: макросы | статистика | таблицы
Просмотров: 58600
Подписаться на комментарии по RSS
Версия для печати
Еще записи по вопросам использования Microsoft Word:
- 3 способа очистки списка недавно открытых документов
- Абзац с цветным фоном
- Автоматическая запись макроса
- Автоматическая расстановка переносов
- Автоматическое обновление полей при открытии документа
- Автоматическое сохранение документа при его закрытии
- Быстрая смена ориентации страниц документа
- Быстрое перемещение между открытыми документами Word
- Быстрое создание нового документа на основе шаблона
- Быстрое удаление границ у таблицы
- Быстрый ввод текста с помощью команды =rand()
- Ввод часто повторяющихся фрагментов текста
- Вставка будущей даты
- Вставка документа с книжной ориентацией в документ с альбомной ориентацией
- Вставка завтрашней даты
- Вставка изображений из указанной папки для Word 2007
- Вставка неформатированного текста
- Вставка скопированного текста в предопределенном формате
- Вставка текста с полями в нижний колонтитул
- Вставка текста с помощью кнопки
- Выделение видимой части экрана
- Двойная нумерация страниц в документе
- Дизайн границ у таблиц в редакторе Word
- Задать обтекание текстом для всех рисунков в документе
- Замена жаргонных слов в тексте
Форум
Читают
Обсуждают
страницы
сайты
статистика
Комментариев: 6
Как узнать количество строк в таблице в каждом столбце отдельно(после объединения ячеек, к примеру, количество строк в разных столбцах совпадать не будет) ?
Посмотрите здесь. Там рассматривается макрос, который работает с объединенными ячейками в таблице. В частности, можно определить сколько ячеек объединенно по строкам в данном столбце.
Напрямую это сделать нельзя, т.к. доступ к отдельны столбцам и строкам отсутствует, если в таблице есть объединенные ячейки
Какой командой это можно узнать(объеденены ячейки или нет)? Хотелось бы увидеть небольшой код, как в примере выше.
Ну вот же код, который это делает. Только нужно доработать
Sub HowManyMerged() On Error Resume Next For Each oTbl In ActiveDocument.Tables For i = 1 To oTbl.Rows.Count For j = 1 To oTbl.Columns.Count oTbl.Cell(i, j).Select 'Сколько строк объединено в этой ячейке iRSpan = Selection.Information(wdEndOfRangeRowNumber) - _ Selection.Information(wdStartOfRangeRowNumber) + 1 MsgBox "В этой ячейке объединено " & iRSpan & " строк", vbOKOnly + vbInformation Next j Next i Next oTbl End SubЯчейка будет выделена и выведено сообщение сколько в ней строк объединено. К сожалению, со ячейками, объединенными по столбцам так не получится.
Оба кода не работают (
Подскажите, как сделать подсчёт столбцов 2-й таблицы в документе?!! КАк просто стоблцы искать я понял, а как задать, чтобы именно кол-во столбцов второй таблицы считал. Нужный мне домумент всегда состоит из 4 таблиц, одинаково расположенных друг за другом!