Работа с автозаполнением шаблонов файлов в документообороте

22.09.19

Функциональные - Документооборот и делопроизводство (СЭД)

При автозаполнении шаблонов файлов средствами MS Word возникает такая проблема - если одно и то же поле используется несколько раз в документе, тогда приходится дублировать закладки, например, если поле "Ответственный" используется 2 раза приходится создавать 2 закладки (Ответственный", "Ответственный2") и дублировать правила заполнения для этих полей. В данной статье я хочу рассказать каким образом можно создавать только 1 закладку и использовать данные из этой закладки в других местах документа.

Было принято решение создавать перекрестные ссылки на закладки, но данные по этим ссылкам по умолчанию обновляются только при печати документа. Для обновления данных по ссылкам нужно создать макрос в ворде, который при открытии документа будет автоматически обновлять поля ссылочного типа.

Сначала нужно добавить вкладку "Разработчик" на ленту. На вкладке "Файл" выберите "Параметры" - > "Настроить ленту". В разделе "Настройка ленты" в списке "Основные вкладки" установите флажок "Разработчик":

Затем нужно создать макрос. Для этого перейдите на вкладку "Разработчик" - > "Макросы". В открывшемся окне введите имя макроса и нажмите кнопку "Создать":

Имя макроса должно равняться значению "Autoopen", при таком значении данный макрос будет всегда запускаться при открытии документа.

В открывшемся окне вставьте код макроса и сохраните его:

Код макроса:

Sub Autoopen()

Dim aStory As Range
Dim aField As Field
For Each aStory In ActiveDocument.StoryRanges
  For Each aField In aStory.Fields
    If aField.Type = 3 Then
    aField.Update
    End If
  Next aField
Next aStory

End Sub

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

 

документооборот автозаполнение шаблонов файлов

См. также

Бухгалтер Пользователь Руководитель проекта Платформа 1С v8.3 Управленческий учет Платные (руб)

Организуйте правильный оборот документов на вашем предприятии в 1С. Ведение учета и хранения документов. Управление потоками документации между подразделениями. Работа с договорами в компании. Автоматизация процессов подготовки, согласования и подписания документов. Сократите время и объем ошибок с 1С:ДО!

48500 руб.

19.02.2016    109897    134    5    

105

Бизнес-аналитик Бухгалтер Пользователь Платформа 1С v8.3 Бухгалтерский учет Налоговый учет Управленческий учет Платные (руб)

Прикладное решение «1С:Комплексная автоматизация 2» позволяет построить современную систему учета с высокой степенью детализации затрат, определить показатели управления и ответственности пользователей в рамках единого информационного пространства.

83000 руб.

19.02.2016    83331    113    0    

112

Рабочее место Производство готовой продукции (работ, услуг) Перенос данных 1C Пользователь Платформа 1С v8.3 1С:Управление производственным предприятием 1С:Документооборот 1С:Комплексная автоматизация 2.х 1С:КА 1С:ДО Платные (руб)

Продукт "Интеграция с 1С:Документооборот" позволяет использовать функции программы "1С:Документооборот 8" напрямую из учетной системы (1С:УПП; 1С:КА, 1С:УТ 10.3, 1С:БГУ 1.0, 1С:ЗБУ 1.0, 1С:УПП для Казахстана и отраслевых решений, разработанных на их основе) на платформе "1С:Предприятие 8": выполнять и ставить задачи, просматривать документы, скан-копии и прочие файлы, штрих-кодировать документы отправлять письма, вести учет рабочего времени - не входя в "1С:Документооборот 8", работая в одной программе, что значительно сокращает время и делает работу более комфортной и эффективной. Продукт прошел сертификацию 1С-Совместимо

110400 руб.

11.06.2015    58417    36    20    

45

SALE! 30%

Мессенджеры и боты Учет документов Платформа 1С v8.3 1С:Управление нашей фирмой 1.6 1С:Бухгалтерия государственного учреждения 1С:ERP Управление предприятием 2 1С:Бухгалтерия 3.0 Платные (руб)

Расширение для согласования справочников и документов в основных типовых конфигурациях. Ролевая адресация, условная маршрутизация, чат-бот telegram, интеграция с n8n, последовательное и параллельное согласование, уведомление о новых задачах на почту, блокировка объектов в зависимости от статуса, запрет проведения в зависимости от статуса, автозапуск процессов согласования, отчеты по исполнительской дисциплине. Не требуется снятие конфигурации с поддержки. Настройка без программирования. Версия для 1cfresh.com. Сертификат 1С-Совместимо.

14900 руб.

15.11.2018    32183    40    49    

73

ЭДО и ОФД Учет документов Платформа 1С v8.3 1C:Бухгалтерия Россия Платные (руб)

Мощный, единый инструмент для решения всех проблем, связанных с переходом на ЭДО. Экономит бумагу и время - организует архив оригиналов первичных документов прямо в базе 1С, в прикрепленных файлах к соответствующим документам.

14880 руб.

17.12.2018    46596    69    63    

80

Печатные формы Бухгалтер Пользователь Платформа 1С v8.3 1С:Управление нашей фирмой 1.6 1С:ERP Управление предприятием 2 1С:Бухгалтерия 3.0 1С:Управление торговлей 11 1С:Комплексная автоматизация 2.х 1С:Управление нашей фирмой 3.0 1С:Розница 3.0 Бухгалтерский учет Управленческий учет Платные (руб)

Расширение для печати договоров с приложением из шаблонов. Быстрая подготовка заполненных договоров без ручного заполнения. Возможность использования дополнительных реквизитов контрагентов и номенклатуры Быстрое сохранение файлов договоров и отправка по электронной почте. Решение в Реестре отечественного ПО.

15000 руб.

20.04.2016    63752    189    107    

103
Комментарии
Подписаться на ответы Инфостарт бот Сортировка: Древо развёрнутое
Свернуть все
1. baykovsky 23.09.19 09:00 Сейчас в теме
Спасибо за интересный прием. Но это далеко не панацея. Как быть, если политикой безопасности запрещено использование макросов?
2. pro96inf 601 23.09.19 09:21 Сейчас в теме
Как вариант, можно прописать тот же самый код из макроса в 1С через com объект в процедуре заполнения файла.
Для ворда формата 2007+ это общий модуль «АвтозаполнениеШаблоновФайловКлиентСервер», процедура «ЗаполнитьФайлMSWordВXML».

Код 1С:

ПереместитьФайл(ВременныйZIPФайл, НовыйПутьКФайлу);
	    УдалитьФайлы(ВременнаяПапкаДляРазархивирования);	
	
	//Обновление перекрестных ссылок документа
	Word = New ComObject("Word.Application");
	Word.Documents.Open(НовыйПутьКФайлу);
	For Each Field In Word.ActiveDocument.Fields Do 
		If Field.Type = 3 Then
			Field.Update();
		EndIf;
	EndDo;
	Word.Documents.Close();
	Word.Quit();
	//Конец обновление перекрестных ссылок
	
	ДвоичныеДанныеЗаполненногоФайла = Новый 
        ДвоичныеДанные(НовыйПутьКФайлу);
	УдалитьФайлы(СтарыйПутьКФайлу);
	УдалитьФайлы(НовыйПутьКФайлу);
	
	Возврат ДвоичныеДанныеЗаполненногоФайла;
Показать
Оставьте свое сообщение