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

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С:Комплексная автоматизация 8 (редакция 2.5) можно по выгодной цене с электронной поставкой. Внедрение системы позволит объединить все ключевые процессы в одной платформе и повысить эффективность компании. Узнайте стоимость, сравните версии и закажите автоматизацию для вашего бизнеса с бонусом 15% в Инфостарт!

94700 руб.

19.02.2016    85608    121    0    

117

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

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

55300 руб.

19.02.2016    111126    140    5    

111

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

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

120000 руб.

13.05.2009    68737    2    29    

42

1С v8.3 Платные (руб)

"1С:Архив" – это универсальная система, обеспечивающая надежное долговременное хранение документов с гарантией юридической значимости на неограниченный срок. "1С:Архив" разработан на основе нормативно-правовых актов по архивному делу, поддерживает операции хранения документов – от попадания в архив до уничтожения – и не имеет ограничений на объем хранимых данных. "1С:Архив" сопровождается методологической поддержкой в виде организационных документов по хранению, входящих в состав "Комплекта нормативных документов" к "Методике управления документами и совместной работой", разработанной специалистами фирмы "1С". Использование "1С:Архива" позволяет организовать единое хранилище всех бумажных и электронных документов из разных информационных систем, вести архивный учет в соответствии с требованиями Росархива и снизить нагрузку на учетные системы. Продукт подходит для малых, средних, крупных предприятий и учреждений любых отраслей.

117000 руб.

24.10.2022    6222    9    1    

8

Рабочее место Производство готовой продукции (работ, услуг) Перенос данных 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    59966    37    20    

48

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

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

14900 руб.

15.11.2018    38463    43    52    

77

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

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

19800 руб.

17.12.2018    48171    75    63    

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