Вариант 1 для замены форматирования

через макрос

следующий макрос изменяет заголовок из одного стиля в другой

Sub FindAndReplaceStyle()

Dim intI As Integer
Dim newStyle As String


For intI = 1 To ActiveDocument.Paragraphs.Count

    curStyle = ActiveDocument.Paragraphs(intI).Style

    If curStyle = "AxureHeading1" Then
       Call SetStyle(intI, wdStyleHeading1)

    ElseIf curStyle = "AxureHeading2" Then            
        Call SetStyle(intI, wdStyleHeading2)

    ElseIf curStyle = "AxureHeading3" Then
        Call SetStyle(intI, wdStyleHeading3)

    End If       

Next intI

и уменьшить дублирование кода и увеличить считываемость небольшая вспомогательная функция

Sub SetStyle(intI, newStyle)

    Dim ranActRange As Range
    Set ranActRange = ActiveDocument.Paragraphs(intI).Range

        With ranActRange               
            ranActRange.Style = newStyle
        End With

End Sub

С помощью поиска заменить диалог

в этой статья я обнаружил, что с помощью встроенной функции поиска замены (CTRL +H)вы можете выбрать для поиска форматирования. Я его не тестировал все еще на моем документе, но я смотрю многообещающе.

Вариант 2 Изменение уровня контура

As Patrick предложил можно изменить уровень структуры от текста к другому. Поскольку мое редактирование ответа Патрика было отклонено, я включил скриншот в этот ответ.

открыть диалог изменения стиля

выберите пункт формат-объект вы хотели бы изменить

выберите контур-уровень