Имя: Пароль:
1C
1С v8
Помогите переиначить код с VB на 1С
0 SalaSky
 
03.08.12
09:39
Мне нужно удалить весть текст, после определенного параметра. Пишу так:

Договор = ПолучитьМакет("МакетДоговора");
MSWord = Договор.Получить();
Документ = MSWord.Application.Documents(1);
Документ.Activate();

Замена = Документ.Content.Find;    
Замена.Execute("<Конец>",ложь,Истина,ложь,,,Истина,,Ложь,"");

А вот что же написать дальше, чтобы удалить все, что после параметра?
Макрос выдает:
Selection.EndKey Unit:=wdStory, Extend:=wdExtend
Selection.Delete Unit:=wdCharacter, Count:=1
Но я никак не могу переделать код под 1С, постоянно вылетает с ошибкой.
1 SalaSky
 
03.08.12
10:14
ап
2 sash-ml
 
03.08.12
11:01
так и делай Документ.Selection.EndKey() ; Документ.Selection.Delete();
3 МихаилМ
 
03.08.12
11:05
избавтесь от Selection
т.к. Selection свойство контекста

используйте явно объект типа range
4 SalaSky
 
03.08.12
11:05
(2) Так не работает. Но работает вот так:

MSWord.Application.Selection.EndKey(6, 1);
MSWord.Application.Selection.Delete();

Только он при этом грохает весь документ, так как
Замена = Документ.Content.Find;    
Замена.Execute("<Конец>",ложь,Истина,ложь,,,Истина,,Ложь,"");
не перемещает курсор как я думал. Вопрос теперь собсно состоит в том, как переместить туда курсор:)
5 SalaSky
 
03.08.12
11:09
(3) А можно пример? Я с VB не знаком, просто наугад тыкаюсь по макросам и справке.
2 + 2 = 3.9999999999999999999999999999999...