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

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


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

Выпуск рассылки №128 от 2008-12-26 08:07

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

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

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


Друзья!

Александр Витер, постоянный читатель сайта WordExpert.ru и его добровольный помощник (Александр часто отвечает на вопросы пользователей в комментариях к заметкам), сообщил, что открыл блог по настройке интерфейса в 2007-м Office. Цель — поделиться своими наработками с людьми, которые не желают переходить на новую версию офиса из-за невозможности добавлять свои кнопки на ленту. Думаю, что блог Александра поможет сомневающимся избавиться от этого предубеждения.
Ссылка на блог Александра: http://customoffice2007.blogspot.com/

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

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

Поиск слова и удаление строк над ним

Вопрос от Алексея:
Мне нужен макрос, который выполнял бы поиск ключевого слова (например "Подпись") и отсчитывал вверх от этого слова 8 строк, и вот эти отсчитанные 8 строк удалял.

Попробуйте следующий макрос:
Sub Del_8_lines()
Dim rDcm As Range
Dim x As Long
Set rDcm = ActiveDocument.Range
With rDcm.Find
   .Text = "подпись"
   If .Execute Then
      rDcm.Select
      ' Selection.Bookmarks("\line").Select
      ' Selection.Collapse
      Selection.MoveUp
      For x = 1 To 7
         Selection.Bookmarks("\line").Select
         Selection.Delete
         Selection.MoveUp
      Next
   End If
End With
End Sub
Оставить комментарий | Задать вопрос

Как вставить галочку (флажок) в текст документа

Ульви задал вопрос:
Я аналитик-маркетолог и мне часто приходится составлять вопросники. Как в MS Word поставить символ "галочку" внутрь квадрата? Я просмотрел в меню Вставка/Символ все символы, но не нашел его.

Ульви, чтобы в тексте документа разместить квадраты, в меню Вид наведите указатель мыши на пункт Панели инструментов и выберите команду Формы. На этой панели есть кнопка Флажок (рисунок).

Установите курсор ввода в нужном месте документа и нажмите эту кнопку. В это место будет вставлен квадрат. Настройте свойства у этого элемента, выбрав в контекстном меню команду Свойства (или нажав соответствующую кнопку на панели инструментов). Если вы работаете с редактором Word 2007, то перейдите на вкладку Разработчик и в группе команд Элементы управления нажмите кнопку Инструменты из предыдущих версий и выберите из раскрывшейся панели кнопку Флажок (рисунок).

Вы можете вставить также и расширенный элемент "Флажок" с текстом рядом с квадратом, если нажмете кнопку Флажок (элемент ActiveX) (рисунок).
Оставить комментарий | Задать вопрос

Удаление лишних абзацев: очередной макрос

Владимир спрашивает:
Подскажите, что делать в такой ситуации. К примеру, копируем из какого-то другого приложения текст в Word. Зачастую потом приходится с помощью клавиши Delete (иногда в сочетании с пробелом) подтягивать текст, чтобы он нахоился как надо, а не обрывками на каждой строчке. Эту рутичнную работу в принципе можно автоматизировать с помощью Замены. Указать искать знак Конец абзаца и заменить на пустоту (подтянуть и пр.), но тогда в этом случае подтянутся не только строки. но и абзацы. Но абзацы должны оставаться абзацами.

Вот код макроса, который объединяет разорванные строки абзацев, не касаясь нормальных абзацев. Ничего выделять не нужно. Макрос сам определит разрывы в абзацах или отдельные абзацы (с точкой в конце), и от этого будет исполняться нужная часть кода.
Sub delPar() 
Dim sPar As String 
Dim par As Paragraph 
Dim i As Integer 
i = 0 
For Each par In ActiveDocument.Paragraphs 
   If Right(par, 2) = Chr(46) & Chr(13) Then 
       i = i + 1 
   Else 
      If Right(par, 1) = Chr(13) Then 
         par.Range.Text = Replace(par.Range.Text, Chr(13), " ") 
      End If 
   End If 
Next par 
End Sub 
Оставить комментарий | Задать вопрос

Как определить номер параграфа, в котором найден фрагмент текста

Анатолий задал вопрос:
Как определить номер (pos) параграфа (Paragraphs), в котором найден нужный фрагмент, с тем, чтобы я смог его в дальнейшем использовать?

Например, можно определить текущую позицию курсора в сантиметрах с помощью следующего макроса:
Sub HorPos()
'Определение позиции курсора по горизонтали в сантиметрах
Dim Location As Double
Location = Selection.Information(wdHorizontalPositionRelativeToTextBoundary)
MsgBox PointsToCentimeters(Location)
End Sub
Если нужно определить номер параграфа, то это можно сделать так:
Sub numPar()
'Определяем номер текушего абзаца (параграфа), где стоит курсор
Dim sN As Long
sN = ActiveDocument.Range(1, Selection.Start).Paragraphs.Count
MsgBox sN
End Sub
Оставить комментарий | Задать вопрос

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

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

Вся информация, представленная на сайте WordExpert.ru и в этой рассылке, никаким образом не связана с корпорацией Microsoft. В рассылке упоминаются компании и продукты, которые могут быть зарегистрированными торговыми марками и принадлежать различным физическим и юридическим лицам как на территории РФ, так и за ее пределами.

Авторские права на все материалы, опубликованные на сайте WordExpert.ru и в этой рассылке (включая текст, фотографии, подборку, расположение и т.п.) принадлежат Кокину Антону Вадимовичу, если не указано иное. Вы можете свободно использовать и распространять эти материалы с обязательной ссылкой вида "Информация с сайта WordExpert.ru" и с обязательным указанием автора материала.

Все материалы, опубликованные на сайте WordExpert.ru и в этой рассылке, представлены на информационной основе. Вы можете использовать любую информацию с сайта WordExpert.ru или из данной рассылки исключительно на свой страх и риск. Тем не менее, я рекомендую перед применением какой-либо информации с сайта WordExpert.ru или из данной рассылки обязательно сохранять и создавать резервные копии ваших документов.

В этой рассылке также упоминаются различные web-страницы с соответствующими ссылками. Эти ссылки указываются исключительно в информационных целях и никакой рекомендации или одобрения с моей стороны данных веб-страниц не подразумевается, если не указано иное.


В избранное