Sub MultiReplace()
Dim StrOld() As Variant, StrNew() As Variant
Dim RngFind As Range, RngTxt As Range, i As Long
    StrOld = Array("qq", "ohb", "krp", "ljd", "§")
    StrNew = Array("<olp>", "<spn>", "<vocalized_noise>", "<noise>", "")
    Set RngTxt = Selection.Range
    For i = 0 To UBound(StrOld)
        Set RngFind = RngTxt.Duplicate
        With RngFind.Find
            .ClearFormatting
            .Replacement.ClearFormatting
            .Text = StrOld(i)
            .Replacement.Text = StrNew(i)
            .Format = False
            .MatchWholeWord = True
            .MatchAllWordForms = False
            .MatchWildcards = False
            .Execute Replace:=wdReplaceAll
        End With
    Next
    Set RngFind = Nothing: Set RngTxt = Nothing
End Sub