Как узнать количество таблиц в word

У меня есть документ Word с множеством таблиц.

Мне нужно посчитать количество столов.

Я пробовал следующий VBA

Dim T as Table
Dim i as Integer
Dim Tables as Integer

For Each T In wdDoc.Tables
    i = i + 1
    Exit For
Next
Tables = i
End sub

Однако это возвращается с

«Ошибка времени выполнения ‘424’: требуется объект».

Я также нашел в Интернете код

Tables = wdDoc.Tables.Count

Создание макроса с помощью этого кода, похоже, ничего не дает.

2 ответа

Лучший ответ

Это должно работать:

   Debug.Print Active.Document.Tables.Count


4

GijsApeldoorn
17 Янв 2020 в 15:50

При использовании Word 2016 рекомендуемый ответ по-прежнему вызывал ошибку. Я попробовал немного переработанную версию, сочетающую ответ и комментарии выше. Наличие периода между «Активным» и «Документом» привело к сбою макроса. Я заменил окно сообщения на Debug.Print, и это сработало:

Sub CountTables()
'
' CountTables Macro
'
'
MsgBox ActiveDocument.Tables.Count
    
End Sub


0

Connor Campbell
9 Ноя 2020 в 05:08

Если в вашем документе Word есть несколько изображений, которые содержат как встроенные изображения, так и плавающие фигуры, теперь вы хотите подсчитать количество этих изображений во всем документе, как вы могли бы получить это число изображений быстро и правильно?

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

Count количество встроенных изображений и плавающих фигур с кодом VBA

Подсчитайте количество встроенных изображений с функцией поиска и замены

Функция Найти и заменить в Word может помочь вам быстро и легко подсчитать количество встроенных изображений, пожалуйста сделайте следующее:

1 . Нажмите Home > Find > Advanced Find , см. Снимок экрана:

2 . В диалоговом окне Найти и заменить на вкладке Найти введите ^ g в Найдите текстовое поле , а затем выберите Основной документ из раскрывающегося списка Найти в , см. Снимок экрана:

3 . И затем вы можете увидеть, что количество встроенных изображений в этом документе Word было отображено, как показано на следующем снимке экрана:

Подсчитайте количество встроенных изображений и плавающих фигур с помощью кода VBA

Вышеупомянутый метод может только подсчитывать количество встроенных изображений, если в документе есть несколько плавающих фигур, они не будут подсчитаны. Следующий код VBA может помочь вам подсчитать как встроенные изображения, так и плавающие фигуры, пожалуйста, сделайте следующее:

1 . Удерживая нажатыми клавиши ALT + F11 , откройте окно Microsoft Visual Basic для приложений .

2 . Затем нажмите Вставить > Модуль , скопируйте и вставьте приведенный ниже код в открытый пустой модуль, см. Снимок экрана:

Код VBA: подсчитайте количество встроенных изображений и плавающих фигур:

3 . После вставки кода нажмите клавишу F5 , чтобы запустить этот код, и появится окно подсказки, чтобы сообщить вам, сколько встроенных изображений и плавающих фигур в этом документе Word, см. Снимок экрана:

Как узнать сколько рисунков в документе word

Пример в приложенном файле

P.S. Понятное дело, что этот способ будет давать количество рисунков, имеющих подписи.

Вложения

Получение количества рисунков в документе.doc (621.0 Кб, 548 просмотров)

Спасибо!
Все работает. Сделал по аналогии и подсчет таблиц.

А еще подскажите где можно скачать какой-нибудь справочник или еще что-то подобное где описана работа с полями в Word, а то для меня это загадочная вещь.
Интересно, а есть ли смысл использовать поля совместно с VBA? Чем это может помочь в работе?

Вложения

Получение количества рисунков и таблиц в документе.doc (626.0 Кб, 358 просмотров)

Пишу не потому что гробокопатель, а потому что считаю свои долгом сообщить, ибо сам кучу времени убил.

Предложенное решение правда работает, однако надо не забывать жать ctrl+f9 когда пишете формулу, я то по неопытности пытался делать через редактор и у меня вместо номеров была абракадабра каждый раз
Большое спасибо!


