Sub Macro1()
Const sName As String = "Strong"    ' the name of the character style
Dim orng As Range
    Set orng = ActiveDocument.Range
    With orng.Find
        .Style = sName
        .Text = ""
        Do While .Execute
            ActiveDocument.Range.InsertAfter orng.Text & vbCr
        Loop
    End With
End Sub