Массовое обработка файлов word excel с установкой колонтитулов
Ответы
Подписаться на ответы
Инфостарт бот
Сортировка:
Древо развёрнутое
Свернуть все
v8: Колонтитулы в Word
Доброго времени суток!
Подскажите, пожалуйста, как решить проблему: Есть шаблон в Word, необходимо изменить нижний колонтитул(подставить данные из 1С)???
Рабочий код:
Подскажите, пожалуйста, как решить проблему: Есть шаблон в Word, необходимо изменить нижний колонтитул(подставить данные из 1С)???
Рабочий код:
Проблему решил добавив следующую строку:Код 1C v 8.х
Документ.Sections(1).Footers(1).Range.Find.Execute("[НашаОрганизация]", Ложь, Истина, Ложь, , , Истина, , Ложь, Заказчик, 2);
(1)
Для 8.2 и 8.3 так же работает
При сохранении файла Excel сохраняется все, кроме колонтитулов.
Страница = Книга.WorkSheets(4);
Страница.Name = "2(260)";
Страница.PageSetup.CenterHeader = Симв(10) + "Подотчетные лица";
Страница.PageSetup.RightHeader = "Расшифровка к балансу 2" + Симв(10) + СокрЛП(Константа.ОсновнаяФирма);
Страница.PageSetup.RightFooter = "Исполнитель: ________________ " + СокрЛП(Пользователь);
ПоменятьЗум(Страница.PageSetup); // Фича Excel'a
Страница.PageSetup.FitToPagesWide = 1;
Страница.PageSetup.FitToPagesTall = 100;
(1) Ну и естественно множественная обработка файлов для 8.x, правда для УФ несколько другая обработка должна быть
1С 8.2 УП : Обработка файлов в папке и запись дополнительной информации в них
Частенько при загрузке данных в 1С сталкиваешься с необходимостью дополнительной обработки загружаемых файлов. Возможно это добавление какой-либо информации или наоборот удаление, а может изменение.
Ниже приведен код, который обрабатывает файлы в указанной папке и добавляет в конец файла информацию о дате его последнего изменения:
(это лишь рабочий пример / набросок - который вы можете использовать для написания своего обработчика)
Частенько при загрузке данных в 1С сталкиваешься с необходимостью дополнительной обработки загружаемых файлов. Возможно это добавление какой-либо информации или наоборот удаление, а может изменение.
Ниже приведен код, который обрабатывает файлы в указанной папке и добавляет в конец файла информацию о дате его последнего изменения:
(это лишь рабочий пример / набросок - который вы можете использовать для написания своего обработчика)
как-то так пару строк кода
и вроде сейчас не сложно эксель-файл открыть и причесать.
детали в сп или гуглить.
главное - о файлах какого размера речь.
мФайлы = НайтиФайлы(...
Для Каждого тФайл Из мФайлы Цикл
// 5-10 строк кода: открыть, добавить, записать
КонецЦиклаи вроде сейчас не сложно эксель-файл открыть и причесать.
детали в сп или гуглить.
главное - о файлах какого размера речь.
(2) да, есть некоторые шаблоны, с возможностью "допилить", но меня терзают смутные сомнения в возможностях 1с по этому поводу
- размер от 0 до 100 МБ
- вложенность папок
- форматы (2003,2007, 10 и т.д)
Возможно есть уже готовое или сторонний софт ?
- размер от 0 до 100 МБ
- вложенность папок
- форматы (2003,2007, 10 и т.д)
Возможно есть уже готовое или сторонний софт ?
(3)
- размеры не критичны, бывает и по пару гиг эксельки финансисты клепают, а ваши можно в цикле крутить без особой нагрузки
- вложенность по барабану, через НайтиФайлы() получаете полные пути от главного корня и перезаписываете.
осталось мелочь - нагуглить или наспешить
- метод вставки колонтитув
- метод определения формата эксельки
а как открыть и записать в том или ином формате - это уже проще.
правда если у вас 8.0 то все сложно.
- размеры не критичны, бывает и по пару гиг эксельки финансисты клепают, а ваши можно в цикле крутить без особой нагрузки
- вложенность по барабану, через НайтиФайлы() получаете полные пути от главного корня и перезаписываете.
осталось мелочь - нагуглить или наспешить
- метод вставки колонтитув
- метод определения формата эксельки
а как открыть и записать в том или ином формате - это уже проще.
правда если у вас 8.0 то все сложно.
(5) в конце зимы тела переполнены мелатонином или как там называют гормон сна, а в течение текущей недели еще и возлияниями витаминных нектаров, посему задачу решите или вы или монахи ордена "1С бетмены-трезвенники". тут один летает.
правда если у вас 8.0 то все сложно
Можно все то же самое, только без 1С и COM, а сразу в модуле VBA в Office этот код выполнять. Вообще делается просто: в экзеле или ворде ставишь запись макроса, устанавливаешь колонтитул, останавливаешь запись. Потом немного редактируешь код VBA, чтобы делал нужное не только с текущим файлом, а в цикле со всеми файлами в папке. И запускаешь полученный результат.
Если мне не изменяет память именно в этой версии я победил колонтитулы(файл прилагаю)
Прикрепленные файлы:
Договор_Word_ЮЛ.epf
Для получения уведомлений об ответах подключите телеграм бот:
Инфостарт бот