Интенсив по Python: Работа с API и фреймворками 24-26 ИЮНЯ 2022. Знаете Python, но хотите расширить свои навыки?
Slurm подготовили для вас особенный продукт! Оставить заявку по ссылке — https://slurm.club/3MeqNEk

Как узнать сколько картинок в ворде

P.S. Понятное дело, что этот способ будет давать количество рисунков, имеющих подписи.

Получение количества рисунков в документе.doc (621.0 Кб, 534 просмотров)

Спасибо!
Все работает. Сделал по аналогии и подсчет таблиц.

А еще подскажите где можно скачать какой-нибудь справочник или еще что-то подобное где описана работа с полями в Word, а то для меня это загадочная вещь.
Интересно, а есть ли смысл использовать поля совместно с VBA? Чем это может помочь в работе?

Получение количества рисунков и таблиц в документе.doc (626.0 Кб, 347 просмотров)

Пишу не потому что гробокопатель, а потому что считаю свои долгом сообщить, ибо сам кучу времени убил.

Предложенное решение правда работает, однако надо не забывать жать ctrl+f9 когда пишете формулу, я то по неопытности пытался делать через редактор и у меня вместо номеров была абракадабра каждый раз
Большое спасибо!

Как узнать сколько картинок в ворде

Мне задали вопрос:

Есть ли Word-2007 поле которое будет показывать количество рисунков в файле и поле показывающее количество таблиц.
Как это делает поле показывая количество страниц.

Я задумался. Действительно, если человек нумерует рисунки, то почему нельзя узнать количество таких рисунков без использования макросов? Я нашёл решение с использованием полей. Приведенное поле нужно вставить в самый конец документа, чтобы оно правильно вело подсчёт:

Это поле формирует закладку с именем ImagesCount и записывает в неё последнее значение последовательности с идентификатором «Рисунок». Имя для закладки можно выбирать любое. Главное, чтобы оно было осмысленными.

Теперь, чтобы вставить в нужное место документа количество рисунков, нужно просто добавить перёкрёстную ссылку на эту закладку. Это можно сделать или через меню, или введя поле вручную:

Этот метод имеет один недостаток: если в документе не сквозная нумерация рисунков и зависит от заголовков первого уровня, то в закладку будет записано только количество рисунков в последнем разделе. Думаю, что эту задачу, тоже можно решить.

Количество таблиц и формул вставляется аналогично: идентификаторы «Таблица» и «Формула» соответственно.

Статьи из блога

Вопрос от пользователя Bata:

Как указать кол-во используемых в тексте рисунков? Рисунки пронумерованы как Caption (SEQ Рисунок).

Я могу вам предложить следующий макрос для вставки в документ текста с указанием количества рисунков в текущем документе.

Установите курсор ввода в том месте документа, где вы хотите вставить текст с количеством рисунков и запустите макрос:

Если вы не знаете, как подключить к документу и применить эти макросы, изучите следующие заметки с сайта:

Вы можете помочь в развитии сайта, сделав пожертвование:

—> Или помочь сайту популярной криптовалютой:

BTC Адрес: 1Pi3a4c6sJPbfF2sSYR2noy61DMBkncSTQ

ETH Адрес: 0x7d046a6eaa1bd712f7a6937b042e9eee4998f634

LTC Адрес: LUyT9HtGjtDyLDyEbLJZ8WZWGYUr537qbZ

USDT (ERC-20) Адрес: 0x7d046a6eaa1bd712f7a6937b042e9eee4998f634

Яндекс Деньги: 410013576807538

А тут весь список наших разных крипто адресов, может какой добрый человек пожертвует немного монет или токенов — получит плюсик в карму от нас Благо Дарим, за любую помощь! —>

qwartal

1

Определение количества таблиц

09.06.2011, 10:39. Показов 8567. Ответов 4


Студворк — интернет-сервис помощи студентам

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

Busine2009

Заблокирован

09.06.2011, 11:25

2

DAO — это же предыдущее поколение. Надо использовать ADO.

Цитата
Сообщение от qwartal
Посмотреть сообщение

dao

Количество таблиц в активном документе так определяется:

Visual Basic
1
2
3
Sub P1()
MsgBox ActiveDocument.Tables.Count
End Sub



0



1508 / 478 / 56

Регистрация: 10.04.2009

Сообщений: 8,008

