Sub CleanUp()
    Dim oRng As Word.Range
    Set oRng = ActiveDocument.Range
    With oRng.Find
        .ClearFormatting
        .Text = "MESSAGE:^t"
        .Replacement.Text = "Message:  "
        .Execute Replace:=wdReplaceAll
    End With
End Sub