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

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

Рассылка закрыта

При закрытии подписчики были переданы в рассылку "Особенности национального бизнеса" на которую и рекомендуем вам подписаться.

Вы можете найти рассылки сходной тематики в Каталоге рассылок.

←   Январь 2010   →
 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
Автор
pps2003@bk.ru

Статистика

2.949 подписчиков
-2 за неделю
←   Все выпуски   →

В этом выпуске опубликованы следующие советы:


Word Expert - профессиональная работа с текстом
Выпуск рассылки №142 от 2010-01-18 08:05

В этом выпуске:

  1. Советы и подсказки
  2. Полезные ссылки
  3. Информация об авторских правах

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

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

Изменение размера выделенного рисунка

Дмитрий спрашивает:
Как написать макрос, который назначал бы размер выделенного рисунка -- 40% от исходного размера?

Дмитрий, на эту тему уже была опубликована заметка на сайте: Макрос массового уменьшения размеров всех рисунков. В ней описан макрос для изменения размеров ВСЕХ рисунков.

Для изменения размера одного рисунка следует немного подкорректировать макрос с тем, чтобы изменялся лишь выделенный рисунок. Вот примерное решение: 
Sub PicScale()
'Изменение размера рисунка на 40% от исходного
Dim Message As String
On Error Resume Next
If Selection.Type = wdSelectionIP Then
MsgBox "Пожалуйста, выделите ваш рисунок"
Else
'проверка типа объекта и, если это картинка (InlineShape), то происходит ее
'преобразование в рисунок (Shape)
If Selection.Type = wdSelectionInlineShape Then
Selection.InlineShapes(1).ConvertToShape
End If
Selection.ShapeRange.IncrementLeft MillimetersToPoints(Message)
'Изменяем размер по высоте (по умолчанию)
Selection.ShapeRange.Height = Selection.ShapeRange.Height * 0.4
'либо изменяем по ширине - выберите свой способ, а ненужный закомментируйте
Selection.ShapeRange.Width = Selection.ShapeRange.Width * 0.4
End If
End Sub
Оставить комментарий | Задать вопрос

Преобразование сносок в обычный текст

На форуме был задан вопрос о возможности преобразования сносок в обычный текст (с небольшим форматированием). Я нашел решение и предлагаю его в виде макроса. 
Sub fnToText()
'преобразование сносок в обычный текст
Dim actdoc As Document
Dim fn As Word.Footnote
Dim rngFN As Word.Range
Dim i As Long
Set actdoc = ActiveDocument
'работаем со сносками в обратном порядке (от последней до первой)
For i = actdoc.Footnotes.Count To 1 Step -1
  Set fn = actdoc.Footnotes(i)  'запоминаем сноску
  Set rngFN = fn.Reference  'определяем ссылку на сноску (знак сноски)
  rngFN.Collapse wdCollapseEnd  'перемещаемся в конец слова со знаком сноски
  'вставляем текст сноски после знака сноски с сохранением форматирования
  rngFN.FormattedText = fn.Range.FormattedText
  rngFN.InsertBefore Chr(32) & Chr(151) & Chr(32)  'вставляем длинное тире
  fn.Delete 'удаляем сноски
Next i
End Sub
Результат преобразования можно видеть на скриншоте: (рисунок).
Оставить комментарий | Задать вопрос

Как начать новый раздел с нечетной страницы

К заметке "Поиск заголовков и вставка разрывов страниц перед ними" некоторые пользователи оставили абсолютно справедливые комментарии, что при выборе определенного стиля, например, "Заголовок 1", можно в его настройках определить вставку разрыва страницы перед текстом, оформленным данным стилем. И нечего "огород городить" с помощью макроса.
Полностью согласен.

Но мне поступил новый вопрос на почти аналогичную тему от пользователя Валерия. Он спрашивал:
В документе есть разделы, которые начинаются с новой страницы при выборе Heading 1. Иногда они попадают на четные страницы. Как сделать так, чтобы при выборе Heading 1 новый раздел автоматически начинался с нечетной страницы?

Я снова подумал о макросе и у меня получился следующий вариант.
Поскольку в настройках нет возможности установить начало стиля заголовка именно с нечетной страницы - только с новой страницы - то я и решил использовать макрос.
Если в документе есть разделы, то могут появиться пустые разделы (без текста). В этом случае я рекомендую удалить все разделы, применить макрос и потом вручную добавить нужные разделы (ну, не совершенный макрос, что поделаешь...). 
Sub insBreakOddPage()
'Поиск стиля "Заголовок 1" и перенос заголовков на нечетные страницы
'Если в документе есть разрывы (разделы), то они предварительно удаляются (закомментировано)
Dim i As Long
Dim n As Long
Dim ST As Style
Dim oSec As Section
Dim myRange As Range

