Удаление области текста в документе ворд
По теме из базы знаний
Ответы
Подписаться на ответы
Инфостарт бот
Сортировка:
Древо развёрнутое
Свернуть все
// Реализация логики команды
Если ИдентификаторКоманды = "ВыгрузкаИнформацииПоОбработкам" Тогда
СсылкаНаОрганизацию = Справочники.Организации.НайтиПоКоду("000000001");
ИНН = СсылкаНаОрганизацию.ИНН;
НаименованиеБД = СсылкаНаОрганизацию.Наименование;
ПутьКФайлу = "C:\Users\\Desktop\Задания\Автоматчиеская проверка поключенных обработок в БД\Новая папка\1.docx";
WordПриложение = Новый COMОбъект("Word.Application");
WordПриложение.Visible = Истина;
WordПриложение.Documents.Open(ПутьКФАйлу);
WordФайл = WordПриложение.ActiveDocument();
WordПриложение.Selection.TypeText(строка("БД- " + Справочники.Организации.НаименованиеПоУмолчанию() + "ИНН - " + ИНН));
WordПриложение.Selection.TypeText(строка(Символ(10)));
Выборка = Справочники.ДополнительныеОтчетыИОбработки.Выбрать();
Пока Выборка.Следующий() Цикл
// для каждого клиента формируем свой элемент
// запишем код клиента в атрибут тега
WordПриложение.Selection.TypeText(строка(Выборка.ИмяОбъекта));
WordПриложение.Selection.TypeText(строка(Выборка.ИмяФайла));
WordПриложение.Selection.TypeText(строка(Выборка.Версия));
WordПриложение.Selection.TypeText(строка(Выборка.Информация));
WordПриложение.Selection.TypeText(строка(Символ(10)));
КонецЦикла;
//Поиск.ClearFormatting();
WordФайл.Close();
WordПриложение.Quit();
Показать
(13) У вас, наверное, все та же задача, если информацию ранее выгружали, то снова ее в файл писать не нужно? Но вы все равно проходите по всему справочнику каждый раз, может быть тогда просто очистить документ перед заполнением и заполнить более новой информацией?
(26) Вот таким запросом вы можете получить данные и выгрузить их в ТЗ. Символ ПС добавите потом при записи файл
Дальше посмотрите ТЗ в отладчике, есть ли там дубликаты и что с ней делать, затем перебирайте строки и пишите в файл.
Строку в файл можете формировать сразу из нескольких значений колонок и писать в файл один раз, используя функцию СтрШаблон(). Почитайте про нее, в будущем пригодится.
Запрос = Новый Запрос;
Запрос.Текст =
"ВЫБРАТЬ РАЗЛИЧНЫЕ
| ДополнительныеОтчетыИОбработки.ИмяОбъекта КАК ИмяОбъекта,
| ДополнительныеОтчетыИОбработки.ИмяФайла КАК ИмяФайла,
| ДополнительныеОтчетыИОбработки.Версия КАК Версия,
| ДополнительныеОтчетыИОбработки.Информация КАК Информация
|ИЗ
| Справочник.ДополнительныеОтчетыИОбработки КАК ДополнительныеОтчетыИОбработки";
РезультатЗапроса = Запрос.Выполнить();
ТаблицаЗначенийЗапрос = РезультатЗапроса.Выгрузить();
ПоказатьДальше посмотрите ТЗ в отладчике, есть ли там дубликаты и что с ней делать, затем перебирайте строки и пишите в файл.
Строку в файл можете формировать сразу из нескольких значений колонок и писать в файл один раз, используя функцию СтрШаблон(). Почитайте про нее, в будущем пригодится.
Для получения уведомлений об ответах подключите телеграм бот:
Инфостарт бот