Как средствами 1С в ms word удалить строку содержащую определенный текст

Процедура ек()
	
 Попытка
//В данном примере запускается программа Excel, 

// затем в нее передаются некоторые данные, и затем

// на их основе строится диаграмма.

// Создаем объект Excel и присвоим его переменной языка

ОкноЕхсеl = СоздатьОбъект("Excel.Application");

// устанавливаем имя окна Excel

ОкноЕхсеl.Caption = "Отчет";

// создадим новую рабочую книгу

РабочаяКнига = ОкноЕхсеl.Workbooks.Add(); // Добавить рабочую книгу
            РабочаяКнига.Activate();


ЧислоРядов = 10;

ЧислоСтолбцов = 5;

// проставим названия строк

Для Ряд = 1 По ЧислоРядов Цикл

   Ячейка = ОкноЕхсеl.Cells(Ряд + 1, 1);

   Ячейка.Value = "Строка " + Строка(Ряд);

КонецЦикла;

// проставим названия столбцов

Для Столбец = 1 По ЧислоСтолбцов Цикл

   Ячейка = ОкноЕхсеl.Cells(1, Столбец + 1);

   Ячейка.Value = "Столбец " + Строка(Столбец);

КонецЦикла;

// заполним ячейки таблицы значениями

Для Ряд = 1 По ЧислоРядов Цикл

   Для Столбец = 1 По ЧислоСтолбцов Цикл

      Ячейка = ОкноЕхсеl.Cells(Ряд + 1, Столбец + 1);

      Ячейка.Value = Ряд + Столбец;

   КонецЦикла;

КонецЦикла;

// выделим область в таблице и присвоим ее переменной языка

Область = ОкноЕхсеl.Range(ОкноЕхсеl.Cells(1, 1), 

                          ОкноЕхсеl.Cells(ЧислоРядов + 1, ЧислоСтолбцов + 1));

// зададим имя выделенной области

Область.Name = "ОбластьДанных";

// определим рамку выделенной области и присвоим ее переменной языка

Рамка = Область.Borders;

// установим стили для рамки выделенной области

Рамка.LineStyle = 1;

//Рамка.Colorlndex = 3;

// построим диаграмму Лист=РабочаяКнига.Worksheets(1);

//Диаграмма = Лист.ChartObjects();
//
//Диаграмма = Диаграмма.Add(5, 5 + Область.Тор + Область.Height,
//
//                          Область.Width, Область.Height);
//
//МояДиаграмма = Диаграмма.Chart;
//
//МояДиаграмма.ChartWizard("ОбластьДанных ", -4102, 6, 1, 1, 1, 1, "Отчет");

// сделаем окно Excel видимым и активным

ОкноЕхсеl.Visible = 1;


	
 Исключение
		Сообщить(ОписаниеОшибки());
		Возврат;
	КонецПопытки;
	         
	
//	 Эксел= СоздатьОбъект("Excel.Application");
////РабочаяКнига = Эксел.Workbooks.Open(ИмяНужногоФайла); //Открываем файл
// РабочаяКнига = Эксел.Workbooks.Add(); // Добавить рабочую книгу
//            РабочаяКнига.Activate();

НашЛист = РабочаяКнига.Sheets(1); //Устанавливаем нужный лист        
 
РабочаяКнига.VBProject.VBComponents.Add(1); // добавляем модуль номер 1
 
РабочаяКнига.VBProject.VBComponents("Module1").CodeModule.InsertLines(1, "Sub Раскраска()");
РабочаяКнига.VBProject.VBComponents("Module1").CodeModule.InsertLines(2, "Range(""A2:F5"").Select");
РабочаяКнига.VBProject.VBComponents("Module1").CodeModule.InsertLines(3, " Selection.Font.ColorIndex = 3");
РабочаяКнига.VBProject.VBComponents("Module1").CodeModule.InsertLines(4, "Range(""A8:F10"").Select");
РабочаяКнига.VBProject.VBComponents("Module1").CodeModule.InsertLines(5, " Range(""F8"").Activate");
РабочаяКнига.VBProject.VBComponents("Module1").CodeModule.InsertLines(6, "  With Selection.Interior");
РабочаяКнига.VBProject.VBComponents("Module1").CodeModule.InsertLines(7, ".ColorIndex = 6");
РабочаяКнига.VBProject.VBComponents("Module1").CodeModule.InsertLines(8, ".Pattern = xlSolid");
РабочаяКнига.VBProject.VBComponents("Module1").CodeModule.InsertLines(9, " End With");
РабочаяКнига.VBProject.VBComponents("Module1").CodeModule.InsertLines(10, "End Sub");
ОкноЕхсеl.Run("Раскраска");
ОкноЕхсеl.ActiveWorkBook.save();
ОкноЕхсеl.WorkBooks.close();
ОкноЕхсеl.Quit();


КонецПроцедуры