Статьи из блога
Нумерованный абзац с красным цветом номера
Надежде потребовалась помощь по специальному макросу. Она пишет:
Дан текст. Нужен макрос, который бы нумеровал каждый абзац, и при этом номер был бы красного цвета. Вот с цветом у меня и проблема. Заранее благодарю.
Для этой цели нет необходимости писать макрос или вообще использовать макрокоманды. Если используется стандартный стиль "Нумерованный список по умолчанию", то достаточно лишь изменить этот стиль.
В меню Формат выбрать команду Стили и форматирование - в правой части экрана откроется область задач. Найдите в этой области задач стиль "Стиль нумерованный", подведите к нему указатель мыши и нажмите на появившемся справа от надписи треугольнике. Откроется меню.
В раскрывшемся меню выберите команду Изменить - откроется диалоговое окно Изменение стиля. В этом окне нажмите на кнопку Цвет шрифта и выберите нужный вам цвет, а затем нажмите ОК.
Теперь все ваши номера будут того цвета, который вы установили. А текст самих абзацев - цветом по умолчанию.
Если вы хотите, чтобы и в новых документах нумерация была цветной, то вам нужно изменять этот стиль в глобальном шаблоне Normal.dot или в том шаблоне, который вы используете для создания своих документов.
Подробнее о стилях списка можете прочитать в следующих заметках на сайте:
http://wordexpert.ru/page/stili-spiskov-v-redaktore-word-2003
http://wordexpert.ru/page/stili-spiskov-v-redaktore-word-2007
http://wordexpert.ru/page/sozdanie-stiley-dlya-zagolovkov-i-mnogourovnevyih-spiskov-v-word
http://wordexpert.ru/page/kopirovanie-stiley-iz-odnogo-dokumenta-v-drugoy
http://wordexpert.ru/page/kak-otkryit-shablon-dokumenta-dlya-redaktirovaniya
Метки: нумерация | стили | форматирование
Просмотров: 22171
Подписаться на комментарии по RSS
Версия для печати
Еще записи по вопросам использования Microsoft Word:
- 10 вопросов и ответов по редактору Word (1 часть)
- Word 2007: добавляем свою вкладку и свои команды
- Word 2007: полотно, рисунки, линии
- Word 2007: смена формата сохранения файла
- Word 97 - решение проблемы с отображением символов на линейке
- Word 97. Слияние документов как один из способов упростить свою работу
- Абзац с цветным фоном
- Автозаполняемые колонтитулы
- Автоматизация текстового набора в Word
- Автоматическая нумерация билетов
- Автоматическая расстановка переносов
- Автоматическое обновление полей при открытии документа
- Автоматическое сохранение документа при его закрытии
- Автотекст с последовательной нумерацией
- Автоформат документов
- Белый текст на синем фоне в Word 2007
- Буквица
- Быстрая смена ориентации страниц документа
- Быстрое изменение стиля форматирования текста
- Быстрое удаление границ у таблицы
- Быстрый поиск форматированного текста
- В чем различие между Автозаменой и Автотекстом
- В чем различие между стилями Обычный (Normal) и Основной текст (Body Text)?
- Ввод повторяющихся фрагментов текста в Word 2007
- Ввод часто повторяющихся фрагментов текста
Форум
Читают
Обсуждают
страницы
сайты
статистика
Комментариев: 3
Как программно выделить области которые я могу редактировать при заблокированном документе?
Как показать такие области - SelectAllEditableRange.
Word 2007.
Заранее спасибо!
Добрый день! Не могу найти раздел куда можно задать вопрос, поэтому решила пойти таким путем и написать комментарий-вопрос.
Ежедневно мы открываем о обрабатываем более сотни документов, в каждый документ вставляем "шапку" с реквизитами организации (картинка, текст, текст) на разных строчках. Сейчас вставка данной "шапки" организована через Меню->Вставка->Автотект, возможно ли сделать макрос с помощью которого можно будет вставлять "шапку" документа с помощью кнопки на панели инструментов? Учитывая, что "шапка" вставляется каждый раз в новый документ??? Это помогло бы гораздо ускорить работу. Мы работаем в Word 2007 и Word 2003.
С уважением и надеждой на ответ, Надежда.
Надежда, вот образец макроса для вставки фрагмента автотекста. Замените текст в скобках на имя вашего автотекста (кавычки оставьте!).
В 2003 вынесите кнопку макроса на панель инструментов, а в 2007 - на панель быстрого доступа (http://wordexpert.ru/page/kak-dobavit-knopki-na-panel-byistrogo-dostupa-v-vord-2007 или http://wordexpert.ru/page/word-2007-dobavlyaem-svoyu-vkladku-i-svoi-komandy).
Sub akInsHead() ' Вставка "шапки" с реквизитами организации Dim atEntry As AutoTextEntry Set atEntry = ActiveDocument.AttachedTemplate.AutoTextEntries("НАЗВАНИЕ_ФРАГМЕНТА_АВТОТЕКСТА") 'Вставляем "шапку" из автотекста atEntry.Insert Where:=Selection.Range, RichText:=True Set atEntry = Nothing End Sub