1 Тема от NickStarKinG

  • NickStarKinG
  • рядовой
  • Неактивен
  • Зарегистрирован: 28.11.2010
  • Сообщений: 2

Тема: Найти и подчеркнуть каждое n-ное слово в тексте MS Word 2003

Помогите!!! У моей девушки беда! Необходимо выполнить лабораторную работу, где одно из заданий  - подчеркнуть каждое 10е слово текста. Всего 650 страниц - именно по этому в ручную не рентабельно) Перерыл все что можно, даже старые справочники А. Левина в надежде... Ничего... Заранее спасибо, Друзья мои!

2 Ответ от Вождь

  • Найти и подчеркнуть каждое n-ное слово в тексте MS Word 2003
  • Вождь
  • Модератор
  • Неактивен
  • Зарегистрирован: 07.01.2010
  • Сообщений: 745
  • Поблагодарили: 181

Re: Найти и подчеркнуть каждое n-ное слово в тексте MS Word 2003

Dim R As Range

    Set R = ActiveDocument.Range(0, 0)
    Do While R.Move(wdWord, 10) = 10
        R.Previous.Words.First.Font.Underline = wdUnderlineSingle
    Loop

Слова, как они приняты в Word.

Макросы под заказ и готовый пакет - mtdmacro.ru

СайтВождь

3 Ответ от NickStarKinG

  • NickStarKinG
  • рядовой
  • Неактивен
  • Зарегистрирован: 28.11.2010
  • Сообщений: 2

Re: Найти и подчеркнуть каждое n-ное слово в тексте MS Word 2003

О!!! Спасибо! Только вот объясните пожалуйста как пользоваться этим кодом, где его исполнять?

4 Ответ от Вождь

  • Найти и подчеркнуть каждое n-ное слово в тексте MS Word 2003
  • Вождь
  • Модератор
  • Неактивен
  • Зарегистрирован: 07.01.2010
  • Сообщений: 745
  • Поблагодарили: 181

Re: Найти и подчеркнуть каждое n-ное слово в тексте MS Word 2003

Это макрос для MS Word.
Пользуем так:
> Запускаем MS Word
> Открываем документ (Ctrl+O)
> Alt+F11
> Меню "Insert" - Пункт "Module"
> Набираем текст макроса:
Sub Макрос()
' здесь код из моего первого ответа
End Sub
> Alt+Q
> Alt+F8
> В списке выбираем имя "Макрос"
> Кнопка "Выполнить"

Макросы под заказ и готовый пакет - mtdmacro.ru

СайтВождь