Отправляет email-рассылки с помощью сервиса Sendsay
  Все выпуски  

Оглавление, макрос и стили списков.


MS Word Expert - профессиональная работа с текстом

Выпуск рассылки №78 от 2007-11-17 01:15

Здравствуйте!

В этом выпуске:
Несколько слов от автора рассылки.

Несколько слов от автора рассылки

Друзья!
Сегодня я бы хотел осветить две новости.
Первая новость. Я открыл новый сайт (блог) - VBAtips.ru, целиком посвященный полезным (и не очень) макросам для редактора Word и других программ пакета Microsoft Office. На страничке О сайте я рассказал о причинах, побудивших меня открыть этот новый сайт. Разумеется, в поддержку сайта создана и почтовая рассылка на сервере Subscribe.ru. Подписаться на нее можно либо через сайт, либо по этой ссылке: VBAtips.ru - подсказки и решения на VBA. Доступна также подписка на новости блога через RSS-канал.

Вторая новость. Это скорее акция (безвозмездно с моей стороны) для тех из вас, кто нуждается в небольшой помощи по оформлению своих документов, по приведению стилей документов в порядок и, как результат, облегчения и упрощения работы с документами.
В течении двух недель с момента выхода этого выпуска рассылки действуют следующие предложения:
1) если у вас есть документ, который вы хотите использовать как образец для своих будущих документов, то я могу создать шаблон такого документа для вас. На основании этого шаблона вы впоследствии будете оформлять все свои документы.
2) если у вас есть уже готовые документы, которые вам бы хотелось улучшить с учетом единообразного стилевого оформления, я могу провести аудит такого документа и привести его в порядок.
Акция, как я уже сказал, будет длиться в течении двух ближайших недель, но может закончится и раньше, если поступит много заявок.
Все документы оформляются в редакторе Word 2003 и будут корректно работать в этой версии редактора.
Я оставляю за собой право отказаться от работы, если структура документа сложна и, в связи с этим, приведение документа в порядок может занять у меня много времени. Особенно, если в документе есть сложные таблицы. Но все решается по ситуации.
Каждому приславшему заявку я отправлю письмо с уведомлением о получении заявки и сроков ее выполнения (учитывая очередность поступления заявок и их выполнения).
К оформленному документу и, в необходимых случаях, прилагаемому шаблону я предоставляю краткую справку по применению стилей и работе с шаблоном.
Ваши заявки вы можете направлять по адресу: docaudit собака mail точка ru с обязательным указанием в теме письма "Акция: аудит документов". Без этой темы письмо не будет мне доставлено (настройка почтового фильтра).

Советы и подсказки

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

Стили списков в редакторе Word 2007


Вторая часть материала, посвященная созданию стилей списков в редакторе Word 2007. Первая часть — Стили списков в редакторе Word 2003.

1. Откройте ваш документ или шаблон, для которых нужно сделать стиль списка.
2. На вкладке ленты Главная в группе команд Абзац нажмите на стрелку кнопки Многоуровневый список. Раскроется вложенное меню с шаблонами списков и дополнительными командами:
...
Читайте полный текст заметки: http://wordexpert.ru/2007/11/10/stili-spiskov-v-redaktore-word-2007/

Макрос массового уменьшения размеров всех рисунков


Иван, читатель рассылки, задал вопрос: "Есть документ Word с картинками (их много) и текстом. Необходимо "ужать" количество страниц. Уменьшить шрифт текста - понятно, но как уменьшить размер всех картинок одновременно, скажем, на 50%?"
Сделать это можно с помощью следующего макроса:

Первый вариант:
Sub changeImages()
Dim iShape As InlineShape 
For Each iShape In ActiveDocument.InlineShapes 
  iShape.Height = iShape.Height * 0.5 
  iShape.Width = iShape.Width * 0.5 
Next iShape 
End sub
Второй вариант (для каждого типа объектов):
Sub changeImages2()
For Each pic In ActiveDocument.Content.InlineShapes 
  If pic.Type = wdInlineShapePicture Then 
    pic.Height = pic.Height / 2 
    pic.Width = pic.Width / 2 
  End If 
Next 
For Each pic In ActiveDocument.Content.ShapeRange 
  If pic.Type = msoPicture Then 
    pic.Height = pic.Height / 2 
      If pic.LockAspectRatio = msoFalse Then 
        pic.Width = pic.Width / 2 
      End If 
  End If 
Next
End sub
Источник: VBAtips.ru - подсказки и решения на VBA

Прокомментировать: http://wordexpert.ru/2007/11/10/makros-massovogo-umensheniya-razmerov-vseh-risunkov/

Оглавление: как скрыть нумерацию страниц для отдельных элементов


На сайте RusFAQ.ru был задан вопрос о скрытии нумерации страниц для отдельных элементов оглавления. Ситуация была такая: оглавление собрано из заголовков трех уровней - Заголовок 1, Заголовок 2 и Заголовок 3 (рисунок).
Необходимо отобразить нумерацию страниц только для Заголовка 1 и Заголовка 3. Заголовок 2 должен был быть без нумерации. Как этого можно добиться?

Для решения этой ситуации следует использовать поля оглавления. Выполните следующие действия:
  1. Соберите оглавление в обычном порядке (меню Вставка | Ссылка | Оглавление и указатели | вкладка Оглавление).
  2. После создания оглавления встаньте на любой его элемент и щелкните правой кнопкой мыши для вызова контекстного меню.
  3. Из контекстного меню выберите команду Изменить поле. Откроется диалоговое окно Поле. В списке полей активной будет строка ТОС.
  4. Нажмите кнопку Коды поля. В диалоговом окне Поле появится панель Дополнительные свойства поля.
  5. Скопируйте и сохраните выражение, которое в данный момент отображается в текстовом поле Коды поля. Оно вам пригодится, когда вы захотите вернуть обычный режим сборки оглавления.
  6. В текстовом поле Коды поля введите взамен имеющегося выражения следующее: TOC \n "2-2". Буквально эта строка означает, что будет собрано оглавление с учетом заданного диапазона без указания номеров страниц. В данном случае пропускаемый диапазон - 2 уровень структуры документа, то есть Заголовок 2.
  7. Нажмите кнопку ОК и замените оглавление. Заголовки 2-го уровня будут выведены в оглавление без номеров страниц, тогда как другие заголовки - с номерами (рисунок).

Прокомментировать: http://wordexpert.ru/2007/11/12/oglavlenie-kak-skryit-numeratsiyu-stranits-dlya-otdelnyih-elementov/

Зеркальное отображение текста


Начиная с версии 6 в VBA появилась команда strReverce, предоставляющая возможность отзеркаливать символы. Например, слово ЖУК после выполнения следующего макроса будет выглядеть как КУЖ.
Sub reverse()
'Замена выделенного фрагмента текста на его зеркальное отображение.
Dim strStroka As String
Dim strRev As String
   strStroka = Selection.Text
   strRev = strReverse(strStroka)
   Selection.Text = Replace(strStroka, strStroka, strRev)
End Sub
Как использовать: выделите текст и выполните макрос.

Источник: VBAtips.ru - подсказки и решения на VBA

Прокомментировать: http://wordexpert.ru/2007/11/13/zerkalnoe-otobrazhenie-teksta/

Требуется помощь!

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

http://wordexpert.ru/feedback/

Если вы знаете ответы на эти вопросы, пожалуйста, пришлите ваше решение по электронной почте или через контактную форму на сайте.
Спасибо!

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

Полезные ссылки

Информация об авторских правах


В избранное