Sub макрос()

    With ActiveDocument.Range.find
        .Text = "Слово1"
        If .Execute = True Then
            .Parent.Collapse Direction:=wdCollapseEnd
            .Parent.Select
        End If
    End With

End Sub
Данный код VBA перемещает курсор после определенного слова (в данном примере Слово1).
как этот код написать на языке 1с при работе с макетом word?

А ты как с макетом работаешь?
Если через Application - то так же и сворачивай.

Макет = ПолучитьМакет("ЮИ_ПриказWord");
    MSWord = Макет.Получить();
    Попытка
        Макет = MSWord.Application.Documents(1);
        Word = MSWord.Application;
        Selection = Word.Selection;
        Макет.Activate();
    Исключение
        Сообщить(ОписаниеОшибки());
        MSWord.Application.Quit();
        Возврат Ложь;
    КонецПопытки;
    Замена = Макет.Content.Find;
Вот так

(1) а как "также"?

уже голова закипает. не могу найти решение. помогите, кто знает

метод Execute к какому объекту применяется?

Я уже смутно помню, но там имхо другая версия VBA.

(((((((((((((((((((

(7) чето ты рано сдался парниша, что не получилось?
ACtiveDocument - это MSWord.Application.Documents(1)? Отрабатывает?

    Иск = Макет.Range.find;
        Иск.Text = "Слово1"
        If Иск.Execute = True Then

            Иск.Parent.Collapse(,,wdCollapseEnd); // Direction:=wdCollapseEnd //Тут нужно позицию Direction в методе найти и подставить ее значение
            Иск.Parent.Select
        End If

Что-то типа этого навскидку