Обработка отметок с информацией о стиле абзаца

[andreyGO]

Вот возникла задачка:
Между "@" и "=" в начале абзацев (не всех) расставлены стили, которые необходимо применить к абзацам, а саму отметку стереть. Вот, например: @MIH_HEAD_F = АУДИТОРСКОЕ ЗАКЛЮЧЕНИЕ. После работы макроса получаем:"АУДИТОРСКОЕ ЗАКЛЮЧЕНИЕ" стилем MIH_HEAD_F. При этом в тексте могут встречаться и простые @ (например e-mail) без знака =. Все возможные стили уже в ворде. Вордовский поиск с выделением по ключу @*= работать не хочет(( стили в вба расставляются как Selection.Style = ActiveDocument.Styles("сюда вставляется название стиля"), если что.
Буду очень признателен за помощь!

[viter.alex]

Вы бы исходный документ приложили. Хотя бы часть. Тогда можно и сделать. Проблемы не вижу.

[andreyGO]

Благодарю,что откликнулись!
Вот документ с примененными стилями. На обработку он соответственно будет поступать в стиле "Body Text". Пометки со стилями генерируются сторонней программой. Поиск конструкций "@ ... =" организовал с помощью записи стандартного поиска "/@*=". Просто знаний VBA не хватает, чтобы включить процедуру замены стилей в тело поиска (например: Selection.Paragraphs.Style = ActiveDocument.Styles("Body Text"))!

[viter.alex]

А что делать в случае, если определение стиля есть, а текста нет? Как, например, в первых двух абзацах?

[andreyGO]

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

[viter.alex]

Попробуйте этот макрос. Он работает, но мне интересно, может быть он удаляет и что-то лишнее. Шаблон для поиска очень универсален, поэтому могут быть ложные срабатывания.

Sub ApplyStyleNameFromDescription()
  On Error Resume Next
  Dim sStyleName$
  With ActiveDocument.Range.Find
    .Text = "\@*=": .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
End Sub

[andreyGO]

Спасибо ОГРОМНОЕ!
Все замечательно работает!