'For Each oSec In ActiveDocument.Sections
'  Set myRange = oSec.Range
'  myRange.Collapse wdCollapseEnd
'  myRange.MoveEnd Unit:=wdCharacter, Count:=-1
'  myRange.Delete
'Next

Set ST = ActiveDocument.Styles("Заголовок 1")
Selection.HomeKey Unit:=wdStory  'переходим в начало документа

With Selection.Find
   .ClearFormatting
   .Replacement.ClearFormatting
   .Forward = True
   .Wrap = wdFindContinue
   .Text = ""
   .style="ST"
   'Запускаем цикл поиска
   Do While .Execute
      If Selection.style="ST" Then
         i = i + 1
         If i = 1 Then
            Selection.GoTo What:=wdGoToHeading, Which:=wdGoToNext
         Else
            Selection.Collapse wdCollapseStart
            n = n + 1   'считаем найденные заголовки
            Selection.InsertBreak Type:=wdSectionBreakOddPage
            Selection.Move wdParagraph, 1
         End If
      Else
         Selection.GoTo What:=wdGoToHeading, Which:=wdGoToNext
      End If
   Loop
End With

MsgBox "Закончено." & vbCr & "Выполнено для " & n & " заголовков"
End Sub
Оставить комментарий | Задать вопрос

Вставка изображений из указанной папки для Word 2007

Автор заметки и шаблона – Александр Витер.

Если вам необходимо часто вставлять изображения в документ из одной и той же папки, то вам может оказаться полезным предлагаемая надстройка для Word 2007. После подключения надстройки на вкладке «Вставка» появится группа «Изображений из папки» (рисунок).

Для вставки изображения в документ нужно выбрать его из галереи. Также вы можете задать режим вставки, вставить имя файла в название к рисунку, отказаться от нумерации при вставке названия.

Все элементы управления в группе снабжены всплывающими подсказками, поясняющими их назначение.
При первом открытии галереи после выбора папки вы заметите задержку; это вызвано загрузкой уменьшенных изображений из папки для предварительного просмотра. В дальнейшем этой задержки не будет, пока вы не смените папку или не обновите содержимое галереи.

Внешний вид галереи (рисунок).

Возле каждого изображения стоит его номер, во всплывающей подсказке содержится имя файла, размер изображения и DPI (dpi (произносится как ди-пи-ай) — сокращение для англ. dots per inch, количество точек на линейный дюйм. Источник: Википедия.).

Клик по уменьшенному изображению вставит в документ изображение из соответствующего файла. При этом изображение будет вставлено либо в текст, либо с обтеканием текста, в соответствии с выбранным «Режимом вставки».
Если при этом будет отмечен флажок «Вставлять название», то к изображение будет автоматически вставлено название, как при выполнении команды «Вставить название». При отмеченном флажке «Имя файла в названии» в название к рисунку будет добавлено имя файла. При отмеченном флажке «Не нумеровать» из названия будет удалён номер рисунка и постоянная часть.
Текст названия будет оформлен стилем «Название объекта».

Скачать надстройку можно со страницы "Полезности Word". Программный код надстройки открыт для просмотра и редактирования.
Оставить комментарий | Задать вопрос

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

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

Авторские права на все материалы, опубликованные на сайте WordExpert.ru принадлежат мне - Кокину Антону Вадимовичу, если не указано иное, и охраняются Законом РФ "Об авторском праве и смежных правах".
Перепечатка материалов сайта в оффлайн-изданиях (журналы, газеты, книги и др.) без согласования с Кокиным Антоном Вадимовичем запрещена. Разрешается перепечатывать материалы сайта в онлайн-изданиях при условии сохранения имени автора и наличия гиперссылки на www.wordexpert.ru.
Все материалы, опубликованные на сайте WordExpert.ru, представлены на информационной основе - "как есть". Вы можете использовать эти материалы исключительно на свой страх и риск. Тем не менее, я настоятельно рекомендую перед применением какой-либо информации с сайта WordExpert.ru обязательно сохранять и создавать резервные копии документов, с которыми вы работаете.

В избранное