09.06.2011, 17:52

3

>Количество таблиц в активном документе так определяется: ….

Что обязательно ADO???
>Макросом подключается база данных к word подключение dao.
Подскажите Ваши коды всего что связано с темой Макросом подключается база данных к word
Спасибо



0



Busine2009

Заблокирован

09.06.2011, 17:54

4

Цитата
Сообщение от Ципихович Эндрю
Посмотреть сообщение

Что обязательно ADO???

да, обязательно.

Разработчики DAO остановили развитие DAO, взамен него разработали ADO. DAO доживает в программах, созданных ранее.



0



1508 / 478 / 56

Регистрация: 10.04.2009

Сообщений: 8,008

09.06.2011, 18:00

5

да не я спрашивал на что знаю ответ
то есть, а что Количество таблиц в активном документе определяется благодаря АДОДАО
Ответ — нет
Автору хотел сказать что для этого АДОДАО не нужно



0



������� � �������� ���������� ��������, ������, ������ � ������ ����������� �������� ��� ������ ��������

��� ������ ������:

���� �� Word-2007 ���� ������� ����� ���������� ���������� �������� � ����� � ���� ������������ ���������� ������.
��� ��� ������ ���� {NUMPAGES} ��������� ���������� �������.

� ���������. �������������, ���� ������� �������� �������, �� ������ ������ ������ ���������� ����� �������� ��� ������������� ��������? � ��ۣ� ������� � �������������� �����. ����������� ���� ����� �������� � ����� ����� ���������, ����� ��� ��������� ���� ����ޣ�:

{ SET ImagesCount { = { SEQ ������� } — 1 } }

��� ���� ��������� �������� � ������ ImagesCount � ���������� � �ţ ��������� �������� ������������������ � ��������������� «�������». ��� ��� �������� ����� �������� �����. �������, ����� ��� ���� ������������.

������, ����� �������� � ������ ����� ��������� ���������� ��������, ����� ������ �������� ��ң�ң����� ������ �� ��� ��������. ��� ����� ������� ��� ����� ����, ��� ����� ���� �������:

{ REF ImagesCount * MERGEFORMAT }

���� ����� ����� ���� ����������: ���� � ��������� �� �������� ��������� �������� � ������� �� ���������� ������� ������, �� � �������� ����� �������� ������ ���������� �������� � ��������� �������. �����, ��� ��� ������, ���� ����� ������.

 ���������� ������ � ������ ����������� ����������: �������������� «�������» � «�������» ��������������.

����ޣ� ���������� ������� � ������

���� �������� �������� ����� ������:

���������� ����� �� ��������� ������ ��� Word 2007. ��� ����� ����� � ������� ��� ��������� ������ ������������� ��������� ������� ����� � ������ ��� �����. � ���� ����� � ���������� ��������. ��� ������� ������� ������� ����� ��������� ����.

��� �, ��� ����� ������� � ����� ��������:

1 Sub VowelsSum()
2 Const Vowels = «�ţ�������»
3 Dim nVowelsSum As Integer
4 Dim sTemp As String
5 Dim i As Integer
6 For i = 1 To Len(Vowels)
7 sTemp = Replace(Selection.Text, Mid(Vowels, i, 1), «», , , vbTextCompare)
8 nVowelsSum = nVowelsSum + Len(Selection.Text) — Len(sTemp)
9 Next
10 Application.StatusBar = nVowelsSum & » �������»
11 End Sub

���������� ������� ���� ����� �������� � ��������� ������.

�������� ������� �� ���� � ��������

����� ������������:

������������!
�����������, ����� �� �������� ����� � ������ � ����� ��������:
������� �����, ������� 2 ���. �������, ��� ����� ����, ����������� �������. ����������� ���� �����, ������� � �������� ������� ����� �����. ����� �� � ������ ������� � ������ ���������� �������� ����������. ������� �������, ������ ����� � �����, ���������, �� ������� �� ��� ������, � ���� �������, ����� �������.

����� ������� ������ ������ ��� ������, ������ ����� �� ����� � �������:

