Sub qwe()
    Application.ScreenUpdating = False
    With ThisDocument.Tables(1)
        rty .Range, "О" & ChrW(1187) & "т" & ChrW(1199) & "стік " & ChrW(1178) & "аза" & ChrW(1179) & "стан"
        rty .Range, "Солт" & ChrW(1199) & "стік " & ChrW(1178) & "аза" & ChrW(1179) & "стан", "Т" & ChrW(1199) & "ркістан"
        rty .Range, "Алматы " & ChrW(1179) & "аласы", "Шымкент " & ChrW(1179) & "аласы"
    End With
    Application.ScreenUpdating = True
End Sub
Sub rty(ByVal r As Range, s1$, Optional s2$)
    With r.Find
        .ClearFormatting
        .Execute s1
        If Not .Found Then Exit Sub
        If s2 = "" Then
            .Parent.Cells.Delete wdDeleteCellsEntireRow
        Else
            .Parent.Select
            With Selection
                .InsertRowsBelow 1: .Collapse 1: .TypeText s2
            End With
        End If
    End With
End Sub