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

Нумерованный абзац с красным цветом номера

Надежде потребовалась помощь по специальному макросу. Она пишет:

Дан текст. Нужен макрос, который бы нумеровал каждый абзац, и при этом номер был бы красного цвета. Вот с цветом у меня и проблема. Заранее благодарю.

Для этой цели нет необходимости писать макрос или вообще использовать макрокоманды. Если используется стандартный стиль "Нумерованный список по умолчанию", то достаточно лишь изменить этот стиль.

В меню Формат выбрать команду Стили и форматирование - в правой части экрана откроется область задач. Найдите в этой области задач стиль "Стиль нумерованный", подведите к нему указатель мыши и нажмите на появившемся справа от надписи треугольнике. Откроется меню.

В раскрывшемся меню выберите команду Изменить - откроется диалоговое окно Изменение стиля. В этом окне нажмите на кнопку Цвет шрифта и выберите нужный вам цвет, а затем нажмите ОК.

Теперь все ваши номера будут того цвета, который вы установили. А текст самих абзацев - цветом по умолчанию.

Если вы хотите, чтобы и в новых документах нумерация была цветной, то вам нужно изменять этот стиль в глобальном шаблоне 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

twitter.com facebook.com vkontakte.ru odnoklassniki.ru mail.ru ya.ru rutvit.ru myspace.com technorati.com digg.com friendfeed.com pikabu.ru blogger.com liveinternet.ru livejournal.ru memori.ru google.com bobrdobr.ru mister-wong.ru yahoo.com yandex.ru del.icio.us

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

Комментариев: 3

  1. Димон
    27.07.2009 в 09:44 | #1

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

    Как показать такие области - SelectAllEditableRange.

    Word 2007.

    Заранее спасибо!

  2. Надежда
    30.07.2009 в 13:12 | #2

    Добрый день! Не могу найти раздел куда можно задать вопрос, поэтому решила пойти таким путем и написать комментарий-вопрос.

    Ежедневно мы открываем о обрабатываем более сотни документов, в каждый документ вставляем "шапку" с реквизитами организации (картинка, текст, текст) на разных строчках. Сейчас вставка данной "шапки" организована через Меню->Вставка->Автотект, возможно ли сделать макрос с помощью которого можно будет вставлять "шапку" документа с помощью кнопки на панели инструментов? Учитывая, что "шапка" вставляется каждый раз в новый документ??? Это помогло бы гораздо ускорить работу. Мы работаем в Word 2007 и Word 2003.

    С уважением и надеждой на ответ, Надежда.

  3. 03.08.2009 в 15:45 | #3

    Надежда, вот образец макроса для вставки фрагмента автотекста. Замените текст в скобках на имя вашего автотекста (кавычки оставьте!).

    В 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

Оставьте комментарий!

(обязательно)

^ Наверх