1

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

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

2

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

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

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

4

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

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

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