Multi-replace Macro

How about this:

Sub MultiReplace()
    Dim replacements As Variant
    Dim i As Integer

    ' Define your phrases and replacements
    replacements = Array( _
        Array("ROr ROY", "LK Fin"), _
        Array("OKP and DON", "HU Dep"), _
        Array("Signs (Single)", "PE Dep") _
    )

    ' Loop through each pair and replace
    For i = LBound(replacements) To UBound(replacements)
        With ActiveDocument.Content.Find
            .Text = replacements(i)(0)
            .Replacement.Text = replacements(i)(1)
            .Forward = True
            .Wrap = wdFindContinue
            .Format = False
            .MatchCase = False
            .MatchWholeWord = False
            .MatchWildcards = False
            .Execute Replace:=wdReplaceAll
        End With
    Next i
End Sub