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С, постоянно вылетает с ошибкой.
|
|
4
SalaSky
03.08.12
✎
11:05
|
(2) Так не работает. Но работает вот так:
MSWord.Application.Selection.EndKey(6, 1);
MSWord.Application.Selection.Delete();
Только он при этом грохает весь документ, так как
Замена = Документ.Content.Find;
Замена.Execute("<Конец>",ложь,Истина,ложь,,,Истина,,Ложь,"");
не перемещает курсор как я думал. Вопрос теперь собсно состоит в том, как переместить туда курсор:)
|
|