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, то присылайте их по электронной почте или через контактную форму на сайте. Любые ваши дельные советы и подсказки будут размещены в очередных выпусках рассылки и на сайте (с указанием вашего авторства).
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
Оглавление: как скрыть нумерацию страниц для отдельных элементов
На сайте RusFAQ.ru был задан вопрос о скрытии нумерации страниц для отдельных элементов оглавления. Ситуация была такая: оглавление собрано из заголовков трех уровней - Заголовок 1, Заголовок 2 и Заголовок 3 (рисунок).
Необходимо отобразить нумерацию страниц только для Заголовка 1 и Заголовка 3. Заголовок 2 должен был быть без нумерации. Как этого можно добиться?
Для решения этой ситуации следует использовать поля оглавления. Выполните следующие действия:
Соберите оглавление в обычном порядке (меню Вставка | Ссылка | Оглавление и указатели | вкладка Оглавление).
После создания оглавления встаньте на любой его элемент и щелкните правой кнопкой мыши для вызова контекстного меню.
Из контекстного меню выберите команду Изменить поле. Откроется диалоговое окно Поле. В списке полей активной будет строка ТОС.
Нажмите кнопку Коды поля. В диалоговом окне Поле появится панель Дополнительные свойства поля.
Скопируйте и сохраните выражение, которое в данный момент отображается в текстовом поле Коды поля. Оно вам пригодится, когда вы захотите вернуть обычный режим сборки оглавления.
В текстовом поле Коды поля введите взамен имеющегося выражения следующее: TOC \n "2-2". Буквально эта строка означает, что будет собрано оглавление с учетом заданного диапазона без указания номеров страниц. В данном случае пропускаемый диапазон - 2 уровень структуры документа, то есть Заголовок 2.
Нажмите кнопку ОК и замените оглавление. Заголовки 2-го уровня будут выведены в оглавление без номеров страниц, тогда как другие заголовки - с номерами (рисунок).
Начиная с версии 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
Как использовать: выделите текст и выполните макрос.
У меня есть документ с рисунками. Под
рисунками - их названия. В тексте документа
имеются ссылки на номера рисунков в форме
полей. При обновлении полей документа
кроме номеров рисунков в этих полях
отображаются и сами рисунки.
Подскажите, как это исправить?
Вопрос:
Существует ли при рисовании возможность дополнить список стандартных автофигур своими часто используемыми автофигурами?
Вся информация, представленная на сайте WordExpert.ru и в этой рассылке, никаким образом не связана с корпорацией Microsoft. В рассылке упоминаются компании и продукты, которые могут быть зарегистрированными торговыми марками и принадлежать различным физическим и юридическим лицам как на территории РФ, так и за ее пределами.
Авторские права на все материалы, опубликованные на сайте WordExpert.ru и в этой рассылке (включая текст, фотографии, подборку, расположение и т.п.) принадлежат Кокину Антону Вадимовичу, если не указано иное. Вы можете свободно использовать и распространять эти материалы с обязательной ссылкой вида "Информация с сайта WordExpert.ru" и с обязательным указанием автора материала.
Все материалы, опубликованные на сайте WordExpert.ru и в этой рассылке, представлены на информационной основе. Вы можете использовать любую информацию с сайта WordExpert.ru или из данной рассылки исключительно на свой страх и риск. Тем не менее, я рекомендую перед применением какой-либо информации с сайта WordExpert.ru или из данной рассылки обязательно сохранять и создавать резервные копии ваших документов.
В этой рассылке также упоминаются различные web-страницы с соответствующими ссылками. Эти ссылки указываются исключительно в информационных целях и никакой рекомендации или одобрения с моей стороны данных веб-страниц не подразумевается, если не указано иное.
До свидания!
Если у вас возникли какие-то вопросы по затрагиваемым в рассылке темам, я буду очень рад узнать их и в меру своей компетенции ответить на них. Также мне будет приятно, если вы, уважаемые коллеги, поделитесь своим опытом работы с текстовым редактором MS Word. Мой адрес для писем указан внизу рассылки под копирайтом.
C уважением, Антон Кокин. Жду ваших писем и предложений!