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

@CharlyChaplin · Регистрация: 28.05.2015

Author24 — интернет-сервис помощи студентам

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

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

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

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

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

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

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

@Hugo121 · 24.08.2017, 08:28

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

shanemac51 · 24.08.2017, 08:41

Сообщение от CharlyChaplin

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

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

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

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

@Hugo121 · 24.08.2017, 08:47

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

Сообщение от CharlyChaplin

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

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

@Homarty · 24.08.2017, 21:33

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

1.Как в Normal.dot определить, что загрузился Word-документ именно с нужным названием, чтобы в нём искать нужные поля?

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

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

Добавлено через 15 минут

Visual Basic

Sub TableSample()
    With ActiveDocument
        .Tables.Add Range:=Selection.Range, NumRows:=3, NumColumns:= _
            4, DefaultTableBehavior:=wdWord9TableBehavior, AutoFitBehavior:= _
            wdAutoFitFixed
        With .Tables(1)
            .Rows(2).Delete
            .Rows(.Rows.Count).Select
            Selection.InsertRowsBelow 1
        End With
    End With
End Sub
 
Sub InsertingCombo()
    Dim s As Shape
    ActiveDocument.Shapes.AddOLEControl "Forms.ComboBox.1", Selection.Range
    With ActiveDocument.Shapes(1)
   'Пepeмeщeниe ComboBox'a в тoчкy (2 cм,2 cм) _
      oтнocитeльнo лиcтa
        .RelativeHorizontalPosition = wdRelativeHorizontalPositionPage
        .Left = MillimetersToPoints(20)
        .RelativeVerticalPosition = wdRelativeVerticalPositionPage
        .Top = MillimetersToPoints(20)
    End With
End Sub

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

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

@CharlyChaplin · 25.08.2017, 04:55 **[ТС]**

Сообщение от shanemac51

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

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

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

@CharlyChaplin · 25.08.2017, 04:59 **[ТС]**

Сообщение от Homarty

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

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

@CharlyChaplin 182 / 33 / 3 Регистрация: 28.05.2015 Сообщений: 148
		1
	Как правильно организовать работу скриптов? 24.08.2017, 05:07. Показов 1322. Ответов 6 Метки нет (Все метки) Скажу сразу скрипты уже написаны, хотя в VBA я дуб дубом в отличии от VB6 поэтому возник вопрос. Вопрос про VBA для Word 2003. Решил облегчить себе работу на производстве, автоматизировав некоторые документы. Имеется папка Бланков протоколов(электромонтёра-релейщика), где заполняются данные по результатам выполненных работ. Бланков порядка 50-и штук. В этих документах есть общие места: - шапка, где нужно изменить текущий день, месяц, год; - тело документа с таблицами; - завершающая таблица с ФИО работавших членов бригады. В каждом документе я написал свой скрипт, который выполнял только третий пункт, т.к. иногда фамилий больше, а иногда меньше. А в Normal.dot я писал скрипт для первого пункта, т.к. ячейки таблицы для числа, месяца, года не меняются. Это шапка. Также в каждом документе я указал, что если путь к документу содержит слово "Бланки" If InStr(ThisDocument.Path, "БЛАНКИ") > 0, то запретить сохранение документа, а перед закрытием оного делать операцию .Undo. В итоге у меня в одной папке хранятся Бланки протоколов, в каждом из которых написан почти одинаковый скрипт. Я хочу написать универсальный скрипт в Normal.dot, т.к. сейчас появилась необходимость перенести папку на другой компьютер, а там, почему-то, работает всё не так, как на моём. Отсюда возникает два вопроса: 1. Как в Normal.dot определить, что загрузился Word-документ именно с нужным названием, чтобы в нём искать нужные поля? 2. Как, если загрузился определённый документ, создать/удалить строки нужной таблицы(с фамилиями) и добавить в них контрол, например ComboBox(для выбора нужной фамилии)? Или есть смысл оставить скрипты в своих документах? Так Word на компьютере больше ни для чего не используется. 0

@Hugo121 6922 / 2832 / 543 Регистрация: 19.10.2012 Сообщений: 8,645
	24.08.2017, 08:28	2
	Я по Ворду не работаю, поэтому по скриптам ничего особо советовать не могу, но: 1. вероятно есть активныйдокумент.Path, по нему и определять. 2. т.к. "Word на компьютере больше ни для чего не используется", то может лучше его вообще не использовать, а перенести эти бланки в Эксель? Там проще работать с строками, да и выпадающий список сделать. 0

shanemac51 Модератор 11957 / 4825 / 779 Регистрация: 07.08.2010 Сообщений: 14,132 Записей в блоге: 4
	24.08.2017, 08:41	3
	Сообщение от CharlyChaplin Имеется папка Бланков протоколов(электромонтёра-релейщика), где заполняются данные по результатам выполненных работ. Бланков порядка 50-и штук. не могу угадать, чем они отличаются видимо это --заголовочная часть(дата.....) --50 вариантов перечня работ --переменный список работников а надо ли для этого 50 бланков, может в екселе одним можно обойтись и макрос в него же записать 0

@Hugo121 6922 / 2832 / 543 Регистрация: 19.10.2012 Сообщений: 8,645
	24.08.2017, 08:47	4
	Ещё такая мелочь - вместо Сообщение от CharlyChaplin то запретить сохранение документа, а перед закрытием оного делать операцию .Undo. может просто сделать файл только для чтения? 1

@CharlyChaplin 182 / 33 / 3 Регистрация: 28.05.2015 Сообщений: 148
	25.08.2017, 04:59 [ТС]	7
	Сообщение от Homarty при печати и просмотре он (контрол) будет выглядеть как контрол, если нужно, чтобы комбобокс (или др. контрол) позволял делать выбор фамилии и не быть заметным при просмотре и печати то используйте поля Ворда (formfields collection). Но тогда вам нужно будет понять как работают электронные бланки (формы) в Ворде. Я нашёл решение данной проблемы в оформлении, которое поддерживает сам контрол. Пример я привёл во вложении сообщения выше. 0

Опции темы

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

Решение