Sub selectWord2()

Dim rTmp As Range

Set rTmp = ActiveDocument.Range
    With rTmp.Find
        .Text = Selection.Text
        If Selection.Text = "Клиент" Then
            .Replacement.Text = "Принципал"
            .Replacement.Highlight = True
            .Execute Replace:=wdReplaceAll
        ElseIf Selection.Text = "Заказчик" Then
            .Replacement.Text = "Принципал"
            .Replacement.Highlight = True
            .Execute Replace:=wdReplaceAll
            Else
                If Selection.Text = "Приложениях" Then
                    .Replacement.Text = "Дополнительных соглашениях"
                    .Replacement.Highlight = True
                    .Execute Replace:=wdReplaceAll
                ElseIf Selection.Text = "Приложением" Then
                    .Replacement.Text = "Дополнительными соглашениями"
                    .Replacement.Highlight = True
                    .Execute Replace:=wdReplaceAll
                    Else
                        If Selection.Text = "Исполнитель" Then
                            .Replacement.Text = "Агент"
                            .Replacement.Highlight = True
                            .Execute Replace:=wdReplaceAll
                        ElseIf Selection.Text = "Компания" Then
                            .Replacement.Text = "Агент"
                            .Replacement.Highlight = True
                            .Execute Replace:=wdReplaceAll
                            Else
                                If Selection.Text = "Договор" Then
                                    .Replacement.Text = "Приложение"
                                    .Replacement.Highlight = True
                                    .Execute Replace:=wdReplaceAll
                                End If
                        End If
                End If
                
        End If
    End With

End Sub