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

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С:Предприятие 8 Управленческий учет Платные (руб)

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

63100 руб.

19.02.2016    114193    149    5    

119

Документооборот и делопроизводство (СЭД) Пользователь 1С:Предприятие 8 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С-Совместимо

135530 руб.

11.06.2015    62414    38    20    

49

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

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

14900 руб.

15.11.2018    41728    53    60    

84

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

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

15000 руб.

20.04.2016    68056    195    107    

108

Документооборот и делопроизводство (СЭД) 1С:Предприятие 8 1C:Бухгалтерия Россия Платные (руб)

Мощный, единый инструмент для решения всех проблем, связанных с переходом на ЭДО. Экономит бумагу и время – организует полностью соответствующий закону архив оригиналов первичных документов прямо в базе 1С, в прикрепленных файлах к соответствующим документам. Выявляет все возможные ошибки в ЭДО и помогает в несколько кликов их исправить. Взаимодействует напрямую с сервисами Диадок/СБИС, имеет интуитивно понятный интерфейс и учитывает 5-ти летний опыт 60+ клиентов.

29890 руб.

17.12.2018    50451    81    65    

85

Документооборот и делопроизводство (СЭД) Системный администратор Программист Бухгалтер 1С:Предприятие 8 1С:Бухгалтерия 3.0 Бухгалтерский учет Платные (руб)

Бесшовная интеграция с 1С:Документооборот (КОРП или ПРОФ) - вот что обеспечит Вам и Вашим сотрудникам оперативный доступ и продуктивную работу с документами в учётной системе 1С на базе "1С:Бухгалтерия предприятия 3.0 ПРОФ". Бесшовный обмен и связь позволяют экономить до 60% времени на поиск и согласование первичной документации (актов, счетов-фактур, накладных), не говоря уже о других полезных функциональных возможностях: создании и запуске бизнес-процессов, работе с электронной почтой, штрихкодировании документов и многом другом.

54900 руб.

23.05.2017    62640    36    69    

43

Документооборот и делопроизводство (СЭД) Бухгалтер Пользователь Руководитель проекта 1С:Предприятие 8 Управленческий учет Платные (руб)

1С:Договоры 8 - удобный и эффективный инструмент для работы с договорами, особенно в организациях с развитой договорной деятельностью. Решение обладает широкими функциональными возможностями для простой подготовки, отслеживания и контроля исполнения договоров. Сокращайте время на договорную работу, держите под контролем процессы согласования, оплаты счета и находите нужный договор за считанные секунды. С 1 апреля 2026 цена изменится в среднем на 14%, успейте приобрести по текущей цене с 15% бонусов на услуги и сервисы Инфостарт!

6300 руб.

26.02.2016    33258    9    2    

15
Комментарии
Подписаться на ответы Инфостарт бот Сортировка: Древо развёрнутое
Свернуть все
1. baykovsky 23.09.19 09:00 Сейчас в теме
Спасибо за интересный прием. Но это далеко не панацея. Как быть, если политикой безопасности запрещено использование макросов?
2. pro96inf 609 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();
	//Конец обновление перекрестных ссылок
	
	ДвоичныеДанныеЗаполненногоФайла = Новый 
        ДвоичныеДанные(НовыйПутьКФайлу);
	УдалитьФайлы(СтарыйПутьКФайлу);
	УдалитьФайлы(НовыйПутьКФайлу);
	
	Возврат ДвоичныеДанныеЗаполненногоФайла;
Показать
Для отправки сообщения требуется регистрация/авторизация