Форум сетевых администраторов - Макрос выделения 1-го слова (MS Word 2003)

Форум сетевых администраторов (http://netadmin.ws/forum/index.php)
- Другие (http://netadmin.ws/forum/forumdisplay.php?forumid=19)
-- Макрос выделения 1-го слова (MS Word 2003) (http://netadmin.ws/forum/showthread.php?threadid=10163)

Помещено Tagore 15-01-2005 в 21:16:

Макрос выделения 1-го слова (MS Word 2003)

Необходимо выделить первое слово в каждом новом абзаце - 4500 строк в словаре, а форматы разные - придумать условия макроса не смог, цифр там нет, но длина слов разная - отделяется от значения слова 1 пробелом. Имели ли дело?

М.

__________________
Международное брачное агенство в Сибири.

Помещено Viktor 18-01-2005 в 12:01:

quote:
Необходимо выделить первое слово в каждом новом абзаце

Что значит выделить?
Например, полужирным или цветом?

Пример выделения первых слов курсивом:

code:

Public Sub FirstWordSelect()
Dim Par As Paragraph
For Each Par In ThisDocument.Paragraphs
    Par.Range.Words(1).Italic = True
Next
End Sub

__________________
Тест - проверка верности!

Формат времени GMT. Текущее время 00:21.

Показаны 2 сообщений на этой странице