<script>
        $.ajax({
            cache: false,
            type: "Get",
            url: "/ProductRequestGroup/GetDeliveryAddress",
            data:  {
                 idGroup: "111526"
            },
            success: function (a) {
                if (a == null || a == "") {
                    $('#DeliveryAddress').val('Адрес не указан');
                }
                else {
                    $('#DeliveryAddress').val(a);
                }
            }
        });
    </script>

<script>
        $.ajax({
            cache: false,
            type: "Get",
            url: "/ProductRequestGroup/GetResponcibleUser",
            data:  {
                 idGroup: "111526"
            },
            success: function (a) {
                if (a == null || a == "" || a.Data == null || a.Data == "") {
                    $('#ResponcibleUser').val('Ответственное лицо не указано');
                }
                else {
                    $('#ResponcibleUser').val(a.Data);
                }
            }
        });
    </script>

=ПОИСК("Солн";G3;1)

=ПОИСК("Солн";$G3;1)

Set objWrdDoc = objWrdApp.Documents.Open("C:\Doc1.doc")

Set objWrdDoc = objWrdApp.Dialogs(80).Show

Sub Zapusk_Word_iz_Excel()
    Dim objWrdApp As Object
    Dim objWrdDoc As Object
    On Error Resume Next
    Set objWrdApp = GetObject(, "Word.Application")
        If objWrdApp Is Nothing Then
            Set objWrdApp = CreateObject("Word.Application")
            Set objWrdDoc = objWrdApp.Dialogs(80).Show
            ' здесь в случае Отмены нужно что-то типа If objWrdDoc is Nothing then Exit Sub
            objWrdApp.Visible = True
        End If

    Set objWrdDoc = objWrdApp.Selection.WholeStory
    Set objWrdDoc = objWrdApp.Selection.Copy
    Set objWrdApp = Nothing
End Sub

Sub Vstavka()
Zapusk_Word_iz_Excel
    If Application.ClipboardFormats(1) = -1 Then
        MsgBox "Буфер обмена пуст"
        Exit Sub
    Else
        Range("A5").Activate
        ActiveSheet.Paste
    End If
    
End Sub

Sub ResultatDiapzn2()
Dim Resultat As Range
Dim iKod As Range
    
Set Resultat = Sheets("Resultat").Range("A4", Sheets("Resultat").Cells(Rows.Count, 3).End(xlUp))
    For Each iKod In Resultat.Columns(1)
        MsgBox iKod
        'MsgBox iKod.Address
    Next iKod
End Sub