1 Sub DeleteErrorDashes()
2 With ActiveDocument.Range.Find
3 ‘���� �����, �����̣���� �������
4 .Text = «<[�-ѳ�]@-[�-ѳ�]@>»
5 .MatchWildcards = True
6 While .Execute
7 ‘���� � ����� ���� ������
8 If .Parent.SpellingErrors.Count > 0 Then
9 ‘������� �� ���� �����
10 .Parent.Text = Replace(.Parent.Text, «-«, «»)
11 End If
12 Wend
13 End With
14 End Sub

Обновлено: 15.04.2023

При работе в текстовом процессоре MS Word иногда могут возникать ситуации, когда нужно сделать относительно не сложные вычисления. Например, посчитать сумму, среднее значение, или вообще рассчитать уравнение.

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

Рассчитываем уравнения в документе

Результат вычисления уравнения в Word на строке состояния

Результат вычисления уравнения в Word на строке состояния

Самое интересное, что сделать это можно стандартными способами Microsoft Word и при вычислениях учитывается правильный порядок вычисления, потенциальными неудобствами может быть только невозможность выбрать точность вычисления, а также то, что ответ в документ необходимо будет записать в ручную.

Добавление команды вычисления на панель быстрого доступа

Добавление команды вычисления на панель быстрого доступа

Для того, чтобы воспользоваться вычислением достаточно выделить уравнение и посмотреть результат вычисления на строке состояния.

Вычисление в Word по шагам

Вычисление уравнения в Word по шагам

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

Делаем вычисления внутри таблицы

На этом возможности Word по произведению простых вычислений не ограничиваются, часто вычисления необходимо сделать в таблицах Word. Конечно, Word – это текстовый процессор и вычисления лучше оставить для Excel, но несложные операции типа суммы, среднего, или количества и т.п. можно произвести.

Вычисление в таблицах Word по шагам

Вычисление в таблицах Word по шагам

Для подсчета суммы в таблице Word необходимо выполнить следующие шаги:

Вот так выглядит результат суммирования продаж за первое и второе полугодие, а также общий итог.

Итоговый результат вычислений в таблицах Word

Итоговый результат вычислений в таблицах Word

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

Ваш браузер не поддерживает видео.

Если нужно узнать, сколько слов, страниц, знаков, абзацев или строк содержит документ, проверьте строку состояния.

Частичная статистика

Чтобы узнать количество слов во фрагменте документа, выделите нужный текст. В строке состояния будет отображено количество слов в выделенном тексте и во всем документе.

Статистика

Совет: Чтобы узнать количество символов, строк и абзацев в документе, щелкните счетчик слов в строке состояния.

Подсчет количества символов, строк и абзацев

Чтобы открыть диалоговое окно «Статистика» и узнать число знаков, строк, абзацев и другие сведения, щелкните поле статистики в строке состояния в Word для Mac. Если текст не выделен, Word подсчитывает число слов и знаков во всем документе и отображает его в диалоговом окне «Статистика».

Диалоговое окно

Подсчет количества слов в части документа

Чтобы подсчитать количество слов в определенной части документа, выделите нужный текст. Затем в меню Сервис выберите пункт Статистика.

Как и в Word для настольных систем, Word в Интернете количество слов при их введите.

Статистика

Если статистика не отображается в нижней части окна, убедитесь, что выбран режим правки (выберите Редактировать документ > Изменить в Word в Интернете).

Щелкните кнопку статистики, чтобы включить или выключить ее.

Статистика отключена

Возможно, вы заметили, Word в Интернете дает приблизительное количество слов. Это значит, что он не учитывает слова в таких областях, как текстовые поля, headers, footers и Графические элементы SmartArt. Если вам нужно точное количество слов, нажмите кнопку Открыть в Wordи посмотрите число слов в нижней части Word документа.

Читайте также:

      

  • Как убрать сетку в ворде
  •   

  • Webpack не является внутренней или внешней командой исполняемой программой или пакетным файлом
  •   

  • Asus transformer tf101g обновление прошивки последнее
  •   

  • Pdalife ru игры и программы для смартфонов
  •   

  • Как сделать roleplay в дискорд

Понравилась статья? Поделить с друзьями:
  • Как узнать количество строк в excel формула
  • Как узнать количество страниц в word на телефоне
  • Как узнать количество совпадений в excel
  • Как узнать количество слов в тексте word
  • Как узнать количество слов в документе word