Как правильно организовать работу скриптов?

Скажу сразу скрипты уже написаны, хотя в VBA я дуб дубом в отличии от VB6 поэтому возник вопрос.
Вопрос про VBA для Word 2003. Решил облегчить себе работу на производстве, автоматизировав некоторые документы. Имеется папка Бланков протоколов(электромонтёра-релейщика), где заполняются данные по результатам выполненных работ. Бланков порядка 50-и штук.
В этих документах есть общие места:

- шапка, где нужно изменить текущий день, месяц, год;
- тело документа с таблицами;
- завершающая таблица с ФИО работавших членов бригады.

В каждом документе я написал свой скрипт, который выполнял только третий пункт, т.к. иногда фамилий больше, а иногда меньше. А в Normal.dot я писал скрипт для первого пункта, т.к. ячейки таблицы для числа, месяца, года не меняются. Это шапка. Также в каждом документе я указал, что если путь к документу содержит слово "Бланки"
If InStr(ThisDocument.Path, "БЛАНКИ") > 0, то запретить сохранение документа, а перед закрытием оного делать операцию .Undo.

В итоге у меня в одной папке хранятся Бланки протоколов, в каждом из которых написан почти одинаковый скрипт. Я хочу написать универсальный скрипт в Normal.dot, т.к. сейчас появилась необходимость перенести папку на другой компьютер, а там, почему-то, работает всё не так, как на моём.

Отсюда возникает два вопроса:

1. Как в Normal.dot определить, что загрузился Word-документ именно с нужным названием, чтобы в нём искать нужные поля?
2. Как, если загрузился определённый документ, создать/удалить строки нужной таблицы(с фамилиями) и добавить в них контрол, например ComboBox(для выбора нужной фамилии)?

Или есть смысл оставить скрипты в своих документах? Так Word на компьютере больше ни для чего не используется.

0

Я по Ворду не работаю, поэтому по скриптам ничего особо советовать не могу, но:
1. вероятно есть активныйдокумент.Path, по нему и определять.
2. т.к. "Word на компьютере больше ни для чего не используется", то может лучше его вообще не использовать, а перенести эти бланки в Эксель? Там проще работать с строками, да и выпадающий список сделать.

0

Сообщение от CharlyChaplin Имеется папка Бланков протоколов(электромонтёра-релейщика), где заполняются данные по результатам выполненных работ. Бланков порядка 50-и штук.

не могу угадать, чем они отличаются

видимо это
--заголовочная часть(дата.....)
--50 вариантов перечня работ
--переменный список работников

а надо ли для этого 50 бланков, может в екселе одним можно обойтись и макрос в него же записать

0

Ещё такая мелочь - вместо

Сообщение от CharlyChaplin то запретить сохранение документа, а перед закрытием оного делать операцию .Undo.

может просто сделать файл только для чтения?

1

Отсюда возникает два вопроса: 1.Как в Normal.dot определить, что загрузился Word-документ именно с нужным названием, чтобы в нём искать нужные поля? 2.Как, если загрузился определённый документ, создать/удалить строки нужной таблицы(с фамилиями) и добавить в них контрол, например ComboBox(для выбора нужной фамилии)?

1. Используте объект application у него имеются различные события и в т.ч. на открытие документа.
2. Смотрите следующий код

Добавлено через 15 минут
В первой процедуре создается таблица (3 строки, 4 столбца), удаляется строка 2 и добавляется новая строка снизу таблицы.
Во второй процедуре добавляется ComboBox. Удачи!

Добавлено через 27 минут
Замечание к коду. Этот код вставляет activeX control, т.е. при печати и просмотре он (контрол) будет выглядеть как контрол, если нужно, чтобы комбобокс (или др. контрол) позволял делать выбор фамилии и не быть заметным при просмотре и печати то используйте поля Ворда (formfields collection). Но тогда вам нужно будет понять как работают электронные бланки (формы) в Ворде.

1

Сообщение от shanemac51 не могу угадать, чем они отличаются видимо это --заголовочная часть(дата.....) --50 вариантов перечня работ --переменный список работников а надо ли для этого 50 бланков, может в екселе одним можно обойтись и макрос в него же записать

Это 50 Word-файлов.

Скинул ради примера 3 из них.

Вложения

БЛАНКИ(включить макросы).rar (176.2 Кб, 4 просмотров)

0

Сообщение от Homarty при печати и просмотре он (контрол) будет выглядеть как контрол, если нужно, чтобы комбобокс (или др. контрол) позволял делать выбор фамилии и не быть заметным при просмотре и печати то используйте поля Ворда (formfields collection). Но тогда вам нужно будет понять как работают электронные бланки (формы) в Ворде.

Я нашёл решение данной проблемы в оформлении, которое поддерживает сам контрол. Пример я привёл во вложении сообщения выше.

0