Статьи из блога
Подсчет количества заголовков в Оглавлении
Забавный макрос (правда, есть сомнения в его полезности) я нашел на одном из обсуждений пользователей редактора Word в группах Google.
Следующий макрос подсчитывает количество вхождений заголовков (или иных элементов) в Оглавлении и выводит сообщение об этом.
Sub Count_TOC_Entries() 'Подсчет количества заголовков (элементов) в Оглавлении Dim i As Integer With ActiveDocument If .TablesOfContents.Count > 0 Then For i = 1 To .TablesOfContents.Count MsgBox "Оглавление " & i & " в документе """ & .Name & """ содержит " & _ .TablesOfContents(i).Range.Paragraphs.Count - 1 & " заголовков (элементов)." Next i Else MsgBox "В документе """ & .Name & """ Оглавление не найдено." End If End With End Sub
Если вы не знаете, как подключить к документу и применить этот макрос, изучите следующие заметки с сайта:
Создание макроса из готового кода
Рубрика: Макросы
Метки: макросы | оглавление | статистика
Просмотров: 12283
Подписаться на комментарии по RSS
Версия для печати
Метки: макросы | оглавление | статистика
Просмотров: 12283
Подписаться на комментарии по RSS
Версия для печати
Еще записи по вопросам использования Microsoft Word:
- 3 способа очистки списка недавно открытых документов
- Абзац с цветным фоном
- Автоматическая запись макроса
- Автоматическая расстановка переносов
- Автоматическое обновление полей при открытии документа
- Автоматическое сохранение документа при его закрытии
- Быстрая смена ориентации страниц документа
- Быстрое перемещение между открытыми документами Word
- Быстрое создание нового документа на основе шаблона
- Быстрый ввод текста с помощью команды =rand()
- Ввод часто повторяющихся фрагментов текста
- Вставка будущей даты
- Вставка документа с книжной ориентацией в документ с альбомной ориентацией
- Вставка завтрашней даты
- Вставка изображений из указанной папки для Word 2007
- Вставка неформатированного текста
- Вставка скопированного текста в предопределенном формате
- Вставка текста с полями в нижний колонтитул
- Вставка текста с помощью кнопки
- Выделение видимой части экрана
- Двойная нумерация страниц в документе
- Задать обтекание текстом для всех рисунков в документе
- Замена жаргонных слов в тексте
- Замена знаков абзаца на пробелы в выделенном тексте
- Замена текста в скобках на пробел
Оставьте комментарий!