Поиск и применение стилей к абзацам документа

Вопрос от Андрея:

Я предложил следующий пример макроса:

Sub styleApply_Delete()
'Ищем вхождение строки типа "@MIH_HEAD_F ",
'применяем к текущему параграфу стиль, имя которого взято из найденного вхождения,
'удаляем найденное вхождение строки,
'удаляем лишние пробелы перед абзацами
Dim myStyle As String
Dim par As Paragraph
On Error Resume Next
With Selection.Find
   .ClearFormatting
   .Replacement.ClearFormatting
   .Text = "(\@)([A-z]{1;}^32)"
   .Forward = True
   .MatchWildcards = True
   .Wrap = wdFindContinue
   Do While .Execute
      With Selection
         If Right(.Range, 1) = Chr(32) Then
            .MoveLeft unit:=wdCharacter, count:=1, Extend:=wdExtend
         End If
         .MoveStart unit:=wdCharacter, count:=1 'сужаем выделение слева
         myStyle = Selection.Text   'запоминаем выделение
         .MoveStart unit:=wdCharacter, count:=-1   'расширяем выделение слева
         .Paragraphs(1).Style = myStyle   'применяем к текущему параграфу стиль с именем выделения
         .Delete  'удаляем выделение
      End With
   Loop
End With
'Удаляем лишние пробелы перед параграфами (абзацами)
For Each par In ActiveDocument.Paragraphs
   If Left(par.Range.Text, 1) = Chr(32) Then
      par.Range.Text = LTrim(par.Range.Text)
   End If
Next par
End Sub

Чуть позже Андрей сообщил:

Благодарю за участие!
Макрос рабочий.
Если интересно, привожу способ, на котором остановились. Маска поиска тэгов оказалась неработоспособной, так как в некоторых текстах встречались адреса электронной почты, которые приводили к некорректной работе.
Поскольку тэгов было порядка 15 штук - для каждого был создан подобный фрагмент кода:

' Обрабатываем каждый тэг стиля и применяем к соответствующему абзацу
  With ActiveDocument.range.find
    .Text = "\@EMPTY_LS = ": .MatchWildcards = True
    While .Execute
      'Определяем имя стиля из найденного текста, убирая @, = и обрезая пробелы
      sStyleName = Trim(Replace(Replace(.Parent.Text, "@", ""), "=", ""))
      'Применяем стиль к абзацу, в котором найден текст
      .Parent.Paragraphs(1).range.ParagraphFormat.Style = ActiveDocument.Styles(sStyleName)
      'Обработчик ошибки, на тот случай, если стиль в документе отсутствует. Если ошибки нет,
      'то найденный текст удаляем.
      If Err.Number = 5941 Then Err.Clear Else: .Parent.Delete
    Wend
  End With