Форум 1С
Программистам, бухгалтерам, администраторам, пользователям
Задай вопрос - получи решение проблемы
29 мар 2024, 00:16

Помогите добавить трудовой договор в Word

Автор natalija, 04 фев 2013, 17:17

0 Пользователей и 1 гость просматривают эту тему.

natalija

Помогите, пожалуйста, добавить свой трудовой договор в word в ЗУП 1с 8.2.

Помогите, пожалуйста, произвести замены.
выделяю в документе значение, которое необходимо заменить [], а затем в конфигураторе пытаюсь прописать замены. Пример удачных замен:
// Предопределенная функция для внешних печатных форм
//
Функция Печать() Экспорт

    // Получим объект Microsoft Word из макета
    ОбъектВорд = ПолучитьМакет("ТД2").Получить();

    // Получим документ из объекта и активируем его
    Документ = ОбъектВорд.Application.Documents(1);
    Документ.Activate();

    // Поиск и замена маркеров
    Замена = Документ.Content.Find;
   Замена.Execute("[НомерДоговора]", , , , , , , , , СсылкаНаОбъект.НомерДоговора, 2);
   Замена.Execute("[ДоговорДата]", , , , , , , , , СсылкаНаОбъект.ДатаДоговора, 2);
    Замена.Execute("[ОрганизацияНаименованиеПолное]", , , , , , , , , СсылкаНаОбъект.Организация.НаименованиеПолное, 2);
   Замена.Execute("[СсылкаНаОбъект.Физлицо.ИНН]", , , , , , , , , СсылкаНаОбъект.Физлицо.ИНН, 2);
   Замена.Execute("[ТС]", , , , , , , , , СсылкаНаОбъект.ТарифнаяСтавка, 2);                                                                                  
   Замена.Execute("[ДНР]", , , , , , , , , СсылкаНаОбъект.ДатаНачала, 2);
   Замена.Execute("[ДОР]", , , , , , , , , СсылкаНаОбъект.ДатаОкончания, 2);
      
   // Вывод документа
    ОбъектВорд.Application.Visible = Истина;
    ОбъектВорд.Activate();

КонецФункции // Печать()



но у меня не получается прописать следующие замены:
1. ФИО сотрудника
2. адрес сотрудника
3. должность
4. паспортные данные сотрудника
5. руководитель организации

Klyacksa

Почему не получается заменить? Что говорит?
xxx: Спасибо! Я бы загуглил, но ты интересней. Материшься. Злишься. Послать можешь...

Мысль - это оргазм мозга. Кто способен его испытать - получают истинное наслаждение, остальным приходится имитировать

Dethmontt

Т.к. Найти доходит до места первой замены и если Дата договора раньше чем номер, то он ее не найдет.
//Можно поступить таким образом
Замена = Документ.Content.Find;
Замена.Execute("[НомерДоговора]", , , , , , , , , СсылкаНаОбъект.НомерДоговора, 2);
Замена = Документ.Content.Find;
Замена.Execute("[ДоговорДата]", , , , , , , , , СсылкаНаОбъект.ДатаДоговора, 2);
Замена = Документ.Content.Find;
.....
и т.д.
Если долго всматриваться в учебник...то в голову может прийти мысль его открыть!

natalija

 Я даже не знаю как правильно прописать путь замены. Я не программист.

Dethmontt

Так обратитесь к специалисту - ветка фриланс
Если долго всматриваться в учебник...то в голову может прийти мысль его открыть!

Теги:

Похожие темы (5)

Рейтинг@Mail.ru

Поиск