Как выделить текст принадлежащий определённому styles

[kibernetics]

Для документа WORD присутствуют несколько стилей. Как можно всему тексту принадлежащему определённому стилю присвоить wdUpperCase, например?

[dr.MIG]

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

Код: Выделить всё

For Each с In ActiveDocument.Characters
    If с.Style="Твой стиль" Then
        с.Case = wdUpperCase
    End If
Next


[alibek]

Делай поиск по стилю и перебирай найденные результаты.

[kibernetics]

Понял. Спасибо. Разобрался. Работает
Определяю параграф на принадлежность стилю. Так как параграфу не может быть назначено более одного стиля, можно всему ранжу применять модификацию.
Надеюсь, что я прав, в плане одного стиля.

[dr.MIG]

Так ведь в абзаце можно хоть каждому символу задать разный стиль...

[kibernetics]

Да, точно...
Чуть не прокололся.
Это, dr.MIG, не подскажешь, вот я определил текст, находящийся в нужном мне стиле.
Как можно впереди него, и после него добавить по новой строке?
Не мог бы показать пример перемещения?
И ещё, может знаешь, как можно отключить перерисовку WORD'a во время применения всяких изменений тексту?

[viter.alex]

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

Код: Выделить всё

For Each с In ActiveDocument.Characters
    If с.Style="Твой стиль" Then
        с.Case = wdUpperCase
    End If
Next

Посимвольно? Эдак вы и до Второго пришествия не успеете. Пользуйтесь поиском при помощи объекта Find. Вот пример. Ищем текст нужного стиля и последний пробел в найденном абзаце заменяем на неразрывный. Только при помощи Find

Код: Выделить всё

Sub UnbreakLastTwoWords()
   'Ищем абзац нужного стиля
   With ActiveDocument.Range.Find
      .ClearFormatting: .Style = ActiveDocument.Styles("Глава")
      .Text = ""
      While .Execute 'Если нашли
         'Ищем в этом абзаце последний пробел и заменяем его на неразрывный
         With .Parent.Paragraphs(1).Range.Find
            .Text = " ": .Forward = False
            .Replacement.Text = ChrW(160)
            .Execute Replace:= 1 'wdReplaceOne
         End With
      Wend
   End With
End Sub

…Как можно впереди него, и после него добавить по новой строке?
Не мог бы показать пример перемещения?…

Не понятно, что подразумевается под «добавить по новой строке». Новый абзац? Строка и абзац с точки зрения Word — это два разных объекта. Модифицированный предыдущий пример

Код: Выделить всё

Sub TestFind()
'Ищем абзац нужного стиля
   With ActiveDocument.Range.Find
      .ClearFormatting: .Style = ActiveDocument.Styles("Глава")
      .Text = "*^0013": .MatchWildCards = True
      .Replacement.Text = "текст спереди " & "^&" & "текст сзади"
      .Execute Replace: = 2 'wdReplaceAll
   End With
End Sub

… как можно отключить перерисовку WORD'a во время применения всяких изменений тексту?

Код: Выделить всё

Application.ScreenUpdating = False

[kibernetics]

Мега респект!
Очень помогло.

[viter.alex]

Для документа WORD присутствуют несколько стилей. Как можно всему тексту принадлежащему определённому стилю присвоить wdUpperCase, например?

Не обратил внимания на самый первый вопрос темы. Это все делается одной строкой, если текст действительно принадлежит одному стилю:

Код: Выделить всё

ActiveDocument.Styles("Мой стиль").Font.AllCaps = True

[kibernetics]

viter.alex
ёу! ваще круто!
сенкс, хороший типс.