Вход | Регистрация
 
1С:Предприятие :: 1С:Предприятие 8 общая

код VBA в 1с 8

код VBA в 1с 8
Я
   pedagog
 
15.08.21 - 19:36
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?
   Classic
 
1 - 15.08.21 - 19:44
А ты как с макетом работаешь?
Если через Application - то так же и сворачивай.
   pedagog
 
2 - 15.08.21 - 19:48
Макет = ПолучитьМакет("ЮИ_ПриказWord");
    MSWord = Макет.Получить();
    Попытка
        Макет = MSWord.Application.Documents(1);
        Word = MSWord.Application;
        Selection = Word.Selection;
        Макет.Activate();
    Исключение
        Сообщить(ОписаниеОшибки());
        MSWord.Application.Quit();
        Возврат Ложь;
    КонецПопытки;
    Замена = Макет.Content.Find;
Вот так
   pedagog
 
3 - 15.08.21 - 19:52
(1) а как "также"?
   pedagog
 
4 - 15.08.21 - 20:14
уже голова закипает. не могу найти решение. помогите, кто знает
   pedagog
 
5 - 15.08.21 - 20:20
метод Execute к какому объекту применяется?
   acanta
 
6 - 15.08.21 - 20:25
Я уже смутно помню, но там имхо другая версия VBA.
   pedagog
 
7 - 15.08.21 - 20:38
(((((((((((((((((((
   Хосе
 
8 - 15.08.21 - 21:28
(7) чето ты рано сдался парниша, что не получилось?
ACtiveDocument - это MSWord.Application.Documents(1)? Отрабатывает?
    Иск = Макет.Range.find;
        Иск.Text = "Слово1"
        If Иск.Execute = True Then

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

            Иск.Parent.Select
        End If

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

Список тем форума
 
ВНИМАНИЕ! Если вы потеряли окно ввода сообщения, нажмите Ctrl-F5 или Ctrl-R или кнопку "Обновить" в браузере.