Чтение файла, пример процедуры
&НаСервере
Процедура ПрочитатьWordНаСервере()
WordПриложение = Новый COMОбъект("Word.Application");
// выведем на экран документ
WordПриложение.Visible = Истина;
WordПриложение.Documents.Open("G:test.docx");
WordФайл = WordПриложение.ActiveDocument();
// обходим строки документа
Для Строка = 1 по WordФайл.Sentences.Count Цикл
Текст = WordФайл.Sentences(Строка).Text;
Сообщить(Текст);
КонецЦикла;
WordФайл.Close();
WordПриложение.Quit();
КонецПроцедуры
Поиск и замена текста, пример процедуры
&НаСервере
Процедура ЗаменитьТекстВWordПриложениеНаСервере()
WordПриложение = Новый COMОбъект("Word.Application");
WordПриложение.Visible = Истина;
WordПриложение.Documents.Open("G:test.docx");
WordФайл = WordПриложение.ActiveDocument();
Поиск = WordФайл.Range().Find;
ЗаменяемыйТекст = "тест";
ЗаменяющийТекст = "123";
Поиск.Execute(ЗаменяемыйТекст, , , , , , , , ,ЗаменяющийТекст , 2);
Поиск.ClearFormatting();
WordФайл.Close();
WordПриложение.Quit();
КонецПроцедуры
Оставить комментарий