fixin (fixin) wrote,
fixin
fixin

Category:

Потеря кода 2010



Случилась со мной оказия. Писал для одного клиента в 2010 году обработку, которая заполняла документы в Word по шаблону. Шаблон задавался красиво, причем табличный части тоже аккуратно заполнялись:



Думал когда-нибудь код выложить на Инфостарт даже.



Но вот мне понадобилось сделать такую же шнягу по работе. Полез в архив, а там конфигурация взята на два дня раньше, чем я сделал эту доработку. Т.е. перед самым уходом я разработку не взял, делал ее в последние дни.


Пришлось писать все  с нуля, не так красиво и пока что без табличных частей. Увы, но так:


Функция ЗаполнитьДокументWord(Word, ИмяФайла, СтруктураПараметров) Экспорт
 Р = Новый Структура("ОК, Ошибка", Ложь, "");
 //Заполняет Word файлами и параметрами.
 Документ = Word.Documents.Open(ИмяФайла);
 
 Попытка
  //открыть документ
  Документ = Word.Documents.Open(ИмяФайла);
  //Документ = Word.Application.Documents(1);
  Документ.Activate();
  
  //обработатьДокумент
  //шапка
  
  wdReplaceAll  = 00000002;
  
  Для Каждого КЗ из СтруктураПараметров Цикл
   ИмяПараметра = КЗ.Ключ;
   ЗначениеПараметра = КЗ.Значение;
   Замена = Документ.Content.Find;
   Замена.Execute(
   "["+ИмяПараметра+"]", //Text
   Ложь,
   Истина,
   Ложь,
   ,
   ,
   Истина,
   ,
   Ложь,
   КЗ.Значение,
   wdReplaceAll
   ); 
   
   
   
  Документ.Save();
  Документ.Close(False);
  
  Р.ОК = истина;
  
 Исключение
  Р.Ошибка = ОписаниеОшибки();
  Если Документ <> Неопределено Тогда
   Документ.Close(False);
  КонецЕсли;
 КонецПопытки; 
 Возврат Р;
 
 


 
КонецФункции


 

Tags: , программирование
Subscribe
promo fixin december 31, 2037 16:57 1415
Buy for 30 tokens
UPD: Друзья, в августе 2019 года блог переехал на http://fixinchik.ru. Welcome! Добро пожаловать в журнал Осипова Сергея Александровича, известного также как Fixin и Гений 1С. Рекомендую ознакомиться с Часто Задаваемыми Вопросами обо мне. Что я хочу в подарок - список. Мой проект "…
  • Post a new comment

    Error

    default userpic

    Your reply will be screened

    Your IP address will be recorded 

    When you submit the form an invisible reCAPTCHA check will be performed.
    You must follow the Privacy Policy and Google Terms of use.
  • 19 comments